%!PS-Adobe-3.0 EPSF-3.0 VE160-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_AUSW6_5285.FOR, E/A: AC00_AUSW6_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)% %UE960-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 65346 69153 74550 69285 73343 79021 1024 2032 2032 1158 2032 2031 2031 16110084 (87016_LE) 87 0 0 % 2031 62 94810 100000 107330 68970 72983 78856 72339 76563 82249 959 1715 1715 1068 1709 1709 1708 16110085 (88016_LE) 88 0 0 % 1680 347 94810 100000 107330 50090 52957 57251 52546 55537 60075 1108 1500 1500 904 1500 1500 1500 16110086 (78017_LE) 78 0 0 % 1500 52 94810 100000 107330 49862 52720 56964 53323 56381 60971 1201 2121 2121 1275 2121 2121 2121 16110087 (78007_LE) 78 0 0 % 2121 56 94810 100000 107330 32611 34452 36938 34210 36142 38783 1276 1308 1308 866 1308 1308 1308 16110088 (65005_LE) 65 0 0 % 1308 40 94810 100000 107330 34817 36791 39537 37158 39251 42096 1238 1815 1815 1188 1814 1814 1814 16110089 (67006_LE) 67 0 0 % 1812 104 94810 100000 107330 27158 28715 30785 28765 30405 32644 1052 1474 1474 1021 1473 1473 1473 16110090 (61005_LE) 61 0 0 % 1472 70 94810 100000 107330 26647 28178 30244 28519 30158 32425 1294 1742 1742 1212 1742 1742 1742 16110091 (60006_LE) 60 0 0 % 1741 77 94810 100000 107330 20029 21174 22772 21202 22414 24064 1480 1325 1325 993 1325 1325 1325 16110092 (53006_LE) 53 0 0 % 1324 69 94810 100000 107330 16649 17610 18946 17944 18980 20438 1499 1643 1643 1290 1643 1643 1643 16110093 (49006_LE) 49 0 0 % 1644 37 94810 100000 107330 10262 10840 11489 10971 11590 12315 1117 1248 1248 1133 1248 1248 1248 16110094 (39004_LE) 39 0 0 % 1247 74 94810 100000 107330 10284 10863 11524 11275 11903 12642 1490 1712 1712 1553 1712 1712 1712 16110095 (39004_LE) 39 0 0 % 1712 51 94810 100000 107330 5566 5873 6061 5947 6273 6483 810 1000 1000 1125 1000 1000 1000 16110096 (29014_LE) 29 0 1 % 1000 25 94810 100000 107330 4956 5219 5388 5570 5869 6068 1126 1727 1727 2036 1727 1727 1727 16110097 (27013_LE) 27 0 1 % 1728 34 94810 100000 107330 26867 28413 30558 27670 29253 31425 651 746 746 519 746 745 745 16110098 (60006_LE) 60 0 0 % 744 60 94810 100000 107330 28066 29683 31930 29249 30933 33246 894 1071 1071 735 1071 1071 1071 16110099 (61006_LE) 61 0 0 % 1071 37 94810 100000 107330 27662 29248 31441 29166 30838 33150 1201 1370 1370 941 1370 1370 1370 16110100 (61006_LE) 61 0 0 % 1370 4 94810 100000 107330 26968 28524 30650 28839 30494 32786 1378 1718 1718 1189 1718 1718 1718 16110101 (60006_LE) 60 0 0 % 1719 38 94810 100000 107330 27091 28637 30701 30032 31747 34094 1769 2673 2673 1849 2673 2673 2673 16110102 (60005_LE) 60 0 0 % 2673 78 94810 100000 107330 72126 76324 82283 72849 77085 82815 409 410 410 359 399 399 399 16110123 (90016_LE) 90 0 0 % 351 212 94810 100000 107330 69288 73319 79350 72373 76579 82593 717 1541 1541 894 1538 1538 1538 16110124 (89017_LE) 89 0 -1 % 1528 203 94810 100000 107330 66123 69965 75704 69514 73575 79564 791 1742 1742 992 1742 1742 1741 16110125 (87017_LE) 87 0 0 % 1741 59 94810 100000 107330 68974 72983 79014 72551 76783 82650 959 1815 1815 1105 1808 1808 1808 16110126 (88017_LE) 88 0 -1 % 1782 346 94810 100000 107330 66297 70149 75928 72054 76259 82280 1210 2915 2915 1670 2914 2914 2913 16110127 (87017_LE) 87 0 0 % 2909 186 94810 100000 107330 49187 52015 56287 50270 53145 57593 530 676 676 421 675 675 674 16110128 (77017_LE) 77 0 0 % 671 89 94810 100000 107330 53599 56681 61355 54870 58041 62683 651 772 772 484 770 770 770 16110129 (80017_LE) 80 0 0 % 762 131 94810 100000 107330 50367 53263 57729 52852 55873 60593 903 1512 1512 910 1512 1512 1511 16110130 (78017_LE) 78 0 -1 % 1511 56 94810 100000 107330 50291 53177 57595 53507 56578 61225 1043 1962 1962 1178 1962 1962 1962 16110131 (78017_LE) 78 0 0 % 1962 39 94810 100000 107330 51331 54289 58956 54919 58079 62801 1303 2164 2164 1306 2162 2162 2162 16110132 (79017_LE) 79 0 -1 % 2152 226 94810 100000 107330 32958 34822 37366 34336 36302 39044 791 1148 1148 769 1147 1146 1145 16110133 (66005_LE) 66 0 0 % 1140 137 94810 100000 107330 34651 36618 39335 36185 38228 41089 940 1199 1199 783 1199 1199 1199 16110134 (67006_LE) 67 0 0 % 1199 43 94810 100000 107330 35494 37512 40312 37664 39792 42714 1164 1662 1662 1079 1662 1662 1662 16110135 (68006_LE) 68 0 0 % 1661 65 94810 100000 107330 32810 34668 37233 35345 37348 40181 1266 2049 2049 1356 2048 2048 2048 16110136 (65006_LE) 65 0 0 % 2048 85 94810 100000 107330 32883 34745 37300 35899 37945 40782 1536 2431 2431 1604 2430 2430 2430 16110137 (66006_LE) 66 0 0 % 2430 74 94810 100000 107330 17348 18360 19799 17624 18650 20008 493 397 397 393 387 387 387 16110138 (50006_LE) 50 0 0 % 345 196 94810 100000 107330 16911 17896 19264 17598 18616 19981 801 872 872 694 870 870 870 16110139 (49006_LE) 49 0 0 % 865 113 94810 100000 107330 20331 21506 23141 21561 22807 24497 1350 1375 1375 1026 1375 1375 1375 16110140 (54006_LE) 54 0 0 % 1374 71 94810 100000 107330 16875 17863 19142 18257 19323 20826 1536 1746 1746 1394 1744 1744 1744 16110141 (49005_LE) 49 0 0 % 1733 220 94810 100000 107330 15450 16349 17490 17329 18339 19687 1816 2478 2478 1993 2477 2477 2477 16110142 (47005_LE) 47 0 0 % 2475 128 94810 100000 107330 10985 11622 12344 11536 12202 12990 670 928 928 824 928 928 928 16110143 (41004_LE) 41 0 0 % 926 72 94810 100000 107330 10330 10928 11605 10882 11508 12206 884 965 965 875 964 964 964 16110144 (39004_LE) 39 0 0 % 964 51 94810 100000 107330 10593 11202 11908 11302 11952 12716 1117 1220 1220 1096 1220 1220 1220 16110145 (40004_LE) 40 0 0 % 1220 22 94810 100000 107330 10854 11475 12202 11875 12565 13474 1508 1752 1752 1596 1748 1748 1747 16110146 (40004_LE) 40 0 0 % 1730 282 94810 100000 107330 10580 11196 11890 11837 12536 13367 1713 2150 2150 1939 2149 2149 2148 16110147 (40004_LE) 40 0 0 % 2146 143 94810 100000 107330 5054 5361 5638 5538 5871 6208 726 1349 1349 1571 1348 1348 1348 16110148 (28014_LE) 28 0 1 % 1344 127 94810 100000 107330 5028 5313 5621 5556 5873 6237 1285 1482 1482 1734 1481 1481 1481 16110149 (28004_LE) 28 0 0 % 1479 89 94810 100000 107330 5238 5532 5780 5930 6272 6606 1471 1898 1898 2185 1896 1895 1894 16110150 (28014_LE) 28 0 1 % 1887 207 94810 100000 107330 5095 5401 5715 5973 6331 6664 1676 2387 2387 2774 2386 2386 2386 16110151 (28004_LE) 28 0 0 % 2382 158 94810 100000 107330 5941 6280 6607 6948 7330 7638 1853 2457 2457 2691 2453 2452 2451 16110152 (30014_LE) 30 0 1 % 2436 321 94810 100000 107330 17121 18110 19135 17547 18490 19470 1015 595 595 661 597 567 513 16110182 (50014_LE) 50 0 1 % 456 384 94810 100000 107330 17279 18226 19382 17532 18556 19674 1005 523 523 530 525 497 447 16110184 (50004_LE) 50 0 0 % 394 344 94810 100000 107330 16930 17879 18971 17461 18409 19404 940 705 705 595 697 692 684 16110189 (49004_LE) 49 0 0 % 639 299 94810 100000 107330 17012 18110 19161 17678 18940 20152 1676 1185 1185 1039 1189 1142 1064 16110193 (50015_LE) 50 -1 1 % 987 657 94810 100000 107330 17084 18069 19122 17602 18649 19581 1117 775 775 598 764 759 751 16110194 (50014_LE) 50 0 1 % 694 346 94810 100000 107330 16918 17871 18993 17568 18591 19689 1126 893 893 707 892 887 879 16110199 (49004_LE) 49 0 0 % 866 221 94810 100000 107330 27662 29248 31441 29166 30838 33150 991 1370 1370 941 1370 1370 1370 16110241 (61006_LE) 61 0 0 % 1370 4 94810 100000 107330 26968 28524 30650 28839 30494 32786 1412 1718 1718 1189 1718 1718 1718 16110242 (60006_LE) 60 0 0 % 1719 38 94810 100000 107330 68974 72983 79014 72551 76783 82650 761 1815 1815 1105 1808 1808 1808 16110254 (88017_LE) 88 0 -1 % 1782 346 94810 100000 107330 66297 70149 75928 72054 76259 82280 991 2915 2915 1670 2914 2914 2913 16110255 (87017_LE) 87 0 0 % 2909 186 94810 100000 107330 50367 53263 57729 52852 55873 60593 817 1512 1512 910 1512 1512 1511 16110256 (78017_LE) 78 0 -1 % 1511 56 94810 100000 107330 50291 53177 57595 53507 56578 61225 912 1962 1962 1178 1962 1962 1962 16110257 (78017_LE) 78 0 0 % 1962 39 94810 100000 107330 51331 54289 58956 54919 58079 62801 1078 2164 2164 1306 2162 2162 2162 16110258 (79017_LE) 79 0 -1 % 2152 226 94810 100000 107330 35494 37512 40312 37664 39792 42714 761 1662 1662 1079 1662 1662 1662 16110259 (68006_LE) 68 0 0 % 1661 65 94810 100000 107330 32810 34668 37233 35345 37348 40181 1078 2049 2049 1356 2048 2048 2048 16110260 (65006_LE) 65 0 0 % 2048 85 94810 100000 107330 32883 34745 37300 35899 37945 40782 1412 2431 2431 1604 2430 2430 2430 16110261 (66006_LE) 66 0 0 % 2430 74 94810 100000 107330 20331 21506 23141 21561 22807 24497 1078 1375 1375 1026 1375 1375 1375 16110262 (54006_LE) 54 0 0 % 1374 71 94810 100000 107330 10330 10928 11605 10882 11508 12206 761 965 965 875 964 964 964 16110263 (39004_LE) 39 0 0 % 964 51 94810 100000 107330 10593 11202 11908 11302 11952 12716 912 1220 1220 1096 1220 1220 1220 16110264 (40004_LE) 40 0 0 % 1220 22 94810 100000 107330 5054 5361 5638 5538 5871 6208 761 1349 1349 1571 1348 1348 1348 16110265 (28014_LE) 28 0 1 % 1344 127 94810 100000 107330 5028 5313 5621 5556 5873 6237 1126 1482 1482 1734 1481 1481 1481 16110266 (28004_LE) 28 0 0 % 1479 89 94810 100000 107330 5238 5532 5780 5930 6272 6606 1269 1898 1898 2185 1896 1895 1894 16110267 (28014_LE) 28 0 1 % 1887 207 94810 100000 107330 5095 5401 5715 5973 6331 6664 1412 2387 2387 2774 2386 2386 2386 16110268 (28004_LE) 28 0 0 % 2382 158 94810 100000 107330 17121 18110 19135 17547 18490 19470 674 595 595 661 597 567 513 16110293 (50014_LE) 50 0 1 % 456 384 94810 100000 107330 16930 17879 18971 17461 18409 19404 761 705 705 595 697 692 684 16110298 (49004_LE) 49 0 0 % 639 299 94810 100000 107330 17084 18069 19122 17602 18649 19581 817 775 775 598 764 759 751 16110301 (50014_LE) 50 0 1 % 694 346 94810 100000 107330 16918 17871 18993 17568 18591 19689 674 893 893 707 892 887 879 16110306 (49004_LE) 49 0 0 % 866 221 %I,K= 5285 76 ] 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 (VE160-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 7 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 {(VE160-) show} {(VE161-) 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. LE, ) show SK (D) show TBIK (Y) show TBK (*1, ) show xchart 0 eq {(76 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 75 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