ASPPainter::Gradient::upoly.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.DrawUnclosedPolygon coords, 16
pic.SaveToFile "C:\gradientupolygon.png"
pic.DestroyALL
Set pic = Nothing
 |
Picture 1. gradientupolygon.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