CLS
SCREEN 12
ax = 320
ay = 240
xc = 1
yc = 1
DO
FOR rot = 0 TO 3.15 STEP .01
magcos = 60 * SIN(xc)
magsin = 60 * SIN(yc)
LINE (ax + magcos * COS(rot), ay + magsin * SIN(rot))-(ax + magcos * COS(rot + 3.15), ay + magsin * SIN(rot + 3.15)), 3
LINE (ax + magcos * COS(rot + 1.575), ay + magsin * SIN(rot + 1.575))-(ax + magcos * COS(rot + 4.725), ay + magsin * SIN(rot + 4.725)), 4
LINE (ax + (60 * SIN(xc + 2)) * COS(rot), ay + (60 * SIN(xy + 2)) * SIN(rot))-(ax + magcos * COS(rot), ay + magsin * SIN(rot)), 5

LINE (ax + magcos * COS(rot), ay + magsin * SIN(rot))-(ax + magcos * COS(rot + 3.15), ay + magsin * SIN(rot + 3.15)), 0
LINE (ax + magcos * COS(rot + 1.575), ay + magsin * SIN(rot + 1.575))-(ax + magcos * COS(rot + 4.725), ay + magsin * SIN(rot + 4.725)), 0
LINE (ax + (60 * SIN(xc + 2)) * COS(rot), ay + (60 * SIN(xy + 2)) * SIN(rot))-(ax + magcos * COS(rot), ay + magsin * SIN(rot)), 0

NEXT rot
yc = yc - .01

LOOP