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


ASPPainter::Primitive::Ellipse.vbs

							
'============================================================
'Sample Ellipse.vbs
'============================================================

Dim im
Dim coords(100)
Set im = CreateObject("ASPPAinter.Pictures.1")
im.SetBKColor 0,0,0,0
im.Create 100,100
im.SetColor 0,0,255,255
im.SetLineWidth 3
im.DrawEllipse 50,50,50,80



im.SetColor 0,255,255,255
im.DrawFilledEllipse 80,50,20,30


im.saveToFile "C:\ellipse.png"
im.Destroy
Set im = Nothing


Picture 1. ellipse.png

More samples:

Arc, Beziers, Circle, Ellipse, Line, Pie, Rectangle, Unclosed polygon

See also:

SetBKColor, Create, SetColor , SetLineWidth , DrawArc , DrawFilledRectangle , DrawBezier , DrawCircle , DrawFilledCircle , DrawEllipse , DrawFilledEllipse , DrawRectangle , DrawUnclosedPolygon , SaveToFile , DestroyALL



home samples purchase documentation download