ASPPainter::Primitive::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.DrawPie 50,50,30,80,0,60
pic.saveToFile "C:\pie.png"
pic.Destroy
Set pic = Nothing
 |
Picture 1. pie.png |
More samples:
Arc,
Beziers, Circle,
Ellipse,
Line, Pie,
Rectangle, Unclosed
polygon
See also:
SetBKColor,
Create, SetColor
, SetLineWidth ,
DrawArc , DrawFilledRectangle
, DrawBezier ,
DrawCircle , DrawFilledCircle
, DrawEllipse ,
DrawFilledEllipse ,
DrawRectangle ,
DrawUnclosedPolygon , SaveToFile
, DestroyALL