cyberia

#!/usr/bin/perl 
$_=' 
         $q ="\                   47"; wh 
        ile                           ($ ;= 
      $z                +=              .5 ){ 
    %c=           $r=0;$/ ="";whi         le(2 
   0+          $z>($;+=.05)){$c{int$       _+ 2 
  6+         2*($              r+= .0       2) * 
 s          in$                   ;}{1       -$_ 
+1         0+           int        $r*c       o s 
$         ;}         =1for(0.       .1)        }$ 
t        =r         ever se;$        /.        =` 
c        le        ar     `.         "         #! 
/        usr       /bi             n/         pe 
rl       \n\       $_ =$q        \n"          ; 
fo        r$y        (1..20){$c{$_}          { 
$ y       }? $         /.=chop$t            : 
 ($/        . ="                          \4 
 0")         for(0.                    .53)          ; 
   $/.        ="\n"}pri            nt"$/$          q; 
   s; ".         chr(9 2)."s;;g;eval\n           "} 
 
';s;\s;;g;eval

#!/usr/bin/python

import sys, Tkinter
sys.modules['tkinter'] = Tkinter

from Tkinter import *

master = Tk()
text = Text(master, bg="pink")
text.pack()

master.mainloop()