%!PS
/;{def }def
/? { moveto}
;/+ { exec} ;/={
pop }; /!{ lineto};
/*{ }+ {{ closepath}
+{88 8} = sethsbcolor
fill }; { systemdict
}/@ {} + {exch};
/&{{ 8} = repeat}
;/#{; 54 ; 684 ;};
+/Seed /- {.8 ; 20};/|
{{clip } + newpath 11
neg} ; /U/D/O/N/G/E /_{{realtime
}ifelse srand 9{U =}&}; - #
504 ;{rand 2 31 exp div
}; known {Seed
}_/" { mul}
;/- {; 0 G } ; /'{add
};/l /u /n /a /t /i /c 2 /_{2{ rlineto
} };{ U 240 " 60 2. " ' D div ;{U}+ 360 " ;
1 U .3 " sub ;}& /: { closepath | 6{?}+ 0 6 !}; /#{
rotate E E scale};/u{u}+{.3( ) =} + sub(8 )= ;{ 0.6
()=}+ - O{ { /y {}= }+{@}+{; }+ /z y i{' c "}+
sin{-}+ D{dup{ n} + '{a "() =} + sin z ' {2 ' 4 div
}+ 360 "/x { };{ gsave }+ @ y/o{ &{ #}+ -10 5{?
4 5} +{!}+ 10{ 0}+ !} ; N 2 N @ { translate }o{ 4 -5
!}+ -10 -5 !{:}+ 0 -6 !{ 11 neg}+{-6}{} = + !{u
1 l * 0 6.}exec{? 11.0} + 6 lineto{ 11.0%(c)omoikane
6.0 neg }{} exec +{!} + /o { t{1.0{l}+}exec *};% ++2008
/d {@ }; true -6.( 0. )cvi @ lineto{o}+{ (90.)cvi sin{1.0}+}
{ (ZUN) {+ /quit cvx def }forall}ifelse 8{8 div
x dup x 10.{" -8.}+ '{dup }+ x 6.{? 0}+ -12{{10}+}+ 6.0
{_ &}+ -6 {! }+ t{u }+ sub (8)= " u{ ' 1}+{l}+ *}for -8.5 3.5{?
}+ 3{ 3.5 }+ {!}+ 7 0 {!}+ -8.5 0.0 ! 0{0}+{1}+{*}+() grestore
= } for 8 =} for showpage
|