ASPPainter::Primitive::UnclosedPolygon.vbs
Dim im
Dim coords(100)
Set im = CreateObject("ASPPAinter.Pictures.1")
im.SetBKColor 255,0,0,255
im.Create 300,300
im.SetColor 255,255,255,255
'im.Fill 0,0
im.SetColor 194,194,194,255
'im.DrawRectangle 288,288,298,298
'im.SetLineThickness 1
coords(0) = 122
coords(1) = 4
coords(2) = 157
coords(3) = 174
coords(4) = 205
coords(5) = 206
coords(6) = 295
coords(7) = 189
coords(8) = 294
coords(9) = 178
coords(10) = 205
coords(11) = 195
coords(12) = 167
coords(13) = 170
coords(14) = 133
coords(15) = 3
im.DrawUnclosedPolygon coords, 16
im.saveToFile "C:\polygon.png"
im.Destroy
Set im = Nothing
 |
Picture 1. polygon.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