%!PS-Adobe-3.0 EPSF-3.0 KE970-7N %%BoundingBox: 14 10 820 572 %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/KE97/) /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:2010080112000) /ModDate (D:2010080112000) /DOCINFO pdfmark07 [ /View [ /FitB ] /DOCVIEW pdfmark07 %END PDFDE011 /ColSpxL 0 def /DEintp 0 def /rgb_cmy 0 def %Early binding /sggray where {pop /slgray {sggray} bind def} {/slgray {setgray} bind def} ifelse /sgcmykcolor where {pop /slcmykcolor {sgcmykcolor} bind def} {/slcmykcolor {setcmykcolor} bind def} ifelse /sgrgbcolor where {pop /slrgbcolor {sgrgbcolor} bind def} {/slrgbcolor {setrgbcolor} bind def} ifelse /ColSpxG where {pop /ColSpx {ColSpxG} bind def} {/ColSpx {ColSpxL} bind def} ifelse /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 findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Courier-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 /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {300 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /CKK {200 /Courier-ISOL1 FS} bind def /CK {250 /Courier-ISOL1 FS} bind def /CM {300 /Courier-ISOL1 FS} bind def /CG {350 /Courier-ISOL1 FS} bind def /CBKK {200 /CourierB-ISOL1 FS} bind def /CBK {250 /CourierB-ISOL1 FS} bind def /CBM {300 /CourierB-ISOL1 FS} bind def /CBG {350 /CourierB-ISOL1 FS} bind def %***************************************************************************** %BEG KK0X->KE97/Y10-7N.EPS, ident. for NP-(*ioL), FP-files (*ioL) 20090201 %***************************************************************************** %Data (HRS16_96, L*=16_96) /proc_LAB*ioL {%BEG Procedure proc_LAB*ioL /xyY0 4320 array def %1080x4 /LAB*TE [(LCED_low_gloss)] def /xyY0 [%Apple MacBook 17" without glossy display %Measurement new Apple MacBookPro 17", 2009-12-07, BAM %Colours of file IE31L0NP.PDF (1080 output pages); Mac Preview used %produced with the settings of the LED-LCD (LECD) monitor; full white used 01 3226 3333 0031 %N00V 02 2304 1885 0036 %N13V 03 1820 1083 0047 %N25V 04 1681 0847 0060 %N38V 05 1604 0740 0076 %N50V 06 1562 0680 0095 %N63V 07 1531 0640 0117 %N75V 08 1509 0622 0150 %N88V 09 1474 0613 0239 %N99V 10 3100 4639 0078 11 2480 3118 0082 12 1992 1854 0093 13 1800 1355 0107 14 1686 1109 0123 15 1630 0957 0141 16 1589 0860 0164 17 1552 0790 0196 18 1503 0718 0285 % 19 3036 5559 0199 20 2700 4493 0203 21 2257 3076 0215 22 2029 2340 0229 23 1882 1874 0244 24 1782 1572 0263 25 1713 1361 0286 26 1651 1185 0318 27 1570 0976 0406 28 3007 5880 0354 % 29 2800 5130 0358 30 2445 3910 0369 31 2215 3139 0382 32 2055 2578 0399 33 1938 2182 0417 34 1845 1876 0440 35 1782 1615 0472 36 1647 1274 0560 % 37 3010 6022 0545 38 2864 5490 0550 39 2582 4503 0561 40 2373 3771 0574 41 2210 3190 0590 42 2081 2748 0609 43 1980 2381 0632 44 1880 2058 0664 45 1736 1598 0752 46 3025 6105 0771 % 47 2909 5700 0775 48 2681 4900 0786 49 2500 4258 0799 50 2343 3692 0815 51 2215 3240 0834 52 2104 2848 0856 53 1996 2478 0889 54 1828 1930 0977 55 3035 6156 1065 % 56 2952 5857 1070 57 2772 5217 1081 58 2617 4661 1094 59 2474 4148 1110 60 2348 3709 1128 61 2234 3312 1151 62 2120 2920 1183 63 1933 2300 1272 64 3058 6194 1478 % 65 2998 5973 1482 66 2856 5477 1494 67 2726 5015 1507 68 2600 4570 1523 69 2485 4165 1541 70 2375 3782 1564 71 2259 3386 1596 72 2059 2723 1684 73 3097 6226 2227 % 74 3051 6073 2231 75 2952 5720 2243 76 2851 5373 2257 77 2750 5017 2272 78 2650 4677 2291 79 2550 4338 2313 80 2442 3969 2346 81 2238 3300 2435 82 4250 3325 0045 % 83 3100 2160 0049 84 2251 1295 0061 85 1954 0997 0074 86 1800 0844 0090 87 1713 0756 0109 88 1645 0704 0131 89 1597 0669 0164 90 1530 0643 0253 91 3810 4405 0091 % 92 3056 3156 0096 93 2339 1963 0107 94 2044 1467 0120 95 1872 1190 0136 96 1773 1023 0155 97 1695 0917 0177 98 1634 0831 0210 99 1555 0746 0299 100 3400 5327 0212 % 101 1020 4485 0217 102 2500 3100 0228 103 2216 2390 0242 104 2031 1927 0258 105 1903 1621 0277 106 1805 1400 0300 107 1729 1220 0331 108 1621 1000 0420 109 3230 5705 0367 % 110 3000 5035 0372 111 2620 3902 0384 112 2369 3156 0397 113 2177 2604 0413 114 2040 2210 0431 115 1928 1904 0454 116 1831 1642 0484 117 1695 1292 0575 118 3165 5901 0560 % 119 3008 5402 0565 120 2712 4469 0576 121 2490 3768 0589 122 2311 3203 0606 123 2170 2766 0623 124 2050 2404 0667 125 1942 2078 0679 126 1780 1615 0768 127 3130 6010 0786 % 128 3020 5638 0790 129 2787 4869 0802 130 2592 4220 0816 131 2427 3695 0831 132 2287 3250 0849 133 2167 2859 0873 134 2050 2494 0904 135 1868 1944 0994 136 3118 6092 1082 % 137 3034 5800 1086 138 2850 5184 1097 139 2687 4643 1111 140 2540 4142 1127 141 2408 3710 1146 142 2288 3316 1168 143 2167 2928 1200 144 1970 2312 1289 145 3117 6143 1495 % 146 3058 5927 1500 147 2913 5447 1510 148 2780 4997 1523 149 2650 4559 1540 150 2532 4161 1558 151 2419 3782 1581 152 2300 3390 1613 153 2090 2730 1702 154 3135 6192 2239 % 155 3092 6042 2244 156 2990 5694 2255 157 2890 5353 3368 158 2783 5002 2284 159 2683 4666 2303 160 2582 4329 2326 161 2470 3964 2358 162 2263 3298 2447 163 5200 3375 0081 % 164 4130 2537 0086 165 3033 1681 0097 166 2524 1300 0111 167 2229 1075 0126 168 2040 0940 0144 169 1907 0849 0168 170 1800 0783 0200 171 1661 0715 0289 172 4696 4040 0127 % 173 3946 3225 0132 174 3015 2200 0143 175 2557 1690 0157 176 2266 1378 0173 177 2080 1184 0191 178 1946 1045 0213 179 1831 0934 0246 180 1684 0814 0335 181 4040 4931 0249 % 182 3627 4217 0253 183 3000 3140 0265 184 2623 2487 0278 185 2355 2036 0294 186 2172 1729 0313 187 2030 1497 0335 188 1910 1305 0368 189 1742 1061 0457 190 5693 5387 0404 % 191 3440 4825 0409 192 2999 3850 0420 193 2683 3172 0433 194 2445 2654 0449 195 2270 2275 0468 196 2123 1970 0491 197 1994 1704 0523 198 1810 1344 0612 199 3498 5653 0597 % 200 3330 5226 0602 201 3000 4391 0613 202 2747 3750 0626 203 2531 3217 0643 204 2365 2796 0661 205 2219 2444 0684 206 2087 2121 0716 207 1883 1657 0894 208 3378 5829 0823 % 209 3261 5476 0828 210 3010 4781 0840 211 2797 4200 0853 212 2608 3681 0869 213 2453 3256 0888 214 2311 2881 0910 215 2177 2521 0942 216 1964 1977 1031 217 3305 5939 1119 % 218 3216 5674 1124 219 3025 5101 1136 220 2850 4590 1148 221 2686 4115 1164 222 2545 3702 1183 223 2412 3322 1205 224 2276 2942 1238 225 2055 2333 1327 226 3260 6031 1532 % 227 3194 5826 1537 228 3044 5371 1547 229 2905 4943 1561 230 2770 4524 1577 231 2640 4142 1595 232 2520 3772 1618 233 2390 3394 1650 234 2165 2743 1740 235 3230 6112 2273 % 236 3186 5970 2278 237 3080 5635 2290 238 2975 5306 2303 239 2869 4966 2318 240 2763 4639 2337 241 2658 4310 2361 242 2540 3952 2393 243 2323 3298 2482 244 5660 3370 0126 % 245 4820 2787 0131 246 3680 2006 0143 247 3070 1585 0156 248 2668 1316 0172 249 2405 1143 0190 250 2205 1013 0213 251 2040 0915 0245 252 1820 0803 0335 253 5230 3855 0172 % 254 4567 3260 0177 255 3613 2402 0189 256 3057 1910 0202 257 2680 1580 0219 258 2424 1355 0237 259 2226 1190 0280 260 2062 1059 0292 261 1840 0898 0382 262 4550 4600 0294 % 263 4150 4063 0299 264 3480 3173 0311 265 3038 2582 0325 266 2713 2152 0340 267 2473 1846 0359 268 2286 1604 0382 269 2120 1400 0414 270 1889 1132 0504 271 4110 5085 0450 272 3860 4623 0455 273 3380 3802 0466 274 3025 3198 0479 275 2745 2710 0496 276 2530 2343 0515 277 2348 2043 0537 278 2184 1775 0569 279 1945 1405 0659 280 3830 5395 0643 % 281 3657 5027 0648 282 3305 4302 0660 283 3324 3722 0673 284 2782 3226 0689 285 2587 2830 0708 286 2418 2486 0731 287 2254 2170 0763 288 2010 1705 0852 289 3645 5606 0869 % 290 3522 5307 0874 291 3255 4680 0886 292 3029 4149 0900 293 2820 3666 0915 294 2642 3265 0934 295 2485 2902 0957 296 2328 2553 0989 297 2080 2012 1078 298 3515 5767 1165 % 299 3422 5527 1170 300 3220 5002 1182 301 3035 4528 1195 302 2860 4082 1211 303 2704 3690 1229 304 2560 3324 1253 305 2410 2955 1285 306 2160 2358 1374 307 3418 5897 1578 % 308 3353 5707 1583 309 3200 5280 1594 310 3052 4877 1607 311 2906 4481 1624 312 2772 4115 1642 313 2640 3762 1665 314 2501 3392 1698 315 2257 2756 1787 316 3340 6018 2318 % 317 3296 5880 2322 318 3190 5562 2334 319 3082 5247 2348 320 2970 4919 2364 321 2860 4605 2383 322 2750 4287 2406 323 2627 3939 2438 324 2396 3299 2528 325 5924 3370 0186 % 326 5278 2943 0192 327 4238 2287 0203 328 3590 1856 0217 329 3125 1560 0233 330 2800 1360 0250 331 2540 1200 0274 332 2315 1078 0306 333 2014 0912 0397 334 5577 3724 0232 % 335 5040 3285 0237 336 4140 2580 0249 337 3550 2123 0263 338 3112 1783 0279 339 2800 1545 0297 340 2548 1358 0320 341 2330 1200 0353 342 2030 0999 0443 343 4963 4338 0354 % 344 4600 3928 0360 345 3940 3207 0371 346 3465 2685 0385 347 3090 2277 0401 348 2808 1976 0420 349 2577 1730 0443 350 2368 1514 0475 351 2068 1221 0565 352 4500 4802 0509 % 353 4255 4436 0515 354 3770 3751 0527 355 3393 3215 0540 356 3080 2773 0557 357 2828 2423 0575 358 2610 2128 0598 359 2413 1864 0630 360 2114 1479 0720 361 4170 5139 0703 % 362 3995 4826 0708 363 3635 4208 0720 364 3333 3690 0734 365 3070 3240 0750 366 2846 2865 0768 367 2650 2540 0791 368 2461 2229 0823 369 2166 1763 0914 370 3935 5380 0930 % 371 3806 5118 0934 372 3530 4570 0946 373 3288 4090 0960 374 3063 3650 0976 375 2869 3270 0994 376 2690 2926 1017 377 2510 2588 1049 378 2223 2057 1139 379 3750 5576 1224 % 380 3659 5360 1230 381 3448 4890 1242 382 3252 4458 1255 383 3066 4044 1270 384 2895 3674 1290 385 2734 3326 1312 386 2570 2973 1345 387 2288 2388 1434 388 3604 5740 1636 % 389 3538 5570 1641 390 3380 5175 1654 391 3228 4803 1666 392 3075 4430 1682 393 2931 4085 1701 394 2789 3748 1724 395 2639 3392 1756 396 2370 2771 1846 397 3478 5900 2374 % 398 3432 5773 2380 399 3322 5474 2391 400 3212 5176 2404 401 3094 4864 2420 402 2981 4565 2439 403 2863 4260 2462 404 2735 3923 2494 405 2490 3299 2585 406 6080 3377 0259 % 407 5575 3064 0264 408 4680 2500 0277 409 4049 2104 0290 410 3555 1799 0306 411 3188 1573 0325 412 2885 1394 0347 413 2613 1236 0380 414 2227 1028 0471 415 5811 3635 0304 416 5374 3312 0310 417 4576 2729 0322 418 3988 2312 0335 419 3525 1980 0352 420 3175 1728 0371 421 2883 1530 0394 422 2618 1350 0426 423 2237 1109 0517 424 5282 4135 0425 % 425 4965 3828 0431 426 4343 3239 0443 427 3866 2778 0457 428 3470 2400 0473 429 3152 2106 0492 430 2884 1859 0515 431 2634 1633 0547 432 2266 1317 0637 433 4839 4560 0580 % 434 4610 4270 0586 435 4140 3700 0598 436 3750 3238 0612 437 3412 2830 0627 438 3134 2503 0646 439 2890 2218 0670 440 2657 1952 0701 441 2300 1557 0792 442 4487 4899 0773 % 443 4320 4642 0778 444 3958 4115 0790 445 3649 3660 0803 446 3362 3251 0820 447 3122 2905 0839 448 2899 2594 0861 449 2684 2292 0894 450 2340 1826 0984 451 4215 5160 0998 % 452 4090 4939 1004 453 3815 4460 1016 454 3561 4030 1029 455 3322 3630 1046 456 3112 3278 1064 457 2913 2952 1087 458 2714 2627 1119 459 2383 2103 1209 460 3996 5380 1293 % 461 3902 5194 1299 462 3688 4772 1312 463 3483 4383 1325 464 3288 4003 1340 465 3104 3658 1360 466 2932 3331 1382 467 2749 2990 1415 468 2436 2422 1505 469 3807 5576 1706 % 470 3740 5420 1711 471 3578 5063 1723 472 3420 4721 1736 473 3260 4370 1753 474 3108 4051 1772 475 2958 3733 1795 476 2794 3391 1827 477 2500 2790 1918 478 3630 5774 2443 479 3585 5655 2448 480 3472 5375 2460 481 3358 5098 2474 482 3236 4805 2490 483 3118 4520 2509 484 2995 4228 2532 485 2858 3904 2564 486 2597 3300 2655 487 6192 3378 0353 % 488 5809 3141 0360 489 5054 2680 0372 490 4471 2325 0385 491 3977 2025 0401 492 3587 1793 0420 493 3253 1594 0442 494 2940 1417 0475 495 2475 1166 0566 496 5984 3570 0399 % 497 5640 3330 0405 498 4949 2862 0417 499 4499 2486 0430 500 3935 2170 0445 501 3563 1922 0465 502 3240 1710 0488 503 2938 1518 0521 504 2481 1240 0612 505 5543 3972 0520 % 506 5270 3738 0526 507 4712 3260 0538 508 4254 2865 0551 509 3850 2526 0568 510 3512 2243 0586 511 3220 2000 0610 512 2936 1770 0642 513 2500 1430 0733 514 5140 4346 0674 % 515 4930 4121 0680 516 4488 3654 0692 517 4110 3258 0706 518 3761 2895 0722 519 3466 2590 0741 520 3202 2318 0764 521 2938 2055 0796 522 2521 1652 0887 523 4790 4666 0866 % 524 4630 4460 0872 525 4286 4025 0884 526 3971 3631 0898 527 3680 3264 0914 528 3422 2948 0933 529 3182 2655 0956 530 2942 2364 0988 531 2546 1903 1079 532 4508 4934 1092 % 533 4386 4749 1098 534 4110 4341 1110 535 3855 3967 1123 536 3607 3609 1140 537 3382 3286 1158 538 3169 2984 1182 539 2950 2674 1213 540 2576 2163 1304 541 4258 5173 1387 % 542 4165 5007 1393 543 3950 4646 1405 544 3744 4299 1418 545 5336 3955 1435 546 3345 3640 1453 547 3158 3334 1477 548 2960 3013 1509 549 2612 2462 1600 550 4032 5393 1800 % 551 3966 5253 1806 552 3801 4936 1818 553 3639 4627 1831 554 3474 4310 1847 555 3313 4011 1855 556 3153 3713 1889 557 2977 3390 1921 558 2658 2813 2012 559 3807 5626 2535 % 560 3762 5516 2541 561 3646 5261 2553 562 3530 5004 2567 563 3405 4733 2583 564 3281 4465 2602 565 3155 4190 2625 566 3008 3882 2657 567 2730 3301 2750 568 6269 3383 0472 % 569 5973 3202 0478 570 5351 2823 0491 571 4828 2510 0503 572 4362 2232 0520 573 3971 2000 0539 574 3620 1796 0561 575 3280 1604 0594 576 2746 1315 0686 577 6113 3529 0518 578 5837 3340 0523 579 5254 2963 0536 580 4762 2640 0550 581 4314 2350 0565 582 3940 2110 0584 583 3602 1895 0607 584 3270 1690 0640 585 2750 1383 0731 586 5750 3848 0639 % 587 5520 3665 0644 588 5032 3280 0657 589 4606 2946 0670 590 4211 2639 0686 591 3874 2379 0705 592 3560 2142 0728 593 3251 1913 0761 594 2758 1556 0852 595 5394 4167 0793 % 596 5212 3992 0799 597 4810 3612 0811 598 4446 3275 0825 599 4105 2955 0841 600 3805 2679 0860 601 3520 2420 0883 602 3236 2166 0915 603 2766 1759 1006 604 5068 4464 0986 % 605 4920 4297 0991 606 4594 3936 1004 607 4292 3601 1017 608 3997 3270 1033 609 3732 2992 1052 610 3480 2720 1076 611 3220 2445 1107 612 2780 1989 1198 613 4782 4720 1212 % 614 4666 4570 1217 615 4402 4225 1229 616 4150 3905 1243 617 3900 3589 1260 618 3667 3298 1278 619 3444 3017 1301 620 3206 2725 1333 621 2793 2232 1424 622 4518 4965 1507 % 623 4429 4828 1513 624 4217 4515 1525 625 4012 4212 1539 626 3802 3905 1555 627 3603 3620 1573 628 3407 3338 1596 629 3193 3038 1629 630 2812 2510 1720 631 4270 5201 1919 % 632 4204 5082 1925 633 4040 4802 1938 634 2873 4528 1950 635 3704 4242 1967 636 3540 3969 1986 637 3371 3692 2009 638 3185 3390 2041 639 2840 2840 2133 640 4006 5463 2654 % 641 3957 5363 2660 642 3842 5134 2672 643 3722 4901 2686 644 3593 4650 2702 645 3466 4403 2721 646 3332 4146 2744 647 3180 3858 2776 648 2883 3305 2868 649 6354 3382 0667 % 650 6133 3250 0671 651 5652 2963 0682 652 5210 2702 0695 653 4790 2458 0711 654 4419 2240 0730 655 4070 2040 0752 656 3712 1838 0784 657 3113 1514 0874 658 6238 3485 0712 % 659 6028 3355 0716 660 5564 3064 0728 661 5144 2799 0741 662 4741 3549 0756 663 4382 2326 0775 664 4041 2117 0798 665 3695 1910 0830 666 3112 1573 0920 667 5955 3732 0834 % 668 5775 3600 0839 669 5370 3307 0850 670 4993 3034 0862 671 4630 2774 0878 672 4302 2541 0897 673 3987 2320 0920 674 3663 2095 0952 675 3108 1724 1042 676 5661 3989 0990 % 677 5508 3860 0995 678 5160 3569 1006 679 4832 3296 1019 680 4508 3030 1036 681 4212 2785 1054 682 3925 2552 1077 683 3624 2311 1109 684 3103 1904 1199 685 5370 4245 1186 % 686 5240 4121 1191 687 4946 3839 1203 688 4663 3567 1216 689 4382 3298 1232 690 4120 3049 1251 691 3861 2807 1274 692 3588 2552 1306 693 3100 2113 1396 694 5101 4481 1417 % 695 4995 4362 1422 696 4746 4092 1434 697 4506 3830 1447 698 4261 3560 1464 699 4030 3312 1482 700 3800 3064 1506 701 3550 2800 1538 702 3098 2332 1627 703 4837 4718 1717 % 704 4751 4606 1723 705 4547 4352 1734 706 4345 4100 1748 707 4137 3841 1765 708 3937 3593 1783 709 3734 3346 1806 % 710 3513 3077 1838 711 3098 2584 1927 712 4576 4958 2133 713 4508 4859 2138 714 4345 4624 2149 715 4182 4390 2162 716 4010 4145 2178 717 3840 3906 2198 718 3668 3663 2221 719 3472 3393 2252 720 3100 2885 2342 721 4276 5240 2866 % 722 4228 5256 2871 723 4108 4956 2883 724 3987 4750 2896 725 3854 4530 2912 726 3723 4310 2931 727 3584 4080 2953 728 3425 3821 2986 729 3109 3312 3075 %End of measurement series; measurement pause of 30 min 730 3114 3315 3096 %15 min wait decreases luminance from 3125 to 3096 731 2892 3311 2904 732 2741 3308 2783 733 2607 3305 2686 734 2497 3302 2610 735 2403 3300 2547 736 2327 3299 2499 737 2265 3298 2462 738 2240 3297 2446 739 3472 3392 2270 % 740 3187 3390 2073 741 2983 3388 1952 742 2800 3389 1854 743 2643 3389 1778 744 2506 3388 1715 745 2392 3386 1666 746 2300 3384 1626 747 2259 3381 1607 748 3730 3344 1823 % 749 3402 3336 1626 750 3158 3330 1506 751 2934 3325 1407 752 2736 3320 1331 753 2560 3319 1269 754 2413 3314 1221 755 2286 3309 1181 756 2234 3301 1162 757 4019 3308 1499 % 758 3658 3294 1303 759 3377 3283 1182 760 3110 3276 1085 761 2868 3266 1010 762 2644 3257 0947 763 2454 3250 0899 764 2288 3240 0859 765 2212 3230 0841 766 4366 3295 1248 767 3983 3275 1053 768 3670 3261 0933 769 3358 3246 0835 770 3064 3234 0760 771 2783 3220 0698 772 2530 3205 0651 773 2307 3191 0613 774 2207 3180 0595 775 4810 3292 1033 % 776 4425 3279 0839 777 4096 3250 0719 778 3742 3228 0622 779 3388 3206 0547 780 3025 3187 0486 781 2684 3167 0439 782 2367 3145 0402 783 2213 3130 0384 784 5350 3303 0860 % 785 5015 3278 0666 786 4699 3258 0547 787 4333 3228 0450 788 3935 3200 0375 789 3471 3169 0314 790 3000 3127 0268 791 2500 3088 0230 792 2255 3065 0216 793 6018 3352 0723 % 794 5824 3340 0529 795 5626 3325 0409 796 5370 3305 0313 797 5034 3287 0239 798 4554 3255 0178 799 3937 3204 0133 800 3055 3140 0096 801 2490 3100 0082 802 6356 3382 0671 % 803 6276 3381 0476 804 6195 3378 0356 805 6075 3382 0261 806 5921 3375 0187 807 5676 3370 0127 808 5228 3351 0081 809 4250 3333 0045 810 3226 3333 0031 811 3108 3310 3071 % 812 2842 2843 2144 813 2616 2466 1612 814 2386 2109 1219 815 2167 1763 0916 816 1946 1404 0661 817 1744 1062 0458 818 1556 0744 0300 819 1475 0610 0238 820 3423 3819 2982 % 821 3185 3388 2053 822 2960 3012 1521 823 2714 2628 1128 824 2460 2229 0826 825 2185 1776 0572 826 1909 1302 0369 827 1634 0834 0210 828 1509 0619 0148 829 3583 4081 2949 % 830 3368 3685 2021 831 3157 3330 1488 832 2914 2952 1096 833 2649 2535 0794 834 2350 2039 0540 835 2029 1493 0337 836 1695 0913 0179 837 1531 0640 0117 838 3721 4310 2926 % 839 3535 3962 1997 840 3342 3633 1465 841 3110 3273 1073 842 2846 2861 0771 843 2528 2340 0517 844 2169 1724 0314 845 1768 1023 0155 846 1563 0674 0094 847 3854 4530 2906 % 848 3700 4234 1976 849 3535 3949 1446 850 3321 3624 1053 851 3065 3232 0752 852 2742 2704 0498 853 2354 2032 0296 854 1877 1190 0137 855 1602 0738 0076 856 3985 4751 2890 % 857 3871 4520 1962 858 3738 4292 1429 859 3556 4026 1037 860 3332 3686 0736 861 3024 3185 0481 862 2620 2480 0279 863 2041 1470 0120 864 1674 0851 0060 865 4106 4957 2877 % 866 4038 4796 1948 867 3946 4635 1415 868 3812 4452 1023 869 3632 4203 0722 870 3380 3799 0468 871 2992 3133 0266 %kor 2133->3133 872 2340 1956 0108 873 1820 1090 0047 874 4226 5158 2866 % 875 4201 5079 1936 876 4162 5007 1403 877 4094 4932 1011 878 3995 4830 0710 879 3854 4625 0455 880 3626 4212 0254 881 3059 3158 0096 882 2340 1869 0035 883 4276 5242 2861 % 884 4271 5201 1929 885 4258 5172 1396 886 4220 5156 1005 887 4172 5138 0704 888 4115 5085 0450 889 4035 4931 0249 890 3800 4396 0091 891 3200 3333 0030 892 3106 3309 3069 % 893 3097 2881 2336 894 3095 2581 1923 895 3097 2331 1627 896 3100 2113 1399 897 3104 1907 1205 898 3109 1727 1047 899 3114 1574 0924 900 3115 1515 0878 901 3179 3852 2787 % 902 3184 3388 2051 903 3191 3036 1640 904 3205 2726 1344 905 3217 2446 1117 906 3233 2168 0923 907 3250 1912 0767 908 3269 1691 0644 909 3279 1602 0597 910 3152 4182 2634 % 911 3152 3706 1898 912 3158 3329 1486 913 3166 2982 1190 914 3180 2653 0965 915 3197 2316 0770 916 3216 1997 0614 917 3237 1710 0492 918 3250 1592 0445 919 3116 4509 2515 % 920 3107 4043 1778 921 3104 3651 1366 922 3108 3274 1070 923 3118 2899 0844 924 3131 2501 0651 925 3146 2103 0495 926 3170 1725 0373 927 3180 1569 0326 928 3093 4856 2421 % 929 3072 4422 1684 930 3063 4036 1273 931 3060 3641 0977 932 3064 3231 0751 933 3074 2763 0558 934 3086 2274 0402 935 3104 1781 0280 936 3115 1560 0233 937 3079 5238 2346 % 938 3051 4871 1607 939 3032 4523 1195 940 3027 4142 0900 941 3024 3713 0674 942 3024 3185 0481 943 3036 2577 0325 944 3049 1906 0203 945 3061 1586 0157 946 3077 5630 2286 % 947 3044 5366 1547 948 3020 5094 1134 949 3006 4775 0840 950 3000 4382 0614 951 2995 3845 0421 952 2995 3133 0265 953 3008 2187 0144 954 3015 1670 0098 955 3087 6042 2240 % 956 3055 5924 1497 957 3030 5799 1085 958 3018 5620 0790 959 3005 5400 0564 960 3000 5020 0372 961 3015 4385 0218 962 3059 3145 0096 963 3080 2140 0050 964 3096 6225 2220 % 965 3061 6196 1474 966 3035 6157 1062 967 3021 6102 0768 968 3012 6025 0543 969 3008 5870 0352 970 3023 5550 0198 971 3100 4650 0076 972 3152 3300 0031 973 3152 3370 0031 % 974 3050 3140 0096 975 2999 3129 0265 976 3023 3187 0480 977 3063 3233 0750 978 3109 3273 1070 979 3155 3329 1485 980 3182 3387 2050 981 3105 3308 3068 982 3200 3333 0030 % 983 3050 3150 0096 984 3000 3129 0265 985 3023 3185 0480 986 3063 3231 0750 987 3108 3271 1070 988 3156 3330 1485 989 3182 3388 2050 990 3105 3308 3067 991 3200 3333 0031 992 3046 3135 0095 993 3000 3129 0265 994 3021 3189 0480 995 3062 3231 0750 996 3108 3273 1070 997 3156 3330 1485 998 3183 3387 2050 999 3105 3309 3067 1000 3200 3333 0031 % 1001 3069 3158 0096 1002 2999 3129 0265 1003 3021 3187 0480 1004 3060 3231 0750 1005 3108 3273 1070 1006 3156 3329 1486 1007 3183 3388 2050 1008 3104 3308 3067 1009 3200 3333 0030 1010 3200 3290 0042 1011 3040 3120 0103 1012 2973 3098 0199 1013 3025 3161 0288 1014 3027 3160 0396 1015 3034 3193 0522 1016 3050 3221 0672 1017 3066 3225 0824 1018 3095 3255 1002 1019 3116 3284 1203 1020 3144 3316 1430 1021 3170 3352 1701 1022 3185 3381 2014 1023 3207 3422 2420 1024 3105 3308 3068 1025 3200 3333 0031 1026 3205 3282 0043 1027 3050 3123 0104 1028 2975 3110 0200 1029 3024 3155 0289 1030 3020 3164 0398 1031 3033 3191 0524 1032 3054 3223 0673 1033 3068 3227 0827 1034 3094 3257 1004 1035 3116 3285 1206 1036 3145 3315 1433 1037 3170 3352 1704 1038 3185 3382 2017 1039 3208 3423 2422 1040 3106 3309 3069 1041 3200 3333 0031 1042 3206 3282 0042 1043 3040 3120 0104 1044 2969 3105 0199 1045 3020 3162 0289 1046 3020 3163 0397 1047 3032 3191 0522 1048 3054 3221 0673 1049 3068 3224 0825 1050 3094 3256 1002 1051 3115 3286 1204 1052 3143 3316 1432 1053 3170 3351 1703 1054 3185 3381 2016 1055 3208 3423 2421 1056 3105 3308 3069 1057 3222 3333 0031 % 1058 3200 3270 0043 1059 3030 3121 0104 1060 2969 3109 0199 1061 3026 3154 0288 1062 3022 3160 0396 1063 3035 3190 0522 1064 3052 3220 0671 1065 3066 3236 0825 1066 3094 3256 1002 1067 3116 3285 1204 1068 3144 3315 1432 1069 3170 3351 1702 1070 3185 3380 2014 1071 3207 3422 2421 1072 3104 3308 3068 1073 3200 3330 0031 %N1072 1074 3105 3307 3067 %W1073 1075 6354 3380 0670 %O 1076 2236 3288 2428 %C 1077 4276 5242 2859 %Y 1078 1476 0611 0239 %V 1079 3093 6224 2229 %L 1080 3114 1513 0878 %M ] def /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 /RGB*01 08 array def /RGB*02 08 array def /RGB*03 08 array def /RGB*04 08 array def /RGB*05 08 array def /RGB*06 08 array def /RGB*07 08 array 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 /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 /ymax 16600 def /ydel 203 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 /cvihtv {dup 0 ge {0.49 add}{0.49 sub} ifelse cvi} def /cvishowv {dup 0 ge {0.5 add} {0.5 sub} ifelse cvi 6 string cvs show} def /cvsshow1v {dup 0 ge {0.05 add} {0.05 sub} ifelse 10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2v {dup 0 ge {0.005 add} {0.005 sub} ifelse 100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3v {dup 0 ge {0.0005 add} {0.0005 sub} ifelse 1000 mul cvi 0.001 mul 7 string cvs show} 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 /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 {(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 } bind def %END Procedure proc_LAB*ioL %*********************************************************** /proc_XYZsystem*ioL { %BEG procedure proc_XYZsystem*ioL /xyY 4320 array def 0 1 4319 {/i exch def xyY i xyY0 i get 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 0.0001 mul div def XYZrx100 i30 xyY j30 get 0.0001 mul SUM mul fakt mul put XYZrx100 i31 xyY j32 get fakt mul put XYZrx100 i32 1 xyY j30 get 0.0001 mul sub xyY j31 get 0.0001 mul 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 /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 /RGBhab06 7 array def RGBhab06 0 RJGBLAB* 02 get RJGBLAB* 01 get atan put %026 RGBhab06 1 RJGBLAB* 05 get RJGBLAB* 04 get atan put %092 RGBhab06 2 RJGBLAB* 08 get RJGBLAB* 07 get atan put %162 RGBhab06 4 RJGBLAB* 11 get RJGBLAB* 10 get atan put %272 RGBhab06 3 RGBhab06 2 get RGBhab06 4 get add 0.5 mul put %217 RGBhab06 5 RGBhab06 4 get RGBhab06 0 get 360 add add 0.5 mul put %329 RGBhab06 6 RGBhab06 0 get 360 add put %386 /RGBhab06d 6 array def 0 1 5 {/j exch def %j=0,5 RGBhab06d j RGBhab06 j 1 add get RGBhab06 j get sub put } for /LABN [(O (R)) (Y) (L (G)) (C) (V (B)) (M) (O (R)) (N) (W) (N0) (W1)] def /u*dtx [(o) (y) (l) (c) (v) (m) (o)] def /u*etx [(r) (j) (g) () (b) () (r)] def %1 0 0 1 1 0 0 1 0 0 1 1 0 0 1 1 0 1 1 0 0 /o*toni [1 1 0 0 0 1 1] def /l*toni [0 1 1 1 0 0 0] def /v*toni [0 0 0 1 1 1 0] def } bind def %END procedure proc_XYZsystem*ioL %*********************************************************** /proc_LAB*LABja*ioL {%BEG procedure proc_LAB*LABja*ioL /Lrefl 11 array def /Lrefl [(0%) (0%) (0%) (0%) (0,6%) (1,2%) (2,5%) (5%) (10%) (20%) (40%)] def xchartii 2 le {/il 0 def} {/il xchartii 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 xchartii 2 ge {%xchartii>=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 /LAB*na089 3240 array def /XYZna089 3240 array 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 %xchartii>=2 xchartii 3 ge {%xchartii>=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 %xchartii>=3 xchartii 0 eq {%xchartii=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 %xchartii=0 (1x) xchartii 1 eq {%xchartii=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 %xchartii=1 (1x) xchartii 2 eq {%xchartii=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 %xchartii=2 (1x) xchartii 3 ge {%xchartii=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 %xchartii=3,4,5,6,7,8,9,10 (8x) xchartii 0 eq {/Xprint 0 def /FileData (LAB*rc) def} if xchartii 1 eq {/Xprint 1 def /FileData (LAB*ra) def} if xchartii 2 eq {/Xprint 1 def /FileData (LAB*na) def} if xchartii 3 eq {/Xprint 1 def /FileData (LAB*la0) def} if xchartii 4 eq {/Xprint 1 def /FileData (LAB*la1) def} if xchartii 5 eq {/Xprint 1 def /FileData (LAB*la2) def} if xchartii 6 eq {/Xprint 1 def /FileData (LAB*la3) def} if xchartii 7 eq {/Xprint 1 def /FileData (LAB*la4) def} if xchartii 8 eq {/Xprint 1 def /FileData (LAB*la5) def} if xchartii 9 eq {/Xprint 1 def /FileData (LAB*la6) def} if xchartii 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 /L*Nior L*Nio def %change later if chroma is reduced by factor /A*Nior A*Nio def /B*Nior B*Nio def /L*Wior L*Wio def /A*Wior A*Wio def /B*Wior B*Wio 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 } for %j=0,1079 /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 /indx 1080 array def /RX0 44280 array def %1080x41=44280 /RX0A 44280 array def /LUTL* 48 array def /LUTA* 48 array def /LUTB* 48 array def /LUTL*a 48 array def /LUTA*a 48 array def /LUTB*a 48 array def /indton 50 array def /LNWton 50 array def /ANWton 50 array def /BNWton 50 array def /RXA 41 array def /RAA 41 array def /Xt 49 array def /Yt 49 array def /Zt 49 array def /LAB*Lt 49 array def /LAB*at 49 array def /LAB*bt 49 array def /LAB*Lta 49 array def /LAB*ata 49 array def /LAB*bta 49 array def /L*ton 9 array def /OLVhab48 50 array def xcharti 2 le {/jN 1072 3 mul def /YNil XYZrx089 jN 1 add get def /L*Nil LAB*rc089 jN get def} if 0 1 5 {/xtonj exch def %xtonj=0,5 0 1 7 {/j exch def %j=0,7 /itonj xtonj 8 mul j add def xtonj 0 eq {/jx 648 j 09 mul add def} if %see O00Y-O83Y, -0 xtonj 1 eq {/jx 720 j 81 mul sub def} if %see Y00L-Y83L, -81 xtonj 2 eq {/jx 072 j add def} if %see L00C-L83C, +01 xtonj 3 eq {/jx 080 j 09 mul sub def} if %see C00V-C83V, -09 xtonj 4 eq {/jx 008 j 81 mul add def} if %see C00V-C83V, -81 xtonj 5 eq {/jx 656 j sub def} if %see C00V-C83V, +01 LUTL*a itonj LAB*Lja jx get put LUTA*a itonj LAB*aja jx get put LUTB*a itonj LAB*bja jx get put OLVhab48 itonj LUTB*a itonj get LUTA*a itonj get 0.0001 add atan put indton itonj jx 10 mul put } for %j=0,7 } for %xtonj=0,5 OLVhab48 48 OLVhab48 00 get put %no. 48 for interpolation indton 48 indton 00 get put OLVhab48 49 OLVhab48 01 get put %no. 49 for interpolation indton 49 indton 01 get put /OLVhab06 7 array def 0 1 5 {/j exch def %j=0,6 %no. 6 for interpolation OLVhab06 j OLVhab48 j 8 mul get put } for %j=0,6 OLVhab06 6 OLVhab06 0 get 360 add put /OLVhab06d 6 array def 0 1 5 {/j exch def %j=0,5 OLVhab06d j OLVhab06 j 1 add get OLVhab06 j get sub put } for } bind def %END procedure proc_LAB*LABja*ioL %************************************************************* /proc_olv3*s_to_olv3*u*dd_de_H*M_LAB*Ma_Fa*ioL { %BEG Procedure proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioL %transfer from elementary data to device (ed) and elementary data (ee) %For tLAB=1 Transfer to LAB*Ma and LAB*Fa /v*3Fa exch def /l*3Fa exch def /o*3Fa exch def /xolv3 o*3Fa 30 cos mul l*3Fa 30 cos mul sub def /yolv3 v*3Fa neg o*3Fa 30 sin mul l*3Fa 150 sin mul add add def /hrgbFa yolv3 xolv3 0.0001 add atan def %/LAB*hFa -1 def %dummy 0 1 5 {/kn5 exch def %kn5=0,5 /kn30 30 kn5 60 mul add def /kn90 kn30 60 add def hrgbFa 0 ge hrgbFa 30 lt {/hrgbFa hrgbFa 360 add def} if /kn5end 0 def hrgbFa kn30 ge hrgbFa kn90 lt and {/LAB*hFa RGBOLV 0 eq {RGBhab06 kn5 get}{OLVhab06 kn5 get} ifelse RGBOLV 0 eq {RGBhab06d kn5 get}{OLVhab06d kn5 get} ifelse hrgbFa kn30 sub 60 div mul add def /kn5end 1 def } if kn5end 1 eq {exit} if } for %kn5=0,5 /LAB*hMa LAB*hFa def 0 1 47 {/jj exch def %jj=1,47 jj 0 eq {/habtonM OLVhab48 47 get def} {/habtonM OLVhab48 jj 1 sub get def} ifelse /habton0 OLVhab48 jj get def /habton1 OLVhab48 jj 1 add get def /habtonP OLVhab48 jj 2 add get def habton1 habton0 lt {/habton1 habton1 360 add def} if habtonP habton0 lt {/habtonP habtonP 360 add def} if LAB*hFa habton0 ge LAB*hFa habton1 lt and {/itonx jj def jj 0 eq {/habton2M OLVhab48 47 get def} {/habton2M OLVhab48 jj 1 sub get def} ifelse /habton2 OLVhab48 jj get def /habton3 OLVhab48 jj 1 add get def /habton3P OLVhab48 jj 2 add get def /xdel LAB*hFa habton0 sub habton1 habton0 sub div def jj 0 eq {/indtonM indton 47 get 10 idiv def} {/indtonM indton jj 1 sub get 10 idiv def} ifelse /indton1 indton jj get 10 idiv def /indton2 indton jj 1 add get 10 idiv def /indtonP indton jj 2 add get 10 idiv def } if } for %jj=0,47 /X1K 0.0 def /X2K 1.0 def /XIE X1K X2K add 0.5 mul def /mkubend 7 def 0 1 mkubend {/mkub exch def %mkub=0,mkubend /A1 XIE 1 XIE sub mul XIE 2 sub mul 6 div def /A2 XIE 1 add XIE 1 sub mul XIE 2 sub mul 0.5 mul def /A3 XIE 1 add XIE mul 2 XIE sub mul 0.5 mul def /A4 XIE 1 add XIE mul XIE 1 sub mul 6 div def /LAB*L*Ma LAB*Lja indtonM get A1 mul LAB*Lja indton1 get A2 mul add LAB*Lja indton2 get A3 mul add LAB*Lja indtonP get A4 mul add def /LAB*a*Ma LAB*aja indtonM get A1 mul LAB*aja indton1 get A2 mul add LAB*aja indton2 get A3 mul add LAB*aja indtonP get A4 mul add def /LAB*b*Ma LAB*bja indtonM get A1 mul LAB*bja indton1 get A2 mul add LAB*bja indton2 get A3 mul add LAB*bja indtonP get A4 mul add def /habtonx LAB*b*Ma LAB*a*Ma 0.0001 add atan def LAB*hMa habtonx le {/X2K XIE def} {/X1K XIE def} ifelse /XIE X1K X2K add 0.5 mul def } for %mkub=0,mkubend %final calculations of CIE data (adapted and not adapted) /LAB*L*M LAB*L*Ma def /l*CIE LAB*L*Ma L*Nio sub L*Wio L*Nio sub div def %relative lightness /LAB*C*Ma LAB*a*Ma dup mul LAB*b*Ma dup mul add 0.00001 add sqrt def /LAB*a*Mae LAB*C*Ma LAB*hMa cos mul def /LAB*b*Mae LAB*C*Ma LAB*hMa sin mul def %relative chroma c*3, blackness n*3, brilliance i*3 /minFa o*3Fa def l*3Fa minFa lt {/minFa l*3Fa def} if v*3Fa minFa lt {/minFa v*3Fa def} if /maxFa o*3Fa def l*3Fa maxFa gt {/maxFa l*3Fa def} if v*3Fa maxFa gt {/maxFa v*3Fa 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 /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 /htoni hrgbFa 30 sub cvi 60 idiv def %0,1,2,3,4,5 /htonr hrgbFa 30 sub 60 div htoni sub def %0..1 LAB*hMa OLVhab06 6 get gt {/LAB*hMax LAB*hMa 360 sub def} {/LAB*hMax LAB*hMa def} ifelse 0 1 5 {/jV exch def %jV=0,5 /jend 0 def LAB*hMax OLVhab06 jV get ge LAB*hMax OLVhab06 jV 1 add get lt and {/jno jV def /jend 1 def } if jend 1 eq {exit} if } for %jV=0,5 /olvtoni jno def %0,1,2,3,4,5 /olvtonr LAB*hMax OLVhab06 jno get sub OLVhab06 jno 1 add get OLVhab06 jno get sub div def %0..1 LAB*hMa RGBhab06 6 get gt {/LAB*hMax LAB*hMa 360 sub def} {/LAB*hMax LAB*hMa def} ifelse 0 1 5 {/jV exch def %jV=0,5 /jend 0 def LAB*hMax RGBhab06 jV get ge LAB*hMax RGBhab06 jV 1 add get lt and {/jnr jV def /jend 1 def } if jend 1 eq {exit} if } for %jV=0,5 /rgbtoni jnr def %0,1,2,3,4,5 /rgbtonr LAB*hMax RGBhab06 jnr get sub RGBhab06 jnr 1 add get RGBhab06 jnr get sub div def %0..1 %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 /o*3Mat o*toni olvtoni get def /l*3Mat l*toni olvtoni get def /v*3Mat v*toni olvtoni get def % O Y L C V M O % Y L C V M O Y %/o*toni [1 1 0 0 0 1 1] def %/l*toni [0 1 1 1 0 0 0] def %/v*toni [0 0 0 1 1 1 0] def %/i*3 maxFa def %/c*3 maxFa minFa sub def %/n*3 1 i*3 sub def %STOP1 olvtoni 0 eq {/l*3Mat l*3Mat olvtonr add def %o..y /o*3Fat i*3 def /l*3Fat l*3Mat i*3 mul def /v*3Fat i*3 c*3 sub def} if olvtoni 1 eq {/o*3Mat o*3Mat olvtonr sub def %y..l /l*3Fat i*3 def /o*3Fat o*3Mat i*3 mul def /v*3Fat i*3 c*3 sub def} if olvtoni 2 eq {/v*3Mat v*3Mat olvtonr add def %l..c /l*3Fat i*3 def /v*3Fat v*3Mat i*3 mul def /o*3Fat i*3 c*3 sub def} if olvtoni 3 eq {/l*3Mat l*3Mat olvtonr sub def %c..v /v*3Fat i*3 def /l*3Fat l*3Mat i*3 mul def /o*3Fat i*3 c*3 sub def} if olvtoni 4 eq {/o*3Mat o*3Mat olvtonr add def %v..m /v*3Fat i*3 def /o*3Fat o*3Mat i*3 mul def /l*3Fat i*3 c*3 sub def} if olvtoni 5 eq {/v*3Mat v*3Mat olvtonr sub def %m..o /o*3Fat i*3 def /v*3Fat v*3Mat i*3 mul def /l*3Fat i*3 c*3 sub def} if htoni 1 le {/u*deMa1 u*etx htoni get def %rxxj, jxxg /u*deMai htonr 99 mul def /u*deMa2 u*etx htoni 1 add get def } if htoni 2 eq {/u*deMa1 u*etx htoni get def %gx1b /u*deMai htonr 49 mul def /u*deMa2 u*etx htoni 2 add get def } if htoni 3 eq {/u*deMa1 u*etx htoni 1 sub get def %gx2b /u*deMai 50 htonr 49 mul add def /u*deMa2 u*etx htoni 1 add get def } if htoni 4 eq {/u*deMa1 u*etx htoni get def %bx1r /u*deMai htonr 49 mul def /u*deMa2 u*etx htoni 2 add get def } if htoni 5 eq {/u*deMa1 u*etx htoni 1 sub get def %bx2r /u*deMai 50 htonr 49 mul add def /u*deMa2 u*etx htoni 1 add get def } if /u*ddMa1 u*dtx olvtoni get def /u*ddMai olvtonr 99 mul def /u*ddMa2 u*dtx olvtoni 1 add get def /o3*dd o*3Fa def /l3*dd l*3Fa def /v3*dd v*3Fa def /o3*de o*3Fat def /l3*de l*3Fat def /v3*de v*3Fat def /L*Ma LAB*L*Ma def /C*Ma LAB*C*Ma def /H*Ma LAB*hMa def /A*Ma C*Ma H*Ma cos mul def /B*Ma C*Ma H*Ma sin mul def /L*Fa LAB*L*Fa def /C*Fa LAB*C*Fa def /H*Fa LAB*hFa def /A*Fa C*Fa H*Fa cos mul def /B*Fa C*Fa H*Fa sin mul def /u*eeMa1 u*deMa1 def %at first dummy /u*eeMai u*deMai def /u*eeMa2 u*deMa2 def /u*edMa1 u*ddMa1 def /u*edMai u*ddMai def /u*edMa2 u*ddMa2 def /c*rs c*3 def /t*s t*3 def /l*rs l*3 def /n*s n*3 def /H*Fa0 H*Fa def } bind def %END Procedure proc_olv3*s_to_olv3*u*dd_de_H*M_LAB*Ma_Fa*ioL %********************************************************************* /proc_ColSep*ioL {%BEG Procedure proc_ColSep*ioL ColourSeparation for NP-file 20090201 /setgc {pop pop pop 1 exch sub slgray} bind def /setgm {pop pop 1 exch sub slgray pop} bind def /setgy {pop 1 exch sub slgray pop pop} bind def /setgn {1 exch sub slgray pop pop pop} bind def /setgf {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def 0 ccolor eq 0 mcolor eq and 0 ycolor eq and {1 ncolor sub slgray} {1 ccolor sub 0.71 mul 1 mcolor sub 0.22 mul add 1 ycolor sub 0.07 mul add slgray} ifelse } bind def /setcmykcolorf { slcmykcolor} bind def %fuer PSL1/2-Farbgeraet /setcmyknew { %Ersatz setcolornew durch setcmykcolor1 ausz 1 eq {setgc} if %C ausz 2 eq {setgm} if %M ausz 3 eq {setgy} if %Y ausz 4 eq {pop pop pop /ccolor exch def ccolor 0 0 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgc} %PSL1-SW-Geraet ifelse } if %Cbunt ausz 5 eq {pop pop /mcolor exch def pop 0 mcolor 0 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgm} %PSL1-SW-Geraet ifelse } if %Mbunt ausz 6 eq {pop /ycolor exch def pop pop 0 0 ycolor 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgy} %PSL1-SW-Geraet ifelse } if %Ybunt ausz 7 eq {setgn} if %N ausz 8 ge { /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgf} %PSL1-SW-Geraet ifelse } if %bei ausz=8: Farb- oder SW-Ausdruck je nach Drucker } bind def %********************************************************************* /rgb_LAB_Interp_olv*ioL {%BEG Procedure rgb_LAB_Interp_olv*ioL zm60'LABINPLT.PS %assumes input of rgb, LAB_Interpolation and calculation of olv* %split in chromatic and achromatic colours %two special cases black N and white W /b exch def /g exch def /r exch def /tLAB 1 def r g b proc_olv3*s_to_olv3*u*dd_de_H*M_LAB*Ma_Fa*ioL L*Fa A*Fa B*Fa Lab2RGBinterpolation /v* exch def /l* exch def /o* exch def } bind def %END Procedure rgb_LAB_Interp_olv*ioL 'zm60'LABINPLT.PS %********************************************************************* %BEG 'zm60'COLM57_590415LT.PS 20090201 ColSpx 0 eq {%ColSpx=0 /tLAB 0 def xcharti 1 ge {%xcharti>=1 'zm60'COLM57LT.PS cmy0* 20090201 colorm 0 eq {%BEG colorm=0 /setrgbcolor {/v* exch def /l* exch def /o* exch def %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioL %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if %standard cmy0* for input /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def rgb_cmy 1 eq {c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew} {o* l* v* slrgbcolor} ifelse } def /setgray {dup dup /v* exch def /l* exch def /o* exch def %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioL %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if %standard cmy0* for input /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def rgb_cmy 1 eq {c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew} {o* l* v* slrgbcolor} ifelse } def /setcmykcolor {/n*n exch def /y*n exch def /m*n exch def /c*n exch def %standard cmy0* for input n*n 0 eq {/o* 1 c*n sub def /l* 1 m*n sub def /v* 1 y*n sub def /i* 0 def } {/o* 1 n*n sub def /l* 1 n*n sub def /v* 1 n*n sub def /i* 0 def } ifelse %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioL %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def rgb_cmy 1 eq {c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew} {o* l* v* slrgbcolor} ifelse } def }%END colorm=0 {%BEG colorm=1 /setrgbcolor {/v* exch def /l* exch def /o* exch def %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioL %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if o* l* v* rgb_LAB_Interp_olv*ioL /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def rgb_cmy 1 eq {c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew} {o* l* v* slrgbcolor} ifelse } def /setgray {/w*w exch def /o* w*w def /l* w*w def /v* w*w def %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioL %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if o* l* v* rgb_LAB_Interp_olv*ioL /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def rgb_cmy 1 eq {c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew} {o* l* v* slrgbcolor} ifelse } def /setcmykcolor {/n*n exch def /y*n exch def /m*n exch def /c*n exch def %standard cmy0* or 000n* for input n*n 0 eq {/o* 1 c*n sub def /l* 1 m*n sub def /v* 1 y*n sub def} {/o* 1 n*n sub def /l* 1 n*n sub def /v* 1 n*n sub def} ifelse %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioL %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if o* l* v* rgb_LAB_Interp_olv*ioL /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def rgb_cmy 1 eq {c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew} {o* l* v* slrgbcolor} ifelse } def } ifelse %END colorm=1 }%END %xcharti>=1 {%BEG %xcharti=0 /setrgbcolor {/v* exch def /l* exch def /o* exch def /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def o* l* v* slrgbcolor } def /setgray {dup dup /v* exch def /l* exch def /o* exch def /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def o* slgray } def /setcmykcolor {/n*n exch def /y*n exch def /m*n exch def /c*n exch def n*n 0 eq {/o* 1 c*n sub def /l* 1 m*n sub def /v* 1 y*n sub def /n4*Fa 0 def} {/o* 1 def /l* 1 def /v* 1 def /n4*Fa n*n def} ifelse /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def c4*Fa m4*Fa y4*Fa n4*Fa slcmykcolor } def } ifelse %END %xcharti=0 'zm60'COLM57LT.PS cmy0* 20090201 } if %ColSpx=0 %********************************************************************* } bind def %BEG Procedure proc_ColSep*ioL ColourSeparation for NP-file 20090201 %***************************************************************************** %END KK0X->KE97/Y10-7N.EPS, ident. for NP-(*ioL), FP-files (*ioL) 20090201 %***************************************************************************** /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 /rem %x0, y0 width heigth {/heigth exch def /width exch def /y0 exch def /x0 exch def x0 width 0.5 mul add y0 heigth 0.5 mul add moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /A4quer {598 0 tl 90 rotate} def %%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 1 def /lanind2 1 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 /IMODE 0 def /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 /x xs 0.15 mul def /y ys 12.0 mul def /nr1 27 array def /tx1 52 array def /nr1 [(01) (02) (03) (04) (05) (06) (07) (08) (09) (10) (11) (12) (13) (14) (15) (16) (17) (18) (19) (20) (21) (22) (23) (24) (25) (26) (27)] def /tx1 [(A) (B) (C) (D) (E) (F) (G) (H) (I) (J) (K) (L) (M) (N) (O) (P) (Q) (R) (S) (T) (U) (V) (W) (X) (Y) (Z) (a) (b) (c) (d) (e) (f) (g) (h) (i) (j) (k) (l) (m) (n) (o) (p) (q) (r) (s) (t) (u) (v) (w) (x) (y) (z)] def /ColNamesrgb* 30 array def /ColNamesrgb* [(O) (Y) (L) (C) (V) (M) (N) (W) (R) (J) (G) (B) (r00j) (r25j) (r50j) (r75j) (j00g) (j25g) (j50g) (j75g) (g00b) (g25b) (g50b) (g75b) (b00r) (b25r) (b50r) (b75r) (R = r00j) (r25j) ] def /ColNamesolv* 30 array def /ColNamesolv* [(O) (Y) (L) (C) (V) (M) (N) (W) (O) (Y) (L) (V) (o00y) (o25y) (o50y) (o75y) (y00l) (y25l) (y50l) (y75l) (l00c) (l50c) (c00v) (c50v) (v00m) (v50m) (m00o) (m50o) (O = o00y) (o25y) ] def /ColNames 30 array def 0 1 29 {/iintp exch def %iintp=0,29 ColNames iintp DEintp 0 eq {ColNamesolv* iintp get} {ColNamesrgb* iintp get} ifelse put } for %iintp=0,29 /AngsTabt 68 array def /AngsTabt [%31 angles = 360/22,5 + 1 = 16 + 1 000.0 1.00 0.00 0.00 %r00j 022.5 1.00 0.25 0.00 045.0 1.00 0.50 0.00 %r50j 067.5 1.00 0.75 0.00 090.0 1.00 1.00 0.00 %j00g 112.5 0.75 1.00 0.00 135.0 0.50 1.00 0.00 %j50g 157.5 0.25 1.00 0.00 180.0 0.00 1.00 0.00 %g00b 202.5 0.00 1.00 0.50 225.0 0.00 1.00 1.00 %g50b 247.5 0.00 0.50 1.00 270.0 0.00 0.00 1.00 %b00r 292.5 0.50 0.00 1.00 315.0 1.00 0.00 1.00 %b50r 337.5 1.00 0.00 0.50 360.0 1.00 0.00 0.00 %r00j ] def /XD65 95.05 def /YD65 100.0 def /ZD65 108.90 def /XD50 96.42 def /YD50 100.0 def /ZD50 82.49 def /XLI 0 def XLI 0 eq {/XLIx XD65 def /YLIx YD65 def /ZLIx ZD65 def} {/XLIx XD50 def /YLIx YD50 def /ZLIx ZD50 def} ifelse /xd 800 def /yd 800 def /xd5x xs5x 200 sub def /yd5x ys5x 200 sub def /j 0 def /i 0 def /xds 600 def /xmin 0000 def /xmax 10000 def /ymin 0000 def /ymax 10000 def /ISIN*ioG where {pop /ISIN*ioL ISIN*ioG def} {/ISIN*ioL 0 def} ifelse /ISOU*ioG where {pop /ISOU*ioL ISOU*ioG def} {/ISOU*ioL 0 def} ifelse /ISRL*ioL 0 def /ISIO*ioL ISIN*ioL def /ISIO*ioG where {pop /ISIO*ioG ISIO*ioL def} if /ISRL*ioG where {pop /ISRL*ioG ISRL*ioL def} if /xcharts xchartx def %needed for steering output in proc_ColSep*io /XYZa 24 array def /XYZaicc 24 array def /LAB*aicc 24 array def /xcharti xchartx def /RGBOLV 1 def %Interpretation rgb->olv* colorm 1 eq {proc_LAB*ioG proc_XYZsystem*ioG /xchartii 3 def proc_LAB*LABja*ioL proc_ColSep*ioG} {proc_LAB*ioL proc_XYZsystem*ioL /xchartii 3 def proc_LAB*LABja*ioL proc_ColSep*ioL } ifelse 00 1 00 {/xcharti exch def %BEG xcharti=00,29 0 setgray gsave 16 16 translate xcharti 1 le {0.0100 MM dup scale} if %with Frame xcharti 2 ge xcharti 6 le and {0.0108 MM dup scale} if %for measuerement xcharti 7 ge {0.0115 MM dup scale} if %tables xcharti 0 eq {/ausz 8 def /xchartt (A) def} if xcharti 1 eq {/ausz 8 def /xchartt (F) def} if xcharti 2 eq {/ausz 8 def /xchartt (F) def} if xcharti 3 eq {/ausz 1 def /xchartt (C) def} if xcharti 4 eq {/ausz 2 def /xchartt (M) def} if xcharti 5 eq {/ausz 3 def /xchartt (Y) def} if xcharti 6 eq {/ausz 7 def /xchartt (N) def} if xcharti 7 ge {/ausz 8 def /xchartt (F) def} if TK 0 setgray /Param (; cf1=0.90; nt=0.18; nx=1.0) def %200 -300 moveto (KE970-7N) show colorm 0 eq {( NP, ) show} {( FP, ) show} ifelse %(Page ) showen (Seite ) showde xcharti 1 add cvishow (/9, ) show LAB*TE 0 get show %Param show /xss 600 def /yss xss def /xmins 650 3 div 2.2 mul def /ymaxs 15800 def /xds 600 def /xsd xss xds sub 0.5 mul def /ysd xss xds sub 0.5 mul def xcharti 15 le {0.5 0.5 0.5 setrgbcolor 0 0 moveto 24500 0 rlineto 0 17000 rlineto 24500 neg 0 rlineto closepath fill} {1 1 1 setrgbcolor 0 0 moveto 24500 0 rlineto 0 17000 rlineto 24500 neg 0 rlineto closepath fill 0 0 0 setrgbcolor 0 0 moveto 24500 0 rlineto 0 17000 rlineto 24500 neg 0 rlineto closepath stroke} ifelse 0 0 0 setrgbcolor 20 setlinewidth xcharti 15 le {%xcharti<=15 500 3 div 2 mul /Times-ISOL1 FS 1 1 27 {/i exch def %i=1,27 /x xss 0.15 mul def /y 27.6 yss mul yss i mul sub def x y moveto nr1 i 1 sub get show } for %i=1,27 xcharti 6 le {/im 40 def} {/im 37 def} ifelse 1 1 im {/i exch def %i=1,im /x xss i mul 000 add def /y 27.5 yss mul def x y moveto tx1 i 1 sub get show } for %i=1,im } if %xcharti<=15 xcharti 16 ge {%xcharti>=16 %long loop %no test yet 0 1 7 {/k exch def %k=0,7 /xank 2750 k 1 add mul def xank 16600 moveto 0 -16300 rlineto stroke } for %k=0,7 /xp 200 def /yp 16700 def CBK xcharti 16 eq xcharti 17 eq or {xp yp moveto (% olv*_8bit, 9x9x9 grid) show} if xcharti 18 ge xcharti 25 le and {%long loop 18<=xcharti<=25 xcharti 18 eq xcharti 19 eq or {xp 150 sub yp moveto (%LAB*a,CIE) show} if xcharti 20 eq xcharti 21 eq or {xp 150 sub yp moveto (%LAB*a,ICC) show} if xcharti 22 eq xcharti 23 eq or {xp 150 sub yp moveto (%LAB*a_8bit,CIE) show} if xcharti 24 eq xcharti 25 eq or {xp 150 sub yp moveto (%LAB*a_8bit,ICC) show} if 0 1 07 {/i exch def %i=0,7 /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def /X* {LAB*a i30 get 16 add 116 div LAB*a i31 get 500 div add} bind def /Y* {LAB*a i30 get 16 add 116 div} bind def /Z* {LAB*a i30 get 16 add 116 div LAB*a i32 get 200 div sub} bind def XYZa i30 X* DecodeXYZ* XLIx mul put XYZa i31 Y* DecodeXYZ* YLIx mul put XYZa i32 Z* DecodeXYZ* ZLIx mul put } for %i=0,7 0 1 07 {/i exch def %i=0,7 /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def /Xnmw XYZa 21 get def /Ynmw XYZa 22 get def /Znmw XYZa 23 get def XYZaicc i30 XYZa i30 get Xnmw div XLIx mul put XYZaicc i31 XYZa i31 get Ynmw div YLIx mul put XYZaicc i32 XYZa i32 get Znmw div ZLIx mul put /XQ XYZaicc i30 get XLIx div def /YQ XYZaicc i31 get YLIx div def /ZQ XYZaicc i32 get ZLIx 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*aicc i30 YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse put LAB*aicc 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*aicc 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,7 %first line LAB* 0 1 7 {/k exch def %k=0,7 /xani k 1 add 2750 mul def xani 100 sub yp moveto ColNamesolv* k get show (:) show /xani 200 k 1 add 2750 mul add def /i30 k 3 mul def /i31 i30 1 add def /i32 i30 2 add def xcharti 18 eq xcharti 19 eq or {%xcharti=18,19 xani 0000 add yp moveto LAB*a i30 get cvsshow1 xani 0800 add yp moveto LAB*a i31 get cvsshow1 xani 1600 add yp moveto LAB*a i32 get cvsshow1 } if %xcharti=18,19 xcharti 20 eq xcharti 21 eq or {%xcharti=20,21 xani 0000 add yp moveto LAB*aicc i30 get cvsshow1 xani 0800 add yp moveto LAB*aicc i31 get cvsshow1 xani 1600 add yp moveto LAB*aicc i32 get cvsshow1 } if %xcharti=20,21 xcharti 22 eq xcharti 23 eq or {%xcharti=22,23 xani 0000 add yp moveto LAB*a i30 get 2.55 mul cvishow xani 0800 add yp moveto LAB*a i31 get 1.28 mul 128 add cvishow xani 1600 add yp moveto LAB*a i32 get 1.28 mul 128 add cvishow } if %xcharti=22,23 xcharti 24 eq xcharti 25 eq or {%xcharti=24,25 xani 0000 add yp moveto LAB*aicc i30 get 2.55 mul cvishow xani 0800 add yp moveto LAB*aicc i31 get 1.28 mul 128 add cvishow xani 1600 add yp moveto LAB*aicc i32 get 1.28 mul 128 add cvishow } if %xcharti=24,25 } for %k=0,7 %last line XYZ /yp 16400 81 202 mul sub def xcharti 18 eq xcharti 19 eq or {xp yp moveto (%XYZa,CIE) show} if xcharti 20 eq xcharti 21 eq or {xp yp moveto (%XYZa,ICC) show} if xcharti 22 eq xcharti 23 eq or {xp yp moveto (%XYZa_8bit,CIE) show} if xcharti 24 eq xcharti 25 eq or {xp yp moveto (%XYZa_8bit,ICC) show} if 0 1 7 {/i exch def %i=0,7 /xani i 1 add 2750 mul def xani 100 sub yp moveto ColNamesolv* i get show (:) show /xani 200 i 1 add 2750 mul add def /i30 i 3 mul def /i31 i30 1 add def /i32 i30 2 add def xcharti 18 eq xcharti 19 eq or {%xcharti=18,19 xani 0000 add yp moveto XYZa i30 get cvsshow1 xani 0800 add yp moveto XYZa i31 get cvsshow1 xani 1600 add yp moveto XYZa i32 get cvsshow1 } if %xcharti=18,19 xcharti 20 eq xcharti 21 eq or {%xcharti=20,21 xani 0000 add yp moveto XYZaicc i30 get cvsshow1 xani 0800 add yp moveto XYZaicc i31 get cvsshow1 xani 1600 add yp moveto XYZaicc i32 get cvsshow1 } if %xcharti=20,21 xcharti 22 eq xcharti 23 eq or {%xcharti=22,23 xani 0000 add yp moveto XYZa i30 get 2.55 mul cvishow xani 0800 add yp moveto XYZa i31 get 2.55 mul cvishow xani 1600 add yp moveto XYZa i32 get 2.55 mul cvishow } if %xcharti=22,23 xcharti 24 eq xcharti 25 eq or {%xcharti=24,25 xani 0000 add yp moveto XYZaicc i30 get 2.55 mul cvishow xani 0800 add yp moveto XYZaicc i31 get 2.55 mul cvishow xani 1600 add yp moveto XYZaicc i32 get 2.55 mul cvishow } if %xcharti=24,25 } for %i=0,7 } if %long loop 18<=xcharti<=25 xcharti 26 eq xcharti 27 eq or {xp yp moveto (% olv'*_8bit, 9x9x9 grid) show} if xcharti 28 eq xcharti 29 eq or {xp yp moveto (% cmyn'*_8bit, 9x9x9 grid) show} if } if %xcharti>=16 %long loop %no test yet CBK /IMODE 0 def %input rgb for output LAB* %row no.1 and 2: 9xrgb /imax 08 def /jmax 08 def /kmax 08 def /kx 0 def 0 1 kmax {/k exch def %beg k=0,08 /k0 k 3 idiv def /k1 k k0 3 mul sub def /xadd k1 xss 9 mul mul def /yadd k0 xss 9 mul mul def 0 1 jmax {/j exch def %beg j=0,jmax 0 1 imax {/i exch def %beg i=0,imax /n i j 9 mul add k 81 mul add def /j1 j k1 9 mul add def /j1$ tx1 j1 get def /i1 i 1 add k0 9 mul add def /xa xmins j xss mul add xadd add xsd add def /ya ymaxs i yss mul sub yadd sub ysd add def /r*x k kmax div def /g*x j jmax div def /b*x i imax div def /tLAB 1 def %interpretation as rgb* r*x g*x b*x %STOPy proc_olv3*s_to_olv3*u*dd_de_H*M_LAB*Ma_Fa*ioL %ed_ee %STOPz /o3*ed0 o3*dd def /l3*ed0 l3*dd def /v3*ed0 v3*dd def /o3*ee0 o3*de def /l3*ee0 l3*de def /v3*ee0 v3*de def /L*Fa0e L*Fa def /A*Fa0e A*Fa def /B*Fa0e B*Fa def /C*Fa0e C*Fa def /H*Fa0e H*Fa def /u*edMa10 u*edMa1 def /u*eeMa10 u*eeMa1 def /u*edMai0 u*edMai def /u*eeMai0 u*eeMai def /u*edMa20 u*edMa2 def /u*eeMa20 u*eeMa2 def %interpretation as olv* r*x g*x b*x proc_olv3*s_to_olv3*u*dd_de_H*M_LAB*Ma_Fa*ioL %dd_de /o3*dd0 o3*dd def /l3*dd0 l3*dd def /v3*dd0 v3*dd def /o3*de0 o3*de def /l3*de0 l3*de def /v3*de0 v3*de def /L*Fa0 L*Fa def /A*Fa0 A*Fa def /B*Fa0 B*Fa def /C*Fa0 C*Fa def /H*Fa0 H*Fa def /u*ddMa10 u*ddMa1 def /u*deMa10 u*deMa1 def /u*ddMai0 u*ddMai def /u*deMai0 u*deMai def /u*ddMa20 u*ddMa2 def /u*deMa20 u*deMa2 def /c*rs0 c*rs def /t*s0 t*s def /l*s0 l*rs def /h*s0 H*Fa0 360 div def /i*s0 1 n*s sub def /a*sr A*Wior A*Nior sub l*s0 mul def /b*sr B*Wior B*Nior sub l*s0 mul def /L*Fa0x L*Fa0 def /A*Fa0x A*Fa0 A*Nior add a*sr add def /B*Fa0x B*Fa0 B*Nior add b*sr add def /r*x DEintp 0 eq {o3*dd0} {o3*ed0} ifelse def /g*x DEintp 0 eq {l3*dd0} {l3*ed0} ifelse def /b*x DEintp 0 eq {v3*dd0} {v3*ed0} ifelse def r*x g*x b*x setrgbcolor %only to calculate olv'*3, cmyn'*4 for elementary or device /os3*Fa0 o* def /ls3*Fa0 l* def /vs3*Fa0 v* def /cs4*Fa0 c4*Fa def /ms4*Fa0 m4*Fa def /ys4*Fa0 y4*Fa def /ns4*Fa0 n4*Fa def xcharti 6 le {r*x g*x b*x setrgbcolor xa ya xds dup rec fill 1 r*x sub 1 g*x sub 1 b*x sub 0 setcmykcolor xa ya xds 0.5 mul dup rem fill} if xcharti 7 ge xcharti 15 le and {1 1 1 setrgbcolor xa ya xds xds rec fill 0 0 0 setrgbcolor xa ya xds xds rec stroke} if xcharti 0 eq {%xcharti=0 [100 300] 0 setdash r*x 0 eq g*x 0 eq and b*x 0 eq and {1 setgray} {0 setgray} ifelse xa ya xds 0.5 mul dup rem stroke [ ] 0 setdash } if %xcharti=0 xcharti 7 ge xcharti 15 le and {0 0 0 setrgbcolor /xan xa xds 0.00 mul sub def /yan ya xds 0.25 mul sub def} if xcharti 7 eq {xan yan 600 add moveto DEintp 0 eq {o3*dd0}{o3*ed0} ifelse cvsshow2 xan yan 400 add moveto DEintp 0 eq {l3*dd0}{l3*ed0} ifelse cvsshow2 xan yan 200 add moveto DEintp 0 eq {v3*dd0}{v3*ed0} ifelse cvsshow2} if xcharti 8 eq {xan yan 600 add moveto DEintp 0 eq {o3*de0}{o3*dd0} ifelse cvsshow2 xan yan 400 add moveto DEintp 0 eq {l3*de0}{l3*dd0} ifelse cvsshow2 xan yan 200 add moveto DEintp 0 eq {v3*de0}{v3*dd0} ifelse cvsshow2} if xcharti 9 eq {xan yan 600 add moveto DEintp 0 eq {L*Fa0}{L*Fa0e} ifelse cvsshow1 xan yan 400 add moveto DEintp 0 eq {A*Fa0}{A*Fa0e} ifelse cvsshow1 xan yan 200 add moveto DEintp 0 eq {B*Fa0}{B*Fa0e} ifelse cvsshow1} if xcharti 10 eq {xan yan 600 add moveto DEintp 0 eq {L*Fa0}{L*Fa0e} ifelse cvsshow1 xan yan 400 add moveto DEintp 0 eq {C*Fa0}{C*Fa0e} ifelse cvsshow1 xan yan 200 add moveto DEintp 0 eq {H*Fa0}{H*Fa0e} ifelse cvishow} if xcharti 11 eq {xan yan 600 add moveto t*s0 cvsshow2 xan yan 400 add moveto c*rs0 cvsshow2 xan yan 200 add moveto h*s0 cvsshow2} if xcharti 12 eq {xan yan 600 add moveto i*s0 cvsshow2 xan yan 400 add moveto c*rs0 cvsshow2 xan yan 200 add moveto DEintp 0 eq {u*ddMa10 show u*ddMai0 9 le {(0) show} if u*ddMai0 cvishow u*ddMa20 show} {u*eeMa10 show u*eeMai0 9 le {(0) show} if u*eeMai0 cvishow u*eeMa20 show} ifelse } if xcharti 13 eq {xan yan 600 add moveto L*Fa0x cvsshow1 xan yan 400 add moveto A*Fa0x cvsshow1 xan yan 200 add moveto B*Fa0x cvishow} if xcharti 14 eq {xan yan 600 add moveto os3*Fa0 cvsshow2 xan yan 400 add moveto ls3*Fa0 cvsshow2 xan yan 200 add moveto vs3*Fa0 cvsshow2} if xcharti 15 eq {CBKK xan yan 610 add moveto cs4*Fa0 cvsshow2 xan yan 460 add moveto ms4*Fa0 cvsshow2 xan yan 320 add moveto ys4*Fa0 cvsshow2 xan yan 180 add moveto ns4*Fa0 cvsshow2 CBK} if 0 0 0 setrgbcolor /ijtab i j 9 mul add def /xani 200 k kx 3 eq {0}{kx} ifelse 3 mul add 2750 mul add def /yani 16400 ijtab 202 mul sub def xcharti 16 eq kx 2 le and xcharti 17 eq kx 3 eq and or {%xcharti=16; %xcharti=17 or xani 0000 add yani moveto DEintp 0 eq {o3*dd0}{o3*ed0} ifelse 255 mul cvishow xani 0800 add yani moveto DEintp 0 eq {l3*dd0}{l3*ed0} ifelse 255 mul cvishow xani 1600 add yani moveto DEintp 0 eq {v3*dd0}{v3*ed0} ifelse 255 mul cvishow } if %xcharti=16; %xcharti=17 or xcharti 18 eq kx 2 le and xcharti 19 eq kx 3 eq and or {%xcharti=18; %xcharti=19 or xani 0000 add yani moveto DEintp 0 eq {L*Fa0}{L*Fa0e} ifelse cvsshow1 xani 0800 add yani moveto DEintp 0 eq {A*Fa0}{A*Fa0e} ifelse cvsshow1 xani 1600 add yani moveto DEintp 0 eq {B*Fa0}{B*Fa0e} ifelse cvsshow1 } if %xcharti=18; %xcharti=19 or xcharti 22 eq kx 2 le and xcharti 23 eq kx 3 eq and or {%xcharti=22; %xcharti=23 or xani 0000 add yani moveto DEintp 0 eq {L*Fa0}{L*Fa0e} ifelse 2.55 mul cvishow xani 0800 add yani moveto DEintp 0 eq {A*Fa0}{A*Fa0e} ifelse 1.28 mul 128 add cvishow xani 1600 add yani moveto DEintp 0 eq {B*Fa0}{B*Fa0e} ifelse 1.28 mul 128 add cvishow } if %xcharti=22; %xcharti=23 or xcharti 20 eq kx 2 le and xcharti 21 eq kx 3 eq and or xcharti 24 eq kx 2 le and xcharti 25 eq kx 3 eq and or or {%xcharti=20,21 or 24,25 /X* {L*Fa0 16 add 116 div A*Fa0 500 div add} bind def /Y* {L*Fa0 16 add 116 div} bind def /Z* {L*Fa0 16 add 116 div B*Fa0 200 div sub} bind def /Xacie X* DecodeXYZ* XLIx mul def /Yacie Y* DecodeXYZ* YLIx mul def /Zacie Z* DecodeXYZ* ZLIx mul def /Xnmw XYZa 21 get def /Ynmw XYZa 22 get def /Znmw XYZa 23 get def /Xaicc Xacie Xnmw div XLIx mul def /Yaicc Yacie Ynmw div YLIx mul def /Zaicc Zacie Znmw div ZLIx mul def /XQ Xaicc XLIx div def /YQ Yaicc YLIx div def /ZQ Zaicc ZLIx 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 /L*aicc YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse def /A*aicc 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 def /B*aicc 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 def xcharti 20 eq kx 2 le and xcharti 21 eq kx 3 eq and or {%xcharti=20, %xcharti=21 or xani 0000 add yani moveto L*aicc cvsshow1 xani 0800 add yani moveto A*aicc cvsshow1 xani 1600 add yani moveto B*aicc cvsshow1 } if %xcharti=20, %xcharti=21, kx=0 or xcharti 24 eq kx 2 le and xcharti 25 eq kx 3 eq and or {%xcharti=24, %xcharti=25 or xani 0000 add yani moveto L*aicc 2.55 mul cvishow xani 0800 add yani moveto A*aicc 1.28 mul 128 add cvishow xani 1600 add yani moveto B*aicc 1.28 mul 128 add cvishow } if %xcharti=24, %xcharti=21, kx=0 or } if %xcharti=20,21 or 24,25 xcharti 26 eq kx 2 le and xcharti 27 eq kx 3 eq and or {%xcharti=26, %xcharti=27 or xani 0000 add yani moveto os3*Fa0 255 mul cvishow xani 0800 add yani moveto ls3*Fa0 255 mul cvishow xani 1600 add yani moveto vs3*Fa0 255 mul cvishow } if %xcharti=26, %xcharti=27, kx=0 or xcharti 28 eq kx 2 le and xcharti 29 eq kx 3 eq and or {%xcharti=28, %xcharti=29 or xani 0000 add yani moveto cs4*Fa0 255 mul cvishow xani 0600 add yani moveto ms4*Fa0 255 mul cvishow xani 1200 add yani moveto ys4*Fa0 255 mul cvishow xani 1800 add yani moveto ns4*Fa0 255 mul cvishow } if %xcharti=28, %xcharti=29 } for %end i=0,jmax } for %end j=0,jmax } for %end k=0,kmax CBK %3x rgb_cmy /id 1 8 div def /rijn 81 array def %for intermediate storage /gijn 81 array def /bijn 81 array def /lmax 2 def /n 728 def /kx 3 def 0 1 lmax {/l exch def %beg k=0,kmax /xadd kx xss 9 mul mul def /yadd l yss 9 mul mul def %for intermediate storage of l=0,lmax 0 1 01 {/jchart exch def %jchart=0,1 /xchartj l jchart 3 mul add def 0 1 08 {/j exch def %j=0,7 /im 8 j sub def jchart 1 im {/i exch def %i=0,8 /ia 1 id j mul sub def /argb ia def /brgb ia i id mul sub def xchartj 0 eq {/r argb def /g brgb def /b brgb def} if xchartj 1 eq {/r argb def /g argb def /b brgb def} if xchartj 2 eq {/r brgb def /g argb def /b brgb def} if xchartj 3 eq {/r brgb def /g argb def /b argb def} if xchartj 4 eq {/r brgb def /g brgb def /b argb def} if xchartj 5 eq {/r argb def /g brgb def /b argb def} if jchart 0 eq {/in i j add def /jn j def} {/in j def /jn i j add def} ifelse rijn in 9 mul jn add r put gijn in 9 mul jn add g put bijn in 9 mul jn add b put } for %i=0,7 } for %j=0,8 } for %jchart=0,1 %for output of l=0,lmax 0 1 08 {/j exch def %j=0,8 0 1 08 {/i exch def %i=0,8 /r*x rijn i j 9 mul add get def /g*x gijn i j 9 mul add get def /b*x bijn i j 9 mul add get def /xa xmins xss j mul add xadd add xsd add def /ya ymaxs xss i mul sub yadd sub ysd add def /tLAB 1 def %interpretation as rgb* r*x g*x b*x proc_olv3*s_to_olv3*u*dd_de_H*M_LAB*Ma_Fa*ioL %ed_ee /o3*ed0 o3*dd def /l3*ed0 l3*dd def /v3*ed0 v3*dd def /o3*ee0 o3*de def /l3*ee0 l3*de def /v3*ee0 v3*de def /L*Fa0e L*Fa def /A*Fa0e A*Fa def /B*Fa0e B*Fa def /C*Fa0e C*Fa def /H*Fa0e H*Fa def /u*edMa10 u*edMa1 def /u*eeMa10 u*eeMa1 def /u*edMai0 u*edMai def /u*eeMai0 u*eeMai def /u*edMa20 u*edMa2 def /u*eeMa20 u*eeMa2 def %interpretation as olv* r*x g*x b*x proc_olv3*s_to_olv3*u*dd_de_H*M_LAB*Ma_Fa*ioL %dd_de /o3*dd0 o3*dd def /l3*dd0 l3*dd def /v3*dd0 v3*dd def /o3*de0 o3*de def /l3*de0 l3*de def /v3*de0 v3*de def /L*Fa0 L*Fa def /A*Fa0 A*Fa def /B*Fa0 B*Fa def /C*Fa0 C*Fa def /H*Fa0 H*Fa def /u*ddMa10 u*ddMa1 def /u*deMa10 u*deMa1 def /u*ddMai0 u*ddMai def /u*deMai0 u*deMai def /u*ddMa20 u*ddMa2 def /u*deMa20 u*deMa2 def /c*rs0 c*rs def /t*s0 t*s def /l*s0 l*rs def /h*s0 H*Fa0 360 div def /i*s0 1 n*s sub def /a*sr A*Wior A*Nior sub l*s0 mul def /b*sr B*Wior B*Nior sub l*s0 mul def /L*Fa0x L*Fa0 def /A*Fa0x A*Fa0 A*Nior add a*sr add def /B*Fa0x B*Fa0 B*Nior add b*sr add def /r*x DEintp 0 eq {o3*dd0} {o3*ed0} ifelse def /g*x DEintp 0 eq {l3*dd0} {l3*ed0} ifelse def /b*x DEintp 0 eq {v3*dd0} {v3*ed0} ifelse def r*x g*x b*x setrgbcolor %only to calculate olv'*3, cmyn'*4 for elementary or device /os3*Fa0 o* def /ls3*Fa0 l* def /vs3*Fa0 v* def /cs4*Fa0 c4*Fa def /ms4*Fa0 m4*Fa def /ys4*Fa0 y4*Fa def /ns4*Fa0 n4*Fa def xcharti 6 le {r*x g*x b*x setrgbcolor xa ya xds dup rec fill 1 r*x sub 1 g*x sub 1 b*x sub 0 setcmykcolor xa ya xds 0.5 mul dup rem fill} if xcharti 7 ge xcharti 15 le and {1 1 1 setrgbcolor xa ya xds xds rec fill 0 0 0 setrgbcolor xa ya xds xds rec stroke} if xcharti 0 eq {%xcharti=0 [100 300] 0 setdash r*x 0 eq g*x 0 eq and b*x 0 eq and {1 setgray} {0 setgray} ifelse xa ya xds 0.5 mul dup rem stroke [ ] 0 setdash } if %xcharti=0 xcharti 7 ge xcharti 15 le and {0 0 0 setrgbcolor /xan xa xds 0.00 mul sub def /yan ya xds 0.25 mul sub def} if xcharti 7 eq {xan yan 600 add moveto DEintp 0 eq {o3*dd0}{o3*ed0} ifelse cvsshow2 xan yan 400 add moveto DEintp 0 eq {l3*dd0}{l3*ed0} ifelse cvsshow2 xan yan 200 add moveto DEintp 0 eq {v3*dd0}{v3*ed0} ifelse cvsshow2} if xcharti 8 eq {xan yan 600 add moveto DEintp 0 eq {o3*de0}{o3*dd0} ifelse cvsshow2 xan yan 400 add moveto DEintp 0 eq {l3*de0}{l3*dd0} ifelse cvsshow2 xan yan 200 add moveto DEintp 0 eq {v3*de0}{v3*dd0} ifelse cvsshow2} if xcharti 9 eq {xan yan 600 add moveto DEintp 0 eq {L*Fa0}{L*Fa0e} ifelse cvsshow1 xan yan 400 add moveto DEintp 0 eq {A*Fa0}{A*Fa0e} ifelse cvsshow1 xan yan 200 add moveto DEintp 0 eq {B*Fa0}{B*Fa0e} ifelse cvsshow1} if xcharti 10 eq {xan yan 600 add moveto DEintp 0 eq {L*Fa0}{L*Fa0e} ifelse cvsshow1 xan yan 400 add moveto DEintp 0 eq {C*Fa0}{C*Fa0e} ifelse cvsshow1 xan yan 200 add moveto DEintp 0 eq {H*Fa0}{H*Fa0e} ifelse cvishow} if xcharti 11 eq {xan yan 600 add moveto t*s0 cvsshow2 xan yan 400 add moveto c*rs0 cvsshow2 xan yan 200 add moveto h*s0 cvsshow2} if xcharti 12 eq {xan yan 600 add moveto i*s0 cvsshow2 xan yan 400 add moveto c*rs0 cvsshow2 xan yan 200 add moveto DEintp 0 eq {u*ddMa10 show u*ddMai0 9 le {(0) show} if u*ddMai0 cvishow u*ddMa20 show} {u*eeMa10 show u*eeMai0 9 le {(0) show} if u*eeMai0 cvishow u*eeMa20 show} ifelse } if xcharti 13 eq {xan yan 600 add moveto L*Fa0x cvsshow1 xan yan 400 add moveto A*Fa0x cvsshow1 xan yan 200 add moveto B*Fa0x cvishow} if xcharti 14 eq {xan yan 600 add moveto os3*Fa0 cvsshow2 xan yan 400 add moveto ls3*Fa0 cvsshow2 xan yan 200 add moveto vs3*Fa0 cvsshow2} if xcharti 15 eq {CBKK xan yan 610 add moveto cs4*Fa0 cvsshow2 xan yan 460 add moveto ms4*Fa0 cvsshow2 xan yan 320 add moveto ys4*Fa0 cvsshow2 xan yan 180 add moveto ns4*Fa0 cvsshow2 CBK} if CBK /k l def 0 0 0 setrgbcolor /ijtab i j 9 mul add def /xani 200 k kx 3 eq {0}{kx} ifelse 3 mul add 2750 mul add def /yani 16400 ijtab 202 mul sub def xcharti 16 eq kx 2 le and xcharti 17 eq kx 3 eq and or {%xcharti=16; %xcharti=17 or xani 0000 add yani moveto DEintp 0 eq {o3*dd0}{o3*ed0} ifelse 255 mul cvishow xani 0800 add yani moveto DEintp 0 eq {l3*dd0}{l3*ed0} ifelse 255 mul cvishow xani 1600 add yani moveto DEintp 0 eq {v3*dd0}{v3*ed0} ifelse 255 mul cvishow } if %xcharti=16; %xcharti=17 or xcharti 18 eq kx 2 le and xcharti 19 eq kx 3 eq and or {%xcharti=18; %xcharti=19 or xani 0000 add yani moveto DEintp 0 eq {L*Fa0}{L*Fa0e} ifelse cvsshow1 xani 0800 add yani moveto DEintp 0 eq {A*Fa0}{A*Fa0e} ifelse cvsshow1 xani 1600 add yani moveto DEintp 0 eq {B*Fa0}{B*Fa0e} ifelse cvsshow1 } if %xcharti=18; %xcharti=19 or xcharti 22 eq kx 2 le and xcharti 23 eq kx 3 eq and or {%xcharti=22; %xcharti=23 or xani 0000 add yani moveto DEintp 0 eq {L*Fa0}{L*Fa0e} ifelse 2.55 mul cvishow xani 0800 add yani moveto DEintp 0 eq {A*Fa0}{A*Fa0e} ifelse 1.28 mul 128 add cvishow xani 1600 add yani moveto DEintp 0 eq {B*Fa0}{B*Fa0e} ifelse 1.28 mul 128 add cvishow } if %xcharti=22; %xcharti=23 or xcharti 20 eq kx 2 le and xcharti 21 eq kx 3 eq and or xcharti 24 eq kx 2 le and xcharti 25 eq kx 3 eq and or or {%xcharti=20,21 or 24,25 /X* {L*Fa0 16 add 116 div A*Fa0 500 div add} bind def /Y* {L*Fa0 16 add 116 div} bind def /Z* {L*Fa0 16 add 116 div B*Fa0 200 div sub} bind def /Xacie X* DecodeXYZ* XLIx mul def /Yacie Y* DecodeXYZ* YLIx mul def /Zacie Z* DecodeXYZ* ZLIx mul def /Xnmw XYZa 21 get def /Ynmw XYZa 22 get def /Znmw XYZa 23 get def /Xaicc Xacie Xnmw div XLIx mul def /Yaicc Yacie Ynmw div YLIx mul def /Zaicc Zacie Znmw div ZLIx mul def /XQ Xaicc XLIx div def /YQ Yaicc YLIx div def /ZQ Zaicc ZLIx 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 /L*aicc YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse def /A*aicc 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 def /B*aicc 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 def xcharti 20 eq kx 2 le and xcharti 21 eq kx 3 eq and or {%xcharti=20, %xcharti=21 or xani 0000 add yani moveto L*aicc cvsshow1 xani 0800 add yani moveto A*aicc cvsshow1 xani 1600 add yani moveto B*aicc cvsshow1 } if %xcharti=20, %xcharti=21, kx=0 or xcharti 24 eq kx 2 le and xcharti 25 eq kx 3 eq and or {%xcharti=24, %xcharti=25 or xani 0000 add yani moveto L*aicc 2.55 mul cvishow xani 0800 add yani moveto A*aicc 1.28 mul 128 add cvishow xani 1600 add yani moveto B*aicc 1.28 mul 128 add cvishow } if %xcharti=24, %xcharti=21, kx=0 or } if %xcharti=20,21 or 24,25 xcharti 26 eq kx 2 le and xcharti 27 eq kx 3 eq and or {%xcharti=26, %xcharti=27 or xani 0000 add yani moveto os3*Fa0 255 mul cvishow xani 0800 add yani moveto ls3*Fa0 255 mul cvishow xani 1600 add yani moveto vs3*Fa0 255 mul cvishow } if %xcharti=26, %xcharti=27, kx=0 or xcharti 28 eq kx 2 le and xcharti 29 eq kx 3 eq and or {%xcharti=28, %xcharti=29 or xani 0000 add yani moveto cs4*Fa0 255 mul cvishow xani 0600 add yani moveto ms4*Fa0 255 mul cvishow xani 1200 add yani moveto ys4*Fa0 255 mul cvishow xani 1800 add yani moveto ns4*Fa0 255 mul cvishow } if %xcharti=28, %xcharti=29 } for %i=0,7 } for %j=0,8 } for %end l=0,lmax %6wRGBCMY /n 971 /lmax 03 def %4 rows with geys /kmax 1 def %9 or 16 steps 0 1 kmax {/k exch def % k 0 eq {/jmax 08 def} {/jmax 15 def} ifelse 0 1 lmax {/l exch def %beg l=0,lmax /xadd 36 l add xss mul def /yadd k 9 xss mul mul def /j1 l 36 add def /j1$ tx1 j1 get def 0 1 jmax {/j exch def %j=0,08 /n n 1 add def /i1 j k 9 mul add 1 add def %9 steps, 16 steps /argb j jmax div def /xa xmins xadd add xsd add def /ya ymaxs xss j mul sub yadd sub ysd add def /r*x argb def /g*x argb def /b*x argb def /tLAB 1 def %interpretation as rgb* r*x g*x b*x proc_olv3*s_to_olv3*u*dd_de_H*M_LAB*Ma_Fa*ioL %ed_ee /o3*ed0 o3*dd def /l3*ed0 l3*dd def /v3*ed0 v3*dd def /o3*ee0 o3*de def /l3*ee0 l3*de def /v3*ee0 v3*de def /L*Fa0e L*Fa def /A*Fa0e A*Fa def /B*Fa0e B*Fa def /C*Fa0e C*Fa def /H*Fa0e H*Fa def /u*edMa10 u*edMa1 def /u*eeMa10 u*eeMa1 def /u*edMai0 u*edMai def /u*eeMai0 u*eeMai def /u*edMa20 u*edMa2 def /u*eeMa20 u*eeMa2 def %interpretation as olv* r*x g*x b*x proc_olv3*s_to_olv3*u*dd_de_H*M_LAB*Ma_Fa*ioL %dd_de /o3*dd0 o3*dd def /l3*dd0 l3*dd def /v3*dd0 v3*dd def /o3*de0 o3*de def /l3*de0 l3*de def /v3*de0 v3*de def /L*Fa0 L*Fa def /A*Fa0 A*Fa def /B*Fa0 B*Fa def /C*Fa0 C*Fa def /H*Fa0 H*Fa def /u*ddMa10 u*ddMa1 def /u*deMa10 u*deMa1 def /u*ddMai0 u*ddMai def /u*deMai0 u*deMai def /u*ddMa20 u*ddMa2 def /u*deMa20 u*deMa2 def /c*rs0 c*rs def /t*s0 t*s def /l*s0 l*rs def /h*s0 H*Fa0 360 div def /i*s0 1 n*s sub def /a*sr A*Wior A*Nior sub l*s0 mul def /b*sr B*Wior B*Nior sub l*s0 mul def /L*Fa0x L*Fa0 def /A*Fa0x A*Fa0 A*Nior add a*sr add def /B*Fa0x B*Fa0 B*Nior add b*sr add def /r*x DEintp 0 eq {o3*dd0} {o3*ed0} ifelse def /g*x DEintp 0 eq {l3*dd0} {l3*ed0} ifelse def /b*x DEintp 0 eq {v3*dd0} {v3*ed0} ifelse def r*x g*x b*x setrgbcolor %only to calculate olv'*3, cmyn'*4 for elementary or device /os3*Fa0 o* def /ls3*Fa0 l* def /vs3*Fa0 v* def /cs4*Fa0 c4*Fa def /ms4*Fa0 m4*Fa def /ys4*Fa0 y4*Fa def /ns4*Fa0 n4*Fa def xcharti 6 le {/xrgb r*x def l 0 eq {0 0 0 1 xrgb sub setcmykcolor} if l 1 eq {xrgb setgray} if l 2 eq {1 xrgb sub dup dup 0 setcmykcolor} if l 3 eq {xrgb dup dup setrgbcolor} if xa ya xds dup rec fill 1 r*x sub 1 g*x sub 1 b*x sub 0 setcmykcolor xa ya xds 0.5 mul dup rem fill} if xcharti 7 ge xcharti 15 le and {1 1 1 setrgbcolor xa ya xds xds rec fill 0 0 0 setrgbcolor xa ya xds xds rec stroke} if xcharti 0 eq {%xcharti=0 [100 300] 0 setdash r*x 0 eq g*x 0 eq and b*x 0 eq and {1 setgray} {0 setgray} ifelse xa ya xds 0.5 mul dup rem stroke [ ] 0 setdash } if %xcharti=0 xcharti 7 ge xcharti 15 le and {0 0 0 setrgbcolor /xan xa xds 0.00 mul sub def /yan ya xds 0.25 mul sub def} if xcharti 7 eq {xan yan 600 add moveto DEintp 0 eq {o3*dd0}{o3*ed0} ifelse cvsshow2 xan yan 400 add moveto DEintp 0 eq {l3*dd0}{l3*ed0} ifelse cvsshow2 xan yan 200 add moveto DEintp 0 eq {v3*dd0}{v3*ed0} ifelse cvsshow2} if xcharti 8 eq {xan yan 600 add moveto DEintp 0 eq {o3*de0}{o3*dd0} ifelse cvsshow2 xan yan 400 add moveto DEintp 0 eq {l3*de0}{l3*dd0} ifelse cvsshow2 xan yan 200 add moveto DEintp 0 eq {v3*de0}{v3*dd0} ifelse cvsshow2} if xcharti 9 eq {xan yan 600 add moveto DEintp 0 eq {L*Fa0}{L*Fa0e} ifelse cvsshow1 xan yan 400 add moveto DEintp 0 eq {A*Fa0}{A*Fa0e} ifelse cvsshow1 xan yan 200 add moveto DEintp 0 eq {B*Fa0}{B*Fa0e} ifelse cvsshow1} if xcharti 10 eq {xan yan 600 add moveto DEintp 0 eq {L*Fa0}{L*Fa0e} ifelse cvsshow1 xan yan 400 add moveto DEintp 0 eq {C*Fa0}{C*Fa0e} ifelse cvsshow1 xan yan 200 add moveto DEintp 0 eq {H*Fa0}{H*Fa0e} ifelse cvishow} if xcharti 11 eq {xan yan 600 add moveto t*s0 cvsshow2 xan yan 400 add moveto c*rs0 cvsshow2 xan yan 200 add moveto h*s0 cvsshow2} if xcharti 12 eq {xan yan 600 add moveto i*s0 cvsshow2 xan yan 400 add moveto c*rs0 cvsshow2 xan yan 200 add moveto DEintp 0 eq {u*ddMa10 show u*ddMai0 9 le {(0) show} if u*ddMai0 cvishow u*ddMa20 show} {u*eeMa10 show u*eeMai0 9 le {(0) show} if u*eeMai0 cvishow u*eeMa20 show} ifelse } if xcharti 13 eq {xan yan 600 add moveto L*Fa0x cvsshow1 xan yan 400 add moveto A*Fa0x cvsshow1 xan yan 200 add moveto B*Fa0x cvishow} if xcharti 14 eq {xan yan 600 add moveto os3*Fa0 cvsshow2 xan yan 400 add moveto ls3*Fa0 cvsshow2 xan yan 200 add moveto vs3*Fa0 cvsshow2} if xcharti 15 eq {CBKK xan yan 610 add moveto cs4*Fa0 cvsshow2 xan yan 460 add moveto ms4*Fa0 cvsshow2 xan yan 320 add moveto ys4*Fa0 cvsshow2 xan yan 180 add moveto ns4*Fa0 cvsshow2 CBK} if CBK /kx 3 k add def /jmax1 jmax 1 add def 0 0 0 setrgbcolor xcharti 17 eq {%xcharti=17 /ijtab j l jmax1 mul add def /xani 200 kx 2750 mul add def /yani 16400 ijtab 202 mul sub def xani 0000 add yani moveto DEintp 0 eq {o3*dd0}{o3*ed0} ifelse 255 mul cvishow xani 0800 add yani moveto DEintp 0 eq {l3*dd0}{l3*ed0} ifelse 255 mul cvishow xani 1600 add yani moveto DEintp 0 eq {v3*dd0}{v3*ed0} ifelse 255 mul cvishow } if %xcharti=17 xcharti 19 eq {%xcharti=19 /ijtab j l jmax1 mul add def /xani 200 kx 2750 mul add def /yani 16400 ijtab 202 mul sub def xani 0000 add yani moveto DEintp 0 eq {L*Fa0}{L*Fa0e} ifelse cvsshow1 xani 0800 add yani moveto DEintp 0 eq {A*Fa0}{A*Fa0e} ifelse cvsshow1 xani 1600 add yani moveto DEintp 0 eq {A*Fa0}{A*Fa0e} ifelse cvsshow1 } if %xcharti=19 xcharti 23 eq {%xcharti=23 /ijtab j l jmax1 mul add def /xani 200 kx 2750 mul add def /yani 16400 ijtab 202 mul sub def xani 0000 add yani moveto DEintp 0 eq {L*Fa0}{L*Fa0e} ifelse 2.55 mul cvishow xani 0800 add yani moveto DEintp 0 eq {A*Fa0}{A*Fa0e} ifelse 1.28 mul 128 add cvishow xani 1600 add yani moveto DEintp 0 eq {B*Fa0}{B*Fa0e} ifelse 1.28 mul 128 add cvishow } if %xcharti=23 xcharti 21 eq xcharti 25 eq or {%xcharti=21 or 25 /ijtab j l jmax1 mul add def /xani 200 kx 2750 mul add def /yani 16400 ijtab 202 mul sub def /X* {L*Fa0 16 add 116 div A*Fa0 500 div add} bind def /Y* {L*Fa0 16 add 116 div} bind def /Z* {L*Fa0 16 add 116 div B*Fa0 200 div sub} bind def /Xacie X* DecodeXYZ* XLIx mul def /Yacie Y* DecodeXYZ* YLIx mul def /Zacie Z* DecodeXYZ* ZLIx mul def /Xnmw XYZa 21 get def /Ynmw XYZa 22 get def /Znmw XYZa 23 get def /Xaicc Xacie Xnmw div XLIx mul def /Yaicc Yacie Ynmw div YLIx mul def /Zaicc Zacie Znmw div ZLIx mul def /XQ Xaicc XLIx div def /YQ Yaicc YLIx div def /ZQ Zaicc ZLIx 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 /L*aicc YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse def /A*aicc 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 def /B*aicc 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 def xcharti 21 eq {%xcharti=21 xani 0000 add yani moveto L*aicc cvsshow1 xani 0800 add yani moveto A*aicc cvsshow1 xani 1600 add yani moveto B*aicc cvsshow1 } if %xcharti=21 xcharti 25 eq {%xcharti=25 xani 0000 add yani moveto L*aicc 2.55 mul cvishow xani 0800 add yani moveto A*aicc 1.28 mul 128 add cvishow xani 1600 add yani moveto B*aicc 1.28 mul 128 add cvishow } if %xcharti=25 } if %xcharti=21 or 25 xcharti 27 eq {%xcharti=27 /ijtab j l jmax1 mul add def /xani 200 kx 2750 mul add def /yani 16400 ijtab 202 mul sub def xani 0000 add yani moveto os3*Fa0 255 mul cvishow xani 0800 add yani moveto ls3*Fa0 255 mul cvishow xani 1600 add yani moveto vs3*Fa0 255 mul cvishow } if %xcharti=27 xcharti 29 eq {%xcharti=29 /ijtab j l jmax1 mul add def /xani 200 kx 2750 mul add def /yani 16400 ijtab 202 mul sub def xani 0000 add yani moveto cs4*Fa0 255 mul cvishow xani 0600 add yani moveto ms4*Fa0 255 mul cvishow xani 1200 add yani moveto ys4*Fa0 255 mul cvishow xani 1800 add yani moveto ns4*Fa0 255 mul cvishow } if %xcharti=29 } for %j=0,jmax } for %l=0,lmax } for %k=0,kmax %basic colours 1072 - 1080 /basrgb 24 array def /basrgb [0 0 0 1 1 1 1 0 0 0 1 1 1 1 0 0 0 1 0 1 0 1 0 1 ] def /n 1071 def 0 1 7 {/i exch def %i=0,7 /n n 1 add def /i3 i 3 mul def /xadd 36 xss mul def /yadd 25 xss mul def i 0 eq {/l 0 def /j 0 def /j1$ (k) def /i1 26 def} if i 1 eq {/l 0 def /j 1 def /j1$ (k) def /i1 27 def} if i 2 eq {/l 1 def /j 0 def /j1$ (l) def /i1 26 def} if i 3 eq {/l 1 def /j 1 def /j1$ (l) def /i1 27 def} if i 4 eq {/l 2 def /j 0 def /j1$ (m) def /i1 26 def} if i 5 eq {/l 2 def /j 1 def /j1$ (m) def /i1 27 def} if i 6 eq {/l 3 def /j 0 def /j1$ (n) def /i1 26 def} if i 7 eq {/l 3 def /j 1 def /j1$ (n) def /i1 27 def} if /xa xmins xss l mul add xadd add xsd add def /ya ymaxs xss j mul sub yadd sub ysd add def /r*x basrgb i3 get def /g*x basrgb i3 1 add get def /b*x basrgb i3 2 add get def /tLAB 1 def %interpretation as rgb* r*x g*x b*x proc_olv3*s_to_olv3*u*dd_de_H*M_LAB*Ma_Fa*ioL %ed_ee /o3*ed0 o3*dd def /l3*ed0 l3*dd def /v3*ed0 v3*dd def /o3*ee0 o3*de def /l3*ee0 l3*de def /v3*ee0 v3*de def /L*Fa0e L*Fa def /A*Fa0e A*Fa def /B*Fa0e B*Fa def /C*Fa0e C*Fa def /H*Fa0e H*Fa def /u*edMa10 u*edMa1 def /u*eeMa10 u*eeMa1 def /u*edMai0 u*edMai def /u*eeMai0 u*eeMai def /u*edMa20 u*edMa2 def /u*eeMa20 u*eeMa2 def %interpretation as olv* r*x g*x b*x proc_olv3*s_to_olv3*u*dd_de_H*M_LAB*Ma_Fa*ioL %dd_de /o3*dd0 o3*dd def /l3*dd0 l3*dd def /v3*dd0 v3*dd def /o3*de0 o3*de def /l3*de0 l3*de def /v3*de0 v3*de def /L*Fa0 L*Fa def /A*Fa0 A*Fa def /B*Fa0 B*Fa def /C*Fa0 C*Fa def /H*Fa0 H*Fa def /u*ddMa10 u*ddMa1 def /u*deMa10 u*deMa1 def /u*ddMai0 u*ddMai def /u*deMai0 u*deMai def /u*ddMa20 u*ddMa2 def /u*deMa20 u*deMa2 def /c*rs0 c*rs def /t*s0 t*s def /l*s0 l*rs def /h*s0 H*Fa0 360 div def /i*s0 1 n*s sub def /a*sr A*Wior A*Nior sub l*s0 mul def /b*sr B*Wior B*Nior sub l*s0 mul def /L*Fa0x L*Fa0 def /A*Fa0x A*Fa0 A*Nior add a*sr add def /B*Fa0x B*Fa0 B*Nior add b*sr add def /r*x DEintp 0 eq {o3*dd0} {o3*ed0} ifelse def /g*x DEintp 0 eq {l3*dd0} {l3*ed0} ifelse def /b*x DEintp 0 eq {v3*dd0} {v3*ed0} ifelse def r*x g*x b*x setrgbcolor %only to calculate olv'*3, cmyn'*4 for elementary or device /os3*Fa0 o* def /ls3*Fa0 l* def /vs3*Fa0 v* def /cs4*Fa0 c4*Fa def /ms4*Fa0 m4*Fa def /ys4*Fa0 y4*Fa def /ns4*Fa0 n4*Fa def xcharti 6 le {r*x g*x b*x setrgbcolor xa ya xds dup rec fill 1 r*x sub 1 g*x sub 1 b*x sub 0 setcmykcolor xa ya xds 0.5 mul dup rem fill} if xcharti 7 ge xcharti 15 le and {1 1 1 setrgbcolor xa ya xds xds rec fill 0 0 0 setrgbcolor xa ya xds xds rec stroke} if xcharti 0 eq {%xcharti=0 [100 300] 0 setdash r*x 0 eq g*x 0 eq and b*x 0 eq and {1 setgray} {0 setgray} ifelse xa ya xds 0.5 mul dup rem stroke [ ] 0 setdash } if %xcharti=0 xcharti 7 ge xcharti 15 le and {0 0 0 setrgbcolor /xan xa xds 0.00 mul sub def /yan ya xds 0.25 mul sub def} if xcharti 7 eq {xan yan 600 add moveto DEintp 0 eq {o3*dd0}{o3*ed0} ifelse cvsshow2 xan yan 400 add moveto DEintp 0 eq {l3*dd0}{l3*ed0} ifelse cvsshow2 xan yan 200 add moveto DEintp 0 eq {v3*dd0}{v3*ed0} ifelse cvsshow2} if xcharti 8 eq {xan yan 600 add moveto DEintp 0 eq {o3*de0}{o3*dd0} ifelse cvsshow2 xan yan 400 add moveto DEintp 0 eq {l3*de0}{l3*dd0} ifelse cvsshow2 xan yan 200 add moveto DEintp 0 eq {v3*de0}{v3*dd0} ifelse cvsshow2} if xcharti 9 eq {xan yan 600 add moveto DEintp 0 eq {L*Fa0}{L*Fa0e} ifelse cvsshow1 xan yan 400 add moveto DEintp 0 eq {A*Fa0}{A*Fa0e} ifelse cvsshow1 xan yan 200 add moveto DEintp 0 eq {B*Fa0}{B*Fa0e} ifelse cvsshow1} if xcharti 10 eq {xan yan 600 add moveto DEintp 0 eq {L*Fa0}{L*Fa0e} ifelse cvsshow1 xan yan 400 add moveto DEintp 0 eq {C*Fa0}{C*Fa0e} ifelse cvsshow1 xan yan 200 add moveto DEintp 0 eq {H*Fa0}{H*Fa0e} ifelse cvishow} if xcharti 11 eq {xan yan 600 add moveto t*s0 cvsshow2 xan yan 400 add moveto c*rs0 cvsshow2 xan yan 200 add moveto h*s0 cvsshow2} if xcharti 12 eq {xan yan 600 add moveto i*s0 cvsshow2 xan yan 400 add moveto c*rs0 cvsshow2 xan yan 200 add moveto DEintp 0 eq {u*ddMa10 show u*ddMai0 9 le {(0) show} if u*ddMai0 cvishow u*ddMa20 show} {u*eeMa10 show u*eeMai0 9 le {(0) show} if u*eeMai0 cvishow u*eeMa20 show} ifelse } if xcharti 13 eq {xan yan 600 add moveto L*Fa0x cvsshow1 xan yan 400 add moveto A*Fa0x cvsshow1 xan yan 200 add moveto B*Fa0x cvishow} if xcharti 14 eq {xan yan 600 add moveto os3*Fa0 cvsshow2 xan yan 400 add moveto ls3*Fa0 cvsshow2 xan yan 200 add moveto vs3*Fa0 cvsshow2} if xcharti 15 eq {CBKK xan yan 610 add moveto cs4*Fa0 cvsshow2 xan yan 460 add moveto ms4*Fa0 cvsshow2 xan yan 320 add moveto ys4*Fa0 cvsshow2 xan yan 180 add moveto ns4*Fa0 cvsshow2 CBK} if CBK /kx 5 def 0 0 0 setrgbcolor xcharti 17 eq {%xcharti=17 /ijtab i def /xani 200 kx 2750 mul add def /yani 16400 ijtab 202 mul sub def xani 0000 add yani moveto DEintp 0 eq {o3*dd0}{o3*ed0} ifelse 255 mul cvishow xani 0800 add yani moveto DEintp 0 eq {l3*dd0}{l3*ed0} ifelse 255 mul cvishow xani 1600 add yani moveto DEintp 0 eq {v3*dd0}{v3*ed0} ifelse 255 mul cvishow } if %xcharti=17 xcharti 19 eq {%xcharti=19 /ijtab i def /xani 200 kx 2750 mul add def /yani 16400 ijtab 202 mul sub def xani 0000 add yani moveto DEintp 0 eq {L*Fa0}{L*Fa0e} ifelse cvsshow1 xani 0800 add yani moveto DEintp 0 eq {A*Fa0}{A*Fa0e} ifelse cvsshow1 xani 1600 add yani moveto DEintp 0 eq {A*Fa0}{A*Fa0e} ifelse cvsshow1 } if %xcharti=19 xcharti 23 eq {%xcharti=23 /ijtab i def /xani 200 kx 2750 mul add def /yani 16400 ijtab 202 mul sub def xani 0000 add yani moveto DEintp 0 eq {L*Fa0}{L*Fa0e} ifelse 2.55 mul cvishow xani 0800 add yani moveto DEintp 0 eq {A*Fa0}{A*Fa0e} ifelse 1.28 mul 128 add cvishow xani 1600 add yani moveto DEintp 0 eq {B*Fa0}{B*Fa0e} ifelse 1.28 mul 128 add cvishow } if %xcharti=23 xcharti 21 eq xcharti 25 eq or {%xcharti=21 or 25 /ijtab i def /xani 200 kx 2750 mul add def /yani 16400 ijtab 202 mul sub def /X* {L*Fa0 16 add 116 div A*Fa0 500 div add} bind def /Y* {L*Fa0 16 add 116 div} bind def /Z* {L*Fa0 16 add 116 div B*Fa0 200 div sub} bind def /Xacie X* DecodeXYZ* XLIx mul def /Yacie Y* DecodeXYZ* YLIx mul def /Zacie Z* DecodeXYZ* ZLIx mul def /Xnmw XYZa 21 get def /Ynmw XYZa 22 get def /Znmw XYZa 23 get def /Xaicc Xacie Xnmw div XLIx mul def /Yaicc Yacie Ynmw div YLIx mul def /Zaicc Zacie Znmw div ZLIx mul def /XQ Xaicc XLIx div def /YQ Yaicc YLIx div def /ZQ Zaicc ZLIx 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 /L*aicc YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse def /A*aicc 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 def /B*aicc 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 def xcharti 21 eq {%xcharti=21 xani 0000 add yani moveto L*aicc cvsshow1 xani 0800 add yani moveto A*aicc cvsshow1 xani 1600 add yani moveto B*aicc cvsshow1 } if %xcharti=21 xcharti 25 eq {%xcharti=25 xani 0000 add yani moveto L*aicc 2.55 mul cvishow xani 0800 add yani moveto A*aicc 1.28 mul 128 add cvishow xani 1600 add yani moveto B*aicc 1.28 mul 128 add cvishow } if %xcharti=25 } if %xcharti=21 or 25 xcharti 27 eq {%xcharti=27 /ijtab i def /xani 200 kx 2750 mul add def /yani 16400 ijtab 202 mul sub def xani 0000 add yani moveto os3*Fa0 255 mul cvishow xani 0800 add yani moveto ls3*Fa0 255 mul cvishow xani 1600 add yani moveto vs3*Fa0 255 mul cvishow } if %xcharti=27 xcharti 29 eq {%xcharti=29 /ijtab i def /xani 200 kx 2750 mul add def /yani 16400 ijtab 202 mul sub def xani 0000 add yani moveto cs4*Fa0 255 mul cvishow xani 0600 add yani moveto ms4*Fa0 255 mul cvishow xani 1200 add yani moveto ys4*Fa0 255 mul cvishow xani 1800 add yani moveto ns4*Fa0 255 mul cvishow } if %xcharti=29 } for %i=0,7 xcharti 15 le {%xchart<=15 40 3 div 2 mul setlinewidth /xtmin xmins def /ytmax ymaxs xss 01 mul add def /ytmin ytmax xss 27 mul sub def /xtmax xtmin xss 36 mul add def /ytmean1 ytmin ytmax ytmin sub 0.3333 mul add def /ytmean2 ytmin ytmax ytmin sub 0.6667 mul add def 1 0 0 setrgbcolor 1 1 4 {/k exch def /xta xtmin xss 9 mul k mul add def xta ytmin 100 sub moveto xta ytmax 100 add lineto stroke } for xtmin 100 sub ytmean1 moveto xtmax ytmean1 lineto stroke xtmin 100 sub ytmean2 moveto xtmax xss 4 mul add 100 add ytmean2 lineto stroke /ytmean3 ytmin 2 xss mul add def xtmax ytmean3 moveto xtmax xss 4 mul add 100 add ytmean3 lineto stroke 0 0 0 setrgbcolor TBIG 22500 16500 moveto xcharti 7 eq {(lab*olv*) show} if xcharti 8 eq {(lab*rgb*) show} if xcharti 9 eq {(LAB*LAB*) show -20 -50 rmoveto TBM (a) show DEintp 1 eq {(e) show} if 0 50 rmoveto TBIG} if xcharti 10 eq {(LAB*LCH*) show -20 -50 rmoveto TBM (a) show DEintp 1 eq {(e) show} if 0 50 rmoveto TBIG} if xcharti 11 eq {(lab*tch*) show} if xcharti 12 eq {(lab*icu*) show TBM 0 -50 rmoveto DEintp 0 eq {(d)} {(e)} ifelse show 0 50 rmoveto TBIG} if xcharti 13 eq {(LAB*LAB*) show DEintp 1 eq {(e) show} if} if xcharti 14 eq {(lab*) show (olv'*) show} if %DEintp 0 eq {(olv'*) show} {(rgb'*) show} ifelse} if xcharti 15 eq {(LAB*) show (cmyn'*) show} if %DEintp 0 eq {(cmyn'*) show} {(cmjn'*) show} ifelse} if ColSpx 0 eq rgb_cmy 1 eq and xcharti 6 eq and { /ausz 8 def 0 0 0 setrgbcolor 8000 6000 moveto 700 /TimesBI-ISOL1 FS 30 rotate (Black separation empty) showen (Schwarz-Separation leer) showde -30 rotate /ausz 7 def } if ColSpx 0 eq rgb_cmy 0 eq and xcharti 3 ge xcharti 6 le and and { /ausz 8 def 0 0 0 setrgbcolor 8000 6000 moveto 700 /TimesBI-ISOL1 FS 30 rotate (olv* data, No cmyn* separation) showen (olv*\255Daten, keine cmyn*\255Separation) showde -30 rotate /ausz 7 def } if } if %xcharti<=11 showpage grestore } for %end xcharti=00,29 %%Trailer