1 /CLIN - GRAPHICS OVERLAY FOR FOCAL,ZZK 2 3 /FINITE DIFFERENCE EQUATION OF A CIRCLE - FOR FOCAL 4 5 /16.2 S P=X-X0;S Q=Y-Y0;S R=FSQT(Q^2+P^2) 6 /16.3 S Z=FNEW(6.3*R*C,P,Q,X0,Y0,S/R) 7 /16.4 S X0=X;S YO=Y 8 9 /LINEAR DIFFERENCE EQUATION OF A LINE 10 /17.1 D 16.2;S Z=FNEW(R,P/R,Q/R,X0,Y0,0);D 16.4 11 12 BOTTOM=35 13 FNTABF=373 14 EVAL=1613 15 EXP=44 16 AXIN=10 17 PUSHJ=4540 18 EFUN3I=135 19 INTEGER=53 20 HORD=45 21 LORD=46 22 23 DXS=6057 24 DXL=6053 25 DYS=6067 26 27 *BOTTOM 28 000035 4437 FCIN-1 29 *FNTABF+14 30 000407 4440 FCIN 31 32 *4400+40 33 34 004440 4453 FCIN, JMS I INTEGER 35 004441 7040 CMA 36 004442 3342 DCA R /SAVE THE POINT COUNT 37 004443 1340 TAD XXP 38 004444 3010 DCA AXIN /START DATA POINTERS 39 004445 1117 TAD M5 /FOR 5 MORE ITEMS 40 004446 3316 DCA CT 41 004447 4540 GETA, PUSHJ /COMPUTE EACH ARG 42 004450 1612 EVAL-1 43 004451 1044 TAD EXP /FOUR FIXED POINT RESULTS 44 004452 1341 TAD LP 45 004453 3044 DCA EXP 46 004454 4453 JMS I INTEGER 47 004455 7200 CLA 48 004456 1005 TAD P13 /SAVE UNNORMALIZED FORM 49 004457 3410 DCA I AXIN 50 004460 1045 TAD HORD 51 004461 3410 DCA I AXIN 52 004462 1046 TAD LORD 53 004463 3410 DCA I AXIN 54 004464 2316 ISZ CT /TEST FOR END OF DATA 55 004465 5247 JMP GETA 56 004466 1046 TAD LORD /TEST FOR CIRCLE OR LINE 57 004467 7640 SZA CLA 58 004470 5343 JMP XFCIR 59 60 004471 7100 XFLIN, CLL /VECTOR PLOT ALGORITHM 61 004472 1331 TAD X01 62 004473 1323 TAD P1 63 004474 3331 DCA X01 64 004475 7004 RAL 65 004476 1330 TAD X00 66 004477 1322 TAD P0 67 004500 6053 DXL 68 004501 3330 DCA X00 69 004502 7100 CLL 70 004503 1334 TAD Y01 71 004504 1326 TAD Q1 72 004505 3334 DCA Y01 73 004506 7004 RAL 74 004507 1333 TAD Y00 75 004510 1325 TAD Q0 76 004511 6067 DYS 77 004512 3333 DCA Y00 78 004513 2342 ISZ R 79 004514 5271 JMP XFLIN 80 004515 5535 JMP I EFUN3I 81 82 83 /TO DISPLAY A POINT X,Y: SET Z=FDIS(X,Y) 84 /TO DRAW LINE X0,Y0 TO X,Y: DO 17 85 /TO SET XO,Y0=X,Y: DO 16.4 86 /TO ERASE SCREEN : TYPE "(ERASE CODE)" 87 /TO RESET PRINT ORIGIN: TYPE "(RESET CODE)" 88 /TO DRAW A CIRCLE ABOUT X0,Y0 STARTING AT X,Y 89 /AND GOING COUNTERCLOCKWISE FOR FRACTION 90 /OF A CIRCLE ALPHA : SET S=+1;SET C=ALPHA;DO 16 91 /TO GO CLOCKWISE: SET S=-1;DO 16 92 93 /GROUPS 16 AND 17 CREATE OR USE THE VARIABLES 94 /X,Y,X0,Y0,Z,R,C,P,Q,K,AND S 95 /S MAY BE REPLACED BY A 1 IF DESIRED 96 97 98 004516 0000 CT, 00 99 004517 0000 00 100 004520 0000 00 101 102 004521 0000 PP, 00 103 004522 0000 P0, 00 104 004523 0000 P1, 00 105 106 004524 0000 QQ, 00 107 004525 0000 Q0, 00 108 004526 0000 Q1, 00 109 110 004527 0013 XX, 13 111 004530 0000 X00,00 112 004531 0000 X01,00 113 114 004532 0013 YY, 13 115 004533 0000 Y00,00 116 004534 0000 Y01,00 117 118 004535 0000 KK, 00 119 004536 0000 00 120 004537 0000 00 121 122 004540 4520 XXP, PP-1 123 004541 0014 LP, 14 124 004542 0000 R, 00 125 126 004543 4407 XFCIR, FINT /CIRCLE ALGORITHM 127 004544 0324 FGET QQ 128 004545 4335 FMUL KK 129 004546 6316 FPUT CT 130 004547 0321 FGET PP 131 004550 2316 FSUB CT 132 004551 6321 FPUT PP 133 004552 1327 FADD XX 134 004553 0000 FXIT 135 004554 4453 JMS I INTEGER 136 004555 6057 DXS 137 004556 4407 FINT /CLEARS AC 138 004557 0321 FGET PP 139 004560 4335 FMUL KK 140 004561 1324 FADD QQ 141 004562 6324 FPUT QQ 142 004563 1332 FADD YY 143 004564 0000 FXIT 144 004565 4453 JMS I INTEGER 145 004566 6067 DYS 146 004567 7200 CLA 147 004570 2342 ISZ R 148 004571 5343 JMP XFCIR 149 004572 5535 JMP I EFUN3I 150 151 /LOCAL (IAS) DEFINITIONS 152 153 FINT=JMS I 7 154 FIXMRI FGET=00 155 FIXMRI FMUL=4000 156 FIXMRI FPUT=6000 157 FIXMRI FSUB=2000 158 FIXMRI FADD=1000 159 FXIT=00 160 161 M5=117 162 P13=5 163 $ AXIN 0010 BOTTOM 0035 CT 4516 DXL 6053 DXS 6057 DYS 6067 EFUN3I 0135 EVAL 1613 EXP 0044 FADD 11000 FCIN 4440 FGET 10000 FINT 4407 FMUL 14000 FNTABF 0373 FPUT 16000 FSUB 12000 FXIT 0000 GETA 4447 HORD 0045 INTEGE 0053 KK 4535 LORD 0046 LP 4541 M5 0117 P0 4522 P1 4523 P13 0005 PP 4521 PUSHJ 4540 Q0 4525 Q1 4526 QQ 4524 R 4542 X00 4530 X01 4531 XFCIR 4543 XFLIN 4471 XX 4527 XXP 4540 Y00 4533 Y01 4534 YY 4532