CLS SCREEN 12 ax = 320 ay = 240 FOR rot = 0 TO 62.83 STEP .1 LINE (ax + 40 * COS(rot), ay + 10 * SIN(rot))-(ax + 40 * COS(rot + 1.89 \ 3), (ay + 5) + 10 * SIN(rot + 1.89 \ 3)), 3 LINE (ax + 40 * COS(rot + 1.89 \ 3), (ay + 5) + 10 * SIN(rot + 1.89 \ 3))-(ax + 40 * COS(rot + 3.78 \ 3), (ay + 10) + 10 * SIN(rot + 3.78 \ 3)), 4 LINE (ax + 40 * COS(rot + 3.78 \ 3), (ay + 10) + 10 * SIN(rot + 3.78 \ 3))-(ax + 40 * COS(rot + 5.67 \ 3), (ay + 15) + 10 * SIN(rot + 5.67 \ 3)), 3 LINE (ax + 40 * COS(rot + 5.67 \ 3), (ay + 15) + 10 * SIN(rot + 5.67 \ 3))-(ax + 40 * COS(rot + 7.56 \ 3), (ay + 20) + 10 * SIN(rot + 7.56 \ 3)), 4 LINE (ax + 40 * COS(rot + 7.56 \ 3), (ay + 20) + 10 * SIN(rot + 7.56 \ 3))-(ax + 40 * COS(rot + 9.45 \ 3), (ay + 25) + 10 * SIN(rot + 9.45 \ 3)), 3 LINE (ax + 40 * COS(rot + 9.45 \ 3), (ay + 25) + 10 * SIN(rot + 9.45 \ 3))-(ax + 40 * COS(rot + 11.34 \ 3), (ay + 30) + 10 * SIN(rot + 11.34 \ 3)), 4 LINE (ax + 40 * COS(rot + 11.34 \ 3), (ay + 30) + 10 * SIN(rot + 11.34 \ 3))-(ax + 40 * COS(rot + 13.23 \ 3), (ay + 35) + 10 * SIN(rot + 13.23 \ 3)), 3 LINE (ax + 40 * COS(rot + 13.23 \ 3), (ay + 35) + 10 * SIN(rot + 13.23 \ 3))-(ax + 40 * COS(rot + 15.12 \ 3), (ay + 40) + 10 * SIN(rot + 15.12 \ 3)), 4 LINE (ax + 40 * COS(rot + 15.12 \ 3), (ay + 40) + 10 * SIN(rot + 15.12 \ 3))-(ax + 40 * COS(rot + 17.01 \ 3), (ay + 45) + 10 * SIN(rot + 17.01 \ 3)), 3 LINE (ax + 40 * COS(rot + 17.01 \ 3), (ay + 45) + 10 * SIN(rot + 17.01 \ 3))-(ax + 40 * COS(rot + 18.9 \ 3), (ay + 50) + 10 * SIN(rot + 18.9 \ 3)), 4 LINE (ax + 40 * COS(rot), ay + 10 * SIN(rot))-(ax + 40 * COS(rot + 1.89 \ 3), (ay + 5) + 10 * SIN(rot + 1.89 \ 3)), 0 LINE (ax + 40 * COS(rot + 1.89 \ 3), (ay + 5) + 10 * SIN(rot + 1.89 \ 3))-(ax + 40 * COS(rot + 3.78 \ 3), (ay + 10) + 10 * SIN(rot + 3.78 \ 3)), 0 LINE (ax + 40 * COS(rot + 3.78 \ 3), (ay + 10) + 10 * SIN(rot + 3.78 \ 3))-(ax + 40 * COS(rot + 5.67 \ 3), (ay + 15) + 10 * SIN(rot + 5.67 \ 3)), 0 LINE (ax + 40 * COS(rot + 5.67 \ 3), (ay + 15) + 10 * SIN(rot + 5.67 \ 3))-(ax + 40 * COS(rot + 7.56 \ 3), (ay + 20) + 10 * SIN(rot + 7.56 \ 3)), 0 LINE (ax + 40 * COS(rot + 7.56 \ 3), (ay + 20) + 10 * SIN(rot + 7.56 \ 3))-(ax + 40 * COS(rot + 9.45 \ 3), (ay + 25) + 10 * SIN(rot + 9.45 \ 3)), 0 LINE (ax + 40 * COS(rot + 9.45 \ 3), (ay + 25) + 10 * SIN(rot + 9.45 \ 3))-(ax + 40 * COS(rot + 11.34 \ 3), (ay + 30) + 10 * SIN(rot + 11.34 \ 3)), 0 LINE (ax + 40 * COS(rot + 11.34 \ 3), (ay + 30) + 10 * SIN(rot + 11.34 \ 3))-(ax + 40 * COS(rot + 13.23 \ 3), (ay + 35) + 10 * SIN(rot + 13.23 \ 3)), 0 LINE (ax + 40 * COS(rot + 13.23 \ 3), (ay + 35) + 10 * SIN(rot + 13.23 \ 3))-(ax + 40 * COS(rot + 15.12 \ 3), (ay + 40) + 10 * SIN(rot + 15.12 \ 3)), 0 LINE (ax + 40 * COS(rot + 15.12 \ 3), (ay + 40) + 10 * SIN(rot + 15.12 \ 3))-(ax + 40 * COS(rot + 17.01 \ 3), (ay + 45) + 10 * SIN(rot + 17.01 \ 3)), 0 LINE (ax + 40 * COS(rot + 17.01 \ 3), (ay + 45) + 10 * SIN(rot + 17.01 \ 3))-(ax + 40 * COS(rot + 18.9 \ 3), (ay + 50) + 10 * SIN(rot + 18.9 \ 3)), 0 NEXT rot