deflng a-z
const sw = 640
const sh = 480
screen _newimage(sw, sh, 32)
w = 400
h = 400
dim a as double, b as double
a = 0.08
b = 0.03
line (0,0)-(sw,sh),_rgb(237,221,255),bf
for y=0 to h
for x=0 to w
if (sqr((x + a*w)^2 + (y - h/2)^2) > (w/2 + b*w)) and (sqr((x - w - a*w)^2 + (y - h/2)^2) > (w/2 + b*w)) or (sqr((y + a*h)^2 + (x - w/2)^2) > (h/2 + b*h)) and (sqr((y - h - a*h)^2 + (x - w/2)^2) > (h/2 + b*h))then pset (sw/2 - w/2 + x, sh/2 + h/2 - y),_rgb(187,0,0)
next
next
sleep
system
