rem face
rem by latch
 
sync on
sync rate 60
 
ink rgb(255,255,255),0
 
x1=100
y1=100
x2=300
y2=100
radx1=50
rady1=75
radx2=50
rady2=75
 
ellipse 100,100,50,75
ellipse 300,100,50,75
 
do
   cls
   circle 100,100,100
   circle 300,100,100
   line 75,300,325,300
 
   if mousex() < x1
      dec x1,10
   endif
   if mousex() > x1
      inc x1,10
   endif
   if x1-radx1 < 0 then x1=radx1
   if x1+radx1 > 200 then x1=200-radx1
 
   if mousex() < x2
      dec x2,10
   endif
   if mousex() > x2
      inc x2,10
   endif
   if x2 < 300-radx2 then x2=300-radx2
   if x2 > 300+radx2 then x2=300+radx2
 
   if mousey() < y1
      dec y1,10
   endif
   if mousey() > y1
      inc y1,10
   endif
   if y1-rady1 < 0 then y1=rady1
   if y1+rady1 > 200 then y1=200-rady1
 
   if mousey() < y2
      dec y2,10
   endif
   if mousey() > y2
      inc y2,10
   endif
   if y2-rady2 < 0 then y2=rady1
   if y2+rady2 > 200 then y2=200-rady2
 
   ellipse x1,y1,radx1,rady1
   ellipse x2,y2,radx2,rady2
 
   sync
loop