$system = CreateObject("kixtart.system")
If Not $System
$nul= MessageBox("KiXtart.Net Not Initiated. This Script Will Now Close.","Error",16)
Quit()
EndIf
$form = $system.form()
$form.top = 0
$form.left = 0
$form.width = 1024
$form.height = 768
$form.text = "TestLine.kix WFB " + @time + " " +@date
$form.show
$form.drawwidth = 1
For $i = 0 to 100
$form.pset($i, $i)
Next
$math = $system.math()
$pi = $math.pi
$2pi = 2.0 * $pi
Circle(200,200,50)
Ellipse(300,300,50,35)
While $form.visible
$ = Execute($form.doevents())
Loop
Return
Function Circle($x, $y, $r)
$t = 0.0
While $t < $2pi
$xx = $math.cos($t) * $r + $x
$yy = $math.sin($t) * $r + $y
$form.pset($xx,$yy)
$t = $t + 0.01
Loop
EndFunction
Function Ellipse($x, $y, $h, $v)
$t = 0.0
While $t < $2pi
$xx = $math.cos($t) * $h + $x
$yy = $math.sin($t) * $v + $y
$form.pset($xx,$yy)
$t = $t + 0.01
Loop
EndFunction