Home » Archimedes archive » Micro User » MU 1992-08.adf » Listings » 32bit/Magic2
32bit/Magic2
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 » Micro User » MU 1992-08.adf » Listings |
| Filename: | 32bit/Magic2 |
| Read OK: | ✔ |
| File size: | 03CC bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM>Mirror.Magic2
20PRINT"Magic mirror off screen sprite plotter"
30INPUT"Enter name of sprite file to use ",S$
40INPUT"Enter name of sprite file store result",R$
50OSCLI("SCREENLOAD "+S$)
60M%=MODE
70*FX114,0
80MODE M%
90*FX112,1
100*FX113,1
110OSCLI("SCREENLOAD "+S$)
120TIME=0:REPEAT UNTIL TIME>100
130*FX113,0
140*FX112,0
150GCOL 128+63 TINT 255
160CLG
170CTH=RAD(22.5)+(2/PI)
180PI2=PI*2:PIH=PI/2
190XC=1279/RAD(225)
200YC=1023/380
210FOR XP%=26 TO 1260 STEP 2
220FOR YP%=116 TO 1023 STEP 4
230PROC_Cvert(XP%,YP%)
240X%=TH*XC
250Y%=(R-235)*YC
260IF X%>0 AND X%<1279 AND Y%>0 AND Y%<1023 THEN
270*FX112,1
280C%=POINT(X%,Y%)
290T%=TINT(X%,Y%)
300*FX112,0
310GCOL C% TINT T%
320POINT XP%,YP%
330ENDIF
340NEXT:NEXT
350OSCLI("SCREENSAVE "+R$)
360VDU 7
370END
380:
390DEF PROC_Cvert(X%,Y%)
400dX%=640-X%
410dY%=768-Y%
420R=SQR(dX%^2+dY%^2)
430IF R<200 THEN ENDPROC
440IF dX%<>0 AND dY%<>0 THEN
450TH=ATN(dY%/dX%)
460ELSE
470IF dY%=0 AND dX%>0 THEN TH=PI ELSE TH=0
480IF dX%=0 AND dY%>0 THEN TH=PIH
490IF dX%=0 AND dY%<0 THEN TH=PI+PIH
500ENDIF
510IF TH<0 THEN TH=PI+TH
520IF dY%>0 THEN TH=TH+PI
530TH=TH-RAD(157.5)
540IF TH<0 THEN TH=TH+PI2
550ENDPROC
�>Mirror.Magic2
-�"Magic mirror off screen sprite plotter"
+�"Enter name of sprite file to use ",S$
(0�"Enter name of sprite file store result",R$
2�("SCREENLOAD "+S$)
<M%=�
F *FX114,0
P� M%
Z *FX112,1
d *FX113,1
n�("SCREENLOAD "+S$)
x�=0:� � �>100
� *FX113,0
� *FX112,0
�� 128+63 Ȝ 255
��
�CTH=�(22.5)+(2/�)
�PI2=�*2:PIH=�/2
�XC=1279/�(225)
�YC=1023/380
�� XP%=26 � 1260 � 2
�� YP%=116 � 1023 � 4
��_Cvert(XP%,YP%)
� X%=TH*XC
�Y%=(R-235)*YC
'� X%>0 � X%<1279 � Y%>0 � Y%<1023 �
*FX112,1
C%=�X%,Y%)
"T%=Ȝ(X%,Y%)
, *FX112,0
6� C% Ȝ T%
@Ȓ XP%,YP%
J�
T�:�
^�("SCREENSAVE "+R$)
h� 7
r�
|:
�� �_Cvert(X%,Y%)
�dX%=640-X%
�dY%=768-Y%
�R=�(dX%^2+dY%^2)
�� R<200 � �
�� dX%<>0 � dY%<>0 �
�TH=�(dY%/dX%)
��
�!� dY%=0 � dX%>0 � TH=� � TH=0
� � dX%=0 � dY%>0 � TH=PIH
� � dX%=0 � dY%<0 � TH=�+PIH
��
�� TH<0 � TH=�+TH
� dY%>0 � TH=TH+�
TH=TH-�(157.5)
� TH<0 � TH=TH+PI2
&�
� 00000000 0d 00 0a 13 f4 3e 4d 69 72 72 6f 72 2e 4d 61 67 |.....>Mirror.Mag|
00000010 69 63 32 0d 00 14 2d f1 22 4d 61 67 69 63 20 6d |ic2...-."Magic m|
00000020 69 72 72 6f 72 20 6f 66 66 20 73 63 72 65 65 6e |irror off screen|
00000030 20 73 70 72 69 74 65 20 70 6c 6f 74 74 65 72 22 | sprite plotter"|
00000040 0d 00 1e 2b e8 22 45 6e 74 65 72 20 6e 61 6d 65 |...+."Enter name|
00000050 20 6f 66 20 73 70 72 69 74 65 20 66 69 6c 65 20 | of sprite file |
00000060 74 6f 20 75 73 65 20 22 2c 53 24 0d 00 28 30 e8 |to use ",S$..(0.|
00000070 22 45 6e 74 65 72 20 6e 61 6d 65 20 6f 66 20 73 |"Enter name of s|
00000080 70 72 69 74 65 20 66 69 6c 65 20 73 74 6f 72 65 |prite file store|
00000090 20 72 65 73 75 6c 74 22 2c 52 24 0d 00 32 17 ff | result",R$..2..|
000000a0 28 22 53 43 52 45 45 4e 4c 4f 41 44 20 22 2b 53 |("SCREENLOAD "+S|
000000b0 24 29 0d 00 3c 08 4d 25 3d eb 0d 00 46 0c 2a 46 |$)..<.M%=...F.*F|
000000c0 58 31 31 34 2c 30 0d 00 50 08 eb 20 4d 25 0d 00 |X114,0..P.. M%..|
000000d0 5a 0c 2a 46 58 31 31 32 2c 31 0d 00 64 0c 2a 46 |Z.*FX112,1..d.*F|
000000e0 58 31 31 33 2c 31 0d 00 6e 17 ff 28 22 53 43 52 |X113,1..n..("SCR|
000000f0 45 45 4e 4c 4f 41 44 20 22 2b 53 24 29 0d 00 78 |EENLOAD "+S$)..x|
00000100 11 d1 3d 30 3a f5 20 fd 20 91 3e 31 30 30 0d 00 |..=0:. . .>100..|
00000110 82 0c 2a 46 58 31 31 33 2c 30 0d 00 8c 0c 2a 46 |..*FX113,0....*F|
00000120 58 31 31 32 2c 30 0d 00 96 13 e6 20 31 32 38 2b |X112,0..... 128+|
00000130 36 33 20 c8 9c 20 32 35 35 0d 00 a0 05 da 0d 00 |63 .. 255.......|
00000140 aa 15 43 54 48 3d b2 28 32 32 2e 35 29 2b 28 32 |..CTH=.(22.5)+(2|
00000150 2f af 29 0d 00 b4 13 50 49 32 3d af 2a 32 3a 50 |/.)....PI2=.*2:P|
00000160 49 48 3d af 2f 32 0d 00 be 12 58 43 3d 31 32 37 |IH=./2....XC=127|
00000170 39 2f b2 28 32 32 35 29 0d 00 c8 0f 59 43 3d 31 |9/.(225)....YC=1|
00000180 30 32 33 2f 33 38 30 0d 00 d2 17 e3 20 58 50 25 |023/380..... XP%|
00000190 3d 32 36 20 b8 20 31 32 36 30 20 88 20 32 0d 00 |=26 . 1260 . 2..|
000001a0 dc 18 e3 20 59 50 25 3d 31 31 36 20 b8 20 31 30 |... YP%=116 . 10|
000001b0 32 33 20 88 20 34 0d 00 e6 14 f2 5f 43 76 65 72 |23 . 4....._Cver|
000001c0 74 28 58 50 25 2c 59 50 25 29 0d 00 f0 0c 58 25 |t(XP%,YP%)....X%|
000001d0 3d 54 48 2a 58 43 0d 00 fa 11 59 25 3d 28 52 2d |=TH*XC....Y%=(R-|
000001e0 32 33 35 29 2a 59 43 0d 01 04 27 e7 20 58 25 3e |235)*YC...'. X%>|
000001f0 30 20 80 20 58 25 3c 31 32 37 39 20 80 20 59 25 |0 . X%<1279 . Y%|
00000200 3e 30 20 80 20 59 25 3c 31 30 32 33 20 8c 0d 01 |>0 . Y%<1023 ...|
00000210 0e 0c 2a 46 58 31 31 32 2c 31 0d 01 18 0e 43 25 |..*FX112,1....C%|
00000220 3d b0 58 25 2c 59 25 29 0d 01 22 10 54 25 3d c8 |=.X%,Y%)..".T%=.|
00000230 9c 28 58 25 2c 59 25 29 0d 01 2c 0c 2a 46 58 31 |.(X%,Y%)..,.*FX1|
00000240 31 32 2c 30 0d 01 36 0e e6 20 43 25 20 c8 9c 20 |12,0..6.. C% .. |
00000250 54 25 0d 01 40 0e c8 92 20 58 50 25 2c 59 50 25 |T%..@... XP%,YP%|
00000260 0d 01 4a 05 cd 0d 01 54 07 ed 3a ed 0d 01 5e 17 |..J....T..:...^.|
00000270 ff 28 22 53 43 52 45 45 4e 53 41 56 45 20 22 2b |.("SCREENSAVE "+|
00000280 52 24 29 0d 01 68 07 ef 20 37 0d 01 72 05 e0 0d |R$)..h.. 7..r...|
00000290 01 7c 05 3a 0d 01 86 14 dd 20 f2 5f 43 76 65 72 |.|.:..... ._Cver|
000002a0 74 28 58 25 2c 59 25 29 0d 01 90 0e 64 58 25 3d |t(X%,Y%)....dX%=|
000002b0 36 34 30 2d 58 25 0d 01 9a 0e 64 59 25 3d 37 36 |640-X%....dY%=76|
000002c0 38 2d 59 25 0d 01 a4 14 52 3d b6 28 64 58 25 5e |8-Y%....R=.(dX%^|
000002d0 32 2b 64 59 25 5e 32 29 0d 01 ae 0f e7 20 52 3c |2+dY%^2)..... R<|
000002e0 32 30 30 20 8c 20 e1 0d 01 b8 17 e7 20 64 58 25 |200 . ...... dX%|
000002f0 3c 3e 30 20 80 20 64 59 25 3c 3e 30 20 8c 0d 01 |<>0 . dY%<>0 ...|
00000300 c2 11 54 48 3d 99 28 64 59 25 2f 64 58 25 29 0d |..TH=.(dY%/dX%).|
00000310 01 cc 05 cc 0d 01 d6 21 e7 20 64 59 25 3d 30 20 |.......!. dY%=0 |
00000320 80 20 64 58 25 3e 30 20 8c 20 54 48 3d af 20 8b |. dX%>0 . TH=. .|
00000330 20 54 48 3d 30 0d 01 e0 1c e7 20 64 58 25 3d 30 | TH=0..... dX%=0|
00000340 20 80 20 64 59 25 3e 30 20 8c 20 54 48 3d 50 49 | . dY%>0 . TH=PI|
00000350 48 0d 01 ea 1e e7 20 64 58 25 3d 30 20 80 20 64 |H..... dX%=0 . d|
00000360 59 25 3c 30 20 8c 20 54 48 3d af 2b 50 49 48 0d |Y%<0 . TH=.+PIH.|
00000370 01 f4 05 cd 0d 01 fe 14 e7 20 54 48 3c 30 20 8c |......... TH<0 .|
00000380 20 54 48 3d af 2b 54 48 0d 02 08 15 e7 20 64 59 | TH=.+TH..... dY|
00000390 25 3e 30 20 8c 20 54 48 3d 54 48 2b af 0d 02 12 |%>0 . TH=TH+....|
000003a0 12 54 48 3d 54 48 2d b2 28 31 35 37 2e 35 29 0d |.TH=TH-.(157.5).|
000003b0 02 1c 16 e7 20 54 48 3c 30 20 8c 20 54 48 3d 54 |.... TH<0 . TH=T|
000003c0 48 2b 50 49 32 0d 02 26 05 e1 0d ff |H+PI2..&....|
000003cc 
.