Last change
on this file since 190 was
181,
checked in by nanardon, 16 years ago
|
- add bestever.pl as external source
|
File size:
939 bytes
|
Rev | Line | |
---|
[181] | 1 | /;{}def/#{def}def/$_={/Times-Bold exch selectfont}#/_{rmoveto}#/"{dup}#/*/!/$ |
---|
| 2 | ;/q{exch}#/x ; {/J q #}#/.{/T q #}#{stringwidth}#{}#{}# 14 string dup dup dup |
---|
| 3 | 260 40 moveto 90 rotate ; %/}};$0='"\e[7m \e[0m"';@ARGV=split//,reverse |
---|
| 4 | q(ThePerl). q(Journal) x 220 ; q ; 0 T putinterval exch 7 J putinterval ; |
---|
| 5 | ; $_= q /m$ pop T($*!$"=!$ " )pop " * true% ? $ " $!" " !! !! % !" !" ! |
---|
| 6 | ! charpath {!"""}pop $ pop{""!}pop ! neg{!#}pop 220 ! neg _{!!}pop J false %T |
---|
| 7 | charpath clip " pop 0 " moveto 6{!!}pop $_= 105{!!}pop {$ ! $ " ! #! ##} |
---|
| 8 | pop{dup dup $ ! " pop pop q{"}pop 22{dup show}repeat {"}pop q 22 mul{$ "} pop |
---|
| 9 | neg{!#! $ "}pop ! 8 .65 mul{$ # # $}pop ! neg{"}pop _ pop{"}pop } repeat pop |
---|
| 10 | " { $ " ! ! ! $ " ! !" "#" #"!"""""! #" " # "m/;@ARGV=(@ARGV[-14..-1])x50;q} |
---|
| 11 | 0 "%};s/m[ou]|[-\dA-ln-z.\n_{}]|\$_=//gx;s/(.)(?{$*=''})/('$*.='.(++$# |
---|
| 12 | %2?'':"$0;").'pop;')x(ord($1)-31).'$*'/gee;s/((.(\e\[.m)*|.){77})/$1\n/g;print |
---|
| 13 | ; sub showpage {} |
---|
| 14 | |
---|
Note: See
TracBrowser
for help on using the repository browser.