%!PS-Adobe-2.0 EPSF-1.2 %%Creator:NRWagner %%Title:puzzleletter.eps %%Origin:0 0 %%BoundingBox: 0.000 0.000 500.000 220.000 %%EndComments gsave % First, colors /depth 0 def /maxdepth 2 def /down {/depth depth 1 add def} def /up {/depth depth 1 sub def} def /eps {.03} def /del {.12} def %was .08 /r {75} def /x1 { 3 sqrt 3 div r mul} def /y1 { 1 3 div r mul} def /y2 { 2 3 div r mul} def /thirdminuseps { 1 3 div eps sub r mul} def /thirdpluseps {1 3 div eps add r mul} def /oneminusdel { 1 del sub r mul} def /y3 { oneminusdel dup mul thirdminuseps dup mul sub sqrt} def /theta { thirdminuseps y3 atan} def /xorg {8.5 72 mul 2 div} def /yorg {11 72 mul 2 div} def realtime srand /random { rand 2147483647 div } def /mycolor {random random random random dup mul} def /wheel { %%% assumes center at 0 0 newpath %random 0.5 le %{ 180 rotate} if random 6 mul round 60 mul rotate 0 0 r 0 360 arc 1 setgray gsave fill grestore 0 setgray %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% mycolor setcmykcolor %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% stroke 0 setgray newpath 0 1 2 { x1 y1 thirdminuseps -60 -150 arcn 0 0 thirdpluseps 30 90 arc 0 y2 thirdminuseps -90 -180 arcn 0 0 oneminusdel 90 theta add 150 theta sub arc 120 rotate } for closepath %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% mycolor setcmykcolor %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% fill %% put in a white dot newpath r 0.785 mul 0 r 0.065 mul 0 360 arc %was 0.8 and 0.06 1 setgray fill 0 setgray } def /logo { gsave 1 3 div eps sub 1 3 div eps sub scale down depth maxdepth le { %gsave % 0 0 translate % wheel logo %grestore gsave x1 1 3 div eps sub div y1 1 3 div eps sub div translate wheel logo grestore gsave 0 y2 1 3 div eps sub div translate wheel logo grestore gsave x1 1 3 div eps sub div neg y1 1 3 div eps sub div translate wheel logo grestore gsave x1 1 3 div eps sub div neg y1 1 3 div eps sub div neg translate wheel logo grestore gsave 0 y2 1 3 div eps sub div neg translate wheel logo grestore gsave x1 1 3 div eps sub div y1 1 3 div eps sub div neg translate wheel logo grestore } if up grestore } def 314158 srand 3 3 scale %% -70 -680 translate %% xorg 225 sub 1 div yorg 300 add 1 div translate 100 100 translate wheel logo grestore