%!PS-Adobe-3.0 EPSF-3.0 LG270-1A.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/LG27/) /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 (LG27_LECD display_1) def /xyY0 7560 array def %1080x7 /LAB*TE [(LCED_low_gloss_100828_1)] def /xyY0 [ %produced with the settings of the LED-LCD (LECD) monitor; full white used %FILE LMT_1080_100828_1.TXT %no. r g b x y Y. Apple low glossy display. measurement 1 1 0.00000 0.00000 0.00000 0.3097 0.3049 45.10E-01 2 0.00000 0.00000 0.12549 0.1955 0.1229 6.00E+00 3 0.00000 0.00000 0.25098 0.1711 0.0840 8.03E+00 4 0.00000 0.00000 0.37647 0.1619 0.0697 1.08E+01 5 0.00000 0.00000 0.50196 0.1569 0.0627 1.39E+01 6 0.00000 0.00000 0.62353 0.1545 0.0604 1.65E+01 7 0.00000 0.00000 0.74902 0.1528 0.0584 1.93E+01 8 0.00000 0.00000 0.87451 0.1510 0.0573 2.45E+01 9 0.00000 0.00000 1.00000 0.1494 0.0566 3.13E+01 10 0.00000 0.12549 0.00000 0.2985 0.5380 25.76E+00 11 0.00000 0.12549 0.12549 0.2352 0.3339 27.47E+00 12 0.00000 0.12549 0.25098 0.2028 0.2291 29.58E+00 13 0.00000 0.12549 0.37647 0.1854 0.1721 3.25E+01 14 0.00000 0.12549 0.50196 0.1748 0.1392 3.56E+01 15 0.00000 0.12549 0.62353 0.1698 0.1242 3.81E+01 16 0.00000 0.12549 0.74902 0.1660 0.1125 4.10E+01 17 0.00000 0.12549 0.87451 0.1616 0.1001 4.62E+01 18 0.00000 0.12549 1.00000 0.1578 0.0906 5.32E+01 19 0.00000 0.25098 0.00000 0.2971 0.5810 48.04E+00 20 0.00000 0.25098 0.12549 0.2532 0.4257 49.98E+00 21 0.00000 0.25098 0.25098 0.2227 0.3173 52.18E+00 22 0.00000 0.25098 0.37647 0.2026 0.2459 5.51E+01 23 0.00000 0.25098 0.50196 0.1896 0.2002 5.83E+01 24 0.00000 0.25098 0.62353 0.1831 0.1778 6.09E+01 25 0.00000 0.25098 0.74902 0.1775 0.1595 6.38E+01 26 0.00000 0.25098 0.87451 0.1709 0.1390 6.91E+01 27 0.00000 0.25098 1.00000 0.1657 0.1225 7.63E+01 28 0.00000 0.37647 0.00000 0.2975 0.6013 76.76E+00 29 0.00000 0.37647 0.12549 0.2658 0.4850 78.95E+00 30 0.00000 0.37647 0.25098 0.2391 0.3870 81.25E+00 31 0.00000 0.37647 0.37647 0.2190 0.3123 8.43E+01 32 0.00000 0.37647 0.50196 0.2042 0.2596 8.75E+01 33 0.00000 0.37647 0.62353 0.1966 0.2319 9.00E+01 34 0.00000 0.37647 0.74902 0.1900 0.2086 9.30E+01 35 0.00000 0.37647 0.87451 0.1819 0.1811 9.84E+01 36 0.00000 0.37647 1.00000 0.1749 0.1582 10.59E+01 37 0.00000 0.50196 0.00000 0.2986 0.6088 9.93E+01 38 0.00000 0.50196 0.12549 0.2725 0.5118 10.16E+01 39 0.00000 0.50196 0.25098 0.2483 0.4233 10.40E+01 40 0.00000 0.50196 0.37647 0.2286 0.3501 10.69E+01 41 0.00000 0.50196 0.50196 0.2136 0.2958 11.02E+01 42 0.00000 0.50196 0.62353 0.2053 0.2662 11.28E+01 43 0.00000 0.50196 0.74902 0.1982 0.2403 11.57E+01 44 0.00000 0.50196 0.87451 0.1891 0.2093 12.12E+01 45 0.00000 0.50196 1.00000 0.1814 0.1826 12.88E+01 46 0.00000 0.62353 0.00000 0.2997 0.6137 12.04E+01 47 0.00000 0.62353 0.12549 0.2768 0.5300 12.29E+01 48 0.00000 0.62353 0.25098 0.2547 0.4489 12.53E+01 49 0.00000 0.62353 0.37647 0.2359 0.3785 12.82E+01 50 0.00000 0.62353 0.50196 0.2209 0.3241 13.16E+01 51 0.00000 0.62353 0.62353 0.2125 0.2932 13.41E+01 52 0.00000 0.62353 0.74902 0.2050 0.2663 13.72E+01 53 0.00000 0.62353 0.87451 0.1954 0.2326 14.25E+01 54 0.00000 0.62353 1.00000 0.1870 0.2034 15.03E+01 55 0.00000 0.74902 0.00000 0.3006 0.6185 15.35E+01 56 0.00000 0.74902 0.12549 0.2820 0.5496 15.61E+01 57 0.00000 0.74902 0.25098 0.2629 0.4784 15.85E+01 58 0.00000 0.74902 0.37647 0.2453 0.4129 16.14E+01 59 0.00000 0.74902 0.50196 0.2306 0.3595 16.48E+01 60 0.00000 0.74902 0.62353 0.2221 0.3284 16.74E+01 61 0.00000 0.74902 0.74902 0.2143 0.3003 17.04E+01 62 0.00000 0.74902 0.87451 0.2040 0.2645 17.59E+01 63 0.00000 0.74902 1.00000 0.1948 0.2320 18.36E+01 64 0.00000 0.87451 0.00000 0.3029 0.6223 20.22E+01 65 0.00000 0.87451 0.12549 0.2880 0.5680 20.47E+01 66 0.00000 0.87451 0.25098 0.2716 0.5077 20.71E+01 67 0.00000 0.87451 0.37647 0.2557 0.4493 21.00E+01 68 0.00000 0.87451 0.50196 0.2418 0.3989 21.33E+01 69 0.00000 0.87451 0.62353 0.2334 0.3684 21.59E+01 70 0.00000 0.87451 0.74902 0.2255 0.3400 21.89E+01 71 0.00000 0.87451 0.87451 0.2149 0.3026 22.43E+01 72 0.00000 0.87451 1.00000 0.2049 0.2674 23.20E+01 73 0.00000 1.00000 0.00000 0.3051 0.6255 26.47E+01 74 0.00000 1.00000 0.12549 0.2930 0.5823 26.63E+01 75 0.00000 1.00000 0.25098 0.2795 0.5320 26.82E+01 76 0.00000 1.00000 0.37647 0.2653 0.4809 27.10E+01 77 0.00000 1.00000 0.50196 0.2527 0.4346 27.40E+01 78 0.00000 1.00000 0.62353 0.2445 0.4057 27.65E+01 79 0.00000 1.00000 0.74902 0.2367 0.3781 27.95E+01 80 0.00000 1.00000 0.87451 0.2260 0.3402 28.45E+01 81 0.00000 1.00000 1.00000 0.2154 0.3032 29.14E+01 82 0.12549 0.00000 0.00000 0.5234 0.3247 12.74E+00 83 0.12549 0.00000 0.12549 0.3467 0.1931 14.25E+00 84 0.12549 0.00000 0.25098 0.2680 0.1345 16.31E+00 85 0.12549 0.00000 0.37647 0.2280 0.1052 1.91E+01 86 0.12549 0.00000 0.50196 0.2055 0.0895 2.23E+01 87 0.12549 0.00000 0.62353 0.1953 0.0825 2.48E+01 88 0.12549 0.00000 0.74902 0.1869 0.0774 2.77E+01 89 0.12549 0.00000 0.87451 0.1779 0.0721 3.28E+01 90 0.12549 0.00000 1.00000 0.1707 0.0686 3.96E+01 91 0.12549 0.12549 0.00000 0.4192 0.4693 34.11E+00 92 0.12549 0.12549 0.12549 0.3310 0.3331 35.84E+00 93 0.12549 0.12549 0.25098 0.2743 0.2447 37.98E+00 94 0.12549 0.12549 0.37647 0.2384 0.1897 4.09E+01 95 0.12549 0.12549 0.50196 0.2164 0.1557 4.41E+01 96 0.12549 0.12549 0.62353 0.2053 0.1393 4.66E+01 97 0.12549 0.12549 0.74902 0.1965 0.1261 4.95E+01 98 0.12549 0.12549 0.87451 0.1863 0.1118 5.47E+01 99 0.12549 0.12549 1.00000 0.1778 0.1007 6.16E+01 100 0.12549 0.25098 0.00000 0.3793 0.5245 56.45E+00 101 0.12549 0.25098 0.12549 0.3223 0.4088 58.42E+00 102 0.12549 0.25098 0.25098 0.2783 0.3181 60.65E+00 103 0.12549 0.25098 0.37647 0.2467 0.2531 6.36E+01 104 0.12549 0.25098 0.50196 0.2252 0.2095 6.68E+01 105 0.12549 0.25098 0.62353 0.2143 0.1873 6.94E+01 106 0.12549 0.25098 0.74902 0.2049 0.1691 7.24E+01 107 0.12549 0.25098 0.87451 0.1937 0.1480 7.77E+01 108 0.12549 0.25098 1.00000 0.1845 0.1307 8.47E+01 109 0.12549 0.37647 0.00000 0.3554 0.5581 85.21E+00 110 0.12549 0.37647 0.12549 0.3167 0.4642 87.43E+00 111 0.12549 0.37647 0.25098 0.2823 0.3799 89.77E+00 112 0.12549 0.37647 0.37647 0.2548 0.3127 9.29E+01 113 0.12549 0.37647 0.50196 0.2346 0.2634 9.61E+01 114 0.12549 0.37647 0.62353 0.2233 0.2373 9.88E+01 115 0.12549 0.37647 0.74902 0.2139 0.2145 10.17E+01 116 0.12549 0.37647 0.87451 0.2022 0.1873 10.70E+01 117 0.12549 0.37647 1.00000 0.1921 0.1647 11.44E+01 118 0.12549 0.50196 0.00000 0.3456 0.5731 10.78E+01 119 0.12549 0.50196 0.12549 0.3143 0.4920 11.02E+01 120 0.12549 0.50196 0.25098 0.2851 0.4137 11.26E+01 121 0.12549 0.50196 0.37647 0.2598 0.3473 11.55E+01 122 0.12549 0.50196 0.50196 0.2404 0.2966 11.88E+01 123 0.12549 0.50196 0.62353 0.2296 0.2686 12.14E+01 124 0.12549 0.50196 0.74902 0.2200 0.2442 12.45E+01 125 0.12549 0.50196 0.87451 0.2081 0.2140 12.99E+01 126 0.12549 0.50196 1.00000 0.1975 0.1880 13.73E+01 127 0.12549 0.62353 0.00000 0.3394 0.5825 12.89E+01 128 0.12549 0.62353 0.12549 0.3131 0.5105 13.14E+01 129 0.12549 0.62353 0.25098 0.2870 0.4382 13.39E+01 130 0.12549 0.62353 0.37647 0.2639 0.3737 13.68E+01 131 0.12549 0.62353 0.50196 0.2453 0.3230 14.02E+01 132 0.12549 0.62353 0.62353 0.2347 0.2940 14.28E+01 133 0.12549 0.62353 0.74902 0.2252 0.2684 14.59E+01 134 0.12549 0.62353 0.87451 0.2131 0.2362 15.13E+01 135 0.12549 0.62353 1.00000 0.2023 0.2079 15.89E+01 136 0.12549 0.74902 0.00000 0.3330 0.5925 16.21E+01 137 0.12549 0.74902 0.12549 0.3118 0.5316 16.47E+01 138 0.12549 0.74902 0.25098 0.2897 0.4669 16.71E+01 139 0.12549 0.74902 0.37647 0.2691 0.4065 17.01E+01 140 0.12549 0.74902 0.50196 0.2519 0.3566 17.34E+01 141 0.12549 0.74902 0.62353 0.2416 0.3273 17.61E+01 142 0.12549 0.74902 0.74902 0.2324 0.3006 17.91E+01 143 0.12549 0.74902 0.87451 0.2201 0.2664 18.46E+01 144 0.12549 0.74902 1.00000 0.2089 0.2353 19.22E+01 145 0.12549 0.87451 0.00000 0.3277 0.6021 21.09E+01 146 0.12549 0.87451 0.12549 0.3115 0.5523 21.33E+01 147 0.12549 0.87451 0.25098 0.2932 0.4967 21.58E+01 148 0.12549 0.87451 0.37647 0.2753 0.4420 21.87E+01 149 0.12549 0.87451 0.50196 0.2598 0.3945 22.20E+01 150 0.12549 0.87451 0.62353 0.2501 0.3655 22.46E+01 151 0.12549 0.87451 0.74902 0.2412 0.3386 22.77E+01 152 0.12549 0.87451 0.87451 0.2290 0.3030 23.31E+01 153 0.12549 0.87451 1.00000 0.2176 0.2694 24.06E+01 154 0.12549 1.00000 0.00000 0.3246 0.6092 27.33E+01 155 0.12549 1.00000 0.12549 0.3119 0.5686 27.47E+01 156 0.12549 1.00000 0.25098 0.2970 0.5216 27.68E+01 157 0.12549 1.00000 0.37647 0.2815 0.4731 27.95E+01 158 0.12549 1.00000 0.50196 0.2675 0.4292 28.27E+01 159 0.12549 1.00000 0.62353 0.2586 0.4016 28.52E+01 160 0.12549 1.00000 0.74902 0.2502 0.3752 28.81E+01 161 0.12549 1.00000 0.87451 0.2383 0.3392 29.32E+01 162 0.12549 1.00000 1.00000 0.2266 0.3041 30.00E+01 163 0.25098 0.00000 0.00000 0.5690 0.3289 19.93E+00 164 0.25098 0.00000 0.12549 0.4151 0.2251 21.44E+00 165 0.25098 0.00000 0.25098 0.3253 0.1646 23.52E+00 166 0.25098 0.00000 0.37647 0.2724 0.1298 2.64E+01 167 0.25098 0.00000 0.50196 0.2405 0.1088 2.95E+01 168 0.25098 0.00000 0.62353 0.2255 0.0993 3.20E+01 169 0.25098 0.00000 0.74902 0.2131 0.0918 3.49E+01 170 0.25098 0.00000 0.87451 0.1992 0.0841 4.01E+01 171 0.25098 0.00000 1.00000 0.1880 0.0780 4.67E+01 172 0.25098 0.12549 0.00000 0.4728 0.4389 41.39E+00 173 0.25098 0.12549 0.12549 0.3846 0.3335 43.13E+00 174 0.25098 0.12549 0.25098 0.3203 0.2556 45.28E+00 175 0.25098 0.12549 0.37647 0.2764 0.2028 4.82E+01 176 0.25098 0.12549 0.50196 0.2474 0.1682 5.14E+01 177 0.25098 0.12549 0.62353 0.2325 0.1510 5.39E+01 178 0.25098 0.12549 0.74902 0.2202 0.1372 5.69E+01 179 0.25098 0.12549 0.87451 0.2061 0.1212 6.20E+01 180 0.25098 0.12549 1.00000 0.1941 0.1089 6.90E+01 181 0.25098 0.25098 0.00000 0.4251 0.4930 63.75E+00 182 0.25098 0.25098 0.12549 0.3658 0.3990 65.73E+00 183 0.25098 0.25098 0.25098 0.3164 0.3197 67.98E+00 184 0.25098 0.25098 0.37647 0.2789 0.2595 7.10E+01 185 0.25098 0.25098 0.50196 0.2525 0.2173 7.42E+01 186 0.25098 0.25098 0.62353 0.2385 0.1955 7.68E+01 187 0.25098 0.25098 0.74902 0.2264 0.1769 7.97E+01 188 0.25098 0.25098 0.87451 0.2119 0.1553 8.50E+01 189 0.25098 0.25098 1.00000 0.1997 0.1375 9.21E+01 190 0.25098 0.37647 0.00000 0.3930 0.5303 9.27E+01 191 0.25098 0.37647 0.12549 0.3519 0.4506 9.49E+01 192 0.25098 0.37647 0.25098 0.3135 0.3761 9.73E+01 193 0.25098 0.37647 0.37647 0.2817 0.3140 10.02E+01 194 0.25098 0.37647 0.50196 0.2580 0.2673 10.35E+01 195 0.25098 0.37647 0.62353 0.2446 0.2419 10.61E+01 196 0.25098 0.37647 0.74902 0.2332 0.2197 10.91E+01 197 0.25098 0.37647 0.87451 0.2188 0.1927 11.44E+01 198 0.25098 0.37647 1.00000 0.2062 0.1699 12.17E+01 199 0.25098 0.50196 0.00000 0.3776 0.5481 11.51E+01 200 0.25098 0.50196 0.12549 0.3442 0.4779 11.76E+01 201 0.25098 0.50196 0.25098 0.3122 0.4076 12.00E+01 202 0.25098 0.50196 0.37647 0.2840 0.3463 12.29E+01 203 0.25098 0.50196 0.50196 0.2618 0.2984 12.62E+01 204 0.25098 0.50196 0.62353 0.2491 0.2714 12.88E+01 205 0.25098 0.50196 0.74902 0.2376 0.2476 13.18E+01 206 0.25098 0.50196 0.87451 0.2235 0.2181 13.72E+01 207 0.25098 0.50196 1.00000 0.2108 0.1923 14.47E+01 208 0.25098 0.62353 0.00000 0.3673 0.5604 13.64E+01 209 0.25098 0.62353 0.12549 0.3395 0.4970 13.89E+01 210 0.25098 0.62353 0.25098 0.3113 0.4312 14.13E+01 211 0.25098 0.62353 0.37647 0.2855 0.3713 14.42E+01 212 0.25098 0.62353 0.50196 0.2647 0.3234 14.76E+01 213 0.25098 0.62353 0.62353 0.2527 0.2956 15.02E+01 214 0.25098 0.62353 0.74902 0.2417 0.2708 15.33E+01 215 0.25098 0.62353 0.87451 0.2276 0.2392 15.86E+01 216 0.25098 0.62353 1.00000 0.2148 0.2115 16.63E+01 217 0.25098 0.74902 0.00000 0.3565 0.5738 16.95E+01 218 0.25098 0.74902 0.12549 0.3343 0.5188 17.21E+01 219 0.25098 0.74902 0.25098 0.3105 0.4592 17.45E+01 220 0.25098 0.74902 0.37647 0.2881 0.4027 17.75E+01 221 0.25098 0.74902 0.50196 0.2690 0.3554 18.09E+01 222 0.25098 0.74902 0.62353 0.2577 0.3274 18.36E+01 223 0.25098 0.74902 0.74902 0.2472 0.3016 18.66E+01 224 0.25098 0.74902 0.87451 0.2334 0.2682 19.19E+01 225 0.25098 0.74902 1.00000 0.2206 0.2380 19.96E+01 226 0.25098 0.87451 0.00000 0.3469 0.5864 21.82E+01 227 0.25098 0.87451 0.12549 0.3298 0.5404 22.07E+01 228 0.25098 0.87451 0.25098 0.3105 0.4887 22.32E+01 229 0.25098 0.87451 0.37647 0.2913 0.4371 22.61E+01 230 0.25098 0.87451 0.50196 0.2743 0.3920 22.95E+01 231 0.25098 0.87451 0.62353 0.2640 0.3642 23.21E+01 232 0.25098 0.87451 0.74902 0.2541 0.3383 23.51E+01 233 0.25098 0.87451 0.87451 0.2407 0.3037 24.05E+01 234 0.25098 0.87451 1.00000 0.2280 0.2711 24.81E+01 235 0.25098 1.00000 0.00000 0.3401 0.5963 28.07E+01 236 0.25098 1.00000 0.12549 0.3269 0.5584 28.22E+01 237 0.25098 1.00000 0.25098 0.3112 0.5138 28.42E+01 238 0.25098 1.00000 0.37647 0.2949 0.4678 28.70E+01 239 0.25098 1.00000 0.50196 0.2800 0.4258 29.02E+01 240 0.25098 1.00000 0.62353 0.2704 0.3993 29.27E+01 241 0.25098 1.00000 0.74902 0.2613 0.3739 29.56E+01 242 0.25098 1.00000 0.87451 0.2486 0.3389 30.07E+01 243 0.25098 1.00000 1.00000 0.2359 0.3048 30.75E+01 244 0.37647 0.00000 0.00000 0.5902 0.3307 26.72E+00 245 0.37647 0.00000 0.12549 0.4566 0.2444 28.24E+00 246 0.37647 0.00000 0.25098 0.3658 0.1858 30.33E+00 247 0.37647 0.00000 0.37647 0.3068 0.1483 3.32E+01 248 0.37647 0.00000 0.50196 0.2692 0.1245 3.63E+01 249 0.37647 0.00000 0.62353 0.2506 0.1133 3.89E+01 250 0.37647 0.00000 0.74902 0.2353 0.1043 4.18E+01 251 0.37647 0.00000 0.87451 0.2176 0.0943 4.69E+01 252 0.37647 0.00000 1.00000 0.2032 0.0864 5.35E+01 253 0.37647 0.12549 0.00000 0.5050 0.4206 48.27E+00 254 0.37647 0.12549 0.12549 0.4213 0.3337 50.02E+00 255 0.37647 0.12549 0.25098 0.3546 0.2638 52.18E+00 256 0.37647 0.12549 0.37647 0.3061 0.2134 5.52E+01 257 0.37647 0.12549 0.50196 0.2727 0.1786 5.83E+01 258 0.37647 0.12549 0.62353 0.2553 0.1611 6.09E+01 259 0.37647 0.12549 0.74902 0.2406 0.1465 6.38E+01 260 0.37647 0.12549 0.87451 0.2232 0.1296 6.90E+01 261 0.37647 0.12549 1.00000 0.2086 0.1160 7.59E+01 262 0.37647 0.25098 0.00000 0.4563 0.4717 70.67E+00 263 0.37647 0.25098 0.12549 0.3976 0.3920 72.64E+00 264 0.37647 0.25098 0.25098 0.3459 0.3210 74.91E+00 265 0.37647 0.25098 0.37647 0.3049 0.2649 7.80E+01 266 0.37647 0.25098 0.50196 0.2750 0.2239 8.11E+01 267 0.37647 0.25098 0.62353 0.2589 0.2024 8.38E+01 268 0.37647 0.25098 0.74902 0.2450 0.1839 8.67E+01 269 0.37647 0.25098 0.87451 0.2279 0.1619 9.20E+01 270 0.37647 0.25098 1.00000 0.2133 0.1435 9.91E+01 271 0.37647 0.37647 0.00000 0.4197 0.5102 9.97E+01 272 0.37647 0.37647 0.12549 0.3785 0.4407 10.19E+01 273 0.37647 0.37647 0.25098 0.3381 0.3732 10.43E+01 274 0.37647 0.37647 0.37647 0.3041 0.3153 10.72E+01 275 0.37647 0.37647 0.50196 0.2778 0.2705 11.04E+01 276 0.37647 0.37647 0.62353 0.2629 0.2458 11.30E+01 277 0.37647 0.37647 0.74902 0.2498 0.2243 11.61E+01 278 0.37647 0.37647 0.87451 0.2334 0.1976 12.14E+01 279 0.37647 0.37647 1.00000 0.2187 0.1746 12.87E+01 280 0.37647 0.50196 0.00000 0.4020 0.5295 12.21E+01 281 0.37647 0.50196 0.12549 0.3682 0.4668 12.45E+01 282 0.37647 0.50196 0.25098 0.3345 0.4027 12.69E+01 283 0.37647 0.50196 0.37647 0.3040 0.3455 12.98E+01 284 0.37647 0.50196 0.50196 0.2797 0.3000 13.32E+01 285 0.37647 0.50196 0.62353 0.2657 0.2740 13.58E+01 286 0.37647 0.50196 0.74902 0.2531 0.2509 13.89E+01 287 0.37647 0.50196 0.87451 0.2370 0.2218 14.43E+01 288 0.37647 0.50196 1.00000 0.2226 0.1962 15.17E+01 289 0.37647 0.62353 0.00000 0.3897 0.5432 14.33E+01 290 0.37647 0.62353 0.12549 0.3611 0.4857 14.58E+01 291 0.37647 0.62353 0.25098 0.3314 0.4253 14.82E+01 292 0.37647 0.62353 0.37647 0.3041 0.3693 15.12E+01 293 0.37647 0.62353 0.50196 0.2814 0.3237 15.46E+01 294 0.37647 0.62353 0.62353 0.2683 0.2970 15.72E+01 295 0.37647 0.62353 0.74902 0.2561 0.2728 16.02E+01 296 0.37647 0.62353 0.87451 0.2404 0.2423 16.57E+01 297 0.37647 0.62353 1.00000 0.2261 0.2146 17.32E+01 298 0.37647 0.74902 0.00000 0.3759 0.5582 17.64E+01 299 0.37647 0.74902 0.12549 0.3529 0.5081 17.91E+01 300 0.37647 0.74902 0.25098 0.3283 0.4527 18.15E+01 301 0.37647 0.74902 0.37647 0.3043 0.3994 18.44E+01 302 0.37647 0.74902 0.50196 0.2839 0.3545 18.79E+01 303 0.37647 0.74902 0.62353 0.2716 0.3275 19.05E+01 304 0.37647 0.74902 0.74902 0.2602 0.3026 19.35E+01 305 0.37647 0.74902 0.87451 0.2451 0.2702 19.90E+01 306 0.37647 0.74902 1.00000 0.2309 0.2404 20.66E+01 307 0.37647 0.87451 0.00000 0.3630 0.5733 22.52E+01 308 0.37647 0.87451 0.12549 0.3452 0.5308 22.77E+01 309 0.37647 0.87451 0.25098 0.3252 0.4819 23.01E+01 310 0.37647 0.87451 0.37647 0.3050 0.4330 23.31E+01 311 0.37647 0.87451 0.50196 0.2872 0.3899 23.65E+01 312 0.37647 0.87451 0.62353 0.2761 0.3633 23.91E+01 313 0.37647 0.87451 0.74902 0.2656 0.3380 24.21E+01 314 0.37647 0.87451 0.87451 0.2513 0.3044 24.75E+01 315 0.37647 0.87451 1.00000 0.2374 0.2726 25.51E+01 316 0.37647 1.00000 0.00000 0.3533 0.5854 28.76E+01 317 0.37647 1.00000 0.12549 0.3395 0.5495 28.92E+01 318 0.37647 1.00000 0.25098 0.3235 0.5072 29.13E+01 319 0.37647 1.00000 0.37647 0.3066 0.4633 29.39E+01 320 0.37647 1.00000 0.50196 0.2909 0.4230 29.72E+01 321 0.37647 1.00000 0.62353 0.2809 0.3974 29.96E+01 322 0.37647 1.00000 0.74902 0.2713 0.3728 30.26E+01 323 0.37647 1.00000 0.87451 0.2578 0.3388 30.77E+01 324 0.37647 1.00000 1.00000 0.2445 0.3054 31.44E+01 325 0.50196 0.00000 0.00000 0.6010 0.3317 32.27E+00 326 0.50196 0.00000 0.12549 0.4812 0.2558 33.79E+00 327 0.50196 0.00000 0.25098 0.3921 0.1995 35.89E+00 328 0.50196 0.00000 0.37647 0.3303 0.1612 3.88E+01 329 0.50196 0.00000 0.50196 0.2898 0.1358 4.19E+01 330 0.50196 0.00000 0.62353 0.2690 0.1234 4.44E+01 331 0.50196 0.00000 0.74902 0.2520 0.1133 4.73E+01 332 0.50196 0.00000 0.87451 0.2317 0.1019 5.24E+01 333 0.50196 0.00000 1.00000 0.2149 0.0930 5.91E+01 334 0.50196 0.12549 0.00000 0.5238 0.4100 53.88E+00 335 0.50196 0.12549 0.12549 0.4444 0.3340 55.64E+00 336 0.50196 0.12549 0.25098 0.3777 0.2694 57.80E+00 337 0.50196 0.12549 0.37647 0.3272 0.2204 6.07E+01 338 0.50196 0.12549 0.50196 0.2909 0.1864 6.40E+01 339 0.50196 0.12549 0.62353 0.2720 0.1684 6.65E+01 340 0.50196 0.12549 0.74902 0.2559 0.1533 6.94E+01 341 0.50196 0.12549 0.87451 0.2363 0.1358 7.46E+01 342 0.50196 0.12549 1.00000 0.2197 0.1215 8.15E+01 343 0.50196 0.25098 0.00000 0.4761 0.4581 76.30E+00 344 0.50196 0.25098 0.12549 0.4186 0.3874 78.28E+00 345 0.50196 0.25098 0.25098 0.3663 0.3219 80.55E+00 346 0.50196 0.25098 0.37647 0.3238 0.2686 8.36E+01 347 0.50196 0.25098 0.50196 0.2916 0.2288 8.68E+01 348 0.50196 0.25098 0.62353 0.2741 0.2075 8.94E+01 349 0.50196 0.25098 0.74902 0.2587 0.1891 9.24E+01 350 0.50196 0.25098 0.87451 0.2401 0.1666 9.75E+01 351 0.50196 0.25098 1.00000 0.2236 0.1480 10.47E+01 352 0.50196 0.37647 0.00000 0.4387 0.4962 10.53E+01 353 0.50196 0.37647 0.12549 0.3969 0.4336 10.75E+01 354 0.50196 0.37647 0.25098 0.3558 0.3710 11.00E+01 355 0.50196 0.37647 0.37647 0.3204 0.3160 11.28E+01 356 0.50196 0.37647 0.50196 0.2925 0.2730 11.61E+01 357 0.50196 0.37647 0.62353 0.2766 0.2489 11.87E+01 358 0.50196 0.37647 0.74902 0.2623 0.2277 12.18E+01 359 0.50196 0.37647 0.87451 0.2443 0.2013 12.71E+01 360 0.50196 0.37647 1.00000 0.2284 0.1782 13.44E+01 361 0.50196 0.50196 0.00000 0.4188 0.5166 12.78E+01 362 0.50196 0.50196 0.12549 0.3850 0.4591 13.02E+01 363 0.50196 0.50196 0.25098 0.3505 0.3993 13.26E+01 364 0.50196 0.50196 0.37647 0.3187 0.3452 13.56E+01 365 0.50196 0.50196 0.50196 0.2933 0.3013 13.89E+01 366 0.50196 0.50196 0.62353 0.2783 0.2760 14.15E+01 367 0.50196 0.50196 0.74902 0.2648 0.2534 14.46E+01 368 0.50196 0.50196 0.87451 0.2475 0.2246 14.99E+01 369 0.50196 0.50196 1.00000 0.2317 0.1992 15.74E+01 370 0.50196 0.62353 0.00000 0.4054 0.5308 14.90E+01 371 0.50196 0.62353 0.12549 0.3764 0.4776 15.15E+01 372 0.50196 0.62353 0.25098 0.3460 0.4212 15.40E+01 373 0.50196 0.62353 0.37647 0.3176 0.3681 15.69E+01 374 0.50196 0.62353 0.50196 0.2941 0.3240 16.03E+01 375 0.50196 0.62353 0.62353 0.2800 0.2981 16.29E+01 376 0.50196 0.62353 0.74902 0.2671 0.2746 16.59E+01 377 0.50196 0.62353 0.87451 0.2503 0.2443 17.13E+01 378 0.50196 0.62353 1.00000 0.2348 0.2172 17.90E+01 379 0.50196 0.74902 0.00000 0.3900 0.5472 18.21E+01 380 0.50196 0.74902 0.12549 0.3665 0.5000 18.47E+01 381 0.50196 0.74902 0.25098 0.3412 0.4480 18.72E+01 382 0.50196 0.74902 0.37647 0.3165 0.3973 19.02E+01 383 0.50196 0.74902 0.50196 0.2952 0.3537 19.35E+01 384 0.50196 0.74902 0.62353 0.2824 0.3276 19.62E+01 385 0.50196 0.74902 0.74902 0.2702 0.3034 19.93E+01 386 0.50196 0.74902 0.87451 0.2542 0.2715 20.46E+01 387 0.50196 0.74902 1.00000 0.2390 0.2422 21.23E+01 388 0.50196 0.87451 0.00000 0.3750 0.5637 23.09E+01 389 0.50196 0.87451 0.12549 0.3569 0.5232 23.34E+01 390 0.50196 0.87451 0.25098 0.3364 0.4767 23.58E+01 391 0.50196 0.87451 0.37647 0.3156 0.4300 23.88E+01 392 0.50196 0.87451 0.50196 0.2971 0.3882 24.21E+01 393 0.50196 0.87451 0.62353 0.2854 0.3624 24.48E+01 394 0.50196 0.87451 0.74902 0.2744 0.3379 24.78E+01 395 0.50196 0.87451 0.87451 0.2593 0.3050 25.32E+01 396 0.50196 0.87451 1.00000 0.2448 0.2737 26.08E+01 397 0.50196 1.00000 0.00000 0.3634 0.5770 29.33E+01 398 0.50196 1.00000 0.12549 0.3494 0.5429 29.49E+01 399 0.50196 1.00000 0.25098 0.3330 0.5023 29.70E+01 400 0.50196 1.00000 0.37647 0.3155 0.4599 29.97E+01 401 0.50196 1.00000 0.50196 0.2994 0.4208 30.29E+01 402 0.50196 1.00000 0.62353 0.2891 0.3959 30.54E+01 403 0.50196 1.00000 0.74902 0.2790 0.3718 30.82E+01 404 0.50196 1.00000 0.87451 0.2651 0.3387 31.34E+01 405 0.50196 1.00000 1.00000 0.2511 0.3058 32.01E+01 406 0.62353 0.00000 0.00000 0.6093 0.3325 38.17E+00 407 0.62353 0.00000 0.12549 0.5015 0.2652 39.70E+00 408 0.62353 0.00000 0.25098 0.4153 0.2116 41.81E+00 409 0.62353 0.00000 0.37647 0.3524 0.1729 4.47E+01 410 0.62353 0.00000 0.50196 0.3093 0.1465 4.78E+01 411 0.62353 0.00000 0.62353 0.2868 0.1332 5.03E+01 412 0.62353 0.00000 0.74902 0.2681 0.1222 5.32E+01 413 0.62353 0.00000 0.87451 0.2456 0.1098 5.84E+01 414 0.62353 0.00000 1.00000 0.2268 0.0995 6.50E+01 415 0.62353 0.12549 0.00000 0.5393 0.4014 59.83E+00 416 0.62353 0.12549 0.12549 0.4645 0.3341 61.59E+00 417 0.62353 0.12549 0.25098 0.3987 0.2744 63.77E+00 418 0.62353 0.12549 0.37647 0.3467 0.2274 6.67E+01 419 0.62353 0.12549 0.50196 0.3088 0.1934 6.99E+01 420 0.62353 0.12549 0.62353 0.2883 0.1754 7.24E+01 421 0.62353 0.12549 0.74902 0.2710 0.1600 7.53E+01 422 0.62353 0.12549 0.87451 0.2493 0.1421 8.06E+01 423 0.62353 0.12549 1.00000 0.2309 0.1269 8.74E+01 424 0.62353 0.25098 0.00000 0.4935 0.4464 8.24E+01 425 0.62353 0.25098 0.12549 0.4378 0.3833 8.44E+01 426 0.62353 0.25098 0.25098 0.3852 0.3230 8.67E+01 427 0.62353 0.25098 0.37647 0.3413 0.2721 8.96E+01 428 0.62353 0.25098 0.50196 0.3077 0.2336 9.28E+01 429 0.62353 0.25098 0.62353 0.2889 0.2125 9.54E+01 430 0.62353 0.25098 0.74902 0.2727 0.1941 9.83E+01 431 0.62353 0.25098 0.87451 0.2523 0.1717 10.36E+01 432 0.62353 0.25098 1.00000 0.2342 0.1526 11.06E+01 433 0.62353 0.37647 0.00000 0.4552 0.4839 11.13E+01 434 0.62353 0.37647 0.12549 0.4139 0.4271 11.36E+01 435 0.62353 0.37647 0.25098 0.3729 0.3688 11.59E+01 436 0.62353 0.37647 0.37647 0.3363 0.3168 11.88E+01 437 0.62353 0.37647 0.50196 0.3069 0.2755 12.21E+01 438 0.62353 0.37647 0.62353 0.2901 0.2519 12.47E+01 439 0.62353 0.37647 0.74902 0.2748 0.2310 12.77E+01 440 0.62353 0.37647 0.87451 0.2556 0.2048 13.30E+01 441 0.62353 0.37647 1.00000 0.2382 0.1819 14.04E+01 442 0.62353 0.50196 0.00000 0.4349 0.5043 13.37E+01 443 0.62353 0.50196 0.12549 0.4011 0.4516 13.61E+01 444 0.62353 0.50196 0.25098 0.3658 0.3961 13.86E+01 445 0.62353 0.50196 0.37647 0.3334 0.3446 14.15E+01 446 0.62353 0.50196 0.50196 0.3065 0.3025 14.49E+01 447 0.62353 0.50196 0.62353 0.2909 0.2777 14.74E+01 448 0.62353 0.50196 0.74902 0.2766 0.2557 15.05E+01 449 0.62353 0.50196 0.87451 0.2581 0.2275 15.59E+01 450 0.62353 0.50196 1.00000 0.2410 0.2023 16.34E+01 451 0.62353 0.62353 0.00000 0.4203 0.5191 15.50E+01 452 0.62353 0.62353 0.12549 0.3913 0.4701 15.74E+01 453 0.62353 0.62353 0.25098 0.3603 0.4172 15.99E+01 454 0.62353 0.62353 0.37647 0.3311 0.3666 16.29E+01 455 0.62353 0.62353 0.50196 0.3063 0.3243 16.62E+01 456 0.62353 0.62353 0.62353 0.2916 0.2993 16.89E+01 457 0.62353 0.62353 0.74902 0.2780 0.2763 17.19E+01 458 0.62353 0.62353 0.87451 0.2602 0.2467 17.74E+01 459 0.62353 0.62353 1.00000 0.2437 0.2197 18.49E+01 460 0.62353 0.74902 0.00000 0.4035 0.5364 18.81E+01 461 0.62353 0.74902 0.12549 0.3796 0.4925 19.07E+01 462 0.62353 0.74902 0.25098 0.3540 0.4432 19.32E+01 463 0.62353 0.74902 0.37647 0.3286 0.3949 19.61E+01 464 0.62353 0.74902 0.50196 0.3064 0.3531 19.96E+01 465 0.62353 0.74902 0.62353 0.2930 0.3278 20.22E+01 466 0.62353 0.74902 0.74902 0.2803 0.3042 20.53E+01 467 0.62353 0.74902 0.87451 0.2634 0.2730 21.07E+01 468 0.62353 0.74902 1.00000 0.2473 0.2441 21.83E+01 469 0.62353 0.87451 0.00000 0.3867 0.5542 23.69E+01 470 0.62353 0.87451 0.12549 0.3682 0.5161 23.94E+01 471 0.62353 0.87451 0.25098 0.3475 0.4718 24.18E+01 472 0.62353 0.87451 0.37647 0.3261 0.4269 24.48E+01 473 0.62353 0.87451 0.50196 0.3069 0.3867 24.81E+01 474 0.62353 0.87451 0.62353 0.2948 0.3616 25.08E+01 475 0.62353 0.87451 0.74902 0.2834 0.3378 25.38E+01 476 0.62353 0.87451 0.87451 0.2676 0.3056 25.92E+01 477 0.62353 0.87451 1.00000 0.2523 0.2749 26.68E+01 478 0.62353 1.00000 0.00000 0.3732 0.5690 29.94E+01 479 0.62353 1.00000 0.12549 0.3591 0.5363 30.09E+01 480 0.62353 1.00000 0.25098 0.3424 0.4973 30.30E+01 481 0.62353 1.00000 0.37647 0.3246 0.4564 30.57E+01 482 0.62353 1.00000 0.50196 0.3079 0.4187 30.89E+01 483 0.62353 1.00000 0.62353 0.2973 0.3944 31.14E+01 484 0.62353 1.00000 0.74902 0.2870 0.3710 31.43E+01 485 0.62353 1.00000 0.87451 0.2725 0.3385 31.94E+01 486 0.62353 1.00000 1.00000 0.2579 0.3063 32.61E+01 487 0.74902 0.00000 0.00000 0.6186 0.3334 47.84E+00 488 0.74902 0.00000 0.12549 0.5262 0.2767 49.38E+00 489 0.74902 0.00000 0.25098 0.4458 0.2278 5.17E+01 490 0.74902 0.00000 0.37647 0.3829 0.1890 5.43E+01 491 0.74902 0.00000 0.50196 0.3372 0.1618 5.75E+01 492 0.74902 0.00000 0.62353 0.3129 0.1475 6.00E+01 493 0.74902 0.00000 0.74902 0.2920 0.1354 6.29E+01 494 0.74902 0.00000 0.87451 0.2666 0.1213 6.80E+01 495 0.74902 0.00000 1.00000 0.2449 0.1095 7.47E+01 496 0.74902 0.12549 0.00000 0.5584 0.3911 6.97E+01 497 0.74902 0.12549 0.12549 0.4902 0.3347 7.15E+01 498 0.74902 0.12549 0.25098 0.4270 0.2813 7.36E+01 499 0.74902 0.12549 0.37647 0.3742 0.2370 7.64E+01 500 0.74902 0.12549 0.50196 0.3343 0.2039 7.96E+01 501 0.74902 0.12549 0.62353 0.3121 0.1859 8.22E+01 502 0.74902 0.12549 0.74902 0.2927 0.1705 8.52E+01 503 0.74902 0.12549 0.87451 0.2689 0.1514 9.03E+01 504 0.74902 0.12549 1.00000 0.2480 0.1353 9.71E+01 505 0.74902 0.25098 0.00000 0.5152 0.4319 9.22E+01 506 0.74902 0.25098 0.12549 0.4631 0.3776 9.41E+01 507 0.74902 0.25098 0.25098 0.4116 0.3241 9.64E+01 508 0.74902 0.25098 0.37647 0.3665 0.2771 9.93E+01 509 0.74902 0.25098 0.50196 0.3312 0.2405 10.26E+01 510 0.74902 0.25098 0.62353 0.3112 0.2198 10.51E+01 511 0.74902 0.25098 0.74902 0.2932 0.2017 10.81E+01 512 0.74902 0.25098 0.87451 0.2706 0.1792 11.33E+01 513 0.74902 0.25098 1.00000 0.2504 0.1597 12.04E+01 514 0.74902 0.37647 0.00000 0.4772 0.4679 12.11E+01 515 0.74902 0.37647 0.12549 0.4376 0.4180 12.33E+01 516 0.74902 0.37647 0.25098 0.3967 0.3659 12.56E+01 517 0.74902 0.37647 0.37647 0.3587 0.3182 12.86E+01 518 0.74902 0.37647 0.50196 0.3282 0.2791 13.19E+01 519 0.74902 0.37647 0.62353 0.3101 0.2565 13.45E+01 520 0.74902 0.37647 0.74902 0.2938 0.2362 13.75E+01 521 0.74902 0.37647 0.87451 0.2725 0.2105 14.29E+01 522 0.74902 0.37647 1.00000 0.2533 0.1875 15.02E+01 523 0.74902 0.50196 0.00000 0.4565 0.4881 14.35E+01 524 0.74902 0.50196 0.12549 0.4231 0.4416 14.59E+01 525 0.74902 0.50196 0.25098 0.3880 0.3914 14.83E+01 526 0.74902 0.50196 0.37647 0.3543 0.3440 15.13E+01 527 0.74902 0.50196 0.50196 0.3263 0.3043 15.47E+01 528 0.74902 0.50196 0.62353 0.3097 0.2808 15.73E+01 529 0.74902 0.50196 0.74902 0.2943 0.2595 16.04E+01 530 0.74902 0.50196 0.87451 0.2740 0.2319 16.57E+01 531 0.74902 0.50196 1.00000 0.2554 0.2069 17.31E+01 532 0.74902 0.62353 0.00000 0.4411 0.5031 16.47E+01 533 0.74902 0.62353 0.12549 0.4122 0.4595 16.72E+01 534 0.74902 0.62353 0.25098 0.3810 0.4113 16.97E+01 535 0.74902 0.62353 0.37647 0.3507 0.3647 17.27E+01 536 0.74902 0.62353 0.50196 0.3250 0.3248 17.60E+01 537 0.74902 0.62353 0.62353 0.3092 0.3010 17.87E+01 538 0.74902 0.62353 0.74902 0.2948 0.2788 18.17E+01 539 0.74902 0.62353 0.87451 0.2755 0.2501 18.72E+01 540 0.74902 0.62353 1.00000 0.2573 0.2236 19.47E+01 541 0.74902 0.74902 0.00000 0.4226 0.5213 19.79E+01 542 0.74902 0.74902 0.12549 0.3990 0.4816 20.05E+01 543 0.74902 0.74902 0.25098 0.3727 0.4366 20.30E+01 544 0.74902 0.74902 0.37647 0.3465 0.3916 20.60E+01 545 0.74902 0.74902 0.50196 0.3234 0.3521 20.93E+01 546 0.74902 0.74902 0.62353 0.3091 0.3280 21.20E+01 547 0.74902 0.74902 0.74902 0.2956 0.3054 21.51E+01 548 0.74902 0.74902 0.87451 0.2775 0.2752 22.05E+01 549 0.74902 0.74902 1.00000 0.2601 0.2470 22.81E+01 550 0.74902 0.87451 0.00000 0.4036 0.5405 24.67E+01 551 0.74902 0.87451 0.12549 0.3851 0.5055 24.91E+01 552 0.74902 0.87451 0.25098 0.3639 0.4645 25.16E+01 553 0.74902 0.87451 0.37647 0.3419 0.4225 25.46E+01 554 0.74902 0.87451 0.50196 0.3218 0.3844 25.80E+01 555 0.74902 0.87451 0.62353 0.3093 0.3604 26.06E+01 556 0.74902 0.87451 0.74902 0.2971 0.3376 26.36E+01 557 0.74902 0.87451 0.87451 0.2804 0.3065 26.90E+01 558 0.74902 0.87451 1.00000 0.2640 0.2766 27.65E+01 559 0.74902 1.00000 0.00000 0.3881 0.5567 30.91E+01 560 0.74902 1.00000 0.12549 0.3737 0.5264 31.06E+01 561 0.74902 1.00000 0.25098 0.3565 0.4900 31.28E+01 562 0.74902 1.00000 0.37647 0.3382 0.4514 31.55E+01 563 0.74902 1.00000 0.50196 0.3210 0.4154 31.87E+01 564 0.74902 1.00000 0.62353 0.3100 0.3922 32.11E+01 565 0.74902 1.00000 0.74902 0.2990 0.3698 32.41E+01 566 0.74902 1.00000 0.87451 0.2839 0.3383 32.92E+01 567 0.74902 1.00000 1.00000 0.2684 0.3072 33.59E+01 568 0.87451 0.00000 0.00000 0.6269 0.3344 6.14E+01 569 0.87451 0.00000 0.12549 0.5499 0.2877 6.29E+01 570 0.87451 0.00000 0.25098 0.4768 0.2436 6.50E+01 571 0.87451 0.00000 0.37647 0.4155 0.2068 6.77E+01 572 0.87451 0.00000 0.50196 0.3689 0.1793 7.09E+01 573 0.87451 0.00000 0.62353 0.3431 0.1642 7.34E+01 574 0.87451 0.00000 0.74902 0.3205 0.1512 7.63E+01 575 0.87451 0.00000 0.87451 0.2923 0.1354 8.14E+01 576 0.87451 0.00000 1.00000 0.2675 0.1220 8.81E+01 577 0.87451 0.12549 0.00000 0.5760 0.3813 8.30E+01 578 0.87451 0.12549 0.12549 0.5162 0.3349 8.48E+01 579 0.87451 0.12549 0.25098 0.4569 0.2887 8.70E+01 580 0.87451 0.12549 0.37647 0.4047 0.2477 8.97E+01 581 0.87451 0.12549 0.50196 0.3635 0.2160 9.30E+01 582 0.87451 0.12549 0.62353 0.3403 0.1981 9.55E+01 583 0.87451 0.12549 0.74902 0.3194 0.1825 9.85E+01 584 0.87451 0.12549 0.87451 0.2930 0.1628 10.36E+01 585 0.87451 0.12549 1.00000 0.2693 0.1458 11.04E+01 586 0.87451 0.25098 0.00000 0.5372 0.4170 10.55E+01 587 0.87451 0.25098 0.12549 0.4894 0.3720 10.74E+01 588 0.87451 0.25098 0.25098 0.4402 0.3254 10.97E+01 589 0.87451 0.25098 0.37647 0.3952 0.2827 11.25E+01 590 0.87451 0.25098 0.50196 0.3585 0.2485 11.59E+01 591 0.87451 0.25098 0.62353 0.3373 0.2285 11.84E+01 592 0.87451 0.25098 0.74902 0.3179 0.2108 12.14E+01 593 0.87451 0.25098 0.87451 0.2931 0.1884 12.67E+01 594 0.87451 0.25098 1.00000 0.2705 0.1685 13.37E+01 595 0.87451 0.37647 0.00000 0.5012 0.4506 13.44E+01 596 0.87451 0.37647 0.12549 0.4634 0.4084 13.66E+01 597 0.87451 0.37647 0.25098 0.4233 0.3627 13.90E+01 598 0.87451 0.37647 0.37647 0.3851 0.3196 14.19E+01 599 0.87451 0.37647 0.50196 0.3532 0.2834 14.52E+01 600 0.87451 0.37647 0.62353 0.3343 0.2619 14.78E+01 601 0.87451 0.37647 0.74902 0.3167 0.2424 15.08E+01 602 0.87451 0.37647 0.87451 0.2937 0.2172 15.61E+01 603 0.87451 0.37647 1.00000 0.2723 0.1946 16.35E+01 604 0.87451 0.50196 0.00000 0.4801 0.4702 15.69E+01 605 0.87451 0.50196 0.12549 0.4480 0.4304 15.93E+01 606 0.87451 0.50196 0.25098 0.4131 0.3861 16.17E+01 607 0.87451 0.50196 0.37647 0.3790 0.3431 16.46E+01 608 0.87451 0.50196 0.50196 0.3500 0.3064 16.80E+01 609 0.87451 0.50196 0.62353 0.3323 0.2843 17.06E+01 610 0.87451 0.50196 0.74902 0.3159 0.2639 17.37E+01 611 0.87451 0.50196 0.87451 0.2939 0.2372 17.90E+01 612 0.87451 0.50196 1.00000 0.2735 0.2127 18.64E+01 613 0.87451 0.62353 0.00000 0.4642 0.4854 17.81E+01 614 0.87451 0.62353 0.12549 0.4362 0.4473 18.05E+01 615 0.87451 0.62353 0.25098 0.4050 0.4046 18.30E+01 616 0.87451 0.62353 0.37647 0.3742 0.3623 18.60E+01 617 0.87451 0.62353 0.50196 0.3474 0.3254 18.94E+01 618 0.87451 0.62353 0.62353 0.3308 0.3030 19.21E+01 619 0.87451 0.62353 0.74902 0.3154 0.2820 19.51E+01 620 0.87451 0.62353 0.87451 0.2944 0.2543 20.05E+01 621 0.87451 0.62353 1.00000 0.2746 0.2285 20.80E+01 622 0.87451 0.74902 0.00000 0.4448 0.5039 21.12E+01 623 0.87451 0.74902 0.12549 0.4212 0.4691 21.38E+01 624 0.87451 0.74902 0.25098 0.3947 0.4286 21.63E+01 625 0.87451 0.74902 0.37647 0.3678 0.3876 21.94E+01 626 0.87451 0.74902 0.50196 0.3439 0.3510 22.27E+01 627 0.87451 0.74902 0.62353 0.3290 0.3282 22.53E+01 628 0.87451 0.74902 0.74902 0.3146 0.3070 22.85E+01 629 0.87451 0.74902 0.87451 0.2952 0.2781 23.39E+01 630 0.87451 0.74902 1.00000 0.2764 0.2508 24.15E+01 631 0.87451 0.87451 0.00000 0.4238 0.5242 26.00E+01 632 0.87451 0.87451 0.12549 0.4053 0.4930 26.25E+01 633 0.87451 0.87451 0.25098 0.3836 0.4557 26.49E+01 634 0.87451 0.87451 0.37647 0.3610 0.4170 26.80E+01 635 0.87451 0.87451 0.50196 0.3403 0.3815 27.13E+01 636 0.87451 0.87451 0.62353 0.3270 0.3591 27.40E+01 637 0.87451 0.87451 0.74902 0.3143 0.3374 27.69E+01 638 0.87451 0.87451 0.87451 0.2964 0.3078 28.24E+01 639 0.87451 0.87451 1.00000 0.2789 0.2789 28.99E+01 640 0.87451 1.00000 0.00000 0.4059 0.5423 32.23E+01 641 0.87451 1.00000 0.12549 0.3913 0.5144 32.39E+01 642 0.87451 1.00000 0.25098 0.3737 0.4810 32.61E+01 643 0.87451 1.00000 0.37647 0.3551 0.4450 32.87E+01 644 0.87451 1.00000 0.50196 0.3373 0.4113 33.20E+01 645 0.87451 1.00000 0.62353 0.3257 0.3895 33.45E+01 646 0.87451 1.00000 0.74902 0.3144 0.3681 33.73E+01 647 0.87451 1.00000 0.87451 0.2982 0.3383 34.26E+01 648 0.87451 1.00000 1.00000 0.2819 0.3082 34.92E+01 649 1.00000 0.00000 0.00000 0.6340 0.3345 7.86E+01 650 1.00000 0.00000 0.12549 0.5703 0.2964 8.01E+01 651 1.00000 0.00000 0.25098 0.5055 0.2581 8.23E+01 652 1.00000 0.00000 0.37647 0.4476 0.2237 8.50E+01 653 1.00000 0.00000 0.50196 0.4014 0.1965 8.81E+01 654 1.00000 0.00000 0.62353 0.3749 0.1813 9.07E+01 655 1.00000 0.00000 0.74902 0.3510 0.1678 9.36E+01 656 1.00000 0.00000 0.87451 0.3208 0.1508 9.86E+01 657 1.00000 0.00000 1.00000 0.2935 0.1361 10.52E+01 658 1.00000 0.12549 0.00000 0.5915 0.3727 10.00E+01 659 1.00000 0.12549 0.12549 0.5398 0.3344 10.16E+01 660 1.00000 0.12549 0.25098 0.4853 0.2947 10.39E+01 661 1.00000 0.12549 0.37647 0.4350 0.2576 10.66E+01 662 1.00000 0.12549 0.50196 0.3939 0.2278 10.99E+01 663 1.00000 0.12549 0.62353 0.3696 0.2104 11.24E+01 664 1.00000 0.12549 0.74902 0.3477 0.1950 11.54E+01 665 1.00000 0.12549 0.87451 0.3193 0.1751 12.05E+01 666 1.00000 0.12549 1.00000 0.2935 0.1576 12.73E+01 667 1.00000 0.25098 0.00000 0.5575 0.4036 12.24E+01 668 1.00000 0.25098 0.12549 0.5140 0.3666 12.44E+01 669 1.00000 0.25098 0.25098 0.4679 0.3262 12.66E+01 670 1.00000 0.25098 0.37647 0.4239 0.2879 12.94E+01 671 1.00000 0.25098 0.50196 0.3870 0.2562 13.28E+01 672 1.00000 0.25098 0.62353 0.3650 0.2373 13.53E+01 673 1.00000 0.25098 0.74902 0.3448 0.2203 13.83E+01 674 1.00000 0.25098 0.87451 0.3182 0.1982 14.35E+01 675 1.00000 0.25098 1.00000 0.2936 0.1784 15.05E+01 676 1.00000 0.37647 0.00000 0.5241 0.4340 15.12E+01 677 1.00000 0.37647 0.12549 0.4886 0.3987 15.35E+01 678 1.00000 0.37647 0.25098 0.4499 0.3593 15.59E+01 679 1.00000 0.37647 0.37647 0.4122 0.3203 15.87E+01 680 1.00000 0.37647 0.50196 0.3797 0.2873 16.21E+01 681 1.00000 0.37647 0.62353 0.3599 0.2674 16.48E+01 682 1.00000 0.37647 0.74902 0.3414 0.2488 16.77E+01 683 1.00000 0.37647 0.87451 0.3170 0.2246 17.30E+01 684 1.00000 0.37647 1.00000 0.2939 0.2024 18.02E+01 685 1.00000 0.50196 0.00000 0.5035 0.4527 17.37E+01 686 1.00000 0.50196 0.12549 0.4726 0.4189 17.61E+01 687 1.00000 0.50196 0.25098 0.4386 0.3802 17.85E+01 688 1.00000 0.50196 0.37647 0.4048 0.3417 18.15E+01 689 1.00000 0.50196 0.50196 0.3750 0.3082 18.49E+01 690 1.00000 0.50196 0.62353 0.3566 0.2876 18.75E+01 691 1.00000 0.50196 0.74902 0.3395 0.2685 19.05E+01 692 1.00000 0.50196 0.87451 0.3163 0.2430 19.59E+01 693 1.00000 0.50196 1.00000 0.2942 0.2194 20.32E+01 694 1.00000 0.62353 0.00000 0.4875 0.4674 19.49E+01 695 1.00000 0.62353 0.12549 0.4603 0.4350 19.74E+01 696 1.00000 0.62353 0.25098 0.4295 0.3973 19.99E+01 697 1.00000 0.62353 0.37647 0.3988 0.3593 20.28E+01 698 1.00000 0.62353 0.50196 0.3711 0.3257 20.63E+01 699 1.00000 0.62353 0.62353 0.3541 0.3047 20.89E+01 700 1.00000 0.62353 0.74902 0.3379 0.2850 21.19E+01 701 1.00000 0.62353 0.87451 0.3157 0.2588 21.73E+01 702 1.00000 0.62353 1.00000 0.2944 0.2341 22.48E+01 703 1.00000 0.74902 0.00000 0.4675 0.4860 22.79E+01 704 1.00000 0.74902 0.12549 0.4443 0.4557 23.06E+01 705 1.00000 0.74902 0.25098 0.4180 0.4197 23.30E+01 706 1.00000 0.74902 0.37647 0.3908 0.3827 23.61E+01 707 1.00000 0.74902 0.50196 0.3662 0.3493 23.95E+01 708 1.00000 0.74902 0.62353 0.3506 0.3282 24.22E+01 709 1.00000 0.74902 0.74902 0.3357 0.3082 24.53E+01 710 1.00000 0.74902 0.87451 0.3151 0.2809 25.06E+01 711 1.00000 0.74902 1.00000 0.2951 0.2549 25.81E+01 712 1.00000 0.87451 0.00000 0.4452 0.5071 27.67E+01 713 1.00000 0.87451 0.12549 0.4268 0.4793 27.91E+01 714 1.00000 0.87451 0.25098 0.4048 0.4459 28.16E+01 715 1.00000 0.87451 0.37647 0.3818 0.4105 28.46E+01 716 1.00000 0.87451 0.50196 0.3605 0.3779 28.80E+01 717 1.00000 0.87451 0.62353 0.3468 0.3569 29.06E+01 718 1.00000 0.87451 0.74902 0.3334 0.3367 29.36E+01 719 1.00000 0.87451 0.87451 0.3147 0.3088 29.90E+01 720 1.00000 0.87451 1.00000 0.2961 0.2816 30.65E+01 721 1.00000 1.00000 0.00000 0.4251 0.5266 33.88E+01 722 1.00000 1.00000 0.12549 0.4105 0.5014 34.03E+01 723 1.00000 1.00000 0.25098 0.3928 0.4707 34.24E+01 724 1.00000 1.00000 0.37647 0.3735 0.4376 34.52E+01 725 1.00000 1.00000 0.50196 0.3553 0.4062 34.83E+01 726 1.00000 1.00000 0.62353 0.3432 0.3859 35.09E+01 727 1.00000 1.00000 0.74902 0.3314 0.3659 35.38E+01 728 1.00000 1.00000 0.87451 0.3145 0.3377 35.89E+01 729 1.00000 1.00000 1.00000 0.2974 0.3093 36.55E+01 730 1.00000 1.00000 1.00000 0.2974 0.3093 36.54E+01 731 0.87451 1.00000 1.00000 0.2819 0.3082 34.92E+01 732 0.74902 1.00000 1.00000 0.2684 0.3071 33.59E+01 733 0.62353 1.00000 1.00000 0.2579 0.3063 32.62E+01 734 0.50196 1.00000 1.00000 0.2511 0.3058 32.02E+01 735 0.37647 1.00000 1.00000 0.2444 0.3053 31.45E+01 736 0.25098 1.00000 1.00000 0.2360 0.3047 30.75E+01 737 0.12549 1.00000 1.00000 0.2266 0.3040 30.01E+01 738 0.00000 1.00000 1.00000 0.2155 0.3031 29.15E+01 739 1.00000 0.87451 0.87451 0.3147 0.3088 29.90E+01 740 0.87451 0.87451 0.87451 0.2965 0.3078 28.24E+01 741 0.74902 0.87451 0.87451 0.2803 0.3066 26.90E+01 742 0.62353 0.87451 0.87451 0.2676 0.3056 25.93E+01 743 0.50196 0.87451 0.87451 0.2593 0.3050 25.33E+01 744 0.37647 0.87451 0.87451 0.2512 0.3044 24.76E+01 745 0.25098 0.87451 0.87451 0.2406 0.3037 24.07E+01 746 0.12549 0.87451 0.87451 0.2290 0.3029 23.32E+01 747 0.00000 0.87451 0.87451 0.2150 0.3025 22.44E+01 748 1.00000 0.74902 0.74902 0.3357 0.3082 24.52E+01 749 0.87451 0.74902 0.74902 0.3147 0.3070 22.85E+01 750 0.74902 0.74902 0.74902 0.2956 0.3054 21.51E+01 751 0.62353 0.74902 0.74902 0.2804 0.3041 20.53E+01 752 0.50196 0.74902 0.74902 0.2702 0.3033 19.93E+01 753 0.37647 0.74902 0.74902 0.2602 0.3027 19.37E+01 754 0.25098 0.74902 0.74902 0.2472 0.3016 18.67E+01 755 0.12549 0.74902 0.74902 0.2324 0.3006 17.93E+01 756 0.00000 0.74902 0.74902 0.2143 0.3002 17.05E+01 757 1.00000 0.62353 0.62353 0.3541 0.3046 20.88E+01 758 0.87451 0.62353 0.62353 0.3308 0.3029 19.20E+01 759 0.74902 0.62353 0.62353 0.3093 0.3009 17.87E+01 760 0.62353 0.62353 0.62353 0.2916 0.2992 16.90E+01 761 0.50196 0.62353 0.62353 0.2799 0.2982 16.31E+01 762 0.37647 0.62353 0.62353 0.2682 0.2969 15.73E+01 763 0.25098 0.62353 0.62353 0.2526 0.2955 15.03E+01 764 0.12549 0.62353 0.62353 0.2347 0.2940 14.29E+01 765 0.00000 0.62353 0.62353 0.2124 0.2932 13.43E+01 766 1.00000 0.50196 0.50196 0.3750 0.3081 18.48E+01 767 0.87451 0.50196 0.50196 0.3499 0.3063 16.80E+01 768 0.74902 0.50196 0.50196 0.3263 0.3041 15.47E+01 769 0.62353 0.50196 0.50196 0.3066 0.3024 14.50E+01 770 0.50196 0.50196 0.50196 0.2932 0.3010 13.89E+01 771 0.37647 0.50196 0.50196 0.2797 0.3000 13.33E+01 772 0.25098 0.50196 0.50196 0.2616 0.2984 12.64E+01 773 0.12549 0.50196 0.50196 0.2403 0.2967 11.90E+01 774 0.00000 0.50196 0.50196 0.2135 0.2957 11.04E+01 775 1.00000 0.37647 0.37647 0.4121 0.3204 15.87E+01 776 0.87451 0.37647 0.37647 0.3852 0.3195 14.19E+01 777 0.74902 0.37647 0.37647 0.3588 0.3180 12.86E+01 778 0.62353 0.37647 0.37647 0.3362 0.3167 11.89E+01 779 0.50196 0.37647 0.37647 0.3204 0.3159 11.29E+01 780 0.37647 0.37647 0.37647 0.3042 0.3150 10.73E+01 781 0.25098 0.37647 0.37647 0.2817 0.3138 10.04E+01 782 0.12549 0.37647 0.37647 0.2548 0.3126 9.30E+01 783 0.00000 0.37647 0.37647 0.2186 0.3122 8.44E+01 784 1.00000 0.25098 0.25098 0.4678 0.3261 12.66E+01 785 0.87451 0.25098 0.25098 0.4398 0.3254 10.98E+01 786 0.74902 0.25098 0.25098 0.4115 0.3242 9.65E+01 787 0.62353 0.25098 0.25098 0.3853 0.3228 8.67E+01 788 0.50196 0.25098 0.25098 0.3664 0.3222 8.08E+01 789 0.37647 0.25098 0.25098 0.3458 0.3209 75.00E+00 790 0.25098 0.25098 0.25098 0.3163 0.3196 68.11E+00 791 0.12549 0.25098 0.25098 0.2782 0.3180 60.79E+00 792 0.00000 0.25098 0.25098 0.2227 0.3172 52.32E+00 793 1.00000 0.12549 0.12549 0.5395 0.3345 10.17E+01 794 0.87451 0.12549 0.12549 0.5162 0.3349 8.48E+01 795 0.74902 0.12549 0.12549 0.4902 0.3347 7.15E+01 796 0.62353 0.12549 0.12549 0.4644 0.3341 61.63E+00 797 0.50196 0.12549 0.12549 0.4443 0.3339 55.69E+00 798 0.37647 0.12549 0.12549 0.4211 0.3337 50.09E+00 799 0.25098 0.12549 0.12549 0.3846 0.3334 43.22E+00 800 0.12549 0.12549 0.12549 0.3310 0.3331 35.94E+00 801 0.00000 0.12549 0.12549 0.2352 0.3339 27.55E+00 802 1.00000 0.00000 0.00000 0.6340 0.3345 7.86E+01 803 0.87451 0.00000 0.00000 0.6272 0.3341 6.13E+01 804 0.74902 0.00000 0.00000 0.6187 0.3333 47.84E+00 805 0.62353 0.00000 0.00000 0.6093 0.3325 38.19E+00 806 0.50196 0.00000 0.00000 0.6010 0.3318 32.30E+00 807 0.37647 0.00000 0.00000 0.5902 0.3308 26.75E+00 808 0.25098 0.00000 0.00000 0.5691 0.3288 19.95E+00 809 0.12549 0.00000 0.00000 0.5236 0.3246 12.77E+00 810 0.00000 0.00000 0.00000 0.3097 0.3050 45.18E-01 811 1.00000 1.00000 1.00000 0.2974 0.3092 36.55E+01 812 0.87451 0.87451 1.00000 0.2788 0.2789 28.99E+01 813 0.74902 0.74902 1.00000 0.2602 0.2470 22.81E+01 814 0.62353 0.62353 1.00000 0.2437 0.2197 18.50E+01 815 0.50196 0.50196 1.00000 0.2318 0.1992 15.75E+01 816 0.37647 0.37647 1.00000 0.2187 0.1748 12.89E+01 817 0.25098 0.25098 1.00000 0.1997 0.1375 9.22E+01 818 0.12549 0.12549 1.00000 0.1780 0.1007 6.17E+01 819 0.00000 0.00000 1.00000 0.1495 0.0566 3.13E+01 820 1.00000 1.00000 0.87451 0.3144 0.3377 35.88E+01 821 0.87451 0.87451 0.87451 0.2964 0.3078 28.24E+01 822 0.74902 0.74902 0.87451 0.2774 0.2753 22.06E+01 823 0.62353 0.62353 0.87451 0.2603 0.2467 17.75E+01 824 0.50196 0.50196 0.87451 0.2475 0.2246 15.00E+01 825 0.37647 0.37647 0.87451 0.2332 0.1976 12.15E+01 826 0.25098 0.25098 0.87451 0.2119 0.1553 8.51E+01 827 0.12549 0.12549 0.87451 0.1864 0.1119 5.48E+01 828 0.00000 0.00000 0.87451 0.1509 0.0572 2.45E+01 829 1.00000 1.00000 0.74902 0.3313 0.3659 35.37E+01 830 0.87451 0.87451 0.74902 0.3142 0.3375 27.70E+01 831 0.74902 0.74902 0.74902 0.2957 0.3055 21.52E+01 832 0.62353 0.62353 0.74902 0.2780 0.2764 17.21E+01 833 0.50196 0.50196 0.74902 0.2649 0.2534 14.47E+01 834 0.37647 0.37647 0.74902 0.2498 0.2243 11.62E+01 835 0.25098 0.25098 0.74902 0.2263 0.1771 7.99E+01 836 0.12549 0.12549 0.74902 0.1965 0.1262 4.96E+01 837 0.00000 0.00000 0.74902 0.1530 0.0583 1.93E+01 838 1.00000 1.00000 0.62353 0.3431 0.3859 35.08E+01 839 0.87451 0.87451 0.62353 0.3270 0.3590 27.39E+01 840 0.74902 0.74902 0.62353 0.3090 0.3281 21.21E+01 841 0.62353 0.62353 0.62353 0.2916 0.2992 16.90E+01 842 0.50196 0.50196 0.62353 0.2784 0.2759 14.16E+01 843 0.37647 0.37647 0.62353 0.2628 0.2459 11.32E+01 844 0.25098 0.25098 0.62353 0.2382 0.1955 7.69E+01 845 0.12549 0.12549 0.62353 0.2055 0.1393 4.67E+01 846 0.00000 0.00000 0.62353 0.1545 0.0600 1.64E+01 847 1.00000 1.00000 0.50196 0.3552 0.4063 34.82E+01 848 0.87451 0.87451 0.50196 0.3403 0.3815 27.13E+01 849 0.74902 0.74902 0.50196 0.3234 0.3521 20.94E+01 850 0.62353 0.62353 0.50196 0.3063 0.3242 16.64E+01 851 0.50196 0.50196 0.50196 0.2931 0.3012 13.89E+01 852 0.37647 0.37647 0.50196 0.2777 0.2706 11.06E+01 853 0.25098 0.25098 0.50196 0.2521 0.2176 7.44E+01 854 0.12549 0.12549 0.50196 0.2163 0.1557 4.42E+01 855 0.00000 0.00000 0.50196 0.1569 0.0629 1.40E+01 856 1.00000 1.00000 0.37647 0.3734 0.4376 34.51E+01 857 0.87451 0.87451 0.37647 0.3610 0.4170 26.80E+01 858 0.74902 0.74902 0.37647 0.3464 0.3914 20.60E+01 859 0.62353 0.62353 0.37647 0.3309 0.3665 16.29E+01 860 0.50196 0.50196 0.37647 0.3187 0.3450 13.56E+01 861 0.37647 0.37647 0.37647 0.3040 0.3151 10.73E+01 862 0.25098 0.25098 0.37647 0.2787 0.2597 7.11E+01 863 0.12549 0.12549 0.37647 0.2389 0.1894 4.09E+01 864 0.00000 0.00000 0.37647 0.1616 0.0702 1.09E+01 865 1.00000 1.00000 0.25098 0.3927 0.4706 34.23E+01 866 0.87451 0.87451 0.25098 0.3836 0.4558 26.50E+01 867 0.74902 0.74902 0.25098 0.3726 0.4365 20.30E+01 868 0.62353 0.62353 0.25098 0.3604 0.4170 16.00E+01 869 0.50196 0.50196 0.25098 0.3503 0.3993 13.27E+01 870 0.37647 0.37647 0.25098 0.3381 0.3731 10.44E+01 871 0.25098 0.25098 0.25098 0.3163 0.3196 68.07E+00 872 0.12549 0.12549 0.25098 0.2742 0.2446 38.06E+00 873 0.00000 0.00000 0.25098 0.1711 0.0840 8.05E+00 874 1.00000 1.00000 0.12549 0.4104 0.5013 34.02E+01 875 0.87451 0.87451 0.12549 0.4052 0.4929 26.25E+01 876 0.74902 0.74902 0.12549 0.3990 0.4816 20.05E+01 877 0.62353 0.62353 0.12549 0.3910 0.4701 15.75E+01 878 0.50196 0.50196 0.12549 0.3850 0.4590 13.03E+01 879 0.37647 0.37647 0.12549 0.3784 0.4406 10.20E+01 880 0.25098 0.25098 0.12549 0.3657 0.3990 65.82E+00 881 0.12549 0.12549 0.12549 0.3309 0.3330 35.92E+00 882 0.00000 0.00000 0.12549 0.1955 0.1230 6.02E+00 883 1.00000 1.00000 0.00000 0.4251 0.5267 33.86E+01 884 0.87451 0.87451 0.00000 0.4240 0.5242 25.99E+01 885 0.74902 0.74902 0.00000 0.4228 0.5213 19.79E+01 886 0.62353 0.62353 0.00000 0.4204 0.5193 15.50E+01 887 0.50196 0.50196 0.00000 0.4192 0.5166 12.78E+01 888 0.37647 0.37647 0.00000 0.4202 0.5102 9.98E+01 889 0.25098 0.25098 0.00000 0.4251 0.4931 63.86E+00 890 0.12549 0.12549 0.00000 0.4192 0.4695 34.20E+00 891 0.00000 0.00000 0.00000 0.3097 0.3051 45.16E-01 892 1.00000 1.00000 1.00000 0.2974 0.3093 36.56E+01 893 1.00000 0.87451 1.00000 0.2961 0.2815 30.64E+01 894 1.00000 0.74902 1.00000 0.2951 0.2549 25.81E+01 895 1.00000 0.62353 1.00000 0.2945 0.2341 22.47E+01 896 1.00000 0.50196 1.00000 0.2941 0.2194 20.32E+01 897 1.00000 0.37647 1.00000 0.2938 0.2024 18.02E+01 898 1.00000 0.25098 1.00000 0.2936 0.1784 15.05E+01 899 1.00000 0.12549 1.00000 0.2934 0.1575 12.72E+01 900 1.00000 0.00000 1.00000 0.2935 0.1361 10.52E+01 901 0.87451 1.00000 0.87451 0.2982 0.3382 34.25E+01 902 0.87451 0.87451 0.87451 0.2964 0.3078 28.24E+01 903 0.87451 0.74902 0.87451 0.2952 0.2781 23.39E+01 904 0.87451 0.62353 0.87451 0.2944 0.2542 20.05E+01 905 0.87451 0.50196 0.87451 0.2939 0.2372 17.91E+01 906 0.87451 0.37647 0.87451 0.2936 0.2171 15.61E+01 907 0.87451 0.25098 0.87451 0.2932 0.1884 12.67E+01 908 0.87451 0.12549 0.87451 0.2929 0.1629 10.37E+01 909 0.87451 0.00000 0.87451 0.2922 0.1355 8.15E+01 910 0.74902 1.00000 0.74902 0.2991 0.3696 32.40E+01 911 0.74902 0.87451 0.74902 0.2971 0.3376 26.37E+01 912 0.74902 0.74902 0.74902 0.2957 0.3054 21.51E+01 913 0.74902 0.62353 0.74902 0.2947 0.2789 18.18E+01 914 0.74902 0.50196 0.74902 0.2942 0.2594 16.04E+01 915 0.74902 0.37647 0.74902 0.2937 0.2362 13.75E+01 916 0.74902 0.25098 0.74902 0.2931 0.2018 10.82E+01 917 0.74902 0.12549 0.74902 0.2928 0.1702 8.51E+01 918 0.74902 0.00000 0.74902 0.2920 0.1354 6.29E+01 919 0.62353 1.00000 0.62353 0.2973 0.3943 31.14E+01 920 0.62353 0.87451 0.62353 0.2949 0.3616 25.09E+01 921 0.62353 0.74902 0.62353 0.2929 0.3277 20.23E+01 922 0.62353 0.62353 0.62353 0.2916 0.2992 16.90E+01 923 0.62353 0.50196 0.62353 0.2909 0.2779 14.76E+01 924 0.62353 0.37647 0.62353 0.2901 0.2520 12.48E+01 925 0.62353 0.25098 0.62353 0.2890 0.2124 9.54E+01 926 0.62353 0.12549 0.62353 0.2882 0.1755 7.25E+01 927 0.62353 0.00000 0.62353 0.2869 0.1333 5.04E+01 928 0.50196 1.00000 0.50196 0.2994 0.4206 30.29E+01 929 0.50196 0.87451 0.50196 0.2970 0.3881 24.22E+01 930 0.50196 0.74902 0.50196 0.2952 0.3538 19.37E+01 931 0.50196 0.62353 0.50196 0.2939 0.3238 16.03E+01 932 0.50196 0.50196 0.50196 0.2932 0.3012 13.90E+01 933 0.50196 0.37647 0.50196 0.2925 0.2730 11.62E+01 934 0.50196 0.25098 0.50196 0.2915 0.2289 8.69E+01 935 0.50196 0.12549 0.50196 0.2910 0.1862 6.40E+01 936 0.50196 0.00000 0.50196 0.2894 0.1360 4.20E+01 937 0.37647 1.00000 0.37647 0.3065 0.4631 29.40E+01 938 0.37647 0.87451 0.37647 0.3050 0.4329 23.32E+01 939 0.37647 0.74902 0.37647 0.3042 0.3994 18.46E+01 940 0.37647 0.62353 0.37647 0.3037 0.3694 15.14E+01 941 0.37647 0.50196 0.37647 0.3038 0.3456 13.00E+01 942 0.37647 0.37647 0.37647 0.3040 0.3151 10.73E+01 943 0.37647 0.25098 0.37647 0.3047 0.2647 7.80E+01 944 0.37647 0.12549 0.37647 0.3059 0.2132 5.52E+01 945 0.37647 0.00000 0.37647 0.3064 0.1481 3.32E+01 946 0.25098 1.00000 0.25098 0.3110 0.5137 28.43E+01 947 0.25098 0.87451 0.25098 0.3105 0.4884 22.32E+01 948 0.25098 0.74902 0.25098 0.3106 0.4591 17.47E+01 949 0.25098 0.62353 0.25098 0.3114 0.4308 14.14E+01 950 0.25098 0.50196 0.25098 0.3119 0.4077 12.01E+01 951 0.25098 0.37647 0.25098 0.3134 0.3759 9.74E+01 952 0.25098 0.25098 0.25098 0.3163 0.3195 68.08E+00 953 0.25098 0.12549 0.25098 0.3202 0.2556 45.37E+00 954 0.25098 0.00000 0.25098 0.3252 0.1645 23.55E+00 955 0.12549 1.00000 0.12549 0.3120 0.5685 27.48E+01 956 0.12549 0.87451 0.12549 0.3114 0.5521 21.35E+01 957 0.12549 0.74902 0.12549 0.3119 0.5316 16.48E+01 958 0.12549 0.62353 0.12549 0.3129 0.5107 13.17E+01 959 0.12549 0.50196 0.12549 0.3146 0.4915 11.03E+01 960 0.12549 0.37647 0.12549 0.3167 0.4641 87.56E+00 961 0.12549 0.25098 0.12549 0.3223 0.4087 58.54E+00 962 0.12549 0.12549 0.12549 0.3310 0.3331 35.93E+00 963 0.12549 0.00000 0.12549 0.3466 0.1931 14.29E+00 964 0.00000 1.00000 0.00000 0.3051 0.6254 26.48E+01 965 0.00000 0.87451 0.00000 0.3030 0.6226 20.24E+01 966 0.00000 0.74902 0.00000 0.3010 0.6185 15.37E+01 967 0.00000 0.62353 0.00000 0.2994 0.6141 12.06E+01 968 0.00000 0.50196 0.00000 0.2984 0.6097 9.95E+01 969 0.00000 0.37647 0.00000 0.2975 0.6013 76.90E+00 970 0.00000 0.25098 0.00000 0.2972 0.5811 48.16E+00 971 0.00000 0.12549 0.00000 0.2985 0.5382 25.84E+00 972 0.00000 0.00000 0.00000 0.3097 0.3051 45.14E-01 973 0.00000 0.00000 0.00000 0.3098 0.3050 45.15E-01 974 0.12549 0.12549 0.12549 0.3310 0.3331 35.91E+00 975 0.25098 0.25098 0.25098 0.3163 0.3196 68.09E+00 976 0.37647 0.37647 0.37647 0.3042 0.3150 10.73E+01 977 0.50196 0.50196 0.50196 0.2932 0.3012 13.90E+01 978 0.62353 0.62353 0.62353 0.2916 0.2992 16.90E+01 979 0.74902 0.74902 0.74902 0.2956 0.3054 21.51E+01 980 0.87451 0.87451 0.87451 0.2965 0.3077 28.23E+01 981 1.00000 1.00000 1.00000 0.2974 0.3092 36.53E+01 982 0.00000 0.00000 0.00000 0.3098 0.3050 45.14E-01 983 0.12549 0.12549 0.12549 0.3310 0.3330 35.91E+00 984 0.25098 0.25098 0.25098 0.3163 0.3196 68.07E+00 985 0.37647 0.37647 0.37647 0.3041 0.3149 10.73E+01 986 0.50196 0.50196 0.50196 0.2932 0.3012 13.90E+01 987 0.62353 0.62353 0.62353 0.2916 0.2992 16.90E+01 988 0.74902 0.74902 0.74902 0.2956 0.3054 21.51E+01 989 0.87451 0.87451 0.87451 0.2965 0.3077 28.23E+01 990 1.00000 1.00000 1.00000 0.2973 0.3093 36.54E+01 991 0.00000 0.00000 0.00000 0.3098 0.3050 45.14E-01 992 0.12549 0.12549 0.12549 0.3309 0.3330 35.91E+00 993 0.25098 0.25098 0.25098 0.3163 0.3196 68.08E+00 994 0.37647 0.37647 0.37647 0.3041 0.3149 10.73E+01 995 0.50196 0.50196 0.50196 0.2932 0.3013 13.90E+01 996 0.62353 0.62353 0.62353 0.2917 0.2992 16.90E+01 997 0.74902 0.74902 0.74902 0.2956 0.3054 21.51E+01 998 0.87451 0.87451 0.87451 0.2965 0.3077 28.23E+01 999 1.00000 1.00000 1.00000 0.2973 0.3093 36.54E+01 1000 0.00000 0.00000 0.00000 0.3098 0.3050 45.14E-01 1001 0.12549 0.12549 0.12549 0.3310 0.3330 35.91E+00 1002 0.25098 0.25098 0.25098 0.3163 0.3196 68.08E+00 1003 0.37647 0.37647 0.37647 0.3041 0.3149 10.73E+01 1004 0.50196 0.50196 0.50196 0.2932 0.3012 13.90E+01 1005 0.62353 0.62353 0.62353 0.2916 0.2992 16.90E+01 1006 0.74902 0.74902 0.74902 0.2956 0.3054 21.51E+01 1007 0.87451 0.87451 0.87451 0.2965 0.3077 28.23E+01 1008 1.00000 1.00000 1.00000 0.2973 0.3093 36.53E+01 1009 0.00000 0.00000 0.00000 0.3097 0.3050 45.13E-01 1010 0.06667 0.06667 0.06667 0.3403 0.3353 21.42E+00 1011 0.13333 0.13333 0.13333 0.3302 0.3312 37.55E+00 1012 0.20000 0.20000 0.20000 0.3224 0.3246 54.66E+00 1013 0.26667 0.26667 0.26667 0.3141 0.3184 73.26E+00 1014 0.33333 0.33333 0.33333 0.3088 0.3159 9.33E+01 1015 0.40000 0.40000 0.40000 0.3014 0.3108 11.27E+01 1016 0.46667 0.46667 0.46667 0.2946 0.3025 13.03E+01 1017 0.53333 0.53333 0.53333 0.2924 0.3010 14.66E+01 1018 0.60000 0.60000 0.60000 0.2907 0.2996 16.25E+01 1019 0.66667 0.66667 0.66667 0.2929 0.2995 18.08E+01 1020 0.73333 0.73333 0.73333 0.2963 0.3056 20.86E+01 1021 0.80000 0.80000 0.80000 0.2958 0.3065 23.99E+01 1022 0.86667 0.86667 0.86667 0.2966 0.3070 27.64E+01 1023 0.93333 0.93333 0.93333 0.2993 0.3114 32.59E+01 1024 1.00000 1.00000 1.00000 0.2974 0.3092 36.53E+01 1025 0.00000 0.00000 0.00000 0.3098 0.3050 45.14E-01 1026 0.06667 0.06667 0.06667 0.3403 0.3354 21.43E+00 1027 0.13333 0.13333 0.13333 0.3303 0.3312 37.54E+00 1028 0.20000 0.20000 0.20000 0.3224 0.3246 54.66E+00 1029 0.26667 0.26667 0.26667 0.3141 0.3185 73.25E+00 1030 0.33333 0.33333 0.33333 0.3089 0.3161 9.33E+01 1031 0.40000 0.40000 0.40000 0.3014 0.3111 11.28E+01 1032 0.46667 0.46667 0.46667 0.2946 0.3025 13.03E+01 1033 0.53333 0.53333 0.53333 0.2925 0.3010 14.66E+01 1034 0.60000 0.60000 0.60000 0.2909 0.2995 16.24E+01 1035 0.66667 0.66667 0.66667 0.2930 0.2994 18.07E+01 1036 0.73333 0.73333 0.73333 0.2962 0.3056 20.86E+01 1037 0.80000 0.80000 0.80000 0.2958 0.3065 23.99E+01 1038 0.86667 0.86667 0.86667 0.2966 0.3070 27.64E+01 1039 0.93333 0.93333 0.93333 0.2993 0.3114 32.59E+01 1040 1.00000 1.00000 1.00000 0.2974 0.3092 36.53E+01 1041 0.00000 0.00000 0.00000 0.3098 0.3050 45.13E-01 1042 0.06667 0.06667 0.06667 0.3404 0.3354 21.42E+00 1043 0.13333 0.13333 0.13333 0.3303 0.3311 37.53E+00 1044 0.20000 0.20000 0.20000 0.3224 0.3246 54.65E+00 1045 0.26667 0.26667 0.26667 0.3141 0.3184 73.24E+00 1046 0.33333 0.33333 0.33333 0.3089 0.3161 9.33E+01 1047 0.40000 0.40000 0.40000 0.3012 0.3109 11.27E+01 1048 0.46667 0.46667 0.46667 0.2945 0.3026 13.03E+01 1049 0.53333 0.53333 0.53333 0.2925 0.3010 14.66E+01 1050 0.60000 0.60000 0.60000 0.2908 0.2996 16.25E+01 1051 0.66667 0.66667 0.66667 0.2927 0.2995 18.08E+01 1052 0.73333 0.73333 0.73333 0.2962 0.3057 20.86E+01 1053 0.80000 0.80000 0.80000 0.2958 0.3065 23.99E+01 1054 0.86667 0.86667 0.86667 0.2966 0.3070 27.64E+01 1055 0.93333 0.93333 0.93333 0.2993 0.3114 32.60E+01 1056 1.00000 1.00000 1.00000 0.2974 0.3092 36.53E+01 1057 0.00000 0.00000 0.00000 0.3097 0.3051 45.14E-01 1058 0.06667 0.06667 0.06667 0.3404 0.3354 21.42E+00 1059 0.13333 0.13333 0.13333 0.3303 0.3312 37.54E+00 1060 0.20000 0.20000 0.20000 0.3224 0.3246 54.66E+00 1061 0.26667 0.26667 0.26667 0.3141 0.3185 73.25E+00 1062 0.33333 0.33333 0.33333 0.3088 0.3159 9.33E+01 1063 0.40000 0.40000 0.40000 0.3014 0.3108 11.27E+01 1064 0.46667 0.46667 0.46667 0.2946 0.3025 13.03E+01 1065 0.53333 0.53333 0.53333 0.2925 0.3010 14.66E+01 1066 0.60000 0.60000 0.60000 0.2907 0.2996 16.25E+01 1067 0.66667 0.66667 0.66667 0.2929 0.2994 18.07E+01 1068 0.73333 0.73333 0.73333 0.2962 0.3056 20.85E+01 1069 0.80000 0.80000 0.80000 0.2958 0.3065 23.99E+01 1070 0.86667 0.86667 0.86667 0.2966 0.3070 27.64E+01 1071 0.93333 0.93333 0.93333 0.2993 0.3114 32.59E+01 1072 1.00000 1.00000 1.00000 0.2974 0.3093 36.54E+01 1073 0.00000 0.00000 0.00000 0.3098 0.3050 45.14E-01 1074 1.00000 1.00000 1.00000 0.2974 0.3093 36.56E+01 1075 1.00000 0.00000 0.00000 0.6338 0.3348 7.87E+01 1076 0.00000 1.00000 1.00000 0.2154 0.3031 29.15E+01 1077 1.00000 1.00000 0.00000 0.4251 0.5266 33.87E+01 1078 0.00000 0.00000 1.00000 0.1494 0.0567 3.14E+01 1079 0.00000 1.00000 0.00000 0.3051 0.6254 26.48E+01 1080 1.00000 0.00000 1.00000 0.2934 0.1361 10.52E+01 ] 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 LG27 /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 LG27_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 LG27_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 LG27 %%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 LG27 /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 LG27 %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 1 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 01 {/xchartix exch def %beg xchartix=00,01 /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 0 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 {(LG270-) show} {(LG271-) 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 12 ge {%xchartl>=12 %-3200 3625 xchartl 15 eq {300 add} if moveto %TBS lanind 0 eq {(Ergebnis: )} {(Result: )} ifelse show %TBIS (c*) show %TBL 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto %TBS (=) show %TBIS (c*) show %TBL 0 -50 rmoveto (lab*) show 0 50 rmoveto %TBS (; ) show %TBIS (t*) show %TBL 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto %TBS (=) show %TBIS (t*) show %TBL 0 -50 rmoveto (lab*) show 0 50 rmoveto % } if %xchartl>=12 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,01