Home » Archimedes archive » Acorn User » AU 1993-08.adf » !3DGraphic_3DGraphic » 3DDemo3
3DDemo3
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-08.adf » !3DGraphic_3DGraphic |
| Filename: | 3DDemo3 |
| Read OK: | ✔ |
| File size: | 02EB bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM >3DDemo3 20REM by DCA 30REM for 32-bit machines 40REM (c) BAU August 1993 50: 60MODE 13 70OFF 80heap_size=128*1024 90DIM heap heap_size 100SYS "BAU3D_HeapInit",heap,heap_size 110dist=800:zplus=10000 120ang_scale=&10000/360 130SYS "BAU3D_WriteConfig",%110,dist,zplus,-zplus*0.8,10000000 140SYS "BAU3D_Load","objects.cathedral",1000 TO scene 150xp=0 160yp=0 170DIM view_xyz 12,view_ang 12 180spr_size%=750*1024 190bank%=1 200REPEAT 210 FOR view=0 TO 359 STEP 5 220 WAIT 230 SYS 6,113,bank% 240 bank%=3-bank% 250 SYS 6,112,bank% 260 CLS 270 view_xyz!0=0 280 view_xyz!4=-50000+40000*COSRAD(2*view) 290 view_xyz!8=200000 300 view_ang!0=0 310 view_ang!4=view*ang_scale 320 view_ang!8=0 330 ORIGIN 640,512 340 SYS "BAU3D_Render",scene,view_xyz,view_ang 350 NEXT 360UNTIL FALSE 370END
� >3DDemo3 � by DCA � for 32-bit machines (� (c) BAU August 1993 2: <� 13 F� Pheap_size=128*1024 Z� heap heap_size d&ș "BAU3D_HeapInit",heap,heap_size ndist=800:zplus=10000 xang_scale=&10000/360 �>ș "BAU3D_WriteConfig",%110,dist,zplus,-zplus*0.8,10000000 �4ș "BAU3D_Load","objects.cathedral",1000 � scene �xp=0 �yp=0 � � view_xyz 12,view_ang 12 �spr_size%=750*1024 � bank%=1 �� � � view=0 � 359 � 5 � Ȗ � ș 6,113,bank% � bank%=3-bank% � ș 6,112,bank% � view_xyz!0=0 ( view_xyz!4=-50000+40000*��(2*view) " view_xyz!8=200000 , view_ang!0=0 6 view_ang!4=view*ang_scale @ view_ang!8=0 J ȑ 640,512 T/ ș "BAU3D_Render",scene,view_xyz,view_ang ^ � h� � r� �
00000000 0d 00 0a 0e f4 20 3e 33 44 44 65 6d 6f 33 0d 00 |..... >3DDemo3..| 00000010 14 0c f4 20 62 79 20 44 43 41 0d 00 1e 19 f4 20 |... by DCA..... | 00000020 66 6f 72 20 33 32 2d 62 69 74 20 6d 61 63 68 69 |for 32-bit machi| 00000030 6e 65 73 0d 00 28 19 f4 20 28 63 29 20 42 41 55 |nes..(.. (c) BAU| 00000040 20 41 75 67 75 73 74 20 31 39 39 33 0d 00 32 05 | August 1993..2.| 00000050 3a 0d 00 3c 08 eb 20 31 33 0d 00 46 05 87 0d 00 |:..<.. 13..F....| 00000060 50 16 68 65 61 70 5f 73 69 7a 65 3d 31 32 38 2a |P.heap_size=128*| 00000070 31 30 32 34 0d 00 5a 14 de 20 68 65 61 70 20 68 |1024..Z.. heap h| 00000080 65 61 70 5f 73 69 7a 65 0d 00 64 26 c8 99 20 22 |eap_size..d&.. "| 00000090 42 41 55 33 44 5f 48 65 61 70 49 6e 69 74 22 2c |BAU3D_HeapInit",| 000000a0 68 65 61 70 2c 68 65 61 70 5f 73 69 7a 65 0d 00 |heap,heap_size..| 000000b0 6e 18 64 69 73 74 3d 38 30 30 3a 7a 70 6c 75 73 |n.dist=800:zplus| 000000c0 3d 31 30 30 30 30 0d 00 78 18 61 6e 67 5f 73 63 |=10000..x.ang_sc| 000000d0 61 6c 65 3d 26 31 30 30 30 30 2f 33 36 30 0d 00 |ale=&10000/360..| 000000e0 82 3e c8 99 20 22 42 41 55 33 44 5f 57 72 69 74 |.>.. "BAU3D_Writ| 000000f0 65 43 6f 6e 66 69 67 22 2c 25 31 31 30 2c 64 69 |eConfig",%110,di| 00000100 73 74 2c 7a 70 6c 75 73 2c 2d 7a 70 6c 75 73 2a |st,zplus,-zplus*| 00000110 30 2e 38 2c 31 30 30 30 30 30 30 30 0d 00 8c 34 |0.8,10000000...4| 00000120 c8 99 20 22 42 41 55 33 44 5f 4c 6f 61 64 22 2c |.. "BAU3D_Load",| 00000130 22 6f 62 6a 65 63 74 73 2e 63 61 74 68 65 64 72 |"objects.cathedr| 00000140 61 6c 22 2c 31 30 30 30 20 b8 20 73 63 65 6e 65 |al",1000 . scene| 00000150 0d 00 96 08 78 70 3d 30 0d 00 a0 08 79 70 3d 30 |....xp=0....yp=0| 00000160 0d 00 aa 1d de 20 76 69 65 77 5f 78 79 7a 20 31 |..... view_xyz 1| 00000170 32 2c 76 69 65 77 5f 61 6e 67 20 31 32 0d 00 b4 |2,view_ang 12...| 00000180 16 73 70 72 5f 73 69 7a 65 25 3d 37 35 30 2a 31 |.spr_size%=750*1| 00000190 30 32 34 0d 00 be 0b 62 61 6e 6b 25 3d 31 0d 00 |024....bank%=1..| 000001a0 c8 05 f5 0d 00 d2 17 20 e3 20 76 69 65 77 3d 30 |....... . view=0| 000001b0 20 b8 20 33 35 39 20 88 20 35 0d 00 dc 08 20 20 | . 359 . 5.... | 000001c0 c8 96 0d 00 e6 14 20 20 c8 99 20 36 2c 31 31 33 |...... .. 6,113| 000001d0 2c 62 61 6e 6b 25 0d 00 f0 13 20 20 62 61 6e 6b |,bank%.... bank| 000001e0 25 3d 33 2d 62 61 6e 6b 25 0d 00 fa 14 20 20 c8 |%=3-bank%.... .| 000001f0 99 20 36 2c 31 31 32 2c 62 61 6e 6b 25 0d 01 04 |. 6,112,bank%...| 00000200 07 20 20 db 0d 01 0e 12 20 20 76 69 65 77 5f 78 |. ..... view_x| 00000210 79 7a 21 30 3d 30 0d 01 18 28 20 20 76 69 65 77 |yz!0=0...( view| 00000220 5f 78 79 7a 21 34 3d 2d 35 30 30 30 30 2b 34 30 |_xyz!4=-50000+40| 00000230 30 30 30 2a 9b b2 28 32 2a 76 69 65 77 29 0d 01 |000*..(2*view)..| 00000240 22 17 20 20 76 69 65 77 5f 78 79 7a 21 38 3d 32 |". view_xyz!8=2| 00000250 30 30 30 30 30 0d 01 2c 12 20 20 76 69 65 77 5f |00000..,. view_| 00000260 61 6e 67 21 30 3d 30 0d 01 36 1f 20 20 76 69 65 |ang!0=0..6. vie| 00000270 77 5f 61 6e 67 21 34 3d 76 69 65 77 2a 61 6e 67 |w_ang!4=view*ang| 00000280 5f 73 63 61 6c 65 0d 01 40 12 20 20 76 69 65 77 |_scale..@. view| 00000290 5f 61 6e 67 21 38 3d 30 0d 01 4a 10 20 20 c8 91 |_ang!8=0..J. ..| 000002a0 20 36 34 30 2c 35 31 32 0d 01 54 2f 20 20 c8 99 | 640,512..T/ ..| 000002b0 20 22 42 41 55 33 44 5f 52 65 6e 64 65 72 22 2c | "BAU3D_Render",| 000002c0 73 63 65 6e 65 2c 76 69 65 77 5f 78 79 7a 2c 76 |scene,view_xyz,v| 000002d0 69 65 77 5f 61 6e 67 0d 01 5e 06 20 ed 0d 01 68 |iew_ang..^. ...h| 000002e0 07 fd 20 a3 0d 01 72 05 e0 0d ff |.. ...r....| 000002eb
.