ASPPainter::Brush::Polygon.vbs
Dim pic
Dim coords(100)
Set pic = CreateObject("ASPPainter.Pictures.1")
pic.SetBKColor 255,0,0,255
pic.Create 200,250
pic.SetImageIndex 1
pic.SetBKColor 255,0,0,255
pic.LoadFile "C:\fish.gif"
pic.MakeThumbnail 10,10
pic.SetBrush
pic.SetImageIndex 0
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
pic.SetColor 0,0,255,255
pic.DrawFilledPolygon coords, 8
pic.SaveToFile "C:\brushpolygon.png"
pic.DestroyALL
Set pic = Nothing
 |
Picture 1. brush.png |
More samples:
Circle,
Arc, Ellipse,
Polygon, Pie,
Brush
See also:
SetBrush,
SetImageIndex, SetBKColor,
LoadFile,
Create, DrawFilledPolygon,
SetColor,
SaveToFile, DestroyALL,
MakeThumbnail,
SetLineWidth