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


ASPPainter::Gradient::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 0

coords(0) = 22
coords(1) = 4
coords(2) = 57
coords(3) = 174
coords(4) = 105
coords(5) = 206
coords(6) = 195	
coords(7) = 189
coords(8) = 194
coords(9) = 178
coords(10) = 105
coords(11) = 195
coords(12) = 67
coords(13) = 170
coords(14) = 33
coords(15) = 3


pic.SetColor 0,0,255,255
pic.SetColorIndex 1
pic.SetColor 255,255,0,255
pic.SetGradient 0,0, 200,200

pic.SetColor 0,0,255,255
pic.DrawFilledPolygon coords, 16

coords(0) = 22 +20
coords(1) = 4
coords(2) = 57 +20
coords(3) = 174
coords(4) = 105 +20
coords(5) = 206
coords(6) = 195	 +20
coords(7) = 189
coords(8) = 194 +20
coords(9) = 178
coords(10) = 105 +20
coords(11) = 195
coords(12) = 67 +20
coords(13) = 170
coords(14) = 33 +20
coords(15) = 3



pic.DrawPolygon coords, 16



pic.SaveToFile "C:\gradientpolygon.png"
pic.DestroyALL

Set pic = Nothing


Picture 1. gradientpolygon.png

More samples:

Arc, Bezier, Circle, Ellipse, Gradient, Pie, Polygon, Rectangle, Unclosed polygon

See also:

SetGradient, DrawFilledArc, DrawFilledCircle , DrawLine , DrawFilledRectangle , DrawPie , DrawFilledPie , DrawFilledPolygon , DrawPolygon , DrawRectangle , DrawUnclosedPolygon , DrawBezier, DrawEllipse, SaveToFile, DestroyALL, SetFormat, SetImageIndex, SetLineWidth, SetColor, DrawFilledEllipse, LoadFile, SetBKColor, Create, Width, DrawArc,SetColorIndex, Height, SaveToFile



home samples purchase documentation download