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

% udonge4.ps - Don Yang (uguu.org)
%
% 11/21/08


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

/Margin 54 def
/Width 504 def
/Height 684 def
/SpriteSpacing 20 def
/SpriteScale 0.8 def

/Rand { rand 2 31 exp div } bind def

/Brightness 0.6 def
/StepCount 8 def

/Hue1 /XPhase /XPeriod /Hue2 /YPhase /YPeriod
2
{
   Rand 240 mul 120 add Width div def
   Rand 360 mul def
   1 Rand 0.3 mul sub def
} repeat
/Hue1 Hue1 0.3 sub def

0 SpriteSpacing Height
{
   /y exch def
   /sy y YPhase add YPeriod mul sin def

   0 SpriteSpacing Width
   {
      dup
      XPhase add XPeriod mul sin
      sy add 2 add 4 div 360 mul

      gsave
      exch y translate
      Margin Margin translate
      rotate
      SpriteScale SpriteScale scale

      -10 5 moveto
      4 5 lineto
      10 0 lineto
      4 -5 lineto
      -10 -5 lineto
      closepath clip newpath

      Hue1 1 Brightness sethsbcolor
      -11 6 moveto
      0 6 lineto
      0 -6 lineto
      -11 -6 lineto
      closepath fill

      Hue2 1 Brightness sethsbcolor
      0 6 moveto
      11 6 lineto
      11 -6 lineto
      0 -6 lineto
      closepath fill

      1 1 StepCount
      {
         StepCount div
         dup Hue2 Hue1 sub mul Hue1 add 1 Brightness sethsbcolor

         10 mul -8 add dup
         6 moveto
         10 6 rlineto
         0 -12 rlineto
         -6 lineto
         closepath fill
      } for

      0 0 1 sethsbcolor
      -8.5 3.5 moveto
      3 3.5 lineto
      7 0 lineto
      -8.5 0 lineto
      closepath fill

      grestore
   } for
} for
showpage
%%EOF