%!PS-Adobe-3.0 EPSF-3.0 MN591-1 %%BoundingBox: 70 83 226 206 %START PDFDE011.EPS /pdfmark11 where {pop} {userdict /pdfmark11 /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: MN591-1) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.445/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2019080112000) /ModDate (D:2019080112000) /DOCINFO pdfmark11 [ /View [ /FitB ] /DOCVIEW pdfmark11 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def % !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /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 /TK {250 16.67 div /Times-ISOL1 FS} bind def /TM {295 16.67 div /Times-ISOL1 FS} bind def /TG {350 16.67 div /Times-ISOL1 FS} bind def /TIK {250 16.67 div /TimesI-ISOL1 FS} bind def /TIM {295 16.67 div /TimesI-ISOL1 FS} bind def /TIG {350 16.67 div /TimesI-ISOL1 FS} bind def /TBK {250 16.67 div /TimesB-ISOL1 FS} bind def /TBM {295 16.67 div /TimesB-ISOL1 FS} bind def /TBG {350 16.67 div /TimesB-ISOL1 FS} bind def /TBIK {250 16.67 div /TimesBI-ISOL1 FS} bind def /TBIM {295 16.67 div /TimesBI-ISOL1 FS} bind def /TBIG {350 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 %XCHA01.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 {setcmyk_olvcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmyk_olvcolor 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 {setcmykcolor rem fill} bind def /colremst %x y width heigth c m y k {setcmykcolor rem stroke} bind def /tzr {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzg {1.0 0.0 1.0 0.0} bind def /tzb {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tfr {0.0 1.0 1.0 0.0 setcmyk_olvcolor} bind def %Reproduktionsfarben /tfg {1.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def /tfb {1.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def /tfc {1.0 0.0 0.0 0.0 setcmyk_olvcolor} bind def /tfm {0.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def /tfy {0.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def /tfn {0.0 0.0 0.0 1.00 setcmyk_olvcolor} bind def %Graureihe /tfd {0.0 0.0 0.0 0.75 setcmyk_olvcolor} bind def /tfz {0.0 0.0 0.0 0.50 setcmyk_olvcolor} bind def /tfh {0.0 0.0 0.0 0.25 setcmyk_olvcolor} bind def /tfw {0.0 0.0 0.0 0.00 setcmyk_olvcolor} bind def %%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 {3 lanind eq {show} {pop} ifelse} bind def /showfr {2 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showno {5 lanind eq {show} {pop} ifelse} bind def /showpt {6 lanind eq {show} {pop} ifelse} bind def /showx1 {7 lanind eq {show} {pop} ifelse} bind def /showy1 {8 lanind eq {show} {pop} ifelse} bind def /showz1 {9 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 5 def /lanind2 5 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 5 /Times-ISOL1 FS 175 85 moveto (MN591-1) show xchart 0 eq {(N) show} {deintp colorm 2 mul add cvishow} ifelse (, B4_09) show % ( B8761_3, M8211-1, B4_09, N=4_9) show 72 90 translate /pixf 1.0 def 0.1667 pixf div MM dup scale /ausz 8 def %Farbauszug 1=C, 2=M, 3=Y, 7=N, 8=F /TBM1 {285 16.67 div /TimesB-ISOL1 FS} bind def 0 0 320 240 0.0 0.0 0.0 0.5 colrecfi %Rechteck Mittelgrau TBM %Schrift Times-Bold-Medium 0.0 0.0 0.0 0.0 setcmyk_olvcolor %Schrift Weiss 003 223 moveto (log) show 3 0 rmoveto (D) SM show 2 0 rmoveto TBIM (Y) show TBM (=log \050Hellbezugswert\255Differenz\051) showde %0MN591-1 00000 (=log \050tristimulus value\255difference\051) showen %1MN591-1 00001 TBM1 (=log \050diferencia de valor triest\355mulo\051) showes %3MN591-1 00003 (=log \050difference de valeur tristimulus\051) showfr %2MN591-1 00002 TBM (=log \050valore tristimolo \255 differenza\051) showit %4MN591-1 00004 (=log \050tristimulusverdi\255differanse\051) showno %5MN591-1 00005 (=log \050tristimulus value\255difference\051) showpt %6MN591-1 00006 (=log \050tristimulus value\255difference\051) showx1 %7MN591-1 00007 (=log \050tristimulus value\255difference\051) showy1 %8MN591-1 00008 (=log \050tristimulus value\255difference\051) showz1 %9MN591-1 00009 TBM /ix0 60 def /iy0 30 def ix0 160 add iy0 10 add moveto (log) show 2 0 rmoveto TBIG (Y) show TBG ix0 080 add iy0 60 add moveto TBIM (Y) show TBM (=Hellbezugswert) showde %0MN591-1 01000 (=tristimulus value) showen %1MN591-1 01001 TBM1 (=valor triest\355mulo) showes %3MN591-1 01003 TBM (=valeur tristimulus) showfr %2MN591-1 01002 (=valore tristimolo) showit %4MN591-1 01004 (=tristimulusverdi) showno %5MN591-1 01005 (=tristimulus value) showpt %6MN591-1 01006 (=tristimulus value) showx1 %7MN591-1 01007 (=tristimulus value) showy1 %8MN591-1 01008 (=tristimulus value) showz1 %9MN591-1 01009 0.0 0.0 0.0 1.0 setcmyk_olvcolor %N ix0 070 add iy0 40 add moveto TBIM (Y) show 0 -5 rmoveto TBK (z) show 5 5 rmoveto lanind 2 ne {TBIM (= Y) show} if (\050Umfeld grau\051) showde %0MN591-1 02000 (\050background grey\051) showen %1MN591-1 02001 TBK (\050campo circundante grij\051) showes %3MN591-1 02003 TBM (\050arri\350re gris\051) showfr %2MN591-1 02002 (\050sfondo grigio\051) showit %4MN591-1 02004 (\050omfeltsgr\345\051) showno %5MN591-1 02005 (\050background grey\051) showpt %6MN591-1 02006 (\050background grey\051) showx1 %7MN591-1 02007 (\050background grey\051) showy1 %8MN591-1 02008 (\050background grey\051) showz1 %9MN591-1 02009 0.0 0.0 0.0 0.0 setcmyk_olvcolor %W TBG 2 setlinewidth ix0 4 sub iy0 moveto 184 0 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 ix0 35 sub iy0 000 add 08 sub moveto (-1) show ix0 28 sub iy0 180 add 08 sub moveto ( 0) show ix0 000 add 15 sub iy0 26 sub moveto (1,0) show ix0 090 add 15 sub iy0 25 sub moveto (1,5) show ix0 180 add 15 sub iy0 25 sub moveto (2,0) show 0.0 0.0 0.0 1.0 setcmyk_olvcolor %N ix0 iy0 moveto 180 180 rlineto stroke ix0 045 add 10 sub iy0 25 sub moveto (1,37) show ix0 060 add iy0 moveto 0 060 rlineto stroke ix0 062 add iy0 10 add moveto (log) show 2 0 rmoveto TBIG (Y) show 0 -5 rmoveto TBM (z) show 0 5 rmoveto TBG /scolors %CMYN 8 Testfarben Nr. 0 bis 7 [{0.0 0.0 0.0 0.75} {0.0 0.0 0.0 0.65} {0.0 0.0 0.0 0.55} {0.0 0.0 0.0 0.45} {0.0 0.0 0.0 0.35} {0.0 0.0 0.0 0.25} {0.0 0.0 0.0 0.15} {0.0 0.0 0.0 0.05} {0.0 0.0 0.0 0.0} ] def ix0 iy0 moveto 0 1 6 {/i exch def scolors i get exec setcmyk_olvcolor 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 setcmyk_olvcolor ix0 i 30 mul add iy0 i 30 mul add 08 -90 90 arc fill } for %schleife i 0.0 0.0 0.0 0.0 setcmyk_olvcolor %W ix0 10 add 135 moveto 80 0 rlineto 0 80 rlineto -80 0 rlineto closepath fill 0.0 0.0 0.0 1.0 setcmyk_olvcolor %N ix0 10 add 135 moveto 80 0 rlineto 0 80 rlineto -80 0 rlineto closepath stroke 0.0 0.0 0.0 0.5 setcmyk_olvcolor %Z ix0 20 add 145 moveto 60 0 rlineto 0 60 rlineto -60 0 rlineto closepath fill scolors 2 get exec setcmyk_olvcolor ix0 50 add 175 08 90 270 arc fill scolors 3 get exec setcmyk_olvcolor ix0 50 add 175 08 -90 90 arc fill 1.5 setlinewidth 0.0 0.0 0.0 0.0 setcmyk_olvcolor %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 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 0.0 0.0 0.0 1.0 setcmyk_olvcolor %N ix0 30 add 195 08 0 360 arc fill ix0 70 add 195 moveto 0.0 0.0 0.0 0.0 setcmyk_olvcolor %W ix0 70 add 195 08 0 360 arc fill TBM tfw ix0 135 add iy0 120 add moveto (Schwellen) showde %0MN591-1 03000 (thresholds) showen %1MN591-1 03001 (umbral) showes %3MN591-1 03003 (seuil) showfr %2MN591-1 03002 (soglie di) showit %4MN591-1 03004 (terskler) showno %5MN591-1 03005 (thresholds) showpt %6MN591-1 03006 (thresholds) showx1 %7MN591-1 03007 (thresholds) showy1 %8MN591-1 03008 (thresholds) showz1 %9MN591-1 03009 ix0 135 add iy0 100 add moveto () showde %0MN591-1 04000 () showen %1MN591-1 04001 () showes %3MN591-1 04003 () showfr %2MN591-1 04002 (discriminazione) showit %4MN591-1 04004 () showno %5MN591-1 04005 () showpt %6MN591-1 04006 () showx1 %7MN591-1 04007 () showy1 %8MN591-1 04008 () showz1 %9MN591-1 04009 showpage grestore %%Trailer