%!PS-Adobe-3.0 EPSF-3.0 KG250-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/KG25/) /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 0 def /lanind2 0 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 (KG250-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 2000 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 4700 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 3500 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 7700 add y12 600 add moveto -200 -100 rlineto stroke x12 7700 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 ( dRGB) 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 ( dRGB) 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 ( dRGB) js (7) is %************************************************ /x1 x21 def /y1 y21 def /xsh 350 def /ysh 375 def 1 setgray x1 xsh sub y1 ysh sub moveto 4100 0 rlineto 0 2075 rlineto -4100 0 rlineto closepath fill 0 setgray x1 xsh sub y1 ysh sub moveto 4100 0 rlineto 0 2075 rlineto -4100 0 rlineto closepath stroke lanind 1 eq { %landind=1,0 x1 x100 add xsh sub 0800 sub y1 ysh sub 2750 add moveto (Comparison:) bs ( display (d), print (p), and hue equal (e)) ks x1 x100 add xsh sub y1 ysh sub 2375 add moveto (Criteria (YES/NO):) ns x1 x100 add xsh sub y1 ysh sub 1700 add moveto (equal elementary hue? ) bs (d/p) js x1 x100 add xsh sub y1 ysh sub 1325 add moveto (equal hue? ) bs (d/p) js (/e) js x1 x100 add xsh sub y1 ysh sub 0950 add moveto (equally spaced? ) bs (d/p) js x1 x100 add xsh sub y1 ysh sub 0575 add moveto (no clipping? ) bs (d/p) js x1 x100 add xsh sub y1 ysh sub 0200 add moveto (no smoothing? ) bs (d/p) js } { x1 x100 add xsh sub 0800 sub y1 ysh sub 2750 add moveto (Vergleich:) bs ( Display (d), Print (p) und Buntton geich (e)) ks x1 x100 add xsh sub y1 ysh sub 2375 add moveto (Kriterium (JA/NEIN):) ns x1 x100 add xsh sub y1 ysh sub 1700 add moveto (Elemetarbuntt. gleich? ) bs (d/p) js x1 x100 add xsh sub y1 ysh sub 1325 add moveto (gleicher Buntton? ) bs (d/p) js (/e) js x1 x100 add xsh sub y1 ysh sub 0950 add moveto (gleich gestuft? ) bs (d/p) js x1 x100 add xsh sub y1 ysh sub 0575 add moveto (kein Clipping? ) bs (d/p) js x1 x100 add xsh sub y1 ysh sub 0200 add moveto (keine Gl\344ttung? ) bs (d/p) js } ifelse /x1 x22 def /y1 y22 def 1 setgray x1 y1 moveto 1100 0 rlineto 0 1000 rlineto -1100 0 rlineto closepath fill 0 setgray x1 y1 moveto 1100 0 rlineto 0 1000 rlineto -1100 0 rlineto closepath stroke lanind 1 eq { %landind=1,0 x1 x100 add y1 600 add moveto (sRGB) js x1 x100 add y1 200 add moveto (image) ns } { x1 x100 add y1 600 add moveto (sRGB\255) js x1 x100 add y1 200 add moveto (Bild) ns } ifelse /x1 x23 def /y1 y23 def 1 setgray x1 y1 moveto 1100 0 rlineto 0 1000 rlineto -1100 0 rlineto closepath fill 0 setgray x1 y1 moveto 1100 0 rlineto 0 1000 rlineto -1100 0 rlineto closepath stroke lanind 1 eq { %landind=1,0 x1 x100 add y1 600 add moveto (rgb*) js x1 x100 add y1 200 add moveto (image) ns } { x1 x100 add y1 600 add moveto (rgb*\255) js x1 x100 add y1 200 add moveto (Bild) ns } ifelse lanind 1 eq { %landind=1,0 x22 1300 add y22 1500 add moveto (Interpretation for any print) ns x22 1300 add y22 1100 add moveto ( sRGB -> rgb*) js x22 1300 add y22 0700 add moveto ((some new printers do this)) ns x22 1300 add y22 0300 add moveto (or calculation) ns } { x22 1300 add y22 1500 add moveto (Interpretation f\374r jeden Druck) ns x22 1300 add y22 1100 add moveto ( sRGB -> rgb*) js x22 1300 add y22 0700 add moveto ((bei einigen neuen Druckern)) ns x22 1300 add y22 0300 add moveto (oder Berechnung) ns } ifelse ( sRGB -> rgb*) js lanind 1 eq { %landind=1,0 x13 y13 0500 sub moveto (only one display) ns x13 y13 0875 sub moveto (of 3 for comparison) ns } { x13 y13 0500 sub moveto (nur ein Display) ns x13 y13 0875 sub moveto (von 3 f\374r Vergleich) ns } 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 ( pRGB) js } { 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 ( pRGB) js } ifelse lanind 1 eq { %landind=1,0 100 1900 moveto (Interpretation for any display) ns ( dRGB) js (i) is } { 100 1900 moveto (Interpretation f\574r jedes Displays) ns ( dRGB) js (i) is } ifelse 100 1500 moveto (sRGB -> rgb* -> dRGB) js (i) is 0100 0850 moveto (dRGB = dRGB) js (0) is 0100 0500 moveto (dRGB) js (i) is ( (0<=i<=7)) ks showpage grestore %%Trailer