%!PS-Adobe-3.0 EPSF-3.0 UE780-7N %%BoundingBox: 70 82 785 580 %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/TE01/) /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@me.com) /CreationDate (D:2014010112000) /ModDate (D:2014010112000) /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 % !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /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 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /TS {160 /Times-ISOL1 FS} bind def /TL {200 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TM {290 /Times-ISOL1 FS} bind def /TG {340 /Times-ISOL1 FS} bind def /TIL {200 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIM {290 /TimesI-ISOL1 FS} bind def /TIG {340 /TimesI-ISOL1 FS} bind def /TBL {200 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBM {290 /TimesB-ISOL1 FS} bind def /TBG {340 /TimesB-ISOL1 FS} bind def /TBIL {200 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIM {290 /TimesBI-ISOL1 FS} bind def /TBIG {340 /TimesBI-ISOL1 FS} bind def /SL {240 1 sub /Symbol FS} bind def /SK {240 1 sub /Symbol FS} bind def /SM {290 1 sub /Symbol FS} bind def /SG {340 1 sub /Symbol FS} bind def %XCHA01.PS BEG /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfi %x y width heigth c m y k {setcmyk_olvcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmyk_olvcolor rec stroke} bind def /rem %x, y width heigth {/heigth exch 0.5 mul def /width exch 0.5 mul def /yleftb exch heigth 0.5 mul add def /xleftb exch width 0.5 mul add def xleftb yleftb moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colremfi %x y width heigth c m y k {setcmykcolor rem fill} bind def /colremst %x y width heigth c m y k {setcmykcolor rem stroke} bind def /tzr {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzg {1.0 0.0 1.0 0.0} bind def /tzb {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tfr {0.0 1.0 1.0 0.0 setcmyk_olvcolor} bind def %Reproduktionsfarben /tfg {1.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def /tfb {1.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def /tfc {1.0 0.0 0.0 0.0 setcmyk_olvcolor} bind def /tfm {0.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def /tfy {0.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def /tfn {0.0 0.0 0.0 1.00 setcmyk_olvcolor} bind def %Graureihe /tfd {0.0 0.0 0.0 0.75 setcmyk_olvcolor} bind def /tfz {0.0 0.0 0.0 0.50 setcmyk_olvcolor} bind def /tfh {0.0 0.0 0.0 0.25 setcmyk_olvcolor} bind def /tfw {0.0 0.0 0.0 0.00 setcmyk_olvcolor} bind def /IXYZX 2772 array def %min 132*21=2772 %NW:0_31;32, NY:33_65;32, NB:66_87;22, NR:88_109;22, NG:110_131;22 %NW:0_17;18, NY:33_46;14, NB:66_71;06, NR:88_095;08, NG:110_119;10 for Y0>=1 /IXYZX [%BEG IXYZX %UE930-7T.TXT; output of ..-7R.PS with MACPS2PDF -> PS2ACII ON ME17GL 141121: ..-7R.log -> .TXT %%XS YS ZS X0 Y0 Z0 X1 Y1 Z1 DV dE*ab dE*CH dE*94 dE*CM dE*00 dE*85 no. Code L* a* b* % %CIEXYZ*1000 data for all colours (a), iim=132, Color difference data for \Delta E*LCH=\Delta E*CIELAB=CIELCH=1, DV=1 % 0094937 0100000 0046142 0272171 0286340 0132630 0283691 0298460 0138243 0001000 02291 02291 02291 01034 00918 01061 13110000 (149008_AV) 149 0 0 % 0094937 0100000 0046142 0178005 0187271 0086742 0185853 0195528 0090567 0001000 02071 02071 02071 00992 00955 01098 13110001 (127008_AV) 127 0 0 % 0094937 0100000 0046142 0108349 0113990 0052799 0113311 0119210 0055216 0001000 01822 01822 01822 00945 00990 01129 13110002 (105008_AV) 105 0 0 % 0094937 0100000 0046142 0072382 0076150 0035271 0075385 0079310 0036735 0001000 01445 01445 01445 00807 00899 01013 13110003 (90008_AV) 90 0 0 % 0094937 0100000 0046142 0049917 0052516 0024324 0052320 0055044 0025495 0001000 01478 01478 01478 00889 01041 01152 13110004 (78008_AV) 78 0 0 % 0094937 0100000 0046142 0036407 0038302 0017741 0037904 0039877 0018470 0001000 01139 01139 01139 00734 00893 00969 13110005 (68008_AV) 68 0 0 % 0094937 0100000 0046142 0026828 0028224 0013073 0028073 0029535 0013680 0001000 01160 01160 01160 00804 01010 01065 13110006 (60008_AV) 60 0 0 % 0094937 0100000 0046142 0019953 0020991 0009723 0020881 0021968 0010175 0001000 01053 01053 01053 00787 01020 01035 13110007 (53008_AV) 53 0 0 % 0094937 0100000 0046142 0015127 0015915 0007371 0015783 0016604 0007691 0001000 00894 00894 00894 00722 00876 00928 13110008 (47008_AV) 47 0 0 % 0094937 0100000 0046142 0011215 0011799 0005465 0011748 0012360 0005725 0001000 00887 00887 00887 00784 00795 00966 13110009 (41008_AV) 41 0 0 % 0094937 0100000 0046142 0008138 0008562 0003965 0008533 0008977 0004158 0001000 00812 00812 00812 00797 00673 00917 13110010 (35008_AV) 35 0 0 % 0094937 0100000 0046142 0010679 0011235 0005204 0010992 0011564 0005356 0001000 00540 00540 00540 00485 00477 00593 13110011 (40008_AV) 40 0 0 % 0094937 0100000 0046142 0006982 0007345 0003402 0007205 0007580 0003511 0001000 00512 00512 00512 00530 00410 00584 13110012 (33008_AV) 33 0 0 % 0094937 0100000 0046142 0004248 0004470 0002070 0004396 0004625 0002142 0001000 00469 00469 00469 00590 00345 00536 13110013 (25008_AV) 25 0 0 % 0094937 0100000 0046142 0002823 0002970 0001376 0002940 0003093 0001432 0001000 00488 00488 00488 00737 00338 00533 13110014 (20008_AV) 20 0 0 % 0094937 0100000 0046142 0001947 0002049 0000949 0002040 0002146 0000994 0001000 00492 00492 00492 00962 00327 00498 13110015 (16008_AV) 16 0 0 % 0094937 0100000 0046142 0001410 0001483 0000687 0001486 0001564 0000724 0001000 00508 00508 00508 00994 00329 00470 13110016 (13008_AV) 13 0 0 % 0094937 0100000 0046142 0001040 0001095 0000507 0001099 0001156 0000535 0001000 00468 00468 00468 00915 00297 00389 13110017 (10008_AV) 10 0 0 % 0094937 0100000 0046142 0000771 0000811 0000375 0000821 0000864 0000400 0001000 00479 00479 00479 00937 00294 00363 13110018 (07000_AV) 7 0 0 % 0094937 0100000 0046142 0000582 0000612 0000283 0000623 0000656 0000303 0001000 00398 00398 00398 00779 00244 00319 13110019 (06000_AV) 6 0 0 % 0094937 0100000 0046142 0000429 0000451 0000209 0000466 0000490 0000227 0001000 00352 00352 00352 00689 00209 00296 13110020 (04000_AV) 4 0 0 % 0094937 0100000 0046142 0000308 0000324 0000150 0000341 0000359 0000166 0001000 00316 00316 00316 00618 00186 00276 13110021 (03000_AV) 3 0 0 % 0094937 0100000 0046142 0000398 0000418 0000193 0000447 0000470 0000217 0001000 00469 00469 00469 00919 00279 00398 13110022 (04000_AV) 4 0 0 % 0094937 0100000 0046142 0000258 0000271 0000125 0000294 0000310 0000143 0001000 00354 00355 00355 00693 00215 00313 13110023 (02000_AV) 2 0 0 % 0094937 0100000 0046142 0000154 0000162 0000075 0000183 0000192 0000089 0001000 00271 00271 00271 00531 00160 00249 13110024 (01000_AV) 1 0 0 % 0094937 0100000 0046142 0000099 0000104 0000048 0000125 0000131 0000061 0001000 00245 00244 00244 00478 00143 00229 13110025 (01000_AV) 1 0 0 % 0094937 0100000 0046142 0000065 0000069 0000032 0000089 0000094 0000043 0001000 00226 00227 00227 00443 00132 00214 13110026 (01000_AV) 1 0 0 % 0094937 0100000 0046142 0000046 0000048 0000022 0000066 0000070 0000032 0001000 00202 00202 00202 00394 00126 00190 13110027 (00002_AV) 0 0 0 % 0094937 0100000 0046142 0000031 0000032 0000015 0000052 0000054 0000025 0001000 00198 00198 00198 00389 00114 00191 13110028 (00009_AV) 0 0 0 % 0094937 0100000 0046142 0000020 0000021 0000010 0000041 0000043 0000020 0001000 00198 00198 00198 00389 00114 00192 13110029 (00008_AV) 0 0 0 % 0094937 0100000 0046142 0000013 0000014 0000006 0000033 0000034 0000016 0001000 00187 00188 00188 00363 00123 00175 13110030 (00004_AV) 0 0 0 % 0094937 0100000 0046142 0000008 0000008 0000004 0000026 0000027 0000012 0001000 00173 00174 00174 00338 00101 00167 13110031 (00009_AV) 0 0 0 % 0094937 0100000 0046142 0000003 0000003 0000001 0000021 0000023 0000010 0001000 00185 00185 00185 00359 00120 00176 13110032 (00003_AV) 0 0 0 % 0094937 0100000 0046142 0081727 0077539 0006913 0084004 0079700 0007105 0001000 01224 01224 00993 00594 00629 00685 13410033 (91793_AV) 91 16 78 % 0094937 0100000 0046142 0053528 0050785 0004527 0054950 0052134 0004648 0001000 01009 01009 00825 00532 00598 00641 13410034 (77693_AV) 77 14 67 % 0094937 0100000 0046142 0032631 0030959 0002760 0033475 0031760 0002831 0001000 00838 00838 00685 00490 00584 00604 13410035 (62583_AV) 62 12 57 % 0094937 0100000 0046142 0021699 0020587 0001835 0022358 0021212 0001891 0001000 00853 00853 00703 00551 00688 00678 13410036 (53513_AV) 53 10 50 % 0094937 0100000 0046142 0015002 0014234 0001269 0015479 0014686 0001309 0001000 00793 00793 00653 00564 00619 00672 13410037 (45453_AV) 45 9 44 % 0094937 0100000 0046142 0010900 0010342 0000922 0011254 0010677 0000951 0001000 00735 00735 00602 00569 00527 00644 13410038 (38403_AV) 38 8 40 % 0094937 0100000 0046142 0008059 0007646 0000681 0008311 0007885 0000703 0001000 00623 00623 00525 00543 00431 00577 13410039 (33373_AV) 33 8 36 % 0094937 0100000 0046142 0005973 0005667 0000505 0006202 0005884 0000524 0001000 00706 00706 00586 00671 00461 00644 13410040 (29333_AV) 29 7 32 % 0094937 0100000 0046142 0004526 0004294 0000382 0004691 0004451 0000396 0001000 00616 00616 00513 00650 00390 00555 13410041 (25303_AV) 25 6 30 % 0094937 0100000 0046142 0003359 0003187 0000284 0003489 0003310 0000295 0001000 00640 00640 00506 00718 00381 00514 13410042 (21273_AV) 21 6 26 % 0094937 0100000 0046142 0002433 0002308 0000205 0002537 0002407 0000214 0001000 00683 00683 00525 00847 00398 00484 13440043 (17233_AV) 17 5 23 % 0094937 0100000 0046142 0003173 0003011 0000268 0003289 0003120 0000278 0001000 00594 00594 00469 00679 00352 00470 13410044 (20263_AV) 20 5 26 % 0094937 0100000 0046142 0002072 0001966 0000175 0002158 0002047 0000182 0001000 00654 00654 00494 00879 00379 00424 13440045 (15213_AV) 15 5 21 % 0094937 0100000 0046142 0001261 0001196 0000106 0001316 0001249 0000111 0001000 00626 00626 00486 00834 00386 00330 13440046 (11153_AV) 11 4 15 % 0094937 0100000 0046142 0000834 0000792 0000070 0000883 0000838 0000074 0001000 00911 00911 00713 01153 00771 00317 13430047 (07113_AV) 7 3 10 % 0094937 0100000 0046142 0000573 0000543 0000048 0000615 0000584 0000052 0001000 00637 00637 00539 00876 00455 00303 13440048 (05073_AV) 5 2 7 % 0094937 0100000 0046142 0000414 0000393 0000035 0000449 0000426 0000038 0001000 00530 00530 00464 00744 00412 00255 13440049 (04053_AV) 4 2 5 % 0094937 0100000 0046142 0000302 0000287 0000025 0000335 0000318 0000028 0001000 00495 00495 00447 00721 00404 00248 13440050 (03043_AV) 3 1 4 % 0094937 0100000 0046142 0000223 0000212 0000018 0000251 0000238 0000021 0001000 00407 00407 00377 00615 00348 00213 13130051 (02033_AV) 2 1 3 % 0094937 0100000 0046142 0000166 0000157 0000014 0000193 0000183 0000016 0001000 00421 00421 00397 00647 00357 00217 13140052 (01023_AV) 1 1 2 % 0094937 0100000 0046142 0000121 0000115 0000010 0000145 0000138 0000012 0001000 00368 00368 00352 00580 00319 00194 13140053 (01023_AV) 1 0 1 % 0094937 0100000 0046142 0000085 0000080 0000007 0000108 0000103 0000009 0001000 00360 00360 00349 00582 00307 00197 13140054 (01013_AV) 1 0 1 % 0094937 0100000 0046142 0000106 0000100 0000009 0000145 0000138 0000012 0001000 00610 00610 00587 00970 00525 00322 13140055 (01013_AV) 1 0 1 % 0094937 0100000 0046142 0000064 0000061 0000005 0000100 0000094 0000008 0001000 00543 00543 00530 00880 00508 00283 13130056 (01013_AV) 1 0 1 % 0094937 0100000 0046142 0000035 0000034 0000003 0000064 0000061 0000005 0001000 00450 00450 00444 00742 00421 00234 13140057 (00003_AV) 0 0 0 % 0094937 0100000 0046142 0000020 0000019 0000001 0000046 0000044 0000003 0001000 00403 00403 00400 00675 00367 00218 13140058 (00003_AV) 0 0 0 % 0094937 0100000 0046142 0000009 0000008 0000001 0000037 0000035 0000003 0001000 00439 00439 00438 00741 00401 00236 13140059 (00003_AV) 0 0 0 % 0094937 0100000 0046142 0000002 0000002 0000001 0000031 0000029 0000002 0001000 00477 00478 00478 00802 00456 00240 13140060 (00009_AV) 0 0 0 % 0094937 0100000 0046142 0000001 0000001 0000001 0000025 0000023 0000002 0001000 00388 00390 00390 00654 00378 00203 13140061 (00008_AV) 0 0 0 % 0094937 0100000 0046142 0000001 0000001 0000001 0000020 0000019 0000001 0001000 00333 00335 00335 00558 00316 00167 13140062 (00008_AV) 0 0 0 % 0094937 0100000 0046142 0000001 0000001 0000001 0000017 0000016 0000001 0001000 00279 00281 00281 00468 00267 00140 13140063 (00008_AV) 0 0 0 % 0094937 0100000 0046142 0000001 0000001 0000001 0000016 0000015 0000001 0001000 00261 00263 00263 00438 00251 00130 13140064 (00008_AV) 0 0 0 % 0094937 0100000 0046142 0000001 0000001 0000001 0000014 0000013 0000001 0001000 00225 00228 00227 00378 00219 00112 13140065 (00008_AV) 0 0 0 % 0094937 0100000 0046142 0005323 0008174 0016377 0005529 0008490 0017011 0001000 01002 01002 00672 00695 00563 00725 13770066 (34607_AV) 34 -26 -55 % 0094937 0100000 0046142 0003488 0005356 0010733 0003615 0005551 0011122 0001000 00815 00815 00555 00655 00436 00601 13770067 (28537_AV) 28 -22 -48 % 0094937 0100000 0046142 0002118 0003252 0006517 0002211 0003395 0006802 0001000 00832 00832 00574 00815 00430 00591 13770068 (21447_AV) 21 -19 -40 % 0094937 0100000 0046142 0001404 0002156 0004321 0001480 0002273 0004554 0001000 00892 00892 00624 01062 00456 00588 13770069 (16397_AV) 16 -16 -35 % 0094937 0100000 0046142 0000972 0001493 0002992 0001024 0001572 0003150 0001000 00767 00767 00544 01002 00392 00457 13770070 (13347_AV) 13 -14 -31 % 0094937 0100000 0046142 0000701 0001077 0002159 0000749 0001150 0002305 0001000 00951 00951 00653 01166 00482 00466 13770071 (10317_AV) 10 -13 -28 % 0094937 0100000 0046142 0000516 0000793 0001589 0000555 0000853 0001709 0001000 01128 01128 00743 01207 00606 00413 13870072 (07277_AV) 7 -10 -25 % 0094937 0100000 0046142 0000384 0000589 0001181 0000413 0000634 0001271 0001000 01026 01026 00635 00974 00561 00328 13870073 (05237_AV) 5 -7 -22 % 0094937 0100000 0046142 0000288 0000442 0000887 0000315 0000483 0000969 0001000 01138 01138 00687 00986 00640 00312 13870074 (04207_AV) 4 -5 -19 % 0094937 0100000 0046142 0000212 0000326 0000653 0000236 0000362 0000726 0001000 01285 01285 00789 01050 00759 00284 13880075 (03167_AV) 3 -4 -16 % 0094937 0100000 0046142 0000153 0000235 0000472 0000171 0000264 0000529 0001000 01307 01307 00859 01094 00849 00236 13880076 (02137_AV) 2 -3 -12 % 0094937 0100000 0046142 0000199 0000306 0000614 0000223 0000343 0000687 0001000 01348 01348 00840 01111 00816 00294 13880077 (03167_AV) 3 -4 -15 % 0094937 0100000 0046142 0000128 0000197 0000396 0000148 0000227 0000455 0001000 01672 01672 01150 01441 01118 00247 13880078 (02117_AV) 2 -2 -10 % 0094937 0100000 0046142 0000075 0000115 0000231 0000093 0000143 0000287 0001000 01517 01517 01198 01572 01179 00236 13880079 (01067_AV) 1 -1 -6 % 0094937 0100000 0046142 0000048 0000074 0000149 0000063 0000098 0000196 0001000 01272 01272 01085 01487 01080 00205 13880080 (01047_AV) 1 -1 -4 % 0094937 0100000 0046142 0000031 0000048 0000097 0000046 0000070 0000141 0001000 01184 01184 01064 01513 01050 00190 13180081 (00037_AV) 0 -1 -3 % 0094937 0100000 0046142 0000021 0000033 0000067 0000034 0000053 0000106 0001000 01050 01050 00973 01423 00971 00174 13180082 (00027_AV) 0 0 -2 % 0094937 0100000 0046142 0000014 0000022 0000044 0000027 0000041 0000084 0001000 01087 01087 01034 01545 01022 00166 13180083 (00017_AV) 0 0 -1 % 0094937 0100000 0046142 0000008 0000013 0000027 0000022 0000034 0000068 0001000 01100 01100 01066 01627 01061 00184 13180084 (00017_AV) 0 0 -1 % 0094937 0100000 0046142 0000005 0000008 0000016 0000018 0000027 0000055 0001000 01055 01055 01035 01600 01026 00166 13180085 (00007_AV) 0 0 0 % 0094937 0100000 0046142 0000002 0000003 0000007 0000014 0000022 0000045 0001000 01031 01031 01022 01599 01025 00167 13180086 (00007_AV) 0 0 0 % 0094937 0100000 0046142 0000000 0000000 0000001 0000012 0000018 0000038 0001000 01003 01002 01001 01577 00998 00267 13180087 (00008_AV) 0 0 0 % 0094937 0100000 0046142 0028515 0014463 0001618 0029805 0015117 0001692 0001000 01520 01520 00940 00844 00898 00954 13330088 (45822_AV) 45 72 39 % 0094937 0100000 0046142 0018732 0009500 0001063 0019450 0009865 0001104 0001000 01120 01120 00701 00701 00605 00748 13330089 (37722_AV) 37 63 34 % 0094937 0100000 0046142 0011412 0005788 0000647 0011856 0006013 0000673 0001000 00961 00961 00609 00705 00485 00658 13330090 (29612_AV) 29 53 29 % 0094937 0100000 0046142 0007566 0003837 0000429 0007942 0004028 0000450 0001000 01077 01077 00687 00916 00524 00719 13330091 (23532_AV) 23 46 25 % 0094937 0100000 0046142 0005244 0002660 0000297 0005484 0002781 0000311 0001000 00917 00917 00572 00880 00430 00553 13330092 (19472_AV) 19 41 22 % 0094937 0100000 0046142 0003805 0001930 0000216 0003994 0002025 0000226 0001000 00957 00957 00583 01057 00446 00500 13330093 (15412_AV) 15 37 19 % 0094937 0100000 0046142 0002808 0001424 0000159 0002952 0001497 0000167 0001000 00913 00913 00569 01025 00442 00429 13330094 (12372_AV) 12 33 16 % 0094937 0100000 0046142 0002085 0001057 0000118 0002200 0001116 0000124 0001000 00919 00919 00592 01067 00471 00379 13030095 (10332_AV) 10 30 12 % 0094937 0100000 0046142 0001576 0000799 0000089 0001667 0000845 0000094 0001000 00918 00918 00572 01000 00467 00317 13030096 (07292_AV) 7 28 9 % 0094937 0100000 0046142 0001166 0000591 0000066 0001244 0000631 0000070 0001000 01124 01124 00629 00956 00572 00292 13030097 (05252_AV) 5 24 7 % 0094937 0100000 0046142 0000837 0000424 0000047 0000912 0000462 0000051 0001000 01969 01969 01113 01397 01195 00291 13000098 (04192_AV) 4 18 5 % 0094937 0100000 0046142 0001090 0000553 0000061 0001184 0000600 0000067 0001000 01471 01471 00808 01163 00761 00346 13000099 (05242_AV) 5 23 7 % 0094937 0100000 0046142 0000712 0000361 0000040 0000776 0000393 0000044 0001000 01454 01454 00883 01123 00984 00250 13000100 (03162_AV) 3 15 4 % 0094937 0100000 0046142 0000431 0000218 0000024 0000476 0000241 0000027 0001000 01005 01005 00719 00928 00871 00188 13000101 (02102_AV) 2 9 3 % 0094937 0100000 0046142 0000283 0000143 0000016 0000321 0000162 0000018 0001000 00867 00867 00684 00907 00869 00159 13000102 (01062_AV) 1 6 2 % 0094937 0100000 0046142 0000194 0000098 0000011 0000224 0000113 0000012 0001000 00689 00689 00582 00799 00761 00128 13000103 (01042_AV) 1 4 1 % 0094937 0100000 0046142 0000137 0000069 0000007 0000166 0000084 0000009 0001000 00642 00642 00568 00805 00758 00129 13000104 (01032_AV) 1 3 1 % 0094937 0100000 0046142 0000099 0000050 0000005 0000125 0000063 0000007 0001000 00588 00588 00537 00778 00733 00112 13100105 (00022_AV) 0 2 1 % 0094937 0100000 0046142 0000070 0000035 0000004 0000096 0000048 0000005 0001000 00596 00596 00559 00827 00766 00113 13100106 (00022_AV) 0 2 0 % 0094937 0100000 0046142 0000052 0000026 0000002 0000074 0000037 0000004 0001000 00495 00495 00471 00709 00659 00096 13100107 (00012_AV) 0 1 0 % 0094937 0100000 0046142 0000035 0000018 0000002 0000058 0000029 0000003 0001000 00542 00542 00524 00800 00736 00096 13100108 (00012_AV) 0 1 0 % 0094937 0100000 0046142 0000023 0000011 0000001 0000045 0000022 0000002 0001000 00503 00503 00492 00759 00690 00096 13100109 (00012_AV) 0 1 0 % 0094937 0100000 0046142 0016937 0027442 0010187 0017416 0028217 0010475 0001000 00813 00813 00716 00518 00635 00651 13610110 (59445_AV) 59 -43 9 % 0094937 0100000 0046142 0011071 0017937 0006659 0011419 0018502 0006868 0001000 00791 00791 00695 00560 00695 00690 13610111 (49385_AV) 49 -38 8 % 0094937 0100000 0046142 0006747 0010931 0004058 0006954 0011268 0004183 0001000 00659 00659 00580 00536 00513 00621 13610112 (39335_AV) 39 -32 7 % 0094937 0100000 0046142 0004485 0007267 0002697 0004649 0007532 0002796 0001000 00671 00671 00599 00627 00488 00663 13610113 (32285_AV) 32 -28 6 % 0094937 0100000 0046142 0003100 0005023 0001864 0003220 0005217 0001936 0001000 00629 00629 00563 00672 00435 00623 13610114 (27255_AV) 27 -25 5 % 0094937 0100000 0046142 0002254 0003652 0001355 0002338 0003789 0001406 0001000 00557 00557 00496 00671 00372 00532 13610115 (23235_AV) 23 -22 5 % 0094937 0100000 0046142 0001662 0002693 0001000 0001732 0002806 0001041 0001000 00555 00555 00500 00776 00366 00514 13610116 (19205_AV) 19 -20 4 % 0094937 0100000 0046142 0001230 0001993 0000740 0001293 0002096 0000778 0001000 00627 00627 00561 01060 00409 00535 13610117 (16185_AV) 16 -18 4 % 0094937 0100000 0046142 0000930 0001507 0000559 0000980 0001588 0000589 0001000 00585 00585 00530 01002 00380 00467 13610118 (13175_AV) 13 -16 3 % 0094937 0100000 0046142 0000692 0001121 0000416 0000727 0001178 0000437 0001000 00603 00603 00498 00891 00405 00361 13610119 (10155_AV) 10 -15 3 % 0094937 0100000 0046142 0000498 0000808 0000299 0000531 0000861 0000319 0001000 00869 00869 00678 01098 00665 00364 13560120 (07115_AV) 7 -11 2 % 0094937 0100000 0046142 0000646 0001047 0000388 0000692 0001122 0000416 0001000 00880 00880 00718 01247 00613 00483 13560121 (09155_AV) 9 -14 3 % 0094937 0100000 0046142 0000423 0000685 0000254 0000454 0000735 0000273 0001000 00824 00824 00660 01059 00669 00355 13560122 (06105_AV) 6 -9 2 % 0094937 0100000 0046142 0000256 0000414 0000154 0000278 0000451 0000167 0001000 00648 00648 00553 00865 00616 00284 13550123 (04065_AV) 4 -6 1 % 0094937 0100000 0046142 0000168 0000273 0000101 0000187 0000304 0000112 0001000 00523 00523 00469 00747 00538 00249 13550124 (02045_AV) 2 -4 1 % 0094937 0100000 0046142 0000115 0000186 0000069 0000131 0000212 0000078 0001000 00438 00438 00406 00653 00478 00215 13150125 (02035_AV) 2 -3 1 % 0094937 0100000 0046142 0000080 0000131 0000048 0000098 0000158 0000059 0001000 00399 00399 00380 00635 00439 00227 13160126 (01025_AV) 1 -2 0 % 0094937 0100000 0046142 0000060 0000097 0000036 0000071 0000116 0000043 0001000 00341 00341 00326 00528 00409 00162 13160127 (01015_AV) 1 -1 0 % 0094937 0100000 0046142 0000043 0000070 0000026 0000055 0000089 0000033 0001000 00307 00307 00298 00495 00363 00163 13150128 (01015_AV) 1 -1 0 % 0094937 0100000 0046142 0000031 0000051 0000019 0000042 0000069 0000025 0001000 00307 00307 00300 00497 00373 00155 13150129 (00015_AV) 0 -1 0 % 0094937 0100000 0046142 0000022 0000036 0000013 0000032 0000052 0000019 0001000 00261 00261 00257 00430 00320 00139 13160130 (00015_AV) 0 0 0 % 0094937 0100000 0046142 0000015 0000024 0000009 0000025 0000040 0000015 0001000 00261 00261 00258 00435 00324 00139 13160131 (00005_AV) 0 0 0 % %%XS YS ZS X0 Y0 Z0 X1 Y1 Z1 DV dE*ab dE*CH dE*94 dE*CM dE*00 dE*85 no. Code L* a* b* % %sample no. 31 for delta_E*CIELCH=CIELAB=min % %0094937 0100000 0046142 0000008 0000008 0000004 0000026 0000027 0000012 0001000 00173 00174 00174 00338 00101 00167 13110031 (00009_AV) 0 0 0 % %sample no. 0 for delta_E*CIELCH=CIELAB=max % %0094937 0100000 0046142 0272171 0286340 0132630 0283691 0298460 0138243 0001000 02291 02291 02291 01034 00918 01061 13110000 (149008_AV) 149 0 0 % %sample no. 31 for delta_E*CIE94=min % %0094937 0100000 0046142 0000008 0000008 0000004 0000026 0000027 0000012 0001000 00173 00174 00174 00338 00101 00167 13110031 (00009_AV) 0 0 0 % %sample no. 0 for delta_E*CIE94=max % %0094937 0100000 0046142 0272171 0286340 0132630 0283691 0298460 0138243 0001000 02291 02291 02291 01034 00918 01061 13110000 (149008_AV) 149 0 0 % %sample no. 31 for delta_E*CMC(l:c=1:1)=min % %0094937 0100000 0046142 0000008 0000008 0000004 0000026 0000027 0000012 0001000 00173 00174 00174 00338 00101 00167 13110031 (00009_AV) 0 0 0 % %sample no. 84 for delta_E*CMC(l:c=1:1)=max % %0094937 0100000 0046142 0000008 0000013 0000027 0000022 0000034 0000068 0001000 01100 01100 01066 01627 01061 00184 13180084 (00017_AV) 0 0 -1 % %sample no. 31 for delta_E*CIEDE2000=min % %0094937 0100000 0046142 0000008 0000008 0000004 0000026 0000027 0000012 0001000 00173 00174 00174 00338 00101 00167 13110031 (00009_AV) 0 0 0 % %sample no. 98 for delta_E*CIEDE2000=max % %0094937 0100000 0046142 0000837 0000424 0000047 0000912 0000462 0000051 0001000 01969 01969 01113 01397 01195 00291 13000098 (04192_AV) 4 18 5 % %sample no. 107 for delta_E*LABJND_1985=min % %0094937 0100000 0046142 0000052 0000026 0000002 0000074 0000037 0000004 0001000 00495 00495 00471 00709 00659 00096 13100107 (00012_AV) 0 1 0 % %sample no. 4 for delta_E*LABJND_1985=max % %0094937 0100000 0046142 0049917 0052516 0024324 0052320 0055044 0025495 0001000 01478 01478 01478 00889 01041 01152 13110004 (78008_AV) 78 0 0 % %%XS YS ZS X0 Y0 Z0 X1 Y1 Z1 DV dE*ab dE*CH dE*94 dE*CM dE*00 dE*85 NR Code L* C*ab hab % %sample no. 31 for delta_E*CIELCH=CIELAB=min % %0094937 0100000 0046142 0000008 0000008 0000004 0000026 0000027 0000012 0001000 00173 00174 00174 00338 00101 00167 13110031 (00009_AV) 0 0 328 % %sample no. 0 for delta_E*CIELCH=CIELAB=max % %0094937 0100000 0046142 0272171 0286340 0132630 0283691 0298460 0138243 0001000 02291 02291 02291 01034 00918 01061 13110000 (149008_AV) 149 0 308 % %sample no. 31 for delta_E*CIE94=min % %0094937 0100000 0046142 0000008 0000008 0000004 0000026 0000027 0000012 0001000 00173 00174 00174 00338 00101 00167 13110031 (00009_AV) 0 0 328 % %sample no. 0 for delta_E*CIE94=max % %0094937 0100000 0046142 0272171 0286340 0132630 0283691 0298460 0138243 0001000 02291 02291 02291 01034 00918 01061 13110000 (149008_AV) 149 0 308 % %sample no. 31 for delta_E*CMC(l:c=1:1)=min % %0094937 0100000 0046142 0000008 0000008 0000004 0000026 0000027 0000012 0001000 00173 00174 00174 00338 00101 00167 13110031 (00009_AV) 0 0 328 % %sample no. 84 for delta_E*CMC(l:c=1:1)=max % %0094937 0100000 0046142 0000008 0000013 0000027 0000022 0000034 0000068 0001000 01100 01100 01066 01627 01061 00184 13180084 (00017_AV) 0 1 256 % %sample no. 31 for delta_E*CIEDE2000=min % %0094937 0100000 0046142 0000008 0000008 0000004 0000026 0000027 0000012 0001000 00173 00174 00174 00338 00101 00167 13110031 (00009_AV) 0 0 328 % %sample no. 98 for delta_E*CIEDE2000=max % %0094937 0100000 0046142 0000837 0000424 0000047 0000912 0000462 0000051 0001000 01969 01969 01113 01397 01195 00291 13000098 (04192_AV) 4 19 16 % %sample no. 107 for delta_E*LABJND_1985=min % %0094937 0100000 0046142 0000052 0000026 0000002 0000074 0000037 0000004 0001000 00495 00495 00471 00709 00659 00096 13100107 (00012_AV) 0 1 17 % %sample no. 4 for delta_E*LABJND_1985=max % %0094937 0100000 0046142 0049917 0052516 0024324 0052320 0055044 0025495 0001000 01478 01478 01478 00889 01041 01152 13110004 (78008_AV) 78 0 308 % % aE*ab aE*CH aE*94 aE*CM aE*00 aE*85 % %average colour difference of one experimental unit for 132 sample pairs: 00765 00765 00638 00828 00554 00414 % ] def %END IXYZX /IXYZ0 357 array def %min 21x17 will be defined later from IXYZX /IXYZ1 357 array def %min 21x17 /IXYZ1 [%BEG IXYZ1 %UE980-7T.TXT; output of ..-7R.PS with MACPS2PDF -> PS2ACII ON ME17GL 141121: ..-7R.log -> .TXT %%XS YS ZS X0 Y0 Z0 X1 Y1 Z1 DV dE*ab dE*CH dE*94 dE*CM dE*00 dE*85 no. Code L* a* b* % %CIEXYZ*1000 data for all colours (a), iim=309, Color difference data for \Delta E*LCH=\Delta E*CIELAB=CIELCH=1 % 0095040 0100000 0108880 0001070 0001126 0001226 0001199 0001262 0001373 0001000 01001 01001 01001 01959 00630 00852 18110000 (10009_WN) 10 0 0 % 0095040 0100000 0108880 0001813 0001908 0002078 0001996 0002100 0002286 0001000 01001 01001 01001 01960 00662 01004 18110001 (15009_WN) 15 0 0 % 0095040 0100000 0108880 0002840 0002989 0003254 0003085 0003246 0003534 0001000 01001 01001 01001 01507 00697 01099 18110002 (20009_WN) 20 0 0 % 0095040 0100000 0108880 0004196 0004415 0004807 0004512 0004747 0005168 0001000 01001 01001 01001 01264 00735 01143 18110003 (25002_WN) 25 0 0 % 0095040 0100000 0108880 0005926 0006235 0006789 0006322 0006652 0007243 0001000 01001 01001 01001 01101 00779 01149 18110004 (30002_WN) 30 0 0 % 0095040 0100000 0108880 0008076 0008498 0009253 0008562 0009009 0009809 0001000 01001 01001 01001 00985 00829 01130 18110005 (35002_WN) 35 0 0 % 0095040 0100000 0108880 0010692 0011250 0012250 0011277 0011865 0012919 0001000 01001 01001 01001 00897 00886 01096 18110006 (40002_WN) 40 0 0 % 0095040 0100000 0108880 0013820 0014541 0015833 0014512 0015269 0016625 0001000 01000 01000 01000 00830 00955 01055 18110007 (45002_WN) 45 0 0 % 0095040 0100000 0108880 0017505 0018418 0020054 0018313 0019269 0020980 0001000 01000 01000 01000 00775 00999 01010 18110008 (50002_WN) 50 0 0 % 0095040 0100000 0108880 0021792 0022929 0024966 0022727 0023913 0026036 0001000 01000 01000 01000 00731 00940 00965 18110009 (55002_WN) 55 0 0 % 0095040 0100000 0108880 0026728 0028123 0030620 0027798 0029249 0031846 0001000 01000 01000 01000 00694 00873 00920 18110010 (60002_WN) 60 0 0 % 0095040 0100000 0108880 0032358 0034047 0037070 0033572 0035324 0038461 0001000 01000 01000 01000 00662 00817 00878 18110011 (65002_WN) 65 0 0 % 0095040 0100000 0108880 0038728 0040749 0044367 0040096 0042188 0045934 0001000 01000 01000 01000 00636 00769 00838 18110012 (70002_WN) 70 0 0 % 0095040 0100000 0108880 0045883 0048278 0052565 0047413 0049888 0054318 0001000 01000 01000 01000 00612 00726 00800 18110013 (75002_WN) 75 0 0 % 0095040 0100000 0108880 0053869 0056681 0061714 0055571 0058472 0063664 0001000 01000 01000 01000 00592 00688 00765 18110014 (80002_WN) 80 0 0 % 0095040 0100000 0108880 0062733 0066007 0071868 0064615 0067988 0074025 0001000 01000 01000 01000 00574 00654 00732 18110015 (85002_WN) 85 0 0 % 0095040 0100000 0108880 0072518 0076303 0083079 0074591 0078484 0085453 0001000 01000 01000 01000 00558 00623 00702 18110016 (90002_WN) 90 0 0 % ] def %END IXYZ1 /IXYZ2 357 array def %min 21x17 /IXYZ2 [%BEG IXYZ2 %UE990-7T.TXT; output of ..-7R.PS with MACPS2PDF -> PS2ACII ON ME17GL 141121: ..-7R.log -> .TXT %%XS YS ZS X0 Y0 Z0 X1 Y1 Z1 DV dE*ab dE*CH dE*94 dE*CM dE*00 dE*85 no. Code L* a* b* % %CIEXYZ*1000 data for all colours (a), iim=309, Color difference data for \Delta E*C00=\Delta E*CIEDE2000=1 % 0095040 0100000 0108880 0001070 0001126 0001226 0001275 0001341 0001460 0001000 01554 01554 01554 03042 00981 01338 19110000 (10009_WN) 10 0 0 % 0095040 0100000 0108880 0001813 0001908 0002078 0002089 0002198 0002393 0001000 01489 01489 01489 02914 00987 01501 19110001 (15009_WN) 15 0 0 % 0095040 0100000 0108880 0002840 0002989 0003254 0003191 0003357 0003655 0001000 01420 01420 01420 02137 00990 01562 19110002 (20009_WN) 20 0 0 % 0095040 0100000 0108880 0004196 0004415 0004807 0004625 0004866 0005298 0001000 01349 01349 01349 01703 00993 01541 19110003 (25002_WN) 25 0 0 % 0095040 0100000 0108880 0005926 0006235 0006789 0006434 0006770 0007371 0001000 01277 01277 01277 01404 00995 01465 19110004 (30002_WN) 30 0 0 % 0095040 0100000 0108880 0008076 0008498 0009253 0008662 0009114 0009923 0001000 01202 01202 01202 01183 00997 01357 19110005 (35002_WN) 35 0 0 % 0095040 0100000 0108880 0010692 0011250 0012250 0011351 0011943 0013004 0001000 01126 01126 01126 01010 00998 01233 19110006 (40002_WN) 40 0 0 % 0095040 0100000 0108880 0013820 0014541 0015833 0014544 0015303 0016662 0001000 01046 01046 01046 00868 00999 01103 19110007 (45002_WN) 45 0 0 % 0095040 0100000 0108880 0017505 0018418 0020054 0018313 0019269 0020980 0001000 01000 01000 01000 00775 00999 01010 19110008 (50002_WN) 50 0 0 % 0095040 0100000 0108880 0021792 0022929 0024966 0022786 0023975 0026104 0001000 01063 01063 01063 00777 00998 01025 19110009 (55002_WN) 55 0 0 % 0095040 0100000 0108880 0026728 0028123 0030620 0027952 0029411 0032023 0001000 01142 01142 01142 00793 00997 01051 19110010 (60002_WN) 60 0 0 % 0095040 0100000 0108880 0032358 0034047 0037070 0033843 0035609 0038771 0001000 01220 01220 01220 00808 00995 01070 19110011 (65002_WN) 65 0 0 % 0095040 0100000 0108880 0038728 0040749 0044367 0040506 0042620 0046404 0001000 01296 01296 01296 00824 00994 01084 19110012 (70002_WN) 70 0 0 % 0095040 0100000 0108880 0045883 0048278 0052565 0047989 0050493 0054977 0001000 01371 01371 01371 00839 00993 01095 19110013 (75002_WN) 75 0 0 % 0095040 0100000 0108880 0053869 0056681 0061714 0056341 0059281 0064545 0001000 01446 01446 01446 00856 00993 01104 19110014 (80002_WN) 80 0 0 % 0095040 0100000 0108880 0062733 0066007 0071868 0065609 0069033 0075163 0001000 01520 01520 01520 00873 00992 01111 19110015 (85002_WN) 85 0 0 % 0095040 0100000 0108880 0072518 0076303 0083079 0075842 0079800 0086886 0001000 01594 01594 01594 00890 00991 01116 19110016 (90002_WN) 90 0 0 % ] def %END IXYZ2 %%EndProlog gsave /lanind 1 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showea {1 lanind le {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 1 def /lanind2 1 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 3 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1 xchart 0 eq {/Txx (-) def /Fxx (-) def} if %always independent of intended output 5 /Times-ISOL1 FS /cvishow {cvi 6 string cvs show} def %75 85 moveto %lanind cvishow (-) show %colorm cvishow %deintp cvishow %xcolor cvishow %xchart cvishow %pchart cvishow %colsep cvishow (-L) show pmetam cvishow gsave %XCHA01.PS END %0 1 4 {/xchart exch def %xchart=0,4 gsave 5 /Times-ISOL1 FS 175 85 moveto (UE780-7N) show %xchart 0 eq {(R) show} % {deintp colorm 2 mul add cvishow} ifelse 72 90 translate 0.01 MM dup scale 30 setlinewidth 20 setlinewidth 0 0 25000 17100 0.0 0.0 0.0 0.0 colrecfi %area white grey 0 0 25000 17100 0.0 0.0 0.0 1.0 colrecst %Rahmen Schwarz /xchartl xchart def 0 1 15 {/xchartl exch def %xchartl=0,15 gsave xchartl 0 eq { 100 13000 translate} if xchartl 1 eq { 6100 13000 translate} if xchartl 2 eq { 100 08750 translate} if xchartl 3 eq { 6100 08750 translate} if xchartl 4 eq { 100 4500 translate} if xchartl 5 eq { 6100 4500 translate} if xchartl 6 eq { 100 0250 translate} if xchartl 7 eq { 6100 0250 translate} if xchartl 8 eq {13500 13000 translate} if xchartl 9 eq {19500 13000 translate} if xchartl 10 eq {13500 08750 translate} if xchartl 11 eq {19500 08750 translate} if xchartl 12 eq {13500 4500 translate} if xchartl 13 eq {19500 4500 translate} if xchartl 14 eq {13500 0250 translate} if xchartl 15 eq {19500 0250 translate} if 150 /Times-ISOL1 FS 0 setgray 300 -150 moveto xchartl 7 le {(UE780-) show} {(UE781-) show} ifelse xchartl 0 ge xchartl 7 le and {xchartl 1 add cvishow} if xchartl 8 ge xchartl 15 le and {xchartl 7 sub cvishow} if (A) show %A (_) show xchart 1 add cvishow /xwidth 5400 def /ywidth 4000 def 0.0 0.0 0.0 0.5 setcmykcolor 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath fill 0 setlinewidth 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath clip 20 setlinewidth 0 0 xwidth ywidth 0.0 0.0 0.0 1.0 colrecst %frame black /ishowz {0 -50 rmoveto TBK (z) show 0 50 rmoveto TBM} def /ishowg {0 -50 rmoveto TBK (g) show 0 50 rmoveto TBM} def /ishoww {0 -50 rmoveto TBK (w) show 0 50 rmoveto TBM} def /ishowp {0 -50 rmoveto TBK (p) show 0 50 rmoveto TBM} def /ishown {0 -50 rmoveto TBK (n) show 0 50 rmoveto TBM} def /ishowu {0 -50 rmoveto TBK (u) show 0 50 rmoveto TBM} def /ishownu {0 -50 rmoveto TBK (nu) show 0 50 rmoveto TBM} def /ILLX 16 def /ILLP ILLX 1 add def /ILLM ILLX 1 sub def /ILLA ILLX 2 idiv def %A=Average /JLLX 02 def /rgbJLL 4 array def /rgbJLL [{1 1 0 setrgbcolor} {0 1 0 setrgbcolor} {0 0 1 setrgbcolor} {1 1 1 setrgbcolor}] def /rgbJLL4 5 array def /rgbJLL4 [{1 1 1 setrgbcolor} {1 1 0 setrgbcolor} {0 0 1 setrgbcolor} {1 0 0 setrgbcolor} {0 1 0 setrgbcolor}] def 20 setlinewidth 050 3725 moveto TBIM tfw xchartl 00 eq xchartl 08 eq or {%xchartl=00,08 TBM (log ) show SM (D) show 20 0 rmoveto TBIM (Y ) show TBM (CIE tristimulus value) showen (CIE\255Normfarbwert\255) showde /xt0 1050 def /xt1 1050 def /yt0 3475 def /ytd 250 def xt0 yt0 0 ytd mul sub moveto TBM (difference) showen %(threshold) showen TBM (Differenz) showde %(schwelle) showde xt0 yt0 1 ytd mul sub moveto TBM (adaptation time) showen (Darbietungszeit) showde TBIM ( t) show ishowp TBM (>=25s) show } if %xchartl=00,08 xchartl 01 eq xchartl 09 eq or {%xchartl=01,09 TBM (log \050) show TBIM (Y/) show SM (D) show TBIM (Y\051 ) show TBM (CIE tristimulus value) showen (CIE\255Normfarbwert\255) showde /xt0 1450 def /xt1 1450 def /yt0 3475 def /ytd 250 def xt0 yt0 0 ytd mul sub moveto TBM (contrast sensitivity) showen %( threshold) showen TBM (Kontrast\255Empfindlichkeit) showde %(sschwelle) showde xt0 yt0 1 ytd mul sub moveto TBM (adaptation time) showen (Darbietungszeit) showde TBIM ( t) show ishowp TBM (>=25s) show } if %xchartl=1 xchartl 02 eq xchartl 10 eq or {%xchartl=02,10 TBM (log \050) show SM (D) show TBIM (Y/Y\051 ) show TBM (CIE tristimulus value) showen (CIE\255Normfarbwert) showde /xt0 1450 def /xt1 1450 def /yt0 3475 def /ytd 250 def xt0 yt0 0 ytd mul sub moveto TBM (relative difference) showen %( threshold) showen TBM (relative Differenz) showde %(schwelle) showde xt0 yt0 1 ytd mul sub moveto TBM (adaptation time) showen (Darbietungszeit) showde TBIM ( t) show ishowp TBM (>=25s) show } if %xchartl=02,10 xchartl 03 eq xchartl 11 eq or {%xchartl=03,11 TBIM (\050Y/) show SM (D) show TBIM (Y\051 ) show TBM (CIE tristimulus value) showen (CIE\255Normfarbwert) showde /xt0 1000 def /xt1 1000 def /yt0 3475 def /ytd 250 def xt0 yt0 0 ytd mul sub moveto TBM (contrast sensitivity) showen %( threshold) showen TBM (Kontrast\255Empfindlichkeit) showde %(s\255Schwelle) showde xt0 yt0 1 ytd mul sub moveto TBM (adaptation time) showen (Darbietungszeit) showde TBIM ( t) show ishowp TBM (>=25s) show } if %xchartl=03,11 xchartl 04 eq xchartl 12 eq or {%xchartl=04,12 TBM (\050) show TBIM (L*/L*) show ishowu TBM (\051 ) show (CIELAB ligthness) showen (CIELAB Helligkeit) showde /xt0 1250 def /xt1 1250 def /yt0 3475 def /ytd 250 def xt0 yt0 0 ytd mul sub moveto TBM (relative normalized data) showen (relative normierte Daten) showde xt0 yt0 1 ytd mul sub moveto TBM (adaptation time) showen (Darbietungszeit) showde TBIM ( t) show ishowp TBM (>=25s) show } if %xchartl=04,12 xchartl 05 eq xchartl 13 eq or {%xchartl=05,13 TBM (log \050) show TBIM (L*/L*) show ishowu TBM (\051 ) show (CIELAB ligthness) showen (CIELAB Helligkeit) showde /xt0 1650 def /xt1 1650 def /yt0 3475 def /ytd 250 def xt0 yt0 0 ytd mul sub moveto TBM (relative normalized data) showen (relative normierte Daten) showde xt0 yt0 1 ytd mul sub moveto TBM (adaptation time) showen (Darbietungszeit) showde TBIM ( t) show ishowp TBM (>=25s) show } if %xchartl=05,13 xchartl 06 eq xchartl 14 eq or {%xchartl=6,14 TBM (log [\050) show TBIM (Y/) show SM (D) show TBIM (Y) show (\051 / \050) show TBIM (Y) show ishowu TBM (/) show SM (D) show TBIM (Y) show ishowu TBM (\051] ) show (CIE tristimulus) showen (CIE\255Normfarbwert) showde /xt0 1000 def /xt1 1000 def /yt0 3475 def /ytd 250 def xt0 yt0 0 ytd mul sub moveto (value, relative sensitivity) showen (relative Empfindlichkeit) showde xt0 yt0 1 ytd mul sub moveto TBM (adaptation time) showen (Darbietungszeit) showde TBIM ( t) show ishowp TBM (>=25s) show } if %xchartl=6,14 xchartl 07 eq xchartl 15 eq or {%xchartl=07,15 TBM (log [\050) show SM (D) show TBIM (Y) show TBM (/) show TBIM (Y) show ishowu TBM (\051 / \050) show SM (D) show TBIM (Y) show TBM (/) show TBIM (Y) show ishowu TBM (\051] ) show (CIE tristimulus) showen (CIE\255Normfarbwert) showde /xt0 1000 def /xt1 1000 def /yt0 3475 def /ytd 250 def xt0 yt0 0 ytd mul sub moveto (value, relative contrast) showen (relativer Kontrast) showde xt0 yt0 1 ytd mul sub moveto TBM (adaptation time) showen (Darbietungszeit) showde TBIM ( t) show ishowp TBM (>=25s) show } if %xchartl=07,15 TBK xchartl 04 ne xchartl 05 ne and xchartl 12 ne and xchartl 13 ne and {%xchart#4,5 and 12,13 xt1 yt0 2.2 ytd mul sub moveto rgbJLL4 xchart get exec xchart 0 eq {(Exper. AV, Achromatic) show} if xchart 1 eq {(Exper. AV, Yellow) show} if xchart 2 eq {(Exper. AV, Blue) show} if xchart 3 eq {(Exper. AV, Red) show} if xchart 4 eq {(Exper. AV, Green) show} if xt1 yt0 3.1 ytd mul sub moveto rgbJLL 2 get exec (CIEDE2000) show } if %xchart#4,5 and 12,13 xt1 yt0 4.0 ytd mul sub moveto rgbJLL 1 get exec (CIELAB) show tfw 550 400 translate 50 setlinewidth 0 0 moveto 4500 0 rlineto stroke 0 0 moveto 0 3000 rlineto stroke 30 setlinewidth [100] 0 setdash /YYL 0.001 def /YFL 0.000001 def /Y000 51 array def /Y100 51 array def /YD00 51 array def %NW:0_31;32, NY:33_65;32, NB:66_87;22, NR:88_109;22, NG:110_131;22 %NW:0_17;18, NY:33_46;14, NB:66_71;06, NR:88_095;08, NG:110_119;10 for Y0>=1 xchart 0 eq {/i1 000 def /i2 016 def} if %W xchart 1 eq {/i1 033 def /i2 049 def} if %Y xchart 2 eq {/i1 066 def /i2 082 def} if %B xchart 3 eq {/i1 088 def /i2 104 def} if %R xchart 4 eq {/i1 110 def /i2 126 def} if %G 0 1 20 {/j exch def %j=0,20 0 1 16 {/i exch def %i=0,16 /i210 i 21 mul def /i211 i1 21 mul i210 add def IXYZ0 i210 j add IXYZX i211 j add get put } for %i=0,16 } for %j=0,20 0 1 02 {/j exch def %j=0,02 delta_Y for formulas: CUI, CIELAB, CIEDE2000 0 1 16 {/i exch def %i=0,16 /k j 17 mul i add def /i21 i 21 mul def Y000 k j 0 eq {IXYZ0} if j 1 eq {IXYZ1} if j 2 eq {IXYZ2} if i21 4 add get 0.001 mul put Y100 k j 0 eq {IXYZ0} if j 1 eq {IXYZ1} if j 2 eq {IXYZ2} if i21 7 add get 0.001 mul put YD00 k Y000 k get Y100 k get sub abs put } for %i=0,16 } for %j=0,02 /eshowM1 {-00 100 rmoveto TBL (-1) show 0 -100 rmoveto} bind def /eshow0 {-00 100 rmoveto TBL (0) show 0 -100 rmoveto} bind def /eshow1 {-00 100 rmoveto TBL (1) show 0 -100 rmoveto} bind def /eshow2 {-00 100 rmoveto TBL (2) show 0 -100 rmoveto} bind def /eshow3 {-00 100 rmoveto TBL (3) show 0 -100 rmoveto} bind def /eshow4 {-00 100 rmoveto TBL (4) show 0 -100 rmoveto} bind def /eshow5 {-00 100 rmoveto TBL (5) show 0 -100 rmoveto} bind def /x0 4000 def /x1 4350 def /y0 2200 def /y1 2100 def /yd 300 def x0 y0 350 add moveto (L) TBIM tfw show ishowu TBM (=) show rgbJLL 2 get exec (L) TBIM show ishowg tfw x0 y0 moveto TBK ([cd/m) show eshow2 TBK (]) show [ ] 0 setdash x0 y0 0700 sub moveto rgbJLL 2 get exec (Y) TBIK show ishowu TBK (=18) show tfw x0 y0 1050 sub moveto rgbJLL 2 get exec (L*) TBIK show -100 -30 rmoveto ishowu 0 30 rmoveto TBK (=50) show tfw 50 setlinewidth 1 setgray %W x1 y1 yd 1 mul sub moveto TBK (60) show %eshow1 rgbJLL 2 get exec %B x0 y0 yd 1 mul sub moveto 300 0 rlineto stroke [100 ] 0 setdash rgbJLL 3 get exec %W x0 y0 yd 1 mul sub moveto 300 0 rlineto stroke tfw [ ] 0 setdash 50 setlinewidth 3870 150 moveto (x) TBIM tfw show 20 0 rmoveto (=) TBM tfw show 20 0 rmoveto (log) TBM tfw show 30 0 rmoveto TBIM (Y) show 2250 xchartl 7 ge {100 add} if 150 moveto rgbJLL 2 get exec (u) TBIM show 20 0 rmoveto (=) TBM show 20 0 rmoveto (log) TBM show 30 0 rmoveto TBIM (Y) show 00 -60 rmoveto TBK (u) show 0 60 rmoveto tfw /cvishow {cvi 10 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 7 string cvs show} def /DELTL0 32 array def /DELTL1 32 array def /DELTL2 32 array def /DELTL3 32 array def /DELTL4 32 array def /XGRAPH 500 array def /YGRAPH 500 array def TK %Scale: 1 log = 500 units /Fx0x 500 def /Fy0x 500 def /XDAT0 51 array def /XDAT1 51 array def /XDAT2 51 array def /XDAT3 51 array def /XDAT4 51 array def /XDAT5 51 array def /XDAT6 51 array def /XDAT7 51 array def %********************************************************************* /ALOG_DL {%BEG ALOG_DL, xchartl=0,08 xchartl 7 le {/Fx Fx0x def /Fy Fy0x def /Flog -3 def} {/Fx Fx0x 2 mul def /Fy Fy0x 2 mul def /Flog -1.5 def} ifelse 0 1 JLLX {/JLL exch def %JLL=0,JLLX rgbJLL JLL get exec JLL 0 eq {%JLL=0 rgbJLL4 xchart get exec } if %JLL=0 newpath 0 1 ILLX {/ILL exch def %ILL=0,ILLX /ILLY ILL JLL ILLP mul add def XGRAPH ILL Y000 ILLY get log put DELTL0 ILL YD00 ILLY get abs log put DELTL0 ILL get 4.3 gt {DELTL0 ILL 4.3 put} if DELTL0 ILL get -3 le {DELTL0 ILL -3 put} if XDAT0 ILLY XGRAPH ILL get put XDAT1 ILLY Y000 ILLY get put XDAT2 ILLY YD00 ILLY get put XDAT3 ILLY YD00 ILLY get put XDAT4 ILLY YD00 ILLY get abs log put YGRAPH ILL DELTL0 ILL get put XGRAPH ILL get Fx mul YGRAPH ILL get Fy mul JLL 0 eq {%JLL=0,>0 40 0 360 arc fill }%JLL=0 {%JLL>0 ILL 0 eq {moveto} if ILL 01 ge ILL ILLM le and {lineto} if ILL ILLX eq {lineto stroke} if } ifelse %JLL>0 } for %ILL=0,ILLX } for %JLL=0,JLLX %vertical lines of surround 0 1 1 {/i exch def %i=0,1 i 0 eq {[ ] 0 setdash} if i 1 eq {[100] 0 setdash rgbJLL 3 get exec} if XGRAPH ILLA get Fx mul YGRAPH ILLA get Fy mul moveto XGRAPH ILLA get Fx mul Flog Fy mul lineto stroke } for %i=0,1 } def %END ALOG_DL, xchartl=0,08 %********************************************************************* /ALOG_L_DL {%BEG ALOG_L_DL, xchartl=1,09 xchartl 7 le {/Fx Fx0x def /Fy Fy0x def /Flog -1 def} {/Fx Fx0x 2 mul def /Fy Fy0x 2 mul def /Flog -0.5 def} ifelse 0 1 JLLX {/JLL exch def %JLL=0,JLLX rgbJLL JLL get exec JLL 0 eq {%JLL=0 rgbJLL4 xchart get exec } if %JLL=0 newpath 0 1 ILLX {/ILL exch def %ILL=0,ILLX /ILLY ILL JLL ILLP mul add def XGRAPH ILL Y000 ILLY get log put DELTL0 ILL Y000 ILLY get YD00 ILLY get div log put DELTL0 ILL get 6.3 gt {DELTL0 ILL 6.3 put} if DELTL0 ILL get -1 le {DELTL0 ILL -1 put} if YGRAPH ILL DELTL0 ILL get put XDAT0 ILLY XGRAPH ILL get put XDAT1 ILLY Y000 ILLY get put XDAT2 ILLY YD00 ILLY get put XDAT3 ILLY Y000 ILLY get YD00 ILLY get div put XDAT4 ILLY Y000 ILLY get YD00 ILLY get div log put XGRAPH ILL get Fx mul YGRAPH ILL get Fy mul JLL 0 eq {%JLL=0,>0 40 0 360 arc fill }%JLL=0 {%JLL>0 ILL 0 eq {moveto} if ILL 01 ge ILL ILLM le and {lineto} if ILL ILLX eq {lineto stroke} if } ifelse %JLL>0 } for %ILL=0,ILLX } for %JLL=0,JLLX %vertical lines of surround 0 1 1 {/i exch def %i=0,1 i 0 eq {[ ] 0 setdash} if i 1 eq {[100] 0 setdash rgbJLL 3 get exec} if XGRAPH ILLA get Fx mul YGRAPH ILLA get Fy mul moveto XGRAPH ILLA get Fx mul Flog Fy mul lineto stroke } for %i=0,1 } def %END ALOG_L_DL, xchartl=1,09 %********************************************************************* /ALOG_DL_L {%BEG ALOG_DL_L, xchartl=2,10 xchartl 7 le {/Fx Fx0x def /Fy Fy0x def /Flog -4 def} {/Fx Fx0x 2 mul def /Fy Fy0x 2 mul def /Flog -2 def} ifelse 0 1 JLLX {/JLL exch def %JLL=0,JLLX rgbJLL JLL get exec JLL 0 eq {%JLL=0 rgbJLL4 xchart get exec } if %JLL=0 newpath 0 1 ILLX {/ILL exch def %ILL=0,ILLX /ILLY ILL JLL ILLP mul add def XGRAPH ILL Y000 ILLY get log put DELTL0 ILL YD00 ILLY get Y000 ILLY get div log put DELTL0 ILL get -3 le {DELTL0 ILL -3 put} if YGRAPH ILL DELTL0 ILL get put XDAT0 ILLY XGRAPH ILL get put XDAT1 ILLY Y000 ILLY get put XDAT2 ILLY YD00 ILLY get put XDAT3 ILLY YD00 ILLY get Y000 ILLY get div put XDAT4 ILLY YD00 ILLY get Y000 ILLY get div log put XGRAPH ILL get Fx mul YGRAPH ILL get Fy mul JLL 0 eq {%JLL=0,>0 40 0 360 arc fill }%JLL=0 {%JLL>0 ILL 0 eq {moveto} if ILL 01 ge ILL ILLM le and {lineto} if ILL ILLX eq {lineto stroke} if } ifelse %JLL>0 } for %ILL=0,ILLX } for %JLL=0,JLLX %vertical lines of surround 0 1 1 {/i exch def %i=0,1 i 0 eq {[ ] 0 setdash} if i 1 eq {[100] 0 setdash rgbJLL 3 get exec} if XGRAPH ILLA get Fx mul YGRAPH ILLA get Fy mul moveto XGRAPH ILLA get Fx mul Flog Fy mul lineto stroke } for %i=0,1 } def %END ALOG_DL_L, xchartl=2,10 %************************************************************* /ALIN_L_DL {%BEG ALLIN_L_DL, xchartl=3,11 /Fx03 500 def /Fy03 050 def xchartl 7 le {/Fx Fx03 def /Fy Fy03 def /Flin 0 def} {/Fx Fx03 2 mul def /Fy Fy03 1 mul def /Flin 0 def} ifelse 0 1 JLLX {/JLL exch def %JLL=0,JLLX rgbJLL JLL get exec JLL 0 eq {%JLL=0 rgbJLL4 xchart get exec } if %JLL=0 newpath 0 1 ILLX {/ILL exch def %ILL=0,ILLX /ILLY ILL JLL ILLP mul add def XGRAPH ILL Y000 ILLY get log put DELTL0 ILL Y000 ILLY get YD00 ILLY get div put DELTL0 ILL get 60 ge {DELTL0 ILL 60 put} if XDAT0 ILLY XGRAPH ILL get put XDAT1 ILLY Y000 ILLY get put XDAT2 ILLY YD00 ILLY get put XDAT3 ILLY Y000 ILLY get YD00 ILLY get div put XDAT4 ILLY Y000 ILLY get YD00 ILLY get div abs log put YGRAPH ILL DELTL0 ILL get put XGRAPH ILL get Fx mul YGRAPH ILL get Fy mul JLL 0 eq {%JLL=0,>0 40 0 360 arc fill }%JLL=0 {%JLL>0 ILL 0 eq {moveto} if ILL 01 ge ILL ILLM le and {lineto} if ILL ILLX eq {lineto stroke} if } ifelse %JLL>0 } for %ILL=0,ILLX } for %JLL=0,JLLX %vertical lines of surround 0 1 1 {/i exch def %i=0,1 i 0 eq {[ ] 0 setdash} if i 1 eq {[100] 0 setdash rgbJLL 3 get exec} if XGRAPH ILLA get Fx mul YGRAPH ILLA get Fy mul moveto XGRAPH ILLA get Fx mul Flin Fy mul lineto stroke } for %i=0,1 } def %END ALIN_L_DL, xchartl=3,11 %********************************************************************* /ALIN_T* {%BEG ALIN_T*, xchart=4,12 /Fx04 500. def /Fy04 25. def xchartl 7 le {/Fx Fx04 def /Fy Fy04 def /Flin 0 def} {/Fx Fx04 2 mul def /Fy Fy04 1 mul def /Flin 0 def} ifelse 1 1 1 {/JLL exch def %JLL=1,JLLX %only CIELAB rgbJLL JLL get exec JLL 0 eq {%JLL=0 rgbJLL4 xchart get exec } if %JLL=0 newpath 0 1 ILLX {/ILL exch def %ILL=0,ILLX /ILLY ILL JLL ILLP mul add def XGRAPH ILL Y000 ILLY get log put DELTL0 ILL Y000 ILLY get 100. div 0.3333 exp 116. mul 16. sub put DELTL0 ILL get 0 le {DELTL0 ILL FYY put} if XDAT0 ILLY XGRAPH ILL get put XDAT1 ILLY Y000 ILLY get put XDAT2 ILLY YD00 ILLY get put XDAT3 ILLY Y000 ILLY get 100. div 0.3333 exp 116. mul 16. sub put XDAT4 ILLY Y000 ILLY get 100. div 0.3333 exp 116. mul 16. sub log put YGRAPH ILL DELTL0 ILL get put XGRAPH ILL get Fx mul YGRAPH ILL get Fy mul JLL 0 eq {%JLL=0,>0 40 0 360 arc fill }%JLL=0 {%JLL>0 ILL 0 eq {moveto} if ILL 01 ge ILL ILLM le and {lineto} if ILL ILLX eq {lineto stroke} if } ifelse %JLL>0 } for %ILL=0,ILLX } for %JLL=0,JLLX %vertical lines of surround 0 1 1 {/i exch def %i=0,1 i 0 eq {[ ] 0 setdash} if i 1 eq {[100] 0 setdash rgbJLL 3 get exec} if XGRAPH ILLA get Fx mul YGRAPH ILLA get Fy mul moveto XGRAPH ILLA get Fx mul Flin Fy mul lineto stroke } for %i=0,1 } def %END ALIN_T*, xchartl=4,12 %********************************************************************* /ALOG_T* {%BEG ALOG_T*, xchartl=5,13 /Fx05 500. def /Fy05 Fy0x def xchartl 7 le {/Fx Fx0x def /Fy Fy0x def /Flog -3 def} {/Fx Fx0x 2 mul def /Fy Fy0x 2 mul def /Flog -1.5 def} ifelse 1 1 1 {/JLL exch def %JLL=0,JLLX %JLL=1,JLLX %only CIELAB rgbJLL JLL get exec JLL 0 eq {%JLL=0 rgbJLL4 xchart get exec } if %JLL=0 newpath 0 1 ILLX {/ILL exch def %ILL=0,ILLX /ILLY ILL JLL ILLP mul add def XGRAPH ILL Y000 ILLY get log put DELTL0 ILL Y000 ILLY get 100. div 0.3333 exp 116. mul 16. sub 50 div log put DELTL0 ILL get -2 le {DELTL0 ILL -2 put} if XDAT0 ILLY XGRAPH ILL get put XDAT1 ILLY Y000 ILLY get put XDAT2 ILLY YD00 ILLY get put XDAT3 ILLY Y000 ILLY get 100. div 0.3333 exp 116. mul 16. sub 50 div put XDAT4 ILLY Y000 ILLY get 100. div 0.3333 exp 116. mul 16. sub 50 div log put YGRAPH ILL DELTL0 ILL get put XGRAPH ILL get Fx mul YGRAPH ILL get Fy mul JLL 0 eq {%JLL=0,>0 40 0 360 arc fill }%JLL=0 {%JLL>0 ILL 0 eq {moveto} if ILL 01 ge ILL ILLM le and {lineto} if ILL ILLX eq {lineto stroke} if } ifelse %JLL>0 } for %ILL=0,ILLX } for %JLL=0,JLLX %vertical lines of surround 0 1 1 {/i exch def %i=0,1 i 0 eq {[ ] 0 setdash} if i 1 eq {[100] 0 setdash rgbJLL 3 get exec} if XGRAPH ILLA get Fx mul YGRAPH ILLA get Fy mul moveto XGRAPH ILLA get Fx mul Flog Fy mul lineto stroke } for %i=0,1 } def %END ALOG_T*, xchartl=5,13 %********************************************************************* /ALOG_L_DLn {%BEG ALOG_L_DLn, xchartl=6,14 xchartl 7 le {/Fx Fx0x def /Fy Fy0x def /Flog -3 def} {/Fx Fx0x 2 mul def /Fy Fy0x 2 mul def /Flog -1.5 def} ifelse 0 1 JLLX {/JLL exch def %JLL=0,JLLX rgbJLL JLL get exec JLL 0 eq {%JLL=0 rgbJLL4 xchart get exec } if %JLL=0 newpath /ILLU ILLA JLL 17 mul add def 0 1 ILLX {/ILL exch def %ILL=0,ILLX /ILLY ILL JLL ILLP mul add def XGRAPH ILL Y000 ILLY get log put /DELTLx Y000 ILLY get YD00 ILLY get div def /DELTLu Y000 ILLU get YD00 ILLU get div def XDAT0 ILLY XGRAPH ILL get put XDAT1 ILLY Y000 ILLY get put XDAT2 ILLY YD00 ILLY get put XDAT3 ILLY DELTLx put XDAT4 ILLY DELTLx DELTLu div abs put DELTL0 ILL DELTLx DELTLu YFL add div abs log put YGRAPH ILL DELTL0 ILL get put XGRAPH ILL get Fx mul YGRAPH ILL get Fy mul JLL 0 eq {%JLL=0,>0 40 0 360 arc fill }%JLL=0 {%JLL>0 ILL 0 eq {moveto} if ILL 01 ge ILL ILLM le and {lineto} if ILL ILLX eq {lineto stroke} if } ifelse %JLL>0 } for %ILL=0,ILLX } for %JLL=0,JLLX %vertical lines of surround 0 1 1 {/i exch def %i=0,1 i 0 eq {[ ] 0 setdash} if i 1 eq {[100] 0 setdash rgbJLL 3 get exec} if XGRAPH ILLA get Fx mul YGRAPH ILLA get Fy mul moveto XGRAPH ILLA get Fx mul Flog Fy mul lineto stroke } for %i=0,1 } def %END ALOG_L_DLn, xchartl=6,14 %********************************************************************* /ALOG_DL_Ln {%BEG ALOG_DL_Ln, xchartl=7,15 xchartl 7 le {/Fx Fx0x def /Fy Fy0x def /Flog -3 def} {/Fx Fx0x 2 mul def /Fy Fy0x 2 mul def /Flog -1.5 def} ifelse 0 1 JLLX {/JLL exch def %JLL=0,JLLX rgbJLL JLL get exec JLL 0 eq {%JLL=0 rgbJLL4 xchart get exec } if %JLL=0 newpath /ILLU ILLA JLL 17 mul add def 0 1 ILLX {/ILL exch def %ILL=0,ILLX /ILLY ILL JLL ILLP mul add def XGRAPH ILL Y000 ILLY get log put /DELTLx YD00 ILLY get Y000 ILLY get div def /DELTLu YD00 ILLU get Y000 ILLU get div def DELTL0 ILL DELTLx DELTLu YFL add div abs log put DELTL0 ILL get -3 le {DELTL0 ILL -3 put} if XDAT0 ILLY XGRAPH ILL get put XDAT1 ILLY Y000 ILLY get put XDAT2 ILLY YD00 ILLY get put XDAT3 ILLY DELTLx put XDAT4 ILLY DELTLu DELTLx div abs put YGRAPH ILL DELTL0 ILL get put XGRAPH ILL get Fx mul YGRAPH ILL get Fy mul JLL 0 eq {%JLL=0,>0 40 0 360 arc fill }%JLL=0 {%JLL>0 ILL 0 eq {moveto} if ILL 01 ge ILL ILLM le and {lineto} if ILL ILLX eq {lineto stroke} if } ifelse %JLL>0 } for %ILL=0,ILLX } for %JLL=0,JLLX %vertical lines of surround 0 1 1 {/i exch def %i=0,1 i 0 eq {[ ] 0 setdash} if i 1 eq {[100] 0 setdash rgbJLL 3 get exec} if XGRAPH ILLA get Fx mul YGRAPH ILLA get Fy mul moveto XGRAPH ILLA get Fx mul Flog Fy mul lineto stroke } for %i=0,1 } def %END ALOG_DL_Ln, xchartl=7,15 TBK %!x-axis: 1/2 log-unit = 500 scale units, similar for many figures /tx0x [(-3) (-2) (-1) ( 0) ( 1) ( 2) ( 3) ( 4) ( 5)] def /tx1x [(-1) ( ) ( 0) ( ) ( 1) ( ) ( 2) ( ) ( 3)] def 0 1 8 {/i exch def /ixt { -180 i 0500 mul add} def /ixl { 000 i 0500 mul add} def ixt -350 moveto xchartl 7 le {tx0x i get exec show} {tx1x i get exec show} ifelse ixl 75 moveto 0 -150 rlineto stroke } for xchartl 0 eq {%xchartl=0 ALOG_DL /ty00 [(-3) (-2) (-1) ( 0) ( 1) ( 2) ( 3) ( 4) ( 5)] def %!y-Achse: 1 log-Einheiten = 500 scale units 0 1 6 {/i exch def /iyt {-100 i 0500 mul add} def /iyl { 000 i 0500 mul add} def -450 iyt moveto xchartl 0 eq {ty00 i get exec show} if -75 iyl moveto 150 0 rlineto stroke } for [100 ] 0 setdash 1000 0000 moveto 2000 2000 rlineto stroke 3000 0050 add 2000 100 sub moveto TBIK (m) show TBK (=1) show 1000 0000 moveto 2000 1322 rlineto stroke 3000 0050 add 1322 100 sub moveto TBIK (m) show TBK (=2/3) show [ ] 0 setdash 1500 1500 translate %new cero point at xr=0 ALOG_DL -1500 -1500 translate %new cero point at xr=0 } if %xchartl=0 ALOG_DL xchartl 1 eq {%xchartl=1 ALOG_L_DL %!y-axis: 1 log-unit = 500 scale units, different for most figures /ty01 [(-1) ( 0) ( 1) ( 2) ( 3) ( 4) ( 5) ( ) ( )] def 0 1 6 {/i exch def /iyt {-100 i 0500 mul add} def /iyl { 000 i 0500 mul add} def -450 iyt moveto xchartl 1 eq {ty01 i get exec show} if -75 iyl moveto 150 0 rlineto stroke } for [100 ] 0 setdash 0000 0500 moveto 3000 0 rlineto stroke 3000 0050 add 0500 moveto TBIK (m) show TBK (=0) show 0000 0000 moveto 3000 1000 rlineto stroke 3000 0050 add 1000 100 sub moveto TBIK (m) show TBK (=1/3) show [ ] 0 setdash 1500 0500 translate %new cero point at xr=0 ALOG_L_DL -0500 -0500 translate %new cero point at xr=0 } if %xchartl=1 ALOG_L_DL xchartl 2 eq {%xchartl=2 ALOG_DL_L %!y-axis: 1 log-unit = 500 scale units, different for most figures /ty02 [(-4) (-3) (-2) (-1) ( 0) ( 1) ( 2) ( 3) ( 4) ( 5)] def 0 1 6 {/i exch def /iyt {-100 i 0500 mul add} def /iyl { 000 i 0500 mul add} def -450 iyt moveto xchartl 2 eq {ty02 i get exec show} if -75 iyl moveto 150 0 rlineto stroke } for [100 ] 0 setdash 0000 2000 moveto 3000 0 rlineto stroke 3000 0050 add 2000 moveto TBIK (m) show TBK (=0) show 0000 2000 moveto 3000 -1000 rlineto stroke 3000 0050 add 1000 100 sub moveto TBIK (m) show TBK (=-1/3) show [ ] 0 setdash 1500 2000 translate %new cero point at xr=0 ALOG_DL_L -1500 -2000 translate %new cero point at xr=0 } if %xchartl=2 ALOG_DL_L xchartl 3 eq {%xchartl=3 ALIN_L_DL %!y-axis: 1 log-unit = 500 scale units, different for most figures /ty03 [( 0) (10) (20) (30) (40) (50) (60) (70)] def 0 1 6 {/i exch def /iyt {-100 i 0500 mul add} def /iyl { 000 i 0500 mul add} def -450 iyt moveto xchartl 3 eq {ty03 i get exec show} if -75 iyl moveto 150 0 rlineto stroke } for %[100 ] 0 setdash % 0000 1250 moveto 3000 0 rlineto stroke % 3000 0050 add 1250 0050 sub moveto TBIM (m) show TBM (=0) show %[ ] 0 setdash 1500 000 translate %new cero point at xr=0 ALIN_L_DL -1500 -000 translate %new cero point at xr=0 } if %xchartl=3 ALIN_L_DL xchartl 4 eq {%xchartl=4 ALIN_T* %!y-axis: 1 log-unit = 40 scale units, different for most figures /ty04 [( 0) (20) (40) (60) (80) (100) (120) (140)] def 0 1 6 {/i exch def /iyt {-100 i 0500 mul add} def /iyl { 000 i 0500 mul add} def -450 iyt moveto xchartl 4 eq {ty04 i get exec show} if -75 iyl moveto 150 0 rlineto stroke } for [100 ] 0 setdash 0000 1250 moveto 3000 0 rlineto stroke 3000 0050 add 1250 0050 sub moveto TBIK (m) show TBK (=0) show [ ] 0 setdash 1500 000 translate %new cero point at xr=0 ALIN_T* -1500 -000 translate %new cero point at xr=0 } if %xchartl=4 ALIN_T* xchartl 5 eq {%xchartl=5 ALOG_T* %!y-axis: 1 log-unit = 50 scale units, different for most figures /ty05 [(-,6) (-,4) (-,2) ( 0) (0,2) (0,4) (0,6) (0,8)] def 0 1 6 {/i exch def /iyt {-100 i 0500 mul add} def /iyl { 000 i 0500 mul add} def -450 iyt moveto xchartl 5 eq {ty05 i get exec show} if -75 iyl moveto 150 0 rlineto stroke } for [100 ] 0 setdash 0000 1500 moveto 3000 0 rlineto stroke 3000 0050 add 1500 0050 sub moveto TBIK (m) show TBK (=0) show 0000 1000 moveto 3000 1000 rlineto stroke 3000 0050 add 2000 0050 sub moveto TBIK (m) show TBK (=1/3) show [ ] 0 setdash 1500 1500 translate %new cero point at xr=0 ALOG_T* -1500 -1500 translate %new cero point at xr=0 } if %xchartl=5 ALOG_T* xchartl 6 eq {%xchartl=6 ALOG_L_DLn %!y-axis: 1 log-unit = 500 scale units, different for most figures /ty06 [(-3) (-2) (-1) ( 0) ( 1) ( 2) ( 3)] def 0 1 6 {/i exch def /iyt {-100 i 0500 mul add} def /iyl { 000 i 0500 mul add} def -450 iyt moveto xchartl 6 eq {ty06 i get exec show} if -75 iyl moveto 150 0 rlineto stroke } for [100 ] 0 setdash 0000 1500 moveto 3000 0 rlineto stroke 3000 0050 add 1500 moveto TBIK (m) show TBK (=0) show 0000 0000 moveto 3000 1000 rlineto stroke 3000 0050 add 1000 100 sub moveto TBIK (m) show TBK (=1/3) show [ ] 0 setdash 1500 1500 translate %new cero point at xr=0 ALOG_L_DLn -1500 -1500 translate %new cero point at xr=0 } if %xchartl=6 ALOG_L_DLn xchartl 7 eq {%xchartl=7 ALOG_DL_Ln %!y-axis: 1 log-unit = 500 scale units, different for most figures /ty07 [(-3) (-2) (-1) ( 0) ( 1) ( 2) ( 3)] def 0 1 6 {/i exch def /iyt {-100 i 0500 mul add} def /iyl { 000 i 0500 mul add} def -450 iyt moveto xchartl 7 eq {ty07 i get exec show} if -75 iyl moveto 150 0 rlineto stroke } for [100 ] 0 setdash 0000 1500 moveto 3000 0 rlineto stroke 3000 0050 add 1500 0050 sub moveto TBIK (m) show TBK (=0) show 0000 1500 moveto 3000 -1000 rlineto stroke 3000 0050 add 0500 0050 sub moveto TBIK (m) show TBK (=-1/3) show [ ] 0 setdash 1500 1500 translate %new cero point at xr=0 ALOG_DL_Ln -1500 -1500 translate %new cero point at xr=0 } if %xchartl=7 ALOG_DL_Ln xchartl 8 eq {%xchartl=8 ALOG_DL %!y-axis: 1 log-unit = 500 scale units, different for most figures /ty8 [ ( ) (-1) ( ) ( 0) ( ) ( 1) ( ) ( 2) ( )] def 0 1 6 {/i exch def /iyt {-100 i 0500 mul add} def /iyl { 000 i 0500 mul add} def -450 iyt moveto xchartl 08 eq {ty8 i get exec show} if -75 iyl moveto 150 0 rlineto stroke } for [100 ] 0 setdash 1000 0000 moveto 2000 2000 rlineto stroke 3000 0050 add 2000 100 sub moveto TBIK (m) show TBK (=1) show 1000 0000 moveto 2000 1322 rlineto stroke 3000 0050 add 1322 100 sub moveto TBIK (m) show TBK (=2/3) show [ ] 0 setdash 1000 1500 translate %new cero point at xr=0 ALOG_DL -1000 -1500 translate %new cero point at xr=0 } if %xchartl=8 ALOG_DL xchartl 9 eq {%xchartl=9 ALOG_L_DL %!y-axis: 1 log-unit = 500 scale units, different for most figures /ty09 [ ( ) ( 0) ( ) ( 1) ( ) ( 2) ( ) ( 3) ( )] def 0 1 6 {/i exch def /iyt {-100 i 0500 mul add} def /iyl { 000 i 0500 mul add} def -450 iyt moveto xchartl 09 eq {ty09 i get exec show} if -75 iyl moveto 150 0 rlineto stroke } for [100 ] 0 setdash 0000 0500 moveto 3000 0 rlineto stroke 3000 0050 add 0500 moveto TBIK (m) show TBK (=0) show 0000 0000 moveto 3000 1000 rlineto stroke 3000 0050 add 1000 100 sub moveto TBIK (m) show TBK (=1/3) show [ ] 0 setdash 1000 0500 translate %new cero point at xr=0 ALOG_L_DL -1000 -0500 translate %new cero point at xr=0 } if %xchartl=9 ALOG_L_DL xchartl 10 eq {%xchartl=10 ALOG_DL_L %!y-axis: 1 log-unit = 500 scale units, different for most figures /ty10 [(-2) ( ) (-1) ( ) ( 0) ( ) ( 1) ( ) ( 2)] def 0 1 6 {/i exch def /iyt {-100 i 0500 mul add} def /iyl { 000 i 0500 mul add} def -450 iyt moveto xchartl 10 eq {ty10 i get exec show} if -75 iyl moveto 150 0 rlineto stroke } for [100 ] 0 setdash 0000 2000 moveto 3000 0 rlineto stroke 3000 0050 add 2000 moveto TBIK (m) show TBK (=0) show 0000 2000 moveto 3000 -1000 rlineto stroke 3000 0050 add 1000 100 sub moveto TBIK (m) show TBK (=-1/3) show [ ] 0 setdash 1000 2000 translate %new cero point at xr=0 ALOG_DL_L -1000 -2000 translate %new cero point at xr=0 } if %xchartl=10 ALOG_DL_L xchartl 11 eq {%xchartl=11 ALIN_L_DL %!y-axis: 1 log-unit = 500 scale units, different for most figures /ty11 [( 0) (10) (20) (30) (40) (50) (60) (70)] def 0 1 6 {/i exch def /iyt {-100 i 0500 mul add} def /iyl { 000 i 0500 mul add} def -450 iyt moveto xchartl 11 eq {ty11 i get exec show} if -75 iyl moveto 150 0 rlineto stroke } for %[100 ] 0 setdash % 0000 0000 moveto 3000 0 rlineto stroke % 3000 0000 moveto TBIM (m) show TBM (=0) show %[ ] 0 setdash 1000 000 translate %new cero point at xr=0 ALIN_L_DL -1000 -000 translate %new cero point at xr=0 } if %xchartl=11 ALIN_L_DL xchartl 12 eq {%xchartl=12 ALIN_T* %!y-axis: 1 log-unit = 500 scale units, different for most figures /ty12 [( 0) (20) (40) (60) (80) (100) (120) (140)] def 0 1 6 {/i exch def /iyt {-100 i 0500 mul add} def /iyl { 000 i 0500 mul add} def -450 iyt moveto xchartl 12 eq {ty12 i get exec show} if -75 iyl moveto 150 0 rlineto stroke } for [100 ] 0 setdash 0000 1250 moveto 3000 0 rlineto stroke 3000 0050 add 1250 0050 sub moveto TBIK (m) show TBK (=0) show [ ] 0 setdash 1000 000 translate %new cero point at xr=0 ALIN_T* -1000 -000 translate %new cero point at xr=0 } if %xchartl=12 ALIN_T* xchartl 13 eq {%xchartl=13 ALOG_T* %!y-axis: 1 log-unit = 500 scale units, different for most figures /ty13 [(-,6) (-,4) (-,2) ( 0) (0,2) (0,4) (0,6) (0,8)] def 0 1 6 {/i exch def /iyt {-100 i 0500 mul add} def /iyl { 000 i 0500 mul add} def -450 iyt moveto xchartl 13 eq {ty13 i get exec show} if -75 iyl moveto 150 0 rlineto stroke } for [100 ] 0 setdash 0000 1500 moveto 3000 0 rlineto stroke 3000 0050 add 1500 0050 sub moveto TBIK (m) show TBK (=0) show 0000 1000 moveto 3000 1000 rlineto stroke 3000 0050 add 2000 0050 sub moveto TBIK (m) show TBK (=1/3) show [ ] 0 setdash 1000 1500 translate %new cero point at xr=0 ALOG_T* -1000 -1500 translate %new cero point at xr=0 } if %xchartl=13 ALOG_T* xchartl 14 eq {%xchartl=14 ALOG_L_DLn %!y-axis: 1 log-unit = 500 scale units, different for most figures /ty14 [( ) (-1) ( ) ( 0) ( ) ( 1) ( )] def 0 1 6 {/i exch def /iyt {-100 i 0500 mul add} def /iyl { 000 i 0500 mul add} def -450 iyt moveto xchartl 14 eq {ty14 i get exec show} if -75 iyl moveto 150 0 rlineto stroke } for [100 ] 0 setdash 0000 1500 moveto 3000 0 rlineto stroke 3000 0050 add 1500 moveto TBIK (m) show TBK (=0) show 0000 0000 moveto 3000 1000 rlineto stroke 3000 0050 add 1000 100 sub moveto TBIK (m) show TBK (=1/3) show [ ] 0 setdash 1000 1500 translate %new cero point at xr=0 ALOG_L_DLn -1000 -1500 translate %new cero point at xr=0 } if %xchartl=14 ALOG_L_DLn xchartl 15 eq {%xchartl=15 ALOG_DL_Ln %!y-axis: 1 log-unit = 500 scale units, different for most figures /ty15 [( ) (-1) ( ) ( 0) ( ) ( 1) ( ) ] def 0 1 6 {/i exch def /iyt {-100 i 0500 mul add} def /iyl { 000 i 0500 mul add} def -450 iyt moveto xchartl 15 eq {ty15 i get exec show} if -75 iyl moveto 150 0 rlineto stroke } for [100 ] 0 setdash 0000 1500 moveto 3000 0 rlineto stroke 3000 0050 add 1500 0050 sub moveto TBIK (m) show TBK (=0) show 0000 1500 moveto 3000 -1000 rlineto stroke 3000 0050 add 0500 0050 sub moveto TBIK (m) show TBK (=-1/3) show [ ] 0 setdash 1000 1500 translate %new cero point at xr=0 ALOG_DL_Ln -1000 -1500 translate %new cero point at xr=0 } if %xchartl=15 ALOG_DL_Ln /iout 0 def iout 1 eq {%iout=1 TS 000 2700 moveto xchartl 0 eq {(ALOG_DL) show} if xchartl 1 eq {(ALOG_DL_L) show} if xchartl 2 eq {(ALOG_L_DL) show} if xchartl 3 eq {(ALIN_L_DL) show} if xchartl 4 eq {(ALIN_T*) show} if xchartl 5 eq {(ALOG_T*) show} if xchartl 6 eq {(ALOG_DL_Ln) show} if xchartl 7 eq {(ALOG_L_DLn) show} if xchartl 08 eq {(ALOG_DL) show} if xchartl 09 eq {(ALOG_DL_L) show} if xchartl 10 eq {(ALOG_L_DL) show} if xchartl 11 eq {(ALIN_L_DL) show} if xchartl 12 eq {(ALIN_T*) show} if xchartl 13 eq {(ALOG_T*) show} if xchartl 14 eq {(ALOG_DL_Ln) show} if xchartl 15 eq {(ALOG_L_DLn) show} if /ILL1 17 def /ILL2 32 def ILL1 1 ILL2 {/ILL exch def %for example 17..32 /ILX ILL ILL1 sub def %allways 0..16 0500 2500 ILX 140 mul sub moveto ILL cvishow 1000 2500 ILX 140 mul sub moveto XDAT0 ILL get cvsshow2 1600 2500 ILX 140 mul sub moveto XDAT1 ILL get cvsshow3 2200 2500 ILX 140 mul sub moveto XDAT2 ILL get cvsshow3 2800 2500 ILX 140 mul sub moveto XDAT3 ILL get cvsshow3 3400 2500 ILX 140 mul sub moveto XDAT4 ILL get cvsshow3 ILLX 8 eq {(*) show} if } for } if %iout=1 550 neg 400 neg translate %special space for 'xm03'PROZ0.COM 2x before/after xchartl xchartl 0 eq { 100 neg 13000 neg translate} if xchartl 1 eq { 6100 neg 13000 neg translate} if xchartl 2 eq { 100 neg 08750 neg translate} if xchartl 3 eq { 6100 neg 08750 neg translate} if xchartl 4 eq { 100 neg 4500 neg translate} if xchartl 5 eq { 6100 neg 4500 neg translate} if xchartl 6 eq { 100 neg 0250 neg translate} if xchartl 7 eq { 6100 neg 0250 neg translate} if xchartl 8 eq {13500 neg 13000 neg translate} if xchartl 9 eq {19500 neg 13000 neg translate} if xchartl 10 eq {13500 neg 08750 neg translate} if xchartl 11 eq {19500 neg 08750 neg translate} if xchartl 12 eq {13500 neg 4500 neg translate} if xchartl 13 eq {19500 neg 4500 neg translate} if xchartl 14 eq {13500 neg 0250 neg translate} if xchartl 15 eq {19500 neg 0250 neg translate} if grestore } for %xchartl=0,15 showpage grestore %} for %xchart=0,4 %%Trailer