� XAnim
(� Acts on 192�144 films (4:3 ratio).
� Requires 7�Mb!
( � � �#A%:�$;" at line ";�:�
2D�:�"White (-2) or Black (-1) unused pixels? ";c%:� c%=-1 � c%=-2
<�n%=0�47
F3A%=�("<ARMovie$Dir>.Shapes.XAnim.XAnim�N�"+�n%)
P!�"Starting XAnim N�: ";n%;"."
ZA%=�("RAM:$.XAnim�N�"+�n%)
d�#A%,"ARMovie Shape 1"
nL�#A%,"Split horizontally 192�144 (or smaller) films into equal sections"
x�#A%,"1152 576"
�
�Y%=0�143
�desty%=(143-Y%)*4
��X%=0�1
�Ȏ X% �
��0:destx%=(47-n%)*4
��1:destx%=(192-(47-n%))*4
��
�#q%=destx% � desty%<<12 � 96<<24
�.�#A%,q%:�#A%,q%>>8:�#A%,q%>>16:�#A%,q%>>24
��I%=0�95
�	y%=Y%
�x%=I%+X%*96
�q%=y%<<16 � x%

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

�I%

'� Black/White Pixels Part 1 (Sides)

"Ȏ X% �

,�0:destx%=0

6�1:destx%=(287-(47-n%))*4

@�

JN%=(48-n%)

T#q%=destx% � desty%<<12 � N%<<24

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

h0y%=-1:x%=c%:� Black normally;x%=-2 is white.

rq%=y%<<16 � x%

|�J%=1�N%

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

��J%

��X%

�(� Black/White Pixels Part 2 (Middle)

�N%=(n%+1)*2

�destx%=(47-n%+96)*4

�#q%=destx% � desty%<<12 � N%<<24

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

�0y%=-1:x%=c%:� Black normally;x%=-2 is white.

�q%=y%<<16 � x%

��K%=1�N%

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

��K%
�Y%
�#A%
 �"Finished XAnim N�: ";n%"."
&�
0(A%=�"<ARMovie$Dir>.Trajectory.XAnim"
:�#A%,"ARMovie Trajectory 1"
D'�#A%,"Animated split-up of ARMovie"
N �#A%,"12.5 steps per second"
X�#A%,"47 shapes"
b�scale%=1�47
l$�#A%,("Splits.XAnim�N�"+�scale%)
v�
��#A%,"95 instances"
��#A%,"0,0:0"
��instance%=0�47
��#A%,("0,0:"+�instance%)
��
��instance%=46�1�-1
��#A%,("0,0:"+�instance%)
��
��#A%
��
�

00000000  0d 00 0a 0b f4 20 58 41  6e 69 6d 0d 00 14 28 f4  |..... XAnim...(.|
00000010  20 41 63 74 73 20 6f 6e  20 31 39 32 d7 31 34 34  | Acts on 192.144|
00000020  20 66 69 6c 6d 73 20 28  34 3a 33 20 72 61 74 69  | films (4:3 rati|
00000030  6f 29 2e 0d 00 1e 14 f4  20 52 65 71 75 69 72 65  |o)...... Require|
00000040  73 20 37 be 4d 62 21 0d  00 28 20 ee 20 85 20 d9  |s 7.Mb!..( . . .|
00000050  23 41 25 3a f1 f6 24 3b  22 20 61 74 20 6c 69 6e  |#A%:..$;" at lin|
00000060  65 20 22 3b 9e 3a e0 0d  00 32 44 f5 3a e8 22 57  |e ";.:...2D.:."W|
00000070  68 69 74 65 20 28 2d 32  29 20 6f 72 20 42 6c 61  |hite (-2) or Bla|
00000080  63 6b 20 28 2d 31 29 20  75 6e 75 73 65 64 20 70  |ck (-1) unused p|
00000090  69 78 65 6c 73 3f 20 22  3b 63 25 3a fd 20 63 25  |ixels? ";c%:. c%|
000000a0  3d 2d 31 20 84 20 63 25  3d 2d 32 0d 00 3c 0c e3  |=-1 . c%=-2..<..|
000000b0  6e 25 3d 30 b8 34 37 0d  00 46 33 41 25 3d ae 28  |n%=0.47..F3A%=.(|
000000c0  22 3c 41 52 4d 6f 76 69  65 24 44 69 72 3e 2e 53  |"<ARMovie$Dir>.S|
000000d0  68 61 70 65 73 2e 58 41  6e 69 6d 2e 58 41 6e 69  |hapes.XAnim.XAni|
000000e0  6d a0 4e ba 22 2b c3 6e  25 29 0d 00 50 21 f1 22  |m.N."+.n%)..P!."|
000000f0  53 74 61 72 74 69 6e 67  20 58 41 6e 69 6d 20 4e  |Starting XAnim N|
00000100  ba 3a 20 22 3b 6e 25 3b  22 2e 22 0d 00 5a 1e 41  |.: ";n%;"."..Z.A|
00000110  25 3d ae 28 22 52 41 4d  3a 24 2e 58 41 6e 69 6d  |%=.("RAM:$.XAnim|
00000120  a0 4e ba 22 2b c3 6e 25  29 0d 00 64 1a d5 23 41  |.N."+.n%)..d..#A|
00000130  25 2c 22 41 52 4d 6f 76  69 65 20 53 68 61 70 65  |%,"ARMovie Shape|
00000140  20 31 22 0d 00 6e 4c d5  23 41 25 2c 22 53 70 6c  | 1"..nL.#A%,"Spl|
00000150  69 74 20 68 6f 72 69 7a  6f 6e 74 61 6c 6c 79 20  |it horizontally |
00000160  31 39 32 d7 31 34 34 20  28 6f 72 20 73 6d 61 6c  |192.144 (or smal|
00000170  6c 65 72 29 20 66 69 6c  6d 73 20 69 6e 74 6f 20  |ler) films into |
00000180  65 71 75 61 6c 20 73 65  63 74 69 6f 6e 73 22 0d  |equal sections".|
00000190  00 78 13 d5 23 41 25 2c  22 31 31 35 32 20 35 37  |.x..#A%,"1152 57|
000001a0  36 22 0d 00 82 0d e3 59  25 3d 30 b8 31 34 33 0d  |6".....Y%=0.143.|
000001b0  00 8c 15 64 65 73 74 79  25 3d 28 31 34 33 2d 59  |...desty%=(143-Y|
000001c0  25 29 2a 34 0d 00 96 0b  e3 58 25 3d 30 b8 31 0d  |%)*4.....X%=0.1.|
000001d0  00 a0 0b c8 8e 20 58 25  20 ca 0d 00 aa 17 c9 30  |..... X% ......0|
000001e0  3a 64 65 73 74 78 25 3d  28 34 37 2d 6e 25 29 2a  |:destx%=(47-n%)*|
000001f0  34 0d 00 b4 1d c9 31 3a  64 65 73 74 78 25 3d 28  |4.....1:destx%=(|
00000200  31 39 32 2d 28 34 37 2d  6e 25 29 29 2a 34 0d 00  |192-(47-n%))*4..|
00000210  be 05 cb 0d 00 c8 23 71  25 3d 64 65 73 74 78 25  |......#q%=destx%|
00000220  20 84 20 64 65 73 74 79  25 3c 3c 31 32 20 84 20  | . desty%<<12 . |
00000230  39 36 3c 3c 32 34 0d 00  d2 2e d5 23 41 25 2c 71  |96<<24.....#A%,q|
00000240  25 3a d5 23 41 25 2c 71  25 3e 3e 38 3a d5 23 41  |%:.#A%,q%>>8:.#A|
00000250  25 2c 71 25 3e 3e 31 36  3a d5 23 41 25 2c 71 25  |%,q%>>16:.#A%,q%|
00000260  3e 3e 32 34 0d 00 dc 0c  e3 49 25 3d 30 b8 39 35  |>>24.....I%=0.95|
00000270  0d 00 e6 09 79 25 3d 59  25 0d 00 f0 0f 78 25 3d  |....y%=Y%....x%=|
00000280  49 25 2b 58 25 2a 39 36  0d 00 fa 12 71 25 3d 79  |I%+X%*96....q%=y|
00000290  25 3c 3c 31 36 20 84 20  78 25 0d 01 04 2e d5 23  |%<<16 . x%.....#|
000002a0  41 25 2c 71 25 3a d5 23  41 25 2c 71 25 3e 3e 38  |A%,q%:.#A%,q%>>8|
000002b0  3a d5 23 41 25 2c 71 25  3e 3e 31 36 3a d5 23 41  |:.#A%,q%>>16:.#A|
000002c0  25 2c 71 25 3e 3e 32 34  0d 01 0e 07 ed 49 25 0d  |%,q%>>24.....I%.|
000002d0  01 18 27 f4 20 42 6c 61  63 6b 2f 57 68 69 74 65  |..'. Black/White|
000002e0  20 50 69 78 65 6c 73 20  50 61 72 74 20 31 20 28  | Pixels Part 1 (|
000002f0  53 69 64 65 73 29 0d 01  22 0b c8 8e 20 58 25 20  |Sides).."... X% |
00000300  ca 0d 01 2c 0f c9 30 3a  64 65 73 74 78 25 3d 30  |...,..0:destx%=0|
00000310  0d 01 36 1d c9 31 3a 64  65 73 74 78 25 3d 28 32  |..6..1:destx%=(2|
00000320  38 37 2d 28 34 37 2d 6e  25 29 29 2a 34 0d 01 40  |87-(47-n%))*4..@|
00000330  05 cb 0d 01 4a 0e 4e 25  3d 28 34 38 2d 6e 25 29  |....J.N%=(48-n%)|
00000340  0d 01 54 23 71 25 3d 64  65 73 74 78 25 20 84 20  |..T#q%=destx% . |
00000350  64 65 73 74 79 25 3c 3c  31 32 20 84 20 4e 25 3c  |desty%<<12 . N%<|
00000360  3c 32 34 0d 01 5e 2e d5  23 41 25 2c 71 25 3a d5  |<24..^..#A%,q%:.|
00000370  23 41 25 2c 71 25 3e 3e  38 3a d5 23 41 25 2c 71  |#A%,q%>>8:.#A%,q|
00000380  25 3e 3e 31 36 3a d5 23  41 25 2c 71 25 3e 3e 32  |%>>16:.#A%,q%>>2|
00000390  34 0d 01 68 30 79 25 3d  2d 31 3a 78 25 3d 63 25  |4..h0y%=-1:x%=c%|
000003a0  3a f4 20 42 6c 61 63 6b  20 6e 6f 72 6d 61 6c 6c  |:. Black normall|
000003b0  79 3b 78 25 3d 2d 32 20  69 73 20 77 68 69 74 65  |y;x%=-2 is white|
000003c0  2e 0d 01 72 12 71 25 3d  79 25 3c 3c 31 36 20 84  |...r.q%=y%<<16 .|
000003d0  20 78 25 0d 01 7c 0c e3  4a 25 3d 31 b8 4e 25 0d  | x%..|..J%=1.N%.|
000003e0  01 86 2e d5 23 41 25 2c  71 25 3a d5 23 41 25 2c  |....#A%,q%:.#A%,|
000003f0  71 25 3e 3e 38 3a d5 23  41 25 2c 71 25 3e 3e 31  |q%>>8:.#A%,q%>>1|
00000400  36 3a d5 23 41 25 2c 71  25 3e 3e 32 34 0d 01 90  |6:.#A%,q%>>24...|
00000410  07 ed 4a 25 0d 01 9a 07  ed 58 25 0d 01 a4 28 f4  |..J%.....X%...(.|
00000420  20 42 6c 61 63 6b 2f 57  68 69 74 65 20 50 69 78  | Black/White Pix|
00000430  65 6c 73 20 50 61 72 74  20 32 20 28 4d 69 64 64  |els Part 2 (Midd|
00000440  6c 65 29 0d 01 ae 0f 4e  25 3d 28 6e 25 2b 31 29  |le)....N%=(n%+1)|
00000450  2a 32 0d 01 b8 17 64 65  73 74 78 25 3d 28 34 37  |*2....destx%=(47|
00000460  2d 6e 25 2b 39 36 29 2a  34 0d 01 c2 23 71 25 3d  |-n%+96)*4...#q%=|
00000470  64 65 73 74 78 25 20 84  20 64 65 73 74 79 25 3c  |destx% . desty%<|
00000480  3c 31 32 20 84 20 4e 25  3c 3c 32 34 0d 01 cc 2e  |<12 . N%<<24....|
00000490  d5 23 41 25 2c 71 25 3a  d5 23 41 25 2c 71 25 3e  |.#A%,q%:.#A%,q%>|
000004a0  3e 38 3a d5 23 41 25 2c  71 25 3e 3e 31 36 3a d5  |>8:.#A%,q%>>16:.|
000004b0  23 41 25 2c 71 25 3e 3e  32 34 0d 01 d6 30 79 25  |#A%,q%>>24...0y%|
000004c0  3d 2d 31 3a 78 25 3d 63  25 3a f4 20 42 6c 61 63  |=-1:x%=c%:. Blac|
000004d0  6b 20 6e 6f 72 6d 61 6c  6c 79 3b 78 25 3d 2d 32  |k normally;x%=-2|
000004e0  20 69 73 20 77 68 69 74  65 2e 0d 01 e0 12 71 25  | is white.....q%|
000004f0  3d 79 25 3c 3c 31 36 20  84 20 78 25 0d 01 ea 0c  |=y%<<16 . x%....|
00000500  e3 4b 25 3d 31 b8 4e 25  0d 01 f4 2e d5 23 41 25  |.K%=1.N%.....#A%|
00000510  2c 71 25 3a d5 23 41 25  2c 71 25 3e 3e 38 3a d5  |,q%:.#A%,q%>>8:.|
00000520  23 41 25 2c 71 25 3e 3e  31 36 3a d5 23 41 25 2c  |#A%,q%>>16:.#A%,|
00000530  71 25 3e 3e 32 34 0d 01  fe 07 ed 4b 25 0d 02 08  |q%>>24.....K%...|
00000540  07 ed 59 25 0d 02 12 08  d9 23 41 25 0d 02 1c 20  |..Y%.....#A%... |
00000550  f1 22 46 69 6e 69 73 68  65 64 20 58 41 6e 69 6d  |."Finished XAnim|
00000560  20 4e ba 3a 20 22 3b 6e  25 22 2e 22 0d 02 26 05  | N.: ";n%"."..&.|
00000570  ed 0d 02 30 28 41 25 3d  ae 22 3c 41 52 4d 6f 76  |...0(A%=."<ARMov|
00000580  69 65 24 44 69 72 3e 2e  54 72 61 6a 65 63 74 6f  |ie$Dir>.Trajecto|
00000590  72 79 2e 58 41 6e 69 6d  22 0d 02 3a 1f d5 23 41  |ry.XAnim"..:..#A|
000005a0  25 2c 22 41 52 4d 6f 76  69 65 20 54 72 61 6a 65  |%,"ARMovie Traje|
000005b0  63 74 6f 72 79 20 31 22  0d 02 44 27 d5 23 41 25  |ctory 1"..D'.#A%|
000005c0  2c 22 41 6e 69 6d 61 74  65 64 20 73 70 6c 69 74  |,"Animated split|
000005d0  2d 75 70 20 6f 66 20 41  52 4d 6f 76 69 65 22 0d  |-up of ARMovie".|
000005e0  02 4e 20 d5 23 41 25 2c  22 31 32 2e 35 20 73 74  |.N .#A%,"12.5 st|
000005f0  65 70 73 20 70 65 72 20  73 65 63 6f 6e 64 22 0d  |eps per second".|
00000600  02 58 14 d5 23 41 25 2c  22 34 37 20 73 68 61 70  |.X..#A%,"47 shap|
00000610  65 73 22 0d 02 62 10 e3  73 63 61 6c 65 25 3d 31  |es"..b..scale%=1|
00000620  b8 34 37 0d 02 6c 24 d5  23 41 25 2c 28 22 53 70  |.47..l$.#A%,("Sp|
00000630  6c 69 74 73 2e 58 41 6e  69 6d a0 4e ba 22 2b c3  |lits.XAnim.N."+.|
00000640  73 63 61 6c 65 25 29 0d  02 76 05 ed 0d 02 80 17  |scale%)..v......|
00000650  d5 23 41 25 2c 22 39 35  20 69 6e 73 74 61 6e 63  |.#A%,"95 instanc|
00000660  65 73 22 0d 02 8a 10 d5  23 41 25 2c 22 30 2c 30  |es".....#A%,"0,0|
00000670  3a 30 22 0d 02 94 13 e3  69 6e 73 74 61 6e 63 65  |:0".....instance|
00000680  25 3d 30 b8 34 37 0d 02  9e 1c d5 23 41 25 2c 28  |%=0.47.....#A%,(|
00000690  22 30 2c 30 3a 22 2b c3  69 6e 73 74 61 6e 63 65  |"0,0:"+.instance|
000006a0  25 29 0d 02 a8 05 ed 0d  02 b2 16 e3 69 6e 73 74  |%)..........inst|
000006b0  61 6e 63 65 25 3d 34 36  b8 31 88 2d 31 0d 02 bc  |ance%=46.1.-1...|
000006c0  1c d5 23 41 25 2c 28 22  30 2c 30 3a 22 2b c3 69  |..#A%,("0,0:"+.i|
000006d0  6e 73 74 61 6e 63 65 25  29 0d 02 c6 05 ed 0d 02  |nstance%).......|
000006e0  d0 08 d9 23 41 25 0d 02  da 05 e0 0d ff           |...#A%.......|
000006ed