XPost: comp.lang.perl.misc, alt.ascii-art.animation   
   From: science@danwin1210.de   
      
   On 9/27/21 03:55, Eli the Bearded wrote:   
   > (Posted and mailed on the off-chance the hotmail address still works.)   
   >   
   > In 2002, Alain  wrote:   
   >> So I'm still looking for the files described below !, especially the   
   >> "vestale.pl" one, maybe somebody still have it ?   
   >>   
   >> QUOTE--------------------------------------------------------------   
   >> From: Alain (alain_s75@hotmail.com)   
   >> Subject: vestale.pl ascii animation   
   >> Newsgroups: comp.lang.perl.misc, alt.ascii-art,   
   >> alt.ascii-art.animation   
   >> View this article only   
   >> Date: 2001-05-25 01:16:59 PST   
   >>   
   >>   
   >> Hello all,   
   >>   
   >> I am looking for an ascii animation that was posted here around 94/95,   
   >> it was in the form of a simple VT file and of a self compressed 3 or 4   
   >> pages perl program.   
   >> The title of the animation was "vestale sous contraintes, exercice   
   >> ludique en courier 10", and the name of the perl program "vestale.pl".   
   >> I am the author of it and somehow I lost the files in the mess of my   
   >> disks !!!   
   >>   
   >> If someone still has it, I would really be greatful if they could   
   >> forward it to me.   
   >> Thanks in advance.   
   >   
   > I've found the script, and have included it in my repo of ASCII art   
   > videos, and C `slowcat` viewer.   
   >   
   > https://github.com/Eli-the-Bearded/vt100-slowcat/   
   >   
   > Just the script:   
   > https://raw.githubusercontent.com/Eli-the-Bearded/vt100-slowca   
   /master/misc-old-code/vestale.pl   
   >   
   > It runs for me, without even needing to slow it down, with modern Perl   
   > on modern computers. I've included a "video" capture that can be played   
   > with slowcat in the repo for reference. The original poster seems to   
   > have used an anonymous remailer, and the video is only credited to "YY".   
   >   
   > #!/usr/bin/perl   
   > $sp_par=0.05;   
   > $esc="\x1B";   
   > $nscreen=$esc."[H\n";   
   > print $esc."[H".$esc."[J\n";   
   > print $esc."[1\n";   
   > if ($ARGV[0] ne '') {$sp_par=$sp_par/$ARGV[0];}   
   > $mv="1 1 0 20 1 2n1 1 2 1 3 2 4 1 5 2 6 1 7 2 8 1 9 2 10 1 11 2 12 1 13 2 14   
   1 1   
   > 5 1 16 3 17 2 18 5 19 3 20 3 21 3 22 3 23 10 22 2 21 1 20 1 19 3 18 2 17 5   
   16 1   
   > 15 1 14 1 2 1 3 2 4 1 5 2 6 1 7 2 8 1 9 2 10 1 11 2 12 1 13 2 14 1 15 1 16 3   
   17   
   > 2 18 5 19 3 20 3 21 3 22 3 23 10n1 1 23 2 24 2 25 2 26 2 27 2 28 2 29 2n1 1   
   29 2   
   >   30 2 31 2 32 2 33 2 34 2 35 2 36 2 37 2 38 2 39 2 40 2 41 2 42 2 43 2 44 2   
   45 2   
   >   46 2 47 2 48 2 49 2 50 2 51 2 52 2 53 2 50 2 49 2 48 2 46 2 45 3 44 3 42 3   
   41 3   
   >   54 3 55 3n4 1 56 1 57 1 56 1 57 1n1 1 55 2 54 2 58 2 59 2 60 2 61 2 62 2   
   41 2n3   
   >   1 39 2 63 2 38 2 37 2 64 2 65 3 66 3 67 3 68 3 69 3 37 2 38 2 39 2n1 1 70   
   15 71   
   >   15n3 1 39 2 63 2 38 2 37 2 64 2 72 3 73 3 74 3 75 3 76 3 37 2 38 2 39 2n1   
   1 77   
   > 2 78 2 79 2 80 2 81 2 82 2 83 2 84 2 85 2n1 1 86 2 87 2 88 2 89 2 90 2 91 2   
   92 2   
   >   93 2 94 2 95 2 96 10n1 1 96 2 97 2 98 2 99 2 100 2 101 2 102 2 103 2 104 2   
   103   
   > 2 102 2 97 2 105 2 106 2 107 2 108 2n3 1 108 2 109 2 110 2n1 1 111 2 112 2n4   
   1 1   
   > 12 2 113 2n1 1 113 2 114 2 115 2 116 2 117 6n1 1 117 2 118 2 119 2 120 2n5 1   
   120   
   >   2 121 2 122 2n6 1 123 2 124 2n3 1 120 2 121 2 122 2n1 1 121 2 120 2 119 2   
   118 2   
   >   117 2n1 2 125 4 117 2n1 1 117 2 126 2 127 2 128 2 129 2 130 2 131 2 132 2   
   133 2   
   >   134 2 135 15n1 1 135 4 136 6 135 6 136 8 137 1 138 10 139 1n1 20 135 20";   
   > #Copyright (c) YA all rights reserved   
   > $bdiff=<<'E';   
   > /*V/+e/,s/-t/.a//l/0e/4s/5o/6u/7s/;c/t/?r/@a/Ai/Bn/Ct/D   
   /Es0I(0JE0Kx0Le0M   
   > r0Nc0Oi0Pc0Qe1!l1"u1#d1$i1%q1&u1'e1()=/C=0o=1p=2y=3r=4i=5g=6h=   
   t=9(=:c=;)==Y=>Y>   
   > MA>Nl>Ol>Qr>Ri?!g?"h?#t?$s?&r?'e?(s?)e?*r?+v?,e?-d}}}/* /+ /, /- /. // /0 /4   
   /5   
   > /6 /7 /; /< /= /> /? /@ /A /B /C /D /E 0I 0J 0K 0L 0M 0N 0O 0P 0Q 1! 1" 1#   
   1$ 1%   
   >   1& 1' 1( =/ =0 =1 =2 =3 =4 =5 =6 =7 =9 =: =; == => >M >N >O >Q >R ?! ?" ?#   
   ?$ ?   
   > & ?' ?( ?) ?* ?+ ?, ?- }}})3/)4|*F_*G_*H_*I_*Jo*Ko*L/*N|,.\,1o   
   2),3),4o,6|-I\-J_   
   > -K\-Lo-Mo-No-Oo-P'/5o/6o/7o/8'0L|0Oo0Po0Qo24'26|27o28o29o3M/3P   
   3Qo3Ro54/56.58.59   
   > o5:o6=_6>_6?_6@_6A_6B_6C_6D_6E_6F_6G_6H_6I^6J_6Ko6L_6M_6N\6O_6   
   _6Q.6R_7!_7"_7#o7   
   > $_7%_7&_7'_7(_7)_7*_7+_7,_7-_7._7/_70_71_72_73_74_75_76_77_78_   
   9_}}},2(,3(3R|5:   
   > 5;\7#/}}},2)29 59 }}},2(3P 3Q }}},3)28 29'}}},2),3(0Q/27 28'29 }}},2(0P   
   }}},2)-P   
   >   0O }}},3)/7 }}},2(-P'/5 }}},2)/6 }}}'I_'J_'K_)0/)3 *L ,2\,3o,6'-P }}}'I   
   'L_)0 )   
   > 1/)4 )5|*N *O|,6 -P/}}})1(,7|}}}'M_)5 )6/*I/*O/,2o,6/,7 -O'-P }}}'J 'K   
   'N_'O_)1   
   > )2/)6 )8/*I(*O *Q/,6 ,7/}}}'L 'M 'N 'O )2_)3_)4_)5_)8 *I/*K/*Lo*O/*Q ,6/,7   
   }}})1   
   > \*Ko*L }}})1 )2 )3 )4 )5 *E_*H/*I *O ,-\,. ,6 -H\-I_-O_/5o/6o/8\0R_1!\}}}*E   
   *F *   
   > G *H ,- -H -I /1/0J/0R 22\2;/4!_4"/}}}0J 0K|22 23\}}})0o)1o*I6*J   
   *Lo*Mo,0:,1_,2   
   > ,3j,5o-K -L|-M|-N /5 /6 0N|}}})/o)1 *H6*I *Jo*M ,/:,0_,1 ,2j,3o,5 -I_-J   
   -K|-M -N   
   > _-O /0//1 0I/0K 0L 21\22_23`24 3R\56 57.58 59.6Q_6R.}}}/7\/8 0K|0P|1!   
   2,_2-_2._2   
   > /_20/21 22 28|2; 3E/4! 4" 6F^6Ho6I_6K_}}}0G.2./22\3E(3G/3M\3R 4!\5./5//54 57   
   58.   
   > 59 5:.5; 5<\6E.6F_6Go6H_6R_7!.7#_7$/7:_}}}).o)0 *G6*H *Io*L ,.:,/_,0   
   ,1j,2o,4 -I   
   >   -J|-L_-N /0 /1//5`/7 0G_0I.0K 0L/0N 0O|0P 0Q 2, 2- 2/ 20 23/26 27|28 3E   
   3G(3H_3   
   > I_3J_3K_3L/3R\4! 58 5: 5;\5< 6G/6N_6O\7!_7#/7$_7: }}}). )/ *G *Ho*J *K ,.   
   ,/6,1o   
   > -H:-I_-J -Kj-Lo-Mo/1 /2|/3|/4_/5 0O 2+)2,_27\5;|}}}*Fo*Go*H *I ,-6,/o,0o,2   
   ,3 -F   
   > :-G_-Hj-Io-Jo-Ko-L -M /0\/1\/2_/3 /4 0G 0H_0J/0L 0M\2+ 2, 2._2//22`26\27 3G   
   3H(3   
   > J)3M`3Q\3R 5. 51/53\56`5:|5; 6E_6G.6H/6I/6N\6O.6R 7!/7#_7:_}}}*Eo*G ,,6,-   
   ,.o,1   
   > -E:-F_-Gj-Ho-K //_0G/0J 2./2/_}}}2//3B_3C_3D_3E_3F_3G/3J_5)/}}}*Do*F ,+6,,   
   ,-o,0   
   >   -D:-E_-Fj-Go-J //\/1_/2 0G 0H'3B 3C 3D 3E 3F 5) 5*_5+_5,_5-_   
   ./6C(}}}6C/}}}6B-6   
   > C(}}}2))2*-3D\5* 5+ 5, 5-\6B_6C_}}}*D *Fo,+ ,,6,- ,0o-D -E:-F_-Gj-Jo//   
   /1\/2_0A-   
   > 0B(2) 2* 2+\3D 3F\5- 5. }}}*E *Go,, ,-6,. ,1o-E -F:-G_-Hj-Ko0A 0B   
   0E-0F(0H_0I 0J   
   > /2+ 2.|3F 3G 3J.}}}/+-/,(0E 0F|}}}-D--E(/+ /, /-|0F 0G|2. }}}*Eo*G ,,6,-   
   ,.o,1 -   
   > E:-F_-Gj-Ho-K /- //_0G/0I.0J 2./2/_3J)}}}*E *Go,, ,-6,. ,1o-D    
   E--F:-G_-Hj-Ko/0|   
   > /1|}}},-o,.o,/ ,0u,1 -E -Fo-Go-Ho-Ig-J_-K:-L-}}}// /0_/2|/3_0G 0I/0M   
   0N\2._2//20   
   > _26|3H/3I 3J_3K)53/6L/}}}23 24/3L 3M/53\54/6L_6M/}}}*F *Ho,- ,/o,0 ,1u-F   
   -Io-Jg-   
   > K_-L:-M-0N 0O\24 25)26/27|3M`3O/54 56/6M_6O/}}}*G *Io,. ,0o,1 ,2u-G   
   -Jo-Kg-L_-M:   
   > -N-/0 /1_/3|/4_0O 0P|25*26)27/3O 3P/56 57/}}})/o)0o*Ku,1o,2g,3_,4:,5--H -I   
   -J_-K   
   > |-L|-M -N_/1//2 /3 /4 /8\0H.0I_0J/0K(0L*0P*0Q)0R|22 23\25 26 27 29/3M   
   3N\3O_3P_3   
   > Q 3R/56(57 5: 5;|6O_6R_7! 7"/7;_}}})/ )0 *H *I *Jo*Ko,/ ,0 ,2o,3 ,4u,5   
   -Jo-Ko-Lo   
   > -Mg-O:-P-/1 /2_/3|/4|/6_/8 29 2:|3O 3P 3R\4#\56 5>\5?_5@_7; }}}*J *K   
   *Lo*Mo,1 ,2   
   >   ,3o,4o,6u-J -K -Mo-No-Og-P_-Q:-R-/2 /3 /4_/5|/6|/8_0J 0K 0L/0P 0Q 0R   
   1!|25(26*2   
   > :*2;)3R 4!/4# 4$\5> 5?\5A_}}}1!\2<\4$ 4%\4&_4'_4(_4)_5? 5@ 5A 5D\}}}*L *M   
   *No*Oo   
      
   [continued in next message]   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)