%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/CGA1/CGA10-1 %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark01 where {pop} {userdict /pdfmark01 /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: farbe.li.tu-berlin.de/CGA1/CGA1.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de or http://color.li.tu-berlin.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2021080112000) /ModDate (D:20210801112000) /DOCINFO pdfmark01 [ /View [ /Fit ] /DOCVIEW pdfmark01 %END PDFDE011 /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 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /TV {120 16.67 div /Times-ISOL1 FS} bind def /TL {160 16.67 div /Times-ISOL1 FS} bind def /TS {200 16.67 div /Times-ISOL1 FS} bind def /TK {240 16.67 div /Times-ISOL1 FS} bind def /TM {280 16.67 div /Times-ISOL1 FS} bind def /TG {320 16.67 div /Times-ISOL1 FS} bind def /TIV {120 16.67 div /TimesI-ISOL1 FS} bind def /TIL {160 16.67 div /TimesI-ISOL1 FS} bind def /TIS {200 16.67 div /TimesI-ISOL1 FS} bind def /TIK {240 16.67 div /TimesI-ISOL1 FS} bind def /TIM {280 16.67 div /TimesI-ISOL1 FS} bind def /TIG {320 16.67 div /TimesI-ISOL1 FS} bind def /TBV {120 16.67 div /TimesB-ISOL1 FS} bind def /TBL {160 16.67 div /TimesB-ISOL1 FS} bind def /TBS {200 16.67 div /TimesB-ISOL1 FS} bind def /TBK {240 16.67 div /TimesB-ISOL1 FS} bind def /TBM {280 16.67 div /TimesB-ISOL1 FS} bind def /TBG {320 16.67 div /TimesB-ISOL1 FS} bind def /TBIV {120 16.67 div /TimesBI-ISOL1 FS} bind def /TBIL {160 16.67 div /TimesBI-ISOL1 FS} bind def /TBIS {200 16.67 div /TimesBI-ISOL1 FS} bind def /TBIK {240 16.67 div /TimesBI-ISOL1 FS} bind def /TBIM {280 16.67 div /TimesBI-ISOL1 FS} bind def /TBIG {320 16.67 div /TimesBI-ISOL1 FS} bind def /tolvfcol %Farbkreis-Reihenfolge [ (000) (F00) (FF0) (0F0) (0FF) (00F) (F0F) (FFF) (777) (700) (770) (070) (077) (007) (707) (F07) %15=R (333) (F77) (FF7) (7F7) (7FF) (77F) (F7F) (07F) %23=B (BBB) (F70) (7F0) (0F7) (07F) (70F) (F07) (0F7) %31=G ] def /tcmyfcol %Farbkreis-Reihenfolge [ (FFF) (0FF) (00F) (F0F) (F00) (FF0) (0F0) (000) (888) (8FF) (88F) (F8F) (F88) (FF8) (8F8) (0F8) %15=R (CCC) (088) (008) (808) (800) (880) (080) (F80) %23=B (444) (08F) (80F) (F08) (F80) (8F0) (0F8) (F08) %31=G ] def /tcmykfcol %Farbkreis-Reihenfolge [ (000F) (0FF0) (00F0) (F0F0) (F000) (FF00) (0F00) (0000) (0008) (0FF8) (00F8) (F0F8) (F008) (FF08) (0F08) (0F80) %15=R (000C) (0880) (0080) (8080) (8000) (8800) (0800) (F800) %23=B (0004) (0F80) (80F0) (F080) (F800) (8F00) (0F80) (F080) %31=G ] def /tolvfcols %Farbkreis-Reihenfolge [ (000*) (F00*) (FF0*) (0F0*) (0FF*) (00F*) (F0F*) (FFF*) (777*) (700*) (770*) (070*) (077*) (007*) (707*) (F07*) %15=R (333*) (F77*) (FF7*) (7F7*) (7FF*) (77F*) (F7F*) (07F*) %23=B (BBB*) (F70*) (7F0*) (0F7*) (07F*) (70F*) (F07*) (0F7*) %31=G ] def /tcmyfcols %Farbkreis-Reihenfolge [ (FFF*) (0FF*) (00F*) (F0F*) (F00*) (FF0*) (0F0*) (000*) (888*) (8FF*) (88F*) (F8F*) (F88*) (FF8*) (8F8*) (0F8*) %15=R (CCC*) (088*) (008*) (808*) (800*) (880*) (080*) (F80*) %23=B (444*) (08F*) (80F*) (F08*) (F80*) (8F0*) (0F8*) (F08*) %31=G ] def /tcmykfcols %Farbkreis-Reihenfolge [ (000F*) (0FF0*) (00F0*) (F0F0*) (F000*) (FF00*) (0F00*) (0000*) (0008*) (0FF8*) (00F8*) (F0F8*) (F008*) (FF08*) (0F08*) (0F80*) %15=R (000C*) (0880*) (0080*) (8080*) (8000*) (8800*) (0800*) (F800*) %23=B (0004*) (0F80*) (80F0*) (F080*) (F800*) (8F00*) (0F80*) (F080*) %31=G ] def /fcolors %CMYN 32 Testfarben Nr. 0 bis 31; Farbkreis-Reihenfolge [{0.0 0.0 0.0 1.0} {0.0 1.0 1.0 0.0} {0.0 0.0 1.0 0.0} {1.0 0.0 1.0 0.0} {1.0 0.0 0.0 0.0} {1.0 1.0 0.0 0.0} {0.0 1.0 0.0 0.0} {0.0 0.0 0.0 0.0} {0.0 0.0 0.0 0.5} {0.0 1.0 1.0 0.5} {0.0 0.0 1.0 0.5} {1.0 0.0 1.0 0.5} {1.0 0.0 0.0 0.5} {1.0 1.0 0.0 0.5} {0.0 1.0 0.0 0.5} {0.0 1.0 0.5 0.0} {0.0 0.0 0.0 0.75} {0.0 0.5 0.5 0.0} {0.0 0.0 0.5 0.0} {0.5 0.0 0.5 0.0} {0.5 0.0 0.0 0.0} {0.5 0.5 0.0 0.0} {0.0 0.5 0.0 0.0} {1.0 0.5 0.0 0.0} {0.0 0.0 0.0 0.25} {0.0 0.5 1.0 0.0} {0.5 0.0 1.0 0.0} {1.0 0.0 0.5 0.0} {1.0 0.5 0.0 0.0} {0.5 1.0 0.0 0.0} {0.0 1.0 0.5 0.0} {1.0 0.0 0.5 0.0} ] def /fak 0.5 def /Far %Farbkreis-Reihenfolge [ 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %R 16 17 18 19 20 21 22 23 %B 24 25 26 27 28 29 30 31 %G ] def /cFar %Kompensativ-Farbkreis-Reihenfolge [ 8 4 5 6 1 2 3 0 0 20 21 22 17 18 19 31 %G 24 12 13 14 9 10 11 2 %J 16 28 29 30 25 26 27 15 %R ] def /Btx %Farbkreis- -> %Btx-Reihenfolge [ 0 1 3 2 5 6 4 7 8 9 11 10 13 14 12 15 %R 16 17 19 18 21 22 20 23 %B 24 25 26 27 28 29 30 31 %G ] def /cBtx %Farbkreis- -> %Kompensativ-Btx-Reihenfolge [ 7 4 6 5 2 3 1 0 8 20 22 21 18 19 17 31 %G 24 12 14 13 10 11 9 2 %J 16 25 26 27 28 29 30 15 %R ] def /SK {250 16.67 div 1 sub pixf mul /Symbol FS} bind def /SM {300 16.67 div 1 sub pixf mul /Symbol FS} bind def /SG {350 16.67 div 1 sub pixf mul /Symbol FS} bind def %XCHA02.PS BEG /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfi %x y width heigth c m y k {setrgbcolor rec fill} bind def /colrecst %x y width heigth c m y k {setrgbcolor rec stroke} bind def /rem %x, y width heigth {/heigth exch 0.5 mul def /width exch 0.5 mul def /yleftb exch heigth 0.5 mul add def /xleftb exch width 0.5 mul add def xleftb yleftb moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colremfi %x y width heigth c m y k {setrgbcolor rem fill} bind def /colremst %x y width heigth c m y k {setrgbcolor rem stroke} bind def /tzr {1 0 0} bind def %Reproduktionsfarben /tzg {0 1 0} bind def /tzb {0 0 1} bind def /tzc {0 1 1} bind def /tzm {1 0 1} bind def /tzy {1 1 0} bind def /tzn {0.00} bind def %Graureihe /tzd {0.25} bind def /tzz {0.50} bind def /tzh {0.75} bind def /tzw {1.00} bind def /tfr {1 0 0 setrgbcolor} bind def %Reproduktionsfarben /tfg {0 1 0 setrgbcolor} bind def /tfb {0 0 1 setrgbcolor} bind def /tfc {0 1 1 setrgbcolor} bind def /tfm {1 0 1 setrgbcolor} bind def /tfy {1 1 0 setrgbcolor} bind def /tfrn {0.5 0.0 0.0 setrgbcolor} bind def %Reproduktionsfarben /tfgn {0.0 0.5 0.0 setrgbcolor} bind def /tfbn {0.0 0.0 0.5 setrgbcolor} bind def /tfcn {0.0 0.5 0.5 setrgbcolor} bind def /tfmn {0.5 0.0 0.5 setrgbcolor} bind def /tfyn {0.5 0.5 0.0 setrgbcolor} bind def /tfn {0.00 setgray} bind def %Graureihe /tfd {0.25 setgray} bind def /tfz {0.50 setgray} bind def /tfh {0.75 setgray} bind def /tfw {1.00 setgray} bind def %XCHA02.PS BEG %%EndProlog gsave /lanind 1 def /lantex [(G) (E) (S) (F) (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 /popde {0 lanind ne {pop} if} bind def /popen {1 lanind ne {pop} if} bind def /popes {2 lanind ne {pop} if} bind def /popfr {3 lanind ne {pop} if} bind def /popit {4 lanind ne {pop} if} bind def /popjp {5 lanind ne {pop} if} bind def /popm {6 lanind ne {pop} if} bind def /popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def /popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def /popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def /popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def /popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def /popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def /popxm {/n exch def 6 lanind ne {n {pop} repeat} if} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 0 def /lanind2 0 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 1 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 3 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1 xchart 0 eq {/Txx (-) def /Fxx (-) def} if %always independent of intended output %5 /Times-ISOL1 FS /cvishow {cvi 6 string cvs show} def %75 85 moveto %lanind cvishow (-) show %colorm cvishow %deintp cvishow %xcolor cvishow %xchart cvishow %pchart cvishow %colsep cvishow (-L) show pmetam cvishow gsave %XCHA01.PS END 4 /Times-ISOL1 FS 72 86 moveto (CGA10-1N) show %BNA40-5N %xchart 0 eq {(N) show} % {deintp colorm 2 mul add cvishow} ifelse % (, B4_09) show % ( B8761_3, M8210-5, B4_09, N=4_9) show 72 90 translate /pixf 1.0 def 0.1667 pixf div MM dup scale /TBM1 {285 16.67 div /TimesB-ISOL1 FS} bind def 0 0 320 240 0.5 0.5 0.5 colrecfi %rectangle mean grey 0 0 320 240 0.0 0.0 0.0 colrecst %black frame TBM %font Times-Bold-Medium tfw %W 003 223 moveto %(log) show 3 0 rmoveto %050 3725 moveto %B8750-01.xps (log ) TBM tfw show (D) SG show 3 0 rmoveto (Y) TBIM tfw show ( = log ) TBM tfw show (\174) SM show 3 0 rmoveto (Y) TBIM tfw show TBK 0 -3 rmoveto (2) show 0 3 rmoveto ( - ) TBM tfw show (Y) TBIM tfw show TBK 0 -3 rmoveto (1) show 0 3 rmoveto (\174) SM show /ix0 60 def /iy0 30 def TBM ix0 200 add iy0 20 sub moveto (log) show 2 0 rmoveto TBIG (Y) show TBG ix0 080 add iy0 60 add moveto TBIM (Y) show TBM (=Hellbezugswert) showde %0CGA10-5 01573 (=tristimulus value) showen %1CGA10-5 01573 TBM1 (=valor triest\355mulo) showes %2CGA10-5 01573 TBM (=valeur tristimulus) showfr %3CGA10-5 01573 (=valore tristimolo) showit %4CGA10-5 01573 (=tristimulusverdi) showjp %5CGA10-5 01573 tfn %N ix0 90 add iy0 43 add moveto lanind 2 ne {TBIM (= Y) show} if 0 -5 rmoveto TBK (Z) show 5 5 rmoveto (\050Umfeld grau\051) showde %0CGA10-5 02573 (\050surround grey\051) showen %1CGA10-5 02573 TBK (\050campo circundante grij\051) showes %2CGA10-5 02573 TBM (\050arri\350re gris\051) showfr %3CGA10-5 02573 (\050sfondo grigio\051) showit %4CGA10-5 02573 (\050omfeltsgr\345\051) showjp %5CGA10-5 02573 tfw %W TBG 2 setlinewidth ix0 4 sub iy0 moveto 204 0 rlineto stroke ix0 200 add 6 sub iy0 3 add moveto 6 -3 rlineto -6 -3 rlineto stroke ix0 iy0 4 sub moveto 0 184 rlineto stroke ix0 4 sub iy0 090 add moveto 8 0 rlineto stroke ix0 4 sub iy0 180 add moveto 8 0 rlineto stroke ix0 090 add iy0 4 sub moveto 0 8 rlineto stroke ix0 180 add iy0 4 sub moveto 0 8 rlineto stroke TBM ix0 30 sub iy0 000 add 08 sub moveto (-1) show ix0 27 sub iy0 180 add 08 sub moveto ( 0) show ix0 002 add 15 sub iy0 24 sub moveto (1,0) show ix0 092 add 15 sub iy0 23 sub moveto (1,5) show ix0 182 add 15 sub iy0 23 sub moveto (2,0) show tfn %N ix0 iy0 moveto 180 180 rlineto stroke ix0 045 add 2 add iy0 12 sub moveto TBS (1,26) show ix0 060 add iy0 moveto 0 060 rlineto stroke ix0 062 add iy0 10 add moveto TBIS (Y) show 0 -5 rmoveto TBL (Z) show 0 5 rmoveto /scolors %setgray 8 Testfarben Nr. 0 bis 7 [{0.25} {0.35} {0.45} {0.55} {0.65} {0.75} {0.85} {0.95} {1.00} ] def ix0 iy0 moveto 0 1 6 {/i exch def scolors i get exec setgray ix0 i 30 mul add iy0 i 30 mul add 08 90 270 arc fill } for %schleife i ix0 iy0 moveto 0 1 6 {/i exch def scolors i 1 add get exec setgray ix0 i 30 mul add iy0 i 30 mul add 08 -90 90 arc fill } for %schleife i 1.5 setlinewidth tfw %W ix0 10 add 135 moveto 80 0 rlineto 0 80 rlineto -80 0 rlineto closepath fill tfn %N ix0 10 add 135 moveto 80 0 rlineto 0 80 rlineto -80 0 rlineto closepath stroke tfz %Z ix0 21 add 146 moveto 58 0 rlineto 0 58 rlineto -58 0 rlineto closepath fill scolors 2 get exec setgray ix0 50 add 175 08 90 270 arc fill scolors 3 get exec setgray ix0 50 add 175 08 -90 90 arc fill 1.5 setlinewidth tfw %W ix0 50 add 175 08 0 360 arc stroke /i 2 def ix0 i 30 mul add iy0 i 30 mul add 08 0 360 arc stroke ix0 35 add 186 moveto (Y) TBIS tfw show TBL 0 -2 rmoveto (1) show 0 2 rmoveto (;) TBS tfw show 1 0 rmoveto (Y) TBIS tfw show TBL 0 -2 rmoveto (2) show 0 2 rmoveto ix0 12 add 138 moveto tfn TBIL (Y) show 0 -2 rmoveto TBV (w) show 0 2 rmoveto TBL (=90) show ix0 22 add 149 moveto tfn TBIL (Y) show 0 -2 rmoveto TBV (Z) show 0 2 rmoveto TBL (=18) show %ix0 021 add 147 moveto (0 ... 10) show %TBIG %ix0 022 add 170 moveto (N) show %ix0 058 add 170 moveto (W) show %TBG %ix0 30 add 195 moveto %tfn %N %ix0 30 add 195 08 0 360 arc fill %ix0 70 add 195 moveto %tfw %W %ix0 70 add 195 08 0 360 arc fill TBM tfw ix0 135 add iy0 120 add moveto (Schwellen) showde %0CGA10-5 03573 (thresholds) showen %1CGA10-5 03573 (umbral) showes %2CGA10-5 03573 (seuil) showfr %3CGA10-5 03573 (soglie di) showit %4CGA10-5 03573 (terskler) showjp %5CGA10-5 03573 ix0 135 add iy0 100 add moveto () showde %0CGA10-5 03573 () showen %1CGA10-5 03573 () showes %2CGA10-5 03573 () showfr %3CGA10-5 03573 (discriminazione) showit %4CGA10-5 03573 () showjp %5CGA10-5 03573 showpage grestore %%Trailer