%!PS-Adobe-3.0 EPSF-3.0 OE801-3A.EPS
%%BoundingBox: 70 82 430 360
%START PDFDE011.EPS
/pdfmark13 where {pop} {userdict /pdfmark13 /cleartomark load put} ifelse
/languagelevel where {pop languagelevel} {1} ifelse
2 lt { userdict (<<) cvn ([) cvn load put
userdict (>>) cvn (]) cvn load put} if
[ /Title (PostScript pictures: Image Technology)
/Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1)
/Subject (goto: http://www.ps.bam.de or http://130.149.60.445/~farbmetrik)
/Keywords (image reproduction, colour devices)
/Creator (klaus.richter@mac.com)
/CreationDate (D:2011080112000)
/ModDate (D:2011080112000)
/DOCINFO pdfmark13
[ /View [ /FitB ]
/DOCVIEW pdfmark13
%END PDFDE011
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def /str {8 string } bind def
/languagelevel where {pop languagelevel} {1} ifelse
/PSL12 exch def
/dictende {counttomark 2 idiv dup dict begin {def}
repeat pop currentdict end} bind def
/Times-Roman findfont dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/Times-ISOL1 exch definefont pop
/Times-Italic findfont dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/TimesI-ISOL1 exch definefont pop
/Times-Bold findfont dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/TimesB-ISOL1 exch definefont pop
/Times-BoldItalic findfont dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/TimesBI-ISOL1 exch definefont pop
/TK {250 /Times-ISOL1 FS} bind def
/TM {300 /Times-ISOL1 FS} bind def
/TG {350 /Times-ISOL1 FS} bind def
/TIK {250 /TimesI-ISOL1 FS} bind def
/TIM {300 /TimesI-ISOL1 FS} bind def
/TIG {350 /TimesI-ISOL1 FS} bind def
/TBK {250 /TimesB-ISOL1 FS} bind def
/TBM {300 /TimesB-ISOL1 FS} bind def
/TBG {315 /TimesB-ISOL1 FS} bind def
/TBIK {250 /TimesBI-ISOL1 FS} bind def
/TBIM {300 /TimesBI-ISOL1 FS} bind def
/TBIG {350 /TimesBI-ISOL1 FS} bind def
%***********************************************************
/nshow {300 /Times-ISOL1 FS show} bind def
/kshow {300 /TimesI-ISOL1 FS show} bind def
/bshow {300 /TimesB-ISOL1 FS show} bind def
/jshow {300 /TimesBI-ISOL1 FS show} bind def
/sshow {300 /Symbol FS show} bind def
/ishow {220 /Times-ISOL1 FS -00 -50 rmoveto show 00 50 rmoveto} bind def
/eshow {220 /Times-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto} bind def
/cvishow {0.5 add cvi 6 string cvs show} def
/cvsshow1 {0.05 add 10 mul cvi 0.1 mul 7 string cvs show} def
/cvsshow2 {0.005 add 100 mul cvi 0.01 mul 7 string cvs show} def
/cvsshow3 {0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show} def
%%EndProlog
gsave
/lanind 0 def
/lantex [(G) (E) (S) (N) (I) (J) (M)] def
/showde {0 lanind eq {show} {pop} ifelse} bind def
/showen {1 lanind eq {show} {pop} ifelse} bind def
/showes {2 lanind eq {show} {pop} ifelse} bind def
/showfr {3 lanind eq {show} {pop} ifelse} bind def
/showit {4 lanind eq {show} {pop} ifelse} bind def
/showjp {5 lanind eq {show} {pop} ifelse} bind def
/showm {6 lanind eq {show} {pop} ifelse} bind def
/lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def}
{/lanind1 1 def /lanind2 1 def} ifelse
/colormg where {pop /colorm1 colormg def /colorm2 colormg def}
{/colorm1 0 def /colorm2 0 def} ifelse
/xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def}
{/xcolor1 3 def /xcolor2 3 def} ifelse
/xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def
/xchartd xchartgd def}
{/xchart1 0 def /xchart2 7 def /xchartd 1 def} ifelse
/pchartg where {pop /pchart1 pchartg def /pchart2 pchartg def
/pchartd pchartgd def}
{/pchart1 0 def /pchart2 2 def /pchartd 1 def} ifelse
/lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage
/colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage
/xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage
/xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage
/pchart pchart1 def %pchart1 1 pchart2 {/pchart exch def %output showpage
/GSS$ where {pop /LSS$ GSS$ def}
{/LSS$ (1) def} ifelse
/GSC$ where {pop /LSC$ GSC$ def}
{/LSC$ (N) def} ifelse
/GSX$ where {pop /LSX$ GSX$ def}
{/LSX$ (0) def} ifelse
/GSY$ where {pop /LSY$ GSY$ def}
{/LSY$ (0) def} ifelse
/GEX$ where {pop /LEX$ GEX$ def}
{/LEX$ (P.PS./PDF) def} ifelse
/GEY$ where {pop /LEY$ GEY$ def}
{/LEY$ (P.DAT) def} ifelse
/IMES where {pop %/IMES IMES def
}
{/IMES 0 def} ifelse
/colorml colorm def
%0 1 1 {/colorml exch def %colorml=0,1
/xcolorl xcolor def
%0 1 3 {/xcolorl exch def %xcolorl=0,3
/xchartl xchart def
0 1 7 {/xchartl exch def %xchartl=0,7
/pchartl pchart def
0 1 2 {/pchartl exch def %pchartl=0,2
gsave
xcolorl 0 eq {/tfnx* {0 0 0 1 setcmykcolor} def
/tfwx* {0 0 0 0 setcmykcolor} def
/colrecfix* {setcmykcolor rec fill} bind def
/colrecstx* {setcmykcolor rec stroke} bind def
} if
xcolorl 1 eq {/tfnx* {0 setgray} def
/tfwx* {1 setgray} def
/colrecfix* {setgray rec fill} bind def
/colrecstx* {setgray rec stroke} bind def
} if
xcolorl 2 eq {/tfnx* {1 1 1 0 setcmykcolor} def
/tfwx* {0 0 0 0 setcmykcolor} def
/colrecfix* {setcmykcolor rec fill} bind def
/colrecstx* {setcmykcolor rec stroke} bind def
} if
xcolorl 3 eq {/tfnx* {0 0 0 setrgbcolor} def
/tfwx* {1 1 1 setrgbcolor} def
/colrecfix* {setrgbcolor rec fill} bind def
/colrecstx* {setrgbcolor rec stroke} bind def
} if
pchartl 2 eq {%pchart=2
/CMeasSxl (Measure unknown) def
/CDeviceSxl (Device unknown) def
/CDateSxl (Date unknown) def
/DecodeXYZ* {dup 6 29 div ge {dup dup mul mul}
{4 29 div sub 108 841 div mul} ifelse} bind def
colorml 0 eq {/ilx 0 def
}
{%colorml=1
xchartl xchartd idiv 2 le {/ilx xchartl def} if
xchartl xchartd idiv 3 eq {/ilx 4 def} if
xchartl xchartd idiv 4 eq {/ilx 8 def} if
xchartl xchartd idiv 5 eq {/ilx 16 def} if
xchartl xchartd idiv 6 eq {/ilx 32 def} if
xchartl xchartd idiv 7 eq {/ilx 64 def} if
} ifelse
/Xnref 0.63 ilx mul 0.9505 mul def
/Ynref 0.63 ilx mul def
/Znref 0.63 ilx mul 1.0890 mul def
/XQ Xnref 95.05 div def
/YQ Ynref 100.00 div def
/ZQ Znref 108.90 div def
XQ 0 lt {/XQ 0.00000001 def} if
YQ 0 lt {/YQ 0.00000001 def} if
ZQ 0 lt {/ZQ 0.00000001 def} if
/L*ref YQ 0.008856 lt {903.3 YQ mul}
{YQ 0.33333333 exp 116 mul 16 sub} ifelse def
/a*ref XQ 0.008856 lt {7.787 XQ mul 16 116 div add}
{XQ 0.33333333 exp} ifelse
YQ 0.008856 lt {7.787 YQ mul 16 116 div add}
{YQ 0.33333333 exp} ifelse sub 500 mul def
/b*ref YQ 0.008856 lt {7.787 YQ mul 16 116 div add}
{YQ 0.33333333 exp} ifelse
ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add}
{ZQ 0.33333333 exp} ifelse sub 200 mul def
/L*N L*ref def /L*W 95.41 def
/L*i 21 array def %different for xchartl=0,7
/a*i 21 array def
/b*i 21 array def
/l*i 21 array def
/Yi 21 array def
%equal distance between L*N and L*W
0 1 20 {/i exch def %steps from black to white
i 15 le {/i0 0 def /istep 15 def}
{/i0 16 def /istep 4 def} ifelse
L*i i L*N L*W L*N sub i i0 sub istep div mul add put
a*i i 0 put
b*i i 0 put
l*i i L*i i get L*N sub L*W L*N sub div put
/Y* {L*i i get 16 add 116 div} bind def
Yi i Y* DecodeXYZ* 100.00 mul put
} for
/cvishow {cvi 6 string cvs show} def
72 90 translate
0.023 MM dup scale
15 setlinewidth
0 setgray
100 /Times-ISOL1 FS
100 -90 moveto
(OE801-3A) show
(\255) show colorml cvishow xcolorl cvishow
xchartd 1 eq {xchartl cvishow}
{xchartl xchartd idiv cvishow} ifelse
(\255) show pchartl cvishow (: ) show
(File: ) show CMeasSxl show (; ) show
(Device: ) show CDeviceSxl show (; ) show
(Date: ) show CDateSxl show
1 setgray
0 0 moveto 5400 0 rlineto 0 4000 rlineto %relatives Bildfeld 54 x 40mm
-5400 0 rlineto closepath fill
0 setgray
0 0 moveto 5400 0 rlineto 0 4000 rlineto %relatives Bildfeld 54 x 40mm
-5400 0 rlineto closepath stroke
0 setgray
100 /Times-ISOL1 FS
0800 0400 translate %Nullpunkt Zeichnung
0 0 moveto 4000 0 rlineto stroke
0 0 moveto 0 3200 rlineto stroke
%! 100 S-Einheiten = 2000 Skalen-Einheiten
150 /TimesI-ISOL1 FS
0 -50 moveto 0 100 rlineto stroke
800 -50 moveto 0 100 rlineto stroke
1600 -50 moveto 0 100 rlineto stroke
2400 -50 moveto 0 100 rlineto stroke
3200 -50 moveto 0 100 rlineto stroke
4000 -50 moveto 0 100 rlineto stroke
-300 -300 moveto (N 0,0) show
700 -300 moveto (0,25) show
1500 -300 moveto (0,50) show
2300 -300 moveto (0,75) show
3100 -300 moveto (1,00 W) show
%! 100 S-Einheiten = 2000 Skalen-Einheiten
-50 0 moveto 100 0 rlineto stroke
-50 800 moveto 100 0 rlineto stroke
-50 1600 moveto 100 0 rlineto stroke
-50 2400 moveto 100 0 rlineto stroke
-50 3200 moveto 100 0 rlineto stroke
-530 -60 moveto (N 0,00) show
-350 740 moveto (0,25) show
-350 1540 moveto (0,50) show
-350 2340 moveto (0,75) show
-530 3140 moveto (W 1,00) show
150 /TimesI-ISOL1 FS
-700 2900 moveto (w*'output) show
-700 2700 moveto (w'*output) show
3000 200 moveto (w*input) show
0 setgray
0 0 moveto 3200 3200 lineto stroke
[100] 0 setdash
0 3200 0.133 mul moveto
3200 3200 3200 0.0333 mul add lineto stroke
0 3200 0.133 mul neg moveto
3200 3200 3200 0.0333 mul sub lineto stroke
colorml 1 eq {/xchartNl xchartl 8 idiv def
/xchartPl xchartl xchartl 8 idiv 8 mul sub def
/gammaNl 1 2.4 xchartNl 0.18 mul sub 2.4 div div def
/gammaPl 2.4 xchartPl 0.18 mul sub 2.4 div def
/gammal gammaNl gammaPl mul def
} if
/L*gi 21 array def %different for xchartl=0,7
/a*gi 21 array def
/b*gi 21 array def
/l*gi 21 array def
/Ygi 21 array def
%distance between L*N and L*W using gamma
0 1 20 {/i exch def %steps from black to white
l*gi i l*i i get colorm 1 eq {gammal exp} if put
L*gi i L*W L*N sub l*gi i get mul L*N add put
a*gi i 0 put
b*gi i 0 put
/Y* {L*gi i get 16 add 116 div} bind def
Ygi i Y* DecodeXYZ* 100.00 mul put
} for
0 0 1 setrgbcolor
40 setlinewidth
[100] 0 setdash
0 1 15 {/i exch def
/xw l*i i get def
/yw l*i i get colorml 1 eq {gammal exp} if def
xw 3200 mul yw 3200 mul
i 0 eq { moveto} {lineto} ifelse
} for stroke %i
0 0 1 setrgbcolor
40 setlinewidth
[100] 0 setdash
0 1 15 {/i exch def
/xw l*i i get def
/yw l*i i get colorml 1 eq {1 gammal div exp} if def
xw 3200 mul yw 3200 mul
i 0 eq { moveto} {lineto} ifelse
} for stroke %i
1 0 0 setrgbcolor
25 setlinewidth
[50] 0 setdash
%/gamma 1 xcolorl 0.075 mul sub def
0 1 15 {/i exch def
/xw i 15 div def
/yw xw colorml 1 eq {gammal exp} if def
xw 3200 mul yw 3200 mul
i 0 eq { moveto} {lineto} ifelse
} for stroke %i
0 1 15 {/i exch def
/xw i 15 div def
/yw xw colorml 1 eq {1 gammal div exp} if def
xw 3200 mul yw 3200 mul
i 0 eq { moveto} {lineto} ifelse
} for stroke %i
0 setgray
150 /Times-ISOL1 FS
-400 3450 moveto
lanind 0 eq {(F\374 linearisierte Ausgabe der 16 Graustufen von ) show} if
lanind 1 eq {(For linearized output of the 16 grey steps of ) show} if
(Picture A7) showen (Bild A7) showde
(\255) show colorml cvishow xcolorl cvishow
xchartd 1 eq {xchartl cvishow}
{xchartl xchartd idiv cvishow} ifelse
(\255) show pchartl cvishow
0 0 1 setrgbcolor
150 /TimesBI-ISOL1 FS
100 3200 moveto
('* (dash\255star) coordinates to reach) showen
('* (Strich\255Stern)\255Koordinaten um die) showde
100 3000 moveto
(the linearized output with the real) showen
(linearisierte Ausgabe mit realer Display\255) showde
100 2800 moveto
(display reflection in office room;) showen
(Reflexion im B\374roraum zu erreichen;) showde
100 2600 moveto
(lighter (positiv P) output) showen
(hellere (positive P) Ausgabe) showde
% 150 /TimesBI-ISOL1 FS
%050 2450 moveto
%(gammal) show
% 150 /TimesB-ISOL1 FS
%( = ) show
%2.4 gammal mul 0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show
%( = 2.4 x ) show
%gammal 0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show
1 0 0 setrgbcolor
150 /TimesBI-ISOL1 FS
100 2350 moveto
(w'*) show
120 /TimesB-ISOL1 FS
-70 -70 rmoveto (output) show 0 70 rmoveto
150 /TimesB-ISOL1 FS
( = [) show
150 /TimesBI-ISOL1 FS
(w*) show
120 /TimesB-ISOL1 FS
-50 -70 rmoveto (input) show 0 70 rmoveto
150 /TimesB-ISOL1 FS
(] ) show
0 70 rmoveto
colorml 0 eq {(1.00) show} {xchartd 1 eq {gammaPl}{1 gammaNl div} ifelse
0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show
} ifelse
0 -70 rmoveto
0 0 1 setrgbcolor
150 /TimesBI-ISOL1 FS
2500 1400 moveto
(*' (star\255dash) coordinates) showen
(*' (Stern\255Strich)\255Koordinaten) showde
2500 1200 moveto
(of real output with real) showen
(von realer Ausgabe mit realer) showde
2500 1000 moveto
(display reflection in office room;) showen
(Dsplay\255Reflexion im B\374roraum;) showde
2500 0800 moveto
(darker (negativ N) output) showen
(dunklere (negative N) Ausgabe) showde
% 150 /TimesBI-ISOL1 FS
%2500 0550 moveto
%(gammal) show
% 150 /TimesB-ISOL1 FS
%( = ) show
%2.4 gammal mul 0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show
%( = 2.4 x ) show
%gammal 0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show
1 0 0 setrgbcolor
150 /TimesBI-ISOL1 FS
2500 0550 moveto
(w*') show
120 /TimesB-ISOL1 FS
-70 -70 rmoveto (output) show 0 70 rmoveto
150 /TimesB-ISOL1 FS
( = [) show
150 /TimesBI-ISOL1 FS
(w*) show
120 /TimesB-ISOL1 FS
-50 -70 rmoveto (input) show 0 70 rmoveto
150 /TimesB-ISOL1 FS
(] ) show
0 70 rmoveto
colorml 0 eq {(1.00) show} {xchartd 1 eq {1 gammaPl div}{gammaNl} ifelse
0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show
} ifelse
0 -70 rmoveto
-0800 -0400 translate %Nullpunkt Zeichnung
} if %pchartl=2
showpage
grestore
} for %pchartl=0,2
} for %xchartl=0,7
%} for %xcolorl=0,3
%} for %colorml=0,1
%%Trailer