ASPPainter::Primitive::Arc.vbs
Dim im
Dim coords(100)
Set im = CreateObject("ASPPAinter.Pictures.1")
im.SetBKColor 0,0,0,0
im.Create 100,100
im.SetColor 0,0,255,255
im.SetLineWidth 10
im.DrawArc 50,50,30,80,0,360
im.saveToFile "C:\arc.png"
im.Destroy
Set im = Nothing
 |
Picture 1. arc.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