These went on the back of a pair of "I *HEART* PERL" shirts
I made. I was working with the knowledge that any character in the
english alphabet could be represented with only 5 bits.
first:
$e="\e[";for$r(0..62){for(0..11){($z,$y,$x,$s,$c)=(31&(620
,5586,14053,496)[$_/3]>>5*($_%3),(7-($r/5))*($_%3-1),(11-
($r/3))*(int($_/3)-2),sin(3-$r/10),cos(3-$r/10));print$_?
"":$e."2J",$e,10-int($s*$x-$c*$y),";",40-int($c*$x+$s*$y)
,H=>chr$z+($z?96:10)}select'','','',(30-$r)?.1:1}
second:
$|=1;$e="\e[";for$f(0..80){for(0..23){
$a=abs($f+$_-50)-11;($b,$c,$d)=(4+($_%
3)+1*($a>0?$a:0),40+(int($_/6)*2+(($_%
6)>2?1:0)-4)*($a>0?int($a/2)+1:1),31&(
34324480,653283109,522247848,134400022
)[$_/6]>>5*($_%6));print$_?"":$e."2J",
$b<23?$e."$b;$c\H".chr($d?$d+96:0):''}
select'','','',(38-$f)?.1:1}
erik schorr
911
Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
Read Where should I post X? if you're not absolutely sure you're posting in the right place.
Please read these before you post! —
Posts may use any of the Perl Monks Approved HTML tags:
- a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
| |
For: |
|
Use: |
| & | | & |
| < | | < |
| > | | > |
| [ | | [ |
| ] | | ] |
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.