plasma: perl -e 'for $t(0..1000){$t*=-.10;print "\n" x 20;for $y(-25..25){for $x(-60..60){print (sin($y*$x*.010+$x*$x*.001+$t) > 0.9 ? "x" : " ")}print "\n";}`sleep 0.01`}' fade sqaure perl -e '@a=(" ",".","o","0");for $t(0..1000){$t*=-.088;print"\n"x20;for$y(-25..25){for$x(-60..60){print $a[int abs(4*sin($y*y*.002+$x*$x*.001+$t))]}print"\n";}`sleep 0.05`}' color plasma morph perl -e '@a=("\e[30;40m ","\e[31;40m.","\e[32;40mo","\e[33;40m0"); for $t(0..1000){$t*=-.010;print"\n"x20;for$y(-25..25){for$x(-60..60){print $a[int abs(4*sin($y*$x*.002+$y*$x*.001+$t))]}print"\n";}`sleep 0.05`}' perl -e '@a=("\e[30;40m ","\e[31;40m.","\e[32;40mo","\e[33;40m0"); for $t(0..1000){$t*=-.010;$o="\n"x20;for$y(-25..25){for$x(-60..60){print $o.$a[int abs(4*sin($y*$x*.002+$y*$x*.001+$t))]}$o.="\n";}`sleep 0.05`}' plasma wave crash perl -e '@a=("\e[30;40m ","\e[31;40m.","\e[32;40mo","\e[33;40m0");for $t(0..10){$t*=-.010;print"\n"x20;for$y(-15..15){for$x(-30..30){print $a[int abs(8*sin(sqrt(($x-$t/2.0)*($x-$t/2.0)+($y-256/2.0)*($y-256/2.0))/2.0))]}print"\n";}`sleep 0.05`}' plasma Kanji perl -e '@a=("\e[30;40m ","\e[31;40m.","\e[32;40mo","\e[33;40m0");for $t(0..1000){$t*=-.010;print"\n"x20;for$y(-15..15){for$x(-30..30){print $a[int abs(4*sin(sqrt(($x*$y-$t/2.0)*($x*$y-$t/2.0)+($y-256/2.0)*($y-256/2.0))/2.0))]}print"\n";}`sleep 0.05`}' plasma small perl -e '@a=("\e[30;40m ","\e[31;40m.","\e[32;40mo","\e[33;40m0");for $t(0..1000){$t*=-.010;print"\n"x20;for$y(-7..7){for$x(-15..15){print $a[int abs(4*sin(sqrt(($x-$t/2.0)*($x-$t/2.0)+($y-$t/2.0)*($y-$t/2.0))/2.0))]}print"\n";}`sleep 0.05`}' plasma grid perl -e '@a=("\e[30;40m ","\e[31;40m.","\e[32;40mo","\e[33;40m0");for $t(0..100){$t*=-.080;print"\n"x20;for$y(-25..25){for$x(-260..60){print $a[int abs(4*sin(10+($y*sin($x/8.0)))/2.0)]}print"\n";}`sleep 0.05`}' Texty perl -e '@c=("\e[30;40m","\e[31;40m","\e[32;40m","\e[33;40m");@a=("N","e","u","T","e","K");for$t(0..100){print"\n"x2;for$d(0..3){for$x(-60..60){print $c[$d].$a[int abs(4*sin(10+($t*sin($x/8.0)))/2.0)]}}print"\n";`sleep 0.07`}' Light House perl -e 'use Math::Trig;for$t(0..1000){$t*=-.2;print"\n"x20;for$y(-25..25){for$x(-60..60){print (cos($t+atan(($x?$x:0.1)/($y?$y:0.01)))>0.99?".":" ")}print"\n";}`sleep 0.1`}' TheCentrifuge logo perl -e '@a=([0,0,-2,3], [0,0,-2,-3], [0,0,3.606,0]);@b=([0,1.803,0], [0,3.606,0], [0,-2,-3], [1,-1,1.5], [1,-2,3], [1,3.606,0], [2,-1,-1.5], [2,-2,-3], [2,-2,3]);for(@b){push @a, [$a[$_->[0]][0]+$_->[1],$a[$_->[0]][1]+$_->[2],$a[$_->[0]][2]+$_->[1],$a[$_->[0]][3]+$_->[2]]};for $x(-20..20){for $y(-60..60){print (x($y/10,$x/5)?".":" ")}print "\n"};sub x{for (@a){next if (($_[0]-$_->[0])*($_[0]-$_->[2])>0.1||($_[1]-$_->[1])*($_[1]-$_->[3])>0.1);return 1 if (abs(($_->[2]-$_->[0])*($_->[1]-$_[1])-($_->[0]-$_[0])*($_->[3]-$_->[1]))/((($_->[2]-$_->[0])**2+($_->[3]-$_->[1])**2)**.5)<0.2)}}' The Centrifuge Logo Rotating perl -e '@a=([0,0,-2,3],[0,0,-2,-3],[0,0,3.606,0]);@b=([0,1.803,0],[0,3.606,0],[0,-2,-3],[1,-1,1.5],[1,-2,3],[1,3.606,0],[2,-1,-1.5],[2,-2,-3],[2,-2,3]);for(@b){push@a,[$a[$_->[0]][0]+$_->[1],$a[$_->[0]][1]+$_->[2],$a[$_->[0]][2]+$_->[1],$a[$_->[0]][3]+$_->[2]]};for$t(0..1000){print"\n"x20;for$x(-20..20){for$y(-60..60){print (x($x*cos($t/20)/5-$y*sin($t/20)/15,$x*sin($t/20)/5+$y*cos($t/20)/15)?"x":".")}print "\n"}`sleep 0.08`};sub x{for(@a){next if(($_[0]-$_->[0])*($_[0]-$_->[2])>0.1||($_[1]-$_->[1])*($_[1]-$_->[3])>0.1);return 1 if(abs(($_->[2]-$_->[0])*($_->[1]-$_[1])-($_->[0]-$_[0])*($_->[3]-$_->[1]))/((($_->[2]-$_->[0])**2+($_->[3]-$_->[1])**2)**.5)<0.2)}}' Ripp Curl perl -e '@a=("\e[30;40m ","\e[31;40m.","\e[32;40mo","\e[33;40m0"); for $t(0..1000){$t*=-.010;print"\n"x20;for$y(-25..25){for$x(-60..60){print $a[int exp(4*sin($y*$x*.002+$y*$x*.001+$t))]}print"\n";}`sleep 0.05`}' Hyuken perl -e '@a=("\e[30;40m ","\e[31;40m.","\e[32;40mo","\e[33;40m0"); for $t(0..1000){$t*=-.080;print"\n"x20;for$y(-25..25){for$x(-60..60){print $a[int exp(4*sin($y*$y*.002+$x*$x*.001+$t))]}print"\n";}`sleep 0.05`}' Parallax scrolling sky^ground opposites perl -e '@a=("\e[30;40m ","\e[31;40m.","\e[32;40mo","\e[33;40m0"); for $t(0..1000){$t*=-.088;print"\n"x20;for$y(-25..25){for$x(-60..60){print $a[int abs(4*sin((10/($y?$y:0.001))*$x*.1+$t))]}print"\n";}`sleep 0.05`}' Parallax scrolling sky^ground same perl -e '@a=("\e[30;40m ","\e[31;40m.","\e[32;40mo","\e[33;40m0"); for $t(0..1000){$t*=-.088;print"\n"x20;for$y(-25..25){for$x(-60..60){print $a[int exp(4*sin((10/($y?$y:0.001))*$x*.1+($y>0?-$t:$t)))]}print"\n";}`sleep 0.05`}' Parallax spider perl -e '@a=("\e[30;40m ","\e[31;40m.","\e[32;40mo","\e[33;40m0"); for $t(0..1000){$t*=-.088;print"\n"x20;for$y(-25..25){for$x(-60..60){print $a[int exp(4*sin((10/($y?$y:0.001))*$x*.1+($y>0?-$t:$t)))]}print"\n";}`sleep 0.05`}' Double Helix perl -e '$t=1;while($t++){for$x(-25..25){print (cos($x/12-sin($t/8))>.99||cos($x/12-sin(1.2+$t/8))>.99?(sin($x/12-sin($t/16))>.5||sin($x/12-sin(1.2+$t/16))>.5)?"\e[32mx\e[0m":"x":".")}print "\n";`sleep 0.1`}' $y=sin($t);$x=1+2*$t/(3*3.14);0<=$t<=3*3.14; Spiral perl -e 'use Math::Trig;for$t(0..1000){print"\n"x10;for$y(-25..25){for$x(-40..40){print (sin($t/4+($y**2+$y**2)**.5/4+2*atan($x/($x?$y:0.001)))>.9?".":" ")}print "\n"}`sleep 0.1`}' Spiral Inverted (cola) perl -e 'use Math::Trig;for$t(0..1000){print"\n"x3;for$y(-25..25){for$x(-40..40){print (sin($t/4+($y**2+$y*2)**.5/4+2*exp($x/($y?$y:0.001)))>.9?".":" ")}print "\n"}`sleep 0.1`}' Spiral Expanded perl -e 'use Math::Trig;for$t(0..1000){print"\n"x10;for$y(-25..25){for$x(-60..60){$x/=3;print (sin($t/4+($x**2+$y**2)**.3+8*atan($x/($y?$y:0.001)))>.4?".":" ")}print "\n"}`sleep 0.04`}' 0 1 2 3 4 5 6 7 8 9 _ . ' , - \ / | \n perl -e '$z="5f202e272c2d5c2f7c0a";$a="1000981238980048";for(split(//,$a)){print chr(hex substr($z,$_*2,2))}; print"\r\n"' perl -e '$z="205f5f5f202020a7c202e277c2020a7c5f5f2c7c";$a="5f202e272c2d5c2f7c0a";for(0..length($z)/2){$w=substr($z,$_*2,2).":" . index(substr($z,$_*2,2),$a);print"$w\n" if($w)}' perl -e '$a=" ___Æ| .'\''|Æ|__,|";$N=" _____Æ| | |Æ| | | |Æ|_|___|";$e=" ___Æ| -_|Æ|___|";$u=" _ _Æ| | |Æ|___|";$T=" _____Æ|_ _|Æ | |Æ |_|";$K=" _____Æ| | |Æ| -|Æ|__|__|";sub ty{$Ta=shift;$Ta=~s/Æ/\n/g;for(split(//,$Ta)){print $_};print"\n"};ty($N);ty($e);ty($u);ty($T);ty($e);ty($K);print"\r\n"' $a=" ___Æ| .'\''|Æ|__,|"; $N=" _____Æ| | |Æ| | | |Æ|_|___|"; $e=" ___Æ| -_|Æ|___|"; $u=" _ _Æ| | |Æ|___|"; $T=" _____Æ|_ _|Æ | |Æ |_|"; $K=" _____Æ| | |Æ| -|Æ|__|__|"; perl -e '$z="205f5f5f20a7c20202e2027207ca7c5f5f2c207c";$a="5f,20,2e,27,2c,2d,5c,2f,7c,0a";for(0..length($z)/2){print substr($z,$_*2,2).":" . index($a,substr($z,$_*2,2))/2 . "\n"}' ___ | .'| |__,| _____ | _ | | | |__|__| _ _____ _____ _ ____ _____ | |_ | __ | ___ | | _| | | \ ___ | __| | . | | __ -| | _| | --| | . | | | ) | -_| | __| |___| |_____| |___| |_____| |___| |____/ |___| |_____| ___ _____ _____ _ _____ _ _____ _ __ | _| | __| ___ | __| | |_ | | | |_| | | |_| __| | | _| | __| | . | | | | | | | | | | |- -| | | | | | |_| |__| |_ | |_____| |_|_| |__|__| |_| |_____| _| | |_____| |___| |___| _ _____ _ __ _____ _____ _____ | |_ | | | | | | | _____ | | ___ | | | ___ | | | '_| | -| | | | |__ | | | | | | | | | | | | | . | | | | |_,_| |__|__| |_| |_____| |_|_|_| |_|_|_| |_|_| |_|___| |___| |_____| _____ _____ _____ _____ _ _____ ___ | _ | ___ | | ___ | __ | ___ | __| | |_ |_ _| | . | | __| | . | | | | | _| | -| |_ -| |__ | | _| | | | _| |__| |_ | |__ _| |_| |__|__| |___| |_____| |_| |_| |_| |_| |__| _____ _____ _ _ _ __ __ _ _ | | | _ _ | | | _ _ _ | | | | _ _ | | | _ _ | | | | | | | | | | | | | | | | | | | | |_'_| |- -| | | | |___| |_____| \_/ \___/ |_____| |_____| |_,_| |__|__| |_ | |___| __ __ _____ | | | ___ |__ | |_ _| |- _| | __| |_| |___| |_____|