%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/CGA1/CGA10-2 %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark02 where {pop} {userdict /pdfmark02 /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 pdfmark02 [ /View [ /Fit ] /DOCVIEW pdfmark02 %END PDFDE011 % 40mm = 80*72/25.4 = 232; 232+90+13 = 335 % !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 /TV {120 /Times-ISOL1 FS} bind def /TL {160 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TG {320 /Times-ISOL1 FS} bind def /TIV {120 /TimesI-ISOL1 FS} bind def /TIL {160 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIG {320 /TimesI-ISOL1 FS} bind def /TBV {120 /TimesB-ISOL1 FS} bind def /TBL {160 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBG {320 /TimesB-ISOL1 FS} bind def /TBIV {120 /TimesBI-ISOL1 FS} bind def /TBIL {160 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIG {320 /TimesBI-ISOL1 FS} bind def /SV {120 /Symbol FS} bind def /SL {160 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SK {240 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SG {320 /Symbol FS} bind def /RV {120 /Times-Roman FS} bind def /RL {160 /Times-Roman FS} bind def /RS {200 /Times-Roman FS} bind def /RK {240 /Times-Roman FS} bind def /RM {280 /Times-Roman FS} bind def /RG {320 /Times-Roman FS} bind def /RIV {120 /Times-Italic FS} bind def /RIL {160 /Times-Italic FS} bind def /RIS {200 /Times-Italic FS} bind def /RIK {240 /Times-Italic FS} bind def /RIM {280 /Times-Italic FS} bind def /RIG {320 /Times-Italic FS} bind def /RBV {120 /Times-Bold FS} bind def /RBL {160 /Times-Bold FS} bind def /RBS {200 /Times-Bold FS} bind def /RBK {240 /Times-Bold FS} bind def /RBM {280 /Times-Bold FS} bind def /RBG {320 /Times-Bold FS} bind def /RBIV {120 /Times-BoldItalic FS} bind def /RBIL {160 /Times-BoldItalic FS} bind def /RBIS {200 /Times-BoldItalic FS} bind def /RBIK {240 /Times-BoldItalic FS} bind def /RBIM {280 /Times-BoldItalic FS} bind def /RBIG {320 /Times-BoldItalic FS} bind def /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 {setcmykcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmykcolor rec stroke} bind def /cvishowr {dup 0 ge {0.5 add} {0.5 sub} ifelse cvi 6 string cvs show} def /cvishow {cvi 6 string cvs show ( ) show} def /cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show ( ) show} def /cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show ( ) show} def /cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show ( ) show} def /cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show ( ) show} def /cvsshow5 {100000 mul cvi 0.00001 mul 9 string cvs show ( ) show} def /cvishow0 {cvi 6 string cvs show} def /cvsshow10 {10 mul cvi 0.1 mul 9 string cvs show} def /cvsshow20 {100 mul cvi 0.01 mul 9 string cvs show} def /cvsshow30 {1000 mul cvi 0.001 mul 9 string cvs show} def /cvsshow40 {10000 mul cvi 0.0001 mul 9 string cvs show} def /cvsshow50 {100000 mul cvi 0.00001 mul 9 string cvs show} def /cvsshow0r {10 mul 0.5 add cvi 0.1 mul 10 string cvs show} def /cvsshow1r {10 mul 0.5 add cvi 0.1 mul %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 10 string cvs show} def /cvsshow2r {100 mul 0.5 add cvi 0.01 mul %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 10 string cvs show} def /cvsshow3r {1000 mul 0.5 add cvi 0.001 mul 10 string cvs show} def %now with cvishow0 instead of cvishow /cvsshow1x {/nxx exch def %example nxx=99.1/99.0 nxx 10 mul cvi /nxi exch def %nxi=991/990 nxi 10 idiv /nxa exch def %nxa=99 nxi nxa 10 mul sub /nxb exch def %nxb=1/0 nxa cvishow0 (,) show %nxa=99 nxb cvishow0 %nxb=1/0 } def /cvsshow2x {/nxx exch def %example nxx=99.12/99,02/99,00 nxx 100 mul cvi /nxi exch def %nxi=9912/9902/00 nxi 100 idiv /nxa exch def %nxa=99 nxi nxa 100 mul sub /nxb exch def %nxb=12/02/00 nxa cvishow0 (,) show %nxb=99, nxb 10 ge {nxb cvishow0} if %nxb=12 nxb 1 ge nxb 9 le and {(0) show nxb cvishow0} if %nxb=02 nxb 0 eq {(00) show} if %nxb=00 } def /cvsshow3x {/nxx exch def %example nxx=99.123/99.012/99.001/99.000 nxx 1000 mul cvi /nxi exch def %nxi=99123/99012/99001/99000 nxi 1000 idiv /nxa exch def %nxa=99 nxi nxa 1000 mul sub /nxb exch def %nxb=123/012/001/000 nxa cvishow0 (,) show %nxb=99, nxb 100 ge {nxb cvishow0} if %nxb=123/012/001/000 nxb 10 ge nxb 99 le and {(0) show nxb cvishow0} if %nxb=012 nxb 1 ge nxb 9 le and {(00) show nxb cvishow0} if %nxb=001 nxb 0 eq {(000) show} if %nxb=000 } def %********************************************************* %%EndProlog gsave %lanindL2 START 20000505 /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 /showjp {5 lanind eq {show} {pop} ifelse} bind def /showea {1 lanind le {show} {pop} ifelse} 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 0 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 0 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 % gsave 4 /Times-ISOL1 FS 74 86 moveto (CGA10-2N) show %BNU50-2N 72 90 translate 0.01 MM dup scale 15 setlinewidth /yhoe 4000 def /xwidth 5400 def 0.5 setgray 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath fill 0 setgray 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath stroke %gsave %start in case of clip TBK 100 yhoe 220 sub moveto (Beobachtungen von aneinandergrenzenden Graus) showde (Viewing situations of adjacent greys) showen 100 yhoe 220 sub 2000 sub moveto (Beobachtungen von separaten Graus) showde (Viewing situations of separated greys) showen /proz_square {%BEG proz_square /xsq0 1600 def /ysq0 1600 def /xd 160 def /yd 160 def /xsqz 1280 def /ysqz 1280 def 1 setgray %white frame /x00 x0 def /y00 y0 def /xsq00 xsq0 def /ysq00 ysq0 def x00 y00 moveto xsq00 0 rlineto 0 ysq00 rlineto xsq00 neg 0 rlineto closepath fill xchart4 0 eq {0.5 setgray} if xchart4 1 eq {0.5 setgray} if %grey surround xchart4 2 eq {0.5 setgray} if xchart4 3 eq {0.5 setgray} if xchart4 4 eq {0.5 setgray} if %grey surround xchart4 5 eq {0.5 setgray} if /x01 x0 xd add def /y01 y0 yd add def /xsq01 xsq0 xd 2 mul sub def /ysq01 ysq0 yd 2 mul sub def x01 y01 moveto xsq01 0 rlineto 0 ysq01 rlineto xsq01 neg 0 rlineto closepath fill 0.4 setgray xchart4 2 le {/x0m x0 800 add def} {/x0m x0 830 add def} ifelse /y0m y0 800 add def x0m y0m 200 -90 90 arc fill 0.6 setgray xchart4 2 le {/x0m x0 800 add def} {/x0m x0 770 add def} ifelse /y0m y0 800 add def x0m y0m 200 90 270 arc fill 0 setgray TBL x0 5 add y0 25 add moveto xchart4 0 eq {(1A) show} if xchart4 1 eq {(2A) show} if xchart4 2 eq {(3A) show} if xchart4 3 eq {(1B) show} if xchart4 4 eq {(2B) show} if xchart4 5 eq {(3B) show} if %x0 500 add %xchart4 1 eq %xchart4 4 eq or {250 sub} if %y0 25 add moveto xchart4 0 eq xchart4 3 eq or {x0 400 add y0 25 add moveto TBIL (R) show TBL (=reflection) showen (=Reflexion) showde} if xchart4 1 eq xchart4 4 eq or {x0 250 add y0 25 add moveto TBIL (Y) show TBL (=tristimulus value) showen (=Normfarbwert) showde} if xchart4 2 eq xchart4 5 eq or {x0 300 add y0 25 add moveto TBIL (L) show TBL (=luminance) showen (=Leuchtdichte) showde} if /x0m x0 800 add def /y0m y0 250 add def /xshift [-50 050 -250 -50 050 -250] def 1 setgray x0m 250 sub xshift xchart4 get add y0m moveto TBS xchart4 0 eq xchart4 3 eq or {TBIS (R) show TBL 0 -50 rmoveto (Z) show 0 50 rmoveto TBS (=0,18) show} if xchart4 1 eq xchart4 4 eq or {TBIS (Y) show TBL 0 -50 rmoveto (Z) show 0 50 rmoveto TBS (=18) show} if xchart4 2 eq xchart4 5 eq or {TBIS (L) show TBL 0 -50 rmoveto (Z) show 0 50 rmoveto TBS (=28 cd/m) show TBL 0 80 rmoveto (2) show 0 -80 rmoveto} if /x0m x0 800 add def /y0m y0 800 add 100 add def 1 setgray x0m 300 sub y0m 150 add moveto xchart4 0 eq xchart4 3 eq or {%xchart4=0,3 TBIS (R; R) show TBS (+) show SS (D) show TBIS(R) show } if %xchart4=0,3 xchart4 1 eq xchart4 4 eq or {%xchart4=1,4 TBIS (Y; Y) show TBS (+) show SS (D) show TBIS(Y) show } if %xchart4=1,4 xchart4 2 eq xchart4 5 eq or {%xchart4=2,5 TBIS (L; L) show TBS (+) show SS (D) show TBIS(L) show } if %xchart4=2,5 } bind def %END proz_square /x0 0100 def /y0 2100 def /xchart4 0 def proz_square /x0 1900 def /y0 2100 def /xchart4 1 def proz_square /x0 3700 def /y0 2100 def /xchart4 2 def proz_square /x0 0100 def /y0 0100 def /xchart4 3 def proz_square /x0 1900 def /y0 0100 def /xchart4 4 def proz_square /x0 3700 def /y0 0100 def /xchart4 5 def proz_square %***************************************************************** /yhoe 4000 def /xwidth 5400 def 20 setlinewidth 0 setgray 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath stroke %***************************************************************** %grestore %end in case of clip showpage grestore %} for %output with langind end %%Trailer