Home » Archimedes archive » Acorn User » AU 1996-03 B.adf » Regulars » StarInfo/Cohn/!ARMovie/Tools/Split/MakeSplit
StarInfo/Cohn/!ARMovie/Tools/Split/MakeSplit
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 1996-03 B.adf » Regulars |
| Filename: | StarInfo/Cohn/!ARMovie/Tools/Split/MakeSplit |
| Read OK: | ✔ |
| File size: | 019F bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM > MakeSplit 20A%=OPENOUT"<ARMovie$Dir>.Shapes.Split" 30BPUT#A%,"ARMovie Shape 1" 40BPUT#A%,"A simple test of the shape facility" 50BPUT#A%,"960 512" 60FORY%=0TO127 70 FORX%=0TO1 80 destx%=X%*640 90 desty%=(127-Y%)*4 100 q%=destx% OR desty%<<12 OR 80<<24 110 BPUT#A%,q%:BPUT#A%,q%>>8:BPUT#A%,q%>>16:BPUT#A%,q%>>24 120 FORI%=0TO79 130 q%=Y%<<16 OR (X%*80+I%) 140 BPUT#A%,q%:BPUT#A%,q%>>8:BPUT#A%,q%>>16:BPUT#A%,q%>>24 150 NEXT 160 NEXT 170NEXT 180CLOSE#A%
� > MakeSplit $A%=�"<ARMovie$Dir>.Shapes.Split" �#A%,"ARMovie Shape 1" (.�#A%,"A simple test of the shape facility" 2�#A%,"960 512" < �Y%=0�127 F �X%=0�1 P destx%=X%*640 Z desty%=(127-Y%)*4 d% q%=destx% � desty%<<12 � 80<<24 n0 �#A%,q%:�#A%,q%>>8:�#A%,q%>>16:�#A%,q%>>24 x �I%=0�79 � q%=Y%<<16 � (X%*80+I%) �1 �#A%,q%:�#A%,q%>>8:�#A%,q%>>16:�#A%,q%>>24 � � � � �� ��#A% �
00000000 0d 00 0a 11 f4 20 3e 20 4d 61 6b 65 53 70 6c 69 |..... > MakeSpli| 00000010 74 0d 00 14 24 41 25 3d ae 22 3c 41 52 4d 6f 76 |t...$A%=."<ARMov| 00000020 69 65 24 44 69 72 3e 2e 53 68 61 70 65 73 2e 53 |ie$Dir>.Shapes.S| 00000030 70 6c 69 74 22 0d 00 1e 1a d5 23 41 25 2c 22 41 |plit".....#A%,"A| 00000040 52 4d 6f 76 69 65 20 53 68 61 70 65 20 31 22 0d |RMovie Shape 1".| 00000050 00 28 2e d5 23 41 25 2c 22 41 20 73 69 6d 70 6c |.(..#A%,"A simpl| 00000060 65 20 74 65 73 74 20 6f 66 20 74 68 65 20 73 68 |e test of the sh| 00000070 61 70 65 20 66 61 63 69 6c 69 74 79 22 0d 00 32 |ape facility"..2| 00000080 12 d5 23 41 25 2c 22 39 36 30 20 35 31 32 22 0d |..#A%,"960 512".| 00000090 00 3c 0d e3 59 25 3d 30 b8 31 32 37 0d 00 46 0c |.<..Y%=0.127..F.| 000000a0 20 e3 58 25 3d 30 b8 31 0d 00 50 13 20 20 64 65 | .X%=0.1..P. de| 000000b0 73 74 78 25 3d 58 25 2a 36 34 30 0d 00 5a 17 20 |stx%=X%*640..Z. | 000000c0 20 64 65 73 74 79 25 3d 28 31 32 37 2d 59 25 29 | desty%=(127-Y%)| 000000d0 2a 34 0d 00 64 25 20 20 71 25 3d 64 65 73 74 78 |*4..d% q%=destx| 000000e0 25 20 84 20 64 65 73 74 79 25 3c 3c 31 32 20 84 |% . desty%<<12 .| 000000f0 20 38 30 3c 3c 32 34 0d 00 6e 30 20 20 d5 23 41 | 80<<24..n0 .#A| 00000100 25 2c 71 25 3a d5 23 41 25 2c 71 25 3e 3e 38 3a |%,q%:.#A%,q%>>8:| 00000110 d5 23 41 25 2c 71 25 3e 3e 31 36 3a d5 23 41 25 |.#A%,q%>>16:.#A%| 00000120 2c 71 25 3e 3e 32 34 0d 00 78 0e 20 20 e3 49 25 |,q%>>24..x. .I%| 00000130 3d 30 b8 37 39 0d 00 82 1d 20 20 20 71 25 3d 59 |=0.79.... q%=Y| 00000140 25 3c 3c 31 36 20 84 20 28 58 25 2a 38 30 2b 49 |%<<16 . (X%*80+I| 00000150 25 29 0d 00 8c 31 20 20 20 d5 23 41 25 2c 71 25 |%)...1 .#A%,q%| 00000160 3a d5 23 41 25 2c 71 25 3e 3e 38 3a d5 23 41 25 |:.#A%,q%>>8:.#A%| 00000170 2c 71 25 3e 3e 31 36 3a d5 23 41 25 2c 71 25 3e |,q%>>16:.#A%,q%>| 00000180 3e 32 34 0d 00 96 07 20 20 ed 0d 00 a0 06 20 ed |>24.... ..... .| 00000190 0d 00 aa 05 ed 0d 00 b4 08 d9 23 41 25 0d ff |..........#A%..| 0000019f
.