Z<-ANIMATE.D4F
|Ascii animations
|Artwork by jmoon
SZ<-#screen
$FLICKER<-A_SWAP"(){}<>/\'`69"
|$A_DELAY<-100
$A_DELAY<-10000
|Video frame functions
IF 0=#nc "MK_XPM"; Z<-#copy"spiral.df"
Z<-ADD_ALIAS ANIMATE.D4S

Z<-A_SWAP STR
|moving lines
Z<-#av i256;
Z[#av STR]<-,m (((rSTR)%2),2)rSTR

"ANIMATE.D4S"
lda|#copy"animate.d4f" & ANIMATE.D4F
eda|WW.ED"animate.d4f ", ARGS
test|WALK m $FLICKER[#av JMOON.SHRUG]
walk|SCENE m $FLICKER[#av JMOON.SHRUG]
sail|SAIL m $FLICKER[#av JMOON.SHIP]
horizon| 22 T_LINE #fi ARGS

"A.HELP"
    ASCII ANIMATIONS
    Scroll a wide background
    Flicker the moving object.
    (jmoon artwork: ship, shrug)

"JMOON.SHRUG"
   //// ||
    O-O--=
   ( ^ _/\_
   /\~-\/  \
  /|`/ _ \_ \
 / | : U_/  /
 \(__:__ \_/
   =@=====
  |       |
 /   |   |
/   /|   |
|  | |  |
|__| |__|
/#_)  |#\

"BRIDGE.JGS"
                                         ^^
    ^^      ..                                       ..
            []                                       []
          .:[]:_          ^^                       ,:[]:.
        .: :[]: :-.                             ,-: :[]: :.
      .: : :[]: : :`._                       ,.': : :[]: : :.
    .: : : :[]: : : : :-._               _,-: : : : :[]: : : :.
_..: : : : :[]: : : : : : :-._________.-: : : : : : :[]: : : : :-._
_:_:_:_:_:_:[]:_:_:_:_:_:_:_:_:_:_:_:_:_:_:_:_:_:_:_:[]:_:_:_:_:_:_
!!!!!!!!!!!![]!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!![]!!!!!!!!!!!!!
^^^^^^^^^^^^[]^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^[]^^^^^^^^^^^^^
            []                                       []
            []                                       []
            []                                       []
 ~~^-~^_~^~/  \~^-~^~_~^-~_^~-^~_^~~-^~_~^~-~_~-^~_^/  \~^-~_~^-~~-
~ _~~- ~^-^~-^~~- ^~_^-^~~_ -~^_ -~_-~~^- _~~_~-^_ ~^-^~~-_^-~ ~^
   ~ ^- _~~_-  ~~ _ ~  ^~  - ~~^ _ -  ^~-  ~ _  ~~^  - ~_   - ~^_~
     ~-  ^_  ~^ -  ^~ _ - ~^~ _   _~^~-  _ ~~^ - _ ~ - _ ~~^ -
jgs-----------------------------------------------------------------
   ==========            =============            =======
    ...........           ..............           ........    ...

"JMOON.SEA"
                        *
                                        *
                                                       _
                                                       _
    *                            *                    ((   *
       *                 *                *            ~
                                             *          *
      *                           *
              *
                      *                           *
                                      *                /\
 *                                                    / .\
                                                     /^.  \
                                                   _/.. .. \____
                                                  /. .. . ..    \   __
                                               __/. . .. . .. ^  \_/  |
                                            __/. . .  ... . ...^      |
                                        ___/. ..     . . .. ..^^^ ^ """\
                                   ____/  . . .. . . .. ... . . . ' """ \
................................../......................................
._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._.
_._._._._._._._._._._._._._._._._._._._._jmoon 8/'93_._._._._._._._._._._
._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._.


"JMOON.SHIP"
        ___.
    ___.\__|.__.
    \__|. .| \_|.
    . X|___|___| .
  .__/_||____ ||__.
.  |/|____ |_\|_ |/ _
\ _/ |_X__\|_  |\||~,~{
 \/\ |/|    |_ |/:|`X'{
  \ \/ |___ |_\|_.|~~~
 _|X/\ |___\|_ :| |_.
 |  \:\|     |  |/_/|
 | __\_:____ |  ||o-|
 |/_-|-_|__ \|_ |/--|
 :| -|- o-o\_:_\|o-/:
   \=\====o==o==o=/:
    \_\ ._._._._.:

"TG.JDAM"
 '            ====
   ` ) ' (|____\\_____
`    '  `)|_____+_____>
                \\
                ====

Z<-TXT WAIT N
->(0=#nc"TXT")/AA
TXT #wput 0 0, r:TXT
AA: ->(0<N--)/AA
Z<-""

Z<-WALK X;DZ;M;YX;TMP;XRANGE;TEXT
|Move a sprite
TEXT<-#sstomat "/Artwork:   jmoon/Animation: tgoddard"
M<-,SZ t TEXT
XRANGE<-1+iSZ[1]-2+1dr:X
DZ<-0 1 & Z<-6, 1tXRANGE
AA: |Step
TMP<-M[YX<-(SZbZ)+SZbirX] & M[YX]<-,X
(SZrM) #wput 0 0, SZ
M[YX]<-TMP
X<-$FLICKER[#av X]
WAIT $A_DELAY
Z<-Z+DZ
->(Z[1] #member XRANGE)/AA
DZ<--DZ & X<-mX & ->AA
XX:

Z<-SCENE X;DZ;E;M;YX;TMP;XRANGE;TEXT
|Move a sprite
TEXT<-#sstomat "/Artwork:   jmoon/Animation: tgoddard"
M<-,_2 m SZ t BRIDGE.JGS
XRANGE<-1+iSZ[1]-2+1dr:X
DZ<-0 1 & Z<-6, 1tXRANGE
E<-~,B_DEL X    |Make stencil for silouette
AA: |Step
TMP<-M[YX<-(SZbZ)+SZbirX] & M[E/YX]<-E/,X
(SZrM) #wput 0 0, SZ
M[YX]<-TMP
X<-$FLICKER[#av X]
WAIT $A_DELAY
Z<-Z+DZ
->(Z[1] #member XRANGE)/AA
DZ<--DZ & E<-~,B_DEL X<-mX & ->AA
XX:

Z<-B_DEL X;DZ;E;IX;J;N;N4;T
|Delete boundary YX pairs
N<-r:X & DZ<-DZ, -DZ<-1,1+N[1] & T<-,_1+(1+N)t(rX)r1+ir,X
J<-(T>_1)/irT
N4<-T[(J #outer+DZ) #mod rT]
E<-0=(J f mJ<-iN[0]) #outer f J f mJ<-iN[1] | Edge
Z<-(rE)r0 & E<-E*X=" "  |Bordering blanks
AA: ->(Z #equiv E)/XX
J<-T/irT<-,Z<-E
IX<-(IX>_1)/IX<-,N4[J]
T[IX]++ & E<-E c (rE) r (X=" ")*T>0
->AA
XX:

Z<-SAIL X;DZ;E;M;YX;TMP;XRANGE;TEXT
|Move a sprite
TEXT<-#sstomat "/Artwork:   jmoon/Animation: tgoddard"
M<-,_2 m SZ t JMOON.SEA
XRANGE<-1+iSZ[1]-2+1dr:X
DZ<-0 1 & Z<-5, 1tXRANGE
E<-~,B_DEL X    |Make stencil for silouette
AA: |Step
TMP<-M[YX<-(SZbZ)+SZbirX] & M[E/YX]<-E/,X
(SZrM) #wput 0 0, SZ
M[YX]<-TMP
X<-$FLICKER[#av X]
->(CLOCK 0 70)/XX
Z<-Z+DZ
->(Z[1] #member XRANGE)/AA
DZ<--DZ & E<-~,B_DEL X<-mX & ->AA
XX:

Z<-CLOCK CZ
("##:##:##"z Z<-3d #ts) #wput CZ,1 8
Z<-WAIT $A_DELAY

Z<-SIZE LCA_TILE STR;CNT;KEY;LUT;NC;SEED;TA;X;XI
|Make tile from 1 dimensional cellular automata
SIZE<-20 78 #ifndef "SIZE"
SEED<-"*"; LUT<-".123456789ABCDEF"; KEY<-"011"
STR<-"-lut LUT<-SHIFT|-key KEY<-SHIFT" GETOPTS STR
LUT[(LUT="s")/irLUT]<-" "
CNT<-SIZE[0]
NC<-1+c/XI<-"0123456789ABCDEF"iKEY
X<-SIZE[1]t SEEDiKEY
X<-(SIZE[1]%2)mX
IF "*" #equiv SEED; X<-?SIZE[1]rNC  |random
TA<-""
WHILE 0<CNT--
BREAKIF 0=+/X
X<-(_1mX)+X+1mX
X<-XI[X]
TA<-TA,: LUT[X #mod r LUT]
WEND
IF 0<CNT;Z<-"All Dead" & ->0
Z<-TA

Z<-P B_RW STR;DY;J;SIZE;T;Y
|random walk in bounding box
|Reflecting barriers at 0, NR
P<-1 0 1 #ifndef "P"
SIZE<-2 t J<-PARSE_NUM STR
Y<-SIZE[0]%2
IF 3 = r J; Y<-J[2]
J<-0; Z<-(mSIZE)r" "
WHILE J<SIZE[1]
DY<-_1 0 1 * (Y>0), 0, Y<SIZE[0]-1
DY<-(P/DY)[?+/P]
T<-SIZE[0]r" "
T[Y-DY<=0]<-"/_\"[1+DY]
IF (Y=0) f DY=0; T[0]<-"~"
Z[J++]<-T
Y<-Y+DY
WEND

Z<-SIZE WALL STR;J;LUT;KEY;T;P;Y
|Make ascii wall from fractals -key 01203
KEY<-""; LUT<-"s..o..o"; Y<-SIZE[0]%2
STR<-"-lut LUT<-SHIFT|-key KEY<-SHIFT|-y Y<-#fi SHIFT" GETOPTS STR
Z<-(m SIZE) r" "
IF 0<rKEY; Z<-y SIZE LCA_TILE"-lut ",LUT," -key ", KEY
P<-3 r PARSE_NUM STR; J<-0
WHILE J<SIZE[1]
DY<-_1 0 1 * (Y>0), 0, Y<SIZE[0]-1
DY<-(P/DY)[?+/P]
T<-Z[J]; T[iY]<-" "
T[Y-DY<=0]<-"/_\"[1+DY]
IF (Y=0) f DY=0; T[0]<-"~"
Z[J++]<-T
Y<-Y+DY
WEND

"AS.OPTS"
-bak BAK<-$NL[SHIFT]
-cnt  CNT<-#fi SHIFT
-size SIZE<-PARSE_NUM SHIFT
-o    OFILE<-SHIFT
-obj  OBJ<-$NL[SHIFT]
-st   TXT<-SHIFT
-yx   PYX<-PARSE_NUM SHIFT

Z<-A_SCROLL STR;BAK;CNT;DELAY;FM;I;FL;MA;OBJ;PYX;QT;SIZE;SWAP;YX
|Animate an object against a scrolling background
DELAY<-120
FM<-XPM_GETFONT "../font/font8.bin"
SIZE<-22 37; CNT<-50; Z<-OFILE<-BAK<-OBJ<-TXT<-""; PYX<-6 5
STR<-AS.OPTS GETOPTS STR
IF 0 #equiv rBAK; ->0
QT<-CNT START_SUBTITLE TXT
|Deal with object
YX<-irOBJ; T<- , ~ B_DEL OBJ
YX<-T/:YX; OBJ<-T/, OBJ
YX<-SIZE b YX+:PYX
I<-0
WHILE I<CNT
("####:####" z I,CNT) #wput 0 50 1 9
MA<-SIZE t BAK; BAK<-1mBAK
MA*[YX]<-OBJ<-$FLICKER[#av OBJ]
MA #wput 0 1, SIZE
0 r #sleep 0, 1000 * DELAY
I++
REPEATIF 0 = rOFILE
OFILE #wput 0 60, r: OFILE
MA<-FM TXT2XPM"-src MA"
IF 1 t QT; MA<-MA DO_SUBTITLE QT
Z<-MK_XPM "-var MA -o ",OFILE
OFILE<-INC_DIGITS OFILE
WEND

Z<-WW T_SCROLL TILE;J;M;DELAY
|Scroll a tile in a window
DELAY<-120
Z<-M<-rTILE
WW<-i0 #ifndef "WW"
IF 0=rWW; Z<-#screen; WW <-1 0, M f Z-1 0
J<-0
WHILE J < 1+M[1]-WW[3]
(6zJ) #wput 0 60 1 6
(WW[2 3]tTILE) #wput WW
TILE<-1mTILE
0 r #sleep 0, 1000*DELAY
J++
WEND

"TAJ.OPTS"
-bak BAK<-$NL[SHIFT]
-cnt CNT<-#fi SHIFT
-d   DELAY<-#fi SHIFT
-size SIZE<-SHIFT
-h   NR<-#fi SHIFT
-seq OFILE<-SHIFT
-st  ST<-SHIFT

Z<-TAJARIA STR;BAK;C;CNT;DELAY;DY;FM;I;J;M;NR;MA;OBJ;OFILE;QT;SIZE;ST;T;Y;YX
|Primitive trading animation.
|Reflecting barriers at 0, NR
FM<-XPM_GETFONT "../font/font8.bin"
BAK<- 2 1 r " "
ST<-OFILE<-""
OBJ<-m JMOON.SHIP
QT<-I<-0; CNT<-1200
DELAY<-120
NR<-20
SIZE<-z _1 0 + #screen
C<-1 1 1
STR<-TAJ.OPTS GETOPTS STR
SIZE<-PARSE_NUM SIZE
QT<-CNT START_SUBTITLE ST
IF 0<rSTR; C<-PARSE_NUM STR
|Deal with object
YX<-irOBJ; T<- , ~ B_DEL OBJ
YX<-T/:YX; OBJ<-T/, OBJ
YX<-SIZE b YX+:6, SIZE[1]%5
M<-SIZE r " "
Z<-Y<-NR%2 & DY<-0
WHILE I < CNT
Z<-SIZE[0] t BAK [I #mod 1 t r: BAK]
J<-0 c Y-DY<=0; Z[J]<-"/_\"[1+DY]; Z[iJ]<-" "; Z[2tmirZ]<-" "
Y<-Y+DY
T<-M<-(0 1 d M), y Z
T*[YX]<-OBJ<-$FLICKER[#av OBJ]
|IF (0=rOFILE) c I<SIZE[1] ; T #wput 1 0, rT
T #wput 1 0, rT
("####:####" z I,CNT) #wput 0 50 1 9
0 r #sleep 0,1000*DELAY
DY<-(C/_1 0 1)[?+/C]
IF (NR-1)=Y+DY; DY<-0
IF 0>Y+DY;  DY<-0
I++
REPEATIF (I<SIZE[1]) c 0=rOFILE
OFILE #wput 0 60, r: OFILE
MA<-FM TXT2MAT T
MA<-"F."[MA="x"]
IF 1 t QT; MA<-MA DO_SUBTITLE QT
Z<-MK_XPM "-var MA -o ",OFILE
OFILE<-INC_DIGITS OFILE
WEND

Z<-CNT START_SUBTITLE STR;FNT;LUT;N;YP
|Subtitles
|Export TBAR.BITS
LUT<-"F."; FNT<-"../font/sc.fnt"; YP<-0   | Top
Z<-0; CNT<-300 #ifndef "CNT"
IF 0=rSTR; ->0
Z<-$NL[STR]
STR<-"-lut LUT<-SHIFT|-fnt FNT<-SHIFT" GETOPTS STR<-#deb Z[0]
IF 0<rSTR; YP<-0 < #fi STR
Z<-#deb ," ", Z[1di1tr:Z]
"Z=",Z
0rk
N<-r: TBAR.BITS<-TXT2XPM "-lut ", LUT, " -fnt ",FNT, " ", Z
TBAR.DX <-1+(0 c N[1]-300)%CNT
Z<-N, TBAR.DX, YP

Z<-IMG DO_SUBTITLE PAR;DY;I;M;N;Y
|Set a subtitle
|Global TBAR.BITS
DY<-PAR[3]
M<-r:TBAR.BITS
N<-rZ<-IMG
I<-iM[0]
IF DY>0; I<-I+N[0]-M[0]
Z[I]<-(M[0], N[1])t TBAR.BITS
TBAR.BITS<-PAR[2] m TBAR.BITS  |Scroll TBAR.BITS

"gmi.txt"  << EOF
0 -fnt ../font/sc.fnt -lut .F
HIGHLIGHTS OF BRITISH IMPERIALISM. PIRACY IN THE NAME OF PATRIOTISM.
SLAVE TRADE. TEA TRADE. BOSTON TEA PARTY. PROXY WARS IN SOUTH ASIA.
BENGAL-CHINA OPIUM TRADE. OPIUM WARS. CHURCHILL BACKS OIL TO DRIVE
ROYAL NAVY.
EOF

"jdam-0.txt" << EOF
1 -fnt ../font/alef.fnt -lut F9
JDAM. JOINT DEPLOYMENT ATTACK MUNITION. ROBOTS RUN BY ROBOTS. SAT-NAV.
ROBOT PLANES JOINED THE NATO ASSAULT ON SERBIA 1999 +++
NOWADAYS (2010) ROBOT WEAPONS ARE DEPLOYED IN AFGHANISTAN AND PAKISTAN.
EOF

"jdam-1.txt" << EOF
1 -fnt ../font/alef.fnt -lut F.
ROBOT WARFARE ....
1943-44 NAZIS USE SLAVE LABOUR TO ASSEMBLE V1 BUZZ BOMB
IN UNDEGROUND FACTORIES +++
1999 NATO DEPLOYS DRONES IN KOSOVO +++
2003-2010 ROBOT PLANES DEPLOYED IN AFGHANISTAN AND PAKISTAN +++
EOF

"jd-frac.txt" << EOF
1 -fnt ../font/sc.fnt -lut 9F
FRACTALS LOOK SIMILAR WHEN SHIFTED OR MAGNIFIED. A RANDOM WALK IS
A TYPE OF FRACTAL. THE BINOMIAL COEFFICIENTS CAN BE USED TO GENERATE
A PATTERN SIMILAR TO THE SIERPINSKI FRACTAL. BOTH ARE PRESENT IN
THIS SAMPLE ++++++++++
EOF

"sail.sh" << EOF
H<-y 23 437 LCA_TILE"-key 01203 -lut "" ..o..o"""
TAJARIA"-st gmi.txt -seq asc-000.xpm -bak H -size 23x37 -cnt 437"
convert -delay 12 asc-*.xpm sail-x.mpg
EOF

"jdam.sh"  << EOF
$FLICKER<-A_SWAP "()'`,."
H<-y 23 437 WALL"5 2 5 -key 01203 -lut s`!^|,'`."
Z<-A_SCROLL"-bak H -cnt 400 -size 23x37 -obj TG.JDAM -yx 4,5 -st jdam-0.txt -o jd-0000.xpm"
"convert -delay 12 jd-*.xpm jdam-0.mpg"
EOF