%%HP: T(3)A(D)F(.); DIR MPHASE \<< RCLF -31 SF DEG ERASE { # 0d # 0d } PVIEW { # 64d # 28d } # 26d 0 360 ARC 26 28 MFRAC MPLOT MFINI 7 FREEZE STOF \>> MTIME \<< MFRAC \-> X \<< IF X .25 < THEN "NM+" ELSE IF X .5 < THEN "FQ+" ELSE IF X .75 < THEN "FM+" ELSE "LQ+" END END END X \>> .25 MOD 42532 * SWAP OVER 1440 / IP \->STR + "d " + SWAP 1440 MOD SWAP OVER 60 / IP \->STR + "h " + SWAP 60 MOD SWAP OVER IP \->STR + "m " + SWAP FP 60 * IP \->STR + "s" + \>> MFRAC \<< 1.121975 DATE DDAYS TIME 4.21 HMS- HMS\-> 24 / + 1440 * 42532 / FP \>> FLIP \<< PICT RCL NEG PICT STO \>> MPLOT \<< \-> RA MI F \<< IF F .5 < THEN F 360 * COS RA * RA ELSE RA NEG F .5 - 360 * COS RA * END \-> L R \<< 1 0 FOR x x ACOS SIN DUP MI x RA * + L R MLINE MI x RA * - L R MLINE RA INV NEG STEP \>> \>> \>> MLINE \<< \-> SC LI L R \<< SC L * 64 + R\->B LI R\->B 2 \->LIST SC R * 64 + R\->B LI R\->B 2 \->LIST LINE \>> \>> MFINI \<< { # 10d # 10d } PIXON { # 110d # 15d } PIXON { # 100d # 50d } PIXON { # 30d # 41d } PIXON { # 31d # 41d } PIXON FLIP \>> SLOFLIP \<< 0 63 FOR l # 0d l R\->B 2 \->LIST # 130d l R\->B 2 \->LIST TLINE NEXT \>> END