% Mr. M

% December 15, 2000

% Single sweep radar simulation

setscreen("graphics:vga")

for x2:0..639 by 5

drawline(320,240,x2,479,4)

delay(100)

end for

for decreasing y2:479..0 by 5

drawline(320,240,639,y2,4)

end for

for decreasing x2:639..0 by 5

drawline(320,240,x2,0,4)

end for

for y2:0..479 by 5

drawline(320,240,0,y2,4)

end for