Home » Archimedes archive » Acorn User » AU 1996-03 B.adf » Regulars » StarInfo/Cohn/!ARMovie/Tools/Reflect/ReflectRht

StarInfo/Cohn/!ARMovie/Tools/Reflect/ReflectRht

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/Reflect/ReflectRht
Read OK:
File size: 02A7 bytes
Load address: 0000
Exec address: 0000
File contents
   10REM Reflect Right in centre of X
   20REM Acts on 192CHAIN144 ERLlms. (4:3 ratio).
   30ONERROR CLOSE#A%:PRINTREPORT$;" at line ";ERL:END
   40A%=OPENOUT"<ARMovie$Dir>.Shapes.Reflection.Right"
   50BPUT#A%,"ARMovie Shape 1"
   60BPUT#A%,"Reflection of right side of film about a vertical line down the middle of 192�144 (or smaller) films"
   70BPUT#A%,"768 576"
   80FORY%=0TO143
   90destx%=0
  100desty%=(143-Y%)*4
  110q%=destx% OR desty%<<12 OR 192<<24
  120BPUT#A%,q%:BPUT#A%,q%>>8:BPUT#A%,q%>>16:BPUT#A%,q%>>24
  130FORI%=95TO0STEP-1
  140y%=Y%:x%=I%+80
  150q%=y%<<16 OR x%
  160BPUT#A%,q%:BPUT#A%,q%>>8:BPUT#A%,q%>>16:BPUT#A%,q%>>24
  170NEXT
  180FORI%=96TO191
  190y%=Y%:x%=I%
  200q%=y%<<16 OR x%
  210BPUT#A%,q%:BPUT#A%,q%>>8:BPUT#A%,q%>>16:BPUT#A%,q%>>24
  220NEXT
  230PRINT"Line N� ";Y%;" done.":NEXT
  240CLOSE#A%
  250END

"� Reflect Right in centre of X
(� Acts on 192�144 �lms. (4:3 ratio).
� �#A%:�$;" at line ";�:�
(/A%=�"<ARMovie$Dir>.Shapes.Reflection.Right"
2�#A%,"ARMovie Shape 1"
<o�#A%,"Reflection of right side of film about a vertical line down the middle of 192�144 (or smaller) films"
F�#A%,"768 576"
P
�Y%=0�143
Zdestx%=0
ddesty%=(143-Y%)*4
n$q%=destx% � desty%<<12 � 192<<24
x.�#A%,q%:�#A%,q%>>8:�#A%,q%>>16:�#A%,q%>>24
��I%=95�0�-1
�y%=Y%:x%=I%+80
�q%=y%<<16 � x%
�.�#A%,q%:�#A%,q%>>8:�#A%,q%>>16:�#A%,q%>>24
��
��I%=96�191
�y%=Y%:x%=I%
�q%=y%<<16 � x%
�.�#A%,q%:�#A%,q%>>8:�#A%,q%>>16:�#A%,q%>>24
��
��"Line N� ";Y%;" done.":�
��#A%
��
�
00000000  0d 00 0a 22 f4 20 52 65  66 6c 65 63 74 20 52 69  |...". Reflect Ri|
00000010  67 68 74 20 69 6e 20 63  65 6e 74 72 65 20 6f 66  |ght in centre of|
00000020  20 58 0d 00 14 28 f4 20  41 63 74 73 20 6f 6e 20  | X...(. Acts on |
00000030  31 39 32 d7 31 34 34 20  9e 6c 6d 73 2e 20 28 34  |192.144 .lms. (4|
00000040  3a 33 20 72 61 74 69 6f  29 2e 0d 00 1e 1f ee 85  |:3 ratio).......|
00000050  20 d9 23 41 25 3a f1 f6  24 3b 22 20 61 74 20 6c  | .#A%:..$;" at l|
00000060  69 6e 65 20 22 3b 9e 3a  e0 0d 00 28 2f 41 25 3d  |ine ";.:...(/A%=|
00000070  ae 22 3c 41 52 4d 6f 76  69 65 24 44 69 72 3e 2e  |."<ARMovie$Dir>.|
00000080  53 68 61 70 65 73 2e 52  65 66 6c 65 63 74 69 6f  |Shapes.Reflectio|
00000090  6e 2e 52 69 67 68 74 22  0d 00 32 1a d5 23 41 25  |n.Right"..2..#A%|
000000a0  2c 22 41 52 4d 6f 76 69  65 20 53 68 61 70 65 20  |,"ARMovie Shape |
000000b0  31 22 0d 00 3c 6f d5 23  41 25 2c 22 52 65 66 6c  |1"..<o.#A%,"Refl|
000000c0  65 63 74 69 6f 6e 20 6f  66 20 72 69 67 68 74 20  |ection of right |
000000d0  73 69 64 65 20 6f 66 20  66 69 6c 6d 20 61 62 6f  |side of film abo|
000000e0  75 74 20 61 20 76 65 72  74 69 63 61 6c 20 6c 69  |ut a vertical li|
000000f0  6e 65 20 64 6f 77 6e 20  74 68 65 20 6d 69 64 64  |ne down the midd|
00000100  6c 65 20 6f 66 20 31 39  32 d7 31 34 34 20 28 6f  |le of 192.144 (o|
00000110  72 20 73 6d 61 6c 6c 65  72 29 20 66 69 6c 6d 73  |r smaller) films|
00000120  22 0d 00 46 12 d5 23 41  25 2c 22 37 36 38 20 35  |"..F..#A%,"768 5|
00000130  37 36 22 0d 00 50 0d e3  59 25 3d 30 b8 31 34 33  |76"..P..Y%=0.143|
00000140  0d 00 5a 0c 64 65 73 74  78 25 3d 30 0d 00 64 15  |..Z.destx%=0..d.|
00000150  64 65 73 74 79 25 3d 28  31 34 33 2d 59 25 29 2a  |desty%=(143-Y%)*|
00000160  34 0d 00 6e 24 71 25 3d  64 65 73 74 78 25 20 84  |4..n$q%=destx% .|
00000170  20 64 65 73 74 79 25 3c  3c 31 32 20 84 20 31 39  | desty%<<12 . 19|
00000180  32 3c 3c 32 34 0d 00 78  2e d5 23 41 25 2c 71 25  |2<<24..x..#A%,q%|
00000190  3a d5 23 41 25 2c 71 25  3e 3e 38 3a d5 23 41 25  |:.#A%,q%>>8:.#A%|
000001a0  2c 71 25 3e 3e 31 36 3a  d5 23 41 25 2c 71 25 3e  |,q%>>16:.#A%,q%>|
000001b0  3e 32 34 0d 00 82 0f e3  49 25 3d 39 35 b8 30 88  |>24.....I%=95.0.|
000001c0  2d 31 0d 00 8c 12 79 25  3d 59 25 3a 78 25 3d 49  |-1....y%=Y%:x%=I|
000001d0  25 2b 38 30 0d 00 96 12  71 25 3d 79 25 3c 3c 31  |%+80....q%=y%<<1|
000001e0  36 20 84 20 78 25 0d 00  a0 2e d5 23 41 25 2c 71  |6 . x%.....#A%,q|
000001f0  25 3a d5 23 41 25 2c 71  25 3e 3e 38 3a d5 23 41  |%:.#A%,q%>>8:.#A|
00000200  25 2c 71 25 3e 3e 31 36  3a d5 23 41 25 2c 71 25  |%,q%>>16:.#A%,q%|
00000210  3e 3e 32 34 0d 00 aa 05  ed 0d 00 b4 0e e3 49 25  |>>24..........I%|
00000220  3d 39 36 b8 31 39 31 0d  00 be 0f 79 25 3d 59 25  |=96.191....y%=Y%|
00000230  3a 78 25 3d 49 25 0d 00  c8 12 71 25 3d 79 25 3c  |:x%=I%....q%=y%<|
00000240  3c 31 36 20 84 20 78 25  0d 00 d2 2e d5 23 41 25  |<16 . x%.....#A%|
00000250  2c 71 25 3a d5 23 41 25  2c 71 25 3e 3e 38 3a d5  |,q%:.#A%,q%>>8:.|
00000260  23 41 25 2c 71 25 3e 3e  31 36 3a d5 23 41 25 2c  |#A%,q%>>16:.#A%,|
00000270  71 25 3e 3e 32 34 0d 00  dc 05 ed 0d 00 e6 1d f1  |q%>>24..........|
00000280  22 4c 69 6e 65 20 4e ba  20 22 3b 59 25 3b 22 20  |"Line N. ";Y%;" |
00000290  64 6f 6e 65 2e 22 3a ed  0d 00 f0 08 d9 23 41 25  |done.":......#A%|
000002a0  0d 00 fa 05 e0 0d ff                              |.......|
000002a7