%!PS-Adobe-3.0 EPSF-3.0 OE781-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 1 eq {%pchartl=1 72 90 translate 0.01 MM dup scale 20 setlinewidth 1.0 setgray 0 0 moveto 12000 0 rlineto 0 8200 rlineto -12000 0 rlineto closepath fill 0.0 setgray 0 0 moveto 12000 0 rlineto 0 8200 rlineto -12000 0 rlineto closepath stroke TM 100 -240 moveto (Teil 2) showde (Part 2) showen 9500 -240 moveto (OE781-3A) show (\255) show colorml cvishow xcolorl cvishow xchartd 1 eq {xchartl cvishow} {xchartl xchartd idiv cvishow} ifelse (\255) show pchartl cvishow %(: ) show %(Test of regular chromatic spacing at the grey axis) showen %(Pr\374fung der regul\344ren chromatischen Stufung an der Grauachse) %showde /y0 7800 def /yd 320 def TBG 100 y0 moveto (Regular colour spacing between colours Z-X' and Z-X (Yes/No decision)) showen (Gleichm\344\337ige Farbstufung zwischen Farben Z-X' und Z-X (Ja/Nein\255Entscheidung)) showde TM 400 y0 yd 1.5 mul sub moveto (Layoutbeispiel: Bunttonebene O-C, Y-V oder L-M mit 9 Farbstufen) showde (Layout example: hue plane O-C, Y-V oder L-M mit 9 colour steps) showen TM 6500 y0 yd 3.5 mul sub moveto (There are three opposite hue planes) showen (Es gibt drei gegenfarbige Bunttonebenen) showde 6500 y0 yd 4.5 mul sub moveto (O-C, Y-V, and L-M.) showen (O-C, Y-V und L-M.) showde 6500 y0 yd 5.7 mul sub moveto (The colour steps are separate in the) showen (Die Farbstufen sind separat in dem oberen) showde 6500 y0 yd 6.7 mul sub moveto (upper figure part and ajacent) showen (Teil von Bild 1 und aneinandergrenzend) showde 6500 y0 yd 7.7 mul sub moveto (ajacent in the lower figure part.) showen (im unteren Teil von Bild 1.) showde 6500 y0 yd 8.7 mul sub moveto (Between X' and X there are 9 colour steps.) showen (Zwischen X' und X gibt es 9 Farbstufen.) showde 6500 y0 yd 9.7 mul sub moveto (Mean grey Z is the mean step of X'-X.) showen (Mittelgrau Z ist die mittlere Stufe von X'-X.) showde /xp 2300 def /yp 6800 def xp 1300 sub yp 100 sub moveto (White W) showen (Wei\337 W) showde xp 1700 sub yp 2100 sub moveto (Chromatic X') showen ( Bunt X') showde xp 1700 sub yp 2450 sub moveto (X' = C, V, M) show xp 2100 add yp 100 sub moveto (Chromatic X) showen (Bunt X) showde xp 2100 add yp 450 sub moveto (X = O, Y, L) show xp 2100 add yp 2100 sub moveto ( Black N) showen (Schwarz N) showde xp yp 2000 sub moveto 2000 0000 rlineto 0000 2000 rlineto -2000 0000 rlineto closepath stroke TM xp 100 add yp 0350 sub moveto (9 colour) showen (9 Farb\255) showde xp 100 add yp 0700 sub moveto (steps) showen (Stufen) showde xp 1150 add yp 1300 sub moveto (Z) show /xpN xp def /ypN yp 2000 sub def /xpW xp def /ypW yp def /xpC xp 2000 add def /ypC yp 1000 sub def newpath /xm 2000 09 div def 1 1 09 {/j exch def %j=0,09 1 1 09 {/i exch def %i=0,09 i j eq {/xi xpW xm i mul add def /yi ypN xm j 1 sub mul add def xi yi moveto xi yi xm add lineto xi xm sub yi xm add lineto xi xm sub yi lineto closepath stroke } if } for %i=0,09 } for %j=0,09 /yd0 3950 def 100 yd0 moveto TBM (All) showen (Alle) showde TM ( colour steps of the three hue planes O-L, Y-V and L-M should be regular for) showen ( Farbstufen der drei Farbebenen O-L, Y-V and L-M sollen gleichm\344\337ig sein zwischen den) showde 100 yd0 yd 1.0 mul sub moveto (separate and adjacent colours without large chromatic jumps at mean grey Z) showen (Farben X' und X f\374r separate und aneinandergrenzende Farben ohne Farbspr\374nge bei Mittelgrau Z) showde /yt0 03300 def /x00 00100 def /x10 00500 def %00900 def /x01 10100 def /x20 10900 def TBM x00 yt0 yd 1.0 mul sub moveto (Is the colour spacing regular at mean grey Z?) showen (Ist die Farbstufung gleichm\344\337ig bei Mittelgrau Z?) showde TBM x00 8900 add yt0 yd 1.0 mul sub moveto (underline: Yes/No) showen (unterstreiche: Ja/Nein) showde TM x00 yt0 yd 2.5 mul sub moveto (Remark: The colour spacing is not regular if there is at least one Yes) showen (Anmerkung: Die Farbtufung ist nicht gleichm\344\337ig wenn es mindestens ein Ja) showde x00 yt0 yd 3.5 mul sub moveto (in one of the following cases; for example see Annex (X):) showen (in einem der folgenden F\344lle gibt; f\374r Beispiele siehe Anhang (X):) showde TM x10 yt0 yd 5 mul sub moveto (Are there colour jumps at the mean grey colour Z) showen (Gibt es Farbspr\374nge bei der mittelgrauen Farbe Z) showde ( towards X or X') showen ( nach X oder X' hin) showde x10 yt0 yd 6 mul sub moveto (for adjacent colours?) showen (f\374r aneinandergrenzende Farben?) showde x00 8900 add yt0 yd 6 mul sub moveto (underline: Yes/No) showen (unterstreiche: Ja/Nein) showde TM x10 yt0 yd 7.5 mul sub moveto (Are there colour jumps at the mean grey colour Z) showen (Gibt es Farbspr\374nge bei der mittelgrauen Farbe Z) showde ( towards X or X') showen ( nach X oder X' hin) showde x10 yt0 yd 8.5 mul sub moveto (for separate colours) showen (f\374r separate Farben?) showde x00 8900 add yt0 yd 8.5 mul sub moveto (underline: Yes/No) showen (unterstreiche: Ja/Nein) showde x00 yt0 yd 10 mul sub moveto (Remarks: A colour jump has at least twice the colour change compared to the mean change.) showen (Anmerkung: Ein Farbsprung hat mindestens die doppelte Farb\344nderung gegen\374ber) showde ( dem Mittel.) showde %( ............................) show } if %pchartl=1 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 (OE781-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 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 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 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