%!PS-Adobe-3.0 EPSF-3.0 VG290-5N %%BoundingBox: 70 85 228 206 %START PDFDE011.EPS /pdfmark05 where {pop} {userdict /pdfmark05 /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: http://130.149.60.45/~farbmetrik/VG29/) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices, colour vision) /Creator (klaus.richter@me.com) /CreationDate (D:2015010112000) /ModDate (D:2015010112000) /DOCINFO pdfmark05 [ /View [ /FitB ] /DOCVIEW pdfmark05 %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 /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 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /TS {160 /Times-ISOL1 FS} bind def /TL {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 {160 /TimesI-ISOL1 FS} bind def /TIL {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 {160 /TimesB-ISOL1 FS} bind def /TBL {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 {160 /TimesBI-ISOL1 FS} bind def /TBIL {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 /SS {160 /Symbol FS} bind def /SL {200 1 sub /Symbol FS} bind def /SK {250 1 sub /Symbol FS} bind def /SM {300 1 sub /Symbol FS} bind def /SG {350 1 sub /Symbol FS} bind def /CS {160 /Courier-ISOL1 FS} bind def /CL {200 /Courier-ISOL1 FS} bind def /CK {250 /Courier-ISOL1 FS} bind def /CM {300 /Courier-ISOL1 FS} bind def /CG {350 /Courier-ISOL1 FS} bind def /CBS {160 /CourierB-ISOL1 FS} bind def /CBL {200 /CourierB-ISOL1 FS} bind def /CBK {250 /CourierB-ISOL1 FS} bind def /CBM {300 /CourierB-ISOL1 FS} bind def /CBG {350 /CourierB-ISOL1 FS} bind def /ns {350 /Times-ISOL1 FS show} bind def /ks {350 /TimesI-ISOL1 FS show} bind def /bs {350 /TimesB-ISOL1 FS show} bind def /js {350 /TimesBI-ISOL1 FS show} bind def /ss {350 /Symbol FS show} bind def /is {300 /Times-ISOL1 FS 0 -90 rmoveto show 0 90 rmoveto} bind def /es {300 /Times-ISOL1 FS 0 200 rmoveto show 0 -200 rmoveto} bind def /ib {300 /TimesB-ISOL1 FS 0 -90 rmoveto show 0 90 rmoveto} bind def /eb {300 /TimesB-ISOL1 FS 0 200 rmoveto show 0 -200 rmoveto} bind def /ip {300 /Times-ISOL1 FS 50 50 rmoveto (\267) show 50 -50 rmoveto} bind def %20% kleiner /ns2 {300 /Times-ISOL1 FS show TM} bind def /ks2 {300 /TimesI-ISOL1 FS show TM} bind def /bs2 {300 /TimesB-ISOL1 FS show TM} bind def /js2 {300 /TimesBI-ISOL1 FS show TM} bind def /ss2 {300 /Symbol FS show TM} bind def /is2 {250 /Times-ISOL1 FS 0 -70 rmoveto show 0 70 rmoveto TM} bind def /es2 {250 /Times-ISOL1 FS 0 160 rmoveto show 0 -160 rmoveto TM} bind def /ib2 {250 /TimesB-ISOL1 FS 0 -70 rmoveto show 0 70 rmoveto TM} bind def /eb2 {250 /TimesB-ISOL1 FS 0 160 rmoveto show 0 -160 rmoveto TM} bind def /ip2 {250 /Times-ISOL1 FS 40 40 rmoveto (\267) show 40 -40 rmoveto TM} bind def %40% kleiner /ns4 {250 /Times-ISOL1 FS show TK} bind def /ks4 {250 /TimesI-ISOL1 FS show TK} bind def /bs4 {250 /TimesB-ISOL1 FS show TK} bind def /js4 {250 /TimesBI-ISOL1 FS show TK} bind def /ss4 {250 /Symbol FS show TK} bind def /is4 {200 /Times-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /es4 {200 /Times-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ib4 {200 /TimesB-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /eb4 {200 /TimesB-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ip4 {200 /Times-ISOL1 FS 30 30 rmoveto (\267) show 30 -30 rmoveto TK} bind def %60% kleiner /ns6 {200 /Times-ISOL1 FS show TS} bind def /ks6 {200 /TimesI-ISOL1 FS show TS} bind def /bs6 {200 /TimesB-ISOL1 FS show TS} bind def /js6 {200 /TimesBI-ISOL1 FS show TS} bind def /ss6 {200 /Symbol FS show TS} bind def /is6 {160 /Times-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /es6 {160 /Times-ISOL1 FS 0 110 rmoveto show 0 -110 rmoveto TS} bind def /ib6 {160 /TimesB-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /eb6 {160 /TimesB-ISOL1 FS 0 110 rmoveto show 0 -110 rmoveto TS} bind def /ip6 {160 /Times-ISOL1 FS 25 25 rmoveto (\267) show 25 -25 rmoveto TS} 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 {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 /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 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 0 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 (VG290-5N) show 72 90 translate 0.01 MM dup scale 20 setlinewidth /xchartl 5 def /xwidth 5400 def /ywidth 4000 def 0.0 0.0 0.0 0.5 setcmykcolor 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath fill 0 setlinewidth 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath clip 20 setlinewidth 0 0 xwidth ywidth 0.0 0.0 0.0 1.0 colrecst %frame black /ishowz {0 -50 rmoveto TBK (z) show 0 50 rmoveto TBM} def /ishowg {0 -50 rmoveto TBK (g) show 0 50 rmoveto TBM} def /ishoww {0 -50 rmoveto TBK (W) show 0 50 rmoveto TBM} def /ishowp {0 -50 rmoveto TBK (p) show 0 50 rmoveto TBM} def /ishown {0 -50 rmoveto TBK (n) show 0 50 rmoveto TBM} def /ishowu {0 -50 rmoveto TBK (u) show 0 50 rmoveto TBM} def /ishowo {0 -50 rmoveto TBK (o) show 0 50 rmoveto TBM} def /ishownu {0 -50 rmoveto TBK (nu) show 0 50 rmoveto TBM} def /ishowon {0 -50 rmoveto TBK (on) show 0 50 rmoveto TBM} def /ishoweff {0 -50 rmoveto TBK (eff) show 0 50 rmoveto TBM} def /ILLX 16 def /ILLP ILLX 1 add def /ILLM ILLX 1 sub def /ILLA ILLX 2 idiv def %A=Average /JLLX 02 def /ILLYA 25 def %average CIELAB and CIEDE2000 20 setlinewidth 050 3725 moveto TBIM tfw TBM (log \050) show TBIM (T*/T*) show ishowu TBM (\051 ) show (relative visual responses) showen (relative visuelle Eregungen) showde /xt0 650 def /xt1 0750 def /yt0 3475 def /ytd 250 def xt0 yt0 0 ytd mul sub moveto TBM (decrement and increment processes) showen (decrement\255 und Increment\255Prozesse) showde xt0 yt0 1.1 ytd mul sub moveto TBK (achromatic and yellow threshold processes) showen (Achromatische und gelbe Schwellenprozesse) showde %TBIM ( t) show ishowp TBM (>=25s) show tfw 550 400 translate 50 setlinewidth 0 0 moveto 4500 0 rlineto stroke 0 0 moveto 0 3000 rlineto stroke 30 setlinewidth /YYL 0.001 def /YFL 0.000001 def /eshowM1 {-00 100 rmoveto TBL (-1) show 0 -100 rmoveto} bind def /eshow0 {-00 100 rmoveto TBL (0) show 0 -100 rmoveto} bind def /eshow1 {-00 100 rmoveto TBL (1) show 0 -100 rmoveto} bind def /eshow2 {-00 100 rmoveto TBL (2) show 0 -100 rmoveto} bind def /eshow3 {-00 100 rmoveto TBL (3) show 0 -100 rmoveto} bind def /eshow4 {-00 100 rmoveto TBL (4) show 0 -100 rmoveto} bind def /eshow5 {-00 100 rmoveto TBL (5) show 0 -100 rmoveto} bind def /YoD65 4 array def %RYGB from VE30, hue angle hAB=17.5, 93.3, 169.1 270.8 /YoD65 [41.1 83.1 61.7 18.7] def /tfact {tfy} def /Yoact YoD65 1 get def /Ypact Yoact 100. div def /log_Ypact Ypact log def /log_P log_Ypact def /x0 4000 def /x1 4350 def /y0 2200 def /y1 2100 def /yd 300 def x0 y0 350 add moveto tfw TBIK (L) show ishowu TBK (=) show tfn TBIK (L) show ishowg tfw x0 y0 moveto TBK ([cd/m) show eshow2 TBK (]) show x0 y0 0700 sub moveto tfn TBIK (Y) show ishowu TBK (=18) show tfw x0 y0 1050 sub moveto tfn TBIK (L*) show ishowu TBK (=50) show tfw x0 y0 1400 sub moveto tfact TBIK (Y) show ishowo TBK (=) show Yoact cvishow tfw x0 0800 sub y0 1750 sub moveto tfact TBIK (Y) show ishowp TBK (=) show TBIK (Y) show ishowu ( ) show TBIK (Y) show ishowo TBK ( /100) show tfw 50 setlinewidth 1 setgray %W x1 y1 yd 1 mul sub moveto TBK (60) show %eshow1 tfn %N x0 y0 yd 1 mul sub moveto 300 0 rlineto stroke [100 ] 0 setdash tfw %W x0 y0 yd 1 mul sub moveto 300 0 rlineto stroke tfw [ ] 0 setdash 50 setlinewidth 3870 150 moveto tfw TBIM (x) show TBM (=log) show TBIM (Y) show 2200 200 moveto tfn TBIM (u) show TBM (=log) show TBIM (Y) show ishowu tfw 0650 200 moveto tfact TBIM (p) show TBM (=log) show TBIM (Y) show ishowp tfw /cvishow {cvi 10 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 7 string cvs show} def /DELTL0 600 array def /DELTL1 600 array def /DELTL2 600 array def /DELTL3 600 array def /DELTL4 600 array def /XGRAPH 600 array def /YGRAPH 600 array def TK %Scale: 1 log = 500 units /Fx0x 500 def /Fy0x 500 def /XDAT0 600 array def /XDAT1 600 array def /XDAT2 600 array def /XDAT3 600 array def /XDAT4 600 array def /XDAT5 600 array def /XDAT6 600 array def /XDAT7 600 array def %********************************************************************* /ALOG_T* {%BEG ALOG_T* /Fx05 500. def /Fy05 Fy0x def /Fx Fx0x def /Fy Fy0x def /Flog -3 def /FMC 1 def %M=chromatic moment (1), chroma (2) /FIS 2 def %I=spectral colours (1), S=surface colours (2) /DLL 11 array def /DLU 11 array def /DLL [0.0001 0.001 0.01 0.1 1.0 10. 100. 1000. 10000. 100000. 1000000.] def /YFAK 4 array def /YFAK [ 1.0 1.8 3.2 5.6] def /DL 40 array def /DU 40 array def /XF 40 array def /R00KXU 40 array def /RLMKXU 40 array def %achromatic /F0 40 array def %I-W /F1 40 array def %D-N /F2 40 array def %ID-NM /F3 40 array def %I-B /F4 40 array def %D-b /F5 40 array def %ID-BW /F6 40 array def %I-B /F7 40 array def %D-b /F8 40 array def %ID-BW %Blue /FB0 40 array def %I-W /FB1 40 array def %D-N /FB2 40 array def %ID-NM /FB3 40 array def %I-B /FB4 40 array def %D-b /FB5 40 array def %ID-BW /FB6 40 array def %I-B /FB7 40 array def %D-b /FB8 40 array def %ID-BW %yellow /FY0 40 array def %I-W /FY1 40 array def %D-N /FY2 40 array def %ID-NM /FY3 40 array def %I-Y /FY4 40 array def %D-y /FY5 40 array def %ID-YW /FY6 40 array def %I-Y /FY7 40 array def %D-y /FY8 40 array def %ID-YW %Green /FG0 40 array def %I-W /FG1 40 array def %D-N /FG2 40 array def %ID-NM /FG3 40 array def %I-G /FG4 40 array def %D-g /FG5 40 array def %ID-GW /FG6 40 array def %I-G /FG7 40 array def %D-g /FG8 40 array def %ID-GW %red /FR0 40 array def %I-W /FR1 40 array def %D-N /FR2 40 array def %ID-NM /FR3 40 array def %I-R /FR4 40 array def %D-r /FR5 40 array def %ID-RW /FR6 40 array def %I-R /FR7 40 array def %D-r /FR8 40 array def %ID-RW /IORX 2000 def /IORY 2000 def /MULX 500 def /MULY 500 def %0..3 4..7 8..11 12..15 16:19 20:23 24:27 28:31 32:35 36:39 %0.0001, 0.001, 0.01, 0.1, 1. 10. 100. 1000. 10000. 100000. %0 1 9 {/k exch def %k=0,6 for Y=16 instead of Y=100 % DLL k DLL k get 0.16 mul put % } for %k=0,9 for Y=16 instead of Y=100 0 1 9 {/k exch def %k=0,9 DLU k DLL k get put 0 1 3 {/j exch def %j=0,3 /i k 4 mul j add def %i=0,39 DL i DLL k get YFAK j get mul put DU i DL i get put } for %j=0,3 } for %k=0,10 /W2 2. sqrt def /XP 0 def -500 0 translate %BEG achromatic XU=2.0 + Yu tfw TL 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.4 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 38 {/i exch def %i=0,38 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %R00KXU=1+1/{1+W2*10**[c(x-u+p)]} R00KXU i 1. 1. W2 F01 mul add div 1. add put %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM} RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put j 0 eq {F0 i RLMKXU i get put} if j 1 eq {F1 i RLMKXU i get put} if j 1 eq {F2 i F0 i get F1 i get add put} if j 0 eq {6000 4000 i 130 mul sub moveto i cvishow 6000 1000 add 4000 i 130 mul sub moveto XF i get cvsshow2 6000 2000 add 4000 i 130 mul sub moveto F0 i get cvsshow2 } if } for %i=0,38 /XFX0 0.0 def /F01X0 10 XFX0 XU sub XP add XC mul exp def /R00KXUX0 1. 1. W2 F01X0 mul add div 1. add def /RLMKXUX0 XL W2 log div R00KXUX0 log mul XM sub XQ mul def j 0 eq {/F0X0 RLMKXUX0 def} if j 1 eq {/F1X0 RLMKXUX0 def} if j 1 eq {/F2X0 F0X0 F1X0 add def} if } for %j=0,1 /i1 08 def /i2 38 def 0 1 1 {/colorNW exch def %colorNW=0,1 colorNW 0 eq {tfw [ ] 0 setdash} if colorNW 1 eq {tfn [300 100] 0 setdash} if i1 1 i2 {/i exch def %i=i1,i2 XF i get MULX mul F0 i get MULY mul i i1 eq {moveto} if i i1 1 add ge i i2 1 sub le and {lineto} if i i2 eq {stroke} if } for %i=i1,i2 [ ] 0 setdash colorNW 1 eq {XF i1 get MULX mul F0 i1 get 0.3 add MULY mul moveto TBK (decrement process) showen (decrement\255Prozess) showde XF i2 get 0.2 sub MULX mul F0 i2 get 0.1 sub MULY mul moveto TBK (N) show } if } for %colorNW=0,1 0 1 1 {/colorNW exch def %colorNW=0,1 colorNW 0 eq {tfn [ ] 0 setdash} if colorNW 1 eq {tfw [300 100] 0 setdash} if i1 1 i2 {/i exch def %i=i1,i2 XF i get MULX mul F1 i get MULY mul i i1 eq {moveto} if i i1 1 add ge i i2 1 sub le and {lineto} if i i2 eq {stroke} if } for %i=i1,i2 [ ] 0 setdash colorNW 1 eq {XF i2 get 4.2 sub MULX mul F1 i2 get 0.2 add MULY mul moveto TBK (increment process) showen (increment\255Prozess) showde XF i2 get 0.2 sub MULX mul F1 i2 get 0.1 sub MULY mul moveto TBK (W) show } if } for %colorNW=0,1 %[ ] 0 setdash %0 1 0 setrgbcolor %i1 1 i2 {/i exch def %i=i1,i2 % XF i get MULX mul % F2 i get MULY mul % i i1 eq {moveto} if % i i1 1 add ge % i i2 1 sub le and {lineto} if % i i2 eq {stroke} if % } for %i=i1,i2 % XF i1 get 0.10 sub MULX mul % F2 i1 get 0.40 add MULY mul moveto % TBK (CIELAB?) showen % (CIELAB?) showde %vertical lines of surround blue /ILLYAS 24 def /Flog0 0. def /Flog -3. def 0 1 2 {/k exch def %k=0,2 k 0 eq {tfw [ ] 0 setdash} if k 1 eq {tfw [300] 000 setdash} if k 2 eq {tfn [100] 100 setdash} if XF ILLYAS get MULX mul Flog0 MULY mul moveto XF ILLYAS get MULX mul Flog MULY mul lineto stroke } for %k=0,2 %END achromatic XU=2.0 + Yu %BEG GREEN XU=2.0-0.5 without Yu TL 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.4 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def % change of XU /XU XU log_P add def % 0 1 38 {/i exch def %i=0,38 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %R00KXU=1+1/{1+W2*10**[c(x-u+p)]} R00KXU i 1. 1. W2 F01 mul add div 1. add put %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM} RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put j 0 eq {F0 i RLMKXU i get put} if j 1 eq {F1 i RLMKXU i get put} if j 1 eq {F2 i F0 i get F1 i get add put} if j 0 eq {6000 4000 i 130 mul sub moveto i cvishow 6000 1000 add 4000 i 130 mul sub moveto XF i get cvsshow2 6000 2000 add 4000 i 130 mul sub moveto F0 i get cvsshow2 } if } for %i=0,38 /XFX0 0.0 def /F01X0 10 XFX0 XU sub XP add XC mul exp def /R00KXUX0 1. 1. W2 F01X0 mul add div 1. add def /RLMKXUX0 XL W2 log div R00KXUX0 log mul XM sub XQ mul def j 0 eq {/F0X0 RLMKXUX0 def} if j 1 eq {/F1X0 RLMKXUX0 def} if j 1 eq {/F2X0 F0X0 F1X0 add def} if } for %j=0,1 /i1 08 def /i2 38 def 0 1 1 {/colorNW exch def %colorNW=0,1 colorNW 0 eq {tfact [ ] 0 setdash} if colorNW 1 eq {tfn [300 100] 0 setdash} if i1 1 i2 {/i exch def %i=i1,i2 XF i get MULX mul F0 i get MULY mul i i1 eq {moveto} if i i1 1 add ge i i2 1 sub le and {lineto} if i i2 eq {stroke} if } for %i=i1,i2 [ ] 0 setdash % colorNW 1 eq {XF i1 get MULX mul % F0 i1 get 0.1 add MULY mul moveto % TBK (decrement process) showen % (decrement\255Prozess) showde % XF i2 get 0.2 sub MULX mul % F0 i2 get 0.1 sub MULY mul moveto % TBK (N) show % } if } for %colorNW=0,1 0 1 1 {/colorNW exch def %colorNW=0,1 colorNW 0 eq {tfact [ ] 0 setdash} if colorNW 1 eq {tfw [300 100] 0 setdash} if i1 1 i2 {/i exch def %i=i1,i2 XF i get MULX mul F1 i get MULY mul i i1 eq {moveto} if i i1 1 add ge i i2 1 sub le and {lineto} if i i2 eq {stroke} if } for %i=i1,i2 [ ] 0 setdash % colorNW 1 eq {XF i2 get 4.0 sub MULX mul % F1 i2 get 0.1 add MULY mul moveto % TBK (increment process) showen % (increment\255Prozess) showde % XF i2 get 0.2 sub MULX mul % F1 i2 get 0.1 sub MULY mul moveto % TBK (W) show % } if } for %colorNW=0,1 %vertical lines of surround green /ILLYAS 24 def /Flog0 0. def /Flog -3. def 0 1 2 {/k exch def %k=0,2 k 0 eq {tfact [ ] 0 setdash} if k 1 eq {tfw [300] 000 setdash} if k 2 eq {tfn [100] 100 setdash} if XF ILLYAS get log_P add MULX mul Flog0 MULY mul moveto XF ILLYAS get log_P add MULX mul Flog MULY mul lineto stroke } for %k=0,2 %END GREEN XU=1.5 500 0 translate } def %END ALOG_T %********************************************************************* TBK %!x-axis: 1/2 log-unit = 500 scale units, similar for many figures /tx0x [(-3) (-2) (-1) ( 0) ( 1) ( 2) ( 3) ( 4) ( 5)] def /tx1x [(-1) ( ) ( 0) ( ) ( 1) ( ) ( 2) ( ) ( 3)] def 0 1 8 {/i exch def /ixt { -180 i 0500 mul add} def /ixl { 000 i 0500 mul add} def ixt -350 moveto tx0x i get exec show ixl 75 moveto 0 -150 rlineto stroke } for %!y-axis: 1 log-unit = 50 scale units, different for most figures /ty05 [(-3) (-2) (-1) ( 0) ( 1) ( 2) ( 3) ( 4)] def 0 1 6 {/i exch def /iyt {-100 i 0500 mul add} def /iyl { 000 i 0500 mul add} def -450 iyt moveto ty05 i get exec show -75 iyl moveto 150 0 rlineto stroke } for [100 ] 0 setdash 0000 1500 moveto 3000 0 rlineto stroke 3000 0050 add 1500 0050 sub moveto TBIK (m) show TBK (=0) show % 0000 1000 moveto 3000 1000 rlineto stroke % 3000 0050 add 2000 0050 sub moveto TBIK (m) show TBK (=1/3) show % 0000 0000 moveto 2000 2000 rlineto stroke % 2000 0050 add 2000 0050 sub moveto TBIK (m) show TBK (=1) show [ ] 0 setdash 1500 1.6 log 500 mul add 1500 translate %new cero point at xr=0 ALOG_T* -1500 1.6 log 500 mul sub -1500 translate %new cero point at xr=0 550 neg 400 neg translate showpage grestore %%Trailer