%!PS-Adobe-3.0 EPSF-3.0

%%BeginProlog

%-------- Define Constants ---------------------------------------------------------
/dpi 600 def 			%define dpi printer
/ipd 1 dpi div def 		%define inches per dot (1 dot = 0.00166... inch)
/ppd 72 ipd mul def 		%define pts per dot (1 dot = 0.12 pt)
/mmpd ipd 25.4 mul def		%define mm per dot
/micrompd ipd 25400 mul def	%define micrometers per dot

/fsize 12 def			%define fontsize
/n 20 def			%define n


%-------- Define Procedures --------------------------------------------------------
/sshow {20 string cvs show} def		%define show variable as string


/newline				%define newline funtion using current vertical position
{/vpos vpos fsize 2 add sub def
75 vpos moveto } def
/vpos {currentpoint exch pop} def	%define vertical position

/ssfont {/Helvetica fsize selectfont} def

/pmu {/Symbol fsize selectfont 	%define show greek letter mu in standard fontsize
(m) show ssfont} def



%%EndProlog
%-------- Begin Program ------------------------------------------------------------


% --set font--
ssfont


% --box on top--
1 setlinewidth
newpath
60 780 moveto
535 780 lineto
535 700 lineto
60 700 lineto
closepath
stroke

newpath
75 780 16 sub moveto
(Printer properties - Testpage for microscope experiment) show newline
(Printer resolution: ) show dpi sshow ( DPI) show newline
(1 dot = ) show ppd sshow ( points) show newline
(1 dot = ) show mmpd sshow (mm) show newline
(1 dot = ) show micrompd sshow pmu (m) show

75 780 16 sub moveto
200 fsize 2 add neg rmoveto (Printer model: HP Deskjet F380) show
275 750 fsize 2 add sub moveto (1 point = ) show 1 72 div 25.4 mul sshow (mm) show


% ----- create points ---------------------

1 setlinecapexi

% 2 * dpi scale

ppd 2 mul setlinewidth
0 1 60 {
5 mul 75 add 620 moveto
0 0 rlineto stroke
} for
380 620 moveto (2*dpi; dotsize = )show micrompd 2 mul sshow pmu (m) show


% 1 * dpi scale


ppd setlinewidth
0 1 60 {
5 mul 75 add 600 moveto
0 0 rlineto stroke
} for
380 600 moveto (1*dpi; dotsize = )show micrompd sshow pmu (m) show



% 0.5 * dpi scale

ppd 2 div setlinewidth
0 1 60 {
5 mul 75 add 580 moveto
0 0 rlineto stroke
} for
380 580 moveto (0.5*dpi; dotsize = )show micrompd 2 div sshow pmu (m) show



% -- dots&lines --
newpath
1 setlinewidth
75 505 moveto 300 505 lineto stroke
newpath 75 492 moveto 300 492 lineto stroke



ppd setlinewidth
0 1 60 {
1 mul 75 add 500 moveto
0 0 rlineto stroke
} for
135 500 moveto 300 500 lineto stroke


ppd 2 div setlinewidth
0 1 60 {
1 mul 75 add 499 moveto
0 0 rlineto stroke
} for
135 499 moveto 300 499 lineto stroke


ppd 4 div setlinewidth
0 1 60 {
1 mul 75 add 498 moveto
0 0 rlineto stroke
} for
135 498 moveto 300 498 lineto stroke


ppd 8 div setlinewidth
0 1 60 {
1 mul 75 add 497 moveto
0 0 rlineto stroke
} for
135 497 moveto 300 497 lineto stroke




% -- dots close together --

newpath
1 setlinewidth
75 405 moveto 300 405 lineto stroke
newpath 75 392 moveto 300 392 lineto stroke


/d1 ppd 2 mul def
ppd setlinewidth
0 1 240 {
ppd 2 mul mul 75 add 400 moveto
0 0 rlineto
0 d1 rmoveto 0 0 rlineto stroke
} for
135 400 moveto 300 400 lineto stroke

/d2 ppd def
ppd 2 div setlinewidth
0 1 480 {
ppd mul 75 add 399 moveto
0 0 rlineto
0 d2 rmoveto 0 0 rlineto stroke
} for
135 399 moveto 300 399 lineto stroke


/d3 ppd 2 div def
ppd 4 div setlinewidth
0 1 960 {
ppd 2 div mul 75 add 398 moveto
0 0 rlineto
0 d3 rmoveto 0 0 rlineto stroke
} for
135 398 moveto 300 398 lineto stroke



/d4 ppd 4 div def
ppd 8 div setlinewidth
0 1 1920 {
ppd 4 div mul 75 add 397 moveto
0 0 rlineto
0 d4 rmoveto 0 0 rlineto stroke
} for
135 397 moveto 300 397 lineto stroke


showpage

%EOF