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


ASPPainter::Primitive::Beziers.vbs

							
'============================================================
'Sample Beziers.vbs
'============================================================

Dim im
Dim coords(100)
Set im = CreateObject("ASPPAinter.Pictures.1")
im.SetBKColor 255,0,0,255
im.Create 300,300
im.SetColor 255,255,255,255
'im.Fill 0,0
'im.SetColor 194,194,194,255
im.DrawFilledRectangle 0,0,300,300
im.SetColor 194,0,0,255

'im.SetLineThickness 1

coords(0) = 10
coords(1) = 100
coords(2) = 75
coords(3) = 10
coords(4) = 80
coords(5) = 50
coords(6) = 100	
coords(7) = 150
coords(8) = 294
coords(9) = 178
coords(10) = 205
coords(11) = 195
coords(12) = 167
coords(13) = 170
'coords(14) = 133
'coords(15) = 3


im.DrawBezier coords, 14

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

Picture 1. beziers.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