3d graphics

Home » Personal collection » Commodore disks » disk65a_programs_1.d64 » 3d graphics

3d graphics

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 » Personal collection » Commodore disks » disk65a_programs_1.d64
Filename:	3d graphics
Read OK:	✔
File size:	02A0 bytes
Load address:	0801
Exec address:	0000

Duplicates

There is 1 duplicate copy of this file in the archive:

Personal collection » Commodore disks » disk50a2_progs1.d64 » 3d graphics
Personal collection » Commodore disks » disk65a_programs_1.d64 » 3d graphics

File contents

    40 S=16:B=3:C=8:SM=1024
    45 POKE53272,(PEEK(53272) AND 15) OR S
    50 POKE56578,PEEK(56578) OR 3
    55 POKE56576,(PEEK(56576) AND 252) ORB
    60 X=C*1024:H=INT(X/256):L=X-256*H
    65 POKE51,L:POKE52,H
    70 POKE55,L:POKE56,H
    75 POKE53272,(PEEK(53272) AND 241) ORC
    80 POKE53265,PEEK(53265) OR 32
    85 FOR J=SM TO SM+999
    90 POKEJ,1
    95 NEXT
   100 FOR J=X TO X+7999
   105 POKE J,0
   110 NEXT
   115 FOR L=0 TO 127
   120 M=SQR(16129-L*L)
   125 MAX=-1E9
   130 FORN=-M TO M STEP 4
   135 V=25*(SIN(0.001*(L*L+N*N)))
   140 P=V+N/4+88
   145 IF P<=MAX THEN 165
   150 MAX=P
   155 R=P:C=160-L:GOSUB1000
   160 C=160+L:GOSUB1000
   165 NEXT
   170 NEXT
   175 GETK$:IFK$<>" "THEN175
   180 POKE53265,PEEK(53265) AND 223
   185 POKE53272,(PEEK(53272) AND 240) OR4
   190 STOP
  1000 BYTE=X+7687-320*INT(R/8)-(RAND7)+INT(C/8)*8
  1005 BIT=7-(CAND7)
  1010 POKE BYTE,PEEK(BYTE) OR 2^BIT
  1015 RETURN

