� Rotate 90� clockwise
2� Acts on 192�144 size �lms. (4:3 ratio �lms).
,A%=�"<ARMovie$Dir>.Shapes.Rotations.90�"
(�#A%,"ARMovie Shape 1"
2?�#A%,"Clockwise 90� Rotation for 192�144 (or smaller) �lms"
<�#A%,"576 768"
F
�Y%=0�191
Pdestx%=0
Zdesty%=(191-Y%)*4
d$q%=destx% � desty%<<12 � 144<<24
n.�#A%,q%:�#A%,q%>>8:�#A%,q%>>16:�#A%,q%>>24
x
�I%=0�143
�
y%=143-I%
�0x%=Y%:� Starting at Row 0 (i.e. top of �lm).
�q%=y%<<16 � x%
�.�#A%,q%:�#A%,q%>>8:�#A%,q%>>16:�#A%,q%>>24
��
��"Line N�: ";Y%
��
��#A%
�

00000000  0d 00 0a 1a f4 20 52 6f  74 61 74 65 20 39 30 b0  |..... Rotate 90.|
00000010  20 63 6c 6f 63 6b 77 69  73 65 0d 00 14 32 f4 20  | clockwise...2. |
00000020  41 63 74 73 20 6f 6e 20  31 39 32 d7 31 34 34 20  |Acts on 192.144 |
00000030  73 69 7a 65 20 9e 6c 6d  73 2e 20 28 34 3a 33 20  |size .lms. (4:3 |
00000040  72 61 74 69 6f 20 9e 6c  6d 73 29 2e 0d 00 1e 2c  |ratio .lms)....,|
00000050  41 25 3d ae 22 3c 41 52  4d 6f 76 69 65 24 44 69  |A%=."<ARMovie$Di|
00000060  72 3e 2e 53 68 61 70 65  73 2e 52 6f 74 61 74 69  |r>.Shapes.Rotati|
00000070  6f 6e 73 2e 39 30 b0 22  0d 00 28 1a d5 23 41 25  |ons.90."..(..#A%|
00000080  2c 22 41 52 4d 6f 76 69  65 20 53 68 61 70 65 20  |,"ARMovie Shape |
00000090  31 22 0d 00 32 3f d5 23  41 25 2c 22 43 6c 6f 63  |1"..2?.#A%,"Cloc|
000000a0  6b 77 69 73 65 20 39 30  b0 20 52 6f 74 61 74 69  |kwise 90. Rotati|
000000b0  6f 6e 20 66 6f 72 20 31  39 32 d7 31 34 34 20 28  |on for 192.144 (|
000000c0  6f 72 20 73 6d 61 6c 6c  65 72 29 20 9e 6c 6d 73  |or smaller) .lms|
000000d0  22 0d 00 3c 12 d5 23 41  25 2c 22 35 37 36 20 37  |"..<..#A%,"576 7|
000000e0  36 38 22 0d 00 46 0d e3  59 25 3d 30 b8 31 39 31  |68"..F..Y%=0.191|
000000f0  0d 00 50 0c 64 65 73 74  78 25 3d 30 0d 00 5a 15  |..P.destx%=0..Z.|
00000100  64 65 73 74 79 25 3d 28  31 39 31 2d 59 25 29 2a  |desty%=(191-Y%)*|
00000110  34 0d 00 64 24 71 25 3d  64 65 73 74 78 25 20 84  |4..d$q%=destx% .|
00000120  20 64 65 73 74 79 25 3c  3c 31 32 20 84 20 31 34  | desty%<<12 . 14|
00000130  34 3c 3c 32 34 0d 00 6e  2e d5 23 41 25 2c 71 25  |4<<24..n..#A%,q%|
00000140  3a d5 23 41 25 2c 71 25  3e 3e 38 3a d5 23 41 25  |:.#A%,q%>>8:.#A%|
00000150  2c 71 25 3e 3e 31 36 3a  d5 23 41 25 2c 71 25 3e  |,q%>>16:.#A%,q%>|
00000160  3e 32 34 0d 00 78 0d e3  49 25 3d 30 b8 31 34 33  |>24..x..I%=0.143|
00000170  0d 00 82 0d 79 25 3d 31  34 33 2d 49 25 0d 00 8c  |....y%=143-I%...|
00000180  30 78 25 3d 59 25 3a f4  20 53 74 61 72 74 69 6e  |0x%=Y%:. Startin|
00000190  67 20 61 74 20 52 6f 77  20 30 20 28 69 2e 65 2e  |g at Row 0 (i.e.|
000001a0  20 74 6f 70 20 6f 66 20  9e 6c 6d 29 2e 0d 00 96  | top of .lm)....|
000001b0  12 71 25 3d 79 25 3c 3c  31 36 20 84 20 78 25 0d  |.q%=y%<<16 . x%.|
000001c0  00 a0 2e d5 23 41 25 2c  71 25 3a d5 23 41 25 2c  |....#A%,q%:.#A%,|
000001d0  71 25 3e 3e 38 3a d5 23  41 25 2c 71 25 3e 3e 31  |q%>>8:.#A%,q%>>1|
000001e0  36 3a d5 23 41 25 2c 71  25 3e 3e 32 34 0d 00 aa  |6:.#A%,q%>>24...|
000001f0  05 ed 0d 00 b4 13 f1 22  4c 69 6e 65 20 4e ba 3a  |......."Line N.:|
00000200  20 22 3b 59 25 0d 00 be  05 ed 0d 00 c8 08 d9 23  | ";Y%..........#|
00000210  41 25 0d ff                                       |A%..|
00000214