%!PS-Adobe-2.0
%%BoundingBox: 0 0 406 406
%%Pages: 1
/pisgah
{
  /wid   exch def
  /alt   exch def
  /basey exch def
  /basex exch def
  .75  1 .75  setrgbcolor
  1 setlinecap
  1 setlinejoin
  basex wid sub basey moveto
  basex basey alt add lineto
  basex basey lineto
  fill
  .50 .75  .50 setrgbcolor
  basex basey moveto
  basex basey alt add lineto
  basex wid add basey lineto
  fill
  basex wid sub basey moveto
  basex basey alt add lineto
  basex wid add basey lineto
  stroke
} def
/tree
{
  /height exch def
  /basey  exch def
  /basex  exch def
   .50 .25 .25 setrgbcolor
  1 setlinecap
  1 setlinejoin
  basex height 20 div add basey moveto
  basex basey height add lineto
  basex height 20 div sub basey lineto
  fill
    0 .50   0  setrgbcolor
  basex height 3 div sub basey height 4 div add moveto
  basex basey height add lineto
  basex height 3 div add basey height 4 div add lineto
  fill
} def
/sortarray
{
  dup length /Msize exch def
  /Mints exch def
  0  1  Msize  2  sub
  {
    /Ipos exch def
    Ipos 1 add 1 Msize 1 sub
    {
      /Jpos exch def
      Mints Ipos get
      Mints Jpos get
      gt
      {
        Mints dup Ipos get
        Mints dup Jpos get
        Ipos exch put
        Jpos exch put
      } if
    } for
  } for
  Mints
} def
gsave
3 3 translate
2 2 scale
3 setlinewidth
% .6 .85 .95 setrgbcolor
  0 .75   1 setrgbcolor
100 100 100 0 180 arc
fill
gsave
  0 100 200 100 rectclip
 50 100  30  50 pisgah
 80 100  40  60 pisgah
130 100  50  70 pisgah
grestore
%.60   1 .60  setrgbcolor
  .75  1 .75  setrgbcolor
200 100 moveto
100 100 100 180 360 arc
fill
  realtime srand
  rand pop
save
  0   1  15
{
  pop
  rand
  100 mod
} for
  16 array 
  astore
  sortarray
  aload pop
  0   1  15
{
  pop
  dup
  2 ge
  1 index
  90 le
  and
  {
    rand
    200 mod
    1 index
    100 sub
    dup mul
    1 index
    100 sub
    dup mul
    add
    8100 le
    {
      exch
      dup
      -1.28 mul round
      128 add
      tree
    }
    {
      pop
      pop
    }
    ifelse
  }
  {
    pop
  } ifelse
} for
restore
  0   0   0 setrgbcolor
100 100 100 0 360 arc
stroke
grestore
showpage
%%Trailer