%!PS-Adobe-3.0 EPSF-3.0 XE390-7N %%BoundingBox: 70 83 245 190 %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/SE25/) /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:2016070112000) /ModDate (D:2016070112000) /DOCINFO pdfmark07 [ /View [ /FitB ] /DOCVIEW pdfmark07 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def /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 /TV {160 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIV {160 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-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 /TBV {160 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-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 /TBIV {160 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-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 /SV {160 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SK {250 /Symbol FS} bind def /SM {300 /Symbol FS} bind def /SG {350 /Symbol FS} bind def %%EndProlog gsave /nshow {TS show} bind def /kshow {TIS show} bind def /bshow {TBS show} bind def /jshow {TBIS show} bind def /ibshown {TBS -50 -50 rmoveto show 0 50 rmoveto TBS} bind def /ibshow0 {TBS -00 -50 rmoveto show 0 50 rmoveto TBS} bind def /ishown {TS -50 -50 rmoveto show 0 50 rmoveto TS } bind def /ishow0 {TS -00 -50 rmoveto show 0 50 rmoveto TS } bind def %40% kleiner /ns4 {250 /Times-ISOL1 FS show TK} bind def /ks4 {250 /TimesI-ISOL1 FS show TK} bind def /bs4 {250 /TimesB-ISOL1 FS show TK} bind def /js4 {250 /TimesBI-ISOL1 FS show TK} bind def /ss4 {250 /Symbol FS show TK} bind def /is4 {200 /Times-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /es4 {200 /Times-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ib4 {200 /TimesB-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /eb4 {200 /TimesB-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ip4 {200 /Times-ISOL1 FS 30 30 rmoveto (\267) show 30 -30 rmoveto TK} bind def %60% kleiner /ns6 {200 /Times-ISOL1 FS show TS} bind def /ks6 {200 /TimesI-ISOL1 FS show TS} bind def /bs6 {200 /TimesB-ISOL1 FS show TS} bind def /js6 {200 /TimesBI-ISOL1 FS show TS} bind def /ss6 {200 /Symbol FS show TS} bind def /is6 {160 /Times-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /es6 {160 /Times-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto TS} bind def /ib6 {160 /TimesB-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /eb6 {160 /TimesB-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto TS} bind def /ip6 {160 /Times-ISOL1 FS 24 24 rmoveto (\267) show 24 -24 rmoveto TS} bind /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show} def /cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show} def %************************************************************* %Aus Kittelmann_CD_DA/Daten der Ausertung/ %Farbwerte der Farbfelder und Reihen.xls/CIELAB_1 %siehe auch Dipl-Arbeit Seite 31 ff /LAB_KIi 3100 array def %310x10 /LAB_KIi [ %n L*r a*r b*r L*t a*t b*t E*r-t C*r h*r % L*r a*r b*r CIELAB data of 310 printel samples, see page 34 % 95.410 -0.980 4.760 ISO 15775 Papierweiss Tab. 2.2 1 94.806 -1.832 6.977 95.410 -0.980 4.760 2.450 7.213 104.710 2 76.937 -16.536 -18.248 77.015 -15.805 -18.995 1.048 24.626 227.818 3 59.410 -30.942 -42.455 58.620 -30.630 -42.750 0.899 52.534 233.915 4 94.807 -1.883 7.035 95.410 -0.980 4.760 2.520 7.282 104.985 5 76.919 -16.503 -18.327 77.015 -15.805 -18.995 0.971 24.663 227.998 6 59.468 -30.964 -42.431 58.620 -30.630 -42.750 0.966 52.528 233.880 7 94.796 -1.848 7.051 95.410 -0.980 4.760 2.526 7.289 104.684 8 60.143 15.422 -18.907 60.565 15.185 -19.800 1.016 24.399 309.204 9 27.166 31.237 -43.580 25.720 31.350 -44.360 1.646 53.619 305.632 10 94.811 -1.797 6.812 95.410 -0.980 4.760 2.288 7.045 104.775 11 60.039 15.614 -19.124 60.565 15.185 -19.800 0.958 24.689 309.231 12 27.145 31.257 -43.757 25.720 31.350 -44.360 1.550 53.774 305.539 13 94.813 -1.742 6.702 95.410 -0.980 4.760 2.170 6.925 104.573 14 71.354 37.382 -0.087 71.770 37.110 -1.020 1.057 37.382 359.867 15 48.299 74.762 -6.470 48.130 75.200 -6.800 0.573 75.042 355.054 16 94.862 -1.790 6.808 95.410 -0.980 4.760 2.269 7.039 104.734 17 71.430 37.531 -0.146 71.770 37.110 -1.020 1.028 37.531 359.777 18 48.348 75.034 -6.602 48.130 75.200 -6.800 0.338 75.324 354.972 19 94.829 -1.679 6.457 95.410 -0.980 4.760 1.925 6.672 104.576 20 71.895 30.271 30.198 71.675 32.165 28.415 2.611 42.758 44.931 21 48.389 65.379 52.900 47.940 65.310 52.070 0.946 84.100 38.977 22 94.841 -1.727 6.563 95.410 -0.980 4.760 2.033 6.787 104.743 23 71.834 30.282 30.495 71.675 32.165 28.415 2.810 42.976 45.200 24 48.373 65.160 52.576 47.940 65.310 52.070 0.683 83.726 38.899 25 94.856 -1.811 6.930 95.410 -0.980 4.760 2.389 7.163 104.645 26 91.995 -9.864 53.175 92.890 -6.070 50.465 4.747 54.082 100.509 27 88.831 -7.617 100.643 90.370 -11.160 96.170 5.910 100.931 94.328 28 94.840 -1.857 6.961 95.410 -0.980 4.760 2.437 7.204 104.938 29 91.969 -9.864 53.060 92.890 -6.070 50.465 4.688 53.969 100.532 30 88.822 -7.585 99.964 90.370 -11.160 96.170 5.438 100.251 94.339 31 94.843 -1.831 6.986 95.410 -0.980 4.760 2.450 7.223 104.689 32 72.670 -33.310 23.706 73.155 -31.970 20.735 3.296 40.885 144.561 33 52.763 -62.634 40.725 50.900 -62.960 36.710 4.438 74.710 146.968 34 94.844 -1.844 6.940 95.410 -0.980 4.760 2.413 7.181 104.883 35 72.659 -33.330 23.584 73.155 -31.970 20.735 3.195 40.830 144.717 36 52.751 -62.659 40.456 50.900 -62.960 36.710 4.189 74.585 147.152 37 59.858 -30.723 -42.299 58.620 -30.630 -42.750 1.321 52.279 234.008 38 39.512 -15.438 -20.098 38.315 -15.065 -21.605 1.960 25.343 232.471 39 20.439 0.604 1.879 18.010 0.500 -0.460 3.374 1.974 72.184 40 59.843 -30.628 -42.217 58.620 -30.630 -42.750 1.334 52.157 234.039 41 39.472 -15.216 -20.290 38.315 -15.065 -21.605 1.759 25.361 233.132 42 20.596 0.834 1.790 18.010 0.500 -0.460 3.444 1.975 65.031 43 28.050 31.224 -43.592 25.720 31.350 -44.360 2.457 53.621 305.613 44 24.428 16.573 -21.290 21.865 15.925 -22.410 2.871 26.980 307.898 45 20.775 1.062 1.849 18.010 0.500 -0.460 3.646 2.132 60.115 46 27.951 31.592 -43.586 25.720 31.350 -44.360 2.374 53.831 305.935 47 24.413 16.789 -21.558 21.865 15.925 -22.410 2.822 27.324 307.911 48 20.742 1.238 1.780 18.010 0.500 -0.460 3.609 2.168 55.193 49 47.685 75.265 -6.106 48.130 75.200 -6.800 0.827 75.513 355.362 50 34.058 36.976 -1.848 33.070 37.850 -3.630 2.217 37.022 357.138 51 19.828 0.759 1.618 18.010 0.500 -0.460 2.773 1.787 64.874 52 47.770 75.333 -6.073 48.130 75.200 -6.800 0.823 75.577 355.391 53 34.024 36.746 -1.841 33.070 37.850 -3.630 2.308 36.792 357.131 54 19.895 0.766 1.713 18.010 0.500 -0.460 2.889 1.877 65.917 55 48.084 65.391 53.701 47.940 65.310 52.070 1.639 84.616 39.394 56 33.902 32.769 28.182 32.975 32.905 25.805 2.555 43.221 40.696 57 20.096 0.689 1.832 18.010 0.500 -0.460 3.105 1.958 69.398 58 48.093 65.240 53.510 47.940 65.310 52.070 1.449 84.377 39.358 59 33.983 32.963 28.200 32.975 32.905 25.805 2.599 43.379 40.547 60 20.045 0.703 1.815 18.010 0.500 -0.460 3.059 1.946 68.836 61 88.969 -7.916 99.202 90.370 -11.160 96.170 4.656 99.517 94.562 62 54.202 -4.710 50.539 54.190 -5.330 47.855 2.755 50.758 95.324 63 20.513 1.218 2.043 18.010 0.500 -0.460 3.612 2.379 59.195 64 88.968 -7.927 98.732 90.370 -11.160 96.170 4.357 99.050 94.591 65 54.261 -4.648 50.299 54.190 -5.330 47.855 2.539 50.514 95.279 66 20.641 0.847 1.666 18.010 0.500 -0.460 3.401 1.869 63.062 67 53.549 -61.840 40.746 50.900 -62.960 36.710 4.956 74.057 146.619 68 35.886 -31.821 20.383 34.455 -31.230 18.125 2.738 37.790 147.359 69 20.920 1.315 2.010 18.010 0.500 -0.460 3.903 2.401 56.801 70 53.497 -62.212 40.195 50.900 -62.960 36.710 4.410 74.067 147.134 71 35.953 -31.500 20.084 34.455 -31.230 18.125 2.481 37.358 147.479 72 20.895 1.150 1.709 18.010 0.500 -0.460 3.667 2.059 56.060 73 94.784 -1.844 6.954 95.410 -0.980 4.760 2.440 7.194 104.855 74 57.474 -0.187 4.308 56.710 -0.240 2.150 2.290 4.312 92.481 75 19.853 0.660 2.057 18.010 0.500 -0.460 3.124 2.160 72.205 76 94.850 -1.803 6.917 95.410 -0.980 4.760 2.376 7.148 104.613 77 57.492 -0.158 4.396 56.710 -0.240 2.150 2.380 4.399 92.060 78 19.840 0.774 1.873 18.010 0.500 -0.460 2.978 2.026 67.556 79 94.712 -1.740 6.671 95.410 -0.980 4.760 2.171 6.894 104.624 80 75.767 -1.256 4.576 76.060 -0.610 3.455 1.327 4.745 105.346 81 57.770 -0.029 4.084 56.710 -0.240 2.150 2.215 4.084 90.406 82 38.879 0.418 3.397 37.360 0.130 0.845 2.983 3.422 82.988 83 20.500 0.760 1.906 18.010 0.500 -0.460 3.445 2.052 68.276 84 94.746 -1.749 6.752 95.410 -0.980 4.760 2.236 6.975 104.522 85 75.784 -1.036 4.321 76.060 -0.610 3.455 1.004 4.443 103.478 86 57.797 0.122 4.078 56.710 -0.240 2.150 2.243 4.080 88.280 87 38.909 0.429 3.229 37.360 0.130 0.845 2.859 3.258 82.432 88 20.404 0.745 1.681 18.010 0.500 -0.460 3.221 1.839 66.098 89 94.821 -1.758 6.747 95.410 -0.980 4.760 2.214 6.973 104.604 90 86.389 -9.074 -6.237 86.213 -8.393 -7.118 1.128 11.011 214.502 91 76.787 -16.568 -18.756 77.015 -15.805 -18.995 0.832 25.026 228.543 92 68.577 -23.637 -30.298 67.818 -23.218 -30.873 1.041 38.427 232.040 93 59.128 -30.875 -42.876 58.620 -30.630 -42.750 0.578 52.835 234.243 94 94.810 -1.748 6.756 95.410 -0.980 4.760 2.221 6.978 104.505 95 86.419 -8.953 -6.387 86.213 -8.393 -7.118 0.943 10.998 215.505 96 76.820 -16.491 -18.789 77.015 -15.805 -18.995 0.742 25.000 228.727 97 68.658 -23.582 -30.348 67.818 -23.218 -30.873 1.056 38.433 232.151 98 59.211 -30.905 -42.735 58.620 -30.630 -42.750 0.652 52.739 234.127 99 94.672 -1.678 6.502 95.410 -0.980 4.760 2.016 6.715 104.470 100 78.300 7.067 -7.013 77.988 7.103 -7.520 0.597 9.956 315.220 101 60.293 15.348 -19.582 60.565 15.185 -19.800 0.385 24.880 308.089 102 44.203 22.986 -31.712 43.143 23.268 -32.080 1.157 39.167 305.936 103 27.016 31.165 -43.974 25.720 31.350 -44.360 1.365 53.898 305.325 104 94.830 -1.783 6.928 95.410 -0.980 4.760 2.383 7.154 104.433 105 78.257 7.039 -7.270 77.988 7.103 -7.520 0.373 10.119 314.077 106 60.155 15.718 -20.231 60.565 15.185 -19.800 0.798 25.619 307.845 107 44.111 23.540 -32.017 43.143 23.268 -32.080 1.008 39.740 306.324 108 26.626 33.169 -44.169 25.720 31.350 -44.360 2.042 55.237 306.905 109 94.830 -1.701 6.558 95.410 -0.980 4.760 2.022 6.775 104.543 110 83.971 17.488 2.916 83.590 18.065 1.870 1.254 17.729 9.468 111 71.531 37.398 -0.616 71.770 37.110 -1.020 0.550 37.403 359.056 112 60.110 56.166 -3.810 59.950 56.155 -3.910 0.189 56.295 356.120 113 48.082 74.995 -6.574 48.130 75.200 -6.800 0.309 75.282 354.990 114 94.878 -1.729 6.630 95.410 -0.980 4.760 2.084 6.852 104.617 115 83.935 17.501 2.928 83.590 18.065 1.870 1.247 17.744 9.497 116 71.513 37.496 -0.695 71.770 37.110 -1.020 0.566 37.502 358.938 117 60.110 56.159 -3.719 59.950 56.155 -3.910 0.249 56.282 356.211 118 48.182 74.902 -6.412 48.130 75.200 -6.800 0.492 75.176 355.107 119 94.804 -1.818 7.199 95.410 -0.980 4.760 2.649 7.425 104.176 120 82.777 14.554 17.861 83.543 15.593 16.588 1.812 23.040 50.825 121 71.216 31.512 29.973 71.675 32.165 28.415 1.750 43.490 43.566 122 59.233 49.560 42.426 59.808 48.738 40.243 2.403 65.239 40.565 123 47.901 65.572 53.795 47.940 65.310 52.070 1.745 84.815 39.365 124 94.772 -1.833 6.825 95.410 -0.980 4.760 2.324 7.067 105.036 125 82.720 14.616 17.563 83.543 15.593 16.588 1.607 22.849 50.232 126 71.256 31.437 30.263 71.675 32.165 28.415 2.030 43.636 43.910 127 59.267 49.547 42.334 59.808 48.738 40.243 2.306 65.169 40.511 128 47.815 65.383 53.061 47.940 65.310 52.070 1.001 84.204 39.061 129 94.840 -1.780 6.905 95.410 -0.980 4.760 2.359 7.131 104.455 130 93.112 -6.364 28.580 94.150 -3.525 27.613 3.174 29.280 102.554 131 92.030 -9.686 51.982 92.890 -6.070 50.465 4.014 52.877 100.555 132 90.731 -10.442 77.889 91.630 -8.615 73.318 5.005 78.586 97.636 133 88.925 -7.755 98.630 90.370 -11.160 96.170 4.442 98.935 94.496 134 94.750 -1.706 6.774 95.410 -0.980 4.760 2.240 6.985 104.140 135 93.456 -6.983 29.551 94.150 -3.525 27.613 4.024 30.365 103.295 136 91.762 -9.588 54.588 92.890 -6.070 50.465 5.536 55.424 99.962 137 90.523 -9.923 78.975 91.630 -8.615 73.318 5.912 79.596 97.161 138 88.450 -7.383 99.721 90.370 -11.160 96.170 5.528 99.994 94.234 139 94.774 -1.701 6.618 95.410 -0.980 4.760 2.092 6.833 104.419 140 84.620 -17.161 14.272 84.283 -16.475 12.748 1.706 22.320 140.250 141 72.841 -32.934 22.138 73.155 -31.970 20.735 1.731 39.683 146.092 142 63.629 -47.768 31.268 62.028 -47.465 28.723 3.022 57.091 146.792 143 53.074 -62.749 39.986 50.900 -62.960 36.710 3.938 74.407 147.493 144 94.824 -1.732 6.644 95.410 -0.980 4.760 2.111 6.866 104.611 145 84.610 -17.132 14.251 84.283 -16.475 12.748 1.673 22.284 140.245 146 72.795 -32.837 21.866 73.155 -31.970 20.735 1.470 39.451 146.341 147 63.609 -47.604 30.857 62.028 -47.465 28.723 2.660 56.730 147.049 148 53.068 -62.538 39.758 50.900 -62.960 36.710 3.764 74.106 147.554 149 59.304 -30.836 -42.453 58.620 -30.630 -42.750 0.774 52.471 234.007 150 48.835 -23.073 -32.162 48.468 -22.848 -32.178 0.431 39.582 234.345 151 38.544 -15.514 -20.880 38.315 -15.065 -21.605 0.883 26.012 233.387 152 28.577 -8.727 -9.949 28.163 -7.283 -11.033 1.853 13.234 228.743 153 19.400 0.578 1.071 18.010 0.500 -0.460 2.069 1.217 61.645 154 59.283 -30.812 -42.644 58.620 -30.630 -42.750 0.696 52.611 234.150 155 49.013 -23.128 -32.035 48.468 -22.848 -32.178 0.630 39.512 234.172 156 38.632 -15.429 -21.396 38.315 -15.065 -21.605 0.526 26.379 234.205 157 28.626 -9.032 -10.165 28.163 -7.283 -11.033 2.007 13.598 228.377 158 19.526 0.414 1.083 18.010 0.500 -0.460 2.165 1.159 69.068 159 26.747 31.469 -43.910 25.720 31.350 -44.360 1.128 54.022 305.628 160 25.010 24.152 -33.934 23.793 23.638 -33.385 1.431 41.651 305.440 161 23.199 16.450 -22.261 21.865 15.925 -22.410 1.441 27.680 306.463 162 21.560 8.223 -9.882 19.938 8.213 -11.435 2.246 12.856 309.764 163 19.767 0.771 1.400 18.010 0.500 -0.460 2.573 1.598 61.142 164 26.466 33.265 -43.952 25.720 31.350 -44.360 2.096 55.121 307.121 165 24.531 25.256 -34.061 23.793 23.638 -33.385 1.903 42.403 306.557 166 22.532 17.348 -22.759 21.865 15.925 -22.410 1.610 28.617 307.317 167 21.297 9.116 -10.038 19.938 8.213 -11.435 2.148 13.559 312.243 168 20.241 1.362 2.421 18.010 0.500 -0.460 3.745 2.778 60.648 169 47.954 75.045 -6.124 48.130 75.200 -6.800 0.715 75.294 355.335 170 39.935 56.633 -5.204 40.600 56.525 -5.215 0.674 56.872 354.750 171 34.317 37.076 -2.591 33.070 37.850 -3.630 1.798 37.166 356.003 172 27.113 19.906 0.097 25.540 19.175 -2.045 2.756 19.906 0.279 173 20.282 0.865 1.650 18.010 0.500 -0.460 3.122 1.863 62.340 174 48.114 74.940 -6.437 48.130 75.200 -6.800 0.447 75.216 355.091 175 40.005 56.475 -5.385 40.600 56.525 -5.215 0.621 56.731 354.553 176 34.340 37.261 -2.923 33.070 37.850 -3.630 1.569 37.376 355.515 177 27.115 19.691 -0.318 25.540 19.175 -2.045 2.394 19.694 359.076 178 20.357 0.721 1.317 18.010 0.500 -0.460 2.952 1.501 61.306 179 47.885 65.560 53.596 47.940 65.310 52.070 1.548 84.680 39.267 180 40.159 49.175 39.907 40.458 49.108 38.938 1.017 63.331 39.061 181 33.458 32.557 27.471 32.975 32.905 25.805 1.770 42.598 40.158 182 26.575 18.004 15.031 25.493 16.703 12.673 2.904 23.454 39.858 183 19.509 0.349 1.149 18.010 0.500 -0.460 2.205 1.201 73.119 184 47.899 65.372 53.449 47.940 65.310 52.070 1.381 84.441 39.270 185 40.193 49.025 39.636 40.458 49.108 38.938 0.752 63.043 38.955 186 33.443 32.649 27.569 32.975 32.905 25.805 1.843 42.732 40.179 187 26.586 17.967 15.189 25.493 16.703 12.673 3.021 23.527 40.209 188 19.559 0.718 1.107 18.010 0.500 -0.460 2.214 1.319 57.028 189 88.855 -7.734 98.558 90.370 -11.160 96.170 4.442 98.861 94.487 190 72.418 -8.190 74.514 72.280 -8.245 72.013 2.506 74.962 96.272 191 53.856 -5.000 49.618 54.190 -5.330 47.855 1.824 49.869 95.755 192 37.368 -2.171 26.048 36.100 -2.415 23.698 2.682 26.138 94.764 193 19.741 0.588 1.403 18.010 0.500 -0.460 2.544 1.521 67.252 194 88.335 -7.243 99.966 90.370 -11.160 96.170 5.821 100.228 94.144 195 72.521 -8.080 74.951 72.280 -8.245 72.013 2.953 75.385 96.153 196 54.041 -4.892 50.769 54.190 -5.330 47.855 2.951 51.005 95.504 197 37.291 -2.102 27.349 36.100 -2.415 23.698 3.854 27.430 94.394 198 20.047 1.076 1.865 18.010 0.500 -0.460 3.144 2.153 60.022 199 52.992 -62.907 39.847 50.900 -62.960 36.710 3.771 74.466 147.649 200 44.029 -47.586 30.202 42.678 -47.095 27.418 3.134 56.361 147.598 201 35.211 -32.267 19.159 34.455 -31.230 18.125 1.648 37.526 149.301 202 26.980 -16.066 9.803 26.233 -15.365 8.833 1.411 18.821 148.611 203 20.466 0.704 1.621 18.010 0.500 -0.460 3.225 1.767 66.517 204 52.908 -62.721 39.980 50.900 -62.960 36.710 3.845 74.379 147.486 205 43.965 -47.550 30.261 42.678 -47.095 27.418 3.154 56.362 147.527 206 35.087 -31.927 19.339 34.455 -31.230 18.125 1.536 37.328 148.796 207 26.972 -15.836 9.697 26.233 -15.365 8.833 1.232 18.569 148.519 208 20.294 0.770 1.635 18.010 0.500 -0.460 3.111 1.808 64.791 209 94.809 -1.830 6.976 95.410 -0.980 4.760 2.449 7.212 104.699 210 58.984 -30.966 -42.837 58.620 -30.630 -42.750 0.503 52.858 234.137 211 19.349 0.469 1.318 18.010 0.500 -0.460 2.226 1.398 70.426 212 94.944 -1.846 7.105 95.410 -0.980 4.760 2.543 7.341 104.567 213 58.971 -30.882 -42.895 58.620 -30.630 -42.750 0.456 52.855 234.248 214 19.176 0.272 0.555 18.010 0.500 -0.460 1.563 0.618 63.872 215 94.790 -1.802 6.934 95.410 -0.980 4.760 2.405 7.164 104.566 216 26.440 31.213 -44.153 25.720 31.350 -44.360 0.762 54.072 305.257 217 19.441 0.489 1.328 18.010 0.500 -0.460 2.290 1.415 69.769 218 94.798 -1.798 6.914 95.410 -0.980 4.760 2.385 7.145 104.579 219 26.313 31.108 -44.083 25.720 31.350 -44.360 0.697 53.954 305.210 220 19.377 0.342 0.924 18.010 0.500 -0.460 1.951 0.985 69.704 221 94.819 -1.802 6.895 95.410 -0.980 4.760 2.363 7.127 104.645 222 47.850 74.956 -6.176 48.130 75.200 -6.800 0.726 75.210 355.289 223 19.840 0.541 1.276 18.010 0.500 -0.460 2.523 1.386 67.045 224 94.770 -1.747 6.714 95.410 -0.980 4.760 2.194 6.937 104.589 225 47.821 75.208 -5.965 48.130 75.200 -6.800 0.890 75.444 355.465 226 19.694 0.611 1.037 18.010 0.500 -0.460 2.255 1.203 59.503 227 94.825 -1.776 6.746 95.410 -0.980 4.760 2.218 6.976 104.750 228 48.028 65.260 53.084 47.940 65.310 52.070 1.019 84.124 39.126 229 19.876 0.685 0.983 18.010 0.500 -0.460 2.366 1.198 55.119 230 94.757 -1.745 6.631 95.410 -0.980 4.760 2.124 6.857 104.740 231 48.025 65.348 52.692 47.940 65.310 52.070 0.629 83.945 38.880 232 19.948 0.440 0.952 18.010 0.500 -0.460 2.398 1.049 65.224 233 94.873 -1.904 7.232 95.410 -0.980 4.760 2.693 7.478 104.749 234 88.844 -7.513 99.977 90.370 -11.160 96.170 5.488 100.259 94.298 235 19.166 0.454 1.197 18.010 0.500 -0.460 2.021 1.280 69.252 236 94.774 -1.875 7.051 95.410 -0.980 4.760 2.540 7.296 104.892 237 88.796 -7.519 99.400 90.370 -11.160 96.170 5.115 99.684 94.326 238 19.338 0.352 0.841 18.010 0.500 -0.460 1.865 0.912 67.297 239 94.804 -1.889 7.199 95.410 -0.980 4.760 2.672 7.443 104.699 240 52.200 -63.279 39.813 50.900 -62.960 36.710 3.380 74.762 147.823 241 19.336 0.468 1.313 18.010 0.500 -0.460 2.214 1.394 70.403 242 94.841 -1.856 7.078 95.410 -0.980 4.760 2.542 7.317 104.693 243 52.201 -63.318 39.205 50.900 -62.960 36.710 2.837 74.473 148.235 244 19.327 0.532 0.810 18.010 0.500 -0.460 1.830 0.969 56.705 245 59.110 -30.725 -42.847 58.620 -30.630 -42.750 0.508 52.725 234.357 246 26.841 31.207 -43.931 25.720 31.350 -44.360 1.209 53.887 305.389 247 47.998 74.766 -5.917 48.130 75.200 -6.800 0.993 74.999 355.475 248 59.180 -30.727 -42.860 58.620 -30.630 -42.750 0.579 52.736 234.363 249 26.918 30.963 -43.680 25.720 31.350 -44.360 1.431 53.541 305.332 250 47.960 74.748 -5.974 48.130 75.200 -6.800 0.957 74.987 355.431 251 47.932 74.957 -6.193 48.130 75.200 -6.800 0.683 75.213 355.277 252 47.999 65.290 53.196 47.940 65.310 52.070 1.127 84.217 39.172 253 88.840 -7.715 98.748 90.370 -11.160 96.170 4.567 99.049 94.467 254 47.938 74.793 -6.065 48.130 75.200 -6.800 0.862 75.039 355.364 255 47.995 65.199 52.614 47.940 65.310 52.070 0.558 83.781 38.902 256 88.992 -7.768 98.150 90.370 -11.160 96.170 4.162 98.457 94.525 257 88.806 -7.564 99.378 90.370 -11.160 96.170 5.066 99.666 94.353 258 52.054 -63.456 39.583 50.900 -62.960 36.710 3.136 74.790 148.045 259 58.953 -30.907 -42.839 58.620 -30.630 -42.750 0.442 52.824 234.190 260 88.799 -7.554 99.130 90.370 -11.160 96.170 4.923 99.418 94.358 261 52.114 -63.302 39.247 50.900 -62.960 36.710 2.833 74.482 148.202 262 59.070 -30.873 -42.721 58.620 -30.630 -42.750 0.513 52.709 234.145 263 26.607 31.110 -43.675 25.720 31.350 -44.360 1.146 53.622 305.462 264 58.916 -30.902 -42.852 58.620 -30.630 -42.750 0.414 52.832 234.204 265 52.088 -63.025 39.540 50.900 -62.960 36.710 3.070 74.401 147.897 266 26.722 30.906 -43.822 25.720 31.350 -44.360 1.220 53.624 305.194 267 59.121 -30.882 -42.788 58.620 -30.630 -42.750 0.562 52.769 234.181 268 52.256 -63.141 39.105 50.900 -62.960 36.710 2.758 74.269 148.229 269 52.510 -62.813 39.840 50.900 -62.960 36.710 3.523 74.382 147.615 270 88.821 -7.677 99.211 90.370 -11.160 96.170 4.876 99.507 94.425 271 47.854 65.422 53.179 47.940 65.310 52.070 1.118 84.309 39.106 272 52.472 -62.907 39.443 50.900 -62.960 36.710 3.153 74.250 147.912 273 88.911 -7.687 98.611 90.370 -11.160 96.170 4.488 98.910 94.458 274 48.184 65.048 53.192 47.940 65.310 52.070 1.177 84.027 39.274 275 47.989 65.268 53.085 47.940 65.310 52.070 1.017 84.130 39.122 276 47.951 74.898 -5.916 48.130 75.200 -6.800 0.951 75.131 355.484 277 26.916 31.080 -43.714 25.720 31.350 -44.360 1.386 53.637 305.412 278 48.097 65.075 52.962 47.940 65.310 52.070 0.936 83.903 39.141 279 47.899 75.065 -6.424 48.130 75.200 -6.800 0.461 75.339 355.109 280 26.923 31.161 -44.194 25.720 31.350 -44.360 1.229 54.075 305.188 281 59.056 -30.846 -42.596 58.620 -30.630 -42.750 0.510 52.592 234.090 282 42.393 -0.024 -43.358 42.170 0.360 -43.555 0.485 43.358 269.969 283 26.201 31.341 -43.878 25.720 31.350 -44.360 0.681 53.922 305.538 284 35.879 52.754 -25.625 36.925 53.275 -25.580 1.170 58.649 334.092 285 47.697 75.104 -5.768 48.130 75.200 -6.800 1.123 75.325 355.608 286 59.077 -30.803 -42.830 58.620 -30.630 -42.750 0.495 52.757 234.277 287 42.530 0.124 -43.449 42.170 0.360 -43.555 0.443 43.449 270.163 288 26.456 31.114 -43.949 25.720 31.350 -44.360 0.875 53.848 305.297 289 36.149 53.085 -25.997 36.925 53.275 -25.580 0.901 59.109 333.908 290 47.813 74.760 -5.930 48.130 75.200 -6.800 1.026 74.995 355.465 291 47.681 75.057 -5.678 48.130 75.200 -6.800 1.217 75.271 355.674 292 48.009 70.346 23.542 48.035 70.255 22.635 0.912 74.181 18.503 293 47.948 65.385 53.204 47.940 65.310 52.070 1.137 84.297 39.135 294 69.043 27.507 75.803 69.155 27.075 74.120 1.742 80.640 70.055 295 88.877 -7.732 98.861 90.370 -11.160 96.170 4.607 99.162 94.472 296 47.708 75.078 -5.934 48.130 75.200 -6.800 0.971 75.312 355.481 297 48.137 70.269 23.468 48.035 70.255 22.635 0.839 74.085 18.468 298 47.993 65.415 53.124 47.940 65.310 52.070 1.060 84.269 39.080 299 69.008 27.609 75.411 69.155 27.075 74.120 1.405 80.306 69.892 300 88.950 -7.638 98.601 90.370 -11.160 96.170 4.509 98.897 94.429 301 88.888 -7.777 98.464 90.370 -11.160 96.170 4.348 98.770 94.516 302 69.977 -37.776 67.450 70.635 -37.060 66.440 1.402 77.308 119.251 303 52.753 -62.962 39.380 50.900 -62.960 36.710 3.250 74.263 147.976 304 56.064 -46.601 -2.263 54.760 -46.795 -3.020 1.520 46.656 182.780 305 59.454 -30.783 -42.623 58.620 -30.630 -42.750 0.858 52.577 234.163 306 88.698 -7.654 98.411 90.370 -11.160 96.170 4.484 98.708 94.447 307 69.890 -37.662 67.446 70.635 -37.060 66.440 1.389 77.249 119.179 308 52.671 -62.821 38.863 50.900 -62.960 36.710 2.791 73.870 148.258 309 55.892 -46.803 -2.516 54.760 -46.795 -3.020 1.239 46.871 183.077 310 59.528 -30.492 -42.511 58.620 -30.630 -42.750 0.949 52.316 234.349 ] def %LAB_KIi %************************************************************* /D57SERWi 2000 array def %max 57 series of 15 data (100x20) /D57SERWi [%BEG D57SERWi top data WANG_ELCD scaling data %0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %N S N1 N2 N3 N4 N5 NA1 NA2 NA3 NA4 NA5 DV*1i DV*2i WANG1 WANG2 %Serie 1, BAM test chart order 1:25 001 003 001 002 003 000 000 (W) (CW) (C) (0) (0) 26.45 26.39 (W03) (W04) 002 003 007 008 009 000 000 (W) (VW) (V) (0) (0) 29.54 41.95 (W13) (W14) 003 003 013 014 015 000 000 (W) (MW) (M) (0) (0) 31.00 32.74 (W23) (W24) 004 003 019 020 021 000 000 (W) (OW) (O) (0) (0) 28.01 37.64 (W33) (W34) 005 003 025 026 027 000 000 (W) (YW) (Y) (0) (0) 16.99 11.01 (W43) (W44) 006 003 031 032 033 000 000 (W) (LW) (L) (0) (0) 25.44 28.39 (W53) (W54) %Serie 2, BAM test chart order 1:25 007 003 037 038 039 000 000 (C) (CN) (N) (0) (0) 25.80 35.47 (W06) (W05) 008 003 043 044 045 000 000 (V) (VN) (N) (0) (0) 9.30 16.62 (W16) (W15) 009 003 049 050 051 000 000 (M) (MN) (N) (0) (0) 26.80 29.68 (W26) (W25) 010 003 055 056 057 000 000 (O) (ON) (N) (0) (0) 30.62 34.58 (W36) (W35) 011 003 061 062 063 000 000 (Y) (YN) (N) (0) (0) 29.85 41.77 (W46) (W45) 012 003 067 068 069 000 000 (L) (LN) (N) (0) (0) 18.79 35.12 (W56) (W55) %Serie 3, BAM test chart order 3:27 013 003 209 210 211 000 000 (W) (C) (N) (0) (0) 64.17 61.50 (W01) (W02) 014 003 215 216 217 000 000 (W) (V) (N) (0) (0) 67.03 32.91 (W11) (W12) 015 003 221 222 223 000 000 (W) (M) (N) (0) (0) 74.48 61.26 (W21) (W22) 016 003 227 228 229 000 000 (W) (O) (N) (0) (0) 71.77 67.21 (W31) (W32) 017 003 233 234 235 000 000 (W) (Y) (N) (0) (0) 37.26 86.10 (W41) (W42) 018 003 239 240 241 000 000 (W) (L) (N) (0) (0) 50.89 56.11 (W51) (W52) %Serie 4, BAM test chart order 3:27 019 003 245 246 247 000 000 (C) (V) (M) (0) (0) 41.67 45.01 (W09) (W19) 020 003 251 252 253 000 000 (M) (O) (Y) (0) (0) 28.41 72.32 (W29) (W39) 021 003 257 258 259 000 000 (Y) (L) (C) (0) (0) 64.80 40.72 (W49) (W59) 022 003 263 264 265 000 000 (V) (C) (L) (0) (0) 41.67 40.72 (W09) (W59) 023 003 269 270 271 000 000 (L) (Y) (O) (0) (0) 64.80 72.32 (W49) (W39) 024 003 275 276 277 000 000 (O) (M) (V) (0) (0) 28.41 45.01 (W29) (W19) %Serie 5, BAM test chart order 2:26 %values are missing 025 004 089 090 091 000 000 (W) (Wc) (CW) (0) (0) 26.45 0.00 (W03) (W00) 026 004 099 100 101 102 103 (W) (Wv) (VW) (0) (0) 29.54 0.00 (W13) (W00) 027 004 109 110 111 112 113 (W) (Wm) (MW) (0) (0) 31.00 0.00 (W23) (W00) 028 004 119 120 121 122 123 (W) (Wo) (OW) (0) (0) 28.01 0.00 (W33) (W00) 029 004 129 130 131 132 133 (W) (Wy) (YW) (0) (0) 16.99 0.00 (W43) (W00) 030 004 139 140 141 142 143 (W) (Wl) (LW) (0) (0) 25.44 0.00 (W53) (W00) %Serie 6, BAM test chart order 2:26 031 004 091 092 093 000 000 (CW) (Cw) (C) (0) (0) 26.39 0.00 (W04) (W00) 032 004 101 102 103 000 000 (VW) (Vw) (V) (0) (0) 41.95 0.00 (W14) (W00) 033 004 111 112 113 000 000 (MW) (Mw) (M) (0) (0) 32.74 0.00 (W24) (W00) 034 004 121 122 123 000 000 (OW) (Ow) (O) (0) (0) 37.64 0.00 (W34) (W00) 035 004 131 132 133 000 000 (YW) (Yw) (Y) (0) (0) 110.1 0.00 (W44) (W00) 036 004 141 142 143 000 000 (LW) (Lw) (L) (0) (0) 28.39 0.00 (W54) (W00) %Serie 7, BAM test chart order 2:26 037 004 149 150 151 000 000 (C) (Cn) (CN) (0) (0) 25.80 0.00 (W06) (W00) 038 004 159 160 161 000 000 (V) (Vn) (VN) (0) (0) 9.30 0.00 (W16) (W00) 039 004 169 170 171 000 000 (M) (Mn) (MN) (0) (0) 26.80 0.00 (W26) (W00) 040 004 179 180 181 000 000 (O) (On) (ON) (0) (0) 30.62 0.00 (W36) (W00) 041 004 189 190 191 000 000 (Y) (Yn) (YN) (0) (0) 29.85 0.00 (W46) (W00) 042 004 199 200 201 000 000 (L) (Ln) (LN) (0) (0) 18.79 0.00 (W56) (W00) %Serie 8, BAM test chart order 2:26 043 004 151 152 153 000 000 (CN) (Nc) (N) (0) (0) 61.50 0.00 (W02) (W00) 044 004 161 162 163 000 000 (VN) (Nv) (N) (0) (0) 32.91 0.00 (W12) (W00) 045 004 171 172 173 000 000 (MN) (Nm) (N) (0) (0) 61.26 0.00 (W22) (W00) 046 004 181 182 183 000 000 (ON) (No) (N) (0) (0) 67.21 0.00 (W32) (W00) 047 004 191 192 193 000 000 (YN) (Ny) (N) (0) (0) 86.10 0.00 (W42) (W00) 048 004 201 202 203 000 000 (LN) (Nl) (N) (0) (0) 56.11 0.00 (W52) (W00) %Serie 2N, BAM test chart order 1:25, 1 triplet 049 003 073 074 075 000 000 (W) (WN) (N) (0) (0) 10.00 9.00 (W61) (W62) %Serie 9, BAM test chart order 3:27, 3 x 5 step series-> 3 x 2 triplets 050 004 281 282 283 000 000 (C) (CV) (V) (0) (0) 41.67 0.00 (W09) (W00) 051 004 283 284 285 000 000 (V) (MV) (M) (0) (0) 45.01 0.00 (W19) (W00) 052 004 291 292 293 000 000 (M) (MO) (O) (0) (0) 28.41 0.00 (W29) (W00) 053 004 293 294 295 000 000 (O) (YO) (Y) (0) (0) 72.32 0.00 (W39) (W00) 054 004 301 302 303 000 000 (Y) (YL) (L) (0) (0) 64.80 0.00 (W49) (W00) 055 004 303 304 305 000 000 (L) (CL) (C) (0) (0) 40.72 0.00 (W59) (W00) %Serie 2N, BAM test chart order 1:25, 1 x 5 step series-> 1 x 2 triplets 056 004 079 080 081 000 000 (W) (Wn) (WN) (0) (0) 10.00 0.00 (W61) (W00) 057 004 081 082 083 000 000 (WN) (Nw) (N) (0) (0) 9.00 0.00 (W62) (W00) ] def %END D57SERWi %************************************************************* /D57SERVia 2000 array def %max 57 series of 15 data (100x20) /D57SERVia [%BEG D57SERVia top data VIK_ELCD scaling data %0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %N S N1 N2 N3 N4 N5 NA1 NA2 NA3 NA4 NA5 DV*1i DV*2i VIK1 VIK2 %Serie 1, BAM test chart order 1:25 001 003 001 002 003 000 000 (W) (CW) (C) (0) (0) 25.24 39.23 (V01) (V02) 002 003 007 008 009 000 000 (W) (VW) (V) (0) (0) 33.11 46.66 (V03) (V04) 003 003 013 014 015 000 000 (W) (MW) (M) (0) (0) 30.92 45.35 (V05) (V06) 004 003 019 020 021 000 000 (W) (OW) (O) (0) (0) 26.55 46.66 (V07) (V08) 005 003 025 026 027 000 000 (W) (YW) (Y) (0) (0) 22.62 23.06 (V09) (V10) 006 003 031 032 033 000 000 (W) (LW) (L) (0) (0) 29.18 40.98 (V11) (V12) %Serie 2, BAM test chart order 1:25 007 003 037 038 039 000 000 (C) (CN) (N) (0) (0) 38.35 42.73 (V13) (V14) 008 003 043 044 045 000 000 (V) (VN) (N) (0) (0) 21.75 31.36 (V15) (V16) 009 003 049 050 051 000 000 (M) (MN) (N) (0) (0) 40.98 44.47 (V17) (V18) 010 003 055 056 057 000 000 (O) (ON) (N) (0) (0) 34.86 43.16 (V19) (V20) 011 003 061 062 063 000 000 (Y) (YN) (N) (0) (0) 35.73 47.97 (V21) (V22) 012 003 067 068 069 000 000 (L) (LN) (N) (0) (0) 36.17 42.29 (V23) (V24) %Serie 3, BAM test chart order 3:27 013 003 209 210 211 000 000 (W) (C) (N) (0) (0) 53.65 55.40 (V26) (V25) 014 003 215 216 217 000 000 (W) (V) (N) (0) (0) 65.02 29.61 (V28) (V27) 015 003 221 222 223 000 000 (W) (M) (N) (0) (0) 60.21 53.22 (V30) (V29) 016 003 227 228 229 000 000 (W) (O) (N) (0) (0) 58.46 48.84 (V32) (V31) 017 003 233 234 235 000 000 (W) (Y) (N) (0) (0) 37.38 61.52 (V34) (V33) 018 003 239 240 241 000 000 (W) (L) (N) (0) (0) 55.84 45.35 (V36) (V35) %Serie 4, BAM test chart order 3:27 019 003 245 246 247 000 000 (C) (V) (M) (0) (0) 44.47 42.29 (V37) (V38) 020 003 251 252 253 000 000 (M) (O) (Y) (0) (0) 22.62 47.97 (V40) (V39) 021 003 257 258 259 000 000 (Y) (L) (C) (0) (0) 46.22 31.36 (V41) (V42) 022 003 263 264 265 000 000 (V) (C) (L) (0) (0) 48.41 30.49 (V44) (V43) 023 003 269 270 271 000 000 (L) (Y) (O) (0) (0) 51.03 53.65 (V46) (V45) 024 003 275 276 277 000 000 (O) (M) (V) (0) (0) 23.49 48.84 (V47) (V48) %Serie 5, BAM test chart order 2:26 %dummy 26.00: values are missing 025 003 089 090 091 000 000 (W) (Wc) (CW) (0) (0) 25.24 26.00 (V01) (V00) 026 003 099 100 101 000 000 (W) (Wv) (VW) (0) (0) 33.11 26.00 (V03) (V00) 027 003 109 110 111 000 000 (W) (Wm) (MW) (0) (0) 30.92 26.00 (V05) (V00) 028 003 119 120 121 000 000 (W) (Wo) (OW) (0) (0) 26.55 26.00 (V07) (V00) 029 003 129 130 131 000 000 (W) (Wy) (YW) (0) (0) 22.62 26.00 (V09) (V00) 030 003 139 140 141 000 000 (W) (Wl) (LW) (0) (0) 29.18 26.00 (V11) (V00) %Serie 6, BAM test chart order 2:26 031 003 091 092 093 000 000 (CW) (Cw) (C) (0) (0) 22.62 27.87 (V62) (V61) 032 003 101 102 103 000 000 (VW) (Vw) (V) (0) (0) 26.99 33.98 (V64) (V63) 033 003 111 112 113 000 000 (MW) (Mw) (M) (0) (0) 28.30 35.73 (V66) (V65) 034 003 121 122 123 000 000 (OW) (Ow) (O) (0) (0) 24.37 33.98 (V68) (V67) 035 003 131 132 133 000 000 (YW) (Yw) (Y) (0) (0) 18.25 20.00 (V70) (V69) 036 003 141 142 143 000 000 (LW) (Lw) (L) (0) (0) 23.49 32.24 (V72) (V71) %Serie 7, BAM test chart order 2:26 037 003 149 150 151 000 000 (C) (Cn) (CN) (0) (0) 29.61 28.74 (V74) (V73) 038 003 159 160 161 000 000 (V) (Vn) (VN) (0) (0) 19.56 18.25 (V76) (V75) 039 003 169 170 171 000 000 (M) (Mn) (MN) (0) (0) 35.73 27.87 (V78) (V77) 040 003 179 180 181 000 000 (O) (On) (ON) (0) (0) 37.48 26.12 (V80) (V79) 041 003 189 190 191 000 000 (Y) (Yn) (YN) (0) (0) 38.35 30.49 (V82) (V81) 042 003 199 200 201 000 000 (L) (Ln) (LN) (0) (0) 33.11 26.99 (V84) (V83) %Serie 8, BAM test chart order 2:26 043 003 151 152 153 000 000 (CN) (Nc) (N) (0) (0) 37.48 26.12 (V86) (V85) 044 003 161 162 163 000 000 (VN) (Nv) (N) (0) (0) 20.43 18.25 (V88) (V87) 045 003 171 172 173 000 000 (MN) (Nm) (N) (0) (0) 34.86 28.30 (V90) (V89) 046 003 181 182 183 000 000 (ON) (No) (N) (0) (0) 33.98 27.87 (V92) (V91) 047 003 191 192 193 000 000 (YN) (Ny) (N) (0) (0) 39.67 34.86 (V94) (V93) 048 003 201 202 203 000 000 (LN) (Nl) (N) (0) (0) 32.24 26.12 (V96) (V95) %Serie 2N, BAM test chart order 1:25, 1 triplet 049 003 073 074 075 000 000 (W) (WN) (N) (0) (0) 40.10 36.61 (V97) (V98) %Serie 9, BAM test chart order 3:27, 3 x 5 step series-> 3 x 2 triplets 050 004 281 282 283 000 000 (C) (CV) (V) (0) (0) 44.47 0.00 (V37) (V00) 051 004 283 284 285 000 000 (V) (MV) (M) (0) (0) 42.29 0.00 (V38) (V00) 052 004 291 292 293 000 000 (M) (MO) (O) (0) (0) 22.62 0.00 (V40) (V00) 053 004 293 294 295 000 000 (O) (YO) (Y) (0) (0) 47.97 0.00 (V39) (V00) 054 004 301 302 303 000 000 (Y) (YL) (L) (0) (0) 46.22 0.00 (V41) (V00) 055 004 303 304 305 000 000 (L) (CL) (C) (0) (0) 31.36 0.00 (V42) (V00) %Serie 2N, BAM test chart order 1:25, 1 x 5 step series-> 1 x 2 triplets 056 004 079 080 081 000 000 (W) (Wn) (WN) (0) (0) 40.10 0.00 (V97) (V00) 057 004 081 082 083 000 000 (WN) (Nw) (N) (0) (0) 36.61 0.00 (V98) (V00) ] def %END D57SERVia %************************************************************* /D57SERVi 2000 array def %max 57 series of 15 data (100x20) /D57SERVi [%BEG D57SERVi top data VIK_ELCD scaling data %0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %N S N1 N2 N3 N4 N5 NA1 NA2 NA3 NA4 NA5 DV*1i DV*2i VIK1 VIK2 %Serie 1, BAM test chart order 1:25 001 003 001 002 003 000 000 (W) (CW) (C) 6.06 7.92 25.24 39.23 (V01) (V02) 002 003 007 008 009 000 000 (W) (VW) (V) 3.03 7.44 33.11 46.66 (V03) (V04) 003 003 013 014 015 000 000 (W) (MW) (M) 4.15 7.21 30.92 45.35 (V05) (V06) 004 003 019 020 021 000 000 (W) (OW) (O) 6.27 5.35 26.55 46.66 (V07) (V08) 005 003 025 026 027 000 000 (W) (YW) (Y) 5.39 10.8 22.62 23.06 (V09) (V10) 006 003 031 032 033 000 000 (W) (LW) (L) 4.58 7.82 29.18 40.98 (V11) (V12) %Serie 2, BAM test chart order 1:25 007 003 037 038 039 000 000 (C) (CN) (N) 12.1 5.67 38.35 42.73 (V13) (V14) 008 003 043 044 045 000 000 (V) (VN) (N) 6.42 9.50 21.75 31.36 (V15) (V16) 009 003 049 050 051 000 000 (M) (MN) (N) 9.08 7.82 40.98 44.47 (V17) (V18) 010 003 055 056 057 000 000 (O) (ON) (N) 10.7 9.31 34.86 43.16 (V19) (V20) 011 003 061 062 063 000 000 (Y) (YN) (N) 10.0 6.88 35.73 47.97 (V21) (V22) 012 003 067 068 069 000 000 (L) (LN) (N) 9.87 10.7 36.17 42.29 (V23) (V24) %Serie 3, BAM test chart order 3:27 013 003 209 210 211 000 000 (W) (C) (N) 7.29 5.77 53.65 55.40 (V26) (V25) 014 003 215 216 217 000 000 (W) (V) (N) 6.27 11.1 65.02 29.61 (V28) (V27) 015 003 221 222 223 000 000 (W) (M) (N) 8.91 6.30 60.21 53.22 (V30) (V29) 016 003 227 228 229 000 000 (W) (O) (N) 8.56 9.81 58.46 48.84 (V32) (V31) 017 003 233 234 235 000 000 (W) (Y) (N) 17.1 8.41 37.38 61.52 (V34) (V33) 018 003 239 240 241 000 000 (W) (L) (N) 7.62 10.8 55.84 45.35 (V36) (V35) %Serie 4, BAM test chart order 3:27 019 003 245 246 247 000 000 (C) (V) (M) 11.2 13.7 44.47 42.29 (V37) (V38) 020 003 251 252 253 000 000 (M) (O) (Y) 6.30 11.1 22.62 47.97 (V40) (V39) 021 003 257 258 259 000 000 (Y) (L) (C) 10.3 8.29 46.22 31.36 (V41) (V42) 022 003 263 264 265 000 000 (V) (C) (L) 9.87 11.3 48.41 30.49 (V44) (V43) 023 003 269 270 271 000 000 (L) (Y) (O) 10.2 9.52 51.03 53.65 (V46) (V45) 024 003 275 276 277 000 000 (O) (M) (V) 10.6 11.3 23.49 48.84 (V47) (V48) %Serie 5, BAM test chart order 2:26 %dummy 26.00: values are missing 025 004 089 090 091 000 000 (W) (Wc) (CW) 6.06 6.06 25.24 0.481 (V01) (V00) 026 004 099 100 101 000 000 (W) (Wv) (VW) 7.44 7.44 33.11 0.497 (V03) (V00) 027 004 109 110 111 000 000 (W) (Wm) (MW) 4.15 4.15 30.92 0.492 (V05) (V00) 028 004 119 120 121 000 000 (W) (Wo) (OW) 6.27 6.27 26.55 0.493 (V07) (V00) 029 004 129 130 131 000 000 (W) (Wy) (YW) 5.39 5.39 22.62 0.358 (V09) (V00) 030 004 139 140 141 000 000 (W) (Wl) (LW) 4.58 4.58 29.18 0.492 (V11) (V00) %Serie 6, BAM test chart order 2:26 031 003 091 092 093 000 000 (CW) (Cw) (C) 6.30 12.2 22.62 27.87 (V62) (V61) 032 003 101 102 103 000 000 (VW) (Vw) (V) 7.21 11.3 26.99 33.98 (V64) (V63) 033 003 111 112 113 000 000 (MW) (Mw) (M) 8.76 10.0 28.30 35.73 (V66) (V65) 034 003 121 122 123 000 000 (OW) (Ow) (O) 7.31 10.8 24.37 33.98 (V68) (V67) 035 003 131 132 133 000 000 (YW) (Yw) (Y) 3.27 7.10 18.25 20.00 (V70) (V69) 036 003 141 142 143 000 000 (LW) (Lw) (L) 6.06 11.2 23.49 32.24 (V72) (V71) %Serie 7, BAM test chart order 2:26 037 003 149 150 151 000 000 (C) (Cn) (CN) 8.29 8.48 29.61 28.74 (V74) (V73) 038 003 159 160 161 000 000 (V) (Vn) (VN) 4.58 3.27 19.56 18.25 (V76) (V75) 039 003 169 170 171 000 000 (M) (Mn) (MN) 9.50 12.2 35.73 27.87 (V78) (V77) 040 003 179 180 181 000 000 (O) (On) (ON) 5.10 11.2 37.48 26.12 (V80) (V79) 041 003 189 190 191 000 000 (Y) (Yn) (YN) 12.1 8.65 38.35 30.49 (V82) (V81) 042 003 199 200 201 000 000 (L) (Ln) (LN) 10.3 10.3 33.11 26.99 (V84) (V83) %Serie 8, BAM test chart order 2:26 043 003 151 152 153 000 000 (CN) (Nc) (N) 7.62 9.08 37.48 26.12 (V86) (V85) 044 003 161 162 163 000 000 (VN) (Nv) (N) 6.69 3.27 20.43 18.25 (V88) (V87) 045 003 171 172 173 000 000 (MN) (Nm) (N) 9.08 6.27 34.86 28.30 (V90) (V89) 046 003 181 182 183 000 000 (ON) (No) (N) 9.73 9.73 33.98 27.87 (V92) (V91) 047 003 191 192 193 000 000 (YN) (Ny) (N) 6.74 12.6 39.67 34.86 (V94) (V93) 048 003 201 202 203 000 000 (LN) (Nl) (N) 10.2 9.08 32.24 26.12 (V96) (V95) %Serie 2N, BAM test chart order 1:25, 1 triplet 049 003 073 074 075 000 000 (W) (WN) (N) (0) (0) 40.10 36.61 (V97) (V98) %not used %Serie 9, BAM test chart order 3:27, 3 x 5 step series-> 3 x 2 triplets 050 004 281 282 283 000 000 (C) (CV) (V) (0) (0) 44.47 0.00 (V37) (V00) 051 004 283 284 285 000 000 (V) (MV) (M) (0) (0) 42.29 0.00 (V38) (V00) 052 004 291 292 293 000 000 (M) (MO) (O) (0) (0) 22.62 0.00 (V40) (V00) 053 004 293 294 295 000 000 (O) (YO) (Y) (0) (0) 47.97 0.00 (V39) (V00) 054 004 301 302 303 000 000 (Y) (YL) (L) (0) (0) 46.22 0.00 (V41) (V00) 055 004 303 304 305 000 000 (L) (CL) (C) (0) (0) 31.36 0.00 (V42) (V00) %Serie 2N, BAM test chart order 1:25, 1 x 5 step series-> 1 x 2 triplets 056 004 079 080 081 000 000 (W) (Wn) (WN) (0) (0) 40.10 0.00 (V97) (V00) 057 004 081 082 083 000 000 (WN) (Nw) (N) (0) (0) 36.61 0.00 (V98) (V00) ] def %END D57SERVi /d_CIELABi 2800 array def /d_CIELCHi 2800 array def /d_C94LCHi 2800 array def /d_CMCLCHi 2800 array def /d_CM2LCHi 2800 array def /d_C00LCHi 2800 array def /d_C85LCHi 2800 array def /d_C77LCHi 2800 array def /d_C78LCHi 2800 array def /d_C79LCHi 2800 array def /d_CIELABmi 2800 array def /d_CIELCHmi 2800 array def /d_C94LCHmi 2800 array def /d_CMCLCHmi 2800 array def /d_CM2LCHmi 2800 array def /d_C00LCHmi 2800 array def /d_C85LCHmi 2800 array def /d_C77LCHmi 2800 array def /d_C78LCHmi 2800 array def /d_C79LCHmi 2800 array def /D13 1 3 div def /D841_108 841 108 div def /D4_29 4 29 div def /D6_29 6 29 div 3 exp def /proc_coldiff {%BEG procedure proc_coldiff proc_coldiff_WK58.PS 150529 %calculates CIE colour data and differences for 10 colour spaces %BEG CIELAB/CIELCH /FL 0.000001 def X0 XW div D6_29 gt {/FXXN0 X0 XW div 0.0001 add D13 exp def} {/FXXN0 D841_108 X0 XW div mul D4_29 add def} ifelse Y0 YW div D6_29 gt {/FYYN0 Y0 YW div 0.0001 add D13 exp def} {/FYYN0 D841_108 Y0 YW div mul D4_29 add def} ifelse Z0 ZW div D6_29 gt {/FZZN0 Z0 ZW div 0.0001 add D13 exp def} {/FZZN0 D841_108 Z0 ZW div mul D4_29 add def} ifelse /CIEL*0 116. FYYN0 mul 16. sub def /CIEa*0 500. FXXN0 FYYN0 sub mul def /CIEb*0 200. FYYN0 FZZN0 sub mul def /CIEC*ab0 CIEa*0 dup mul CIEb*0 dup mul add 0.0001 add sqrt def /CIEhab0 CIEb*0 CIEa*0 0.0001 add atan def X1 XW div D6_29 gt {/FXXN1 X1 XW div 0.0001 add D13 exp def} {/FXXN1 D841_108 X1 XW div mul D4_29 add def} ifelse Y1 YW div D6_29 gt {/FYYN1 Y1 YW div 0.0001 add D13 exp def} {/FYYN1 D841_108 Y1 YW div mul D4_29 add def} ifelse Z1 ZW div D6_29 gt {/FZZN1 Z1 ZW div 0.0001 add D13 exp def} {/FZZN1 D841_108 Z1 ZW div mul D4_29 add def} ifelse /CIEL*1 116. FYYN1 mul 16. sub def /CIEa*1 500. FXXN1 FYYN1 sub mul def /CIEb*1 200. FYYN1 FZZN1 sub mul def /CIEC*ab1 CIEa*1 dup mul CIEb*1 dup mul add 0.0001 add sqrt def /CIEhab1 CIEb*1 CIEa*1 0.0001 add atan def %mixed terms with *0 sn *1: /d_CIEL* CIEL*1 CIEL*0 sub def /d_CIEa* CIEa*1 CIEa*0 sub def /d_CIEb* CIEb*1 CIEb*0 sub def d_CIELABi i d_CIEL* dup mul d_CIEa* dup mul add d_CIEb* dup mul add 0.00000001 add sqrt put /a_CIELAB 1.26 def /b_CIELAB 0.55 def d_CIELABmi i d_CIELABi i get b_CIELAB exp a_CIELAB mul put /d_CIEh CIEhab1 CIEhab0 sub def %see CIEDE2000 page 4 CIEC*ab1 CIEC*ab0 mul 0 eq {/d_CIEh 0 def} if %CIEC*ab1 x CIEC*ab0 =0 CIEC*ab1 CIEC*ab0 mul 0 ne d_CIEh 180 gt and {/d_CIEh d_CIEh 360 sub def} if CIEC*ab1 CIEC*ab0 mul 0 ne d_CIEh -180 lt and {/d_CIEh d_CIEh 360 add def} if /d_CIEL CIEL*1 CIEL*0 sub def /d_CIECab CIEC*ab1 CIEC*ab0 sub def /d_CIEHab CIEC*ab1 CIEC*ab0 mul 0.000001 add sqrt 2 mul d_CIEh 0.5 mul sin mul def d_CIELCHi i d_CIEL dup mul d_CIECab dup mul add d_CIEHab dup mul add 0.000001 add sqrt put %alternative: %for 2 an 10 degree observer, see Richter (1996) %a'=0,2191 b'=-0,08376 a'10=0,2193, b'10=-0,08417 %a'2 and a'10 used for both 12 and 190 degree observer %BEG LABD65_1976=C76 /S76L 1 def /S76A 1 def /S76B 1 def /K76L 1 def /K76A 1 def /K76B 1 def /AS2 0.2191 def /BS2 -0.08376 def %C76a'=AS2*(x/y)**(1/3) %C76b'=BS2*(z/y)**(1/3) %C76L*=L*CIE %C76a*=500*[C76a'-C76a'n]*Y**(1/3) %C76b*=500*[C76b'-C76b'n]*Y**(1/3) /C76a'0 X0 Y0 FL add div 0.3333 exp AS2 mul def /C76a'1 X1 Y1 FL add div 0.3333 exp AS2 mul def /C76a'n XW YW FL add div 0.3333 exp AS2 mul def /C76b'0 Z0 Y0 FL add div 0.3333 exp BS2 mul def /C76b'1 Z1 Y1 FL add div 0.3333 exp BS2 mul def /C76b'n ZW YW FL add div 0.3333 exp BS2 mul def /C76a*0 C76a'0 C76a'n sub 500 mul Y0 1 3 div exp mul def /C76a*1 C76a'1 C76a'n sub 500 mul Y1 1 3 div exp mul def /C76b*0 C76b'0 C76b'n sub 500 mul Y0 1 3 div exp mul def /C76b*1 C76b'1 C76b'n sub 500 mul Y1 1 3 div exp mul def %name d_CIELCHi instead of d_LABD65i 1976 d_CIELCHi i CIEL*1 CIEL*0 sub K76L div S76L div dup mul C76a*1 C76a*0 sub K76A div S76A div dup mul add C76b*1 C76b*0 sub K76B div S76B div dup mul add 0.00000001 add sqrt put %END LABD65_1976=C76 /a_CIELCH 1.26 def /b_CIELCH 0.55 def d_CIELCHmi i d_CIELCHi i get b_CIELCH exp a_CIELCH mul put %BEG CIELAB/CIELCH %BEG CIE94 /S94L 1 def /S94C 1 0.045 CIEC*ab0 mul add def /S94H 1 0.015 CIEC*ab0 mul add def /K94L 1 def /K94C 1 def /K94H 1 def /LC94*0 CIEL*0 K94L div S94L div def /LC94*1 CIEL*1 K94L div S94L div def /CC94*ab0 CIEC*ab0 K94C div S94C div def /CC94*ab1 CIEC*ab1 K94C div S94C div def d_C94LCHi i CIEL*1 CIEL*0 sub K94L div S94L div dup mul CIEC*ab1 CIEC*ab0 sub K94C div S94C div dup mul add d_CIEHab K94H div S94H div dup mul add 0.00000001 add sqrt put /a_C94LCH 1.41 def /b_C94LCH 0.70 def d_C94LCHmi i d_C94LCHi i get b_C94LCH exp a_C94LCH mul put %END CIE94 %BEG CMC(l:c=1:1) %special mean m of two samples for SCML, SCMC, TCMC /CIEL*0m CIEL*0 CIEL*1 add 0.5 mul def /CMCC0S CIEC*ab0 def /CMCC1S CIEC*ab1 def /CIEC*ab0m CMCC0S CMCC1S add 0.5 mul def CIEC*ab0 0 eq {/CMCh0S 0 def} {/CMCh0S CIEb*0 CIEa*0 0.0001 add atan def } ifelse CIEC*ab1 0 eq {/CMCh1S 0 def} {/CMCh1S CIEb*1 CIEa*1 0.0001 add atan def } ifelse %beg special EQUATION (11) TO (14) /d_CMChS0 CMCh1S CMCh0S sub def %see CIEDE2000 page 4 CMCC1S CMCC0S mul 0 eq {/d_CMChS 0 def} if %CIEC*ab1 x CIEC*ab0 =0 CMCC1S CMCC0S mul 0 ne d_CMChS0 abs 180 le and {/d_CMChSm d_CMChS0 def} if CMCC1S CMCC0S mul 0 ne d_CMChS0 180 gt and {/d_CMChSm d_CMChS0 360 sub def} if CMCC1S CMCC0S mul 0 ne d_CMChS0 -180 lt and {/d_CMChSm d_CMChS0 360 add def} if %end special EQUATION (11) TO (14) %beg special EQUATION (23) TO (26) /a_CMChsm CMCh0S CMCh1S add 0.5 mul def /m_CMCCSm CMCC0S CMCC1S mul def d_CMChSm abs 180 le m_CMCCSm 0 ne and {/CMChSqm a_CMChsm def} if d_CMChSm abs 180 gt a_CMChsm 360 le and m_CMCCSm 0 ne and {/CMChSqm CMCh0S CMCh1S add 360 add 0.5 mul def} if d_CMChSm abs 180 gt a_CMChsm 360 ge and m_CMCCSm 0 ne and {/CMChSqm CMCh0S CMCh1S add 360 sub 0.5 mul def} if m_CMCCSm 0 eq {/CMChSqm CMCh0S CMCh1S add def } if %end special EQUATION (23) TO (26) CIEL*0m 16 lt {/SCMLm 0.511 def} {/SCMLm 0.040975 CIEL*0m mul 0.01765 CIEL*0m mul 1 add div def } ifelse /SCMCm 0.0638 CIEC*ab0m mul 0.0131 CIEC*ab0m mul 1 add div 0.638 add def %beg special /FCMCm CIEC*ab0m dup mul dup mul CIEC*ab0m dup mul dup mul 1900 add div sqrt def CMChSqm 164 lt CMChSqm 345 gt or {/TCMCm CMChSqm 35 add cos 0.4 mul abs 0.36 add def} {/TCMCm CMChSqm 168 add cos 0.2 mul abs 0.56 add def} ifelse %end special /SCMHm TCMCm FCMCm mul 1 add FCMCm sub SCMCm mul def /KCML 1 def %=l /KCMC 1 def %=c /KCMH 1 def %1 /CMCL*0m CIEL*0 KCML div SCMLm div def /CMCL*1m CIEL*1 KCML div SCMLm div def /CMCC*ab0m CIEC*ab0 KCMC div SCMCm div def /CMCC*ab1m CIEC*ab1 KCMC div SCMCm div def d_CMCLCHi i CIEL*1 CIEL*0 sub KCML div SCMLm div dup mul CIEC*ab1 CIEC*ab0 sub KCMC div SCMCm div dup mul add d_CIEHab KCMH div SCMHm div dup mul add 0.00000001 add sqrt put /a_CMCLCH 1.34 def /b_CMCLCH 0.66 def d_CMCLCHmi i d_CMCLCHi i get b_CMCLCH exp a_CMCLCH mul put %END CMC(m:l:c=m:1:1)=CMC %BEG CM2(m:l:c=m:1:2)=CM2 /KM2L 1 def %=l /KM2C 2 def %=c /KM2H 1 def %1 /CM2L*0 CIEL*0 KM2L div SCMLm div def /CM2L*1 CIEL*1 KM2L div SCMLm div def /CM2C*ab0 CIEC*ab0 KM2C div SCMCm div def /CM2C*ab1 CIEC*ab1 KM2C div SCMCm div def d_CM2LCHi i CIEL*1 CIEL*0 sub KM2L div SCMLm div dup mul CIEC*ab1 CIEC*ab0 sub KM2C div SCMCm div dup mul add d_CIEHab KM2H div SCMHm div dup mul add 0.00000001 add sqrt put %END CM2(m:l:c=m:1:2)=CM2 %BEG CIEDE2000=C00 %beg special equation (7) /CIEC*ab CIEC*ab0 CIEC*ab1 add 0.5 mul def /DEG 1 CIEC*ab 7 exp CIEC*ab 7 exp 25 7 exp add div 0.000001 add sqrt sub 0.5 mul def %end special equation (7) %beg special EQUATION (1) TO (6) %0 /C00L0S CIEL*0 def /C00a0S 1 DEG add CIEa*0 mul def /C00b0S CIEb*0 def /C00C0S C00a0S dup mul C00b0S dup mul add 0.000001 add sqrt def C00C0S 0 eq {/C00h0S 0 def} {/C00h0S C00b0S C00a0S 0.0001 add atan def } ifelse %1 /C00L1S CIEL*1 def /C00a1S 1 DEG add CIEa*1 mul def /C00b1S CIEb*1 def /C00C1S C00a1S dup mul C00b1S dup mul add 0.000001 add sqrt def C00C1S 0 eq {/C00h1S 0 def} {/C00h1S C00b1S C00a1S 0.0001 add atan def } ifelse %end special EQUATION (1) TO (6) %beg special EQUATION (11) TO (14) /d_C00hS0 C00h1S C00h0S sub def %see CIEDE2000 page 4 C00C1S C00C0S mul 0 eq {/d_C00hS 0 def} if %CIEC*ab1 x CIEC*ab0 =0 C00C1S C00C0S mul 0 ne d_C00hS0 abs 180 le and {/d_C00hS d_C00hS0 def} if C00C1S C00C0S mul 0 ne d_C00hS0 180 gt and {/d_C00hS d_C00hS0 360 sub def} if C00C1S C00C0S mul 0 ne d_C00hS0 -180 lt and {/d_C00hS d_C00hS0 360 add def} if %end special EQUATION (11) TO (14) %beg special EQUATION (8) TO (10) /d_C00LS C00L1S C00L0S sub def /d_C00aS C00a1S C00a0S sub def /d_C00bS C00b1S C00b0S sub def /d_C00CS C00C1S C00C0S sub def /d_C00HS C00C0S C00C1S mul 0.000001 add sqrt 2 mul d_C00hS 0.5 mul sin mul def %end special EQUATION (8) TO (10) %beg special EQUATION (23) TO (26) /a_C00hs C00h0S C00h1S add 0.5 mul def /m_C00CS C00C0S C00C1S mul def d_C00hS abs 180 le m_C00CS 0 ne and {/C00hSq a_C00hs def} if d_C00hS abs 180 gt a_C00hs 360 le and m_C00CS 0 ne and {/C00hSq C00h0S C00h1S add 360 add 0.5 mul def} if d_C00hS abs 180 gt a_C00hs 360 ge and m_C00CS 0 ne and {/C00hSq C00h0S C00h1S add 360 sub 0.5 mul def} if m_C00CS 0 eq {/C00hSq C00h0S C00h1S add def } if %end special EQUATION (23) TO (26) %beg special EQUATIONS (16) TO (22) /C00LSq C00L0S C00L1S add 0.5 mul def /C00CSq C00C0S C00C1S add 0.5 mul def /C00SL C00LSq 50 sub dup mul 0.015 mul C00LSq 50 sub dup mul 20 add sqrt div 1 add def /C00SC 0.045 C00CSq mul 1 add def %beg special T, RT, d_D, RC /C00T C00hSq 30 sub cos -0.17 mul C00hSq 2 mul cos 0.24 mul add C00hSq 3 mul 6 add cos 0.32 mul add C00hSq 4 mul 63 sub cos 0.20 mul sub 1 add def /C00SH 0.015 C00CSq mul C00T mul 1 add def /C00RC C00CSq 7 exp C00CSq 7 exp 25 7 exp add 0.000001 add div 0.000001 add sqrt 2 mul def /expDT C00hSq 275 sub 25 div dup mul def /econst 2.718281 def /C00DT 30 econst expDT neg exp mul def /C00RT C00DT 2 mul sin neg C00RC mul def %end special T, RT, d_D, RC %end special EQUATIONS (16) TO (22) %beg special EQUATION (15) /C00KL 1.0 def /C00KC 1.0 def /C00KH 1.0 def /d_C00LSN d_C00LS C00KL div C00SL div def /d_C00CSN d_C00CS C00KC div C00SC div def /d_C00HSN d_C00HS C00KH div C00SH div def d_C00LCHi i d_C00LSN dup mul d_C00CSN dup mul add d_C00HSN dup mul add d_C00CSN d_C00HSN mul C00RT mul add 0.000001 add sqrt put /a_C00LCH 1.43 def /b_C00LCH 0.70 def d_C00LCHmi i d_C00LCHi i get b_C00LCH exp a_C00LCH mul put %end special EQUATION (15) %END CIEDE2000=C00 %BEG LABJND=C85 /Yq Y0 Y1 add 0.5 mul def /d_Y Y1 Y0 sub def /a085 X0 Y0 0.000001 add div def /b085 Z0 Y0 0.000001 add div 0.4 mul neg def /a185 X1 Y1 0.000001 add div def /b185 Z1 Y1 0.000001 add div 0.4 mul neg def /an85 XW YW 0.000001 add div def /bn85 ZW YW 0.000001 add div 0.4 mul neg def /d_a085 a085 an85 sub def /d_b085 b085 bn85 sub def /d_a185 a185 an85 sub def /d_b185 b185 bn85 sub def /a0"85 d_a085 d_a085 abs 0.5 mul 1 add div an85 add def /b0"85 d_b085 d_b085 abs 0.5 mul 1 add div bn85 add def /a1"85 d_a185 d_a185 abs 0.5 mul 1 add div an85 add def /b1"85 d_b185 d_b185 abs 0.5 mul 1 add div bn85 add def /d_Y Y1 Y0 sub def /d_a"85 a1"85 a0"85 sub def /d_b"85 b1"85 b0"85 sub def /s85 0.0170 def /q85 0.0058 def /g85 1.0000 def %not used /a0085 1.0 def /b0085 1.8 def /Y0085 1.5 def d_C85LCHi i d_Y dup mul a0085 d_a"85 mul Yq mul dup mul add b0085 d_b"85 mul Yq mul dup mul add 0.000001 add sqrt Y0085 mul q85 Yq mul s85 add div put /a_C85LCH 1.17 def /b_C85LCH 0.35 def d_C85LCHmi i d_C85LCHi i get b_C85LCH exp a_C85LCH mul put %END LABJND=C85 %BEG LABHNU_1977=C77 /S77L 1 def /S77A 1 def /S77B 1 def /K77L 1 def /K77A 1 def /K77B 1 def %C77a'=(x/y+1/6)**(1/3)/4 %C77b'=-(z/y+1/6)**(1/3)/12 %C77L*=L*CIE %C77a*=500*[C77a'-C77a'n]*Y**(1/3) %C77b*=500*[C77b'-C77b'n]*Y**(1/3) /C77a'0 X0 Y0 FL add div 1 6 div add 0.3333 exp 4 div def /C77a'1 X1 Y1 FL add div 1 6 div add 0.3333 exp 4 div def /C77a'n XW YW FL add div 1 6 div add 0.3333 exp 4 div def /C77b'0 Z0 Y0 FL add div 1 6 div add 0.3333 exp 12 div neg def /C77b'1 Z1 Y1 FL add div 1 6 div add 0.3333 exp 12 div neg def /C77b'n ZW YW FL add div 1 6 div add 0.3333 exp 12 div neg def /C77a*0 C77a'0 C77a'n sub 500 mul Y0 1 3 div exp mul def /C77a*1 C77a'1 C77a'n sub 500 mul Y1 1 3 div exp mul def /C77b*0 C77b'0 C77b'n sub 500 mul Y0 1 3 div exp mul def /C77b*1 C77b'1 C77b'n sub 500 mul Y1 1 3 div exp mul def d_C77LCHi i CIEL*1 CIEL*0 sub K77L div S77L div dup mul C77a*1 C77a*0 sub K77A div S77A div dup mul add C77b*1 C77b*0 sub K77B div S77B div dup mul add 0.00000001 add sqrt put %END LABHNU_1977=C77 %BEG LABHNU1=C78 /S78L 1 def /S78A 1 def /S78B 1 def /K78L 1 def /K78A 1 def /K78B 1 def %C78a'=(x/y+1)/15 %C78b'=-(z/y+1/6)**(1/3)/12 %C78L*=L*CIE %C78a*=500*[C78a'-C78a'n]*Y**(1/3) %C78b*=500*[C78b'-C78b'n]*Y**(1/3) /C78a'0 X0 Y0 FL add div 1 add 15 div def /C78a'1 X1 Y1 FL add div 1 add 15 div def /C78a'n XW YW FL add div 1 add 15 div def /C78b'0 Z0 Y0 FL add div 1 6 div add 0.3333 exp 12 div neg def /C78b'1 Z1 Y1 FL add div 1 6 div add 0.3333 exp 12 div neg def /C78b'n ZW YW FL add div 1 6 div add 0.3333 exp 12 div neg def /C78a*0 C78a'0 C78a'n sub 500 mul Y0 1 3 div exp mul def /C78a*1 C78a'1 C78a'n sub 500 mul Y0 1 3 div exp mul def /C78b*0 C78b'0 C78b'n sub 500 mul Y0 1 3 div exp mul def /C78b*1 C78b'1 C78b'n sub 500 mul Y0 1 3 div exp mul def d_C78LCHi i CIEL*1 CIEL*0 sub K78L div S78L div dup mul C78a*1 C78a*0 sub K78A div S78A div dup mul add C78b*1 C78b*0 sub K78B div S78B div dup mul add 0.00000001 add sqrt put %END LABHNU1_1978-C78 %BEG LABHNU2_1979=C79 /S79L 1 def /S79A 1 def /S79B 1 def /K79L 1 def /K79A 1 def /K79B 1 def %C79a'=(x/y+1/6)**(2/3)/15 %C79b'=-(z/y+1/6)**(1/3)/12 %C79L*=L*CIE %C79a*=500*[C79a'-C79a'n]*Y**(1/3) %C79b*=500*[C79b'-C79b'n]*Y**(1/3) /C79a'0 X0 Y0 FL add div 1 6 div add 0.6667 exp 15 div def /C79a'1 X1 Y1 FL add div 1 6 div add 0.6667 exp 15 div def /C79a'n XW YW FL add div 1 6 div add 0.6667 exp 15 div def /C79b'0 Z0 Y0 FL add div 1 6 div add 0.3333 exp 12 div neg def /C79b'1 Z1 Y1 FL add div 1 6 div add 0.3333 exp 12 div neg def /C79b'n ZW YW FL add div 1 6 div add 0.3333 exp 12 div neg def /C79a*0 C79a'0 C79a'n sub 500 mul Y0 1 3 div exp mul def /C79a*1 C79a'1 C79a'n sub 500 mul Y1 1 3 div exp mul def /C79b*0 C79b'0 C79b'n sub 500 mul Y0 1 3 div exp mul def /C79b*1 C79b'1 C79b'n sub 500 mul Y1 1 3 div exp mul def d_C79LCHi i CIEL*1 CIEL*0 sub K79L div S79L div dup mul C79a*1 C79a*0 sub K79A div S79A div dup mul add C79b*1 C79b*0 sub K79B div S79B div dup mul add 0.00000001 add sqrt put %END LABHNU2_1979=C79 } bind def %END procedure proc_coldiff %%EndProlog gsave /lanind 0 def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind le {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind le {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind le {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 %see Kittelmann DWORK, page 9 /XWD6502 95.05 def /YWD6502 100.00 def /ZWD6502 108.90 def /XW XWD6502 def /YW YWD6502 def /ZW ZWD6502 def /FL 0.000001 def /DecodeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind def /CIEL*0i 310 array def /CIEa*0i 310 array def /CIEb*0i 310 array def /X0i 310 array def /Y0i 310 array def /Z0i 310 array def %calculate XYZ-values for 310 colours 0 1 309 {/i exch def %i=0,309 /i10 i 10 mul def CIEL*0i i LAB_KIi i10 1 add get put CIEa*0i i LAB_KIi i10 2 add get put CIEb*0i i LAB_KIi i10 3 add get put /X* {CIEL*0i i get 16 add 116 div CIEa*0i i get 500 div add} bind def /Y* {CIEL*0i i get 16 add 116 div} bind def /Z* {CIEL*0i i get 16 add 116 div CIEb*0i i get 200 div sub} bind def X0i i X* DecodeXYZ* XW mul put Y0i i Y* DecodeXYZ* YW mul put Z0i i Z* DecodeXYZ* ZW mul put } for %i=0,309 %************************************************************* /Wdata1 3500 array def %max 350x10 data /Wdata2 3500 array def /IM 056 def %(max IM=056; IM=46=without series C-V- and W-Wn-WN-Nw-N /IM0 113 def %(max IM=057)*2-1 = 057 X 2-1 %default data 0 1 IM0 {/i exch def %i=0,IM0 /i10 i 10 mul def 0 1 9 {/j exch def %j=0,9 Wdata1 i10 j add 1. put Wdata2 i10 j add 1. put } for %j=0,9 } for %i=0,IM0 /D57xSERi 2000 array def /xchart4 0 def %xchart4=0 and 1: calculation for WANG or VIK pair comparison data 0 1 IM {/ii exch def %ii=0,IM /i16 ii 16 mul def 0 1 15 {/j exch def %j=0,15 xchart4 0 eq {D57xSERi i16 j add D57SERWi i16 j add get put} if xchart4 1 eq {D57xSERi i16 j add D57SERVi i16 j add get put} if } for %j=0,15 } for %ii=0,IM /DV*1 200 array def /DV*2 200 array def /DVS1 200 array def /DVS2 200 array def %default data 0 1 IM {/ii exch def %ii=0,IM /i16 ii 16 mul def DV*1 ii 1. put %default DV*2 ii 1. put } for %ii=0,IM %for WANG and VIK 0 1 IM {/ii exch def %ii=0,IM /D57xSER12 D57xSERi i16 12 add get def /D57xSER13 D57xSERi i16 13 add get def DV*1 ii D57xSER12 put DV*2 ii D57xSER13 put xchart4 0 eq {%xchart4=0 %corection for WANG only D57xSER12 0 ne {%D57xSER12#0 DV*1 ii D57xSER12 42.62 div 1. 1.1322 div exp 10 mul put } if %D57xSER12#0 D57xSER13 0 ne {%D57xSER13#0 DV*2 ii D57xSER13 42.62 div 1. 1.1322 div exp 10 mul put } if %D57xSER13#0 } if %xchart4=0 %corection for WANG only } for %ii=0,IM /xchartl 4 def %0 1 5 {/xchartl exch def %xchartl=0,5 gsave 5 /Times-ISOL1 FS 215 85 moveto (XE390-7N) show 72 90 translate /ytit 550 def /yhoe 4000 def /yhoet yhoe ytit sub def /xwide 06000 def /ishow {-50 -100 rmoveto 200 /Times-ISOL1 FS show 0 100 rmoveto TM} bind def 0.01 MM 0.01 MM scale 15 setlinewidth 0.0 0.0 0.0 0.5 setcmykcolor 0 0 moveto xwide 0 rlineto 0 yhoet rlineto xwide neg 0 rlineto closepath fill 0.0 0.0 0.0 1.0 setcmykcolor 0 0 moveto xwide 0 rlineto 0 yhoet rlineto xwide neg 0 rlineto closepath stroke /yt 300 def %y-Zeilenabstand for text /yd 400 def %y-Zeilenabstand for formula %Titeltext /xt1 0 def /yt1 300 def /S10 100 def /S11 800 def /S20 3250 def /S30 4000 def /Z10 2500 def /Z1C 2200 def /Z1V 1900 def /Z1M 1600 def /Z1O 1300 def /Z1Y 1000 def /Z1L 0700 def /Z1N 0400 def /Z1W 0100 def %HUE CIRCLE /xd 1550 def /yd 5000 def /xp 1550 def /yp 5000 def /xdN xd def /ydN yd 2000 sub def /xdW xd def /ydW yd def /xdR xd 2000 add def /ydR yd 1000 sub def /xm 600 def /xip xd xm 2 mul add def /yip ydN xm 2 mul add def /xi1 xd xm 1 mul sub def /yi1 ydW xm 0.5 mul sub def /xi2 xd xm 2 mul add def /yi2 ydN 400 sub def %************************************************************************* %constant hue planes /xt1 -1000 def /yt1 -2670 def xt1 yt1 translate /xpp xp 350 sub def 0 setgray xpp yp 0850 add moveto /xshift 3200 def TBIK (BAM) show TBK (\2555stufige Farbreihen gleichabst\344ndig in CIELAB) showde ( 5 step colour series equally spaced in CIELAB) showen TBS xpp yp 0600 add moveto xchart4 0 eq {%xchart4=0 (CIELAB Farbdifferenzen ) showde (CIELAB colour differences ) showen SS (D) show TBIS (E*) show TBV 0 -50 rmoveto (ab) show 0 50 rmoveto } if %xchart4=0 xchart4 1 eq {%xchart4=1 (visuelle Farbdifferenzen ) showde (visual colour differences ) showen SS (D) show TBIS (V*) show TBV 0 -50 rmoveto (Vik) show 0 50 rmoveto } if %xchart4=1 /xfact 2000 100 div def /yfact 2000 100 div def /yshift 0800 def /xpW xpp def /ypW yp 200 sub def /ym 0 def /ix -1 def /cwdif4 7 array def /cwdif2 7 array def /cwdif1 7 array def /cndif4 7 array def /cndif2 7 array def /cndif1 7 array def /cwdifx 7 array def /cndifx 7 array def /cwstd4 7 array def /cwstd2 7 array def /cwstd1 7 array def /cnstd4 7 array def /cnstd2 7 array def /cnstd1 7 array def /cwstdx 7 array def /cnstdx 7 array def /wName 7 array def /nName 7 array def /DLAB21ik 7 array def /DLAB32ik 7 array def /DV*1ik 7 array def /DV*2ik 7 array def /DVS1ik 7 array def /DVS2ik 7 array def %default 0 1 6 {/i exch def cwdif4 i 4 put cwdif2 i 2 put cwdif1 i 1 put cndif4 i 40 put cndif2 i 20 put cndif1 i 10 put wName i (W) put nName i (N) put } for /ik 0 def 0 1 6 {/ik exch def %ik=0,6 %7 series %025 W-Wc-CW 089-090-091 %031 CW-Cw-C 091-092-093 %037 C-Cn-CN 149-150-151 %043 CN-Nc-N 151-152-153 %001 W-CW-C 001-002-003 %007 C-CN-N 037-038-039 %013 W-C-N 209-210-211 ik 0 eq {/ii 025 1 sub def} if ik 1 eq {/ii 031 1 sub def} if ik 2 eq {/ii 037 1 sub def} if ik 3 eq {/ii 043 1 sub def} if ik 4 eq {/ii 001 1 sub def} if ik 5 eq {/ii 007 1 sub def} if ik 6 eq {/ii 013 1 sub def} if %6 series/figures /ii ii xchartl add def /i16 ii 16 mul def /S D57xSERi i16 1 add get def S 4 eq {%S=4 /DREL D57xSERi i16 13 add get def DV*1ik ik D57xSERi i16 12 add get DREL mul put DV*2ik ik D57xSERi i16 12 add get 1 DREL sub mul put } if %S=4 S 3 eq {%S=3 DV*1ik ik D57xSERi i16 12 add get put DV*2ik ik D57xSERi i16 13 add get put } if %S=3 %always standard deviation DVS1ik ik D57xSERi i16 10 add get put DVS2ik ik D57xSERi i16 11 add get put /N1 D57xSERi i16 2 add get 1 sub def %Nx-count STARTs at "1" /N2 D57xSERi i16 3 add get 1 sub def /N3 D57xSERi i16 4 add get 1 sub def ik 0 eq {wName 0 D57xSERi i16 7 add get put wName 1 D57xSERi i16 8 add get put wName 2 D57xSERi i16 9 add get put} if ik 1 eq {wName 3 D57xSERi i16 8 add get put wName 4 D57xSERi i16 9 add get put} if ik 2 eq {nName 0 D57xSERi i16 7 add get put nName 1 D57xSERi i16 8 add get put nName 2 D57xSERi i16 9 add get put} if ik 3 eq {nName 3 D57xSERi i16 8 add get put nName 4 D57xSERi i16 9 add get put} if /X10 X0i N1 get def /Y10 Y0i N1 get def /Z10 Z0i N1 get def /X20 X0i N2 get def /Y20 Y0i N2 get def /Z20 Z0i N2 get def /X30 X0i N3 get def /Y30 Y0i N3 get def /Z30 Z0i N3 get def 0 1 1 {/i exch def %i=0,1 i 0 eq {%i=0,1 /X0 X20 def /Y0 Y20 def /Z0 Z20 def /X1 X10 def /Y1 Y10 def /Z1 Z10 def } if %i=0 i 1 eq {%i=1 /X0 X20 def /Y0 Y20 def /Z0 Z20 def /X1 X30 def /Y1 Y30 def /Z1 Z30 def } if %i=1 proc_coldiff } for %i=0,1 DLAB21ik ik d_CIELABi 0 get put DLAB32ik ik d_CIELABi 1 get put %025 ik=0 W-Wc-CW 089-090-091 %031 ik=1 CW-Cw-C 091-092-093 %037 ik=2 C-Cn-CN 149-150-151 %043 ik=3 CN-Nc-N 151-152-153 %001 ik=4 W-CW-C 001-002-003 %007 ik=5 C-CN-N 037-038-039 %013 ik=6 W-C-N 209-210-211 %/ioutk 1 def %ioutk 0 eq {%ioutk=0 xchart4 0 eq {%xchart4=0 ik 0 eq {cwdifx 0 DLAB21ik ik get put %W-Wc-CW cwdifx 1 DLAB32ik ik get put} if ik 1 eq {cwdifx 2 DLAB21ik ik get put %CW-Cw-C cwdifx 3 DLAB32ik ik get put} if ik 2 eq {cndifx 0 DLAB21ik ik get put %C-Cn-CN cndifx 1 DLAB32ik ik get put} if ik 3 eq {cndifx 2 DLAB21ik ik get put %CN-Nc-N cndifx 3 DLAB32ik ik get put} if ik 4 eq {cwdifx 4 DLAB21ik ik get put %W-CW-C cwdifx 5 DLAB32ik ik get put} if ik 5 eq {cndifx 4 DLAB21ik ik get put %C-CN-N cndifx 5 DLAB32ik ik get put} if ik 6 eq {cwdifx 6 DLAB21ik ik get put %W-C-N cndifx 6 DLAB32ik ik get put} if } if %xchart4=0 %} if %ioutk=0 %ioutk 1 eq {%ioutk=1 xchart4 1 eq {%xchart4=1 ik 0 eq {cwdifx 0 DV*1ik ik get put %W-Wc-CW cwdifx 1 DV*2ik ik get put} if ik 1 eq {cwdifx 2 DV*1ik ik get put %CW-Cw-C cwdifx 3 DV*2ik ik get put} if ik 2 eq {cndifx 0 DV*1ik ik get put %C-Cn-CN cndifx 1 DV*2ik ik get put} if ik 3 eq {cndifx 2 DV*1ik ik get put %CN-Nc-N cndifx 3 DV*2ik ik get put} if ik 4 eq {cwdifx 4 DV*1ik ik get put %W-CW-C cwdifx 5 DV*2ik ik get put} if ik 5 eq {cndifx 4 DV*1ik ik get put %C-CN-N cndifx 5 DV*2ik ik get put} if ik 6 eq {cwdifx 6 DV*1ik ik get put %W-C-N cndifx 6 DV*2ik ik get put} if ik 0 eq {cwstdx 0 DVS1ik ik get put %W-Wc-CW cwstdx 1 DVS2ik ik get put} if ik 1 eq {cwstdx 2 DVS1ik ik get put %CW-Cw-C cwstdx 3 DVS2ik ik get put} if ik 2 eq {cnstdx 0 DVS1ik ik get put %C-Cn-CN cnstdx 1 DVS2ik ik get put} if ik 3 eq {cnstdx 2 DVS1ik ik get put %CN-Nc-N cnstdx 3 DVS2ik ik get put} if ik 4 eq {cwstdx 4 DVS1ik ik get put %W-CW-C cwstdx 5 DVS2ik ik get put} if ik 5 eq {cnstdx 4 DVS1ik ik get put %C-CN-N cnstdx 5 DVS2ik ik get put} if ik 6 eq {cwstdx 6 DVS1ik ik get put %W-C-N cnstdx 6 DVS2ik ik get put} if } if %xchart4=1 %} if %ioutk=1 } for %ik=0,6 %7 series 0 1 3 {/ik exch def %ik=0,3 cwdif4 ik cwdifx ik get 0.49 add cvi put cndif4 ik cndifx ik get 0.49 add cvi put } for %ik=0,3 0 1 1 {/ik exch def %ik=0,1 cwdif2 ik cwdifx ik 4 add get 0.49 add cvi put cndif2 ik cndifx ik 4 add get 0.49 add cvi put } for %ik=0,1 cwdif1 0 cwdifx 6 get 0.49 add cvi put cndif1 0 cndifx 6 get 0.49 add cvi put xchart4 1 eq {%xchart4=1 0 1 3 {/ik exch def %ik=0,3 cwstd4 ik cwstdx ik get 0.49 add cvi put cnstd4 ik cnstdx ik get 0.49 add cvi put } for %ik=0,3 0 1 1 {/ik exch def %ik=0,1 cwstd2 ik cwstdx ik 4 add get 0.49 add cvi put cnstd2 ik cnstdx ik 4 add get 0.49 add cvi put } for %ik=0,1 cwstd1 0 cwstdx 6 get 0.49 add cvi put cnstd1 0 cnstdx 6 get 0.49 add cvi put } if %xchart4=1 %STOP5 newpath /k 0 def /j 0 def /i 0 def 0 1 2 {/k exch def %k=0,2 %three rows /ys yshift k mul def 0 1 1 {/j exch def %j=0,1 %left, right /xs xshift j mul def k 0 eq {TBS j 0 eq {%j=0 1 1 1 setrgbcolor xpp yp 0300 add moveto (helle Serie ) showde (light series ) showen wName 4 get show ( nach W) showde ( to W) showen } if %j=0 j 1 eq {%j=1 0 0 0 setrgbcolor xp 450 sub xshift add yp 0300 add moveto (dunkle Serie ) showde (dark series ) showen nName 0 get show ( nach N) showde ( to N) showen } if %j=1 } if %k=0 TS 0 0 0 setrgbcolor 0 1 4 {/i exch def %i=0,4 %five colours /xi xpW xm i mul add xs add def %NW /yi ypW ym i mul add ys sub def % xpW ypW moveto (START, i, wName) show % i cvishow % wName i get show k 0 eq {xi 100 sub yi 200 add moveto j 0 eq {wName 4 i sub get show} if j 1 eq {nName i get show} if newpath } if k 0 eq i 3 le and {xi 100 add yi 350 sub moveto j 0 eq {cwdif4 3 i sub get cvishow} if j 1 eq {cndif4 i get cvishow} if xchart4 1 eq {%xchart4=1 (\261) show %+/- j 0 eq {cwstd4 3 i sub get cvishow} if j 1 eq {cnstd4 i get cvishow} if } if %xchart4=1 newpath } if k 0 eq i 1 le and {xi 400 add i 500 mul add yi 1150 sub moveto j 0 eq {cwdif2 1 i sub get cvishow} if j 1 eq {cndif2 i get cvishow} if xchart4 1 eq {%xchart4=1 (\261) show %+/- j 0 eq {cwstd2 1 i sub get cvishow} if j 1 eq {cnstd2 i get cvishow} if } if %xchart4=1 newpath } if k 0 eq i 0 le and {xi 1000 add i 500 mul add yi 2000 sub moveto j 0 eq {cwdif1 0 get cvishow} if j 1 eq {cndif1 0 get cvishow} if xchart4 1 eq {%xchart4=1 (\261) show %+/- j 0 eq {cwstd1 0 get cvishow} if j 1 eq {cnstd1 0 get cvishow} if } if %xchart4=1 newpath } if i 0 eq i 4 eq or {0 0 0 setrgbcolor xi yi 140 0 360 arc fill } if j 0 eq {%j=0 /w i 4 div def xchartl 0 eq {w 1 1 setrgbcolor} if %C-W xchartl 1 eq {w w 1 setrgbcolor} if %V-W xchartl 2 eq {1 w 1 setrgbcolor} if %M-W xchartl 3 eq {1 w w setrgbcolor} if %O-W xchartl 4 eq {1 1 w setrgbcolor} if %Y-W xchartl 5 eq {w 1 w setrgbcolor} if %L-W } if %j=0 j 1 eq {%j=1 /w 1 i 4 div sub def xchartl 0 eq {0 w w setrgbcolor} if %C-N xchartl 1 eq {0 0 w setrgbcolor} if %V-N xchartl 2 eq {w 0 w setrgbcolor} if %M-N xchartl 3 eq {w 0 0 setrgbcolor} if %O-N xchartl 4 eq {w w 0 setrgbcolor} if %Y-N xchartl 5 eq {0 w 0 setrgbcolor} if %L-N } if %j=1 xi yi 070 0 360 arc fill i 0 eq i 4 eq or {0 0 0 setrgbcolor xi 70 sub yi moveto 140 0 rlineto stroke xi yi 70 sub moveto 0 140 rlineto stroke } if k 0 eq {%k=0 i 1 ge i 3 le and {%k=0 and all i 0 0 0 setrgbcolor xi 70 sub yi moveto 140 0 rlineto stroke xi yi 70 sub moveto 0 140 rlineto stroke } if %i=2 and k<2 } if %k=0 k 1 eq i 2 eq and {%k=1 and i=2 0 0 0 setrgbcolor xi 70 sub yi moveto 140 0 rlineto stroke xi yi 70 sub moveto 0 140 rlineto stroke } if %k=1 and i=2 i 4 eq j 1 eq and {%i=4 and j=1 %cross in black N 1 1 1 setrgbcolor xi 70 sub yi moveto 140 0 rlineto stroke xi yi 70 sub moveto 0 140 rlineto stroke } if %i=4 and j=1 } for %i=0,4 } for %j=0,1 } for %k=0,2 xt1 neg yt1 neg translate %************************************************************************* showpage grestore %} for %xchartl=0,5 %%Trailer