ASPPainter::Gradient::Pie.vbs
Dim pic
Dim coords(100)
Set pic = CreateObject("ASPPAinter.Pictures.1")
pic.SetBKColor 0,0,0,0
pic.Create 100,100
pic.SetColor 0,0,255,255
pic.SetLineWidth 10
pic.SetColor 0,0,255,255
pic.SetColorIndex 1
pic.SetColor 255,255,0,255
pic.SetGradient 0,0, 100,100
pic.DrawPie 50,50,30,80,0,60
pic.DrawFilledPie 10,10,50,70,0,90
pic.saveToFile "C:\gradientpie.png"
pic.Destroy
Set pic = Nothing
 |
Picture 1. gradientpie.png |
More samples:
Arc,
Bezier,
Circle,
Ellipse,
Gradient,
Pie,
Polygon,
Rectangle,
Unclosed polygon
See also:
SetGradient,
DrawFilledArc, DrawFilledCircle
, DrawLine
, DrawFilledRectangle
, DrawPie
, DrawFilledPie
, DrawFilledPolygon
, DrawPolygon
, DrawRectangle
, DrawUnclosedPolygon ,
DrawBezier,
DrawEllipse, SaveToFile,
DestroyALL,
SetFormat, SetImageIndex,
SetLineWidth,
SetColor, DrawFilledEllipse,
LoadFile,
SetBKColor, Create,
Width,
DrawArc,SetColorIndex,
Height, SaveToFile