%!PS-Adobe-2.0
%%BoundingBox: 0 0 612 792
%%Pages: 1
%%EndComments
%%Page: 1 1

% tewi5.ps - Don Yang (uguu.org)
%
% 11/23/08


/; {def} def
/: {2 div add} ;
/* {sethsbcolor closepath fill} ;
/? {moveto} ;
/! {closepath clip newpath} ;


/T/E/W/I
{ rand 2 31 exp div } ;
684 ;
504 ;
54 ;

systemdict /Seed known
{
   Seed
}
{
   usertime
}
ifelse srand
9 { I pop } repeat

/l/u/n/a/t/i/c
{curveto} ;
{rlineto} ;
I 240 mul 120 add E div ;
I 360 mul ;
I ;
0.2 ;
18 ;

T T ?
E 0 i
0 W i
E neg 0 i
!

l
l
0 E dup mul W dup mul add sqrt :
{
   /r exch ;
   /x r t mul a add cos 60 mul ;

   0
   360
      360 l r atan div
      ceiling div

   360
   {
      x add /y exch ;

      gsave

      y cos r mul
      T add E :

      y sin r mul
      T add W :

      translate
      x y add rotate
      u u scale

      -50 0 ?
      -33  16  -23  25    0  25 c
       23  25   33  16   50   0 c
       33 -16   23 -25    0 -25 c
      -23 -25  -33 -16  -50   0 c
      !

      -60 60 ?
      120 0 i
      0 -120 i
      -120 0 i
      n 1 0.4 *

      1 1 8
      {
         8 div
         dup

         80 mul -60 add 50 ?
         40 -100 i
         100 0 i
         0 100 i

         n 1
         3 2 roll 0.4 mul 0.4 add *
      } for

      -33 0 ?
      -25  10  -16  15    0  15 c
       16  15   25  10   33   0 c
      0 0 1 *

      grestore
   } for
} for
showpage
%%EOF