CLS
SCREEN 12
ax = 320
ay = 240
FOR rot = 0 TO 3.14159 * 60 STEP .05
LINE (ax + rot * COS(rot), ay + rot * SIN(rot))-(ax + (rot + .05) * COS(rot + .05), ay + (rot + .05) * SIN(rot + .05)), 2
LINE (ax + rot * COS(rot), ay + (.5 * rot) * SIN(rot))-(ax + (rot + .05) * COS(rot + .05), ay + (.5 * (rot + .05)) * SIN(rot + .05)), 4
LINE (ax + (.5 * rot) * COS(rot), ay + rot * SIN(rot))-(ax + (.5 * (rot + .05)) * COS(rot + .05), ay + (rot + .05) * SIN(rot + .05)), 1
NEXT rot