%!PS-Adobe-3.0 EPSF-3.0 KE250-7N %%BoundingBox: 70 82 400 320 %START PDFDE011.EPS /pdfmark07 where {pop} {userdict /pdfmark07 /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/KE25/) /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 pdfmark07 [ /View [ /FitB ] /DOCVIEW pdfmark07 %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 (KE250-7N) show /x050 050 def /x100 100 def %************************************************* /x12 0600 def %2000,2000 Lr=2,5% /y12 4800 def /x21 4100 def %3200,1700 Criteria /y21 5000 def /x22 5100 def %1000,1000 sRGB /y22 0400 def /x23 5100 def %1000,1000 rgb* /y23 2000 def /x31 8500 def %2000,2000 printer /y31 4800 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 4000 neg 0 rlineto stroke x23 3500 sub y23 500 add moveto 0 3400 rlineto stroke %rows x23 3500 sub y23 1300 add moveto -100 -200 rlineto stroke x23 3500 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 1000 add y12 1100 add moveto 8000 0 rlineto stroke %rows x12 2700 add y12 1100 add moveto 200 -100 rlineto stroke x12 2700 add y12 1100 add moveto 200 100 rlineto stroke %rows x12 7600 add y12 1100 add moveto -200 -100 rlineto stroke x12 7600 add y12 1100 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 x12 def /y1 y12 def /xsh 400 def /ysh 750 def 1 setgray x1 xsh sub y1 ysh sub moveto 2900 0 rlineto 0 2775 rlineto -2900 0 rlineto closepath fill 0 setgray x1 xsh sub y1 ysh sub moveto 2900 0 rlineto 0 2775 rlineto -2900 0 rlineto closepath stroke lanind 1 eq { %landind=1,0 x1 x050 add xsh sub y1 ysh sub 2400 add moveto (Linearized) ns x1 x050 add xsh sub y1 ysh sub 2025 add moveto (display output) ns } { x1 x050 add xsh sub y1 ysh sub 2400 add moveto (Linearisierte) ns x1 x050 add xsh sub y1 ysh sub 2025 add moveto (Displayausgabe) ns } ifelse x1 x050 add xsh sub y1 ysh sub 1650 add moveto (L) js (r) is (=2,5%,) ns ( dRGB) js (3) is x1 x050 add xsh sub y1 ysh sub 1275 add moveto (rgb* ) js lanind 1 eq {(according to) ns}{(nach) ns} ifelse x1 x050 add xsh sub y1 ysh sub 0900 add moveto (ISO 9241\255306,) ns x1 x050 add xsh sub y1 ysh sub 0525 add moveto (ISO/IEC TR 19797) ns x1 x050 add xsh sub y1 ysh sub 0150 add moveto (ISO/IEC TR 24705) ns %************************************************ /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 2000 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 2000 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 1200 0 rlineto 0 1000 rlineto -1200 0 rlineto closepath fill 0 setgray x1 y1 moveto 1200 0 rlineto 0 1000 rlineto -1200 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 1200 0 rlineto 0 1000 rlineto -1200 0 rlineto closepath fill 0 setgray x1 y1 moveto 1200 0 rlineto 0 1000 rlineto -1200 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 %********************************************************* /x1 x31 def /y1 y31 def /xsh 100 def /ysh 750 def 1 setgray x1 xsh sub y1 ysh sub moveto 2900 0 rlineto 0 2775 rlineto -2900 0 rlineto closepath fill 0 setgray x1 xsh sub y1 ysh sub moveto 2900 0 rlineto 0 2775 rlineto -2900 0 rlineto closepath stroke lanind 1 eq { %landind=1,0 x1 xsh sub x100 add y1 ysh sub 2450 add moveto (Linearized) ns x1 xsh sub x100 add y1 ysh sub 2075 add moveto (Print) ns ( ORS18) js x1 xsh sub x100 add y1 ysh sub 1700 add moveto (Y) js (=2,5,) ns ( pRGB) js x1 xsh sub x100 add y1 ysh sub 1325 add moveto (rgb* ) js (according to) ns x1 xsh sub x100 add y1 ysh sub 950 add moveto (ISO/IEC 15775,) ns x1 xsh sub x100 add y1 ysh sub 575 add moveto (ISO/IEC TR 19797) ns x1 xsh sub x100 add y1 ysh sub 200 add moveto (ISO/IEC TR 24705) ns } { x1 xsh sub x100 add y1 ysh sub 2450 add moveto (Linearisierter) ns x1 xsh sub x100 add y1 ysh sub 2075 add moveto (Druck) ns ( ORS18) js x1 xsh sub x100 add y1 ysh sub 1700 add moveto (Y) js (=2,5,) ns ( pRGB) js x1 xsh sub x100 add y1 ysh sub 1325 add moveto (rgb* ) js (nach) ns x1 xsh sub x100 add y1 ysh sub 950 add moveto (ISO/IEC 15775,) ns x1 xsh sub x100 add y1 ysh sub 575 add moveto (ISO/IEC TR 19797) ns x1 xsh sub x100 add y1 ysh sub 200 add moveto (ISO/IEC TR 24705) ns } ifelse lanind 1 eq { %landind=1,0 100 1900 moveto (Interpretation for display) ns ( dRGB) js (3) is } { 100 1900 moveto (Interpretation f\574r Display) ns ( dRGB) js (3) is } ifelse 100 1500 moveto (sRGB -> rgb* -> dRGB) js (3) is 0100 0850 moveto (dRGB = dRGB) js (0) is 0100 0500 moveto (dRGB) js (i) is ( (0<=i<=7)) ks showpage grestore %%Trailer