ASPPainter::Brush::Pie.vbs
Dim pic
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
pic.SetLineWidth 10
pic.SetColor 255,255,0,255
'pic.DrawPie 50,50,30,80,0,60
pic.DrawFilledPie 10,10,50,70,0,90
pic.SaveToFile "C:\brushpie.png"
pic.Destroy
Set pic = Nothing
 |
Picture 1. brush.png |
More samples:
Circle,
Arc, Ellipse,
Polygon, Pie,
Brush
See also:
SetBrush,
SetImageIndex, SetBKColor,
LoadFile,
Create, DrawFilledPie,
SetColor,
SaveToFile, DestroyALL,
MakeThumbnail,
SetLineWidth