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

% tewi6.ps - Don Yang (uguu.org)
%
% 11/29/08


/+ {def} def
/; {exec} +
/' {; add} +
/" {; mul} +
/: {; 2{div}'} +
/& {repeat} +
/^ {closepath} +
/* {; sethsbcolor ^ fill} +
/@ {2 { exch ; } &} +
/? {@ moveto} +
/! {^ clip newpath} +


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

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

/l/u/n/a/t/i/c
{6 {6 5 roll ;} & curveto} +
{@ rlineto} +
I {240} " {120} ' E div +
I {360} " +
I +
{.2} +
{18} +

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

l
l
0 E {E} " {W {W} "} ' {sqrt} :
{
   /r exch +
   /x r {t} " {a} ' cos {60} " +

   {0}
   {360} @
      360 {l} {r} @ atan div
      ceiling div

   360
   {
      {x} ' /y exch +

      gsave

      y cos {r} "
      {T} ' {E} :

      y sin {r} "
      {T} ' {W} :

      translate
      x {y} ' 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 {.4} *

      1 1 8
      {
         8 div
         dup

         {80} " {-60} ' {50} ?
         {40} {-100} i
         {100} {0} i
         {0} {100} i

         n 1
         3 2 roll {.4} " {.4} {'} *
      } 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