%!PS-Adobe-3.0 EPSF-3.0 OE920-3N.EPS
%%BoundingBox: 70 82 430 360
%START PDFDE011.EPS
/pdfmark03 where {pop} {userdict /pdfmark03 /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 pdfmark03
[ /View [ /FitB ]
/DOCVIEW pdfmark03
%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 {295 /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 0 def /xcolor2 0 def} ifelse
/xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def
/xchartd xchartgd def}
{/xchart1 0 def /xchart2 0 def /xchartd 1 def} ifelse
/pchartg where {pop /pchart1 pchartg def /pchart2 pchartg def
/pchartd pchartgd def}
{/pchart1 2 def /pchart2 2 def /pchartd 1 def} ifelse
/colormf where {pop /colorm1 colormf def /colorm2 colormf def
/colormd colormfd def} if
/xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def
/xcolord xcolorfd def} if
/xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def
/xchartgd xchartfd def /xchartd xchartfd def} if
/pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def
/pchartgd pchartfd def /pchartd pchartfd def} if
/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 {%pchartl=2
/TMS {100 /Times-Roman FS} bind def
/TGS {150 /Times-Roman FS} bind def
/nshow {110 /Times-Roman FS show} def
/bshow {110 /Times-Bold FS show} def
/gshow {150 /Times-Bold FS show} def
/bishow {110 /Times-BoldItalic FS show} def
/ishow { 90 /Times-Bold FS show} def
%/sshow {110 /Symbol FS show} def
/sshow {200 /Symbol FS show} def
/nshowde {0 lanind eq {nshow} {pop} ifelse} bind def
/bshowde {0 lanind eq {bshow} {pop} ifelse} bind def
/gshowde {0 lanind eq {gshow} {pop} ifelse} bind def
/bishowde {0 lanind eq {bishow} {pop} ifelse} bind def
/ishowde {0 lanind eq {ishow} {pop} ifelse} bind def
/sshowde {0 lanind eq {sshow} {pop} ifelse} bind def
/nshowen {1 lanind eq {nshow} {pop} ifelse} bind def
/bshowen {1 lanind eq {bshow} {pop} ifelse} bind def
/gshowen {1 lanind eq {gshow} {pop} ifelse} bind def
/bishowen {1 lanind eq {bishow} {pop} ifelse} bind def
/ishowen {1 lanind eq {ishow} {pop} ifelse} bind def
/sshowen {1 lanind eq {sshow} {pop} ifelse} bind def
/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
/xchartn xchartl xchartd idiv def
colorml 0 eq {/ilx 0 def
}
{%colorml=1
xchartn 2 le {/ilx xchartn def} if
xchartn 3 eq {/ilx 4 def} if
xchartn 4 eq {/ilx 8 def} if
xchartn 5 eq {/ilx 16 def} if
xchartn 6 eq {/ilx 32 def} if
xchartn 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
(OE920-3N) 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
/cvishow {0.5 add cvi %new980310
dup 0 ge {( ) show} if
dup abs 10 lt {( ) show} if
10 string cvs show} def
/cvsshow0 {10 mul 0.5 add cvi 0.1 mul 10 string cvs show} def
/cvsshow1 {10 mul 0.5 add cvi 0.1 mul %new980310
dup 0 ge {( ) show} if
dup abs 10 lt {( ) show} if
10 string cvs show} def
/cvsshow2 {100 mul 0.5 add cvi 0.01 mul %new980310
dup 0 ge {( ) show} if
dup abs 10 lt {( ) show} if
10 string cvs show} def
/cvsshow3 {1000 mul 0.5 add cvi 0.001 mul 10 string cvs show} def
1 setgray
20 20 moveto 5400 0 rlineto 0 4000 rlineto %relatives Bildfeld 54 x 40mm
-5400 0 rlineto closepath fill
0 setgray
20 20 moveto 5400 0 rlineto 0 4000 rlineto %relatives Bildfeld 54 x 40mm
-5400 0 rlineto closepath stroke
/x0 0 def /y0 3700 def /yd 170 def
/xpos 18 array def
/xtex 18 array def
/xpos [ 10 150 450 750 %i, LAB*refi(ikor)
1000 %d
1350 1650 1950 %LAB*outi(ikor)
2300 2600 2900 %dLABTO(ikor,ikor), dE*
3150 3500 3850 %
4200 4500 4800 5100] def %
/xtex [(i) (LAB*ref) ( ) ( ) (l*out)
(LAB*out) ( ) ( )
(LAB*out/c-ref) ( ) ( ) ( E*)
() ( ) ( )
( ) ( ) ( )] def
0 1 16 { /j exch def
xpos j get x0 add 100 add y0 yd add moveto xtex j get show
} for %j=0,1,...,16
colorml 1 eq {/xchartNl xchartl 8 idiv def
/xchartPl xchartl xchartl 8 idiv 8 mul sub def
/gammaNl 1 xchartNl 0.18 mul add def
/gammaPl 1 1 xchartPl 0.18 mul add div def
/gammal gammaNl gammaPl mul def
} if
%STOPA
/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
%STOP2
100 /Symbol FS
xpos 10 get x0 add 350 add y0 yd add moveto (D) show
100 /Times-Roman FS
/sumdL* 0 def /sumda* 0 def /sumdb* 0 def /sumdE* 0 def
/sumdNL* 0 def /sumdNa* 0 def /sumdNb* 0 def /sumdNE* 0 def
/sumdBL* 0 def /sumdBa* 0 def /sumdBb* 0 def /sumdBE* 0 def
/sumdRL* 0 def
/sumdFL* 0 def
0 1 20 {/i exch def %21 colours
%STOP3
0 1 12 {/j exch def %17 Positionen
x0 xpos j get add y0 yd i mul sub moveto
j 0 eq {i 1 add cvishow } if
j 1 eq {L*i i get cvsshow2} if
j 2 eq {a*i i get cvsshow2} if
j 3 eq {b*i i get cvsshow2} if
% LABO1NJ 1 eq { %Differenzen oder Messwerte falls vorh.
j 4 eq {l*gi i get cvsshow2} if
j 5 eq {L*gi i get cvsshow2} if
j 6 eq {a*gi i get cvsshow2} if
j 7 eq {b*gi i get cvsshow2} if
%STOP4
j 8 eq {L*gi i get dup L*i i get sub cvsshow2 L*i i get sub
abs /sumdL* exch sumdL* add def
} if %j=8
j 9 eq {a*gi i get dup a*i i get sub cvsshow2 a*i i get sub
abs /sumda* exch sumda* add def
} if %j=9
j 10 eq {b*gi i get dup b*i i get sub cvsshow2 b*i i get sub
abs /sumdb* exch sumdb* add def
} if %j=10
j 11 eq {L*gi i get L*i i get sub dup mul
a*gi i get a*i i get sub dup mul add
b*gi i get b*i i get sub dup mul add 0.0001 add sqrt
dup cvsshow2 /sumdE* exch sumdE* add def
} if %j=11
i 15 lt {%16 Stufen
j 11 eq {L*gi i get L*i i get sub dup mul
a*gi i get a*i i get sub dup mul add
b*gi i get b*i i get sub dup mul add 0.0001 add sqrt
/sumdBE* exch sumdBE* add def
} if %j=11
} if %16 Stufen
i 16 ge {%5 Unbunt=Noir
j 11 eq {L*gi i get L*i i get sub dup mul
a*gi i get a*i i get sub dup mul add
b*gi i get b*i i get sub dup mul add 0.0001 add sqrt
/sumdNE* exch sumdNE* add def
} if %j=11
} if %5 Unbunt=Noir
%
%j 11 eq { %j=10 Regularity
%i 16 eq {/L1 LAB*ouci i1 get def} if %i=16
%i 17 eq {/L2 LAB*ouci i1 get def} if %i=17
%i 18 eq {/L3 LAB*ouci i1 get def} if %i=18
%i 19 eq {/L4 LAB*ouci i1 get def} if %i=19
%i 20 eq {/L5 LAB*ouci i1 get def} if %i=20
% } if %j=10 Regularity
110 /Times-Bold FS
12 j eq {%j=12
i 00 eq {(Kennzeichnung nach) gshowde
(Specification according to) gshowen
x0 xpos j get add y0 yd add moveto
(Start-Ausgabe S1) gshowde
(Start output S1) gshowen} if %i=0
i 01 eq {(ISO/IEC 15775 Anhang G) gshowde
(ISO/IEC 15775 Annex G) gshowen} if %i=1
i 02 eq {(und DIN 33866-1 Anhang G) gshowde
(and DIN 33866-1 Annex G) gshowen} if %i=2
% i 03 eq {(nur ) bshowde
% (only ) bshowen
% (L*-) bishow
% (Helligkeit benutzt) bshowde (lightness used) bshowen} if %i=2
% i 04 eq {(D) sshow (L*) bishow
% ( = ) bshow
% LABREFW 1 get cvsshow2 ( - ) show LABREFX 1 get cvsshow2
% } if %i=2
% i 05 eq {(Gleichmaessigkeit) bshowde (Regularity) bshowen} if %i=5
% i 08 eq {(Helligkeitsumfang rel. zu Offset) bshowde
% (Lightness gamut rel. to offset) bshowen} if %i=8
% i 11 eq {(D) sshow (L*-) bishow (Grauvariation) bshowde (gray variation) bshowen} if %i=11
% i 12 eq {(v*) bishow ( = ) bshow outL*var cvsshow3} if
i 14 eq {(Mittlerer Helligkeitsabstand (16 Stufen)) bshowde
(Mean lightness difference (16 steps)) bshowen
} if %i=14
i 15 eq {(D) sshow (E*) bishow
0 -20 rmoveto (CIELAB) ishow 0 20 rmoveto ( = ) bshow
sumdBE* 16 div cvsshow1
} if %i=15
i 19 eq {(Mittlerer Helligkeitsabstand (5 Stufen)) bshowde
(Mean lightness difference (5 steps)) bshowen
} if i%=18
i 20 eq {(D) sshow (L*) bishow
0 -20 rmoveto (CIELAB) ishow 0 20 rmoveto ( = ) bshow
sumdNE* 05 div cvsshow1
} if %i=20
} if %j=12
TMS
} for %j=0,12
} for %i=0,20
110 /Times-Bold FS
/j 1 def
x0 xpos j get add 1000 add y0 yd 21 mul sub moveto
(Mittlerer Farbwiedergabe-Index:) bshowde
(Mean colour reproduction index:) bshowen
/j 11 def
x0 xpos j get add y0 yd 21 mul sub moveto
(R*) bishow 0 -20 rmoveto (ab,m) ishow 0 20 rmoveto ( = ) bshow
100 sumdBE* 21 div
sumdNE* 21 div add 4.6 mul sub cvishow
} if %pchartl=2
showpage
grestore
%} for %pchartl=0,2
%} for %xchartl=0,7
%} for %xcolorl=0,3
%} for %colorml=0,1
%%Trailer