%!PS-Adobe-3.0 EPSF-3.0 VG171-8A %%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_AUSW7_5285.FOR, E/A: AC00_AUSW7_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)% %UE970-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 74300 77520 80760 61990 64789 66860 3450 6210 6210 3523 6207 6204 6200 17150587 (91023_BF) 91 2 2 % 6185 557 94810 100000 107330 74300 77520 80760 61990 64789 66860 3640 6210 6210 3523 6207 6204 6200 17150591 (91023_BF) 91 2 2 % 6185 557 94810 100000 107330 73995 78320 85305 69176 73399 79712 1428 2323 2323 1393 2323 2315 2303 17150603 (91017_BF) 91 -1 -1 % 2288 407 94810 100000 107330 56309 59450 63739 53070 55940 59788 1498 1978 1978 1221 1977 1974 1968 17130604 (82005_BF) 82 0 0 % 1958 282 94810 100000 107330 50811 53650 57770 47944 50659 54818 1288 1805 1805 1092 1802 1801 1800 17180605 (78007_BF) 78 0 0 % 1785 274 94810 100000 107330 41637 43950 47353 38901 41060 44124 1498 1981 1981 1244 1980 1980 1980 17140606 (72007_BF) 72 0 0 % 1977 134 94810 100000 107330 31455 33190 35657 29588 31230 33531 1400 1613 1613 1077 1613 1613 1613 17100607 (64006_BF) 64 0 0 % 1613 45 94810 100000 107330 18820 19919 21952 17784 18829 20793 1260 1260 1260 955 1259 1259 1259 17100608 (52017_BF) 52 0 -1 % 1259 65 94810 100000 107330 13815 14610 15968 12855 13589 14823 1414 1459 1459 1208 1459 1459 1459 17100609 (45017_BF) 45 0 -1 % 1457 93 94810 100000 107330 10573 11190 12542 9988 10589 11936 1484 1038 1038 932 1036 1034 1030 17170610 (40017_BF) 40 0 -1 % 1019 203 94810 100000 107330 4001 4249 4995 3785 4020 4745 1442 741 741 949 741 741 741 17100611 (25027_BF) 25 0 -2 % 739 56 94810 100000 107330 2586 2750 3307 2333 2479 2999 1736 1188 1188 1862 1188 1188 1188 17100612 (19027_BF) 19 0 -2 % 1187 66 94810 100000 107330 19876 21010 22454 19398 20420 22059 977 877 877 1020 862 835 789 17191349 (53005_BF) 53 0 0 % 651 588 94810 100000 107330 19876 21010 22454 19434 20590 22086 325 534 534 487 532 519 497 17171350 (53005_BF) 53 0 0 % 462 267 94810 100000 107330 19876 21010 22454 18999 20200 21754 1259 1102 1102 967 1100 1060 990 17171370 (53005_BF) 53 0 0 % 898 640 94810 100000 107330 28199 29610 31540 31238 32800 34907 1640 2682 2682 1838 2682 2682 2682 17111395 (61012_BF) 61 0 0 % 2682 56 94810 100000 107330 28199 29610 31540 32124 33750 35845 2171 3450 3450 2371 3449 3449 3449 17111396 (61012_BF) 61 0 0 % 3447 156 94810 100000 107330 28199 29610 31540 31593 33160 35158 2220 2982 2982 2051 2981 2980 2980 17111397 (61012_BF) 61 0 0 % 2973 236 94810 100000 107330 28199 29610 31540 31222 32680 34711 2011 2616 2616 1798 2616 2609 2596 17111398 (61012_BF) 61 0 0 % 2584 408 94810 100000 107330 28199 29610 31540 30244 31609 33761 2202 1790 1790 1298 1793 1771 1732 17111399 (61012_BF) 61 0 0 % 1702 556 94810 100000 107330 28199 29610 31540 31148 32540 34473 1991 2555 2555 1763 2556 2537 2504 17111400 (61012_BF) 61 0 0 % 2470 656 94810 100000 107330 28199 29610 31540 30753 32010 34033 2587 2275 2275 1633 2286 2225 2116 17111401 (61012_BF) 61 0 0 % 20341019 94810 100000 107330 28199 29610 31540 30380 31600 33461 2037 2031 2031 1456 2042 1964 1820 17111402 (61012_BF) 61 0 0 % 16941121 94810 100000 107330 28199 29610 31540 29252 30540 32280 1721 1089 1089 776 1087 1034 936 17111403 (61012_BF) 61 0 0 % 801 738 94810 100000 107330 28199 29610 31540 27068 28180 29735 1677 1621 1621 1155 1624 1552 1418 17131408 (61012_BF) 61 0 0 % 12651015 94810 100000 107330 28199 29610 31540 26873 27980 29730 1757 1713 1713 1253 1725 1659 1538 17101409 (61012_BF) 61 0 0 % 1445 921 94810 100000 107330 28199 29610 31540 25521 26570 28085 2202 2902 2902 2015 2906 2869 2803 17101410 (61012_BF) 61 0 0 % 2741 954 94810 100000 107330 28199 29610 31540 26162 27350 29042 1640 2075 2075 1436 2077 2063 2039 17101411 (61012_BF) 61 0 0 % 2019 482 94810 100000 107330 28199 29610 31540 24935 26009 27612 2514 3344 3344 2312 3347 3328 3295 17101412 (61012_BF) 61 0 0 % 3270 700 94810 100000 107330 28199 29610 31540 24617 25790 27345 1971 3489 3489 2392 3489 3487 3484 17131413 (61012_BF) 61 0 0 % 3478 283 94810 100000 107330 28199 29610 31540 25384 26580 28363 1931 2747 2747 1901 2748 2744 2737 17101414 (61012_BF) 61 0 0 % 2732 295 94810 100000 107330 28199 29610 31540 23810 24940 26620 2152 4305 4305 2961 4305 4304 4301 17191415 (61012_BF) 61 0 0 % 4298 253 94810 100000 107330 28199 29610 31540 26315 27640 29424 1525 1754 1754 1203 1754 1754 1753 17101416 (61012_BF) 61 0 0 % 1754 47 94810 100000 107330 28199 29610 31540 23841 25050 26744 2011 4193 4193 2874 4193 4193 4192 17171417 (61012_BF) 61 0 0 % 4191 148 94810 100000 107330 28199 29610 31540 30571 32050 34149 1699 2076 2076 1429 2076 2074 2070 17111418 (61012_BF) 61 0 0 % 2067 194 94810 100000 107330 28199 29610 31540 31361 32940 35066 1890 2795 2795 1916 2795 2795 2795 17111419 (61012_BF) 61 0 0 % 2795 43 94810 100000 107330 28199 29610 31540 31592 33190 35158 1991 3009 3009 2082 3007 3007 3007 17111420 (61012_BF) 61 0 0 % 2998 271 94810 100000 107330 28199 29610 31540 30069 31669 33654 1757 1786 1786 1299 1787 1778 1764 17111421 (61012_BF) 61 0 0 % 1752 351 94810 100000 107330 28199 29610 31540 30653 32270 33985 1842 2326 2326 1738 2315 2311 2303 17111422 (61012_BF) 61 0 0 % 2249 597 94810 100000 107330 28199 29610 31540 30511 32230 33901 1821 2387 2387 1964 2377 2352 2308 17111423 (61012_BF) 61 0 0 % 2216 888 94810 100000 107330 28199 29610 31540 29461 30990 32865 1173 1215 1215 910 1212 1208 1201 17111424 (61012_BF) 61 0 0 % 1183 280 94810 100000 107330 28199 29610 31540 30495 32240 33764 2037 2478 2478 2112 2459 2427 2371 17111425 (61012_BF) 61 0 0 % 22241093 94810 100000 107330 28199 29610 31540 29547 31199 32695 1640 1667 1667 1594 1640 1608 1552 17111426 (61012_BF) 61 0 0 % 1359 966 94810 100000 107330 28199 29610 31540 27284 28759 30349 1274 951 951 996 939 912 866 17151432 (61012_BF) 61 0 0 % 748 588 94810 100000 107330 28199 29610 31540 26449 27920 29300 1757 1732 1732 1575 1714 1687 1639 17151433 (61012_BF) 61 0 0 % 1500 868 94810 100000 107330 28199 29610 31540 25605 27030 28366 2095 2469 2469 1982 2456 2437 2404 17151434 (61012_BF) 61 0 0 % 2314 862 94810 100000 107330 28199 29610 31540 25611 26980 28479 2011 2417 2417 1788 2413 2405 2393 17151435 (61012_BF) 61 0 0 % 2360 526 94810 100000 107330 28199 29610 31540 24847 26249 27804 2095 3123 3123 2332 3125 3105 3072 17151436 (61012_BF) 61 0 0 % 3043 704 94810 100000 107330 28199 29610 31540 25264 26650 28286 2076 2718 2718 1982 2720 2707 2685 17151437 (61012_BF) 61 0 0 % 2667 528 94810 100000 107330 28199 29610 31540 25925 27230 28962 1556 2130 2130 1462 2130 2130 2129 17101438 (61012_BF) 61 0 0 % 2129 70 94810 100000 107330 28199 29610 31540 24767 26029 27726 2076 3252 3252 2229 3253 3252 3251 17161439 (61012_BF) 61 0 0 % 3251 115 94810 100000 107330 28199 29610 31540 24525 25730 27526 1931 3541 3541 2442 3540 3540 3540 17181440 (61012_BF) 61 0 0 % 3536 210 94810 100000 107330 29578 31150 33380 29124 30750 32997 487 447 448 499 451 425 379 17161737 (63002_BF) 63 0 0 % 338 294 94810 100000 107330 29578 31150 33380 29747 31320 33610 133 159 159 144 156 156 154 17111738 (63002_BF) 63 0 0 % 143 71 94810 100000 107330 29578 31150 33380 29959 31550 33720 450 355 355 274 351 351 351 17111745 (63002_BF) 63 0 0 % 335 119 94810 100000 107330 29578 31150 33380 29690 31270 33566 133 127 127 134 122 122 122 17111747 (63002_BF) 63 0 0 % 101 78 94810 100000 107330 29578 31150 33380 29351 30909 33036 288 234 234 204 228 228 228 17141748 (63002_BF) 63 0 0 % 203 117 94810 100000 107330 29578 31150 33380 29965 31510 33835 558 359 359 296 359 347 327 17111751 (63002_BF) 63 0 0 % 302 195 94810 100000 107330 29578 31150 33380 29929 31470 33646 474 338 338 242 338 325 301 17111754 (63002_BF) 63 0 0 % 268 207 94810 100000 107330 29578 31150 33380 29397 30970 33225 241 164 164 125 163 162 160 17101756 (63002_BF) 63 0 0 % 152 65 94810 100000 107330 29578 31150 33380 30054 31710 33890 500 527 527 489 526 514 495 17111759 (63002_BF) 63 0 0 % 468 242 94810 100000 107330 29578 31150 33380 30141 31710 33745 690 577 577 459 560 557 551 17111760 (63002_BF) 63 0 0 % 468 337 94810 100000 107330 29578 31150 33380 29511 31089 33325 143 63 63 45 63 61 56 17101765 (63002_BF) 63 0 0 % 51 38 94810 100000 107330 29578 31150 33380 28987 30559 32917 800 564 564 525 555 552 546 17171766 (63002_BF) 63 0 0 % 500 261 94810 100000 107330 29578 31150 33380 29884 31529 33669 383 408 409 447 405 391 366 17111772 (63002_BF) 63 0 0 % 318 258 94810 100000 107330 29578 31150 33380 29444 31020 33278 152 127 127 102 125 123 120 17101773 (63002_BF) 63 0 0 % 110 65 94810 100000 107330 29578 31150 33380 29426 30990 33208 160 134 134 91 134 134 134 17101774 (63002_BF) 63 0 0 % 135 1 94810 100000 107330 29578 31150 33380 29942 31590 33703 445 465 465 490 459 447 425 17111777 (63002_BF) 63 0 0 % 368 285 94810 100000 107330 9743 10256 10592 7786 8236 8878 4655 4062 4062 3857 4022 4017 4010 17182746 (38013_BF) 38 0 1 % 38261368 94810 100000 107330 9743 10256 10592 7334 7781 8391 5144 4986 4986 4773 4953 4944 4929 17172747 (38013_BF) 38 0 1 % 47721446 94810 100000 107330 9743 10256 10592 8089 8529 9062 4203 3359 3359 3055 3335 3335 3334 17182748 (38013_BF) 38 0 1 % 3235 906 94810 100000 107330 9743 10256 10592 8226 8631 8437 4133 3397 3397 3000 3329 3327 3323 17142749 (38013_BF) 38 0 1 % 30321534 94810 100000 107330 9743 10256 10592 7694 8179 9114 5517 4612 4612 4992 4506 4490 4464 17182750 (38013_BF) 38 0 1 % 39422395 94810 100000 107330 9743 10256 10592 8179 8667 9812 5684 4091 4091 4839 3910 3901 3887 17182751 (38013_BF) 38 0 1 % 29612824 94810 100000 107330 9743 10256 10592 7724 8315 9186 4591 4500 4500 4994 4425 4339 4199 17172752 (38013_BF) 38 0 1 % 36652612 94810 100000 107330 9743 10256 10592 8941 9440 9887 1486 1564 1564 1438 1552 1547 1539 17172753 (38013_BF) 38 0 1 % 1479 509 94810 100000 107330 9743 10256 10592 8510 9013 9885 4075 2972 2972 3380 2862 2852 2835 17182755 (38013_BF) 38 0 1 % 22871898 94810 100000 107330 9743 10256 10592 6530 6829 8305 5524 8322 8322 8759 8078 8075 8070 17182759 (38013_BF) 38 0 1 % 68784686 94810 100000 107330 9743 10256 10592 8287 8721 9880 4994 4001 4001 4760 3810 3810 3810 17182761 (38013_BF) 38 0 1 % 28552804 94810 100000 107330 9743 10256 10592 7980 8386 8195 4192 3828 3828 3420 3769 3769 3768 17142766 (38013_BF) 38 0 1 % 35211503 94810 100000 107330 9743 10256 10592 6787 7264 8617 6523 7229 7229 7763 7022 6995 6951 17182767 (38013_BF) 38 0 1 % 58934187 94810 100000 107330 9743 10256 10592 7256 7566 8125 5623 5409 5409 5193 5385 5374 5356 17192768 (38013_BF) 38 0 1 % 52321374 94810 100000 107330 9743 10256 10592 7511 7931 8912 5902 5122 5122 5468 5004 5002 5000 17182769 (38013_BF) 38 0 1 % 44562527 94810 100000 107330 9743 10256 10592 8117 8612 9515 5189 3737 3737 4146 3630 3617 3595 17182774 (38013_BF) 38 0 1 % 30702132 94810 100000 107330 9743 10256 10592 10087 10672 11019 1866 826 826 876 830 804 758 17112775 (38013_BF) 38 0 1 % 724 398 %I,K= 5285 85 ] 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 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 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 (VG171-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 15 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 {(VG171-) show} {(VG171-) 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. BF, ) show SK (D) show TBIK (Y) show TBK (*1, ) show xchart 0 eq {(85 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 84 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