Home » Archimedes archive » Acorn User » AU 1993-04.adf » !StarInfo/Files/3DGraph\1
!StarInfo/Files/3DGraph\1
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Acorn User » AU 1993-04.adf |
| Filename: | !StarInfo/Files/3DGraph\1 |
| Read OK: | ✔ |
| File size: | 0140 bytes |
| Load address: | FFFFFB44 |
| Exec address: | 696DB82D |
File contents
10REM >3DGraph/1 (Info6) 20REM By Alistair Brown 30REM For 32-bit machines 40REM (c) BAU April 1993 50: 60MODE0:OFF:VDU19,0,7;0;19,1,0;0;:s=25:FORc=-15TO15STEP.25:f=-500:g=500:FORz=16TO-16STEP-.25:e=40/(40-z):a=SQR(c^2+z^2)+1E-10:y=6*SINa/a-12:y=y*e:f=-y*(y>=f)-f*(y<f):g=-y*(y<=g)-g*(y>g):p=-(y=f ORy=g):PLOT69,(c*e*s+640)*p,(y*s+712)*p:NEXT:NEXT
� >3DGraph/1 (Info6) � By Alistair Brown � For 32-bit machines (� (c) BAU April 1993 2: <��0:�:�19,0,7;0;19,1,0;0;:s=25:�c=-15�15�.25:f=-500:g=500:�z=16�-16�-.25:e=40/(40-z):a=�(c^2+z^2)+1E-10:y=6*�a/a-12:y=y*e:f=-y*(y>=f)-f*(y<f):g=-y*(y<=g)-g*(y>g):p=-(y=f �y=g):�69,(c*e*s+640)*p,(y*s+712)*p:�:� �
00000000 0d 00 0a 1c f4 20 20 20 20 20 3e 33 44 47 72 61 |..... >3DGra| 00000010 70 68 2f 31 20 28 49 6e 66 6f 36 29 0d 00 14 18 |ph/1 (Info6)....| 00000020 f4 20 42 79 20 20 41 6c 69 73 74 61 69 72 20 42 |. By Alistair B| 00000030 72 6f 77 6e 0d 00 1e 19 f4 20 46 6f 72 20 33 32 |rown..... For 32| 00000040 2d 62 69 74 20 6d 61 63 68 69 6e 65 73 0d 00 28 |-bit machines..(| 00000050 18 f4 20 28 63 29 20 42 41 55 20 41 70 72 69 6c |.. (c) BAU April| 00000060 20 31 39 39 33 0d 00 32 05 3a 0d 00 3c d4 eb 30 | 1993..2.:..<..0| 00000070 3a 87 3a ef 31 39 2c 30 2c 37 3b 30 3b 31 39 2c |:.:.19,0,7;0;19,| 00000080 31 2c 30 3b 30 3b 3a 73 3d 32 35 3a e3 63 3d 2d |1,0;0;:s=25:.c=-| 00000090 31 35 b8 31 35 88 2e 32 35 3a 66 3d 2d 35 30 30 |15.15..25:f=-500| 000000a0 3a 67 3d 35 30 30 3a e3 7a 3d 31 36 b8 2d 31 36 |:g=500:.z=16.-16| 000000b0 88 2d 2e 32 35 3a 65 3d 34 30 2f 28 34 30 2d 7a |.-.25:e=40/(40-z| 000000c0 29 3a 61 3d b6 28 63 5e 32 2b 7a 5e 32 29 2b 31 |):a=.(c^2+z^2)+1| 000000d0 45 2d 31 30 3a 79 3d 36 2a b5 61 2f 61 2d 31 32 |E-10:y=6*.a/a-12| 000000e0 3a 79 3d 79 2a 65 3a 66 3d 2d 79 2a 28 79 3e 3d |:y=y*e:f=-y*(y>=| 000000f0 66 29 2d 66 2a 28 79 3c 66 29 3a 67 3d 2d 79 2a |f)-f*(y<f):g=-y*| 00000100 28 79 3c 3d 67 29 2d 67 2a 28 79 3e 67 29 3a 70 |(y<=g)-g*(y>g):p| 00000110 3d 2d 28 79 3d 66 20 84 79 3d 67 29 3a f0 36 39 |=-(y=f .y=g):.69| 00000120 2c 28 63 2a 65 2a 73 2b 36 34 30 29 2a 70 2c 28 |,(c*e*s+640)*p,(| 00000130 79 2a 73 2b 37 31 32 29 2a 70 3a ed 3a ed 0d ff |y*s+712)*p:.:...| 00000140
.