This is non-commercial site, its content is based on Atari 8-bit home computer contents and references.
If you feel your rights are violated by showing/using any part of contents of your product represented on this page,
please contact me immediatelly so I can remove it!
|
-
Entry name:Polar Plotter 2
-
Category:Graphics
-
Publisher/Developer:ANALOG Computing, Flop 5
-
Year:1988





Listing 1
10 REM 20 REM | POLAR PLOTTER II | 30 REM 40 REM for all ATARI XL/XE 50 REM (c) 1987 by Dave Bader 60 REM ANALOG Computing No.56 70 REM july/august 1987 80 REM (p) 1988 by GIA Software 90 REM Atari Zpravodaj Olomouc! 100 GOTO 500 110 XM=96/Z:FOR Q=1 TO NUM:T=Q 120 B=0:FOR D=0 TO 6.3 STEP 0.075:GOSUB 190+T*10 130 IF ABS(R)>Z THEN B=0:GOTO 170 140 R=R*XM:X=COS(D)*R:Y=SIN(D)*R*0.8300000000000001 150 IF B=0 THEN PLOT X+208,191-(80+Y):B=1 160 DRAWTO X+208,191-(80+Y) 170 NEXT D:NEXT Q:GOTO 400 200 REM Formula entered during RUN 210 REM Formula entered during RUN 220 REM Formula entered during RUN 230 REM Formula entered during RUN 300 ?:? "AUTO SCALING...":Z=0:FOR T=1 TO NUM:FOR D=0 TO 6.3 STEP 0.075:GOSUB 190+T*10:IF R>Z THEN Z=R 310 NEXT D:NEXT T:GOTO 640 400 SOUND 0,100,10,10:FOR T=1 TO 100:NEXT T:SOUND 0,0,0,0:POKE 764,255 410 T=PEEK(53279):IF T=6 THEN BD=BD+1:GOTO 650 420 REM for LOAD/SAVE routine 430 REM for HardCopy routine 440 IF PEEK(764)<>28 THEN 410 450 BD=0:GOTO 530 500 RAD:DIM Q$(49),W$(49),E$(49),R$(49),T$(49),Z$(169):GRAPHICS 24 510 DM=PEEK(88)+PEEK(89)*256:DM=DM+40*191 520 RESTORE 1000:FOR T=1 TO 168:READ Q:Z$(LEN(Z$)+1)=CHR$(Q):NEXT T 530 GRAPHICS 0:POKE 82,0:POKE 710,144:POKE 709,12:POSITION 0,0:? "" 540 ? "NUMBER OF FORMULA'S TO ENTER";:INPUT NUM:IF NUM>4 THEN 530 550 FOR T=1 TO NUM 560 ?:? "":?:? "INPUT FORMULA AS R=IN TERMS OF 'D', WHERE 'D'=THETA" 570 ? "FORMULA # ";T:INPUT Q$ 580 GOSUB 900+T*10:POKE 559,0:Q$(LEN(Q$)+1)=":RETURN":? "":POSITION 0,6:? 190+T*10;Q$:?:? "CONT":POSITION 0,0 590 POKE 842,13:STOP 600 POKE 842,12:POKE 559,34:NEXT T 610 ?:? "PLEASE CHOOSE |1] AUTOMATIC SCALING (ABS. BOUNDS) |2] MANUAL SETTING.":INPUT T:IF T=1 THEN 630 620 ?:? "ABSOLUTE ENDPOINTS";:INPUT Z 630 IF T=1 THEN GOSUB 300 640 GRAPHICS 24:POKE 710,58:POKE 712,58:POKE 709,0:COLOR 1:GOTO 110 650 IF BD=1 THEN GOSUB 800:TRAP 400:T=51:GOTO 120 660 IF BD=2 THEN PLOT 275,55:DRAWTO 141,167:PLOT 141,55:DRAWTO 275,167:GOSUB 860:FOR Q=1 TO 3:T=51+Q:GOTO 120 670 GOTO 400 700 R=Z:RETURN 710 R=3*(Z/4):RETURN 720 R=Z/2:RETURN 730 R=Z/4:RETURN 800 FOR T=1 TO NUM:GOSUB 940+T*10:IF LEN(Q$)>39 THEN Q$=Q$(1,39) 810 X=0:Y=(T-1):GOSUB 840:NEXT T:PLOT 112,111:DRAWTO 302,111:PLOT 208,32:DRAWTO 208,190 820 X=3:Y=6:Q$="":GOSUB 840:Y=7:Q$="":GOSUB 840:Y=8:Q$="":GOSUB 840 830 X=0:Y=10:Q$="ABS.ENDPOINTS:":GOSUB 840:Q$=STR$(Z):X=(14-LEN(Q$))/2:Y=11:GOSUB 840:RETURN 840 Q=USR(ADR(Z$),X,Y,ADR(Q$),LEN(Q$)):RETURN 850 Q$="":GOSUB 840:RETURN 860 X=0:Y=12:GOSUB 850:Y=13:Q$="RADII CIRCLES":GOSUB 840:Y=14:GOSUB 850 870 Q$=STR$(3*Z/4):Y=15:X=(14-LEN(Q$))/2:GOSUB 840:X=0:Y=16:GOSUB 850 880 Q$=STR$(Z/2):Y=17:X=(14-LEN(Q$))/2:GOSUB 840:X=0:Y=18:GOSUB 850 890 Q$=STR$(Z/4):Y=19:X=(14-LEN(Q$))/2:GOSUB 840:X=0:Y=20:GOSUB 850 900 RETURN 910 W$=Q$:RETURN 920 E$=Q$:RETURN 930 R$=Q$:RETURN 940 T$=Q$:RETURN 950 Q$=W$:RETURN 960 Q$=E$:RETURN 970 Q$=R$:RETURN 980 Q$=T$:RETURN 990 STOP 1000 DATA 104,201,4,240,9,170,240,5,104,104,202,208,251,96,104,133,215,104,133,214,104,104,168,104,133 1010 DATA 217,104,133,216,104,104,240,236,133,212,24,165,214,101,88,133,214,165,89,101,215,133,215,152,240,15 1020 DATA 165,214,105,64,133,214,165,215,105,1,133,215,136,208,241,132,221,160,0,132,220,177,216,160,0,170 1030 DATA 16,1,136,132,213,138,41,96,208,4,169,64,16,14,201,32,208,4,169,0,16,6,201,64,208,2 1040 DATA 169,32,133,218,138,41,31,5,218,133,218,169,0,162,3,6,218,42,202,208,250,109,244,2,133,219 1050 DATA 164,221,177,218,69,213,164,220,145,214,200,132,220,196,212,208,182,24,165,214,105,40,133,214,144,2 1060 DATA 230,215,230,221,169,8,197,221,208,159,96,207,96
References
Listing downloads
Copyright holder