Home » Archimedes archive » Acorn User » AU 1995-09.adf » !Regulars » Regulars/StarInfo/Vibe/ANAMORPH1
Regulars/StarInfo/Vibe/ANAMORPH1
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 1995-09.adf » !Regulars |
| Filename: | Regulars/StarInfo/Vibe/ANAMORPH1 |
| Read OK: | ✔ |
| File size: | 02FC bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM > ANAMORPH1 20 30MODE15:OFF 40 50DIM SPR &30000,OX%(640,2),OY%(640,2),OC%(640),OT%(640) 60SPR!0=&2FFFF:SPR!4=0:SPR!8=16:SPR!12=16 70P1%=1:P2%=2 80GCOLRND(63):RECTANGLEFILL 0,0,1280,1024 90FORN%=1TO100:GCOLRND(63) 100MOVERND(1280),RND(1024):MOVERND(1280),RND(1024) 110PLOT85,RND(1280),RND(1024):NEXT 120 130SYS"OS_SpriteOp",256+16,SPR,"PIC",0,0,0,1279,1024 140CLS:R=640:CA=240/640 150FORY%=1020TO0STEP-4 160L=PI*R:A=-120:R=R-2 170FORN%=0TO639:X%=N%*2 180SYS"OS_SpriteOp",256+41,SPR,"PIC",X%/2,Y%/4 TO ,,,,,C%,T% 190OC%(N%)=C%:OT%(N%)=T%:A=A+CA:T=RADA 200OX%(N%,P1%)=640+R*SINT:OY%(N%,P1%)=384+R*COST 210NEXT 220IF Y%<>1020 THEN 230FORN%=0TO638 240GCOL OC%(N%) TINT OT%(N%) 250MOVEOX%(N%,P1%),OY%(N%,P1%):MOVEOX%(N%+1,P1%),OY%(N%+1,P1%) 260PLOT85,OX%(N%,P2%),OY%(N%,P2%):PLOT85,OX%(N%+1,P2%),OY%(N%+1,P2%) 270NEXT 280ENDIF 290SWAP P1%,P2%:NEXT 300GCOL63:CIRCLE 640,384,R
� > ANAMORPH1 �15:� ( 28� SPR &30000,OX%(640,2),OY%(640,2),OC%(640),OT%(640) <+SPR!0=&2FFFF:SPR!4=0:SPR!8=16:SPR!12=16 FP1%=1:P2%=2 P �(63):ȓȐ 0,0,1280,1024 Z�N%=1�100:�(63) d%�(1280),�(1024):�(1280),�(1024) n�85,�(1280),�(1024):� x �4ș"OS_SpriteOp",256+16,SPR,"PIC",0,0,0,1279,1024 ��:R=640:CA=240/640 ��Y%=1020�0�-4 �L=�*R:A=-120:R=R-2 ��N%=0�639:X%=N%*2 �;ș"OS_SpriteOp",256+41,SPR,"PIC",X%/2,Y%/4 � ,,,,,C%,T% �%OC%(N%)=C%:OT%(N%)=T%:A=A+CA:T=�A �-OX%(N%,P1%)=640+R*�T:OY%(N%,P1%)=384+R*�T �� �� Y%<>1020 � � �N%=0�638 �� OC%(N%) Ȝ OT%(N%) �9�OX%(N%,P1%),OY%(N%,P1%):�OX%(N%+1,P1%),OY%(N%+1,P1%) ?�85,OX%(N%,P2%),OY%(N%,P2%):�85,OX%(N%+1,P2%),OY%(N%+1,P2%) � � "Ȕ P1%,P2%:� ,�63:ȏ 640,384,R �
00000000 0d 00 0a 11 f4 20 3e 20 41 4e 41 4d 4f 52 50 48 |..... > ANAMORPH| 00000010 31 0d 00 14 04 0d 00 1e 09 eb 31 35 3a 87 0d 00 |1.........15:...| 00000020 28 04 0d 00 32 38 de 20 53 50 52 20 26 33 30 30 |(...28. SPR &300| 00000030 30 30 2c 4f 58 25 28 36 34 30 2c 32 29 2c 4f 59 |00,OX%(640,2),OY| 00000040 25 28 36 34 30 2c 32 29 2c 4f 43 25 28 36 34 30 |%(640,2),OC%(640| 00000050 29 2c 4f 54 25 28 36 34 30 29 0d 00 3c 2b 53 50 |),OT%(640)..<+SP| 00000060 52 21 30 3d 26 32 46 46 46 46 3a 53 50 52 21 34 |R!0=&2FFFF:SPR!4| 00000070 3d 30 3a 53 50 52 21 38 3d 31 36 3a 53 50 52 21 |=0:SPR!8=16:SPR!| 00000080 31 32 3d 31 36 0d 00 46 0f 50 31 25 3d 31 3a 50 |12=16..F.P1%=1:P| 00000090 32 25 3d 32 0d 00 50 1d e6 b3 28 36 33 29 3a c8 |2%=2..P...(63):.| 000000a0 93 c8 90 20 30 2c 30 2c 31 32 38 30 2c 31 30 32 |... 0,0,1280,102| 000000b0 34 0d 00 5a 14 e3 4e 25 3d 31 b8 31 30 30 3a e6 |4..Z..N%=1.100:.| 000000c0 b3 28 36 33 29 0d 00 64 25 ec b3 28 31 32 38 30 |.(63)..d%..(1280| 000000d0 29 2c b3 28 31 30 32 34 29 3a ec b3 28 31 32 38 |),.(1024):..(128| 000000e0 30 29 2c b3 28 31 30 32 34 29 0d 00 6e 19 f0 38 |0),.(1024)..n..8| 000000f0 35 2c b3 28 31 32 38 30 29 2c b3 28 31 30 32 34 |5,.(1280),.(1024| 00000100 29 3a ed 0d 00 78 04 0d 00 82 34 c8 99 22 4f 53 |):...x....4.."OS| 00000110 5f 53 70 72 69 74 65 4f 70 22 2c 32 35 36 2b 31 |_SpriteOp",256+1| 00000120 36 2c 53 50 52 2c 22 50 49 43 22 2c 30 2c 30 2c |6,SPR,"PIC",0,0,| 00000130 30 2c 31 32 37 39 2c 31 30 32 34 0d 00 8c 16 db |0,1279,1024.....| 00000140 3a 52 3d 36 34 30 3a 43 41 3d 32 34 30 2f 36 34 |:R=640:CA=240/64| 00000150 30 0d 00 96 11 e3 59 25 3d 31 30 32 30 b8 30 88 |0.....Y%=1020.0.| 00000160 2d 34 0d 00 a0 16 4c 3d af 2a 52 3a 41 3d 2d 31 |-4....L=.*R:A=-1| 00000170 32 30 3a 52 3d 52 2d 32 0d 00 aa 15 e3 4e 25 3d |20:R=R-2.....N%=| 00000180 30 b8 36 33 39 3a 58 25 3d 4e 25 2a 32 0d 00 b4 |0.639:X%=N%*2...| 00000190 3b c8 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 |;.."OS_SpriteOp"| 000001a0 2c 32 35 36 2b 34 31 2c 53 50 52 2c 22 50 49 43 |,256+41,SPR,"PIC| 000001b0 22 2c 58 25 2f 32 2c 59 25 2f 34 20 b8 20 2c 2c |",X%/2,Y%/4 . ,,| 000001c0 2c 2c 2c 43 25 2c 54 25 0d 00 be 25 4f 43 25 28 |,,,C%,T%...%OC%(| 000001d0 4e 25 29 3d 43 25 3a 4f 54 25 28 4e 25 29 3d 54 |N%)=C%:OT%(N%)=T| 000001e0 25 3a 41 3d 41 2b 43 41 3a 54 3d b2 41 0d 00 c8 |%:A=A+CA:T=.A...| 000001f0 2d 4f 58 25 28 4e 25 2c 50 31 25 29 3d 36 34 30 |-OX%(N%,P1%)=640| 00000200 2b 52 2a b5 54 3a 4f 59 25 28 4e 25 2c 50 31 25 |+R*.T:OY%(N%,P1%| 00000210 29 3d 33 38 34 2b 52 2a 9b 54 0d 00 d2 05 ed 0d |)=384+R*.T......| 00000220 00 dc 10 e7 20 59 25 3c 3e 31 30 32 30 20 8c 0d |.... Y%<>1020 ..| 00000230 00 e6 0d e3 4e 25 3d 30 b8 36 33 38 0d 00 f0 18 |....N%=0.638....| 00000240 e6 20 4f 43 25 28 4e 25 29 20 c8 9c 20 4f 54 25 |. OC%(N%) .. OT%| 00000250 28 4e 25 29 0d 00 fa 39 ec 4f 58 25 28 4e 25 2c |(N%)...9.OX%(N%,| 00000260 50 31 25 29 2c 4f 59 25 28 4e 25 2c 50 31 25 29 |P1%),OY%(N%,P1%)| 00000270 3a ec 4f 58 25 28 4e 25 2b 31 2c 50 31 25 29 2c |:.OX%(N%+1,P1%),| 00000280 4f 59 25 28 4e 25 2b 31 2c 50 31 25 29 0d 01 04 |OY%(N%+1,P1%)...| 00000290 3f f0 38 35 2c 4f 58 25 28 4e 25 2c 50 32 25 29 |?.85,OX%(N%,P2%)| 000002a0 2c 4f 59 25 28 4e 25 2c 50 32 25 29 3a f0 38 35 |,OY%(N%,P2%):.85| 000002b0 2c 4f 58 25 28 4e 25 2b 31 2c 50 32 25 29 2c 4f |,OX%(N%+1,P2%),O| 000002c0 59 25 28 4e 25 2b 31 2c 50 32 25 29 0d 01 0e 05 |Y%(N%+1,P2%)....| 000002d0 ed 0d 01 18 05 cd 0d 01 22 10 c8 94 20 50 31 25 |........"... P1%| 000002e0 2c 50 32 25 3a ed 0d 01 2c 14 e6 36 33 3a c8 8f |,P2%:...,..63:..| 000002f0 20 36 34 30 2c 33 38 34 2c 52 0d ff | 640,384,R..| 000002fc
.