� Split into vertical slices
2� Acts on 192�144 size �lms. (4:3 ratio �lms).
��#A%:�$;" at line ";�:�
(�split%=2�8
2partion%=144/split%
<!shapey%=partion%*(split%*2-1)
FoldY%=0
P5A%=�("<ARMovie$Dir>.Shapes.Splits.Y-in-"+�split%)
Z�#A%,"ARMovie Shape 1"
d@�#A%,("Split 192�144 �lms into "+�split%+" vertical slices")
n�#A%,"768 ";
x%shapey%=(partion%*(split%*2-1))-1
�size%=(shapey%+1)*4
��#A%,(�size%)
��loop%=0�(split%-1)
�part2%=loop%*partion%
�'lowY%=oldY%:highY%=partion%-1+lowY%
�$�do(lowY%,highY%,part2%,shapey%)
�oldY%=highY%+1
��
��
��#A%
��
���do(a%,b%,c%,d%)
��line%=a%�b%

destx%=0

desty%=(d%-line%-c%)*4

$q%=destx% � desty%<<12 � 192<<24

".�#A%,q%:�#A%,q%>>8:�#A%,q%>>16:�#A%,q%>>24

,
�I%=0�191

6y%=line%

@	x%=I%

Jq%=y%<<16 � x%

T.�#A%,q%:�#A%,q%>>8:�#A%,q%>>16:�#A%,q%>>24

^�

h�"Line N�: ";line%; "done."

r�

|�
�

00000000  0d 00 0a 20 f4 20 53 70  6c 69 74 20 69 6e 74 6f  |... . Split into|
00000010  20 76 65 72 74 69 63 61  6c 20 73 6c 69 63 65 73  | vertical slices|
00000020  0d 00 14 32 f4 20 41 63  74 73 20 6f 6e 20 31 39  |...2. Acts on 19|
00000030  32 d7 31 34 34 20 73 69  7a 65 20 9e 6c 6d 73 2e  |2.144 size .lms.|
00000040  20 28 34 3a 33 20 72 61  74 69 6f 20 9e 6c 6d 73  | (4:3 ratio .lms|
00000050  29 2e 0d 00 1e 1e ee 85  d9 23 41 25 3a f1 f6 24  |)........#A%:..$|
00000060  3b 22 20 61 74 20 6c 69  6e 65 20 22 3b 9e 3a e0  |;" at line ";.:.|
00000070  0d 00 28 0f e3 73 70 6c  69 74 25 3d 32 b8 38 0d  |..(..split%=2.8.|
00000080  00 32 17 70 61 72 74 69  6f 6e 25 3d 31 34 34 2f  |.2.partion%=144/|
00000090  73 70 6c 69 74 25 0d 00  3c 21 73 68 61 70 65 79  |split%..<!shapey|
000000a0  25 3d 70 61 72 74 69 6f  6e 25 2a 28 73 70 6c 69  |%=partion%*(spli|
000000b0  74 25 2a 32 2d 31 29 0d  00 46 0b 6f 6c 64 59 25  |t%*2-1)..F.oldY%|
000000c0  3d 30 0d 00 50 35 41 25  3d ae 28 22 3c 41 52 4d  |=0..P5A%=.("<ARM|
000000d0  6f 76 69 65 24 44 69 72  3e 2e 53 68 61 70 65 73  |ovie$Dir>.Shapes|
000000e0  2e 53 70 6c 69 74 73 2e  59 2d 69 6e 2d 22 2b c3  |.Splits.Y-in-"+.|
000000f0  73 70 6c 69 74 25 29 0d  00 5a 1a d5 23 41 25 2c  |split%)..Z..#A%,|
00000100  22 41 52 4d 6f 76 69 65  20 53 68 61 70 65 20 31  |"ARMovie Shape 1|
00000110  22 0d 00 64 40 d5 23 41  25 2c 28 22 53 70 6c 69  |"..d@.#A%,("Spli|
00000120  74 20 31 39 32 d7 31 34  34 20 9e 6c 6d 73 20 69  |t 192.144 .lms i|
00000130  6e 74 6f 20 22 2b c3 73  70 6c 69 74 25 2b 22 20  |nto "+.split%+" |
00000140  76 65 72 74 69 63 61 6c  20 73 6c 69 63 65 73 22  |vertical slices"|
00000150  29 0d 00 6e 10 d5 23 41  25 2c 22 37 36 38 20 22  |)..n..#A%,"768 "|
00000160  3b 0d 00 78 25 73 68 61  70 65 79 25 3d 28 70 61  |;..x%shapey%=(pa|
00000170  72 74 69 6f 6e 25 2a 28  73 70 6c 69 74 25 2a 32  |rtion%*(split%*2|
00000180  2d 31 29 29 2d 31 0d 00  82 17 73 69 7a 65 25 3d  |-1))-1....size%=|
00000190  28 73 68 61 70 65 79 25  2b 31 29 2a 34 0d 00 8c  |(shapey%+1)*4...|
000001a0  11 d5 23 41 25 2c 28 c3  73 69 7a 65 25 29 0d 00  |..#A%,(.size%)..|
000001b0  96 17 e3 6c 6f 6f 70 25  3d 30 b8 28 73 70 6c 69  |...loop%=0.(spli|
000001c0  74 25 2d 31 29 0d 00 a0  19 70 61 72 74 32 25 3d  |t%-1)....part2%=|
000001d0  6c 6f 6f 70 25 2a 70 61  72 74 69 6f 6e 25 0d 00  |loop%*partion%..|
000001e0  aa 27 6c 6f 77 59 25 3d  6f 6c 64 59 25 3a 68 69  |.'lowY%=oldY%:hi|
000001f0  67 68 59 25 3d 70 61 72  74 69 6f 6e 25 2d 31 2b  |ghY%=partion%-1+|
00000200  6c 6f 77 59 25 0d 00 b4  24 f2 64 6f 28 6c 6f 77  |lowY%...$.do(low|
00000210  59 25 2c 68 69 67 68 59  25 2c 70 61 72 74 32 25  |Y%,highY%,part2%|
00000220  2c 73 68 61 70 65 79 25  29 0d 00 be 12 6f 6c 64  |,shapey%)....old|
00000230  59 25 3d 68 69 67 68 59  25 2b 31 0d 00 c8 05 ed  |Y%=highY%+1.....|
00000240  0d 00 d2 05 ed 0d 00 dc  08 d9 23 41 25 0d 00 e6  |..........#A%...|
00000250  05 e0 0d 00 f0 15 dd f2  64 6f 28 61 25 2c 62 25  |........do(a%,b%|
00000260  2c 63 25 2c 64 25 29 0d  00 fa 10 e3 6c 69 6e 65  |,c%,d%).....line|
00000270  25 3d 61 25 b8 62 25 0d  01 04 0c 64 65 73 74 78  |%=a%.b%....destx|
00000280  25 3d 30 0d 01 0e 1a 64  65 73 74 79 25 3d 28 64  |%=0....desty%=(d|
00000290  25 2d 6c 69 6e 65 25 2d  63 25 29 2a 34 0d 01 18  |%-line%-c%)*4...|
000002a0  24 71 25 3d 64 65 73 74  78 25 20 84 20 64 65 73  |$q%=destx% . des|
000002b0  74 79 25 3c 3c 31 32 20  84 20 31 39 32 3c 3c 32  |ty%<<12 . 192<<2|
000002c0  34 0d 01 22 2e d5 23 41  25 2c 71 25 3a d5 23 41  |4.."..#A%,q%:.#A|
000002d0  25 2c 71 25 3e 3e 38 3a  d5 23 41 25 2c 71 25 3e  |%,q%>>8:.#A%,q%>|
000002e0  3e 31 36 3a d5 23 41 25  2c 71 25 3e 3e 32 34 0d  |>16:.#A%,q%>>24.|
000002f0  01 2c 0d e3 49 25 3d 30  b8 31 39 31 0d 01 36 0c  |.,..I%=0.191..6.|
00000300  79 25 3d 6c 69 6e 65 25  0d 01 40 09 78 25 3d 49  |y%=line%..@.x%=I|
00000310  25 0d 01 4a 12 71 25 3d  79 25 3c 3c 31 36 20 84  |%..J.q%=y%<<16 .|
00000320  20 78 25 0d 01 54 2e d5  23 41 25 2c 71 25 3a d5  | x%..T..#A%,q%:.|
00000330  23 41 25 2c 71 25 3e 3e  38 3a d5 23 41 25 2c 71  |#A%,q%>>8:.#A%,q|
00000340  25 3e 3e 31 36 3a d5 23  41 25 2c 71 25 3e 3e 32  |%>>16:.#A%,q%>>2|
00000350  34 0d 01 5e 05 ed 0d 01  68 1f f1 22 4c 69 6e 65  |4..^....h.."Line|
00000360  20 4e ba 3a 20 22 3b 6c  69 6e 65 25 3b 20 22 64  | N.: ";line%; "d|
00000370  6f 6e 65 2e 22 0d 01 72  05 ed 0d 01 7c 05 e1 0d  |one."..r....|...|
00000380  ff                                                |.|
00000381