ASPPainter::Region::Region.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.SaveToFile "C:\region.png"
pic.DestroyAll
Set pic = Nothing
 |
Picture 1. region.png |
More samples:
Region
See also:
SetBKColor,
Create, SetColor ,
DrawLine , DrawPolygon
, SetRegion
, SetLineWidth
, SaveToFile ,
DestroyALL