ASP Painter
Home
Home
Samples
Samples
Purchase
Purchase
Download
Download
Documentation
Documentation


ASPPainter::Brush::Polygon.vbs

							
'============================================================
'Sample 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



home samples purchase documentation download