ASPPainter::Fill::Fill.vbs
Dim pic
Set pic = CreateObject("ASPPainter.Pictures.1")
pic.SetBKColor 255,0,0,255
pic.Create 200,200
Dim points(8)
points(0) = 0
points(1) = 0
points(2) = 150
points(3) = 00
points(4) = 100
points(5) = 75
points(6) = 100
points(7) = 150
pic.SetColor 0,0,255,255
pic.DrawLine 0,0,200,200
pic.SetColor 255,255,255,255
pic.DrawPolygon points, 8
pic.SetRegion points,8
pic.SetColor 0,0,0,255
pic.SetLineWidth 3
pic.DrawLine 0,0,200,200
pic.SetColor 0,255,0,255
pic.Fill 90,99
pic.SaveToFile "C:\fill.png"
pic.DestroyAll
Set pic = Nothing
 |
Picture 1. fill.png |
More samples:
Fill
See also:
Fill