%!PS-Adobe-3.0 EPSF-3.0 LG460-7A.EPS %%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/LG46/) /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@mac.com) /CreationDate (D:2010110112000) /ModDate (D:2010110112000) /DOCINFO pdfmark07 [ /View [ /FitB ] /DOCVIEW pdfmark07 %END PDFDE011 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /Courier-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierB-ISOL1 exch definefont pop /nrgbxyY 7560 array def %1080x7 to be calculated by XYZ*system /FileDat (LG46_LCD projector_1) def /xyY0 7560 array def %1080x7 /LAB*TE [(LCD projector_100901_1)] def /xyY0 [ %produced with the settings of the LED-LCD (LECD) monitor; full white used %FILE LMT_1080_100901_1.TXT %no. r g b x y Y. projector ACER XD1150. measurement 1 1 0.00000 0.00000 0.00000 0.3176 0.3419 10.12E+00 2 0.00000 0.00000 0.12549 0.2892 0.2979 10.55E+00 3 0.00000 0.00000 0.25098 0.2309 0.2075 12.35E+00 4 0.00000 0.00000 0.37647 0.1831 0.1340 17.97E+00 5 0.00000 0.00000 0.50196 0.1626 0.1018 3.03E+01 6 0.00000 0.00000 0.62353 0.1538 0.0885 5.27E+01 7 0.00000 0.00000 0.74902 0.1500 0.0824 9.06E+01 8 0.00000 0.00000 0.87451 0.1483 0.0797 1.50E+02 9 0.00000 0.00000 1.00000 0.1474 0.0787 2.19E+02 10 0.00000 0.12549 0.00000 0.3202 0.3738 12.90E+00 11 0.00000 0.12549 0.12549 0.2972 0.3326 13.53E+00 12 0.00000 0.12549 0.25098 0.2408 0.2368 15.33E+00 13 0.00000 0.12549 0.37647 0.1901 0.1514 21.20E+00 14 0.00000 0.12549 0.50196 0.1661 0.1107 3.36E+01 15 0.00000 0.12549 0.62353 0.1558 0.0931 5.60E+01 16 0.00000 0.12549 0.74902 0.1510 0.0849 9.38E+01 17 0.00000 0.12549 0.87451 0.1490 0.0811 1.53E+02 18 0.00000 0.12549 1.00000 0.1478 0.0797 2.22E+02 19 0.00000 0.25098 0.00000 0.3313 0.4514 26.79E+00 20 0.00000 0.25098 0.12549 0.3150 0.4187 27.41E+00 21 0.00000 0.25098 0.25098 0.2699 0.3283 29.75E+00 22 0.00000 0.25098 0.37647 0.2137 0.2142 35.43E+00 23 0.00000 0.25098 0.50196 0.1800 0.1453 4.78E+01 24 0.00000 0.25098 0.62353 0.1634 0.1122 7.03E+01 25 0.00000 0.25098 0.74902 0.1552 0.0956 10.81E+01 26 0.00000 0.25098 0.87451 0.1513 0.0874 1.67E+02 27 0.00000 0.25098 1.00000 0.1494 0.0839 2.36E+02 28 0.00000 0.37647 0.00000 0.3386 0.5156 72.71E+00 29 0.00000 0.37647 0.12549 0.3310 0.4983 73.49E+00 30 0.00000 0.37647 0.25098 0.3049 0.4392 75.87E+00 31 0.00000 0.37647 0.37647 0.2580 0.3324 8.31E+01 32 0.00000 0.37647 0.50196 0.2137 0.2311 9.55E+01 33 0.00000 0.37647 0.62353 0.1851 0.1661 11.80E+01 34 0.00000 0.37647 0.74902 0.1686 0.1286 15.56E+01 35 0.00000 0.37647 0.87451 0.1600 0.1082 2.15E+02 36 0.00000 0.37647 1.00000 0.1553 0.0980 2.84E+02 37 0.00000 0.50196 0.00000 0.3422 0.5419 17.02E+01 38 0.00000 0.50196 0.12549 0.3388 0.5335 17.10E+01 39 0.00000 0.50196 0.25098 0.3254 0.5012 17.31E+01 40 0.00000 0.50196 0.37647 0.2938 0.4264 18.03E+01 41 0.00000 0.50196 0.50196 0.2533 0.3311 19.59E+01 42 0.00000 0.50196 0.62353 0.2172 0.2458 21.89E+01 43 0.00000 0.50196 0.74902 0.1912 0.1841 25.67E+01 44 0.00000 0.50196 0.87451 0.1748 0.1454 3.16E+02 45 0.00000 0.50196 1.00000 0.1666 0.1249 3.84E+02 46 0.00000 0.62353 0.00000 0.3439 0.5529 35.47E+01 47 0.00000 0.62353 0.12549 0.3420 0.5487 35.54E+01 48 0.00000 0.62353 0.25098 0.3350 0.5316 35.77E+01 49 0.00000 0.62353 0.37647 0.3160 0.4863 36.41E+01 50 0.00000 0.62353 0.50196 0.2860 0.4140 38.03E+01 51 0.00000 0.62353 0.62353 0.2524 0.3330 40.84E+01 52 0.00000 0.62353 0.74902 0.2213 0.2583 44.69E+01 53 0.00000 0.62353 0.87451 0.1978 0.2014 5.05E+02 54 0.00000 0.62353 1.00000 0.1843 0.1684 5.74E+02 55 0.00000 0.74902 0.00000 0.3442 0.5577 65.25E+01 56 0.00000 0.74902 0.12549 0.3433 0.5554 65.32E+01 57 0.00000 0.74902 0.25098 0.3386 0.5455 65.38E+01 58 0.00000 0.74902 0.37647 0.3274 0.5181 66.01E+01 59 0.00000 0.74902 0.50196 0.3069 0.4683 67.62E+01 60 0.00000 0.74902 0.62353 0.2796 0.4022 70.43E+01 61 0.00000 0.74902 0.74902 0.2505 0.3312 75.29E+01 62 0.00000 0.74902 0.87451 0.2238 0.2664 8.13E+02 63 0.00000 0.74902 1.00000 0.2062 0.2234 8.83E+02 64 0.00000 0.87451 0.00000 0.3437 0.5596 10.94E+02 65 0.00000 0.87451 0.12549 0.3434 0.5582 10.94E+02 66 0.00000 0.87451 0.25098 0.3412 0.5524 10.96E+02 67 0.00000 0.87451 0.37647 0.3340 0.5352 11.01E+02 68 0.00000 0.87451 0.50196 0.3200 0.5022 11.19E+02 69 0.00000 0.87451 0.62353 0.2999 0.4522 11.46E+02 70 0.00000 0.87451 0.74902 0.2744 0.3908 11.92E+02 71 0.00000 0.87451 0.87451 0.2489 0.3276 12.57E+02 72 0.00000 0.87451 1.00000 0.2295 0.2799 13.28E+02 73 0.00000 1.00000 0.00000 0.3442 0.5609 15.53E+02 74 0.00000 1.00000 0.12549 0.3437 0.5598 15.54E+02 75 0.00000 1.00000 0.25098 0.3420 0.5559 15.57E+02 76 0.00000 1.00000 0.37647 0.3369 0.5435 15.63E+02 77 0.00000 1.00000 0.50196 0.3269 0.5184 15.78E+02 78 0.00000 1.00000 0.62353 0.3110 0.4793 16.06E+02 79 0.00000 1.00000 0.74902 0.2895 0.4274 16.56E+02 80 0.00000 1.00000 0.87451 0.2660 0.3695 17.28E+02 81 0.00000 1.00000 1.00000 0.2473 0.3238 18.16E+02 82 0.12549 0.00000 0.00000 0.3274 0.3379 10.30E+00 83 0.12549 0.00000 0.12549 0.2985 0.2963 10.76E+00 84 0.12549 0.00000 0.25098 0.2372 0.2076 12.55E+00 85 0.12549 0.00000 0.37647 0.1866 0.1347 18.18E+00 86 0.12549 0.00000 0.50196 0.1643 0.1025 3.05E+01 87 0.12549 0.00000 0.62353 0.1548 0.0887 5.28E+01 88 0.12549 0.00000 0.74902 0.1504 0.0825 9.06E+01 89 0.12549 0.00000 0.87451 0.1486 0.0799 1.50E+02 90 0.12549 0.00000 1.00000 0.1474 0.0786 2.18E+02 91 0.12549 0.12549 0.00000 0.3300 0.3706 13.23E+00 92 0.12549 0.12549 0.12549 0.3044 0.3298 13.75E+00 93 0.12549 0.12549 0.25098 0.2463 0.2365 15.52E+00 94 0.12549 0.12549 0.37647 0.1929 0.1515 21.27E+00 95 0.12549 0.12549 0.50196 0.1675 0.1108 3.36E+01 96 0.12549 0.12549 0.62353 0.1566 0.0932 5.60E+01 97 0.12549 0.12549 0.74902 0.1514 0.0848 9.36E+01 98 0.12549 0.12549 0.87451 0.1488 0.0813 1.53E+02 99 0.12549 0.12549 1.00000 0.1480 0.0794 2.21E+02 100 0.12549 0.25098 0.00000 0.3359 0.4481 26.89E+00 101 0.12549 0.25098 0.12549 0.3190 0.4157 27.55E+00 102 0.12549 0.25098 0.25098 0.2735 0.3269 29.80E+00 103 0.12549 0.25098 0.37647 0.2159 0.2139 35.48E+00 104 0.12549 0.25098 0.50196 0.1810 0.1454 4.78E+01 105 0.12549 0.25098 0.62353 0.1640 0.1120 7.02E+01 106 0.12549 0.25098 0.74902 0.1556 0.0955 10.80E+01 107 0.12549 0.25098 0.87451 0.1518 0.0879 1.68E+02 108 0.12549 0.25098 1.00000 0.1497 0.0837 2.35E+02 109 0.12549 0.37647 0.00000 0.3406 0.5140 72.82E+00 110 0.12549 0.37647 0.12549 0.3329 0.4966 73.50E+00 111 0.12549 0.37647 0.25098 0.3067 0.4379 75.66E+00 112 0.12549 0.37647 0.37647 0.2594 0.3320 8.32E+01 113 0.12549 0.37647 0.50196 0.2147 0.2311 9.55E+01 114 0.12549 0.37647 0.62353 0.1856 0.1659 11.78E+01 115 0.12549 0.37647 0.74902 0.1690 0.1284 15.52E+01 116 0.12549 0.37647 0.87451 0.1599 0.1084 2.15E+02 117 0.12549 0.37647 1.00000 0.1557 0.0979 2.83E+02 118 0.12549 0.50196 0.00000 0.3433 0.5411 16.99E+01 119 0.12549 0.50196 0.12549 0.3398 0.5325 17.05E+01 120 0.12549 0.50196 0.25098 0.3261 0.5004 17.28E+01 121 0.12549 0.50196 0.37647 0.2942 0.4260 17.98E+01 122 0.12549 0.50196 0.50196 0.2539 0.3308 19.53E+01 123 0.12549 0.50196 0.62353 0.2176 0.2456 21.82E+01 124 0.12549 0.50196 0.74902 0.1914 0.1839 25.58E+01 125 0.12549 0.50196 0.87451 0.1754 0.1454 3.15E+02 126 0.12549 0.50196 1.00000 0.1669 0.1248 3.82E+02 127 0.12549 0.62353 0.00000 0.3443 0.5526 35.32E+01 128 0.12549 0.62353 0.12549 0.3424 0.5481 35.41E+01 129 0.12549 0.62353 0.25098 0.3353 0.5311 35.62E+01 130 0.12549 0.62353 0.37647 0.3163 0.4857 36.28E+01 131 0.12549 0.62353 0.50196 0.2864 0.4138 37.90E+01 132 0.12549 0.62353 0.62353 0.2527 0.3328 40.74E+01 133 0.12549 0.62353 0.74902 0.2215 0.2581 44.59E+01 134 0.12549 0.62353 0.87451 0.1981 0.2017 5.05E+02 135 0.12549 0.62353 1.00000 0.1843 0.1684 5.72E+02 136 0.12549 0.74902 0.00000 0.3445 0.5575 65.18E+01 137 0.12549 0.74902 0.12549 0.3434 0.5551 65.24E+01 138 0.12549 0.74902 0.25098 0.3395 0.5455 65.51E+01 139 0.12549 0.74902 0.37647 0.3281 0.5181 66.09E+01 140 0.12549 0.74902 0.50196 0.3077 0.4686 67.70E+01 141 0.12549 0.74902 0.62353 0.2803 0.4024 70.50E+01 142 0.12549 0.74902 0.74902 0.2510 0.3315 75.35E+01 143 0.12549 0.74902 0.87451 0.2244 0.2664 8.13E+02 144 0.12549 0.74902 1.00000 0.2066 0.2233 8.82E+02 145 0.12549 0.87451 0.00000 0.3442 0.5596 10.94E+02 146 0.12549 0.87451 0.12549 0.3442 0.5584 10.95E+02 147 0.12549 0.87451 0.25098 0.3415 0.5528 10.99E+02 148 0.12549 0.87451 0.37647 0.3341 0.5354 11.04E+02 149 0.12549 0.87451 0.50196 0.3209 0.5022 11.22E+02 150 0.12549 0.87451 0.62353 0.3004 0.4524 11.49E+02 151 0.12549 0.87451 0.74902 0.2750 0.3912 11.95E+02 152 0.12549 0.87451 0.87451 0.2495 0.3280 12.61E+02 153 0.12549 0.87451 1.00000 0.2297 0.2805 13.33E+02 154 0.12549 1.00000 0.00000 0.3446 0.5608 15.59E+02 155 0.12549 1.00000 0.12549 0.3442 0.5599 15.60E+02 156 0.12549 1.00000 0.25098 0.3427 0.5559 15.62E+02 157 0.12549 1.00000 0.37647 0.3376 0.5435 15.68E+02 158 0.12549 1.00000 0.50196 0.3273 0.5185 15.84E+02 159 0.12549 1.00000 0.62353 0.3112 0.4792 16.12E+02 160 0.12549 1.00000 0.74902 0.2899 0.4274 16.60E+02 161 0.12549 1.00000 0.87451 0.2662 0.3697 17.33E+02 162 0.12549 1.00000 1.00000 0.2475 0.3238 18.21E+02 163 0.25098 0.00000 0.00000 0.3847 0.3392 12.47E+00 164 0.25098 0.00000 0.12549 0.3538 0.3053 12.91E+00 165 0.25098 0.00000 0.25098 0.2797 0.2231 14.65E+00 166 0.25098 0.00000 0.37647 0.2082 0.1445 20.29E+00 167 0.25098 0.00000 0.50196 0.1746 0.1078 3.26E+01 168 0.25098 0.00000 0.62353 0.1601 0.0917 5.50E+01 169 0.25098 0.00000 0.74902 0.1533 0.0842 9.27E+01 170 0.25098 0.00000 0.87451 0.1502 0.0810 1.52E+02 171 0.25098 0.00000 1.00000 0.1489 0.0793 2.20E+02 172 0.25098 0.12549 0.00000 0.3799 0.3636 15.11E+00 173 0.25098 0.12549 0.12549 0.3527 0.3281 15.35E+00 174 0.25098 0.12549 0.25098 0.2838 0.2448 17.21E+00 175 0.25098 0.12549 0.37647 0.2127 0.1581 22.91E+00 176 0.25098 0.12549 0.50196 0.1774 0.1144 3.51E+01 177 0.25098 0.12549 0.62353 0.1614 0.0955 5.76E+01 178 0.25098 0.12549 0.74902 0.1541 0.0862 9.52E+01 179 0.25098 0.12549 0.87451 0.1506 0.0820 1.54E+02 180 0.25098 0.12549 1.00000 0.1489 0.0804 2.23E+02 181 0.25098 0.25098 0.00000 0.3667 0.4357 28.45E+00 182 0.25098 0.25098 0.12549 0.3490 0.4060 28.64E+00 183 0.25098 0.25098 0.25098 0.2975 0.3214 30.15E+00 184 0.25098 0.25098 0.37647 0.2303 0.2130 35.81E+00 185 0.25098 0.25098 0.50196 0.1887 0.1457 4.81E+01 186 0.25098 0.25098 0.62353 0.1681 0.1125 7.05E+01 187 0.25098 0.25098 0.74902 0.1580 0.0958 10.81E+01 188 0.25098 0.25098 0.87451 0.1530 0.0878 1.67E+02 189 0.25098 0.25098 1.00000 0.1509 0.0837 2.34E+02 190 0.25098 0.37647 0.00000 0.3537 0.5057 73.98E+00 191 0.25098 0.37647 0.12549 0.3459 0.4894 74.26E+00 192 0.25098 0.37647 0.25098 0.3187 0.4330 75.76E+00 193 0.25098 0.37647 0.37647 0.2684 0.3299 8.32E+01 194 0.25098 0.37647 0.50196 0.2204 0.2308 9.56E+01 195 0.25098 0.37647 0.62353 0.1892 0.1661 11.79E+01 196 0.25098 0.37647 0.74902 0.1710 0.1285 15.50E+01 197 0.25098 0.37647 0.87451 0.1614 0.1082 2.14E+02 198 0.25098 0.37647 1.00000 0.1562 0.0979 2.82E+02 199 0.25098 0.50196 0.00000 0.3492 0.5368 17.08E+01 200 0.25098 0.50196 0.12549 0.3454 0.5288 17.10E+01 201 0.25098 0.50196 0.25098 0.3316 0.4977 17.29E+01 202 0.25098 0.50196 0.37647 0.2991 0.4239 17.97E+01 203 0.25098 0.50196 0.50196 0.2577 0.3298 19.52E+01 204 0.25098 0.50196 0.62353 0.2202 0.2452 21.82E+01 205 0.25098 0.50196 0.74902 0.1931 0.1838 25.59E+01 206 0.25098 0.50196 0.87451 0.1763 0.1454 3.15E+02 207 0.25098 0.50196 1.00000 0.1673 0.1251 3.83E+02 208 0.25098 0.62353 0.00000 0.3469 0.5502 35.43E+01 209 0.25098 0.62353 0.12549 0.3452 0.5461 35.50E+01 210 0.25098 0.62353 0.25098 0.3380 0.5295 35.68E+01 211 0.25098 0.62353 0.37647 0.3190 0.4843 36.33E+01 212 0.25098 0.62353 0.50196 0.2887 0.4129 37.96E+01 213 0.25098 0.62353 0.62353 0.2544 0.3324 40.80E+01 214 0.25098 0.62353 0.74902 0.2229 0.2580 44.66E+01 215 0.25098 0.62353 0.87451 0.1991 0.2015 5.05E+02 216 0.25098 0.62353 1.00000 0.1852 0.1688 5.75E+02 217 0.25098 0.74902 0.00000 0.3461 0.5564 65.45E+01 218 0.25098 0.74902 0.12549 0.3451 0.5540 65.55E+01 219 0.25098 0.74902 0.25098 0.3411 0.5445 65.72E+01 220 0.25098 0.74902 0.37647 0.3297 0.5172 66.29E+01 221 0.25098 0.74902 0.50196 0.3091 0.4680 67.93E+01 222 0.25098 0.74902 0.62353 0.2816 0.4020 70.72E+01 223 0.25098 0.74902 0.74902 0.2520 0.3312 75.58E+01 224 0.25098 0.74902 0.87451 0.2250 0.2665 8.16E+02 225 0.25098 0.74902 1.00000 0.2072 0.2233 8.85E+02 226 0.25098 0.87451 0.00000 0.3454 0.5590 10.99E+02 227 0.25098 0.87451 0.12549 0.3450 0.5576 10.99E+02 228 0.25098 0.87451 0.25098 0.3425 0.5522 11.01E+02 229 0.25098 0.87451 0.37647 0.3356 0.5348 11.06E+02 230 0.25098 0.87451 0.50196 0.3219 0.5013 11.23E+02 231 0.25098 0.87451 0.62353 0.3011 0.4519 11.51E+02 232 0.25098 0.87451 0.74902 0.2758 0.3903 11.96E+02 233 0.25098 0.87451 0.87451 0.2497 0.3278 12.63E+02 234 0.25098 0.87451 1.00000 0.2303 0.2800 13.33E+02 235 0.25098 1.00000 0.00000 0.3451 0.5605 15.61E+02 236 0.25098 1.00000 0.12549 0.3450 0.5593 15.61E+02 237 0.25098 1.00000 0.25098 0.3433 0.5551 15.62E+02 238 0.25098 1.00000 0.37647 0.3381 0.5431 15.68E+02 239 0.25098 1.00000 0.50196 0.3279 0.5181 15.85E+02 240 0.25098 1.00000 0.62353 0.3119 0.4789 16.12E+02 241 0.25098 1.00000 0.74902 0.2905 0.4270 16.61E+02 242 0.25098 1.00000 0.87451 0.2666 0.3693 17.33E+02 243 0.25098 1.00000 1.00000 0.2478 0.3237 18.21E+02 244 0.37647 0.00000 0.00000 0.4880 0.3398 20.73E+00 245 0.37647 0.00000 0.12549 0.4587 0.3173 21.22E+00 246 0.37647 0.00000 0.25098 0.3799 0.2563 22.88E+00 247 0.37647 0.00000 0.37647 0.2760 0.1767 28.36E+00 248 0.37647 0.00000 0.50196 0.2107 0.1259 4.07E+01 249 0.37647 0.00000 0.62353 0.1793 0.1016 6.31E+01 250 0.37647 0.00000 0.74902 0.1640 0.0897 10.06E+01 251 0.37647 0.00000 0.87451 0.1564 0.0840 1.59E+02 252 0.37647 0.00000 1.00000 0.1530 0.0811 2.28E+02 253 0.37647 0.12549 0.00000 0.4764 0.3556 23.49E+00 254 0.37647 0.12549 0.12549 0.4511 0.3325 23.77E+00 255 0.37647 0.12549 0.25098 0.3778 0.2707 25.41E+00 256 0.37647 0.12549 0.37647 0.2776 0.1873 30.91E+00 257 0.37647 0.12549 0.50196 0.2122 0.1319 4.32E+01 258 0.37647 0.12549 0.62353 0.1806 0.1049 6.56E+01 259 0.37647 0.12549 0.74902 0.1648 0.0916 10.31E+01 260 0.37647 0.12549 0.87451 0.1569 0.0853 1.62E+02 261 0.37647 0.12549 1.00000 0.1535 0.0821 2.31E+02 262 0.37647 0.25098 0.00000 0.4421 0.4096 36.55E+00 263 0.37647 0.25098 0.12549 0.4244 0.3883 36.74E+00 264 0.37647 0.25098 0.25098 0.3698 0.3222 37.33E+00 265 0.37647 0.25098 0.37647 0.2845 0.2287 42.71E+00 266 0.37647 0.25098 0.50196 0.2202 0.1575 5.50E+01 267 0.37647 0.25098 0.62353 0.1858 0.1196 7.74E+01 268 0.37647 0.25098 0.74902 0.1681 0.1001 11.48E+01 269 0.37647 0.25098 0.87451 0.1593 0.0906 1.74E+02 270 0.37647 0.25098 1.00000 0.1549 0.0857 2.43E+02 271 0.37647 0.37647 0.00000 0.3956 0.4821 81.67E+00 272 0.37647 0.37647 0.12549 0.3875 0.4684 81.85E+00 273 0.37647 0.37647 0.25098 0.3590 0.4198 82.11E+00 274 0.37647 0.37647 0.37647 0.3006 0.3230 85.11E+00 275 0.37647 0.37647 0.50196 0.2418 0.2289 9.76E+01 276 0.37647 0.37647 0.62353 0.2023 0.1661 11.98E+01 277 0.37647 0.37647 0.74902 0.1791 0.1289 15.70E+01 278 0.37647 0.37647 0.87451 0.1664 0.1084 2.15E+02 279 0.37647 0.37647 1.00000 0.1599 0.0981 2.84E+02 280 0.37647 0.50196 0.00000 0.3704 0.5229 17.93E+01 281 0.37647 0.50196 0.12549 0.3666 0.5152 17.96E+01 282 0.37647 0.50196 0.25098 0.3527 0.4872 18.01E+01 283 0.37647 0.50196 0.37647 0.3182 0.4179 18.31E+01 284 0.37647 0.50196 0.50196 0.2724 0.3279 19.89E+01 285 0.37647 0.50196 0.62353 0.2308 0.2452 22.17E+01 286 0.37647 0.50196 0.74902 0.2003 0.1846 25.92E+01 287 0.37647 0.50196 0.87451 0.1810 0.1461 3.18E+02 288 0.37647 0.50196 1.00000 0.1707 0.1254 3.87E+02 289 0.37647 0.62353 0.00000 0.3580 0.5427 36.35E+01 290 0.37647 0.62353 0.12549 0.3562 0.5387 36.42E+01 291 0.37647 0.62353 0.25098 0.3491 0.5228 36.42E+01 292 0.37647 0.62353 0.37647 0.3296 0.4797 36.66E+01 293 0.37647 0.62353 0.50196 0.2978 0.4102 38.29E+01 294 0.37647 0.62353 0.62353 0.2618 0.3312 41.14E+01 295 0.37647 0.62353 0.74902 0.2284 0.2579 45.02E+01 296 0.37647 0.62353 0.87451 0.2030 0.2018 5.08E+02 297 0.37647 0.62353 1.00000 0.1880 0.1685 5.77E+02 298 0.37647 0.74902 0.00000 0.3521 0.5519 66.13E+01 299 0.37647 0.74902 0.12549 0.3512 0.5496 66.17E+01 300 0.37647 0.74902 0.25098 0.3471 0.5405 66.25E+01 301 0.37647 0.74902 0.37647 0.3358 0.5141 66.36E+01 302 0.37647 0.74902 0.50196 0.3148 0.4656 68.03E+01 303 0.37647 0.74902 0.62353 0.2864 0.4006 70.87E+01 304 0.37647 0.74902 0.74902 0.2560 0.3306 75.62E+01 305 0.37647 0.74902 0.87451 0.2280 0.2663 8.14E+02 306 0.37647 0.74902 1.00000 0.2094 0.2230 8.85E+02 307 0.37647 0.87451 0.00000 0.3493 0.5559 11.03E+02 308 0.37647 0.87451 0.12549 0.3486 0.5548 11.03E+02 309 0.37647 0.87451 0.25098 0.3461 0.5498 11.04E+02 310 0.37647 0.87451 0.37647 0.3393 0.5323 11.03E+02 311 0.37647 0.87451 0.50196 0.3252 0.4998 11.22E+02 312 0.37647 0.87451 0.62353 0.3043 0.4508 11.51E+02 313 0.37647 0.87451 0.74902 0.2779 0.3897 11.89E+02 314 0.37647 0.87451 0.87451 0.2518 0.3276 12.58E+02 315 0.37647 0.87451 1.00000 0.2316 0.2794 13.27E+02 316 0.37647 1.00000 0.00000 0.3472 0.5579 15.52E+02 317 0.37647 1.00000 0.12549 0.3467 0.5574 15.53E+02 318 0.37647 1.00000 0.25098 0.3452 0.5533 15.53E+02 319 0.37647 1.00000 0.37647 0.3401 0.5411 15.53E+02 320 0.37647 1.00000 0.50196 0.3298 0.5166 15.71E+02 321 0.37647 1.00000 0.62353 0.3134 0.4776 16.00E+02 322 0.37647 1.00000 0.74902 0.2920 0.4260 16.47E+02 323 0.37647 1.00000 0.87451 0.2681 0.3689 17.20E+02 324 0.37647 1.00000 1.00000 0.2486 0.3225 18.06E+02 325 0.50196 0.00000 0.00000 0.5661 0.3406 38.83E+00 326 0.50196 0.00000 0.12549 0.5470 0.3285 39.28E+00 327 0.50196 0.00000 0.25098 0.4835 0.2883 40.98E+00 328 0.50196 0.00000 0.37647 0.3724 0.2189 46.18E+00 329 0.50196 0.00000 0.50196 0.2773 0.1588 5.80E+01 330 0.50196 0.00000 0.62353 0.2181 0.1215 8.04E+01 331 0.50196 0.00000 0.74902 0.1867 0.1015 11.80E+01 332 0.50196 0.00000 0.87451 0.1704 0.0914 1.77E+02 333 0.50196 0.00000 1.00000 0.1626 0.0864 2.46E+02 334 0.50196 0.12549 0.00000 0.5561 0.3488 41.45E+00 335 0.50196 0.12549 0.12549 0.5383 0.3362 41.69E+00 336 0.50196 0.12549 0.25098 0.4784 0.2962 43.39E+00 337 0.50196 0.12549 0.37647 0.3712 0.2256 48.62E+00 338 0.50196 0.12549 0.50196 0.2777 0.1635 6.04E+01 339 0.50196 0.12549 0.62353 0.2189 0.1242 8.27E+01 340 0.50196 0.12549 0.74902 0.1873 0.1032 12.03E+01 341 0.50196 0.12549 0.87451 0.1709 0.0924 1.79E+02 342 0.50196 0.12549 1.00000 0.1627 0.0871 2.48E+02 343 0.50196 0.25098 0.00000 0.5212 0.3840 54.58E+00 344 0.50196 0.25098 0.12549 0.5073 0.3715 54.75E+00 345 0.50196 0.25098 0.25098 0.4596 0.3284 55.39E+00 346 0.50196 0.25098 0.37647 0.3678 0.2548 60.45E+00 347 0.50196 0.25098 0.50196 0.2813 0.1849 7.23E+01 348 0.50196 0.25098 0.62353 0.2226 0.1375 9.45E+01 349 0.50196 0.25098 0.74902 0.1900 0.1113 13.21E+01 350 0.50196 0.25098 0.87451 0.1721 0.0975 1.91E+02 351 0.50196 0.25098 1.00000 0.1640 0.0907 2.60E+02 352 0.50196 0.37647 0.00000 0.4581 0.4472 9.82E+01 353 0.50196 0.37647 0.12549 0.4507 0.4378 9.85E+01 354 0.50196 0.37647 0.25098 0.4227 0.4020 9.88E+01 355 0.50196 0.37647 0.37647 0.3601 0.3227 10.00E+01 356 0.50196 0.37647 0.50196 0.2893 0.2407 11.15E+01 357 0.50196 0.37647 0.62353 0.2334 0.1764 13.38E+01 358 0.50196 0.37647 0.74902 0.1986 0.1365 17.11E+01 359 0.50196 0.37647 0.87451 0.1788 0.1134 2.29E+02 360 0.50196 0.37647 1.00000 0.1686 0.1017 2.98E+02 361 0.50196 0.50196 0.00000 0.4092 0.4974 19.28E+01 362 0.50196 0.50196 0.12549 0.4054 0.4914 19.33E+01 363 0.50196 0.50196 0.25098 0.3912 0.4677 19.39E+01 364 0.50196 0.50196 0.37647 0.3547 0.4071 19.51E+01 365 0.50196 0.50196 0.50196 0.3024 0.3210 20.14E+01 366 0.50196 0.50196 0.62353 0.2521 0.2423 22.40E+01 367 0.50196 0.50196 0.74902 0.2145 0.1835 26.14E+01 368 0.50196 0.50196 0.87451 0.1903 0.1457 3.20E+02 369 0.50196 0.50196 1.00000 0.1776 0.1256 3.89E+02 370 0.50196 0.62353 0.00000 0.3799 0.5276 37.62E+01 371 0.50196 0.62353 0.12549 0.3782 0.5239 37.65E+01 372 0.50196 0.62353 0.25098 0.3708 0.5096 37.72E+01 373 0.50196 0.62353 0.37647 0.3507 0.4701 37.84E+01 374 0.50196 0.62353 0.50196 0.3170 0.4038 38.51E+01 375 0.50196 0.62353 0.62353 0.2769 0.3278 41.34E+01 376 0.50196 0.62353 0.74902 0.2395 0.2563 45.20E+01 377 0.50196 0.62353 0.87451 0.2109 0.2018 5.13E+02 378 0.50196 0.62353 1.00000 0.1941 0.1686 5.81E+02 379 0.50196 0.74902 0.00000 0.3649 0.5429 67.63E+01 380 0.50196 0.74902 0.12549 0.3640 0.5408 67.71E+01 381 0.50196 0.74902 0.25098 0.3600 0.5322 67.81E+01 382 0.50196 0.74902 0.37647 0.3485 0.5073 68.01E+01 383 0.50196 0.74902 0.50196 0.3270 0.4614 69.04E+01 384 0.50196 0.74902 0.62353 0.2970 0.3976 71.54E+01 385 0.50196 0.74902 0.74902 0.2643 0.3286 76.19E+01 386 0.50196 0.74902 0.87451 0.2347 0.2653 8.22E+02 387 0.50196 0.74902 1.00000 0.2147 0.2225 8.91E+02 388 0.50196 0.87451 0.00000 0.3569 0.5506 11.20E+02 389 0.50196 0.87451 0.12549 0.3567 0.5492 11.21E+02 390 0.50196 0.87451 0.25098 0.3544 0.5442 11.21E+02 391 0.50196 0.87451 0.37647 0.3470 0.5281 11.20E+02 392 0.50196 0.87451 0.50196 0.3330 0.4963 11.28E+02 393 0.50196 0.87451 0.62353 0.3113 0.4479 11.57E+02 394 0.50196 0.87451 0.74902 0.2848 0.3882 12.05E+02 395 0.50196 0.87451 0.87451 0.2575 0.3269 12.76E+02 396 0.50196 0.87451 1.00000 0.2364 0.2796 13.47E+02 397 0.50196 1.00000 0.00000 0.3537 0.5542 15.84E+02 398 0.50196 1.00000 0.12549 0.3534 0.5534 15.85E+02 399 0.50196 1.00000 0.25098 0.3516 0.5496 15.85E+02 400 0.50196 1.00000 0.37647 0.3466 0.5379 15.83E+02 401 0.50196 1.00000 0.50196 0.3363 0.5139 15.92E+02 402 0.50196 1.00000 0.62353 0.3196 0.4756 16.19E+02 403 0.50196 1.00000 0.74902 0.2974 0.4246 16.68E+02 404 0.50196 1.00000 0.87451 0.2726 0.3679 17.41E+02 405 0.50196 1.00000 1.00000 0.2527 0.3223 18.28E+02 406 0.62353 0.00000 0.00000 0.6063 0.3408 7.41E+01 407 0.62353 0.00000 0.12549 0.5944 0.3339 7.45E+01 408 0.62353 0.00000 0.25098 0.5531 0.3101 7.62E+01 409 0.62353 0.00000 0.37647 0.4625 0.2584 8.14E+01 410 0.62353 0.00000 0.50196 0.3600 0.1989 9.30E+01 411 0.62353 0.00000 0.62353 0.2793 0.1524 11.40E+01 412 0.62353 0.00000 0.74902 0.2255 0.1214 15.18E+01 413 0.62353 0.00000 0.87451 0.1948 0.1043 2.11E+02 414 0.62353 0.00000 1.00000 0.1798 0.0953 2.80E+02 415 0.62353 0.12549 0.00000 0.6000 0.3452 7.68E+01 416 0.62353 0.12549 0.12549 0.5894 0.3386 7.71E+01 417 0.62353 0.12549 0.25098 0.5493 0.3146 7.88E+01 418 0.62353 0.12549 0.37647 0.4609 0.2627 8.39E+01 419 0.62353 0.12549 0.50196 0.3597 0.2022 9.54E+01 420 0.62353 0.12549 0.62353 0.2798 0.1549 11.65E+01 421 0.62353 0.12549 0.74902 0.2260 0.1230 15.42E+01 422 0.62353 0.12549 0.87451 0.1955 0.1051 2.13E+02 423 0.62353 0.12549 1.00000 0.1801 0.0960 2.82E+02 424 0.62353 0.25098 0.00000 0.5757 0.3662 9.00E+01 425 0.62353 0.25098 0.12549 0.5663 0.3589 9.02E+01 426 0.62353 0.25098 0.25098 0.5321 0.3332 9.08E+01 427 0.62353 0.25098 0.37647 0.4529 0.2806 9.57E+01 428 0.62353 0.25098 0.50196 0.3589 0.2176 10.74E+01 429 0.62353 0.25098 0.62353 0.2813 0.1660 12.86E+01 430 0.62353 0.25098 0.74902 0.2279 0.1303 16.63E+01 431 0.62353 0.25098 0.87451 0.1969 0.1099 2.25E+02 432 0.62353 0.25098 1.00000 0.1814 0.0993 2.94E+02 433 0.62353 0.37647 0.00000 0.5191 0.4139 13.41E+01 434 0.62353 0.37647 0.12549 0.5129 0.4078 13.43E+01 435 0.62353 0.37647 0.25098 0.4897 0.3841 13.46E+01 436 0.62353 0.37647 0.37647 0.4318 0.3273 13.56E+01 437 0.62353 0.37647 0.50196 0.3556 0.2598 14.73E+01 438 0.62353 0.37647 0.62353 0.2858 0.1987 16.85E+01 439 0.62353 0.37647 0.74902 0.2339 0.1530 20.59E+01 440 0.62353 0.37647 0.87451 0.2018 0.1248 2.64E+02 441 0.62353 0.37647 1.00000 0.1849 0.1101 3.34E+02 442 0.62353 0.50196 0.00000 0.4600 0.4646 22.92E+01 443 0.62353 0.50196 0.12549 0.4565 0.4601 22.93E+01 444 0.62353 0.50196 0.25098 0.4429 0.4421 22.99E+01 445 0.62353 0.50196 0.37647 0.4068 0.3949 23.06E+01 446 0.62353 0.50196 0.50196 0.3516 0.3220 23.44E+01 447 0.62353 0.50196 0.62353 0.2938 0.2527 25.49E+01 448 0.62353 0.50196 0.74902 0.2444 0.1936 29.27E+01 449 0.62353 0.50196 0.87451 0.2108 0.1540 3.52E+02 450 0.62353 0.50196 1.00000 0.1925 0.1316 4.21E+02 451 0.62353 0.62353 0.00000 0.4150 0.5034 40.92E+01 452 0.62353 0.62353 0.12549 0.4130 0.5005 40.94E+01 453 0.62353 0.62353 0.25098 0.4057 0.4883 40.99E+01 454 0.62353 0.62353 0.37647 0.3850 0.4545 41.01E+01 455 0.62353 0.62353 0.50196 0.3496 0.3950 41.19E+01 456 0.62353 0.62353 0.62353 0.3043 0.3213 42.15E+01 457 0.62353 0.62353 0.74902 0.2604 0.2535 46.02E+01 458 0.62353 0.62353 0.87451 0.2260 0.2005 5.19E+02 459 0.62353 0.62353 1.00000 0.2052 0.1680 5.88E+02 460 0.62353 0.74902 0.00000 0.3869 0.5268 70.39E+01 461 0.62353 0.74902 0.12549 0.3859 0.5249 70.41E+01 462 0.62353 0.74902 0.25098 0.3818 0.5171 70.54E+01 463 0.62353 0.74902 0.37647 0.3697 0.4948 70.85E+01 464 0.62353 0.74902 0.50196 0.3477 0.4521 71.22E+01 465 0.62353 0.74902 0.62353 0.3158 0.3909 71.88E+01 466 0.62353 0.74902 0.74902 0.2798 0.3255 76.88E+01 467 0.62353 0.74902 0.87451 0.2470 0.2642 8.29E+02 468 0.62353 0.74902 1.00000 0.2242 0.2220 8.99E+02 469 0.62353 0.87451 0.00000 0.3709 0.5400 11.40E+02 470 0.62353 0.87451 0.12549 0.3705 0.5392 11.41E+02 471 0.62353 0.87451 0.25098 0.3678 0.5339 11.41E+02 472 0.62353 0.87451 0.37647 0.3609 0.5189 11.40E+02 473 0.62353 0.87451 0.50196 0.3466 0.4885 11.43E+02 474 0.62353 0.87451 0.62353 0.3243 0.4419 11.53E+02 475 0.62353 0.87451 0.74902 0.2957 0.3840 12.01E+02 476 0.62353 0.87451 0.87451 0.2666 0.3247 12.74E+02 477 0.62353 0.87451 1.00000 0.2439 0.2782 13.46E+02 478 0.62353 1.00000 0.00000 0.3635 0.5465 15.98E+02 479 0.62353 1.00000 0.12549 0.3633 0.5459 15.99E+02 480 0.62353 1.00000 0.25098 0.3616 0.5422 16.00E+02 481 0.62353 1.00000 0.37647 0.3566 0.5309 15.99E+02 482 0.62353 1.00000 0.50196 0.3461 0.5079 16.04E+02 483 0.62353 1.00000 0.62353 0.3290 0.4709 16.12E+02 484 0.62353 1.00000 0.74902 0.3058 0.4211 16.62E+02 485 0.62353 1.00000 0.87451 0.2799 0.3654 17.34E+02 486 0.62353 1.00000 1.00000 0.2590 0.3204 18.21E+02 487 0.74902 0.00000 0.00000 0.6257 0.3410 13.12E+01 488 0.74902 0.00000 0.12549 0.6191 0.3373 13.15E+01 489 0.74902 0.00000 0.25098 0.5933 0.3230 13.31E+01 490 0.74902 0.00000 0.37647 0.5286 0.2873 13.78E+01 491 0.74902 0.00000 0.50196 0.4372 0.2367 14.98E+01 492 0.74902 0.00000 0.62353 0.3485 0.1876 17.03E+01 493 0.74902 0.00000 0.74902 0.2792 0.1493 20.59E+01 494 0.74902 0.00000 0.87451 0.2314 0.1234 2.65E+02 495 0.74902 0.00000 1.00000 0.2061 0.1091 3.33E+02 496 0.74902 0.12549 0.00000 0.6222 0.3434 13.35E+01 497 0.74902 0.12549 0.12549 0.6156 0.3394 13.37E+01 498 0.74902 0.12549 0.25098 0.5904 0.3255 13.55E+01 499 0.74902 0.12549 0.37647 0.5265 0.2896 14.02E+01 500 0.74902 0.12549 0.50196 0.4364 0.2388 15.22E+01 501 0.74902 0.12549 0.62353 0.3482 0.1892 17.27E+01 502 0.74902 0.12549 0.74902 0.2794 0.1504 20.81E+01 503 0.74902 0.12549 0.87451 0.2312 0.1240 2.67E+02 504 0.74902 0.12549 1.00000 0.2063 0.1098 3.36E+02 505 0.74902 0.25098 0.00000 0.6064 0.3558 14.68E+01 506 0.74902 0.25098 0.12549 0.6004 0.3518 14.70E+01 507 0.74902 0.25098 0.25098 0.5775 0.3362 14.77E+01 508 0.74902 0.25098 0.37647 0.5180 0.3005 15.23E+01 509 0.74902 0.25098 0.50196 0.4330 0.2489 16.44E+01 510 0.74902 0.25098 0.62353 0.3479 0.1976 18.53E+01 511 0.74902 0.25098 0.74902 0.2801 0.1566 22.07E+01 512 0.74902 0.25098 0.87451 0.2324 0.1283 2.80E+02 513 0.74902 0.25098 1.00000 0.2069 0.1128 3.49E+02 514 0.74902 0.37647 0.00000 0.5641 0.3889 19.05E+01 515 0.74902 0.37647 0.12549 0.5593 0.3851 19.08E+01 516 0.74902 0.37647 0.25098 0.5417 0.3702 19.12E+01 517 0.74902 0.37647 0.37647 0.4944 0.3309 19.19E+01 518 0.74902 0.37647 0.50196 0.4227 0.2781 20.39E+01 519 0.74902 0.37647 0.62353 0.3465 0.2224 22.48E+01 520 0.74902 0.37647 0.74902 0.2828 0.1757 26.02E+01 521 0.74902 0.37647 0.87451 0.2356 0.1415 3.19E+02 522 0.74902 0.37647 1.00000 0.2099 0.1226 3.88E+02 523 0.74902 0.50196 0.00000 0.5089 0.4331 28.60E+01 524 0.74902 0.50196 0.12549 0.5056 0.4299 28.63E+01 525 0.74902 0.50196 0.25098 0.4939 0.4172 28.68E+01 526 0.74902 0.50196 0.37647 0.4610 0.3829 28.75E+01 527 0.74902 0.50196 0.50196 0.4077 0.3254 29.16E+01 528 0.74902 0.50196 0.62353 0.3452 0.2657 31.20E+01 529 0.74902 0.50196 0.74902 0.2877 0.2107 34.77E+01 530 0.74902 0.50196 0.87451 0.2425 0.1677 4.06E+02 531 0.74902 0.50196 1.00000 0.2160 0.1426 4.76E+02 532 0.74902 0.62353 0.00000 0.4557 0.4755 46.52E+01 533 0.74902 0.62353 0.12549 0.4538 0.4731 46.53E+01 534 0.74902 0.62353 0.25098 0.4469 0.4634 46.55E+01 535 0.74902 0.62353 0.37647 0.4267 0.4363 46.52E+01 536 0.74902 0.62353 0.50196 0.3914 0.3874 46.95E+01 537 0.74902 0.62353 0.62353 0.3435 0.3224 47.56E+01 538 0.74902 0.62353 0.74902 0.2951 0.2614 50.90E+01 539 0.74902 0.62353 0.87451 0.2524 0.2086 5.67E+02 540 0.74902 0.62353 1.00000 0.2258 0.1754 6.37E+02 541 0.74902 0.74902 0.00000 0.4167 0.5064 76.18E+01 542 0.74902 0.74902 0.12549 0.4157 0.5047 76.21E+01 543 0.74902 0.74902 0.25098 0.4117 0.4980 76.25E+01 544 0.74902 0.74902 0.37647 0.3997 0.4783 76.02E+01 545 0.74902 0.74902 0.50196 0.3774 0.4405 76.32E+01 546 0.74902 0.74902 0.62353 0.3440 0.3860 77.13E+01 547 0.74902 0.74902 0.74902 0.3040 0.3211 80.49E+01 548 0.74902 0.74902 0.87451 0.2666 0.2633 8.64E+02 549 0.74902 0.74902 1.00000 0.2410 0.2233 9.34E+02 550 0.74902 0.87451 0.00000 0.3919 0.5250 11.87E+02 551 0.74902 0.87451 0.12549 0.3914 0.5243 11.88E+02 552 0.74902 0.87451 0.25098 0.3892 0.5195 11.88E+02 553 0.74902 0.87451 0.37647 0.3815 0.5055 11.86E+02 554 0.74902 0.87451 0.50196 0.3669 0.4785 11.92E+02 555 0.74902 0.87451 0.62353 0.3441 0.4350 11.97E+02 556 0.74902 0.87451 0.74902 0.3134 0.3780 12.35E+02 557 0.74902 0.87451 0.87451 0.2816 0.3218 13.07E+02 558 0.74902 0.87451 1.00000 0.2572 0.2773 13.78E+02 559 0.74902 1.00000 0.00000 0.3792 0.5354 16.49E+02 560 0.74902 1.00000 0.12549 0.3793 0.5345 16.49E+02 561 0.74902 1.00000 0.25098 0.3775 0.5311 16.50E+02 562 0.74902 1.00000 0.37647 0.3719 0.5210 16.49E+02 563 0.74902 1.00000 0.50196 0.3617 0.4992 16.52E+02 564 0.74902 1.00000 0.62353 0.3442 0.4643 16.58E+02 565 0.74902 1.00000 0.74902 0.3199 0.4153 17.03E+02 566 0.74902 1.00000 0.87451 0.2924 0.3623 17.77E+02 567 0.74902 1.00000 1.00000 0.2703 0.3196 18.67E+02 568 0.87451 0.00000 0.00000 0.6363 0.3410 22.66E+01 569 0.87451 0.00000 0.12549 0.6323 0.3388 22.71E+01 570 0.87451 0.00000 0.25098 0.6165 0.3302 22.88E+01 571 0.87451 0.00000 0.37647 0.5733 0.3069 23.33E+01 572 0.87451 0.00000 0.50196 0.5025 0.2685 24.55E+01 573 0.87451 0.00000 0.62353 0.4195 0.2235 26.63E+01 574 0.87451 0.00000 0.74902 0.3427 0.1820 30.12E+01 575 0.87451 0.00000 0.87451 0.2764 0.1472 3.85E+02 576 0.87451 0.00000 1.00000 0.2428 0.1287 4.52E+02 577 0.87451 0.12549 0.00000 0.6341 0.3425 22.94E+01 578 0.87451 0.12549 0.12549 0.6302 0.3402 22.98E+01 579 0.87451 0.12549 0.25098 0.6147 0.3315 23.14E+01 580 0.87451 0.12549 0.37647 0.5719 0.3084 23.62E+01 581 0.87451 0.12549 0.50196 0.5015 0.2698 24.83E+01 582 0.87451 0.12549 0.62353 0.4191 0.2248 26.90E+01 583 0.87451 0.12549 0.74902 0.3426 0.1830 30.39E+01 584 0.87451 0.12549 0.87451 0.2766 0.1478 3.88E+02 585 0.87451 0.12549 1.00000 0.2430 0.1292 4.55E+02 586 0.87451 0.25098 0.00000 0.6244 0.3498 24.29E+01 587 0.87451 0.25098 0.12549 0.6205 0.3475 24.32E+01 588 0.87451 0.25098 0.25098 0.6059 0.3379 24.36E+01 589 0.87451 0.25098 0.37647 0.5653 0.3147 24.81E+01 590 0.87451 0.25098 0.50196 0.4978 0.2763 26.05E+01 591 0.87451 0.25098 0.62353 0.4176 0.2305 28.13E+01 592 0.87451 0.25098 0.74902 0.3425 0.1876 31.61E+01 593 0.87451 0.25098 0.87451 0.2771 0.1513 3.98E+02 594 0.87451 0.25098 1.00000 0.2435 0.1318 4.66E+02 595 0.87451 0.37647 0.00000 0.5958 0.3715 28.63E+01 596 0.87451 0.37647 0.12549 0.5923 0.3693 28.68E+01 597 0.87451 0.37647 0.25098 0.5800 0.3599 28.71E+01 598 0.87451 0.37647 0.37647 0.5452 0.3342 28.71E+01 599 0.87451 0.37647 0.50196 0.4857 0.2955 29.98E+01 600 0.87451 0.37647 0.62353 0.4127 0.2482 32.07E+01 601 0.87451 0.37647 0.74902 0.3425 0.2027 35.53E+01 602 0.87451 0.37647 0.87451 0.2786 0.1622 4.32E+02 603 0.87451 0.37647 1.00000 0.2446 0.1398 4.99E+02 604 0.87451 0.50196 0.00000 0.5511 0.4058 38.20E+01 605 0.87451 0.50196 0.12549 0.5487 0.4037 38.24E+01 606 0.87451 0.50196 0.25098 0.5394 0.3952 38.26E+01 607 0.87451 0.50196 0.37647 0.5128 0.3715 38.29E+01 608 0.87451 0.50196 0.50196 0.4657 0.3291 38.71E+01 609 0.87451 0.50196 0.62353 0.4042 0.2803 40.77E+01 610 0.87451 0.50196 0.74902 0.3413 0.2304 44.28E+01 611 0.87451 0.50196 0.87451 0.2812 0.1837 5.07E+02 612 0.87451 0.50196 1.00000 0.2480 0.1572 5.73E+02 613 0.87451 0.62353 0.00000 0.4992 0.4455 56.04E+01 614 0.87451 0.62353 0.12549 0.4975 0.4439 56.10E+01 615 0.87451 0.62353 0.25098 0.4914 0.4368 56.14E+01 616 0.87451 0.62353 0.37647 0.4734 0.4165 56.07E+01 617 0.87451 0.62353 0.50196 0.4402 0.3788 56.51E+01 618 0.87451 0.62353 0.62353 0.3927 0.3254 57.07E+01 619 0.87451 0.62353 0.74902 0.3405 0.2721 60.40E+01 620 0.87451 0.62353 0.87451 0.2924 0.2234 6.58E+02 621 0.87451 0.62353 1.00000 0.2580 0.1890 7.28E+02 622 0.87451 0.74902 0.00000 0.4540 0.4802 85.36E+01 623 0.87451 0.74902 0.12549 0.4529 0.4789 85.44E+01 624 0.87451 0.74902 0.25098 0.4491 0.4734 85.39E+01 625 0.87451 0.74902 0.37647 0.4380 0.4572 84.97E+01 626 0.87451 0.74902 0.50196 0.4157 0.4262 85.50E+01 627 0.87451 0.74902 0.62353 0.3818 0.3799 86.37E+01 628 0.87451 0.74902 0.74902 0.3388 0.3249 95.67E+01 629 0.87451 0.74902 0.87451 0.3006 0.2760 10.31E+02 630 0.87451 0.74902 1.00000 0.2705 0.2373 11.02E+02 631 0.87451 0.87451 0.00000 0.4231 0.5036 13.46E+02 632 0.87451 0.87451 0.12549 0.4227 0.5026 13.46E+02 633 0.87451 0.87451 0.25098 0.4207 0.4985 13.27E+02 634 0.87451 0.87451 0.37647 0.4134 0.4863 12.81E+02 635 0.87451 0.87451 0.50196 0.3960 0.4641 12.81E+02 636 0.87451 0.87451 0.62353 0.3727 0.4257 12.86E+02 637 0.87451 0.87451 0.74902 0.3401 0.3736 13.71E+02 638 0.87451 0.87451 0.87451 0.3110 0.3290 18.69E+02 639 0.87451 0.87451 1.00000 0.2883 0.2944 19.42E+02 640 0.87451 1.00000 0.00000 0.4056 0.5171 19.62E+02 641 0.87451 1.00000 0.12549 0.4055 0.5163 19.62E+02 642 0.87451 1.00000 0.25098 0.4042 0.5136 19.29E+02 643 0.87451 1.00000 0.37647 0.3974 0.5057 18.63E+02 644 0.87451 1.00000 0.50196 0.3864 0.4853 17.47E+02 645 0.87451 1.00000 0.62353 0.3666 0.4544 17.34E+02 646 0.87451 1.00000 0.74902 0.3409 0.4075 18.29E+02 647 0.87451 1.00000 0.87451 0.3151 0.3583 23.20E+02 648 0.87451 1.00000 1.00000 0.2947 0.3247 24.11E+02 649 1.00000 0.00000 0.00000 0.6401 0.3410 33.54E+01 650 1.00000 0.00000 0.12549 0.6373 0.3394 33.56E+01 651 1.00000 0.00000 0.25098 0.6266 0.3336 33.73E+01 652 1.00000 0.00000 0.37647 0.5954 0.3169 34.10E+01 653 1.00000 0.00000 0.50196 0.5403 0.2873 35.36E+01 654 1.00000 0.00000 0.62353 0.4678 0.2484 37.40E+01 655 1.00000 0.00000 0.74902 0.3921 0.2078 40.91E+01 656 1.00000 0.00000 0.87451 0.3181 0.1691 4.82E+02 657 1.00000 0.00000 1.00000 0.2743 0.1454 5.92E+02 658 1.00000 0.12549 0.00000 0.6387 0.3418 33.71E+01 659 1.00000 0.12549 0.12549 0.6360 0.3403 33.74E+01 660 1.00000 0.12549 0.25098 0.6252 0.3344 33.92E+01 661 1.00000 0.12549 0.37647 0.5943 0.3177 34.31E+01 662 1.00000 0.12549 0.50196 0.5395 0.2880 35.57E+01 663 1.00000 0.12549 0.62353 0.4672 0.2491 37.64E+01 664 1.00000 0.12549 0.74902 0.3918 0.2083 41.16E+01 665 1.00000 0.12549 0.87451 0.3181 0.1695 4.85E+02 666 1.00000 0.12549 1.00000 0.2742 0.1459 5.96E+02 667 1.00000 0.25098 0.00000 0.6319 0.3469 35.09E+01 668 1.00000 0.25098 0.12549 0.6295 0.3453 35.10E+01 669 1.00000 0.25098 0.25098 0.6191 0.3387 35.16E+01 670 1.00000 0.25098 0.37647 0.5890 0.3222 35.56E+01 671 1.00000 0.25098 0.50196 0.5359 0.2925 36.84E+01 672 1.00000 0.25098 0.62353 0.4653 0.2532 38.90E+01 673 1.00000 0.25098 0.74902 0.3911 0.2119 42.44E+01 674 1.00000 0.25098 0.87451 0.3175 0.1721 4.96E+02 675 1.00000 0.25098 1.00000 0.2746 0.1480 6.07E+02 676 1.00000 0.37647 0.00000 0.6112 0.3624 39.35E+01 677 1.00000 0.37647 0.12549 0.6088 0.3608 39.38E+01 678 1.00000 0.37647 0.25098 0.5996 0.3543 39.44E+01 679 1.00000 0.37647 0.37647 0.5732 0.3358 39.49E+01 680 1.00000 0.37647 0.50196 0.5245 0.3061 40.69E+01 681 1.00000 0.37647 0.62353 0.4592 0.2663 42.76E+01 682 1.00000 0.37647 0.74902 0.3890 0.2237 46.26E+01 683 1.00000 0.37647 0.87451 0.3187 0.1813 5.28E+02 684 1.00000 0.37647 1.00000 0.2753 0.1549 6.41E+02 685 1.00000 0.50196 0.00000 0.5758 0.3891 48.98E+01 686 1.00000 0.50196 0.12549 0.5738 0.3877 48.99E+01 687 1.00000 0.50196 0.25098 0.5663 0.3817 49.07E+01 688 1.00000 0.50196 0.37647 0.5447 0.3641 49.00E+01 689 1.00000 0.50196 0.50196 0.5046 0.3316 49.49E+01 690 1.00000 0.50196 0.62353 0.4480 0.2911 51.50E+01 691 1.00000 0.50196 0.74902 0.3848 0.2459 55.03E+01 692 1.00000 0.50196 0.87451 0.3267 0.2045 6.04E+02 693 1.00000 0.50196 1.00000 0.2780 0.1697 7.18E+02 694 1.00000 0.62353 0.00000 0.5293 0.4244 66.81E+01 695 1.00000 0.62353 0.12549 0.5279 0.4229 66.76E+01 696 1.00000 0.62353 0.25098 0.5224 0.4176 66.91E+01 697 1.00000 0.62353 0.37647 0.5067 0.4020 66.79E+01 698 1.00000 0.62353 0.50196 0.4767 0.3721 67.28E+01 699 1.00000 0.62353 0.62353 0.4318 0.3275 67.78E+01 700 1.00000 0.62353 0.74902 0.3790 0.2805 71.14E+01 701 1.00000 0.62353 0.87451 0.3275 0.2350 7.65E+02 702 1.00000 0.62353 1.00000 0.2855 0.1977 8.59E+02 703 1.00000 0.74902 0.00000 0.4831 0.4588 9.63E+02 704 1.00000 0.74902 0.12549 0.4822 0.4579 9.63E+02 705 1.00000 0.74902 0.25098 0.4791 0.4536 9.64E+02 706 1.00000 0.74902 0.37647 0.4683 0.4408 9.60E+02 707 1.00000 0.74902 0.50196 0.4477 0.4146 9.64E+02 708 1.00000 0.74902 0.62353 0.4144 0.3751 9.73E+02 709 1.00000 0.74902 0.74902 0.3692 0.3267 10.70E+02 710 1.00000 0.74902 0.87451 0.3280 0.2813 11.40E+02 711 1.00000 0.74902 1.00000 0.2962 0.2454 12.08E+02 712 1.00000 0.87451 0.00000 0.4490 0.4844 13.83E+02 713 1.00000 0.87451 0.12549 0.4486 0.4839 13.83E+02 714 1.00000 0.87451 0.25098 0.4441 0.4820 13.83E+02 715 1.00000 0.87451 0.37647 0.4365 0.4720 13.82E+02 716 1.00000 0.87451 0.50196 0.4222 0.4511 13.88E+02 717 1.00000 0.87451 0.62353 0.3986 0.4175 13.94E+02 718 1.00000 0.87451 0.74902 0.3645 0.3707 14.89E+02 719 1.00000 0.87451 0.87451 0.3286 0.3304 20.67E+02 720 1.00000 0.87451 1.00000 0.3071 0.3001 21.61E+02 721 1.00000 1.00000 0.00000 0.4233 0.5048 22.47E+02 722 1.00000 1.00000 0.12549 0.4230 0.5046 22.44E+02 723 1.00000 1.00000 0.25098 0.4220 0.5018 22.13E+02 724 1.00000 1.00000 0.37647 0.4182 0.4929 20.96E+02 725 1.00000 1.00000 0.50196 0.4080 0.4751 19.34E+02 726 1.00000 1.00000 0.62353 0.3884 0.4455 18.43E+02 727 1.00000 1.00000 0.74902 0.3613 0.4026 19.41E+02 728 1.00000 1.00000 0.87451 0.3306 0.3571 25.24E+02 729 1.00000 1.00000 1.00000 0.3126 0.3292 32.98E+02 730 1.00000 1.00000 1.00000 0.3126 0.3291 33.00E+02 731 0.87451 1.00000 1.00000 0.2949 0.3253 24.31E+02 732 0.74902 1.00000 1.00000 0.2704 0.3196 18.72E+02 733 0.62353 1.00000 1.00000 0.2593 0.3207 18.35E+02 734 0.50196 1.00000 1.00000 0.2528 0.3226 18.27E+02 735 0.37647 1.00000 1.00000 0.2486 0.3224 18.04E+02 736 0.25098 1.00000 1.00000 0.2472 0.3231 18.04E+02 737 0.12549 1.00000 1.00000 0.2469 0.3231 18.02E+02 738 0.00000 1.00000 1.00000 0.2467 0.3231 18.02E+02 739 1.00000 0.87451 0.87451 0.3287 0.3300 20.52E+02 740 0.87451 0.87451 0.87451 0.3110 0.3289 18.57E+02 741 0.74902 0.87451 0.87451 0.2816 0.3215 13.05E+02 742 0.62353 0.87451 0.87451 0.2666 0.3247 12.73E+02 743 0.50196 0.87451 0.87451 0.2569 0.3264 12.63E+02 744 0.37647 0.87451 0.87451 0.2519 0.3277 12.54E+02 745 0.25098 0.87451 0.87451 0.2493 0.3269 12.48E+02 746 0.12549 0.87451 0.87451 0.2488 0.3272 12.48E+02 747 0.00000 0.87451 0.87451 0.2487 0.3271 12.47E+02 748 1.00000 0.74902 0.74902 0.3691 0.3264 10.62E+02 749 0.87451 0.74902 0.74902 0.3390 0.3247 9.48E+02 750 0.74902 0.74902 0.74902 0.3039 0.3215 8.04E+02 751 0.62353 0.74902 0.74902 0.2801 0.3256 7.67E+02 752 0.50196 0.74902 0.74902 0.2642 0.3281 7.55E+02 753 0.37647 0.74902 0.74902 0.2559 0.3300 7.49E+02 754 0.25098 0.74902 0.74902 0.2518 0.3313 7.50E+02 755 0.12549 0.74902 0.74902 0.2507 0.3313 7.48E+02 756 0.00000 0.74902 0.74902 0.2507 0.3313 7.48E+02 757 1.00000 0.62353 0.62353 0.4322 0.3274 67.36E+01 758 0.87451 0.62353 0.62353 0.3931 0.3252 56.60E+01 759 0.74902 0.62353 0.62353 0.3437 0.3220 47.06E+01 760 0.62353 0.62353 0.62353 0.3043 0.3214 42.00E+01 761 0.50196 0.62353 0.62353 0.2767 0.3275 41.23E+01 762 0.37647 0.62353 0.62353 0.2614 0.3308 40.76E+01 763 0.25098 0.62353 0.62353 0.2543 0.3320 40.53E+01 764 0.12549 0.62353 0.62353 0.2523 0.3324 40.44E+01 765 0.00000 0.62353 0.62353 0.2521 0.3326 40.46E+01 766 1.00000 0.50196 0.50196 0.5048 0.3317 49.36E+01 767 0.87451 0.50196 0.50196 0.4659 0.3292 38.50E+01 768 0.74902 0.50196 0.50196 0.4079 0.3254 28.96E+01 769 0.62353 0.50196 0.50196 0.3517 0.3219 23.28E+01 770 0.50196 0.50196 0.50196 0.3024 0.3209 20.14E+01 771 0.37647 0.50196 0.50196 0.2722 0.3276 19.77E+01 772 0.25098 0.50196 0.50196 0.2576 0.3301 19.49E+01 773 0.12549 0.50196 0.50196 0.2537 0.3309 19.44E+01 774 0.00000 0.50196 0.50196 0.2531 0.3308 19.40E+01 775 1.00000 0.37647 0.37647 0.5734 0.3359 39.38E+01 776 0.87451 0.37647 0.37647 0.5454 0.3344 28.57E+01 777 0.74902 0.37647 0.37647 0.4946 0.3311 19.12E+01 778 0.62353 0.37647 0.37647 0.4319 0.3272 13.50E+01 779 0.50196 0.37647 0.37647 0.3602 0.3228 10.01E+01 780 0.37647 0.37647 0.37647 0.3009 0.3229 8.49E+01 781 0.25098 0.37647 0.37647 0.2685 0.3302 8.30E+01 782 0.12549 0.37647 0.37647 0.2594 0.3323 8.25E+01 783 0.00000 0.37647 0.37647 0.2582 0.3325 8.23E+01 784 1.00000 0.25098 0.25098 0.6192 0.3389 35.17E+01 785 0.87451 0.25098 0.25098 0.6061 0.3381 24.31E+01 786 0.74902 0.25098 0.25098 0.5780 0.3361 14.76E+01 787 0.62353 0.25098 0.25098 0.5326 0.3331 9.05E+01 788 0.50196 0.25098 0.25098 0.4602 0.3289 55.37E+00 789 0.37647 0.25098 0.25098 0.3702 0.3224 37.24E+00 790 0.25098 0.25098 0.25098 0.2977 0.3219 30.10E+00 791 0.12549 0.25098 0.25098 0.2736 0.3276 29.57E+00 792 0.00000 0.25098 0.25098 0.2696 0.3281 29.44E+00 793 1.00000 0.12549 0.12549 0.6361 0.3402 33.83E+01 794 0.87451 0.12549 0.12549 0.6303 0.3402 23.01E+01 795 0.74902 0.12549 0.12549 0.6160 0.3395 13.43E+01 796 0.62353 0.12549 0.12549 0.5899 0.3382 7.71E+01 797 0.50196 0.12549 0.12549 0.5390 0.3362 41.76E+00 798 0.37647 0.12549 0.12549 0.4515 0.3322 23.75E+00 799 0.25098 0.12549 0.12549 0.3524 0.3275 15.24E+00 800 0.12549 0.12549 0.12549 0.3046 0.3300 13.65E+00 801 0.00000 0.12549 0.12549 0.2970 0.3324 13.50E+00 802 1.00000 0.00000 0.00000 0.6405 0.3407 33.66E+01 803 0.87451 0.00000 0.00000 0.6365 0.3409 22.75E+01 804 0.74902 0.00000 0.00000 0.6263 0.3408 13.16E+01 805 0.62353 0.00000 0.00000 0.6061 0.3407 7.43E+01 806 0.50196 0.00000 0.00000 0.5664 0.3403 38.82E+00 807 0.37647 0.00000 0.00000 0.4881 0.3394 20.76E+00 808 0.25098 0.00000 0.00000 0.3857 0.3394 12.40E+00 809 0.12549 0.00000 0.00000 0.3278 0.3384 10.24E+00 810 0.00000 0.00000 0.00000 0.3182 0.3422 10.12E+00 811 1.00000 1.00000 1.00000 0.3126 0.3291 33.04E+02 812 0.87451 0.87451 1.00000 0.2885 0.2944 19.47E+02 813 0.74902 0.74902 1.00000 0.2410 0.2236 9.41E+02 814 0.62353 0.62353 1.00000 0.2053 0.1684 5.92E+02 815 0.50196 0.50196 1.00000 0.1773 0.1255 3.92E+02 816 0.37647 0.37647 1.00000 0.1599 0.0983 2.86E+02 817 0.25098 0.25098 1.00000 0.1507 0.0839 2.36E+02 818 0.12549 0.12549 1.00000 0.1481 0.0796 2.22E+02 819 0.00000 0.00000 1.00000 0.1475 0.0784 2.18E+02 820 1.00000 1.00000 0.87451 0.3306 0.3567 25.26E+02 821 0.87451 0.87451 0.87451 0.3111 0.3292 18.74E+02 822 0.74902 0.74902 0.87451 0.2669 0.2635 8.71E+02 823 0.62353 0.62353 0.87451 0.2265 0.2004 5.22E+02 824 0.50196 0.50196 0.87451 0.1903 0.1457 3.23E+02 825 0.37647 0.37647 0.87451 0.1662 0.1085 2.16E+02 826 0.25098 0.25098 0.87451 0.1530 0.0877 1.68E+02 827 0.12549 0.12549 0.87451 0.1492 0.0812 1.53E+02 828 0.00000 0.00000 0.87451 0.1484 0.0798 1.50E+02 829 1.00000 1.00000 0.74902 0.3613 0.4023 19.42E+02 830 0.87451 0.87451 0.74902 0.3400 0.3735 13.73E+02 831 0.74902 0.74902 0.74902 0.3043 0.3217 8.12E+02 832 0.62353 0.62353 0.74902 0.2605 0.2537 46.24E+01 833 0.50196 0.50196 0.74902 0.2145 0.1835 26.35E+01 834 0.37647 0.37647 0.74902 0.1791 0.1290 15.76E+01 835 0.25098 0.25098 0.74902 0.1579 0.0957 10.86E+01 836 0.12549 0.12549 0.74902 0.1513 0.0848 9.36E+01 837 0.00000 0.00000 0.74902 0.1499 0.0823 9.05E+01 838 1.00000 1.00000 0.62353 0.3884 0.4454 18.44E+02 839 0.87451 0.87451 0.62353 0.3726 0.4258 12.88E+02 840 0.74902 0.74902 0.62353 0.3440 0.3859 77.21E+01 841 0.62353 0.62353 0.62353 0.3043 0.3215 42.35E+01 842 0.50196 0.50196 0.62353 0.2521 0.2424 22.59E+01 843 0.37647 0.37647 0.62353 0.2023 0.1660 12.02E+01 844 0.25098 0.25098 0.62353 0.1681 0.1121 7.06E+01 845 0.12549 0.12549 0.62353 0.1564 0.0929 5.58E+01 846 0.00000 0.00000 0.62353 0.1539 0.0886 5.27E+01 847 1.00000 1.00000 0.50196 0.4080 0.4751 19.34E+02 848 0.87451 0.87451 0.50196 0.3961 0.4638 12.81E+02 849 0.74902 0.74902 0.50196 0.3774 0.4405 76.38E+01 850 0.62353 0.62353 0.50196 0.3497 0.3955 41.40E+01 851 0.50196 0.50196 0.50196 0.3023 0.3211 20.31E+01 852 0.37647 0.37647 0.50196 0.2417 0.2288 9.75E+01 853 0.25098 0.25098 0.50196 0.1885 0.1455 4.81E+01 854 0.12549 0.12549 0.50196 0.1671 0.1105 3.34E+01 855 0.00000 0.00000 0.50196 0.1627 0.1023 3.03E+01 856 1.00000 1.00000 0.37647 0.4183 0.4923 20.82E+02 857 0.87451 0.87451 0.37647 0.4134 0.4859 12.73E+02 858 0.74902 0.74902 0.37647 0.3997 0.4778 75.46E+01 859 0.62353 0.62353 0.37647 0.3851 0.4537 40.70E+01 860 0.50196 0.50196 0.37647 0.3545 0.4065 19.48E+01 861 0.37647 0.37647 0.37647 0.3005 0.3222 8.48E+01 862 0.25098 0.25098 0.37647 0.2305 0.2132 3.58E+01 863 0.12549 0.12549 0.37647 0.1929 0.1521 2.13E+01 864 0.00000 0.00000 0.37647 0.1839 0.1353 1.81E+01 865 1.00000 1.00000 0.25098 0.4221 0.5013 21.92E+02 866 0.87451 0.87451 0.25098 0.4206 0.4981 13.17E+02 867 0.74902 0.74902 0.25098 0.4118 0.4975 75.58E+01 868 0.62353 0.62353 0.25098 0.4056 0.4878 40.64E+01 869 0.50196 0.50196 0.25098 0.3910 0.4672 19.37E+01 870 0.37647 0.37647 0.25098 0.3588 0.4188 81.48E+00 871 0.25098 0.25098 0.25098 0.2973 0.3212 29.97E+00 872 0.12549 0.12549 0.25098 0.2457 0.2357 15.33E+00 873 0.00000 0.00000 0.25098 0.2312 0.2077 12.28E+00 874 1.00000 1.00000 0.12549 0.4232 0.5040 22.22E+02 875 0.87451 0.87451 0.12549 0.4226 0.5023 13.36E+02 876 0.74902 0.74902 0.12549 0.4158 0.5043 75.45E+01 877 0.62353 0.62353 0.12549 0.4129 0.5001 40.56E+01 878 0.50196 0.50196 0.12549 0.4057 0.4912 19.30E+01 879 0.37647 0.37647 0.12549 0.3875 0.4677 81.23E+00 880 0.25098 0.25098 0.12549 0.3493 0.4066 28.43E+00 881 0.12549 0.12549 0.12549 0.3046 0.3301 13.58E+00 882 0.00000 0.00000 0.12549 0.2899 0.2981 10.49E+00 883 1.00000 1.00000 0.00000 0.4235 0.5046 22.25E+02 884 0.87451 0.87451 0.00000 0.4234 0.5034 13.34E+02 885 0.74902 0.74902 0.00000 0.4168 0.5060 75.46E+01 886 0.62353 0.62353 0.00000 0.4149 0.5032 40.53E+01 887 0.50196 0.50196 0.00000 0.4092 0.4974 19.28E+01 888 0.37647 0.37647 0.00000 0.3958 0.4811 80.68E+00 889 0.25098 0.25098 0.00000 0.3666 0.4355 28.20E+00 890 0.12549 0.12549 0.00000 0.3301 0.3699 13.01E+00 891 0.00000 0.00000 0.00000 0.3177 0.3415 10.05E+00 892 1.00000 1.00000 1.00000 0.3125 0.3289 32.75E+02 893 1.00000 0.87451 1.00000 0.3072 0.2999 21.47E+02 894 1.00000 0.74902 1.00000 0.2963 0.2453 12.01E+02 895 1.00000 0.62353 1.00000 0.2858 0.1979 8.57E+02 896 1.00000 0.50196 1.00000 0.2781 0.1700 7.17E+02 897 1.00000 0.37647 1.00000 0.2755 0.1551 6.40E+02 898 1.00000 0.25098 1.00000 0.2748 0.1482 6.06E+02 899 1.00000 0.12549 1.00000 0.2743 0.1461 5.96E+02 900 1.00000 0.00000 1.00000 0.2742 0.1454 5.93E+02 901 0.87451 1.00000 0.87451 0.3151 0.3583 23.22E+02 902 0.87451 0.87451 0.87451 0.3111 0.3290 18.59E+02 903 0.87451 0.74902 0.87451 0.3006 0.2761 10.26E+02 904 0.87451 0.62353 0.87451 0.2929 0.2235 6.54E+02 905 0.87451 0.50196 0.87451 0.2814 0.1841 5.05E+02 906 0.87451 0.37647 0.87451 0.2789 0.1621 4.29E+02 907 0.87451 0.25098 0.87451 0.2774 0.1513 3.96E+02 908 0.87451 0.12549 0.87451 0.2769 0.1478 3.86E+02 909 0.87451 0.00000 0.87451 0.2765 0.1472 3.84E+02 910 0.74902 1.00000 0.74902 0.3196 0.4150 16.98E+02 911 0.74902 0.87451 0.74902 0.3138 0.3782 12.38E+02 912 0.74902 0.74902 0.74902 0.3044 0.3215 8.07E+02 913 0.74902 0.62353 0.74902 0.2953 0.2614 50.65E+01 914 0.74902 0.50196 0.74902 0.2879 0.2110 34.70E+01 915 0.74902 0.37647 0.74902 0.2830 0.1759 25.98E+01 916 0.74902 0.25098 0.74902 0.2801 0.1566 22.10E+01 917 0.74902 0.12549 0.74902 0.2793 0.1505 20.88E+01 918 0.74902 0.00000 0.74902 0.2791 0.1491 20.63E+01 919 0.62353 1.00000 0.62353 0.3295 0.4712 16.26E+02 920 0.62353 0.87451 0.62353 0.3246 0.4425 11.63E+02 921 0.62353 0.74902 0.62353 0.3161 0.3916 72.42E+01 922 0.62353 0.62353 0.62353 0.3044 0.3218 42.32E+01 923 0.62353 0.50196 0.62353 0.2939 0.2530 25.50E+01 924 0.62353 0.37647 0.62353 0.2860 0.1991 16.85E+01 925 0.62353 0.25098 0.62353 0.2815 0.1663 12.86E+01 926 0.62353 0.12549 0.62353 0.2799 0.1551 11.64E+01 927 0.62353 0.00000 0.62353 0.2795 0.1526 11.40E+01 928 0.50196 1.00000 0.50196 0.3361 0.5140 15.92E+02 929 0.50196 0.87451 0.50196 0.3327 0.4965 11.28E+02 930 0.50196 0.74902 0.50196 0.3269 0.4615 69.10E+01 931 0.50196 0.62353 0.50196 0.3171 0.4041 38.75E+01 932 0.50196 0.50196 0.50196 0.3026 0.3213 20.27E+01 933 0.50196 0.37647 0.50196 0.2895 0.2409 11.22E+01 934 0.50196 0.25098 0.50196 0.2811 0.1848 7.25E+01 935 0.50196 0.12549 0.50196 0.2778 0.1633 6.05E+01 936 0.50196 0.00000 0.50196 0.2771 0.1585 5.80E+01 937 0.37647 1.00000 0.37647 0.3407 0.5415 15.67E+02 938 0.37647 0.87451 0.37647 0.3393 0.5325 11.05E+02 939 0.37647 0.74902 0.37647 0.3358 0.5140 66.51E+01 940 0.37647 0.62353 0.37647 0.3297 0.4798 36.73E+01 941 0.37647 0.50196 0.37647 0.3182 0.4178 18.37E+01 942 0.37647 0.37647 0.37647 0.3009 0.3232 8.57E+01 943 0.37647 0.25098 0.37647 0.2848 0.2293 4.30E+01 944 0.37647 0.12549 0.37647 0.2779 0.1875 31.09E+00 945 0.37647 0.00000 0.37647 0.2762 0.1769 28.46E+00 946 0.25098 1.00000 0.25098 0.3434 0.5554 15.69E+02 947 0.25098 0.87451 0.25098 0.3425 0.5522 11.06E+02 948 0.25098 0.74902 0.25098 0.3412 0.5446 66.03E+01 949 0.25098 0.62353 0.25098 0.3384 0.5296 35.99E+01 950 0.25098 0.50196 0.25098 0.3322 0.4980 17.48E+01 951 0.25098 0.37647 0.25098 0.3192 0.4337 76.55E+00 952 0.25098 0.25098 0.25098 0.2974 0.3216 30.34E+00 953 0.25098 0.12549 0.25098 0.2831 0.2440 17.20E+00 954 0.25098 0.00000 0.25098 0.2794 0.2229 14.65E+00 955 0.12549 1.00000 0.12549 0.3442 0.5600 15.67E+02 956 0.12549 0.87451 0.12549 0.3443 0.5585 11.03E+02 957 0.12549 0.74902 0.12549 0.3435 0.5552 65.72E+01 958 0.12549 0.62353 0.12549 0.3425 0.5483 35.62E+01 959 0.12549 0.50196 0.12549 0.3400 0.5329 17.15E+01 960 0.12549 0.37647 0.12549 0.3332 0.4975 73.69E+00 961 0.12549 0.25098 0.12549 0.3198 0.4172 27.44E+00 962 0.12549 0.12549 0.12549 0.3050 0.3306 13.69E+00 963 0.12549 0.00000 0.12549 0.2986 0.2961 10.71E+00 964 0.00000 1.00000 0.00000 0.3447 0.5611 15.66E+02 965 0.00000 0.87451 0.00000 0.3442 0.5602 11.02E+02 966 0.00000 0.74902 0.00000 0.3442 0.5578 65.61E+01 967 0.00000 0.62353 0.00000 0.3439 0.5532 35.52E+01 968 0.00000 0.50196 0.00000 0.3425 0.5421 17.06E+01 969 0.00000 0.37647 0.00000 0.3386 0.5160 72.79E+00 970 0.00000 0.25098 0.00000 0.3312 0.4518 26.64E+00 971 0.00000 0.12549 0.00000 0.3214 0.3741 13.00E+00 972 0.00000 0.00000 0.00000 0.3179 0.3422 10.15E+00 973 0.00000 0.00000 0.00000 0.3176 0.3415 10.14E+00 974 0.12549 0.12549 0.12549 0.3043 0.3301 13.70E+00 975 0.25098 0.25098 0.25098 0.2973 0.3213 30.29E+00 976 0.37647 0.37647 0.37647 0.3005 0.3227 8.58E+01 977 0.50196 0.50196 0.50196 0.3023 0.3207 20.36E+01 978 0.62353 0.62353 0.62353 0.3042 0.3213 42.50E+01 979 0.74902 0.74902 0.74902 0.3040 0.3213 81.35E+01 980 0.87451 0.87451 0.87451 0.3109 0.3291 18.80E+02 981 1.00000 1.00000 1.00000 0.3125 0.3290 33.17E+02 982 0.00000 0.00000 0.00000 0.3174 0.3413 10.11E+00 983 0.12549 0.12549 0.12549 0.3045 0.3301 13.65E+00 984 0.25098 0.25098 0.25098 0.2973 0.3214 30.25E+00 985 0.37647 0.37647 0.37647 0.3008 0.3227 8.57E+01 986 0.50196 0.50196 0.50196 0.3022 0.3208 20.36E+01 987 0.62353 0.62353 0.62353 0.3042 0.3214 42.52E+01 988 0.74902 0.74902 0.74902 0.3040 0.3213 81.30E+01 989 0.87451 0.87451 0.87451 0.3110 0.3288 18.63E+02 990 1.00000 1.00000 1.00000 0.3126 0.3287 32.88E+02 991 0.00000 0.00000 0.00000 0.3174 0.3415 10.08E+00 992 0.12549 0.12549 0.12549 0.3046 0.3296 13.57E+00 993 0.25098 0.25098 0.25098 0.2973 0.3208 29.95E+00 994 0.37647 0.37647 0.37647 0.3004 0.3220 84.57E+00 995 0.50196 0.50196 0.50196 0.3022 0.3203 20.13E+01 996 0.62353 0.62353 0.62353 0.3042 0.3211 42.08E+01 997 0.74902 0.74902 0.74902 0.3040 0.3210 80.45E+01 998 0.87451 0.87451 0.87451 0.3109 0.3289 18.62E+02 999 1.00000 1.00000 1.00000 0.3126 0.3287 32.85E+02 1000 0.00000 0.00000 0.00000 0.3181 0.3418 10.07E+00 1001 0.12549 0.12549 0.12549 0.3044 0.3296 13.61E+00 1002 0.25098 0.25098 0.25098 0.2972 0.3213 30.06E+00 1003 0.37647 0.37647 0.37647 0.3003 0.3221 84.65E+00 1004 0.50196 0.50196 0.50196 0.3021 0.3204 20.14E+01 1005 0.62353 0.62353 0.62353 0.3042 0.3210 42.04E+01 1006 0.74902 0.74902 0.74902 0.3040 0.3209 80.44E+01 1007 0.87451 0.87451 0.87451 0.3109 0.3288 18.60E+02 1008 1.00000 1.00000 1.00000 0.3126 0.3287 32.83E+02 1009 0.00000 0.00000 0.00000 0.3171 0.3408 10.10E+00 1010 0.06667 0.06667 0.06667 0.3108 0.3348 11.13E+00 1011 0.13333 0.13333 0.13333 0.3042 0.3290 13.56E+00 1012 0.20000 0.20000 0.20000 0.3013 0.3261 19.87E+00 1013 0.26667 0.26667 0.26667 0.2990 0.3217 35.23E+00 1014 0.33333 0.33333 0.33333 0.2987 0.3193 60.64E+00 1015 0.40000 0.40000 0.40000 0.3013 0.3233 10.16E+01 1016 0.46667 0.46667 0.46667 0.3007 0.3193 16.10E+01 1017 0.53333 0.53333 0.53333 0.3020 0.3200 24.34E+01 1018 0.60000 0.60000 0.60000 0.3040 0.3201 35.97E+01 1019 0.66667 0.66667 0.66667 0.3046 0.3220 52.38E+01 1020 0.73333 0.73333 0.73333 0.3046 0.3216 71.64E+01 1021 0.80000 0.80000 0.80000 0.3074 0.3259 11.64E+02 1022 0.86667 0.86667 0.86667 0.3106 0.3280 17.77E+02 1023 0.93333 0.93333 0.93333 0.3123 0.3298 25.20E+02 1024 1.00000 1.00000 1.00000 0.3125 0.3288 32.79E+02 1025 0.00000 0.00000 0.00000 0.3175 0.3416 10.05E+00 1026 0.06667 0.06667 0.06667 0.3111 0.3357 11.08E+00 1027 0.13333 0.13333 0.13333 0.3041 0.3291 13.55E+00 1028 0.20000 0.20000 0.20000 0.3013 0.3261 19.86E+00 1029 0.26667 0.26667 0.26667 0.2990 0.3220 35.29E+00 1030 0.33333 0.33333 0.33333 0.2988 0.3196 60.62E+00 1031 0.40000 0.40000 0.40000 0.3014 0.3234 10.15E+01 1032 0.46667 0.46667 0.46667 0.3007 0.3196 16.11E+01 1033 0.53333 0.53333 0.53333 0.3021 0.3204 24.37E+01 1034 0.60000 0.60000 0.60000 0.3040 0.3204 36.01E+01 1035 0.66667 0.66667 0.66667 0.3047 0.3222 52.43E+01 1036 0.73333 0.73333 0.73333 0.3047 0.3218 71.71E+01 1037 0.80000 0.80000 0.80000 0.3077 0.3261 11.65E+02 1038 0.86667 0.86667 0.86667 0.3106 0.3281 17.77E+02 1039 0.93333 0.93333 0.93333 0.3123 0.3300 25.22E+02 1040 1.00000 1.00000 1.00000 0.3126 0.3290 32.83E+02 1041 0.00000 0.00000 0.00000 0.3180 0.3418 10.05E+00 1042 0.06667 0.06667 0.06667 0.3114 0.3369 11.12E+00 1043 0.13333 0.13333 0.13333 0.3043 0.3301 13.59E+00 1044 0.20000 0.20000 0.20000 0.3015 0.3268 19.94E+00 1045 0.26667 0.26667 0.26667 0.2991 0.3224 35.34E+00 1046 0.33333 0.33333 0.33333 0.2987 0.3198 60.86E+00 1047 0.40000 0.40000 0.40000 0.3013 0.3233 10.17E+01 1048 0.46667 0.46667 0.46667 0.3007 0.3197 16.16E+01 1049 0.53333 0.53333 0.53333 0.3022 0.3207 24.47E+01 1050 0.60000 0.60000 0.60000 0.3040 0.3206 36.15E+01 1051 0.66667 0.66667 0.66667 0.3047 0.3224 52.63E+01 1052 0.73333 0.73333 0.73333 0.3048 0.3220 72.02E+01 1053 0.80000 0.80000 0.80000 0.3077 0.3261 11.69E+02 1054 0.86667 0.86667 0.86667 0.3107 0.3282 17.83E+02 1055 0.93333 0.93333 0.93333 0.3123 0.3301 25.33E+02 1056 1.00000 1.00000 1.00000 0.3125 0.3291 33.08E+02 1057 0.00000 0.00000 0.00000 0.3179 0.3422 10.13E+00 1058 0.06667 0.06667 0.06667 0.3115 0.3362 11.16E+00 1059 0.13333 0.13333 0.13333 0.3045 0.3301 13.68E+00 1060 0.20000 0.20000 0.20000 0.3014 0.3268 20.05E+00 1061 0.26667 0.26667 0.26667 0.2992 0.3227 35.57E+00 1062 0.33333 0.33333 0.33333 0.2989 0.3201 61.14E+00 1063 0.40000 0.40000 0.40000 0.3016 0.3237 10.23E+01 1064 0.46667 0.46667 0.46667 0.3009 0.3200 16.24E+01 1065 0.53333 0.53333 0.53333 0.3023 0.3209 24.58E+01 1066 0.60000 0.60000 0.60000 0.3041 0.3207 36.29E+01 1067 0.66667 0.66667 0.66667 0.3048 0.3224 52.83E+01 1068 0.73333 0.73333 0.73333 0.3047 0.3220 72.27E+01 1069 0.80000 0.80000 0.80000 0.3079 0.3259 11.73E+02 1070 0.86667 0.86667 0.86667 0.3107 0.3284 17.91E+02 1071 0.93333 0.93333 0.93333 0.3123 0.3301 25.41E+02 1072 1.00000 1.00000 1.00000 0.3126 0.3291 33.07E+02 1073 0.00000 0.00000 0.00000 0.3177 0.3425 10.07E+00 1074 1.00000 1.00000 1.00000 0.3125 0.3291 33.08E+02 1075 1.00000 0.00000 0.00000 0.6404 0.3407 33.61E+01 1076 0.00000 1.00000 1.00000 0.2476 0.3239 18.25E+02 1077 1.00000 1.00000 0.00000 0.4233 0.5049 22.52E+02 1078 0.00000 0.00000 1.00000 0.1479 0.0790 2.20E+02 1079 0.00000 1.00000 0.00000 0.3445 0.5608 15.63E+02 1080 1.00000 0.00000 1.00000 0.2740 0.1454 5.97E+02 ] def %**************************************************************************** %For output linearization in CIELAB %**************************************************************************** %BEG -- LUT Code ---Look-up-Table for FP-file /nR 9 def %LUT size /nG 9 def /nB 9 def /nges nR nG nB mul mul def %********************************************************************* /Lab2RGB {%BEG Procedure Lab2RGB % --- Lab2RGB ----------------- % % --- Eingabe (stack): L* a* b* % --- Ausgabe (stack): iR iG iB ; die Indizes des LUT-Wertes mit dem geringsten Delta-E bzgl. Eingabewert % ---- : delta-E ; und das Delta-E dazu % /Zielb exch def /Ziela exch def /ZielL exch def /dE 1000 def /opt 0 def 1 1 nges { 1 sub 3 mul /ii exch def /dL lut ii get ZielL sub abs def dE dL ge { %dE>dL /da lut ii 1 add get Ziela sub abs def dE da ge { %dE>da /db lut ii 2 add get Zielb sub abs def dE db ge { %dE>db /dEneu dL dL mul da da mul db db mul add add sqrt def dE dEneu ge { % test ob dEneu < dE /dE dEneu def /opt ii def } if } if } if } if } for /opt opt 3 idiv def opt nG nB mul idiv % R auf den stack (Wertebereich real: 0-(nr-1)) opt nG nB mul mod nB idiv % G auf den stack opt nG nB mul mod nB mod % B auf den stack dEneu } def %END Procedure Lab2RGB %********************************************************************* /indexkonv {%BEG Procedure indexkonv % --- indexkonv ----------------- % % --- Eingabe (stack): iR iG iB ; Indizes eines LUT-Wertes % --- Ausgabe (stack): Position des LUT-Wertes im 1-dim Lut-Array % %errechnet aus r g b index auf stack den fortlaufenden index exch nB mul add exch nB nG mul mul add 3 mul } def %END Procedure indexkonv %********************************************************************* /set_oktant {%BEG Procedure set_oktant % --- set_oktant ----------------- % % --- Eingabe (stack): iR iG iB ; Indizes eines LUT-Wertes, % kennzeichnet die dem Ursprung entfernteste Ecke des ausgewaehlten Raumbereiches % sortierung v1->v8: RGB, RGB+1, RG+1B, RG+1B+1, usw.. % --- Ausgabe (stack): keine % /B_index exch def /G_index exch def /R_index exch def R_index G_index B_index indexkonv /tempindex exch def % /eswird R_index G_index B_index /zu tempindex /lin_v8L lut tempindex get def /lin_v8a lut tempindex 1 add get def /lin_v8b lut tempindex 2 add get def R_index G_index B_index 1 sub indexkonv /tempindex exch def % /eswird R_index G_index B_index 1 sub /zu tempindex jens /lin_v7L lut tempindex get def /lin_v7a lut tempindex 1 add get def /lin_v7b lut tempindex 2 add get def R_index G_index 1 sub B_index indexkonv /tempindex exch def /lin_v6L lut tempindex get def /lin_v6a lut tempindex 1 add get def /lin_v6b lut tempindex 2 add get def R_index G_index 1 sub B_index 1 sub indexkonv /tempindex exch def /lin_v5L lut tempindex get def /lin_v5a lut tempindex 1 add get def /lin_v5b lut tempindex 2 add get def R_index 1 sub G_index B_index indexkonv /tempindex exch def /lin_v4L lut tempindex get def /lin_v4a lut tempindex 1 add get def /lin_v4b lut tempindex 2 add get def R_index 1 sub G_index B_index 1 sub indexkonv /tempindex exch def /lin_v3L lut tempindex get def /lin_v3a lut tempindex 1 add get def /lin_v3b lut tempindex 2 add get def R_index 1 sub G_index 1 sub B_index indexkonv /tempindex exch def /lin_v2L lut tempindex get def /lin_v2a lut tempindex 1 add get def /lin_v2b lut tempindex 2 add get def R_index 1 sub G_index 1 sub B_index 1 sub indexkonv /tempindex exch def /lin_v1L lut tempindex get def /lin_v1a lut tempindex 1 add get def /lin_v1b lut tempindex 2 add get def } def %END Procedure set_oktant %********************************************************************* /L_abc {%BEG Procedure L_abc % --- L_abc ----------------- % % --- Eingabe (stack): alpha (R-Richtung) beta (G-Richtung) gamma (B-Richtung) % --- Ausgabe (stack): L* interpoliert aus LUT im aktuellen Oktanten % /gamma exch def /beta exch def /alpha exch def /alpham 1 alpha sub def /betam 1 beta sub def /gammam 1 gamma sub def lin_v8L alpha beta gamma mul mul mul lin_v7L alpha beta gammam mul mul mul add lin_v6L alpha betam gamma mul mul mul add lin_v5L alpha betam gammam mul mul mul add lin_v4L alpham beta gamma mul mul mul add lin_v3L alpham beta gammam mul mul mul add lin_v2L alpham betam gamma mul mul mul add lin_v1L alpham betam gammam mul mul mul add } def %END Procedure L_abc %********************************************************************* /a_abc {%BEG Procedure a_abc % --- a_abc ----------------- % % --- Eingabe (stack): alpha (R-Richtung) beta (G-Richtung) gamma (B-Richtung) % --- Ausgabe (stack): L* interpoliert aus LUT im aktuellen Oktanten % /gamma exch def /beta exch def /alpha exch def /alpham 1 alpha sub def /betam 1 beta sub def /gammam 1 gamma sub def lin_v8a alpha beta gamma mul mul mul lin_v7a alpha beta gammam mul mul mul add lin_v6a alpha betam gamma mul mul mul add lin_v5a alpha betam gammam mul mul mul add lin_v4a alpham beta gamma mul mul mul add lin_v3a alpham beta gammam mul mul mul add lin_v2a alpham betam gamma mul mul mul add lin_v1a alpham betam gammam mul mul mul add } def %END Procedure a_abc %********************************************************************* /b_abc {%BEG Procedure b_abc % --- b_abc ----------------- % % --- Eingabe (stack): alpha (R-Richtung) beta (G-Richtung) gamma (B-Richtung) % --- Ausgabe (stack): L* interpoliert aus LUT im aktuellen Oktanten % /gamma exch def /beta exch def /alpha exch def /alpham 1 alpha sub def /betam 1 beta sub def /gammam 1 gamma sub def lin_v8b alpha beta gamma mul mul mul lin_v7b alpha beta gammam mul mul mul add lin_v6b alpha betam gamma mul mul mul add lin_v5b alpha betam gammam mul mul mul add lin_v4b alpham beta gamma mul mul mul add lin_v3b alpham beta gammam mul mul mul add lin_v2b alpham betam gamma mul mul mul add lin_v1b alpham betam gammam mul mul mul add } def %END Procedure b_abc %********************************************************************* /Jacobi_abc {%BEG Procedure Jacobi_abc % --- Jacobi_abc ----------------- % % --- Eingabe (stack): alpha (R-Richtung) beta (G-Richtung) gamma (B-Richtung) % --- Ausgabe (stack): Jacobi Matrix an der stelle abc im aktuellen Oktanten % in der reihenfolge abcdefghi % (a b c) % (d e f) % (g h i) % /gamma exch def /beta exch def /alpha exch def /alpham 1 alpha sub def /betam 1 beta sub def /gammam 1 gamma sub def lin_v5L lin_v1L sub betam gammam mul mul lin_v6L lin_v2L sub betam gamma mul mul add lin_v7L lin_v3L sub beta gammam mul mul add lin_v8L lin_v4L sub beta gamma mul mul add lin_v3L lin_v1L sub alpham gammam mul mul lin_v4L lin_v2L sub alpham gamma mul mul add lin_v7L lin_v5L sub alpha gammam mul mul add lin_v8L lin_v6L sub alpha gamma mul mul add lin_v2L lin_v1L sub alpham betam mul mul lin_v4L lin_v3L sub alpham beta mul mul add lin_v6L lin_v5L sub alpha betam mul mul add lin_v8L lin_v7L sub alpha beta mul mul add lin_v5a lin_v1a sub betam gammam mul mul lin_v6a lin_v2a sub betam gamma mul mul add lin_v7a lin_v3a sub beta gammam mul mul add lin_v8a lin_v4a sub beta gamma mul mul add lin_v3a lin_v1a sub alpham gammam mul mul lin_v4a lin_v2a sub alpham gamma mul mul add lin_v7a lin_v5a sub alpha gammam mul mul add lin_v8a lin_v6a sub alpha gamma mul mul add lin_v2a lin_v1a sub alpham betam mul mul lin_v4a lin_v3a sub alpham beta mul mul add lin_v6a lin_v5a sub alpha betam mul mul add lin_v8a lin_v7a sub alpha beta mul mul add lin_v5b lin_v1b sub betam gammam mul mul lin_v6b lin_v2b sub betam gamma mul mul add lin_v7b lin_v3b sub beta gammam mul mul add lin_v8b lin_v4b sub beta gamma mul mul add lin_v3b lin_v1b sub alpham gammam mul mul lin_v4b lin_v2b sub alpham gamma mul mul add lin_v7b lin_v5b sub alpha gammam mul mul add lin_v8b lin_v6b sub alpha gamma mul mul add lin_v2b lin_v1b sub alpham betam mul mul lin_v4b lin_v3b sub alpham beta mul mul add lin_v6b lin_v5b sub alpha betam mul mul add lin_v8b lin_v7b sub alpha beta mul mul add } def %END Procedure Jacobi_abc %********************************************************************* /Inverse_mat {%BEG Procedure Inverse_mat % --- Inverse_mat ----------------- % % --- Eingabe (stack): Matrix in der reihenfolge abcdefghi % invertiert die Matrix (a b c) % (d e f) % (g h i) % --- Ausgabe (stack): Matrix % /i_i exch def /i_h exch def /i_g exch def /i_f exch def /i_e exch def /i_d exch def /i_c exch def /i_b exch def /i_a exch def /i_det i_a i_e i_i mul mul i_b i_d i_i mul mul sub i_a i_f i_h mul mul sub i_c i_d i_h mul mul add i_b i_f i_g mul mul add i_c i_e i_g mul mul sub def i_e i_i mul i_f i_h mul sub i_det div %a der inversen auf stack i_c i_h mul i_b i_i mul sub i_det div %b der inversen auf stack i_b i_f mul i_c i_e mul sub i_det div %c der inversen auf stack i_f i_g mul i_d i_i mul sub i_det div %d der inversen auf stack i_a i_i mul i_c i_g mul sub i_det div %e der inversen auf stack i_c i_d mul i_a i_f mul sub i_det div %f der inversen auf stack i_d i_h mul i_e i_g mul sub i_det div %g der inversen auf stack i_b i_g mul i_a i_h mul sub i_det div %h der inversen auf stack i_a i_e mul i_b i_d mul sub i_det div %i der inversen auf stack } def %END Procedure Inverse_mat %********************************************************************* /linear_finden {%BEG Procedure linear_finden % --- linear_finden ----------------- % % --- Eingabe (stack): iR iG iB ; Indizes eines LUT-Wertes, % kennzeichnet die dem Ursprung entfernteste Ecke des ausgewaehlten Raumbereiches % L* a* b* ; danach der zielpunkt als lab wert % --- Ausgabe (stack): Delta-E: Abstand zum Zielpunkt % alpha, beta, gamma die den kürzesten abstand zum gegebenen zielpunkt aufweisen % /lin_zielb exch def /lin_ziela exch def /lin_zielL exch def set_oktant /akt_a 0.5 def /akt_b 0.5 def /akt_c 0.5 def /last_L akt_a akt_b akt_c L_abc def /last_a akt_a akt_b akt_c a_abc def /last_b akt_a akt_b akt_c b_abc def /diff_L last_L lin_zielL sub def /diff_a last_a lin_ziela sub def /diff_b last_b lin_zielb sub def 0 %default rueckgabewert fuer delta-e (wird nie benutzt, aber fuer pop wichtig) 1 1 10 { pop %pop schleifenzaehler pop %pop letzes Delta-E akt_a akt_b akt_c Jacobi_abc Inverse_mat diff_b mul exch diff_a mul add exch diff_L mul add /delta_c exch def diff_b mul exch diff_a mul add exch diff_L mul add /delta_b exch def diff_b mul exch diff_a mul add exch diff_L mul add /delta_a exch def % akt_a akt_b akt_c % delta_a delta_b delta_c /akt_a akt_a delta_a sub def /akt_b akt_b delta_b sub def /akt_c akt_c delta_c sub def akt_a 0 lt {/akt_a 0 def} if akt_b 0 lt {/akt_b 0 def} if akt_c 0 lt {/akt_c 0 def} if 1 akt_a lt {/akt_a 1 def} if 1 akt_b lt {/akt_b 1 def} if 1 akt_c lt {/akt_c 1 def} if /last_L akt_a akt_b akt_c L_abc def /last_a akt_a akt_b akt_c a_abc def /last_b akt_a akt_b akt_c b_abc def /diff_L last_L lin_zielL sub def /diff_a last_a lin_ziela sub def /diff_b last_b lin_zielb sub def %/naechster %akt_a %akt_b %akt_c %last_L %last_a %last_b diff_L dup mul diff_a dup mul diff_b dup mul add add sqrt dup %Abbruch wenn Delta_e<0.1 0.1 lt {exit} if } for akt_a akt_b akt_c } def %END Procedure linear_finden %********************************************************************* /Lab2RGBinterpolation {%BEG Procedure Lab2RGBinterpolation /Ziel_b exch def /Ziel_a exch def /Ziel_L exch def Ziel_L Ziel_a Ziel_b Lab2RGB /now_delta_e exch def /B_next exch def /G_next exch def /R_next exch def /R_fin R_next nR 1 sub div def % defaults falls kein besserer wert gefunden /G_fin G_next nG 1 sub div def /B_fin B_next nB 1 sub div def -1 1 2 { R_next add /R_now exch def -1 1 2 { G_next add /G_now exch def -1 1 2 { B_next add /B_now exch def B_now 0 gt G_now 0 gt R_now 0 gt nB B_now gt nG G_now gt nR R_now gt and and and and and { R_now G_now B_now Ziel_L Ziel_a Ziel_b linear_finden /now_c exch def /now_b exch def /now_a exch def dup %rückgabe delta-e doppeln now_delta_e lt { /now_delta_e exch def /Bs0 B_now 1 sub nB 1 sub div 255 mul round 255 div def /Bs1 B_now nB 1 sub div 255 mul round 255 div def /B_fin Bs0 1 now_c sub mul Bs1 now_c mul add def /Gs0 G_now 1 sub nG 1 sub div 255 mul round 255 div def /Gs1 G_now nG 1 sub div 255 mul round 255 div def /G_fin Gs0 1 now_b sub mul Gs1 now_b mul add def /Rs0 R_now 1 sub nR 1 sub div 255 mul round 255 div def /Rs1 R_now nR 1 sub div 255 mul round 255 div def /R_fin Rs0 1 now_a sub mul Rs1 now_a mul add def } { pop } ifelse } if } for } for } for R_fin G_fin B_fin } bind def %END Procedure Lab2RGBinterpolation %**************************************************************************** %**************************************************************************** /xyY 4320 array def /RGB0 3240 array def /XYZ*system { %BEG procedure XYZ*system 0 1 1079 {/xchartl exch def /j00 xchartl 7 mul 0 add def /j04 j00 4 add def /j05 j00 5 add def /j06 j00 6 add def /j40 xchartl 4 mul 0 add def /j41 xchartl 4 mul 1 add def /j42 xchartl 4 mul 2 add def /j43 xchartl 4 mul 3 add def xyY j40 xyY0 j00 get put xyY j41 xyY0 j04 get put xyY j42 xyY0 j05 get put xyY j43 xyY0 j06 get put } for 0 1 1079 {/xchartl exch def /j00 xchartl 7 mul 0 add def /j01 j00 1 add def /j02 j00 2 add def /j03 j00 3 add def /j30 xchartl 3 mul 0 add def /j31 xchartl 3 mul 1 add def /j32 xchartl 3 mul 2 add def RGB0 j30 xyY0 j01 get 1000 mul put RGB0 j31 xyY0 j02 get 1000 mul put RGB0 j32 xyY0 j03 get 1000 mul put /i70 xchartl 7 mul def /i71 i70 1 add def /i72 i70 2 add def /i73 i70 3 add def nrgbxyY i70 xchartl put nrgbxyY i71 RGB0 j30 get 0.001 mul put nrgbxyY i72 RGB0 j31 get 0.001 mul put nrgbxyY i73 RGB0 j32 get 0.001 mul put } for /XYZrx089 3240 array def %1080*3=3240 /XYZrx100 3240 array def /jend 1073 4 mul 3 add def %White-Measurement /fakt 100 xyY jend get div def /IM0 1080 def /IM1 IM0 1 sub def /IM3 IM0 3 mul 1 sub def /IM4 IM0 4 mul 1 sub def 0 1 IM1 {/i exch def %i=0,IM1 /i30 i 3 mul def /i31 i30 1 add def /i32 i30 2 add def /j30 i 4 mul 1 add def /j31 j30 1 add def /j32 j30 2 add def /SUM xyY j32 get xyY j31 get div def XYZrx100 i30 xyY j30 get SUM mul fakt mul put XYZrx100 i31 xyY j32 get fakt mul put XYZrx100 i32 1 xyY j30 get sub xyY j31 get sub SUM mul fakt mul put } for %i=0,IM1 0 1 IM3 {/i exch def %i=0,IM3 XYZrx089 i XYZrx100 i get 0.8859 mul put } for %i=0,IM3 /iN 1072 3 mul def /iW 1073 3 mul def /XLN100 XYZrx100 iN get def /YLN100 XYZrx100 iN 1 add get def /ZLN100 XYZrx100 iN 2 add get def /XLW100 XYZrx100 iW get def /YLW100 XYZrx100 iW 1 add get def /ZLW100 XYZrx100 iW 2 add get def /XLN089 XYZrx089 iN get def /YLN089 XYZrx089 iN 1 add get def /ZLN089 XYZrx089 iN 2 add get def /XLW089 XYZrx089 iW get def /YLW089 XYZrx089 iW 1 add get def /ZLW089 XYZrx089 iW 2 add get def % achromatic (D65) colours /XLWD65100 95.04 def /YLWD65100 100.00 def /ZLWD65100 108.88 def /XLWD65089 95.04 0.8859 mul def /YLWD65089 100.00 0.8859 mul def /ZLWD65089 108.88 0.8859 mul def /XLN001 XLWD65100 100 div def /YLN001 YLWD65100 100 div def /ZLN001 ZLWD65100 100 div def /LABN [(O (R)) (Y) (L (G)) (C) (V (B)) (M) (O (R)) (N) (W) (N0) (W1)] def } bind def %END procedure XYZ*system %************************************************************ /XD65W 95.04 def /YD65W 100.00 def /ZD65W 108.88 def /XD50W 96.42 def /YD50W 100.00 def /ZD50W 82.51 def /DAKTE [(D65) (D50)] def %Save 8 standard colours /COL*01 08 array def /COL*01 [(%O1 0) (%Y1 1) (%L1 2) (%C1 3) (%V1 4) (%M1 5) (%N1 6) (%W1 7) ] def /COL*02 08 array def /COL*02 [(%O2 0) (%Y2 1) (%L2 2) (%C2 3) (%V2 4) (%M2 5) (%N2 6) (%W2 7) ] def /COL*03 08 array def /COL*03 [(%O3 0) (%Y3 1) (%L3 2) (%C3 3) (%V3 4) (%M3 5) (%N3 6) (%W3 7) ] def /COL*04 08 array def /COL*04 [(%O4 0) (%Y4 1) (%L4 2) (%C4 3) (%V4 4) (%M4 5) (%N4 6) (%W4 7) ] def /COL*05 08 array def /COL*05 [(%O5 0) (%Y5 1) (%L5 2) (%C5 3) (%V5 4) (%M5 5) (%N5 6) (%W5 7) ] def /COL*06 08 array def /COL*06 [(%O6 0) (%Y6 1) (%L6 2) (%C6 3) (%V6 4) (%M6 5) (%N6 6) (%W6 7) ] def /COL*07 08 array def /COL*07 [(%O7 0) (%Y7 1) (%L7 2) (%C7 3) (%V7 4) (%M7 5) (%N7 6) (%W7 7) ] def /LAB*01 24 array def /LAB*02 24 array def /LAB*03 24 array def /LAB*04 24 array def /LAB*05 24 array def /LAB*06 24 array def /LAB*07 24 array def /LAB*a01 24 array def /LAB*a02 24 array def /LAB*a03 24 array def /LAB*a04 24 array def /LAB*a05 24 array def /LAB*a06 24 array def /LAB*a07 24 array def /DecodeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind def /cvishow {cvi 6 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 /cvishowb {cvi 6 string cvs show ( ) show} def /cvsshow1b {10 mul cvi 0.1 mul 7 string cvs show ( ) show} def /cvsshow2b {100 mul cvi 0.01 mul 7 string cvs show ( ) show} def /cvsshow3b {1000 mul cvi 0.001 mul 7 string cvs show ( ) show} def /cvishowr {0.5 add cvi 6 string cvs show} def /cvsshow1r {0.05 add 10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2r {0.005 add 100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3r {0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show} def /cvi100 {100 mul cvi /xi exch def xi 0 lt {/vorz -1 def} {/vorz 1 def} ifelse /xia xi abs def vorz -1 eq {(\255) show} {(0) show} ifelse xia 0 ge xia 9 le and {(0000) show} if xia 10 ge xia 99 le and {(000) show} if xia 100 ge xia 999 le and {(00) show} if xia 1000 ge xia 9999 le and {(0) show} if xia cvishow } bind def /cvi1000 {1000 mul cvi /xi exch def xi 0 ge xi 9 le and {(000) show} if xi 10 ge xi 99 le and {(00) show} if xi 100 ge xi 999 le and {(0) show} if xi cvishow } bind def /cvisp3 {/xi exch cvi def xi 0 ge xi 9 le and {(000) show} if xi 10 ge xi 99 le and {(00) show} if xi 100 ge xi 999 le and {(0) show} if xi cvishow } bind def /cvisp2 {/xi exch cvi def xi 0 ge xi 9 le and {(00) show} if xi 10 ge xi 99 le and {(0) show} if xi cvishow } bind def %BEG aus LG46 /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 {setcmykcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmykcolor rec stroke} bind def /LUT 10800 array def %1080*6 definiert /LAB*Fa0100 24 array def %start output /LAB*Fa1100 24 array def %linearized output /LAB*FaG0100 24 array def %start output/100 /LAB*FaG1100 24 array def %linearized output/100 /LAB*FaGA100 24 array def %either start- or linearized output/100 %********************************************************************* %BEG LG46_LECD display 0..40%_00_LUT.DAT /FileDataen (_LUT.DAT, 243 colours, 100101, Separation olv*, adapted) def /FileDatade (_LUT.DAT, 243 Farben, 100101, Separation olv*, adaptiert) def %include here JE060-7A0.TXT to JE060-7A7.TXT %END LG46_LECD display 0..40%_00_LUT.DAT %********************************************************************* /cvishow {cvi 6 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 /LAB*ioLmod {%BEG Procedure LAB*ioLmod %requires ISRL*ioL=0,1,3 /RJGBLAB* 12 array def /RJGBLAB*[ 39.92 58.74 27.99 % R CIE No.09 elementary colours in LAB, D65 81.26 -2.89 71.56 % J CIE No.10 52.23 -42.42 13.60 % G CIE No.11 30.57 1.41 -46.47 % B CIE No.12 ] def /LAB* 84 array def %12x3=36 including N,W + 16x3=48 elementary system /LAB*a 84 array def 0 1 11 {/sISO exch def /i30 sISO 3 mul def /i31 i30 1 add def /i32 i30 2 add def sISO 7 le { %sISO=0,7 LAB*a i30 LAB*FaGA100 i30 get put %already adapted range 0..100 LAB*a i31 LAB*FaGA100 i31 get put LAB*a i32 LAB*FaGA100 i32 get put } %sISO=0,7 {%sISO=8,11 %Definition 8 to 11 /jISO sISO 8 sub def /j30 jISO 3 mul def /j31 j30 1 add def /j32 j30 2 add def LAB*a i30 RJGBLAB* j30 get put %already asumed as adapted LAB*a i31 RJGBLAB* j31 get put LAB*a i32 RJGBLAB* j32 get put } ifelse %sISO=0,7 and 8,11 } for /L*Nio LAB*a 18 get def %already adapted /A*Nio LAB*a 19 get def %already adapted, cero! /B*Nio LAB*a 20 get def %already adapted, cero! /L*Wio LAB*a 21 get def %already adapted /A*Wio LAB*a 22 get def %already adapted, cero! /B*Wio LAB*a 23 get def %already adapted, cero! /A*Dio A*Wio A*Nio sub def %cero /B*Dio B*Wio B*Nio sub def %cero /cf1 1 def /cLAB*s0 3 array def %C cyan blue /vLAB*s0 3 array def %V violet blue /mLAB*s0 3 array def %M magenta red /oLAB*s0 3 array def %O orange red /yLAB*s0 3 array def %Y yellow /lLAB*s0 3 array def %L leaf green /nLAB*s0 3 array def %N black /wLAB*s0 3 array def %W white /rLAB*s0 3 array def %R elementary red /jLAB*s0 3 array def %J elementary yellow /gLAB*s0 3 array def %G elementary green /bLAB*s0 3 array def %B elementary blue %Determine Matrix data input or output data oLAB*s0 0 LAB*a 0 get L*Nio sub put oLAB*s0 1 LAB*a 1 get put oLAB*s0 2 LAB*a 2 get put yLAB*s0 0 LAB*a 3 get L*Nio sub put yLAB*s0 1 LAB*a 4 get put yLAB*s0 2 LAB*a 5 get put lLAB*s0 0 LAB*a 6 get L*Nio sub put lLAB*s0 1 LAB*a 7 get put lLAB*s0 2 LAB*a 8 get put cLAB*s0 0 LAB*a 9 get L*Nio sub put cLAB*s0 1 LAB*a 10 get put cLAB*s0 2 LAB*a 11 get put vLAB*s0 0 LAB*a 12 get L*Nio sub put vLAB*s0 1 LAB*a 13 get put vLAB*s0 2 LAB*a 14 get put mLAB*s0 0 LAB*a 15 get L*Nio sub put mLAB*s0 1 LAB*a 16 get put mLAB*s0 2 LAB*a 17 get put nLAB*s0 0 LAB*a 18 get L*Nio sub put nLAB*s0 1 LAB*a 19 get put nLAB*s0 2 LAB*a 20 get put wLAB*s0 0 LAB*a 21 get L*Nio sub put wLAB*s0 1 LAB*a 22 get put wLAB*s0 2 LAB*a 23 get put rLAB*s0 0 LAB*a 24 get L*Nio sub put rLAB*s0 1 LAB*a 25 get put rLAB*s0 2 LAB*a 26 get put jLAB*s0 0 LAB*a 27 get L*Nio sub put jLAB*s0 1 LAB*a 28 get put jLAB*s0 2 LAB*a 29 get put gLAB*s0 0 LAB*a 30 get L*Nio sub put gLAB*s0 1 LAB*a 31 get put gLAB*s0 2 LAB*a 32 get put bLAB*s0 0 LAB*a 33 get L*Nio sub put bLAB*s0 1 LAB*a 34 get put bLAB*s0 2 LAB*a 35 get put % Determine the input or output angle in the A* B* plane % of each of the colours defined above /C*Ang cLAB*s0 2 get cLAB*s0 1 get 0.0001 add atan def /V*Ang vLAB*s0 2 get vLAB*s0 1 get 0.0001 add atan def /M*Ang mLAB*s0 2 get mLAB*s0 1 get 0.0001 add atan def /O*Ang oLAB*s0 2 get oLAB*s0 1 get 0.0001 add atan def /Y*Ang yLAB*s0 2 get yLAB*s0 1 get 0.0001 add atan def /L*Ang lLAB*s0 2 get mLAB*s0 1 get 0.0001 add atan def /N*Ang 0 def /W*Ang 0 def /R*Ang rLAB*s0 2 get rLAB*s0 1 get 0.0001 add atan def /J*Ang jLAB*s0 2 get jLAB*s0 1 get 0.0001 add atan def /G*Ang gLAB*s0 2 get gLAB*s0 1 get 0.0001 add atan def /B*Ang bLAB*s0 2 get bLAB*s0 1 get 0.0001 add atan def } def %END Procedure LAB*ioLmod %*********************************************************** /proc_LAB*Fa_LAB*MaNTABl_olvi3*cmyn3*Ma*ioL { %BEG procedure proc_LAB*Fa_LAB*MaNTABl_olvi3*cmyn3*Ma*ioL %only for calculation without hue tables %input LAB*Fa %input LAB*a (6 adapted colours OYLCVM) %input nLAB*s0 (colour white N for calculation of lab*l) %input wLAB*s0 (colour white W for achromatic axis) %output LAB*Ma %output olvi3*Ma %output cmyn3*Ma /UXF1a wLAB*s0 1 get B*Fa mul wLAB*s0 2 get A*Fa mul sub def /UXF2a wLAB*s0 2 get L*Fa mul wLAB*s0 0 get B*Fa mul sub def /UXF3a wLAB*s0 0 get A*Fa mul wLAB*s0 1 get L*Fa mul sub def /T1 0 def /T2 0 def 0 1 5 {/ia exch def /ia30 ia 3 mul def ia 5 eq {/ia31 0 def} {/ia31 ia30 3 add def} ifelse /T1 LAB*a ia30 get UXF1a mul LAB*a ia30 1 add get UXF2a mul add LAB*a ia30 2 add get UXF3a mul add def /T2 LAB*a ia31 get UXF1a mul LAB*a ia31 1 add get UXF2a mul add LAB*a ia31 2 add get UXF3a mul add def T1 0 le {/T1X (N) def} {/T1X (P) def} ifelse T2 0 gt {/T2X (P) def} {/T2X (N) def} ifelse T1 0 le T2 0 gt and {/ia3END ia30 def exit} if } for /L*11a LAB*a ia3END get def /A*11a LAB*a ia3END 1 add get def /B*11a LAB*a ia3END 2 add get def ia3END 15 ge {/ia3END -3 def} if /L*21a LAB*a ia3END 3 add get def /A*21a LAB*a ia3END 4 add get def /B*21a LAB*a ia3END 5 add get def /NENNER L*21a L*11a sub UXF1a mul A*21a A*11a sub UXF2a mul add B*21a B*11a sub UXF3a mul add def /ZAEHLE L*21a UXF1a mul A*21a UXF2a mul add B*21a UXF3a mul add def NENNER 0 ne {/ALPH ZAEHLE NENNER div def} {/ALPH 99999} ifelse /L*Ma ALPH L*11a mul 1 ALPH sub L*21a mul add def /A*Ma ALPH A*11a mul 1 ALPH sub A*21a mul add def /B*Ma ALPH B*11a mul 1 ALPH sub B*21a mul add def /C*Ma A*Ma dup mul B*Ma dup mul add 0.000001 add sqrt def /H*Ma B*Ma A*Ma 0.0001 add atan def /ia30 ia 3 mul def /iap 1 ALPH sub def /iam ALPH def ia 0 eq {/c3*Ma 0 def %L, c*=0, sector O->Y /m3*Ma iam def %L, m*=1->0 /y3*Ma 1 def %L, y*=1 } if ia 1 eq {/c3*Ma iap def %L, c*=0->1, sector Y->L /m3*Ma 0 def %L, m*=0 /y3*Ma 1 def %L, y*=1 } if ia 2 eq {/c3*Ma 1 def %L, c*=1, sector L->C /m3*Ma 0 def %L, m*=0 /y3*Ma iam def %L, y*=1->0 } if ia 3 eq {/c3*Ma 1 def %L, c*=1, sector C->V /m3*Ma iap def %L, m*=1->0 /y3*Ma 0 def %L, y*=0 } if ia 4 eq {/c3*Ma iam def %L, c*=1->0, sector V->M /m3*Ma 1 def %L, m*=1 /y3*Ma 0 def %L, y*=0 } if ia 5 eq {/c3*Ma 0 def %L, c*=0, sector M->O /m3*Ma 1 def %L, m*=1 /y3*Ma iap def %L, y*=0->1 } if /o3*Ma 1 c3*Ma sub def /l3*Ma 1 m3*Ma sub def /v3*Ma 1 y3*Ma sub def /i3*Ma 1 def /lab*nMa 0.00 def /lab*cMa 1.00 def /lab*wMa 0.00 def /lab*tMa 0.50 def /lab*hMa H*Ma 360 div def /lab*lMa L*Ma nLAB*s0 0 get sub wLAB*s0 0 get nLAB*s0 0 get sub 0.000001 add div def } bind def %END procedure proc_LAB*Fa_LAB*MaNTABl_olvi3*cmyn3*Ma*ioL %******************************************************************* /proc_LAB*Fae_LAB*MaeNTABl_olvi3*cmyn3*Ma*ioL { %BEG procedure proc_LAB*Fae_LAB*MaeNTABl_olvi3*cmyn3*Ma*ioL %only for calculation without hue tables %input LAB*Fae %input LAB*a (4 adapted colours RJGB, No. 8 to 11) %input nLAB*s0 (colour white N for calculation of lab*l) %input wLAB*s0 (colour white W for achromatic axis) %output LAB*Mae %output olvi3*Mae %output cmyn3*Mae /UXF1a wLAB*s0 1 get B*Fae mul wLAB*s0 2 get A*Fae mul sub def /UXF2a wLAB*s0 2 get L*Fae mul wLAB*s0 0 get B*Fae mul sub def /UXF3a wLAB*s0 0 get A*Fae mul wLAB*s0 1 get L*Fae mul sub def /T1 0 def /T2 0 def 0 1 5 {/ia exch def /ia30 ia 3 mul def ia 5 eq {/ia31 0 def} {/ia31 ia30 3 add def} ifelse /T1 LAB*a ia30 get UXF1a mul LAB*a ia30 1 add get UXF2a mul add LAB*a ia30 2 add get UXF3a mul add def /T2 LAB*a ia31 get UXF1a mul LAB*a ia31 1 add get UXF2a mul add LAB*a ia31 2 add get UXF3a mul add def T1 0 le {/T1X (N) def} {/T1X (P) def} ifelse T2 0 gt {/T2X (P) def} {/T2X (N) def} ifelse T1 0 le T2 0 gt and {/ia3END ia30 def exit} if } for /L*11a LAB*a ia3END get def /A*11a LAB*a ia3END 1 add get def /B*11a LAB*a ia3END 2 add get def ia3END 15 ge {/ia3END -3 def} if /L*21a LAB*a ia3END 3 add get def /A*21a LAB*a ia3END 4 add get def /B*21a LAB*a ia3END 5 add get def /NENNER L*21a L*11a sub UXF1a mul A*21a A*11a sub UXF2a mul add B*21a B*11a sub UXF3a mul add def /ZAEHLE L*21a UXF1a mul A*21a UXF2a mul add B*21a UXF3a mul add def NENNER 0 ne {/ALPH ZAEHLE NENNER div def} {/ALPH 99999} ifelse /L*Mae ALPH L*11a mul 1 ALPH sub L*21a mul add def /A*Mae ALPH A*11a mul 1 ALPH sub A*21a mul add def /B*Mae ALPH B*11a mul 1 ALPH sub B*21a mul add def /C*Mae A*Mae dup mul B*Mae dup mul add 0.000001 add sqrt def /H*Mae B*Mae A*Mae 0.0001 add atan def /ia30 ia 3 mul def /iap 1 ALPH sub def /iam ALPH def ia 0 eq {/c3*Mae 0 def %L, c*=0, sector O->Y /m3*Mae iam def %L, m*=1->0 /y3*Mae 1 def %L, y*=1 } if ia 1 eq {/c3*Mae iap def %L, c*=0->1, sector Y->L /m3*Mae 0 def %L, m*=0 /y3*Mae 1 def %L, y*=1 } if ia 2 eq {/c3*Mae 1 def %L, c*=1, sector L->C /m3*Mae 0 def %L, m*=0 /y3*Mae iam def %L, y*=1->0 } if ia 3 eq {/c3*Mae 1 def %L, c*=1, sector C->V /m3*Mae iap def %L, m*=1->0 /y3*Mae 0 def %L, y*=0 } if ia 4 eq {/c3*Mae iam def %L, c*=1->0, sector V->M /m3*Mae 1 def %L, m*=1 /y3*Mae 0 def %L, y*=0 } if ia 5 eq {/c3*Mae 0 def %L, c*=0, sector M->O /m3*Mae 1 def %L, m*=1 /y3*Mae iap def %L, y*=0->1 } if /o3*Mae 1 c3*Mae sub def /l3*Mae 1 m3*Mae sub def /v3*Mae 1 y3*Mae sub def /i3*Mae 1 def /lab*nMae 0.00 def /lab*cMae 1.00 def /lab*wMae 0.00 def /lab*tMae 0.50 def /lab*hMae H*Mae 360 div def /lab*lMae L*Mae nLAB*s0 0 get sub wLAB*s0 0 get nLAB*s0 0 get sub 0.000001 add div def } bind def %END procedure proc_LAB*Fae_LAB*MaeNTABl_olvi3*cmyn3*Ma*ioL %******************************************************************* %END aus LG46 %%EndProlog gsave /lanind 0 def /lantex [(G) (E) (S) (N) (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 /showm {6 lanind eq {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 0 def /lanind2 0 def} ifelse /colormg where {pop /colorm1 colormg def /colorm2 colormg def} {/colorm1 0 def /colorm2 0 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage /colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage /xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage /xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage /GSS$ where {pop /LSS$ GSS$ def} {/LSS$ (1) def} ifelse /GSC$ where {pop /LSC$ GSC$ def} {/LSC$ (N) def} ifelse /GSX$ where {pop /LSX$ GSX$ def} {/LSX$ (0) def} ifelse /GSY$ where {pop /LSY$ GSY$ def} {/LSY$ (0) def} ifelse /GEX$ where {pop /LEX$ GEX$ def} {/LEX$ (P.PS./PDF) def} ifelse /GEY$ where {pop /LEY$ GEY$ def} {/LEY$ (P.DAT) def} ifelse /IMES where {pop} %/IMES IMES def {/IMES 0 def} ifelse /xchartg where {pop /xchartx xchartg def} {/xchartx 0 def} ifelse /xcolorg where {pop /xcolorx xchartg def} {/xcolorx 0 def} ifelse /colormg where {pop /colorm colormg def} {/colorm 0 def} ifelse %BEG aus LG46 /cvi100show {100 mul cvi /xi exch def xi 0 lt {/vorz -1 def} {/vorz 1 def} ifelse /xia xi abs def vorz -1 eq {(\255) show} {(0) show} ifelse xia 0 ge xia 9 le and {(000) show} if xia 10 ge xia 99 le and {(00) show} if xia 100 ge xia 999 le and {(0) show} if % xia 1000 ge xia 9999 le and {() show} if xia cvishow ( ) show } bind def /LUTL* 247 array def %243+4=247 /LUTA* 247 array def /LUTB* 247 array def /LUTr* 247 array def /LUTg* 247 array def /LUTb* 247 array def /C*ab 247 array def /L* 247 array def /LUTl* 247 array def %243+4=247 /LUTc1* 247 array def /LUTc2* 247 array def /LUTt1* 247 array def /LUTt2* 247 array def /LUTc*rgb 247 array def /LUTt*rgb 247 array def /l1* 247 array def %243+4=247 /l2* 247 array def %l* not possible allread used olv* /c1* 247 array def /c2* 247 array def /t1* 247 array def /t2* 247 array def /c1*rgb 247 array def /c2*rgb 247 array def /t1*rgb 247 array def /t2*rgb 247 array def /ColNames [(O) (Y) (L) (C) (V) (M) (N) (W) (R) (J) (G) (B) (R) (R25J) (R50J) (R75J) (J) (J25G) (J50G) (J75G) (G) (G25B) (G50B) (G75B) (B) (B25R) (B50R) (B75R) (R) ] def /o3Ma [1 1 0 0 0 1 0 1 1 1 0 0 1 1.00 1.00 1.00 1 0.75 0.50 0.25 0 0.00 0.00 0.00 0 0.50 1.00 1.00 1] def /l3Ma [0 1 1 1 0 0 0 1 0 1 1 0 0 0.25 0.50 0.75 1 1.00 1.00 1.00 1 1.00 1.00 0.50 0 0.00 0.00 0.00 0] def /v3Ma [0 0 0 1 1 1 0 1 0 0 0 1 0 0.00 0.00 0.00 0 0.00 0.00 0.00 0 0.50 1.00 1.00 1 1.00 1.00 0.50 0] def /yd 340 def %y-Zeilenabstand %Spalten /S1 20 def /S2 450 def /S3 1550 def /S4 2650 def /S5 3750 def /S6 4650 def /S7 5350 def /S8 6400 def /S9 7200 def /S10 8000 def /S11 8800 def /S12 9600 def /yu1 4650 def /yu2 3800 4000 add def /nshow {300 /Times-ISOL1 FS show} bind def /kshow {300 /TimesI-ISOL1 FS show} bind def /bshow {300 /TimesB-ISOL1 FS show} bind def /jshow {300 /TimesBI-ISOL1 FS show} bind def /sshow {300 /Symbol FS show} bind def /ishow {220 /Times-ISOL1 FS -00 -50 rmoveto show 00 50 rmoveto} bind def /eshow {220 /Times-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto} bind def %72 90 translate %0.01 MM dup scale /L*olv 8 array def /A*olv 8 array def /B*olv 8 array def /C*olv 8 array def /H*olv 8 array def /N*olv 8 array def /o*olv 8 array def /l*olv 8 array def /v*olv 8 array def /L*rgb 8 array def /A*rgb 8 array def /B*rgb 8 array def /C*rgb 8 array def /H*rgb 8 array def /N*rgb 8 array def /o*rgb 8 array def /l*rgb 8 array def /v*rgb 8 array def /angle_olv 7 array def /angle_olvG01 7 array def /angle_olvG11 7 array def /angle_olvGA1 7 array def %either angle_olvG01 or angle_olvG11 /angle_rgb 7 array def /angle_olv [38 96 151 236 305 354 398] def %standard offset /angle_rgb [26 92 162 217 272 329 386] def %CIE-test colors /angle_olvi 28 array def %shift by 00,25,50,75% /angle_olvG01i 28 array def %shift by 00,25,50,75% /angle_olvG11i 28 array def %shift by 00,25,50,75% /angle_olvGA1i 28 array def %either angle_olvG01i or angle_olvG11i /angle_rgbi 28 array def %shift by 00,25,50,75% /xcolor xcolorx def /xchart xchartx def /k30j 8 array def /k30j [648 720 072 080 008 656 000 728] def % O1 Y1 L1 C1 V1 M1 N1 W1 %END aus LG46 %3240=1080*3 /LAB*rc089 3240 array def /XYZrc089 3240 array def /LAB*ra089 3240 array def /XYZra089 3240 array def /LAB*la089 3240 array def /XYZla089 3240 array def /LAB*lc089 3240 array def /XYZlc089 3240 array def /XYZ_Xj 1080 array def /XYZ_Yj 1080 array def /XYZ_Zj 1080 array def /LAB*Lj 1080 array def /LAB*aj 1080 array def /LAB*bj 1080 array def /LAB*Lja 1080 array def /LAB*aja 1080 array def /LAB*bja 1080 array def /LAB*Cja 1080 array def /LAB*Hja 1080 array def /ymax 16600 def /ydel 203 def /cvishow {0.5 add cvi 6 string cvs show} def /cvsshow1 {0.05 add 10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {0.005 add 100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show} def /RJGBLAB* 12 array def /RJGBLAB*[ 39.92 58.74 27.99 % R CIE No.09 elementary colours in LAB, D65 81.26 -2.89 71.56 % J CIE No.10 52.23 -42.42 13.60 % G CIE No.11 30.57 1.41 -46.47 % B CIE No.12 ] def /RGBhab08 8 array def RGBhab08 0 RJGBLAB* 02 get RJGBLAB* 01 get atan put %026 RGBhab08 1 RJGBLAB* 05 get RJGBLAB* 04 get atan put %092 RGBhab08 2 RJGBLAB* 08 get RJGBLAB* 07 get atan put %162 RGBhab08 4 RJGBLAB* 11 get RJGBLAB* 10 get atan put %272 RGBhab08 3 RGBhab08 2 get RGBhab08 4 get add 0.5 mul put %217 RGBhab08 5 RGBhab08 4 get RGBhab08 0 get 360 add add 0.5 mul put %329 RGBhab08 6 RGBhab08 0 get 360 add put %386 RGBhab08 7 RGBhab08 1 get 360 add put %452 /RGBhab08d 8 array def 0 1 6 {/j exch def %j=0,6 RGBhab08d j RGBhab08 j 1 add get RGBhab08 j get sub put } for /xs 1000 def /ys xs def /d2 xs 2 div def /d8 xs 8 div def /xs5x xs 5.4 mul def /ys5x ys 5.4 mul def XYZ*system /Lrefl 11 array def /Lrefl [(0%) (0%) (0%) (0%) (0,6%) (1,2%) (2,5%) (5%) (10%) (20%) (40%)] def /u*dtx [(o) (y) (l) (c) (v) (m) (o)] def /u*etx [(r) (j) (g) () (b) () (r)] def /LAB*na089 3240 array def /XYZna089 3240 array def /IN 27 array def /IN [0000 0001 0002 0003 0004 0005 0006 0007 0008 0243 0244 0245 0246 0247 0248 0249 0250 0251 0486 0487 0488 0489 0490 0491 0492 0493 0494] def /LUTL*64a 64 array def /LUTA*64a 64 array def /LUTB*64a 64 array def /LUTC*64a 64 array def /LUTH*64a 64 array def /holv*64a 64 array def /OLVhab64 64 array def /RGBhab64 64 array def /indton64 64 array def /LNWton09 09 array def /L*ton 9 array def /RJGB16 16 array def /RJGB16 [(r00j=R) (r25j) (r50j) (r75j) (j00g=J) (j25g) (j50g) (j75g) (g00b=G) (g25b) (g50b) (g75b) (b00r=B) (b25r) (b50r) (b75r)] def /L05 5 array def /L05 [(n000w=N) (n025w) (n050w) (n075w) (n100w=W)] def /RGB*16 16 array def /RGB*16 [(1.00 0.00 0.00) (1.00 0.25 0.00) (1.00 0.50 0.00) (1.00 0.75 0.00) (1.00 1.00 0.00) (0.75 1.00 0.00) (0.50 1.00 0.00) (0.25 1.00 0.00) (0.00 1.00 0.00) (0.00 1.00 0.50) (0.00 1.00 1.00) (0.00 0.50 1.00) (0.00 0.00 1.00) (0.50 0.00 1.00) (1.00 0.00 1.00) (1.00 0.00 0.50) ] def /RGBNM*16 16 array def /RGBNW*16 [(1.00 0.00 0.00) (0.50 0.00 0.00) (1.00 0.50 0.50) () (1.00 1.00 0.00) (0.50 0.50 0.00) (1.00 1.00 0.50) () (0.00 1.00 0.00) (0.00 0.50 0.00) (0.50 1.00 0.50) () (0.00 0.00 1.00) (0.00 0.00 0.50) (0.50 0.50 1.00) ()] def /RGB*005 05 array def /RGB*005 [(0.00 0.00 0.00) (0.25 0.25 0.25) (0.50 0.50 0.50) (0.75 0.75 0.75) (1.00 1.00 1.00)] def /RGB*009 09 array def /RGB*009 [(0.000 0.000 0.000) (0.125 0.125 0.125) (0.250 0.250 0.250) (0.375 0.375 0.375) (0.500 0.500 0.500) (0.625 0.625 0.625) (0.750 0.750 0.750) (0.875 0.875 0.875) (1.000 1.000 1.000)] def /OLV64 64 array def /OLV64 [(o00y=O) (o12y) (o25y) (o37y) (o50y) (o62y) (o75y) (o87y) (y00l=Y) (y12l) (y25l) (y37l) (y50l) (y62l) (y75l) (y87l) (l00c=L) (l12c) (l25c) (l37c) (l50c) (l62c) (l75c) (l87c) (c00v=C) (c12v) (c25v) (c37v) (c50v) (c62v) (c75v) (c87v) (v00m=V) (v12m) (v25m) (v37m) (v50m) (v62m) (v75m) (v87m) (m00o=M) (m12o) (m25o) (m37o) (m50o) (m62o) (m75o) (m87o) %repeat for range >360 degree (o00y=O) (o12y) (o25y) (o37y) (o50y) (o62y) (o75y) (o87y) (y00l=Y) (y12l) (y25l) (y37l) (y50l) (y62l) (y75l) (y87l) ] def /RGB64 64 array def /RGB64[(r00j=R) (r12j) (r25j) (r37j) (r50j) (r62j) (r75j) (r87j) (j00g=J) (j12g) (j25g) (j37g) (j50g) (j62g) (j75g) (j87g) (g00c'=G) (g12c') (g25c') (g37c') (g50c') (g62c') (g75c') (g87c') (c'00b=C') (c'12b) (c'25b) (c'37b) (c'50b) (c'62b) (c'75b) (c'87b) (b00m'=B) (b12m') (b25m') (b37m') (b50m') (b62m') (b75m') (b87m') (m'00r=M') (m'12r) (m'25r) (m'37r) (m'50r) (m'62r) (m'75r) (m'87r) %repeat for range >360 degree (r00j=R) (r12j) (r25j) (r37j) (r50j) (r62j) (r75j) (r87j) (j00g=J) (j12g) (j25g) (j37g) (j50g) (j62g) (j75g) (j87g) ] def /RGBOLV*64tx 64 array def /RGBOLV*64tx [(1.000 0.000 0.000) (1.000 0.125 0.000) (1.000 0.250 0.000) (1.000 0.375 0.000) %O-Y (1.000 0.500 0.000) (1.000 0.625 0.000) (1.000 0.750 0.000) (1.000 0.875 0.000) (1.000 1.000 0.000) (0.875 1.000 0.000) (0.750 1.000 0.000) (0.625 1.000 0.000) %Y-L (0.500 1.000 0.000) (0.375 1.000 0.000) (0.250 1.000 0.000) (0.125 1.000 0.000) (0.000 1.000 0.000) (0.000 1.000 0.125) (0.000 1.000 0.250) (0.000 1.000 0.375) %L-C (0.000 1.000 0.500) (0.000 1.000 0.625) (0.000 1.000 0.750) (0.000 1.000 0.875) (0.000 1.000 1.000) (0.000 0.875 1.000) (0.000 0.750 1.000) (0.000 0.625 1.000) %C-V (0.000 0.500 1.000) (0.000 0.375 1.000) (0.000 0.250 1.000) (0.000 0.125 1.000) (0.000 0.000 1.000) (0.125 0.000 1.000) (0.250 0.000 1.000) (0.375 0.000 1.000) %V-M (0.500 0.000 1.000) (0.625 0.000 1.000) (0.750 0.000 1.000) (0.875 0.000 1.000) (1.000 0.000 1.000) (1.000 0.000 0.875) (1.000 0.000 0.750) (1.000 0.000 0.625) %M-O (1.000 0.000 0.500) (1.000 0.000 0.375) (1.000 0.000 0.250) (1.000 0.000 0.125) %repeat for range >360 degree (1.000 0.000 0.000) (1.000 0.125 0.000) (1.000 0.250 0.000) (1.000 0.375 0.000) %O-Y (1.000 0.500 0.000) (1.000 0.625 0.000) (1.000 0.750 0.000) (1.000 0.875 0.000) (1.000 1.000 0.000) (0.875 1.000 0.000) (0.750 1.000 0.000) (0.625 1.000 0.000) %Y-L (0.500 1.000 0.000) (0.375 1.000 0.000) (0.250 1.000 0.000) (0.125 1.000 0.000) ] def /RGBOLV*192 192 array def /RGBOLV*192 [1.000 0.000 0.000 1.000 0.125 0.000 1.000 0.250 0.000 1.000 0.375 0.000 %O-Y 1.000 0.500 0.000 1.000 0.625 0.000 1.000 0.750 0.000 1.000 0.875 0.000 1.000 1.000 0.000 0.875 1.000 0.000 0.750 1.000 0.000 0.625 1.000 0.000 %Y-L 0.500 1.000 0.000 0.375 1.000 0.000 0.250 1.000 0.000 0.125 1.000 0.000 0.000 1.000 0.000 0.000 1.000 0.125 0.000 1.000 0.250 0.000 1.000 0.375 %L-C 0.000 1.000 0.500 0.000 1.000 0.625 0.000 1.000 0.750 0.000 1.000 0.875 0.000 1.000 1.000 0.000 0.875 1.000 0.000 0.750 1.000 0.000 0.625 1.000 %C-V 0.000 0.500 1.000 0.000 0.375 1.000 0.000 0.250 1.000 0.000 0.125 1.000 0.000 0.000 1.000 0.125 0.000 1.000 0.250 0.000 1.000 0.375 0.000 1.000 %V-M 0.500 0.000 1.000 0.625 0.000 1.000 0.750 0.000 1.000 0.875 0.000 1.000 1.000 0.000 1.000 1.000 0.000 0.875 1.000 0.000 0.750 1.000 0.000 0.625 %M-O 1.000 0.000 0.500 1.000 0.000 0.375 1.000 0.000 0.250 1.000 0.000 0.125 %repeat for range >360 degree 1.000 0.000 0.000 1.000 0.125 0.000 1.000 0.250 0.000 1.000 0.375 0.000 %O-Y 1.000 0.500 0.000 1.000 0.625 0.000 1.000 0.750 0.000 1.000 0.875 0.000 1.000 1.000 0.000 0.875 1.000 0.000 0.750 1.000 0.000 0.625 1.000 0.000 %Y-L 0.500 1.000 0.000 0.375 1.000 0.000 0.250 1.000 0.000 0.125 1.000 0.000 ] def /RGBOLV*640 64 array def /RGBOLV*641 64 array def /RGBOLV*642 64 array def 0 1 63 {/j exch def %j=0,63 RGBOLV*640 j RGBOLV*192 j 3 mul get put RGBOLV*641 j RGBOLV*192 j 3 mul 1 add get put RGBOLV*642 j RGBOLV*192 j 3 mul 2 add get put } for %j=0,63 /RGBOLVL 0 def %Interpretation rgb->rgb* (0,2) or rgb->olv* (1,3) /LABOLVL 0 def %Output LAB* (0) or OLV*/RGB* (1) /REFLECL 0 def %0 1 0 {/REFLECL exch def %beg REFLECL=0,0 /lut 2187 array def %729x3=2187 /lut1 1080 array def /lut2 1080 array def /lut3 1080 array def /OLVhab08 8 array def /OLVhab08d 8 array def /x3D 0 def %0,1 output Faeit or Fae3D on page 2,3 /xtext 0 def %0,1 without/with text output 72 90 translate 0.01 MM dup scale gsave /xchartix xchartx def 00 1 15 {/xchartix exch def %beg xchartix=00,15 /xcharti xchartix 2 idiv 3 add def %range 3...10 /xcharts xchartix xchartix 2 idiv 2 mul sub def %range 0...5 xcharts 0 le {%xcharts 0 x3D 0 eq RGBOLVL 0 eq and {/FileTex (Fadin) def} if x3D 0 eq RGBOLVL 1 eq and {/FileTex (Fadin) def} if x3D 1 eq RGBOLVL 0 eq and {/FileTex (Fadin) def} if x3D 1 eq RGBOLVL 1 eq and {/FileTex (Fadin) def} if }%xcharts 0 {%xcharts 1 x3D 0 eq RGBOLVL 0 eq and {/FileTex (Faeit) def} if x3D 0 eq RGBOLVL 1 eq and {/FileTex (Fadit) def} if x3D 1 eq RGBOLVL 0 eq and {/FileTex (Fae3D) def} if x3D 1 eq RGBOLVL 1 eq and {/FileTex (Fad3D) def} if } ifelse %xcharts=0,1 gsave xcharti 2 le {/il 0 def} {/il xcharti 3 sub def} ifelse %Reference black and factors /YrN 2.52 def /ilf [0.00 0.25 0.50 1.00 2.00 4.00 8.00 16.00] def /Xtref089 YrN ilf il get mul XLN001 mul def /Ytref089 YrN ilf il get mul def /Ztref089 YrN ilf il get mul ZLN001 mul def /YNil Ytref089 def /YNil001 YNil 100 div def YNil001 6 29 div 3 exp ge {/FYYn YNil001 0.3333 exp def} {/FYYn 841 108 div YNil001 mul 4 29 div add def} ifelse /L*Nil 116 FYYn mul 16 sub def /IM1 1079 def 0 1 IM1 {/i exch def %i=0,IM1 /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def XYZrc089 i30 XYZrx089 i30 get put XYZrc089 i31 XYZrx089 i31 get put XYZrc089 i32 XYZrx089 i32 get put /XQ XYZrc089 i30 get XLWD65100 div def /YQ XYZrc089 i31 get YLWD65100 div def /ZQ XYZrc089 i32 get ZLWD65100 div def XQ 0 lt {/XQ 0.00000001 def} if YQ 0 lt {/YQ 0.00000001 def} if ZQ 0 lt {/ZQ 0.00000001 def} if LAB*rc089 i30 YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse put LAB*rc089 i31 XQ 0.008856 lt {7.787 XQ mul 16 116 div add} {XQ 0.33333333 exp} ifelse YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse sub 500 mul put LAB*rc089 i32 YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add} {ZQ 0.33333333 exp} ifelse sub 200 mul put } for %i=0,IM1 /jN 1072 3 mul def /L*N LAB*rc089 jN get def /A*N LAB*rc089 jN 1 add get def /B*N LAB*rc089 jN 2 add get def /jW 1073 3 mul def /L*W LAB*rc089 jW get def /A*W LAB*rc089 jW 1 add get def /B*W LAB*rc089 jW 2 add get def 0 1 IM1 {/i exch def %i=0,IM1 /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def LAB*ra089 i30 LAB*rc089 i30 get put /l*CIE LAB*rc089 i30 get L*N sub L*W L*N sub div def %system rel. lightn. /a*s A*W A*N sub l*CIE mul def /b*s B*W B*N sub l*CIE mul def LAB*ra089 i31 LAB*rc089 i31 get A*N sub a*s sub put LAB*ra089 i32 LAB*rc089 i32 get B*N sub b*s sub put } for %i=0,IM1 0 1 IM1 {/i exch def %i=0,IM1 /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def /X* {LAB*ra089 i30 get 16 add 116 div LAB*ra089 i31 get 500 div add} bind def /Y* {LAB*ra089 i30 get 16 add 116 div} bind def /Z* {LAB*ra089 i30 get 16 add 116 div LAB*ra089 i32 get 200 div sub} bind def XYZra089 i30 X* DecodeXYZ* XLWD65100 mul put XYZra089 i31 Y* DecodeXYZ* YLWD65100 mul put XYZra089 i32 Z* DecodeXYZ* ZLWD65100 mul put } for %i=0,IM1 xcharti 2 ge {%xcharti>=2 /jW 1073 3 mul def %for white X data /Xwref089 XYZra089 jW get def /Ywref089 XYZra089 jW 1 add get def /Zwref089 XYZra089 jW 2 add get def /jN 1072 3 mul 1 add def %for black X data /YrN XYZra089 jN 1 add get def /Xnref089 YrN XLN001 mul def /Ynref089 YrN def /Znref089 YrN ZLN001 mul def 0 1 IM1 {/i exch def /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def XYZna089 i30 XYZra089 i30 get Xnref089 sub Xwref089 Xwref089 Xnref089 sub div mul put XYZna089 i31 XYZra089 i31 get Ynref089 sub Ywref089 Ywref089 Ynref089 sub div mul put XYZna089 i32 XYZra089 i32 get Znref089 sub Zwref089 Zwref089 Znref089 sub div mul put } for %i=I1,I2 0 1 IM1 {/i exch def /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def /XQ XYZna089 i30 get XLWD65100 div def /YQ XYZna089 i31 get YLWD65100 div def /ZQ XYZna089 i32 get ZLWD65100 div def XQ 0 lt {/XQ 0.00000001 def} if YQ 0 lt {/YQ 0.00000001 def} if ZQ 0 lt {/ZQ 0.00000001 def} if LAB*na089 i30 YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse put LAB*na089 i31 XQ 0.008856 lt {7.787 XQ mul 16 116 div add} {XQ 0.33333333 exp} ifelse YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse sub 500 mul put LAB*na089 i32 YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add} {ZQ 0.33333333 exp} ifelse sub 200 mul put } for %i=I1,I2 } if %xchart>=2 xcharti 3 ge {%xchart>=3 /jW 1073 3 mul def %for white X data %/jW 57 3 mul def %W /Xwref089 XYZra089 jW get def /Ywref089 XYZra089 jW 1 add get def /Zwref089 XYZra089 jW 2 add get def /kn Ywref089 Ywref089 Ytref089 sub div def 0 1 IM1 {/i exch def /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def XYZla089 i30 XYZna089 i30 get kn div Xtref089 add put XYZla089 i31 XYZna089 i31 get kn div Ytref089 add put XYZla089 i32 XYZna089 i32 get kn div Ztref089 add put } for %i=I1,I2 0 1 IM1 {/i exch def /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def /XQ XYZla089 i30 get XLWD65100 div def /YQ XYZla089 i31 get YLWD65100 div def /ZQ XYZla089 i32 get ZLWD65100 div def XQ 0 lt {/XQ 0.00000001 def} if YQ 0 lt {/YQ 0.00000001 def} if ZQ 0 lt {/ZQ 0.00000001 def} if LAB*la089 i30 YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse put LAB*la089 i31 XQ 0.008856 lt {7.787 XQ mul 16 116 div add} {XQ 0.33333333 exp} ifelse YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse sub 500 mul put LAB*la089 i32 YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add} {ZQ 0.33333333 exp} ifelse sub 200 mul put } for %i=I1,I2 } if %xchart>=3 xcharti 0 eq {%xcharti=0 (1x) 0 1 IM1 {/i exch def %i=0,IM1 /i30 i 3 mul def /i31 i30 1 add def /i32 i30 2 add def % 10100 ymax i i 80 idiv 80 mul sub ydel mul sub moveto LAB*Lj i LAB*rc089 i30 get put LAB*aj i LAB*rc089 i31 get put LAB*bj i LAB*rc089 i32 get put XYZ_Xj i XYZrc089 i30 get put XYZ_Yj i XYZrc089 i31 get put XYZ_Zj i XYZrc089 i32 get put } for %i=0,IM1 } if %xcharti=0 (1x) xcharti 1 eq {%xcharti=1 (1x) 0 1 IM1 {/i exch def %i=0,IM1 /i30 i 3 mul def /i31 i30 1 add def /i32 i30 2 add def % 10100 ymax i i 80 idiv 80 mul sub ydel mul sub moveto LAB*Lj i LAB*ra089 i30 get put LAB*aj i LAB*ra089 i31 get put LAB*bj i LAB*ra089 i32 get put XYZ_Xj i XYZra089 i30 get put XYZ_Yj i XYZra089 i31 get put XYZ_Zj i XYZra089 i32 get put } for %i=0,IM1 } if %xcharti=1 (1x) xcharti 2 eq {%xcharti=2 (1x) 0 1 IM1 {/i exch def %i=0,IM1 /i30 i 3 mul def /i31 i30 1 add def /i32 i30 2 add def % 10100 ymax i i 80 idiv 80 mul sub ydel mul sub moveto LAB*Lj i LAB*na089 i30 get put LAB*aj i LAB*na089 i31 get put LAB*bj i LAB*na089 i32 get put XYZ_Xj i XYZna089 i30 get put XYZ_Yj i XYZna089 i31 get put XYZ_Zj i XYZna089 i32 get put } for %i=0,IM1 } if %xcharti=2 (1x) xcharti 3 ge {%xcharti=3,4,5,6,7,8,9,10 (8x) 0 1 IM1 {/i exch def %i=0,IM1 /i30 i 3 mul def /i31 i30 1 add def /i32 i30 2 add def % 10100 ymax i i 80 idiv 80 mul sub ydel mul sub moveto LAB*Lj i LAB*la089 i30 get put LAB*aj i LAB*la089 i31 get put LAB*bj i LAB*la089 i32 get put XYZ_Xj i XYZla089 i30 get put XYZ_Yj i XYZla089 i31 get put XYZ_Zj i XYZla089 i32 get put } for %i=0,IM1 } if %xcharti=3,4,5,6,7,8,9,10 (8x) xcharti 0 eq {/Xprint 0 def /FileData (LAB*rc) def} if xcharti 1 eq {/Xprint 1 def /FileData (LAB*ra) def} if xcharti 2 eq {/Xprint 1 def /FileData (LAB*na) def} if xcharti 3 eq {/Xprint 1 def /FileData (LAB*la0) def} if xcharti 4 eq {/Xprint 1 def /FileData (LAB*la1) def} if xcharti 5 eq {/Xprint 1 def /FileData (LAB*la2) def} if xcharti 6 eq {/Xprint 1 def /FileData (LAB*la3) def} if xcharti 7 eq {/Xprint 1 def /FileData (LAB*la4) def} if xcharti 8 eq {/Xprint 1 def /FileData (LAB*la5) def} if xcharti 9 eq {/Xprint 1 def /FileData (LAB*la6) def} if xcharti 10 eq {/Xprint 1 def /FileData (LAB*la7) def} if 0 1 728 {/j exch def %j=1,728 %necessary in both cases j 072 eq {%072 0-8-0 L 2 LAB*01 06 LAB*Lj j get put LAB*01 07 LAB*aj j get put LAB*01 08 LAB*bj j get put} if j 080 eq {%080 0-8-8 C 3 LAB*01 09 LAB*Lj j get put LAB*01 10 LAB*aj j get put LAB*01 11 LAB*bj j get put} if j 008 eq {%008 0-0-8 V 4 LAB*01 12 LAB*Lj j get put LAB*01 13 LAB*aj j get put LAB*01 14 LAB*bj j get put} if j 000 eq {%000 0-0-0 N 6 LAB*01 18 LAB*Lj j get put LAB*01 19 LAB*aj j get put LAB*01 20 LAB*bj j get put} if j 648 eq {%648 8-0-0 O 0 LAB*01 00 LAB*Lj j get put LAB*01 01 LAB*aj j get put LAB*01 02 LAB*bj j get put} if j 720 eq {%720 8-8-0 Y 1 LAB*01 03 LAB*Lj j get put LAB*01 04 LAB*aj j get put LAB*01 05 LAB*bj j get put} if j 656 eq {%656 8-0-8 M 5 LAB*01 15 LAB*Lj j get put LAB*01 16 LAB*aj j get put LAB*01 17 LAB*bj j get put} if j 728 eq {%728 8-8-8 W 7 LAB*01 21 LAB*Lj j get put LAB*01 22 LAB*aj j get put LAB*01 23 LAB*bj j get put} if } for %j=0,728 729 1 971 {/j exch def %j=729,971 %necessary in both cases j 963 eq {%963 0-8-0 L 2 LAB*02 06 LAB*Lj j get put LAB*02 07 LAB*aj j get put LAB*02 08 LAB*bj j get put} if j 737 eq {%737 0-8-8 C 3 LAB*02 09 LAB*Lj j get put LAB*02 10 LAB*aj j get put LAB*02 11 LAB*bj j get put} if j 818 eq {%818 0-0-8 V 4 LAB*02 12 LAB*Lj j get put LAB*02 13 LAB*aj j get put LAB*02 14 LAB*bj j get put} if j 809 eq {%809 or 890 or 971 0-0-0 N 6 LAB*02 18 LAB*Lj j get LAB*Lj 890 get add LAB*Lj 971 get add 3 div put LAB*02 19 LAB*aj j get LAB*aj 890 get add LAB*aj 971 get add 3 div put LAB*02 20 LAB*bj j get LAB*bj 890 get add LAB*bj 971 get add 3 div put} if j 801 eq {%801 8-0-0 O 0 LAB*02 00 LAB*Lj j get put LAB*02 01 LAB*aj j get put LAB*02 02 LAB*bj j get put} if j 882 eq {%882 8-8-0 Y 1 LAB*02 03 LAB*Lj j get put LAB*02 04 LAB*aj j get put LAB*02 05 LAB*bj j get put} if j 899 eq {%899 8-0-8 M 5 LAB*02 15 LAB*Lj j get put LAB*02 16 LAB*aj j get put LAB*02 17 LAB*bj j get put} if j 729 eq {%729 or 810 or 891 8-8-8 W 7 LAB*02 21 LAB*Lj j get LAB*Lj 810 get add LAB*Lj 891 get add 3 div put LAB*02 22 LAB*aj j get LAB*aj 810 get add LAB*aj 891 get add 3 div put LAB*02 23 LAB*bj j get LAB*bj 810 get add LAB*bj 891 get add 3 div put} if } for %j=j=729,971 972 1 1079 {/j exch def %j=972,1079 %only last colours 1072 to 1079 j 1078 eq {%1078 0-8-0 L 2 LAB*03 06 LAB*Lj j get put LAB*03 07 LAB*aj j get put LAB*03 08 LAB*bj j get put} if j 1075 eq {%1075 0-8-8 C 3 LAB*03 09 LAB*Lj j get put LAB*03 10 LAB*aj j get put LAB*03 11 LAB*bj j get put} if j 1077 eq {%1077 0-0-8 V 4 LAB*03 12 LAB*Lj j get put LAB*03 13 LAB*aj j get put LAB*03 14 LAB*bj j get put} if j 1072 eq {%1072 0-0-0 N 6 LAB*03 18 LAB*Lj j get put LAB*03 19 LAB*aj j get put LAB*03 20 LAB*bj j get put} if j 1074 eq {%1074 8-0-0 O 0 LAB*03 00 LAB*Lj j get put LAB*03 01 LAB*aj j get put LAB*03 02 LAB*bj j get put} if j 1076 eq {%1076 8-8-0 Y 1 LAB*03 03 LAB*Lj j get put LAB*03 04 LAB*aj j get put LAB*03 05 LAB*bj j get put} if j 1079 eq {%1079 8-0-8 M 5 LAB*03 15 LAB*Lj j get put LAB*03 16 LAB*aj j get put LAB*03 17 LAB*bj j get put} if j 1073 eq {%1073 8-8-8 W 7 LAB*03 21 LAB*Lj j get put LAB*03 22 LAB*aj j get put LAB*03 23 LAB*bj j get put} if } for %j=j=972,1079 972 1 1079 {/j exch def %09 step N,W: j=0972,0980; 0981,0989; 0990,0998; % 0999,1007 %16 step N,W: j=1008,1023; 1024,1039; 1040,1055; % 1056,1071 %necessary for four 09-step grey scales j 0972 eq {%0972 or 1008 0-0-0 N 6 LAB*04 18 LAB*Lj j get put LAB*04 19 LAB*aj j get put LAB*04 20 LAB*bj j get put} if j 0980 eq {%0980 or 1023 8-8-8 W 7 LAB*04 21 LAB*Lj j get put LAB*04 22 LAB*aj j get put LAB*04 23 LAB*bj j get put} if j 0981 eq {%0981 or 1024 0-0-0 N 6 LAB*05 18 LAB*Lj j get put LAB*05 19 LAB*aj j get put LAB*05 20 LAB*bj j get put} if j 0989 eq {%0989 or 1039 8-8-8 W 7 LAB*05 21 LAB*Lj j get put LAB*05 22 LAB*aj j get put LAB*05 23 LAB*bj j get put} if j 0990 eq {%0990 or 1040 0-0-0 N 6 LAB*06 18 LAB*Lj j get put LAB*06 19 LAB*aj j get put LAB*06 20 LAB*bj j get put} if j 0998 eq {%0998 or 1055 8-8-8 W 7 LAB*06 21 LAB*Lj j get put LAB*06 22 LAB*aj j get put LAB*06 23 LAB*bj j get put} if j 0999 eq {%0999 or 1056 0-0-0 N 6 LAB*07 18 LAB*Lj j get put LAB*07 19 LAB*aj j get put LAB*07 20 LAB*bj j get put} if j 1007 eq {%1007 or 1071 8-8-8 W 7 LAB*07 21 LAB*Lj j get put LAB*07 22 LAB*aj j get put LAB*07 23 LAB*bj j get put} if } for %j=972,1079 %Adaptation /L*Nio LAB*07 18 get def /A*Nio LAB*07 19 get def /B*Nio LAB*07 20 get def /L*Wio LAB*07 21 get def /A*Wio LAB*07 22 get def /B*Wio LAB*07 23 get def /A*Dio A*Wio A*Nio sub def /B*Dio B*Wio B*Nio sub def 0 1 1079 {/j exch def %j=0,1079 LAB*Lja j LAB*Lj j get put /l*CIE LAB*Lj j get L*Nio sub L*Wio L*Nio sub div def %system rel. lightn. /a*s A*Wio A*Nio sub l*CIE mul def /b*s B*Wio B*Nio sub l*CIE mul def LAB*aja j LAB*aj j get A*Nio sub a*s sub put LAB*bja j LAB*bj j get B*Nio sub b*s sub put LAB*Cja j LAB*aja j get dup mul LAB*bja j get dup mul add 0.0001 add sqrt put LAB*Cja j get 0.02 le {%LAB*Cja<=0.02 achromatic LAB*Hja j 0 put } {%LAB*Cja>0.02 chromatic LAB*Hja j LAB*bja j get LAB*aja j get 0.0001 add atan put } ifelse } for %j=0,1079 0 3 2186 {/j exch def %j=0,2186 /j3 j 3 idiv def lut j LAB*Lja j3 get put lut j 1 add LAB*aja j3 get put lut j 2 add LAB*bja j3 get put } for %j=0,2186 %*********************************************************************************** xcharti 2 le {/jN 1072 3 mul def /YNil XYZrx089 jN 1 add get def /L*Nil LAB*rc089 jN get def} if /RJGB0 RJGBLAB* 02 get RJGBLAB* 01 get atan def %026 /RJGB1 RJGBLAB* 05 get RJGBLAB* 04 get atan def %092 /RJGB2 RJGBLAB* 08 get RJGBLAB* 07 get atan def %162 /RJGB3 RJGBLAB* 11 get RJGBLAB* 10 get atan def %272 /CeGB RJGB2 RJGB3 add 0.5 mul def /MeBR RJGB3 RJGB0 360 add add 0.5 mul def 0 1 47 {/j exch def %i=0,47 elementary and intemediate hue angles /j0 j j 8 idiv 8 mul sub def %0,1,2,3,4,5,6,7 /b0 j0 0.125 mul def /a0 1 b0 sub def j 00 ge j 07 le and {RGBhab64 j a0 RJGB0 mul b0 RJGB1 mul add put} if j 08 ge j 15 le and {RGBhab64 j a0 RJGB1 mul b0 RJGB2 mul add put} if j 16 ge j 23 le and {RGBhab64 j a0 RJGB2 mul b0 CeGB mul add put} if j 24 ge j 31 le and {RGBhab64 j a0 CeGB mul b0 RJGB3 mul add put} if j 32 ge j 39 le and {RGBhab64 j a0 RJGB3 mul b0 MeBR mul add put} if j 40 ge j 47 le and {RGBhab64 j a0 MeBR mul b0 RJGB0 360 add mul add dup 360 ge {360 sub} if put} if } for %j=0,47 elementary and intemediate hue angles 0 1 15 {/j exch def %j=0,15 %for interpolation 0 rgb* (0,2) /LAB*hMaP LAB*hMa def LAB*hMa OLVhab64 0 get lt {/LAB*hMaP LAB*hMa 360 add def} if /joj -1 def 0 1 62 {/jj exch def %jj=1,62 /habton0 OLVhab64 jj get def /habton1 OLVhab64 jj 1 add get def LAB*hMaP habton0 ge LAB*hMaP habton1 lt and {/joj jj def exit } if } for %jj=0,62 joj -1 eq {%output in case of data failure -100 -100 rmoveto (STOPjoj=-1) show (, ) show jj cvishow (, ) show LAB*hMaP cvsshow1 (, ) show OLVhab64 jj get cvsshow1 (, ) show OLVhab64 jj 1 add get cvsshow1 } if % } if %RGBOLVL=0 /A2 LAB*hMaP habton0 sub habton1 habton0 sub div def /A1 1 A2 sub def /jxj joj def %RGBOLVL 0 eq RGBOLVL 2 eq or {joj} {jrj} ifelse def /LAB*L*Ma LUTL*64a jxj get A1 mul LUTL*64a jxj 1 add get A2 mul add def /LAB*C*Ma LUTC*64a jxj get A1 mul LUTC*64a jxj 1 add get A2 mul add def /LAB*H*Ma LUTH*64a jxj get A1 mul LUTH*64a jxj 1 add get A2 mul add def /LAB*a*Ma LAB*C*Ma LAB*H*Ma cos mul def /LAB*b*Ma LAB*C*Ma LAB*H*Ma sin mul def /o3*Maeit RGBOLV*640 jxj get A1 mul RGBOLV*640 jxj 1 add get A2 mul add def /l3*Maeit RGBOLV*641 jxj get A1 mul RGBOLV*641 jxj 1 add get A2 mul add def /v3*Maeit RGBOLV*642 jxj get A1 mul RGBOLV*642 jxj 1 add get A2 mul add def } ifelse %chromatic colours /LAB*L*M LAB*L*Ma def /l*CIE LAB*L*Ma L*Nio sub L*Wio L*Nio sub div def %relative lightness %relative chroma c*3, blackness n*3, brilliance i*3 /minFa o3*Fa def l3*Fa minFa lt {/minFa l3*Fa def} if v3*Fa minFa lt {/minFa v3*Fa def} if /maxFa o3*Fa def l3*Fa maxFa gt {/maxFa l3*Fa def} if v3*Fa maxFa gt {/maxFa v3*Fa def} if /i*3 maxFa def /c*3 maxFa minFa sub def /n*3 1 i*3 sub def %CIE lightness and chroma of colour Fa %See equations (1) to (4) of www.ps.bam.de/D33872-AE.PDF, Page 10 /t*3 i*3 c*3 0.5 mul sub def /l*3 t*3 c*3 LAB*L*Ma L*Nio sub L*Wio L*Nio sub div 0.5 sub mul add def %calculation of o3*Faeit, l3*Faeit v3*Faeit % from o3*Maeit, l3*Maeit v3*Maeit /i*3 1 n*3 sub def /o3*Faeitn o3*Maeit i*3 mul def /l3*Faeitn l3*Maeit i*3 mul def /v3*Faeitn v3*Maeit i*3 mul def /minFaeitn o3*Faeitn def l3*Faeitn minFaeitn lt {/minFaeitn l3*Faeitn def} if v3*Faeitn minFaeitn lt {/minFaeitn v3*Faeitn def} if /maxFaeitn o3*Faeitn def l3*Faeitn maxFaeitn gt {/maxFaeitn l3*Faeitn def} if v3*Faeitn maxFaeitn gt {/maxFaeitn v3*Faeitn def} if /o3*Faeit o3*Faeitn def %default /l3*Faeit l3*Faeitn def /v3*Faeit v3*Faeitn def %change of minFaeitn minFaeitn o3*Faeitn eq {/o3*Faeit maxFaeitn c*3 sub def} if minFaeitn l3*Faeitn eq {/l3*Faeit maxFaeitn c*3 sub def} if minFaeitn v3*Faeitn eq {/v3*Faeit maxFaeitn c*3 sub def} if /LAB*L*Fa l*3 L*Wio L*Nio sub mul L*Nio add def /LAB*C*Fa LAB*C*Ma c*3 mul def /LAB*a*Fa LAB*C*Fa LAB*hFa cos mul def /LAB*b*Fa LAB*C*Fa LAB*hFa sin mul def %for output of data for colours Ma and Fa LAB*hMa 360 ge {/LAB*hMa LAB*hMa 360 sub def} if /LAB*hFa LAB*hMa def /LAB*L*Fait LAB*L*Fa def /LAB*a*Fait LAB*a*Fa def /LAB*b*Fait LAB*b*Fa def /LAB*C*Fait LAB*a*Fait dup mul LAB*b*Fait dup mul add 0.0001 add sqrt def /LAB*H*Fait LAB*b*Fait LAB*a*Fait 0.0001 add atan def %****************************************************** x3D 0 eq {%output intended (it) lut1 xchartl LAB*L*Fait put lut2 xchartl LAB*a*Fait put lut3 xchartl LAB*b*Fait put }%output intended (it) {%output 3D LAB*L*Fait LAB*a*Fait LAB*b*Fait %*************************************************** Lab2RGBinterpolation %procedure for 3D interpolation %*************************************************** /v*3Fa3D exch def /l*3Fa3D exch def /o*3Fa3D exch def %produces in addition: %delta_L*, delta_a*, delta_b*, delta_E* %LAB*L*Fa3D, LAB*a*Fa3D, LAB*b*Fa3D, LAB*C*Fa3D, LAB*hFa3D %end 3D interpolation of measured start output data lut1 xchartl LAB*L*Fa3D put lut2 xchartl LAB*a*Fa3D put lut3 xchartl LAB*b*Fa3D put } ifelse %output x3D } if %xcharts=1 } for %xchartl=0,1079 %begin calculation and output of graph with 16 pictures /icolor 0 def xcharts 0 eq {/xcolor 0 def} if xcharts 1 eq {/xcolor 1 def} if xcolor 0 eq {/olvrgb 0 def %text O-C etc. %only for start plot, allways olvrgb=0 } {/olvrgb 1 RGBOLVL sub def %text O-C (0), R-G (1) %only for second plot, olvrgb=0 or 1 } ifelse colorm 1 eq {proc_lut0} if %Definition lut0 and lut depending on xcolor %************************************************************************* 0 1 1079 {/j exch def %j=0,1079 /j100 j 10 mul def /j101 j100 1 add def /j102 j100 2 add def LUT j100 lut1 j get 100 mul put LUT j101 lut2 j get 100 mul put LUT j102 lut3 j get 100 mul put } for %j=0,1079 %j=0,1079 0 1 7 {/k exch def %k=0,7 /k30 k 3 mul def /k31 k30 1 add def /k32 k30 2 add def /j k30j k get def xcolor 0 eq {%xcolor=0 LAB*Fa0100 k30 lut1 j get put LAB*Fa0100 k31 lut2 j get put LAB*Fa0100 k32 lut3 j get put }%xcolor=0 {%xcolor=1 LAB*Fa1100 k30 lut1 j get put LAB*Fa1100 k31 lut2 j get put LAB*Fa1100 k32 lut3 j get put } ifelse %xcolor=0,1 } for %k=0,7 %************************************************************************* 0 1 1079 {/j exch def %j=0,1079 /j30 j 03 mul def /j31 j30 1 add def /j32 j30 2 add def /j100 j 10 mul 3 add def /j101 j100 1 add def /j102 j100 2 add def LUT j100 RGB0 j30 get put LUT j101 RGB0 j31 get put LUT j102 RGB0 j32 get put } for %j=0,1079 %j=0,1079 0 1 23 {/i exch def LAB*FaGA100 i xcolor 0 eq {LAB*Fa0100}{LAB*Fa1100} ifelse i get 100 div put } for 0 1 05 {/i exch def %i=0,5 /A*Fa LAB*FaGA100 i 3 mul 1 add get def /B*Fa LAB*FaGA100 i 3 mul 2 add get def /H*Fa B*Fa A*Fa 0.0001 add atan def angle_olvGA1 i H*Fa put i 0 eq {angle_olvGA1 6 H*Fa 360 add put} if } for %i=0,5 0 1 5 {/i exch def /i1 i 1 add def %i=0,5 /angle_olvGA1_dif angle_olvGA1 i1 get angle_olvGA1 i get sub def angle_olvGA1i i angle_olvGA1 i get put angle_olvGA1i i 07 add angle_olvGA1 i get angle_olvGA1_dif 0.00 mul add put angle_olvGA1i i 14 add angle_olvGA1 i get angle_olvGA1_dif 0.00 mul add put angle_olvGA1i i 21 add angle_olvGA1 i get angle_olvGA1_dif 0.00 mul add put } for %i=0,5 LAB*ioLmod 0 1 0 {/ibild exch def %ibild=0,1 ibild 0 eq {%BEG ibild=0 0 1 05 {/ic exch def %ic=0,11 S1 20 add yu2 yd ic mul sub moveto ( ) nshow N*olv ic ColNames ic get put } for %ic=0,11 0 1 05 {/i exch def %i=0,5 /ya yu2 yd i mul sub def /L*Fa LAB*a i 3 mul get def /A*Fa LAB*a i 3 mul 1 add get def /B*Fa LAB*a i 3 mul 2 add get def /C*Fa A*Fa dup mul B*Fa dup mul add sqrt def /H*Fa B*Fa A*Fa 0.0001 add atan def L*olv i L*Fa put A*olv i A*Fa put B*olv i B*Fa put C*olv i C*Fa put H*olv i H*Fa put o*olv i o3Ma i get put l*olv i l3Ma i get put v*olv i v3Ma i get put i 5 eq {L*olv 6 L*olv 0 get put A*olv 6 A*olv 0 get put B*olv 6 B*olv 0 get put A*olv 6 A*olv 0 get put C*olv 6 C*olv 0 get put H*olv 6 H*olv 0 get put o*olv 6 o*olv 0 get put l*olv 6 l*olv 0 get put v*olv 6 v*olv 0 get put } if } for %i=0,5 }%END ibild=0 {%BEG ibild=1 12 2 27 {/ic exch def %ic=12,27 N*rgb ic 12 sub 2 idiv ColNames ic get put } for %ic=12,27 %calculation of intermediate elementary colours %/proc_LAB*Fae_LAB*MaeNTABl_olvi3*cmyn3*Ma*ioL { %BEG procedure proc_LAB*Fae_LAB*MaeNTABl_olvi3*cmyn3*Ma*ioL %only for calculation without hue tables %input LAB*Fae %input LAB*a (4 adapted colours RJGB, No. 8 to 11) %input nLAB*s0 (colour white N for calculation of lab*l) %input wLAB*s0 (colour white W for achromatic axis) %output LAB*Mae %output olvi3*Mae %output cmyn3*Mae 0 1 3 {/j exch def %j=0,3 /L*Fae0 LAB*a j 8 add 3 mul 0 add get def /A*Fae0 LAB*a j 8 add 3 mul 1 add get def /B*Fae0 LAB*a j 8 add 3 mul 2 add get def /H*Fae0 B*Fae0 A*Fae0 0.0001 add atan def j 2 le {/L*Fae1 LAB*a j 1 add 8 add 3 mul 0 add get def /A*Fae1 LAB*a j 1 add 8 add 3 mul 1 add get def /B*Fae1 LAB*a j 1 add 8 add 3 mul 2 add get def /H*Fae1 B*Fae1 A*Fae1 0.0001 add atan def } {/L*Fae1 LAB*a 0 8 add 3 mul 0 add get def /A*Fae1 LAB*a 0 8 add 3 mul 1 add get def /B*Fae1 LAB*a 0 8 add 3 mul 2 add get def /H*Fae1 B*Fae1 A*Fae1 0.0001 add atan 360 add def } ifelse 0 1 1 {/i exch def %i=0,3 /n j 2 mul i add def /ya yu2 yd n mul sub 8000 add def /alph i 2 div def /beta 1 alph sub def /L*Fae L*Fae0 beta mul L*Fae1 alph mul add def /H*Fae H*Fae0 beta mul H*Fae1 alph mul add def /A*Fae 100 H*Fae cos mul def /B*Fae 100 H*Fae sin mul def proc_LAB*Fae_LAB*MaeNTABl_olvi3*cmyn3*Ma*ioL n 0 ge {/ineu n def} if n 2 ge {/ineu n 1 sub def} if n 4 ge {/ineu n 2 sub def} if L*rgb ineu L*Mae put A*rgb ineu A*Mae put B*rgb ineu B*Mae put C*rgb ineu C*Mae put H*rgb ineu H*Mae put n 7 eq {/ineu 6 def %ineu=6 L*rgb ineu L*rgb 0 get put A*rgb ineu A*rgb 0 get put B*rgb ineu B*rgb 0 get put C*rgb ineu C*rgb 0 get put H*rgb ineu H*rgb 0 get put } if %ineu=6 } for %i=0,1 } for %j=0,3 } ifelse %END ibild=1 } for %ibild=0,1 /xchartl 6 def 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 %0 1 15 {/xchartl exch def %beg xchartl=0,15 %special space for 'xm03'PROZ0.COM 2x before/after xchartl % 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 /xwidth 5400 def /ywidth 4000 def 0 0 xwidth ywidth 0.0 0.0 0.0 0.5 colrecfi %Rechteck Mittelgrau 20 setlinewidth 0 0 xwidth ywidth 0.0 0.0 0.0 1.0 colrecst %Rahmen Schwarz 150 /Times-ISOL1 FS 0 setgray /Param (; cf1=1.00; nt=0.18; nx=1.0, LECD_08_95) def 300 -150 moveto xchartl 7 le {(LG460-) show} {(LG461-) 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 Lrefl xcharti get show (_) show FileTex show ( ) show xcharts cvishow ( ) show %Param show 2600 0300 translate gsave 0.8 0.8 scale 1 setgray -3200 4175 moveto TBS %(System: ) show FileDat show ( ) show Lrefl xcharti get show (_) show FileTex show /x400 400 def /x700 550 def 0 1 5 {/i exch def /i1 i 1 add def %i=0,5 /angle_olv_dif angle_olv i1 get angle_olv i get sub def angle_olvi i angle_olv i get put angle_olvi i 07 add angle_olv i get angle_olv_dif 0.00 mul add put angle_olvi i 14 add angle_olv i get angle_olv_dif 0.00 mul add put angle_olvi i 21 add angle_olv i get angle_olv_dif 0.00 mul add put /angle_rgb_dif angle_rgb i1 get angle_rgb i get sub def angle_rgbi i angle_rgb i get put angle_rgbi i 07 add angle_rgb i get angle_rgb_dif 0.00 mul add put angle_rgbi i 14 add angle_rgb i get angle_rgb_dif 0.00 mul add put angle_rgbi i 21 add angle_rgb i get angle_rgb_dif 0.00 mul add put } for %i=0,5 /angle6 7 array def /angle6i 28 array def /cfarb_olv_o 7 array def /cfarb_olv_l 7 array def /cfarb_olv_v 7 array def /cfarb_rgb_r 7 array def /cfarb_rgb_g 7 array def /cfarb_rgb_b 7 array def /cfarb_olv00_o 7 array def /cfarb_olv00_l 7 array def /cfarb_olv00_v 7 array def /cfarb_olv25_o 7 array def /cfarb_olv25_l 7 array def /cfarb_olv25_v 7 array def /cfarb_olv50_o 7 array def /cfarb_olv50_l 7 array def /cfarb_olv50_v 7 array def /cfarb_olv75_o 7 array def /cfarb_olv75_l 7 array def /cfarb_olv75_v 7 array def /cfarb_rgb00_r 7 array def /cfarb_rgb00_g 7 array def /cfarb_rgb00_b 7 array def /cfarb_rgb25_r 7 array def /cfarb_rgb25_g 7 array def /cfarb_rgb25_b 7 array def /cfarb_rgb50_r 7 array def /cfarb_rgb50_g 7 array def /cfarb_rgb50_b 7 array def /cfarb_rgb75_r 7 array def /cfarb_rgb75_g 7 array def /cfarb_rgb75_b 7 array def /cname_olv [(O) (Y) (L) (C) (V) (M) (O)] def /cfarb_olv_o [1 1 0 0 0 1 1] def /cfarb_olv_l [0 1 1 1 0 0 0] def /cfarb_olv_v [0 0 0 1 1 1 0] def /cname_rgb [(R) (J) (G) (G50B) (B) (B50R) (R)] def /cfarb_rgb_r [1 1 0 0 0 1 1] def /cfarb_rgb_g [0 1 1 1 0 0 0] def /cfarb_rgb_g [0 0 0 1 1 1 0] def /cname_olv00 [(O00Y) (Y00L) (L00C) (C00V) (V00M) (M00O) (O00Y)] def /cfarb_olv00_o [1 1 0 0 0 1 1] def /cfarb_olv00_l [0 1 1 1 0 0 0] def /cfarb_olv00_v [0 0 0 1 1 1 0] def /cname_olv25 [(O25Y) (Y25L) (L25C) (C25V) (V25M) (M25O) (O25Y)] def /cfarb_olv25_o [1.00 0.75 0.00 0.00 0.25 1.00 1.00] def /cfarb_olv25_l [0.25 1.00 1.00 0.75 0.00 0.00 0.25] def /cfarb_olv25_v [0.00 0.00 0.25 1.00 1.00 0.75 0.00] def /cname_olv50 [(O50Y) (Y50L) (L50C) (C50V) (V50M) (M50O) (O50Y)] def /cfarb_olv50_o [1.00 0.50 0.00 0.00 0.50 1.00 1.00] def /cfarb_olv50_l [0.50 1.00 1.00 0.50 0.00 0.00 0.50] def /cfarb_olv50_v [0.00 0.00 0.50 1.00 1.00 0.50 0.00] def /cname_olv75 [(O75Y) (Y75L) (L75C) (C75V) (V75M) (M75O) (O75Y)] def /cfarb_olv75_o [1.00 0.25 0.00 0.00 0.75 1.00 1.00] def /cfarb_olv75_l [0.75 1.00 1.00 0.25 0.00 0.00 0.75] def /cfarb_olv75_v [0.00 0.00 0.75 1.00 1.00 0.25 0.00] def /cname_rgb00 [(R00J) (J00G) (G00B) (G50B) (B00R) (B50R) (R00J)] def /cfarb_rgb00_r [1 1 0 0 0 1 1] def /cfarb_rgb00_g [0 1 1 1 0 0 0] def /cfarb_rgb00_b [0 0 0 1 1 1 0] def /cname_rgb25 [(R25J) (J25G) (G13B) (G62B) (B12R) (B63R) (R25J)] def /cfarb_rgb25_r [1.00 0.75 0.00 0.00 0.25 1.00 1.00] def /cfarb_rgb25_g [0.25 1.00 1.00 0.75 0.00 0.00 0.25] def /cfarb_rgb25_b [0.00 0.00 0.25 1.00 1.00 0.75 0.00] def /cname_rgb50 [(R50J) (J50G) (G25B) (G75B) (B25R) (B75R) (R50J)] def /cfarb_rgb50_r [1.00 0.50 0.00 0.00 0.50 1.00 1.00] def /cfarb_rgb50_g [0.50 1.00 1.00 0.50 0.00 0.00 0.50] def /cfarb_rgb50_b [0.00 0.00 0.50 1.00 1.00 0.50 0.00] def /cname_rgb75 [(R75J) (J75G) (G38B) (G88B) (B38R) (B88R) (R75J)] def /cfarb_rgb75_r [1.00 0.25 0.00 0.00 0.75 1.00 1.00] def /cfarb_rgb75_g [0.75 1.00 1.00 0.25 0.00 0.00 0.75] def /cfarb_rgb75_b [0.00 0.00 0.75 1.00 1.00 0.25 0.00] def /cname6 7 array def 0 1 6 {/i exch def cname6 i olvrgb 0 eq {%olvrgb=0 xcolor 0 eq xcolor 1 eq or {cname_olv00 i get} if xcolor 2 eq xcolor 3 eq or {cname_olv00 i get} if xcolor 4 eq xcolor 5 eq or {cname_olv00 i get} if xcolor 6 eq xcolor 7 eq or {cname_olv00 i get} if } {%olvrgb=1 xcolor 0 eq xcolor 1 eq or {cname_rgb00 i get} if xcolor 2 eq xcolor 3 eq or {cname_rgb00 i get} if xcolor 4 eq xcolor 5 eq or {cname_rgb00 i get} if xcolor 6 eq xcolor 7 eq or {cname_rgb00 i get} if } ifelse put angle6 i olvrgb 0 eq {%olvrgb=0 xcolor 0 eq xcolor 1 eq or {angle_olvi i get} if xcolor 2 eq xcolor 3 eq or {angle_olvi i get} if xcolor 4 eq xcolor 5 eq or {angle_olvi i get} if xcolor 6 eq xcolor 7 eq or {angle_olvi i get} if } {%olvrgb=1 xcolor 0 eq xcolor 1 eq or {angle_rgbi i get} if xcolor 2 eq xcolor 3 eq or {angle_rgbi i get} if xcolor 4 eq xcolor 5 eq or {angle_rgbi i get} if xcolor 6 eq xcolor 7 eq or {angle_rgbi i get} if } ifelse put } for xchartl 0 eq xchartl 4 eq or xchartl 8 eq or xchartl 12 eq or {/jbild 0 def} if xchartl 1 eq xchartl 5 eq or xchartl 9 eq or xchartl 13 eq or {/jbild 1 def} if xchartl 2 eq xchartl 6 eq or xchartl 10 eq or xchartl 14 eq or {/jbild 2 def} if xchartl 3 eq xchartl 7 eq or xchartl 11 eq or xchartl 15 eq or {/jbild 3 def} if jbild 3 ne {%jbild#3 -3200 3900 moveto TBS lanind 0 eq {(Buntton: )} {(Hue: )} ifelse show TBIS (h*) show TBL 0 -50 rmoveto jbild 0 eq {cname6 0 get show} if jbild 1 eq {cname6 1 get show} if jbild 2 eq {cname6 2 get show} if 0 50 rmoveto TBS (=) show jbild 0 eq {angle6 0 get cvishow} if jbild 1 eq {angle6 1 get cvishow} if jbild 2 eq {angle6 2 get cvishow} if (/360; ) show TBIS (h*) show TBL 0 -50 rmoveto jbild 0 eq {cname6 3 get show % olvrgb 1 eq {0 -50 rmoveto (gb) show 0 50 rmoveto} if } if jbild 1 eq {cname6 4 get show} if jbild 2 eq {cname6 5 get show % olvrgb 1 eq {0 -50 rmoveto (br) show 0 50 rmoveto} if } if 0 50 rmoveto TBS (=) show jbild 0 eq {angle6 3 get cvishow} if jbild 1 eq {angle6 4 get cvishow} if jbild 2 eq {angle6 5 get cvishow} if (/360) show } if %jbild#3 xchartl 0 ge xchartl 3 le and {%0<=xchartl<=3 -3200 4400 moveto TBS (Linear relation ) showen (Beziehung ) showde TBS (CIELAB \050) show TBIS (L*, a*, b*) show TBS (\051) show TBS ( and ) showen ( und ) showde TBIS (adapted (a) ) showen (adaptiertes (a) ) showde TBS (CIELAB \050) show TBIS (C*) show TBL 0 -50 rmoveto (ab,a) show 0 50 rmoveto TBS (, ) show TBIS (L*) show TBS (\051) show x400 4100 moveto TBIS (l*) show TBL 0 -50 rmoveto (lab*) show 0 50 rmoveto TBS (=\050 ) show TBIS (L*) show TBS ( - ) show TBIS (L*) show 0 -50 rmoveto TBL (N) show 0 50 rmoveto TBS ( \051 / \050) show TBIS (L*) show 0 -50 rmoveto TBL (W) show 0 50 rmoveto ( - ) show TBIS (L*) show 0 -50 rmoveto TBL (N) show 0 50 rmoveto TBS ( \051) show x400 3800 moveto TBIS (a*) show 0 -50 rmoveto TBL (a) show 0 50 rmoveto TBS (=) show TBIS (a*) show TBS ( - ) show TBIS (a*) show 0 -50 rmoveto TBL (N) show 0 50 rmoveto TBS ( - ) show TBIS (l*) show TBL 0 -50 rmoveto (lab*) show 0 50 rmoveto TBS ( [ ) show TBIS (a*) show 0 -50 rmoveto TBL (W) show 0 50 rmoveto TBS ( - ) show TBIS (a*) show 0 -50 rmoveto TBL (N) show 0 50 rmoveto TBS ( ]) show x400 3500 moveto TBIS (b*) show 0 -50 rmoveto TBL (a) show 0 50 rmoveto TBS (=) show TBIS (b*) show TBS ( - ) show TBIS (b*) show 0 -50 rmoveto TBL (N) show 0 50 rmoveto TBS ( - ) show TBIS (l*) show TBL 0 -50 rmoveto (lab*) show 0 50 rmoveto TBS ( [ ) show TBIS (b*) show 0 -50 rmoveto TBL (W) show 0 50 rmoveto TBS ( - ) show TBIS (b*) show 0 -50 rmoveto TBL (N) show 0 50 rmoveto TBS ( ]) show x400 500 add 3200 moveto TBIS (C*) show 0 -50 rmoveto TBL (ab,a) show 0 50 rmoveto TBS (=[ ) show TBIS (a*) show 0 -50 rmoveto TBL (a) show 0 050 rmoveto 0 100 rmoveto TBL (2) show 0 -100 rmoveto TBS ( + ) show TBIS (b*) show 0 -50 rmoveto TBL (a) show 0 050 rmoveto 0 100 rmoveto TBL (2) show 0 -100 rmoveto TBS ( ] ) show 0 100 rmoveto TBL (1/2) show 0 -100 rmoveto } if %0<=xchartl<=3 xchartl 4 ge xchartl 7 le and {%4<=xchartl<=7 -3200 4400 moveto %TBS (Linear relation ) showen (Beziehung ) showde TBIS (Adapted (a) ) showen (Adaptiertes (a) ) showde TBS (CIELAB \050) show TBIS (C*) show TBL 0 -50 rmoveto (ab,a) show 0 50 rmoveto TBS (, ) show TBIS (L*) show TBS (\051) show TBS ( and ) showen ( und ) showde TBIS (relative ) showen (relatives ) showde TBS (CIELAB \050) show TBIS (c*) show 0 -50 rmoveto TBL (lab*) show 0 50 rmoveto TBS (, ) show TBIS (l*) show 0 -50 rmoveto TBL (lab*) show 0 50 rmoveto TBS (\051) show x700 4100 moveto TBIS (l*) show 0 -50 rmoveto TBL (lab*) show 0 50 rmoveto TBS (=\050 ) show TBIS (L*) show TBS ( - ) show TBIS (L*) show 0 -50 rmoveto TBL (N) show 0 50 rmoveto TBS ( \051 / \050) show TBIS (L*) show 0 -50 rmoveto TBL (W) show 0 50 rmoveto ( - ) show TBIS (L*) show 0 -50 rmoveto TBL (N) show 0 50 rmoveto TBS ( \051) show x700 3800 moveto TBIS (c*) show 0 -50 rmoveto TBL (lab*) show 0 50 rmoveto TBS (=) show TBIS (C*) show 0 -50 rmoveto TBL (ab,a) show 0 50 rmoveto TBS ( / ) show TBIS (C*) show 0 -50 rmoveto TBL (ab,a,M) show 0 50 rmoveto x700 3500 moveto TBIS (M) show TBS (=Maximum colour) showen (=Maximalfarbe) showde } if %4<=xchartl<=7 xchartl 8 ge xchartl 11 le and {%8<=xchartl<=11 -3200 4400 moveto TBS (Linear relation ) showen (Beziehung ) showde TBIS (adapted (a) ) showen (adaptiertes (a) ) showde TBS (CIELAB \050) show TBIS (C*) show TBL 0 -50 rmoveto (ab,a) show 0 50 rmoveto TBS (, ) show TBIS (L*) show TBS (\051) show TBS ( and ) showen ( und ) showde TBIS (relative ) showen (relatives ) showde TBS (CIELAB \050) show TBIS (c*) show TBS (, ) show TBIS (t*) show TBS (\051) show x700 4100 moveto TBIS (l*) show 0 -50 rmoveto TBL (M) show 0 50 rmoveto TBS (=\050) show TBIS (L*) show 0 -50 rmoveto TBL (M) show 0 50 rmoveto TBS ( - ) show TBIS (L*) show 0 -50 rmoveto TBL (N) show 0 50 rmoveto TBS (\051 / \050) show TBIS (L*) show 0 -50 rmoveto TBL (W) show 0 50 rmoveto ( - ) show TBIS (L*) show 0 -50 rmoveto TBL (N) show 0 50 rmoveto TBS (\051) show x700 3800 moveto TBIS (t*) show TBL 0 -50 rmoveto (lab*) show 0 50 rmoveto TBS (=) show TBIS (l*) show TBL 0 -50 rmoveto (lab*) show 0 50 rmoveto TBS ( - ) show TBIS (c*) show TBL 0 -50 rmoveto (lab*) show 0 50 rmoveto TBS ( [ ) show TBIS (l*) show %TBL 0 -50 rmoveto (lab*) show 0 50 rmoveto 0 -50 rmoveto TBL (M) show 0 50 rmoveto TBS ( - 0,5 ]) show x700 3500 moveto TBIS (c*) show TBL 0 -50 rmoveto (lab*) show 0 50 rmoveto TBS (=) show TBIS (C*) show 0 -50 rmoveto TBL (ab,a) show 0 50 rmoveto TBS ( / ) show TBIS (C*) show 0 -50 rmoveto TBL (ab,a,M) show 0 50 rmoveto 700 3200 moveto TBIS (M) show TBS (=Maximum colour) showen (=Maximalfarbe) showde } if %8<=xchartl<=11 xchartl 12 ge xchartl 15 le and {%12<=xchartl<=15 -3200 4400 moveto TBS (Linear relation ) showen (Beziehung ) showde TBIS olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show TBS ( and ) showen ( und ) showde TBIS (relative ) show TBS (chroma ) showen (Buntheit ) showde TBIS (c*) show TBL 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto xchartl 03 ne xchartl 07 ne and xchartl 11 ne and xchartl 15 ne and {%xchart #3,7,11,15 or =3,7,11,15 TBS ( and triangle lightness ) showen ( und Dreiecks\255Helligkeit ) showde TBIS (t*) show TBL 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto } %xchart #3,7,11,15 %********************************************************************************* { %xchart =3,7,11,15 TBS ( or chroma ) showen ( oder Buntheit ) showde TBIS (a) show xchartl 12 ge {(*) show} if TBL 0 -50 rmoveto xchartl 0 ge xchartl 3 le and {(rgb) show} if xchartl 4 ge xchartl 7 le and {(olv) show} if xchartl 8 ge xchartl 11 le and {olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show} if xchartl 12 ge xchartl 15 le and {olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show} if TBL 0 50 rmoveto TBS (, ) show TBIS (b) show xchartl 12 ge {(*) show} if TBL 0 -50 rmoveto xchartl 0 ge xchartl 3 le and {(rgb) show} if xchartl 4 ge xchartl 7 le and {(olv) show} if xchartl 8 ge xchartl 11 le and {olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show} if xchartl 12 ge xchartl 15 le and {olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show} if TBL 0 50 rmoveto } ifelse %xchart #3,7,11,15 or =3,7,11,15 x700 4100 moveto TBIS (c*) show TBL 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto TBS (=max \050) show TBIS olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show TBS (\051 - min \050) show TBIS olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show TBS (\051) show x700 3800 moveto TBIS (n*) show %TBL 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto TBS (=1 - max \050) show TBIS olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show TBS (\051) show TBS (= 1 - ) show TBIS (i*) show %TBL 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto x700 3500 moveto TBIS (w*) show %TBL 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto TBS (=min \050) show TBIS olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show TBS (\051) show TBS (= 1 - ) show TBIS (d*) show %TBL 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto x700 3200 moveto TBIS (t*) show TBL 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto TBS (=) show TBIS (w*) show %TBL 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto TBS ( + 0,5 ) show TBIS (c*) show TBL 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto xchartl 14 le { 700 2900 moveto TBIS (M) show TBS (=Maximum colour) showen (=Maximalfarbe) showde } if } if %12<=xchartl<=15 xchartl 2 le { 1500 150 moveto TBK (chroma) showen (Buntheit) showde 2500 150 moveto TBIK (C*) show TS 0 -50 rmoveto (ab,a) show -1600 3100 moveto TBK (lightness) showen (Helligkeit) showde -350 3100 moveto TBIK (L*) show } if grestore gsave xchart 3 le {0.75 dup scale} {0.80 dup scale} ifelse xchartl 03 ne xchartl 07 ne and xchartl 11 ne and xchartl 15 ne and {%xchart #3,7,11,15 or =3,7,11,15 xchartl 1 eq xcolor 2 eq xcolor 3 eq or and { 200 0 translate} if %special shift for J-B xchartl 1 eq xcolor 4 eq xcolor 5 eq or and {-300 0 translate} if %special shift for J-B xchartl 1 eq xcolor 6 eq xcolor 7 eq or and { 200 0 translate} if %special shift for J-B /j729 0 def xchartl 0 eq xchartl 4 eq or xchartl 8 eq or xchartl 12 eq or {/j1 729 j729 sub 10 mul def} if %series O-C xchartl 1 eq xchartl 5 eq or xchartl 9 eq or xchartl 13 eq or {/j1 729 j729 sub 081 add 10 mul def} if %series Y-V xchartl 2 eq xchartl 6 eq or xchartl 10 eq or xchartl 14 eq or {/j1 729 j729 sub 162 add 10 mul def} if %series L-M 0 1 080 {/i exch def %i=0,080 /i10 j1 i 10 mul add def LUTL* i LUT i10 0 add get 100 div put LUTA* i LUT i10 1 add get 100 div put LUTB* i LUT i10 2 add get 100 div put LUTr* i LUT i10 3 add get 1000 div put LUTg* i LUT i10 4 add get 1000 div put LUTb* i LUT i10 5 add get 1000 div put C*ab i LUTA* i get dup mul LUTB* i get dup mul add 0.000001 add sqrt put L* i LUTL* i get put } for %i=0,080 % 801 737 809 729 882 818 890 810 963 899 971 891 % j01 b09 j09 b01 j10 b18 j18 b10 j19 b27 j27 b19 % O C N1 W1 Y V N2 W2 L M N3 W3 xchartl 0 eq xchartl 4 eq or xchartl 8 eq or xchartl 12 eq or {/index [801 737 809 729] def} if %O,C,N1,W1 xchartl 1 eq xchartl 5 eq or xchartl 9 eq or xchartl 13 eq or {/index [882 818 890 810] def} if %Y,V,N2,W2 xchartl 2 eq xchartl 6 eq or xchartl 10 eq or xchartl 14 eq or {/index [963 899 971 891] def} if %L,M,N1,W2 0 1 3 {/i exch def %i=0,3 %standard colours at the end /i10 index i get j729 sub 10 mul def /i81 81 i add def LUTL* i81 LUT i10 0 add get 100 div put LUTA* i81 LUT i10 1 add get 100 div put LUTB* i81 LUT i10 2 add get 100 div put LUTr* i81 LUT i10 3 add get 1000 div put LUTg* i81 LUT i10 4 add get 1000 div put LUTb* i81 LUT i10 5 add get 1000 div put C*ab i81 LUTA* i81 get dup mul LUTB* i81 get dup mul add 0.000001 add sqrt put L* i81 LUTL* i81 get put } for %i=0,3 /L*WN LUTL* 84 get LUTL* 83 get sub def 0 1 084 {/i exch def %i=0,084 LUTl* i LUTL* i get LUTL* 83 get sub L*WN 0.000001 add div put LUTc1* i C*ab i get C*ab 81 get 0.000001 add div put LUTc2* i C*ab i get C*ab 82 get 0.000001 add div put LUTt1* i LUTl* i get LUTc1* i get L* 81 get L* 83 get sub L*WN 0.000001 add div 0.5 sub mul sub put LUTt2* i LUTl* i get LUTc2* i get L* 82 get L* 83 get sub L*WN 0.000001 add div 0.5 sub mul sub put LUTr* i get 0 lt {LUTr* i 0 put} if LUTg* i get 0 lt {LUTg* i 0 put} if LUTb* i get 0 lt {LUTb* i 0 put} if LUTr* i get 1 gt {LUTr* i 1 put} if LUTg* i get 1 gt {LUTg* i 1 put} if LUTb* i get 1 gt {LUTb* i 1 put} if %maximum /max LUTr* i get def %rgb brilliantness LUTg* i get max gt {/max LUTg* i get def} if LUTb* i get max gt {/max LUTb* i get def} if %minimum /min LUTr* i get def %rgb whiteness LUTg* i get min lt {/min LUTg* i get def} if LUTb* i get min lt {/min LUTb* i get def} if LUTc*rgb i max min sub put %rgb chroma LUTt*rgb i min max min sub 0.5 mul add put %rgb triangle lightness } for %i=0,084 %axis and scales 1 setgray -3000 0 moveto 6250 0 rlineto stroke 0 -080 moveto 0 3600 rlineto stroke 3250 100 sub 50 moveto 100 -50 rlineto -100 -50 rlineto closepath fill 0 50 sub 3600 100 sub moveto 50 100 rlineto 50 -100 rlineto closepath fill 0 setgray TS /xt001 9 array def /xt001 [(-1,0) () (-0,5) ( ) ( 0) () ( 0,5) () () ] def %( 1,0)] def /yt001 5 array def /yt001 [( ) () (0,5) ( ) (1,0)] def /xt100 9 array def /xt100 [(-100) () ( -50) ( ) ( 0) () ( 50) () (100)] def /yt100 5 array def /yt100 [( ) () (50) ( ) (100)] def 0 1 8 {/i exch def %i=0,8 -3000 i 750 mul add -50 moveto 0 100 rlineto stroke -3200 i 750 mul add -250 moveto xchartl 3 le {xt100}{xt001} ifelse i get show } for %i=0,8 0 1 4 {/i exch def %i=0,4 -75 0 i 750 mul add moveto 150 0 rlineto stroke 30 50 i 750 mul add moveto xchartl 3 le {yt100}{yt001} ifelse i get show } for %i=0,4 xchartl 4 ge xchartl 7 le and { 1 setgray -2800 3100 moveto TBIK (relative ) show TBK (lightness) showen (Helligkeit) showde -600 3100 moveto TBIK (l*) show xchartl 11 le {TS 0 -50 rmoveto (lab*) show 0 50 rmoveto} if } if xchartl 8 ge { 1 setgray -2800 3100 moveto TBK (triangle lightness) showen (Dreiecks\255Helligkeit) showde -600 3100 moveto TBIK (t*) show xchartl 11 le {TS 0 -50 rmoveto (lab*) show 0 50 rmoveto} if xchartl 12 ge {TS 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto} if } if xchartl 4 ge { 1000 150 moveto TBIK (relative ) show TBK (chroma) showen (Buntheit) showde 2800 150 moveto TBIK (c*) show xchartl 11 le {TS 0 -50 rmoveto (lab*) show 0 50 rmoveto} if xchartl 12 ge {TS 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto} if } if xchartl 12 ge { 1500 2350 moveto TBIS (n*) show %TBL 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto TBS (=0; ) show TBIS (i*) show %TBL 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto TBS (=1) show 1500 0550 moveto TBIS (w*) show %TBL 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto TBS (=0; ) show TBIS (d*) show %TBL 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto TBS (=1) show } if /fakt 30 def /fakt2 3000 def 100 /Times-ISOL1 FS /j1 0 def /k1 0 def /k2 3 def newpath xchartl 0 ge xchartl 2 le and {%0<=xchartl <=2 %********************************************************************** 100 /Times-ISOL1 FS %********************************************************************** /Vorz 1 def k1 1 k2 {/k exch def %k=0,3 k 0 eq {/j2 8 def /j0 72 def} if %row j01 to j09: O-N k 1 eq {/j2 6 def /j0 64 def} if %row i02 to i08: O-N k 2 eq {/j2 4 def /j0 56 def} if %row h03 to h07: O-N k 3 eq {/j2 2 def /j0 48 def} if %row g04 to g06: O-N j1 1 j2 {/j exch def %j=j1,j2 %lines /ja j0 j add def L* j LUTL* ja get put C*ab j LUTA* ja get dup mul LUTB* ja get dup mul add sqrt Vorz mul put LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor C*ab j get fakt mul L* j get fakt mul 050 0 360 arc fill j 1 ge { C*ab j 1 sub get fakt mul L* j 1 sub get fakt mul moveto C*ab j get fakt mul L* j get fakt mul lineto stroke } if j 8 eq {k 0 eq {%k=0 icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor C*ab j get fakt mul L* j get fakt mul moveto C*ab 0 get fakt mul L* 0 get fakt mul lineto stroke } if %k=0 } if } for %j=j1,j2 } for %k=0,3 %********************************************************************** /Vorz 1 def %spalte e05 bis e05: W-O 0 1 0 {/j exch def %j=0,0 %lines /ja j 40 add def L* j LUTL* ja get put C*ab j LUTA* ja get dup mul LUTB* ja get dup mul add sqrt Vorz mul put newpath LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor C*ab j get fakt mul L* j get fakt mul 050 0 360 arc fill 1 setgray 10 setlinewidth C*ab j get fakt mul L* j get fakt mul 055 0 360 arc stroke 20 setlinewidth newpath } for %j=0,0 k1 1 k2 {/k exch def %k=0,3 k 0 eq {/j2 8 def /j0 00 def} if %line b01 to j01: W-O k 1 eq {/j2 6 def /j0 10 def} if %line c02 to i02: W-O k 2 eq {/j2 4 def /j0 20 def} if %line d03 to h03: W-O k 3 eq {/j2 2 def /j0 30 def} if %line e04 to g04: W-O j1 1 j2 {/j exch def %j=j1,j2 %lines /ja j0 j 9 mul add def L* j LUTL* ja get put C*ab j LUTA* ja get dup mul LUTB* ja get dup mul add sqrt Vorz mul put LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor C*ab j get fakt mul L* j get fakt mul 050 0 360 arc fill j 1 ge {C*ab j 1 sub get fakt mul L* j 1 sub get fakt mul moveto C*ab j get fakt mul L* j get fakt mul lineto stroke } if j 8 eq {k 0 eq {%k=0 icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor C*ab j get fakt mul L* j get fakt mul moveto C*ab 0 get fakt mul L* 0 get fakt mul lineto stroke C*ab j get fakt mul L* j get fakt mul 070 0 360 arc stroke } if %k=0 LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor newpath 250 /TimesBI-ISOL1 FS /xadd0 [-200 -200 -200] def /yadd0 [250 250 250] def /xadd1 [-200 -200 -200] def /yadd1 [250 250 250] def C*ab j get fakt mul olvrgb 0 eq {xadd0} {xadd1} ifelse xchartl get add 200 sub L* j get fakt mul olvrgb 0 eq {yadd0} {yadd1} ifelse xchartl get add moveto cname6 xchartl get show 1 setgray C*ab j get fakt mul 580 sub L* j get fakt mul 700 sub moveto TBS (\050) show TBIS (C*) show 0 -50 rmoveto TBL (ab,a,M) show 0 50 rmoveto TBIS (,) show C*ab j get fakt mul 580 sub L* j get fakt mul 700 sub 300 sub moveto TBIS ( L*) show 0 -50 rmoveto TBL (M) show 0 50 rmoveto TBS (\051) show newpath } if } for %j=j1,j2 } for %k=0,3 %********************************************************************** /Vorz -1 def k1 1 k2 {/k exch def %k=0,3 k 0 eq {/j2 8 def /j0 08 def} if %line b09 to j09: C-N k 1 eq {/j2 6 def /j0 16 def} if %line c08 to i08: C-N k 2 eq {/j2 4 def /j0 24 def} if %line d07 to h07: C-N k 3 eq {/j2 2 def /j0 32 def} if %line e06 to h06: C-N j1 1 j2 {/j exch def %j=j1,j2 %lines /ja j0 j 9 mul add def L* j LUTL* ja get put C*ab j LUTA* ja get dup mul LUTB* ja get dup mul add sqrt Vorz mul put LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor C*ab j get fakt mul L* j get fakt mul 050 0 360 arc fill j 1 ge {C*ab j 1 sub get fakt mul L* j 1 sub get fakt mul moveto C*ab j get fakt mul L* j get fakt mul lineto stroke } if j 8 eq {k 0 eq {%k=0 icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor C*ab j get fakt mul L* j get fakt mul moveto C*ab 0 get fakt mul L* 0 get fakt mul lineto stroke } if %k=0 } if } for %j=j1,j2 } for %k=0,3 %********************************************************************** /Vorz -1 def %spalte e05 bis e05: W-C 0 1 0 {/j exch def %j=0,0 %lines /ja j 40 add def L* j LUTL* ja get put C*ab j LUTA* ja get dup mul LUTB* ja get dup mul add sqrt Vorz mul put newpath LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor C*ab j get fakt mul L* j get fakt mul 050 0 360 arc fill 1 setgray 10 setlinewidth C*ab j get fakt mul L* j get fakt mul 055 0 360 arc stroke 20 setlinewidth newpath } for %j=0,0 k1 1 k2 {/k exch def %k=0,3 k 0 eq {/j2 8 def /j0 00 def} if %row b01 to b09: W-C k 1 eq {/j2 6 def /j0 10 def} if %row c02 to c08: W-C k 2 eq {/j2 4 def /j0 20 def} if %row d03 to d07: W-C k 3 eq {/j2 2 def /j0 30 def} if %row e04 to e06: W-C j1 1 j2 {/j exch def %j=j1,j2 %rows /ja j0 j add def L* j LUTL* ja get put C*ab j LUTA* ja get dup mul LUTB* ja get dup mul add sqrt Vorz mul put LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor C*ab j get fakt mul L* j get fakt mul 050 0 360 arc fill j 1 ge {C*ab j 1 sub get fakt mul L* j 1 sub get fakt mul moveto C*ab j get fakt mul L* j get fakt mul lineto stroke } if j 8 eq {k 0 eq {%k=0 icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor C*ab j get fakt mul L* j get fakt mul moveto C*ab 0 get fakt mul L* 0 get fakt mul lineto stroke C*ab j get fakt mul L* j get fakt mul 070 0 360 arc stroke } if %k=0 LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor newpath 250 /TimesBI-ISOL1 FS /xadd0 [-400 -400 -400] def /yadd0 [-400 250 -400] def /xadd1 [-400 -400 -400] def /yadd1 [-400 250 -400] def C*ab j get fakt mul olvrgb 0 eq {xadd0} {xadd1} ifelse xchartl get add 300 add L* j get fakt mul olvrgb 0 eq {yadd0} {yadd1} ifelse xchartl get add 200 sub moveto cname6 3 xchartl add get show newpath } if } for %j=j1,j2 } for %k=0,3 /fakt 30 def icolor 1 eq {%icolor=1 0 0 0 setrgbcolor /i24 xcolor 2 idiv 24 mul def /C*abW 0 def /C*abN 0 def /L*aN LAB*FaG100 6 3 mul i24 add get def /L*aW LAB*FaG100 7 3 mul i24 add get def /j xchartl def /j30 j 3 mul i24 add def /j31 j30 1 add def /j32 j30 2 add def /C*abM LAB*FaG100 j31 get dup mul LAB*FaG100 j32 get dup mul add 0.0001 add sqrt def C*abN fakt mul L*aN fakt mul moveto C*abM fakt mul LAB*FaG100 j30 get fakt mul lineto C*abW fakt mul L*aW fakt mul lineto stroke /j xchartl 3 add def /j30 j 3 mul i24 add def /j31 j30 1 add def /j32 j30 2 add def /C*abM LAB*FaG100 j31 get dup mul LAB*FaG100 j32 get dup mul add 0.0001 add sqrt def C*abN fakt mul neg L*aN fakt mul moveto C*abM fakt mul neg LAB*FaG100 j30 get fakt mul lineto C*abW fakt mul neg L*aW fakt mul lineto stroke } if %icolor=1 %********************************************************************** } if %0<=xchartl <=2 newpath xchartl 4 ge xchartl 6 le and {%4<=xchartl <=6 %********************************************************************** 100 /Times-ISOL1 FS /Vorz 1 def k1 1 k2 {/k exch def %k=0,3 k 0 eq {/j2 8 def /j0 72 def} if %row j01 to j09: O-N k 1 eq {/j2 6 def /j0 64 def} if %row i02 to i08: O-N k 2 eq {/j2 4 def /j0 56 def} if %row h03 to h07: O-N k 3 eq {/j2 2 def /j0 48 def} if %row g04 to g06: O-N j1 1 j2 {/j exch def %j=j1,j2 %lines /ja j0 j add def l1* j LUTl* ja get put c1* j LUTc1* ja get put LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor c1* j get fakt2 mul Vorz mul l1* j get fakt2 mul 050 0 360 arc fill j 1 ge {c1* j 1 sub get fakt2 mul Vorz mul l1* j 1 sub get fakt2 mul moveto c1* j get fakt2 mul Vorz mul l1* j get fakt2 mul lineto stroke } if j 8 eq {k 0 eq {%k=0 icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor c1* j get fakt2 mul Vorz mul l1* j get fakt2 mul moveto c1* 0 get fakt2 mul Vorz mul l1* 0 get fakt2 mul lineto stroke } if %k=0 } if } for %j=j1,j2 } for %k=0,3 %********************************************************************** /Vorz 1 def %spalte e05 bis e05: W-O 0 1 0 {/j exch def %j=0,0 %lines /ja j 40 add def l1* j LUTl* ja get put c1* j LUTc1* ja get put newpath LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor c1* j get fakt2 mul Vorz mul l1* j get fakt2 mul 050 0 360 arc fill 1 setgray 10 setlinewidth c1* j get fakt2 mul Vorz mul l1* j get fakt2 mul 055 0 360 arc stroke 20 setlinewidth newpath } for %j=0,0 k1 1 k2 {/k exch def %k=0,3 k 0 eq {/j2 8 def /j0 00 def} if %line b01 to j01: W-O k 1 eq {/j2 6 def /j0 10 def} if %line c02 to i02: W-O k 2 eq {/j2 4 def /j0 20 def} if %line d03 to h03: W-O k 3 eq {/j2 2 def /j0 30 def} if %line e04 to g04: W-O j1 1 j2 {/j exch def %j=j1,j2 %lines /ja j0 j 9 mul add def l1* j LUTl* ja get put c1* j LUTc1* ja get put LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor c1* j get fakt2 mul Vorz mul l1* j get fakt2 mul 050 0 360 arc fill j 1 ge {c1* j 1 sub get fakt2 mul Vorz mul l1* j 1 sub get fakt2 mul moveto c1* j get fakt2 mul Vorz mul l1* j get fakt2 mul lineto stroke } if j 8 eq {k 0 eq {%k=0 icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor c1* j get fakt2 mul Vorz mul l1* j get fakt2 mul moveto c1* 0 get fakt2 mul Vorz mul l1* 0 get fakt2 mul lineto stroke c1* j get fakt2 mul Vorz mul l1* j get fakt2 mul 070 0 360 arc stroke } if %k=0 LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor newpath 250 /TimesBI-ISOL1 FS /xadd0 [-200 -200 -200] def /yadd0 [250 250 250] def /xadd1 [-200 -200 -200] def /yadd1 [250 250 250] def c1* j get fakt2 mul Vorz mul olvrgb 0 eq {xadd0} {xadd1} ifelse xchartl 4 sub get add l1* j get fakt2 mul olvrgb 0 eq {yadd0} {yadd1} ifelse xchartl 4 sub get add moveto cname6 xchartl 4 sub get show 1 setgray c1* j get fakt2 mul Vorz mul 580 sub l1* j get fakt2 mul 600 sub moveto TBS (\050) show TBIS (c*) show 0 -50 rmoveto TBL (M) show 0 50 rmoveto TBIS (, l*) show 0 -50 rmoveto TBL (M) show 0 50 rmoveto TBS (\051) show newpath } if } for %j=j1,j2 } for %k=0,3 %********************************************************************** /Vorz -1 def k1 1 k2 {/k exch def %k=0,3 k 0 eq {/j2 8 def /j0 08 def} if %line b09 to j09: C-N k 1 eq {/j2 6 def /j0 16 def} if %line c08 to i08: C-N k 2 eq {/j2 4 def /j0 24 def} if %line d07 to h07: C-N k 3 eq {/j2 2 def /j0 32 def} if %line e06 to h06: C-N j1 1 j2 {/j exch def %j=j1,j2 %lines /ja j0 j 9 mul add def l2* j LUTl* ja get put c2* j LUTc2* ja get put LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor c2* j get fakt2 mul Vorz mul l2* j get fakt2 mul 050 0 360 arc fill j 1 ge {c2* j 1 sub get fakt2 mul Vorz mul l2* j 1 sub get fakt2 mul moveto c2* j get fakt2 mul Vorz mul l2* j get fakt2 mul lineto stroke } if j 8 eq {k 0 eq {%k=0 icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor c2* j get fakt2 mul Vorz mul l2* j get fakt2 mul moveto c2* 0 get fakt2 mul Vorz mul l2* 0 get fakt2 mul lineto stroke } if %k=0 } if } for %j=j1,j2 } for %k=0,3 %********************************************************************** /Vorz -1 def %spalte e05 bis e05: W-C 0 1 0 {/j exch def %j=0,0 %lines /ja j 40 add def l2* j LUTl* ja get put c2* j LUTc1* ja get put newpath LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor c2* j get fakt2 mul Vorz mul l2* j get fakt2 mul 050 0 360 arc fill 1 setgray 10 setlinewidth c2* j get fakt2 mul Vorz mul l2* j get fakt2 mul 055 0 360 arc stroke 20 setlinewidth newpath } for %j=0,0 k1 1 k2 {/k exch def %k=0,3 k 0 eq {/j2 8 def /j0 00 def} if %row b01 to b09: W-C k 1 eq {/j2 6 def /j0 10 def} if %row c02 to c08: W-C k 2 eq {/j2 4 def /j0 20 def} if %row d03 to d07: W-C k 3 eq {/j2 2 def /j0 30 def} if %row e04 to e06: W-C j1 1 j2 {/j exch def %j=j1,j2 %rows /ja j0 j add def l2* j LUTl* ja get put c2* j LUTc2* ja get put LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor c2* j get fakt2 mul Vorz mul l2* j get fakt2 mul 050 0 360 arc fill j 1 ge {c2* j 1 sub get fakt2 mul Vorz mul l2* j 1 sub get fakt2 mul moveto c2* j get fakt2 mul Vorz mul l2* j get fakt2 mul lineto stroke } if j 8 eq {k 0 eq {%k=0 icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor c2* j get fakt2 mul Vorz mul l2* j get fakt2 mul moveto c2* 0 get fakt2 mul Vorz mul l2* 0 get fakt2 mul lineto stroke c2* j get fakt2 mul Vorz mul l2* j get fakt2 mul 070 0 360 arc stroke } if %k=0 LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor newpath 250 /TimesBI-ISOL1 FS /xadd0 [-000 -400 -400] def /yadd0 [-400 250 -400] def /xadd1 [-000 -400 -400] def /yadd1 [-400 250 -400] def c2* j get fakt2 mul Vorz mul olvrgb 0 eq {xadd0} {xadd1} ifelse xchartl 4 sub get add l2* j get fakt2 mul olvrgb 0 eq {yadd0} {yadd1} ifelse xchartl 4 sub get add moveto cname6 xchartl 4 sub 3 add get show newpath } if } for %j=j1,j2 } for %k=0,3 %********************************************************************** } if %4<=xchartl <=6 newpath xchartl 8 ge xchartl 10 le and {%8<=xchartl <=10 %********************************************************************** 100 /Times-ISOL1 FS /Vorz 1 def k1 1 k2 {/k exch def %k=0,3 k 0 eq {/j2 8 def /j0 72 def} if %row j01 to j09: O-N k 1 eq {/j2 6 def /j0 64 def} if %row i02 to i08: O-N k 2 eq {/j2 4 def /j0 56 def} if %row h03 to h07: O-N k 3 eq {/j2 2 def /j0 48 def} if %row g04 to g06: O-N j1 1 j2 {/j exch def %j=j1,j2 %lines /ja j0 j add def t1* j LUTt1* ja get put c1* j LUTc1* ja get put LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor c1* j get fakt2 mul Vorz mul t1* j get fakt2 mul 050 0 360 arc fill j 1 ge {c1* j 1 sub get fakt2 mul Vorz mul t1* j 1 sub get fakt2 mul moveto c1* j get fakt2 mul Vorz mul t1* j get fakt2 mul lineto stroke } if j 8 eq {k 0 eq {%k=0 icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor c1* j get fakt2 mul Vorz mul t1* j get fakt2 mul moveto c1* 0 get fakt2 mul Vorz mul t1* 0 get fakt2 mul lineto stroke } if %k=0 } if } for %j=j1,j2 } for %k=0,3 %********************************************************************** /Vorz 1 def %spalte e05 bis e05: W-O 0 1 0 {/j exch def %j=0,0 %lines /ja j 40 add def t1* j LUTt1* ja get put c1* j LUTc1* ja get put newpath LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor c1* j get fakt2 mul Vorz mul t1* j get fakt2 mul 050 0 360 arc fill 1 setgray 10 setlinewidth c1* j get fakt2 mul Vorz mul t1* j get fakt2 mul 055 0 360 arc stroke 20 setlinewidth newpath } for %j=0,0 k1 1 k2 {/k exch def %k=0,3 k 0 eq {/j2 8 def /j0 00 def} if %line b01 to j01: W-O k 1 eq {/j2 6 def /j0 10 def} if %line c02 to i02: W-O k 2 eq {/j2 4 def /j0 20 def} if %line d03 to h03: W-O k 3 eq {/j2 2 def /j0 30 def} if %line e04 to g04: W-O j1 1 j2 {/j exch def %j=j1,j2 %lines /ja j0 j 9 mul add def t1* j LUTt1* ja get put c1* j LUTc1* ja get put LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor c1* j get fakt2 mul Vorz mul t1* j get fakt2 mul 050 0 360 arc fill j 1 ge {c1* j 1 sub get fakt2 mul Vorz mul t1* j 1 sub get fakt2 mul moveto c1* j get fakt2 mul Vorz mul t1* j get fakt2 mul lineto stroke } if j 8 eq {k 0 eq {%k=0 icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor c1* j get fakt2 mul Vorz mul t1* j get fakt2 mul moveto c1* 0 get fakt2 mul Vorz mul t1* 0 get fakt2 mul lineto stroke c1* j get fakt2 mul Vorz mul t1* j get fakt2 mul 070 0 360 arc stroke } if %k=0 LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor newpath 250 /TimesBI-ISOL1 FS /xadd0 [-200 -200 -200] def /yadd0 [250 250 250] def /xadd1 [-200 -200 -200] def /yadd1 [250 250 250] def c1* j get fakt2 mul Vorz mul olvrgb 0 eq {xadd0} {xadd1} ifelse xchartl 8 sub get add t1* j get fakt2 mul olvrgb 0 eq {yadd0} {yadd1} ifelse xchartl 8 sub get add moveto cname6 xchartl 8 sub get show 1 setgray c1* j get fakt2 mul Vorz mul 580 sub t1* j get fakt2 mul 600 sub moveto TBS (\050) show TBIS (c*) show 0 -50 rmoveto TBL (M) show 0 50 rmoveto TBIS (, t*) show 0 -50 rmoveto TBL (M) show 0 50 rmoveto TBS (\051) show newpath } if } for %j=j1,j2 } for %k=0,3 %********************************************************************** /Vorz -1 def k1 1 k2 {/k exch def %k=0,3 k 0 eq {/j2 8 def /j0 08 def} if %line b09 to j09: C-N k 1 eq {/j2 6 def /j0 16 def} if %line c08 to i08: C-N k 2 eq {/j2 4 def /j0 24 def} if %line d07 to h07: C-N k 3 eq {/j2 2 def /j0 32 def} if %line e06 to h06: C-N j1 1 j2 {/j exch def %j=j1,j2 %lines /ja j0 j 9 mul add def t2* j LUTt2* ja get put c2* j LUTc2* ja get put LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor c2* j get fakt2 mul Vorz mul t2* j get fakt2 mul 050 0 360 arc fill j 1 ge {c2* j 1 sub get fakt2 mul Vorz mul t2* j 1 sub get fakt2 mul moveto c2* j get fakt2 mul Vorz mul t2* j get fakt2 mul lineto stroke } if j 8 eq {k 0 eq {%k=0 icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor c2* j get fakt2 mul Vorz mul t2* j get fakt2 mul moveto c2* 0 get fakt2 mul Vorz mul t2* 0 get fakt2 mul lineto stroke } if %k=0 } if } for %j=j1,j2 } for %k=0,3 %********************************************************************** /Vorz -1 def %spalte e05 bis e05: W-C 0 1 0 {/j exch def %j=0,0 %lines /ja j 40 add def t2* j LUTt1* ja get put c2* j LUTc1* ja get put newpath LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor c2* j get fakt2 mul Vorz mul t2* j get fakt2 mul 050 0 360 arc fill 1 setgray 10 setlinewidth c2* j get fakt2 mul Vorz mul t2* j get fakt2 mul 055 0 360 arc stroke 20 setlinewidth newpath } for %j=0,0 k1 1 k2 {/k exch def %k=0,3 k 0 eq {/j2 8 def /j0 00 def} if %row b01 to b09: W-C k 1 eq {/j2 6 def /j0 10 def} if %row c02 to c08: W-C k 2 eq {/j2 4 def /j0 20 def} if %row d03 to d07: W-C k 3 eq {/j2 2 def /j0 30 def} if %row e04 to e06: W-C j1 1 j2 {/j exch def %j=j1,j2 %rows /ja j0 j add def t2* j LUTt2* ja get put c2* j LUTc2* ja get put LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor c2* j get fakt2 mul Vorz mul t2* j get fakt2 mul 050 0 360 arc fill j 1 ge {c2* j 1 sub get fakt2 mul Vorz mul t2* j 1 sub get fakt2 mul moveto c2* j get fakt2 mul Vorz mul t2* j get fakt2 mul lineto stroke } if j 8 eq {k 0 eq {%k=0 icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor c2* j get fakt2 mul Vorz mul t2* j get fakt2 mul moveto c2* 0 get fakt2 mul Vorz mul t2* 0 get fakt2 mul lineto stroke c2* j get fakt2 mul Vorz mul t2* j get fakt2 mul 070 0 360 arc stroke } if %k=0 LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor newpath 250 /TimesBI-ISOL1 FS /xadd0 [-000 -400 -400] def /yadd0 [-400 250 -400] def /xadd1 [-000 -400 -400] def /yadd1 [-400 250 -400] def c2* j get fakt2 mul Vorz mul olvrgb 0 eq {xadd0} {xadd1} ifelse xchartl 8 sub get add t2* j get fakt2 mul olvrgb 0 eq {yadd0} {yadd1} ifelse xchartl 8 sub get add moveto cname6 xchartl 8 sub 3 add get show newpath } if } for %j=j1,j2 } for %k=0,3 %********************************************************************** } if %8<=xchartl <=10 newpath xchartl 12 ge xchartl 14 le and {%12<=xchartl <=14 %********************************************************************** 100 /Times-ISOL1 FS /Vorz 1 def k1 1 k2 {/k exch def %k=0,3 k 0 eq {/j2 8 def /j0 72 def} if %row j01 to j09: O-N k 1 eq {/j2 6 def /j0 64 def} if %row i02 to i08: O-N k 2 eq {/j2 4 def /j0 56 def} if %row h03 to h07: O-N k 3 eq {/j2 2 def /j0 48 def} if %row g04 to g06: O-N j1 1 j2 {/j exch def %j=j1,j2 %lines /ja j0 j add def t1*rgb j LUTt*rgb ja get put c1*rgb j LUTc*rgb ja get put LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor c1*rgb j get fakt2 mul Vorz mul t1*rgb j get fakt2 mul 050 0 360 arc fill j 1 ge {c1*rgb j 1 sub get fakt2 mul Vorz mul t1*rgb j 1 sub get fakt2 mul moveto c1*rgb j get fakt2 mul Vorz mul t1*rgb j get fakt2 mul lineto stroke } if j 8 eq {k 0 eq {%k=0 icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor c1*rgb j get fakt2 mul Vorz mul t1*rgb j get fakt2 mul moveto c1*rgb 0 get fakt2 mul Vorz mul t1*rgb 0 get fakt2 mul lineto stroke } if %k=0 } if } for %j=j1,j2 } for %k=0,3 %********************************************************************** /Vorz 1 def %spalte e05 bis e05: W-O 0 1 0 {/j exch def %j=0,0 %lines /ja j 40 add def t1*rgb j LUTt*rgb ja get put c1*rgb j LUTc*rgb ja get put newpath LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor c1*rgb j get fakt2 mul Vorz mul t1*rgb j get fakt2 mul 050 0 360 arc fill 1 setgray 10 setlinewidth c1*rgb j get fakt2 mul Vorz mul t1*rgb j get fakt2 mul 055 0 360 arc stroke 20 setlinewidth newpath } for %j=0,0 k1 1 k2 {/k exch def %k=0,3 k 0 eq {/j2 8 def /j0 00 def} if %line b01 to j01: W-O k 1 eq {/j2 6 def /j0 10 def} if %line c02 to i02: W-O k 2 eq {/j2 4 def /j0 20 def} if %line d03 to h03: W-O k 3 eq {/j2 2 def /j0 30 def} if %line e04 to g04: W-O j1 1 j2 {/j exch def %j=j1,j2 %lines /ja j0 j 9 mul add def t1*rgb j LUTt*rgb ja get put c1*rgb j LUTc*rgb ja get put LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor c1*rgb j get fakt2 mul Vorz mul t1*rgb j get fakt2 mul 050 0 360 arc fill j 1 ge {c1*rgb j 1 sub get fakt2 mul Vorz mul t1*rgb j 1 sub get fakt2 mul moveto c1*rgb j get fakt2 mul Vorz mul t1*rgb j get fakt2 mul lineto stroke } if j 8 eq {k 0 eq {%k=0 icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor c1*rgb j get fakt2 mul Vorz mul t1*rgb j get fakt2 mul moveto c1*rgb 0 get fakt2 mul Vorz mul t1*rgb 0 get fakt2 mul lineto stroke c1*rgb j get fakt2 mul Vorz mul t1*rgb j get fakt2 mul 070 0 360 arc stroke } if %k=0 LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor newpath 250 /TimesBI-ISOL1 FS /xadd0 [-200 -200 -200] def /yadd0 [250 250 250] def /xadd1 [-200 -200 -200] def /yadd1 [250 250 250] def c1*rgb j get fakt2 mul Vorz mul olvrgb 0 eq {xadd0} {xadd1} ifelse xchartl 12 sub get add t1*rgb j get fakt2 mul olvrgb 0 eq {yadd0} {yadd1} ifelse xchartl 12 sub get add moveto cname6 xchartl 12 sub get show 1 setgray c1*rgb j get fakt2 mul Vorz mul 580 sub t1*rgb j get fakt2 mul 600 sub moveto TBS (\050) show TBIS (c*) show 0 -50 rmoveto TBL (M) show 0 50 rmoveto TBIS (, t*) show 0 -50 rmoveto TBL (M) show 0 50 rmoveto TBS (\051) show newpath } if } for %j=j1,j2 } for %k=0,3 %********************************************************************** /Vorz -1 def k1 1 k2 {/k exch def %k=0,3 k 0 eq {/j2 8 def /j0 08 def} if %line b09 to j09: C-N k 1 eq {/j2 6 def /j0 16 def} if %line c08 to i08: C-N k 2 eq {/j2 4 def /j0 24 def} if %line d07 to h07: C-N k 3 eq {/j2 2 def /j0 32 def} if %line e06 to h06: C-N j1 1 j2 {/j exch def %j=j1,j2 %lines /ja j0 j 9 mul add def t2*rgb j LUTt*rgb ja get put c2*rgb j LUTc*rgb ja get put LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor c2*rgb j get fakt2 mul Vorz mul t2*rgb j get fakt2 mul 050 0 360 arc fill j 1 ge {c2*rgb j 1 sub get fakt2 mul Vorz mul t2*rgb j 1 sub get fakt2 mul moveto c2*rgb j get fakt2 mul Vorz mul t2*rgb j get fakt2 mul lineto stroke } if j 8 eq {k 0 eq {%k=0 icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor c2*rgb j get fakt2 mul Vorz mul t2*rgb j get fakt2 mul moveto c2*rgb 0 get fakt2 mul Vorz mul t2*rgb 0 get fakt2 mul lineto stroke } if %k=0 } if } for %j=j1,j2 } for %k=0,3 %********************************************************************** /Vorz -1 def %spalte e05 bis e05: W-C 0 1 0 {/j exch def %j=0,0 %lines /ja j 40 add def t2*rgb j LUTt*rgb ja get put c2*rgb j LUTc*rgb ja get put newpath LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor c2*rgb j get fakt2 mul Vorz mul t2*rgb j get fakt2 mul 050 0 360 arc fill 1 setgray 10 setlinewidth c2*rgb j get fakt2 mul Vorz mul t2*rgb j get fakt2 mul 055 0 360 arc stroke 20 setlinewidth newpath } for %j=0,0 k1 1 k2 {/k exch def %k=0,3 k 0 eq {/j2 8 def /j0 00 def} if %row b01 to b09: W-C k 1 eq {/j2 6 def /j0 10 def} if %row c02 to c08: W-C k 2 eq {/j2 4 def /j0 20 def} if %row d03 to d07: W-C k 3 eq {/j2 2 def /j0 30 def} if %row e04 to e06: W-C j1 1 j2 {/j exch def %j=j1,j2 %rows /ja j0 j add def t2*rgb j LUTt*rgb ja get put c2*rgb j LUTc*rgb ja get put LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor c2*rgb j get fakt2 mul Vorz mul t2*rgb j get fakt2 mul 050 0 360 arc fill j 1 ge {c2*rgb j 1 sub get fakt2 mul Vorz mul t2*rgb j 1 sub get fakt2 mul moveto c2*rgb j get fakt2 mul Vorz mul t2*rgb j get fakt2 mul lineto stroke } if j 8 eq {k 0 eq {%k=0 icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor c2*rgb j get fakt2 mul Vorz mul t2*rgb j get fakt2 mul moveto c2*rgb 0 get fakt2 mul Vorz mul t2*rgb 0 get fakt2 mul lineto stroke c2*rgb j get fakt2 mul Vorz mul t2*rgb j get fakt2 mul 070 0 360 arc stroke } if %k=0 LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor newpath 250 /TimesBI-ISOL1 FS /xadd0 [-000 -400 -400] def /yadd0 [-400 250 -400] def /xadd1 [-000 -400 -400] def /yadd1 [-400 250 -400] def c2*rgb j get fakt2 mul Vorz mul olvrgb 0 eq {xadd0} {xadd1} ifelse xchartl 12 sub get add t2*rgb j get fakt2 mul olvrgb 0 eq {yadd0} {yadd1} ifelse xchartl 12 sub get add moveto cname6 xchartl 12 sub 3 add get show newpath } if } for %j=j1,j2 } for %k=0,3 %********************************************************************** } if %12<=xchartl <=14 xchartl 1 eq xcolor 2 eq xcolor 3 eq or and {-200 0 translate} if %special shift for J-B TLS00a xchartl 1 eq xcolor 4 eq xcolor 5 eq or and { 300 0 translate} if %special shift for J-B FRS06a xchartl 1 eq xcolor 6 eq xcolor 7 eq or and {-200 0 translate} if %special shift for J-B TLS18a %********************************************************************** } %xchart #3,7,11,15 %********************************************************************************* { %xchart =3,7,11,15 1 setgray -3400 3900 moveto TBS (CIELAB) show (\255Bunttonwinkel: ) showde ( hue angles: ) showen -3400 3625 moveto TBIS (h) show 0 -50 rmoveto TBL (ab,d) show 0 50 rmoveto TBS (=[) show 0 1 5 {/i exch def %i=0,5 angle_olv i get cvishow i 5 ne {(, ) show} if } for %i=0,5 (]) show -3400 3350 moveto TBIS (h) show 0 -50 rmoveto TBL (ab,e) show 0 50 rmoveto TBS (=[) show 0 1 5 {/i exch def %i=0,5 angle_rgb i get cvishow i 5 ne {(, ) show} if } for %i=0,5 (]) show 1600 200 add 2900 moveto %xchartl 3 eq {200 sub} if 2900 moveto TBIS (a*) show TBL 0 -50 rmoveto xchartl 0 ge xchartl 3 le and {(a) show} if xchartl 4 ge xchartl 7 le and {(lab*) show} if xchartl 8 ge xchartl 11 le and {(lab*) show} if xchartl 12 ge xchartl 15 le and {olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show} if TBL 0 50 rmoveto TBS (=) show xchartl 4 le { TBIS (C*) show TBL 0 -50 rmoveto (ab,a) show TBL 0 50 rmoveto } { TBIS (c*) show TBL 0 -50 rmoveto xchartl 4 ge xchartl 7 le and {(lab*) show} if xchartl 8 ge xchartl 11 le and {(lab*) show} if xchartl 12 ge xchartl 15 le and {olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show} if TBL 0 50 rmoveto } ifelse TBIS ( cos h) show 0 -50 rmoveto TBL (ab) show 0 50 rmoveto 1600 200 add 2600 moveto %xchartl 3 eq {200 sub} if 2600 moveto TBIS (b*) show TBL 0 -50 rmoveto xchartl 0 ge xchartl 3 le and {(a) show} if xchartl 4 ge xchartl 7 le and {(lab*) show} if xchartl 8 ge xchartl 11 le and {(lab*) show} if xchartl 12 ge xchartl 15 le and {olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show} if TBL 0 50 rmoveto TBS (=) show xchartl 4 le { TBIS (C*) show TBL 0 -50 rmoveto (ab,a) show TBL 0 50 rmoveto } { TBIS (c*) show TBL 0 -50 rmoveto xchartl 4 ge xchartl 7 le and {(lab*) show} if xchartl 8 ge xchartl 11 le and {(lab*) show} if xchartl 12 ge xchartl 15 le and {olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show} if TBL 0 50 rmoveto } ifelse TBIS ( sin h) show 0 -50 rmoveto TBL (ab) show 0 50 rmoveto -400 200 add 3800 moveto %xchartl 11 le {300 add} if 3500 moveto TBIK (b*) show TBS 0 -50 rmoveto xchartl 0 ge xchartl 3 le and {(a) show} if xchartl 4 ge xchartl 7 le and {(lab*) show} if xchartl 8 ge xchartl 11 le and {(lab*) show} if xchartl 12 ge xchartl 15 le and {olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show} if TBS 0 50 rmoveto 1800 xchartl 3 le {700 add } if 1900 moveto xchartl 4 ge {TBIK (relative ) show} if TBK lanind 0 eq {(Buntheit ) showde} {(chroma ) showen} ifelse 2700 1650 moveto TBIK (a*) show TBS 0 -50 rmoveto xchartl 0 ge xchartl 3 le and {(a) show} if xchartl 4 ge xchartl 7 le and {(lab*) show} if xchartl 8 ge xchartl 11 le and {(lab*) show} if xchartl 12 ge xchartl 15 le and {olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show} if TBS 0 50 rmoveto %new shift in middle 0 1500 translate %axis and scales 1 setgray -3000 0 moveto 6300 0 rlineto stroke 0 -1880 moveto 0 3600 rlineto stroke 3300 100 sub 50 moveto 100 -50 rlineto -100 -50 rlineto closepath fill 0 50 sub 1800 100 sub moveto 50 100 rlineto 50 -100 rlineto closepath fill 0 setgray TS /xt001 9 array def /xt001 [(-2,0) () (-1,0) ( ) ( ) () () () () ]def %( 1,0) () ( 2,0)] def /yt001 5 array def /yt001 [(-1,0 ) () ( ) ( ) (1,0)] def /xt100 9 array def /xt100 [(-200) () (-100) ( ) ( ) () ( 100) () ( 200)] def /yt100 5 array def /yt100 [(-100 ) () ( ) ( ) (100)] def 2 1 6 {/i exch def %i=2,6 -3000 i 750 mul add -50 moveto 0 100 rlineto stroke -3650 i 850 mul add -200 moveto xchartl 3 le {xt100} {xt001} ifelse i get show } for %i=2,6 0 1 4 {/i exch def %i=0,4 -75 -1500 i 750 mul add moveto 150 0 rlineto stroke 100 -1650 i 800 mul add moveto xchartl 3 le {yt100} {yt001} ifelse i get show } for %i=0,4 newpath %********************************************************************** %For all xchartl=3,7,11,15 %Variable hue series O00Y-O83Y, Y00L-Y83L, L00C-L83C, % C00V-C83V, C00V-C83V, C00V-C83V-O00Y 250 /TimesBI-ISOL1 FS /fcolor1 1.10 def /fcolor2 1.20 def /j729 0 def 0 1 5 {/xtonj exch def %xton=0,5 0 1 7 {/j exch def %i=0,08 xtonj 0 eq {/j10 648 j729 sub j 09 mul add 10 mul def} if %series O00Y-O83Y, -09 xtonj 1 eq {/j10 720 j729 sub j 81 mul sub 10 mul def} if %series Y00L-Y83L, -81 xtonj 2 eq {/j10 072 j729 sub j add 10 mul def} if %series L00C-L83C, +01 xtonj 3 eq {/j10 080 j729 sub j 09 mul sub 10 mul def} if %series C00V-C83V, -09 xtonj 4 eq {/j10 008 j729 sub j 81 mul add 10 mul def} if %series C00V-C83V, -81 xtonj 5 eq {/j10 656 j729 sub j sub 10 mul def} if %series C00V-C83V, +01 LUTL* j LUT j10 0 add get 100 div put LUTA* j LUT j10 1 add get 100 div put LUTB* j LUT j10 2 add get 100 div put LUTr* j LUT j10 3 add get 1000 div put LUTg* j LUT j10 4 add get 1000 div put LUTb* j LUT j10 5 add get 1000 div put C*ab j LUTA* j get dup mul LUTB* j get dup mul add 0.000001 add sqrt put L* j LUTL* j get put LUTc*rgb j 1000 put } for %j=0,08 %********************************************************************** /j0 0 def /j1 0 def /j2 8 def /k 0 def /fakt 30 def /fakt1 15 def /fakt2 1500 def 0 1 7 {/j exch def %j=0,8 %lines /ja j0 j add def c1*rgb j LUTc*rgb ja get put C*ab j LUTA* ja get dup mul LUTB* ja get dup mul add sqrt put /angleWO LUTB* ja get LUTA* ja get 0.0001 add atan def LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor xchartl 3 le {%xchart=3 newpath C*ab j get fakt1 mul angleWO cos mul C*ab j get fakt1 mul angleWO sin mul moveto C*ab j get fakt1 mul angleWO cos mul C*ab j get fakt1 mul angleWO sin mul 050 0 360 arc fill } {%xchart>=7 newpath c1*rgb j get fakt2 mul angleWO cos mul c1*rgb j get fakt2 mul angleWO sin mul moveto c1*rgb j get fakt2 mul angleWO cos mul c1*rgb j get fakt2 mul angleWO sin mul 050 0 360 arc fill } ifelse %xchart=3,>=7 } for %j=0,8 } for %xton=0,5 %END for all xchartl=3,7,11,15 %********************************************************************** %For all xchartl=3,7,11,15 %Constant hue series 250 /TimesBI-ISOL1 FS /fcolor1 1.10 def /fcolor2 1.20 def /j729 0 def %xcolor 1 le {/j729 0 def}{/j729 729 def} ifelse 0 1 2 {/xtonj exch def %xton=0,2 xtonj 0 eq {/j1 729 j729 sub 10 mul def} if %series O-C xtonj 1 eq {/j1 729 j729 sub 081 add 10 mul def} if %series Y-V xtonj 2 eq {/j1 729 j729 sub 162 add 10 mul def} if %series L-M 0 1 080 {/i exch def %i=0,080 /i10 j1 i 10 mul add def LUTL* i LUT i10 0 add get 100 div put LUTA* i LUT i10 1 add get 100 div put LUTB* i LUT i10 2 add get 100 div put LUTr* i LUT i10 3 add get 1000 div put LUTg* i LUT i10 4 add get 1000 div put LUTb* i LUT i10 5 add get 1000 div put C*ab i LUTA* i get dup mul LUTB* i get dup mul add 0.000001 add sqrt put L* i LUTL* i get put } for %i=0,080 % 801 737 809 729 882 818 890 810 963 899 971 891 % j01 b09 j09 b01 j10 b18 j18 b10 j19 b27 j27 b19 % O C N1 W1 Y V N2 W2 L M N3 W3 xtonj 0 eq {/index [801 737 809 729] def} if %O,C,N1,W1 xtonj 1 eq {/index [882 818 890 810] def} if %Y,V,N2,W2 xtonj 2 eq {/index [963 899 971 891] def} if %L,M,N1,W2 0 1 3 {/i exch def %i=0,3 %standard colours at the end /i10 index i get j729 sub 10 mul def /i81 81 i add def LUTL* i81 LUT i10 0 add get 100 div put LUTA* i81 LUT i10 1 add get 100 div put LUTB* i81 LUT i10 2 add get 100 div put LUTr* i81 LUT i10 3 add get 1000 div put LUTg* i81 LUT i10 4 add get 1000 div put LUTb* i81 LUT i10 5 add get 1000 div put C*ab i81 LUTA* i81 get dup mul LUTB* i81 get dup mul add 0.000001 add sqrt put L* i81 LUTL* i81 get put } for %i=0,3 /L*WN LUTL* 84 get LUTL* 83 get sub def 0 1 084 {/i exch def %i=0,084 LUTl* i LUTL* i get LUTL* 83 get sub L*WN 0.000001 add div put LUTc1* i C*ab i get C*ab 81 get 0.000001 add div put LUTc2* i C*ab i get C*ab 82 get 0.000001 add div put LUTt1* i LUTl* i get LUTc1* i get L* 81 get L* 83 get sub L*WN 0.000001 add div 0.5 sub mul sub put LUTt2* i LUTl* i get LUTc2* i get L* 82 get L* 83 get sub L*WN 0.000001 add div 0.5 sub mul sub put LUTr* i get 0 lt {LUTr* i 0 put} if LUTg* i get 0 lt {LUTg* i 0 put} if LUTb* i get 0 lt {LUTb* i 0 put} if LUTr* i get 1 gt {LUTr* i 1 put} if LUTg* i get 1 gt {LUTg* i 1 put} if LUTb* i get 1 gt {LUTb* i 1 put} if %maximum /max LUTr* i get def %rgb brilliantness LUTg* i get max gt {/max LUTg* i get def} if LUTb* i get max gt {/max LUTb* i get def} if %minimum /min LUTr* i get def %rgb whiteness LUTg* i get min lt {/min LUTg* i get def} if LUTb* i get min lt {/min LUTb* i get def} if LUTc*rgb i max min sub put %rgb chroma LUTt*rgb i min max min sub 0.5 mul add put %rgb triangle lightness } for %i=0,084 %********************************************************************** /j0 0 def /j1 0 def /j2 8 def /k 0 def /fakt 30 def /fakt1 15 def /fakt2 1500 def 0 1 8 {/j exch def %j=0,8 %lines /ja j0 j 9 mul add def c1*rgb j LUTc*rgb ja get put C*ab j LUTA* ja get dup mul LUTB* ja get dup mul add sqrt put /angleWO LUTB* ja get LUTA* ja get 0.0001 add atan def LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor xchartl 3 le {%xchart=3 C*ab j get fakt1 mul angleWO cos mul C*ab j get fakt1 mul angleWO sin mul 050 0 360 arc fill j j2 eq {%j=j2 0 0 0 setrgbcolor C*ab j get fakt1 mul angleWO cos mul C*ab j get fakt1 mul angleWO sin mul 065 0 360 arc stroke LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor /xadd0 [-100 -500 -500 -700 -200 000] def /yadd0 [ 100 -000 -200 -100 -200 100] def C*ab j get fakt1 mul fcolor2 mul angleWO cos mul xadd0 xtonj get add C*ab j get fakt1 mul fcolor2 mul angleWO sin mul yadd0 xtonj get add moveto cname6 xtonj get show icolor 1 eq {1 0 0 setrgbcolor 0 0 moveto C*ab j get fakt1 mul angleWO cos mul C*ab j get fakt1 mul angleWO sin mul lineto stroke } if } if %j=j2 } {%xchart>=7 c1*rgb j get fakt2 mul angleWO cos mul c1*rgb j get fakt2 mul angleWO sin mul 050 0 360 arc fill j j2 eq {%j=j2 0 0 0 setrgbcolor c1*rgb j get fakt2 mul angleWO cos mul c1*rgb j get fakt2 mul angleWO sin mul 065 0 360 arc stroke LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor /xadd0 [-100 -500 -500 -700 -200 000] def /yadd0 [ 100 -000 -200 -100 -200 100] def c1*rgb j get fakt2 mul fcolor2 mul angleWO cos mul xadd0 xtonj get add c1*rgb j get fakt2 mul fcolor2 mul angleWO sin mul yadd0 xtonj get add moveto cname6 xtonj get show icolor 1 eq {1 0 0 setrgbcolor %icolor=1 0 0 moveto c1*rgb j get fakt2 mul angleWO cos mul c1*rgb j get fakt2 mul angleWO sin mul lineto stroke } if %icolor=1 } if %j=j2 } ifelse %xchart=3,>=7 LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor j 1 ge {xchartl 3 eq {olvrgb 0 eq {C*ab j 1 sub get fakt1 mul angleWO cos mul C*ab j 1 sub get fakt1 mul angleWO sin mul moveto C*ab j get fakt1 mul angleWO cos mul C*ab j get fakt1 mul angleWO sin mul lineto stroke } if } {c1*rgb j 1 sub get fakt2 mul angleWO cos mul c1*rgb j 1 sub get fakt2 mul angleWO sin mul moveto c1*rgb j get fakt2 mul angleWO cos mul c1*rgb j get fakt2 mul angleWO sin mul lineto stroke } ifelse } if } for %j=0,8 %********************************************************************** 0 1 8 {/j exch def %j=0,8 %lines /ja j0 j add def c2*rgb j LUTc*rgb ja get put C*ab j LUTA* ja get dup mul LUTB* ja get dup mul add sqrt put /angleWO LUTB* ja get LUTA* ja get 0.0001 add atan def LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor xchartl 3 le {%xchart=3 C*ab j get fakt1 mul angleWO cos mul C*ab j get fakt1 mul angleWO sin mul 050 0 360 arc fill j j2 eq {%j=j2 0 0 0 setrgbcolor C*ab j get fakt1 mul angleWO cos mul C*ab j get fakt1 mul angleWO sin mul 065 0 360 arc stroke LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor /xadd0 [ 000 -100 -500 -700 -200 000] def /yadd0 [-200 -000 000 -100 -100 100] def C*ab j get fakt1 mul fcolor2 mul angleWO cos mul xadd0 xtonj 3 add get add C*ab j get fakt1 mul fcolor2 mul angleWO sin mul yadd0 xtonj 3 add get add moveto cname6 xtonj 3 add get show icolor 1 eq {1 0 0 setrgbcolor 0 0 moveto C*ab j get fakt1 mul angleWO cos mul C*ab j get fakt1 mul angleWO sin mul lineto stroke } if } if %j=j2 } {%xchart=7 c2*rgb j get fakt2 mul angleWO cos mul c2*rgb j get fakt2 mul angleWO sin mul 050 0 360 arc fill j j2 eq {%j=j2 0 0 0 setrgbcolor c2*rgb j get fakt2 mul angleWO cos mul c2*rgb j get fakt2 mul angleWO sin mul 065 0 360 arc stroke LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor /xadd0 [-000 -100 -500 -700 -200 000] def /yadd0 [ 100 -000 000 -100 -200 100] def c2*rgb j get fakt2 mul fcolor2 mul angleWO cos mul xadd0 xtonj 3 add get add c2*rgb j get fakt2 mul fcolor2 mul angleWO sin mul yadd0 xtonj 3 add get add moveto cname6 xtonj 3 add get show icolor 1 eq {1 0 0 setrgbcolor %icolor=1 0 0 moveto c2*rgb j get fakt2 mul angleWO cos mul c2*rgb j get fakt2 mul angleWO sin mul lineto stroke } if %icolor=1 } if %j=j2 } ifelse %xchart=3, %xchart>=7 LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor j 1 ge {xchartl 3 le {C*ab j 1 sub get fakt1 mul angleWO cos mul C*ab j 1 sub get fakt1 mul angleWO sin mul moveto C*ab j get fakt1 mul angleWO cos mul C*ab j get fakt1 mul angleWO sin mul lineto stroke } {c2*rgb j 1 sub get fakt2 mul angleWO cos mul c2*rgb j 1 sub get fakt2 mul angleWO sin mul moveto c2*rgb j get fakt2 mul angleWO cos mul c2*rgb j get fakt2 mul angleWO sin mul lineto stroke } ifelse } if } for %j=00,08 %xtonj=0 %series O-C %xtonj=1 %series Y-V %xtonj=2 %series L-M } for %xton=0,2 %END for all xchartl=3,7,11,15 %********************************************************************** xchartl 3 eq {%xchartl=3 only %BEG Hexagon % 801 737 809 729 882 818 890 810 963 899 971 891 % j01 b09 j09 b01 j10 b18 j18 b10 j19 b27 j27 b19 % O C N1 W1 Y V N2 W2 L M N3 W3 /fakt1 15 def /indexX 7 array def /indexX [801 882 963 737 818 899 801] def /LUTL*X 7 array def /LUTA*X 7 array def /LUTB*X 7 array def 0 setgray /fcolor1 1.10 def /fcolor2 1.20 def 250 /TimesBI-ISOL1 FS /j729 0 def 0 1 6 {/iX exch def %iX=0,6 %hexagon standard colours at the end /i10 indexX iX get j729 sub 10 mul def LUTL*X iX LUT i10 0 add get 100 div put LUTA*X iX LUT i10 1 add get 100 div put LUTB*X iX LUT i10 2 add get 100 div put LUTr* iX LUT i10 3 add get 1000 div put LUTg* iX LUT i10 4 add get 1000 div put LUTb* iX LUT i10 5 add get 1000 div put iX 5 le {0 0 0 setrgbcolor 0 0 moveto LUTA*X iX get fakt1 mul fcolor1 mul cf1 div LUTB*X iX get fakt1 mul fcolor1 mul cf1 div lineto stroke /xadd0 [-000 -100 -500 -700 -200 000] def /yadd0 [ 100 -000 000 -100 -200 100] def LUTA*X iX get fakt1 mul fcolor2 mul cf1 div xadd0 iX get add LUTB*X iX get fakt1 mul fcolor2 mul cf1 div yadd0 iX get add moveto % xcolor 2 ge {%xcolor>=2 % 0 0 0 setrgbcolor % cname_olv00 iX get show % } if %xcolor>=2 } if iX 5 le icolor 1 eq and {xcolor 2 ge {0 0 0}{1 0 0} ifelse setrgbcolor 0 0 moveto LUTA*X iX get fakt1 mul LUTB*X iX get fakt1 mul lineto stroke } if iX 1 ge {0 0 0 setrgbcolor LUTA*X iX 1 sub get fakt1 mul cf1 div LUTB*X iX 1 sub get fakt1 mul cf1 div moveto LUTA*X iX get fakt1 mul cf1 div LUTB*X iX get fakt1 mul cf1 div lineto stroke } if iX 1 ge icolor 1 eq and {1 0 0 setrgbcolor LUTA*X iX 1 sub get fakt1 mul LUTB*X iX 1 sub get fakt1 mul moveto LUTA*X iX get fakt1 mul LUTB*X iX get fakt1 mul lineto stroke } if } for %iX=0,6 %hexagon } if %xchartl=3 %********************************************************************** xchartl 7 ge {%xchart>=7 %circle icolor 0 eq {0 0 0 setrgbcolor} {1 0 0 setrgbcolor} ifelse 0 1500 moveto newpath 0 0 1500 0 360 arc stroke %BEG Hexagon % 801 737 809 729 882 818 890 810 963 899 971 891 % j01 b09 j09 b01 j10 b18 j18 b10 j19 b27 j27 b19 % O C N1 W1 Y V N2 W2 L M N3 W3 /fakt1 15 def /indexX 7 array def /indexX [801 882 963 737 818 899 801] def /LUTL*X 7 array def /LUTA*X 7 array def /LUTB*X 7 array def 0 setgray /fcolor1 1.10 def /fcolor2 1.20 def /c1000 1 fakt2 mul def 250 /TimesBI-ISOL1 FS /j729 0 def 0 1 6 {/iX exch def %iX=0,5 %hexagon standard colours at the end /i10 indexX iX get j729 sub 10 mul def LUTL*X iX LUT i10 0 add get 100 div put LUTA*X iX LUT i10 1 add get 100 div put LUTB*X iX LUT i10 2 add get 100 div put LUTr* iX LUT i10 3 add get 1000 div put LUTg* iX LUT i10 4 add get 1000 div put LUTb* iX LUT i10 5 add get 1000 div put /angleOLV LUTB*X iX get LUTA*X iX get 0.0001 add atan def iX 5 le {0 0 0 setrgbcolor 0 0 moveto c1000 angleOLV cos mul fcolor2 mul c1000 angleOLV sin mul fcolor2 mul lineto stroke /xadd0 [-200 -300 -300 -500 -400 -000] def /yadd0 [ 100 -000 000 -100 -200 100] def c1000 angleOLV cos mul fcolor2 mul xadd0 iX get add c1000 angleOLV sin mul fcolor2 mul yadd0 iX get add moveto % xcolor 2 ge {%xcolor>=2 % 0 0 0 setrgbcolor % cname_olv00 iX get show % } if %xcolor>=2 } if iX 5 le icolor 1 eq and {xcolor 2 ge {0 0 0}{1 0 0} ifelse setrgbcolor 0 0 moveto c1000 angleOLV cos mul fcolor2 mul c1000 angleOLV sin mul fcolor2 mul lineto stroke } if } for %iX=0,6 %hexagon } if %xchartl>=7 %********************************************************************** 0 1500 neg translate } ifelse %xchart #3,7,11,15 or =3,7,11,15 grestore 2600 neg 0300 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 %} for %end xchartl=0,15 %end calculation and output of graph with 16 pictures showpage grestore } for %end xchartix=00,15