(S�16:B�3:C�8:SM�10249-�53272,(�(53272) � 15) � SQ2�56578,�(56578) � 3p7�56576,(�(56576) � 252) �B�<X�C�1024:H��(X�256):L�X�256�H�A�51,L:�52,H�F�55,L:�56,H�K�53272,(�(53272) � 241) �C�P�53265,�(53265) � 32�U� J�SM � SM�999	Z�J,1
	_� 	d� J�X � X�7999*	i� J,00	n�@	s� L�0 � 127S	xM��(16129�L�L)`	}MAX��1E9r	��N��M � M � 4�	�V�25�(�(0.001�(L�L�N�N)))�	�P�V�N�4�88�	�� P��MAX � 165�	�MAX�P�	�R�P:C�160�L:�1000�	�C�160�L:�1000�	���	��
��K$:�K$��" "�175
��53265,�(53265) � 223>
��53272,(�(53272) � 240) �4D
��n
�BYTE�X�7687�320��(R�8)�(R�7)��(C�8)�8~
�BIT�7�(C�7)�
�� BYTE,�(BYTE) � 2�BIT�
��

ZH(@s.16:b.3:c.8:sm.1024@9H-@.53272,(.(53272) . 15) . s@qH2@.56578,.(56578) . 3@PH7@.56576,(.(56576) . 252) .b@.H<@x.c.1024:h..(x.256):l.x.256.h@.Ha@.51,l:.52,h@.Hf@.55,l:.56,h@.Hk@.53272,(.(53272) . 241) .c@.Hp@.53265,.(53265) . 32@.Hu@. j.sm . sm.999@GIz@.j,1@MI.@.@ ID@. j.x . x.7999@*II@. j,0@0IN@.@@IS@. l.0 . 127@sIX@m..(16129.l.l)@.I.@max..1e9@RI.@.n..m . m . 4@.I.@v.25.(.(0.001.(l.l.n.n)))@.I.@p.v.n.4.88@.I.@. p..max . 165@.I.@max.p@.I.@r.p:c.160.l:.1000@.I.@c.160.l:.1000@.I.@.@.I.@.@EJ.@.k$:.k$.." ".175@.J.@.53265,.(53265) . 223@>J.@.53272,(.(53272) . 240) .4@dJ.@.@NJ.Cbyte.x.7687.320..(r.8).(r.7)..(c.8).8@.J.Cbit.7.(c.7)@.J.C. byte,.(byte) . 2.bit@.J.C.@@@

00000000  1a 08 28 00 53 b2 31 36  3a 42 b2 33 3a 43 b2 38  |..(.S.16:B.3:C.8|
00000010  3a 53 4d b2 31 30 32 34  00 39 08 2d 00 97 35 33  |:SM.1024.9.-..53|
00000020  32 37 32 2c 28 c2 28 35  33 32 37 32 29 20 af 20  |272,(.(53272) . |
00000030  31 35 29 20 b0 20 53 00  51 08 32 00 97 35 36 35  |15) . S.Q.2..565|
00000040  37 38 2c c2 28 35 36 35  37 38 29 20 b0 20 33 00  |78,.(56578) . 3.|
00000050  70 08 37 00 97 35 36 35  37 36 2c 28 c2 28 35 36  |p.7..56576,(.(56|
00000060  35 37 36 29 20 af 20 32  35 32 29 20 b0 42 00 92  |576) . 252) .B..|
00000070  08 3c 00 58 b2 43 ac 31  30 32 34 3a 48 b2 b5 28  |.<.X.C.1024:H..(|
00000080  58 ad 32 35 36 29 3a 4c  b2 58 ab 32 35 36 ac 48  |X.256):L.X.256.H|
00000090  00 a2 08 41 00 97 35 31  2c 4c 3a 97 35 32 2c 48  |...A..51,L:.52,H|
000000a0  00 b2 08 46 00 97 35 35  2c 4c 3a 97 35 36 2c 48  |...F..55,L:.56,H|
000000b0  00 d1 08 4b 00 97 35 33  32 37 32 2c 28 c2 28 35  |...K..53272,(.(5|
000000c0  33 32 37 32 29 20 af 20  32 34 31 29 20 b0 43 00  |3272) . 241) .C.|
000000d0  ea 08 50 00 97 35 33 32  36 35 2c c2 28 35 33 32  |..P..53265,.(532|
000000e0  36 35 29 20 b0 20 33 32  00 fe 08 55 00 81 20 4a  |65) . 32...U.. J|
000000f0  b2 53 4d 20 a4 20 53 4d  aa 39 39 39 00 07 09 5a  |.SM . SM.999...Z|
00000100  00 97 4a 2c 31 00 0d 09  5f 00 82 00 20 09 64 00  |..J,1..._... .d.|
00000110  81 20 4a b2 58 20 a4 20  58 aa 37 39 39 39 00 2a  |. J.X . X.7999.*|
00000120  09 69 00 97 20 4a 2c 30  00 30 09 6e 00 82 00 40  |.i.. J,0.0.n...@|
00000130  09 73 00 81 20 4c b2 30  20 a4 20 31 32 37 00 53  |.s.. L.0 . 127.S|
00000140  09 78 00 4d b2 ba 28 31  36 31 32 39 ab 4c ac 4c  |.x.M..(16129.L.L|
00000150  29 00 60 09 7d 00 4d 41  58 b2 ab 31 45 39 00 72  |).`.}.MAX..1E9.r|
00000160  09 82 00 81 4e b2 ab 4d  20 a4 20 4d 20 a9 20 34  |....N..M . M . 4|
00000170  00 90 09 87 00 56 b2 32  35 ac 28 bf 28 30 2e 30  |.....V.25.(.(0.0|
00000180  30 31 ac 28 4c ac 4c aa  4e ac 4e 29 29 29 00 9f  |01.(L.L.N.N)))..|
00000190  09 8c 00 50 b2 56 aa 4e  ad 34 aa 38 38 00 b2 09  |...P.V.N.4.88...|
000001a0  91 00 8b 20 50 b3 b2 4d  41 58 20 a7 20 31 36 35  |... P..MAX . 165|
000001b0  00 bc 09 96 00 4d 41 58  b2 50 00 d2 09 9b 00 52  |.....MAX.P.....R|
000001c0  b2 50 3a 43 b2 31 36 30  ab 4c 3a 8d 31 30 30 30  |.P:C.160.L:.1000|
000001d0  00 e4 09 a0 00 43 b2 31  36 30 aa 4c 3a 8d 31 30  |.....C.160.L:.10|
000001e0  30 30 00 ea 09 a5 00 82  00 f0 09 aa 00 82 00 05  |00..............|
000001f0  0a af 00 a1 4b 24 3a 8b  4b 24 b3 b1 22 20 22 a7  |....K$:.K$.." ".|
00000200  31 37 35 00 1f 0a b4 00  97 35 33 32 36 35 2c c2  |175......53265,.|
00000210  28 35 33 32 36 35 29 20  af 20 32 32 33 00 3e 0a  |(53265) . 223.>.|
00000220  b9 00 97 35 33 32 37 32  2c 28 c2 28 35 33 32 37  |...53272,(.(5327|
00000230  32 29 20 af 20 32 34 30  29 20 b0 34 00 44 0a be  |2) . 240) .4.D..|
00000240  00 90 00 6e 0a e8 03 42  59 54 45 b2 58 aa 37 36  |...n...BYTE.X.76|
00000250  38 37 ab 33 32 30 ac b5  28 52 ad 38 29 ab 28 52  |87.320..(R.8).(R|
00000260  af 37 29 aa b5 28 43 ad  38 29 ac 38 00 7e 0a ed  |.7)..(C.8).8.~..|
00000270  03 42 49 54 b2 37 ab 28  43 af 37 29 00 99 0a f2  |.BIT.7.(C.7)....|
00000280  03 97 20 42 59 54 45 2c  c2 28 42 59 54 45 29 20  |.. BYTE,.(BYTE) |
00000290  b0 20 32 ae 42 49 54 00  9f 0a f7 03 8e 00 00 00  |. 2.BIT.........|
000002a0

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .