test {
var %x = 10, %y = 10, %w = 50, %h = 50
window -ap @test 100 100 100 100
clear @test
drawrect @test 3 1 %x %y %w %h
drawrect -e @test 4 1 %x %y %w %h
var %y2 = $calc(%y + (%h / 2))
var %minx = %x - 5
var %maxx = $calc(%x + %w + 5)
var %x2 %minx
while (%x2 <= %maxx) {
var %e = $inellipse(%x2,%y2,%x,%y,%w,%h)
echo 1 %x2 %y2 %e
drawdot @test $iif(%e,4,1) 1 %x2 %y2
inc %x2
}
}