%!PS-Adobe-3.0 EPSF-3.0 UE790-7N %%BoundingBox: 70 82 785 580 %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 {240 1 sub /Symbol FS} bind def /SK {240 1 sub /Symbol FS} bind def /SM {290 1 sub /Symbol FS} bind def /SG {340 1 sub /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 %330 colour pairs: search for achromatic colours with both a*<=3, b*<=3 /IXYZX [%BEG IXYZX %VE020-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 iim=528 colours, CIE data XYZ0 and XYZ1 for delta_E*00=delta_E*CIEDE2000=1, and visual DV=1 expected for this formula % 0095040 0100000 0108880 0055598 0036910 0000050 0057783 0038604 0000203 0001000 01254 01254 01253 00815 00995 01086 38310088 (68303_WN) 67 60 115 % 0095040 0100000 0108880 0044261 0029808 0000165 0046006 0031175 0000307 0001000 01166 01166 01166 00797 00996 01066 38310089 (62173_WN) 61 54 104 % 0095040 0100000 0108880 0034580 0023682 0000281 0035945 0024763 0000412 0001000 01075 01075 01075 00779 00998 01038 38310090 (57043_WN) 56 48 92 % 0095040 0100000 0108880 0026425 0018458 0000396 0027487 0019310 0000518 0001000 01001 01001 01001 00775 00999 01019 38310091 (50913_WN) 50 42 81 % 0095040 0100000 0108880 0019664 0014064 0000512 0020588 0014818 0000640 0001000 01057 01057 01057 00885 00999 01130 38310092 (44783_WN) 44 36 69 % 0095040 0100000 0108880 0014168 0010430 0000627 0014977 0011103 0000767 0001000 01147 01147 01147 01054 00998 01279 38310093 (39653_WN) 39 30 58 % 0095040 0100000 0108880 0009805 0007483 0000743 0010489 0008065 0000893 0001000 01234 01234 01234 01270 00996 01416 38310094 (33523_WN) 33 24 46 % 0095040 0100000 0108880 0006445 0005151 0000858 0006997 0005636 0001019 0001000 01322 01322 01313 01557 00992 01515 38310095 (27393_WN) 27 18 35 % 0095040 0100000 0108880 0003956 0003362 0000974 0004385 0003755 0001154 0001000 01400 01400 01400 01993 00991 01572 38310096 (21263_WN) 21 12 23 % 0095040 0100000 0108880 0002208 0002044 0001095 0002519 0002345 0001301 0001000 01479 01479 01479 02895 00987 01522 38310097 (16133_WN) 16 6 11 % 0095040 0100000 0108880 0001070 0001126 0001226 0001275 0001341 0001460 0001000 01554 01554 01554 03042 00981 01338 38110098 (10009_WN) 10 0 0 % 0095040 0100000 0108880 0069373 0084413 0005532 0072710 0088280 0006189 0001000 01649 01649 01648 00903 00991 01122 38410099 (95174_WN) 94 -22 115 % 0095040 0100000 0108880 0054886 0066531 0004902 0057526 0069582 0005463 0001000 01524 01524 01524 00874 00992 01113 38410100 (86054_WN) 85 -20 103 % 0095040 0100000 0108880 0042571 0051372 0004322 0044618 0053729 0004796 0001000 01399 01399 01399 00846 00993 01101 38410101 (77944_WN) 77 -18 92 % 0095040 0100000 0108880 0032252 0038710 0003790 0033800 0040487 0004185 0001000 01274 01274 01274 00819 00995 01083 38410102 (69824_WN) 69 -16 80 % 0095040 0100000 0108880 0023751 0028321 0003303 0024886 0029618 0003627 0001000 01145 01145 01145 00793 00997 01054 38410103 (60704_WN) 60 -13 69 % 0095040 0100000 0108880 0016893 0019980 0002860 0017695 0020892 0003121 0001000 01015 01015 01015 00770 00999 01012 38410104 (52584_WN) 52 -11 57 % 0095040 0100000 0108880 0011501 0013462 0002458 0012158 0014203 0002707 0001000 01071 01071 01071 00909 00999 01147 38410105 (43474_WN) 43 -9 46 % 0095040 0100000 0108880 0007399 0008542 0002096 0007952 0009160 0002348 0001000 01201 01201 01201 01180 00997 01360 38410106 (35354_WN) 35 -7 34 % 0095040 0100000 0108880 0004411 0004996 0001771 0004846 0005476 0002021 0001000 01324 01324 01324 01588 00994 01526 38410107 (27234_WN) 27 -4 23 % 0095040 0100000 0108880 0002360 0002599 0001481 0002676 0002941 0001726 0001000 01443 01443 01443 02327 00989 01557 38410108 (18124_WN) 18 -2 11 % 0095040 0100000 0108880 0001070 0001126 0001226 0001275 0001341 0001460 0001000 01554 01554 01554 03042 00981 01338 38110109 (10009_WN) 10 0 0 % 0095040 0100000 0108880 0021337 0058688 0018000 0022692 0061380 0019267 0001000 01462 01462 01462 00860 00992 01113 38510110 (82285_WN) 81 -115 58 % 0095040 0100000 0108880 0017546 0046716 0014991 0018649 0048860 0016031 0001000 01356 01356 01356 00836 00994 01101 38510111 (75165_WN) 74 -103 52 % 0095040 0100000 0108880 0014233 0036494 0012337 0015117 0038169 0013178 0001000 01249 01249 01249 00814 00995 01083 38510112 (68035_WN) 67 -92 46 % 0095040 0100000 0108880 0011366 0027884 0010016 0012060 0029161 0010685 0001000 01139 01139 01139 00792 00997 01057 38510113 (60905_WN) 60 -80 40 % 0095040 0100000 0108880 0008912 0020747 0008006 0009444 0021692 0008526 0001000 01027 01027 01027 00770 00999 01019 38510114 (53775_WN) 53 -69 35 % 0095040 0100000 0108880 0006840 0014945 0006285 0007291 0015715 0006733 0001000 01038 01038 01038 00854 00999 01097 38510115 (46645_WN) 46 -57 29 % 0095040 0100000 0108880 0005116 0010341 0004830 0005530 0011010 0005248 0001000 01150 01150 01150 01060 00998 01281 38510116 (38515_WN) 38 -46 23 % 0095040 0100000 0108880 0003710 0006795 0003619 0004077 0007351 0003998 0001000 01257 01257 01257 01339 00996 01447 38510117 (31385_WN) 31 -34 17 % 0095040 0100000 0108880 0002588 0004169 0002630 0002903 0004607 0002963 0001000 01360 01360 01360 01759 00993 01556 38510118 (24265_WN) 24 -23 12 % 0095040 0100000 0108880 0001719 0002325 0001839 0001979 0002648 0002124 0001000 01460 01460 01460 02496 00988 01543 38510119 (17135_WN) 17 -11 6 % 0095040 0100000 0108880 0001070 0001126 0001226 0001275 0001341 0001460 0001000 01554 01554 01554 03042 00981 01338 38110120 (10009_WN) 10 0 0 % 0095040 0100000 0108880 0029941 0053093 0097931 0031580 0055529 0101694 0001000 01415 01415 01415 00849 00993 01117 38710121 (78726_WN) 78 -65 -31 % 0095040 0100000 0108880 0024313 0042387 0077061 0025636 0044332 0080037 0001000 01313 01313 01313 00827 00994 01103 38710122 (71656_WN) 71 -58 -28 % 0095040 0100000 0108880 0019438 0033226 0059389 0020489 0034751 0061694 0001000 01210 01210 01210 00806 00996 01082 38710123 (64576_WN) 64 -52 -25 % 0095040 0100000 0108880 0015262 0025491 0044649 0016078 0026656 0046388 0001000 01104 01104 01104 00785 00997 01052 38710124 (58506_WN) 58 -45 -22 % 0095040 0100000 0108880 0011732 0019060 0032575 0012356 0019934 0033858 0001000 01005 01005 01005 00771 00999 01019 38710125 (51436_WN) 51 -39 -19 % 0095040 0100000 0108880 0008793 0013814 0022902 0009339 0014562 0023977 0001000 01063 01063 01063 00895 00999 01141 38710126 (44366_WN) 44 -32 -16 % 0095040 0100000 0108880 0006391 0009631 0015362 0006879 0010281 0016273 0001000 01169 01169 01169 01103 00997 01315 38710127 (37296_WN) 37 -26 -12 % 0095040 0100000 0108880 0004472 0006391 0009690 0004892 0006932 0010423 0001000 01271 01271 01271 01385 00995 01467 38710128 (30216_WN) 30 -19 -9 % 0095040 0100000 0108880 0002981 0003974 0005621 0003330 0004401 0006174 0001000 01369 01369 01369 01808 00992 01560 38710129 (24146_WN) 24 -13 -6 % 0095040 0100000 0108880 0001865 0002259 0002888 0002141 0002576 0003272 0001000 01464 01464 01464 02543 00988 01536 38710130 (17076_WN) 17 -6 -3 % 0095040 0100000 0108880 0001070 0001126 0001226 0001275 0001341 0001460 0001000 01554 01554 01554 03042 00981 01338 38110131 (10009_WN) 10 0 0 % 0095040 0100000 0108880 0016161 0005581 0092456 0017165 0006087 0095791 0001000 01301 01301 01301 01493 00995 01662 38910132 (29428_WN) 28 86 -113 % 0095040 0100000 0108880 0013442 0004917 0072859 0014350 0005393 0075768 0001000 01328 01328 01328 01603 00994 01702 38910133 (28288_WN) 27 77 -102 % 0095040 0100000 0108880 0011047 0004307 0056248 0011861 0004753 0058749 0001000 01354 01354 01354 01727 00993 01735 38910134 (26138_WN) 25 69 -90 % 0095040 0100000 0108880 0008955 0003751 0042375 0009678 0004166 0044490 0001000 01380 01380 01380 01869 00992 01758 38910135 (23998_WN) 23 60 -79 % 0095040 0100000 0108880 0007145 0003244 0030994 0007781 0003629 0032748 0001000 01406 01406 01406 02035 00991 01769 38910136 (21858_WN) 21 51 -68 % 0095040 0100000 0108880 0005597 0002785 0021859 0006149 0003141 0023278 0001000 01432 01432 01432 02230 00990 01760 38910137 (19718_WN) 19 43 -56 % 0095040 0100000 0108880 0004291 0002372 0014722 0004763 0002698 0015836 0001000 01457 01457 01457 02465 00988 01727 38910138 (17578_WN) 17 34 -45 % 0095040 0100000 0108880 0003205 0002002 0009337 0003603 0002299 0010177 0001000 01482 01482 01482 02900 00987 01661 38910139 (16428_WN) 16 26 -34 % 0095040 0100000 0108880 0002320 0001672 0005457 0002648 0001941 0006058 0001000 01507 01507 01507 02949 00985 01560 38910140 (14288_WN) 14 17 -23 % 0095040 0100000 0108880 0001615 0001381 0002835 0001878 0001623 0003233 0001000 01531 01531 01531 02996 00984 01439 38910141 (12148_WN) 12 9 -11 % 0095040 0100000 0108880 0001070 0001126 0001226 0001275 0001341 0001460 0001000 01554 01554 01554 03042 00981 01338 38110142 (10009_WN) 10 0 0 % 0095040 0100000 0108880 0064203 0031323 0079993 0066474 0032760 0082745 0001000 01186 01186 01186 00801 00996 01119 38910143 (64099_WN) 63 99 -45 % 0095040 0100000 0108880 0050903 0025440 0063278 0052713 0026603 0065467 0001000 01103 01103 01103 00785 00997 01091 38910144 (58989_WN) 58 89 -40 % 0095040 0100000 0108880 0039580 0020344 0049070 0040996 0021271 0050780 0001000 01021 01021 01021 00770 00999 01058 38910145 (52879_WN) 52 79 -36 % 0095040 0100000 0108880 0030074 0015978 0037166 0031252 0016766 0038584 0001000 01018 01018 01018 00821 00999 01102 38910146 (47769_WN) 47 69 -31 % 0095040 0100000 0108880 0022227 0012286 0027362 0023270 0013003 0028614 0001000 01099 01099 01099 00959 00999 01236 38910147 (42659_WN) 42 59 -27 % 0095040 0100000 0108880 0015880 0009212 0019454 0016778 0009850 0020530 0001000 01181 01181 01181 01131 00997 01368 38910148 (36549_WN) 36 50 -22 % 0095040 0100000 0108880 0010873 0006699 0013239 0011621 0007252 0014130 0001000 01260 01260 01260 01350 00996 01482 38910149 (31439_WN) 31 40 -18 % 0095040 0100000 0108880 0007047 0004690 0008512 0007645 0005155 0009221 0001000 01337 01337 01337 01646 00993 01562 38910150 (26339_WN) 26 30 -13 % 0095040 0100000 0108880 0004244 0003129 0005070 0004698 0003507 0005604 0001000 01412 01412 01412 02079 00991 01582 38910151 (21229_WN) 21 20 -9 % 0095040 0100000 0108880 0002305 0001960 0002709 0002626 0002254 0003083 0001000 01485 01485 01485 02906 00987 01514 38910152 (15119_WN) 15 10 -4 % 0095040 0100000 0108880 0001070 0001126 0001226 0001275 0001341 0001460 0001000 01554 01554 01554 03042 00981 01338 38110153 (10009_WN) 10 0 0 % 0095040 0100000 0108880 0013785 0047518 0005483 0014731 0049699 0006023 0001000 01364 01364 01364 00838 00993 01100 38510154 (76525_WN) 75 -127 82 % 0095040 0100000 0108880 0011547 0038064 0004862 0012328 0039811 0005324 0001000 01266 01266 01266 00817 00995 01085 38510155 (69365_WN) 68 -115 74 % 0095040 0100000 0108880 0009566 0029955 0004289 0010201 0031328 0004681 0001000 01168 01168 01168 00798 00996 01063 38510156 (63215_WN) 62 -102 66 % 0095040 0100000 0108880 0007825 0023089 0003763 0008331 0024142 0004091 0001000 01065 01065 01065 00777 00998 01032 38510157 (56065_WN) 55 -89 58 % 0095040 0100000 0108880 0006309 0017361 0003282 0006722 0018180 0003564 0001000 01001 01001 01001 00789 00999 01030 38510158 (49915_WN) 49 -76 49 % 0095040 0100000 0108880 0005003 0012668 0002844 0005389 0013394 0003123 0001000 01090 01090 01090 00942 00999 01182 38510159 (42765_WN) 42 -64 41 % 0095040 0100000 0108880 0003890 0008908 0002446 0004249 0009537 0002724 0001000 01190 01190 01190 01152 00997 01347 38510160 (36615_WN) 36 -51 33 % 0095040 0100000 0108880 0002957 0005977 0002088 0003281 0006501 0002359 0001000 01286 01286 01286 01438 00995 01487 38510161 (29455_WN) 29 -38 25 % 0095040 0100000 0108880 0002186 0003772 0001766 0002472 0004188 0002027 0001000 01379 01379 01379 01863 00992 01568 38510162 (23305_WN) 23 -25 16 % 0095040 0100000 0108880 0001562 0002189 0001479 0001808 0002501 0001728 0001000 01469 01469 01469 02595 00988 01535 38510163 (17155_WN) 17 -13 8 % 0095040 0100000 0108880 0001070 0001126 0001226 0001275 0001341 0001460 0001000 01554 01554 01554 03042 00981 01338 38110164 (10009_WN) 10 0 0 % 0095040 0100000 0108880 0071747 0042479 0092505 0074461 0044429 0095867 0001000 01314 01314 01314 00827 00994 01125 38910165 (71889_WN) 71 79 -39 % 0095040 0100000 0108880 0056714 0034148 0072897 0058870 0035715 0075562 0001000 01221 01221 01221 00808 00995 01105 38910166 (65809_WN) 65 71 -35 % 0095040 0100000 0108880 0043942 0026984 0056276 0045619 0028219 0058344 0001000 01126 01126 01126 00789 00997 01078 38910167 (59719_WN) 59 64 -31 % 0095040 0100000 0108880 0033248 0020900 0042395 0034521 0021852 0043960 0001000 01029 01029 01029 00771 00999 01042 38910168 (53629_WN) 53 56 -27 % 0095040 0100000 0108880 0024447 0015806 0031008 0025477 0016592 0032270 0001000 01021 01021 01021 00826 00999 01088 38910169 (47539_WN) 47 48 -23 % 0095040 0100000 0108880 0017355 0011616 0021868 0018254 0012318 0022965 0001000 01116 01116 01116 00991 00998 01244 38910170 (41449_WN) 41 40 -20 % 0095040 0100000 0108880 0011787 0008241 0014728 0012543 0008848 0015645 0001000 01210 01210 01210 01203 00997 01394 38910171 (35359_WN) 35 32 -16 % 0095040 0100000 0108880 0007559 0005592 0009340 0008167 0006099 0010072 0001000 01301 01301 01301 01492 00995 01514 38910172 (28279_WN) 28 24 -12 % 0095040 0100000 0108880 0004486 0003582 0005458 0004948 0003987 0006009 0001000 01388 01388 01388 01920 00992 01573 38910173 (22189_WN) 22 16 -8 % 0095040 0100000 0108880 0002385 0002123 0002836 0002710 0002429 0003217 0001000 01473 01473 01473 02647 00987 01528 38910174 (16099_WN) 16 8 -4 % 0095040 0100000 0108880 0001070 0001126 0001226 0001275 0001341 0001460 0001000 01554 01554 01554 03042 00981 01338 38110175 (10009_WN) 10 0 0 % ] def %END IXYZX /IXYZ0 12600 array def %max 21x600 coulers 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 7 {/xchart exch def %xchart=0,7 gsave 5 /Times-ISOL1 FS 175 85 moveto (UE790-7N) 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 xchart 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 {(UE790-) show} {(UE791-) 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 02 def /rgbJLL 4 array def /rgbJLL [{1 1 0 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} {1 0 0 setrgbcolor} {0 1 0 setrgbcolor}] def /rgbJLL7 8 array def /rgbJLL7 [{1 0 0 setrgbcolor} {1 1 0 setrgbcolor} {0 1 0 setrgbcolor} {0 1 1 setrgbcolor} {0 0 1 setrgbcolor} {1 0 1 setrgbcolor} {0 1 0 setrgbcolor} {1 0 1 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 1050 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 1450 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 1450 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 1000 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 1250 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 1650 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 1000 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 1000 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 rgbJLL7 xchart get exec xchart 0 eq {(Series N-Rm, Red) show} if xchart 1 eq {(Series N-Ym, Yellow) show} if xchart 2 eq {(Series N-Gm, Green) show} if xchart 3 eq {(Series N-Cm, Cyan) show} if xchart 4 eq {(Series N-Bm, Blue) show} if xchart 5 eq {(Series N-Mm, Magenta) show} if xchart 6 eq {(Series N-Go, Green_o) show} if xchart 7 eq {(Series N-Mo, Magenta_o) 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 51 array def /Y100 51 array def /YD00 51 array def %NW:0_31;32, NY:33_65;32, NB:66_87;22, NR:88_109;22, NG:110_131;22 %NW:0_17;18, NY:33_46;14, NB:66_71;06, NR:88_095;08, NG:110_119;10 for Y0>=1 xchart 0 eq {/i1 000 def /i2 010 def} if %Rm xchart 1 eq {/i1 011 def /i2 021 def} if %Ym xchart 2 eq {/i1 022 def /i2 032 def} if %Gm xchart 3 eq {/i1 033 def /i2 043 def} if %Cm xchart 4 eq {/i1 044 def /i2 054 def} if %Bm xchart 5 eq {/i1 055 def /i2 065 def} if %Mm xchart 6 eq {/i1 066 def /i2 076 def} if %Go xchart 7 eq {/i1 077 def /i2 087 def} if %Mo %STOP1 /IM 87 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 0 1 00 {/j exch def %j=0,02 delta_Y for formulas: CUI, CIELAB, CIEDE2000 i1 1 i2 {/i exch def %i=i1,i2 /k j 17 mul i i1 sub add def /i21 i 21 mul def Y000 k j 0 eq {IXYZ0} if i21 4 add get 0.001 mul put Y100 k j 0 eq {IXYZ0} if i21 7 add get 0.001 mul put YD00 k Y000 k get Y100 k get sub abs put } for %i=i1,i2 } for %j=0,02 Y000 16 Y000 10 get put Y100 16 Y100 10 get put YD00 16 YD00 10 get put Y000 15 Y000 09 get put Y100 15 Y100 09 get put YD00 15 YD00 09 get put Y000 14 Y000 8 get put Y100 14 Y100 8 get put YD00 14 YD00 8 get put Y000 13 Y000 8 get put Y100 13 Y100 8 get put YD00 13 YD00 8 get put Y000 12 Y000 7 get put Y100 12 Y100 7 get put YD00 12 YD00 7 get put Y000 11 Y000 7 get put Y100 11 Y100 7 get put YD00 11 YD00 7 get put Y000 10 Y000 6 get put Y100 10 Y100 6 get put YD00 10 YD00 6 get put Y000 09 Y000 6 get put Y100 09 Y100 6 get put YD00 09 YD00 6 get put Y000 8 Y000 5 get put Y100 8 Y100 5 get put YD00 8 YD00 5 get put Y000 7 Y000 4 get put Y100 7 Y100 4 get put YD00 7 YD00 4 get put Y000 6 Y000 4 get put Y100 6 Y100 4 get put YD00 6 YD00 4 get put Y000 5 Y000 3 get put Y100 5 Y100 3 get put YD00 5 YD00 3 get put Y000 4 Y000 3 get put Y100 4 Y100 3 get put YD00 4 YD00 3 get put Y000 3 Y000 2 get put Y100 3 Y100 2 get put YD00 3 YD00 2 get put Y000 2 Y000 2 get put Y100 2 Y100 2 get put YD00 2 YD00 2 get put Y000 1 Y000 1 get put Y100 1 Y100 1 get put YD00 1 YD00 1 get put Y000 0 Y000 0 get put Y100 0 Y100 0 get put YD00 0 YD00 0 get put %Y000,Y100,YD00 for K=11 to 16 not defined, set to no. 10 %attention average! 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 %result %Y000,Y100,YD00 defined for K=0 to 10 and 17 to 50 /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 32 array def /DELTL1 32 array def /DELTL2 32 array def /DELTL3 32 array def /DELTL4 32 array def /XGRAPH 500 array def /YGRAPH 500 array def TK %Scale: 1 log = 500 units /Fx0x 500 def /Fy0x 500 def /XDAT0 51 array def /XDAT1 51 array def /XDAT2 51 array def /XDAT3 51 array def /XDAT4 51 array def /XDAT5 51 array def /XDAT6 51 array def /XDAT7 51 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 0 1 JLLX {/JLL exch def %JLL=0,JLLX rgbJLL JLL get exec JLL 0 eq {%JLL=0 rgbJLL7 xchart get exec } if %JLL=0 newpath 0 1 ILLX {/ILL exch def %ILL=0,ILLX /ILLY ILL JLL ILLP mul add def XGRAPH ILL Y000 ILLY get log put DELTL0 ILL YD00 ILLY get abs log put DELTL0 ILL get 4.3 gt {DELTL0 ILL 4.3 put} if DELTL0 ILL get -3 le {DELTL0 ILL -3 put} if XDAT0 ILLY XGRAPH ILL 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 ILL DELTL0 ILL get put XGRAPH ILL get Fx mul YGRAPH ILL get Fy mul JLL 0 eq {%JLL=0,>0 60 0 360 arc fill }%JLL=0 {%JLL>0 ILL 0 eq {moveto} if ILL 01 ge ILL ILLM le and {lineto} if ILL ILLX eq {lineto stroke} if } ifelse %JLL>0 } for %ILL=0,ILLX JLL 0 eq JLL 2 eq or {%JLL=0,2 %vertical lines of surround 0 1 1 {/i exch def %i=0,1 i 0 eq {[ ] 0 setdash} if i 1 eq {[100] 0 setdash rgbJLL 3 get exec} if XGRAPH ILLA get Fx mul YGRAPH ILLA get Fy mul moveto XGRAPH ILLA get Fx mul Flog Fy mul lineto stroke } for %i=0,1 } if %JLL=0,2 } for %JLL=0,JLLX } 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 0 1 JLLX {/JLL exch def %JLL=0,JLLX rgbJLL JLL get exec JLL 0 eq {%JLL=0 rgbJLL7 xchart get exec } if %JLL=0 newpath 0 1 ILLX {/ILL exch def %ILL=0,ILLX /ILLY ILL JLL ILLP mul add def XGRAPH ILL Y000 ILLY get log put DELTL0 ILL Y000 ILLY get YD00 ILLY get div log put DELTL0 ILL get 6.3 gt {DELTL0 ILL 6.3 put} if DELTL0 ILL get -1 le {DELTL0 ILL -1 put} if YGRAPH ILL DELTL0 ILL get put XDAT0 ILLY XGRAPH ILL 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 ILL get Fx mul YGRAPH ILL get Fy mul JLL 0 eq {%JLL=0,>0 60 0 360 arc fill }%JLL=0 {%JLL>0 ILL 0 eq {moveto} if ILL 01 ge ILL ILLM le and {lineto} if ILL ILLX eq {lineto stroke} if } ifelse %JLL>0 } for %ILL=0,ILLX JLL 0 eq JLL 2 eq or {%JLL=0,2 %vertical lines of surround 0 1 1 {/i exch def %i=0,1 i 0 eq {[ ] 0 setdash} if i 1 eq {[100] 0 setdash rgbJLL 3 get exec} if XGRAPH ILLA get Fx mul YGRAPH ILLA get Fy mul moveto XGRAPH ILLA get Fx mul Flog Fy mul lineto stroke } for %i=0,1 } if %JLL=0,2 } for %JLL=0,JLLX } 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 0 1 JLLX {/JLL exch def %JLL=0,JLLX rgbJLL JLL get exec JLL 0 eq {%JLL=0 rgbJLL7 xchart get exec } if %JLL=0 newpath 0 1 ILLX {/ILL exch def %ILL=0,ILLX /ILLY ILL JLL ILLP mul add def XGRAPH ILL Y000 ILLY get log put DELTL0 ILL YD00 ILLY get Y000 ILLY get div log put DELTL0 ILL get -3 le {DELTL0 ILL -3 put} if YGRAPH ILL DELTL0 ILL get put XDAT0 ILLY XGRAPH ILL 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 ILL get Fx mul YGRAPH ILL get Fy mul JLL 0 eq {%JLL=0,>0 60 0 360 arc fill }%JLL=0 {%JLL>0 ILL 0 eq {moveto} if ILL 01 ge ILL ILLM le and {lineto} if ILL ILLX eq {lineto stroke} if } ifelse %JLL>0 } for %ILL=0,ILLX JLL 0 eq JLL 2 eq or {%JLL=0,2 %vertical lines of surround 0 1 1 {/i exch def %i=0,1 i 0 eq {[ ] 0 setdash} if i 1 eq {[100] 0 setdash rgbJLL 3 get exec} if XGRAPH ILLA get Fx mul YGRAPH ILLA get Fy mul moveto XGRAPH ILLA get Fx mul Flog Fy mul lineto stroke } for %i=0,1 } if %JLL=0,2 } for %JLL=0,JLLX } 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 /Flin 0 def} {/Fx Fx03 2 mul def /Fy Fy03 1 mul def /Flin 0 def} ifelse 0 1 JLLX {/JLL exch def %JLL=0,JLLX rgbJLL JLL get exec JLL 0 eq {%JLL=0 rgbJLL7 xchart get exec } if %JLL=0 newpath 0 1 ILLX {/ILL exch def %ILL=0,ILLX /ILLY ILL JLL ILLP mul add def XGRAPH ILL Y000 ILLY get log put DELTL0 ILL Y000 ILLY get YD00 ILLY get div put DELTL0 ILL get 60 ge {DELTL0 ILL 60 put} if XDAT0 ILLY XGRAPH ILL 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 ILL DELTL0 ILL get put XGRAPH ILL get Fx mul YGRAPH ILL get Fy mul JLL 0 eq {%JLL=0,>0 60 0 360 arc fill }%JLL=0 {%JLL>0 ILL 0 eq {moveto} if ILL 01 ge ILL ILLM le and {lineto} if ILL ILLX eq {lineto stroke} if } ifelse %JLL>0 } for %ILL=0,ILLX JLL 0 eq JLL 2 eq or {%JLL=0,2 %vertical lines of surround 0 1 1 {/i exch def %i=0,1 i 0 eq {[ ] 0 setdash} if i 1 eq {[100] 0 setdash rgbJLL 3 get exec} if XGRAPH ILLA get Fx mul YGRAPH ILLA get Fy mul moveto XGRAPH ILLA get Fx mul Flog Fy mul lineto stroke } for %i=0,1 } if %JLL=0,2 } for %JLL=0,JLLX } 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 /Flin 0 def} {/Fx Fx04 2 mul def /Fy Fy04 1 mul def /Flin 0 def} ifelse 1 1 1 {/JLL exch def %JLL=1,JLLX %only CIELAB rgbJLL JLL get exec JLL 0 eq {%JLL=0 rgbJLL7 xchart get exec } if %JLL=0 newpath 0 1 ILLX {/ILL exch def %ILL=0,ILLX /ILLY ILL JLL ILLP mul add def XGRAPH ILL Y000 ILLY get log put DELTL0 ILL Y000 ILLY get 100. div 0.3333 exp 116. mul 16. sub put DELTL0 ILL get 0 le {DELTL0 ILL FYY put} if XDAT0 ILLY XGRAPH ILL 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 ILL DELTL0 ILL get put XGRAPH ILL get Fx mul YGRAPH ILL get Fy mul JLL 0 eq {%JLL=0,>0 60 0 360 arc fill }%JLL=0 {%JLL>0 ILL 0 eq {moveto} if ILL 01 ge ILL ILLM le and {lineto} if ILL ILLX eq {lineto stroke} if } ifelse %JLL>0 } for %ILL=0,ILLX JLL 0 eq JLL 2 eq or {%JLL=0,2 %vertical lines of surround 0 1 1 {/i exch def %i=0,1 i 0 eq {[ ] 0 setdash} if i 1 eq {[100] 0 setdash rgbJLL 3 get exec} if XGRAPH ILLA get Fx mul YGRAPH ILLA get Fy mul moveto XGRAPH ILLA get Fx mul Flog Fy mul lineto stroke } for %i=0,1 } if %JLL=0,2 } for %JLL=0,JLLX } 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=0,JLLX %JLL=1,JLLX %only CIELAB rgbJLL JLL get exec JLL 0 eq {%JLL=0 rgbJLL7 xchart get exec } if %JLL=0 newpath 0 1 ILLX {/ILL exch def %ILL=0,ILLX /ILLY ILL JLL ILLP mul add def XGRAPH ILL Y000 ILLY get log put DELTL0 ILL Y000 ILLY get 100. div 0.3333 exp 116. mul 16. sub 50 div log put DELTL0 ILL get -2 le {DELTL0 ILL -2 put} if XDAT0 ILLY XGRAPH ILL 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 ILL DELTL0 ILL get put XGRAPH ILL get Fx mul YGRAPH ILL get Fy mul JLL 0 eq {%JLL=0,>0 60 0 360 arc fill }%JLL=0 {%JLL>0 ILL 0 eq {moveto} if ILL 01 ge ILL ILLM le and {lineto} if ILL ILLX eq {lineto stroke} if } ifelse %JLL>0 } for %ILL=0,ILLX JLL 0 eq JLL 2 eq or {%JLL=0,2 %vertical lines of surround 0 1 1 {/i exch def %i=0,1 i 0 eq {[ ] 0 setdash} if i 1 eq {[100] 0 setdash rgbJLL 3 get exec} if XGRAPH ILLA get Fx mul YGRAPH ILLA get Fy mul moveto XGRAPH ILLA get Fx mul Flog Fy mul lineto stroke } for %i=0,1 } if %JLL=0,2 } for %JLL=0,JLLX } 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 0 1 JLLX {/JLL exch def %JLL=0,JLLX rgbJLL JLL get exec JLL 0 eq {%JLL=0 rgbJLL7 xchart get exec } if %JLL=0 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 ILL 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 ILL 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 ILL DELTLx DELTLu YFL add div abs log put YGRAPH ILL DELTL0 ILL get put XGRAPH ILL get Fx mul YGRAPH ILL get Fy mul JLL 0 eq {%JLL=0,>0 60 0 360 arc fill }%JLL=0 {%JLL>0 ILL 0 eq {moveto} if ILL 01 ge ILL ILLM le and {lineto} if ILL ILLX eq {lineto stroke} if } ifelse %JLL>0 } for %ILL=0,ILLX JLL 0 eq JLL 2 eq or {%JLL=0,2 %vertical lines of surround 0 1 1 {/i exch def %i=0,1 i 0 eq {[ ] 0 setdash} if i 1 eq {[100] 0 setdash rgbJLL 3 get exec} if XGRAPH ILLA get Fx mul YGRAPH ILLA get Fy mul moveto XGRAPH ILLA get Fx mul Flog Fy mul lineto stroke } for %i=0,1 } if %JLL=0,2 } for %JLL=0,JLLX } 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 0 1 JLLX {/JLL exch def %JLL=0,JLLX rgbJLL JLL get exec JLL 0 eq {%JLL=0 rgbJLL7 xchart get exec } if %JLL=0 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 ILL Y000 ILLY get log put /DELTLx YD00 ILLY get Y000 ILLY get div def /DELTLu YD00 ILLU get Y000 ILLU get div def DELTL0 ILL DELTLx DELTLu YFL add div abs log put DELTL0 ILL get -3 le {DELTL0 ILL -3 put} if XDAT0 ILLY XGRAPH ILL 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 ILL DELTL0 ILL get put XGRAPH ILL get Fx mul YGRAPH ILL get Fy mul JLL 0 eq {%JLL=0,>0 60 0 360 arc fill }%JLL=0 {%JLL>0 ILL 0 eq {moveto} if ILL 01 ge ILL ILLM le and {lineto} if ILL ILLX eq {lineto stroke} if } ifelse %JLL>0 } for %ILL=0,ILLX JLL 0 eq JLL 2 eq or {%JLL=0,2 %vertical lines of surround 0 1 1 {/i exch def %i=0,1 i 0 eq {[ ] 0 setdash} if i 1 eq {[100] 0 setdash rgbJLL 3 get exec} if XGRAPH ILLA get Fx mul YGRAPH ILLA get Fy mul moveto XGRAPH ILLA get Fx mul Flog Fy mul lineto stroke } for %i=0,1 } if %JLL=0,2 } for %JLL=0,JLLX } 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 ILL get cvsshow2 1600 2500 ILX 140 mul sub moveto XDAT1 ILL get cvsshow3 2200 2500 ILX 140 mul sub moveto XDAT2 ILL get cvsshow3 2800 2500 ILX 140 mul sub moveto XDAT3 ILL get cvsshow3 3400 2500 ILX 140 mul sub moveto XDAT4 ILL 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,7 %%Trailer