%!
/T/E/W/I/_ /+{%
def }def /;{ exec}+
/' /&{ repeat}+{; add
}+ /|{;{div};}+/" {;
() pop mul}+/@ {2
{ exch{;};} &}
+{ closepath }+/!{_ clip
{ newpath};}+ {rand{2}{31}
@{ exp} |}+/*{;{sethsbcolor}; _{fill};}+/:{;
2{ |}'}+/l/u/n/a/t/i/c{10}{7}@ roll{684}+{504}+{54
} +{systemdict};/Seed known{Seed}{realtime}ifelse()
pop srand/?{@ moveto}+{6{{6}{5}@ roll ;}& curveto}+{9};
{I{pop };}&{@ rlineto}+ I{240}"{ 120.}'{E}| +{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} :{/${ {}; exch}+/r{$};{; def
};/x{ r};{t}"{a}'(' zu n) pop cos{60}"{+{0}}; {
6{60 }"}@{360}; {l}{ r}@{ {} ; atan}|{ceiling
}|/z {gsave }+ 360 {;{x} '/y ${+ z};
{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}{
90 cos}i{.0}{-120}i {-120}{ 0}i{n}{1}@{.4}*
1{1 }{8}@{{8}| dup{80}" {-60}'{50% 2008
}?{40}{-100}i{100.}{0}i{0}{ %(c)omoikane ++
100}i n 1{3}{2}@ roll{.4}"{0.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
|