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

% udonge5.ps - Don Yang (uguu.org)
%
% 11/22/08


/; {def} def
/? {moveto} ;
/! {lineto} ;
/* {sethsbcolor closepath fill} ;
/& {repeat} ;


/U/D/O/N/G/E
0.8 ;
20 ;
54 ;
684 ;
504 ;
{ rand 2 31 exp div } ;

systemdict /Seed known
{
   Seed
}
{
   realtime
}
ifelse srand
9 { U pop } &

/l/u/n/a/t/i/c
2
{
   U 240 mul 120 add D div ;
   U 360 mul ;
   1 U 0.3 mul sub ;
} &
/u u 0.3 sub ;
 0.6 ;

0 G O
{
   /y exch ;
   /z y i add c mul sin ;

   0 G D
   {
      dup
      n add a mul sin
      z add 2 add 4 div 360 mul

      gsave
      exch y
      N N
      2 {translate} &
      rotate
      E E scale

      -10 5 ?
      4 5 !
      10 0 !
      4 -5 !
      -10 -5 !
      closepath clip newpath

      -11 6 ?
      0 6 !
      0 -6 !
      -11 -6 !
      u 1 l *

      0 6 ?
      11 6 !
      11 -6 !
      0 -6 !
      t 1 l *

      1 1 8
      {
         8 div
         dup

         10 mul -8 add dup
         6 ?
         0 -12
         10 6 2 {rlineto} &
         -6 !
         t u sub mul u add 1 l *
      } for

      -8.5 3.5 ?
      3 3.5 !
      7 0 !
      -8.5 0 !
      0 0 1 *

      grestore
   } for
} for
showpage
%%EOF