%!PS-Adobe-3.0 EPSF-3.0 KE231-3N %%BoundingBox: 70 82 400 320 %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: http://130.149.60.45/~farbmetrik/KE23/) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices, colour vision) /Creator (klaus.Richter@mac.com) /CreationDate (D:2010010112000) /ModDate (D:2010010112000) /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 /Courier findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Courier-ISOL1 exch definefont pop /Courier-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierB-ISOL1 exch definefont pop /TK {250 /Times-ISOL1 FS} bind def /ns {350 /Times-ISOL1 FS show} bind def /ks {350 /TimesI-ISOL1 FS show} bind def /bs {350 /TimesB-ISOL1 FS show} bind def /js {350 /TimesBI-ISOL1 FS show} bind def /ss {350 /Symbol FS show} bind def /is {250 /Times-ISOL1 FS 0 -90 rmoveto show 0 90 rmoveto} bind def /es {250 /Times-ISOL1 FS 0 200 rmoveto show 0 -200 rmoveto} bind def /TEn {350 /Times-ISOL1 FS tedef} bind def /TEk {350 /TimesI-ISOL1 FS tedef} bind def /TEb {350 /TimesB-ISOL1 FS tedef} bind def /TEj {350 /TimesBI-ISOL1 FS tedef} bind def /TEs {350 /Symbol FS tedef} bind def %20% kleiner /ns2 {280 /Times-ISOL1 FS show} bind def /ks2 {280 /TimesI-ISOL1 FS show} bind def /bs2 {280 /TimesB-ISOL1 FS show} bind def /js2 {280 /TimesBI-ISOL1 FS show} bind def /is2 {200 /Times-ISOL1 FS 10 -40 rmoveto show -10 40 rmoveto} bind def /iks2 {200 /TimesI-ISOL1 FS 10 -40 rmoveto show -10 40 rmoveto} bind def /es2 {250 /Times-ISOL1 FS 0 160 rmoveto show 0 -160 rmoveto} bind def /TEn2 {280 /Times-ISOL1 FS tedef} bind def /TEk2 {280 /TimesI-ISOL1 FS tedef} bind def /TEb2 {280 /TimesB-ISOL1 FS tedef} bind def /TEj2 {280 /TimesBI-ISOL1 FS tedef} bind def /TEs2 {280 /Symbol FS tedef} bind def /cvishow {cvi 6 string cvs show ( ) show} def /cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show ( ) show} def /cvsshow2 {100 mul cvi 0.01 mul 7 string cvs show ( ) show} def /cvsshow3 {1000 mul cvi 0.001 mul 7 string cvs show ( ) show} def /cvi100 {100 mul cvi /xi exch def xi 0 lt {/vorz -1 def} {/vorz 1 def} ifelse /xia xi abs def vorz -1 eq {(\255) show} {(0) show} ifelse xia 0 ge xia 9 le {(0000) show} if xia 10 ge xia 99 le and {(000) show} if xia 100 ge xia 999 le and {(00) show} if xia 1000 ge xia 9999 le and {(0) show} if xia cvishow } bind 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} {/xchart1 0 def /xchart2 0 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 /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 /xchartg where {pop /xchartx xchartg def} {/xchartx 0 def} ifelse /xcolorg where {pop /xcolorx xchartg def} {/xcolorx 0 def} ifelse /colormg where {pop /colorm colormg def} {/colorm 0 def} ifelse 70 90 translate 0.01 MM dup scale 20 setlinewidth 1 1 1 setrgbcolor 0 -250 moveto 11500 0 rlineto 0 8250 rlineto 11500 neg 0 rlineto closepath fill 0 0 0 setrgbcolor 0 0 moveto 11500 0 rlineto 0 8000 rlineto 11500 neg 0 rlineto closepath stroke TK 0 setgray 200 -200 moveto (KE231-3N, ) show /x050 50 def /x100 100 def %************************************************* /x11 1000 def %2000,1200 Lr=0% /y11 6600 def /x12 1000 def %2000,1200 Lr=2,5% /y12 5200 def /x13 1000 def %2000,1200 Lr=40% /y13 3800 def /x21 4500 def %3200,1700 Criteria /y21 5000 def /x22 5500 def %1000,1000 sRGB /y22 0400 def /x23 5500 def %1000,1000 rgb* /y23 2500 def /x31 9000 def %2000,1200 printer /y31 5200 def 50 setlinewidth %sRGB-rgb* %x22 500 add y22 500 add moveto 0 1600 rlineto stroke %rows %x22 500 add y22 1400 add moveto %-100 -200 rlineto stroke %x22 500 add y22 1400 add moveto % 100 -200 rlineto stroke %left line x23 500 add y23 500 add moveto 5500 neg 0 rlineto stroke x23 5000 sub y23 500 add moveto 0 4200 rlineto stroke %rows x23 5000 sub y23 1300 add moveto -100 -200 rlineto stroke x23 5000 sub y23 1300 add moveto 100 -200 rlineto stroke %right line x23 500 add y23 500 add moveto 4000 0 rlineto stroke x23 4500 add y23 500 add moveto 0 3000 rlineto stroke %rows x23 4500 add y23 1300 add moveto -100 -200 rlineto stroke x23 4500 add y23 1300 add moveto 100 -200 rlineto stroke %upper horizontal line x12 500 sub y12 600 add moveto 9500 0 rlineto stroke %rows x12 2700 add y12 600 add moveto 200 -100 rlineto stroke x12 2700 add y12 600 add moveto 200 100 rlineto stroke %rows x12 7600 add y12 600 add moveto -200 -100 rlineto stroke x12 7600 add y12 600 add moveto -200 100 rlineto stroke %horizontal lines x11 0500 sub y11 600 add moveto 3000 0 rlineto stroke x13 0500 sub y13 600 add moveto 3000 0 rlineto stroke x13 2500 add y13 600 add moveto 0 2800 rlineto stroke %x13 0500 sub y13 600 add moveto 0 2800 rlineto stroke /x1 x11 def /y1 y11 def /xsh 300 def 1 setgray x11 xsh sub y11 moveto 2600 0 rlineto 0 1200 rlineto -2600 0 rlineto closepath fill 0 setgray x11 xsh sub y11 moveto 2600 0 rlineto 0 1200 rlineto -2600 0 rlineto closepath stroke lanind 1 eq { %landind=1,0 x1 x050 add xsh sub y1 900 add moveto (Linearized) ns x1 x050 add xsh sub y1 525 add moveto (display output) ns } { x1 x050 add xsh sub y1 900 add moveto (Linearisierte) ns x1 x050 add xsh sub y1 525 add moveto (Displayausgabe) ns } ifelse x1 x050 add xsh sub y1 150 add moveto (L) js (r) is (=0%,) ns ( sRGB) js (0) is /x1 x12 def /y1 y12 def /xsh 300 def 1 setgray x1 xsh sub y1 moveto 2600 0 rlineto 0 1200 rlineto -2600 0 rlineto closepath fill 0 setgray x1 xsh sub y1 moveto 2600 0 rlineto 0 1200 rlineto -2600 0 rlineto closepath stroke lanind 1 eq { %landind=1,0 x1 x050 add xsh sub y1 900 add moveto (Linearized) ns x1 x050 add xsh sub y1 525 add moveto (display output) ns } { x1 x050 add xsh sub y1 900 add moveto (Linearisierte) ns x1 x050 add xsh sub y1 525 add moveto (Displayausgabe) ns } ifelse x1 x050 add xsh sub y1 150 add moveto (L) js (r) is (=2,5%,) ns ( sRGB) js (3) is /x1 x13 def /y1 y13 def /xsh 300 def 1 setgray x1 xsh sub y1 moveto 2600 0 rlineto 0 1200 rlineto -2600 0 rlineto closepath fill 0 setgray x1 xsh sub y1 moveto 2600 0 rlineto 0 1200 rlineto -2600 0 rlineto closepath stroke lanind 1 eq { %landind=1,0 x1 x050 add xsh sub y1 900 add moveto (Linearized) ns x1 x050 add xsh sub y1 525 add moveto (display output) ns } { x1 x050 add xsh sub y1 900 add moveto (Linearisierte) ns x1 x050 add xsh sub y1 525 add moveto (Displayausgabe) ns } ifelse x1 x050 add xsh sub y1 150 add moveto (L) js (r) is (=40%,) ns ( sRGB) js (7) is %************************************************ /x1 x21 def /y1 y21 def /xsh 350 def /ysh -200 def 1 setgray x1 xsh sub y1 ysh sub moveto 4100 0 rlineto 0 1250 rlineto -4100 0 rlineto closepath fill 0 setgray x1 xsh sub y1 ysh sub moveto 4100 0 rlineto 0 1230 rlineto -4100 0 rlineto closepath stroke lanind 1 eq { %landind=1,0 x1 x100 add xsh sub 0600 sub y1 ysh sub 1950 add moveto (Comparison:) bs ( display (d), print (p), and hue equal (e)) ks x1 x100 add xsh sub y1 ysh sub 1575 add moveto (Criteria (YES/NO):) ns x1 x100 add xsh sub y1 ysh sub 0900 add moveto (equal elementary hue? ) ns (d/p) ks x1 x100 add xsh sub y1 ysh sub 0525 add moveto (equal hue? ) ns (d/p) js (/e) ks x1 x100 add xsh sub y1 ysh sub 0150 add moveto (equally spaced? ) bs (d/p) js } { x1 x100 add xsh sub 0600 sub y1 ysh sub 1950 add moveto (Vergleich:) bs ( Display (d), Print (p) und Buntton geich (e)) ks x1 x100 add xsh sub y1 ysh sub 1575 add moveto (Kriterium (JA/NEIN):) ns x1 x100 add xsh sub y1 ysh sub 0900 add moveto (Elemetarbuntt. gleich? ) ns (d/p) js x1 x100 add xsh sub y1 ysh sub 0525 add moveto (gleicher Buntton? ) ns (d/p) js (/e) ks x1 x100 add xsh sub y1 ysh sub 0150 add moveto (gleich gestuft? ) bs (d/p) js } ifelse /x1 x23 def /y1 y23 def /xsh 1600 def /xsh2 600 def 1 setgray x1 xsh sub y1 moveto 5400 0 rlineto 0 1000 rlineto -5400 0 rlineto closepath fill 0 setgray x1 xsh sub y1 moveto 5400 0 rlineto 0 1000 rlineto -5400 0 rlineto closepath stroke lanind 1 eq { %landind=1,0 x1 x100 add xsh sub y1 600 add moveto (rgb*) js ( image) ns ( or) ns x1 x100 add xsh sub y1 200 add moveto (PCS) js ( RGB*) js } { x1 x100 add xsh sub y1 600 add moveto (rgb*\255) js (Bild) ns ( oder) ns x1 x100 add xsh sub y1 200 add moveto (PCS) js ( RGB*) js } ifelse lanind 1 eq { %landind=1,0 x1 x100 add xsh add y1 600 add moveto (sRGB) js ( image) ns x1 x100 add xsh add y1 200 add moveto (PCS) js ( CIELAB) bs } { x1 x100 add xsh add y1 600 add moveto (sRGB\255) js (Bild) ns x1 x100 add xsh add y1 200 add moveto (PCS) js ( CIELAB) bs } ifelse %********************************************************* /x1 x31 def /y1 y31 def /xsh 200 def 1 setgray x1 xsh sub y1 moveto 2400 0 rlineto 0 1200 rlineto -2400 0 rlineto closepath fill 0 setgray x1 xsh sub y1 moveto 2400 0 rlineto 0 1200 rlineto -2400 0 rlineto closepath stroke lanind 1 eq { %landind=1,0 x1 x050 add xsh sub y1 900 add moveto (Linearized) ns x1 x050 add xsh sub y1 525 add moveto (printer output) ns x1 x050 add xsh sub y1 150 add moveto (Y) js (N) is (=2,5;) ns ( Y) js (W) is (=89) ns } { x1 x050 add xsh sub y1 900 add moveto (Linearisierte) ns x1 x050 add xsh sub y1 525 add moveto (Druckerausgabe) ns x1 x050 add xsh sub y1 150 add moveto (Y) js (N) is (=2,5;) ns ( Y) js (W) is (=89) ns } ifelse %************************************************************* %text % Lr YN YW L*N L*W l*r g3D e3D /xti [0050 1950 2700 3850 4600 5550 7750 9650] def /yti [1900 1600 1200 0700 0400 0100 0100] def lanind 1 eq { %landind=1,0 xti 0 get yti 0 get moveto (Luminance) bs xti 0 get yti 1 get moveto (reflection) bs } { xti 0 get yti 0 get moveto (Leuchtdich\255) bs xti 0 get yti 1 get moveto (tereflexion) bs } ifelse xti 0 get yti 2 get moveto (L) js (r) is xti 0 get yti 3 get moveto (0%) ns xti 0 get yti 4 get moveto (2,5%) ns xti 0 get yti 5 get moveto (40%) ns lanind 1 eq { %landind=1,0 xti 1 get yti 0 get moveto (rgb*) js ( coding) bs xti 1 get yti 1 get moveto (efficiency) bs } { xti 1 get yti 0 get moveto (rgb*\255) js (Coding) bs xti 1 get yti 1 get moveto (Efektivit\344t) bs } ifelse xti 1 get yti 2 get moveto (e) bs (3D) is xti 1 get yti 3 get moveto (1,00) ns xti 1 get yti 4 get moveto (1,00) ns xti 1 get yti 5 get moveto (1,00) ns xti 3 get yti 0 get moveto (CIELAB) bs lanind 1 eq { %landind=1,0 xti 3 get yti 1 get moveto (Lightness) bs } { xti 3 get yti 1 get moveto (Helligkeit) bs } ifelse xti 3 get yti 2 get moveto (L*) js (N) is xti 3 get yti 3 get moveto (0) ns xti 3 get yti 4 get moveto (18) ns xti 3 get yti 5 get moveto (70) ns xti 4 get yti 2 get moveto (L*) js (W) is xti 4 get yti 3 get moveto (95) ns xti 4 get yti 4 get moveto (95) ns xti 4 get yti 5 get moveto (95) ns xti 5 get yti 0 get moveto (relative) bs lanind 1 eq { %landind=1,0 xti 5 get yti 1 get moveto (Lightness) bs } { xti 5 get yti 1 get moveto (Helligkeit) bs } ifelse ( l) js (r) is (=) bs xti 5 get yti 2 get moveto (\050) bs (L*) js (W) is (-) bs (L*) js (N) is (\051/95) bs xti 5 get yti 3 get moveto (1,00) ns xti 5 get yti 4 get moveto (0,81) ns xti 5 get yti 5 get moveto (0,26) ns lanind 1 eq { %landind=1,0 xti 6 get yti 0 get moveto (3D\255Colour) bs xti 6 get yti 1 get moveto (Gamut size) bs } { xti 6 get yti 0 get moveto (3D\255Farb\255) bs xti 6 get yti 1 get moveto (raumgr\366\337e) bs } ifelse xti 6 get yti 2 get moveto (g) bs (3D) is ( = [) bs ( l) js (r) is (]) bs (3) es xti 6 get yti 3 get moveto (1,00) ns xti 6 get yti 4 get moveto (0,53) ns xti 6 get yti 5 get moveto (0,02) ns lanind 1 eq { %landind=1,0 xti 7 get yti 0 get moveto (CIE coding) bs xti 7 get yti 1 get moveto (efficiency) bs } { xti 7 get yti 0 get moveto (CIE\255Coding) bs xti 7 get yti 1 get moveto (Efektivit\344t) bs } ifelse xti 7 get yti 2 get moveto (e) bs (3D) is ((CIE 168)) ns xti 7 get yti 3 get moveto (0,20) ns ( (sRGB)) ks xti 7 get yti 4 get moveto (0,10) ns xti 7 get yti 5 get moveto (0,004) ns /xc 3900 def /yc 4650 def lanind 1 eq { %landind=1,0 xc yc moveto (8 bit coding:) ks xc yc 300 sub moveto (0<=) ns (rgb*) ks (<=1) ns xc yc 600 sub moveto (equations DIN 33872:) ks xc yc 900 sub moveto (rgb*) ks (<->) ks (L*a*b*) ks } { xc yc moveto (8 bit\255Codierung:) ks xc yc 325 sub moveto (0<=) ns (rgb*) ks (<=1) ns xc yc 650 sub moveto (Gleichung DIN 33872:) ks xc yc 975 sub moveto (rgb*) ks (<->) ks (L*a*b*) ks } ifelse /xc 7200 def /yc 4650 def lanind 1 eq { %landind=1,0 xc yc moveto (8 bit coding:) ks } { xc yc moveto (8 bit\255Codierung:) ks } ifelse xc yc 325 sub moveto (0<=) ns (L*) ks (<=100) ns xc yc 650 sub moveto (-128<=) ns (a*) ks (<127) ns xc yc 975 sub moveto (-128<=) ns (b*) ks (<127) ns showpage grestore %%Trailer