%!PS-Adobe-3.0 EPSF-3.0 LG491-2A.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/LG49/) /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 (LG49_LCD projector_2) def /xyY0 7560 array def %1080x7 /LAB*TE [(LCD projector_100901_2)] def /xyY0 [ %produced with the settings of the LED-LCD (LECD) monitor; full white used %FILE LMT_1080_100901_2.TXT %no. r g b x y Y, projector ACER XD1150, measurement 2 1 0.00000 0.00000 0.00000 0.3185 0.3431 10.72E+00 2 0.00000 0.00000 0.12549 0.2904 0.3001 11.14E+00 3 0.00000 0.00000 0.25098 0.2402 0.2221 15.08E+00 4 0.00000 0.00000 0.37647 0.1847 0.1362 18.67E+00 5 0.00000 0.00000 0.50196 0.1633 0.1031 3.12E+01 6 0.00000 0.00000 0.62353 0.1544 0.0890 5.38E+01 7 0.00000 0.00000 0.74902 0.1501 0.0826 9.20E+01 8 0.00000 0.00000 0.87451 0.1486 0.0798 1.52E+02 9 0.00000 0.00000 1.00000 0.1474 0.0785 2.21E+02 10 0.00000 0.12549 0.00000 0.3228 0.3746 13.58E+00 11 0.00000 0.12549 0.12549 0.2985 0.3337 14.13E+00 12 0.00000 0.12549 0.25098 0.2425 0.2390 15.91E+00 13 0.00000 0.12549 0.37647 0.1912 0.1528 21.75E+00 14 0.00000 0.12549 0.50196 0.1666 0.1111 3.42E+01 15 0.00000 0.12549 0.62353 0.1560 0.0933 5.68E+01 16 0.00000 0.12549 0.74902 0.1510 0.0849 9.50E+01 17 0.00000 0.12549 0.87451 0.1488 0.0812 1.55E+02 18 0.00000 0.12549 1.00000 0.1478 0.0796 2.24E+02 19 0.00000 0.25098 0.00000 0.3310 0.4498 27.30E+00 20 0.00000 0.25098 0.12549 0.3150 0.4177 27.95E+00 21 0.00000 0.25098 0.25098 0.2701 0.3279 30.27E+00 22 0.00000 0.25098 0.37647 0.2142 0.2148 36.08E+00 23 0.00000 0.25098 0.50196 0.1801 0.1456 4.85E+01 24 0.00000 0.25098 0.62353 0.1636 0.1121 7.11E+01 25 0.00000 0.25098 0.74902 0.1553 0.0955 10.92E+01 26 0.00000 0.25098 0.87451 0.1515 0.0874 1.69E+02 27 0.00000 0.25098 1.00000 0.1495 0.0837 2.38E+02 28 0.00000 0.37647 0.00000 0.3384 0.5145 73.70E+00 29 0.00000 0.37647 0.12549 0.3307 0.4971 74.45E+00 30 0.00000 0.37647 0.25098 0.3049 0.4385 76.71E+00 31 0.00000 0.37647 0.37647 0.2582 0.3324 8.42E+01 32 0.00000 0.37647 0.50196 0.2136 0.2308 9.66E+01 33 0.00000 0.37647 0.62353 0.1851 0.1659 11.93E+01 34 0.00000 0.37647 0.74902 0.1686 0.1283 15.71E+01 35 0.00000 0.37647 0.87451 0.1597 0.1080 2.17E+02 36 0.00000 0.37647 1.00000 0.1553 0.0976 2.86E+02 37 0.00000 0.50196 0.00000 0.3423 0.5412 17.19E+01 38 0.00000 0.50196 0.12549 0.3386 0.5329 17.25E+01 39 0.00000 0.50196 0.25098 0.3252 0.5006 17.47E+01 40 0.00000 0.50196 0.37647 0.2934 0.4260 18.19E+01 41 0.00000 0.50196 0.50196 0.2532 0.3305 19.78E+01 42 0.00000 0.50196 0.62353 0.2171 0.2451 22.06E+01 43 0.00000 0.50196 0.74902 0.1912 0.1836 25.90E+01 44 0.00000 0.50196 0.87451 0.1752 0.1447 3.18E+02 45 0.00000 0.50196 1.00000 0.1663 0.1248 3.88E+02 46 0.00000 0.62353 0.00000 0.3438 0.5527 35.71E+01 47 0.00000 0.62353 0.12549 0.3420 0.5482 35.80E+01 48 0.00000 0.62353 0.25098 0.3348 0.5312 36.06E+01 49 0.00000 0.62353 0.37647 0.3159 0.4855 36.75E+01 50 0.00000 0.62353 0.50196 0.2859 0.4133 38.37E+01 51 0.00000 0.62353 0.62353 0.2521 0.3321 41.22E+01 52 0.00000 0.62353 0.74902 0.2211 0.2574 45.17E+01 53 0.00000 0.62353 0.87451 0.1976 0.2012 5.13E+02 54 0.00000 0.62353 1.00000 0.1840 0.1679 5.82E+02 55 0.00000 0.74902 0.00000 0.3442 0.5576 66.08E+01 56 0.00000 0.74902 0.12549 0.3432 0.5553 66.27E+01 57 0.00000 0.74902 0.25098 0.3392 0.5455 66.38E+01 58 0.00000 0.74902 0.37647 0.3279 0.5179 67.09E+01 59 0.00000 0.74902 0.50196 0.3072 0.4681 68.75E+01 60 0.00000 0.74902 0.62353 0.2798 0.4017 71.64E+01 61 0.00000 0.74902 0.74902 0.2506 0.3307 76.51E+01 62 0.00000 0.74902 0.87451 0.2240 0.2657 8.27E+02 63 0.00000 0.74902 1.00000 0.2064 0.2228 8.97E+02 64 0.00000 0.87451 0.00000 0.3442 0.5596 11.12E+02 65 0.00000 0.87451 0.12549 0.3439 0.5582 11.12E+02 66 0.00000 0.87451 0.25098 0.3416 0.5528 11.15E+02 67 0.00000 0.87451 0.37647 0.3344 0.5356 11.21E+02 68 0.00000 0.87451 0.50196 0.3205 0.5018 11.38E+02 69 0.00000 0.87451 0.62353 0.3003 0.4518 11.66E+02 70 0.00000 0.87451 0.74902 0.2746 0.3902 12.12E+02 71 0.00000 0.87451 0.87451 0.2489 0.3270 12.80E+02 72 0.00000 0.87451 1.00000 0.2294 0.2795 13.52E+02 73 0.00000 1.00000 0.00000 0.3447 0.5610 15.82E+02 74 0.00000 1.00000 0.12549 0.3443 0.5600 15.81E+02 75 0.00000 1.00000 0.25098 0.3426 0.5560 15.84E+02 76 0.00000 1.00000 0.37647 0.3376 0.5434 15.89E+02 77 0.00000 1.00000 0.50196 0.3272 0.5186 16.07E+02 78 0.00000 1.00000 0.62353 0.3112 0.4788 16.34E+02 79 0.00000 1.00000 0.74902 0.2897 0.4268 16.84E+02 80 0.00000 1.00000 0.87451 0.2658 0.3689 17.58E+02 81 0.00000 1.00000 1.00000 0.2472 0.3232 18.48E+02 82 0.12549 0.00000 0.00000 0.3274 0.3390 10.85E+00 83 0.12549 0.00000 0.12549 0.2995 0.2982 11.31E+00 84 0.12549 0.00000 0.25098 0.2390 0.2105 13.15E+00 85 0.12549 0.00000 0.37647 0.1875 0.1362 18.88E+00 86 0.12549 0.00000 0.50196 0.1646 0.1030 3.14E+01 87 0.12549 0.00000 0.62353 0.1550 0.0891 5.42E+01 88 0.12549 0.00000 0.74902 0.1504 0.0825 9.26E+01 89 0.12549 0.00000 0.87451 0.1488 0.0794 1.52E+02 90 0.12549 0.00000 1.00000 0.1478 0.0783 2.22E+02 91 0.12549 0.12549 0.00000 0.3300 0.3701 13.76E+00 92 0.12549 0.12549 0.12549 0.3047 0.3303 14.32E+00 93 0.12549 0.12549 0.25098 0.2470 0.2379 16.16E+00 94 0.12549 0.12549 0.37647 0.1935 0.1523 21.97E+00 95 0.12549 0.12549 0.50196 0.1678 0.1111 3.45E+01 96 0.12549 0.12549 0.62353 0.1567 0.0934 5.73E+01 97 0.12549 0.12549 0.74902 0.1514 0.0848 9.55E+01 98 0.12549 0.12549 0.87451 0.1490 0.0813 1.56E+02 99 0.12549 0.12549 1.00000 0.1480 0.0793 2.25E+02 100 0.12549 0.25098 0.00000 0.3357 0.4466 27.59E+00 101 0.12549 0.25098 0.12549 0.3191 0.4143 28.20E+00 102 0.12549 0.25098 0.25098 0.2738 0.3266 30.51E+00 103 0.12549 0.25098 0.37647 0.2163 0.2142 36.31E+00 104 0.12549 0.25098 0.50196 0.1813 0.1453 4.88E+01 105 0.12549 0.25098 0.62353 0.1641 0.1120 7.17E+01 106 0.12549 0.25098 0.74902 0.1557 0.0954 11.00E+01 107 0.12549 0.25098 0.87451 0.1514 0.0873 1.70E+02 108 0.12549 0.25098 1.00000 0.1498 0.0834 2.39E+02 109 0.12549 0.37647 0.00000 0.3405 0.5129 74.14E+00 110 0.12549 0.37647 0.12549 0.3327 0.4956 74.90E+00 111 0.12549 0.37647 0.25098 0.3066 0.4371 77.08E+00 112 0.12549 0.37647 0.37647 0.2594 0.3313 8.48E+01 113 0.12549 0.37647 0.50196 0.2146 0.2304 9.72E+01 114 0.12549 0.37647 0.62353 0.1856 0.1656 12.01E+01 115 0.12549 0.37647 0.74902 0.1689 0.1282 15.82E+01 116 0.12549 0.37647 0.87451 0.1600 0.1077 2.18E+02 117 0.12549 0.37647 1.00000 0.1555 0.0976 2.88E+02 118 0.12549 0.50196 0.00000 0.3433 0.5408 17.31E+01 119 0.12549 0.50196 0.12549 0.3398 0.5322 17.37E+01 120 0.12549 0.50196 0.25098 0.3260 0.5001 17.61E+01 121 0.12549 0.50196 0.37647 0.2943 0.4255 18.33E+01 122 0.12549 0.50196 0.50196 0.2539 0.3303 19.91E+01 123 0.12549 0.50196 0.62353 0.2175 0.2449 22.23E+01 124 0.12549 0.50196 0.74902 0.1913 0.1834 26.07E+01 125 0.12549 0.50196 0.87451 0.1749 0.1452 3.22E+02 126 0.12549 0.50196 1.00000 0.1663 0.1248 3.91E+02 127 0.12549 0.62353 0.00000 0.3443 0.5524 35.97E+01 128 0.12549 0.62353 0.12549 0.3424 0.5480 36.04E+01 129 0.12549 0.62353 0.25098 0.3354 0.5310 36.28E+01 130 0.12549 0.62353 0.37647 0.3164 0.4854 36.96E+01 131 0.12549 0.62353 0.50196 0.2862 0.4132 38.58E+01 132 0.12549 0.62353 0.62353 0.2524 0.3321 41.48E+01 133 0.12549 0.62353 0.74902 0.2213 0.2575 45.43E+01 134 0.12549 0.62353 0.87451 0.1980 0.2008 5.14E+02 135 0.12549 0.62353 1.00000 0.1840 0.1679 5.84E+02 136 0.12549 0.74902 0.00000 0.3446 0.5576 66.42E+01 137 0.12549 0.74902 0.12549 0.3436 0.5552 66.46E+01 138 0.12549 0.74902 0.25098 0.3396 0.5455 66.71E+01 139 0.12549 0.74902 0.37647 0.3282 0.5179 67.31E+01 140 0.12549 0.74902 0.50196 0.3076 0.4683 68.96E+01 141 0.12549 0.74902 0.62353 0.2801 0.4018 71.82E+01 142 0.12549 0.74902 0.74902 0.2509 0.3308 76.75E+01 143 0.12549 0.74902 0.87451 0.2240 0.2657 8.28E+02 144 0.12549 0.74902 1.00000 0.2063 0.2227 8.99E+02 145 0.12549 0.87451 0.00000 0.3444 0.5597 11.15E+02 146 0.12549 0.87451 0.12549 0.3438 0.5586 11.16E+02 147 0.12549 0.87451 0.25098 0.3416 0.5526 11.18E+02 148 0.12549 0.87451 0.37647 0.3344 0.5355 11.24E+02 149 0.12549 0.87451 0.50196 0.3209 0.5018 11.40E+02 150 0.12549 0.87451 0.62353 0.3002 0.4518 11.68E+02 151 0.12549 0.87451 0.74902 0.2751 0.3904 12.15E+02 152 0.12549 0.87451 0.87451 0.2491 0.3272 12.82E+02 153 0.12549 0.87451 1.00000 0.2294 0.2795 13.55E+02 154 0.12549 1.00000 0.00000 0.3447 0.5609 15.85E+02 155 0.12549 1.00000 0.12549 0.3443 0.5600 15.86E+02 156 0.12549 1.00000 0.25098 0.3428 0.5558 15.89E+02 157 0.12549 1.00000 0.37647 0.3378 0.5433 15.94E+02 158 0.12549 1.00000 0.50196 0.3274 0.5184 16.10E+02 159 0.12549 1.00000 0.62353 0.3112 0.4791 16.38E+02 160 0.12549 1.00000 0.74902 0.2897 0.4269 16.87E+02 161 0.12549 1.00000 0.87451 0.2660 0.3689 17.61E+02 162 0.12549 1.00000 1.00000 0.2472 0.3230 18.50E+02 163 0.25098 0.00000 0.00000 0.3829 0.3404 13.06E+00 164 0.25098 0.00000 0.12549 0.3522 0.3064 13.52E+00 165 0.25098 0.00000 0.25098 0.2795 0.2248 15.30E+00 166 0.25098 0.00000 0.37647 0.2086 0.1457 21.04E+00 167 0.25098 0.00000 0.50196 0.1750 0.1081 3.36E+01 168 0.25098 0.00000 0.62353 0.1602 0.0917 5.64E+01 169 0.25098 0.00000 0.74902 0.1533 0.0840 9.49E+01 170 0.25098 0.00000 0.87451 0.1501 0.0810 1.56E+02 171 0.25098 0.00000 1.00000 0.1488 0.0788 2.24E+02 172 0.25098 0.12549 0.00000 0.3772 0.3631 15.74E+00 173 0.25098 0.12549 0.12549 0.3511 0.3289 15.98E+00 174 0.25098 0.12549 0.25098 0.2835 0.2459 17.85E+00 175 0.25098 0.12549 0.37647 0.2128 0.1589 23.70E+00 176 0.25098 0.12549 0.50196 0.1772 0.1148 3.62E+01 177 0.25098 0.12549 0.62353 0.1617 0.0952 5.90E+01 178 0.25098 0.12549 0.74902 0.1541 0.0859 9.74E+01 179 0.25098 0.12549 0.87451 0.1507 0.0818 1.58E+02 180 0.25098 0.12549 1.00000 0.1492 0.0797 2.27E+02 181 0.25098 0.25098 0.00000 0.3657 0.4353 29.41E+00 182 0.25098 0.25098 0.12549 0.3486 0.4062 29.63E+00 183 0.25098 0.25098 0.25098 0.2975 0.3221 31.16E+00 184 0.25098 0.25098 0.37647 0.2305 0.2135 36.91E+00 185 0.25098 0.25098 0.50196 0.1890 0.1458 4.95E+01 186 0.25098 0.25098 0.62353 0.1684 0.1123 7.23E+01 187 0.25098 0.25098 0.74902 0.1580 0.0956 11.07E+01 188 0.25098 0.25098 0.87451 0.1532 0.0871 1.70E+02 189 0.25098 0.25098 1.00000 0.1506 0.0837 2.40E+02 190 0.25098 0.37647 0.00000 0.3540 0.5055 75.95E+00 191 0.25098 0.37647 0.12549 0.3462 0.4892 76.27E+00 192 0.25098 0.37647 0.25098 0.3190 0.4329 77.83E+00 193 0.25098 0.37647 0.37647 0.2688 0.3301 8.56E+01 194 0.25098 0.37647 0.50196 0.2206 0.2304 9.80E+01 195 0.25098 0.37647 0.62353 0.1893 0.1658 12.07E+01 196 0.25098 0.37647 0.74902 0.1711 0.1283 15.88E+01 197 0.25098 0.37647 0.87451 0.1616 0.1079 2.19E+02 198 0.25098 0.37647 1.00000 0.1565 0.0975 2.88E+02 199 0.25098 0.50196 0.00000 0.3495 0.5367 17.49E+01 200 0.25098 0.50196 0.12549 0.3459 0.5286 17.53E+01 201 0.25098 0.50196 0.25098 0.3321 0.4976 17.71E+01 202 0.25098 0.50196 0.37647 0.2996 0.4239 18.41E+01 203 0.25098 0.50196 0.50196 0.2580 0.3298 20.01E+01 204 0.25098 0.50196 0.62353 0.2205 0.2452 22.36E+01 205 0.25098 0.50196 0.74902 0.1932 0.1834 26.15E+01 206 0.25098 0.50196 0.87451 0.1762 0.1451 3.22E+02 207 0.25098 0.50196 1.00000 0.1673 0.1245 3.90E+02 208 0.25098 0.62353 0.00000 0.3473 0.5504 36.23E+01 209 0.25098 0.62353 0.12549 0.3456 0.5461 36.25E+01 210 0.25098 0.62353 0.25098 0.3385 0.5294 36.46E+01 211 0.25098 0.62353 0.37647 0.3192 0.4842 37.07E+01 212 0.25098 0.62353 0.50196 0.2888 0.4125 38.73E+01 213 0.25098 0.62353 0.62353 0.2545 0.3319 41.64E+01 214 0.25098 0.62353 0.74902 0.2228 0.2574 45.57E+01 215 0.25098 0.62353 0.87451 0.1988 0.2008 5.15E+02 216 0.25098 0.62353 1.00000 0.1849 0.1682 5.86E+02 217 0.25098 0.74902 0.00000 0.3462 0.5565 66.62E+01 218 0.25098 0.74902 0.12549 0.3452 0.5541 66.67E+01 219 0.25098 0.74902 0.25098 0.3413 0.5446 66.87E+01 220 0.25098 0.74902 0.37647 0.3298 0.5172 67.44E+01 221 0.25098 0.74902 0.50196 0.3091 0.4677 69.14E+01 222 0.25098 0.74902 0.62353 0.2815 0.4015 71.97E+01 223 0.25098 0.74902 0.74902 0.2519 0.3305 76.89E+01 224 0.25098 0.74902 0.87451 0.2250 0.2657 8.30E+02 225 0.25098 0.74902 1.00000 0.2069 0.2227 9.01E+02 226 0.25098 0.87451 0.00000 0.3452 0.5593 11.18E+02 227 0.25098 0.87451 0.12549 0.3450 0.5578 11.19E+02 228 0.25098 0.87451 0.25098 0.3429 0.5517 11.20E+02 229 0.25098 0.87451 0.37647 0.3356 0.5347 11.25E+02 230 0.25098 0.87451 0.50196 0.3215 0.5013 11.43E+02 231 0.25098 0.87451 0.62353 0.3010 0.4516 11.72E+02 232 0.25098 0.87451 0.74902 0.2757 0.3900 12.18E+02 233 0.25098 0.87451 0.87451 0.2496 0.3271 12.86E+02 234 0.25098 0.87451 1.00000 0.2301 0.2793 13.57E+02 235 0.25098 1.00000 0.00000 0.3457 0.5601 15.88E+02 236 0.25098 1.00000 0.12549 0.3453 0.5595 15.88E+02 237 0.25098 1.00000 0.25098 0.3435 0.5556 15.90E+02 238 0.25098 1.00000 0.37647 0.3381 0.5431 15.95E+02 239 0.25098 1.00000 0.50196 0.3280 0.5183 16.12E+02 240 0.25098 1.00000 0.62353 0.3117 0.4787 16.40E+02 241 0.25098 1.00000 0.74902 0.2903 0.4268 16.91E+02 242 0.25098 1.00000 0.87451 0.2665 0.3688 17.63E+02 243 0.25098 1.00000 1.00000 0.2477 0.3231 18.52E+02 244 0.37647 0.00000 0.00000 0.4840 0.3401 21.38E+00 245 0.37647 0.00000 0.12549 0.4559 0.3182 21.89E+00 246 0.37647 0.00000 0.25098 0.3780 0.2568 23.56E+00 247 0.37647 0.00000 0.37647 0.2752 0.1772 29.12E+00 248 0.37647 0.00000 0.50196 0.2104 0.1261 4.17E+01 249 0.37647 0.00000 0.62353 0.1792 0.1015 6.45E+01 250 0.37647 0.00000 0.74902 0.1640 0.0896 10.28E+01 251 0.37647 0.00000 0.87451 0.1564 0.0836 1.62E+02 252 0.37647 0.00000 1.00000 0.1527 0.0814 2.34E+02 253 0.37647 0.12549 0.00000 0.4731 0.3560 24.24E+00 254 0.37647 0.12549 0.12549 0.4481 0.3327 24.47E+00 255 0.37647 0.12549 0.25098 0.3759 0.2711 26.17E+00 256 0.37647 0.12549 0.37647 0.2771 0.1879 31.84E+00 257 0.37647 0.12549 0.50196 0.2119 0.1321 4.44E+01 258 0.37647 0.12549 0.62353 0.1803 0.1048 6.72E+01 259 0.37647 0.12549 0.74902 0.1647 0.0915 10.55E+01 260 0.37647 0.12549 0.87451 0.1568 0.0853 1.66E+02 261 0.37647 0.12549 1.00000 0.1536 0.0818 2.36E+02 262 0.37647 0.25098 0.00000 0.4402 0.4093 37.53E+00 263 0.37647 0.25098 0.12549 0.4227 0.3880 37.76E+00 264 0.37647 0.25098 0.25098 0.3687 0.3221 38.27E+00 265 0.37647 0.25098 0.37647 0.2839 0.2286 43.79E+00 266 0.37647 0.25098 0.50196 0.2198 0.1575 5.64E+01 267 0.37647 0.25098 0.62353 0.1855 0.1196 7.93E+01 268 0.37647 0.25098 0.74902 0.1680 0.1000 11.76E+01 269 0.37647 0.25098 0.87451 0.1590 0.0904 1.78E+02 270 0.37647 0.25098 1.00000 0.1546 0.0857 2.49E+02 271 0.37647 0.37647 0.00000 0.3948 0.4813 83.58E+00 272 0.37647 0.37647 0.12549 0.3868 0.4677 83.90E+00 273 0.37647 0.37647 0.25098 0.3584 0.4192 84.14E+00 274 0.37647 0.37647 0.37647 0.3005 0.3226 8.75E+01 275 0.37647 0.37647 0.50196 0.2413 0.2288 10.02E+01 276 0.37647 0.37647 0.62353 0.2021 0.1658 12.29E+01 277 0.37647 0.37647 0.74902 0.1789 0.1287 16.10E+01 278 0.37647 0.37647 0.87451 0.1664 0.1080 2.20E+02 279 0.37647 0.37647 1.00000 0.1599 0.0979 2.91E+02 280 0.37647 0.50196 0.00000 0.3699 0.5229 18.35E+01 281 0.37647 0.50196 0.12549 0.3663 0.5154 18.39E+01 282 0.37647 0.50196 0.25098 0.3524 0.4869 18.42E+01 283 0.37647 0.50196 0.37647 0.3179 0.4175 18.73E+01 284 0.37647 0.50196 0.50196 0.2721 0.3273 20.33E+01 285 0.37647 0.50196 0.62353 0.2305 0.2445 22.67E+01 286 0.37647 0.50196 0.74902 0.2000 0.1840 26.52E+01 287 0.37647 0.50196 0.87451 0.1806 0.1456 3.25E+02 288 0.37647 0.50196 1.00000 0.1706 0.1248 3.95E+02 289 0.37647 0.62353 0.00000 0.3581 0.5427 37.09E+01 290 0.37647 0.62353 0.12549 0.3562 0.5386 37.12E+01 291 0.37647 0.62353 0.25098 0.3491 0.5226 37.16E+01 292 0.37647 0.62353 0.37647 0.3294 0.4795 37.39E+01 293 0.37647 0.62353 0.50196 0.2976 0.4097 39.06E+01 294 0.37647 0.62353 0.62353 0.2614 0.3305 41.96E+01 295 0.37647 0.62353 0.74902 0.2281 0.2572 45.92E+01 296 0.37647 0.62353 0.87451 0.2026 0.2014 5.19E+02 297 0.37647 0.62353 1.00000 0.1876 0.1679 5.89E+02 298 0.37647 0.74902 0.00000 0.3522 0.5520 67.44E+01 299 0.37647 0.74902 0.12549 0.3512 0.5497 67.49E+01 300 0.37647 0.74902 0.25098 0.3473 0.5404 67.53E+01 301 0.37647 0.74902 0.37647 0.3358 0.5139 67.70E+01 302 0.37647 0.74902 0.50196 0.3146 0.4653 69.42E+01 303 0.37647 0.74902 0.62353 0.2862 0.3999 72.27E+01 304 0.37647 0.74902 0.74902 0.2557 0.3299 77.11E+01 305 0.37647 0.74902 0.87451 0.2280 0.2654 8.31E+02 306 0.37647 0.74902 1.00000 0.2091 0.2221 9.03E+02 307 0.37647 0.87451 0.00000 0.3493 0.5562 11.24E+02 308 0.37647 0.87451 0.12549 0.3488 0.5550 11.25E+02 309 0.37647 0.87451 0.25098 0.3464 0.5496 11.25E+02 310 0.37647 0.87451 0.37647 0.3393 0.5327 11.24E+02 311 0.37647 0.87451 0.50196 0.3250 0.4998 11.44E+02 312 0.37647 0.87451 0.62353 0.3044 0.4503 11.73E+02 313 0.37647 0.87451 0.74902 0.2788 0.3897 12.20E+02 314 0.37647 0.87451 0.87451 0.2521 0.3275 12.90E+02 315 0.37647 0.87451 1.00000 0.2320 0.2792 13.61E+02 316 0.37647 1.00000 0.00000 0.3482 0.5583 15.94E+02 317 0.37647 1.00000 0.12549 0.3478 0.5575 15.95E+02 318 0.37647 1.00000 0.25098 0.3461 0.5536 15.95E+02 319 0.37647 1.00000 0.37647 0.3410 0.5416 15.96E+02 320 0.37647 1.00000 0.50196 0.3306 0.5168 16.15E+02 321 0.37647 1.00000 0.62353 0.3142 0.4777 16.42E+02 322 0.37647 1.00000 0.74902 0.2924 0.4259 16.91E+02 323 0.37647 1.00000 0.87451 0.2684 0.3688 17.66E+02 324 0.37647 1.00000 1.00000 0.2490 0.3224 18.54E+02 325 0.50196 0.00000 0.00000 0.5632 0.3403 39.45E+00 326 0.50196 0.00000 0.12549 0.5439 0.3280 39.95E+00 327 0.50196 0.00000 0.25098 0.4807 0.2879 41.69E+00 328 0.50196 0.00000 0.37647 0.3698 0.2180 47.04E+00 329 0.50196 0.00000 0.50196 0.2756 0.1579 5.91E+01 330 0.50196 0.00000 0.62353 0.2170 0.1207 8.20E+01 331 0.50196 0.00000 0.74902 0.1861 0.1009 12.04E+01 332 0.50196 0.00000 0.87451 0.1698 0.0910 1.81E+02 333 0.50196 0.00000 1.00000 0.1622 0.0859 2.51E+02 334 0.50196 0.12549 0.00000 0.5542 0.3492 42.24E+00 335 0.50196 0.12549 0.12549 0.5362 0.3362 42.50E+00 336 0.50196 0.12549 0.25098 0.4762 0.2961 44.23E+00 337 0.50196 0.12549 0.37647 0.3692 0.2251 49.57E+00 338 0.50196 0.12549 0.50196 0.2764 0.1628 6.17E+01 339 0.50196 0.12549 0.62353 0.2179 0.1235 8.44E+01 340 0.50196 0.12549 0.74902 0.1868 0.1026 12.28E+01 341 0.50196 0.12549 0.87451 0.1706 0.0918 1.83E+02 342 0.50196 0.12549 1.00000 0.1627 0.0865 2.53E+02 343 0.50196 0.25098 0.00000 0.5191 0.3842 55.76E+00 344 0.50196 0.25098 0.12549 0.5053 0.3716 55.97E+00 345 0.50196 0.25098 0.25098 0.4577 0.3282 56.50E+00 346 0.50196 0.25098 0.37647 0.3659 0.2543 61.79E+00 347 0.50196 0.25098 0.50196 0.2798 0.1842 7.39E+01 348 0.50196 0.25098 0.62353 0.2218 0.1369 9.67E+01 349 0.50196 0.25098 0.74902 0.1895 0.1108 13.52E+01 350 0.50196 0.25098 0.87451 0.1723 0.0968 1.95E+02 351 0.50196 0.25098 1.00000 0.1638 0.0902 2.66E+02 352 0.50196 0.37647 0.00000 0.4567 0.4478 10.08E+01 353 0.50196 0.37647 0.12549 0.4495 0.4382 10.11E+01 354 0.50196 0.37647 0.25098 0.4216 0.4021 10.13E+01 355 0.50196 0.37647 0.37647 0.3587 0.3222 10.25E+01 356 0.50196 0.37647 0.50196 0.2886 0.2402 11.43E+01 357 0.50196 0.37647 0.62353 0.2328 0.1759 13.72E+01 358 0.50196 0.37647 0.74902 0.1982 0.1360 17.53E+01 359 0.50196 0.37647 0.87451 0.1781 0.1131 2.35E+02 360 0.50196 0.37647 1.00000 0.1684 0.1014 3.06E+02 361 0.50196 0.50196 0.00000 0.4090 0.4977 19.79E+01 362 0.50196 0.50196 0.12549 0.4053 0.4917 19.85E+01 363 0.50196 0.50196 0.25098 0.3908 0.4676 19.91E+01 364 0.50196 0.50196 0.37647 0.3541 0.4070 20.02E+01 365 0.50196 0.50196 0.50196 0.3018 0.3206 20.66E+01 366 0.50196 0.50196 0.62353 0.2516 0.2418 22.99E+01 367 0.50196 0.50196 0.74902 0.2141 0.1830 26.83E+01 368 0.50196 0.50196 0.87451 0.1902 0.1451 3.28E+02 369 0.50196 0.50196 1.00000 0.1770 0.1249 3.98E+02 370 0.50196 0.62353 0.00000 0.3800 0.5279 38.57E+01 371 0.50196 0.62353 0.12549 0.3781 0.5242 38.60E+01 372 0.50196 0.62353 0.25098 0.3707 0.5098 38.67E+01 373 0.50196 0.62353 0.37647 0.3506 0.4700 38.74E+01 374 0.50196 0.62353 0.50196 0.3167 0.4035 39.46E+01 375 0.50196 0.62353 0.62353 0.2765 0.3271 42.30E+01 376 0.50196 0.62353 0.74902 0.2392 0.2555 46.22E+01 377 0.50196 0.62353 0.87451 0.2104 0.2008 5.23E+02 378 0.50196 0.62353 1.00000 0.1937 0.1679 5.93E+02 379 0.50196 0.74902 0.00000 0.3650 0.5431 68.90E+01 380 0.50196 0.74902 0.12549 0.3641 0.5410 68.92E+01 381 0.50196 0.74902 0.25098 0.3601 0.5322 68.98E+01 382 0.50196 0.74902 0.37647 0.3485 0.5073 69.21E+01 383 0.50196 0.74902 0.50196 0.3267 0.4610 70.22E+01 384 0.50196 0.74902 0.62353 0.2967 0.3970 72.73E+01 385 0.50196 0.74902 0.74902 0.2640 0.3280 77.45E+01 386 0.50196 0.74902 0.87451 0.2343 0.2644 8.35E+02 387 0.50196 0.74902 1.00000 0.2142 0.2218 9.06E+02 388 0.50196 0.87451 0.00000 0.3570 0.5506 11.38E+02 389 0.50196 0.87451 0.12549 0.3565 0.5494 11.39E+02 390 0.50196 0.87451 0.25098 0.3540 0.5442 11.39E+02 391 0.50196 0.87451 0.37647 0.3471 0.5281 11.38E+02 392 0.50196 0.87451 0.50196 0.3329 0.4961 11.46E+02 393 0.50196 0.87451 0.62353 0.3112 0.4476 11.75E+02 394 0.50196 0.87451 0.74902 0.2847 0.3876 12.24E+02 395 0.50196 0.87451 0.87451 0.2570 0.3265 12.97E+02 396 0.50196 0.87451 1.00000 0.2361 0.2789 13.69E+02 397 0.50196 1.00000 0.00000 0.3537 0.5544 16.10E+02 398 0.50196 1.00000 0.12549 0.3535 0.5536 16.10E+02 399 0.50196 1.00000 0.25098 0.3518 0.5500 16.12E+02 400 0.50196 1.00000 0.37647 0.3466 0.5381 16.10E+02 401 0.50196 1.00000 0.50196 0.3362 0.5140 16.19E+02 402 0.50196 1.00000 0.62353 0.3194 0.4756 16.47E+02 403 0.50196 1.00000 0.74902 0.2970 0.4242 16.95E+02 404 0.50196 1.00000 0.87451 0.2723 0.3674 17.70E+02 405 0.50196 1.00000 1.00000 0.2525 0.3217 18.59E+02 406 0.62353 0.00000 0.00000 0.6046 0.3404 7.50E+01 407 0.62353 0.00000 0.12549 0.5931 0.3339 7.55E+01 408 0.62353 0.00000 0.25098 0.5518 0.3102 7.73E+01 409 0.62353 0.00000 0.37647 0.4611 0.2577 8.24E+01 410 0.62353 0.00000 0.50196 0.3581 0.1982 9.43E+01 411 0.62353 0.00000 0.62353 0.2781 0.1516 11.57E+01 412 0.62353 0.00000 0.74902 0.2247 0.1208 15.43E+01 413 0.62353 0.00000 0.87451 0.1945 0.1035 2.14E+02 414 0.62353 0.00000 1.00000 0.1795 0.0949 2.85E+02 415 0.62353 0.12549 0.00000 0.5986 0.3451 7.79E+01 416 0.62353 0.12549 0.12549 0.5875 0.3385 7.83E+01 417 0.62353 0.12549 0.25098 0.5477 0.3147 8.01E+01 418 0.62353 0.12549 0.37647 0.4594 0.2623 8.53E+01 419 0.62353 0.12549 0.50196 0.3582 0.2016 9.71E+01 420 0.62353 0.12549 0.62353 0.2785 0.1543 11.86E+01 421 0.62353 0.12549 0.74902 0.2252 0.1225 15.71E+01 422 0.62353 0.12549 0.87451 0.1948 0.1046 2.17E+02 423 0.62353 0.12549 1.00000 0.1795 0.0957 2.88E+02 424 0.62353 0.25098 0.00000 0.5741 0.3664 9.17E+01 425 0.62353 0.25098 0.12549 0.5649 0.3592 9.18E+01 426 0.62353 0.25098 0.25098 0.5305 0.3329 9.23E+01 427 0.62353 0.25098 0.37647 0.4512 0.2800 9.75E+01 428 0.62353 0.25098 0.50196 0.3572 0.2169 10.95E+01 429 0.62353 0.25098 0.62353 0.2800 0.1654 13.12E+01 430 0.62353 0.25098 0.74902 0.2270 0.1297 16.96E+01 431 0.62353 0.25098 0.87451 0.1963 0.1091 2.29E+02 432 0.62353 0.25098 1.00000 0.1810 0.0987 3.00E+02 433 0.62353 0.37647 0.00000 0.5180 0.4141 13.67E+01 434 0.62353 0.37647 0.12549 0.5118 0.4078 13.69E+01 435 0.62353 0.37647 0.25098 0.4881 0.3841 13.73E+01 436 0.62353 0.37647 0.37647 0.4302 0.3269 13.82E+01 437 0.62353 0.37647 0.50196 0.3543 0.2592 15.01E+01 438 0.62353 0.37647 0.62353 0.2848 0.1981 17.18E+01 439 0.62353 0.37647 0.74902 0.2331 0.1525 20.99E+01 440 0.62353 0.37647 0.87451 0.2014 0.1247 2.70E+02 441 0.62353 0.37647 1.00000 0.1846 0.1095 3.40E+02 442 0.62353 0.50196 0.00000 0.4593 0.4649 23.33E+01 443 0.62353 0.50196 0.12549 0.4557 0.4604 23.37E+01 444 0.62353 0.50196 0.25098 0.4420 0.4422 23.42E+01 445 0.62353 0.50196 0.37647 0.4058 0.3949 23.53E+01 446 0.62353 0.50196 0.50196 0.3505 0.3215 23.88E+01 447 0.62353 0.50196 0.62353 0.2929 0.2522 26.00E+01 448 0.62353 0.50196 0.74902 0.2438 0.1931 29.85E+01 449 0.62353 0.50196 0.87451 0.2104 0.1531 3.58E+02 450 0.62353 0.50196 1.00000 0.1921 0.1310 4.29E+02 451 0.62353 0.62353 0.00000 0.4144 0.5039 41.72E+01 452 0.62353 0.62353 0.12549 0.4125 0.5008 41.77E+01 453 0.62353 0.62353 0.25098 0.4051 0.4886 41.84E+01 454 0.62353 0.62353 0.37647 0.3845 0.4545 41.88E+01 455 0.62353 0.62353 0.50196 0.3491 0.3954 42.23E+01 456 0.62353 0.62353 0.62353 0.3038 0.3212 43.17E+01 457 0.62353 0.62353 0.74902 0.2599 0.2533 47.17E+01 458 0.62353 0.62353 0.87451 0.2256 0.2001 5.32E+02 459 0.62353 0.62353 1.00000 0.2049 0.1679 6.03E+02 460 0.62353 0.74902 0.00000 0.3870 0.5275 72.31E+01 461 0.62353 0.74902 0.12549 0.3859 0.5256 72.36E+01 462 0.62353 0.74902 0.25098 0.3818 0.5178 72.51E+01 463 0.62353 0.74902 0.37647 0.3697 0.4954 72.81E+01 464 0.62353 0.74902 0.50196 0.3477 0.4526 73.20E+01 465 0.62353 0.74902 0.62353 0.3157 0.3911 73.91E+01 466 0.62353 0.74902 0.74902 0.2798 0.3256 79.10E+01 467 0.62353 0.74902 0.87451 0.2467 0.2640 8.52E+02 468 0.62353 0.74902 1.00000 0.2241 0.2220 9.24E+02 469 0.62353 0.87451 0.00000 0.3711 0.5405 11.74E+02 470 0.62353 0.87451 0.12549 0.3706 0.5398 11.74E+02 471 0.62353 0.87451 0.25098 0.3687 0.5344 11.74E+02 472 0.62353 0.87451 0.37647 0.3612 0.5193 11.73E+02 473 0.62353 0.87451 0.50196 0.3468 0.4890 11.76E+02 474 0.62353 0.87451 0.62353 0.3243 0.4424 11.87E+02 475 0.62353 0.87451 0.74902 0.2958 0.3841 12.35E+02 476 0.62353 0.87451 0.87451 0.2666 0.3248 13.11E+02 477 0.62353 0.87451 1.00000 0.2440 0.2781 13.85E+02 478 0.62353 1.00000 0.00000 0.3639 0.5471 16.48E+02 479 0.62353 1.00000 0.12549 0.3638 0.5463 16.47E+02 480 0.62353 1.00000 0.25098 0.3621 0.5425 16.48E+02 481 0.62353 1.00000 0.37647 0.3569 0.5313 16.48E+02 482 0.62353 1.00000 0.50196 0.3466 0.5083 16.53E+02 483 0.62353 1.00000 0.62353 0.3295 0.4711 16.60E+02 484 0.62353 1.00000 0.74902 0.3061 0.4213 17.11E+02 485 0.62353 1.00000 0.87451 0.2800 0.3655 17.86E+02 486 0.62353 1.00000 1.00000 0.2589 0.3203 18.74E+02 487 0.74902 0.00000 0.00000 0.6252 0.3405 13.29E+01 488 0.74902 0.00000 0.12549 0.6184 0.3366 13.33E+01 489 0.74902 0.00000 0.25098 0.5924 0.3224 13.51E+01 490 0.74902 0.00000 0.37647 0.5267 0.2863 13.99E+01 491 0.74902 0.00000 0.50196 0.4350 0.2355 15.23E+01 492 0.74902 0.00000 0.62353 0.3466 0.1864 17.34E+01 493 0.74902 0.00000 0.74902 0.2777 0.1482 20.97E+01 494 0.74902 0.00000 0.87451 0.2301 0.1223 2.70E+02 495 0.74902 0.00000 1.00000 0.2053 0.1082 3.40E+02 496 0.74902 0.12549 0.00000 0.6214 0.3432 13.57E+01 497 0.74902 0.12549 0.12549 0.6146 0.3392 13.60E+01 498 0.74902 0.12549 0.25098 0.5894 0.3248 13.77E+01 499 0.74902 0.12549 0.37647 0.5246 0.2887 14.26E+01 500 0.74902 0.12549 0.50196 0.4345 0.2376 15.47E+01 501 0.74902 0.12549 0.62353 0.3464 0.1881 17.59E+01 502 0.74902 0.12549 0.74902 0.2779 0.1495 21.22E+01 503 0.74902 0.12549 0.87451 0.2300 0.1234 2.73E+02 504 0.74902 0.12549 1.00000 0.2053 0.1089 3.42E+02 505 0.74902 0.25098 0.00000 0.6056 0.3557 14.92E+01 506 0.74902 0.25098 0.12549 0.5997 0.3516 14.94E+01 507 0.74902 0.25098 0.25098 0.5766 0.3359 15.00E+01 508 0.74902 0.25098 0.37647 0.5168 0.2999 15.48E+01 509 0.74902 0.25098 0.50196 0.4312 0.2480 16.71E+01 510 0.74902 0.25098 0.62353 0.3462 0.1966 18.84E+01 511 0.74902 0.25098 0.74902 0.2787 0.1557 22.46E+01 512 0.74902 0.25098 0.87451 0.2314 0.1271 2.84E+02 513 0.74902 0.25098 1.00000 0.2063 0.1121 3.55E+02 514 0.74902 0.37647 0.00000 0.5630 0.3892 19.39E+01 515 0.74902 0.37647 0.12549 0.5585 0.3853 19.40E+01 516 0.74902 0.37647 0.25098 0.5407 0.3702 19.43E+01 517 0.74902 0.37647 0.37647 0.4931 0.3307 19.50E+01 518 0.74902 0.37647 0.50196 0.4212 0.2775 20.72E+01 519 0.74902 0.37647 0.62353 0.3452 0.2217 22.85E+01 520 0.74902 0.37647 0.74902 0.2817 0.1750 26.44E+01 521 0.74902 0.37647 0.87451 0.2348 0.1411 3.25E+02 522 0.74902 0.37647 1.00000 0.2093 0.1221 3.95E+02 523 0.74902 0.50196 0.00000 0.5080 0.4335 29.10E+01 524 0.74902 0.50196 0.12549 0.5049 0.4303 29.15E+01 525 0.74902 0.50196 0.25098 0.4930 0.4176 29.20E+01 526 0.74902 0.50196 0.37647 0.4602 0.3828 29.27E+01 527 0.74902 0.50196 0.50196 0.4066 0.3250 29.66E+01 528 0.74902 0.50196 0.62353 0.3442 0.2652 31.77E+01 529 0.74902 0.50196 0.74902 0.2867 0.2101 35.41E+01 530 0.74902 0.50196 0.87451 0.2416 0.1673 4.14E+02 531 0.74902 0.50196 1.00000 0.2155 0.1420 4.85E+02 532 0.74902 0.62353 0.00000 0.4551 0.4760 47.41E+01 533 0.74902 0.62353 0.12549 0.4532 0.4736 47.45E+01 534 0.74902 0.62353 0.25098 0.4462 0.4639 47.51E+01 535 0.74902 0.62353 0.37647 0.4262 0.4364 47.45E+01 536 0.74902 0.62353 0.50196 0.3906 0.3874 47.89E+01 537 0.74902 0.62353 0.62353 0.3428 0.3218 48.44E+01 538 0.74902 0.62353 0.74902 0.2943 0.2608 51.91E+01 539 0.74902 0.62353 0.87451 0.2516 0.2081 5.79E+02 540 0.74902 0.62353 1.00000 0.2251 0.1746 6.50E+02 541 0.74902 0.74902 0.00000 0.4165 0.5067 77.76E+01 542 0.74902 0.74902 0.12549 0.4155 0.5051 77.80E+01 543 0.74902 0.74902 0.25098 0.4114 0.4983 77.86E+01 544 0.74902 0.74902 0.37647 0.3994 0.4785 77.70E+01 545 0.74902 0.74902 0.50196 0.3769 0.4404 77.93E+01 546 0.74902 0.74902 0.62353 0.3434 0.3856 78.80E+01 547 0.74902 0.74902 0.74902 0.3035 0.3208 82.70E+01 548 0.74902 0.74902 0.87451 0.2661 0.2628 8.87E+02 549 0.74902 0.74902 1.00000 0.2403 0.2229 9.59E+02 550 0.74902 0.87451 0.00000 0.3921 0.5258 12.23E+02 551 0.74902 0.87451 0.12549 0.3912 0.5251 12.24E+02 552 0.74902 0.87451 0.25098 0.3889 0.5202 12.24E+02 553 0.74902 0.87451 0.37647 0.3817 0.5064 12.22E+02 554 0.74902 0.87451 0.50196 0.3669 0.4788 12.28E+02 555 0.74902 0.87451 0.62353 0.3437 0.4354 12.34E+02 556 0.74902 0.87451 0.74902 0.3135 0.3780 12.72E+02 557 0.74902 0.87451 0.87451 0.2815 0.3214 13.46E+02 558 0.74902 0.87451 1.00000 0.2570 0.2771 14.19E+02 559 0.74902 1.00000 0.00000 0.3797 0.5358 16.99E+02 560 0.74902 1.00000 0.12549 0.3791 0.5353 17.00E+02 561 0.74902 1.00000 0.25098 0.3774 0.5319 17.01E+02 562 0.74902 1.00000 0.37647 0.3722 0.5213 16.99E+02 563 0.74902 1.00000 0.50196 0.3616 0.4999 17.03E+02 564 0.74902 1.00000 0.62353 0.3440 0.4646 17.07E+02 565 0.74902 1.00000 0.74902 0.3196 0.4152 17.47E+02 566 0.74902 1.00000 0.87451 0.2919 0.3620 18.23E+02 567 0.74902 1.00000 1.00000 0.2699 0.3191 19.13E+02 568 0.87451 0.00000 0.00000 0.6362 0.3405 22.98E+01 569 0.87451 0.00000 0.12549 0.6321 0.3384 23.04E+01 570 0.87451 0.00000 0.25098 0.6161 0.3296 23.21E+01 571 0.87451 0.00000 0.37647 0.5725 0.3062 23.67E+01 572 0.87451 0.00000 0.50196 0.5011 0.2673 24.91E+01 573 0.87451 0.00000 0.62353 0.4178 0.2224 27.05E+01 574 0.87451 0.00000 0.74902 0.3411 0.1809 30.62E+01 575 0.87451 0.00000 0.87451 0.2755 0.1462 3.91E+02 576 0.87451 0.00000 1.00000 0.2417 0.1281 4.61E+02 577 0.87451 0.12549 0.00000 0.6339 0.3422 23.29E+01 578 0.87451 0.12549 0.12549 0.6300 0.3398 23.32E+01 579 0.87451 0.12549 0.25098 0.6141 0.3312 23.49E+01 580 0.87451 0.12549 0.37647 0.5712 0.3076 23.96E+01 581 0.87451 0.12549 0.50196 0.5001 0.2689 25.21E+01 582 0.87451 0.12549 0.62353 0.4174 0.2237 27.33E+01 583 0.87451 0.12549 0.74902 0.3410 0.1819 30.90E+01 584 0.87451 0.12549 0.87451 0.2755 0.1473 3.95E+02 585 0.87451 0.12549 1.00000 0.2422 0.1287 4.64E+02 586 0.87451 0.25098 0.00000 0.6240 0.3496 24.63E+01 587 0.87451 0.25098 0.12549 0.6203 0.3473 24.66E+01 588 0.87451 0.25098 0.25098 0.6057 0.3378 24.71E+01 589 0.87451 0.25098 0.37647 0.5645 0.3144 25.18E+01 590 0.87451 0.25098 0.50196 0.4965 0.2754 26.41E+01 591 0.87451 0.25098 0.62353 0.4161 0.2296 28.55E+01 592 0.87451 0.25098 0.74902 0.3411 0.1867 32.12E+01 593 0.87451 0.25098 0.87451 0.2765 0.1504 4.04E+02 594 0.87451 0.25098 1.00000 0.2427 0.1312 4.74E+02 595 0.87451 0.37647 0.00000 0.5952 0.3715 29.08E+01 596 0.87451 0.37647 0.12549 0.5919 0.3692 29.13E+01 597 0.87451 0.37647 0.25098 0.5795 0.3598 29.15E+01 598 0.87451 0.37647 0.37647 0.5442 0.3339 29.17E+01 599 0.87451 0.37647 0.50196 0.4845 0.2948 30.46E+01 600 0.87451 0.37647 0.62353 0.4113 0.2475 32.59E+01 601 0.87451 0.37647 0.74902 0.3412 0.2019 36.12E+01 602 0.87451 0.37647 0.87451 0.2780 0.1615 4.39E+02 603 0.87451 0.37647 1.00000 0.2438 0.1393 5.08E+02 604 0.87451 0.50196 0.00000 0.5506 0.4060 38.85E+01 605 0.87451 0.50196 0.12549 0.5481 0.4039 38.90E+01 606 0.87451 0.50196 0.25098 0.5387 0.3955 38.95E+01 607 0.87451 0.50196 0.37647 0.5121 0.3716 38.98E+01 608 0.87451 0.50196 0.50196 0.4647 0.3287 39.37E+01 609 0.87451 0.50196 0.62353 0.4031 0.2798 41.49E+01 610 0.87451 0.50196 0.74902 0.3402 0.2298 45.10E+01 611 0.87451 0.50196 0.87451 0.2804 0.1835 5.17E+02 612 0.87451 0.50196 1.00000 0.2475 0.1567 5.84E+02 613 0.87451 0.62353 0.00000 0.4986 0.4459 57.12E+01 614 0.87451 0.62353 0.12549 0.4971 0.4441 57.16E+01 615 0.87451 0.62353 0.25098 0.4908 0.4371 57.22E+01 616 0.87451 0.62353 0.37647 0.4728 0.4166 57.16E+01 617 0.87451 0.62353 0.50196 0.4394 0.3786 57.62E+01 618 0.87451 0.62353 0.62353 0.3919 0.3249 58.19E+01 619 0.87451 0.62353 0.74902 0.3397 0.2716 61.62E+01 620 0.87451 0.62353 0.87451 0.2915 0.2231 6.72E+02 621 0.87451 0.62353 1.00000 0.2572 0.1885 7.43E+02 622 0.87451 0.74902 0.00000 0.4536 0.4804 87.10E+01 623 0.87451 0.74902 0.12549 0.4526 0.4791 87.17E+01 624 0.87451 0.74902 0.25098 0.4488 0.4737 87.20E+01 625 0.87451 0.74902 0.37647 0.4375 0.4574 86.76E+01 626 0.87451 0.74902 0.50196 0.4152 0.4262 87.31E+01 627 0.87451 0.74902 0.62353 0.3812 0.3798 88.22E+01 628 0.87451 0.74902 0.74902 0.3385 0.3246 9.75E+02 629 0.87451 0.74902 0.87451 0.2998 0.2758 10.54E+02 630 0.87451 0.74902 1.00000 0.2700 0.2370 11.26E+02 631 0.87451 0.87451 0.00000 0.4228 0.5037 13.76E+02 632 0.87451 0.87451 0.12549 0.4222 0.5029 13.77E+02 633 0.87451 0.87451 0.25098 0.4202 0.4989 13.57E+02 634 0.87451 0.87451 0.37647 0.4131 0.4866 13.10E+02 635 0.87451 0.87451 0.50196 0.3958 0.4639 13.09E+02 636 0.87451 0.87451 0.62353 0.3722 0.4256 13.15E+02 637 0.87451 0.87451 0.74902 0.3396 0.3735 14.01E+02 638 0.87451 0.87451 0.87451 0.3107 0.3289 19.15E+02 639 0.87451 0.87451 1.00000 0.2878 0.2941 19.89E+02 640 0.87451 1.00000 0.00000 0.4054 0.5173 20.07E+02 641 0.87451 1.00000 0.12549 0.4053 0.5167 20.07E+02 642 0.87451 1.00000 0.25098 0.4040 0.5138 19.74E+02 643 0.87451 1.00000 0.37647 0.3972 0.5061 19.10E+02 644 0.87451 1.00000 0.50196 0.3861 0.4860 18.01E+02 645 0.87451 1.00000 0.62353 0.3665 0.4550 17.89E+02 646 0.87451 1.00000 0.74902 0.3406 0.4079 18.86E+02 647 0.87451 1.00000 0.87451 0.3150 0.3582 23.92E+02 648 0.87451 1.00000 1.00000 0.2945 0.3248 24.88E+02 649 1.00000 0.00000 0.00000 0.6403 0.3403 34.03E+01 650 1.00000 0.00000 0.12549 0.6374 0.3388 34.05E+01 651 1.00000 0.00000 0.25098 0.6265 0.3328 34.24E+01 652 1.00000 0.00000 0.37647 0.5949 0.3160 34.63E+01 653 1.00000 0.00000 0.50196 0.5391 0.2861 35.96E+01 654 1.00000 0.00000 0.62353 0.4660 0.2469 38.06E+01 655 1.00000 0.00000 0.74902 0.3903 0.2062 41.66E+01 656 1.00000 0.00000 0.87451 0.3167 0.1677 4.91E+02 657 1.00000 0.00000 1.00000 0.2733 0.1447 6.06E+02 658 1.00000 0.12549 0.00000 0.6387 0.3414 34.27E+01 659 1.00000 0.12549 0.12549 0.6360 0.3398 34.28E+01 660 1.00000 0.12549 0.25098 0.6251 0.3338 34.48E+01 661 1.00000 0.12549 0.37647 0.5937 0.3170 34.89E+01 662 1.00000 0.12549 0.50196 0.5383 0.2870 36.18E+01 663 1.00000 0.12549 0.62353 0.4656 0.2478 38.29E+01 664 1.00000 0.12549 0.74902 0.3899 0.2070 41.90E+01 665 1.00000 0.12549 0.87451 0.3166 0.1684 4.94E+02 666 1.00000 0.12549 1.00000 0.2733 0.1452 6.09E+02 667 1.00000 0.25098 0.00000 0.6319 0.3465 35.65E+01 668 1.00000 0.25098 0.12549 0.6294 0.3449 35.65E+01 669 1.00000 0.25098 0.25098 0.6189 0.3382 35.72E+01 670 1.00000 0.25098 0.37647 0.5884 0.3215 36.11E+01 671 1.00000 0.25098 0.50196 0.5348 0.2916 37.43E+01 672 1.00000 0.25098 0.62353 0.4636 0.2520 39.54E+01 673 1.00000 0.25098 0.74902 0.3893 0.2107 43.19E+01 674 1.00000 0.25098 0.87451 0.3165 0.1711 5.05E+02 675 1.00000 0.25098 1.00000 0.2737 0.1472 6.18E+02 676 1.00000 0.37647 0.00000 0.6109 0.3623 40.00E+01 677 1.00000 0.37647 0.12549 0.6085 0.3607 40.06E+01 678 1.00000 0.37647 0.25098 0.5991 0.3540 40.07E+01 679 1.00000 0.37647 0.37647 0.5726 0.3354 40.14E+01 680 1.00000 0.37647 0.50196 0.5234 0.3054 41.37E+01 681 1.00000 0.37647 0.62353 0.4576 0.2654 43.53E+01 682 1.00000 0.37647 0.74902 0.3874 0.2226 47.10E+01 683 1.00000 0.37647 0.87451 0.3172 0.1808 5.39E+02 684 1.00000 0.37647 1.00000 0.2745 0.1542 6.54E+02 685 1.00000 0.50196 0.00000 0.5753 0.3893 49.92E+01 686 1.00000 0.50196 0.12549 0.5734 0.3878 49.93E+01 687 1.00000 0.50196 0.25098 0.5659 0.3817 50.02E+01 688 1.00000 0.50196 0.37647 0.5440 0.3640 49.95E+01 689 1.00000 0.50196 0.50196 0.5037 0.3311 50.46E+01 690 1.00000 0.50196 0.62353 0.4468 0.2903 52.54E+01 691 1.00000 0.50196 0.74902 0.3835 0.2450 56.18E+01 692 1.00000 0.50196 0.87451 0.3253 0.2038 6.17E+02 693 1.00000 0.50196 1.00000 0.2773 0.1693 7.34E+02 694 1.00000 0.62353 0.00000 0.5289 0.4246 68.17E+01 695 1.00000 0.62353 0.12549 0.5274 0.4233 68.17E+01 696 1.00000 0.62353 0.25098 0.5221 0.4178 68.27E+01 697 1.00000 0.62353 0.37647 0.5062 0.4020 68.12E+01 698 1.00000 0.62353 0.50196 0.4759 0.3719 68.67E+01 699 1.00000 0.62353 0.62353 0.4308 0.3270 69.14E+01 700 1.00000 0.62353 0.74902 0.3779 0.2798 72.60E+01 701 1.00000 0.62353 0.87451 0.3260 0.2346 7.82E+02 702 1.00000 0.62353 1.00000 0.2848 0.1972 8.78E+02 703 1.00000 0.74902 0.00000 0.4832 0.4589 9.83E+02 704 1.00000 0.74902 0.12549 0.4821 0.4583 9.84E+02 705 1.00000 0.74902 0.25098 0.4783 0.4539 9.85E+02 706 1.00000 0.74902 0.37647 0.4681 0.4402 9.79E+02 707 1.00000 0.74902 0.50196 0.4469 0.4149 9.85E+02 708 1.00000 0.74902 0.62353 0.4137 0.3751 9.93E+02 709 1.00000 0.74902 0.74902 0.3683 0.3262 10.92E+02 710 1.00000 0.74902 0.87451 0.3271 0.2808 11.64E+02 711 1.00000 0.74902 1.00000 0.2953 0.2449 12.34E+02 712 1.00000 0.87451 0.00000 0.4490 0.4847 14.11E+02 713 1.00000 0.87451 0.12549 0.4482 0.4842 14.12E+02 714 1.00000 0.87451 0.25098 0.4436 0.4822 14.12E+02 715 1.00000 0.87451 0.37647 0.4366 0.4721 14.11E+02 716 1.00000 0.87451 0.50196 0.4220 0.4510 14.17E+02 717 1.00000 0.87451 0.62353 0.3981 0.4172 14.23E+02 718 1.00000 0.87451 0.74902 0.3639 0.3703 15.21E+02 719 1.00000 0.87451 0.87451 0.3282 0.3298 21.11E+02 720 1.00000 0.87451 1.00000 0.3065 0.2997 22.09E+02 721 1.00000 1.00000 0.00000 0.4230 0.5053 22.97E+02 722 1.00000 1.00000 0.12549 0.4228 0.5050 22.93E+02 723 1.00000 1.00000 0.25098 0.4219 0.5022 22.63E+02 724 1.00000 1.00000 0.37647 0.4179 0.4934 21.42E+02 725 1.00000 1.00000 0.50196 0.4077 0.4752 19.77E+02 726 1.00000 1.00000 0.62353 0.3882 0.4454 18.84E+02 727 1.00000 1.00000 0.74902 0.3609 0.4024 19.86E+02 728 1.00000 1.00000 0.87451 0.3302 0.3566 25.83E+02 729 1.00000 1.00000 1.00000 0.3121 0.3287 33.78E+02 730 1.00000 1.00000 1.00000 0.3121 0.3287 33.79E+02 731 0.87451 1.00000 1.00000 0.2946 0.3248 24.93E+02 732 0.74902 1.00000 1.00000 0.2701 0.3190 19.20E+02 733 0.62353 1.00000 1.00000 0.2591 0.3204 18.84E+02 734 0.50196 1.00000 1.00000 0.2527 0.3219 18.76E+02 735 0.37647 1.00000 1.00000 0.2493 0.3223 18.67E+02 736 0.25098 1.00000 1.00000 0.2478 0.3232 18.69E+02 737 0.12549 1.00000 1.00000 0.2475 0.3233 18.68E+02 738 0.00000 1.00000 1.00000 0.2473 0.3233 18.68E+02 739 1.00000 0.87451 0.87451 0.3281 0.3298 21.17E+02 740 0.87451 0.87451 0.87451 0.3106 0.3288 19.19E+02 741 0.74902 0.87451 0.87451 0.2816 0.3215 13.52E+02 742 0.62353 0.87451 0.87451 0.2669 0.3247 13.19E+02 743 0.50196 0.87451 0.87451 0.2572 0.3265 13.10E+02 744 0.37647 0.87451 0.87451 0.2525 0.3278 13.02E+02 745 0.25098 0.87451 0.87451 0.2500 0.3272 12.97E+02 746 0.12549 0.87451 0.87451 0.2493 0.3274 12.96E+02 747 0.00000 0.87451 0.87451 0.2492 0.3275 12.96E+02 748 1.00000 0.74902 0.74902 0.3683 0.3263 10.96E+02 749 0.87451 0.74902 0.74902 0.3384 0.3245 9.80E+02 750 0.74902 0.74902 0.74902 0.3039 0.3212 8.32E+02 751 0.62353 0.74902 0.74902 0.2800 0.3258 7.97E+02 752 0.50196 0.74902 0.74902 0.2645 0.3282 7.84E+02 753 0.37647 0.74902 0.74902 0.2559 0.3302 7.78E+02 754 0.25098 0.74902 0.74902 0.2520 0.3308 7.77E+02 755 0.12549 0.74902 0.74902 0.2511 0.3312 7.77E+02 756 0.00000 0.74902 0.74902 0.2512 0.3309 7.76E+02 757 1.00000 0.62353 0.62353 0.4308 0.3270 69.30E+01 758 0.87451 0.62353 0.62353 0.3919 0.3247 58.28E+01 759 0.74902 0.62353 0.62353 0.3428 0.3217 48.60E+01 760 0.62353 0.62353 0.62353 0.3039 0.3209 43.38E+01 761 0.50196 0.62353 0.62353 0.2766 0.3273 42.71E+01 762 0.37647 0.62353 0.62353 0.2616 0.3305 42.26E+01 763 0.25098 0.62353 0.62353 0.2546 0.3319 42.07E+01 764 0.12549 0.62353 0.62353 0.2527 0.3321 41.91E+01 765 0.00000 0.62353 0.62353 0.2524 0.3323 41.92E+01 766 1.00000 0.50196 0.50196 0.5037 0.3310 50.55E+01 767 0.87451 0.50196 0.50196 0.4647 0.3286 39.51E+01 768 0.74902 0.50196 0.50196 0.4066 0.3249 29.81E+01 769 0.62353 0.50196 0.50196 0.3507 0.3216 24.03E+01 770 0.50196 0.50196 0.50196 0.3019 0.3205 20.83E+01 771 0.37647 0.50196 0.50196 0.2724 0.3272 20.47E+01 772 0.25098 0.50196 0.50196 0.2580 0.3300 20.23E+01 773 0.12549 0.50196 0.50196 0.2541 0.3307 20.16E+01 774 0.00000 0.50196 0.50196 0.2534 0.3308 20.14E+01 775 1.00000 0.37647 0.37647 0.5726 0.3353 40.21E+01 776 0.87451 0.37647 0.37647 0.5443 0.3338 29.22E+01 777 0.74902 0.37647 0.37647 0.4933 0.3306 19.61E+01 778 0.62353 0.37647 0.37647 0.4305 0.3268 13.90E+01 779 0.50196 0.37647 0.37647 0.3591 0.3223 10.35E+01 780 0.37647 0.37647 0.37647 0.3006 0.3229 8.81E+01 781 0.25098 0.37647 0.37647 0.2687 0.3303 8.64E+01 782 0.12549 0.37647 0.37647 0.2600 0.3323 8.59E+01 783 0.00000 0.37647 0.37647 0.2584 0.3329 8.58E+01 784 1.00000 0.25098 0.25098 0.6190 0.3382 35.82E+01 785 0.87451 0.25098 0.25098 0.6057 0.3376 24.79E+01 786 0.74902 0.25098 0.25098 0.5765 0.3357 15.10E+01 787 0.62353 0.25098 0.25098 0.5308 0.3327 9.29E+01 788 0.50196 0.25098 0.25098 0.4579 0.3284 57.13E+00 789 0.37647 0.25098 0.25098 0.3687 0.3221 38.67E+00 790 0.25098 0.25098 0.25098 0.2976 0.3222 31.46E+00 791 0.12549 0.25098 0.25098 0.2742 0.3276 30.90E+00 792 0.00000 0.25098 0.25098 0.2703 0.3284 30.79E+00 793 1.00000 0.12549 0.12549 0.6361 0.3397 34.36E+01 794 0.87451 0.12549 0.12549 0.6301 0.3396 23.39E+01 795 0.74902 0.12549 0.12549 0.6151 0.3393 13.68E+01 796 0.62353 0.12549 0.12549 0.5877 0.3381 7.88E+01 797 0.50196 0.12549 0.12549 0.5361 0.3363 42.91E+00 798 0.37647 0.12549 0.12549 0.4484 0.3330 24.74E+00 799 0.25098 0.12549 0.12549 0.3513 0.3288 16.07E+00 800 0.12549 0.12549 0.12549 0.3049 0.3313 14.47E+00 801 0.00000 0.12549 0.12549 0.2976 0.3336 14.27E+00 802 1.00000 0.00000 0.00000 0.6405 0.3401 34.08E+01 803 0.87451 0.00000 0.00000 0.6364 0.3405 23.06E+01 804 0.74902 0.00000 0.00000 0.6255 0.3404 13.36E+01 805 0.62353 0.00000 0.00000 0.6048 0.3404 7.57E+01 806 0.50196 0.00000 0.00000 0.5635 0.3403 39.82E+00 807 0.37647 0.00000 0.00000 0.4844 0.3401 21.58E+00 808 0.25098 0.00000 0.00000 0.3837 0.3412 13.11E+00 809 0.12549 0.00000 0.00000 0.3276 0.3398 10.92E+00 810 0.00000 0.00000 0.00000 0.3184 0.3437 10.77E+00 811 1.00000 1.00000 1.00000 0.3121 0.3288 33.82E+02 812 0.87451 0.87451 1.00000 0.2880 0.2941 19.94E+02 813 0.74902 0.74902 1.00000 0.2405 0.2233 9.65E+02 814 0.62353 0.62353 1.00000 0.2050 0.1680 6.07E+02 815 0.50196 0.50196 1.00000 0.1773 0.1254 4.03E+02 816 0.37647 0.37647 1.00000 0.1599 0.0983 2.94E+02 817 0.25098 0.25098 1.00000 0.1506 0.0839 2.43E+02 818 0.12549 0.12549 1.00000 0.1479 0.0792 2.27E+02 819 0.00000 0.00000 1.00000 0.1473 0.0784 2.24E+02 820 1.00000 1.00000 0.87451 0.3303 0.3564 25.86E+02 821 0.87451 0.87451 0.87451 0.3107 0.3288 19.19E+02 822 0.74902 0.74902 0.87451 0.2662 0.2629 8.91E+02 823 0.62353 0.62353 0.87451 0.2258 0.2004 5.36E+02 824 0.50196 0.50196 0.87451 0.1901 0.1453 3.31E+02 825 0.37647 0.37647 0.87451 0.1663 0.1088 2.23E+02 826 0.25098 0.25098 0.87451 0.1533 0.0873 1.72E+02 827 0.12549 0.12549 0.87451 0.1490 0.0814 1.58E+02 828 0.00000 0.00000 0.87451 0.1483 0.0796 1.54E+02 829 1.00000 1.00000 0.74902 0.3607 0.4022 19.87E+02 830 0.87451 0.87451 0.74902 0.3397 0.3732 14.04E+02 831 0.74902 0.74902 0.74902 0.3038 0.3212 8.31E+02 832 0.62353 0.62353 0.74902 0.2603 0.2539 4.76E+02 833 0.50196 0.50196 0.74902 0.2142 0.1833 27.05E+01 834 0.37647 0.37647 0.74902 0.1790 0.1289 16.21E+01 835 0.25098 0.25098 0.74902 0.1579 0.0958 11.18E+01 836 0.12549 0.12549 0.74902 0.1514 0.0850 9.66E+01 837 0.00000 0.00000 0.74902 0.1499 0.0826 9.34E+01 838 1.00000 1.00000 0.62353 0.3880 0.4452 18.85E+02 839 0.87451 0.87451 0.62353 0.3721 0.4257 13.18E+02 840 0.74902 0.74902 0.62353 0.3436 0.3856 79.03E+01 841 0.62353 0.62353 0.62353 0.3040 0.3212 43.40E+01 842 0.50196 0.50196 0.62353 0.2518 0.2420 23.15E+01 843 0.37647 0.37647 0.62353 0.2023 0.1660 12.37E+01 844 0.25098 0.25098 0.62353 0.1684 0.1126 7.30E+01 845 0.12549 0.12549 0.62353 0.1566 0.0934 5.78E+01 846 0.00000 0.00000 0.62353 0.1542 0.0891 5.46E+01 847 1.00000 1.00000 0.50196 0.4077 0.4753 19.78E+02 848 0.87451 0.87451 0.50196 0.3957 0.4643 13.13E+02 849 0.74902 0.74902 0.50196 0.3772 0.4405 78.15E+01 850 0.62353 0.62353 0.50196 0.3494 0.3952 42.40E+01 851 0.50196 0.50196 0.50196 0.3020 0.3205 20.80E+01 852 0.37647 0.37647 0.50196 0.2417 0.2290 10.08E+01 853 0.25098 0.25098 0.50196 0.1889 0.1459 4.99E+01 854 0.12549 0.12549 0.50196 0.1678 0.1113 3.48E+01 855 0.00000 0.00000 0.50196 0.1634 0.1030 3.16E+01 856 1.00000 1.00000 0.37647 0.4179 0.4933 21.45E+02 857 0.87451 0.87451 0.37647 0.4132 0.4866 13.12E+02 858 0.74902 0.74902 0.37647 0.3996 0.4785 77.89E+01 859 0.62353 0.62353 0.37647 0.3848 0.4543 42.03E+01 860 0.50196 0.50196 0.37647 0.3544 0.4070 20.14E+01 861 0.37647 0.37647 0.37647 0.3007 0.3231 8.80E+01 862 0.25098 0.25098 0.37647 0.2311 0.2144 3.74E+01 863 0.12549 0.12549 0.37647 0.1945 0.1533 2.23E+01 864 0.00000 0.00000 0.37647 0.1855 0.1366 1.90E+01 865 1.00000 1.00000 0.25098 0.4219 0.5022 22.63E+02 866 0.87451 0.87451 0.25098 0.4204 0.4991 13.58E+02 867 0.74902 0.74902 0.25098 0.4117 0.4982 77.97E+01 868 0.62353 0.62353 0.25098 0.4055 0.4884 41.96E+01 869 0.50196 0.50196 0.25098 0.3910 0.4678 20.04E+01 870 0.37647 0.37647 0.25098 0.3589 0.4193 84.46E+00 871 0.25098 0.25098 0.25098 0.2979 0.3224 31.37E+00 872 0.12549 0.12549 0.25098 0.2477 0.2389 16.33E+00 873 0.00000 0.00000 0.25098 0.2332 0.2110 13.13E+00 874 1.00000 1.00000 0.12549 0.4228 0.5050 22.94E+02 875 0.87451 0.87451 0.12549 0.4226 0.5029 13.77E+02 876 0.74902 0.74902 0.12549 0.4158 0.5050 77.91E+01 877 0.62353 0.62353 0.12549 0.4129 0.5008 41.92E+01 878 0.50196 0.50196 0.12549 0.4054 0.4918 19.99E+01 879 0.37647 0.37647 0.12549 0.3872 0.4678 84.34E+00 880 0.25098 0.25098 0.12549 0.3491 0.4066 29.83E+00 881 0.12549 0.12549 0.12549 0.3056 0.3320 14.49E+00 882 0.00000 0.00000 0.12549 0.2915 0.3011 11.28E+00 883 1.00000 1.00000 0.00000 0.4232 0.5055 22.98E+02 884 0.87451 0.87451 0.00000 0.4229 0.5042 13.77E+02 885 0.74902 0.74902 0.00000 0.4168 0.5066 77.86E+01 886 0.62353 0.62353 0.00000 0.4148 0.5039 41.86E+01 887 0.50196 0.50196 0.00000 0.4091 0.4980 19.94E+01 888 0.37647 0.37647 0.00000 0.3953 0.4813 84.01E+00 889 0.25098 0.25098 0.00000 0.3664 0.4358 29.64E+00 890 0.12549 0.12549 0.00000 0.3306 0.3710 13.94E+00 891 0.00000 0.00000 0.00000 0.3188 0.3436 10.83E+00 892 1.00000 1.00000 1.00000 0.3122 0.3288 33.74E+02 893 1.00000 0.87451 1.00000 0.3065 0.2999 22.11E+02 894 1.00000 0.74902 1.00000 0.2955 0.2449 12.35E+02 895 1.00000 0.62353 1.00000 0.2849 0.1975 8.79E+02 896 1.00000 0.50196 1.00000 0.2774 0.1696 7.34E+02 897 1.00000 0.37647 1.00000 0.2745 0.1544 6.54E+02 898 1.00000 0.25098 1.00000 0.2738 0.1476 6.20E+02 899 1.00000 0.12549 1.00000 0.2734 0.1453 6.09E+02 900 1.00000 0.00000 1.00000 0.2733 0.1447 6.06E+02 901 0.87451 1.00000 0.87451 0.3149 0.3581 23.92E+02 902 0.87451 0.87451 0.87451 0.3107 0.3289 19.16E+02 903 0.87451 0.74902 0.87451 0.3000 0.2755 10.55E+02 904 0.87451 0.62353 0.87451 0.2918 0.2229 6.73E+02 905 0.87451 0.50196 0.87451 0.2807 0.1837 5.19E+02 906 0.87451 0.37647 0.87451 0.2780 0.1616 4.40E+02 907 0.87451 0.25098 0.87451 0.2764 0.1504 4.05E+02 908 0.87451 0.12549 0.87451 0.2757 0.1473 3.96E+02 909 0.87451 0.00000 0.87451 0.2756 0.1466 3.93E+02 910 0.74902 1.00000 0.74902 0.3197 0.4150 17.50E+02 911 0.74902 0.87451 0.74902 0.3135 0.3781 12.75E+02 912 0.74902 0.74902 0.74902 0.3041 0.3211 8.30E+02 913 0.74902 0.62353 0.74902 0.2945 0.2610 52.05E+01 914 0.74902 0.50196 0.74902 0.2869 0.2103 35.53E+01 915 0.74902 0.37647 0.74902 0.2820 0.1752 26.57E+01 916 0.74902 0.25098 0.74902 0.2790 0.1559 22.57E+01 917 0.74902 0.12549 0.74902 0.2781 0.1498 21.33E+01 918 0.74902 0.00000 0.74902 0.2778 0.1484 21.08E+01 919 0.62353 1.00000 0.62353 0.3295 0.4710 16.64E+02 920 0.62353 0.87451 0.62353 0.3245 0.4423 11.91E+02 921 0.62353 0.74902 0.62353 0.3158 0.3910 74.15E+01 922 0.62353 0.62353 0.62353 0.3040 0.3211 43.35E+01 923 0.62353 0.50196 0.62353 0.2931 0.2522 26.12E+01 924 0.62353 0.37647 0.62353 0.2850 0.1982 17.25E+01 925 0.62353 0.25098 0.62353 0.2802 0.1654 13.15E+01 926 0.62353 0.12549 0.62353 0.2785 0.1543 11.91E+01 927 0.62353 0.00000 0.62353 0.2780 0.1519 11.65E+01 928 0.50196 1.00000 0.50196 0.3363 0.5141 16.28E+02 929 0.50196 0.87451 0.50196 0.3335 0.4959 11.54E+02 930 0.50196 0.74902 0.50196 0.3271 0.4610 70.71E+01 931 0.50196 0.62353 0.50196 0.3169 0.4034 39.64E+01 932 0.50196 0.50196 0.50196 0.3019 0.3206 20.78E+01 933 0.50196 0.37647 0.50196 0.2886 0.2406 11.53E+01 934 0.50196 0.25098 0.50196 0.2799 0.1842 7.43E+01 935 0.50196 0.12549 0.50196 0.2766 0.1629 6.20E+01 936 0.50196 0.00000 0.50196 0.2757 0.1582 5.95E+01 937 0.37647 1.00000 0.37647 0.3410 0.5417 16.03E+02 938 0.37647 0.87451 0.37647 0.3396 0.5325 11.29E+02 939 0.37647 0.74902 0.37647 0.3361 0.5140 67.93E+01 940 0.37647 0.62353 0.37647 0.3298 0.4795 37.51E+01 941 0.37647 0.50196 0.37647 0.3182 0.4174 18.80E+01 942 0.37647 0.37647 0.37647 0.3007 0.3232 8.78E+01 943 0.37647 0.25098 0.37647 0.2847 0.2296 4.42E+01 944 0.37647 0.12549 0.37647 0.2776 0.1883 31.99E+00 945 0.37647 0.00000 0.37647 0.2757 0.1777 29.34E+00 946 0.25098 1.00000 0.25098 0.3438 0.5554 15.98E+02 947 0.25098 0.87451 0.25098 0.3428 0.5522 11.26E+02 948 0.25098 0.74902 0.25098 0.3416 0.5446 67.25E+01 949 0.25098 0.62353 0.25098 0.3387 0.5295 36.69E+01 950 0.25098 0.50196 0.25098 0.3325 0.4978 17.83E+01 951 0.25098 0.37647 0.25098 0.3196 0.4335 78.28E+00 952 0.25098 0.25098 0.25098 0.2980 0.3226 31.29E+00 953 0.25098 0.12549 0.25098 0.2838 0.2464 17.93E+00 954 0.25098 0.00000 0.25098 0.2800 0.2253 15.31E+00 955 0.12549 1.00000 0.12549 0.3448 0.5599 15.93E+02 956 0.12549 0.87451 0.12549 0.3448 0.5585 11.21E+02 957 0.12549 0.74902 0.12549 0.3440 0.5552 66.84E+01 958 0.12549 0.62353 0.12549 0.3429 0.5481 36.30E+01 959 0.12549 0.50196 0.12549 0.3403 0.5324 17.49E+01 960 0.12549 0.37647 0.12549 0.3334 0.4965 75.52E+00 961 0.12549 0.25098 0.12549 0.3202 0.4162 28.41E+00 962 0.12549 0.12549 0.12549 0.3057 0.3319 14.43E+00 963 0.12549 0.00000 0.12549 0.2999 0.2989 11.36E+00 964 0.00000 1.00000 0.00000 0.3451 0.5614 15.91E+02 965 0.00000 0.87451 0.00000 0.3450 0.5600 11.20E+02 966 0.00000 0.74902 0.00000 0.3447 0.5578 66.71E+01 967 0.00000 0.62353 0.00000 0.3444 0.5529 36.17E+01 968 0.00000 0.50196 0.00000 0.3431 0.5416 17.38E+01 969 0.00000 0.37647 0.00000 0.3391 0.5152 74.56E+00 970 0.00000 0.25098 0.00000 0.3317 0.4508 27.63E+00 971 0.00000 0.12549 0.00000 0.3228 0.3754 13.72E+00 972 0.00000 0.00000 0.00000 0.3192 0.3441 10.77E+00 973 0.00000 0.00000 0.00000 0.3196 0.3445 10.78E+00 974 0.12549 0.12549 0.12549 0.3059 0.3324 14.44E+00 975 0.25098 0.25098 0.25098 0.2979 0.3223 31.25E+00 976 0.37647 0.37647 0.37647 0.3004 0.3229 8.77E+01 977 0.50196 0.50196 0.50196 0.3020 0.3205 20.75E+01 978 0.62353 0.62353 0.62353 0.3039 0.3210 43.28E+01 979 0.74902 0.74902 0.74902 0.3037 0.3210 82.80E+01 980 0.87451 0.87451 0.87451 0.3107 0.3287 19.12E+02 981 1.00000 1.00000 1.00000 0.3122 0.3287 33.74E+02 982 0.00000 0.00000 0.00000 0.3193 0.3442 10.77E+00 983 0.12549 0.12549 0.12549 0.3058 0.3323 14.44E+00 984 0.25098 0.25098 0.25098 0.2978 0.3224 31.31E+00 985 0.37647 0.37647 0.37647 0.3007 0.3232 8.78E+01 986 0.50196 0.50196 0.50196 0.3020 0.3204 20.74E+01 987 0.62353 0.62353 0.62353 0.3039 0.3211 43.37E+01 988 0.74902 0.74902 0.74902 0.3036 0.3209 82.75E+01 989 0.87451 0.87451 0.87451 0.3107 0.3287 19.10E+02 990 1.00000 1.00000 1.00000 0.3122 0.3287 33.71E+02 991 0.00000 0.00000 0.00000 0.3188 0.3437 10.77E+00 992 0.12549 0.12549 0.12549 0.3056 0.3319 14.41E+00 993 0.25098 0.25098 0.25098 0.2979 0.3222 31.25E+00 994 0.37647 0.37647 0.37647 0.3006 0.3230 8.77E+01 995 0.50196 0.50196 0.50196 0.3020 0.3204 20.71E+01 996 0.62353 0.62353 0.62353 0.3039 0.3211 43.18E+01 997 0.74902 0.74902 0.74902 0.3037 0.3209 82.61E+01 998 0.87451 0.87451 0.87451 0.3106 0.3287 19.08E+02 999 1.00000 1.00000 1.00000 0.3121 0.3286 33.66E+02 1000 0.00000 0.00000 0.00000 0.3192 0.3441 10.77E+00 1001 0.12549 0.12549 0.12549 0.3058 0.3325 14.45E+00 1002 0.25098 0.25098 0.25098 0.2977 0.3220 31.27E+00 1003 0.37647 0.37647 0.37647 0.3007 0.3231 8.77E+01 1004 0.50196 0.50196 0.50196 0.3020 0.3206 20.73E+01 1005 0.62353 0.62353 0.62353 0.3038 0.3211 43.20E+01 1006 0.74902 0.74902 0.74902 0.3037 0.3210 82.58E+01 1007 0.87451 0.87451 0.87451 0.3107 0.3288 19.08E+02 1008 1.00000 1.00000 1.00000 0.3122 0.3287 33.66E+02 1009 0.00000 0.00000 0.00000 0.3189 0.3434 10.78E+00 1010 0.06667 0.06667 0.06667 0.3128 0.3385 11.85E+00 1011 0.13333 0.13333 0.13333 0.3056 0.3321 14.43E+00 1012 0.20000 0.20000 0.20000 0.3018 0.3277 20.87E+00 1013 0.26667 0.26667 0.26667 0.2993 0.3230 36.67E+00 1014 0.33333 0.33333 0.33333 0.2988 0.3201 62.79E+00 1015 0.40000 0.40000 0.40000 0.3012 0.3234 10.46E+01 1016 0.46667 0.46667 0.46667 0.3004 0.3197 16.59E+01 1017 0.53333 0.53333 0.53333 0.3017 0.3202 25.03E+01 1018 0.60000 0.60000 0.60000 0.3036 0.3203 37.00E+01 1019 0.66667 0.66667 0.66667 0.3043 0.3218 53.83E+01 1020 0.73333 0.73333 0.73333 0.3043 0.3215 73.61E+01 1021 0.80000 0.80000 0.80000 0.3074 0.3257 11.95E+02 1022 0.86667 0.86667 0.86667 0.3102 0.3280 18.28E+02 1023 0.93333 0.93333 0.93333 0.3118 0.3297 25.89E+02 1024 1.00000 1.00000 1.00000 0.3122 0.3286 33.69E+02 1025 0.00000 0.00000 0.00000 0.3188 0.3441 10.76E+00 1026 0.06667 0.06667 0.06667 0.3121 0.3377 11.85E+00 1027 0.13333 0.13333 0.13333 0.3054 0.3316 14.41E+00 1028 0.20000 0.20000 0.20000 0.3023 0.3276 20.87E+00 1029 0.26667 0.26667 0.26667 0.2994 0.3228 36.67E+00 1030 0.33333 0.33333 0.33333 0.2986 0.3198 62.80E+00 1031 0.40000 0.40000 0.40000 0.3015 0.3234 10.48E+01 1032 0.46667 0.46667 0.46667 0.3004 0.3196 16.64E+01 1033 0.53333 0.53333 0.53333 0.3017 0.3203 25.13E+01 1034 0.60000 0.60000 0.60000 0.3036 0.3202 37.11E+01 1035 0.66667 0.66667 0.66667 0.3043 0.3219 54.02E+01 1036 0.73333 0.73333 0.73333 0.3043 0.3215 73.85E+01 1037 0.80000 0.80000 0.80000 0.3072 0.3256 11.99E+02 1038 0.86667 0.86667 0.86667 0.3104 0.3277 18.31E+02 1039 0.93333 0.93333 0.93333 0.3119 0.3297 25.97E+02 1040 1.00000 1.00000 1.00000 0.3122 0.3287 33.80E+02 1041 0.00000 0.00000 0.00000 0.3183 0.3434 10.79E+00 1042 0.06667 0.06667 0.06667 0.3121 0.3375 11.84E+00 1043 0.13333 0.13333 0.13333 0.3057 0.3319 14.46E+00 1044 0.20000 0.20000 0.20000 0.3021 0.3275 20.95E+00 1045 0.26667 0.26667 0.26667 0.2993 0.3230 36.85E+00 1046 0.33333 0.33333 0.33333 0.2988 0.3201 63.07E+00 1047 0.40000 0.40000 0.40000 0.3013 0.3234 10.52E+01 1048 0.46667 0.46667 0.46667 0.3002 0.3194 16.67E+01 1049 0.53333 0.53333 0.53333 0.3018 0.3202 25.19E+01 1050 0.60000 0.60000 0.60000 0.3035 0.3201 37.20E+01 1051 0.66667 0.66667 0.66667 0.3043 0.3218 54.12E+01 1052 0.73333 0.73333 0.73333 0.3042 0.3214 74.00E+01 1053 0.80000 0.80000 0.80000 0.3072 0.3257 12.02E+02 1054 0.86667 0.86667 0.86667 0.3103 0.3278 18.35E+02 1055 0.93333 0.93333 0.93333 0.3118 0.3297 26.03E+02 1056 1.00000 1.00000 1.00000 0.3121 0.3286 33.85E+02 1057 0.00000 0.00000 0.00000 0.3185 0.3439 10.80E+00 1058 0.06667 0.06667 0.06667 0.3125 0.3384 11.89E+00 1059 0.13333 0.13333 0.13333 0.3054 0.3320 14.49E+00 1060 0.20000 0.20000 0.20000 0.3021 0.3278 20.97E+00 1061 0.26667 0.26667 0.26667 0.2993 0.3229 36.90E+00 1062 0.33333 0.33333 0.33333 0.2987 0.3199 63.10E+00 1063 0.40000 0.40000 0.40000 0.3013 0.3234 10.53E+01 1064 0.46667 0.46667 0.46667 0.3003 0.3194 16.69E+01 1065 0.53333 0.53333 0.53333 0.3018 0.3203 25.23E+01 1066 0.60000 0.60000 0.60000 0.3035 0.3201 37.22E+01 1067 0.66667 0.66667 0.66667 0.3042 0.3218 54.17E+01 1068 0.73333 0.73333 0.73333 0.3042 0.3215 74.04E+01 1069 0.80000 0.80000 0.80000 0.3073 0.3255 12.02E+02 1070 0.86667 0.86667 0.86667 0.3102 0.3279 18.36E+02 1071 0.93333 0.93333 0.93333 0.3118 0.3297 26.03E+02 1072 1.00000 1.00000 1.00000 0.3122 0.3286 33.84E+02 1073 0.00000 0.00000 0.00000 0.3180 0.3428 10.79E+00 1074 1.00000 1.00000 1.00000 0.3121 0.3286 33.83E+02 1075 1.00000 0.00000 0.00000 0.6404 0.3402 34.07E+01 1076 0.00000 1.00000 1.00000 0.2475 0.3232 18.69E+02 1077 1.00000 1.00000 0.00000 0.4230 0.5055 23.03E+02 1078 0.00000 0.00000 1.00000 0.1480 0.0789 2.26E+02 1079 0.00000 1.00000 0.00000 0.3450 0.5610 16.00E+02 1080 1.00000 0.00000 1.00000 0.2732 0.1448 6.08E+02 ] def %**************************************************************************** %For output linearization in CIELAB %**************************************************************************** %BEG -- LUT Code ---Look-up-Table for FP-file /nR 9 def %LUT size /nG 9 def /nB 9 def /nges nR nG nB mul mul def %********************************************************************* /Lab2RGB {%BEG Procedure Lab2RGB % --- Lab2RGB ----------------- % % --- Eingabe (stack): L* a* b* % --- Ausgabe (stack): iR iG iB ; die Indizes des LUT-Wertes mit dem geringsten Delta-E bzgl. Eingabewert % ---- : delta-E ; und das Delta-E dazu % /Zielb exch def /Ziela exch def /ZielL exch def /dE 1000 def /opt 0 def 1 1 nges { 1 sub 3 mul /ii exch def /dL lut ii get ZielL sub abs def dE dL ge { %dE>dL /da lut ii 1 add get Ziela sub abs def dE da ge { %dE>da /db lut ii 2 add get Zielb sub abs def dE db ge { %dE>db /dEneu dL dL mul da da mul db db mul add add sqrt def dE dEneu ge { % test ob dEneu < dE /dE dEneu def /opt ii def } if } if } if } if } for /opt opt 3 idiv def opt nG nB mul idiv % R auf den stack (Wertebereich real: 0-(nr-1)) opt nG nB mul mod nB idiv % G auf den stack opt nG nB mul mod nB mod % B auf den stack dEneu } def %END Procedure Lab2RGB %********************************************************************* /indexkonv {%BEG Procedure indexkonv % --- indexkonv ----------------- % % --- Eingabe (stack): iR iG iB ; Indizes eines LUT-Wertes % --- Ausgabe (stack): Position des LUT-Wertes im 1-dim Lut-Array % %errechnet aus r g b index auf stack den fortlaufenden index exch nB mul add exch nB nG mul mul add 3 mul } def %END Procedure indexkonv %********************************************************************* /set_oktant {%BEG Procedure set_oktant % --- set_oktant ----------------- % % --- Eingabe (stack): iR iG iB ; Indizes eines LUT-Wertes, % kennzeichnet die dem Ursprung entfernteste Ecke des ausgewaehlten Raumbereiches % sortierung v1->v8: RGB, RGB+1, RG+1B, RG+1B+1, usw.. % --- Ausgabe (stack): keine % /B_index exch def /G_index exch def /R_index exch def R_index G_index B_index indexkonv /tempindex exch def % /eswird R_index G_index B_index /zu tempindex /lin_v8L lut tempindex get def /lin_v8a lut tempindex 1 add get def /lin_v8b lut tempindex 2 add get def R_index G_index B_index 1 sub indexkonv /tempindex exch def % /eswird R_index G_index B_index 1 sub /zu tempindex jens /lin_v7L lut tempindex get def /lin_v7a lut tempindex 1 add get def /lin_v7b lut tempindex 2 add get def R_index G_index 1 sub B_index indexkonv /tempindex exch def /lin_v6L lut tempindex get def /lin_v6a lut tempindex 1 add get def /lin_v6b lut tempindex 2 add get def R_index G_index 1 sub B_index 1 sub indexkonv /tempindex exch def /lin_v5L lut tempindex get def /lin_v5a lut tempindex 1 add get def /lin_v5b lut tempindex 2 add get def R_index 1 sub G_index B_index indexkonv /tempindex exch def /lin_v4L lut tempindex get def /lin_v4a lut tempindex 1 add get def /lin_v4b lut tempindex 2 add get def R_index 1 sub G_index B_index 1 sub indexkonv /tempindex exch def /lin_v3L lut tempindex get def /lin_v3a lut tempindex 1 add get def /lin_v3b lut tempindex 2 add get def R_index 1 sub G_index 1 sub B_index indexkonv /tempindex exch def /lin_v2L lut tempindex get def /lin_v2a lut tempindex 1 add get def /lin_v2b lut tempindex 2 add get def R_index 1 sub G_index 1 sub B_index 1 sub indexkonv /tempindex exch def /lin_v1L lut tempindex get def /lin_v1a lut tempindex 1 add get def /lin_v1b lut tempindex 2 add get def } def %END Procedure set_oktant %********************************************************************* /L_abc {%BEG Procedure L_abc % --- L_abc ----------------- % % --- Eingabe (stack): alpha (R-Richtung) beta (G-Richtung) gamma (B-Richtung) % --- Ausgabe (stack): L* interpoliert aus LUT im aktuellen Oktanten % /gamma exch def /beta exch def /alpha exch def /alpham 1 alpha sub def /betam 1 beta sub def /gammam 1 gamma sub def lin_v8L alpha beta gamma mul mul mul lin_v7L alpha beta gammam mul mul mul add lin_v6L alpha betam gamma mul mul mul add lin_v5L alpha betam gammam mul mul mul add lin_v4L alpham beta gamma mul mul mul add lin_v3L alpham beta gammam mul mul mul add lin_v2L alpham betam gamma mul mul mul add lin_v1L alpham betam gammam mul mul mul add } def %END Procedure L_abc %********************************************************************* /a_abc {%BEG Procedure a_abc % --- a_abc ----------------- % % --- Eingabe (stack): alpha (R-Richtung) beta (G-Richtung) gamma (B-Richtung) % --- Ausgabe (stack): L* interpoliert aus LUT im aktuellen Oktanten % /gamma exch def /beta exch def /alpha exch def /alpham 1 alpha sub def /betam 1 beta sub def /gammam 1 gamma sub def lin_v8a alpha beta gamma mul mul mul lin_v7a alpha beta gammam mul mul mul add lin_v6a alpha betam gamma mul mul mul add lin_v5a alpha betam gammam mul mul mul add lin_v4a alpham beta gamma mul mul mul add lin_v3a alpham beta gammam mul mul mul add lin_v2a alpham betam gamma mul mul mul add lin_v1a alpham betam gammam mul mul mul add } def %END Procedure a_abc %********************************************************************* /b_abc {%BEG Procedure b_abc % --- b_abc ----------------- % % --- Eingabe (stack): alpha (R-Richtung) beta (G-Richtung) gamma (B-Richtung) % --- Ausgabe (stack): L* interpoliert aus LUT im aktuellen Oktanten % /gamma exch def /beta exch def /alpha exch def /alpham 1 alpha sub def /betam 1 beta sub def /gammam 1 gamma sub def lin_v8b alpha beta gamma mul mul mul lin_v7b alpha beta gammam mul mul mul add lin_v6b alpha betam gamma mul mul mul add lin_v5b alpha betam gammam mul mul mul add lin_v4b alpham beta gamma mul mul mul add lin_v3b alpham beta gammam mul mul mul add lin_v2b alpham betam gamma mul mul mul add lin_v1b alpham betam gammam mul mul mul add } def %END Procedure b_abc %********************************************************************* /Jacobi_abc {%BEG Procedure Jacobi_abc % --- Jacobi_abc ----------------- % % --- Eingabe (stack): alpha (R-Richtung) beta (G-Richtung) gamma (B-Richtung) % --- Ausgabe (stack): Jacobi Matrix an der stelle abc im aktuellen Oktanten % in der reihenfolge abcdefghi % (a b c) % (d e f) % (g h i) % /gamma exch def /beta exch def /alpha exch def /alpham 1 alpha sub def /betam 1 beta sub def /gammam 1 gamma sub def lin_v5L lin_v1L sub betam gammam mul mul lin_v6L lin_v2L sub betam gamma mul mul add lin_v7L lin_v3L sub beta gammam mul mul add lin_v8L lin_v4L sub beta gamma mul mul add lin_v3L lin_v1L sub alpham gammam mul mul lin_v4L lin_v2L sub alpham gamma mul mul add lin_v7L lin_v5L sub alpha gammam mul mul add lin_v8L lin_v6L sub alpha gamma mul mul add lin_v2L lin_v1L sub alpham betam mul mul lin_v4L lin_v3L sub alpham beta mul mul add lin_v6L lin_v5L sub alpha betam mul mul add lin_v8L lin_v7L sub alpha beta mul mul add lin_v5a lin_v1a sub betam gammam mul mul lin_v6a lin_v2a sub betam gamma mul mul add lin_v7a lin_v3a sub beta gammam mul mul add lin_v8a lin_v4a sub beta gamma mul mul add lin_v3a lin_v1a sub alpham gammam mul mul lin_v4a lin_v2a sub alpham gamma mul mul add lin_v7a lin_v5a sub alpha gammam mul mul add lin_v8a lin_v6a sub alpha gamma mul mul add lin_v2a lin_v1a sub alpham betam mul mul lin_v4a lin_v3a sub alpham beta mul mul add lin_v6a lin_v5a sub alpha betam mul mul add lin_v8a lin_v7a sub alpha beta mul mul add lin_v5b lin_v1b sub betam gammam mul mul lin_v6b lin_v2b sub betam gamma mul mul add lin_v7b lin_v3b sub beta gammam mul mul add lin_v8b lin_v4b sub beta gamma mul mul add lin_v3b lin_v1b sub alpham gammam mul mul lin_v4b lin_v2b sub alpham gamma mul mul add lin_v7b lin_v5b sub alpha gammam mul mul add lin_v8b lin_v6b sub alpha gamma mul mul add lin_v2b lin_v1b sub alpham betam mul mul lin_v4b lin_v3b sub alpham beta mul mul add lin_v6b lin_v5b sub alpha betam mul mul add lin_v8b lin_v7b sub alpha beta mul mul add } def %END Procedure Jacobi_abc %********************************************************************* /Inverse_mat {%BEG Procedure Inverse_mat % --- Inverse_mat ----------------- % % --- Eingabe (stack): Matrix in der reihenfolge abcdefghi % invertiert die Matrix (a b c) % (d e f) % (g h i) % --- Ausgabe (stack): Matrix % /i_i exch def /i_h exch def /i_g exch def /i_f exch def /i_e exch def /i_d exch def /i_c exch def /i_b exch def /i_a exch def /i_det i_a i_e i_i mul mul i_b i_d i_i mul mul sub i_a i_f i_h mul mul sub i_c i_d i_h mul mul add i_b i_f i_g mul mul add i_c i_e i_g mul mul sub def i_e i_i mul i_f i_h mul sub i_det div %a der inversen auf stack i_c i_h mul i_b i_i mul sub i_det div %b der inversen auf stack i_b i_f mul i_c i_e mul sub i_det div %c der inversen auf stack i_f i_g mul i_d i_i mul sub i_det div %d der inversen auf stack i_a i_i mul i_c i_g mul sub i_det div %e der inversen auf stack i_c i_d mul i_a i_f mul sub i_det div %f der inversen auf stack i_d i_h mul i_e i_g mul sub i_det div %g der inversen auf stack i_b i_g mul i_a i_h mul sub i_det div %h der inversen auf stack i_a i_e mul i_b i_d mul sub i_det div %i der inversen auf stack } def %END Procedure Inverse_mat %********************************************************************* /linear_finden {%BEG Procedure linear_finden % --- linear_finden ----------------- % % --- Eingabe (stack): iR iG iB ; Indizes eines LUT-Wertes, % kennzeichnet die dem Ursprung entfernteste Ecke des ausgewaehlten Raumbereiches % L* a* b* ; danach der zielpunkt als lab wert % --- Ausgabe (stack): Delta-E: Abstand zum Zielpunkt % alpha, beta, gamma die den kürzesten abstand zum gegebenen zielpunkt aufweisen % /lin_zielb exch def /lin_ziela exch def /lin_zielL exch def set_oktant /akt_a 0.5 def /akt_b 0.5 def /akt_c 0.5 def /last_L akt_a akt_b akt_c L_abc def /last_a akt_a akt_b akt_c a_abc def /last_b akt_a akt_b akt_c b_abc def /diff_L last_L lin_zielL sub def /diff_a last_a lin_ziela sub def /diff_b last_b lin_zielb sub def 0 %default rueckgabewert fuer delta-e (wird nie benutzt, aber fuer pop wichtig) 1 1 10 { pop %pop schleifenzaehler pop %pop letzes Delta-E akt_a akt_b akt_c Jacobi_abc Inverse_mat diff_b mul exch diff_a mul add exch diff_L mul add /delta_c exch def diff_b mul exch diff_a mul add exch diff_L mul add /delta_b exch def diff_b mul exch diff_a mul add exch diff_L mul add /delta_a exch def % akt_a akt_b akt_c % delta_a delta_b delta_c /akt_a akt_a delta_a sub def /akt_b akt_b delta_b sub def /akt_c akt_c delta_c sub def akt_a 0 lt {/akt_a 0 def} if akt_b 0 lt {/akt_b 0 def} if akt_c 0 lt {/akt_c 0 def} if 1 akt_a lt {/akt_a 1 def} if 1 akt_b lt {/akt_b 1 def} if 1 akt_c lt {/akt_c 1 def} if /last_L akt_a akt_b akt_c L_abc def /last_a akt_a akt_b akt_c a_abc def /last_b akt_a akt_b akt_c b_abc def /diff_L last_L lin_zielL sub def /diff_a last_a lin_ziela sub def /diff_b last_b lin_zielb sub def %/naechster %akt_a %akt_b %akt_c %last_L %last_a %last_b diff_L dup mul diff_a dup mul diff_b dup mul add add sqrt dup %Abbruch wenn Delta_e<0.1 0.1 lt {exit} if } for akt_a akt_b akt_c } def %END Procedure linear_finden %********************************************************************* /Lab2RGBinterpolation {%BEG Procedure Lab2RGBinterpolation /Ziel_b exch def /Ziel_a exch def /Ziel_L exch def Ziel_L Ziel_a Ziel_b Lab2RGB /now_delta_e exch def /B_next exch def /G_next exch def /R_next exch def /R_fin R_next nR 1 sub div def % defaults falls kein besserer wert gefunden /G_fin G_next nG 1 sub div def /B_fin B_next nB 1 sub div def -1 1 2 { R_next add /R_now exch def -1 1 2 { G_next add /G_now exch def -1 1 2 { B_next add /B_now exch def B_now 0 gt G_now 0 gt R_now 0 gt nB B_now gt nG G_now gt nR R_now gt and and and and and { R_now G_now B_now Ziel_L Ziel_a Ziel_b linear_finden /now_c exch def /now_b exch def /now_a exch def dup %rückgabe delta-e doppeln now_delta_e lt { /now_delta_e exch def /Bs0 B_now 1 sub nB 1 sub div 255 mul round 255 div def /Bs1 B_now nB 1 sub div 255 mul round 255 div def /B_fin Bs0 1 now_c sub mul Bs1 now_c mul add def /Gs0 G_now 1 sub nG 1 sub div 255 mul round 255 div def /Gs1 G_now nG 1 sub div 255 mul round 255 div def /G_fin Gs0 1 now_b sub mul Gs1 now_b mul add def /Rs0 R_now 1 sub nR 1 sub div 255 mul round 255 div def /Rs1 R_now nR 1 sub div 255 mul round 255 div def /R_fin Rs0 1 now_a sub mul Rs1 now_a mul add def } { pop } ifelse } if } for } for } for R_fin G_fin B_fin } bind def %END Procedure Lab2RGBinterpolation %**************************************************************************** %**************************************************************************** /xyY 4320 array def /RGB0 3240 array def /XYZ*system { %BEG procedure XYZ*system 0 1 1079 {/xchartl exch def /j00 xchartl 7 mul 0 add def /j04 j00 4 add def /j05 j00 5 add def /j06 j00 6 add def /j40 xchartl 4 mul 0 add def /j41 xchartl 4 mul 1 add def /j42 xchartl 4 mul 2 add def /j43 xchartl 4 mul 3 add def xyY j40 xyY0 j00 get put xyY j41 xyY0 j04 get put xyY j42 xyY0 j05 get put xyY j43 xyY0 j06 get put } for 0 1 1079 {/xchartl exch def /j00 xchartl 7 mul 0 add def /j01 j00 1 add def /j02 j00 2 add def /j03 j00 3 add def /j30 xchartl 3 mul 0 add def /j31 xchartl 3 mul 1 add def /j32 xchartl 3 mul 2 add def RGB0 j30 xyY0 j01 get 1000 mul put RGB0 j31 xyY0 j02 get 1000 mul put RGB0 j32 xyY0 j03 get 1000 mul put /i70 xchartl 7 mul def /i71 i70 1 add def /i72 i70 2 add def /i73 i70 3 add def nrgbxyY i70 xchartl put nrgbxyY i71 RGB0 j30 get 0.001 mul put nrgbxyY i72 RGB0 j31 get 0.001 mul put nrgbxyY i73 RGB0 j32 get 0.001 mul put } for /XYZrx089 3240 array def %1080*3=3240 /XYZrx100 3240 array def /jend 1073 4 mul 3 add def %White-Measurement /fakt 100 xyY jend get div def /IM0 1080 def /IM1 IM0 1 sub def /IM3 IM0 3 mul 1 sub def /IM4 IM0 4 mul 1 sub def 0 1 IM1 {/i exch def %i=0,IM1 /i30 i 3 mul def /i31 i30 1 add def /i32 i30 2 add def /j30 i 4 mul 1 add def /j31 j30 1 add def /j32 j30 2 add def /SUM xyY j32 get xyY j31 get div def XYZrx100 i30 xyY j30 get SUM mul fakt mul put XYZrx100 i31 xyY j32 get fakt mul put XYZrx100 i32 1 xyY j30 get sub xyY j31 get sub SUM mul fakt mul put } for %i=0,IM1 0 1 IM3 {/i exch def %i=0,IM3 XYZrx089 i XYZrx100 i get 0.8859 mul put } for %i=0,IM3 /iN 1072 3 mul def /iW 1073 3 mul def /XLN100 XYZrx100 iN get def /YLN100 XYZrx100 iN 1 add get def /ZLN100 XYZrx100 iN 2 add get def /XLW100 XYZrx100 iW get def /YLW100 XYZrx100 iW 1 add get def /ZLW100 XYZrx100 iW 2 add get def /XLN089 XYZrx089 iN get def /YLN089 XYZrx089 iN 1 add get def /ZLN089 XYZrx089 iN 2 add get def /XLW089 XYZrx089 iW get def /YLW089 XYZrx089 iW 1 add get def /ZLW089 XYZrx089 iW 2 add get def % achromatic (D65) colours /XLWD65100 95.04 def /YLWD65100 100.00 def /ZLWD65100 108.88 def /XLWD65089 95.04 0.8859 mul def /YLWD65089 100.00 0.8859 mul def /ZLWD65089 108.88 0.8859 mul def /XLN001 XLWD65100 100 div def /YLN001 YLWD65100 100 div def /ZLN001 ZLWD65100 100 div def /LABN [(O (R)) (Y) (L (G)) (C) (V (B)) (M) (O (R)) (N) (W) (N0) (W1)] def } bind def %END procedure XYZ*system %************************************************************ /XD65W 95.04 def /YD65W 100.00 def /ZD65W 108.88 def /XD50W 96.42 def /YD50W 100.00 def /ZD50W 82.51 def /DAKTE [(D65) (D50)] def %Save 8 standard colours /COL*01 08 array def /COL*01 [(%O1 0) (%Y1 1) (%L1 2) (%C1 3) (%V1 4) (%M1 5) (%N1 6) (%W1 7) ] def /COL*02 08 array def /COL*02 [(%O2 0) (%Y2 1) (%L2 2) (%C2 3) (%V2 4) (%M2 5) (%N2 6) (%W2 7) ] def /COL*03 08 array def /COL*03 [(%O3 0) (%Y3 1) (%L3 2) (%C3 3) (%V3 4) (%M3 5) (%N3 6) (%W3 7) ] def /COL*04 08 array def /COL*04 [(%O4 0) (%Y4 1) (%L4 2) (%C4 3) (%V4 4) (%M4 5) (%N4 6) (%W4 7) ] def /COL*05 08 array def /COL*05 [(%O5 0) (%Y5 1) (%L5 2) (%C5 3) (%V5 4) (%M5 5) (%N5 6) (%W5 7) ] def /COL*06 08 array def /COL*06 [(%O6 0) (%Y6 1) (%L6 2) (%C6 3) (%V6 4) (%M6 5) (%N6 6) (%W6 7) ] def /COL*07 08 array def /COL*07 [(%O7 0) (%Y7 1) (%L7 2) (%C7 3) (%V7 4) (%M7 5) (%N7 6) (%W7 7) ] def /LAB*01 24 array def /LAB*02 24 array def /LAB*03 24 array def /LAB*04 24 array def /LAB*05 24 array def /LAB*06 24 array def /LAB*07 24 array def /LAB*a01 24 array def /LAB*a02 24 array def /LAB*a03 24 array def /LAB*a04 24 array def /LAB*a05 24 array def /LAB*a06 24 array def /LAB*a07 24 array def /DecodeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind def /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 7 string cvs show} def /cvishowb {cvi 6 string cvs show ( ) show} def /cvsshow1b {10 mul cvi 0.1 mul 7 string cvs show ( ) show} def /cvsshow2b {100 mul cvi 0.01 mul 7 string cvs show ( ) show} def /cvsshow3b {1000 mul cvi 0.001 mul 7 string cvs show ( ) show} def /cvishowr {0.5 add cvi 6 string cvs show} def /cvsshow1r {0.05 add 10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2r {0.005 add 100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3r {0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show} def /cvi100 {100 mul cvi /xi exch def xi 0 lt {/vorz -1 def} {/vorz 1 def} ifelse /xia xi abs def vorz -1 eq {(\255) show} {(0) show} ifelse xia 0 ge xia 9 le and {(0000) show} if xia 10 ge xia 99 le and {(000) show} if xia 100 ge xia 999 le and {(00) show} if xia 1000 ge xia 9999 le and {(0) show} if xia cvishow } bind def /cvi1000 {1000 mul cvi /xi exch def xi 0 ge xi 9 le and {(000) show} if xi 10 ge xi 99 le and {(00) show} if xi 100 ge xi 999 le and {(0) show} if xi cvishow } bind def /cvisp3 {/xi exch cvi def xi 0 ge xi 9 le and {(000) show} if xi 10 ge xi 99 le and {(00) show} if xi 100 ge xi 999 le and {(0) show} if xi cvishow } bind def /cvisp2 {/xi exch cvi def xi 0 ge xi 9 le and {(00) show} if xi 10 ge xi 99 le and {(0) show} if xi cvishow } bind def %BEG aus LG49 /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 LG49_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 LG49_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 LG49 %%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 LG49 /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 LG49 %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 15 {/xchartix exch def %beg xchartix=00,15 /xcharti xchartix 2 idiv 3 add def %range 3...10 /xcharts xchartix xchartix 2 idiv 2 mul sub def %range 0...5 xcharts 0 le {%xcharts 0 x3D 0 eq RGBOLVL 0 eq and {/FileTex (Fadin) def} if x3D 0 eq RGBOLVL 1 eq and {/FileTex (Fadin) def} if x3D 1 eq RGBOLVL 0 eq and {/FileTex (Fadin) def} if x3D 1 eq RGBOLVL 1 eq and {/FileTex (Fadin) def} if }%xcharts 0 {%xcharts 1 x3D 0 eq RGBOLVL 0 eq and {/FileTex (Faeit) def} if x3D 0 eq RGBOLVL 1 eq and {/FileTex (Fadit) def} if x3D 1 eq RGBOLVL 0 eq and {/FileTex (Fae3D) def} if x3D 1 eq RGBOLVL 1 eq and {/FileTex (Fad3D) def} if } ifelse %xcharts=0,1 gsave xcharti 2 le {/il 0 def} {/il xcharti 3 sub def} ifelse %Reference black and factors /YrN 2.52 def /ilf [0.00 0.25 0.50 1.00 2.00 4.00 8.00 16.00] def /Xtref089 YrN ilf il get mul XLN001 mul def /Ytref089 YrN ilf il get mul def /Ztref089 YrN ilf il get mul ZLN001 mul def /YNil Ytref089 def /YNil001 YNil 100 div def YNil001 6 29 div 3 exp ge {/FYYn YNil001 0.3333 exp def} {/FYYn 841 108 div YNil001 mul 4 29 div add def} ifelse /L*Nil 116 FYYn mul 16 sub def /IM1 1079 def 0 1 IM1 {/i exch def %i=0,IM1 /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def XYZrc089 i30 XYZrx089 i30 get put XYZrc089 i31 XYZrx089 i31 get put XYZrc089 i32 XYZrx089 i32 get put /XQ XYZrc089 i30 get XLWD65100 div def /YQ XYZrc089 i31 get YLWD65100 div def /ZQ XYZrc089 i32 get ZLWD65100 div def XQ 0 lt {/XQ 0.00000001 def} if YQ 0 lt {/YQ 0.00000001 def} if ZQ 0 lt {/ZQ 0.00000001 def} if LAB*rc089 i30 YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse put LAB*rc089 i31 XQ 0.008856 lt {7.787 XQ mul 16 116 div add} {XQ 0.33333333 exp} ifelse YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse sub 500 mul put LAB*rc089 i32 YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add} {ZQ 0.33333333 exp} ifelse sub 200 mul put } for %i=0,IM1 /jN 1072 3 mul def /L*N LAB*rc089 jN get def /A*N LAB*rc089 jN 1 add get def /B*N LAB*rc089 jN 2 add get def /jW 1073 3 mul def /L*W LAB*rc089 jW get def /A*W LAB*rc089 jW 1 add get def /B*W LAB*rc089 jW 2 add get def 0 1 IM1 {/i exch def %i=0,IM1 /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def LAB*ra089 i30 LAB*rc089 i30 get put /l*CIE LAB*rc089 i30 get L*N sub L*W L*N sub div def %system rel. lightn. /a*s A*W A*N sub l*CIE mul def /b*s B*W B*N sub l*CIE mul def LAB*ra089 i31 LAB*rc089 i31 get A*N sub a*s sub put LAB*ra089 i32 LAB*rc089 i32 get B*N sub b*s sub put } for %i=0,IM1 0 1 IM1 {/i exch def %i=0,IM1 /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def /X* {LAB*ra089 i30 get 16 add 116 div LAB*ra089 i31 get 500 div add} bind def /Y* {LAB*ra089 i30 get 16 add 116 div} bind def /Z* {LAB*ra089 i30 get 16 add 116 div LAB*ra089 i32 get 200 div sub} bind def XYZra089 i30 X* DecodeXYZ* XLWD65100 mul put XYZra089 i31 Y* DecodeXYZ* YLWD65100 mul put XYZra089 i32 Z* DecodeXYZ* ZLWD65100 mul put } for %i=0,IM1 xcharti 2 ge {%xcharti>=2 /jW 1073 3 mul def %for white X data /Xwref089 XYZra089 jW get def /Ywref089 XYZra089 jW 1 add get def /Zwref089 XYZra089 jW 2 add get def /jN 1072 3 mul 1 add def %for black X data /YrN XYZra089 jN 1 add get def /Xnref089 YrN XLN001 mul def /Ynref089 YrN def /Znref089 YrN ZLN001 mul def 0 1 IM1 {/i exch def /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def XYZna089 i30 XYZra089 i30 get Xnref089 sub Xwref089 Xwref089 Xnref089 sub div mul put XYZna089 i31 XYZra089 i31 get Ynref089 sub Ywref089 Ywref089 Ynref089 sub div mul put XYZna089 i32 XYZra089 i32 get Znref089 sub Zwref089 Zwref089 Znref089 sub div mul put } for %i=I1,I2 0 1 IM1 {/i exch def /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def /XQ XYZna089 i30 get XLWD65100 div def /YQ XYZna089 i31 get YLWD65100 div def /ZQ XYZna089 i32 get ZLWD65100 div def XQ 0 lt {/XQ 0.00000001 def} if YQ 0 lt {/YQ 0.00000001 def} if ZQ 0 lt {/ZQ 0.00000001 def} if LAB*na089 i30 YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse put LAB*na089 i31 XQ 0.008856 lt {7.787 XQ mul 16 116 div add} {XQ 0.33333333 exp} ifelse YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse sub 500 mul put LAB*na089 i32 YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add} {ZQ 0.33333333 exp} ifelse sub 200 mul put } for %i=I1,I2 } if %xchart>=2 xcharti 3 ge {%xchart>=3 /jW 1073 3 mul def %for white X data %/jW 57 3 mul def %W /Xwref089 XYZra089 jW get def /Ywref089 XYZra089 jW 1 add get def /Zwref089 XYZra089 jW 2 add get def /kn Ywref089 Ywref089 Ytref089 sub div def 0 1 IM1 {/i exch def /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def XYZla089 i30 XYZna089 i30 get kn div Xtref089 add put XYZla089 i31 XYZna089 i31 get kn div Ytref089 add put XYZla089 i32 XYZna089 i32 get kn div Ztref089 add put } for %i=I1,I2 0 1 IM1 {/i exch def /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def /XQ XYZla089 i30 get XLWD65100 div def /YQ XYZla089 i31 get YLWD65100 div def /ZQ XYZla089 i32 get ZLWD65100 div def XQ 0 lt {/XQ 0.00000001 def} if YQ 0 lt {/YQ 0.00000001 def} if ZQ 0 lt {/ZQ 0.00000001 def} if LAB*la089 i30 YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse put LAB*la089 i31 XQ 0.008856 lt {7.787 XQ mul 16 116 div add} {XQ 0.33333333 exp} ifelse YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse sub 500 mul put LAB*la089 i32 YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add} {ZQ 0.33333333 exp} ifelse sub 200 mul put } for %i=I1,I2 } if %xchart>=3 xcharti 0 eq {%xcharti=0 (1x) 0 1 IM1 {/i exch def %i=0,IM1 /i30 i 3 mul def /i31 i30 1 add def /i32 i30 2 add def % 10100 ymax i i 80 idiv 80 mul sub ydel mul sub moveto LAB*Lj i LAB*rc089 i30 get put LAB*aj i LAB*rc089 i31 get put LAB*bj i LAB*rc089 i32 get put XYZ_Xj i XYZrc089 i30 get put XYZ_Yj i XYZrc089 i31 get put XYZ_Zj i XYZrc089 i32 get put } for %i=0,IM1 } if %xcharti=0 (1x) xcharti 1 eq {%xcharti=1 (1x) 0 1 IM1 {/i exch def %i=0,IM1 /i30 i 3 mul def /i31 i30 1 add def /i32 i30 2 add def % 10100 ymax i i 80 idiv 80 mul sub ydel mul sub moveto LAB*Lj i LAB*ra089 i30 get put LAB*aj i LAB*ra089 i31 get put LAB*bj i LAB*ra089 i32 get put XYZ_Xj i XYZra089 i30 get put XYZ_Yj i XYZra089 i31 get put XYZ_Zj i XYZra089 i32 get put } for %i=0,IM1 } if %xcharti=1 (1x) xcharti 2 eq {%xcharti=2 (1x) 0 1 IM1 {/i exch def %i=0,IM1 /i30 i 3 mul def /i31 i30 1 add def /i32 i30 2 add def % 10100 ymax i i 80 idiv 80 mul sub ydel mul sub moveto LAB*Lj i LAB*na089 i30 get put LAB*aj i LAB*na089 i31 get put LAB*bj i LAB*na089 i32 get put XYZ_Xj i XYZna089 i30 get put XYZ_Yj i XYZna089 i31 get put XYZ_Zj i XYZna089 i32 get put } for %i=0,IM1 } if %xcharti=2 (1x) xcharti 3 ge {%xcharti=3,4,5,6,7,8,9,10 (8x) 0 1 IM1 {/i exch def %i=0,IM1 /i30 i 3 mul def /i31 i30 1 add def /i32 i30 2 add def % 10100 ymax i i 80 idiv 80 mul sub ydel mul sub moveto LAB*Lj i LAB*la089 i30 get put LAB*aj i LAB*la089 i31 get put LAB*bj i LAB*la089 i32 get put XYZ_Xj i XYZla089 i30 get put XYZ_Yj i XYZla089 i31 get put XYZ_Zj i XYZla089 i32 get put } for %i=0,IM1 } if %xcharti=3,4,5,6,7,8,9,10 (8x) xcharti 0 eq {/Xprint 0 def /FileData (LAB*rc) def} if xcharti 1 eq {/Xprint 1 def /FileData (LAB*ra) def} if xcharti 2 eq {/Xprint 1 def /FileData (LAB*na) def} if xcharti 3 eq {/Xprint 1 def /FileData (LAB*la0) def} if xcharti 4 eq {/Xprint 1 def /FileData (LAB*la1) def} if xcharti 5 eq {/Xprint 1 def /FileData (LAB*la2) def} if xcharti 6 eq {/Xprint 1 def /FileData (LAB*la3) def} if xcharti 7 eq {/Xprint 1 def /FileData (LAB*la4) def} if xcharti 8 eq {/Xprint 1 def /FileData (LAB*la5) def} if xcharti 9 eq {/Xprint 1 def /FileData (LAB*la6) def} if xcharti 10 eq {/Xprint 1 def /FileData (LAB*la7) def} if 0 1 728 {/j exch def %j=1,728 %necessary in both cases j 072 eq {%072 0-8-0 L 2 LAB*01 06 LAB*Lj j get put LAB*01 07 LAB*aj j get put LAB*01 08 LAB*bj j get put} if j 080 eq {%080 0-8-8 C 3 LAB*01 09 LAB*Lj j get put LAB*01 10 LAB*aj j get put LAB*01 11 LAB*bj j get put} if j 008 eq {%008 0-0-8 V 4 LAB*01 12 LAB*Lj j get put LAB*01 13 LAB*aj j get put LAB*01 14 LAB*bj j get put} if j 000 eq {%000 0-0-0 N 6 LAB*01 18 LAB*Lj j get put LAB*01 19 LAB*aj j get put LAB*01 20 LAB*bj j get put} if j 648 eq {%648 8-0-0 O 0 LAB*01 00 LAB*Lj j get put LAB*01 01 LAB*aj j get put LAB*01 02 LAB*bj j get put} if j 720 eq {%720 8-8-0 Y 1 LAB*01 03 LAB*Lj j get put LAB*01 04 LAB*aj j get put LAB*01 05 LAB*bj j get put} if j 656 eq {%656 8-0-8 M 5 LAB*01 15 LAB*Lj j get put LAB*01 16 LAB*aj j get put LAB*01 17 LAB*bj j get put} if j 728 eq {%728 8-8-8 W 7 LAB*01 21 LAB*Lj j get put LAB*01 22 LAB*aj j get put LAB*01 23 LAB*bj j get put} if } for %j=0,728 729 1 971 {/j exch def %j=729,971 %necessary in both cases j 963 eq {%963 0-8-0 L 2 LAB*02 06 LAB*Lj j get put LAB*02 07 LAB*aj j get put LAB*02 08 LAB*bj j get put} if j 737 eq {%737 0-8-8 C 3 LAB*02 09 LAB*Lj j get put LAB*02 10 LAB*aj j get put LAB*02 11 LAB*bj j get put} if j 818 eq {%818 0-0-8 V 4 LAB*02 12 LAB*Lj j get put LAB*02 13 LAB*aj j get put LAB*02 14 LAB*bj j get put} if j 809 eq {%809 or 890 or 971 0-0-0 N 6 LAB*02 18 LAB*Lj j get LAB*Lj 890 get add LAB*Lj 971 get add 3 div put LAB*02 19 LAB*aj j get LAB*aj 890 get add LAB*aj 971 get add 3 div put LAB*02 20 LAB*bj j get LAB*bj 890 get add LAB*bj 971 get add 3 div put} if j 801 eq {%801 8-0-0 O 0 LAB*02 00 LAB*Lj j get put LAB*02 01 LAB*aj j get put LAB*02 02 LAB*bj j get put} if j 882 eq {%882 8-8-0 Y 1 LAB*02 03 LAB*Lj j get put LAB*02 04 LAB*aj j get put LAB*02 05 LAB*bj j get put} if j 899 eq {%899 8-0-8 M 5 LAB*02 15 LAB*Lj j get put LAB*02 16 LAB*aj j get put LAB*02 17 LAB*bj j get put} if j 729 eq {%729 or 810 or 891 8-8-8 W 7 LAB*02 21 LAB*Lj j get LAB*Lj 810 get add LAB*Lj 891 get add 3 div put LAB*02 22 LAB*aj j get LAB*aj 810 get add LAB*aj 891 get add 3 div put LAB*02 23 LAB*bj j get LAB*bj 810 get add LAB*bj 891 get add 3 div put} if } for %j=j=729,971 972 1 1079 {/j exch def %j=972,1079 %only last colours 1072 to 1079 j 1078 eq {%1078 0-8-0 L 2 LAB*03 06 LAB*Lj j get put LAB*03 07 LAB*aj j get put LAB*03 08 LAB*bj j get put} if j 1075 eq {%1075 0-8-8 C 3 LAB*03 09 LAB*Lj j get put LAB*03 10 LAB*aj j get put LAB*03 11 LAB*bj j get put} if j 1077 eq {%1077 0-0-8 V 4 LAB*03 12 LAB*Lj j get put LAB*03 13 LAB*aj j get put LAB*03 14 LAB*bj j get put} if j 1072 eq {%1072 0-0-0 N 6 LAB*03 18 LAB*Lj j get put LAB*03 19 LAB*aj j get put LAB*03 20 LAB*bj j get put} if j 1074 eq {%1074 8-0-0 O 0 LAB*03 00 LAB*Lj j get put LAB*03 01 LAB*aj j get put LAB*03 02 LAB*bj j get put} if j 1076 eq {%1076 8-8-0 Y 1 LAB*03 03 LAB*Lj j get put LAB*03 04 LAB*aj j get put LAB*03 05 LAB*bj j get put} if j 1079 eq {%1079 8-0-8 M 5 LAB*03 15 LAB*Lj j get put LAB*03 16 LAB*aj j get put LAB*03 17 LAB*bj j get put} if j 1073 eq {%1073 8-8-8 W 7 LAB*03 21 LAB*Lj j get put LAB*03 22 LAB*aj j get put LAB*03 23 LAB*bj j get put} if } for %j=j=972,1079 972 1 1079 {/j exch def %09 step N,W: j=0972,0980; 0981,0989; 0990,0998; % 0999,1007 %16 step N,W: j=1008,1023; 1024,1039; 1040,1055; % 1056,1071 %necessary for four 09-step grey scales j 0972 eq {%0972 or 1008 0-0-0 N 6 LAB*04 18 LAB*Lj j get put LAB*04 19 LAB*aj j get put LAB*04 20 LAB*bj j get put} if j 0980 eq {%0980 or 1023 8-8-8 W 7 LAB*04 21 LAB*Lj j get put LAB*04 22 LAB*aj j get put LAB*04 23 LAB*bj j get put} if j 0981 eq {%0981 or 1024 0-0-0 N 6 LAB*05 18 LAB*Lj j get put LAB*05 19 LAB*aj j get put LAB*05 20 LAB*bj j get put} if j 0989 eq {%0989 or 1039 8-8-8 W 7 LAB*05 21 LAB*Lj j get put LAB*05 22 LAB*aj j get put LAB*05 23 LAB*bj j get put} if j 0990 eq {%0990 or 1040 0-0-0 N 6 LAB*06 18 LAB*Lj j get put LAB*06 19 LAB*aj j get put LAB*06 20 LAB*bj j get put} if j 0998 eq {%0998 or 1055 8-8-8 W 7 LAB*06 21 LAB*Lj j get put LAB*06 22 LAB*aj j get put LAB*06 23 LAB*bj j get put} if j 0999 eq {%0999 or 1056 0-0-0 N 6 LAB*07 18 LAB*Lj j get put LAB*07 19 LAB*aj j get put LAB*07 20 LAB*bj j get put} if j 1007 eq {%1007 or 1071 8-8-8 W 7 LAB*07 21 LAB*Lj j get put LAB*07 22 LAB*aj j get put LAB*07 23 LAB*bj j get put} if } for %j=972,1079 %Adaptation /L*Nio LAB*07 18 get def /A*Nio LAB*07 19 get def /B*Nio LAB*07 20 get def /L*Wio LAB*07 21 get def /A*Wio LAB*07 22 get def /B*Wio LAB*07 23 get def /A*Dio A*Wio A*Nio sub def /B*Dio B*Wio B*Nio sub def 0 1 1079 {/j exch def %j=0,1079 LAB*Lja j LAB*Lj j get put /l*CIE LAB*Lj j get L*Nio sub L*Wio L*Nio sub div def %system rel. lightn. /a*s A*Wio A*Nio sub l*CIE mul def /b*s B*Wio B*Nio sub l*CIE mul def LAB*aja j LAB*aj j get A*Nio sub a*s sub put LAB*bja j LAB*bj j get B*Nio sub b*s sub put LAB*Cja j LAB*aja j get dup mul LAB*bja j get dup mul add 0.0001 add sqrt put LAB*Cja j get 0.02 le {%LAB*Cja<=0.02 achromatic LAB*Hja j 0 put } {%LAB*Cja>0.02 chromatic LAB*Hja j LAB*bja j get LAB*aja j get 0.0001 add atan put } ifelse } for %j=0,1079 0 3 2186 {/j exch def %j=0,2186 /j3 j 3 idiv def lut j LAB*Lja j3 get put lut j 1 add LAB*aja j3 get put lut j 2 add LAB*bja j3 get put } for %j=0,2186 %*********************************************************************************** xcharti 2 le {/jN 1072 3 mul def /YNil XYZrx089 jN 1 add get def /L*Nil LAB*rc089 jN get def} if /RJGB0 RJGBLAB* 02 get RJGBLAB* 01 get atan def %026 /RJGB1 RJGBLAB* 05 get RJGBLAB* 04 get atan def %092 /RJGB2 RJGBLAB* 08 get RJGBLAB* 07 get atan def %162 /RJGB3 RJGBLAB* 11 get RJGBLAB* 10 get atan def %272 /CeGB RJGB2 RJGB3 add 0.5 mul def /MeBR RJGB3 RJGB0 360 add add 0.5 mul def 0 1 47 {/j exch def %i=0,47 elementary and intemediate hue angles /j0 j j 8 idiv 8 mul sub def %0,1,2,3,4,5,6,7 /b0 j0 0.125 mul def /a0 1 b0 sub def j 00 ge j 07 le and {RGBhab64 j a0 RJGB0 mul b0 RJGB1 mul add put} if j 08 ge j 15 le and {RGBhab64 j a0 RJGB1 mul b0 RJGB2 mul add put} if j 16 ge j 23 le and {RGBhab64 j a0 RJGB2 mul b0 CeGB mul add put} if j 24 ge j 31 le and {RGBhab64 j a0 CeGB mul b0 RJGB3 mul add put} if j 32 ge j 39 le and {RGBhab64 j a0 RJGB3 mul b0 MeBR mul add put} if j 40 ge j 47 le and {RGBhab64 j a0 MeBR mul b0 RJGB0 360 add mul add dup 360 ge {360 sub} if put} if } for %j=0,47 elementary and intemediate hue angles 0 1 15 {/j exch def %j=0,15 %for interpolation 0 rgb* (0,2) /LAB*hMaP LAB*hMa def LAB*hMa OLVhab64 0 get lt {/LAB*hMaP LAB*hMa 360 add def} if /joj -1 def 0 1 62 {/jj exch def %jj=1,62 /habton0 OLVhab64 jj get def /habton1 OLVhab64 jj 1 add get def LAB*hMaP habton0 ge LAB*hMaP habton1 lt and {/joj jj def exit } if } for %jj=0,62 joj -1 eq {%output in case of data failure -100 -100 rmoveto (STOPjoj=-1) show (, ) show jj cvishow (, ) show LAB*hMaP cvsshow1 (, ) show OLVhab64 jj get cvsshow1 (, ) show OLVhab64 jj 1 add get cvsshow1 } if % } if %RGBOLVL=0 /A2 LAB*hMaP habton0 sub habton1 habton0 sub div def /A1 1 A2 sub def /jxj joj def %RGBOLVL 0 eq RGBOLVL 2 eq or {joj} {jrj} ifelse def /LAB*L*Ma LUTL*64a jxj get A1 mul LUTL*64a jxj 1 add get A2 mul add def /LAB*C*Ma LUTC*64a jxj get A1 mul LUTC*64a jxj 1 add get A2 mul add def /LAB*H*Ma LUTH*64a jxj get A1 mul LUTH*64a jxj 1 add get A2 mul add def /LAB*a*Ma LAB*C*Ma LAB*H*Ma cos mul def /LAB*b*Ma LAB*C*Ma LAB*H*Ma sin mul def /o3*Maeit RGBOLV*640 jxj get A1 mul RGBOLV*640 jxj 1 add get A2 mul add def /l3*Maeit RGBOLV*641 jxj get A1 mul RGBOLV*641 jxj 1 add get A2 mul add def /v3*Maeit RGBOLV*642 jxj get A1 mul RGBOLV*642 jxj 1 add get A2 mul add def } ifelse %chromatic colours /LAB*L*M LAB*L*Ma def /l*CIE LAB*L*Ma L*Nio sub L*Wio L*Nio sub div def %relative lightness %relative chroma c*3, blackness n*3, brilliance i*3 /minFa o3*Fa def l3*Fa minFa lt {/minFa l3*Fa def} if v3*Fa minFa lt {/minFa v3*Fa def} if /maxFa o3*Fa def l3*Fa maxFa gt {/maxFa l3*Fa def} if v3*Fa maxFa gt {/maxFa v3*Fa def} if /i*3 maxFa def /c*3 maxFa minFa sub def /n*3 1 i*3 sub def %CIE lightness and chroma of colour Fa %See equations (1) to (4) of www.ps.bam.de/D33872-AE.PDF, Page 10 /t*3 i*3 c*3 0.5 mul sub def /l*3 t*3 c*3 LAB*L*Ma L*Nio sub L*Wio L*Nio sub div 0.5 sub mul add def %calculation of o3*Faeit, l3*Faeit v3*Faeit % from o3*Maeit, l3*Maeit v3*Maeit /i*3 1 n*3 sub def /o3*Faeitn o3*Maeit i*3 mul def /l3*Faeitn l3*Maeit i*3 mul def /v3*Faeitn v3*Maeit i*3 mul def /minFaeitn o3*Faeitn def l3*Faeitn minFaeitn lt {/minFaeitn l3*Faeitn def} if v3*Faeitn minFaeitn lt {/minFaeitn v3*Faeitn def} if /maxFaeitn o3*Faeitn def l3*Faeitn maxFaeitn gt {/maxFaeitn l3*Faeitn def} if v3*Faeitn maxFaeitn gt {/maxFaeitn v3*Faeitn def} if /o3*Faeit o3*Faeitn def %default /l3*Faeit l3*Faeitn def /v3*Faeit v3*Faeitn def %change of minFaeitn minFaeitn o3*Faeitn eq {/o3*Faeit maxFaeitn c*3 sub def} if minFaeitn l3*Faeitn eq {/l3*Faeit maxFaeitn c*3 sub def} if minFaeitn v3*Faeitn eq {/v3*Faeit maxFaeitn c*3 sub def} if /LAB*L*Fa l*3 L*Wio L*Nio sub mul L*Nio add def /LAB*C*Fa LAB*C*Ma c*3 mul def /LAB*a*Fa LAB*C*Fa LAB*hFa cos mul def /LAB*b*Fa LAB*C*Fa LAB*hFa sin mul def %for output of data for colours Ma and Fa LAB*hMa 360 ge {/LAB*hMa LAB*hMa 360 sub def} if /LAB*hFa LAB*hMa def /LAB*L*Fait LAB*L*Fa def /LAB*a*Fait LAB*a*Fa def /LAB*b*Fait LAB*b*Fa def /LAB*C*Fait LAB*a*Fait dup mul LAB*b*Fait dup mul add 0.0001 add sqrt def /LAB*H*Fait LAB*b*Fait LAB*a*Fait 0.0001 add atan def %****************************************************** x3D 0 eq {%output intended (it) lut1 xchartl LAB*L*Fait put lut2 xchartl LAB*a*Fait put lut3 xchartl LAB*b*Fait put }%output intended (it) {%output 3D LAB*L*Fait LAB*a*Fait LAB*b*Fait %*************************************************** Lab2RGBinterpolation %procedure for 3D interpolation %*************************************************** /v*3Fa3D exch def /l*3Fa3D exch def /o*3Fa3D exch def %produces in addition: %delta_L*, delta_a*, delta_b*, delta_E* %LAB*L*Fa3D, LAB*a*Fa3D, LAB*b*Fa3D, LAB*C*Fa3D, LAB*hFa3D %end 3D interpolation of measured start output data lut1 xchartl LAB*L*Fa3D put lut2 xchartl LAB*a*Fa3D put lut3 xchartl LAB*b*Fa3D put } ifelse %output x3D } if %xcharts=1 } for %xchartl=0,1079 %begin calculation and output of graph with 16 pictures /icolor 0 def xcharts 0 eq {/xcolor 0 def} if xcharts 1 eq {/xcolor 1 def} if xcolor 0 eq {/olvrgb 0 def %text O-C etc. %only for start plot, allways olvrgb=0 } {/olvrgb 1 RGBOLVL sub def %text O-C (0), R-G (1) %only for second plot, olvrgb=0 or 1 } ifelse colorm 1 eq {proc_lut0} if %Definition lut0 and lut depending on xcolor %************************************************************************* 0 1 1079 {/j exch def %j=0,1079 /j100 j 10 mul def /j101 j100 1 add def /j102 j100 2 add def LUT j100 lut1 j get 100 mul put LUT j101 lut2 j get 100 mul put LUT j102 lut3 j get 100 mul put } for %j=0,1079 %j=0,1079 0 1 7 {/k exch def %k=0,7 /k30 k 3 mul def /k31 k30 1 add def /k32 k30 2 add def /j k30j k get def xcolor 0 eq {%xcolor=0 LAB*Fa0100 k30 lut1 j get put LAB*Fa0100 k31 lut2 j get put LAB*Fa0100 k32 lut3 j get put }%xcolor=0 {%xcolor=1 LAB*Fa1100 k30 lut1 j get put LAB*Fa1100 k31 lut2 j get put LAB*Fa1100 k32 lut3 j get put } ifelse %xcolor=0,1 } for %k=0,7 %************************************************************************* 0 1 1079 {/j exch def %j=0,1079 /j30 j 03 mul def /j31 j30 1 add def /j32 j30 2 add def /j100 j 10 mul 3 add def /j101 j100 1 add def /j102 j100 2 add def LUT j100 RGB0 j30 get put LUT j101 RGB0 j31 get put LUT j102 RGB0 j32 get put } for %j=0,1079 %j=0,1079 0 1 23 {/i exch def LAB*FaGA100 i xcolor 0 eq {LAB*Fa0100}{LAB*Fa1100} ifelse i get 100 div put } for 0 1 05 {/i exch def %i=0,5 /A*Fa LAB*FaGA100 i 3 mul 1 add get def /B*Fa LAB*FaGA100 i 3 mul 2 add get def /H*Fa B*Fa A*Fa 0.0001 add atan def angle_olvGA1 i H*Fa put i 0 eq {angle_olvGA1 6 H*Fa 360 add put} if } for %i=0,5 0 1 5 {/i exch def /i1 i 1 add def %i=0,5 /angle_olvGA1_dif angle_olvGA1 i1 get angle_olvGA1 i get sub def angle_olvGA1i i angle_olvGA1 i get put angle_olvGA1i i 07 add angle_olvGA1 i get angle_olvGA1_dif 0.00 mul add put angle_olvGA1i i 14 add angle_olvGA1 i get angle_olvGA1_dif 0.00 mul add put angle_olvGA1i i 21 add angle_olvGA1 i get angle_olvGA1_dif 0.00 mul add put } for %i=0,5 LAB*ioLmod 0 1 0 {/ibild exch def %ibild=0,1 ibild 0 eq {%BEG ibild=0 0 1 05 {/ic exch def %ic=0,11 S1 20 add yu2 yd ic mul sub moveto ( ) nshow N*olv ic ColNames ic get put } for %ic=0,11 0 1 05 {/i exch def %i=0,5 /ya yu2 yd i mul sub def /L*Fa LAB*a i 3 mul get def /A*Fa LAB*a i 3 mul 1 add get def /B*Fa LAB*a i 3 mul 2 add get def /C*Fa A*Fa dup mul B*Fa dup mul add sqrt def /H*Fa B*Fa A*Fa 0.0001 add atan def L*olv i L*Fa put A*olv i A*Fa put B*olv i B*Fa put C*olv i C*Fa put H*olv i H*Fa put o*olv i o3Ma i get put l*olv i l3Ma i get put v*olv i v3Ma i get put i 5 eq {L*olv 6 L*olv 0 get put A*olv 6 A*olv 0 get put B*olv 6 B*olv 0 get put A*olv 6 A*olv 0 get put C*olv 6 C*olv 0 get put H*olv 6 H*olv 0 get put o*olv 6 o*olv 0 get put l*olv 6 l*olv 0 get put v*olv 6 v*olv 0 get put } if } for %i=0,5 }%END ibild=0 {%BEG ibild=1 12 2 27 {/ic exch def %ic=12,27 N*rgb ic 12 sub 2 idiv ColNames ic get put } for %ic=12,27 %calculation of intermediate elementary colours %/proc_LAB*Fae_LAB*MaeNTABl_olvi3*cmyn3*Ma*ioL { %BEG procedure proc_LAB*Fae_LAB*MaeNTABl_olvi3*cmyn3*Ma*ioL %only for calculation without hue tables %input LAB*Fae %input LAB*a (4 adapted colours RJGB, No. 8 to 11) %input nLAB*s0 (colour white N for calculation of lab*l) %input wLAB*s0 (colour white W for achromatic axis) %output LAB*Mae %output olvi3*Mae %output cmyn3*Mae 0 1 3 {/j exch def %j=0,3 /L*Fae0 LAB*a j 8 add 3 mul 0 add get def /A*Fae0 LAB*a j 8 add 3 mul 1 add get def /B*Fae0 LAB*a j 8 add 3 mul 2 add get def /H*Fae0 B*Fae0 A*Fae0 0.0001 add atan def j 2 le {/L*Fae1 LAB*a j 1 add 8 add 3 mul 0 add get def /A*Fae1 LAB*a j 1 add 8 add 3 mul 1 add get def /B*Fae1 LAB*a j 1 add 8 add 3 mul 2 add get def /H*Fae1 B*Fae1 A*Fae1 0.0001 add atan def } {/L*Fae1 LAB*a 0 8 add 3 mul 0 add get def /A*Fae1 LAB*a 0 8 add 3 mul 1 add get def /B*Fae1 LAB*a 0 8 add 3 mul 2 add get def /H*Fae1 B*Fae1 A*Fae1 0.0001 add atan 360 add def } ifelse 0 1 1 {/i exch def %i=0,3 /n j 2 mul i add def /ya yu2 yd n mul sub 8000 add def /alph i 2 div def /beta 1 alph sub def /L*Fae L*Fae0 beta mul L*Fae1 alph mul add def /H*Fae H*Fae0 beta mul H*Fae1 alph mul add def /A*Fae 100 H*Fae cos mul def /B*Fae 100 H*Fae sin mul def proc_LAB*Fae_LAB*MaeNTABl_olvi3*cmyn3*Ma*ioL n 0 ge {/ineu n def} if n 2 ge {/ineu n 1 sub def} if n 4 ge {/ineu n 2 sub def} if L*rgb ineu L*Mae put A*rgb ineu A*Mae put B*rgb ineu B*Mae put C*rgb ineu C*Mae put H*rgb ineu H*Mae put n 7 eq {/ineu 6 def %ineu=6 L*rgb ineu L*rgb 0 get put A*rgb ineu A*rgb 0 get put B*rgb ineu B*rgb 0 get put C*rgb ineu C*rgb 0 get put H*rgb ineu H*rgb 0 get put } if %ineu=6 } for %i=0,1 } for %j=0,3 } ifelse %END ibild=1 } for %ibild=0,1 /xchartl 9 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 {(LG491-) show} {(LG491-) show} ifelse xchartl 0 ge xchartl 7 le and {xchartl 1 add cvishow} if xchartl 8 ge xchartl 15 le and {xchartl 7 sub cvishow} if (A) show %A (, ) show Lrefl xcharti get show (_) show FileTex show ( ) show xcharts cvishow ( ) show %Param show 2600 0300 translate gsave 0.8 0.8 scale 1 setgray -3200 4175 moveto TBS %(System: ) show FileDat show ( ) show Lrefl xcharti get show (_) show FileTex show /x400 400 def /x700 550 def 0 1 5 {/i exch def /i1 i 1 add def %i=0,5 /angle_olv_dif angle_olv i1 get angle_olv i get sub def angle_olvi i angle_olv i get put angle_olvi i 07 add angle_olv i get angle_olv_dif 0.00 mul add put angle_olvi i 14 add angle_olv i get angle_olv_dif 0.00 mul add put angle_olvi i 21 add angle_olv i get angle_olv_dif 0.00 mul add put /angle_rgb_dif angle_rgb i1 get angle_rgb i get sub def angle_rgbi i angle_rgb i get put angle_rgbi i 07 add angle_rgb i get angle_rgb_dif 0.00 mul add put angle_rgbi i 14 add angle_rgb i get angle_rgb_dif 0.00 mul add put angle_rgbi i 21 add angle_rgb i get angle_rgb_dif 0.00 mul add put } for %i=0,5 /angle6 7 array def /angle6i 28 array def /cfarb_olv_o 7 array def /cfarb_olv_l 7 array def /cfarb_olv_v 7 array def /cfarb_rgb_r 7 array def /cfarb_rgb_g 7 array def /cfarb_rgb_b 7 array def /cfarb_olv00_o 7 array def /cfarb_olv00_l 7 array def /cfarb_olv00_v 7 array def /cfarb_olv25_o 7 array def /cfarb_olv25_l 7 array def /cfarb_olv25_v 7 array def /cfarb_olv50_o 7 array def /cfarb_olv50_l 7 array def /cfarb_olv50_v 7 array def /cfarb_olv75_o 7 array def /cfarb_olv75_l 7 array def /cfarb_olv75_v 7 array def /cfarb_rgb00_r 7 array def /cfarb_rgb00_g 7 array def /cfarb_rgb00_b 7 array def /cfarb_rgb25_r 7 array def /cfarb_rgb25_g 7 array def /cfarb_rgb25_b 7 array def /cfarb_rgb50_r 7 array def /cfarb_rgb50_g 7 array def /cfarb_rgb50_b 7 array def /cfarb_rgb75_r 7 array def /cfarb_rgb75_g 7 array def /cfarb_rgb75_b 7 array def /cname_olv [(O) (Y) (L) (C) (V) (M) (O)] def /cfarb_olv_o [1 1 0 0 0 1 1] def /cfarb_olv_l [0 1 1 1 0 0 0] def /cfarb_olv_v [0 0 0 1 1 1 0] def /cname_rgb [(R) (J) (G) (G50B) (B) (B50R) (R)] def /cfarb_rgb_r [1 1 0 0 0 1 1] def /cfarb_rgb_g [0 1 1 1 0 0 0] def /cfarb_rgb_g [0 0 0 1 1 1 0] def /cname_olv00 [(O00Y) (Y00L) (L00C) (C00V) (V00M) (M00O) (O00Y)] def /cfarb_olv00_o [1 1 0 0 0 1 1] def /cfarb_olv00_l [0 1 1 1 0 0 0] def /cfarb_olv00_v [0 0 0 1 1 1 0] def /cname_olv25 [(O25Y) (Y25L) (L25C) (C25V) (V25M) (M25O) (O25Y)] def /cfarb_olv25_o [1.00 0.75 0.00 0.00 0.25 1.00 1.00] def /cfarb_olv25_l [0.25 1.00 1.00 0.75 0.00 0.00 0.25] def /cfarb_olv25_v [0.00 0.00 0.25 1.00 1.00 0.75 0.00] def /cname_olv50 [(O50Y) (Y50L) (L50C) (C50V) (V50M) (M50O) (O50Y)] def /cfarb_olv50_o [1.00 0.50 0.00 0.00 0.50 1.00 1.00] def /cfarb_olv50_l [0.50 1.00 1.00 0.50 0.00 0.00 0.50] def /cfarb_olv50_v [0.00 0.00 0.50 1.00 1.00 0.50 0.00] def /cname_olv75 [(O75Y) (Y75L) (L75C) (C75V) (V75M) (M75O) (O75Y)] def /cfarb_olv75_o [1.00 0.25 0.00 0.00 0.75 1.00 1.00] def /cfarb_olv75_l [0.75 1.00 1.00 0.25 0.00 0.00 0.75] def /cfarb_olv75_v [0.00 0.00 0.75 1.00 1.00 0.25 0.00] def /cname_rgb00 [(R00J) (J00G) (G00B) (G50B) (B00R) (B50R) (R00J)] def /cfarb_rgb00_r [1 1 0 0 0 1 1] def /cfarb_rgb00_g [0 1 1 1 0 0 0] def /cfarb_rgb00_b [0 0 0 1 1 1 0] def /cname_rgb25 [(R25J) (J25G) (G13B) (G62B) (B12R) (B63R) (R25J)] def /cfarb_rgb25_r [1.00 0.75 0.00 0.00 0.25 1.00 1.00] def /cfarb_rgb25_g [0.25 1.00 1.00 0.75 0.00 0.00 0.25] def /cfarb_rgb25_b [0.00 0.00 0.25 1.00 1.00 0.75 0.00] def /cname_rgb50 [(R50J) (J50G) (G25B) (G75B) (B25R) (B75R) (R50J)] def /cfarb_rgb50_r [1.00 0.50 0.00 0.00 0.50 1.00 1.00] def /cfarb_rgb50_g [0.50 1.00 1.00 0.50 0.00 0.00 0.50] def /cfarb_rgb50_b [0.00 0.00 0.50 1.00 1.00 0.50 0.00] def /cname_rgb75 [(R75J) (J75G) (G38B) (G88B) (B38R) (B88R) (R75J)] def /cfarb_rgb75_r [1.00 0.25 0.00 0.00 0.75 1.00 1.00] def /cfarb_rgb75_g [0.75 1.00 1.00 0.25 0.00 0.00 0.75] def /cfarb_rgb75_b [0.00 0.00 0.75 1.00 1.00 0.25 0.00] def /cname6 7 array def 0 1 6 {/i exch def cname6 i olvrgb 0 eq {%olvrgb=0 xcolor 0 eq xcolor 1 eq or {cname_olv00 i get} if xcolor 2 eq xcolor 3 eq or {cname_olv00 i get} if xcolor 4 eq xcolor 5 eq or {cname_olv00 i get} if xcolor 6 eq xcolor 7 eq or {cname_olv00 i get} if } {%olvrgb=1 xcolor 0 eq xcolor 1 eq or {cname_rgb00 i get} if xcolor 2 eq xcolor 3 eq or {cname_rgb00 i get} if xcolor 4 eq xcolor 5 eq or {cname_rgb00 i get} if xcolor 6 eq xcolor 7 eq or {cname_rgb00 i get} if } ifelse put angle6 i olvrgb 0 eq {%olvrgb=0 xcolor 0 eq xcolor 1 eq or {angle_olvi i get} if xcolor 2 eq xcolor 3 eq or {angle_olvi i get} if xcolor 4 eq xcolor 5 eq or {angle_olvi i get} if xcolor 6 eq xcolor 7 eq or {angle_olvi i get} if } {%olvrgb=1 xcolor 0 eq xcolor 1 eq or {angle_rgbi i get} if xcolor 2 eq xcolor 3 eq or {angle_rgbi i get} if xcolor 4 eq xcolor 5 eq or {angle_rgbi i get} if xcolor 6 eq xcolor 7 eq or {angle_rgbi i get} if } ifelse put } for xchartl 0 eq xchartl 4 eq or xchartl 8 eq or xchartl 12 eq or {/jbild 0 def} if xchartl 1 eq xchartl 5 eq or xchartl 9 eq or xchartl 13 eq or {/jbild 1 def} if xchartl 2 eq xchartl 6 eq or xchartl 10 eq or xchartl 14 eq or {/jbild 2 def} if xchartl 3 eq xchartl 7 eq or xchartl 11 eq or xchartl 15 eq or {/jbild 3 def} if jbild 3 ne {%jbild#3 -3200 3900 moveto TBS lanind 0 eq {(Buntton: )} {(Hue: )} ifelse show TBIS (h*) show TBL 0 -50 rmoveto jbild 0 eq {cname6 0 get show} if jbild 1 eq {cname6 1 get show} if jbild 2 eq {cname6 2 get show} if 0 50 rmoveto TBS (=) show jbild 0 eq {angle6 0 get cvishow} if jbild 1 eq {angle6 1 get cvishow} if jbild 2 eq {angle6 2 get cvishow} if (/360; ) show TBIS (h*) show TBL 0 -50 rmoveto jbild 0 eq {cname6 3 get show % olvrgb 1 eq {0 -50 rmoveto (gb) show 0 50 rmoveto} if } if jbild 1 eq {cname6 4 get show} if jbild 2 eq {cname6 5 get show % olvrgb 1 eq {0 -50 rmoveto (br) show 0 50 rmoveto} if } if 0 50 rmoveto TBS (=) show jbild 0 eq {angle6 3 get cvishow} if jbild 1 eq {angle6 4 get cvishow} if jbild 2 eq {angle6 5 get cvishow} if (/360) show } if %jbild#3 xchartl 0 ge xchartl 3 le and {%0<=xchartl<=3 -3200 4400 moveto TBS (Linear relation ) showen (Beziehung ) showde TBS (CIELAB \050) show TBIS (L*, a*, b*) show TBS (\051) show TBS ( and ) showen ( und ) showde TBIS (adapted (a) ) showen (adaptiertes (a) ) showde TBS (CIELAB \050) show TBIS (C*) show TBL 0 -50 rmoveto (ab,a) show 0 50 rmoveto TBS (, ) show TBIS (L*) show TBS (\051) show x400 4100 moveto TBIS (l*) show TBL 0 -50 rmoveto (lab*) show 0 50 rmoveto TBS (=\050 ) show TBIS (L*) show TBS ( - ) show TBIS (L*) show 0 -50 rmoveto TBL (N) show 0 50 rmoveto TBS ( \051 / \050) show TBIS (L*) show 0 -50 rmoveto TBL (W) show 0 50 rmoveto ( - ) show TBIS (L*) show 0 -50 rmoveto TBL (N) show 0 50 rmoveto TBS ( \051) show x400 3800 moveto TBIS (a*) show 0 -50 rmoveto TBL (a) show 0 50 rmoveto TBS (=) show TBIS (a*) show TBS ( - ) show TBIS (a*) show 0 -50 rmoveto TBL (N) show 0 50 rmoveto TBS ( - ) show TBIS (l*) show TBL 0 -50 rmoveto (lab*) show 0 50 rmoveto TBS ( [ ) show TBIS (a*) show 0 -50 rmoveto TBL (W) show 0 50 rmoveto TBS ( - ) show TBIS (a*) show 0 -50 rmoveto TBL (N) show 0 50 rmoveto TBS ( ]) show x400 3500 moveto TBIS (b*) show 0 -50 rmoveto TBL (a) show 0 50 rmoveto TBS (=) show TBIS (b*) show TBS ( - ) show TBIS (b*) show 0 -50 rmoveto TBL (N) show 0 50 rmoveto TBS ( - ) show TBIS (l*) show TBL 0 -50 rmoveto (lab*) show 0 50 rmoveto TBS ( [ ) show TBIS (b*) show 0 -50 rmoveto TBL (W) show 0 50 rmoveto TBS ( - ) show TBIS (b*) show 0 -50 rmoveto TBL (N) show 0 50 rmoveto TBS ( ]) show x400 500 add 3200 moveto TBIS (C*) show 0 -50 rmoveto TBL (ab,a) show 0 50 rmoveto TBS (=[ ) show TBIS (a*) show 0 -50 rmoveto TBL (a) show 0 050 rmoveto 0 100 rmoveto TBL (2) show 0 -100 rmoveto TBS ( + ) show TBIS (b*) show 0 -50 rmoveto TBL (a) show 0 050 rmoveto 0 100 rmoveto TBL (2) show 0 -100 rmoveto TBS ( ] ) show 0 100 rmoveto TBL (1/2) show 0 -100 rmoveto } if %0<=xchartl<=3 xchartl 4 ge xchartl 7 le and {%4<=xchartl<=7 -3200 4400 moveto %TBS (Linear relation ) showen (Beziehung ) showde TBIS (Adapted (a) ) showen (Adaptiertes (a) ) showde TBS (CIELAB \050) show TBIS (C*) show TBL 0 -50 rmoveto (ab,a) show 0 50 rmoveto TBS (, ) show TBIS (L*) show TBS (\051) show TBS ( and ) showen ( und ) showde TBIS (relative ) showen (relatives ) showde TBS (CIELAB \050) show TBIS (c*) show 0 -50 rmoveto TBL (lab*) show 0 50 rmoveto TBS (, ) show TBIS (l*) show 0 -50 rmoveto TBL (lab*) show 0 50 rmoveto TBS (\051) show x700 4100 moveto TBIS (l*) show 0 -50 rmoveto TBL (lab*) show 0 50 rmoveto TBS (=\050 ) show TBIS (L*) show TBS ( - ) show TBIS (L*) show 0 -50 rmoveto TBL (N) show 0 50 rmoveto TBS ( \051 / \050) show TBIS (L*) show 0 -50 rmoveto TBL (W) show 0 50 rmoveto ( - ) show TBIS (L*) show 0 -50 rmoveto TBL (N) show 0 50 rmoveto TBS ( \051) show x700 3800 moveto TBIS (c*) show 0 -50 rmoveto TBL (lab*) show 0 50 rmoveto TBS (=) show TBIS (C*) show 0 -50 rmoveto TBL (ab,a) show 0 50 rmoveto TBS ( / ) show TBIS (C*) show 0 -50 rmoveto TBL (ab,a,M) show 0 50 rmoveto x700 3500 moveto TBIS (M) show TBS (=Maximum colour) showen (=Maximalfarbe) showde } if %4<=xchartl<=7 xchartl 8 ge xchartl 11 le and {%8<=xchartl<=11 -3200 4400 moveto TBS (Linear relation ) showen (Beziehung ) showde TBIS (adapted (a) ) showen (adaptiertes (a) ) showde TBS (CIELAB \050) show TBIS (C*) show TBL 0 -50 rmoveto (ab,a) show 0 50 rmoveto TBS (, ) show TBIS (L*) show TBS (\051) show TBS ( and ) showen ( und ) showde TBIS (relative ) showen (relatives ) showde TBS (CIELAB \050) show TBIS (c*) show TBS (, ) show TBIS (t*) show TBS (\051) show x700 4100 moveto TBIS (l*) show 0 -50 rmoveto TBL (M) show 0 50 rmoveto TBS (=\050) show TBIS (L*) show 0 -50 rmoveto TBL (M) show 0 50 rmoveto TBS ( - ) show TBIS (L*) show 0 -50 rmoveto TBL (N) show 0 50 rmoveto TBS (\051 / \050) show TBIS (L*) show 0 -50 rmoveto TBL (W) show 0 50 rmoveto ( - ) show TBIS (L*) show 0 -50 rmoveto TBL (N) show 0 50 rmoveto TBS (\051) show x700 3800 moveto TBIS (t*) show TBL 0 -50 rmoveto (lab*) show 0 50 rmoveto TBS (=) show TBIS (l*) show TBL 0 -50 rmoveto (lab*) show 0 50 rmoveto TBS ( - ) show TBIS (c*) show TBL 0 -50 rmoveto (lab*) show 0 50 rmoveto TBS ( [ ) show TBIS (l*) show %TBL 0 -50 rmoveto (lab*) show 0 50 rmoveto 0 -50 rmoveto TBL (M) show 0 50 rmoveto TBS ( - 0,5 ]) show x700 3500 moveto TBIS (c*) show TBL 0 -50 rmoveto (lab*) show 0 50 rmoveto TBS (=) show TBIS (C*) show 0 -50 rmoveto TBL (ab,a) show 0 50 rmoveto TBS ( / ) show TBIS (C*) show 0 -50 rmoveto TBL (ab,a,M) show 0 50 rmoveto 700 3200 moveto TBIS (M) show TBS (=Maximum colour) showen (=Maximalfarbe) showde } if %8<=xchartl<=11 xchartl 12 ge xchartl 15 le and {%12<=xchartl<=15 -3200 4400 moveto TBS (Linear relation ) showen (Beziehung ) showde TBIS olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show TBS ( and ) showen ( und ) showde TBIS (relative ) show TBS (chroma ) showen (Buntheit ) showde TBIS (c*) show TBL 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto xchartl 03 ne xchartl 07 ne and xchartl 11 ne and xchartl 15 ne and {%xchart #3,7,11,15 or =3,7,11,15 TBS ( and triangle lightness ) showen ( und Dreiecks\255Helligkeit ) showde TBIS (t*) show TBL 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto } %xchart #3,7,11,15 %********************************************************************************* { %xchart =3,7,11,15 TBS ( or chroma ) showen ( oder Buntheit ) showde TBIS (a) show xchartl 12 ge {(*) show} if TBL 0 -50 rmoveto xchartl 0 ge xchartl 3 le and {(rgb) show} if xchartl 4 ge xchartl 7 le and {(olv) show} if xchartl 8 ge xchartl 11 le and {olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show} if xchartl 12 ge xchartl 15 le and {olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show} if TBL 0 50 rmoveto TBS (, ) show TBIS (b) show xchartl 12 ge {(*) show} if TBL 0 -50 rmoveto xchartl 0 ge xchartl 3 le and {(rgb) show} if xchartl 4 ge xchartl 7 le and {(olv) show} if xchartl 8 ge xchartl 11 le and {olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show} if xchartl 12 ge xchartl 15 le and {olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show} if TBL 0 50 rmoveto } ifelse %xchart #3,7,11,15 or =3,7,11,15 x700 4100 moveto TBIS (c*) show TBL 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto TBS (=max \050) show TBIS olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show TBS (\051 - min \050) show TBIS olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show TBS (\051) show x700 3800 moveto TBIS (n*) show %TBL 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto TBS (=1 - max \050) show TBIS olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show TBS (\051) show TBS (= 1 - ) show TBIS (i*) show %TBL 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto x700 3500 moveto TBIS (w*) show %TBL 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto TBS (=min \050) show TBIS olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show TBS (\051) show TBS (= 1 - ) show TBIS (d*) show %TBL 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto x700 3200 moveto TBIS (t*) show TBL 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto TBS (=) show TBIS (w*) show %TBL 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto TBS ( + 0,5 ) show TBIS (c*) show TBL 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto xchartl 14 le { 700 2900 moveto TBIS (M) show TBS (=Maximum colour) showen (=Maximalfarbe) showde } if } if %12<=xchartl<=15 xchartl 2 le { 1500 150 moveto TBK (chroma) showen (Buntheit) showde 2500 150 moveto TBIK (C*) show TS 0 -50 rmoveto (ab,a) show -1600 3100 moveto TBK (lightness) showen (Helligkeit) showde -350 3100 moveto TBIK (L*) show } if grestore gsave xchart 3 le {0.75 dup scale} {0.80 dup scale} ifelse xchartl 03 ne xchartl 07 ne and xchartl 11 ne and xchartl 15 ne and {%xchart #3,7,11,15 or =3,7,11,15 xchartl 1 eq xcolor 2 eq xcolor 3 eq or and { 200 0 translate} if %special shift for J-B xchartl 1 eq xcolor 4 eq xcolor 5 eq or and {-300 0 translate} if %special shift for J-B xchartl 1 eq xcolor 6 eq xcolor 7 eq or and { 200 0 translate} if %special shift for J-B /j729 0 def xchartl 0 eq xchartl 4 eq or xchartl 8 eq or xchartl 12 eq or {/j1 729 j729 sub 10 mul def} if %series O-C xchartl 1 eq xchartl 5 eq or xchartl 9 eq or xchartl 13 eq or {/j1 729 j729 sub 081 add 10 mul def} if %series Y-V xchartl 2 eq xchartl 6 eq or xchartl 10 eq or xchartl 14 eq or {/j1 729 j729 sub 162 add 10 mul def} if %series L-M 0 1 080 {/i exch def %i=0,080 /i10 j1 i 10 mul add def LUTL* i LUT i10 0 add get 100 div put LUTA* i LUT i10 1 add get 100 div put LUTB* i LUT i10 2 add get 100 div put LUTr* i LUT i10 3 add get 1000 div put LUTg* i LUT i10 4 add get 1000 div put LUTb* i LUT i10 5 add get 1000 div put C*ab i LUTA* i get dup mul LUTB* i get dup mul add 0.000001 add sqrt put L* i LUTL* i get put } for %i=0,080 % 801 737 809 729 882 818 890 810 963 899 971 891 % j01 b09 j09 b01 j10 b18 j18 b10 j19 b27 j27 b19 % O C N1 W1 Y V N2 W2 L M N3 W3 xchartl 0 eq xchartl 4 eq or xchartl 8 eq or xchartl 12 eq or {/index [801 737 809 729] def} if %O,C,N1,W1 xchartl 1 eq xchartl 5 eq or xchartl 9 eq or xchartl 13 eq or {/index [882 818 890 810] def} if %Y,V,N2,W2 xchartl 2 eq xchartl 6 eq or xchartl 10 eq or xchartl 14 eq or {/index [963 899 971 891] def} if %L,M,N1,W2 0 1 3 {/i exch def %i=0,3 %standard colours at the end /i10 index i get j729 sub 10 mul def /i81 81 i add def LUTL* i81 LUT i10 0 add get 100 div put LUTA* i81 LUT i10 1 add get 100 div put LUTB* i81 LUT i10 2 add get 100 div put LUTr* i81 LUT i10 3 add get 1000 div put LUTg* i81 LUT i10 4 add get 1000 div put LUTb* i81 LUT i10 5 add get 1000 div put C*ab i81 LUTA* i81 get dup mul LUTB* i81 get dup mul add 0.000001 add sqrt put L* i81 LUTL* i81 get put } for %i=0,3 /L*WN LUTL* 84 get LUTL* 83 get sub def 0 1 084 {/i exch def %i=0,084 LUTl* i LUTL* i get LUTL* 83 get sub L*WN 0.000001 add div put LUTc1* i C*ab i get C*ab 81 get 0.000001 add div put LUTc2* i C*ab i get C*ab 82 get 0.000001 add div put LUTt1* i LUTl* i get LUTc1* i get L* 81 get L* 83 get sub L*WN 0.000001 add div 0.5 sub mul sub put LUTt2* i LUTl* i get LUTc2* i get L* 82 get L* 83 get sub L*WN 0.000001 add div 0.5 sub mul sub put LUTr* i get 0 lt {LUTr* i 0 put} if LUTg* i get 0 lt {LUTg* i 0 put} if LUTb* i get 0 lt {LUTb* i 0 put} if LUTr* i get 1 gt {LUTr* i 1 put} if LUTg* i get 1 gt {LUTg* i 1 put} if LUTb* i get 1 gt {LUTb* i 1 put} if %maximum /max LUTr* i get def %rgb brilliantness LUTg* i get max gt {/max LUTg* i get def} if LUTb* i get max gt {/max LUTb* i get def} if %minimum /min LUTr* i get def %rgb whiteness LUTg* i get min lt {/min LUTg* i get def} if LUTb* i get min lt {/min LUTb* i get def} if LUTc*rgb i max min sub put %rgb chroma LUTt*rgb i min max min sub 0.5 mul add put %rgb triangle lightness } for %i=0,084 %axis and scales 1 setgray -3000 0 moveto 6250 0 rlineto stroke 0 -080 moveto 0 3600 rlineto stroke 3250 100 sub 50 moveto 100 -50 rlineto -100 -50 rlineto closepath fill 0 50 sub 3600 100 sub moveto 50 100 rlineto 50 -100 rlineto closepath fill 0 setgray TS /xt001 9 array def /xt001 [(-1,0) () (-0,5) ( ) ( 0) () ( 0,5) () () ] def %( 1,0)] def /yt001 5 array def /yt001 [( ) () (0,5) ( ) (1,0)] def /xt100 9 array def /xt100 [(-100) () ( -50) ( ) ( 0) () ( 50) () (100)] def /yt100 5 array def /yt100 [( ) () (50) ( ) (100)] def 0 1 8 {/i exch def %i=0,8 -3000 i 750 mul add -50 moveto 0 100 rlineto stroke -3200 i 750 mul add -250 moveto xchartl 3 le {xt100}{xt001} ifelse i get show } for %i=0,8 0 1 4 {/i exch def %i=0,4 -75 0 i 750 mul add moveto 150 0 rlineto stroke 30 50 i 750 mul add moveto xchartl 3 le {yt100}{yt001} ifelse i get show } for %i=0,4 xchartl 4 ge xchartl 7 le and { 1 setgray -2800 3100 moveto TBIK (relative ) show TBK (lightness) showen (Helligkeit) showde -600 3100 moveto TBIK (l*) show xchartl 11 le {TS 0 -50 rmoveto (lab*) show 0 50 rmoveto} if } if xchartl 8 ge { 1 setgray -2800 3100 moveto TBK (triangle lightness) showen (Dreiecks\255Helligkeit) showde -600 3100 moveto TBIK (t*) show xchartl 11 le {TS 0 -50 rmoveto (lab*) show 0 50 rmoveto} if xchartl 12 ge {TS 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto} if } if xchartl 4 ge { 1000 150 moveto TBIK (relative ) show TBK (chroma) showen (Buntheit) showde 2800 150 moveto TBIK (c*) show xchartl 11 le {TS 0 -50 rmoveto (lab*) show 0 50 rmoveto} if xchartl 12 ge {TS 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto} if } if xchartl 12 ge { 1500 2350 moveto TBIS (n*) show %TBL 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto TBS (=0; ) show TBIS (i*) show %TBL 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto TBS (=1) show 1500 0550 moveto TBIS (w*) show %TBL 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto TBS (=0; ) show TBIS (d*) show %TBL 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto TBS (=1) show } if /fakt 30 def /fakt2 3000 def 100 /Times-ISOL1 FS /j1 0 def /k1 0 def /k2 3 def newpath xchartl 0 ge xchartl 2 le and {%0<=xchartl <=2 %********************************************************************** 100 /Times-ISOL1 FS %********************************************************************** /Vorz 1 def k1 1 k2 {/k exch def %k=0,3 k 0 eq {/j2 8 def /j0 72 def} if %row j01 to j09: O-N k 1 eq {/j2 6 def /j0 64 def} if %row i02 to i08: O-N k 2 eq {/j2 4 def /j0 56 def} if %row h03 to h07: O-N k 3 eq {/j2 2 def /j0 48 def} if %row g04 to g06: O-N j1 1 j2 {/j exch def %j=j1,j2 %lines /ja j0 j add def L* j LUTL* ja get put C*ab j LUTA* ja get dup mul LUTB* ja get dup mul add sqrt Vorz mul put LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor C*ab j get fakt mul L* j get fakt mul 050 0 360 arc fill j 1 ge { C*ab j 1 sub get fakt mul L* j 1 sub get fakt mul moveto C*ab j get fakt mul L* j get fakt mul lineto stroke } if j 8 eq {k 0 eq {%k=0 icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor C*ab j get fakt mul L* j get fakt mul moveto C*ab 0 get fakt mul L* 0 get fakt mul lineto stroke } if %k=0 } if } for %j=j1,j2 } for %k=0,3 %********************************************************************** /Vorz 1 def %spalte e05 bis e05: W-O 0 1 0 {/j exch def %j=0,0 %lines /ja j 40 add def L* j LUTL* ja get put C*ab j LUTA* ja get dup mul LUTB* ja get dup mul add sqrt Vorz mul put newpath LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor C*ab j get fakt mul L* j get fakt mul 050 0 360 arc fill 1 setgray 10 setlinewidth C*ab j get fakt mul L* j get fakt mul 055 0 360 arc stroke 20 setlinewidth newpath } for %j=0,0 k1 1 k2 {/k exch def %k=0,3 k 0 eq {/j2 8 def /j0 00 def} if %line b01 to j01: W-O k 1 eq {/j2 6 def /j0 10 def} if %line c02 to i02: W-O k 2 eq {/j2 4 def /j0 20 def} if %line d03 to h03: W-O k 3 eq {/j2 2 def /j0 30 def} if %line e04 to g04: W-O j1 1 j2 {/j exch def %j=j1,j2 %lines /ja j0 j 9 mul add def L* j LUTL* ja get put C*ab j LUTA* ja get dup mul LUTB* ja get dup mul add sqrt Vorz mul put LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor C*ab j get fakt mul L* j get fakt mul 050 0 360 arc fill j 1 ge {C*ab j 1 sub get fakt mul L* j 1 sub get fakt mul moveto C*ab j get fakt mul L* j get fakt mul lineto stroke } if j 8 eq {k 0 eq {%k=0 icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor C*ab j get fakt mul L* j get fakt mul moveto C*ab 0 get fakt mul L* 0 get fakt mul lineto stroke C*ab j get fakt mul L* j get fakt mul 070 0 360 arc stroke } if %k=0 LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor newpath 250 /TimesBI-ISOL1 FS /xadd0 [-200 -200 -200] def /yadd0 [250 250 250] def /xadd1 [-200 -200 -200] def /yadd1 [250 250 250] def C*ab j get fakt mul olvrgb 0 eq {xadd0} {xadd1} ifelse xchartl get add 200 sub L* j get fakt mul olvrgb 0 eq {yadd0} {yadd1} ifelse xchartl get add moveto cname6 xchartl get show 1 setgray C*ab j get fakt mul 580 sub L* j get fakt mul 700 sub moveto TBS (\050) show TBIS (C*) show 0 -50 rmoveto TBL (ab,a,M) show 0 50 rmoveto TBIS (,) show C*ab j get fakt mul 580 sub L* j get fakt mul 700 sub 300 sub moveto TBIS ( L*) show 0 -50 rmoveto TBL (M) show 0 50 rmoveto TBS (\051) show newpath } if } for %j=j1,j2 } for %k=0,3 %********************************************************************** /Vorz -1 def k1 1 k2 {/k exch def %k=0,3 k 0 eq {/j2 8 def /j0 08 def} if %line b09 to j09: C-N k 1 eq {/j2 6 def /j0 16 def} if %line c08 to i08: C-N k 2 eq {/j2 4 def /j0 24 def} if %line d07 to h07: C-N k 3 eq {/j2 2 def /j0 32 def} if %line e06 to h06: C-N j1 1 j2 {/j exch def %j=j1,j2 %lines /ja j0 j 9 mul add def L* j LUTL* ja get put C*ab j LUTA* ja get dup mul LUTB* ja get dup mul add sqrt Vorz mul put LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor C*ab j get fakt mul L* j get fakt mul 050 0 360 arc fill j 1 ge {C*ab j 1 sub get fakt mul L* j 1 sub get fakt mul moveto C*ab j get fakt mul L* j get fakt mul lineto stroke } if j 8 eq {k 0 eq {%k=0 icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor C*ab j get fakt mul L* j get fakt mul moveto C*ab 0 get fakt mul L* 0 get fakt mul lineto stroke } if %k=0 } if } for %j=j1,j2 } for %k=0,3 %********************************************************************** /Vorz -1 def %spalte e05 bis e05: W-C 0 1 0 {/j exch def %j=0,0 %lines /ja j 40 add def L* j LUTL* ja get put C*ab j LUTA* ja get dup mul LUTB* ja get dup mul add sqrt Vorz mul put newpath LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor C*ab j get fakt mul L* j get fakt mul 050 0 360 arc fill 1 setgray 10 setlinewidth C*ab j get fakt mul L* j get fakt mul 055 0 360 arc stroke 20 setlinewidth newpath } for %j=0,0 k1 1 k2 {/k exch def %k=0,3 k 0 eq {/j2 8 def /j0 00 def} if %row b01 to b09: W-C k 1 eq {/j2 6 def /j0 10 def} if %row c02 to c08: W-C k 2 eq {/j2 4 def /j0 20 def} if %row d03 to d07: W-C k 3 eq {/j2 2 def /j0 30 def} if %row e04 to e06: W-C j1 1 j2 {/j exch def %j=j1,j2 %rows /ja j0 j add def L* j LUTL* ja get put C*ab j LUTA* ja get dup mul LUTB* ja get dup mul add sqrt Vorz mul put LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor C*ab j get fakt mul L* j get fakt mul 050 0 360 arc fill j 1 ge {C*ab j 1 sub get fakt mul L* j 1 sub get fakt mul moveto C*ab j get fakt mul L* j get fakt mul lineto stroke } if j 8 eq {k 0 eq {%k=0 icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor C*ab j get fakt mul L* j get fakt mul moveto C*ab 0 get fakt mul L* 0 get fakt mul lineto stroke C*ab j get fakt mul L* j get fakt mul 070 0 360 arc stroke } if %k=0 LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor newpath 250 /TimesBI-ISOL1 FS /xadd0 [-400 -400 -400] def /yadd0 [-400 250 -400] def /xadd1 [-400 -400 -400] def /yadd1 [-400 250 -400] def C*ab j get fakt mul olvrgb 0 eq {xadd0} {xadd1} ifelse xchartl get add 300 add L* j get fakt mul olvrgb 0 eq {yadd0} {yadd1} ifelse xchartl get add 200 sub moveto cname6 3 xchartl add get show newpath } if } for %j=j1,j2 } for %k=0,3 /fakt 30 def icolor 1 eq {%icolor=1 0 0 0 setrgbcolor /i24 xcolor 2 idiv 24 mul def /C*abW 0 def /C*abN 0 def /L*aN LAB*FaG100 6 3 mul i24 add get def /L*aW LAB*FaG100 7 3 mul i24 add get def /j xchartl def /j30 j 3 mul i24 add def /j31 j30 1 add def /j32 j30 2 add def /C*abM LAB*FaG100 j31 get dup mul LAB*FaG100 j32 get dup mul add 0.0001 add sqrt def C*abN fakt mul L*aN fakt mul moveto C*abM fakt mul LAB*FaG100 j30 get fakt mul lineto C*abW fakt mul L*aW fakt mul lineto stroke /j xchartl 3 add def /j30 j 3 mul i24 add def /j31 j30 1 add def /j32 j30 2 add def /C*abM LAB*FaG100 j31 get dup mul LAB*FaG100 j32 get dup mul add 0.0001 add sqrt def C*abN fakt mul neg L*aN fakt mul moveto C*abM fakt mul neg LAB*FaG100 j30 get fakt mul lineto C*abW fakt mul neg L*aW fakt mul lineto stroke } if %icolor=1 %********************************************************************** } if %0<=xchartl <=2 newpath xchartl 4 ge xchartl 6 le and {%4<=xchartl <=6 %********************************************************************** 100 /Times-ISOL1 FS /Vorz 1 def k1 1 k2 {/k exch def %k=0,3 k 0 eq {/j2 8 def /j0 72 def} if %row j01 to j09: O-N k 1 eq {/j2 6 def /j0 64 def} if %row i02 to i08: O-N k 2 eq {/j2 4 def /j0 56 def} if %row h03 to h07: O-N k 3 eq {/j2 2 def /j0 48 def} if %row g04 to g06: O-N j1 1 j2 {/j exch def %j=j1,j2 %lines /ja j0 j add def l1* j LUTl* ja get put c1* j LUTc1* ja get put LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor c1* j get fakt2 mul Vorz mul l1* j get fakt2 mul 050 0 360 arc fill j 1 ge {c1* j 1 sub get fakt2 mul Vorz mul l1* j 1 sub get fakt2 mul moveto c1* j get fakt2 mul Vorz mul l1* j get fakt2 mul lineto stroke } if j 8 eq {k 0 eq {%k=0 icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor c1* j get fakt2 mul Vorz mul l1* j get fakt2 mul moveto c1* 0 get fakt2 mul Vorz mul l1* 0 get fakt2 mul lineto stroke } if %k=0 } if } for %j=j1,j2 } for %k=0,3 %********************************************************************** /Vorz 1 def %spalte e05 bis e05: W-O 0 1 0 {/j exch def %j=0,0 %lines /ja j 40 add def l1* j LUTl* ja get put c1* j LUTc1* ja get put newpath LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor c1* j get fakt2 mul Vorz mul l1* j get fakt2 mul 050 0 360 arc fill 1 setgray 10 setlinewidth c1* j get fakt2 mul Vorz mul l1* j get fakt2 mul 055 0 360 arc stroke 20 setlinewidth newpath } for %j=0,0 k1 1 k2 {/k exch def %k=0,3 k 0 eq {/j2 8 def /j0 00 def} if %line b01 to j01: W-O k 1 eq {/j2 6 def /j0 10 def} if %line c02 to i02: W-O k 2 eq {/j2 4 def /j0 20 def} if %line d03 to h03: W-O k 3 eq {/j2 2 def /j0 30 def} if %line e04 to g04: W-O j1 1 j2 {/j exch def %j=j1,j2 %lines /ja j0 j 9 mul add def l1* j LUTl* ja get put c1* j LUTc1* ja get put LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor c1* j get fakt2 mul Vorz mul l1* j get fakt2 mul 050 0 360 arc fill j 1 ge {c1* j 1 sub get fakt2 mul Vorz mul l1* j 1 sub get fakt2 mul moveto c1* j get fakt2 mul Vorz mul l1* j get fakt2 mul lineto stroke } if j 8 eq {k 0 eq {%k=0 icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor c1* j get fakt2 mul Vorz mul l1* j get fakt2 mul moveto c1* 0 get fakt2 mul Vorz mul l1* 0 get fakt2 mul lineto stroke c1* j get fakt2 mul Vorz mul l1* j get fakt2 mul 070 0 360 arc stroke } if %k=0 LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor newpath 250 /TimesBI-ISOL1 FS /xadd0 [-200 -200 -200] def /yadd0 [250 250 250] def /xadd1 [-200 -200 -200] def /yadd1 [250 250 250] def c1* j get fakt2 mul Vorz mul olvrgb 0 eq {xadd0} {xadd1} ifelse xchartl 4 sub get add l1* j get fakt2 mul olvrgb 0 eq {yadd0} {yadd1} ifelse xchartl 4 sub get add moveto cname6 xchartl 4 sub get show 1 setgray c1* j get fakt2 mul Vorz mul 580 sub l1* j get fakt2 mul 600 sub moveto TBS (\050) show TBIS (c*) show 0 -50 rmoveto TBL (M) show 0 50 rmoveto TBIS (, l*) show 0 -50 rmoveto TBL (M) show 0 50 rmoveto TBS (\051) show newpath } if } for %j=j1,j2 } for %k=0,3 %********************************************************************** /Vorz -1 def k1 1 k2 {/k exch def %k=0,3 k 0 eq {/j2 8 def /j0 08 def} if %line b09 to j09: C-N k 1 eq {/j2 6 def /j0 16 def} if %line c08 to i08: C-N k 2 eq {/j2 4 def /j0 24 def} if %line d07 to h07: C-N k 3 eq {/j2 2 def /j0 32 def} if %line e06 to h06: C-N j1 1 j2 {/j exch def %j=j1,j2 %lines /ja j0 j 9 mul add def l2* j LUTl* ja get put c2* j LUTc2* ja get put LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor c2* j get fakt2 mul Vorz mul l2* j get fakt2 mul 050 0 360 arc fill j 1 ge {c2* j 1 sub get fakt2 mul Vorz mul l2* j 1 sub get fakt2 mul moveto c2* j get fakt2 mul Vorz mul l2* j get fakt2 mul lineto stroke } if j 8 eq {k 0 eq {%k=0 icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor c2* j get fakt2 mul Vorz mul l2* j get fakt2 mul moveto c2* 0 get fakt2 mul Vorz mul l2* 0 get fakt2 mul lineto stroke } if %k=0 } if } for %j=j1,j2 } for %k=0,3 %********************************************************************** /Vorz -1 def %spalte e05 bis e05: W-C 0 1 0 {/j exch def %j=0,0 %lines /ja j 40 add def l2* j LUTl* ja get put c2* j LUTc1* ja get put newpath LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor c2* j get fakt2 mul Vorz mul l2* j get fakt2 mul 050 0 360 arc fill 1 setgray 10 setlinewidth c2* j get fakt2 mul Vorz mul l2* j get fakt2 mul 055 0 360 arc stroke 20 setlinewidth newpath } for %j=0,0 k1 1 k2 {/k exch def %k=0,3 k 0 eq {/j2 8 def /j0 00 def} if %row b01 to b09: W-C k 1 eq {/j2 6 def /j0 10 def} if %row c02 to c08: W-C k 2 eq {/j2 4 def /j0 20 def} if %row d03 to d07: W-C k 3 eq {/j2 2 def /j0 30 def} if %row e04 to e06: W-C j1 1 j2 {/j exch def %j=j1,j2 %rows /ja j0 j add def l2* j LUTl* ja get put c2* j LUTc2* ja get put LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor c2* j get fakt2 mul Vorz mul l2* j get fakt2 mul 050 0 360 arc fill j 1 ge {c2* j 1 sub get fakt2 mul Vorz mul l2* j 1 sub get fakt2 mul moveto c2* j get fakt2 mul Vorz mul l2* j get fakt2 mul lineto stroke } if j 8 eq {k 0 eq {%k=0 icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor c2* j get fakt2 mul Vorz mul l2* j get fakt2 mul moveto c2* 0 get fakt2 mul Vorz mul l2* 0 get fakt2 mul lineto stroke c2* j get fakt2 mul Vorz mul l2* j get fakt2 mul 070 0 360 arc stroke } if %k=0 LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor newpath 250 /TimesBI-ISOL1 FS /xadd0 [-000 -400 -400] def /yadd0 [-400 250 -400] def /xadd1 [-000 -400 -400] def /yadd1 [-400 250 -400] def c2* j get fakt2 mul Vorz mul olvrgb 0 eq {xadd0} {xadd1} ifelse xchartl 4 sub get add l2* j get fakt2 mul olvrgb 0 eq {yadd0} {yadd1} ifelse xchartl 4 sub get add moveto cname6 xchartl 4 sub 3 add get show newpath } if } for %j=j1,j2 } for %k=0,3 %********************************************************************** } if %4<=xchartl <=6 newpath xchartl 8 ge xchartl 10 le and {%8<=xchartl <=10 %********************************************************************** 100 /Times-ISOL1 FS /Vorz 1 def k1 1 k2 {/k exch def %k=0,3 k 0 eq {/j2 8 def /j0 72 def} if %row j01 to j09: O-N k 1 eq {/j2 6 def /j0 64 def} if %row i02 to i08: O-N k 2 eq {/j2 4 def /j0 56 def} if %row h03 to h07: O-N k 3 eq {/j2 2 def /j0 48 def} if %row g04 to g06: O-N j1 1 j2 {/j exch def %j=j1,j2 %lines /ja j0 j add def t1* j LUTt1* ja get put c1* j LUTc1* ja get put LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor c1* j get fakt2 mul Vorz mul t1* j get fakt2 mul 050 0 360 arc fill j 1 ge {c1* j 1 sub get fakt2 mul Vorz mul t1* j 1 sub get fakt2 mul moveto c1* j get fakt2 mul Vorz mul t1* j get fakt2 mul lineto stroke } if j 8 eq {k 0 eq {%k=0 icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor c1* j get fakt2 mul Vorz mul t1* j get fakt2 mul moveto c1* 0 get fakt2 mul Vorz mul t1* 0 get fakt2 mul lineto stroke } if %k=0 } if } for %j=j1,j2 } for %k=0,3 %********************************************************************** /Vorz 1 def %spalte e05 bis e05: W-O 0 1 0 {/j exch def %j=0,0 %lines /ja j 40 add def t1* j LUTt1* ja get put c1* j LUTc1* ja get put newpath LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor c1* j get fakt2 mul Vorz mul t1* j get fakt2 mul 050 0 360 arc fill 1 setgray 10 setlinewidth c1* j get fakt2 mul Vorz mul t1* j get fakt2 mul 055 0 360 arc stroke 20 setlinewidth newpath } for %j=0,0 k1 1 k2 {/k exch def %k=0,3 k 0 eq {/j2 8 def /j0 00 def} if %line b01 to j01: W-O k 1 eq {/j2 6 def /j0 10 def} if %line c02 to i02: W-O k 2 eq {/j2 4 def /j0 20 def} if %line d03 to h03: W-O k 3 eq {/j2 2 def /j0 30 def} if %line e04 to g04: W-O j1 1 j2 {/j exch def %j=j1,j2 %lines /ja j0 j 9 mul add def t1* j LUTt1* ja get put c1* j LUTc1* ja get put LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor c1* j get fakt2 mul Vorz mul t1* j get fakt2 mul 050 0 360 arc fill j 1 ge {c1* j 1 sub get fakt2 mul Vorz mul t1* j 1 sub get fakt2 mul moveto c1* j get fakt2 mul Vorz mul t1* j get fakt2 mul lineto stroke } if j 8 eq {k 0 eq {%k=0 icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor c1* j get fakt2 mul Vorz mul t1* j get fakt2 mul moveto c1* 0 get fakt2 mul Vorz mul t1* 0 get fakt2 mul lineto stroke c1* j get fakt2 mul Vorz mul t1* j get fakt2 mul 070 0 360 arc stroke } if %k=0 LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor newpath 250 /TimesBI-ISOL1 FS /xadd0 [-200 -200 -200] def /yadd0 [250 250 250] def /xadd1 [-200 -200 -200] def /yadd1 [250 250 250] def c1* j get fakt2 mul Vorz mul olvrgb 0 eq {xadd0} {xadd1} ifelse xchartl 8 sub get add t1* j get fakt2 mul olvrgb 0 eq {yadd0} {yadd1} ifelse xchartl 8 sub get add moveto cname6 xchartl 8 sub get show 1 setgray c1* j get fakt2 mul Vorz mul 580 sub t1* j get fakt2 mul 600 sub moveto TBS (\050) show TBIS (c*) show 0 -50 rmoveto TBL (M) show 0 50 rmoveto TBIS (, t*) show 0 -50 rmoveto TBL (M) show 0 50 rmoveto TBS (\051) show newpath } if } for %j=j1,j2 } for %k=0,3 %********************************************************************** /Vorz -1 def k1 1 k2 {/k exch def %k=0,3 k 0 eq {/j2 8 def /j0 08 def} if %line b09 to j09: C-N k 1 eq {/j2 6 def /j0 16 def} if %line c08 to i08: C-N k 2 eq {/j2 4 def /j0 24 def} if %line d07 to h07: C-N k 3 eq {/j2 2 def /j0 32 def} if %line e06 to h06: C-N j1 1 j2 {/j exch def %j=j1,j2 %lines /ja j0 j 9 mul add def t2* j LUTt2* ja get put c2* j LUTc2* ja get put LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor c2* j get fakt2 mul Vorz mul t2* j get fakt2 mul 050 0 360 arc fill j 1 ge {c2* j 1 sub get fakt2 mul Vorz mul t2* j 1 sub get fakt2 mul moveto c2* j get fakt2 mul Vorz mul t2* j get fakt2 mul lineto stroke } if j 8 eq {k 0 eq {%k=0 icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor c2* j get fakt2 mul Vorz mul t2* j get fakt2 mul moveto c2* 0 get fakt2 mul Vorz mul t2* 0 get fakt2 mul lineto stroke } if %k=0 } if } for %j=j1,j2 } for %k=0,3 %********************************************************************** /Vorz -1 def %spalte e05 bis e05: W-C 0 1 0 {/j exch def %j=0,0 %lines /ja j 40 add def t2* j LUTt1* ja get put c2* j LUTc1* ja get put newpath LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor c2* j get fakt2 mul Vorz mul t2* j get fakt2 mul 050 0 360 arc fill 1 setgray 10 setlinewidth c2* j get fakt2 mul Vorz mul t2* j get fakt2 mul 055 0 360 arc stroke 20 setlinewidth newpath } for %j=0,0 k1 1 k2 {/k exch def %k=0,3 k 0 eq {/j2 8 def /j0 00 def} if %row b01 to b09: W-C k 1 eq {/j2 6 def /j0 10 def} if %row c02 to c08: W-C k 2 eq {/j2 4 def /j0 20 def} if %row d03 to d07: W-C k 3 eq {/j2 2 def /j0 30 def} if %row e04 to e06: W-C j1 1 j2 {/j exch def %j=j1,j2 %rows /ja j0 j add def t2* j LUTt2* ja get put c2* j LUTc2* ja get put LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor c2* j get fakt2 mul Vorz mul t2* j get fakt2 mul 050 0 360 arc fill j 1 ge {c2* j 1 sub get fakt2 mul Vorz mul t2* j 1 sub get fakt2 mul moveto c2* j get fakt2 mul Vorz mul t2* j get fakt2 mul lineto stroke } if j 8 eq {k 0 eq {%k=0 icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor c2* j get fakt2 mul Vorz mul t2* j get fakt2 mul moveto c2* 0 get fakt2 mul Vorz mul t2* 0 get fakt2 mul lineto stroke c2* j get fakt2 mul Vorz mul t2* j get fakt2 mul 070 0 360 arc stroke } if %k=0 LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor newpath 250 /TimesBI-ISOL1 FS /xadd0 [-000 -400 -400] def /yadd0 [-400 250 -400] def /xadd1 [-000 -400 -400] def /yadd1 [-400 250 -400] def c2* j get fakt2 mul Vorz mul olvrgb 0 eq {xadd0} {xadd1} ifelse xchartl 8 sub get add t2* j get fakt2 mul olvrgb 0 eq {yadd0} {yadd1} ifelse xchartl 8 sub get add moveto cname6 xchartl 8 sub 3 add get show newpath } if } for %j=j1,j2 } for %k=0,3 %********************************************************************** } if %8<=xchartl <=10 newpath xchartl 12 ge xchartl 14 le and {%12<=xchartl <=14 %********************************************************************** 100 /Times-ISOL1 FS /Vorz 1 def k1 1 k2 {/k exch def %k=0,3 k 0 eq {/j2 8 def /j0 72 def} if %row j01 to j09: O-N k 1 eq {/j2 6 def /j0 64 def} if %row i02 to i08: O-N k 2 eq {/j2 4 def /j0 56 def} if %row h03 to h07: O-N k 3 eq {/j2 2 def /j0 48 def} if %row g04 to g06: O-N j1 1 j2 {/j exch def %j=j1,j2 %lines /ja j0 j add def t1*rgb j LUTt*rgb ja get put c1*rgb j LUTc*rgb ja get put LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor c1*rgb j get fakt2 mul Vorz mul t1*rgb j get fakt2 mul 050 0 360 arc fill j 1 ge {c1*rgb j 1 sub get fakt2 mul Vorz mul t1*rgb j 1 sub get fakt2 mul moveto c1*rgb j get fakt2 mul Vorz mul t1*rgb j get fakt2 mul lineto stroke } if j 8 eq {k 0 eq {%k=0 icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor c1*rgb j get fakt2 mul Vorz mul t1*rgb j get fakt2 mul moveto c1*rgb 0 get fakt2 mul Vorz mul t1*rgb 0 get fakt2 mul lineto stroke } if %k=0 } if } for %j=j1,j2 } for %k=0,3 %********************************************************************** /Vorz 1 def %spalte e05 bis e05: W-O 0 1 0 {/j exch def %j=0,0 %lines /ja j 40 add def t1*rgb j LUTt*rgb ja get put c1*rgb j LUTc*rgb ja get put newpath LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor c1*rgb j get fakt2 mul Vorz mul t1*rgb j get fakt2 mul 050 0 360 arc fill 1 setgray 10 setlinewidth c1*rgb j get fakt2 mul Vorz mul t1*rgb j get fakt2 mul 055 0 360 arc stroke 20 setlinewidth newpath } for %j=0,0 k1 1 k2 {/k exch def %k=0,3 k 0 eq {/j2 8 def /j0 00 def} if %line b01 to j01: W-O k 1 eq {/j2 6 def /j0 10 def} if %line c02 to i02: W-O k 2 eq {/j2 4 def /j0 20 def} if %line d03 to h03: W-O k 3 eq {/j2 2 def /j0 30 def} if %line e04 to g04: W-O j1 1 j2 {/j exch def %j=j1,j2 %lines /ja j0 j 9 mul add def t1*rgb j LUTt*rgb ja get put c1*rgb j LUTc*rgb ja get put LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor c1*rgb j get fakt2 mul Vorz mul t1*rgb j get fakt2 mul 050 0 360 arc fill j 1 ge {c1*rgb j 1 sub get fakt2 mul Vorz mul t1*rgb j 1 sub get fakt2 mul moveto c1*rgb j get fakt2 mul Vorz mul t1*rgb j get fakt2 mul lineto stroke } if j 8 eq {k 0 eq {%k=0 icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor c1*rgb j get fakt2 mul Vorz mul t1*rgb j get fakt2 mul moveto c1*rgb 0 get fakt2 mul Vorz mul t1*rgb 0 get fakt2 mul lineto stroke c1*rgb j get fakt2 mul Vorz mul t1*rgb j get fakt2 mul 070 0 360 arc stroke } if %k=0 LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor newpath 250 /TimesBI-ISOL1 FS /xadd0 [-200 -200 -200] def /yadd0 [250 250 250] def /xadd1 [-200 -200 -200] def /yadd1 [250 250 250] def c1*rgb j get fakt2 mul Vorz mul olvrgb 0 eq {xadd0} {xadd1} ifelse xchartl 12 sub get add t1*rgb j get fakt2 mul olvrgb 0 eq {yadd0} {yadd1} ifelse xchartl 12 sub get add moveto cname6 xchartl 12 sub get show 1 setgray c1*rgb j get fakt2 mul Vorz mul 580 sub t1*rgb j get fakt2 mul 600 sub moveto TBS (\050) show TBIS (c*) show 0 -50 rmoveto TBL (M) show 0 50 rmoveto TBIS (, t*) show 0 -50 rmoveto TBL (M) show 0 50 rmoveto TBS (\051) show newpath } if } for %j=j1,j2 } for %k=0,3 %********************************************************************** /Vorz -1 def k1 1 k2 {/k exch def %k=0,3 k 0 eq {/j2 8 def /j0 08 def} if %line b09 to j09: C-N k 1 eq {/j2 6 def /j0 16 def} if %line c08 to i08: C-N k 2 eq {/j2 4 def /j0 24 def} if %line d07 to h07: C-N k 3 eq {/j2 2 def /j0 32 def} if %line e06 to h06: C-N j1 1 j2 {/j exch def %j=j1,j2 %lines /ja j0 j 9 mul add def t2*rgb j LUTt*rgb ja get put c2*rgb j LUTc*rgb ja get put LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor c2*rgb j get fakt2 mul Vorz mul t2*rgb j get fakt2 mul 050 0 360 arc fill j 1 ge {c2*rgb j 1 sub get fakt2 mul Vorz mul t2*rgb j 1 sub get fakt2 mul moveto c2*rgb j get fakt2 mul Vorz mul t2*rgb j get fakt2 mul lineto stroke } if j 8 eq {k 0 eq {%k=0 icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor c2*rgb j get fakt2 mul Vorz mul t2*rgb j get fakt2 mul moveto c2*rgb 0 get fakt2 mul Vorz mul t2*rgb 0 get fakt2 mul lineto stroke } if %k=0 } if } for %j=j1,j2 } for %k=0,3 %********************************************************************** /Vorz -1 def %spalte e05 bis e05: W-C 0 1 0 {/j exch def %j=0,0 %lines /ja j 40 add def t2*rgb j LUTt*rgb ja get put c2*rgb j LUTc*rgb ja get put newpath LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor c2*rgb j get fakt2 mul Vorz mul t2*rgb j get fakt2 mul 050 0 360 arc fill 1 setgray 10 setlinewidth c2*rgb j get fakt2 mul Vorz mul t2*rgb j get fakt2 mul 055 0 360 arc stroke 20 setlinewidth newpath } for %j=0,0 k1 1 k2 {/k exch def %k=0,3 k 0 eq {/j2 8 def /j0 00 def} if %row b01 to b09: W-C k 1 eq {/j2 6 def /j0 10 def} if %row c02 to c08: W-C k 2 eq {/j2 4 def /j0 20 def} if %row d03 to d07: W-C k 3 eq {/j2 2 def /j0 30 def} if %row e04 to e06: W-C j1 1 j2 {/j exch def %j=j1,j2 %rows /ja j0 j add def t2*rgb j LUTt*rgb ja get put c2*rgb j LUTc*rgb ja get put LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor c2*rgb j get fakt2 mul Vorz mul t2*rgb j get fakt2 mul 050 0 360 arc fill j 1 ge {c2*rgb j 1 sub get fakt2 mul Vorz mul t2*rgb j 1 sub get fakt2 mul moveto c2*rgb j get fakt2 mul Vorz mul t2*rgb j get fakt2 mul lineto stroke } if j 8 eq {k 0 eq {%k=0 icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor c2*rgb j get fakt2 mul Vorz mul t2*rgb j get fakt2 mul moveto c2*rgb 0 get fakt2 mul Vorz mul t2*rgb 0 get fakt2 mul lineto stroke c2*rgb j get fakt2 mul Vorz mul t2*rgb j get fakt2 mul 070 0 360 arc stroke } if %k=0 LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor newpath 250 /TimesBI-ISOL1 FS /xadd0 [-000 -400 -400] def /yadd0 [-400 250 -400] def /xadd1 [-000 -400 -400] def /yadd1 [-400 250 -400] def c2*rgb j get fakt2 mul Vorz mul olvrgb 0 eq {xadd0} {xadd1} ifelse xchartl 12 sub get add t2*rgb j get fakt2 mul olvrgb 0 eq {yadd0} {yadd1} ifelse xchartl 12 sub get add moveto cname6 xchartl 12 sub 3 add get show newpath } if } for %j=j1,j2 } for %k=0,3 %********************************************************************** } if %12<=xchartl <=14 xchartl 1 eq xcolor 2 eq xcolor 3 eq or and {-200 0 translate} if %special shift for J-B TLS00a xchartl 1 eq xcolor 4 eq xcolor 5 eq or and { 300 0 translate} if %special shift for J-B FRS06a xchartl 1 eq xcolor 6 eq xcolor 7 eq or and {-200 0 translate} if %special shift for J-B TLS18a %********************************************************************** } %xchart #3,7,11,15 %********************************************************************************* { %xchart =3,7,11,15 1 setgray -3400 3900 moveto TBS (CIELAB) show (\255Bunttonwinkel: ) showde ( hue angles: ) showen -3400 3625 moveto TBIS (h) show 0 -50 rmoveto TBL (ab,d) show 0 50 rmoveto TBS (=[) show 0 1 5 {/i exch def %i=0,5 angle_olv i get cvishow i 5 ne {(, ) show} if } for %i=0,5 (]) show -3400 3350 moveto TBIS (h) show 0 -50 rmoveto TBL (ab,e) show 0 50 rmoveto TBS (=[) show 0 1 5 {/i exch def %i=0,5 angle_rgb i get cvishow i 5 ne {(, ) show} if } for %i=0,5 (]) show 1600 200 add 2900 moveto %xchartl 3 eq {200 sub} if 2900 moveto TBIS (a*) show TBL 0 -50 rmoveto xchartl 0 ge xchartl 3 le and {(a) show} if xchartl 4 ge xchartl 7 le and {(lab*) show} if xchartl 8 ge xchartl 11 le and {(lab*) show} if xchartl 12 ge xchartl 15 le and {olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show} if TBL 0 50 rmoveto TBS (=) show xchartl 4 le { TBIS (C*) show TBL 0 -50 rmoveto (ab,a) show TBL 0 50 rmoveto } { TBIS (c*) show TBL 0 -50 rmoveto xchartl 4 ge xchartl 7 le and {(lab*) show} if xchartl 8 ge xchartl 11 le and {(lab*) show} if xchartl 12 ge xchartl 15 le and {olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show} if TBL 0 50 rmoveto } ifelse TBIS ( cos h) show 0 -50 rmoveto TBL (ab) show 0 50 rmoveto 1600 200 add 2600 moveto %xchartl 3 eq {200 sub} if 2600 moveto TBIS (b*) show TBL 0 -50 rmoveto xchartl 0 ge xchartl 3 le and {(a) show} if xchartl 4 ge xchartl 7 le and {(lab*) show} if xchartl 8 ge xchartl 11 le and {(lab*) show} if xchartl 12 ge xchartl 15 le and {olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show} if TBL 0 50 rmoveto TBS (=) show xchartl 4 le { TBIS (C*) show TBL 0 -50 rmoveto (ab,a) show TBL 0 50 rmoveto } { TBIS (c*) show TBL 0 -50 rmoveto xchartl 4 ge xchartl 7 le and {(lab*) show} if xchartl 8 ge xchartl 11 le and {(lab*) show} if xchartl 12 ge xchartl 15 le and {olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show} if TBL 0 50 rmoveto } ifelse TBIS ( sin h) show 0 -50 rmoveto TBL (ab) show 0 50 rmoveto -400 200 add 3800 moveto %xchartl 11 le {300 add} if 3500 moveto TBIK (b*) show TBS 0 -50 rmoveto xchartl 0 ge xchartl 3 le and {(a) show} if xchartl 4 ge xchartl 7 le and {(lab*) show} if xchartl 8 ge xchartl 11 le and {(lab*) show} if xchartl 12 ge xchartl 15 le and {olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show} if TBS 0 50 rmoveto 1800 xchartl 3 le {700 add } if 1900 moveto xchartl 4 ge {TBIK (relative ) show} if TBK lanind 0 eq {(Buntheit ) showde} {(chroma ) showen} ifelse 2700 1650 moveto TBIK (a*) show TBS 0 -50 rmoveto xchartl 0 ge xchartl 3 le and {(a) show} if xchartl 4 ge xchartl 7 le and {(lab*) show} if xchartl 8 ge xchartl 11 le and {(lab*) show} if xchartl 12 ge xchartl 15 le and {olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show} if TBS 0 50 rmoveto %new shift in middle 0 1500 translate %axis and scales 1 setgray -3000 0 moveto 6300 0 rlineto stroke 0 -1880 moveto 0 3600 rlineto stroke 3300 100 sub 50 moveto 100 -50 rlineto -100 -50 rlineto closepath fill 0 50 sub 1800 100 sub moveto 50 100 rlineto 50 -100 rlineto closepath fill 0 setgray TS /xt001 9 array def /xt001 [(-2,0) () (-1,0) ( ) ( ) () () () () ]def %( 1,0) () ( 2,0)] def /yt001 5 array def /yt001 [(-1,0 ) () ( ) ( ) (1,0)] def /xt100 9 array def /xt100 [(-200) () (-100) ( ) ( ) () ( 100) () ( 200)] def /yt100 5 array def /yt100 [(-100 ) () ( ) ( ) (100)] def 2 1 6 {/i exch def %i=2,6 -3000 i 750 mul add -50 moveto 0 100 rlineto stroke -3650 i 850 mul add -200 moveto xchartl 3 le {xt100} {xt001} ifelse i get show } for %i=2,6 0 1 4 {/i exch def %i=0,4 -75 -1500 i 750 mul add moveto 150 0 rlineto stroke 100 -1650 i 800 mul add moveto xchartl 3 le {yt100} {yt001} ifelse i get show } for %i=0,4 newpath %********************************************************************** %For all xchartl=3,7,11,15 %Variable hue series O00Y-O83Y, Y00L-Y83L, L00C-L83C, % C00V-C83V, C00V-C83V, C00V-C83V-O00Y 250 /TimesBI-ISOL1 FS /fcolor1 1.10 def /fcolor2 1.20 def /j729 0 def 0 1 5 {/xtonj exch def %xton=0,5 0 1 7 {/j exch def %i=0,08 xtonj 0 eq {/j10 648 j729 sub j 09 mul add 10 mul def} if %series O00Y-O83Y, -09 xtonj 1 eq {/j10 720 j729 sub j 81 mul sub 10 mul def} if %series Y00L-Y83L, -81 xtonj 2 eq {/j10 072 j729 sub j add 10 mul def} if %series L00C-L83C, +01 xtonj 3 eq {/j10 080 j729 sub j 09 mul sub 10 mul def} if %series C00V-C83V, -09 xtonj 4 eq {/j10 008 j729 sub j 81 mul add 10 mul def} if %series C00V-C83V, -81 xtonj 5 eq {/j10 656 j729 sub j sub 10 mul def} if %series C00V-C83V, +01 LUTL* j LUT j10 0 add get 100 div put LUTA* j LUT j10 1 add get 100 div put LUTB* j LUT j10 2 add get 100 div put LUTr* j LUT j10 3 add get 1000 div put LUTg* j LUT j10 4 add get 1000 div put LUTb* j LUT j10 5 add get 1000 div put C*ab j LUTA* j get dup mul LUTB* j get dup mul add 0.000001 add sqrt put L* j LUTL* j get put LUTc*rgb j 1000 put } for %j=0,08 %********************************************************************** /j0 0 def /j1 0 def /j2 8 def /k 0 def /fakt 30 def /fakt1 15 def /fakt2 1500 def 0 1 7 {/j exch def %j=0,8 %lines /ja j0 j add def c1*rgb j LUTc*rgb ja get put C*ab j LUTA* ja get dup mul LUTB* ja get dup mul add sqrt put /angleWO LUTB* ja get LUTA* ja get 0.0001 add atan def LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor xchartl 3 le {%xchart=3 newpath C*ab j get fakt1 mul angleWO cos mul C*ab j get fakt1 mul angleWO sin mul moveto C*ab j get fakt1 mul angleWO cos mul C*ab j get fakt1 mul angleWO sin mul 050 0 360 arc fill } {%xchart>=7 newpath c1*rgb j get fakt2 mul angleWO cos mul c1*rgb j get fakt2 mul angleWO sin mul moveto c1*rgb j get fakt2 mul angleWO cos mul c1*rgb j get fakt2 mul angleWO sin mul 050 0 360 arc fill } ifelse %xchart=3,>=7 } for %j=0,8 } for %xton=0,5 %END for all xchartl=3,7,11,15 %********************************************************************** %For all xchartl=3,7,11,15 %Constant hue series 250 /TimesBI-ISOL1 FS /fcolor1 1.10 def /fcolor2 1.20 def /j729 0 def %xcolor 1 le {/j729 0 def}{/j729 729 def} ifelse 0 1 2 {/xtonj exch def %xton=0,2 xtonj 0 eq {/j1 729 j729 sub 10 mul def} if %series O-C xtonj 1 eq {/j1 729 j729 sub 081 add 10 mul def} if %series Y-V xtonj 2 eq {/j1 729 j729 sub 162 add 10 mul def} if %series L-M 0 1 080 {/i exch def %i=0,080 /i10 j1 i 10 mul add def LUTL* i LUT i10 0 add get 100 div put LUTA* i LUT i10 1 add get 100 div put LUTB* i LUT i10 2 add get 100 div put LUTr* i LUT i10 3 add get 1000 div put LUTg* i LUT i10 4 add get 1000 div put LUTb* i LUT i10 5 add get 1000 div put C*ab i LUTA* i get dup mul LUTB* i get dup mul add 0.000001 add sqrt put L* i LUTL* i get put } for %i=0,080 % 801 737 809 729 882 818 890 810 963 899 971 891 % j01 b09 j09 b01 j10 b18 j18 b10 j19 b27 j27 b19 % O C N1 W1 Y V N2 W2 L M N3 W3 xtonj 0 eq {/index [801 737 809 729] def} if %O,C,N1,W1 xtonj 1 eq {/index [882 818 890 810] def} if %Y,V,N2,W2 xtonj 2 eq {/index [963 899 971 891] def} if %L,M,N1,W2 0 1 3 {/i exch def %i=0,3 %standard colours at the end /i10 index i get j729 sub 10 mul def /i81 81 i add def LUTL* i81 LUT i10 0 add get 100 div put LUTA* i81 LUT i10 1 add get 100 div put LUTB* i81 LUT i10 2 add get 100 div put LUTr* i81 LUT i10 3 add get 1000 div put LUTg* i81 LUT i10 4 add get 1000 div put LUTb* i81 LUT i10 5 add get 1000 div put C*ab i81 LUTA* i81 get dup mul LUTB* i81 get dup mul add 0.000001 add sqrt put L* i81 LUTL* i81 get put } for %i=0,3 /L*WN LUTL* 84 get LUTL* 83 get sub def 0 1 084 {/i exch def %i=0,084 LUTl* i LUTL* i get LUTL* 83 get sub L*WN 0.000001 add div put LUTc1* i C*ab i get C*ab 81 get 0.000001 add div put LUTc2* i C*ab i get C*ab 82 get 0.000001 add div put LUTt1* i LUTl* i get LUTc1* i get L* 81 get L* 83 get sub L*WN 0.000001 add div 0.5 sub mul sub put LUTt2* i LUTl* i get LUTc2* i get L* 82 get L* 83 get sub L*WN 0.000001 add div 0.5 sub mul sub put LUTr* i get 0 lt {LUTr* i 0 put} if LUTg* i get 0 lt {LUTg* i 0 put} if LUTb* i get 0 lt {LUTb* i 0 put} if LUTr* i get 1 gt {LUTr* i 1 put} if LUTg* i get 1 gt {LUTg* i 1 put} if LUTb* i get 1 gt {LUTb* i 1 put} if %maximum /max LUTr* i get def %rgb brilliantness LUTg* i get max gt {/max LUTg* i get def} if LUTb* i get max gt {/max LUTb* i get def} if %minimum /min LUTr* i get def %rgb whiteness LUTg* i get min lt {/min LUTg* i get def} if LUTb* i get min lt {/min LUTb* i get def} if LUTc*rgb i max min sub put %rgb chroma LUTt*rgb i min max min sub 0.5 mul add put %rgb triangle lightness } for %i=0,084 %********************************************************************** /j0 0 def /j1 0 def /j2 8 def /k 0 def /fakt 30 def /fakt1 15 def /fakt2 1500 def 0 1 8 {/j exch def %j=0,8 %lines /ja j0 j 9 mul add def c1*rgb j LUTc*rgb ja get put C*ab j LUTA* ja get dup mul LUTB* ja get dup mul add sqrt put /angleWO LUTB* ja get LUTA* ja get 0.0001 add atan def LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor xchartl 3 le {%xchart=3 C*ab j get fakt1 mul angleWO cos mul C*ab j get fakt1 mul angleWO sin mul 050 0 360 arc fill j j2 eq {%j=j2 0 0 0 setrgbcolor C*ab j get fakt1 mul angleWO cos mul C*ab j get fakt1 mul angleWO sin mul 065 0 360 arc stroke LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor /xadd0 [-100 -500 -500 -700 -200 000] def /yadd0 [ 100 -000 -200 -100 -200 100] def C*ab j get fakt1 mul fcolor2 mul angleWO cos mul xadd0 xtonj get add C*ab j get fakt1 mul fcolor2 mul angleWO sin mul yadd0 xtonj get add moveto cname6 xtonj get show icolor 1 eq {1 0 0 setrgbcolor 0 0 moveto C*ab j get fakt1 mul angleWO cos mul C*ab j get fakt1 mul angleWO sin mul lineto stroke } if } if %j=j2 } {%xchart>=7 c1*rgb j get fakt2 mul angleWO cos mul c1*rgb j get fakt2 mul angleWO sin mul 050 0 360 arc fill j j2 eq {%j=j2 0 0 0 setrgbcolor c1*rgb j get fakt2 mul angleWO cos mul c1*rgb j get fakt2 mul angleWO sin mul 065 0 360 arc stroke LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor /xadd0 [-100 -500 -500 -700 -200 000] def /yadd0 [ 100 -000 -200 -100 -200 100] def c1*rgb j get fakt2 mul fcolor2 mul angleWO cos mul xadd0 xtonj get add c1*rgb j get fakt2 mul fcolor2 mul angleWO sin mul yadd0 xtonj get add moveto cname6 xtonj get show icolor 1 eq {1 0 0 setrgbcolor %icolor=1 0 0 moveto c1*rgb j get fakt2 mul angleWO cos mul c1*rgb j get fakt2 mul angleWO sin mul lineto stroke } if %icolor=1 } if %j=j2 } ifelse %xchart=3,>=7 LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor j 1 ge {xchartl 3 eq {olvrgb 0 eq {C*ab j 1 sub get fakt1 mul angleWO cos mul C*ab j 1 sub get fakt1 mul angleWO sin mul moveto C*ab j get fakt1 mul angleWO cos mul C*ab j get fakt1 mul angleWO sin mul lineto stroke } if } {c1*rgb j 1 sub get fakt2 mul angleWO cos mul c1*rgb j 1 sub get fakt2 mul angleWO sin mul moveto c1*rgb j get fakt2 mul angleWO cos mul c1*rgb j get fakt2 mul angleWO sin mul lineto stroke } ifelse } if } for %j=0,8 %********************************************************************** 0 1 8 {/j exch def %j=0,8 %lines /ja j0 j add def c2*rgb j LUTc*rgb ja get put C*ab j LUTA* ja get dup mul LUTB* ja get dup mul add sqrt put /angleWO LUTB* ja get LUTA* ja get 0.0001 add atan def LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor xchartl 3 le {%xchart=3 C*ab j get fakt1 mul angleWO cos mul C*ab j get fakt1 mul angleWO sin mul 050 0 360 arc fill j j2 eq {%j=j2 0 0 0 setrgbcolor C*ab j get fakt1 mul angleWO cos mul C*ab j get fakt1 mul angleWO sin mul 065 0 360 arc stroke LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor /xadd0 [ 000 -100 -500 -700 -200 000] def /yadd0 [-200 -000 000 -100 -100 100] def C*ab j get fakt1 mul fcolor2 mul angleWO cos mul xadd0 xtonj 3 add get add C*ab j get fakt1 mul fcolor2 mul angleWO sin mul yadd0 xtonj 3 add get add moveto cname6 xtonj 3 add get show icolor 1 eq {1 0 0 setrgbcolor 0 0 moveto C*ab j get fakt1 mul angleWO cos mul C*ab j get fakt1 mul angleWO sin mul lineto stroke } if } if %j=j2 } {%xchart=7 c2*rgb j get fakt2 mul angleWO cos mul c2*rgb j get fakt2 mul angleWO sin mul 050 0 360 arc fill j j2 eq {%j=j2 0 0 0 setrgbcolor c2*rgb j get fakt2 mul angleWO cos mul c2*rgb j get fakt2 mul angleWO sin mul 065 0 360 arc stroke LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor /xadd0 [-000 -100 -500 -700 -200 000] def /yadd0 [ 100 -000 000 -100 -200 100] def c2*rgb j get fakt2 mul fcolor2 mul angleWO cos mul xadd0 xtonj 3 add get add c2*rgb j get fakt2 mul fcolor2 mul angleWO sin mul yadd0 xtonj 3 add get add moveto cname6 xtonj 3 add get show icolor 1 eq {1 0 0 setrgbcolor %icolor=1 0 0 moveto c2*rgb j get fakt2 mul angleWO cos mul c2*rgb j get fakt2 mul angleWO sin mul lineto stroke } if %icolor=1 } if %j=j2 } ifelse %xchart=3, %xchart>=7 LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor j 1 ge {xchartl 3 le {C*ab j 1 sub get fakt1 mul angleWO cos mul C*ab j 1 sub get fakt1 mul angleWO sin mul moveto C*ab j get fakt1 mul angleWO cos mul C*ab j get fakt1 mul angleWO sin mul lineto stroke } {c2*rgb j 1 sub get fakt2 mul angleWO cos mul c2*rgb j 1 sub get fakt2 mul angleWO sin mul moveto c2*rgb j get fakt2 mul angleWO cos mul c2*rgb j get fakt2 mul angleWO sin mul lineto stroke } ifelse } if } for %j=00,08 %xtonj=0 %series O-C %xtonj=1 %series Y-V %xtonj=2 %series L-M } for %xton=0,2 %END for all xchartl=3,7,11,15 %********************************************************************** xchartl 3 eq {%xchartl=3 only %BEG Hexagon % 801 737 809 729 882 818 890 810 963 899 971 891 % j01 b09 j09 b01 j10 b18 j18 b10 j19 b27 j27 b19 % O C N1 W1 Y V N2 W2 L M N3 W3 /fakt1 15 def /indexX 7 array def /indexX [801 882 963 737 818 899 801] def /LUTL*X 7 array def /LUTA*X 7 array def /LUTB*X 7 array def 0 setgray /fcolor1 1.10 def /fcolor2 1.20 def 250 /TimesBI-ISOL1 FS /j729 0 def 0 1 6 {/iX exch def %iX=0,6 %hexagon standard colours at the end /i10 indexX iX get j729 sub 10 mul def LUTL*X iX LUT i10 0 add get 100 div put LUTA*X iX LUT i10 1 add get 100 div put LUTB*X iX LUT i10 2 add get 100 div put LUTr* iX LUT i10 3 add get 1000 div put LUTg* iX LUT i10 4 add get 1000 div put LUTb* iX LUT i10 5 add get 1000 div put iX 5 le {0 0 0 setrgbcolor 0 0 moveto LUTA*X iX get fakt1 mul fcolor1 mul cf1 div LUTB*X iX get fakt1 mul fcolor1 mul cf1 div lineto stroke /xadd0 [-000 -100 -500 -700 -200 000] def /yadd0 [ 100 -000 000 -100 -200 100] def LUTA*X iX get fakt1 mul fcolor2 mul cf1 div xadd0 iX get add LUTB*X iX get fakt1 mul fcolor2 mul cf1 div yadd0 iX get add moveto % xcolor 2 ge {%xcolor>=2 % 0 0 0 setrgbcolor % cname_olv00 iX get show % } if %xcolor>=2 } if iX 5 le icolor 1 eq and {xcolor 2 ge {0 0 0}{1 0 0} ifelse setrgbcolor 0 0 moveto LUTA*X iX get fakt1 mul LUTB*X iX get fakt1 mul lineto stroke } if iX 1 ge {0 0 0 setrgbcolor LUTA*X iX 1 sub get fakt1 mul cf1 div LUTB*X iX 1 sub get fakt1 mul cf1 div moveto LUTA*X iX get fakt1 mul cf1 div LUTB*X iX get fakt1 mul cf1 div lineto stroke } if iX 1 ge icolor 1 eq and {1 0 0 setrgbcolor LUTA*X iX 1 sub get fakt1 mul LUTB*X iX 1 sub get fakt1 mul moveto LUTA*X iX get fakt1 mul LUTB*X iX get fakt1 mul lineto stroke } if } for %iX=0,6 %hexagon } if %xchartl=3 %********************************************************************** xchartl 7 ge {%xchart>=7 %circle icolor 0 eq {0 0 0 setrgbcolor} {1 0 0 setrgbcolor} ifelse 0 1500 moveto newpath 0 0 1500 0 360 arc stroke %BEG Hexagon % 801 737 809 729 882 818 890 810 963 899 971 891 % j01 b09 j09 b01 j10 b18 j18 b10 j19 b27 j27 b19 % O C N1 W1 Y V N2 W2 L M N3 W3 /fakt1 15 def /indexX 7 array def /indexX [801 882 963 737 818 899 801] def /LUTL*X 7 array def /LUTA*X 7 array def /LUTB*X 7 array def 0 setgray /fcolor1 1.10 def /fcolor2 1.20 def /c1000 1 fakt2 mul def 250 /TimesBI-ISOL1 FS /j729 0 def 0 1 6 {/iX exch def %iX=0,5 %hexagon standard colours at the end /i10 indexX iX get j729 sub 10 mul def LUTL*X iX LUT i10 0 add get 100 div put LUTA*X iX LUT i10 1 add get 100 div put LUTB*X iX LUT i10 2 add get 100 div put LUTr* iX LUT i10 3 add get 1000 div put LUTg* iX LUT i10 4 add get 1000 div put LUTb* iX LUT i10 5 add get 1000 div put /angleOLV LUTB*X iX get LUTA*X iX get 0.0001 add atan def iX 5 le {0 0 0 setrgbcolor 0 0 moveto c1000 angleOLV cos mul fcolor2 mul c1000 angleOLV sin mul fcolor2 mul lineto stroke /xadd0 [-200 -300 -300 -500 -400 -000] def /yadd0 [ 100 -000 000 -100 -200 100] def c1000 angleOLV cos mul fcolor2 mul xadd0 iX get add c1000 angleOLV sin mul fcolor2 mul yadd0 iX get add moveto % xcolor 2 ge {%xcolor>=2 % 0 0 0 setrgbcolor % cname_olv00 iX get show % } if %xcolor>=2 } if iX 5 le icolor 1 eq and {xcolor 2 ge {0 0 0}{1 0 0} ifelse setrgbcolor 0 0 moveto c1000 angleOLV cos mul fcolor2 mul c1000 angleOLV sin mul fcolor2 mul lineto stroke } if } for %iX=0,6 %hexagon } if %xchartl>=7 %********************************************************************** 0 1500 neg translate } ifelse %xchart #3,7,11,15 or =3,7,11,15 grestore 2600 neg 0300 neg translate %special space for 'xm03'PROZ0.COM 2x before/after xchartl % xchartl 0 eq { 100 neg 13000 neg translate} if % xchartl 1 eq { 6100 neg 13000 neg translate} if % xchartl 2 eq { 100 neg 08750 neg translate} if % xchartl 3 eq { 6100 neg 08750 neg translate} if % xchartl 4 eq { 100 neg 4500 neg translate} if % xchartl 5 eq { 6100 neg 4500 neg translate} if % xchartl 6 eq { 100 neg 0250 neg translate} if % xchartl 7 eq { 6100 neg 0250 neg translate} if % xchartl 8 eq {13500 neg 13000 neg translate} if % xchartl 9 eq {19500 neg 13000 neg translate} if % xchartl 10 eq {13500 neg 08750 neg translate} if % xchartl 11 eq {19500 neg 08750 neg translate} if % xchartl 12 eq {13500 neg 4500 neg translate} if % xchartl 13 eq {19500 neg 4500 neg translate} if % xchartl 14 eq {13500 neg 0250 neg translate} if % xchartl 15 eq {19500 neg 0250 neg translate} if %} for %end xchartl=0,15 %end calculation and output of graph with 16 pictures showpage grestore } for %end xchartix=00,15