PerlMagick/t/ps/input.eps

%!PS-Adobe-2.0 EPSF-2.0
%%Title: congrats.eps
%%Creator: fig2dev Version 3.2 Patchlevel 0-beta2
%%CreationDate: Thu Sep  3 18:27:20 1998
%%For: bfriesen@scooby (Bob Friesenhahn)
%%Orientation: Portrait
%%BoundingBox: 0 0 497 317
%%Pages: 0
%%BeginSetup
%%IncludeFeature: *PageSize Letter
%%EndSetup
%%Magnification: 1.00
%%EndComments
/$F2psDict 200 dict def
$F2psDict begin
$F2psDict /mtrx matrix put
/col-1 {0 setgray} bind def
/col0 {0.000 0.000 0.000 srgb} bind def
/col1 {0.000 0.000 1.000 srgb} bind def
/col2 {0.000 1.000 0.000 srgb} bind def
/col3 {0.000 1.000 1.000 srgb} bind def
/col4 {1.000 0.000 0.000 srgb} bind def
/col5 {1.000 0.000 1.000 srgb} bind def
/col6 {1.000 1.000 0.000 srgb} bind def
/col7 {1.000 1.000 1.000 srgb} bind def
/col8 {0.000 0.000 0.560 srgb} bind def
/col9 {0.000 0.000 0.690 srgb} bind def
/col10 {0.000 0.000 0.820 srgb} bind def
/col11 {0.530 0.810 1.000 srgb} bind def
/col12 {0.000 0.560 0.000 srgb} bind def
/col13 {0.000 0.690 0.000 srgb} bind def
/col14 {0.000 0.820 0.000 srgb} bind def
/col15 {0.000 0.560 0.560 srgb} bind def
/col16 {0.000 0.690 0.690 srgb} bind def
/col17 {0.000 0.820 0.820 srgb} bind def
/col18 {0.560 0.000 0.000 srgb} bind def
/col19 {0.690 0.000 0.000 srgb} bind def
/col20 {0.820 0.000 0.000 srgb} bind def
/col21 {0.560 0.000 0.560 srgb} bind def
/col22 {0.690 0.000 0.690 srgb} bind def
/col23 {0.820 0.000 0.820 srgb} bind def
/col24 {0.500 0.190 0.000 srgb} bind def
/col25 {0.630 0.250 0.000 srgb} bind def
/col26 {0.750 0.380 0.000 srgb} bind def
/col27 {1.000 0.500 0.500 srgb} bind def
/col28 {1.000 0.630 0.630 srgb} bind def
/col29 {1.000 0.750 0.750 srgb} bind def
/col30 {1.000 0.880 0.880 srgb} bind def
/col31 {1.000 0.840 0.000 srgb} bind def

end
save
-53.0 352.0 translate
1 -1 scale

/cp {closepath} bind def
/ef {eofill} bind def
/gr {grestore} bind def
/gs {gsave} bind def
/sa {save} bind def
/rs {restore} bind def
/l {lineto} bind def
/m {moveto} bind def
/rm {rmoveto} bind def
/n {newpath} bind def
/s {stroke} bind def
/sh {show} bind def
/slc {setlinecap} bind def
/slj {setlinejoin} bind def
/slw {setlinewidth} bind def
/srgb {setrgbcolor} bind def
/rot {rotate} bind def
/sc {scale} bind def
/sd {setdash} bind def
/ff {findfont} bind def
/sf {setfont} bind def
/scf {scalefont} bind def
/sw {stringwidth} bind def
/tr {translate} bind def
/tnt {dup dup currentrgbcolor
  4 -2 roll dup 1 exch sub 3 -1 roll mul add
  4 -2 roll dup 1 exch sub 3 -1 roll mul add
  4 -2 roll dup 1 exch sub 3 -1 roll mul add srgb}
  bind def
/shd {dup dup currentrgbcolor 4 -2 roll mul 4 -2 roll mul
  4 -2 roll mul srgb} bind def
/$F2psBegin {$F2psDict begin /$F2psEnteredState save def} def
/$F2psEnd {$F2psEnteredState restore end} def
%%EndProlog

$F2psBegin
10 setmiterlimit
n 0 5902 m 0 0 l 9202 0 l 9202 5902 l cp clip
 0.06000 0.06000 sc
% Polyline
7.500 slw
n 1005 600 m 900 600 900 5745 105 arcto 4 {pop} repeat
  900 5850 9045 5850 105 arcto 4 {pop} repeat
  9150 5850 9150 705 105 arcto 4 {pop} repeat
  9150 600 1005 600 105 arcto 4 {pop} repeat
 cp gs col0 s gr 
% Polyline
30.000 slw
n 5415 3735 m 5115 3735 l gs col0 s gr 
% Polyline
n 4335 3720 m 4035 3720 l gs col0 s gr 
/Helvetica-Bold ff 480.00 scf sf
5025 1950 m
gs 1 -1 sc (You can display an image!) dup sw pop 2 div neg 0 rm  col4 sh gr
/Helvetica-Bold ff 480.00 scf sf
5025 1275 m
gs 1 -1 sc (CONGRATULATIONS!) dup sw pop 2 div neg 0 rm  col4 sh gr
/Helvetica-Bold ff 360.00 scf sf
1500 3375 m
gs 1 -1 sc (2\) Use CNTRL-Q key combination) col0 sh gr
/Helvetica-Bold ff 360.00 scf sf
4575 3825 m
gs 1 -1 sc (or) col0 sh gr
/Helvetica-Bold ff 360.00 scf sf
1875 4350 m
gs 1 -1 sc (Depress right mouse button to bring) col0 sh gr
/Helvetica-Bold ff 360.00 scf sf
1875 4875 m
gs 1 -1 sc (up menu and select 'Quit' to continue) col0 sh gr
/Helvetica-Bold ff 360.00 scf sf
1875 5325 m
gs 1 -1 sc (tests.) col0 sh gr
/Helvetica-Bold ff 360.00 scf sf
1500 2775 m
gs 1 -1 sc (1\) Move mouse cursor into this window.) col0 sh gr
$F2psEnd
rs