%!PS-Adobe-3.0 EPSF-3.0 VE140-1A %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark07 where {pop} {userdict /pdfmark07 /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/TE01/) /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:2014010112000) /ModDate (D:2014010112000) /DOCINFO pdfmark07 [ /View [ /FitB ] /DOCVIEW pdfmark07 %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 /TS {160 /Times-ISOL1 FS} bind def /TL {200 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TM {290 /Times-ISOL1 FS} bind def /TG {340 /Times-ISOL1 FS} bind def /TIL {200 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIM {290 /TimesI-ISOL1 FS} bind def /TIG {340 /TimesI-ISOL1 FS} bind def /TBL {200 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBM {290 /TimesB-ISOL1 FS} bind def /TBG {340 /TimesB-ISOL1 FS} bind def /TBIL {200 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIM {290 /TimesBI-ISOL1 FS} bind def /TBIG {340 /TimesBI-ISOL1 FS} bind def /SL {200 /Symbol FS} bind def /SK {240 /Symbol FS} bind def /SM {290 /Symbol FS} bind def /SG {340 /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 /IXYZX 12600 array def %min 600*21=12600 /IXYZX [%BEG IXYZX %AC00_AUSW4_5285.FOR, E/A: AC00_AUSW4_5285.DAT/.TXT/A.TXT %AC00_ALL00_5285.DAT, CIE1_63_UE91_99-7T.TXT, threshold & difference data with min and max at the end %5285 Data: Richter(330), Kittelmann(392), Avramopoulos(132), Witt(418), RIT_DuPont(312), Leeds(307), BFD.01(2776), CIELAB(309), CIEDE2000(309)% %UE940-7T.TXT; output of ..-7R.PS with MACPS2PDF -> PS2ACII ON ME17GL 141121: ..-7R.log -> .TXT %%XS YS ZS X0 Y0 Z0 X1 Y1 Z1 DV dE*ab dE*CH dE*94 dE*CM dE*00 dE*85 no. Code L* a* b* % DL DC %CIEXYZ*1000 data for all colours (a), iim=330, Color difference data for \Delta E*LCH=\Delta E*CIELAB=CIELCH=1 % 94810 100000 107330 29588 31170 33411 29890 31460 33781 749 275 275 228 273 268 259 14110050 (63002_WI) 63 0 0 % 243 129 94810 100000 107330 29588 31170 33411 30168 31780 34006 995 515 515 360 514 514 514 14110051 (63002_WI) 63 0 0 % 510 79 94810 100000 107330 29588 31170 33411 30288 31910 34352 1180 647 647 513 642 642 642 14110052 (63002_WI) 63 0 0 % 617 196 94810 100000 107330 29588 31170 33411 30566 32210 34505 1572 866 866 588 866 865 865 14110053 (63002_WI) 63 0 0 % 865 43 94810 100000 107330 29588 31170 33411 30860 32540 34848 1917 1141 1141 785 1141 1139 1137 14110054 (63002_WI) 63 0 0 % 1136 112 94810 100000 107330 29588 31170 33411 30301 31930 34146 642 643 643 457 641 641 641 14110055 (63002_WI) 63 0 0 % 634 111 94810 100000 107330 29588 31170 33411 29159 30710 32965 840 395 395 284 394 393 393 14100056 (63002_WI) 63 0 0 % 389 71 94810 100000 107330 29588 31170 33411 29076 30630 32775 991 463 463 326 462 462 462 14100057 (63002_WI) 63 0 0 % 457 78 94810 100000 107330 29588 31170 33411 28878 30430 32514 1258 643 643 468 640 640 640 14140058 (63002_WI) 63 0 0 % 627 146 94810 100000 107330 29588 31170 33411 28523 30040 32246 1615 964 964 659 964 964 963 14100059 (63002_WI) 63 0 0 % 962 71 94810 100000 107330 29555 31140 33071 30301 31930 34146 598 729 729 519 716 716 716 14110157 (63003_WI) 63 0 0 % 659 312 94810 100000 107330 29571 31200 33374 30301 31930 34146 646 625 625 464 626 621 614 14110365 (63004_WI) 63 0 0 % 609 144 94810 100000 107330 29184 31080 33125 30860 32540 34848 2503 1663 1663 1303 1678 1571 1380 14110388 (63015_WI) 63 -1 0 % 12111140 94810 100000 107330 29890 31460 33781 30301 31930 34146 904 452 452 434 446 440 431 14110395 (63009_WI) 63 0 0 % 391 228 94810 100000 107330 30168 31780 34006 29159 30710 32965 1503 910 910 643 907 907 907 14180401 (63002_WI) 63 0 0 % 898 146 94810 100000 107330 30287 31910 34352 29076 30630 32775 1917 1108 1108 837 1102 1102 1102 14140406 (63008_WI) 63 0 0 % 1074 274 94810 100000 107330 30565 32210 34505 28878 30430 32514 2344 1496 1496 1009 1495 1495 1495 14140411 (64002_WI) 64 0 0 % 1492 114 94810 100000 107330 30859 32540 34848 28523 30040 32246 2999 2104 2104 1427 2104 2103 2101 14190415 (64003_WI) 64 0 0 % 2098 173 %I,K= 5285 18 ] def %END IXYZX /IXYZ0 12600 array def %min 600x21 will be defined later from IXYZX /IXYZ1 357 array def %min 21x17 /IXYZ1 [%BEG IXYZ1 %UE980-7T.TXT; output of ..-7R.PS with MACPS2PDF -> PS2ACII ON ME17GL 141121: ..-7R.log -> .TXT %%XS YS ZS X0 Y0 Z0 X1 Y1 Z1 DV dE*ab dE*CH dE*94 dE*CM dE*00 dE*85 no. Code L* a* b* % %CIEXYZ*1000 data for all colours (a), iim=309, Color difference data for \Delta E*LCH=\Delta E*CIELAB=CIELCH=1 % 0095040 0100000 0108880 0001070 0001126 0001226 0001199 0001262 0001373 0001000 01001 01001 01001 01959 00630 00852 18110000 (10009_WN) 10 0 0 % 0095040 0100000 0108880 0001813 0001908 0002078 0001996 0002100 0002286 0001000 01001 01001 01001 01960 00662 01004 18110001 (15009_WN) 15 0 0 % 0095040 0100000 0108880 0002840 0002989 0003254 0003085 0003246 0003534 0001000 01001 01001 01001 01507 00697 01099 18110002 (20009_WN) 20 0 0 % 0095040 0100000 0108880 0004196 0004415 0004807 0004512 0004747 0005168 0001000 01001 01001 01001 01264 00735 01143 18110003 (25002_WN) 25 0 0 % 0095040 0100000 0108880 0005926 0006235 0006789 0006322 0006652 0007243 0001000 01001 01001 01001 01101 00779 01149 18110004 (30002_WN) 30 0 0 % 0095040 0100000 0108880 0008076 0008498 0009253 0008562 0009009 0009809 0001000 01001 01001 01001 00985 00829 01130 18110005 (35002_WN) 35 0 0 % 0095040 0100000 0108880 0010692 0011250 0012250 0011277 0011865 0012919 0001000 01001 01001 01001 00897 00886 01096 18110006 (40002_WN) 40 0 0 % 0095040 0100000 0108880 0013820 0014541 0015833 0014512 0015269 0016625 0001000 01000 01000 01000 00830 00955 01055 18110007 (45002_WN) 45 0 0 % 0095040 0100000 0108880 0017505 0018418 0020054 0018313 0019269 0020980 0001000 01000 01000 01000 00775 00999 01010 18110008 (50002_WN) 50 0 0 % 0095040 0100000 0108880 0021792 0022929 0024966 0022727 0023913 0026036 0001000 01000 01000 01000 00731 00940 00965 18110009 (55002_WN) 55 0 0 % 0095040 0100000 0108880 0026728 0028123 0030620 0027798 0029249 0031846 0001000 01000 01000 01000 00694 00873 00920 18110010 (60002_WN) 60 0 0 % 0095040 0100000 0108880 0032358 0034047 0037070 0033572 0035324 0038461 0001000 01000 01000 01000 00662 00817 00878 18110011 (65002_WN) 65 0 0 % 0095040 0100000 0108880 0038728 0040749 0044367 0040096 0042188 0045934 0001000 01000 01000 01000 00636 00769 00838 18110012 (70002_WN) 70 0 0 % 0095040 0100000 0108880 0045883 0048278 0052565 0047413 0049888 0054318 0001000 01000 01000 01000 00612 00726 00800 18110013 (75002_WN) 75 0 0 % 0095040 0100000 0108880 0053869 0056681 0061714 0055571 0058472 0063664 0001000 01000 01000 01000 00592 00688 00765 18110014 (80002_WN) 80 0 0 % 0095040 0100000 0108880 0062733 0066007 0071868 0064615 0067988 0074025 0001000 01000 01000 01000 00574 00654 00732 18110015 (85002_WN) 85 0 0 % 0095040 0100000 0108880 0072518 0076303 0083079 0074591 0078484 0085453 0001000 01000 01000 01000 00558 00623 00702 18110016 (90002_WN) 90 0 0 % ] def %END IXYZ1 /IXYZ2 357 array def %min 21x17 /IXYZ2 [%BEG IXYZ2 %UE990-7T.TXT; output of ..-7R.PS with MACPS2PDF -> PS2ACII ON ME17GL 141121: ..-7R.log -> .TXT %%XS YS ZS X0 Y0 Z0 X1 Y1 Z1 DV dE*ab dE*CH dE*94 dE*CM dE*00 dE*85 no. Code L* a* b* % %CIEXYZ*1000 data for all colours (a), iim=309, Color difference data for \Delta E*C00=\Delta E*CIEDE2000=1 % 0095040 0100000 0108880 0001070 0001126 0001226 0001275 0001341 0001460 0001000 01554 01554 01554 03042 00981 01338 19110000 (10009_WN) 10 0 0 % 0095040 0100000 0108880 0001813 0001908 0002078 0002089 0002198 0002393 0001000 01489 01489 01489 02914 00987 01501 19110001 (15009_WN) 15 0 0 % 0095040 0100000 0108880 0002840 0002989 0003254 0003191 0003357 0003655 0001000 01420 01420 01420 02137 00990 01562 19110002 (20009_WN) 20 0 0 % 0095040 0100000 0108880 0004196 0004415 0004807 0004625 0004866 0005298 0001000 01349 01349 01349 01703 00993 01541 19110003 (25002_WN) 25 0 0 % 0095040 0100000 0108880 0005926 0006235 0006789 0006434 0006770 0007371 0001000 01277 01277 01277 01404 00995 01465 19110004 (30002_WN) 30 0 0 % 0095040 0100000 0108880 0008076 0008498 0009253 0008662 0009114 0009923 0001000 01202 01202 01202 01183 00997 01357 19110005 (35002_WN) 35 0 0 % 0095040 0100000 0108880 0010692 0011250 0012250 0011351 0011943 0013004 0001000 01126 01126 01126 01010 00998 01233 19110006 (40002_WN) 40 0 0 % 0095040 0100000 0108880 0013820 0014541 0015833 0014544 0015303 0016662 0001000 01046 01046 01046 00868 00999 01103 19110007 (45002_WN) 45 0 0 % 0095040 0100000 0108880 0017505 0018418 0020054 0018313 0019269 0020980 0001000 01000 01000 01000 00775 00999 01010 19110008 (50002_WN) 50 0 0 % 0095040 0100000 0108880 0021792 0022929 0024966 0022786 0023975 0026104 0001000 01063 01063 01063 00777 00998 01025 19110009 (55002_WN) 55 0 0 % 0095040 0100000 0108880 0026728 0028123 0030620 0027952 0029411 0032023 0001000 01142 01142 01142 00793 00997 01051 19110010 (60002_WN) 60 0 0 % 0095040 0100000 0108880 0032358 0034047 0037070 0033843 0035609 0038771 0001000 01220 01220 01220 00808 00995 01070 19110011 (65002_WN) 65 0 0 % 0095040 0100000 0108880 0038728 0040749 0044367 0040506 0042620 0046404 0001000 01296 01296 01296 00824 00994 01084 19110012 (70002_WN) 70 0 0 % 0095040 0100000 0108880 0045883 0048278 0052565 0047989 0050493 0054977 0001000 01371 01371 01371 00839 00993 01095 19110013 (75002_WN) 75 0 0 % 0095040 0100000 0108880 0053869 0056681 0061714 0056341 0059281 0064545 0001000 01446 01446 01446 00856 00993 01104 19110014 (80002_WN) 80 0 0 % 0095040 0100000 0108880 0062733 0066007 0071868 0065609 0069033 0075163 0001000 01520 01520 01520 00873 00992 01111 19110015 (85002_WN) 85 0 0 % 0095040 0100000 0108880 0072518 0076303 0083079 0075842 0079800 0086886 0001000 01594 01594 01594 00890 00991 01116 19110016 (90002_WN) 90 0 0 % ] def %END IXYZ2 %%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 1 def /lanind2 1 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 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 0 1 0 {/xchart exch def %xchart=0,0 gsave 5 /Times-ISOL1 FS %175 85 moveto (VE140-7A) show %xchart 0 eq {(R) show} % {deintp colorm 2 mul add cvishow} ifelse 72 90 translate 0.01 MM dup scale 30 setlinewidth 20 setlinewidth %0 0 25000 17100 0.0 0.0 0.0 0.0 colrecfi %area white grey %0 0 25000 17100 0.0 0.0 0.0 1.0 colrecst %Rahmen Schwarz /xchartl 0 def %0 1 15 {/xchartl exch def %xchartl=0,15 gsave % xchartl 0 eq { 100 13000 translate} if % xchartl 1 eq { 6100 13000 translate} if % xchartl 2 eq { 100 08750 translate} if % xchartl 3 eq { 6100 08750 translate} if % xchartl 4 eq { 100 4500 translate} if % xchartl 5 eq { 6100 4500 translate} if % xchartl 6 eq { 100 0250 translate} if % xchartl 7 eq { 6100 0250 translate} if % xchartl 8 eq {13500 13000 translate} if % xchartl 9 eq {19500 13000 translate} if % xchartl 10 eq {13500 08750 translate} if % xchartl 11 eq {19500 08750 translate} if % xchartl 12 eq {13500 4500 translate} if % xchartl 13 eq {19500 4500 translate} if % xchartl 14 eq {13500 0250 translate} if % xchartl 15 eq {19500 0250 translate} if 150 /Times-ISOL1 FS 0 setgray 300 -150 moveto xchartl 7 le {(VE140-) show} {(VE141-) show} ifelse xchartl 0 ge xchartl 7 le and {xchartl 1 add cvishow} if xchartl 8 ge xchartl 15 le and {xchartl 7 sub cvishow} if (A) show %A (_) show xchart 1 add cvishow /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 /ishownu {0 -50 rmoveto TBK (nu) 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 03 def /ILLYA 25 def %average CIELAB and CIEDE2000 /rgbJLL 4 array def /rgbJLL [{1 1 1 setrgbcolor} {0 1 0 setrgbcolor} {0 0 1 setrgbcolor} {1 1 1 setrgbcolor}] def /rgbJLL4 5 array def %/rgbJLL4 [{1 1 1 setrgbcolor} {1 1 0 setrgbcolor} {0 0 1 setrgbcolor} /rgbJLL4 [{1 1 1 setrgbcolor} {1 1 0 setrgbcolor} {0 0 1 setrgbcolor} {1 0 0 setrgbcolor} {0 1 0 setrgbcolor}] def 20 setlinewidth 050 3725 moveto TBIM tfw xchartl 00 eq xchartl 08 eq or {%xchartl=00,08 TBM (log ) show SM (D) show 20 0 rmoveto TBIM (Y ) show TBM (CIE tristimulus value) showen (CIE\255Normfarbwert\255) showde /xt0 1050 def /xt1 0750 def /yt0 3475 def /ytd 250 def xt0 yt0 0 ytd mul sub moveto TBM (difference) showen %(threshold) showen TBM (Differenz) showde %(schwelle) showde xt0 yt0 1 ytd mul sub moveto TBM (adaptation time) showen (Darbietungszeit) showde TBIM ( t) show ishowp TBM (>=25s) show } if %xchartl=00,08 xchartl 01 eq xchartl 09 eq or {%xchartl=01,09 TBM (log \050) show TBIM (Y/) show SM (D) show TBIM (Y\051 ) show TBM (CIE tristimulus value) showen (CIE\255Normfarbwert\255) showde /xt0 1450 def /xt1 0750 def /yt0 3475 def /ytd 250 def xt0 yt0 0 ytd mul sub moveto TBM (contrast sensitivity) showen %( threshold) showen TBM (Kontrast\255Empfindlichkeit) showde %(sschwelle) showde xt0 yt0 1 ytd mul sub moveto TBM (adaptation time) showen (Darbietungszeit) showde TBIM ( t) show ishowp TBM (>=25s) show } if %xchartl=1 xchartl 02 eq xchartl 10 eq or {%xchartl=02,10 TBM (log \050) show SM (D) show TBIM (Y/Y\051 ) show TBM (CIE tristimulus value) showen (CIE\255Normfarbwert) showde /xt0 1450 def /xt1 0750 def /yt0 3475 def /ytd 250 def xt0 yt0 0 ytd mul sub moveto TBM (relative difference) showen %( threshold) showen TBM (relative Differenz) showde %(schwelle) showde xt0 yt0 1 ytd mul sub moveto TBM (adaptation time) showen (Darbietungszeit) showde TBIM ( t) show ishowp TBM (>=25s) show } if %xchartl=02,10 xchartl 03 eq xchartl 11 eq or {%xchartl=03,11 TBIM (\050Y/) show SM (D) show TBIM (Y\051 ) show TBM (CIE tristimulus value) showen (CIE\255Normfarbwert) showde /xt0 1000 def /xt1 0750 def /yt0 3475 def /ytd 250 def xt0 yt0 0 ytd mul sub moveto TBM (contrast sensitivity) showen %( threshold) showen TBM (Kontrast\255Empfindlichkeit) showde %(s\255Schwelle) showde xt0 yt0 1 ytd mul sub moveto TBM (adaptation time) showen (Darbietungszeit) showde TBIM ( t) show ishowp TBM (>=25s) show } if %xchartl=03,11 xchartl 04 eq xchartl 12 eq or {%xchartl=04,12 TBM (\050) show TBIM (L*/L*) show ishowu TBM (\051 ) show (CIELAB ligthness) showen (CIELAB Helligkeit) showde /xt0 1250 def /xt1 0750 def /yt0 3475 def /ytd 250 def xt0 yt0 0 ytd mul sub moveto TBM (relative normalized data) showen (relative normierte Daten) showde xt0 yt0 1 ytd mul sub moveto TBM (adaptation time) showen (Darbietungszeit) showde TBIM ( t) show ishowp TBM (>=25s) show } if %xchartl=04,12 xchartl 05 eq xchartl 13 eq or {%xchartl=05,13 TBM (log \050) show TBIM (L*/L*) show ishowu TBM (\051 ) show (CIELAB ligthness) showen (CIELAB Helligkeit) showde /xt0 1650 def /xt1 0750 def /yt0 3475 def /ytd 250 def xt0 yt0 0 ytd mul sub moveto TBM (relative normalized data) showen (relative normierte Daten) showde xt0 yt0 1 ytd mul sub moveto TBM (adaptation time) showen (Darbietungszeit) showde TBIM ( t) show ishowp TBM (>=25s) show } if %xchartl=05,13 xchartl 06 eq xchartl 14 eq or {%xchartl=6,14 TBM (log [\050) show TBIM (Y/) show SM (D) show TBIM (Y) show (\051 / \050) show TBIM (Y) show ishowu TBM (/) show SM (D) show TBIM (Y) show ishowu TBM (\051] ) show (CIE tristimulus) showen (CIE\255Normfarbwert) showde /xt0 1000 def /xt1 0750 def /yt0 3475 def /ytd 250 def xt0 yt0 0 ytd mul sub moveto (value, relative sensitivity) showen (relative Empfindlichkeit) showde xt0 yt0 1 ytd mul sub moveto TBM (adaptation time) showen (Darbietungszeit) showde TBIM ( t) show ishowp TBM (>=25s) show } if %xchartl=6,14 xchartl 07 eq xchartl 15 eq or {%xchartl=07,15 TBM (log [\050) show SM (D) show TBIM (Y) show TBM (/) show TBIM (Y) show ishowu TBM (\051 / \050) show SM (D) show TBIM (Y) show TBM (/) show TBIM (Y) show ishowu TBM (\051] ) show (CIE tristimulus) showen (CIE\255Normfarbwert) showde /xt0 1000 def /xt1 0750 def /yt0 3475 def /ytd 250 def xt0 yt0 0 ytd mul sub moveto (value, relative contrast) showen (relativer Kontrast) showde xt0 yt0 1 ytd mul sub moveto TBM (adaptation time) showen (Darbietungszeit) showde TBIM ( t) show ishowp TBM (>=25s) show } if %xchartl=07,15 TBK xchartl 04 ne xchartl 05 ne and xchartl 12 ne and xchartl 13 ne and {%xchart#4,5 and 12,13 xt1 yt0 2.2 ytd mul sub moveto rgbJLL4 xchart get exec (Exp. WI, ) show SK (D) show TBIK (Y) show TBK (*1, ) show xchart 0 eq {(18 achromatic) show} if xchart 1 eq {(Yellow) show} if xchart 2 eq {(Blue) show} if xchart 3 eq {(Red) show} if xchart 4 eq {(Green) show} if xt1 yt0 3.1 ytd mul sub moveto rgbJLL 2 get exec (CIEDE2000) show } if %xchart#4,5 and 12,13 xt1 yt0 4.0 ytd mul sub moveto rgbJLL 1 get exec (CIELAB) show tfw 550 400 translate 50 setlinewidth 0 0 moveto 4500 0 rlineto stroke 0 0 moveto 0 3000 rlineto stroke 30 setlinewidth [100] 0 setdash /YYL 0.001 def /YFL 0.000001 def /Y000 600 array def /Y100 600 array def /YD00 600 array def /IM 17 def 0 1 IM {/i exch def %i=0,IM /i210 i 21 mul def 0 1 20 {/j exch def %j=0,21 IXYZ0 i210 j add IXYZX i210 j add get put } for %j=0,20 } for %i=0,IM %definition of Y000 k=17..51, no definition of Y000 k=0..16 1 1 02 {/j exch def %j=0,02 delta_Y for formulas: CUI, CIELAB, CIEDE2000 0 1 16 {/i exch def %i=0,16 /k j 17 mul i add def /i21 i 21 mul def Y000 k j 1 eq {IXYZ1} if j 2 eq {IXYZ2} if i21 4 add get 0.001 mul put Y100 k j 1 eq {IXYZ1} if j 2 eq {IXYZ2} if i21 7 add get 0.001 mul put YD00 k Y000 k get Y100 k get sub abs put } for %i=0,16 } for %j=0,02 %definition of Y000 k=52,52+IM 3 1 03 {/j exch def %j=3,3 experimental data 0 1 IM {/i exch def %i=0,16 /k j 17 mul i add def /i21 i 21 mul def Y000 k IXYZ0 i21 4 add get 0.001 mul put Y100 k IXYZ0 i21 7 add get 0.001 mul put /VISD IXYZ0 i21 9 add get 0.001 mul def YD00 k Y000 k get Y100 k get sub abs VISD div put } for %i=0,IM } for %j=1,3 /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 /x0 4000 def /x1 4350 def /y0 2200 def /y1 2100 def /yd 300 def x0 y0 350 add moveto (L) TBIM tfw show ishowu TBM (=) show rgbJLL 2 get exec (L) TBIM show ishowg tfw x0 y0 moveto TBK ([cd/m) show eshow2 TBK (]) show [ ] 0 setdash x0 y0 0700 sub moveto rgbJLL 2 get exec (Y) TBIK show ishowu TBK (=18) show tfw x0 y0 1050 sub moveto rgbJLL 2 get exec (L*) TBIK show -100 -30 rmoveto ishowu 0 30 rmoveto TBK (=50) show tfw 50 setlinewidth 1 setgray %W x1 y1 yd 1 mul sub moveto TBK (60) show %eshow1 rgbJLL 2 get exec %B x0 y0 yd 1 mul sub moveto 300 0 rlineto stroke [100 ] 0 setdash rgbJLL 3 get exec %W x0 y0 yd 1 mul sub moveto 300 0 rlineto stroke tfw [ ] 0 setdash 50 setlinewidth 3870 150 moveto (x) TBIM tfw show 20 0 rmoveto (=) TBM tfw show 20 0 rmoveto (log) TBM tfw show 30 0 rmoveto TBIM (Y) show 2250 xchartl 7 ge {100 add} if 150 moveto rgbJLL 2 get exec (u) TBIM show 20 0 rmoveto (=) TBM show 20 0 rmoveto (log) TBM show 30 0 rmoveto TBIM (Y) show 00 -60 rmoveto TBK (u) show 0 60 rmoveto 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_DL {%BEG ALOG_DL, xchartl=0,08 xchartl 7 le {/Fx Fx0x def /Fy Fy0x def /Flog -3 def} {/Fx Fx0x 2 mul def /Fy Fy0x 2 mul def /Flog -1.5 def} ifelse 1 1 JLLX {/JLL exch def %JLL=1,JLLX rgbJLL JLL get exec JLL 3 eq {%JLL=3 rgbJLL4 xchart get exec /ILLX IM def } if %JLL=3 newpath 0 1 ILLX {/ILL exch def %ILL=0,ILLX /ILLY ILL JLL ILLP mul add def XGRAPH ILLY Y000 ILLY get log put DELTL0 ILLY YD00 ILLY get abs log put DELTL0 ILLY get 4.3 gt {DELTL0 ILLY 4.3 put} if DELTL0 ILLY get -3 le {DELTL0 ILLY -3 put} if XDAT0 ILLY XGRAPH ILLY get put XDAT1 ILLY Y000 ILLY get put XDAT2 ILLY YD00 ILLY get put XDAT3 ILLY YD00 ILLY get put XDAT4 ILLY YD00 ILLY get abs log put YGRAPH ILLY DELTL0 ILLY get put XGRAPH ILLY get Fx mul YGRAPH ILLY get Fy mul JLL 3 eq {%JLL=3,#3 40 0 360 arc fill }%JLL=3 {%JLL#3 ILL 0 eq {moveto} if ILL 01 ge ILL ILLM le and {lineto} if ILL ILLX eq {lineto stroke} if } ifelse %JLL#3 } for %ILL=0,ILLX } for %JLL=1,JLLX %vertical lines of surround %vertical lines of surround blue-green 0 0 1 setrgbcolor XGRAPH ILLYA get Fx mul YGRAPH ILLYA get Fy mul moveto XGRAPH ILLYA get Fx mul Flog Fy mul lineto stroke [100] 0 setdash 0 1 0 setrgbcolor XGRAPH ILLYA get Fx mul YGRAPH ILLYA get Fy mul moveto XGRAPH ILLYA get Fx mul Flog Fy mul lineto stroke [ ] 0 setdash } def %END ALOG_DL, xchartl=0,08 %********************************************************************* /ALOG_L_DL {%BEG ALOG_L_DL, xchartl=1,09 xchartl 7 le {/Fx Fx0x def /Fy Fy0x def /Flog -1 def} {/Fx Fx0x 2 mul def /Fy Fy0x 2 mul def /Flog -0.5 def} ifelse 1 1 JLLX {/JLL exch def %JLL=1,JLLX rgbJLL JLL get exec JLL 3 eq {%JLL=3 rgbJLL4 xchart get exec /ILLX IM def } if %JLL=3 newpath 0 1 ILLX {/ILL exch def %ILL=0,ILLX /ILLY ILL JLL ILLP mul add def XGRAPH ILLY Y000 ILLY get log put DELTL0 ILLY Y000 ILLY get YD00 ILLY get div log put DELTL0 ILLY get 6.3 gt {DELTL0 ILLY 6.3 put} if DELTL0 ILLY get -1 le {DELTL0 ILLY -1 put} if YGRAPH ILLY DELTL0 ILLY get put XDAT0 ILLY XGRAPH ILLY get put XDAT1 ILLY Y000 ILLY get put XDAT2 ILLY YD00 ILLY get put XDAT3 ILLY Y000 ILLY get YD00 ILLY get div put XDAT4 ILLY Y000 ILLY get YD00 ILLY get div log put XGRAPH ILLY get Fx mul YGRAPH ILLY get Fy mul JLL 3 eq {%JLL=3,#3 40 0 360 arc fill }%JLL=3 {%JLL#3 ILL 0 eq {moveto} if ILL 01 ge ILL ILLM le and {lineto} if ILL ILLX eq {lineto stroke} if } ifelse %JLL#3 } for %ILL=0,ILLX } for %JLL=1,JLLX %vertical lines of surround blue-green 0 0 1 setrgbcolor XGRAPH ILLYA get Fx mul YGRAPH ILLYA get Fy mul moveto XGRAPH ILLYA get Fx mul Flog Fy mul lineto stroke [100] 0 setdash 0 1 0 setrgbcolor XGRAPH ILLYA get Fx mul YGRAPH ILLYA get Fy mul moveto XGRAPH ILLYA get Fx mul Flog Fy mul lineto stroke [ ] 0 setdash } def %END ALOG_L_DL, xchartl=1,09 %********************************************************************* /ALOG_DL_L {%BEG ALOG_DL_L, xchartl=2,10 xchartl 7 le {/Fx Fx0x def /Fy Fy0x def /Flog -4 def} {/Fx Fx0x 2 mul def /Fy Fy0x 2 mul def /Flog -2 def} ifelse 1 1 JLLX {/JLL exch def %JLL=1,JLLX rgbJLL JLL get exec JLL 3 eq {%JLL=3 rgbJLL4 xchart get exec /ILLX IM def } if %JLL=3 newpath 0 1 ILLX {/ILL exch def %ILL=0,ILLX /ILLY ILL JLL ILLP mul add def XGRAPH ILLY Y000 ILLY get log put DELTL0 ILLY YD00 ILLY get Y000 ILLY get div log put DELTL0 ILLY get -3 le {DELTL0 ILLY -3 put} if YGRAPH ILLY DELTL0 ILLY get put XDAT0 ILLY XGRAPH ILLY get put XDAT1 ILLY Y000 ILLY get put XDAT2 ILLY YD00 ILLY get put XDAT3 ILLY YD00 ILLY get Y000 ILLY get div put XDAT4 ILLY YD00 ILLY get Y000 ILLY get div log put XGRAPH ILLY get Fx mul YGRAPH ILLY get Fy mul JLL 3 eq {%JLL=3,#3 40 0 360 arc fill }%JLL=3 {%JLL#3 ILL 0 eq {moveto} if ILL 01 ge ILL ILLM le and {lineto} if ILL ILLX eq {lineto stroke} if } ifelse %JLL#3 } for %ILL=0,ILLX } for %JLL=1,JLLX %vertical lines of surround %vertical lines of surround blue-green 0 0 1 setrgbcolor XGRAPH ILLYA get Fx mul YGRAPH ILLYA get Fy mul moveto XGRAPH ILLYA get Fx mul Flog Fy mul lineto stroke [100] 0 setdash 0 1 0 setrgbcolor XGRAPH ILLYA get Fx mul YGRAPH ILLYA get Fy mul moveto XGRAPH ILLYA get Fx mul Flog Fy mul lineto stroke [ ] 0 setdash } def %END ALOG_DL_L, xchartl=2,10 %************************************************************* /ALIN_L_DL {%BEG ALLIN_L_DL, xchartl=3,11 /Fx03 500 def /Fy03 050 def xchartl 7 le {/Fx Fx03 def /Fy Fy03 def /Flog 0 def} {/Fx Fx03 2 mul def /Fy Fy03 1 mul def /Flog 0 def} ifelse 1 1 JLLX {/JLL exch def %JLL=1,JLLX rgbJLL JLL get exec JLL 3 eq {%JLL=3 rgbJLL4 xchart get exec /ILLX IM def } if %JLL=3 newpath 0 1 ILLX {/ILL exch def %ILL=0,ILLX /ILLY ILL JLL ILLP mul add def XGRAPH ILLY Y000 ILLY get log put DELTL0 ILLY Y000 ILLY get YD00 ILLY get div put DELTL0 ILLY get 60 ge {DELTL0 ILLY 60 put} if XDAT0 ILLY XGRAPH ILLY get put XDAT1 ILLY Y000 ILLY get put XDAT2 ILLY YD00 ILLY get put XDAT3 ILLY Y000 ILLY get YD00 ILLY get div put XDAT4 ILLY Y000 ILLY get YD00 ILLY get div abs log put YGRAPH ILLY DELTL0 ILLY get put XGRAPH ILLY get Fx mul YGRAPH ILLY get Fy mul JLL 3 eq {%JLL=3,#3 40 0 360 arc fill }%JLL=3 {%JLL#3 ILL 0 eq {moveto} if ILL 01 ge ILL ILLM le and {lineto} if ILL ILLX eq {lineto stroke} if } ifelse %JLL#3 } for %ILL=0,ILLX } for %JLL=1,JLLX %vertical lines of surround %vertical lines of surround blue-green 0 0 1 setrgbcolor XGRAPH ILLYA get Fx mul YGRAPH ILLYA get Fy mul moveto XGRAPH ILLYA get Fx mul Flog Fy mul lineto stroke [100] 0 setdash 0 1 0 setrgbcolor XGRAPH ILLYA get Fx mul YGRAPH ILLYA get Fy mul moveto XGRAPH ILLYA get Fx mul Flog Fy mul lineto stroke [ ] 0 setdash } def %END ALIN_L_DL, xchartl=3,11 %********************************************************************* /ALIN_T* {%BEG ALIN_T*, xchart=4,12 /Fx04 500. def /Fy04 25. def xchartl 7 le {/Fx Fx04 def /Fy Fy04 def /Flog 0 def} {/Fx Fx04 2 mul def /Fy Fy04 1 mul def /Flog 0 def} ifelse 1 1 1 {/JLL exch def %JLL=1,JLLX %only CIELAB rgbJLL JLL get exec JLL 3 eq {%JLL=3 rgbJLL4 xchart get exec /ILLX IM def } if %JLL=3 newpath 0 1 ILLX {/ILL exch def %ILL=0,ILLX /ILLY ILL JLL ILLP mul add def XGRAPH ILLY Y000 ILLY get log put DELTL0 ILLY Y000 ILLY get 100. div 0.3333 exp 116. mul 16. sub put DELTL0 ILLY get 0 le {DELTL0 ILLY FYY put} if XDAT0 ILLY XGRAPH ILLY get put XDAT1 ILLY Y000 ILLY get put XDAT2 ILLY YD00 ILLY get put XDAT3 ILLY Y000 ILLY get 100. div 0.3333 exp 116. mul 16. sub put XDAT4 ILLY Y000 ILLY get 100. div 0.3333 exp 116. mul 16. sub log put YGRAPH ILLY DELTL0 ILLY get put XGRAPH ILLY get Fx mul YGRAPH ILLY get Fy mul JLL 3 eq {%JLL=3,#3 40 0 360 arc fill }%JLL=3 {%JLL#3 ILL 0 eq {moveto} if ILL 01 ge ILL ILLM le and {lineto} if ILL ILLX eq {lineto stroke} if } ifelse %JLL#3 } for %ILL=0,ILLX } for %JLL=1,JLLX %vertical lines of surround blue-green 0 0 1 setrgbcolor XGRAPH ILLYA get Fx mul YGRAPH ILLYA get Fy mul moveto XGRAPH ILLYA get Fx mul Flog Fy mul lineto stroke [100] 0 setdash 0 1 0 setrgbcolor XGRAPH ILLYA get Fx mul YGRAPH ILLYA get Fy mul moveto XGRAPH ILLYA get Fx mul Flog Fy mul lineto stroke [ ] 0 setdash } def %END ALIN_T*, xchartl=4,12 %********************************************************************* /ALOG_T* {%BEG ALOG_T*, xchartl=5,13 /Fx05 500. def /Fy05 Fy0x def xchartl 7 le {/Fx Fx0x def /Fy Fy0x def /Flog -3 def} {/Fx Fx0x 2 mul def /Fy Fy0x 2 mul def /Flog -1.5 def} ifelse 1 1 1 {/JLL exch def %JLL=1,JLLX %JLL=1,JLLX %only CIELAB rgbJLL JLL get exec JLL 3 eq {%JLL=3 rgbJLL4 xchart get exec /ILLX IM def } if %JLL=3 newpath 0 1 ILLX {/ILL exch def %ILL=0,ILLX /ILLY ILL JLL ILLP mul add def XGRAPH ILLY Y000 ILLY get log put DELTL0 ILLY Y000 ILLY get 100. div 0.3333 exp 116. mul 16. sub 50 div log put DELTL0 ILLY get -2 le {DELTL0 ILLY -2 put} if XDAT0 ILLY XGRAPH ILLY get put XDAT1 ILLY Y000 ILLY get put XDAT2 ILLY YD00 ILLY get put XDAT3 ILLY Y000 ILLY get 100. div 0.3333 exp 116. mul 16. sub 50 div put XDAT4 ILLY Y000 ILLY get 100. div 0.3333 exp 116. mul 16. sub 50 div log put YGRAPH ILLY DELTL0 ILLY get put XGRAPH ILLY get Fx mul YGRAPH ILLY get Fy mul JLL 3 eq {%JLL=3,#3 40 0 360 arc fill }%JLL=3 {%JLL#3 ILL 0 eq {moveto} if ILL 01 ge ILL ILLM le and {lineto} if ILL ILLX eq {lineto stroke} if } ifelse %JLL#3 } for %ILL=0,ILLX } for %JLL=1,JLLX %vertical lines of surround blue-green 0 0 1 setrgbcolor XGRAPH ILLYA get Fx mul YGRAPH ILLYA get Fy mul moveto XGRAPH ILLYA get Fx mul Flog Fy mul lineto stroke [100] 0 setdash 0 1 0 setrgbcolor XGRAPH ILLYA get Fx mul YGRAPH ILLYA get Fy mul moveto XGRAPH ILLYA get Fx mul Flog Fy mul lineto stroke [ ] 0 setdash } def %END ALOG_T*, xchartl=5,13 %********************************************************************* /ALOG_L_DLn {%BEG ALOG_L_DLn, xchartl=6,14 xchartl 7 le {/Fx Fx0x def /Fy Fy0x def /Flog -3 def} {/Fx Fx0x 2 mul def /Fy Fy0x 2 mul def /Flog -1.5 def} ifelse 1 1 JLLX {/JLL exch def %JLL=1,JLLX rgbJLL JLL get exec JLL 3 eq {%JLL=3 rgbJLL4 xchart get exec /ILLX IM def } if %JLL=3 newpath /ILLU ILLA JLL 17 mul add def 0 1 ILLX {/ILL exch def %ILL=0,ILLX /ILLY ILL JLL ILLP mul add def XGRAPH ILLY Y000 ILLY get log put /DELTLx Y000 ILLY get YD00 ILLY get div def /DELTLu Y000 ILLU get YD00 ILLU get div def XDAT0 ILLY XGRAPH ILLY get put XDAT1 ILLY Y000 ILLY get put XDAT2 ILLY YD00 ILLY get put XDAT3 ILLY DELTLx put XDAT4 ILLY DELTLx DELTLu div abs put DELTL0 ILLY DELTLx DELTLu YFL add div abs log put YGRAPH ILLY DELTL0 ILLY get put XGRAPH ILLY get Fx mul YGRAPH ILLY get Fy mul JLL 3 eq {%JLL=3,#3 40 0 360 arc fill }%JLL=3 {%JLL#3 ILL 0 eq {moveto} if ILL 01 ge ILL ILLM le and {lineto} if ILL ILLX eq {lineto stroke} if } ifelse %JLL#3 } for %ILL=0,ILLX } for %JLL=1,JLLX %vertical lines of surround blue-green 0 0 1 setrgbcolor XGRAPH ILLYA get Fx mul YGRAPH ILLYA get Fy mul moveto XGRAPH ILLYA get Fx mul Flog Fy mul lineto stroke [100] 0 setdash 0 1 0 setrgbcolor XGRAPH ILLYA get Fx mul YGRAPH ILLYA get Fy mul moveto XGRAPH ILLYA get Fx mul Flog Fy mul lineto stroke [ ] 0 setdash } def %END ALOG_L_DLn, xchartl=6,14 %********************************************************************* /ALOG_DL_Ln {%BEG ALOG_DL_Ln, xchartl=7,15 xchartl 7 le {/Fx Fx0x def /Fy Fy0x def /Flog -3 def} {/Fx Fx0x 2 mul def /Fy Fy0x 2 mul def /Flog -1.5 def} ifelse 1 1 JLLX {/JLL exch def %JLL=1,JLLX rgbJLL JLL get exec JLL 3 eq {%JLL=3 rgbJLL4 xchart get exec /ILLX IM def } if %JLL=3 newpath /ILLU ILLA JLL 17 mul add def 0 1 ILLX {/ILL exch def %ILL=0,ILLX /ILLY ILL JLL ILLP mul add def XGRAPH ILLY Y000 ILLY get log put /DELTLx YD00 ILLY get Y000 ILLY get div def /DELTLu YD00 ILLU get Y000 ILLU get div def DELTL0 ILLY DELTLx DELTLu YFL add div abs log put DELTL0 ILLY get -3 le {DELTL0 ILLY -3 put} if XDAT0 ILLY XGRAPH ILLY get put XDAT1 ILLY Y000 ILLY get put XDAT2 ILLY YD00 ILLY get put XDAT3 ILLY DELTLx put XDAT4 ILLY DELTLu DELTLx div abs put YGRAPH ILLY DELTL0 ILLY get put XGRAPH ILLY get Fx mul YGRAPH ILLY get Fy mul JLL 3 eq {%JLL=3,#3 40 0 360 arc fill }%JLL=3 {%JLL#3 ILL 0 eq {moveto} if ILL 01 ge ILL ILLM le and {lineto} if ILL ILLX eq {lineto stroke} if } ifelse %JLL#3 } for %ILL=0,ILLX } for %JLL=1,JLLX %vertical lines of surround blue-green 0 0 1 setrgbcolor XGRAPH ILLYA get Fx mul YGRAPH ILLYA get Fy mul moveto XGRAPH ILLYA get Fx mul Flog Fy mul lineto stroke [100] 0 setdash 0 1 0 setrgbcolor XGRAPH ILLYA get Fx mul YGRAPH ILLYA get Fy mul moveto XGRAPH ILLYA get Fx mul Flog Fy mul lineto stroke [ ] 0 setdash } def %END ALOG_DL_Ln, xchartl=7,15 %********************************************************************* 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 xchartl 7 le {tx0x i get exec show} {tx1x i get exec show} ifelse ixl 75 moveto 0 -150 rlineto stroke } for xchartl 0 eq {%xchartl=0 ALOG_DL /ty00 [(-3) (-2) (-1) ( 0) ( 1) ( 2) ( 3) ( 4) ( 5)] def %!y-Achse: 1 log-Einheiten = 500 scale units 0 1 6 {/i exch def /iyt {-100 i 0500 mul add} def /iyl { 000 i 0500 mul add} def -450 iyt moveto xchartl 0 eq {ty00 i get exec show} if -75 iyl moveto 150 0 rlineto stroke } for [100 ] 0 setdash 1000 0000 moveto 2000 2000 rlineto stroke 3000 0050 add 2000 100 sub moveto TBIK (m) show TBK (=1) show 1000 0000 moveto 2000 1322 rlineto stroke 3000 0050 add 1322 100 sub moveto TBIK (m) show TBK (=2/3) show [ ] 0 setdash 1500 1500 translate %new cero point at xr=0 ALOG_DL -1500 -1500 translate %new cero point at xr=0 } if %xchartl=0 ALOG_DL xchartl 1 eq {%xchartl=1 ALOG_L_DL %!y-axis: 1 log-unit = 500 scale units, different for most figures /ty01 [(-1) ( 0) ( 1) ( 2) ( 3) ( 4) ( 5) ( ) ( )] def 0 1 6 {/i exch def /iyt {-100 i 0500 mul add} def /iyl { 000 i 0500 mul add} def -450 iyt moveto xchartl 1 eq {ty01 i get exec show} if -75 iyl moveto 150 0 rlineto stroke } for [100 ] 0 setdash 0000 0500 moveto 3000 0 rlineto stroke 3000 0050 add 0500 moveto TBIK (m) show TBK (=0) show 0000 0000 moveto 3000 1000 rlineto stroke 3000 0050 add 1000 100 sub moveto TBIK (m) show TBK (=1/3) show [ ] 0 setdash 1500 0500 translate %new cero point at xr=0 ALOG_L_DL -0500 -0500 translate %new cero point at xr=0 } if %xchartl=1 ALOG_L_DL xchartl 2 eq {%xchartl=2 ALOG_DL_L %!y-axis: 1 log-unit = 500 scale units, different for most figures /ty02 [(-4) (-3) (-2) (-1) ( 0) ( 1) ( 2) ( 3) ( 4) ( 5)] def 0 1 6 {/i exch def /iyt {-100 i 0500 mul add} def /iyl { 000 i 0500 mul add} def -450 iyt moveto xchartl 2 eq {ty02 i get exec show} if -75 iyl moveto 150 0 rlineto stroke } for [100 ] 0 setdash 0000 2000 moveto 3000 0 rlineto stroke 3000 0050 add 2000 moveto TBIK (m) show TBK (=0) show 0000 2000 moveto 3000 -1000 rlineto stroke 3000 0050 add 1000 100 sub moveto TBIK (m) show TBK (=-1/3) show [ ] 0 setdash 1500 2000 translate %new cero point at xr=0 ALOG_DL_L -1500 -2000 translate %new cero point at xr=0 } if %xchartl=2 ALOG_DL_L xchartl 3 eq {%xchartl=3 ALIN_L_DL %!y-axis: 1 log-unit = 500 scale units, different for most figures /ty03 [( 0) (10) (20) (30) (40) (50) (60) (70)] def 0 1 6 {/i exch def /iyt {-100 i 0500 mul add} def /iyl { 000 i 0500 mul add} def -450 iyt moveto xchartl 3 eq {ty03 i get exec show} if -75 iyl moveto 150 0 rlineto stroke } for %[100 ] 0 setdash % 0000 1250 moveto 3000 0 rlineto stroke % 3000 0050 add 1250 0050 sub moveto TBIM (m) show TBM (=0) show %[ ] 0 setdash 1500 000 translate %new cero point at xr=0 ALIN_L_DL -1500 -000 translate %new cero point at xr=0 } if %xchartl=3 ALIN_L_DL xchartl 4 eq {%xchartl=4 ALIN_T* %!y-axis: 1 log-unit = 40 scale units, different for most figures /ty04 [( 0) (20) (40) (60) (80) (100) (120) (140)] def 0 1 6 {/i exch def /iyt {-100 i 0500 mul add} def /iyl { 000 i 0500 mul add} def -450 iyt moveto xchartl 4 eq {ty04 i get exec show} if -75 iyl moveto 150 0 rlineto stroke } for [100 ] 0 setdash 0000 1250 moveto 3000 0 rlineto stroke 3000 0050 add 1250 0050 sub moveto TBIK (m) show TBK (=0) show [ ] 0 setdash 1500 000 translate %new cero point at xr=0 ALIN_T* -1500 -000 translate %new cero point at xr=0 } if %xchartl=4 ALIN_T* xchartl 5 eq {%xchartl=5 ALOG_T* %!y-axis: 1 log-unit = 50 scale units, different for most figures /ty05 [(-,6) (-,4) (-,2) ( 0) (0,2) (0,4) (0,6) (0,8)] def 0 1 6 {/i exch def /iyt {-100 i 0500 mul add} def /iyl { 000 i 0500 mul add} def -450 iyt moveto xchartl 5 eq {ty05 i get exec show} if -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 [ ] 0 setdash 1500 1500 translate %new cero point at xr=0 ALOG_T* -1500 -1500 translate %new cero point at xr=0 } if %xchartl=5 ALOG_T* xchartl 6 eq {%xchartl=6 ALOG_L_DLn %!y-axis: 1 log-unit = 500 scale units, different for most figures /ty06 [(-3) (-2) (-1) ( 0) ( 1) ( 2) ( 3)] def 0 1 6 {/i exch def /iyt {-100 i 0500 mul add} def /iyl { 000 i 0500 mul add} def -450 iyt moveto xchartl 6 eq {ty06 i get exec show} if -75 iyl moveto 150 0 rlineto stroke } for [100 ] 0 setdash 0000 1500 moveto 3000 0 rlineto stroke 3000 0050 add 1500 moveto TBIK (m) show TBK (=0) show 0000 0000 moveto 3000 1000 rlineto stroke 3000 0050 add 1000 100 sub moveto TBIK (m) show TBK (=1/3) show [ ] 0 setdash 1500 1500 translate %new cero point at xr=0 ALOG_L_DLn -1500 -1500 translate %new cero point at xr=0 } if %xchartl=6 ALOG_L_DLn xchartl 7 eq {%xchartl=7 ALOG_DL_Ln %!y-axis: 1 log-unit = 500 scale units, different for most figures /ty07 [(-3) (-2) (-1) ( 0) ( 1) ( 2) ( 3)] def 0 1 6 {/i exch def /iyt {-100 i 0500 mul add} def /iyl { 000 i 0500 mul add} def -450 iyt moveto xchartl 7 eq {ty07 i get exec show} if -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 1500 moveto 3000 -1000 rlineto stroke 3000 0050 add 0500 0050 sub moveto TBIK (m) show TBK (=-1/3) show [ ] 0 setdash 1500 1500 translate %new cero point at xr=0 ALOG_DL_Ln -1500 -1500 translate %new cero point at xr=0 } if %xchartl=7 ALOG_DL_Ln xchartl 8 eq {%xchartl=8 ALOG_DL %!y-axis: 1 log-unit = 500 scale units, different for most figures /ty8 [ ( ) (-1) ( ) ( 0) ( ) ( 1) ( ) ( 2) ( )] def 0 1 6 {/i exch def /iyt {-100 i 0500 mul add} def /iyl { 000 i 0500 mul add} def -450 iyt moveto xchartl 08 eq {ty8 i get exec show} if -75 iyl moveto 150 0 rlineto stroke } for [100 ] 0 setdash 1000 0000 moveto 2000 2000 rlineto stroke 3000 0050 add 2000 100 sub moveto TBIK (m) show TBK (=1) show 1000 0000 moveto 2000 1322 rlineto stroke 3000 0050 add 1322 100 sub moveto TBIK (m) show TBK (=2/3) show [ ] 0 setdash 1000 1500 translate %new cero point at xr=0 ALOG_DL -1000 -1500 translate %new cero point at xr=0 } if %xchartl=8 ALOG_DL xchartl 9 eq {%xchartl=9 ALOG_L_DL %!y-axis: 1 log-unit = 500 scale units, different for most figures /ty09 [ ( ) ( 0) ( ) ( 1) ( ) ( 2) ( ) ( 3) ( )] def 0 1 6 {/i exch def /iyt {-100 i 0500 mul add} def /iyl { 000 i 0500 mul add} def -450 iyt moveto xchartl 09 eq {ty09 i get exec show} if -75 iyl moveto 150 0 rlineto stroke } for [100 ] 0 setdash 0000 0500 moveto 3000 0 rlineto stroke 3000 0050 add 0500 moveto TBIK (m) show TBK (=0) show 0000 0000 moveto 3000 1000 rlineto stroke 3000 0050 add 1000 100 sub moveto TBIK (m) show TBK (=1/3) show [ ] 0 setdash 1000 0500 translate %new cero point at xr=0 ALOG_L_DL -1000 -0500 translate %new cero point at xr=0 } if %xchartl=9 ALOG_L_DL xchartl 10 eq {%xchartl=10 ALOG_DL_L %!y-axis: 1 log-unit = 500 scale units, different for most figures /ty10 [(-2) ( ) (-1) ( ) ( 0) ( ) ( 1) ( ) ( 2)] def 0 1 6 {/i exch def /iyt {-100 i 0500 mul add} def /iyl { 000 i 0500 mul add} def -450 iyt moveto xchartl 10 eq {ty10 i get exec show} if -75 iyl moveto 150 0 rlineto stroke } for [100 ] 0 setdash 0000 2000 moveto 3000 0 rlineto stroke 3000 0050 add 2000 moveto TBIK (m) show TBK (=0) show 0000 2000 moveto 3000 -1000 rlineto stroke 3000 0050 add 1000 100 sub moveto TBIK (m) show TBK (=-1/3) show [ ] 0 setdash 1000 2000 translate %new cero point at xr=0 ALOG_DL_L -1000 -2000 translate %new cero point at xr=0 } if %xchartl=10 ALOG_DL_L xchartl 11 eq {%xchartl=11 ALIN_L_DL %!y-axis: 1 log-unit = 500 scale units, different for most figures /ty11 [( 0) (10) (20) (30) (40) (50) (60) (70)] def 0 1 6 {/i exch def /iyt {-100 i 0500 mul add} def /iyl { 000 i 0500 mul add} def -450 iyt moveto xchartl 11 eq {ty11 i get exec show} if -75 iyl moveto 150 0 rlineto stroke } for %[100 ] 0 setdash % 0000 0000 moveto 3000 0 rlineto stroke % 3000 0000 moveto TBIM (m) show TBM (=0) show %[ ] 0 setdash 1000 000 translate %new cero point at xr=0 ALIN_L_DL -1000 -000 translate %new cero point at xr=0 } if %xchartl=11 ALIN_L_DL xchartl 12 eq {%xchartl=12 ALIN_T* %!y-axis: 1 log-unit = 500 scale units, different for most figures /ty12 [( 0) (20) (40) (60) (80) (100) (120) (140)] def 0 1 6 {/i exch def /iyt {-100 i 0500 mul add} def /iyl { 000 i 0500 mul add} def -450 iyt moveto xchartl 12 eq {ty12 i get exec show} if -75 iyl moveto 150 0 rlineto stroke } for [100 ] 0 setdash 0000 1250 moveto 3000 0 rlineto stroke 3000 0050 add 1250 0050 sub moveto TBIK (m) show TBK (=0) show [ ] 0 setdash 1000 000 translate %new cero point at xr=0 ALIN_T* -1000 -000 translate %new cero point at xr=0 } if %xchartl=12 ALIN_T* xchartl 13 eq {%xchartl=13 ALOG_T* %!y-axis: 1 log-unit = 500 scale units, different for most figures /ty13 [(-,6) (-,4) (-,2) ( 0) (0,2) (0,4) (0,6) (0,8)] def 0 1 6 {/i exch def /iyt {-100 i 0500 mul add} def /iyl { 000 i 0500 mul add} def -450 iyt moveto xchartl 13 eq {ty13 i get exec show} if -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 [ ] 0 setdash 1000 1500 translate %new cero point at xr=0 ALOG_T* -1000 -1500 translate %new cero point at xr=0 } if %xchartl=13 ALOG_T* xchartl 14 eq {%xchartl=14 ALOG_L_DLn %!y-axis: 1 log-unit = 500 scale units, different for most figures /ty14 [( ) (-1) ( ) ( 0) ( ) ( 1) ( )] def 0 1 6 {/i exch def /iyt {-100 i 0500 mul add} def /iyl { 000 i 0500 mul add} def -450 iyt moveto xchartl 14 eq {ty14 i get exec show} if -75 iyl moveto 150 0 rlineto stroke } for [100 ] 0 setdash 0000 1500 moveto 3000 0 rlineto stroke 3000 0050 add 1500 moveto TBIK (m) show TBK (=0) show 0000 0000 moveto 3000 1000 rlineto stroke 3000 0050 add 1000 100 sub moveto TBIK (m) show TBK (=1/3) show [ ] 0 setdash 1000 1500 translate %new cero point at xr=0 ALOG_L_DLn -1000 -1500 translate %new cero point at xr=0 } if %xchartl=14 ALOG_L_DLn xchartl 15 eq {%xchartl=15 ALOG_DL_Ln %!y-axis: 1 log-unit = 500 scale units, different for most figures /ty15 [( ) (-1) ( ) ( 0) ( ) ( 1) ( ) ] def 0 1 6 {/i exch def /iyt {-100 i 0500 mul add} def /iyl { 000 i 0500 mul add} def -450 iyt moveto xchartl 15 eq {ty15 i get exec show} if -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 1500 moveto 3000 -1000 rlineto stroke 3000 0050 add 0500 0050 sub moveto TBIK (m) show TBK (=-1/3) show [ ] 0 setdash 1000 1500 translate %new cero point at xr=0 ALOG_DL_Ln -1000 -1500 translate %new cero point at xr=0 } if %xchartl=15 ALOG_DL_Ln /iout 0 def iout 1 eq {%iout=1 TS 000 2700 moveto xchartl 0 eq {(ALOG_DL) show} if xchartl 1 eq {(ALOG_DL_L) show} if xchartl 2 eq {(ALOG_L_DL) show} if xchartl 3 eq {(ALIN_L_DL) show} if xchartl 4 eq {(ALIN_T*) show} if xchartl 5 eq {(ALOG_T*) show} if xchartl 6 eq {(ALOG_DL_Ln) show} if xchartl 7 eq {(ALOG_L_DLn) show} if xchartl 08 eq {(ALOG_DL) show} if xchartl 09 eq {(ALOG_DL_L) show} if xchartl 10 eq {(ALOG_L_DL) show} if xchartl 11 eq {(ALIN_L_DL) show} if xchartl 12 eq {(ALIN_T*) show} if xchartl 13 eq {(ALOG_T*) show} if xchartl 14 eq {(ALOG_DL_Ln) show} if xchartl 15 eq {(ALOG_L_DLn) show} if /ILL1 17 def /ILL2 32 def ILL1 1 ILL2 {/ILL exch def %for example 17..32 /ILX ILL ILL1 sub def %allways 0..16 0500 2500 ILX 140 mul sub moveto ILL cvishow 1000 2500 ILX 140 mul sub moveto XDAT0 ILLY get cvsshow2 1600 2500 ILX 140 mul sub moveto XDAT1 ILLY get cvsshow3 2200 2500 ILX 140 mul sub moveto XDAT2 ILLY get cvsshow3 2800 2500 ILX 140 mul sub moveto XDAT3 ILLY get cvsshow3 3400 2500 ILX 140 mul sub moveto XDAT4 ILLY get cvsshow3 ILLX 8 eq {(*) show} if } for } if %iout=1 550 neg 400 neg translate %special space for 'xm03'PROZ0.COM 2x before/after xchartl % xchartl 0 eq { 100 neg 13000 neg translate} if % xchartl 1 eq { 6100 neg 13000 neg translate} if % xchartl 2 eq { 100 neg 08750 neg translate} if % xchartl 3 eq { 6100 neg 08750 neg translate} if % xchartl 4 eq { 100 neg 4500 neg translate} if % xchartl 5 eq { 6100 neg 4500 neg translate} if % xchartl 6 eq { 100 neg 0250 neg translate} if % xchartl 7 eq { 6100 neg 0250 neg translate} if % xchartl 8 eq {13500 neg 13000 neg translate} if % xchartl 9 eq {19500 neg 13000 neg translate} if % xchartl 10 eq {13500 neg 08750 neg translate} if % xchartl 11 eq {19500 neg 08750 neg translate} if % xchartl 12 eq {13500 neg 4500 neg translate} if % xchartl 13 eq {19500 neg 4500 neg translate} if % xchartl 14 eq {13500 neg 0250 neg translate} if % xchartl 15 eq {19500 neg 0250 neg translate} if grestore %} for %xchartl=0,15 showpage grestore } for %xchart=0,0 %%Trailer