%!PS-Adobe-3.0 EPSF-3.0 %%BoundingBox: 0 0 650 510 %%Creator: Gernot Hoffmann %%Title: specalc-moni.txt %%CreationDate: September 26 / 2007 %%DocumentNeededResources: font Helvetica %%+ Helvetica-Bold % Disable setpagedevice /setpagedevice {pop} def % Color Calculator for monitor spectra by Eye-One Pro /mm {2.834646 mul} def %--Global linewidth multiplier /Lw 1.0 def %--Last PostScript font set is valid /FontN { /Courier findfont fh scalefont setfont } def /FontB { /Courier-Bold findfont fh scalefont setfont } def /FontN { /ArialMT findfont fh scalefont setfont } def /FontB { /Arial-BoldMT findfont fh scalefont setfont } def /FontN { /Helvetica findfont fh scalefont setfont } def /FontB { /Helvetica-Bold findfont fh scalefont setfont } def /ci [ 380 0.1741 0.0050 385 0.1740 0.0050 390 0.1738 0.0049 395 0.1736 0.0049 400 0.1733 0.0048 405 0.1730 0.0048 410 0.1726 0.0048 415 0.1721 0.0048 420 0.1714 0.0051 425 0.1703 0.0058 430 0.1689 0.0069 435 0.1669 0.0086 440 0.1644 0.0109 445 0.1611 0.0138 450 0.1566 0.0177 455 0.1510 0.0227 460 0.1440 0.0297 465 0.1355 0.0399 470 0.1241 0.0578 475 0.1096 0.0868 480 0.0913 0.1327 485 0.0686 0.2007 490 0.0454 0.2950 495 0.0235 0.4127 500 0.0082 0.5384 505 0.0039 0.6548 510 0.0139 0.7502 515 0.0389 0.8120 520 0.0743 0.8338 525 0.1142 0.8262 530 0.1547 0.8059 535 0.1929 0.7816 540 0.2296 0.7543 545 0.2658 0.7243 550 0.3016 0.6923 555 0.3373 0.6589 560 0.3731 0.6245 565 0.4087 0.5896 570 0.4441 0.5547 575 0.4788 0.5202 580 0.5125 0.4866 585 0.5448 0.4544 590 0.5752 0.4242 595 0.6029 0.3965 600 0.6270 0.3725 605 0.6482 0.3514 610 0.6658 0.3340 615 0.6801 0.3197 620 0.6915 0.3083 625 0.7006 0.2993 630 0.7079 0.2920 635 0.7140 0.2859 640 0.7190 0.2809 645 0.7230 0.2770 650 0.7260 0.2740 655 0.7283 0.2717 660 0.7300 0.2700 665 0.7311 0.2689 670 0.7320 0.2680 675 0.7327 0.2673 680 0.7334 0.2666 685 0.7340 0.2660 690 0.7344 0.2656 695 0.7346 0.2654 700 0.7347 0.2653 ] def %--Wavelengths /ck [ 380 460 470 475 480 485 490 495 500 505 510 515 520 525 530 535 540 545 550 555 560 565 570 575 580 585 590 595 600 605 610 620 635 700 ] def %--Vertical shift in graphic in CieNote /cy [ 2 0 0 -2 0 +4 0 0 0 0 0 -4 +5 +2 0 0 0 0 0 0 0 -3 0 0 -2 0 0 0 0 0 0 0 0 0 ] def /cp [ 435.8 0.1665 0.0090 546.1 0.2738 0.7173 700.0 0.7347 0.2653 ] def /ct [ 2000 0.52669 0.41331 1.33101 2105 0.51541 0.41465 1.39021 2222 0.50338 0.41525 1.45962 2353 0.49059 0.41498 1.54240 2500 0.47701 0.41368 1.64291 2677 0.463 0.41121 1.76811 % error in table, estimated values 2857 0.446 0.40742 1.92863 3077 0.43156 0.40216 2.14300 3333 0.41502 0.39535 2.44455 3636 0.39792 0.38690 2.90309 4000 0.38045 0.37676 3.68730 4444 0.36276 0.36496 5.34398 5000 0.34510 0.35162 11.17883 5714 0.32775 0.33690 -39.34888 6667 0.31101 0.32116 -6.18336 8000 0.29518 0.30477 -3.08425 10000 0.28063 0.28828 -1.93507 11111 0.27524 0.28182 -1.65981 12500 0.27011 0.27547 -1.44313 14286 0.26526 0.26930 -1.26959 16667 0.26070 0.26333 -1.12891 20000 0.25645 0.25763 -1.01403 25000 0.25251 0.25222 -0.91976 ] def /clen ct length 4 idiv 1 sub def % all /cmax 16 def % 2000..10000 /cw [ 50 0.3457 0.3585 65 0.3127 0.3290 93 0.2857 0.2941 ] def /CMF % lam xbar ybar zbar [ 380 0.001368 0.000039 0.006450 381 0.001502 0.000042 0.007083 382 0.001642 0.000046 0.007745 383 0.001802 0.000051 0.008501 384 0.001995 0.000057 0.009414 385 0.002236 0.000064 0.010549 386 0.002535 0.000072 0.011965 387 0.002892 0.000082 0.013655 388 0.003300 0.000093 0.015588 389 0.003753 0.000106 0.017730 390 0.004243 0.000120 0.020050 391 0.004762 0.000349 0.022511 392 0.005330 0.000151 0.025202 393 0.005978 0.000170 0.028279 394 0.006741 0.000191 0.031897 395 0.007650 0.000217 0.036210 396 0.008751 0.000246 0.041437 397 0.010028 0.000281 0.047503 398 0.014217 0.000318 0.054119 399 0.012869 0.000357 0.060998 400 0.014310 0.000396 0.067850 401 0.015704 0.000433 0.074486 402 0.017147 0.000473 0.081361 403 0.018781 0.000517 0.089153 404 0.020748 0.000572 0.098540 405 0.023190 0.000640 0.110200 406 0.026207 0.000724 0.124613 407 0.029782 0.000825 0.141701 408 0.033880 0.000941 0.161303 409 0.038468 0.001069 0.183256 410 0.043510 0.001210 0.207400 411 0.048995 0.001362 0.233692 412 0.055022 0.001530 0.262611 413 0.061718 0.001720 0.294774 414 0.069212 0.001935 0.330798 415 0.077630 0.002180 0.371300 416 0.086958 0.002454 0.416209 417 0.097176 0.002764 0.465464 418 0.108406 0.003117 0.519694 419 0.120767 0.003526 0.579530 420 0.134380 0.004000 0.645600 421 0.149358 0.004546 0.718483 422 0.165395 0.005159 0.796713 423 0.181983 0.005829 0.877845 424 0.198611 0.006546 0.959439 425 0.214770 0.007300 1.039050 426 0.230186 0.008086 1.115367 427 0.244879 0.008908 1.188497 428 0.258777 0.009767 1.258123 429 0.271807 0.010664 1.323929 430 0.283900 0.011600 1.385600 431 0.294943 0.012573 1.442635 432 0.304896 0.013582 1.494803 433 0.313787 0.014629 1.542190 434 0.321645 0.015715 1.584880 435 0.328500 0.016840 1.622960 436 0.334351 0.018007 1.656404 437 0.339210 0.019214 1.685295 438 0.343121 0.020453 1.709874 439 0.346129 0.021718 1.730382 440 0.348280 0.023000 1.747060 441 0.349599 0.024294 1.760044 442 0.350147 0.025610 1.769623 443 0.350013 0.026958 1.776263 444 0.349287 0.028351 1.780433 445 0.348060 0.029800 1.782600 446 0.346373 0.031310 1.782968 447 0.344262 0.032883 1.781699 448 0.341808 0.034521 1.779198 449 0.339094 0.036225 1.775867 450 0.336200 0.038000 1.772110 451 0.333197 0.039846 1.768258 452 0.330041 0.041768 1.764039 453 0.326635 0.043766 1.758943 454 0.322886 0.045842 1.752466 455 0.318700 0.048000 1.744100 456 0.314025 0.050243 1.733559 457 0.308884 0.052573 1.720858 458 0.303290 0.054980 1.705936 459 0.297257 0.057458 1.688737 460 0.290800 0.060000 1.669200 461 0.283970 0.062601 1.647528 462 0.276721 0.065277 1.623412 463 0.268917 0.068042 1.596022 464 0.260422 0.070911 1.564528 465 0.251100 0.073900 1.528100 466 0.240847 0.077016 1.486111 467 0.229851 0.080266 1.439521 468 0.218407 0.083666 1.389879 469 0.206811 0.087232 1.338736 470 0.195360 0.090980 1.287640 471 0.184213 0.094917 1.237422 472 0.173327 0.099045 1.187824 473 0.162688 0.103367 1.138761 474 0.152283 0.107884 1.090148 475 0.142100 0.112600 1.041900 476 0.132178 0.117532 0.994197 477 0.122569 0.122674 0.947347 478 0.113275 0.127992 0.901453 479 0.104297 0.133452 0.856619 480 0.095640 0.139020 0.812950 481 0.087299 0.144676 0.770517 482 0.079308 0.150469 0.729444 483 0.071717 0.156461 0.689913 484 0.064580 0.162717 0.652104 485 0.057950 0.169300 0.616200 486 0.051862 0.176243 0.582328 487 0.046281 0.183558 0.550416 488 0.041150 0.191273 0.520337 489 0.036412 0.199418 0.491967 490 0.032010 0.208020 0.465180 491 0.027917 0.217119 0.439924 492 0.024144 0.226734 0.416183 493 0.020687 0.236857 0.393882 494 0.017540 0.247481 0.372945 495 0.014700 0.258600 0.353300 496 0.012161 0.270184 0.334857 497 0.009919 0.282293 0.317552 498 0.007967 0.295050 0.301337 499 0.006296 0.308578 0.286168 500 0.004900 0.323000 0.272000 501 0.003777 0.338402 0.258817 502 0.002945 0.354685 0.246483 503 0.002424 0.371698 0.234771 504 0.002236 0.389287 0.223453 505 0.002400 0.407300 0.212300 506 0.002925 0.425629 0.201169 507 0.003836 0.444309 0.190119 508 0.005174 0.463394 0.179225 509 0.006982 0.482939 0.168560 510 0.009300 0.503000 0.158200 511 0.012149 0.523569 0.148138 512 0.015535 0.544512 0.138375 513 0.019477 0.565690 0.128994 514 0.023992 0.586965 0.120075 515 0.029100 0.608200 0.111700 516 0.034814 0.629345 0.103904 517 0.041120 0.650306 0.096667 518 0.047985 0.670875 0.089982 519 0.055378 0.690842 0.083845 520 0.063270 0.710000 0.078249 521 0.071635 0.728185 0.073208 522 0.080462 0.745463 0.068678 523 0.089739 0.761969 0.064567 524 0.099456 0.777836 0.060788 525 0.109600 0.793200 0.057250 526 0.120167 0.808110 0.053904 527 0.131114 0.822496 0.050746 528 0.142367 0.836306 0.047752 529 0.153854 0.849491 0.044898 530 0.165500 0.862000 0.042160 531 0.177257 0.873810 0.039507 532 0.189140 0.884962 0.036935 533 0.201169 0.895493 0.034458 534 0.213365 0.905443 0.032088 535 0.225749 0.914850 0.029840 536 0.238320 0.923734 0.027711 537 0.251066 0.932092 0.025694 538 0.263992 0.939922 0.023787 539 0.277101 0.947225 0.021989 540 0.290400 0.954000 0.020300 541 0.303891 0.960256 0.018718 542 0.317572 0.966007 0.017240 543 0.331438 0.971260 0.015863 544 0.345482 0.976022 0.014584 545 0.359700 0.980300 0.013400 546 0.374083 0.984092 0.012307 547 0.388639 0.987481 0.011301 548 0.403378 0.990312 0.010377 549 0.418311 0.992811 0.009529 550 0.433449 0.994950 0.008749 551 0.448795 0.996710 0.008035 552 0.464336 0.998098 0.007381 553 0.480064 0.999112 0.006785 554 0.495971 0.999748 0.006242 555 0.512050 1.000000 0.005749 556 0.528295 0.999856 0.005303 557 0.544691 0.999304 0.004899 558 0.561209 0.998325 0.004534 559 0.577821 0.996898 0.004202 560 0.594500 0.995000 0.003900 561 0.611220 0.992600 0.003623 562 0.627975 0.989742 0.003370 563 0.644760 0.986444 0.003440 564 0.661569 0.982724 0.002934 565 0.678400 0.978600 0.002749 566 0.695239 0.974083 0.002585 567 0.712058 0.969171 0.002438 568 0.728828 0.963856 0.002309 569 0.745518 0.958134 0.002196 570 0.762100 0.952000 0.002100 571 0.778543 0.945450 0.002017 572 0.794825 0.938499 0.001948 573 0.810926 0.931162 0.001889 574 0.826824 0.923457 0.001840 575 0.842500 0.915400 0.001800 576 0.857932 0.907006 0.001766 577 0.873081 0.898277 0.001737 578 0.887894 0.889204 0.001711 579 0.902318 0.879781 0.001683 580 0.916300 0.870000 0.001650 581 0.929799 0.859861 0.001610 582 0.942798 0.849392 0.001564 583 0.955277 0.838622 0.001513 584 0.967217 0.827581 0.001458 585 0.978600 0.816300 0.001400 586 0.989385 0.804794 0.001336 587 0.999548 0.793082 0.001270 588 1.009089 0.781192 0.001205 589 1.018006 0.769154 0.001146 590 1.026300 0.757000 0.001100 591 1.033982 0.744754 0.001068 592 1.040986 0.732422 0.001049 593 1.047188 0.720003 0.001035 594 1.052466 0.707496 0.001021 595 1.056700 0.694900 0.001000 596 1.059794 0.682219 0.000968 597 1.061799 0.669471 0.000929 598 1.062806 0.656674 0.000886 599 1.062909 0.643844 0.000842 600 1.062200 0.631000 0.000800 601 1.060735 0.618155 0.000760 602 1.058443 0.605314 0.000723 603 1.055224 0.592475 0.000685 604 1.050976 0.579637 0.000645 605 1.045600 0.566800 0.000600 606 1.039036 0.553961 0.000547 607 1.031360 0.541137 0.000491 608 1.022666 0.528352 0.000435 609 1.013047 0.515632 0.000383 610 1.002600 0.503000 0.000340 611 0.991367 0.490468 0.000307 612 0.979331 0.478030 0.000283 613 0.966491 0.465677 0.000265 614 0.952847 0.453403 0.000251 615 0.938400 0.441200 0.000240 616 0.923194 0.429080 0.000229 617 0.907244 0.417036 0.000220 618 0.890502 0.405032 0.000211 619 0.872920 0.393032 0.000202 620 0.854449 0.381000 0.000190 621 0.835084 0.368918 0.000174 622 0.814946 0.356827 0.000155 623 0.794186 0.344776 0.000135 624 0.772954 0.332817 0.000116 625 0.751400 0.321000 0.000000 626 0.729583 0.309338 0.000086 627 0.707588 0.297850 0.000074 628 0.685602 0.286593 0.000065 629 0.663810 0.275624 0.000056 630 0.642400 0.265000 0.000049 631 0.621514 0.254763 0.000044 632 0.601113 0.244889 0.000039 633 0.581105 0.235334 0.000035 634 0.561397 0.226052 0.000032 635 0.541900 0.217000 0.000030 636 0.522599 0.208161 0.000027 637 0.503546 0.199548 0.000025 638 0.484743 0.191155 0.000023 639 0.466193 0.182974 0.000021 640 0.447900 0.175000 0.000020 641 0.429861 0.167223 0.000018 642 0.412098 0.159646 0.000016 643 0.394644 0.152277 0.000014 644 0.377533 0.145125 0.000012 645 0.360800 0.138200 0.000010 646 0.344456 0.131500 0.000007 647 0.328516 0.125024 0.000005 648 0.313019 0.118779 0.000003 649 0.298001 0.112769 0.000001 650 0.283500 0.107000 0.000000 651 0.269544 0.101476 0.0 652 0.256118 0.096188 0.0 653 0.243189 0.091122 0.0 654 0.230727 0.086264 0.0 655 0.218700 0.081600 0.0 656 0.207097 0.077120 0.0 657 0.195923 0.072825 0.0 658 0.185170 0.068710 0.0 659 0.174832 0.064769 0.0 660 0.164900 0.061000 0.0 661 0.155366 0.057396 0.0 662 0.146230 0.053955 0.0 663 0.137490 0.050673 0.0 664 0.129146 0.047549 0.0 665 0.121200 0.044580 0.0 666 0.113639 0.041758 0.0 667 0.106465 0.039084 0.0 668 0.099690 0.036563 0.0 669 0.093330 0.034200 0.0 670 0.087400 0.032000 0.0 671 0.081900 0.029962 0.0 672 0.076804 0.028076 0.0 673 0.072077 0.026329 0.0 674 0.067686 0.024708 0.0 675 0.063600 0.023200 0.0 676 0.059806 0.021800 0.0 677 0.056282 0.020501 0.0 678 0.052971 0.019281 0.0 679 0.049818 0.018120 0.0 680 0.046770 0.017000 0.0 681 0.043784 0.015903 0.0 682 0.040873 0.014837 0.0 683 0.038072 0.013810 0.0 684 0.034046 0.012834 0.0 685 0.032900 0.011920 0.0 686 0.030641 0.011068 0.0 687 0.028380 0.010273 0.0 688 0.026344 0.009333 0.0 689 0.024427 0.008846 0.0 690 0.022700 0.008210 0.0 691 0.021084 0.007623 0.0 692 0.019998 0.007084 0.0 693 0.018237 0.006914 0.0 694 0.016987 0.006138 0.0 695 0.01584 0.005723 0.0 696 0.014790 0.005343 0.0 697 0.013831 0.004995 0.0 698 0.012948 0.004676 0.0 699 0.012129 0.004380 0.0 700 0.011359 0.004102 0.0 701 0.010629 0.003838 0.0 702 0.009938 0.003589 0.0 703 0.009288 0.003354 0.0 704 0.008678 0.003134 0.0 705 0.008110 0.002929 0.0 706 0.007582 0.002738 0.0 707 0.007088 0.002559 0.0 708 0.006627 0.002393 0.0 709 0.006195 0.002237 0.0 710 0.005790 0.002091 0.0 711 0.005409 0.001953 0.0 712 0.005052 0.001824 0.0 713 0.004717 0.001703 0.0 714 0.004403 0.001590 0.0 715 0.004109 0.001484 0.0 716 0.003833 0.001384 0.0 717 0.003575 0.001291 0.0 718 0.003334 0.001204 0.0 719 0.003109 0.001122 0.0 720 0.002899 0.001047 0.0 721 0.002704 0.000976 0.0 722 0.002523 0.000911 0.0 723 0.002354 0.000850 0.0 724 0.002196 0.000793 0.0 725 0.002049 0.000740 0.0 726 0.001910 0.000690 0.0 717 0.001781 0.000643 0.0 728 0.001660 0.000599 0.0 729 0.001546 0.000558 0.0 730 0.001439 0.000520 0.0 731 0.001340 0.000483 0.0 732 0.001246 0.000450 0.0 733 0.001158 0.000418 0.0 734 0.001076 0.000388 0.0 735 0.000999 0.000361 0.0 736 0.000928 0.000335 0.0 737 0.000862 0.000311 0.0 738 0.000800 0.000289 0.0 739 0.000743 0.000268 0.0 740 0.000690 0.000249 0.0 741 0.000640 0.000231 0.0 742 0.000594 0.000214 0.0 743 0.000551 0.000199 0.0 744 0.000512 0.000185 0.0 745 0.000476 0.000171 0.0 746 0.000442 0.000159 0.0 747 0.000411 0.000148 0.0 748 0.000382 0.000138 0.0 749 0.000356 0.000128 0.0 750 0.000332 0.000120 0.0 751 0.000309 0.000111 0.0 752 0.000288 0.000104 0.0 753 0.000269 0.000097 0.0 754 0.000251 0.000090 0.0 755 0.000234 0.000084 0.0 756 0.000219 0.000079 0.0 757 0.000204 0.000073 0.0 758 0.000190 0.000068 0.0 759 0.000178 0.000064 0.0 760 0.000166 0.000060 0.0 761 0.000155 0.000055 0.0 762 0.000144 0.000052 0.0 763 0.000134 0.000048 0.0 764 0.000125 0.000045 0.0 765 0.000117 0.000042 0.0 766 0.000109 0.000039 0.0 767 0.000102 0.000036 0.0 768 0.000095 0.000034 0.0 769 0.000089 0.000032 0.0 770 0.000083 0.000030 0.0 771 0.000077 0.000027 0.0 772 0.000072 0.000026 0.0 773 0.000067 0.000024 0.0 774 0.000062 0.000022 0.0 775 0.000058 0.000021 0.0 776 0.000054 0.000019 0.0 777 0.000051 0.000018 0.0 778 0.000047 0.000017 0.0 779 0.000044 0.000016 0.0 780 0.000041 0.000014 0.0 ] def /c0 1 3 div def /c1 0.008856 def /c2 7.787 def /c3 16 116 div def /c4 0.206893 def /sx 100 mm def /sy 100 mm def /x0 8 mm def /y0 8 mm def /BBox {0 0 0 1 setcmykcolor 0.5 Lw mul setlinewidth % points /bbx 650 1 sub def /bby 510 1 sub def 1 1 moveto bbx 0 rlineto 0 bby rlineto bbx neg 0 rlineto closepath stroke } def /PrimsCie {/txtP (CIE) def /xr 0.73467 def /yr 0.26533 def /xg 0.27376 def /yg 0.71741 def /xb 0.16658 def /yb 0.00886 def } def /Prims709 {/txtP (Rec.709) def /xr 0.64000 def /yr 0.33000 def /xg 0.30000 def /yg 0.60000 def /xb 0.15000 def /yb 0.06000 def } def /PrimsNTSC {/txtP (NTSC) def /xr 0.67000 def /yr 0.33000 def /xg 0.21000 def /yg 0.71000 def /xb 0.14000 def /yb 0.08000 def } def /PrimsWide {/txtP (WideGamut) def /xr 0.734700 def /yr 0.265299 def /xg 0.115173 def /yg 0.826432 def /xb 0.156608 def /yb 0.017658 def } def /PrimsProp {/txtP (ProPhoto) def /xr 0.734698 def /yr 0.265302 def /xg 0.159599 def /yg 0.840401 def /xb 0.036600 def /yb 0.000107 def } def /PrimsAd98 {/txtP (AdobeRGB(98)) def /xr 0.64000 def /yr 0.33000 def /xg 0.21000 def /yg 0.71000 def /xb 0.15000 def /yb 0.06000 def } def /PrimsOpti {/txtP (OptiRGB) def /xr 0.6658 def /yr 0.3340 def %610 /xg 0.1929 def /yg 0.7816 def %535 /xb 0.1355 def /yb 0.0399 def %465 } def /WhiteEqE {/xw 0.3333 def /yw 0.3333 def /txtW (Eq.Energy ) def } def /WhiteD65 {/xw 0.3127 def /yw 0.3290 def /txtW (D65) def } def /WhiteNTSC % Illuminant C {/xw 0.3100 def /yw 0.3160 def /txtW (NTSC) def } def /White3000K % R.W.G.Hunt, Measuring Colours {/xw 0.4368 def /yw 0.4041 def /txtW (3000K) def } def /White4000K {/xw 0.3804 def /yw 0.3767 def /txtW (4000K) def } def /WhiteD50 {/xw 0.3457 def /yw 0.3585 def /txtW (D50) def } def /White6000K {/xw 0.3220 def /yw 0.3318 def /txtW (6000K) def } def /White7000K {/xw 0.3063 def /yw 0.3165 def /txtW (7000K) def } def /White8000K {/xw 0.2952 def /yw 0.3048 def /txtW (8000K) def } def % D93: Wyszecki+Stiles interpolated/adjusted /White9300K {/xw 0.2850 def /yw 0.2931 def /txtW (9300K) def } def /RefEqE {/xn 0.3333 def /yn 0.3333 def /txtN (Eq.Energy ) def } def /RefD65 {/xn 0.3127 def /yn 0.3290 def /txtN (D65) def } def /RefNTSC {/xn 0.3100 def /yn 0.3160 def /txtN (NTSC) def } def /RefD50 {/xn 0.3457 def /yn 0.3585 def /txtN (D50) def } def /Gam18 { /gam 1.8 def /txtG (1.8) def} def /Gam22 { /gam 2.2 def /txtG (2.2) def} def /Gam24 { /gam 2.4 def /txtG (sRGB) def} def /BradT { /Brad true def /txtB (Yes) def} def /BradF { /Brad false def /txtB (No ) def} def /RendR { /txtI (RelCol) def } def /RendA { /txtI (AbsCol) def } def /XYZMode { /txtM (XYZ) def } def /xyYMode { /txtM (xyY) def } def /LabMode { /txtM (Lab) def } def /RGBMode { /txtM (RGB) def } def /MakeBrad {% ICC-Spec p.110 % Cone = CX*X; X = XC*Cone % Cone Response /CX11 0.8951 def /CX12 0.2664 def /CX13 -0.1614 def /CX21 -0.7502 def /CX22 1.7135 def /CX23 0.0367 def /CX31 0.0389 def /CX32 -0.0685 def /CX33 1.0296 def % Inverse Cone Response /D CX22 CX33 mul CX23 CX32 mul sub CX11 mul CX21 CX33 mul CX23 CX31 mul sub CX12 mul sub CX21 CX32 mul CX22 CX31 mul sub CX13 mul add def /XC11 CX22 CX33 mul CX23 CX32 mul sub D div def /XC12 CX12 CX33 mul CX13 CX32 mul sub D div neg def /XC13 CX12 CX23 mul CX13 CX22 mul sub D div def /XC21 CX21 CX33 mul CX23 CX31 mul sub D div neg def /XC22 CX11 CX33 mul CX13 CX31 mul sub D div def /XC23 CX11 CX23 mul CX13 CX21 mul sub D div neg def /XC31 CX21 CX32 mul CX22 CX31 mul sub D div def /XC32 CX11 CX32 mul CX12 CX31 mul sub D div neg def /XC33 CX11 CX22 mul CX12 CX21 mul sub D div def % Source /Yws 1 def /zw 1 xw sub yw sub def /Xws xw yw div Yws mul def /Zws zw yw div Yws mul def % PCS /Ywp 1 def /zn 1 xn sub yn sub def /Xwp xn yn div Ywp mul def /Zwp zn yn div Ywp mul def % Cone Source /Rs CX11 Xws mul CX12 Yws mul add CX13 Zws mul add def /Gs CX21 Xws mul CX22 Yws mul add CX23 Zws mul add def /Bs CX31 Xws mul CX32 Yws mul add CX33 Zws mul add def % Cone PCS /Rp CX11 Xwp mul CX12 Ywp mul add CX13 Zwp mul add def /Gp CX21 Xwp mul CX22 Ywp mul add CX23 Zwp mul add def /Bp CX31 Xwp mul CX32 Ywp mul add CX33 Zwp mul add def /a11 Rp Rs div def /a22 Gp Gs div def /a33 Bp Bs div def % Diag(aii)*CX /X11 a11 CX11 mul def /X12 a11 CX12 mul def /X13 a11 CX13 mul def /X21 a22 CX21 mul def /X22 a22 CX22 mul def /X23 a22 CX23 mul def /X31 a33 CX31 mul def /X32 a33 CX32 mul def /X33 a33 CX33 mul def % Bradford % BM = XC*Diag(aii)*CX /BM11 XC11 X11 mul XC12 X21 mul add XC13 X31 mul add def /BM12 XC11 X12 mul XC12 X22 mul add XC13 X32 mul add def /BM13 XC11 X13 mul XC12 X23 mul add XC13 X33 mul add def /BM21 XC21 X11 mul XC22 X21 mul add XC23 X31 mul add def /BM22 XC21 X12 mul XC22 X22 mul add XC23 X32 mul add def /BM23 XC21 X13 mul XC22 X23 mul add XC23 X33 mul add def /BM31 XC31 X11 mul XC32 X21 mul add XC33 X31 mul add def /BM32 XC31 X12 mul XC32 X22 mul add XC33 X32 mul add def /BM33 XC31 X13 mul XC32 X23 mul add XC33 X33 mul add def % Inverse Bradford /D BM22 BM33 mul BM23 BM32 mul sub BM11 mul BM21 BM33 mul BM23 BM31 mul sub BM12 mul sub BM21 BM32 mul BM22 BM31 mul sub BM13 mul add def /MB11 BM22 BM33 mul BM23 BM32 mul sub D div def /MB12 BM12 BM33 mul BM13 BM32 mul sub D div neg def /MB13 BM12 BM23 mul BM13 BM22 mul sub D div def /MB21 BM21 BM33 mul BM23 BM31 mul sub D div neg def /MB22 BM11 BM33 mul BM13 BM31 mul sub D div def /MB23 BM11 BM23 mul BM13 BM21 mul sub D div neg def /MB31 BM21 BM32 mul BM22 BM31 mul sub D div def /MB32 BM11 BM32 mul BM12 BM31 mul sub D div neg def /MB33 BM11 BM22 mul BM12 BM21 mul sub D div def % Bradford matrix XYZ(D50)=BM*XYZ(D65) %/BM11 1.0479 def /BM12 0.0229 def /BM13 -0.0502 def %/BM21 0.0296 def /BM22 0.9904 def /BM23 -0.0171 def %/BM31 -0.0092 def /BM32 0.0151 def /BM33 0.7519 def % XYZ(D50)=BM*XYZ(D65) } def /PrimToMat { % matrix CR for XYZ(WP)=CR*RGB(WP) /zr 1 xr sub yr sub def /zg 1 xg sub yg sub def /zb 1 xb sub yb sub def /zw 1 xw sub yw sub def /zn 1 xn sub yn sub def /D xr xb sub yg yb sub mul yr yb sub xg xb sub mul sub def /U xw xb sub yg yb sub mul yw yb sub xg xb sub mul sub def /V xr xb sub yw yb sub mul yr yb sub xw xb sub mul sub def /u U D div def /v V D div def /w 1 u sub v sub def % XYZ(WP)=CR(WP)*RGB(WP) /CR11 u xr mul yw div def /CR12 v xg mul yw div def /CR13 w xb mul yw div def /CR21 u yr mul yw div def /CR22 v yg mul yw div def /CR23 w yb mul yw div def /CR31 u zr mul yw div def /CR32 v zg mul yw div def /CR33 w zb mul yw div def Brad {% XR(D50)=BM*CR(D65) /XR11 BM11 CR11 mul BM12 CR21 mul add BM13 CR31 mul add def /XR12 BM11 CR12 mul BM12 CR22 mul add BM13 CR32 mul add def /XR13 BM11 CR13 mul BM12 CR23 mul add BM13 CR33 mul add def /XR21 BM21 CR11 mul BM22 CR21 mul add BM23 CR31 mul add def /XR22 BM21 CR12 mul BM22 CR22 mul add BM23 CR32 mul add def /XR23 BM21 CR13 mul BM22 CR23 mul add BM23 CR33 mul add def /XR31 BM31 CR11 mul BM32 CR21 mul add BM33 CR31 mul add def /XR32 BM31 CR12 mul BM32 CR22 mul add BM33 CR32 mul add def /XR33 BM31 CR13 mul BM32 CR23 mul add BM33 CR33 mul add def } {% XR(D65)=CR(D65) /XR11 CR11 def /XR12 CR12 def /XR13 CR13 def /XR21 CR21 def /XR22 CR22 def /XR23 CR23 def /XR31 CR31 def /XR32 CR32 def /XR33 CR33 def } ifelse % Inverse of XR /D XR22 XR33 mul XR23 XR32 mul sub XR11 mul XR21 XR33 mul XR23 XR31 mul sub XR12 mul sub XR21 XR32 mul XR22 XR31 mul sub XR13 mul add def /RX11 XR22 XR33 mul XR23 XR32 mul sub D div def /RX12 XR12 XR33 mul XR13 XR32 mul sub D div neg def /RX13 XR12 XR23 mul XR13 XR22 mul sub D div def /RX21 XR21 XR33 mul XR23 XR31 mul sub D div neg def /RX22 XR11 XR33 mul XR13 XR31 mul sub D div def /RX23 XR11 XR23 mul XR13 XR21 mul sub D div neg def /RX31 XR21 XR32 mul XR22 XR31 mul sub D div def /RX32 XR11 XR32 mul XR12 XR31 mul sub D div neg def /RX33 XR11 XR22 mul XR12 XR21 mul sub D div def /Yw 1 def /Xw xw yw div Yw mul def /Zw zw yw div Yw mul def /Yn 1 def /Xn xn yn div Yn mul def /Zn zn yn div Yn mul def } def /XYZtoRGB {/R X RX11 mul Y RX12 mul add Z RX13 mul add def /G X RX21 mul Y RX22 mul add Z RX23 mul add def /B X RX31 mul Y RX32 mul add Z RX33 mul add def } def /RGBtoXYZ {/X R XR11 mul G XR12 mul add B XR13 mul add def /Y R XR21 mul G XR22 mul add B XR23 mul add def /Z R XR31 mul G XR32 mul add B XR33 mul add def } def /LABtoXYZ {%/c0 1 3 div def Actual definition in main program %/c1 0.008856 def %/c2 7.787 def %/c3 16 116 div def %/c4 0.206893 def /Y1 L* 16 add 116 div def /X1 a* 500 div Y1 add def /Z1 Y1 b* 200 div sub def /X X1 c4 le {X1 c3 sub c2 div }{ X1 3 exp } ifelse Xn mul def /Y Y1 c4 le {Y1 c3 sub c2 div }{ Y1 3 exp } ifelse Yn mul def /Z Z1 c4 le {Z1 c3 sub c2 div }{ Z1 3 exp } ifelse Zn mul def } def /XYZtoLAB {%/c0 1 3 div def Actual definition in main program %/c1 0.008856 def %/c2 7.787 def %/c3 16 116 div def %/c4 0.206893 def /X1 X Xn div dup c1 le { c2 mul c3 add }{ c0 exp } ifelse def /Y1 Y Yn div dup c1 le { c2 mul c3 add }{ c0 exp } ifelse def /Z1 Z Zn div dup c1 le { c2 mul c3 add }{ c0 exp } ifelse def /L* 116 Y1 mul 16 sub def /a* X1 Y1 sub 500 mul def /b* Y1 Z1 sub 200 mul def } def /LABtoRGB { LABtoXYZ XYZtoRGB } def /RGBtoLAB { RGBtoXYZ XYZtoLab } def /IGamma { /iga 1 gam div def /og false def % out of gamut /R1 R abs def /G1 G abs def /B1 B abs def /max R1 def G1 max gt {/max G1 def} if B1 max gt {/max B1 def} if max 1 gt {/R1 R1 max div def /G1 G1 max div def /B1 B1 max div def} if gam 2.4 ne {/R2 R1 iga exp def /G2 G1 iga exp def /B2 B1 iga exp def } {/R2 R1 dup 0.00304 lt {12.92 mul }{iga exp 1.055 mul 0.055 sub } ifelse def /G2 G1 dup 0.00304 lt {12.92 mul }{iga exp 1.055 mul 0.055 sub } ifelse def /B2 B1 dup 0.00304 lt {12.92 mul }{iga exp 1.055 mul 0.055 sub } ifelse def } ifelse R 0 lt {/R2 R2 neg def} if G 0 lt {/G2 G2 neg def} if B 0 lt {/B2 B2 neg def} if R2 -0.0019 lt { /og true def } if G2 -0.0019 lt { /og true def } if B2 -0.0019 lt { /og true def } if R2 1.002 gt { /og true def } if G2 1.002 gt { /og true def } if B2 1.002 gt { /og true def } if /R R2 def /G G2 def /B B2 def } def /Gamma { /og false def R 0 lt { /R 0 def } if G 0 lt { /G 0 def } if B 0 lt { /B 0 def } if R 1 gt { /R 1 def } if G 1 gt { /G 1 def } if B 1 gt { /B 1 def } if gam 2.4 ne {/R R gam exp def /G G gam exp def /B B gam exp def } {/R R dup 0.03928 lt {12.92 div }{0.055 add 1.055 div gam exp } ifelse def /G G dup 0.03928 lt {12.92 div }{0.055 add 1.055 div gam exp } ifelse def /B B dup 0.03928 lt {12.92 div }{0.055 add 1.055 div gam exp } ifelse def } ifelse } def /XYZtoxyY { /D X Y add Z add def D abs 1E-8 gt {/x X D div def /y Y D div def /z Z D div def} {/x xn def /y yn def /z zn def } ifelse } def /xyYtoXYZ { /z 1 x sub y sub def /X x y div Y mul def /Z z y div Y mul def } def /CieGrid { newpath 0 0 0 1 setcmykcolor 0.1 mm sx div Lw mul setlinewidth /gx 0 def /gdx 0.1 def /gy 0 def /gdy 0.1 def { gx gy moveto gx 1 add gy lineto stroke /gy gy gdy add def gy 1.01 gt {exit}if } loop /gy 0 def { gx gy moveto gx gy 1 add lineto stroke /gx gx gdx add def gx 1.01 gt {exit}if } loop newpath 0 setlinecap 0 0 moveto 1 0 lineto 0 0 moveto 0 1 lineto 0.3 mm sx div Lw mul setlinewidth 0 0 0 1 setcmykcolor stroke 2 setlinecap } def /LabGrid { newpath 0 0 0 1 setcmykcolor 0.1 mm sx div Lw mul setlinewidth /gx 0.5 def /gdx 0.05 def /gy 0.5 def /gdy 0.05 def { gx gy moveto gx 0.5 add gy lineto stroke /gy gy gdy add def gy 1.01 gt {exit}if } loop /gy 0.5 def { gx gy moveto gx gy 0.5 add lineto stroke /gx gx gdx add def gx 1.01 gt {exit}if } loop 0 0 0 1 setcmykcolor 0.2 mm sx div Lw mul setlinewidth 0.50 0.75 moveto 0.5 0 rlineto stroke 0.75 0.50 moveto 0 0.5 rlineto stroke /fh 6 sx div def FontN 0 0 0 0 setcmykcolor 0.925 0.726 moveto 0.07 0 rlineto 0 0.02 rlineto -0.07 0 rlineto closepath fill 0.705 0.943 moveto 0.04 0 rlineto 0 0.02 rlineto -0.04 0 rlineto closepath fill 0 0 0 1 setcmykcolor 0.927 0.728 moveto (100 a*) show 0.706 0.945 moveto (100) show 0.725 0.975 moveto (b*) show } def /LabDot {/bt exch def /at exch def /xt at 0.002 mul 0.75 add def /yt bt 0.002 mul 0.75 add def gsave newpath 0.5 0.5 moveto 0.5 0 rlineto 0 0.5 rlineto -0.5 0 rlineto closepath clip /ds 0.02 def newpath xt ds 0.5 mul sub yt ds 0.5 mul sub moveto ds 0 rlineto 0 ds rlineto ds neg 0 rlineto closepath R G B setrgbcolor fill xt ds 0.5 mul sub yt ds 0.5 mul sub moveto ds 0 rlineto 0 ds rlineto ds neg 0 rlineto closepath 0 0 0 1 setcmykcolor stroke grestore } def /CieDot {/yt exch def /xt exch def /ra 0.008 def 0.1 mm sx div Lw mul setlinewidth gsave newpath 0 0 moveto 1 0 rlineto 0 1 rlineto -1 0 rlineto closepath clip newpath xt yt ra 0 360 arc R G B setrgbcolor fill newpath xt yt ra 0 360 arc 0 0 0 1 setcmykcolor stroke grestore } def /WDots % draw circle for white points {/fh 5 sx div def FontN /buf 10 string def 0.1 mm sx div Lw mul setlinewidth /ra 0.5 mm sx div def 0 1 cw length 3 idiv 1 sub { /k exch 3 mul def /xt cw k 1 add get def /yt cw k 2 add get def xt ra add yt moveto xt yt ra 0 360 arc gsave 0 0 0 0 setcmykcolor fill grestore 0 0 0 1 setcmykcolor stroke 0 0 0 0.10 setcmykcolor xt 0.014 sub yt 0.016 add moveto 0.02 0 rlineto 0 0.04 rlineto -0.02 0 rlineto closepath fill 0 0 0 1 setcmykcolor xt 0.002 add yt 0.018 add moveto +90 rotate (D) show cw k get buf cvs show -90 rotate } for } def /MakeSpline {/fu spa array def /mi spa array def /re spa array def /yy spa array def /xx spa array def /n fp 1 sub def /hh mult def /hd6 hh 6 div def /hm6 hh 6 mul def /h6h -6 hh dup mul div def pxy 1 eq {0 1 fp {/k exch def fu k hh mul ci k 3 mul 1 add get put} for} if pxy 2 eq {0 1 fp {/k exch def fu k hh mul ci k 3 mul 2 add get put} for} if mi 1 0.25 put 1 1 n 1 sub {/j exch def mi j 1 add 1 4 mi j get sub div put} for 1 1 n {/j exch def /jh j hh mul def re j fu jh hh add get fu jh get 2 mul sub fu jh hh sub get add h6h mul put} for yy 1 re 1 get put 2 1 n {/j exch def yy j re j get yy j 1 sub get mi j 1 sub get mul sub put} for xx 0 0 put xx n yy n get mi n get mul neg put xx n 1 add 0 put n 1 sub -1 1{/j exch def xx j yy j get xx j 1 add get add mi j get mul neg put} for /i 0 def 0 1 n {/j exch def /jh j hh mul def /a3 xx j 1 add get xx j get sub hm6 div def /a2 xx j get 0.5 mul def /a1 fu jh hh add get fu jh get sub hh div xx j 1 add get xx j get 2 mul add hd6 mul sub def /a0 fu jh get def 1 1 hh 1 sub {/k exch def /i i 1 add def fu i a3 k mul a2 add k mul a1 add k mul a0 add put} for /i i 1 add def} for pxy 1 eq {fu vecx copy} if pxy 2 eq {fu vecy copy} if } def /CieHorse { 0.2 mm sx div Lw mul setlinewidth /mult 5 def /fp ci length 3 idiv 1 sub def /spl fp mult mul def /spa spl 1 add def /vecx spa array def /vecy spa array def newpath /pxy 1 def MakeSpline /pxy 2 def MakeSpline vecx 0 get vecy 0 get moveto 1 1 spl {/k exch def vecx k get vecy k get lineto } for closepath stroke } def /CieDots % draw circle for ck lambdas {/col { 0 0 0 1 setcmykcolor } def 0.1 mm sx div Lw mul setlinewidth /ra 0.5 mm sx div def /k 0 def /i 0 def 1 1 ck length { pop /lam ck k get def { ci i get lam eq { /xt ci i 1 add get def /yt ci i 2 add get def xt yt ra 0 360 arc gsave 0 0 0 0 setcmykcolor fill grestore col stroke exit } {/i i 3 add def } ifelse } loop /k k 1 add def } for } def /CieList % write list for ck lambdas { 0 0 0 1 setcmykcolor /fh 7 sx div def FontN /txt 3 string def /xt 1.55 def /yt 1.0 fh sub def /dy fh 1.2 mul def /k 0 def /i 0 def 1 1 ck length { pop /lam ck k get def { ci i get lam eq { xt yt moveto lam txt cvs txt show /yt yt dy sub def exit } {/i i 3 add def } ifelse } loop /k k 1 add def } for } def /CieNote % write notation for ck lambdas { 0 0 0 1 setcmykcolor /fh 6 sx div def FontN /txt 3 string def /dx fh 2.0 mul def /dy fh def /k 0 def /i 0 def 1 1 ck length { pop /lam ck k get round def { ci i get round lam eq { /xt ci i 1 add get fh 0.40 mul add def /yt ci i 2 add get fh 0.18 mul sub cy k get 1000 div add def col xt yt moveto lam txt cvs txt show exit } {/i i 3 add def } ifelse } loop /k k 1 add def } for } def /Triangle % draw RGB triangle { 0.2 mm sx div Lw mul setlinewidth 0 0 0 0.5 setcmykcolor xr yr moveto xg yg lineto xb yb lineto closepath stroke } def /Shownum % Draw number by string % Version May 15 2004 / uses rounding % % tx0 ty0 nu :on stack % % tx0 Position not overwritten % ty0 % nu Input number not overwritten nu =+-999999 % fh Font height not overwritten % tms Mantissa number of characters tms=0...6 Global % tms=3 Example % input -23.56789 -999.99 0.4567 9999.123456 % result -23.568 -999.990 0.467 9999.123 % Postscript number to string is not well defined % e.g. 1E-5 instead of 0.00001 % We use a straightforward BCD conversion. % This is always affected by round-off errors % because of 32-bit arithmetic % Results are different, depending on the interpreter { /nu exch def /ty0 exch def /tx0 exch def /tfw fh 0.6 mul def % character distance /tna nu abs 10 tms neg exp 0.500001 mul add def /tdec 1E5 def /tchr 1 string def tna 999999.1 lt % larger number replaced by # /tmm true def % sign {/tx0 tx0 tfw 6 mul sub def /tz 0 def 1 1 5 % first 5 digits, no leading 0 { pop /tk 0 def { tna tdec gt {/tna tna tdec sub def /tk tk 1 add def}{exit} ifelse } loop tk 0 ne {/tz tz 1 add def} if tz 0 ne { tx0 ty0 moveto tk tchr cvs show } if tz 1 eq nu 0 lt and tmm and % minus Correction 28/03/2005 { tx0 tfw 0.7 mul sub ty0 moveto (-) show /tmm false def } if /tdec tdec 0.1 mul def /tx0 tx0 tfw add def } for /tk 0 def % leading 0 { tna tdec gt {/tna tna tdec sub def /tk tk 1 add def}{exit} ifelse } loop tmm nu 0 lt and % minus { tx0 tfw 0.7 mul sub ty0 moveto (-) show } if tx0 ty0 moveto tk tchr cvs show /tdec tdec 0.1 mul def /tx0 tx0 tfw add def tms 0 gt % for float { tx0 ty0 moveto (.) show /tx0 tx0 tfw 0.5 mul add def 1 1 tms { pop /tk 0 def { tna tdec gt {/tna tna tdec sub def /tk tk 1 add def}{exit} ifelse } loop tx0 ty0 moveto tk tchr cvs show /tdec tdec 0.1 mul def /tx0 tx0 tfw add def } for } if }{ tx0 tfw sub ty0 moveto (#) show} ifelse } def /CieText {/num [0.0 0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9 1.0 ] def /tx 3 string def /fh 8 sx div def FontN /xtxt fh -0.1 mul def /ytxt fh 1.2 mul neg def /tms 1 def 0 0 0 1 setcmykcolor 0 1 10 {/k exch def /nu num k get def xtxt ytxt nu Shownum /xtxt xtxt 0.1 add def } for /xtxt fh 1.3 mul neg def /ytxt fh 0.2 mul neg def 0 1 10 {/k exch def /nu num k get def xtxt ytxt nu Shownum /ytxt ytxt 0.1 add def } for FontB 0.945 fh 1.2 mul neg moveto (x) show -0.04 0.95 moveto (y) show } def /CTCurve {/fh 6 sx div def FontN /buf 10 string def /r 0.02 def 0 0 0 1 setcmykcolor 0.1 mm sx div Lw mul setlinewidth newpath /k 0 def /xt ct k 1 add get def /yt ct k 2 add get def xt yt moveto 0 1 clen {/k exch 4 mul def /xt ct k 1 add get def /yt ct k 2 add get def xt yt lineto /t ct k 3 add get def /w t dup mul 1 add sqrt def /c 1 w div def /s t w div def t 0 gt {/dx r c mul def /dy r s mul def } {/dx r c mul neg def /dy r s mul neg def } ifelse xt dx add yt dy add lineto xt yt moveto } for stroke } def /CTText {/fh 4.5 sx div def FontN /buf 10 string def /r 0.02 def 0 0 0 1 setcmykcolor /k 0 def /xt ct k 1 add get def /yt ct k 2 add get def xt yt moveto 0 1 clen {/k exch 4 mul def /xt ct k 1 add get def /yt ct k 2 add get def /t ct k get def t 10001 lt t 25000 eq or { xt 0.007 add t 2000 eq { 0.001 add } if yt 0.044 sub t 9999 gt { 0.007 sub } if moveto 90 rotate t buf cvs show -90 rotate xt yt moveto } if } for } def /ColTemp % input x,y % output T % q=(x,y) % r=q-p1 % d=(r x s) % d=rx*sy-ry*sx % T=T1+(T2-T1)*d1/(d1+d2) % s=(1,t)/Sqrt(1+t*t) % {/lent ct length 4 idiv 1 sub def /k 0 def /T2 ct k get def /x2 ct k 1 add get def /y2 ct k 2 add get def /t2 ct k 3 add get def /den 1 t2 dup mul add sqrt def /sx2 1 den div def /sy2 t2 den div def /rx2 x x2 sub def /ry2 y y2 sub def /d2 rx2 sy2 mul ry2 sx2 mul sub def 1 1 lent { pop /val true def /k k 4 add def /T1 T2 def /x1 x2 def /y1 y2 def /t1 t2 def /d1 d2 def /T2 ct k get def /x2 ct k 1 add get def /y2 ct k 2 add get def /t2 ct k 3 add get def /den 1 t2 dup mul add sqrt def /sx2 1 den div def /sy2 t2 den div def t2 0 lt { /sx2 sx2 neg def /sy2 sy2 neg def } if /rx2 x x2 sub def /ry2 y y2 sub def /d2 rx2 sy2 mul ry2 sx2 mul sub def /dis d1 d2 mul def dis 0 le {exit} if /val false def } for val {/d1 d1 abs def /d2 d1 d2 abs add def /den d1 d2 div def /T1 1 T1 div def /T2 1 T2 div def /T 1 T1 T2 T1 sub den mul add div def /T T round cvi def CTDist } {/T 0 def } ifelse } def /CTDist { % No CT if too far away, T=0 /dis1 9999 def 0 1 clen {/k exch 4 mul def /xt ct k 1 add get def /yt ct k 2 add get def /dis2 x xt sub dup mul y yt sub dup mul add def dis2 dis1 lt { /dis1 dis2 def } if } for /dis1 dis1 sqrt def dis1 0.05 gt {/T 0 def } if } def /ScaLab {/y exch def /x exch def /Y 1 def xyYtoXYZ XYZtoLAB /xt a* 0.002 mul 0.75 add def /yt b* 0.002 mul 0.75 add def } def /CTCurveLab {/fh 6 sx div def /r 0.02 def 0 0 0 1 setcmykcolor 0.1 mm sx div Lw mul setlinewidth newpath /k 0 def /x ct k 1 add get def /y ct k 2 add get def x y ScaLab xt yt moveto 0 1 clen {/k exch 4 mul def /x ct k 1 add get def /y ct k 2 add get def x y ScaLab xt yt lineto /t ct k 3 add get def /w t dup mul 1 add sqrt def /c 1 w div def /s t w div def t 0 gt {/dx r c mul def /dy r s mul def } {/dx r c mul neg def /dy r s mul neg def } ifelse /xold x def /yold y def /x x dx add def /y y dy add def x y ScaLab xt yt lineto xold yold ScaLab xt yt moveto } for stroke } def /CTTextLab {/fh 4.5 sx div def FontN /buf 10 string def 0 0 0 1 setcmykcolor 0 1 clen {/k exch 4 mul def /x ct k 1 add get def /y ct k 2 add get def /t ct k get def t 10001 lt t 25000 eq or {x y ScaLab xt 0.005 add yt 0.008 sub moveto t buf cvs show } if } for } def /LF { /ytxt ytxt fh 0.98 mul sub def } def /OutHead {/fh 7 sx div def FontB /ytxt 1.60 def /xtx1 1.05 def xtx1 ytxt moveto head1 show LF FontN xtx1 ytxt moveto head2 show LF xtx1 ytxt moveto head3 show LF xtx1 ytxt moveto head4 show LF xtx1 ytxt moveto head5 show LF xtx1 ytxt moveto head6 show LF xtx1 ytxt moveto head7 show LF xtx1 ytxt moveto head8 show LF xtx1 ytxt moveto head9 show LF xtx1 ytxt moveto head10 show LF xtx1 ytxt moveto head11 show LF xtx1 ytxt moveto head12 show LF xtx1 ytxt moveto head13 show LF xtx1 ytxt moveto head14 show LF xtx1 ytxt moveto head15 show LF xtx1 ytxt moveto head16 show LF /ytxt 0.95 def xtx1 ytxt moveto (Col) show LF LF xtx1 ytxt moveto (X) show LF xtx1 ytxt moveto (Y) show LF xtx1 ytxt moveto (Z) show LF LF xtx1 ytxt moveto (x) show LF xtx1 ytxt moveto (y) show LF xtx1 ytxt moveto (z) show LF LF xtx1 ytxt moveto (L*) show LF xtx1 ytxt moveto (a*) show LF xtx1 ytxt moveto (b*) show LF LF xtx1 ytxt moveto (R') show LF xtx1 ytxt moveto (G') show LF xtx1 ytxt moveto (B') show LF LF xtx1 ytxt moveto (CCT) show LF /ytxt 0.005 def xtx1 ytxt moveto (Bars) show } def /OutData { /buf 10 string def /fh 7 sx div def FontN 0 0 0 1 setcmykcolor /dd 0.13 def /dx dd NCi 1 sub mul def /xtx1 1.16 def /xtx2 xtx1 dx add def /ytxt 0.95 def /tms 0 def xtx2 ytxt NCi Shownum LF LF /tms 4 def xtx2 ytxt X Shownum LF xtx2 ytxt Y Shownum LF xtx2 ytxt Z Shownum LF LF xtx2 ytxt x Shownum LF xtx2 ytxt y Shownum LF xtx2 ytxt z Shownum LF LF /tms 4 def xtx2 ytxt L* Shownum LF xtx2 ytxt a* Shownum LF xtx2 ytxt b* Shownum LF LF /tms 4 def xtx2 ytxt R 255 mul Shownum R 1.002 gt R -0.0019 lt or {xtx2 0.066 add ytxt moveto (!) show} if LF xtx2 ytxt G 255 mul Shownum G 1.002 gt G -0.0019 lt or {xtx2 0.066 add ytxt moveto (!) show} if LF xtx2 ytxt B 255 mul Shownum B 1.002 gt B -0.0019 lt or {xtx2 0.066 add ytxt moveto (!) show} if LF LF /tms 0 def xtx2 0.014 sub ytxt moveto T 0 ne {T buf cvs show ( K) show }{(none) show} ifelse } def /SpeGrid { newpath 0 0 0 1 setcmykcolor 0.1 mm sx div Lw mul setlinewidth /gx 0 def /gdx 0.1 def /gy 0 def /gdy 0.05 def { gx gy moveto gx 1 add gy lineto stroke /gy gy gdy add def gy 0.51 gt {exit}if } loop /gy 0 def { gx gy moveto gx gy 0.5 add lineto stroke /gx gx gdx add def gx 1.01 gt {exit}if } loop newpath 0 0 moveto 1 0 lineto 0 0 moveto 0 0.5 lineto 0.3 mm sx div Lw mul setlinewidth 0 setlinecap 0 0 0 1 setcmykcolor stroke 2 setlinecap } def /DrawCwI { % x = (lam-380)/400 newpath 0 0 moveto 1 0 rlineto 0 0.5 rlineto -1 0 rlineto closepath clip 0.2 mm sx div Lw mul setlinewidth newpath /k 0 def /xs1 CwI k get 380 sub 400 div def /ys1 CwI k 1 add get vmax div 0.5 mul Fscale mul def xs1 ys1 moveto 2 1 lencd { pop /k k 2 add def /xs2 CwI k get 380 sub 400 div def /ys2 CwI k 1 add get vmax div 0.5 mul Fscale mul def % xs2 ys1 lineto % histogram style xs2 ys2 lineto /xs1 xs2 def /ys1 ys2 def } for stroke } def /SpeText {/num [380 420 460 500 540 580 620 660 700 740 780 ] def /tx 3 string def /fh 8 sx div def FontN /xtxt fh -0.1 mul def /xtxt 0.03 def /ytxt fh 1.2 mul neg def /tms 0 def 0 0 0 1 setcmykcolor 0 1 10 {/k exch def /nu num k get def xtxt ytxt nu Shownum /xtxt xtxt 0.1 add def } for /xtxt fh 1.3 mul neg def /ytxt fh 0.2 mul neg def /tms 1 def 0 1 10 {/k exch def /nu k 0.2 mul Fscale div def xtxt ytxt nu Shownum /ytxt ytxt 0.05 add def } for /fh 7.5 sx div def FontB 0.932 fh 1.2 mul neg moveto (lam) show -0.04 0.468 moveto (S) show } def /MakeXYZ {% Euler /k 0 def /j 0 def /Xsum 0 def /Ysum 0 def /Zsum 0 def 1 1 lencd { pop /vald CwI k 1 add get def /xbar CMF j 1 add get def /ybar CMF j 2 add get def /zbar CMF j 3 add get def /Xsum Xsum vald xbar mul add def /Ysum Ysum vald ybar mul add def /Zsum Zsum vald zbar mul add def /k k 2 add def /j j 4 dlam mul add def } for /X Xsum Yref div def /Y Ysum Yref div def /Z Zsum Yref div def } def /MakeRef {% Euler /k 0 def /j 0 def /Ysum 0 def 1 1 lencd { pop /vald CwI k 1 add get def /ybar CMF j 2 add get def /Ysum Ysum vald ybar mul add def /k k 2 add def /j j 4 dlam mul add def } for /Yref Ysum def } def /SpeInit { /lencd 81 def % 380 to 780 step 5 /CwI lencd 2 mul array def /i 0 def /k 0 def 380 5 780 {/lam exch def CwI k lam put /k k 2 add def } for /lamin CwI 0 get def /lamax CwI lencd 2 mul 2 sub get def /dlam lamax lamin sub lencd 1 sub idiv def /vmax 2 def } def /MakeCwIE1 { % Offs global /k 0 def /i 0 def 380 10 730 { pop CwI k 1 add CwE1 i Offs add get put /k k 4 add def /i i 1 add def } for 740 5 780 { pop CwI k 1 add 0.0 put /k k 2 add def } for % Interpolation /k 0 def 380 10 730 { pop /s1 CwI k 1 add get def /s2 CwI k 5 add get def CwI k 3 add s1 s2 add 0.5 mul put /k k 4 add def } for } def /ColBar {/xc 1.125 NCi 1 sub 0.130 mul add def /yc 0 def /dx 0.105 def R G B setrgbcolor newpath xc yc moveto dx 0 rlineto 0 0.30 rlineto dx neg 0 rlineto closepath fill } def /MakeRGB { NCi 1 eq {/R 1 def /G 0 def /B 0 def } if NCi 2 eq {/R 0 def /G 1 def /B 0 def } if NCi 3 eq {/R 0 def /G 0 def /B 1 def } if NCi 4 eq {/R 1 def /G 1 def /B 1 def } if NCi 5 eq {/R 0 def /G 1 def /B 1 def } if NCi 6 eq {/R 1 def /G 0 def /B 1 def } if NCi 7 eq {/R 1 def /G 1 def /B 0 def } if NCi 8 eq {/R 0 def /G 0 def /B 0 def } if } def /MainProc { BBox true setstrokeadjust 2 setlinecap gsave x0 y0 translate sx sy scale MakeBrad PrimToMat Triangle CieGrid CieHorse CieDots CieNote CieText CTCurve CTCurveLab CTTextLab CTText WDots LabGrid SpeInit OutHead /NCi 4 def /Offs NCi 1 sub 39 mul 3 add def MakeCwIE1 MakeRef grestore gsave x0 y0 112 mm add translate sx sy scale SpeGrid SpeText 1 1 8 {/Ci exch def /Seq [ 8 1 2 3 4 5 6 7 ] def /NCi Seq Ci 1 sub get def /Offs NCi 1 sub 39 mul 3 add def grestore gsave x0 y0 translate sx sy scale MakeCwIE1 MakeXYZ XYZtoxyY XYZtoLAB /L1 L* def /a1 a* def /b1 b* def % XYZtoRGB MakeRGB IGamma x y CieDot a* b* LabDot ColBar ColTemp OutData grestore gsave x0 y0 112 mm add translate sx sy scale NCi 1 ge NCi 3 le and {R G B setrgbcolor DrawCwI}if NCi 4 eq {0 0 0 setrgbcolor [0.02 0.005] 0 setdash DrawCwI}if } for } def %--Standard inputs--------------------------------------------------------------- %--Choose one standard set /S 9 def % use only 9 S 0 eq {} if % None, use settings above S 1 eq { Prims709 WhiteD65 RefD65 Gam24 BradF RendA } if % sRGB AbsCol S 2 eq { PrimsAd98 WhiteD65 RefD65 Gam22 BradF RendA } if % AdobeRGB(98) AbsCol S 3 eq { PrimsOpti WhiteD65 RefD65 Gam22 BradF RendA } if % OptiRGB AbsCol S 4 eq { PrimsProp WhiteD50 RefD50 Gam18 BradF RendA } if % ProPhoto AbsCol S 5 eq { Prims709 WhiteD65 RefD50 Gam24 BradT RendR } if % sRGB RelCol S 6 eq { PrimsAd98 WhiteD65 RefD50 Gam22 BradT RendR } if % AdobeRGB(98) RelCol S 7 eq { PrimsOpti WhiteD65 RefD50 Gam22 BradT RendR } if % OptiRGB RelCol S 8 eq { PrimsProp WhiteD50 RefD50 Gam18 BradT RendR } if % ProPhoto RelCol S 9 eq { Prims709 WhiteD65 RefD50 Gam24 BradF RendA } if % sRGB AbsCol S 10 eq { PrimsAd98 WhiteD65 RefD50 Gam22 BradF RendA } if % AdobeRGB(98) AbsCol S 11 eq { PrimsOpti WhiteD65 RefD50 Gam22 BradF RendA } if % OptiRGB AbsCol S 12 eq { PrimsProp WhiteD50 RefD50 Gam18 BradF RendA } if % ProPhoto AbsCol %--Define headline /head1 (SpectroCalc) def /head2 (For monitor by Eye-One Pro using 8 fields) def /head3 (Gernot Hoffmann) def /head4 (September 26 / 2007) def /head5 () def /head6 (Spectra for R G B W) def /head7 (Calculations for R G B W C M Y K) def /head8 (Triangle shows sRGB) def /head9 () def /head10 (Reference white D50) def /head11 (Rendering Intent for CIELab: Absolute Colorimetric) def /head12 (Color space for bars, circles and squares: Device RGB) def /head13 () def % more headlines for each file below %--Choose zoomfactor for spectra /Fscale 0.5 def % Original Eye-One Pro file (without %) % LGOROWLENGTH 2 % CREATED "9/26/2007" # Time: 14:28 % INSTRUMENTATION "Eye-One Pro" % MEASUREMENT_SOURCE "Illumination=Emission Filter=No" % ILLUMINATION_NAME "Emission" % OBSERVER_ANGLE "2" % KEYWORD "SampleID" % KEYWORD "SAMPLE_NAME" % NUMBER_OF_FIELDS 41 % BEGIN_DATA_FORMAT % SampleID SAMPLE_NAME RGB_R RGB_G RGB_B nm380 nm390 nm400 nm410 nm420 nm430 nm440 nm450 nm460 nm470 nm480 nm490 nm500 nm510 nm520 nm530 nm540 nm550 nm560 nm570 nm580 nm590 nm600 nm610 nm620 nm630 nm640 nm650 nm660 nm670 nm680 nm690 nm700 nm710 nm720 nm730 % END_DATA_FORMAT % NUMBER_OF_SETS 8 % BEGIN_DATA % 1 A1 255.00 0.00 0.00 -0.0001 -0.0003 -0.0005 -0.0005 0.0034 0.0179 0.0217 0.0163 0.0168 0.0166 0.0195 0.0205 0.0072 0.0021 0.0007 0.0017 0.0254 0.0197 0.0033 0.0198 0.1656 0.3105 0.5351 2.0964 1.2294 0.4974 0.1572 0.1667 0.1303 0.1137 0.1066 0.0872 0.1286 0.2042 0.0349 0.0155 % 2 A2 0.00 255.00 0.00 -0.0003 0.0002 -0.0001 -0.0010 0.0012 0.0089 0.0119 0.0104 0.0181 0.0859 0.4412 0.8038 0.4153 0.1510 0.0873 0.3205 2.8372 2.0125 0.1759 0.1307 0.4354 0.3017 0.0791 0.1106 0.0427 0.0111 0.0036 0.0029 0.0027 0.0000 0.0016 0.0047 0.0157 0.0182 0.0026 0.0016 % 3 B1 0.00 0.00 255.00 0.0006 0.0007 0.0054 0.0322 0.2027 0.8866 1.1992 1.1148 1.0356 0.8195 0.8872 0.9636 0.3534 0.0818 0.0280 0.0277 0.1667 0.0905 0.0032 0.0026 0.0031 0.0025 0.0013 0.0094 0.0082 0.0034 0.0018 0.0032 0.0047 0.0031 0.0039 0.0042 0.0099 0.0088 0.0086 0.0085 % 4 B2 255.00 255.00 255.00 0.0011 0.0012 0.0063 0.0371 0.2327 1.0133 1.3715 1.2739 1.1927 1.0202 1.4712 1.9419 0.8420 0.2537 0.1255 0.3751 3.2027 2.2404 0.1966 0.1611 0.6430 0.6602 0.6747 2.4260 1.3986 0.5577 0.1789 0.1901 0.1496 0.1338 0.1235 0.1055 0.1593 0.2553 0.0463 0.0241 % 5 C1 0.00 255.00 255.00 0.0013 0.0017 0.0059 0.0345 0.2197 0.9559 1.2947 1.2037 1.1272 0.9633 1.3971 1.8491 0.8032 0.2417 0.1195 0.3581 3.0664 2.1455 0.1830 0.1348 0.4452 0.3077 0.0810 0.1165 0.0469 0.0129 0.0042 0.0063 0.0076 0.0069 0.0099 0.0097 0.0203 0.0253 0.0112 0.0145 % 6 C2 255.00 0.00 255.00 0.0005 0.0012 0.0062 0.0343 0.2171 0.9473 1.2779 1.1862 1.1032 0.8748 0.9470 1.0275 0.3773 0.0876 0.0305 0.0326 0.1935 0.1119 0.0091 0.0229 0.1725 0.3166 0.5464 2.1328 1.2508 0.5083 0.1644 0.1715 0.1381 0.1222 0.1115 0.0942 0.1362 0.2219 0.0439 0.0242 % 7 D1 255.00 255.00 0.00 0.0005 0.0003 0.0008 0.0020 0.0066 0.0256 0.0331 0.0279 0.0354 0.1049 0.4747 0.8510 0.4381 0.1591 0.0932 0.3364 2.9637 2.1014 0.1872 0.1567 0.6304 0.6445 0.6631 2.3926 1.3799 0.5532 0.1779 0.1863 0.1438 0.1267 0.1181 0.0992 0.1532 0.2473 0.0408 0.0226 % 8 D2 0.00 0.00 0.00 -0.0012 -0.0005 -0.0002 -0.0001 0.0005 0.0046 0.0069 0.0049 0.0043 0.0050 0.0079 0.0105 0.0036 0.0007 -0.0007 0.0006 0.0108 0.0071 0.0012 0.0016 0.0029 0.0011 0.0013 0.0067 0.0029 0.0017 0.0015 0.0003 -0.0020 -0.0017 -0.0012 -0.0028 -0.0011 -0.0045 -0.0058 -0.0035 % END_DATA % Eye-One Pro numbers only % Choose one /Cw 1 def Cw 1 eq { /head14 (Example by Gernot Hoffmann) def /head15 (Eizo CG19 / September 26 / 2007) def /head16 () def /CwE1 [ 255.00 0.00 0.00 -0.0001 -0.0003 -0.0005 -0.0005 0.0034 0.0179 0.0217 0.0163 0.0168 0.0166 0.0195 0.0205 0.0072 0.0021 0.0007 0.0017 0.0254 0.0197 0.0033 0.0198 0.1656 0.3105 0.5351 2.0964 1.2294 0.4974 0.1572 0.1667 0.1303 0.1137 0.1066 0.0872 0.1286 0.2042 0.0349 0.0155 0.00 255.00 0.00 -0.0003 0.0002 -0.0001 -0.0010 0.0012 0.0089 0.0119 0.0104 0.0181 0.0859 0.4412 0.8038 0.4153 0.1510 0.0873 0.3205 2.8372 2.0125 0.1759 0.1307 0.4354 0.3017 0.0791 0.1106 0.0427 0.0111 0.0036 0.0029 0.0027 0.0000 0.0016 0.0047 0.0157 0.0182 0.0026 0.0016 0.00 0.00 255.00 0.0006 0.0007 0.0054 0.0322 0.2027 0.8866 1.1992 1.1148 1.0356 0.8195 0.8872 0.9636 0.3534 0.0818 0.0280 0.0277 0.1667 0.0905 0.0032 0.0026 0.0031 0.0025 0.0013 0.0094 0.0082 0.0034 0.0018 0.0032 0.0047 0.0031 0.0039 0.0042 0.0099 0.0088 0.0086 0.0085 255.00 255.00 255.00 0.0011 0.0012 0.0063 0.0371 0.2327 1.0133 1.3715 1.2739 1.1927 1.0202 1.4712 1.9419 0.8420 0.2537 0.1255 0.3751 3.2027 2.2404 0.1966 0.1611 0.6430 0.6602 0.6747 2.4260 1.3986 0.5577 0.1789 0.1901 0.1496 0.1338 0.1235 0.1055 0.1593 0.2553 0.0463 0.0241 0.00 255.00 255.00 0.0013 0.0017 0.0059 0.0345 0.2197 0.9559 1.2947 1.2037 1.1272 0.9633 1.3971 1.8491 0.8032 0.2417 0.1195 0.3581 3.0664 2.1455 0.1830 0.1348 0.4452 0.3077 0.0810 0.1165 0.0469 0.0129 0.0042 0.0063 0.0076 0.0069 0.0099 0.0097 0.0203 0.0253 0.0112 0.0145 255.00 0.00 255.00 0.0005 0.0012 0.0062 0.0343 0.2171 0.9473 1.2779 1.1862 1.1032 0.8748 0.9470 1.0275 0.3773 0.0876 0.0305 0.0326 0.1935 0.1119 0.0091 0.0229 0.1725 0.3166 0.5464 2.1328 1.2508 0.5083 0.1644 0.1715 0.1381 0.1222 0.1115 0.0942 0.1362 0.2219 0.0439 0.0242 255.00 255.00 0.00 0.0005 0.0003 0.0008 0.0020 0.0066 0.0256 0.0331 0.0279 0.0354 0.1049 0.4747 0.8510 0.4381 0.1591 0.0932 0.3364 2.9637 2.1014 0.1872 0.1567 0.6304 0.6445 0.6631 2.3926 1.3799 0.5532 0.1779 0.1863 0.1438 0.1267 0.1181 0.0992 0.1532 0.2473 0.0408 0.0226 0.00 0.00 0.00 -0.0012 -0.0005 -0.0002 -0.0001 0.0005 0.0046 0.0069 0.0049 0.0043 0.0050 0.0079 0.0105 0.0036 0.0007 -0.0007 0.0006 0.0108 0.0071 0.0012 0.0016 0.0029 0.0011 0.0013 0.0067 0.0029 0.0017 0.0015 0.0003 -0.0020 -0.0017 -0.0012 -0.0028 -0.0011 -0.0045 -0.0058 -0.0035 ] def } if Cw 2 eq { /head14 (Example by Roger Breton) def /head15 (Eizo CG21 / September 23 / 2007) def /head16 (With kind permission) def /CwE1 [ 255.00 0.00 0.00 -0.0005 -0.0003 0.0025 0.0058 0.0158 0.0362 0.0465 0.0250 0.0166 0.0124 0.0138 0.0161 0.0082 0.0014 0.0022 0.0031 0.0115 0.0111 0.0032 0.0093 0.1648 0.4992 0.6657 3.1588 2.5963 1.0848 0.3510 0.2961 0.2449 0.2196 0.1995 0.1788 0.2068 0.4569 0.1449 0.0272 0.00 255.00 0.00 0.0003 0.0031 0.0019 0.0003 0.0010 0.0037 0.0092 0.0074 0.0140 0.0836 0.4609 1.0283 0.7091 0.3130 0.1853 0.2929 3.2523 3.6174 0.5105 0.1496 0.6000 0.5843 0.1701 0.1729 0.0976 0.0202 0.0067 0.0027 0.0033 0.0011 -0.0010 0.0021 0.0132 0.0319 0.0126 0.0001 0.00 0.00 255.00 -0.0006 0.0030 0.0097 0.0303 0.1513 0.6576 1.2457 1.2475 1.2986 1.1347 1.0765 1.2206 0.5809 0.1628 0.0566 0.0299 0.1447 0.1254 0.0126 0.0029 0.0034 0.0024 -0.0032 0.0074 0.0059 -0.0012 -0.0021 0.0007 -0.0014 -0.0021 -0.0008 0.0021 0.0039 0.0065 0.0062 0.0060 255.00 255.00 255.00 0.0036 0.0024 0.0102 0.0352 0.1648 0.6895 1.2822 1.2629 1.3127 1.2105 1.5232 2.2253 1.2764 0.4691 0.2382 0.3198 3.3512 3.6931 0.5155 0.1574 0.7510 1.0652 0.8252 3.2825 2.6511 1.0926 0.3525 0.2987 0.2485 0.2214 0.1934 0.1817 0.2175 0.4826 0.1564 0.0289 0.00 255.00 255.00 0.0016 0.0039 0.0085 0.0297 0.1520 0.6580 1.2430 1.2434 1.2988 1.2026 1.5228 2.2306 1.2811 0.4731 0.2402 0.3222 3.3883 3.7329 0.5220 0.1521 0.6003 0.5823 0.1709 0.1727 0.0950 0.0208 0.0087 0.0027 0.0011 0.0029 0.0022 0.0042 0.0163 0.0339 0.0107 -0.0005 255.00 0.00 255.00 0.0040 0.0027 0.0106 0.0342 0.1632 0.6907 1.2850 1.2656 1.3090 1.1398 1.0831 1.2268 0.5841 0.1628 0.0567 0.0325 0.1493 0.1278 0.0132 0.0107 0.1657 0.4959 0.6633 3.1377 2.5709 1.0724 0.3479 0.2945 0.2420 0.2190 0.1963 0.1813 0.2098 0.4568 0.1472 0.0242 255.00 255.00 0.00 0.0002 0.0016 0.0025 0.0073 0.0166 0.0391 0.0516 0.0284 0.0271 0.0904 0.4621 1.0239 0.7053 0.3106 0.1833 0.2914 3.2230 3.5845 0.5059 0.1559 0.7527 1.0695 0.8307 3.3114 2.6767 1.1018 0.3570 0.3010 0.2486 0.2233 0.2038 0.1887 0.2184 0.4798 0.1495 0.0264 0.00 0.00 0.00 -0.0010 0.0008 0.0018 -0.0008 0.0018 0.0027 0.0050 0.0024 0.0051 0.0065 0.0068 0.0110 0.0061 0.0010 0.0017 0.0024 0.0083 0.0078 0.0020 0.0017 0.0020 0.0012 -0.0003 0.0089 0.0068 0.0007 0.0009 0.0029 0.0001 0.0005 -0.0015 -0.0024 0.0025 0.0036 0.0036 0.0071 ] def } if %--End standard inputs------------------------------------------------------------- MainProc showpage %%EndDocument