%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/CGA1/CGA11-4 %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark14 where {pop} {userdict /pdfmark14 /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 pdfmark14 [ /View [ /Fit ] /DOCVIEW pdfmark14 %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 (CGA11-4N) show 72 90 translate 0.01 MM dup scale 20 setlinewidth 30 setlinewidth [ ] 0 setdash /yhoe 4000 def /xwidth 5400 def 0.7 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 /xtit 0050 def /ytit 3700 def /ydel 0300 def /indJNDL {TBL 0 -50 rmoveto (JND) show 0 50 rmoveto TBS} bind def /indnL {TBL 0 -50 rmoveto (n) show 0 50 rmoveto TBS} bind def /indkL {TBL 0 90 rmoveto (k) show 0 -90 rmoveto TBS} bind def /ind2L {TBL 0 90 rmoveto (2) show 0 -90 rmoveto TBS} bind def /induL {TBL 0 -50 rmoveto (u) show 0 50 rmoveto TBS} bind def /ind1mkL {TBL 0 90 rmoveto (1-k) show 0 -90 rmoveto TBS} bind def /SymbdL {SS (d) show TBS} bind def %one step larger xtit ytit moveto TBS (Lightness ) showen (Helligkeit ) showde TBIS (L*) show indJNDL ( for the Just Noticeable Difference (JND)) showen ( f\374r die gerade erkennbare Differenz (JND)) showde xtit ytit ydel 1 mul sub moveto TS (For adjacent surface colours in the range ) showen (F\374r aneinandergrenzende K\366rperfarben im Bereich ) showde (3,6<) show TIS (Y) show TS (<90) show xtit ytit ydel 2 mul sub moveto TS (or the digital range ) showen (oder den digitalen Bereich ) showde TS (100/255=0,39<) show TIS (Y) show TS (<100 ) show TS (it is valid: ) showen (gilt:) showde xtit ytit ydel 3 mul sub moveto TBIS (L*) show indJNDL /xs1 0600 def %(=) /xs2 2400 def %[1,2] /xs3 2750 def %const /xs4 2400 def %[3,4] xtit xs1 add ytit ydel 3 mul sub moveto TBS (= ) show 20 0 rmoveto TBIS (a ) show TBS (\050) show TBIS (Y/Y) show indnL TBS (\051) show indkL ( ) show xtit xs3 add ytit ydel 3 mul sub moveto TBS (a=572; ) show TBIS (Y) show indnL TBS (=100; ) show TBIS (k) show TBS (=0,14=1/7,2) show xtit xs2 add ytit ydel 3 mul sub moveto TBS ([1]) show xtit xs1 add ytit ydel 4 mul sub moveto TBIS TBS (= ) show 20 0 rmoveto TBIS (b ) show TBS (\050) show TBIS (Y/Y) show induL TBS (\051) show indkL ( ) show xtit xs3 add ytit ydel 4 mul sub moveto TBS (b=a\050) show TBIS (Y) show induL TBS (/) show TBIS (Y) show indnL TBS (\051) show indkL TBS (=450; ) show TBIS (Y) show induL TBS (=18) show xtit xs2 add ytit ydel 4 mul sub moveto TBS ([2]) show xtit ytit ydel 5 mul sub moveto TS (For ) show TBIS (Y) show TBS (=) show TBIS (Y) show induL TS ( it is valid: ) showen (gilt: ) showde TBIS (L*) show indJNDL induL TBS (=450.) show xtit ytit ydel 6.5 mul sub moveto TS (Derivation of equation [2] gives with ) showen (Ableitung der Gleichung [2] ergibt mit ) showde TBS (1-) show TBIS (k) show TBS ( = 0,86:) show xtit ytit ydel 7.5 mul sub moveto SymbdL TBIS (\050L*) show indJNDL TBS (\051/) show SymbdL TBIS (Y) show ( = ) show TBIS (c) show ( \050) show TBIS (Y) show TBS (/) show TBIS (Y) show induL TBS (\051) show ind1mkL xtit xs3 add ytit ydel 7.5 mul sub moveto TBIS (c) show TBS ( = \050) show TBIS (b) show ( ) show TBIS (k) show TBS (\051) show TBS (/) show TBIS (Y) show induL TBS ( = 63/18 = 3,5) show xtit xs4 add ytit ydel 7.5 mul sub moveto TBS ([3]) show xtit ytit ydel 8.5 mul sub moveto TS (or for the treshold ) showen (oder f\374r die Schwelle ) showde SymbdL TBIS (\050L*) show indJNDL TBS (\051=1) show xtit ytit ydel 9.5 mul sub moveto SymbdL TBIS (Y) show TBS ( = ) show TBIS (d) show ( \050) show TBIS (Y) show TBS (/) show TBIS (Y) show induL (\051) show ind1mkL xtit xs4 add ytit ydel 9.5 mul sub moveto TBS ([4]) show xtit xs3 add ytit ydel 9.5 mul sub moveto TBIS (d) show TBS ( = ) show TBIS (Y) show induL TBS (/\050) show TBIS (b) show ( ) show TBIS (k) show TBS (\051 = 18/63 = 0,29) show xtit ytit ydel 11 mul sub moveto TS (For the surround lightness ) showen (F\374r die Umfeldhelligkeit ) showde TBIS (L*) show indJNDL induL TBS (=450 ) show TS (with ) showen (mit ) showde TBIS (Y=Y) show induL TS (the threshold is:) showen (ist die Schwelle:) showde xtit ytit ydel 12 mul sub moveto SymbdL TBIS (Y) show indJNDL induL TBS ( = 0,29. ) show TS (This threshold is ) showen (Diese Schwelle ist ) showde TIS (independent ) showen (unabh\344ngig ) showde TS (of ) showen (von ) showde TBIS (k.) show %***************************************************************** /yhoe 4000 def /xwidth 5400 def 30 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