// RADAR DETECTING APPROACHING BOGIE paper 0 pen 100 set a (-1) set b (-10) set c (-1) set d (-10) set e 0 // HARMONIC MOTION IN X & Y DIRECTIONS // 90 DEGREE ROTATIONS IN 4 QUADRANTS // RADAR SCANS 3 TIMES repeat g 1 3 { set e (e+15) repeat y (-10) 0 { set a (a+1) paper 0 line (a*a/2) (y*y/(-2)+100) 50 50 } repeat y 0 9 { set b (b+1) paper 0 line (b*b/(-2)+100) (y*y/(-2)+100) 50 50 //APPROACHING BOGIE pen (b*(-15)) line 47 (110-b/2-e) 54 (100-b/2-e) pen 100 } repeat y (-10) 0 { set c (c+1) paper 0 line (c*c/(-2)+100) (y*y/2) 50 50 } repeat y 0 9 { set d (d+1) paper 0 line (d*d/2) (y*y/2) 50 50 } set a (-1) set b (-10) set c (-1) set d (-10) } // BOOM! BOGIE DESTROYS BASE paper 0 paper 100 paper 0 paper 100 repeat x 0 20 { paper (x*5) } // a,b,c,d DEFINE x-COORDINATES FOR // HARMONIC MOTION // b,e CONTROL BOGIE: b FADES BOGIE, e // LOWERS BOGIE