Skip to content

Instantly share code, notes, and snippets.

@rupl
Created May 20, 2015 05:16
Show Gist options
  • Save rupl/03c23901a64fe3b4d0ff to your computer and use it in GitHub Desktop.
Save rupl/03c23901a64fe3b4d0ff to your computer and use it in GitHub Desktop.
ASCII art of Saturn that creates an ASCII animation of Saturn. Original author unknown.
#!/usr/bin/perl
;;;;;;
;;;;;;;;;;;
;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;
+$I=sub{+s+^+ ;;;;;;; ;;;;;;;;;
$"x$_[1]+gem;$/x$_# ;;;; ;;;;;;;;
[0].$_.$/};$W=sub{$~=!q~ ;;;;;;;
~.pop();system($^O=~Win?ClS:# ;;;;;;;
'clear'),print,select$Z,$Z,$Z,!" ;;;;;;
"||$~for@_};$H=sub{+join$/,map($_# ;;;;;;
x$_[0],pop=~m-.+-g),!_};$_=!Mima,s-- ;;;;;
"@{['=9+)w'^RINGS]}\%;local@{[Saturn^# ;;;;;
wNXIBP]}"-see;s-^#!..+?$/(?=$"+;)--is ;;;;
y-;-'-;s-\w-~-gi;$S=$_;#--Beautiful] ;;;;
@S=m-.+-g;$N=1+.6-!th_,$--=-82-$--- ;;;
$_.=$"x-(y---c-$-)for@S;$R=sub{$i# ;;; -d
=0;join$/,map{$j=$%;join!_,grep# ;;; Rhea
!($j++%$_[$%]),m-.-g}grep!($i# ;;; -Titan
++%$_[0]),@S};$L=join!_,map# ;;; -Huygens
~~reverse.$/,@S;@R=(&$I(q- ;;; -&&20,051,
$_=_^q-q-),&$I(20,41-!q- ;;; -,$_=F|K),$
I->(15,31,$_=&$R(4-!q- ;;; -)),&$I(13-!"
;;",28,$_=&$R(3)),&${ ;;; _^_^I}(10,20-!"
;;;;;",$_=$R->(2)),q- ;;; -&&$S);@O=map&{"
;;;;;; "&&$H}($_,&${ ;;; R.!-_}($_))x$_,!"
;;;;; "+2..2*~~2 ;;; @Y=reverse@R#Dione
;;;;;; &${m-- ;;; S|A|T|U}(@R,$N)||!q-
;;;;;;; b- ;;; &$W(@O[0,1,2,1,0!=!q-
;;;;;;; ;;;; -],!1!~~1);&$W($S.!q-
;;;;;;;;; ;;;;; -,$L,0.16)for$%..5+!q-
;;;;;;;;;; ;;;;;;;;; Cassini-;&{$W||q-
;;;;;;;;;;;;;;;;;;;;;; -}(@Y,1.6)
;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;
;;;;;;;;;;;
;;;;;;
@mrmuskrat
Copy link

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment