%!PS-Adobe-3.0 EPSF-3.0 IG901-2N %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark12 where {pop} {userdict /pdfmark12 /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:2009090112000) /ModDate (D:2009090112000) /DOCINFO pdfmark12 [ /View [ /FitB ] /DOCVIEW pdfmark12 %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 /TS {200 /Times-ISOL1 FS} bind def /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIS {200 /TimesI-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 /TBS {200 /TimesB-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIS {200 /TimesBI-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 /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 /CKK {100 /Courier-ISOL1 FS} bind def /CK {125 /Courier-ISOL1 FS} bind def /CM {150 /Courier-ISOL1 FS} bind def /CG {175 /Courier-ISOL1 FS} bind def /CBKK {100 /CourierB-ISOL1 FS} bind def /CBK {125 /CourierB-ISOL1 FS} bind def /CBM {150 /CourierB-ISOL1 FS} bind def /CBG {175 /CourierB-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 /rec %x0, y0 width heigth {/heigth exch def /width exch def /y0 exch def /x0 exch def x0 width 0.5 mul sub y0 heigth 0.5 mul sub moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } 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 /xcolor xcolorg def} {/xcolor 0 def} ifelse /xtext 0 def 72 90 translate 0.01 MM dup scale /ichart 4 def %0 1 7 {/ichart exch def %ichart=0,7 /xchart xchartx def %0 1 5 {/xchart exch def %xchart=0,5 150 /Times-ISOL1 FS 4200 -160 moveto (IG901-2N, ) show ichart 1 add cvishow xchart 1 add cvishow gsave 20 setlinewidth 0.5 setgray 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath fill 0.0 setgray 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath stroke 1.0 setgray 0100 3600 moveto TBM (Colorimetric transformation) showen (Farbmetrische Transformation) showde TBIM ( i) show TBM ( = ) show ichart cvishow 0100 3200 moveto TBIM (c*) show TBS -140 -90 rmoveto (i) show 140 90 rmoveto TBM ( = ) show TBIM (c*) show TBS -140 -90 rmoveto ichart cvishow 140 90 rmoveto TBM ( = ) show TBIM (a c*) show 0 100 rmoveto TBK (b) show 0 -100 rmoveto TBM ( with ) showen ( mit ) showde /atex [(1,00) (1,00) (1,00) (1,00) (0,75) (0,50) (0,25) (0,00)] def /anum [ 1.00 1.00 1.00 1.00 0.75 0.50 0.25 0.00 ] def /btex [(1,00) (0,75) (0,50) (2,00) (1,00) (1,00) (1,00) (1,00)] def /bnum [ 1.00 0.75 0.50 2.00 1.00 1.00 1.00 1.00 ] def TBIM (a) show TBM ( = ) show atex ichart get show (; ) show TBIM (b) show TBM ( = ) show btex ichart get show 0650 2750 moveto TBIM (rgb) show 1100 2750 moveto TBIM ( -> rgb*) show 1100 2400 moveto TBIM colorm 0 eq {() show} {( -> rgb'*) show %TBS -250 -90 rmoveto ichart cvishow 250 90 rmoveto } ifelse 3350 2750 moveto TBIM (rgb*) show %TBS -90 -90 rmoveto ichart cvishow -30 90 rmoveto 3800 2750 moveto TBIM ( -> rgb*) show TBS -90 -90 rmoveto ichart cvishow -30 90 rmoveto 3800 2400 moveto TBIM colorm 0 eq {() show} {( -> rgb'*) show TBS -250 -90 rmoveto ichart cvishow 250 90 rmoveto } ifelse 0.0 setgray 0 1 1 {/nbild exch def %nbild=0,1 nbild 0 eq {0300 0500 translate} {3000 0500 translate} ifelse /xmin 0000 def /xmax 2100 def /ymin 0000 def /ymax 2100 def /xs 0210 def /ys xs def /d2 xs 2 div def /d8 xs 8 div def /xs5x xs 5.4 mul def /ys5x ys 5.4 mul def /x xs 0.1 mul def /y ys 12.0 mul def /anz 5 def /xs 2100 anz 3 add div def /ys xs def /x9 xs 1.8 mul def /xd xs 2 mul def /yd xs def 1 1 1 setrgbcolor %n* 1 1 3 {/j exch def /x1 xmin def /y1 ymax yd j 2 mul mul sub def /x2 xmin xd 4 j sub mul add def /y2 ymin yd 4 j sub mul add def x1 y1 moveto x2 y2 lineto stroke } for %c* 1 1 3 {/j exch def /x1 xmin xd j mul add def /y1 ymax yd j mul sub def /x2 xmin xd j mul add def /y2 ymin yd j mul add def x1 y1 moveto x2 y2 lineto stroke } for /id 1 4 div def 0 1 03 {/j exch def %j=0,3 /im 4 j sub def 0 1 im {/i exch def %i=0,4 /ia 1 id j mul sub def /argb ia def /brgb ia i id mul sub def xchart 0 eq {/r argb def /g brgb def /b brgb def} if xchart 1 eq {/r argb def /g argb def /b brgb def} if xchart 2 eq {/r brgb def /g argb def /b brgb def} if xchart 3 eq {/r brgb def /g argb def /b argb def} if xchart 4 eq {/r brgb def /g brgb def /b argb def} if xchart 5 eq {/r argb def /g brgb def /b argb def} if /xa xmin xd i mul add def /iad j 2 mul def /ya ymax yd i iad add mul sub def /c* argb brgb sub def /n* 1 argb sub def /t* 1 n* sub c* 0.5 mul sub def nbild 0 eq {r g b setrgbcolor /o'*Fa colorm 0 eq {r}{o'*} ifelse def %for later output /l'*Fa colorm 0 eq {g}{l'*} ifelse def /v'*Fa colorm 0 eq {b}{v'*} ifelse def xa ya xd xd rec fill xtext 1 eq {CBK t* 0.5 ge {0 setgray} {1 setgray} ifelse xa 200 sub ya 100 add moveto o'*Fa cvsshow3 xa 200 sub ya 050 sub moveto l'*Fa cvsshow3 xa 200 sub ya 200 sub moveto v'*Fa cvsshow3} if } {/c*' anum ichart get c* bnum ichart get exp mul def ichart 3 le {%ichart<=3,>3 %(t*-0.5)/(1-c*) = (t*'-0.5)/(1-c*') c* 1 eq {/t*' 0.5 def} {/t*' 0.5 t* 0.5 sub 1 c*' sub mul 1 c* sub div add def } ifelse /n*' 1 t*' sub c*' 0.5 mul sub def /argb' 1 n*' sub def /brgb' argb' c*' sub def }%ichart<=3 {%ichart>3 /c*dif2 c*' c* sub 0.5 mul def /argb' argb c*dif2 add def /brgb' brgb c*dif2 sub def } ifelse %ichart<=3,>3 xchart 0 eq {/r' argb' def /g' brgb' def /b' brgb' def} if xchart 1 eq {/r' argb' def /g' argb' def /b' brgb' def} if xchart 2 eq {/r' brgb' def /g' argb' def /b' brgb' def} if xchart 3 eq {/r' brgb' def /g' argb' def /b' argb' def} if xchart 4 eq {/r' brgb' def /g' brgb' def /b' argb' def} if xchart 5 eq {/r' argb' def /g' brgb' def /b' argb' def} if r' g' b' setrgbcolor /o'*Fa colorm 0 eq {r'}{o'*} ifelse def %for later output /l'*Fa colorm 0 eq {g'}{l'*} ifelse def /v'*Fa colorm 0 eq {b'}{v'*} ifelse def xa ya xd xd rec fill xtext 1 eq {CBK t* 0.5 ge {0 setgray} {1 setgray} ifelse xa 200 sub ya 100 add moveto o'*Fa cvsshow3 xa 200 sub ya 050 sub moveto l'*Fa cvsshow3 xa 200 sub ya 200 sub moveto v'*Fa cvsshow3} if } ifelse } for %i=0,3 } for %j=0,4 %n fill /xa xmin def /ya ymin def /r 0 def /g 0 def /b 0 def r g b setrgbcolor /o'*Fa colorm 0 eq {r}{o'*} ifelse def %for later output /l'*Fa colorm 0 eq {g}{l'*} ifelse def /v'*Fa colorm 0 eq {b}{v'*} ifelse def xa ya xd xd rec fill xtext 1 eq {CBK t* 0.5 ge {0 setgray} {1 setgray} ifelse xa 200 sub ya 100 add moveto o'*Fa cvsshow3 xa 200 sub ya 050 sub moveto l'*Fa cvsshow3 xa 200 sub ya 200 sub moveto v'*Fa cvsshow3} if /i 2 def %mean grey stroke of 5 steps /xa xmin def /ya ymax yd i mul 2 mul sub def 1 1 1 setrgbcolor xa ya xd xd rec stroke ichart 7 eq nbild 1 eq and {/i 2 def %mean grey stroke of 5 steps /xa 2100 def /ya ymax yd i mul 2 mul sub def 1 1 1 setrgbcolor xa ya xd xd rec stroke } if nbild 0 eq {0300 neg 500 neg translate} {3000 neg 500 neg translate} ifelse } for %nbild=0,1 showpage grestore %} for %xchart=0,5 %} for %ichart=0,7