%!PS-Adobe-3.0 EPSF-3.0 http://130.149.60.445/~farbmetrik/JE39/JE39L00XX 20100101 %%BoundingBox: 14 08 828 584 /pdfmark where {pop} {userdict /pdfmark /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/JE39/) /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:2010010112000) /ModDate (D:2010010112000) /DOCINFO pdfmark [ /View [ /FitB ] /DOCVIEW pdfmark /ColSpxG 0 def /ColSpx ColSpxG def /DEintp 1 def /rgb_cmy 0 def /CFilenameS1g %START output of step S1g %**************************************************************************** %BEG JK0X->JE39/OUTLIN11_sRGB_00_95_D65_A3_JK0X.DAT, FP, Interpolat. 20100101 %**************************************************************************** %Early Binding: needed for colour separation /sgcmykcolor {setcmykcolor} bind def /sggray {setgray} bind def /sgrgbcolor {setrgbcolor} bind def %FILE PREPARED FOR MIXED MODE, e. g. input ORS18 and output TLS00 %/IMES 0 def %0=LAB* used, no reflection factor necessary /IMES 1 def /Yre 2.52 def %1=XYZ measurement and standard device reflection %/i*ptrsc 0 def %LAB* setcolor to cmy0* / 000n* setcmykcolor /i*ptrsc 1 def %LAB* setcolor to olv* setrgbcolor / w* setgray %/i*ptrsc 2 def %LAB* setcolor to cmy0* / nnn0* setcmykcolor %/i*ptrsc 3 def %LAB* setcolor to olv* / www* setrgbcolor %/i*ptrsc 4 def %LAB* setcolor to lab* setcolor %/i*ptrsc 5 def %LAB* setcolor to LAB* setcolor %/i*ptrsc 6 def %LAB* setcolor to 000n* setcmykcolor %/i*ptrsc 7 def %LAB* setcolor to w* setgray /ISIN*ioG 0 def %default input for Offset Reflective System (ORS18/FRS09) /ISOU*ioG 0 def %default output dto. %/ISIN*ioG 1 def %input for Television Luminous System (TLS00) %/ISOU*ioG 1 def %output dto. %/ISIN*ioG 2 def %input for Device Reflective measurement system (FRS09) %/ISOU*ioG 2 def %output dto. %/ISIN*ioG 3 def %input for Television Luminous Reflection System (TLS18) %/ISOU*ioG 3 def %output dto. %/ISIN*ioG 4 def %input for Natural Luminous System (NLS00) %/ISOU*ioG 4 def %output dto. %/ISIN*ioG 5 def %input for Natural Reflective System (NRS11) %/ISOU*ioG 5 def %output dto. %/ISIN*ioG 6 def %input for Standard Reflective System (CIE18) %/ISOU*ioG 6 def %output dto. %/ISIN*ioG 7 def %input for Standard Reflective System (TLS70) %/ISOU*ioG 7 def %output dto. /iLAB 0 def /ISIO*ioG 0 def /ISRL*ioG 0 def /auszg 8 def /ausz 8 def %line 36*************************************************************** %line 38*************************************************************** %********************************************************************* %BEG -- LUT Code ---Look-up-Table for FP-file of Standard System ORS18/FRS09 /nR 9 def %LUT size /nG 9 def /nB 9 def /nges nR nG nB mul mul def /lut0 10800 array def %1080x3=3240 %lines to be included of start output for D65, not adapted, lines 51:1196 /lut0 [ %Definition LUT-Table %line 0 or 50 %JE260-7AA.TXT la3_line 6871 %JE260-7A, Page 37 /66, LAB*la3; cf1=1.00; nt=0.18; nx=1.0; sRGB_00_95, adapted %LAB*la3, D65, adapted, Y = 2.52 , L* = 18.01 001800 000000 000000 0000 0000 0000 1000 1000 1000 0000 %0000 A01 001840 000270 -00670 0000 0000 0125 1000 1000 0875 0000 %0001 A02 001937 000872 -01876 0000 0000 0250 1000 1000 0750 0000 %0002 A03 002098 001732 -03274 0000 0000 0375 1000 1000 0625 0000 %0003 A04 002316 002711 -04663 0000 0000 0500 1000 1000 0500 0000 %0004 A05 002581 003711 -05982 0000 0000 0625 1000 1000 0375 0000 %0005 A06 002881 004683 -07224 0000 0000 0750 1000 1000 0250 0000 %0006 A07 003205 005611 -08396 0000 0000 0875 1000 1000 0125 0000 %0007 A08 003546 006492 -09509 0000 0000 1000 1000 1000 0000 0000 %0008 A09 002159 -00693 000514 0000 0125 0000 1000 0875 1000 0000 %0009 B01 002191 -00437 -00146 0000 0125 0125 1000 0875 0875 0000 %0010 B02 002272 000143 -01356 0000 0125 0250 1000 0875 0750 0000 %0011 B03 002407 000997 -02779 0000 0125 0375 1000 0875 0625 0000 %0012 B04 002596 001999 -04209 0000 0125 0500 1000 0875 0500 0000 %0013 B05 002829 003045 -05576 0000 0125 0625 1000 0875 0375 0000 %0014 B06 003099 004075 -06864 0000 0125 0750 1000 0875 0250 0000 %0015 B07 003397 005063 -08079 0000 0125 0875 1000 0875 0125 0000 %0016 B08 003714 006001 -09230 0000 0125 1000 1000 0875 0000 0000 %0017 B09 002851 -01852 001461 0000 0250 0000 1000 0750 1000 0000 %0018 C01 002874 -01634 000831 0000 0250 0125 1000 0750 0875 0000 %0019 C02 002933 -01120 -00356 0000 0250 0250 1000 0750 0750 0000 %0020 C03 003033 -00328 -01797 0000 0250 0375 1000 0750 0625 0000 %0021 C04 003176 000651 -03278 0000 0250 0500 1000 0750 0500 0000 %0022 C05 003359 001722 -04714 0000 0250 0625 1000 0750 0375 0000 %0023 C06 003578 002815 -06079 0000 0250 0750 1000 0750 0250 0000 %0024 C07 003827 003886 -07370 0000 0250 0875 1000 0750 0125 0000 %0025 C08 004100 004917 -08592 0000 0250 1000 1000 0750 0000 0000 %0026 C09 003722 -03072 002565 0000 0375 0000 1000 0625 1000 0000 %0027 D01 003739 -02898 001992 0000 0375 0125 1000 0625 0875 0000 %0028 D02 003780 -02478 000866 0000 0375 0250 1000 0625 0750 0000 %0029 D03 003852 -01801 -00554 0000 0375 0375 1000 0625 0625 0000 %0030 D04 003956 -00918 -02055 0000 0375 0500 1000 0625 0500 0000 %0031 D05 004094 000100 -03540 0000 0375 0625 1000 0625 0375 0000 %0032 D06 004262 001188 -04972 0000 0375 0750 1000 0625 0250 0000 %0033 D07 004459 002296 -06338 0000 0375 0875 1000 0625 0125 0000 %0034 D08 004681 003392 -07639 0000 0375 1000 1000 0625 0000 0000 %0035 D09 004657 -04195 003655 0000 0500 0000 1000 0500 1000 0000 %0036 E01 004669 -04059 003150 0000 0500 0125 1000 0500 0875 0000 %0037 E02 004699 -03726 002115 0000 0500 0250 1000 0500 0750 0000 %0038 E03 004751 -03171 000754 0000 0500 0375 1000 0500 0625 0000 %0039 E04 004829 -02416 -00730 0000 0500 0500 1000 0500 0500 0000 %0040 E05 004932 -01505 -02231 0000 0500 0625 1000 0500 0375 0000 %0041 E06 005062 -00488 -03701 0000 0500 0750 1000 0500 0250 0000 %0042 E07 005216 000586 -05121 0000 0500 0875 1000 0500 0125 0000 %0043 E08 005393 001686 -06483 0000 0500 1000 1000 0500 0000 0000 %0044 E09 005606 -05219 004681 0000 0625 0000 1000 0375 1000 0000 %0045 F01 005615 -05112 004244 0000 0625 0125 1000 0375 0875 0000 %0046 F02 005637 -04846 003313 0000 0625 0250 1000 0375 0750 0000 %0047 F03 005677 -04394 002035 0000 0625 0375 1000 0375 0625 0000 %0048 F04 005736 -03762 000597 0000 0625 0500 1000 0375 0500 0000 %0049 F05 005816 -02974 -00890 0000 0625 0625 1000 0375 0375 0000 %0050 F06 005917 -02062 -02371 0000 0625 0750 1000 0375 0250 0000 %0051 F07 006039 -01065 -03819 0000 0625 0875 1000 0375 0125 0000 %0052 F08 006181 -00013 -05221 0000 0625 1000 1000 0375 0000 0000 %0053 F09 006550 -06165 005639 0000 0750 0000 1000 0250 1000 0000 %0054 G01 006557 -06079 005263 0000 0750 0125 1000 0250 0875 0000 %0055 G02 006574 -05865 004435 0000 0750 0250 1000 0250 0750 0000 %0056 G03 006606 -05494 003255 0000 0750 0375 1000 0250 0625 0000 %0057 G04 006653 -04966 001883 0000 0750 0500 1000 0250 0500 0000 %0058 G05 006716 -04291 000431 0000 0750 0625 1000 0250 0375 0000 %0059 G06 006797 -03491 -01038 0000 0750 0750 1000 0250 0250 0000 %0060 G07 006895 -02590 -02493 0000 0750 0875 1000 0250 0125 0000 %0061 G08 007010 -01616 -03917 0000 0750 1000 1000 0250 0000 0000 %0062 G09 007482 -07055 006540 0000 0875 0000 1000 0125 1000 0000 %0063 H01 007488 -06985 006216 0000 0875 0125 1000 0125 0875 0000 %0064 H02 007502 -06808 005484 0000 0875 0250 1000 0125 0750 0000 %0065 H03 007527 -06501 004404 0000 0875 0375 1000 0125 0625 0000 %0066 H04 007565 -06056 003110 0000 0875 0500 1000 0125 0500 0000 %0067 H05 007617 -05479 001708 0000 0875 0625 1000 0125 0375 0000 %0068 H06 007682 -04781 000266 0000 0875 0750 1000 0125 0250 0000 %0069 H07 007763 -03978 -01179 0000 0875 0875 1000 0125 0125 0000 %0070 H08 007858 -03092 -02607 0000 0875 1000 1000 0125 0000 0000 %0071 H09 008400 -07902 007394 0000 1000 0000 1000 0000 1000 0000 %0072 I01 008405 -07844 007114 0000 1000 0125 1000 0000 0875 0000 %0073 I02 008417 -07696 006467 0000 1000 0250 1000 0000 0750 0000 %0074 I03 008437 -07437 005484 0000 1000 0375 1000 0000 0625 0000 %0075 I04 008469 -07060 004273 0000 1000 0500 1000 0000 0500 0000 %0076 I05 008512 -06563 002932 0000 1000 0625 1000 0000 0375 0000 %0077 I06 008566 -05954 001529 0000 1000 0750 1000 0000 0250 0000 %0078 I07 008633 -05243 000105 0000 1000 0875 1000 0000 0125 0000 %0079 I08 008713 -04444 -01314 0000 1000 1000 1000 0000 0000 0000 %0080 I09 001915 000480 000180 0125 0000 0000 0875 1000 1000 0000 %0081 J01 001952 000710 -00491 0125 0000 0125 0875 1000 0875 0000 %0082 J02 002043 001233 -01703 0125 0000 0250 0875 1000 0750 0000 %0083 J03 002195 002000 -03113 0125 0000 0375 0875 1000 0625 0000 %0084 J04 002404 002900 -04517 0125 0000 0500 0875 1000 0500 0000 %0085 J05 002658 003843 -05853 0125 0000 0625 0875 1000 0375 0000 %0086 J06 002948 004776 -07111 0125 0000 0750 0875 1000 0250 0000 %0087 J07 003264 005677 -08297 0125 0000 0875 0875 1000 0125 0000 %0088 J08 003597 006541 -09422 0125 0000 1000 0875 1000 0000 0000 %0089 J09 002253 -00222 000660 0125 0125 0000 0875 0875 1000 0000 %0090 K01 002284 000000 000000 0125 0125 0125 0875 0875 0875 0000 %0091 K02 002361 000513 -01211 0125 0125 0250 0875 0875 0750 0000 %0092 K03 002491 001284 -02642 0125 0125 0375 0875 0875 0625 0000 %0093 K04 002672 002209 -04082 0125 0125 0500 0875 0875 0500 0000 %0094 K05 002898 003196 -05461 0125 0125 0625 0875 0875 0375 0000 %0095 K06 003160 004183 -06761 0125 0125 0750 0875 0875 0250 0000 %0096 K07 003451 005141 -07987 0125 0125 0875 0875 0875 0125 0000 %0097 K08 003762 006059 -09149 0125 0125 1000 0875 0875 0000 0000 %0098 K09 002919 -01432 001563 0125 0250 0000 0875 0750 1000 0000 %0099 L01 002942 -01234 000935 0125 0250 0125 0875 0750 0875 0000 %0100 L02 002998 -00766 -00251 0125 0250 0250 0875 0750 0750 0000 %0101 L03 003096 -00036 -01695 0125 0250 0375 0875 0750 0625 0000 %0102 L04 003235 000880 -03180 0125 0250 0500 0875 0750 0500 0000 %0103 L05 003414 001897 -04622 0125 0250 0625 0875 0750 0375 0000 %0104 L06 003629 002946 -05994 0125 0250 0750 0875 0750 0250 0000 %0105 L07 003873 003985 -07292 0125 0250 0875 0875 0750 0125 0000 %0106 L08 004141 004992 -08522 0125 0250 1000 0875 0750 0000 0000 %0107 L09 003770 -02728 002634 0125 0375 0000 0875 0625 1000 0000 %0108 M01 003786 -02565 002063 0125 0375 0125 0875 0625 0875 0000 %0109 M02 003827 -02172 000938 0125 0375 0250 0875 0625 0750 0000 %0110 M03 003897 -01533 -00481 0125 0375 0375 0875 0625 0625 0000 %0111 M04 004000 -00694 -01984 0125 0375 0500 0875 0625 0500 0000 %0112 M05 004135 000282 -03472 0125 0375 0625 0875 0625 0375 0000 %0113 M06 004302 001333 -04907 0125 0375 0750 0875 0625 0250 0000 %0114 M07 004496 002411 -06277 0125 0375 0875 0875 0625 0125 0000 %0115 M08 004715 003482 -07581 0125 0375 1000 0875 0625 0000 0000 %0116 M09 004691 -03922 003703 0125 0500 0000 0875 0500 1000 0000 %0117 N01 004703 -03793 003200 0125 0500 0125 0875 0500 0875 0000 %0118 N02 004733 -03474 002167 0125 0500 0250 0875 0500 0750 0000 %0119 N03 004785 -02941 000806 0125 0500 0375 0875 0500 0625 0000 %0120 N04 004862 -02213 -00677 0125 0500 0500 0875 0500 0500 0000 %0121 N05 004964 -01331 -02179 0125 0500 0625 0875 0500 0375 0000 %0122 N06 005092 -00343 -03651 0125 0500 0750 0875 0500 0250 0000 %0123 N07 005245 000707 -05072 0125 0500 0875 0875 0500 0125 0000 %0124 N08 005420 001784 -06437 0125 0500 1000 0875 0500 0000 0000 %0125 N09 005632 -05002 004716 0125 0625 0000 0875 0375 1000 0000 %0126 O01 005641 -04898 004280 0125 0625 0125 0875 0375 0875 0000 %0127 O02 005663 -04640 003350 0125 0625 0250 0875 0375 0750 0000 %0128 O03 005703 -04202 002075 0125 0625 0375 0875 0375 0625 0000 %0129 O04 005762 -03587 000637 0125 0625 0500 0875 0375 0500 0000 %0130 O05 005841 -02817 -00850 0125 0625 0625 0875 0375 0375 0000 %0131 O06 005941 -01926 -02332 0125 0625 0750 0875 0375 0250 0000 %0132 O07 006062 -00947 -03780 0125 0625 0875 0875 0375 0125 0000 %0133 O08 006204 000086 -05184 0125 0625 1000 0875 0375 0000 0000 %0134 O09 006570 -05990 005666 0125 0750 0000 0875 0250 1000 0000 %0135 P01 006577 -05906 005291 0125 0750 0125 0875 0250 0875 0000 %0136 P02 006595 -05696 004464 0125 0750 0250 0875 0250 0750 0000 %0137 P03 006626 -05334 003285 0125 0750 0375 0875 0250 0625 0000 %0138 P04 006673 -04816 001914 0125 0750 0500 0875 0250 0500 0000 %0139 P05 006736 -04154 000462 0125 0750 0625 0875 0250 0375 0000 %0140 P06 006816 -03367 -01007 0125 0750 0750 0875 0250 0250 0000 %0141 P07 006913 -02480 -02463 0125 0750 0875 0875 0250 0125 0000 %0142 P08 007028 -01519 -03887 0125 0750 1000 0875 0250 0000 0000 %0143 P09 007499 -06911 006561 0125 0875 0000 0875 0125 1000 0000 %0144 Q01 007504 -06842 006238 0125 0875 0125 0875 0125 0875 0000 %0145 Q02 007518 -06668 005507 0125 0875 0250 0875 0125 0750 0000 %0146 Q03 007544 -06366 004428 0125 0875 0375 0875 0125 0625 0000 %0147 Q04 007581 -05928 003134 0125 0875 0500 0875 0125 0500 0000 %0148 Q05 007633 -05359 001733 0125 0875 0625 0875 0125 0375 0000 %0149 Q06 007698 -04670 000291 0125 0875 0750 0875 0125 0250 0000 %0150 Q07 007778 -03878 -01154 0125 0875 0875 0875 0125 0125 0000 %0151 Q08 007873 -03001 -02583 0125 0875 1000 0875 0125 0000 0000 %0152 Q09 008414 -07782 007411 0125 1000 0000 0875 0000 1000 0000 %0153 R01 008418 -07724 007132 0125 1000 0125 0875 0000 0875 0000 %0154 R02 008430 -07578 006485 0125 1000 0250 0875 0000 0750 0000 %0155 R03 008451 -07322 005503 0125 1000 0375 0875 0000 0625 0000 %0156 R04 008482 -06949 004293 0125 1000 0500 0875 0000 0500 0000 %0157 R05 008525 -06458 002953 0125 1000 0625 0875 0000 0375 0000 %0158 R06 008579 -05856 001549 0125 1000 0750 0875 0000 0250 0000 %0159 R07 008646 -05152 000125 0125 1000 0875 0875 0000 0125 0000 %0160 R08 008726 -04361 -01294 0125 1000 1000 0875 0000 0000 0000 %0161 R09 002176 001399 000588 0250 0000 0000 0750 1000 1000 0000 %0162 S01 002208 001568 -00082 0250 0000 0125 0750 1000 0875 0000 %0163 S02 002288 001962 -01303 0250 0000 0250 0750 1000 0750 0000 %0164 S03 002423 002571 -02736 0250 0000 0375 0750 1000 0625 0000 %0165 S04 002610 003323 -04173 0250 0000 0500 0750 1000 0500 0000 %0166 S05 002842 004149 -05545 0250 0000 0625 0750 1000 0375 0000 %0167 S06 003110 004997 -06838 0250 0000 0750 0750 1000 0250 0000 %0168 S07 003407 005839 -08056 0250 0000 0875 0750 1000 0125 0000 %0169 S08 003723 006662 -09210 0250 0000 1000 0750 1000 0000 0000 %0170 S09 002474 000714 001001 0250 0125 0000 0750 0875 1000 0000 %0171 T01 002502 000882 000342 0250 0125 0125 0750 0875 0875 0000 %0172 T02 002571 001280 -00871 0250 0125 0250 0750 0875 0750 0000 %0173 T03 002689 001901 -02316 0250 0125 0375 0750 0875 0625 0000 %0174 T04 002854 002680 -03779 0250 0125 0500 0750 0875 0500 0000 %0175 T05 003064 003545 -05184 0250 0125 0625 0750 0875 0375 0000 %0176 T06 003309 004440 -06511 0250 0125 0750 0750 0875 0250 0000 %0177 T07 003584 005332 -07764 0250 0125 0875 0750 0875 0125 0000 %0178 T08 003880 006202 -08949 0250 0125 1000 0750 0875 0000 0000 %0179 T09 003083 -00541 001808 0250 0250 0000 0750 0750 1000 0000 %0180 U01 003104 -00381 001184 0250 0250 0125 0750 0750 0875 0000 %0181 U02 003157 000000 000000 0250 0250 0250 0750 0750 0750 0000 %0182 U03 003248 000611 -01447 0250 0250 0375 0750 0750 0625 0000 %0183 U04 003380 001401 -02943 0250 0250 0500 0750 0750 0500 0000 %0184 U05 003549 002303 -04399 0250 0250 0625 0750 0750 0375 0000 %0185 U06 003753 003257 -05787 0250 0250 0750 0750 0750 0250 0000 %0186 U07 003987 004223 -07102 0250 0250 0875 0750 0750 0125 0000 %0187 U08 004245 005175 -08348 0250 0250 1000 0750 0750 0000 0000 %0188 U09 003888 -01955 002804 0250 0375 0000 0750 0625 1000 0000 %0189 V01 003903 -01816 002236 0250 0375 0125 0750 0625 0875 0000 %0190 V02 003942 -01476 001117 0250 0375 0250 0750 0625 0750 0000 %0191 V03 004010 -00918 -00301 0250 0375 0375 0750 0625 0625 0000 %0192 V04 004109 -00171 -01807 0250 0375 0500 0750 0625 0500 0000 %0193 V05 004239 000712 -03301 0250 0375 0625 0750 0625 0375 0000 %0194 V06 004400 001681 -04744 0250 0375 0750 0750 0625 0250 0000 %0195 V07 004588 002688 -06123 0250 0375 0875 0750 0625 0125 0000 %0196 V08 004801 003702 -07437 0250 0375 1000 0750 0625 0000 0000 %0197 V09 004778 -03284 003824 0250 0500 0000 0750 0500 1000 0000 %0198 W01 004790 -03168 003323 0250 0500 0125 0750 0500 0875 0000 %0199 W02 004818 -02880 002295 0250 0500 0250 0750 0500 0750 0000 %0200 W03 004869 -02397 000937 0250 0500 0375 0750 0500 0625 0000 %0201 W04 004944 -01731 -00546 0250 0500 0500 0750 0500 0500 0000 %0202 W05 005044 -00915 -02050 0250 0500 0625 0750 0500 0375 0000 %0203 W06 005169 000008 -03525 0250 0500 0750 0750 0500 0250 0000 %0204 W07 005318 001001 -04951 0250 0500 0875 0750 0500 0125 0000 %0205 W08 005490 002027 -06320 0250 0500 1000 0750 0500 0000 0000 %0206 W09 005698 -04481 004805 0250 0625 0000 0750 0375 1000 0000 %0207 X01 005706 -04385 004371 0250 0625 0125 0750 0375 0875 0000 %0208 X02 005728 -04146 003445 0250 0625 0250 0750 0375 0750 0000 %0209 X03 005767 -03737 002173 0250 0625 0375 0750 0375 0625 0000 %0210 X04 005825 -03161 000736 0250 0625 0500 0750 0375 0500 0000 %0211 X05 005903 -02436 -00751 0250 0625 0625 0750 0375 0375 0000 %0212 X06 006002 -01591 -02233 0250 0625 0750 0750 0375 0250 0000 %0213 X07 006121 -00657 -03684 0250 0625 0875 0750 0375 0125 0000 %0214 X08 006260 000334 -05091 0250 0625 1000 0750 0375 0000 0000 %0215 X09 006622 -05563 005735 0250 0750 0000 0750 0250 1000 0000 %0216 Y01 006629 -05483 005361 0250 0750 0125 0750 0250 0875 0000 %0217 Y02 006646 -05284 004537 0250 0750 0250 0750 0250 0750 0000 %0218 Y03 006677 -04940 003361 0250 0750 0375 0750 0250 0625 0000 %0219 Y04 006723 -04447 001991 0250 0750 0500 0750 0250 0500 0000 %0220 Y05 006785 -03815 000540 0250 0750 0625 0750 0250 0375 0000 %0221 Y06 006865 -03060 -00929 0250 0750 0750 0750 0250 0250 0000 %0222 Y07 006961 -02207 -02386 0250 0750 0875 0750 0250 0125 0000 %0223 Y08 007075 -01278 -03811 0250 0750 1000 0750 0250 0000 0000 %0224 Y09 007540 -06556 006616 0250 0875 0000 0750 0125 1000 0000 %0225 Z01 007546 -06489 006294 0250 0875 0125 0750 0125 0875 0000 %0226 Z02 007560 -06322 005564 0250 0875 0250 0750 0125 0750 0000 %0227 Z03 007585 -06032 004488 0250 0875 0375 0750 0125 0625 0000 %0228 Z04 007623 -05610 003196 0250 0875 0500 0750 0125 0500 0000 %0229 Z05 007673 -05061 001796 0250 0875 0625 0750 0125 0375 0000 %0230 Z06 007738 -04395 000354 0250 0875 0750 0750 0125 0250 0000 %0231 Z07 007818 -03627 -01092 0250 0875 0875 0750 0125 0125 0000 %0232 Z08 007912 -02775 -02520 0250 0875 1000 0750 0125 0000 0000 %0233 Z09 008448 -07483 007455 0250 1000 0000 0750 0000 1000 0000 %0234 a01 008453 -07426 007177 0250 1000 0125 0750 0000 0875 0000 %0235 a02 008465 -07285 006532 0250 1000 0250 0750 0000 0750 0000 %0236 a03 008485 -07037 005552 0250 1000 0375 0750 0000 0625 0000 %0237 a04 008516 -06675 004343 0250 1000 0500 0750 0000 0500 0000 %0238 a05 008559 -06198 003004 0250 1000 0625 0750 0000 0375 0000 %0239 a06 008613 -05611 001601 0250 1000 0750 0750 0000 0250 0000 %0240 a07 008680 -04924 000178 0250 1000 0875 0750 0000 0125 0000 %0241 a08 008759 -04151 -01242 0250 1000 1000 0750 0000 0000 0000 %0242 a09 %JE260-7A, Page 38 /66, LAB*la3; cf1=1.00; nt=0.18; nx=1.0; sRGB_00_95, adapted 002569 002490 001190 0375 0000 0000 0625 1000 1000 0000 %0243 A10 002595 002606 000524 0375 0000 0125 0625 1000 0875 0000 %0244 A11 002661 002887 -00701 0375 0000 0250 0625 1000 0750 0000 %0245 A12 002774 003340 -02158 0375 0000 0375 0625 1000 0625 0000 %0246 A13 002934 003931 -03634 0375 0000 0500 0625 1000 0500 0000 %0247 A14 003136 004615 -05053 0375 0000 0625 0625 1000 0375 0000 %0248 A15 003375 005351 -06394 0375 0000 0750 0625 1000 0250 0000 %0249 A16 003643 006109 -07659 0375 0000 0875 0625 1000 0125 0000 %0250 A17 003933 006869 -08855 0375 0000 1000 0625 1000 0000 0000 %0251 A18 002818 001868 001521 0375 0125 0000 0625 0875 1000 0000 %0252 B10 002842 001987 000870 0375 0125 0125 0625 0875 0875 0000 %0253 B11 002901 002275 -00344 0375 0125 0250 0625 0875 0750 0000 %0254 B12 003002 002743 -01803 0375 0125 0375 0625 0875 0625 0000 %0255 B13 003147 003358 -03294 0375 0125 0500 0625 0875 0500 0000 %0256 B14 003333 004073 -04734 0375 0125 0625 0625 0875 0375 0000 %0257 B15 003554 004846 -06101 0375 0125 0750 0625 0875 0250 0000 %0258 B16 003805 005643 -07392 0375 0125 0875 0625 0875 0125 0000 %0259 B17 004080 006443 -08614 0375 0125 1000 0625 0875 0000 0000 %0260 B18 003350 000644 002202 0375 0250 0000 0625 0750 1000 0000 %0261 C10 003369 000763 001586 0375 0250 0125 0625 0750 0875 0000 %0262 C11 003417 001053 000408 0375 0250 0250 0625 0750 0750 0000 %0263 C12 003499 001530 -01043 0375 0250 0375 0625 0750 0625 0000 %0264 C13 003618 002167 -02551 0375 0250 0500 0625 0750 0500 0000 %0265 C14 003773 002921 -04028 0375 0250 0625 0625 0750 0375 0000 %0266 C15 003961 003747 -05439 0375 0250 0750 0625 0750 0250 0000 %0267 C16 004179 004608 -06780 0375 0250 0875 0625 0750 0125 0000 %0268 C17 004421 005477 -08052 0375 0250 1000 0625 0750 0000 0000 %0269 C18 004087 -00843 003087 0375 0375 0000 0625 0625 1000 0000 %0270 D10 004101 -00732 002527 0375 0375 0125 0625 0625 0875 0000 %0271 D11 004137 -00457 001416 0375 0375 0250 0625 0625 0750 0000 %0272 D12 004200 000000 000000 0375 0375 0375 0625 0625 0625 0000 %0273 D13 004293 000625 -01509 0375 0375 0500 0625 0625 0500 0000 %0274 D14 004416 001384 -03011 0375 0375 0625 0625 0625 0375 0000 %0275 D15 004567 002234 -04467 0375 0375 0750 0625 0625 0250 0000 %0276 D16 004746 003139 -05860 0375 0375 0875 0625 0625 0125 0000 %0277 D17 004949 004067 -07190 0375 0375 1000 0625 0625 0000 0000 %0278 D18 004927 -02308 004029 0375 0500 0000 0625 0500 1000 0000 %0279 E10 004938 -02209 003535 0375 0500 0125 0625 0500 0875 0000 %0280 E11 004965 -01964 002514 0375 0500 0250 0625 0500 0750 0000 %0281 E12 005014 -01548 001162 0375 0500 0375 0625 0500 0625 0000 %0282 E13 005086 -00968 -00321 0375 0500 0500 0625 0500 0500 0000 %0283 E14 005181 -00248 -01827 0375 0500 0625 0625 0500 0375 0000 %0284 E15 005302 000580 -03308 0375 0500 0750 0625 0500 0250 0000 %0285 E16 005445 001484 -04741 0375 0500 0875 0625 0500 0125 0000 %0286 E17 005612 002432 -06119 0375 0500 1000 0625 0500 0000 0000 %0287 E18 005812 -03648 004959 0375 0625 0000 0625 0375 1000 0000 %0288 F10 005821 -03563 004530 0375 0625 0125 0625 0375 0875 0000 %0289 F11 005842 -03351 003610 0375 0625 0250 0625 0375 0750 0000 %0290 F12 005880 -02986 002343 0375 0625 0375 0625 0375 0625 0000 %0291 F13 005936 -02468 000909 0375 0625 0500 0625 0375 0500 0000 %0292 F14 006012 -01811 -00577 0375 0625 0625 0625 0375 0375 0000 %0293 F15 006108 -01037 -02062 0375 0625 0750 0625 0375 0250 0000 %0294 F16 006224 -00174 -03516 0375 0625 0875 0625 0375 0125 0000 %0295 F17 006359 000752 -04927 0375 0625 1000 0625 0375 0000 0000 %0296 F18 006713 -04859 005854 0375 0750 0000 0625 0250 1000 0000 %0297 G10 006719 -04786 005483 0375 0750 0125 0625 0250 0875 0000 %0298 G11 006737 -04604 004664 0375 0750 0250 0625 0250 0750 0000 %0299 G12 006767 -04289 003493 0375 0750 0375 0625 0250 0625 0000 %0300 G13 006812 -03835 002127 0375 0750 0500 0625 0250 0500 0000 %0301 G14 006873 -03249 000677 0375 0750 0625 0625 0250 0375 0000 %0302 G15 006950 -02546 -00793 0375 0750 0750 0625 0250 0250 0000 %0303 G16 007045 -01745 -02250 0375 0750 0875 0625 0250 0125 0000 %0304 G17 007157 -00869 -03678 0375 0750 1000 0625 0250 0000 0000 %0305 G18 007614 -05959 006711 0375 0875 0000 0625 0125 1000 0000 %0306 H10 007620 -05897 006391 0375 0875 0125 0625 0125 0875 0000 %0307 H11 007633 -05741 005666 0375 0875 0250 0625 0125 0750 0000 %0308 H12 007658 -05469 004593 0375 0875 0375 0625 0125 0625 0000 %0309 H13 007695 -05074 003304 0375 0875 0500 0625 0125 0500 0000 %0310 H14 007745 -04557 001906 0375 0875 0625 0625 0125 0375 0000 %0311 H15 007809 -03928 000465 0375 0875 0750 0625 0125 0250 0000 %0312 H16 007887 -03199 -00981 0375 0875 0875 0625 0125 0125 0000 %0313 H17 007980 -02387 -02410 0375 0875 1000 0625 0125 0000 0000 %0314 H18 008509 -06973 007534 0375 1000 0000 0625 0000 1000 0000 %0315 I10 008514 -06920 007256 0375 1000 0125 0625 0000 0875 0000 %0316 I11 008525 -06785 006614 0375 1000 0250 0625 0000 0750 0000 %0317 I12 008546 -06550 005637 0375 1000 0375 0625 0000 0625 0000 %0318 I13 008577 -06206 004432 0375 1000 0500 0625 0000 0500 0000 %0319 I14 008618 -05751 003094 0375 1000 0625 0625 0000 0375 0000 %0320 I15 008672 -05190 001693 0375 1000 0750 0625 0000 0250 0000 %0321 I16 008738 -04533 000270 0375 1000 0875 0625 0000 0125 0000 %0322 I17 008816 -03790 -01150 0375 1000 1000 0625 0000 0000 0000 %0323 I18 003048 003560 001908 0500 0000 0000 0500 1000 1000 0000 %0324 J10 003070 003642 001255 0500 0000 0125 0500 1000 0875 0000 %0325 J11 003123 003844 000033 0500 0000 0250 0500 1000 0750 0000 %0326 J12 003216 004179 -01439 0500 0000 0375 0500 1000 0625 0000 %0327 J13 003349 004637 -02950 0500 0000 0500 0500 1000 0500 0000 %0328 J14 003520 005190 -04414 0500 0000 0625 0500 1000 0375 0000 %0329 J15 003726 005811 -05805 0500 0000 0750 0500 1000 0250 0000 %0330 J16 003962 006474 -07122 0500 0000 0875 0500 1000 0125 0000 %0331 J17 004223 007159 -08368 0500 0000 1000 0500 1000 0000 0000 %0332 J18 003252 003025 002164 0500 0125 0000 0500 0875 1000 0000 %0333 K10 003272 003110 001526 0500 0125 0125 0500 0875 0875 0000 %0334 K11 003321 003318 000320 0500 0125 0250 0500 0875 0750 0000 %0335 K12 003406 003666 -01148 0500 0125 0375 0500 0875 0625 0000 %0336 K13 003530 004141 -02665 0500 0125 0500 0500 0875 0500 0000 %0337 K14 003690 004717 -04142 0500 0125 0625 0500 0875 0375 0000 %0338 K15 003884 005365 -05550 0500 0125 0750 0500 0875 0250 0000 %0339 K16 004107 006057 -06885 0500 0125 0875 0500 0875 0125 0000 %0340 K17 004355 006773 -08150 0500 0125 1000 0500 0875 0000 0000 %0341 K18 003705 001902 002715 0500 0250 0000 0500 0750 1000 0000 %0342 L10 003722 001990 002113 0500 0250 0125 0500 0750 0875 0000 %0343 L11 003763 002205 000947 0500 0250 0250 0500 0750 0750 0000 %0344 L12 003835 002568 -00504 0500 0250 0375 0500 0750 0625 0000 %0345 L13 003940 003066 -02025 0500 0250 0500 0500 0750 0500 0000 %0346 L14 004079 003677 -03523 0500 0250 0625 0500 0750 0375 0000 %0347 L15 004248 004369 -04963 0500 0250 0750 0500 0750 0250 0000 %0348 L16 004446 005113 -06334 0500 0250 0875 0500 0750 0125 0000 %0349 L17 004668 005885 -07637 0500 0250 1000 0500 0750 0000 0000 %0350 L18 004362 000429 003474 0500 0375 0000 0500 0625 1000 0000 %0351 M10 004375 000515 002925 0500 0375 0125 0500 0625 0875 0000 %0352 M11 004408 000729 001827 0500 0375 0250 0500 0625 0750 0000 %0353 M12 004465 001091 000417 0500 0375 0375 0500 0625 0625 0000 %0354 M13 004550 001597 -01095 0500 0375 0500 0500 0625 0500 0000 %0355 M14 004663 002225 -02607 0500 0375 0625 0500 0625 0375 0000 %0356 M15 004803 002947 -04077 0500 0375 0750 0500 0625 0250 0000 %0357 M16 004970 003734 -05489 0500 0375 0875 0500 0625 0125 0000 %0358 M17 005160 004560 -06838 0500 0375 1000 0500 0625 0000 0000 %0359 M18 005139 -01112 004320 0500 0500 0000 0500 0500 1000 0000 %0360 N10 005149 -01031 003833 0500 0500 0125 0500 0500 0875 0000 %0361 N11 005175 -00830 002825 0500 0500 0250 0500 0500 0750 0000 %0362 N12 005221 -00486 001481 0500 0500 0375 0500 0500 0625 0000 %0363 N13 005288 000000 000000 0500 0500 0500 0500 0500 0500 0000 %0364 N14 005379 000614 -01509 0500 0500 0625 0500 0500 0375 0000 %0365 N15 005492 001334 -02996 0500 0500 0750 0500 0500 0250 0000 %0366 N16 005629 002132 -04439 0500 0500 0875 0500 0500 0125 0000 %0367 N17 005787 002983 -05829 0500 0500 1000 0500 0500 0000 0000 %0368 N18 005978 -02576 005181 0500 0625 0000 0500 0375 1000 0000 %0369 O10 005986 -02503 004757 0500 0625 0125 0500 0375 0875 0000 %0370 O11 006007 -02321 003848 0500 0625 0250 0500 0375 0750 0000 %0371 O12 006043 -02006 002588 0500 0625 0375 0500 0375 0625 0000 %0372 O13 006097 -01556 001159 0500 0625 0500 0500 0375 0500 0000 %0373 O14 006170 -00979 -00327 0500 0625 0625 0500 0375 0375 0000 %0374 O15 006262 -00292 -01814 0500 0625 0750 0500 0375 0250 0000 %0375 O16 006373 000484 -03272 0500 0625 0875 0500 0375 0125 0000 %0376 O17 006504 001328 -04689 0500 0625 1000 0500 0375 0000 0000 %0377 O18 006846 -03917 006028 0500 0750 0000 0500 0250 1000 0000 %0378 P10 006852 -03853 005662 0500 0750 0125 0500 0250 0875 0000 %0379 P11 006869 -03691 004850 0500 0750 0250 0500 0250 0750 0000 %0380 P12 006898 -03410 003686 0500 0750 0375 0500 0250 0625 0000 %0381 P13 006942 -03004 002325 0500 0750 0500 0500 0250 0500 0000 %0382 P14 007001 -02477 000877 0500 0750 0625 0500 0250 0375 0000 %0383 P15 007076 -01839 -00592 0500 0750 0750 0500 0250 0250 0000 %0384 P16 007168 -01106 -02051 0500 0750 0875 0500 0250 0125 0000 %0385 P17 007277 -00297 -03482 0500 0750 1000 0500 0250 0000 0000 %0386 P18 007723 -05139 006851 0500 0875 0000 0500 0125 1000 0000 %0387 Q10 007728 -05082 006534 0500 0875 0125 0500 0125 0875 0000 %0388 Q11 007742 -04940 005814 0500 0875 0250 0500 0125 0750 0000 %0389 Q12 007766 -04692 004748 0500 0875 0375 0500 0125 0625 0000 %0390 Q13 007802 -04330 003464 0500 0875 0500 0500 0125 0500 0000 %0391 Q14 007851 -03855 002068 0500 0875 0625 0500 0125 0375 0000 %0392 Q15 007913 -03274 000628 0500 0875 0750 0500 0125 0250 0000 %0393 Q16 007990 -02596 -00817 0500 0875 0875 0500 0125 0125 0000 %0394 Q17 008081 -01838 -02248 0500 0875 1000 0500 0125 0000 0000 %0395 Q18 008600 -06258 007649 0500 1000 0000 0500 0000 1000 0000 %0396 R10 008604 -06209 007374 0500 1000 0125 0500 0000 0875 0000 %0397 R11 008616 -06084 006736 0500 1000 0250 0500 0000 0750 0000 %0398 R12 008636 -05865 005764 0500 1000 0375 0500 0000 0625 0000 %0399 R13 008666 -05545 004562 0500 1000 0500 0500 0000 0500 0000 %0400 R14 008707 -05120 003228 0500 1000 0625 0500 0000 0375 0000 %0401 R15 008760 -04595 001829 0500 1000 0750 0500 0000 0250 0000 %0402 R16 008824 -03976 000406 0500 1000 0875 0500 0000 0125 0000 %0403 R17 008902 -03275 -01014 0500 1000 1000 0500 0000 0000 0000 %0404 R18 003578 004557 002678 0625 0000 0000 0375 1000 1000 0000 %0405 S10 003595 004617 002045 0625 0000 0125 0375 1000 0875 0000 %0406 S11 003639 004767 000840 0625 0000 0250 0375 1000 0750 0000 %0407 S12 003714 005022 -00637 0625 0000 0375 0375 1000 0625 0000 %0408 S13 003824 005379 -02171 0625 0000 0500 0375 1000 0500 0000 %0409 S14 003968 005825 -03672 0625 0000 0625 0375 1000 0375 0000 %0410 S15 004144 006344 -05110 0625 0000 0750 0375 1000 0250 0000 %0411 S16 004349 006916 -06475 0625 0000 0875 0375 1000 0125 0000 %0412 S17 004578 007524 -07771 0625 0000 1000 0375 1000 0000 0000 %0413 S18 003744 004107 002873 0625 0125 0000 0375 0875 1000 0000 %0414 T10 003760 004169 002255 0625 0125 0125 0375 0875 0875 0000 %0415 T11 003801 004323 001066 0625 0125 0250 0375 0875 0750 0000 %0416 T12 003872 004587 -00402 0625 0125 0375 0375 0875 0625 0000 %0417 T13 003976 004956 -01936 0625 0125 0500 0375 0875 0500 0000 %0418 T14 004113 005419 -03444 0625 0125 0625 0375 0875 0375 0000 %0419 T15 004280 005956 -04891 0625 0125 0750 0375 0875 0250 0000 %0420 T16 004476 006550 -06269 0625 0125 0875 0375 0875 0125 0000 %0421 T17 004696 007180 -07578 0625 0125 1000 0375 0875 0000 0000 %0422 T18 004126 003115 003311 0625 0250 0000 0375 0750 1000 0000 %0423 U10 004140 003180 002726 0625 0250 0125 0375 0750 0875 0000 %0424 U11 004175 003342 001579 0625 0250 0250 0375 0750 0750 0000 %0425 U12 004238 003618 000134 0625 0250 0375 0375 0750 0625 0000 %0426 U13 004329 004008 -01395 0625 0250 0500 0375 0750 0500 0000 %0427 U14 004451 004498 -02913 0625 0250 0625 0375 0750 0375 0000 %0428 U15 004601 005070 -04379 0625 0250 0750 0375 0750 0250 0000 %0429 U16 004777 005703 -05782 0625 0250 0875 0375 0750 0125 0000 %0430 U17 004978 006377 -07119 0625 0250 1000 0375 0750 0000 0000 %0431 U18 004702 001724 003945 0625 0375 0000 0375 0625 1000 0000 %0432 V10 004714 001791 003410 0625 0375 0125 0375 0625 0875 0000 %0433 V11 004743 001956 002331 0625 0375 0250 0375 0625 0750 0000 %0434 V12 004795 002240 000931 0625 0375 0375 0375 0625 0625 0000 %0435 V13 004872 002644 -00580 0625 0375 0500 0375 0625 0500 0000 %0436 V14 004974 003155 -02102 0625 0375 0625 0375 0625 0375 0000 %0437 V15 005102 003757 -03587 0625 0375 0750 0375 0625 0250 0000 %0438 V16 005254 004428 -05018 0625 0375 0875 0375 0625 0125 0000 %0439 V17 005429 005149 -06390 0625 0375 1000 0375 0625 0000 0000 %0440 V18 005410 000178 004685 0625 0500 0000 0375 0500 1000 0000 %0441 W10 005419 000243 004210 0625 0500 0125 0375 0500 0875 0000 %0442 W11 005443 000405 003218 0625 0500 0250 0375 0500 0750 0000 %0443 W12 005485 000684 001885 0625 0500 0375 0375 0500 0625 0000 %0444 W13 005548 001085 000409 0625 0500 0500 0375 0500 0500 0000 %0445 W14 005632 001598 -01102 0625 0500 0625 0375 0500 0375 0000 %0446 W15 005738 002210 -02596 0625 0500 0750 0375 0500 0250 0000 %0447 W16 005866 002900 -04049 0625 0500 0875 0375 0500 0125 0000 %0448 W17 006014 003649 -05452 0625 0500 1000 0375 0500 0000 0000 %0449 W18 006195 -01356 005468 0625 0625 0000 0375 0375 1000 0000 %0450 X10 006203 -01296 005052 0625 0625 0125 0375 0375 0875 0000 %0451 X11 006222 -01143 004155 0625 0625 0250 0375 0375 0750 0000 %0452 X12 006256 -00878 002907 0625 0625 0375 0375 0375 0625 0000 %0453 X13 006307 -00495 001485 0625 0625 0500 0375 0375 0500 0000 %0454 X14 006376 000000 000000 0625 0625 0625 0375 0375 0375 0000 %0455 X15 006464 000597 -01489 0625 0625 0750 0375 0375 0250 0000 %0456 X16 006570 001281 -02952 0625 0625 0875 0375 0375 0125 0000 %0457 X17 006694 002033 -04377 0625 0625 1000 0375 0375 0000 0000 %0458 X18 007021 -02802 006257 0625 0750 0000 0375 0250 1000 0000 %0459 Y10 007028 -02747 005896 0625 0750 0125 0375 0250 0875 0000 %0460 Y11 007044 -02606 005095 0625 0750 0250 0375 0250 0750 0000 %0461 Y12 007072 -02362 003940 0625 0750 0375 0375 0250 0625 0000 %0462 Y13 007114 -02007 002586 0625 0750 0500 0375 0250 0500 0000 %0463 Y14 007170 -01542 001142 0625 0750 0625 0375 0250 0375 0000 %0464 Y15 007243 -00975 -00327 0625 0750 0750 0375 0250 0250 0000 %0465 Y16 007332 -00318 -01788 0625 0750 0875 0375 0250 0125 0000 %0466 Y17 007436 000413 -03222 0625 0750 1000 0375 0250 0000 0000 %0467 Y18 007868 -04137 007037 0625 0875 0000 0375 0125 1000 0000 %0468 Z10 007873 -04087 006724 0625 0875 0125 0375 0125 0875 0000 %0469 Z11 007886 -03960 006012 0625 0875 0250 0375 0125 0750 0000 %0470 Z12 007909 -03738 004953 0625 0875 0375 0375 0125 0625 0000 %0471 Z13 007944 -03414 003676 0625 0875 0500 0375 0125 0500 0000 %0472 Z14 007992 -02986 002285 0625 0875 0625 0375 0125 0375 0000 %0473 Z15 008053 -02459 000847 0625 0875 0750 0375 0125 0250 0000 %0474 Z16 008127 -01841 -00599 0625 0875 0875 0375 0125 0125 0000 %0475 Z17 008215 -01145 -02031 0625 0875 1000 0375 0125 0000 0000 %0476 Z18 008721 -05365 007804 0625 1000 0000 0375 0000 1000 0000 %0477 a10 008726 -05320 007531 0625 1000 0125 0375 0000 0875 0000 %0478 a11 008737 -05206 006899 0625 1000 0250 0375 0000 0750 0000 %0479 a12 008757 -05007 005934 0625 1000 0375 0375 0000 0625 0000 %0480 a13 008786 -04713 004738 0625 1000 0500 0375 0000 0500 0000 %0481 a14 008826 -04323 003408 0625 1000 0625 0375 0000 0375 0000 %0482 a15 008878 -03839 002011 0625 1000 0750 0375 0000 0250 0000 %0483 a16 008941 -03267 000589 0625 1000 0875 0375 0000 0125 0000 %0484 a17 009016 -02615 -00831 0625 1000 1000 0375 0000 0000 0000 %0485 a18 %JE260-7A, Page 39 /66, LAB*la3; cf1=1.00; nt=0.18; nx=1.0; sRGB_00_95, adapted 004134 005481 003461 0750 0000 0000 0250 1000 1000 0000 %0486 A19 004148 005527 002853 0750 0000 0125 0250 1000 0875 0000 %0487 A20 004184 005643 001675 0750 0000 0250 0250 1000 0750 0000 %0488 A21 004246 005842 000206 0750 0000 0375 0250 1000 0625 0000 %0489 A22 004337 006126 -01340 0750 0000 0500 0250 1000 0500 0000 %0490 A23 004458 006490 -02868 0750 0000 0625 0250 1000 0375 0000 %0491 A24 004608 006924 -04342 0750 0000 0750 0250 1000 0250 0000 %0492 A25 004784 007415 -05750 0750 0000 0875 0250 1000 0125 0000 %0493 A26 004985 007950 -07091 0750 0000 1000 0250 1000 0000 0000 %0494 A27 004271 005104 003610 0750 0125 0000 0250 0875 1000 0000 %0495 B19 004284 005151 003015 0750 0125 0125 0250 0875 0875 0000 %0496 B20 004318 005270 001855 0750 0125 0250 0250 0875 0750 0000 %0497 B21 004377 005475 000396 0750 0125 0375 0250 0875 0625 0000 %0498 B22 004465 005767 -01146 0750 0125 0500 0250 0875 0500 0000 %0499 B23 004581 006143 -02676 0750 0125 0625 0250 0875 0375 0000 %0500 B24 004725 006590 -04156 0750 0125 0750 0250 0875 0250 0000 %0501 B25 004895 007096 -05571 0750 0125 0875 0250 0875 0125 0000 %0502 B26 005089 007647 -06922 0750 0125 1000 0250 0875 0000 0000 %0503 B27 004592 004242 003954 0750 0250 0000 0250 0750 1000 0000 %0504 C19 004604 004292 003391 0750 0250 0125 0250 0750 0875 0000 %0505 C20 004635 004416 002271 0750 0250 0250 0250 0750 0750 0000 %0506 C21 004688 004631 000839 0750 0250 0375 0250 0750 0625 0000 %0507 C22 004767 004940 -00692 0750 0250 0500 0250 0750 0500 0000 %0508 C23 004873 005335 -02224 0750 0250 0625 0250 0750 0375 0000 %0509 C24 005004 005808 -03713 0750 0250 0750 0250 0750 0250 0000 %0510 C25 005161 006344 -05145 0750 0250 0875 0250 0750 0125 0000 %0511 C26 005341 006928 -06514 0750 0250 1000 0250 0750 0000 0000 %0512 C27 005094 002969 004476 0750 0375 0000 0250 0625 1000 0000 %0513 D19 005105 003021 003960 0750 0375 0125 0250 0625 0875 0000 %0514 D20 005131 003151 002905 0750 0375 0250 0250 0625 0750 0000 %0515 D21 005177 003375 001521 0750 0375 0375 0250 0625 0625 0000 %0516 D22 005245 003697 000012 0750 0375 0500 0250 0625 0500 0000 %0517 D23 005337 004113 -01515 0750 0375 0625 0250 0625 0375 0000 %0518 D24 005452 004613 -03014 0750 0375 0750 0250 0625 0250 0000 %0519 D25 005590 005181 -04464 0750 0375 0875 0250 0625 0125 0000 %0520 D26 005749 005803 -05858 0750 0375 1000 0250 0625 0000 0000 %0521 D27 005732 001476 005114 0750 0500 0000 0250 0500 1000 0000 %0522 E19 005741 001528 004652 0750 0500 0125 0250 0500 0875 0000 %0523 E20 005762 001658 003680 0750 0500 0250 0250 0500 0750 0000 %0524 E21 005801 001885 002364 0750 0500 0375 0250 0500 0625 0000 %0525 E22 005859 002212 000895 0750 0500 0500 0250 0500 0500 0000 %0526 E23 005936 002637 -00616 0750 0500 0625 0250 0500 0375 0000 %0527 E24 006034 003151 -02117 0750 0500 0750 0250 0500 0250 0000 %0528 E25 006152 003741 -03581 0750 0500 0875 0250 0500 0125 0000 %0529 E26 006290 004392 -04997 0750 0500 1000 0250 0500 0000 0000 %0530 E27 006459 -00074 005812 0750 0625 0000 0250 0375 1000 0000 %0531 F19 006466 -00024 005406 0750 0625 0125 0250 0375 0875 0000 %0532 F20 006484 000102 004526 0750 0625 0250 0250 0375 0750 0000 %0533 F21 006516 000323 003293 0750 0625 0375 0250 0375 0625 0000 %0534 F22 006564 000644 001879 0750 0625 0500 0250 0375 0500 0000 %0535 F23 006629 001065 000397 0750 0625 0625 0250 0375 0375 0000 %0536 F24 006711 001577 -01092 0750 0625 0750 0250 0375 0250 0000 %0537 F25 006811 002171 -02561 0750 0625 0875 0250 0375 0125 0000 %0538 F26 006929 002832 -03993 0750 0625 1000 0250 0375 0000 0000 %0539 F27 007239 -01584 006537 0750 0750 0000 0250 0250 1000 0000 %0540 G19 007245 -01536 006183 0750 0750 0125 0250 0250 0875 0000 %0541 G20 007260 -01416 005394 0750 0750 0250 0250 0250 0750 0000 %0542 G21 007287 -01206 004253 0750 0750 0375 0250 0250 0625 0000 %0543 G22 007326 -00900 002907 0750 0750 0500 0250 0250 0500 0000 %0544 G23 007381 -00496 001468 0750 0750 0625 0250 0250 0375 0000 %0545 G24 007450 000000 000000 0750 0750 0750 0250 0250 0250 0000 %0546 G25 007535 000580 -01462 0750 0750 0875 0250 0250 0125 0000 %0547 G26 007635 001233 -02900 0750 0750 1000 0250 0250 0000 0000 %0548 G27 008049 -03007 007269 0750 0875 0000 0250 0125 1000 0000 %0549 H19 008054 -02963 006960 0750 0875 0125 0250 0125 0875 0000 %0550 H20 008067 -02851 006258 0750 0875 0250 0250 0125 0750 0000 %0551 H21 008089 -02656 005210 0750 0875 0375 0250 0125 0625 0000 %0552 H22 008123 -02369 003941 0750 0875 0500 0250 0125 0500 0000 %0553 H23 008169 -01990 002555 0750 0875 0625 0250 0125 0375 0000 %0554 H24 008227 -01519 001119 0750 0875 0750 0250 0125 0250 0000 %0555 H25 008299 -00964 -00325 0750 0875 0875 0250 0125 0125 0000 %0556 H26 008384 -00334 -01759 0750 0875 1000 0250 0125 0000 0000 %0557 H27 008875 -04331 007997 0750 1000 0000 0250 0000 1000 0000 %0558 I19 008879 -04291 007728 0750 1000 0125 0250 0000 0875 0000 %0559 I20 008890 -04189 007103 0750 1000 0250 0250 0000 0750 0000 %0560 I21 008909 -04009 006146 0750 1000 0375 0250 0000 0625 0000 %0561 I22 008937 -03744 004958 0750 1000 0500 0250 0000 0500 0000 %0562 I23 008976 -03392 003633 0750 1000 0625 0250 0000 0375 0000 %0563 I24 009026 -02952 002240 0750 1000 0750 0250 0000 0250 0000 %0564 I25 009088 -02430 000820 0750 1000 0875 0250 0000 0125 0000 %0565 I26 009161 -01832 -00600 0750 1000 1000 0250 0000 0000 0000 %0566 I27 004702 006346 004234 0875 0000 0000 0125 1000 1000 0000 %0567 J19 004714 006383 003656 0875 0000 0125 0125 1000 0875 0000 %0568 J20 004743 006475 002514 0875 0000 0250 0125 1000 0750 0000 %0569 J21 004795 006634 001063 0875 0000 0375 0125 1000 0625 0000 %0570 J22 004872 006866 -00483 0875 0000 0500 0125 1000 0500 0000 %0571 J23 004974 007167 -02028 0875 0000 0625 0125 1000 0375 0000 %0572 J24 005102 007533 -03528 0875 0000 0750 0125 1000 0250 0000 %0573 J25 005254 007955 -04971 0875 0000 0875 0125 1000 0125 0000 %0574 J26 005429 008424 -06351 0875 0000 1000 0125 1000 0000 0000 %0575 J27 004816 006028 004349 0875 0125 0000 0125 0875 1000 0000 %0576 K19 004827 006065 003783 0875 0125 0125 0125 0875 0875 0000 %0577 K20 004856 006159 002657 0875 0125 0250 0125 0875 0750 0000 %0578 K21 004906 006323 001218 0875 0125 0375 0125 0875 0625 0000 %0579 K22 004980 006560 -00324 0875 0125 0500 0125 0875 0500 0000 %0580 K23 005079 006869 -01867 0875 0125 0625 0125 0875 0375 0000 %0581 K24 005202 007244 -03371 0875 0125 0750 0125 0875 0250 0000 %0582 K25 005350 007677 -04817 0875 0125 0875 0125 0875 0125 0000 %0583 K26 005521 008157 -06203 0875 0125 1000 0125 0875 0000 0000 %0584 K27 005088 005282 004621 0875 0250 0000 0125 0750 1000 0000 %0585 L19 005099 005322 004083 0875 0250 0125 0125 0750 0875 0000 %0586 L20 005125 005420 002996 0875 0250 0250 0125 0750 0750 0000 %0587 L21 005171 005591 001584 0875 0250 0375 0125 0750 0625 0000 %0588 L22 005239 005840 000056 0875 0250 0500 0125 0750 0500 0000 %0589 L23 005331 006164 -01483 0875 0250 0625 0125 0750 0375 0000 %0590 L24 005446 006557 -02990 0875 0250 0750 0125 0750 0250 0000 %0591 L25 005584 007012 -04446 0875 0250 0875 0125 0750 0125 0000 %0592 L26 005744 007517 -05844 0875 0250 1000 0125 0750 0000 0000 %0593 L27 005525 004137 005048 0875 0375 0000 0125 0625 1000 0000 %0594 M19 005534 004178 004552 0875 0375 0125 0125 0625 0875 0000 %0595 M20 005558 004281 003526 0875 0375 0250 0125 0625 0750 0000 %0596 M21 005598 004461 002163 0875 0375 0375 0125 0625 0625 0000 %0597 M22 005659 004722 000662 0875 0375 0500 0125 0625 0500 0000 %0598 M23 005741 005063 -00867 0875 0375 0625 0125 0625 0375 0000 %0599 M24 005844 005478 -02376 0875 0375 0750 0125 0625 0250 0000 %0600 M25 005968 005959 -03843 0875 0375 0875 0125 0625 0125 0000 %0601 M26 006112 006496 -05258 0875 0375 1000 0125 0625 0000 0000 %0602 M27 006097 002731 005590 0875 0500 0000 0125 0500 1000 0000 %0603 N19 006104 002773 005144 0875 0500 0125 0125 0500 0875 0000 %0604 N20 006124 002879 004197 0875 0500 0250 0125 0500 0750 0000 %0605 N21 006159 003063 002901 0875 0500 0375 0125 0500 0625 0000 %0606 N22 006212 003332 001442 0875 0500 0500 0125 0500 0500 0000 %0607 N23 006282 003685 -00066 0875 0500 0625 0125 0500 0375 0000 %0608 N24 006372 004116 -01571 0875 0500 0750 0125 0500 0250 0000 %0609 N25 006480 004619 -03045 0875 0500 0875 0125 0500 0125 0000 %0610 N26 006608 005181 -04475 0875 0500 1000 0125 0500 0000 0000 %0611 N27 006764 001210 006206 0875 0625 0000 0125 0375 1000 0000 %0612 O19 006771 001251 005812 0875 0625 0125 0125 0375 0875 0000 %0613 O20 006787 001357 004951 0875 0625 0250 0125 0375 0750 0000 %0614 O21 006817 001541 003736 0875 0625 0375 0125 0375 0625 0000 %0615 O22 006862 001810 002334 0875 0625 0500 0125 0375 0500 0000 %0616 O23 006922 002165 000857 0875 0625 0625 0125 0375 0375 0000 %0617 O24 006999 002602 -00633 0875 0625 0750 0125 0375 0250 0000 %0618 O25 007092 003114 -02106 0875 0625 0875 0125 0375 0125 0000 %0619 O26 007203 003690 -03546 0875 0625 1000 0125 0375 0000 0000 %0620 O27 007495 -00320 006864 0875 0750 0000 0125 0250 1000 0000 %0621 P19 007500 -00280 006518 0875 0750 0125 0125 0250 0875 0000 %0622 P20 007515 -00178 005745 0875 0750 0250 0125 0250 0750 0000 %0623 P21 007540 000000 004618 0875 0750 0375 0125 0250 0625 0000 %0624 P22 007578 000263 003284 0875 0750 0500 0125 0250 0500 0000 %0625 P23 007629 000611 001852 0875 0750 0625 0125 0250 0375 0000 %0626 P24 007695 001042 000385 0875 0750 0750 0125 0250 0250 0000 %0627 P25 007775 001550 -01077 0875 0750 0875 0125 0250 0125 0000 %0628 P26 007870 002127 -02519 0875 0750 1000 0125 0250 0000 0000 %0629 P27 008265 -01799 007542 0875 0875 0000 0125 0125 1000 0000 %0630 Q19 008270 -01761 007240 0875 0875 0125 0125 0125 0875 0000 %0631 Q20 008282 -01664 006549 0875 0875 0250 0125 0125 0750 0000 %0632 Q21 008304 -01494 005513 0875 0875 0375 0125 0125 0625 0000 %0633 Q22 008336 -01243 004255 0875 0875 0500 0125 0125 0500 0000 %0634 Q23 008380 -00909 002876 0875 0875 0625 0125 0125 0375 0000 %0635 Q24 008436 -00493 001444 0875 0875 0750 0125 0125 0250 0000 %0636 Q25 008505 000000 000000 0875 0875 0875 0125 0125 0125 0000 %0637 Q26 008587 000564 -01435 0875 0875 1000 0125 0125 0000 0000 %0638 Q27 009059 -03198 008229 0875 1000 0000 0125 0000 1000 0000 %0639 R19 009063 -03162 007965 0875 1000 0125 0125 0000 0875 0000 %0640 R20 009074 -03072 007348 0875 1000 0250 0125 0000 0750 0000 %0641 R21 009092 -02912 006401 0875 1000 0375 0125 0000 0625 0000 %0642 R22 009120 -02676 005222 0875 1000 0500 0125 0000 0500 0000 %0643 R23 009157 -02361 003904 0875 1000 0625 0125 0000 0375 0000 %0644 R24 009206 -01966 002515 0875 1000 0750 0125 0000 0250 0000 %0645 R25 009265 -01494 001097 0875 1000 0875 0125 0000 0125 0000 %0646 R26 009336 -00951 -00322 0875 1000 1000 0125 0000 0000 0000 %0647 R27 005275 007165 004987 1000 0000 0000 0000 1000 1000 0000 %0648 S19 005284 007194 004442 1000 0000 0125 0000 1000 0875 0000 %0649 S20 005309 007269 003343 1000 0000 0250 0000 1000 0750 0000 %0650 S21 005353 007401 001919 1000 0000 0375 0000 1000 0625 0000 %0651 S22 005418 007593 000380 1000 0000 0500 0000 1000 0500 0000 %0652 S23 005505 007846 -01171 1000 0000 0625 0000 1000 0375 0000 %0653 S24 005615 008158 -02690 1000 0000 0750 0000 1000 0250 0000 %0654 S25 005747 008522 -04159 1000 0000 0875 0000 1000 0125 0000 %0655 S26 005900 008934 -05570 1000 0000 1000 0000 1000 0000 0000 %0656 S27 005370 006894 005077 1000 0125 0000 0000 0875 1000 0000 %0657 T19 005380 006924 004542 1000 0125 0125 0000 0875 0875 0000 %0658 T20 005404 007001 003458 1000 0125 0250 0000 0875 0750 0000 %0659 T21 005447 007135 002045 1000 0125 0375 0000 0875 0625 0000 %0660 T22 005510 007331 000512 1000 0125 0500 0000 0875 0500 0000 %0661 T23 005595 007589 -01036 1000 0125 0625 0000 0875 0375 0000 %0662 T24 005702 007907 -02555 1000 0125 0750 0000 0875 0250 0000 %0663 T25 005831 008279 -04026 1000 0125 0875 0000 0875 0125 0000 %0664 T26 005981 008699 -05441 1000 0125 1000 0000 0875 0000 0000 %0665 T27 005603 006248 005293 1000 0250 0000 0000 0750 1000 0000 %0666 U19 005612 006279 004782 1000 0250 0125 0000 0750 0875 0000 %0667 U20 005635 006359 003734 1000 0250 0250 0000 0750 0750 0000 %0668 U21 005675 006499 002350 1000 0250 0375 0000 0750 0625 0000 %0669 U22 005734 006703 000833 1000 0250 0500 0000 0750 0500 0000 %0670 U23 005814 006972 -00709 1000 0250 0625 0000 0750 0375 0000 %0671 U24 005915 007303 -02228 1000 0250 0750 0000 0750 0250 0000 %0672 U25 006037 007692 -03703 1000 0250 0875 0000 0750 0125 0000 %0673 U26 006179 008130 -05126 1000 0250 1000 0000 0750 0000 0000 %0674 U27 005985 005225 005642 1000 0375 0000 0000 0625 1000 0000 %0675 V19 005993 005258 005169 1000 0375 0125 0000 0625 0875 0000 %0676 V20 006013 005341 004177 1000 0375 0250 0000 0625 0750 0000 %0677 V21 006049 005488 002840 1000 0375 0375 0000 0625 0625 0000 %0678 V22 006103 005702 001353 1000 0375 0500 0000 0625 0500 0000 %0679 V23 006176 005985 -00174 1000 0375 0625 0000 0625 0375 0000 %0680 V24 006268 006334 -01691 1000 0375 0750 0000 0625 0250 0000 %0681 V25 006379 006743 -03171 1000 0375 0875 0000 0625 0125 0000 %0682 V26 006510 007206 -04604 1000 0375 1000 0000 0625 0000 0000 %0683 V27 006495 003922 006101 1000 0500 0000 0000 0500 1000 0000 %0684 W19 006502 003957 005673 1000 0500 0125 0000 0500 0875 0000 %0685 W20 006520 004043 004754 1000 0500 0250 0000 0500 0750 0000 %0686 W21 006552 004195 003482 1000 0500 0375 0000 0500 0625 0000 %0687 W22 006600 004417 002038 1000 0500 0500 0000 0500 0500 0000 %0688 W23 006664 004712 000534 1000 0500 0625 0000 0500 0375 0000 %0689 W24 006745 005076 -00972 1000 0500 0750 0000 0500 0250 0000 %0690 W25 006845 005504 -02454 1000 0500 0875 0000 0500 0125 0000 %0691 W26 006961 005990 -03896 1000 0500 1000 0000 0500 0000 0000 %0692 W27 007105 002461 006640 1000 0625 0000 0000 0375 1000 0000 %0693 X19 007111 002496 006259 1000 0625 0125 0000 0375 0875 0000 %0694 X20 007127 002584 005421 1000 0625 0250 0000 0375 0750 0000 %0695 X21 007155 002737 004227 1000 0625 0375 0000 0375 0625 0000 %0696 X22 007196 002964 002839 1000 0625 0500 0000 0375 0500 0000 %0697 X23 007251 003264 001370 1000 0625 0625 0000 0375 0375 0000 %0698 X24 007323 003636 -00118 1000 0625 0750 0000 0375 0250 0000 %0699 X25 007410 004077 -01595 1000 0625 0875 0000 0375 0125 0000 %0700 X26 007513 004578 -03042 1000 0625 1000 0000 0375 0000 0000 %0701 X27 007786 000945 007231 1000 0750 0000 0000 0250 1000 0000 %0702 Y19 007791 000979 006895 1000 0750 0125 0000 0250 0875 0000 %0703 Y20 007805 001065 006139 1000 0750 0250 0000 0250 0750 0000 %0704 Y21 007828 001218 005031 1000 0750 0375 0000 0250 0625 0000 %0705 Y22 007864 001442 003710 1000 0750 0500 0000 0250 0500 0000 %0706 Y23 007912 001741 002286 1000 0750 0625 0000 0250 0375 0000 %0707 Y24 007974 002114 000824 1000 0750 0750 0000 0250 0250 0000 %0708 Y25 008050 002557 -00639 1000 0750 0875 0000 0250 0125 0000 %0709 Y26 008140 003064 -02084 1000 0750 1000 0000 0250 0000 0000 %0710 Y27 008514 -00557 007855 1000 0875 0000 0000 0125 1000 0000 %0711 Z19 008519 -00524 007559 1000 0875 0125 0000 0125 0875 0000 %0712 Z20 008530 -00440 006881 1000 0875 0250 0000 0125 0750 0000 %0713 Z21 008551 -00292 005861 1000 0875 0375 0000 0125 0625 0000 %0714 Z22 008582 -00074 004615 1000 0875 0500 0000 0125 0500 0000 %0715 Z23 008623 000217 003245 1000 0875 0625 0000 0125 0375 0000 %0716 Z24 008677 000583 001818 1000 0875 0750 0000 0125 0250 0000 %0717 Z25 008743 001019 000375 1000 0875 0875 0000 0125 0125 0000 %0718 Z26 008821 001521 -01060 1000 0875 1000 0000 0125 0000 0000 %0719 Z27 009274 -02006 008497 1000 1000 0000 0000 0000 1000 0000 %0720 a19 009277 -01974 008237 1000 1000 0125 0000 0000 0875 0000 %0721 a20 009287 -01894 007631 1000 1000 0250 0000 0000 0750 0000 %0722 a21 009305 -01753 006696 1000 1000 0375 0000 0000 0625 0000 %0723 a22 009332 -01544 005528 1000 1000 0500 0000 0000 0500 0000 %0724 a23 009368 -01263 004218 1000 1000 0625 0000 0000 0375 0000 %0725 a24 009415 -00911 002834 1000 1000 0750 0000 0000 0250 0000 %0726 a25 009472 -00488 001419 1000 1000 0875 0000 0000 0125 0000 %0727 a26 009540 000000 000000 1000 1000 1000 0000 0000 0000 0000 %0728 a27 %JE260-7A, Page 40 /66, LAB*la3; cf1=1.00; nt=0.18; nx=1.0; sRGB_00_95, adapted 009540 000000 000000 1000 1000 1000 0000 0000 0000 0000 %0729 b01 009336 -00951 -00322 0875 1000 1000 0125 0000 0000 0000 %0730 b02 009161 -01832 -00600 0750 1000 1000 0250 0000 0000 0000 %0731 b03 009016 -02615 -00831 0625 1000 1000 0375 0000 0000 0000 %0732 b04 008902 -03275 -01014 0500 1000 1000 0500 0000 0000 0000 %0733 b05 008816 -03790 -01150 0375 1000 1000 0625 0000 0000 0000 %0734 b06 008759 -04151 -01242 0250 1000 1000 0750 0000 0000 0000 %0735 b07 008726 -04361 -01294 0125 1000 1000 0875 0000 0000 0000 %0736 b08 008713 -04444 -01314 0000 1000 1000 1000 0000 0000 0000 %0737 b09 008743 001019 000375 1000 0875 0875 0000 0125 0125 0000 %0738 c01 008505 000000 000000 0875 0875 0875 0125 0125 0125 0000 %0739 c02 008299 -00964 -00325 0750 0875 0875 0250 0125 0125 0000 %0740 c03 008127 -01841 -00599 0625 0875 0875 0375 0125 0125 0000 %0741 c04 007990 -02596 -00817 0500 0875 0875 0500 0125 0125 0000 %0742 c05 007887 -03199 -00981 0375 0875 0875 0625 0125 0125 0000 %0743 c06 007818 -03627 -01092 0250 0875 0875 0750 0125 0125 0000 %0744 c07 007778 -03878 -01154 0125 0875 0875 0875 0125 0125 0000 %0745 c08 007763 -03978 -01179 0000 0875 0875 1000 0125 0125 0000 %0746 c09 007974 002114 000824 1000 0750 0750 0000 0250 0250 0000 %0747 d01 007695 001042 000385 0875 0750 0750 0125 0250 0250 0000 %0748 d02 007450 000000 000000 0750 0750 0750 0250 0250 0250 0000 %0749 d03 007243 -00975 -00327 0625 0750 0750 0375 0250 0250 0000 %0750 d04 007076 -01839 -00592 0500 0750 0750 0500 0250 0250 0000 %0751 d05 006950 -02546 -00793 0375 0750 0750 0625 0250 0250 0000 %0752 d06 006865 -03060 -00929 0250 0750 0750 0750 0250 0250 0000 %0753 d07 006816 -03367 -01007 0125 0750 0750 0875 0250 0250 0000 %0754 d08 006797 -03491 -01038 0000 0750 0750 1000 0250 0250 0000 %0755 d09 007251 003264 001370 1000 0625 0625 0000 0375 0375 0000 %0756 e01 006922 002165 000857 0875 0625 0625 0125 0375 0375 0000 %0757 e02 006629 001065 000397 0750 0625 0625 0250 0375 0375 0000 %0758 e03 006376 000000 000000 0625 0625 0625 0375 0375 0375 0000 %0759 e04 006170 -00979 -00327 0500 0625 0625 0500 0375 0375 0000 %0760 e05 006012 -01811 -00577 0375 0625 0625 0625 0375 0375 0000 %0761 e06 005903 -02436 -00751 0250 0625 0625 0750 0375 0375 0000 %0762 e07 005841 -02817 -00850 0125 0625 0625 0875 0375 0375 0000 %0763 e08 005816 -02974 -00890 0000 0625 0625 1000 0375 0375 0000 %0764 e09 006600 004417 002038 1000 0500 0500 0000 0500 0500 0000 %0765 f01 006212 003332 001442 0875 0500 0500 0125 0500 0500 0000 %0766 f02 005859 002212 000895 0750 0500 0500 0250 0500 0500 0000 %0767 f03 005548 001085 000409 0625 0500 0500 0375 0500 0500 0000 %0768 f04 005288 000000 000000 0500 0500 0500 0500 0500 0500 0000 %0769 f05 005086 -00968 -00321 0375 0500 0500 0625 0500 0500 0000 %0770 f06 004944 -01731 -00546 0250 0500 0500 0750 0500 0500 0000 %0771 f07 004862 -02213 -00677 0125 0500 0500 0875 0500 0500 0000 %0772 f08 004829 -02416 -00730 0000 0500 0500 1000 0500 0500 0000 %0773 f09 006049 005488 002840 1000 0375 0375 0000 0625 0625 0000 %0774 g01 005598 004461 002163 0875 0375 0375 0125 0625 0625 0000 %0775 g02 005177 003375 001521 0750 0375 0375 0250 0625 0625 0000 %0776 g03 004795 002240 000931 0625 0375 0375 0375 0625 0625 0000 %0777 g04 004465 001091 000417 0500 0375 0375 0500 0625 0625 0000 %0778 g05 004200 000000 000000 0375 0375 0375 0625 0625 0625 0000 %0779 g06 004010 -00918 -00301 0250 0375 0375 0750 0625 0625 0000 %0780 g07 003897 -01533 -00481 0125 0375 0375 0875 0625 0625 0000 %0781 g08 003852 -01801 -00554 0000 0375 0375 1000 0625 0625 0000 %0782 g09 005635 006359 003734 1000 0250 0250 0000 0750 0750 0000 %0783 h01 005125 005420 002996 0875 0250 0250 0125 0750 0750 0000 %0784 h02 004635 004416 002271 0750 0250 0250 0250 0750 0750 0000 %0785 h03 004175 003342 001579 0625 0250 0250 0375 0750 0750 0000 %0786 h04 003763 002205 000947 0500 0250 0250 0500 0750 0750 0000 %0787 h05 003417 001053 000408 0375 0250 0250 0625 0750 0750 0000 %0788 h06 003157 000000 000000 0250 0250 0250 0750 0750 0750 0000 %0789 h07 002998 -00766 -00251 0125 0250 0250 0875 0750 0750 0000 %0790 h08 002933 -01120 -00356 0000 0250 0250 1000 0750 0750 0000 %0791 h09 005380 006924 004542 1000 0125 0125 0000 0875 0875 0000 %0792 i01 004827 006065 003783 0875 0125 0125 0125 0875 0875 0000 %0793 i02 004284 005151 003015 0750 0125 0125 0250 0875 0875 0000 %0794 i03 003760 004169 002255 0625 0125 0125 0375 0875 0875 0000 %0795 i04 003272 003110 001526 0500 0125 0125 0500 0875 0875 0000 %0796 i05 002842 001987 000870 0375 0125 0125 0625 0875 0875 0000 %0797 i06 002502 000882 000342 0250 0125 0125 0750 0875 0875 0000 %0798 i07 002284 000000 000000 0125 0125 0125 0875 0875 0875 0000 %0799 i08 002191 -00437 -00146 0000 0125 0125 1000 0875 0875 0000 %0800 i09 005275 007165 004987 1000 0000 0000 0000 1000 1000 0000 %0801 j01 004702 006346 004234 0875 0000 0000 0125 1000 1000 0000 %0802 j02 004134 005481 003461 0750 0000 0000 0250 1000 1000 0000 %0803 j03 003578 004557 002678 0625 0000 0000 0375 1000 1000 0000 %0804 j04 003048 003560 001908 0500 0000 0000 0500 1000 1000 0000 %0805 j05 002569 002490 001190 0375 0000 0000 0625 1000 1000 0000 %0806 j06 002176 001399 000588 0250 0000 0000 0750 1000 1000 0000 %0807 j07 001915 000480 000180 0125 0000 0000 0875 1000 1000 0000 %0808 j08 001800 000000 000000 0000 0000 0000 1000 1000 1000 0000 %0809 j09 009540 000000 000000 1000 1000 1000 0000 0000 0000 0000 %0810 b10 008587 000564 -01435 0875 0875 1000 0125 0125 0000 0000 %0811 b11 007635 001233 -02900 0750 0750 1000 0250 0250 0000 0000 %0812 b12 006694 002033 -04377 0625 0625 1000 0375 0375 0000 0000 %0813 b13 005787 002983 -05829 0500 0500 1000 0500 0500 0000 0000 %0814 b14 004949 004067 -07190 0375 0375 1000 0625 0625 0000 0000 %0815 b15 004245 005175 -08348 0250 0250 1000 0750 0750 0000 0000 %0816 b16 003762 006059 -09149 0125 0125 1000 0875 0875 0000 0000 %0817 b17 003546 006492 -09509 0000 0000 1000 1000 1000 0000 0000 %0818 b18 009472 -00488 001419 1000 1000 0875 0000 0000 0125 0000 %0819 c10 008505 000000 000000 0875 0875 0875 0125 0125 0125 0000 %0820 c11 007535 000580 -01462 0750 0750 0875 0250 0250 0125 0000 %0821 c12 006570 001281 -02952 0625 0625 0875 0375 0375 0125 0000 %0822 c13 005629 002132 -04439 0500 0500 0875 0500 0500 0125 0000 %0823 c14 004746 003139 -05860 0375 0375 0875 0625 0625 0125 0000 %0824 c15 003987 004223 -07102 0250 0250 0875 0750 0750 0125 0000 %0825 c16 003451 005141 -07987 0125 0125 0875 0875 0875 0125 0000 %0826 c17 003205 005611 -08396 0000 0000 0875 1000 1000 0125 0000 %0827 c18 009415 -00911 002834 1000 1000 0750 0000 0000 0250 0000 %0828 d10 008436 -00493 001444 0875 0875 0750 0125 0125 0250 0000 %0829 d11 007450 000000 000000 0750 0750 0750 0250 0250 0250 0000 %0830 d12 006464 000597 -01489 0625 0625 0750 0375 0375 0250 0000 %0831 d13 005492 001334 -02996 0500 0500 0750 0500 0500 0250 0000 %0832 d14 004567 002234 -04467 0375 0375 0750 0625 0625 0250 0000 %0833 d15 003753 003257 -05787 0250 0250 0750 0750 0750 0250 0000 %0834 d16 003160 004183 -06761 0125 0125 0750 0875 0875 0250 0000 %0835 d17 002881 004683 -07224 0000 0000 0750 1000 1000 0250 0000 %0836 d18 009368 -01263 004218 1000 1000 0625 0000 0000 0375 0000 %0837 e10 008380 -00909 002876 0875 0875 0625 0125 0125 0375 0000 %0838 e11 007381 -00496 001468 0750 0750 0625 0250 0250 0375 0000 %0839 e12 006376 000000 000000 0625 0625 0625 0375 0375 0375 0000 %0840 e13 005379 000614 -01509 0500 0500 0625 0500 0500 0375 0000 %0841 e14 004416 001384 -03011 0375 0375 0625 0625 0625 0375 0000 %0842 e15 003549 002303 -04399 0250 0250 0625 0750 0750 0375 0000 %0843 e16 002898 003196 -05461 0125 0125 0625 0875 0875 0375 0000 %0844 e17 002581 003711 -05982 0000 0000 0625 1000 1000 0375 0000 %0845 e18 009332 -01544 005528 1000 1000 0500 0000 0000 0500 0000 %0846 f10 008336 -01243 004255 0875 0875 0500 0125 0125 0500 0000 %0847 f11 007326 -00900 002907 0750 0750 0500 0250 0250 0500 0000 %0848 f12 006307 -00495 001485 0625 0625 0500 0375 0375 0500 0000 %0849 f13 005288 000000 000000 0500 0500 0500 0500 0500 0500 0000 %0850 f14 004293 000625 -01509 0375 0375 0500 0625 0625 0500 0000 %0851 f15 003380 001401 -02943 0250 0250 0500 0750 0750 0500 0000 %0852 f16 002672 002209 -04082 0125 0125 0500 0875 0875 0500 0000 %0853 f17 002316 002711 -04663 0000 0000 0500 1000 1000 0500 0000 %0854 f18 009305 -01753 006696 1000 1000 0375 0000 0000 0625 0000 %0855 g10 008304 -01494 005513 0875 0875 0375 0125 0125 0625 0000 %0856 g11 007287 -01206 004253 0750 0750 0375 0250 0250 0625 0000 %0857 g12 006256 -00878 002907 0625 0625 0375 0375 0375 0625 0000 %0858 g13 005221 -00486 001481 0500 0500 0375 0500 0500 0625 0000 %0859 g14 004200 000000 000000 0375 0375 0375 0625 0625 0625 0000 %0860 g15 003248 000611 -01447 0250 0250 0375 0750 0750 0625 0000 %0861 g16 002491 001284 -02642 0125 0125 0375 0875 0875 0625 0000 %0862 g17 002098 001732 -03274 0000 0000 0375 1000 1000 0625 0000 %0863 g18 009287 -01894 007631 1000 1000 0250 0000 0000 0750 0000 %0864 h10 008282 -01664 006549 0875 0875 0250 0125 0125 0750 0000 %0865 h11 007260 -01416 005394 0750 0750 0250 0250 0250 0750 0000 %0866 h12 006222 -01143 004155 0625 0625 0250 0375 0375 0750 0000 %0867 h13 005175 -00830 002825 0500 0500 0250 0500 0500 0750 0000 %0868 h14 004137 -00457 001416 0375 0375 0250 0625 0625 0750 0000 %0869 h15 003157 000000 000000 0250 0250 0250 0750 0750 0750 0000 %0870 h16 002361 000513 -01211 0125 0125 0250 0875 0875 0750 0000 %0871 h17 001937 000872 -01876 0000 0000 0250 1000 1000 0750 0000 %0872 h18 009277 -01974 008237 1000 1000 0125 0000 0000 0875 0000 %0873 i10 008270 -01761 007240 0875 0875 0125 0125 0125 0875 0000 %0874 i11 007245 -01536 006183 0750 0750 0125 0250 0250 0875 0000 %0875 i12 006203 -01296 005052 0625 0625 0125 0375 0375 0875 0000 %0876 i13 005149 -01031 003833 0500 0500 0125 0500 0500 0875 0000 %0877 i14 004101 -00732 002527 0375 0375 0125 0625 0625 0875 0000 %0878 i15 003104 -00381 001184 0250 0250 0125 0750 0750 0875 0000 %0879 i16 002284 000000 000000 0125 0125 0125 0875 0875 0875 0000 %0880 i17 001840 000270 -00670 0000 0000 0125 1000 1000 0875 0000 %0881 i18 009274 -02006 008497 1000 1000 0000 0000 0000 1000 0000 %0882 j10 008265 -01799 007542 0875 0875 0000 0125 0125 1000 0000 %0883 j11 007239 -01584 006537 0750 0750 0000 0250 0250 1000 0000 %0884 j12 006195 -01356 005468 0625 0625 0000 0375 0375 1000 0000 %0885 j13 005139 -01112 004320 0500 0500 0000 0500 0500 1000 0000 %0886 j14 004087 -00843 003087 0375 0375 0000 0625 0625 1000 0000 %0887 j15 003083 -00541 001808 0250 0250 0000 0750 0750 1000 0000 %0888 j16 002253 -00222 000660 0125 0125 0000 0875 0875 1000 0000 %0889 j17 001800 000000 000000 0000 0000 0000 1000 1000 1000 0000 %0890 j18 009540 000000 000000 1000 1000 1000 0000 0000 0000 0000 %0891 b19 008821 001521 -01060 1000 0875 1000 0000 0125 0000 0000 %0892 b20 008140 003064 -02084 1000 0750 1000 0000 0250 0000 0000 %0893 b21 007513 004578 -03042 1000 0625 1000 0000 0375 0000 0000 %0894 b22 006961 005990 -03896 1000 0500 1000 0000 0500 0000 0000 %0895 b23 006510 007206 -04604 1000 0375 1000 0000 0625 0000 0000 %0896 b24 006179 008130 -05126 1000 0250 1000 0000 0750 0000 0000 %0897 b25 005981 008699 -05441 1000 0125 1000 0000 0875 0000 0000 %0898 b26 005900 008934 -05570 1000 0000 1000 0000 1000 0000 0000 %0899 b27 009265 -01494 001097 0875 1000 0875 0125 0000 0125 0000 %0900 c19 008505 000000 000000 0875 0875 0875 0125 0125 0125 0000 %0901 c20 007775 001550 -01077 0875 0750 0875 0125 0250 0125 0000 %0902 c21 007092 003114 -02106 0875 0625 0875 0125 0375 0125 0000 %0903 c22 006480 004619 -03045 0875 0500 0875 0125 0500 0125 0000 %0904 c23 005968 005959 -03843 0875 0375 0875 0125 0625 0125 0000 %0905 c24 005584 007012 -04446 0875 0250 0875 0125 0750 0125 0000 %0906 c25 005350 007677 -04817 0875 0125 0875 0125 0875 0125 0000 %0907 c26 005254 007955 -04971 0875 0000 0875 0125 1000 0125 0000 %0908 c27 009026 -02952 002240 0750 1000 0750 0250 0000 0250 0000 %0909 d19 008227 -01519 001119 0750 0875 0750 0250 0125 0250 0000 %0910 d20 007450 000000 000000 0750 0750 0750 0250 0250 0250 0000 %0911 d21 006711 001577 -01092 0750 0625 0750 0250 0375 0250 0000 %0912 d22 006034 003151 -02117 0750 0500 0750 0250 0500 0250 0000 %0913 d23 005452 004613 -03014 0750 0375 0750 0250 0625 0250 0000 %0914 d24 005004 005808 -03713 0750 0250 0750 0250 0750 0250 0000 %0915 d25 004725 006590 -04156 0750 0125 0750 0250 0875 0250 0000 %0916 d26 004608 006924 -04342 0750 0000 0750 0250 1000 0250 0000 %0917 d27 008826 -04323 003408 0625 1000 0625 0375 0000 0375 0000 %0918 e19 007992 -02986 002285 0625 0875 0625 0375 0125 0375 0000 %0919 e20 007170 -01542 001142 0625 0750 0625 0375 0250 0375 0000 %0920 e21 006376 000000 000000 0625 0625 0625 0375 0375 0375 0000 %0921 e22 005632 001598 -01102 0625 0500 0625 0375 0500 0375 0000 %0922 e23 004974 003155 -02102 0625 0375 0625 0375 0625 0375 0000 %0923 e24 004451 004498 -02913 0625 0250 0625 0375 0750 0375 0000 %0924 e25 004113 005419 -03444 0625 0125 0625 0375 0875 0375 0000 %0925 e26 003968 005825 -03672 0625 0000 0625 0375 1000 0375 0000 %0926 e27 008666 -05545 004562 0500 1000 0500 0500 0000 0500 0000 %0927 f19 007802 -04330 003464 0500 0875 0500 0500 0125 0500 0000 %0928 f20 006942 -03004 002325 0500 0750 0500 0500 0250 0500 0000 %0929 f21 006097 -01556 001159 0500 0625 0500 0500 0375 0500 0000 %0930 f22 005288 000000 000000 0500 0500 0500 0500 0500 0500 0000 %0931 f23 004550 001597 -01095 0500 0375 0500 0500 0625 0500 0000 %0932 f24 003940 003066 -02025 0500 0250 0500 0500 0750 0500 0000 %0933 f25 003530 004141 -02665 0500 0125 0500 0500 0875 0500 0000 %0934 f26 003349 004637 -02950 0500 0000 0500 0500 1000 0500 0000 %0935 f27 008546 -06550 005637 0375 1000 0375 0625 0000 0625 0000 %0936 g19 007658 -05469 004593 0375 0875 0375 0625 0125 0625 0000 %0937 g20 006767 -04289 003493 0375 0750 0375 0625 0250 0625 0000 %0938 g21 005880 -02986 002343 0375 0625 0375 0625 0375 0625 0000 %0939 g22 005014 -01548 001162 0375 0500 0375 0625 0500 0625 0000 %0940 g23 004200 000000 000000 0375 0375 0375 0625 0625 0625 0000 %0941 g24 003499 001530 -01043 0375 0250 0375 0625 0750 0625 0000 %0942 g25 003002 002743 -01803 0375 0125 0375 0625 0875 0625 0000 %0943 g26 002774 003340 -02158 0375 0000 0375 0625 1000 0625 0000 %0944 g27 008465 -07285 006532 0250 1000 0250 0750 0000 0750 0000 %0945 h19 007560 -06322 005564 0250 0875 0250 0750 0125 0750 0000 %0946 h20 006646 -05284 004537 0250 0750 0250 0750 0250 0750 0000 %0947 h21 005728 -04146 003445 0250 0625 0250 0750 0375 0750 0000 %0948 h22 004818 -02880 002295 0250 0500 0250 0750 0500 0750 0000 %0949 h23 003942 -01476 001117 0250 0375 0250 0750 0625 0750 0000 %0950 h24 003157 000000 000000 0250 0250 0250 0750 0750 0750 0000 %0951 h25 002571 001280 -00871 0250 0125 0250 0750 0875 0750 0000 %0952 h26 002288 001962 -01303 0250 0000 0250 0750 1000 0750 0000 %0953 h27 008418 -07724 007132 0125 1000 0125 0875 0000 0875 0000 %0954 i19 007504 -06842 006238 0125 0875 0125 0875 0125 0875 0000 %0955 i20 006577 -05906 005291 0125 0750 0125 0875 0250 0875 0000 %0956 i21 005641 -04898 004280 0125 0625 0125 0875 0375 0875 0000 %0957 i22 004703 -03793 003200 0125 0500 0125 0875 0500 0875 0000 %0958 i23 003786 -02565 002063 0125 0375 0125 0875 0625 0875 0000 %0959 i24 002942 -01234 000935 0125 0250 0125 0875 0750 0875 0000 %0960 i25 002284 000000 000000 0125 0125 0125 0875 0875 0875 0000 %0961 i26 001952 000710 -00491 0125 0000 0125 0875 1000 0875 0000 %0962 i27 008400 -07902 007394 0000 1000 0000 1000 0000 1000 0000 %0963 j19 007482 -07055 006540 0000 0875 0000 1000 0125 1000 0000 %0964 j20 006550 -06165 005639 0000 0750 0000 1000 0250 1000 0000 %0965 j21 005606 -05219 004681 0000 0625 0000 1000 0375 1000 0000 %0966 j22 004657 -04195 003655 0000 0500 0000 1000 0500 1000 0000 %0967 j23 003722 -03072 002565 0000 0375 0000 1000 0625 1000 0000 %0968 j24 002851 -01852 001461 0000 0250 0000 1000 0750 1000 0000 %0969 j25 002159 -00693 000514 0000 0125 0000 1000 0875 1000 0000 %0970 j26 001800 000000 000000 0000 0000 0000 1000 1000 1000 0000 %0971 j27 %JE260-7A, Page 41 /66, LAB*la3; cf1=1.00; nt=0.18; nx=1.0; sRGB_00_95, adapted %LAB*la3, D65, adapted, Y = 2.52 , L* = 18.01 %100 x LAB*a %#1000 x (r g b c m y 0) %nr. pos %z005275 007165 004987 %#1000 0000 0000 0000 1000 1000 0000 %0648 S19 %O1 0 %z009274 -02006 008497 %#1000 1000 0000 0000 0000 1000 0000 %0720 a19 %Y1 1 %z008400 -07902 007394 %#0000 1000 0000 1000 0000 1000 0000 %0072 I01 %L1 2 %z008713 -04444 -01314 %#0000 1000 1000 1000 0000 0000 0000 %0080 I09 %C1 3 %z003546 006492 -09509 %#0000 0000 1000 1000 1000 0000 0000 %0008 A09 %V1 4 %z005900 008934 -05570 %#1000 0000 1000 0000 1000 0000 0000 %0656 S27 %M1 5 %z001800 000000 000000 %#0000 0000 0000 1000 1000 1000 0000 %0000 A01 %N1 6 %z009540 000000 000000 %#1000 1000 1000 0000 0000 0000 0000 %0728 a27 %W1 7 %$ %z005275 007165 004987 %#1000 0000 0000 0000 1000 1000 0000 %0801 j01 %O2 0 %z009274 -02006 008497 %#1000 1000 0000 0000 0000 1000 0000 %0882 j10 %Y2 1 %z008400 -07902 007394 %#0000 1000 0000 1000 0000 1000 0000 %0963 j19 %L2 2 %z008713 -04444 -01314 %#0000 1000 1000 1000 0000 0000 0000 %0737 b09 %C2 3 %z003546 006492 -09509 %#0000 0000 1000 1000 1000 0000 0000 %0818 b18 %V2 4 %z005900 008934 -05570 %#1000 0000 1000 0000 1000 0000 0000 %0899 b27 %M2 5 %z001800 000000 000000 %#0000 0000 0000 1000 1000 1000 0000 %0809 j09 %N2 6 %z009540 000000 000000 %#1000 1000 1000 0000 0000 0000 0000 %0729 b01 %W2 7 %$ %JE260-7A, Page 42 /66, LAB*la3; cf1=1.00; nt=0.18; nx=1.0; sRGB_00_95, adapted %100 x LAB* 1000 x (r g b c m y 0) %nr. pos 001800 000000 000000 0000 0000 0000 1000 1000 1000 0000 %0972 k01 002284 000000 000000 0125 0125 0125 0875 0875 0875 0000 %0973 k02 003157 000000 000000 0250 0250 0250 0750 0750 0750 0000 %0974 k03 004200 000000 000000 0375 0375 0375 0625 0625 0625 0000 %0975 k04 005288 000000 000000 0500 0500 0500 0500 0500 0500 0000 %0976 k05 006376 000000 000000 0625 0625 0625 0375 0375 0375 0000 %0977 k06 007450 000000 000000 0750 0750 0750 0250 0250 0250 0000 %0978 k07 008505 000000 000000 0875 0875 0875 0125 0125 0125 0000 %0979 k08 009540 000000 000000 1000 1000 1000 0000 0000 0000 0000 %0980 k09 001800 000000 000000 0000 0000 0000 1000 1000 1000 0000 %0981 l01 002284 000000 000000 0125 0125 0125 0875 0875 0875 0000 %0982 l02 003157 000000 000000 0250 0250 0250 0750 0750 0750 0000 %0983 l03 004200 000000 000000 0375 0375 0375 0625 0625 0625 0000 %0984 l04 005288 000000 000000 0500 0500 0500 0500 0500 0500 0000 %0985 l05 006376 000000 000000 0625 0625 0625 0375 0375 0375 0000 %0986 l06 007450 000000 000000 0750 0750 0750 0250 0250 0250 0000 %0987 l07 008505 000000 000000 0875 0875 0875 0125 0125 0125 0000 %0988 l08 009540 000000 000000 1000 1000 1000 0000 0000 0000 0000 %0989 l09 001800 000000 000000 0000 0000 0000 1000 1000 1000 0000 %0990 m01 002284 000000 000000 0125 0125 0125 0875 0875 0875 0000 %0991 m02 003157 000000 000000 0250 0250 0250 0750 0750 0750 0000 %0992 m03 004200 000000 000000 0375 0375 0375 0625 0625 0625 0000 %0993 m04 005288 000000 000000 0500 0500 0500 0500 0500 0500 0000 %0994 m05 006376 000000 000000 0625 0625 0625 0375 0375 0375 0000 %0995 m06 007450 000000 000000 0750 0750 0750 0250 0250 0250 0000 %0996 m07 008505 000000 000000 0875 0875 0875 0125 0125 0125 0000 %0997 m08 009540 000000 000000 1000 1000 1000 0000 0000 0000 0000 %0998 m09 001800 000000 000000 0000 0000 0000 1000 1000 1000 0000 %0999 n01 002284 000000 000000 0125 0125 0125 0875 0875 0875 0000 %1000 n02 003157 000000 000000 0250 0250 0250 0750 0750 0750 0000 %1001 n03 004200 000000 000000 0375 0375 0375 0625 0625 0625 0000 %1002 n04 005288 000000 000000 0500 0500 0500 0500 0500 0500 0000 %1003 n05 006376 000000 000000 0625 0625 0625 0375 0375 0375 0000 %1004 n06 007450 000000 000000 0750 0750 0750 0250 0250 0250 0000 %1005 n07 008505 000000 000000 0875 0875 0875 0125 0125 0125 0000 %1006 n08 009540 000000 000000 1000 1000 1000 0000 0000 0000 0000 %1007 n09 001800 000000 000000 0000 0000 0000 1000 1000 1000 0000 %1008 k10 002002 000000 000000 0066 0066 0066 0933 0933 0933 0000 %1009 k11 002330 000000 000000 0133 0133 0133 0866 0866 0866 0000 %1010 k12 002776 000000 000000 0200 0200 0200 0800 0800 0800 0000 %1011 k13 003285 000000 000000 0266 0266 0266 0333 0333 0333 0000 %1012 k14 003841 000000 000000 0333 0333 0333 0666 0666 0666 0000 %1013 k15 004416 000000 000000 0400 0400 0400 0600 0600 0600 0000 %1014 k16 004991 000000 000000 0466 0466 0466 0533 0533 0533 0000 %1015 k17 005576 000000 000000 0533 0533 0533 0466 0466 0466 0000 %1016 k18 006160 000000 000000 0600 0600 0600 0400 0400 0400 0000 %1017 k19 006730 000000 000000 0666 0666 0666 0333 0333 0333 0000 %1018 k20 007314 000000 000000 0734 0734 0734 0266 0266 0266 0000 %1019 k21 007874 000000 000000 0800 0800 0800 0200 0200 0200 0000 %1020 k22 008430 000000 000000 0866 0866 0866 0133 0133 0133 0000 %1021 k23 008988 000000 000000 0933 0933 0933 0066 0066 0066 0000 %1022 k24 009540 000000 000000 1000 1000 1000 0000 0000 0000 0000 %1023 k25 001800 000000 000000 0000 0000 0000 1000 1000 1000 0000 %1024 l10 002002 000000 000000 0066 0066 0066 0933 0933 0933 0000 %1025 l11 002330 000000 000000 0133 0133 0133 0866 0866 0866 0000 %1026 l12 002776 000000 000000 0200 0200 0200 0800 0800 0800 0000 %1027 l13 003285 000000 000000 0266 0266 0266 0333 0333 0333 0000 %1028 l14 003841 000000 000000 0333 0333 0333 0666 0666 0666 0000 %1029 l15 004416 000000 000000 0400 0400 0400 0600 0600 0600 0000 %1030 l16 004991 000000 000000 0466 0466 0466 0533 0533 0533 0000 %1031 l17 005576 000000 000000 0533 0533 0533 0466 0466 0466 0000 %1032 l18 006160 000000 000000 0600 0600 0600 0400 0400 0400 0000 %1033 l19 006730 000000 000000 0666 0666 0666 0333 0333 0333 0000 %1034 l20 007314 000000 000000 0734 0734 0734 0266 0266 0266 0000 %1035 l21 007874 000000 000000 0800 0800 0800 0200 0200 0200 0000 %1036 l22 008430 000000 000000 0866 0866 0866 0133 0133 0133 0000 %1037 l23 008988 000000 000000 0933 0933 0933 0066 0066 0066 0000 %1038 l24 009540 000000 000000 1000 1000 1000 0000 0000 0000 0000 %1039 l25 001800 000000 000000 0000 0000 0000 1000 1000 1000 0000 %1040 m10 002002 000000 000000 0066 0066 0066 0933 0933 0933 0000 %1041 m11 002330 000000 000000 0133 0133 0133 0866 0866 0866 0000 %1042 m12 002776 000000 000000 0200 0200 0200 0800 0800 0800 0000 %1043 m13 003285 000000 000000 0266 0266 0266 0333 0333 0333 0000 %1044 m14 003841 000000 000000 0333 0333 0333 0666 0666 0666 0000 %1045 m15 004416 000000 000000 0400 0400 0400 0600 0600 0600 0000 %1046 m16 004991 000000 000000 0466 0466 0466 0533 0533 0533 0000 %1047 m17 005576 000000 000000 0533 0533 0533 0466 0466 0466 0000 %1048 m18 006160 000000 000000 0600 0600 0600 0400 0400 0400 0000 %1049 m19 006730 000000 000000 0666 0666 0666 0333 0333 0333 0000 %1050 m20 007314 000000 000000 0734 0734 0734 0266 0266 0266 0000 %1051 m21 007874 000000 000000 0800 0800 0800 0200 0200 0200 0000 %1052 m22 008430 000000 000000 0866 0866 0866 0133 0133 0133 0000 %1053 m23 008988 000000 000000 0933 0933 0933 0066 0066 0066 0000 %1054 m24 009540 000000 000000 1000 1000 1000 0000 0000 0000 0000 %1055 m25 001800 000000 000000 0000 0000 0000 1000 1000 1000 0000 %1056 n10 002002 000000 000000 0066 0066 0066 0933 0933 0933 0000 %1057 n11 002330 000000 000000 0133 0133 0133 0866 0866 0866 0000 %1058 n12 002776 000000 000000 0200 0200 0200 0800 0800 0800 0000 %1059 n13 003285 000000 000000 0266 0266 0266 0333 0333 0333 0000 %1060 n14 003841 000000 000000 0333 0333 0333 0666 0666 0666 0000 %1061 n15 004416 000000 000000 0400 0400 0400 0600 0600 0600 0000 %1062 n16 004991 000000 000000 0466 0466 0466 0533 0533 0533 0000 %1063 n17 005576 000000 000000 0533 0533 0533 0466 0466 0466 0000 %1064 n18 006160 000000 000000 0600 0600 0600 0400 0400 0400 0000 %1065 n19 006730 000000 000000 0666 0666 0666 0333 0333 0333 0000 %1066 n20 007314 000000 000000 0734 0734 0734 0266 0266 0266 0000 %1067 n21 007874 000000 000000 0800 0800 0800 0200 0200 0200 0000 %1068 n22 008430 000000 000000 0866 0866 0866 0133 0133 0133 0000 %1069 n23 008988 000000 000000 0933 0933 0933 0066 0066 0066 0000 %1070 n24 009540 000000 000000 1000 1000 1000 0000 0000 0000 0000 %1071 n25 001800 000000 000000 0000 0000 0000 1000 1000 1000 0000 %1072 k26 009540 000000 000000 1000 1000 1000 0000 0000 0000 0000 %1073 k27 005275 007165 004987 1000 0000 0000 0000 1000 1000 0000 %1074 l26 008713 -04444 -01314 0000 1000 1000 1000 0000 0000 0000 %1075 l27 009274 -02006 008497 1000 1000 0000 0000 0000 1000 0000 %1076 m26 003546 006492 -09509 0000 0000 1000 1000 1000 0000 0000 %1077 m27 008400 -07902 007394 0000 1000 0000 1000 0000 1000 0000 %1078 n26 005900 008934 -05570 1000 0000 1000 0000 1000 0000 0000 %1079 n27 %$ %z005275 007165 004987 %#1000 0000 0000 0000 1000 1000 0000 %1074 l26 %O3 0 %z009274 -02006 008497 %#1000 1000 0000 0000 0000 1000 0000 %1076 m26 %Y3 1 %z008400 -07902 007394 %#0000 1000 0000 1000 0000 1000 0000 %1078 n26 %L3 2 %z008713 -04444 -01314 %#0000 1000 1000 1000 0000 0000 0000 %1075 l27 %C3 3 %z003546 006492 -09509 %#0000 0000 1000 1000 1000 0000 0000 %1077 m27 %V3 4 %z005900 008934 -05570 %#1000 0000 1000 0000 1000 0000 0000 %1079 n27 %M3 5 %z001800 000000 000000 %#0000 0000 0000 1000 1000 1000 0000 %1072 k26 %N3 6 %z009540 000000 000000 %#1000 1000 1000 0000 0000 0000 0000 %1073 k27 %W3 7 %$ %z001800 000000 000000 %#0000 0000 0000 1000 1000 1000 0000 %0972 k01 %N4 6 %z009540 000000 000000 %#1000 1000 1000 0000 0000 0000 0000 %0980 k09 %W4 7 %$ %z001800 000000 000000 %#0000 0000 0000 1000 1000 1000 0000 %0981 l01 %N5 6 %z009540 000000 000000 %#1000 1000 1000 0000 0000 0000 0000 %0989 l09 %W5 7 %$ %z001800 000000 000000 %#0000 0000 0000 1000 1000 1000 0000 %0990 m01 %N6 6 %z009540 000000 000000 %#1000 1000 1000 0000 0000 0000 0000 %0998 m09 %W6 7 %$ %z001800 000000 000000 %#0000 0000 0000 1000 1000 1000 0000 %0999 n01 %N7 6 %z009540 000000 000000 %#1000 1000 1000 0000 0000 0000 0000 %1007 n09 %W7 7 %$ la3_line 8015 ] def %line 1146 or 1196 /lut 2187 array def %729x3=2187 0 3 2186 {/j exch def %j=0,2186 /j3 j 3 idiv def lut j lut0 j3 10 mul get 0.01 mul put lut j 1 add lut0 j3 10 mul 1 add get 0.01 mul put lut j 2 add lut0 j3 10 mul 2 add get 0.01 mul put } for %j=0,2186 %END LOOKUP-TABLE, 1080 colours, used for 9x9x9 Grid %********************************************************************* /Lab2RGB {%BEG Procedure Lab2RGB % --- Lab2RGB ----------------- % % --- Eingabe (stack): L* a* b* % --- Ausgabe (stack): iR iG iB ; die Indizes des LUT-Wertes mit dem geringsten Delta-E bzgl. Eingabewert % ---- : delta-E ; und das Delta-E dazu % /Zielb exch def /Ziela exch def /ZielL exch def /dE 1000 def /opt 0 def 1 1 nges { 1 sub 3 mul /ii exch def /dL lut ii get ZielL sub abs def dE dL ge { %dE>dL /da lut ii 1 add get Ziela sub abs def dE da ge { %dE>da /db lut ii 2 add get Zielb sub abs def dE db ge { %dE>db /dEneu dL dL mul da da mul db db mul add add sqrt def dE dEneu ge { % test ob dEneu < dE /dE dEneu def /opt ii def } if } if } if } if } for /opt opt 3 idiv def opt nG nB mul idiv % R auf den stack (Wertebereich real: 0-(nr-1)) opt nG nB mul mod nB idiv % G auf den stack opt nG nB mul mod nB mod % B auf den stack dEneu } def %END Procedure Lab2RGB %********************************************************************* /indexkonv {%BEG Procedure indexkonv % --- indexkonv ----------------- % % --- Eingabe (stack): iR iG iB ; Indizes eines LUT-Wertes % --- Ausgabe (stack): Position des LUT-Wertes im 1-dim Lut-Array % %errechnet aus r g b index auf stack den fortlaufenden index exch nB mul add exch nB nG mul mul add 3 mul } def %END Procedure indexkonv %********************************************************************* /set_oktant {%BEG Procedure set_oktant % --- set_oktant ----------------- % % --- Eingabe (stack): iR iG iB ; Indizes eines LUT-Wertes, % kennzeichnet die dem Ursprung entfernteste Ecke des ausgewaehlten Raumbereiches % sortierung v1->v8: RGB, RGB+1, RG+1B, RG+1B+1, usw.. % --- Ausgabe (stack): keine % /B_index exch def /G_index exch def /R_index exch def R_index G_index B_index indexkonv /tempindex exch def % /eswird R_index G_index B_index /zu tempindex /lin_v8L lut tempindex get def /lin_v8a lut tempindex 1 add get def /lin_v8b lut tempindex 2 add get def R_index G_index B_index 1 sub indexkonv /tempindex exch def % /eswird R_index G_index B_index 1 sub /zu tempindex jens /lin_v7L lut tempindex get def /lin_v7a lut tempindex 1 add get def /lin_v7b lut tempindex 2 add get def R_index G_index 1 sub B_index indexkonv /tempindex exch def /lin_v6L lut tempindex get def /lin_v6a lut tempindex 1 add get def /lin_v6b lut tempindex 2 add get def R_index G_index 1 sub B_index 1 sub indexkonv /tempindex exch def /lin_v5L lut tempindex get def /lin_v5a lut tempindex 1 add get def /lin_v5b lut tempindex 2 add get def R_index 1 sub G_index B_index indexkonv /tempindex exch def /lin_v4L lut tempindex get def /lin_v4a lut tempindex 1 add get def /lin_v4b lut tempindex 2 add get def R_index 1 sub G_index B_index 1 sub indexkonv /tempindex exch def /lin_v3L lut tempindex get def /lin_v3a lut tempindex 1 add get def /lin_v3b lut tempindex 2 add get def R_index 1 sub G_index 1 sub B_index indexkonv /tempindex exch def /lin_v2L lut tempindex get def /lin_v2a lut tempindex 1 add get def /lin_v2b lut tempindex 2 add get def R_index 1 sub G_index 1 sub B_index 1 sub indexkonv /tempindex exch def /lin_v1L lut tempindex get def /lin_v1a lut tempindex 1 add get def /lin_v1b lut tempindex 2 add get def } def %END Procedure set_oktant %********************************************************************* /L_abc {%BEG Procedure L_abc % --- L_abc ----------------- % % --- Eingabe (stack): alpha (R-Richtung) beta (G-Richtung) gamma (B-Richtung) % --- Ausgabe (stack): L* interpoliert aus LUT im aktuellen Oktanten % /gamma exch def /beta exch def /alpha exch def /alpham 1 alpha sub def /betam 1 beta sub def /gammam 1 gamma sub def lin_v8L alpha beta gamma mul mul mul lin_v7L alpha beta gammam mul mul mul add lin_v6L alpha betam gamma mul mul mul add lin_v5L alpha betam gammam mul mul mul add lin_v4L alpham beta gamma mul mul mul add lin_v3L alpham beta gammam mul mul mul add lin_v2L alpham betam gamma mul mul mul add lin_v1L alpham betam gammam mul mul mul add } def %END Procedure L_abc %********************************************************************* /a_abc {%BEG Procedure a_abc % --- a_abc ----------------- % % --- Eingabe (stack): alpha (R-Richtung) beta (G-Richtung) gamma (B-Richtung) % --- Ausgabe (stack): L* interpoliert aus LUT im aktuellen Oktanten % /gamma exch def /beta exch def /alpha exch def /alpham 1 alpha sub def /betam 1 beta sub def /gammam 1 gamma sub def lin_v8a alpha beta gamma mul mul mul lin_v7a alpha beta gammam mul mul mul add lin_v6a alpha betam gamma mul mul mul add lin_v5a alpha betam gammam mul mul mul add lin_v4a alpham beta gamma mul mul mul add lin_v3a alpham beta gammam mul mul mul add lin_v2a alpham betam gamma mul mul mul add lin_v1a alpham betam gammam mul mul mul add } def %END Procedure a_abc %********************************************************************* /b_abc {%BEG Procedure b_abc % --- b_abc ----------------- % % --- Eingabe (stack): alpha (R-Richtung) beta (G-Richtung) gamma (B-Richtung) % --- Ausgabe (stack): L* interpoliert aus LUT im aktuellen Oktanten % /gamma exch def /beta exch def /alpha exch def /alpham 1 alpha sub def /betam 1 beta sub def /gammam 1 gamma sub def lin_v8b alpha beta gamma mul mul mul lin_v7b alpha beta gammam mul mul mul add lin_v6b alpha betam gamma mul mul mul add lin_v5b alpha betam gammam mul mul mul add lin_v4b alpham beta gamma mul mul mul add lin_v3b alpham beta gammam mul mul mul add lin_v2b alpham betam gamma mul mul mul add lin_v1b alpham betam gammam mul mul mul add } def %END Procedure b_abc %********************************************************************* /Jacobi_abc {%BEG Procedure Jacobi_abc % --- Jacobi_abc ----------------- % % --- Eingabe (stack): alpha (R-Richtung) beta (G-Richtung) gamma (B-Richtung) % --- Ausgabe (stack): Jacobi Matrix an der stelle abc im aktuellen Oktanten % in der reihenfolge abcdefghi % (a b c) % (d e f) % (g h i) % /gamma exch def /beta exch def /alpha exch def /alpham 1 alpha sub def /betam 1 beta sub def /gammam 1 gamma sub def lin_v5L lin_v1L sub betam gammam mul mul lin_v6L lin_v2L sub betam gamma mul mul add lin_v7L lin_v3L sub beta gammam mul mul add lin_v8L lin_v4L sub beta gamma mul mul add lin_v3L lin_v1L sub alpham gammam mul mul lin_v4L lin_v2L sub alpham gamma mul mul add lin_v7L lin_v5L sub alpha gammam mul mul add lin_v8L lin_v6L sub alpha gamma mul mul add lin_v2L lin_v1L sub alpham betam mul mul lin_v4L lin_v3L sub alpham beta mul mul add lin_v6L lin_v5L sub alpha betam mul mul add lin_v8L lin_v7L sub alpha beta mul mul add lin_v5a lin_v1a sub betam gammam mul mul lin_v6a lin_v2a sub betam gamma mul mul add lin_v7a lin_v3a sub beta gammam mul mul add lin_v8a lin_v4a sub beta gamma mul mul add lin_v3a lin_v1a sub alpham gammam mul mul lin_v4a lin_v2a sub alpham gamma mul mul add lin_v7a lin_v5a sub alpha gammam mul mul add lin_v8a lin_v6a sub alpha gamma mul mul add lin_v2a lin_v1a sub alpham betam mul mul lin_v4a lin_v3a sub alpham beta mul mul add lin_v6a lin_v5a sub alpha betam mul mul add lin_v8a lin_v7a sub alpha beta mul mul add lin_v5b lin_v1b sub betam gammam mul mul lin_v6b lin_v2b sub betam gamma mul mul add lin_v7b lin_v3b sub beta gammam mul mul add lin_v8b lin_v4b sub beta gamma mul mul add lin_v3b lin_v1b sub alpham gammam mul mul lin_v4b lin_v2b sub alpham gamma mul mul add lin_v7b lin_v5b sub alpha gammam mul mul add lin_v8b lin_v6b sub alpha gamma mul mul add lin_v2b lin_v1b sub alpham betam mul mul lin_v4b lin_v3b sub alpham beta mul mul add lin_v6b lin_v5b sub alpha betam mul mul add lin_v8b lin_v7b sub alpha beta mul mul add } def %END Procedure Jacobi_abc %********************************************************************* /Inverse_mat {%BEG Procedure Inverse_mat % --- Inverse_mat ----------------- % % --- Eingabe (stack): Matrix in der reihenfolge abcdefghi % invertiert die Matrix (a b c) % (d e f) % (g h i) % --- Ausgabe (stack): Matrix % /i_i exch def /i_h exch def /i_g exch def /i_f exch def /i_e exch def /i_d exch def /i_c exch def /i_b exch def /i_a exch def /i_det i_a i_e i_i mul mul i_b i_d i_i mul mul sub i_a i_f i_h mul mul sub i_c i_d i_h mul mul add i_b i_f i_g mul mul add i_c i_e i_g mul mul sub def i_e i_i mul i_f i_h mul sub i_det div %a der inversen auf stack i_c i_h mul i_b i_i mul sub i_det div %b der inversen auf stack i_b i_f mul i_c i_e mul sub i_det div %c der inversen auf stack i_f i_g mul i_d i_i mul sub i_det div %d der inversen auf stack i_a i_i mul i_c i_g mul sub i_det div %e der inversen auf stack i_c i_d mul i_a i_f mul sub i_det div %f der inversen auf stack i_d i_h mul i_e i_g mul sub i_det div %g der inversen auf stack i_b i_g mul i_a i_h mul sub i_det div %h der inversen auf stack i_a i_e mul i_b i_d mul sub i_det div %i der inversen auf stack } def %END Procedure Inverse_mat %********************************************************************* /linear_finden {%BEG Procedure linear_finden % --- linear_finden ----------------- % % --- Eingabe (stack): iR iG iB ; Indizes eines LUT-Wertes, % kennzeichnet die dem Ursprung entfernteste Ecke des ausgewaehlten Raumbereiches % L* a* b* ; danach der zielpunkt als lab wert % --- Ausgabe (stack): Delta-E: Abstand zum Zielpunkt % alpha, beta, gamma die den kürzesten abstand zum gegebenen zielpunkt aufweisen % /lin_zielb exch def /lin_ziela exch def /lin_zielL exch def set_oktant /akt_a 0.5 def /akt_b 0.5 def /akt_c 0.5 def /last_L akt_a akt_b akt_c L_abc def /last_a akt_a akt_b akt_c a_abc def /last_b akt_a akt_b akt_c b_abc def /diff_L last_L lin_zielL sub def /diff_a last_a lin_ziela sub def /diff_b last_b lin_zielb sub def 0 %default rueckgabewert fuer delta-e (wird nie benutzt, aber fuer pop wichtig) 1 1 10 { pop %pop schleifenzaehler pop %pop letzes Delta-E akt_a akt_b akt_c Jacobi_abc Inverse_mat diff_b mul exch diff_a mul add exch diff_L mul add /delta_c exch def diff_b mul exch diff_a mul add exch diff_L mul add /delta_b exch def diff_b mul exch diff_a mul add exch diff_L mul add /delta_a exch def % akt_a akt_b akt_c % delta_a delta_b delta_c /akt_a akt_a delta_a sub def /akt_b akt_b delta_b sub def /akt_c akt_c delta_c sub def akt_a 0 lt {/akt_a 0 def} if akt_b 0 lt {/akt_b 0 def} if akt_c 0 lt {/akt_c 0 def} if 1 akt_a lt {/akt_a 1 def} if 1 akt_b lt {/akt_b 1 def} if 1 akt_c lt {/akt_c 1 def} if /last_L akt_a akt_b akt_c L_abc def /last_a akt_a akt_b akt_c a_abc def /last_b akt_a akt_b akt_c b_abc def /diff_L last_L lin_zielL sub def /diff_a last_a lin_ziela sub def /diff_b last_b lin_zielb sub def %/naechster %akt_a %akt_b %akt_c %last_L %last_a %last_b diff_L dup mul diff_a dup mul diff_b dup mul add add sqrt dup %Abbruch wenn Delta_e<0.1 0.1 lt {exit} if } for akt_a akt_b akt_c } def %END Procedure linear_finden %********************************************************************* /Lab2RGBinterpolation {%BEG Procedure Lab2RGBinterpolation /Ziel_b exch def /Ziel_a exch def /Ziel_L exch def Ziel_L Ziel_a Ziel_b Lab2RGB /now_delta_e exch def /B_next exch def /G_next exch def /R_next exch def /R_fin R_next nR 1 sub div def % defaults falls kein besserer wert gefunden /G_fin G_next nG 1 sub div def /B_fin B_next nB 1 sub div def -1 1 2 { R_next add /R_now exch def -1 1 2 { G_next add /G_now exch def -1 1 2 { B_next add /B_now exch def B_now 0 gt G_now 0 gt R_now 0 gt nB B_now gt nG G_now gt nR R_now gt and and and and and { R_now G_now B_now Ziel_L Ziel_a Ziel_b linear_finden /now_c exch def /now_b exch def /now_a exch def dup %rückgabe delta-e doppeln now_delta_e lt { /now_delta_e exch def /Bs0 B_now 1 sub nB 1 sub div 255 mul round 255 div def /Bs1 B_now nB 1 sub div 255 mul round 255 div def /B_fin Bs0 1 now_c sub mul Bs1 now_c mul add def /Gs0 G_now 1 sub nG 1 sub div 255 mul round 255 div def /Gs1 G_now nG 1 sub div 255 mul round 255 div def /G_fin Gs0 1 now_b sub mul Gs1 now_b mul add def /Rs0 R_now 1 sub nR 1 sub div 255 mul round 255 div def /Rs1 R_now nR 1 sub div 255 mul round 255 div def /R_fin Rs0 1 now_a sub mul Rs1 now_a mul add def } { pop } ifelse } if } for } for } for R_fin G_fin B_fin } bind def %END Procedure Lab2RGBinterpolation %**************************************************************************** %END JK0X->JE39/OUTLIN11_sRGB_00_95_D65_A3_JK0X.DAT, FP, Interpolat. 20100101 %**************************************************************************** %***************************************************************************** %BEG JK0X->JE39/OUTLIN1X.PS, ident. for NP-(*ioG), FP-files (*ioG) 20100101 %***************************************************************************** %Data (LECD, L*=18_95) /proc_LAB*ioG {%BEG Procedure proc_LAB*ioG %requires ISRL*ioG=0,1,3 /RJGBLAB* 12 array def /RJGBLAB*[ 39.92 58.74 27.99 % R CIE No.09 elementary colours in LAB, D65 81.26 -2.89 71.56 % J CIE No.10 52.23 -42.42 13.60 % G CIE No.11 30.57 1.41 -46.47 % B CIE No.12 ] def /LAB* 132 array def %12x3=36 including N,W + 16x3=48 elementary system + 16x3=48 device system /LAB*a 132 array def /LAB*Hx 13 array def %0_to_6 8_to_12 for device and elemetary colours /LAB*00 24 array def /LAB*01 24 array def /LAB*02 24 array def /LAB*03 24 array def /LAB*04 24 array def /LAB*05 24 array def /LAB*06 24 array def /LAB*07 24 array def /LAB*TE %used in file and frame [(sRGB, L*=18_95) (TLS00) (FRS06) (TSL18) (NLS00) (NLS18) (SRS18) (TLS70) (TLS00) (TLS06) (TLS11) (TLS18) (TLS27) (TLS38) (TLS52) (TLS70) (OLS00) (OLS06) (OLS11) (OLS18) (OLS27) (OLS38) (OLS52) (OLS70)] def %LECD, L*=08_95, exchange 55 lines, 141:195 or exchange 41 lines, 154:195 ISRL*ioG 0 eq { %ISRL*ioG=0 /LAB*00 [%D=Device OYLCVMO+NW %for Offset Reflective System (ORS18) %LAB* %#1000 x (r g b c m y 0) (ORS18_95A_D65_ALM) %047.94 65.31 52.07 %O 0 %090.37 -11.16 96.17 %Y 1 %050.90 -62.97 36.71 %L 2 %058.62 -30.63 -42.75 %C 3 %see TABle 1 of ISO/IEC 15775:1999-12 %025.72 31.45 -44.36 %V 4 %048.13 75.20 -6.80 %M 5 %018.01 0.50 -0.47 %N 7 %095.41 -0.99 4.76 %W 8 %From LUT 2010_01_01 %JE260-7N, Page 41 /66, LAB*la3; cf1=1.00; nt=0.18; nx=1.0; sRGB_00_95, adapted %LAB*la3, D65, adapted, Y = 2.52 , L* = 18.01 %100 x LAB*a %#1000 x (r g b c m y 0) %nr. pos 005275 007165 004987 %#1000 0000 0000 0000 1000 1000 0000 %0648 S19 %O1 0 009274 -02006 008497 %#1000 1000 0000 0000 0000 1000 0000 %0720 a19 %Y1 1 008400 -07902 007394 %#0000 1000 0000 1000 0000 1000 0000 %0072 I01 %L1 2 008713 -04444 -01314 %#0000 1000 1000 1000 0000 0000 0000 %0080 I09 %C1 3 003546 006492 -09509 %#0000 0000 1000 1000 1000 0000 0000 %0008 A09 %V1 4 005900 008934 -05570 %#1000 0000 1000 0000 1000 0000 0000 %0656 S27 %M1 5 001800 000000 000000 %#0000 0000 0000 1000 1000 1000 0000 %0000 A01 %N1 6 009540 000000 000000 %#1000 1000 1000 0000 0000 0000 0000 %0728 a27 %W1 7 %$ %z005275 007165 004987 %#1000 0000 0000 0000 1000 1000 0000 %0801 j01 %O2 0 %z009274 -02006 008497 %#1000 1000 0000 0000 0000 1000 0000 %0882 j10 %Y2 1 %z008400 -07902 007394 %#0000 1000 0000 1000 0000 1000 0000 %0963 j19 %L2 2 %z008713 -04444 -01314 %#0000 1000 1000 1000 0000 0000 0000 %0737 b09 %C2 3 %z003546 006492 -09509 %#0000 0000 1000 1000 1000 0000 0000 %0818 b18 %V2 4 %z005900 008934 -05570 %#1000 0000 1000 0000 1000 0000 0000 %0899 b27 %M2 5 %z001800 000000 000000 %#0000 0000 0000 1000 1000 1000 0000 %0809 j09 %N2 6 %z009540 000000 000000 %#1000 1000 1000 0000 0000 0000 0000 %0729 b01 %W2 7 %$ %JE260-7N, Page 41 /66, LAB*la3; cf1=1.00; nt=0.18; nx=1.0; sRGB_00_95, adapted %LAB*la3, D65, adapted, Y = 2.52 , L* = 18.01 %100 x LAB*a %#1000 x (r g b c m y 0) %nr. pos %z005275 007165 004987 %#1000 0000 0000 0000 1000 1000 0000 %0648 S19 %O1 0 %z009274 -02006 008497 %#1000 1000 0000 0000 0000 1000 0000 %0720 a19 %Y1 1 %z008400 -07902 007394 %#0000 1000 0000 1000 0000 1000 0000 %0072 I01 %L1 2 %z008713 -04444 -01314 %#0000 1000 1000 1000 0000 0000 0000 %0080 I09 %C1 3 %z003546 006492 -09509 %#0000 0000 1000 1000 1000 0000 0000 %0008 A09 %V1 4 %z005900 008934 -05570 %#1000 0000 1000 0000 1000 0000 0000 %0656 S27 %M1 5 %z001800 000000 000000 %#0000 0000 0000 1000 1000 1000 0000 %0000 A01 %N1 6 %z009540 000000 000000 %#1000 1000 1000 0000 0000 0000 0000 %0728 a27 %W1 7 %$ %z005275 007165 004987 %#1000 0000 0000 0000 1000 1000 0000 %0801 j01 %O2 0 %z009274 -02006 008497 %#1000 1000 0000 0000 0000 1000 0000 %0882 j10 %Y2 1 %z008400 -07902 007394 %#0000 1000 0000 1000 0000 1000 0000 %0963 j19 %L2 2 %z008713 -04444 -01314 %#0000 1000 1000 1000 0000 0000 0000 %0737 b09 %C2 3 %z003546 006492 -09509 %#0000 0000 1000 1000 1000 0000 0000 %0818 b18 %V2 4 %z005900 008934 -05570 %#1000 0000 1000 0000 1000 0000 0000 %0899 b27 %M2 5 %z001800 000000 000000 %#0000 0000 0000 1000 1000 1000 0000 %0809 j09 %N2 6 %z009540 000000 000000 %#1000 1000 1000 0000 0000 0000 0000 %0729 b01 %W2 7 %$ ] def %OYLCVMO+NW /LAB*01 [%D=Device OYLCVMO+NW %for Television Luminous System (TLS00) 50.50 76.92 64.55 %O 0 92.66 -20.70 90.75 %Y 1 83.63 -82.76 79.90 %L 2 86.88 -46.17 -13.56 %C 3 %see TABle 1 of ISO/IEC 15775:1999-12 30.39 76.06 -103.6 %V 4 corected 57.30 94.35 -58.42 %M 5 corected 00.01 0.00 0.00 %N 7 corected 95.41 0.00 0.00 %W 8 ] def %OYLCVMO+NW /LAB*02 [%D=Device OYLCVMO+NW %for Device Reflective System (FRS06. FUJI) 32.57 61.14 43.72 %8-0-0 O-W 0 olv* setrgbcolor 64 82.73 -3.51 109.24 %8-8-0 Y-W 1 olv* setrgbcolor 32 39.43 -62.87 42.80 %0-8-0 L-W 2 olv* setrgbcolor 80 47.86 -27.73 -37.62 %0-8-8 C-W 3 olv* setrgbcolor 0 actual printer 10.16 53.56 -62.92 %0-0-8 V-W 4 olv* setrgbcolor 96 34.50 79.53 -36.77 %8-0-8 M-W 5 olv* setrgbcolor 16 06.25 -1.63 -1.73 %0-0-0 N-W 6 olv* setrgbcolor 48 91.97 -0.18 -5.11 %8-8-8 A-W 7 olv* setrgbcolor ] def %OYLCVMO+NW /LAB*03 [%D=Device OYLCVMO+NW %for Television Luminous System (TLS18) 52.76 71.63 49.88 %O 0 92.74 -20.03 84.97 %Y 1 84.00 -78.99 73.94 %L 2 87.14 -44.42 -13.12 %C 3 %see TABle 1 of ISO/IEC 15775:1999-12 35.47 64.92 -95.07 %V 4 %see TABle X of ISO/IEC TR 24705:2005-10 59.01 89.33 -55.68 %M 5 %see Annex A, www.ps.bam.de/RLABE.PDF 18.01 0.00 0.00 %N 6 Yr=2.52 95.41 0.00 0.00 %W 7 ] def %OYLCVMO+NW /LAB*04 [%Natural symmetric Luminous System OYLCVMO+NW (NLS00) 31.81 82.62 47.70 %O 0 95.40/2 = 47.70 63.61 00.00 95.40 %Y 1 C*ab = 95.40 31.81 -82.62 47.70 %L 2 0.866 C*ab = 0.866 * 95.40 = 82.62 63.61 -82.62 -47.70 %C 3 delta L*=25.8 31.81 00.00 -95.40 %V 4 43.81=00.01+31.80 63.61 82.62 -47.70 %M 5 69.61=00.01+2*31.80 00.01 0.00 0.00 %N 6 95.40/3 = 31.80 95.41 0.00 0.00 %W 7 95.40*(2/3) = 63.60 ] def %CVMOYLC+NW /LAB*05 [%Natural symmetric Luminous System OYLCVMO+NW (NLS18) 43.81 67.03 38.70 %O 0 77.40/2 = 38.70 69.61 00.00 77.40 %Y 1 C*ab = 77.40 43.81 -67.03 38.70 %L 2 0.866 C*ab = 67.03 69.61 -67.03 -38.70 %C 3 delta L*=25.8 43.81 00.00 -77.40 %V 4 43.81=18.01+25.80 69.61 67.03 -38.70 %M 5 69.61=18.01+2*25.80 18.01 0.00 0.00 %N 6 18.01+77.40/3 = 18.01+25.80=43.81 95.41 0.00 0.00 %W 7 18.01+77.40*(2/3) = 18.01+51.60=69.61 ] def %CVMOYLC+NW /LAB*06 [%Symmetric Reflective System OYLCVMO+NW (SRS18) 56.71 67.03 38.70 %O 0 18.01 + 77.40*0.5 = 18.01 + 38.70 = 56.71 56.71 00.00 77.40 %Y 1 C*ab = 77.40 56.71 -67.03 38.70 %L 2 0.866 C*ab = 67.03 56.71 -67.03 -38.70 %C 3 delta L*=25.8 56.71 00.00 -77.40 %V 4 43.81=18.01+25.80 56.71 67.03 -38.70 %M 5 69.61=18.01+2*25.80 18.01 0.00 0.00 %N 6 95.41 0.00 0.00 %W 7 95.41=18.01+3*25.80 ] def %CVMOYLC+NW /LAB*07 [%D=Device OYLCVMO+NW %for Television Luminous System (TLS70) 76.43 26.27 10.57 %O 0 93.93 -10.77 34.63 %Y 1 89.32 -35.81 27.64 %L 2 90.93 -21.96 -7.08 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 72.10 15.76 -35.64 %V 4 78.50 37.52 -25.24 %M 5 69.70 0.00 0.00 %N 6 Yr=40.32 95.41 0.00 0.00 %W 7 ] def %OYLCVMO+NW } if %ISRL*ioG=0 ISRL*ioG 1 eq { %ISRL*ioG=1 /LAB*00 [%D=Device CVMOYLC+NW %for Television Luminous System (TLS00) 50.50 76.91 64.55 %O 0 92.66 -20.68 90.75 %Y 1 83.62 -82.74 79.90 %L 2 86.88 -46.15 -13.54 %C 3 %see TABle 1 of ISO/IEC 15775:1999-12 30.39 76.06 -103.6 %V 4 %see TABle X of ISO/IEC TR 24705:2005-10 57.31 94.35 -58.40 %M 5 %see Annex A, www.ps.bam.de/RLABE.PDF 00.01 0.00 0.00 %N 6 Yr=0.00 95.41 0.00 0.00 %W 7 ] def %CVMOYLC+NW /LAB*01 [%D=Device CVMOYLC+NW %for Television Luminous System (TLS06) 51.08 75.54 59.69 %O 0 92.68 -20.51 89.24 %Y 1 83.72 -81.79 78.32 %L 2 86.94 -45.72 -13.43 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 31.77 72.91 -101.3 %V 4 57.74 93.06 -57.71 %M 5 05.69 0.00 0.00 %N 6 Yr=0.63 95.41 0.00 0.00 %W 7 ] def %CVMOYLC+NW /LAB*02 [%D=Device CVMOYLC+NW %for Television Luminous System (TLS11) 51.65 74.20 55.83 %O 0 92.70 -20.35 87.77 %Y 1 83.81 -80.85 76.81 %L 2 87.01 -45.28 -13.33 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 33.06 70.03 -99.09 %V 4 58.17 91.80 -57.03 %M 5 10.99 0.00 0.00 %N 6 Yr=1.26 95.41 0.00 0.00 %W 7 ] def %CVMOYLC+NW /LAB*03 [%D=Device CVMOYLC+NW %for Television Luminous System (TLS18) 52.76 71.63 49.88 %O 0 92.74 -20.03 84.97 %Y 1 84.00 -78.99 73.94 %L 2 87.14 -44.42 -13.12 %C 3 %see TABle 1 of ISO/IEC 15775:1999-12 35.47 64.92 -95.07 %V 4 %see TABle X of ISO/IEC TR 24705:2005-10 59.01 89.33 -55.68 %M 5 %see Annex A, www.ps.bam.de/RLABE.PDF 18.01 0.00 0.00 %N 6 Yr=2.52 95.41 0.00 0.00 %W 7 ] def %CVMOYLC+NW /LAB*04 [%D=Device CVMOYLC+NW %for Television Luminous System (TLS27) 54.88 66.84 41.69 %O 0 92.82 -19.39 79.81 %Y 1 84.37 -75.39 68.76 %L 2 87.40 -42.72 -12.70 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 39.70 56.66 -88.02 %V 4 60.64 84.61 -53.08 %M 5 26.85 0.00 0.00 %N 6 Yr=5.04 95.41 0.00 0.00 %W 7 ] def %CVMOYLC+NW /LAB*05 [%D=Device CVMOYLC+NW %for Television Luminous System (TLS38) 58.77 58.45 31.73 %O 0 92.98 -18.11 70.81 %Y 1 85.11 -68.58 60.02 %L 2 87.92 -39.42 -11.87 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 46.64 44.93 -76.56 %V 4 63.71 75.92 -48.22 %M 5 37.99 0.00 0.00 %N 6 Yr=10.08 95.41 0.00 0.00 %W 7 ] def %CVMOYLC+NW /LAB*06 [%D=Device CVMOYLC+NW %for Television Luminous System (TLS52) 65.53 45.06 20.98 %O 0 93.30 -15.61 56.27 %Y 1 86.55 -56.31 46.52 %L 2 88.94 -33.19 -10.24 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 57.17 30.66 -59.40 %V 4 69.22 60.95 -39.57 %M 5 52.02 0.00 0.00 %N 6 Yr=20.16 95.41 0.00 0.00 %W 7 ] def %CVMOYLC+NW /LAB*07 [%D=Device CVMOYLC+NW %for Television Luminous System (TLS70) 76.43 26.27 10.57 %O 0 93.93 -10.77 34.63 %Y 1 89.32 -35.81 27.64 %L 2 90.93 -21.96 -7.08 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 72.10 15.76 -35.64 %V 4 78.50 37.52 -25.24 %M 5 69.70 0.00 0.00 %N 6 Yr=40.32 95.41 0.00 0.00 %W 7 ] def %CVMOYLC+NW } if %ISRL*ioG=1 ISRL*ioG 2 eq { %ISRL*ioG=2 /LAB*00 [%D=Device OYLCVMO+NW %for Offset Luminous System (OLS00) 45.14 71.37 75.54 %O 0 90.22 -10.60 99.51 %Y 1 48.45 -73.19 42.21 %L 2 56.88 -33.11 -47.41 %C 3 %see TABle 1 of ISO/IEC 15775:1999-12 16.48 45.84 -56.22 %V 4 %see TABle X of ISO/IEC TR 24705:2005-10 45.36 81.85 -9.29 %M 5 %see Annex A, www.ps.bam.de/RLABE.PDF 00.01 0.00 0.00 %N 6 Yr=0.00 95.41 0.00 0.00 %W 7 ] def %OYLCVMO+NW /LAB*01 [%D=Device OYLCVMO+NW %for Offset Luminous System (OLS06) 45.87 69.79 66.99 %O 0 90.25 -10.51 97.42 %Y 1 49.08 -70.28 40.08 %L 2 57.33 -32.38 -46.80 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 19.26 40.73 -52.47 %V 4 46.07 80.12 -9.04 %M 5 05.69 0.00 0.00 %N 6 Yr=0.63 95.41 0.00 0.00 %W 7 ] def %OYLCVMO+NW /LAB*02 [%D=Device OYLCVMO+NW %for Offset Luminous System (OLS11) 46.57 68.27 59.62 %O 0 90.29 -10.43 95.45 %Y 1 49.70 -67.60 38.19 %L 2 57.76 -31.68 -46.19 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 21.67 36.81 -49.37 %V 4 46.77 78.45 -8.80 %M 5 10.99 0.00 0.00 %N 6 Yr=1.26 95.41 0.00 0.00 %W 7 ] def %OYLCVMO+NW /LAB*03 [%D=Device OYLCVMO+NW %for Offset Luminous System (OLS18) 47.94 65.39 50.52 %O 0 90.37 -10.26 91.75 %Y 1 50.90 -62.83 34.96 %L 2 58.62 -30.34 -45.01 %C 3 %see TABle 1 of ISO/IEC 15775:1999-12 25.72 31.10 -44.40 %V 4 %see TABle X of ISO/IEC TR 24705:2005-10 48.13 75.28 -8.36 %M 5 %see Annex A, www.ps.bam.de/RLABE.PDF 18.01 0.00 0.00 %N 6 Yr=2.52 95.41 0.00 0.00 %W 7 ] def %OYLCVMO+NW /LAB*04 [%D=Device OYLCVMO+NW %for Offset Luminous System (OLS27) 50.51 60.17 40.13 %O 0 90.52 -9.92 85.20 %Y 1 53.18 -55.04 30.00 %L 2 60.28 -27.91 -42.75 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 32.06 24.02 -37.32 %V 4 50.68 69.50 -7.57 %M 5 26.85 0.00 0.00 %N 6 Yr=5.04 95.41 0.00 0.00 %W 7 ] def %OYLCVMO+NW /LAB*05 [%D=Device OYLCVMO+NW %for Offset Luminous System (OLS38) 55.13 51.42 29.16 %O 0 90.83 -9.25 74.37 %Y 1 57.35 -43.84 23.35 %L 2 63.39 -23.83 -38.56 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 41.26 16.67 -28.49 %V 4 55.27 59.74 -6.32 %M 5 37.99 0.00 0.00 %N 6 Yr=10.08 95.41 0.00 0.00 %W 7 ] def %OYLCVMO+NW /LAB*06 [%D=Device OYLCVMO+NW %for Offset Luminous System (OLS52) 62.90 38.38 18.55 %O 0 91.44 -7.95 57.91 %Y 1 64.49 -30.06 15.67 %L 2 68.98 -17.74 -31.24 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 53.87 10.09 -18.84 %V 4 63.00 44.96 -4.56 %M 5 52.02 0.00 0.00 %N 6 Yr=20.16 95.41 0.00 0.00 %W 7 ] def %OYLCVMO+NW /LAB*07 [%D=Device OYLCVMO+NW %for Offset Luminous System (OLS70) 75.01 21.53 9.07 %O 0 92.64 -5.45 34.85 %Y 1 75.86 -15.50 7.96 %L 2 78.37 -9.90 -19.51 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 70.54 4.74 -9.47 %V 4 75.07 25.47 -2.46 %M 5 69.70 0.00 0.00 %N 6 Yr=40.32 95.41 0.00 0.00 %W 7 ] def %OYLCVMO+NW } if %ISRL*ioG=2 0 1 11 {/sISO exch def %sISO=0,11 /i30 sISO 3 mul def /i31 i30 1 add def /i32 i30 2 add def sISO 7 le { %sISO=0,7 ISIO*ioG 0 eq { %ORS18/TLS00/OLS00 LAB* i30 LAB*00 i30 get 100 div put LAB* i31 LAB*00 i31 get 100 div put LAB* i32 LAB*00 i32 get 100 div put } if ISIO*ioG 1 eq { %TLS00/TLS06/OLS06 LAB* i30 LAB*01 i30 get put LAB* i31 LAB*01 i31 get put LAB* i32 LAB*01 i32 get put } if ISIO*ioG 2 eq { %FRS06/TLS11/OLS11 LAB* i30 LAB*02 i30 get put LAB* i31 LAB*02 i31 get put LAB* i32 LAB*02 i32 get put } if ISIO*ioG 3 eq { %TLS18/TLS18/OLS18 LAB* i30 LAB*03 i30 get put LAB* i31 LAB*03 i31 get put LAB* i32 LAB*03 i32 get put } if ISIO*ioG 4 eq { %NLS00/TSL28/OLS28 LAB* i30 LAB*04 i30 get put LAB* i31 LAB*04 i31 get put LAB* i32 LAB*04 i32 get put } if ISIO*ioG 5 eq { %NRS18/TLS38/OLS38 LAB* i30 LAB*05 i30 get put LAB* i31 LAB*05 i31 get put LAB* i32 LAB*05 i32 get put } if ISIO*ioG 6 eq { %SRS18/TLS50/OLS50 LAB* i30 LAB*06 i30 get put LAB* i31 LAB*06 i31 get put LAB* i32 LAB*06 i32 get put } if ISIO*ioG 7 eq { %TLS70/TLS70/OLS70 LAB* i30 LAB*07 i30 get put LAB* i31 LAB*07 i31 get put LAB* i32 LAB*07 i32 get put } if } %sISO=0,7 {%sISO=8,11 %Definition 8 to 11 (24 to 35=33+2) /jISO sISO 8 sub def /j30 jISO 3 mul def /j31 j30 1 add def /j32 j30 2 add def LAB* i30 RJGBLAB* j30 get put LAB* i31 RJGBLAB* j31 get put LAB* i32 RJGBLAB* j32 get put LAB*a i30 LAB* i30 get put LAB*a i31 LAB* i31 get put LAB*a i32 LAB* i32 get put } ifelse } for %sISO=0,11 % possible change of LAB*a according to reduced gamut %LAB* = 20 for Black N %LAB* = 95 for White W %cfakt = (95 - 20)/(95.41 - 18.01) = 0.969 %LAB*L*Nn = 20 for Black N instead of LAB*L*N = 18,01 %LAB*L*Wn = 95 for White W instead of LAB*L*W = 95,41 %LAB*L*Zn = 20+(95-20)/2=57,5 for Grey Z instead of %LAB*L*Z = 18,01+(95,41-18,01)/2=56,71 %L*neu = L*alt + (1 - cfakt %For achromatic %deltaLmean = 57,5 (1-c*neu); 56,71 (1-c*alt) %deltaLmimu = 20,0 (1-c*neu); 18,01 (1-c*alt) %deltaLplus = 95,0 (1-c*neu); 95,41 (1-c*alt) %For chromatic M %deltaLmean = L*Ma,neu; L*Ma,alt = known %C*Ma,alt known, C*Ma,neu known /L*Nio LAB* 18 get def /A*Nio LAB* 19 get def /B*Nio LAB* 20 get def /L*Wio LAB* 21 get def /A*Wio LAB* 22 get def /B*Wio LAB* 23 get def /L*Wioref 95.0 def /L*Nioref 18.0 def /cfakt 1 def %/cfakt L*Wioref L*Nioref sub L*Wio L*Nio sub div def cfakt 1 ne {%cfakt#1 %change of lightness for Maximum colour /l*CIEN L*Nioref L*Nio sub L*Wio L*Nio sub div def /l*CIEW L*Wioref L*Nio sub L*Wio L*Nio sub div def %LAB* 18 L*Nioref put %defined change of lightness and chroma a*,b* for N LAB* 19 A*Nio A*Wio A*Nio sub l*CIEN mul add put LAB* 20 B*Nio B*Wio B*Nio sub l*CIEN mul add put %LAB* 21 L*Wioref put %defined change of lightness and chroma a*,b* for W LAB* 22 A*Nio A*Wio A*Nio sub l*CIEW mul add put LAB* 23 B*Nio B*Wio B*Nio sub l*CIEW mul add put %change of chroma by factor cfakt 0 1 07 {/iISO exch def /i30 iISO 3 mul def /i31 i30 1 add def /i32 i30 2 add def /l*CIEL LAB* i30 get L*Nio sub L*Wio L*Nio sub div def LAB* i30 L*Nioref L*Wioref L*Nioref sub l*CIEL mul add put LAB* i31 LAB* i31 get cfakt mul put LAB* i32 LAB* i32 get cfakt mul put } for } if %cfakt#1 /L*Nior LAB* 18 get def %r=reference for reverse transform /A*Nior LAB* 19 get def /B*Nior LAB* 20 get def /L*Wior LAB* 21 get def /A*Wior LAB* 22 get def /B*Wior LAB* 23 get def /cf1 1.00 def 0 1 7 {/iISO exch def %iISO=0,7 /i30 iISO 3 mul def /i31 i30 1 add def /i32 i30 2 add def /l*CIE LAB* i30 get L*Nior sub L*Wior L*Nior sub div def /a*sr A*Wior A*Nior sub l*CIE mul def /b*sr B*Wior B*Nior sub l*CIE mul def /L*Z L*Nior L*Wior L*Nior sub 0.5 mul add def LAB*a i30 LAB* i30 get iISO 7 le {L*Z sub cf1 mul L*Z add} if put LAB*a i31 LAB* i31 get A*Nior sub a*sr sub cf1 mul put LAB*a i32 LAB* i32 get B*Nior sub b*sr sub cf1 mul put } for /L*Nio LAB*a 18 get def %=18.01 /A*Nio LAB*a 19 get def %=0 /B*Nio LAB*a 20 get def %=0 /L*Wio LAB*a 21 get def %=95.41 /A*Wio LAB*a 22 get def %=0 /B*Wio LAB*a 23 get def %=0 /A*Dio A*Wio A*Nio sub def %=0 /B*Dio B*Wio B*Nio sub def %=0 /cLAB*s0 3 array def %C cyan blue /vLAB*s0 3 array def %V violet blue /mLAB*s0 3 array def %M magenta red /oLAB*s0 3 array def %O orange red /yLAB*s0 3 array def %Y yellow /lLAB*s0 3 array def %L leaf green /nLAB*s0 3 array def %N black /wLAB*s0 3 array def %W white /rLAB*s0 3 array def %R elementary red /jLAB*s0 3 array def %J elementary yellow /gLAB*s0 3 array def %G elementary green /bLAB*s0 3 array def %B elementary blue %Determine Matrix data input or output data oLAB*s0 0 LAB*a 0 get L*Nio sub put oLAB*s0 1 LAB*a 1 get put oLAB*s0 2 LAB*a 2 get put yLAB*s0 0 LAB*a 3 get L*Nio sub put yLAB*s0 1 LAB*a 4 get put yLAB*s0 2 LAB*a 5 get put lLAB*s0 0 LAB*a 6 get L*Nio sub put lLAB*s0 1 LAB*a 7 get put lLAB*s0 2 LAB*a 8 get put cLAB*s0 0 LAB*a 9 get L*Nio sub put cLAB*s0 1 LAB*a 10 get put cLAB*s0 2 LAB*a 11 get put vLAB*s0 0 LAB*a 12 get L*Nio sub put vLAB*s0 1 LAB*a 13 get put vLAB*s0 2 LAB*a 14 get put mLAB*s0 0 LAB*a 15 get L*Nio sub put mLAB*s0 1 LAB*a 16 get put mLAB*s0 2 LAB*a 17 get put nLAB*s0 0 LAB*a 18 get L*Nio sub put nLAB*s0 1 LAB*a 19 get put nLAB*s0 2 LAB*a 20 get put wLAB*s0 0 LAB*a 21 get L*Nio sub put wLAB*s0 1 LAB*a 22 get put wLAB*s0 2 LAB*a 23 get put rLAB*s0 0 LAB*a 24 get L*Nio sub put rLAB*s0 1 LAB*a 25 get put rLAB*s0 2 LAB*a 26 get put jLAB*s0 0 LAB*a 27 get L*Nio sub put jLAB*s0 1 LAB*a 28 get put jLAB*s0 2 LAB*a 29 get put gLAB*s0 0 LAB*a 30 get L*Nio sub put gLAB*s0 1 LAB*a 31 get put gLAB*s0 2 LAB*a 32 get put bLAB*s0 0 LAB*a 33 get L*Nio sub put bLAB*s0 1 LAB*a 34 get put bLAB*s0 2 LAB*a 35 get put % Determine the input or output angle in the A* B* plane % of each of the colours defined above /C*Ang cLAB*s0 2 get cLAB*s0 1 get 0.0001 add atan def /V*Ang vLAB*s0 2 get vLAB*s0 1 get 0.0001 add atan def /M*Ang mLAB*s0 2 get mLAB*s0 1 get 0.0001 add atan def /O*Ang oLAB*s0 2 get oLAB*s0 1 get 0.0001 add atan def /Y*Ang yLAB*s0 2 get yLAB*s0 1 get 0.0001 add atan def /L*Ang lLAB*s0 2 get mLAB*s0 1 get 0.0001 add atan def /N*Ang 0 def /W*Ang 0 def /R*Ang rLAB*s0 2 get rLAB*s0 1 get 0.0001 add atan def /J*Ang jLAB*s0 2 get jLAB*s0 1 get 0.0001 add atan def /G*Ang gLAB*s0 2 get gLAB*s0 1 get 0.0001 add atan def /B*Ang bLAB*s0 2 get bLAB*s0 1 get 0.0001 add atan def %6+1 hue angles for 6 device colour (index 0 to 06) %4+1 hue angles for 4 elementary colours (index 8 to 12) %no. 6 and 7 originaly achromatic 0 1 11 {/iHx exch def /i1x iHx 3 mul 1 add def /i2x i1x 1 add def LAB*Hx iHx LAB*a i2x get LAB*a i1x get 0.000001 add atan put } for LAB*Hx 06 LAB*Hx 00 get 360 add put LAB*Hx 12 LAB*Hx 08 get 360 add put %6 Hue angles of elementary and intermediate colours e=RJGCgbBMbr /LAB*He 7 array def LAB*He 0 LAB*Hx 08 get put %R LAB*He 1 LAB*Hx 09 get put %J LAB*He 2 LAB*Hx 10 get put %G LAB*He 3 LAB*Hx 10 get LAB*Hx 11 get add 0.5 mul put %Cgb LAB*He 4 LAB*Hx 11 get put %B LAB*He 5 LAB*Hx 11 get LAB*Hx 08 get 360 add add 0.5 mul put %Mbr LAB*He 6 LAB*Hx 08 get 360 add put %R(+360) %6 Hue angles of device and intermediate colours d=OYLCVMO /LAB*Hd 7 array def LAB*Hd 0 LAB*Hx 00 get put %O LAB*Hd 1 LAB*Hx 01 get put %Y LAB*Hd 2 LAB*Hx 02 get put %L LAB*Hd 3 LAB*Hx 03 get put %C LAB*Hd 4 LAB*Hx 04 get put %V LAB*Hd 5 LAB*Hx 05 get put %M LAB*Hd 6 LAB*Hx 00 get 360 add put %O(+360) /ColeiNames 16 array def /ColeiNames [(r00j) (r25j) (r50j) (r75j) (j00g) (j25g) (j50g) (j75g) (g00b) (g25b) (g50b) (g75b) (b00r) (b25r) (b50r) (b75r) ] def /ColdiNames 16 array def /ColdiNames [(o00y) (o25y) (o50y) (o75y) (y00l) (y25l) (y50l) (y75l) (l00c) (l50c) (c00v) (c50v) (v00m) (v50m) (m00o) (m50o) ] def /L*diMa 16 array def %LAB*diMa /A*diMa 16 array def /B*diMa 16 array def /o3*ddiMa 16 array def %olv3*ddiMa /l3*ddiMa 16 array def /v3*ddiMa 16 array def /u*ddiMa1 16 array def %u*ddiMax /u*ddiMai 16 array def /u*ddiMa2 16 array def /o3*deiMa 16 array def %olv3*deiMa /l3*deiMa 16 array def /v3*deiMa 16 array def /u*deiMa1 16 array def %u*deiMax /u*deiMai 16 array def /u*deiMa2 16 array def /L*eiMa 16 array def %LAB*eiMa /A*eiMa 16 array def /B*eiMa 16 array def /o3*eeiMa 16 array def %olv3*eeiMa /l3*eeiMa 16 array def /v3*eeiMa 16 array def /u*eeiMa1 16 array def %u*eeiMax /u*eeiMai 16 array def /u*eeiMa2 16 array def /o3*ediMa 16 array def %olv3*ediMa /l3*ediMa 16 array def /v3*ediMa 16 array def /u*ediMa1 16 array def %u*ediMax /u*ediMai 16 array def /u*ediMa2 16 array def %/L*xiMa 16 array def %LAB*xiMa x=d/e %/A*xiMa 16 array def %/B*xiMa 16 array def %/o3*xxiMa 16 array def %olv3*xxiMa xx=dd/ee %/l3*xxiMa 16 array def %/v3*xxiMa 16 array def /u*xxiMa1 16 array def %u*xxiMax xx=dd/ee /u*xxiMai 16 array def /u*xxiMa2 16 array def %/o3*xyiMa 16 array def %olv3*xxiMa xy=de/ed %/l3*xyiMa 16 array def %/v3*xyiMa 16 array def %/u*xyiMa1 16 array def %u*xxiMax xy=de/ed %/u*xyiMai 16 array def %/u*xyiMa2 16 array def %Definition LAB*diMa, olv3*deiMa, u*deiMax (all 00 to 15) by equal device (d) hue angle difference %between O and Y, Y and L, L and C, C and V, V and M, and M and O %Definition of OYLCVMO, 4 steps between OYL, 2 steps between LCVMO 0 1 15 {/iinx exch def %iinx=0,15 %define device hue angle H*M of 16 hues iinx 00 eq {/H*M LAB*a 0 3 mul 2 add get LAB*a 0 3 mul 1 add get atan def} if iinx 01 eq {/H*M LAB*a 0 3 mul 2 add get LAB*a 0 3 mul 1 add get atan 0.75 mul LAB*a 1 3 mul 2 add get LAB*a 1 3 mul 1 add get atan 0.25 mul add def} if iinx 02 eq {/H*M LAB*a 0 3 mul 2 add get LAB*a 0 3 mul 1 add get atan 0.50 mul LAB*a 1 3 mul 2 add get LAB*a 1 3 mul 1 add get atan 0.50 mul add def} if iinx 03 eq {/H*M LAB*a 0 3 mul 2 add get LAB*a 0 3 mul 1 add get atan 0.25 mul LAB*a 1 3 mul 2 add get LAB*a 1 3 mul 1 add get atan 0.75 mul add def} if iinx 04 eq {/H*M LAB*a 1 3 mul 2 add get LAB*a 1 3 mul 1 add get atan def} if iinx 05 eq {/H*M LAB*a 1 3 mul 2 add get LAB*a 1 3 mul 1 add get atan 0.75 mul LAB*a 2 3 mul 2 add get LAB*a 2 3 mul 1 add get atan 0.25 mul add def} if iinx 06 eq {/H*M LAB*a 1 3 mul 2 add get LAB*a 1 3 mul 1 add get atan 0.50 mul LAB*a 2 3 mul 2 add get LAB*a 2 3 mul 1 add get atan 0.50 mul add def} if iinx 07 eq {/H*M LAB*a 1 3 mul 2 add get LAB*a 1 3 mul 1 add get atan 0.25 mul LAB*a 2 3 mul 2 add get LAB*a 2 3 mul 1 add get atan 0.75 mul add def} if iinx 08 eq {/H*M LAB*a 2 3 mul 2 add get LAB*a 2 3 mul 1 add get atan def} if iinx 09 eq {/H*M LAB*a 2 3 mul 2 add get LAB*a 2 3 mul 1 add get atan 0.5 mul LAB*a 3 3 mul 2 add get LAB*a 3 3 mul 1 add get atan 0.5 mul add def} if iinx 10 eq {/H*M LAB*a 3 3 mul 2 add get LAB*a 3 3 mul 1 add get atan def} if iinx 11 eq {/H*M LAB*a 3 3 mul 2 add get LAB*a 3 3 mul 1 add get atan 0.5 mul LAB*a 4 3 mul 2 add get LAB*a 4 3 mul 1 add get atan 0.5 mul add def} if iinx 12 eq {/H*M LAB*a 4 3 mul 2 add get LAB*a 4 3 mul 1 add get atan def} if iinx 13 eq {/H*M LAB*a 4 3 mul 2 add get LAB*a 4 3 mul 1 add get atan 0.5 mul LAB*a 5 3 mul 2 add get LAB*a 5 3 mul 1 add get atan 0.5 mul add def} if iinx 14 eq {/H*M LAB*a 5 3 mul 2 add get LAB*a 5 3 mul 1 add get atan def} if iinx 15 eq {/H*M LAB*a 5 3 mul 2 add get LAB*a 5 3 mul 1 add get atan 0.5 mul LAB*a 0 3 mul 2 add get LAB*a 0 3 mul 1 add get atan 360 add 0.5 mul add def} if proc_H*M_LAB*MaNTABl_olvi3*cmyn3*u*deMa*ioG %stores LAB*diMa L*diMa iinx L*Ma put A*diMa iinx A*Ma put B*diMa iinx B*Ma put %stores olv3*ddiMa o3*ddiMa iinx o3*ddMa put l3*ddiMa iinx l3*ddMa put v3*ddiMa iinx v3*ddMa put %stores u*ddiMax u*ddiMa1 iinx u*ddMa1 put u*ddiMai iinx u*ddMai put u*ddiMa2 iinx u*ddMa2 put %stores olv3*deiMa o3*deiMa iinx o3*deMa put l3*deiMa iinx l3*deMa put v3*deiMa iinx v3*deMa put %stores u*deiMax u*deiMa1 iinx u*deMa1 put u*deiMai iinx u*deMai put u*deiMa2 iinx u*deMa2 put } for %iinx=0,15 %Definition LAB*eiMa, olv3*ediMa, u*ediMax (all 00 to 15) by equal elementary (e) hue angle difference %between R and J, J and G, G and B, and B and R 0 1 03 {/ik exch def %ik=0,3 /H*1 RJGBLAB* ik 3 mul 2 add get RJGBLAB* ik 3 mul 1 add get 0.00001 add atan def ik 2 le {/ik2b ik 3 mul 5 add def} {/ik2b 2 def} ifelse /ik2a ik2b 1 sub def /H*2 RJGBLAB* ik2b get RJGBLAB* ik2a get 0.00001 add atan def ik 3 eq {/H*2 H*2 360 add def} if 0 1 03 {/ij exch def %ij=1,3 ij 0 eq {/a0 1.00 def /b0 0.00 def} if ij 1 eq {/a0 0.75 def /b0 0.25 def} if ij 2 eq {/a0 0.50 def /b0 0.50 def} if ij 3 eq {/a0 0.25 def /b0 0.75 def} if /H*M a0 H*1 mul b0 H*2 mul add def H*M 360 ge {/H*M H*M 360 sub def} if proc_H*M_LAB*MaNTABl_olvi3*cmyn3*u*deMa*ioG /iinx ik 4 mul ij add def %stores LAB*eiMa L*eiMa iinx L*Ma put A*eiMa iinx A*Ma put B*eiMa iinx B*Ma put %stores olv3*eeiMa o3*eeiMa iinx o3*deMa put l3*eeiMa iinx l3*deMa put v3*eeiMa iinx v3*deMa put %stores u*eeiMax u*eeiMa1 iinx u*deMa1 put u*eeiMai iinx u*deMai put u*eeiMa2 iinx u*deMa2 put %stores olv3*ediMa o3*ediMa iinx o3*ddMa put l3*ediMa iinx l3*ddMa put v3*ediMa iinx v3*ddMa put %stores u*eeiMax u*ediMa1 iinx u*ddMa1 put u*ediMai iinx u*ddMai put u*ediMa2 iinx u*ddMa2 put } for %ik=0,3 } for %ij=0,3 0 1 15 {/i exch def %i=0,15 %L*xiMa i DEintp 0 eq {L*diMa}{L*eiMa} ifelse i get put %LAB*xiMa x=d/e %A*xiMa i DEintp 0 eq {A*diMa}{A*eiMa} ifelse i get put %B*xiMa i DEintp 0 eq {B*diMa}{B*eiMa} ifelse i get put %o3*xxiMa i DEintp 0 eq {o3*ddiMa}{o3*eeiMa} ifelse i get put %olv3*xxiMa xx=dd/ee %l3*xxiMa i DEintp 0 eq {l3*ddiMa}{l3*eeiMa} ifelse i get put %v3*xxiMa i DEintp 0 eq {v3*ddiMa}{v3*eeiMa} ifelse i get put u*xxiMa1 i DEintp 0 eq {u*ddiMa1}{u*eeiMa1} ifelse i get put %u*xxiMax xx=dd/ee u*xxiMai i DEintp 0 eq {u*ddiMai}{u*eeiMai} ifelse i get put u*xxiMa2 i DEintp 0 eq {u*ddiMa2}{u*eeiMa2} ifelse i get put %o3*xyiMa i DEintp 0 eq {o3*deiMa}{o3*ediMa} ifelse i get put %olv3*xxiMa xy=de/ed %l3*xyiMa i DEintp 0 eq {l3*deiMa}{l3*ediMa} ifelse i get put %v3*xyiMa i DEintp 0 eq {v3*deiMa}{v3*ediMa} ifelse i get put %u*xyiMa1 i DEintp 0 eq {u*deiMa1}{u*ediMa1} ifelse i get put %u*xxiMax xy=de/ed %u*xyiMai i DEintp 0 eq {u*deiMai}{u*ediMai} ifelse i get put %u*xyiMa2 i DEintp 0 eq {u*deiMa2}{u*ediMa2} ifelse i get put } for %i=0,15 } bind def %END Procedure proc_LAB*ioG %*********************************************************** /proc_H*M_LAB*MaNTABl_olvi3*cmyn3*u*deMa*ioG { %BEG procedure proc_H*M_LAB*MaNTABl_olvi3*cmyn3*u*deMa*ioG %only for calculation without hue tables %input H*M (only hue (H) of Fa/Ma) %input LAB*a (6 adapted colours OYLCVM) %input nLAB*s0 (colour Black N for calculation of lab*l) %input wLAB*s0 (colour White W for achromatic axis) %output LAB*Ma %output olvi3*Ma %output cmyn3*Ma /L*Ha 50 def /A*Ha 75 H*M cos mul def /B*Ha 75 H*M sin mul def /UXF1a wLAB*s0 1 get B*Ha mul wLAB*s0 2 get A*Ha mul sub def /UXF2a wLAB*s0 2 get L*Ha mul wLAB*s0 0 get B*Ha mul sub def /UXF3a wLAB*s0 0 get A*Ha mul wLAB*s0 1 get L*Ha mul sub def /T1 0 def /T2 0 def 0 1 5 {/ia exch def /ia30 ia 3 mul def ia 5 eq {/ia31 0 def} {/ia31 ia30 3 add def} ifelse /T1 LAB*a ia30 get UXF1a mul LAB*a ia30 1 add get UXF2a mul add LAB*a ia30 2 add get UXF3a mul add def /T2 LAB*a ia31 get UXF1a mul LAB*a ia31 1 add get UXF2a mul add LAB*a ia31 2 add get UXF3a mul add def T1 0 le {/T1X (N) def} {/T1X (P) def} ifelse T2 0 gt {/T2X (P) def} {/T2X (N) def} ifelse T1 0 le T2 0 gt and {/ia3END ia30 def exit} if } for /L*11a LAB*a ia3END get def /A*11a LAB*a ia3END 1 add get def /B*11a LAB*a ia3END 2 add get def ia3END 15 ge {/ia3END -3 def} if /L*21a LAB*a ia3END 3 add get def /A*21a LAB*a ia3END 4 add get def /B*21a LAB*a ia3END 5 add get def /NENNER L*21a L*11a sub UXF1a mul A*21a A*11a sub UXF2a mul add B*21a B*11a sub UXF3a mul add def /ZAEHLE L*21a UXF1a mul A*21a UXF2a mul add B*21a UXF3a mul add def NENNER 0 ne {/ALPH ZAEHLE NENNER div def} {/ALPH 99999} ifelse /L*Ma ALPH L*11a mul 1 ALPH sub L*21a mul add def /A*Ma ALPH A*11a mul 1 ALPH sub A*21a mul add def /B*Ma ALPH B*11a mul 1 ALPH sub B*21a mul add def /C*Ma A*Ma dup mul B*Ma dup mul add 0.000001 add sqrt def /H*Ma B*Ma A*Ma atan def /H*abd B*Ha A*Ha 0.0001 add atan def /H*abe H*abd def %faktor and section in actual System (for example ORS18) /jsecd -1 def %main equations %faktd = [col_angh - LAB*Hd(n)]/[LAB*Hd(n+1) - LAB*Hd(n)] %col_angh = faktd [LAB*Hd(n+1) - LAB*Hd(n)] + LAB*Hd(n) H*abd LAB*Hd 0 get lt {/H*abd H*abd 360 add def} if 0 1 5 {/nx exch def /np nx 1 add def H*abd LAB*Hd nx get ge H*abd LAB*Hd np get lt and {/jsecd nx def /faktd H*abd LAB*Hd nx get sub LAB*Hd np get LAB*Hd nx get sub div def} if } for %nx=0,5 %1 0 0 %O jsecd=0 %1 1 0 %Y jsecd=1 %0 1 0 %L jsecd=2 %0 1 1 %C jsecd=3 %0 0 1 %V jsecd=4 %1 0 1 %M jsecd=5 jsecd -1 eq {STOPjsecd} if /fakmd 1 faktd sub def /o3*ddMa -1 def /l3*ddMa -1 def /v3*ddMa -1 def jsecd 0 eq {%sector O->Y, o3*=1, l3*=0->1, v3*=0 /o3*ddMa 1 def /l3*ddMa faktd def /v3*ddMa 0 def /u*ddMa1 (o) def /u*ddMai faktd 99 mul cviht def /u*ddMa2 (y) def} if jsecd 1 eq {%sector Y->L, o3*=1->0, l3*=1, v3*=0 /o3*ddMa fakmd def /l3*ddMa 1 def /v3*ddMa 0 def /u*ddMa1 (y) def /u*ddMai faktd 99 mul cviht def /u*ddMa2 (l) def} if jsecd 2 eq {%sector L->C, o3*=0, l3*=1, v3*=0->1 /o3*ddMa 0 def /l3*ddMa 1 def /v3*ddMa faktd def /u*ddMa1 (l) def /u*ddMai faktd 99 mul cviht def /u*ddMa2 (c) def} if jsecd 3 eq {%sector C->V, o3*=0, l3*=0->1, v3*=1 /o3*ddMa 0 def /l3*ddMa fakmd def /v3*ddMa 1 def /u*ddMa1 (c) def /u*ddMai faktd 99 mul cviht def /u*ddMa2 (v) def} if jsecd 4 eq {%sector V->M, o3*=0->1, l3*=0, v3*=1 /o3*ddMa faktd def /l3*ddMa 0 def /v3*ddMa 1 def /u*ddMa1 (v) def /u*ddMai faktd 99 mul cviht def /u*ddMa2 (m) def} if jsecd 5 eq {%sector M->O, o3*=1, l3*=0, v3*=1->0 /o3*ddMa 1 def /l3*ddMa 0 def /v3*ddMa fakmd def /u*ddMa1 (m) def /u*ddMai faktd 99 mul cviht def /u*ddMa2 (o) def} if o3*ddMa -1 eq {STOPo3*ddMa1} if l3*ddMa -1 eq {STOPl3*ddMa1} if v3*ddMa -1 eq {STOPv3*ddMa1} if /i3*ddMa 1 def /c3*ddMa 1 o3*ddMa sub def /m3*ddMa 1 l3*ddMa sub def /y3*ddMa 1 v3*ddMa sub def /n3*ddMa 0 def %calculations for elementary (e) system: %faktor and section in actual System (for example ORS18) /jsece -1 def %main equations %fakte = [col_angh - LAB*He(n)]/[LAB*He(n+1) - LAB*He(n)] %col_angh = fakte [LAB*He(n+1) - LAB*He(n)] + LAB*He(n) H*abe LAB*He 0 get lt {/H*abe H*abe 360 add def} if 0 1 5 {/nx exch def /np nx 1 add def H*abe LAB*He nx get ge H*abe LAB*He np get lt and {/jsece nx def /fakte H*abe LAB*He nx get sub LAB*He np get LAB*He nx get sub div def} if } for %nx=0,5 %1 0 0 %R jsece=0 %1 1 0 %J jsece=1 %0 1 0 %G jsece=2 %0 1 1 %C' jsece=3 %0 0 1 %B jsece=4 %1 0 1 %R jsece=5 jsece -1 eq {STOPjsece} if /fakme 1 fakte sub def /o3*deMa -1 def /l3*deMa -1 def /v3*deMa -1 def jsece 0 eq {%sector O->Y, o3*=1, l3*=0->1, v*=0 /o3*deMa 1 def /l3*deMa fakte def /v3*deMa 0 def /u*dtMa1 (r) def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (j) def /u*deMa1 (r) def /u*deMai fakte 99 mul cviht def /u*deMa2 (j) def} if jsece 1 eq {%sector Y->L, o3*=1->0, l3*=1, v*=0 /o3*deMa fakme def /l3*deMa 1 def /v3*deMa 0 def /u*dtMa1 (j) def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (g) def /u*deMa1 (j) def /u*deMai fakte 99 mul cviht def /u*deMa2 (g) def} if jsece 2 eq {%sector L->C, o3*=0, l3*=1, v*=0->1 /o3*deMa 0 def /l3*deMa 1 def /v3*deMa fakte def /u*dtMa1 (g) def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (c') def /u*deMa1 (g) def /u*deMai fakte 99 mul 0.5 mul cviht def /u*deMa2 (b) def} if jsece 3 eq {%sector C->V, o3*=0, l3*=0->1, v*=1 /o3*deMa 0 def /l3*deMa fakme def /v3*deMa 1 def /u*dtMa1 (c') def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (b) def /u*deMa1 (g) def /u*deMai fakte 99 mul 0.5 mul 50 add cviht def /u*deMa2 (b) def} if jsece 4 eq {%sector V->M, o3*=0->1, l3*=0, v*=1 /o3*deMa fakte def /l3*deMa 0 def /v3*deMa 1 def /u*dtMa1 (b) def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (m') def /u*deMa1 (b) def /u*deMai fakte 99 mul 0.5 mul cviht def /u*deMa2 (r) def} if jsece 5 eq {%sector M->O, o3*=1, l3*=0, v*=1->0 /o3*deMa 1 def /l3*deMa 0 def /v3*deMa fakme def /u*dtMa1 (m') def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (r) def /u*deMa1 (b) def /u*deMai fakte 99 mul 0.5 mul 50 add cviht def /u*deMa2 (r) def} if o3*deMa -1 eq {STOPo3*Ma0} if l3*deMa -1 eq {STOPl3*Ma0} if v3*deMa -1 eq {STOPv3*Ma0} if /i3*deMa 1 def /c3*deMa 1 o3*deMa sub def /m3*deMa 1 l3*deMa sub def /y3*deMa 1 v3*deMa sub def /n3*deMa 0 def /lab*nMa 0.00 def /lab*cMa 1.00 def /lab*wMa 0.00 def /lab*tMa 0.50 def /lab*hMa H*Ma 360 div def /lab*lMa L*Ma nLAB*s0 0 get sub wLAB*s0 0 get nLAB*s0 0 get sub 0.000001 add div def } bind def %END procedure proc_H*M_LAB*MaNTABl_olvi3*cmyn3*u*deMa*ioG %************************************************************* /proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG { %BEG Procedure proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %transfer from elementary data to device (ed) and elementary data (ee) %For tLAB=1 Transfer to LAB*Ma and LAB*Fa /v*s exch def /l*s exch def /o*s exch def /i*p 0 def %test if achromatic %W special case %W: o*s, l*s, v*s = 1.00 1.0 o*s sub abs 0.001 le 1.0 l*s sub abs 0.001 le and 1.0 v*s sub abs 0.001 le and %W special case {/i*p 6 def %W /c*rs 0 def /n*s 0 def /w*s 1 def /t*s 1 def } if %Test if achromatic %N special case %N: o*n, l*n, v*n <= 0.01 o*s abs 0.001 le l*s abs 0.001 le and v*s abs 0.001 le and %N special case {/i*p 6 def %N /c*rs 0 def /n*s 1 def /w*s 0 def /t*s 0 def } if %test if achromatic Grey sample o*s l*s sub abs 0.001 le l*s v*s sub abs 0.001 le and %Achromatic grey special case {/i*p 6 def %Grey /c*rs 0 def /n*s 1 o*s sub def /w*s o*s def /t*s 1 n*s sub c*rs 0.5 mul sub def } if i*p 6 eq {%achromatic,chromatic colours /o3*edMa 1 def /l3*edMa 1 def /v3*edMa 1 def /o3*eeMa 1 def /l3*eeMa 1 def /v3*eeMa 1 def /u*edMa1 (o) def /u*edMai 0 def /u*edMa2 (y) def /u*etMa1 (r) def /u*etMai 0 def /u*etMa2 (j) def /u*eeMa1 (r) def /u*eeMai 0 def /u*eeMa2 (j) def /o3*ed o*s def /l3*ed l*s def /v3*ed v*s def /o3*ee o*s def /l3*ee l*s def /v3*ee v*s def } %achromatic i*p=6 { %chromatic i*p#6 o*s l*s ge o*s v*s ge and {/olv*smax o*s def l*s v*s ge {%sector O->Y, o3*=1, l3*=0->1, v3*=0 /olv*smin v*s def /olv*smean l*s def /jsecs 0 def} {%sector M->O, o3*=1, l3*=0, v3*=1->0 /olv*smin l*s def /olv*smean v*s def /jsecs 5 def} ifelse } if l*s v*s ge l*s o*s ge and {/olv*smax l*s def v*s o*s ge {%sector L->C, o3*=0, l3*=1, v3*=0->1 /olv*smin o*s def /olv*smean v*s def /jsecs 2 def} {%sector Y->L, o3*=1->0, l3*=1, v3*=0 /olv*smin v*s def /olv*smean o*s def /jsecs 1 def} ifelse } if v*s o*s ge v*s l*s ge and {/olv*smax v*s def o*s l*s ge {%sector V->M, o3*=0->1, l3*=0, v3*=1 /olv*smin l*s def /olv*smean o*s def /jsecs 4 def} {%sector C->V, o3*=0, l3*=0->1, v3*=1 /olv*smin o*s def /olv*smean l*s def /jsecs 3 def } ifelse } if /c*rs olv*smax olv*smin sub def /n*s 1 olv*smax sub def /w*s 1 n*s sub c*rs sub def /t*s 1 n*s sub c*rs 0.5 mul sub def /b_a olv*smean olv*smax div def /c_a olv*smin olv*smax div def /alpha 1 c_a sub def /fakts b_a c_a sub alpha 0.00001 add div def /fakms 1 fakts sub def %jsecs interpreted as elementary hue angle jsecs 0 eq {%sector O->Y, o3*=1, l3*=0->1, v3*=0 /o3*eeMa 1 def /l3*eeMa fakts def /v3*eeMa 0 def /H*Me LAB*He 0 get LAB*He 1 get LAB*He 0 get sub fakts mul add def /u*eeMa1 (r) def /u*eeMai fakts 99 mul cviht def /u*eeMa2 (j) def} if jsecs 1 eq {%sector Y->L, o3*=1->0, l3*=1, v3*=0 /o3*eeMa fakts def /l3*eeMa 1 def /v3*eeMa 0 def /H*Me LAB*He 1 get LAB*He 2 get LAB*He 1 get sub fakms mul add def /u*eeMa1 (j) def /u*eeMai fakms 99 mul cviht def /u*eeMa2 (g) def} if jsecs 2 eq {%sector L->C, o3*=0, l3*=1, v3*=0->1 /o3*eeMa 0 def /l3*eeMa 1 def /v3*eeMa fakts def /H*Me LAB*He 2 get LAB*He 3 get LAB*He 2 get sub fakts mul add def /u*etMa1 (g) def /u*etMai fakts 99 mul cviht def /u*etMa2 (C) def /u*eeMa1 (g) def /u*eeMai fakts 99 mul 0.5 mul cviht def /u*eeMa2 (b) def} if jsecs 3 eq {%sector C->V, o3*=0, l3*=0->1, v3*=1 /o3*eeMa 0 def /l3*eeMa fakts def /v3*eeMa 1 def /H*Me LAB*He 3 get LAB*He 4 get LAB*He 3 get sub fakms mul add def /u*etMa1 (C) def /u*etMai fakms 99 mul cviht def /u*etMa2 (b) def /u*eeMa1 (g) def /u*eeMai fakms 99 mul 0.5 mul 50 add cviht def /u*eeMa2 (b) def} if jsecs 4 eq {%sector V->M, o3*=0->1, l3*=0, v3*=1 /o3*eeMa fakts def /l3*eeMa 0 def /v3*eeMa 1 def /H*Me LAB*He 4 get LAB*He 5 get LAB*He 4 get sub fakts mul add def /u*etMa1 (b) def /u*etMai fakts 99 mul cviht def /u*etMa2 (M) def /u*eeMa1 (b) def /u*eeMai fakts 99 mul 0.5 mul cviht def /u*eeMa2 (r) def} if jsecs 5 eq {%sector M->O, o3*=1, l3*=0, v3*=1->0 /o3*eeMa 1 def /l3*eeMa 0 def /v3*eeMa fakts def /H*Me LAB*He 5 get LAB*He 6 get LAB*He 5 get sub fakms mul add def /u*etMa1 (M) def /u*etMai fakms 99 mul cviht def /u*etMa2 (r) def /u*eeMa1 (b) def /u*eeMai fakms 99 mul 0.5 mul 50 add cviht def /u*eeMa2 (r) def} if /i3*eeMa 1 def /c3*eeMa 1 o3*eeMa sub def /m3*eeMa 1 l3*eeMa sub def /y3*eeMa 1 v3*eeMa sub def /n3*eeMa 0 def H*Me 360 ge {/H*Me H*Me 360 sub def} if %H*Me = H*abd = H*abe for all hue angles /H*abd H*Me def %calculations for device (d) system: %faktor and section in actual System (for example ORS18) /jsece -1 def %main equations %faktd = [col_angh - LAB*Hd(n)]/[LAB*Hd(n+1) - LAB*Hd(n)] %col_angh = faktd [LAB*Hd(n+1) - LAB*Hd(n)] + LAB*Hd(n) H*abd LAB*Hd 0 get lt {/H*abd H*abd 360 add def} if 0 1 5 {/nx exch def /np nx 1 add def H*abd LAB*Hd nx get ge H*abd LAB*Hd np get lt and {/jsecd nx def /faktd H*abd LAB*Hd nx get sub LAB*Hd np get LAB*Hd nx get sub div def} if } for %nx=0,5 %1 0 0 %O jsecd=0 %1 1 0 %Y jsecd=1 %0 1 0 %L jsecd=2 %0 1 1 %C jsecd=3 %0 0 1 %V jsecd=4 %1 0 1 %O jsecd=5 jsecd -1 eq {STOPjsecd} if /fakmd 1 faktd sub def /o3*edMa -1 def /l3*edMa -1 def /v3*edMa -1 def jsecd 0 eq {%sector O->Y, o3*=1, l3*=0->1, v*=0 /o3*edMa 1 def /l3*edMa faktd def /v3*edMa 0 def /u*dtMa1 (o) def /u*dtMai faktd 99 mul cviht def /u*dtMa2 (y) def /u*edMa1 (o) def /u*edMai faktd 99 mul cviht def /u*edMa2 (y) def} if jsecd 1 eq {%sector Y->L, o3*=1->0, l3*=1, v*=0 /o3*edMa fakmd def /l3*edMa 1 def /v3*edMa 0 def /u*dtMa1 (y) def /u*dtMai faktd 99 mul cviht def /u*dtMa2 (l) def /u*edMa1 (y) def /u*edMai faktd 99 mul cviht def /u*edMa2 (l) def} if jsecd 2 eq {%sector L->C, o3*=0, l3*=1, v*=0->1 /o3*edMa 0 def /l3*edMa 1 def /v3*edMa faktd def /u*dtMa1 (l) def /u*dtMai faktd 99 mul cviht def /u*dtMa2 (c) def /u*edMa1 (l) def /u*edMai faktd 99 mul cviht def /u*edMa2 (c) def} if jsecd 3 eq {%sector C->V, o3*=0, l3*=0->1, v*=1 /o3*edMa 0 def /l3*edMa fakmd def /v3*edMa 1 def /u*dtMa1 (c) def /u*dtMai faktd 99 mul cviht def /u*dtMa2 (v) def /u*edMa1 (c) def /u*edMai faktd 99 mul cviht def /u*edMa2 (v) def} if jsecd 4 eq {%sector V->M, o3*=0->1, l3*=0, v*=1 /o3*edMa faktd def /l3*edMa 0 def /v3*edMa 1 def /u*dtMa1 (v) def /u*dtMai faktd 99 mul cviht def /u*dtMa2 (m) def /u*edMa1 (v) def /u*edMai faktd 99 mul cviht def /u*edMa2 (m) def} if jsecd 5 eq {%sector M->O, o3*=1, l3*=0, v*=1->0 /o3*edMa 1 def /l3*edMa 0 def /v3*edMa fakmd def /u*dtMa1 (m) def /u*dtMai faktd 99 mul cviht def /u*dtMa2 (o) def /u*edMa1 (v) def /u*edMai faktd 99 mul cviht def /u*edMa2 (o) def} if o3*edMa -1 eq {STOPo3*Ma0} if l3*edMa -1 eq {STOPl3*Ma0} if v3*edMa -1 eq {STOPv3*Ma0} if /i3*edMa 1 def /c3*edMa 1 o3*edMa sub def /m3*edMa 1 l3*edMa sub def /y3*edMa 1 v3*edMa sub def /n3*edMa 0 def /lab*nMa 0.00 def /lab*cMa 1.00 def /lab*wMa 0.00 def /lab*tMa 0.50 def /lab*hMa H*Ma 360 div def /lab*lMa L*Ma nLAB*s0 0 get sub wLAB*s0 0 get nLAB*s0 0 get sub 0.000001 add div def %/o3*ee o*s def %/o3*ee w*s o3*eeMa c*rs mul add def %/l3*ee l*s def %/l3*ee w*s l3*eeMa c*rs mul add def %/v3*ee v*s def %/v3*ee w*s v3*eeMa c*rs mul add def /o3*ee w*s o3*eeMa c*rs mul add def /l3*ee w*s l3*eeMa c*rs mul add def /v3*ee w*s v3*eeMa c*rs mul add def /o3*ed w*s o3*edMa c*rs mul add def /l3*ed w*s l3*edMa c*rs mul add def /v3*ed w*s v3*edMa c*rs mul add def } ifelse %chromatic colour i*p#6 %For tLAB=1 Transfer to LAB*Ma and LAB*Fa tLAB 1 eq {%tLAB = 1 i*p 6 eq { %achromatic,chromatic colours /L*Ma L*Wio def /A*Ma 0 def /B*Ma 0 def /H*Ma B*Ma A*Ma 0.0001 add atan def /C*Ma 0 def /L*Fa L*Nio L*Wio L*Nio sub w*s mul add def /A*Fa 0 def /B*Fa 0 def /H*Fa B*Fa A*Fa 0.0001 add atan def /C*Fa 0 def /l*rs w*s def } %achromatic i*p=6 {%chromatic i*p#6 /H*M H*Me def %H*M allready defined /L*Ha 50 def /A*Ha 75 H*M cos mul def /B*Ha 75 H*M sin mul def /UXF1a wLAB*s0 1 get B*Ha mul wLAB*s0 2 get A*Ha mul sub def /UXF2a wLAB*s0 2 get L*Ha mul wLAB*s0 0 get B*Ha mul sub def /UXF3a wLAB*s0 0 get A*Ha mul wLAB*s0 1 get L*Ha mul sub def /T1 0 def /T2 0 def 0 1 5 {/ia exch def /ia30 ia 3 mul def ia 5 eq {/ia31 0 def} {/ia31 ia30 3 add def} ifelse /T1 LAB*a ia30 get UXF1a mul LAB*a ia30 1 add get UXF2a mul add LAB*a ia30 2 add get UXF3a mul add def /T2 LAB*a ia31 get UXF1a mul LAB*a ia31 1 add get UXF2a mul add LAB*a ia31 2 add get UXF3a mul add def T1 0 le {/T1X (N) def} {/T1X (P) def} ifelse T2 0 gt {/T2X (P) def} {/T2X (N) def} ifelse T1 0 le T2 0 gt and {/ia3END ia30 def exit} if } for /L*11a LAB*a ia3END get def /A*11a LAB*a ia3END 1 add get def /B*11a LAB*a ia3END 2 add get def ia3END 15 ge {/ia3END -3 def} if /L*21a LAB*a ia3END 3 add get def /A*21a LAB*a ia3END 4 add get def /B*21a LAB*a ia3END 5 add get def /NENNER L*21a L*11a sub UXF1a mul A*21a A*11a sub UXF2a mul add B*21a B*11a sub UXF3a mul add def /ZAEHLE L*21a UXF1a mul A*21a UXF2a mul add B*21a UXF3a mul add def NENNER 0 ne {/ALPH ZAEHLE NENNER div def} {/ALPH 99999} ifelse /L*Ma ALPH L*11a mul 1 ALPH sub L*21a mul add def /A*Ma ALPH A*11a mul 1 ALPH sub A*21a mul add def /B*Ma ALPH B*11a mul 1 ALPH sub B*21a mul add def /C*Ma A*Ma dup mul B*Ma dup mul add 0.000001 add sqrt def /H*Ma B*Ma A*Ma 0.0001 add atan def %equations %/c*rs olv*smax olv*smin sub def %/n*s 1 olv*smax sub def %/w*s 1 n*s sub c*rs sub def %/t*s 1 n*s sub c*rs 0.5 mul sub def %l* = t* + c* [L*M - L*N]/[L*W - L*N] - 0.5 c* %l* = (L*Fa - L*Na) / (L*Wa - L*Na) %L*Fa = l* (L*Wa - L*Na) + L*Na %given L*Nio, L*Wio /l*rs t*s L*Ma L*Nio sub L*Wio L*Nio sub div c*rs mul add c*rs 0.5 mul sub def /L*Fa L*Nio L*Wio L*Nio sub l*rs mul add def /C*Fa C*Ma c*rs mul def /H*Fa H*Ma def /A*Fa C*Fa H*Ma cos mul def /B*Fa C*Fa H*Ma sin mul def } ifelse %chromatic colour i*p#6 } if %tLAB = 1 } bind def %END Procedure proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %******************************************************************** /proc_olv3*s_to_olv3*u*dd_de_H*M_LAB*Ma_Fa*ioG { %BEG Procedure proc_olv3*s_to_olv3*u*dd_de_H*M_LAB*Ma_Fa*ioG %transfer from device data to device (dd) and elementary data (de) %For tLAB=1 Transfer to LAB*Ma and LAB*Fa /v*s exch def /l*s exch def /o*s exch def /i*p 0 def %test if achromatic %W special case %W: o*s, l*s, v*s = 1.00 1.0 o*s sub abs 0.001 le 1.0 l*s sub abs 0.001 le and 1.0 v*s sub abs 0.001 le and %W special case {/i*p 6 def %W /c*rs 0 def /n*s 0 def /w*s 1 def /t*s 1 def } if %Test if achromatic %N special case %N: o*n, l*n, v*n <= 0.01 o*s abs 0.001 le l*s abs 0.001 le and v*s abs 0.001 le and %N special case {/i*p 6 def %N /c*rs 0 def /n*s 1 def /w*s 0 def /t*s 0 def } if %test if achromatic Grey sample o*s l*s sub abs 0.001 le l*s v*s sub abs 0.001 le and %Achromatic grey special case {/i*p 6 def %Grey /c*rs 0 def /n*s 1 o*s sub def /w*s o*s def /t*s 1 n*s sub c*rs 0.5 mul sub def } if i*p 6 eq {%achromatic,chromatic colours /o3*ddMa 1 def /l3*ddMa 1 def /v3*ddMa 1 def /o3*deMa 1 def /l3*deMa 1 def /v3*deMa 1 def /u*ddMa1 (o) def /u*ddMai 0 def /u*ddMa2 (y) def /u*dtMa1 (r) def /u*dtMai 0 def /u*dtMa2 (j) def /u*deMa1 (r) def /u*deMai 0 def /u*deMa2 (j) def /o3*dd o*s def /l3*dd l*s def /v3*dd v*s def /o3*de o*s def /l3*de l*s def /v3*de v*s def } %achromatic i*p=6 { %chromatic i*p#6 o*s l*s ge o*s v*s ge and {/olv*smax o*s def l*s v*s ge {%sector O->Y, o3*=1, l3*=0->1, v3*=0 /olv*smin v*s def /olv*smean l*s def /jsecd 0 def} {%sector M->O, o3*=1, l3*=0, v3*=1->0 /olv*smin l*s def /olv*smean v*s def /jsecd 5 def} ifelse } if l*s v*s ge l*s o*s ge and {/olv*smax l*s def v*s o*s ge {%sector L->C, o3*=0, l3*=1, v3*=0->1 /olv*smin o*s def /olv*smean v*s def /jsecd 2 def} {%sector Y->L, o3*=1->0, l3*=1, v3*=0 /olv*smin v*s def /olv*smean o*s def /jsecd 1 def} ifelse } if v*s o*s ge v*s l*s ge and {/olv*smax v*s def o*s l*s ge {%sector V->M, o3*=0->1, l3*=0, v3*=1 /olv*smin l*s def /olv*smean o*s def /jsecd 4 def} {%sector C->V, o3*=0, l3*=0->1, v3*=1 /olv*smin o*s def /olv*smean l*s def /jsecd 3 def } ifelse } if /c*rs olv*smax olv*smin sub def /n*s 1 olv*smax sub def /w*s 1 n*s sub c*rs sub def /t*s 1 n*s sub c*rs 0.5 mul sub def /b_a olv*smean olv*smax div def /c_a olv*smin olv*smax div def /alpha 1 c_a sub def /faktd b_a c_a sub alpha 0.00001 add div def /fakmd 1 faktd sub def %jsecd interpreted as device angle jsecd 0 eq {%sector O->Y, o3*=1, l3*=0->1, v3*=0 /o3*ddMa 1 def /l3*ddMa faktd def /v3*ddMa 0 def /H*M LAB*Hd 0 get LAB*Hd 1 get LAB*Hd 0 get sub faktd mul add def /u*ddMa1 (o) def /u*ddMai faktd 99 mul cviht def /u*ddMa2 (y) def} if jsecd 1 eq {%sector Y->L, o3*=1->0, l3*=1, v3*=0 /o3*ddMa faktd def /l3*ddMa 1 def /v3*ddMa 0 def /H*M LAB*Hd 1 get LAB*Hd 2 get LAB*Hd 1 get sub fakmd mul add def /u*ddMa1 (y) def /u*ddMai fakmd 99 mul cviht def /u*ddMa2 (l) def} if jsecd 2 eq {%sector L->C, o3*=0, l3*=1, v3*=0->1 /o3*ddMa 0 def /l3*ddMa 1 def /v3*ddMa faktd def /H*M LAB*Hd 2 get LAB*Hd 3 get LAB*Hd 2 get sub faktd mul add def /u*ddMa1 (l) def /u*ddMai faktd 99 mul cviht def /u*ddMa2 (c) def} if jsecd 3 eq {%sector C->V, o3*=0, l3*=0->1, v3*=1 /o3*ddMa 0 def /l3*ddMa faktd def /v3*ddMa 1 def /H*M LAB*Hd 3 get LAB*Hd 4 get LAB*Hd 3 get sub fakmd mul add def /u*ddMa1 (c) def /u*ddMai fakmd 99 mul cviht def /u*ddMa2 (v) def} if jsecd 4 eq {%sector V->M, o3*=0->1, l3*=0, v3*=1 /o3*ddMa faktd def /l3*ddMa 0 def /v3*ddMa 1 def /H*M LAB*Hd 4 get LAB*Hd 5 get LAB*Hd 4 get sub faktd mul add def /u*ddMa1 (v) def /u*ddMai faktd 99 mul cviht def /u*ddMa2 (m) def} if jsecd 5 eq {%sector M->O, o3*=1, l3*=0, v3*=1->0 /o3*ddMa 1 def /l3*ddMa 0 def /v3*ddMa faktd def /H*M LAB*Hd 5 get LAB*Hd 6 get LAB*Hd 5 get sub fakmd mul add def /u*ddMa1 (m) def /u*ddMai fakmd 99 mul cviht def /u*ddMa2 (o) def} if /i3*ddMa 1 def /c3*ddMa 1 o3*ddMa sub def /m3*ddMa 1 l3*ddMa sub def /y3*ddMa 1 v3*ddMa sub def /n3*ddMa 0 def H*M 360 ge {/H*M H*M 360 sub def} if %H*M = H*abd = H*abe for all hue angles /H*abe H*M def %calculations for elementary (e) system: %faktor and section in actual System (for example ORS18) /jsece -1 def %main equations %fakte = [col_angh - LAB*He(n)]/[LAB*He(n+1) - LAB*He(n)] %col_angh = fakte [LAB*He(n+1) - LAB*He(n)] + LAB*He(n) H*abe LAB*He 0 get lt {/H*abe H*abe 360 add def} if 0 1 5 {/nx exch def /np nx 1 add def H*abe LAB*He nx get ge H*abe LAB*He np get lt and {/jsece nx def /fakte H*abe LAB*He nx get sub LAB*He np get LAB*He nx get sub div def} if } for %nx=0,5 %1 0 0 %R jsece=0 %1 1 0 %J jsece=1 %0 1 0 %G jsece=2 %0 1 1 %C' jsece=3 %0 0 1 %B jsece=4 %1 0 1 %R jsece=5 jsece -1 eq {STOPjsece} if /fakme 1 fakte sub def /o3*deMa -1 def /l3*deMa -1 def /v3*deMa -1 def jsece 0 eq {%sector O->Y, o3*=1, l3*=0->1, v*=0 /o3*deMa 1 def /l3*deMa fakte def /v3*deMa 0 def /u*dtMa1 (r) def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (j) def /u*deMa1 (r) def /u*deMai fakte 99 mul cviht def /u*deMa2 (j) def} if jsece 1 eq {%sector Y->L, o3*=1->0, l3*=1, v*=0 /o3*deMa fakme def /l3*deMa 1 def /v3*deMa 0 def /u*dtMa1 (j) def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (g) def /u*deMa1 (j) def /u*deMai fakte 99 mul cviht def /u*deMa2 (g) def} if jsece 2 eq {%sector L->C, o3*=0, l3*=1, v*=0->1 /o3*deMa 0 def /l3*deMa 1 def /v3*deMa fakte def /u*dtMa1 (g) def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (C) def /u*deMa1 (g) def /u*deMai fakte 99 mul 0.5 mul cviht def /u*deMa2 (b) def} if jsece 3 eq {%sector C->V, o3*=0, l3*=0->1, v*=1 /o3*deMa 0 def /l3*deMa fakme def /v3*deMa 1 def /u*dtMa1 (C) def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (b) def /u*deMa1 (g) def /u*deMai fakte 99 mul 0.5 mul 50 add cviht def /u*deMa2 (b) def} if jsece 4 eq {%sector V->M, o3*=0->1, l3*=0, v*=1 /o3*deMa fakte def /l3*deMa 0 def /v3*deMa 1 def /u*dtMa1 (b) def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (M) def /u*deMa1 (b) def /u*deMai fakte 99 mul 0.5 mul cviht def /u*deMa2 (r) def} if jsece 5 eq {%sector M->O, o3*=1, l3*=0, v*=1->0 /o3*deMa 1 def /l3*deMa 0 def /v3*deMa fakme def /u*dtMa1 (M) def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (r) def /u*deMa1 (b) def /u*deMai fakte 99 mul 0.5 mul 50 add cviht def /u*deMa2 (r) def} if o3*deMa -1 eq {STOPo3*Ma0} if l3*deMa -1 eq {STOPl3*Ma0} if v3*deMa -1 eq {STOPv3*Ma0} if /i3*deMa 1 def /c3*deMa 1 o3*deMa sub def /m3*deMa 1 l3*deMa sub def /y3*deMa 1 v3*deMa sub def /n3*deMa 0 def /lab*nMa 0.00 def /lab*cMa 1.00 def /lab*wMa 0.00 def /lab*tMa 0.50 def /lab*hMa H*Ma 360 div def /lab*lMa L*Ma nLAB*s0 0 get sub wLAB*s0 0 get nLAB*s0 0 get sub 0.000001 add div def /o3*dd o*s def /o3*dd w*s o3*ddMa c*rs mul add def /l3*dd l*s def /l3*dd w*s l3*ddMa c*rs mul add def /v3*dd v*s def /v3*dd w*s v3*ddMa c*rs mul add def /o3*de w*s o3*deMa c*rs mul add def /l3*de w*s l3*deMa c*rs mul add def /v3*de w*s v3*deMa c*rs mul add def } ifelse %chromatic colour i*p#6 %For tLAB=1 Transfer to LAB*Ma and LAB*Fa tLAB 1 eq {%tLAB = 1 i*p 6 eq {%achromatic,chromatic colours /L*Ma L*Wio def /A*Ma 0 def /B*Ma 0 def /H*Ma B*Ma A*Ma 0.0001 add atan def /C*Ma 0 def /L*Fa L*Nio L*Wio L*Nio sub w*s mul add def /A*Fa 0 def /B*Fa 0 def /H*Fa B*Fa A*Fa 0.0001 add atan def /C*Fa 0 def /l*rs w*s def } %achromatic i*p=6 { %chromatic i*p#6 %H*M allready defined /L*Ha 50 def /A*Ha 75 H*M cos mul def /B*Ha 75 H*M sin mul def /UXF1a wLAB*s0 1 get B*Ha mul wLAB*s0 2 get A*Ha mul sub def /UXF2a wLAB*s0 2 get L*Ha mul wLAB*s0 0 get B*Ha mul sub def /UXF3a wLAB*s0 0 get A*Ha mul wLAB*s0 1 get L*Ha mul sub def /T1 0 def /T2 0 def 0 1 5 {/ia exch def /ia30 ia 3 mul def ia 5 eq {/ia31 0 def} {/ia31 ia30 3 add def} ifelse /T1 LAB*a ia30 get UXF1a mul LAB*a ia30 1 add get UXF2a mul add LAB*a ia30 2 add get UXF3a mul add def /T2 LAB*a ia31 get UXF1a mul LAB*a ia31 1 add get UXF2a mul add LAB*a ia31 2 add get UXF3a mul add def T1 0 le {/T1X (N) def} {/T1X (P) def} ifelse T2 0 gt {/T2X (P) def} {/T2X (N) def} ifelse T1 0 le T2 0 gt and {/ia3END ia30 def exit} if } for /L*11a LAB*a ia3END get def /A*11a LAB*a ia3END 1 add get def /B*11a LAB*a ia3END 2 add get def ia3END 15 ge {/ia3END -3 def} if /L*21a LAB*a ia3END 3 add get def /A*21a LAB*a ia3END 4 add get def /B*21a LAB*a ia3END 5 add get def /NENNER L*21a L*11a sub UXF1a mul A*21a A*11a sub UXF2a mul add B*21a B*11a sub UXF3a mul add def /ZAEHLE L*21a UXF1a mul A*21a UXF2a mul add B*21a UXF3a mul add def NENNER 0 ne {/ALPH ZAEHLE NENNER div def} {/ALPH 99999} ifelse /L*Ma ALPH L*11a mul 1 ALPH sub L*21a mul add def /A*Ma ALPH A*11a mul 1 ALPH sub A*21a mul add def /B*Ma ALPH B*11a mul 1 ALPH sub B*21a mul add def /C*Ma A*Ma dup mul B*Ma dup mul add 0.000001 add sqrt def /H*Ma B*Ma A*Ma 0.0001 add atan def %equations %/c*rs olv*smax olv*smin sub def %/n*s 1 olv*smax sub def %/w*s 1 n*s sub c*rs sub def %/t*s 1 n*s sub c*rs 0.5 mul sub def %l* = t* + c* [L*M - L*N]/[L*W - L*N] - 0.5 c* %l* = (L*Fa - L*Na) / (L*Wa - L*Na) %L*Fa = l* (L*Wa - L*Na) + L*Na %given L*Nio, L*Wio /l*rs t*s L*Ma L*Nio sub L*Wio L*Nio sub div c*rs mul add c*rs 0.5 mul sub def /L*Fa L*Nio L*Wio L*Nio sub l*rs mul add def /C*Fa C*Ma c*rs mul def /H*Fa H*Ma def /A*Fa C*Fa H*Ma cos mul def /B*Fa C*Fa H*Ma sin mul def } ifelse %chromatic colour i*p#6 } if %tLAB = 1 } bind def %END Procedure proc_olv3*s_to_olv3*u*dd_de_H*M_LAB*Ma_Fa*ioG %******************************************************************* from De990-7N04.PS /proc_ColSep*ioG {%BEG Procedure proc_ColSep*ioG ColourSeparation for NP-file 20100101 /setgc {pop pop pop 1 exch sub sggray} bind def /setgm {pop pop 1 exch sub sggray pop} bind def /setgy {pop 1 exch sub sggray pop pop} bind def /setgn {1 exch sub sggray pop pop pop} bind def /setgf {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def 0 ccolor eq 0 mcolor eq and 0 ycolor eq and {1 ncolor sub sggray} {1 ccolor sub 0.71 mul 1 mcolor sub 0.22 mul add 1 ycolor sub 0.07 mul add sggray} ifelse } bind def /setcmykcolorf { sgcmykcolor} bind def %fuer PSL1/2-Farbgeraet /setcmyknew { %Ersatz setcolornew durch setcmykcolor1 ausz 1 eq {setgc} if %C ausz 2 eq {setgm} if %M ausz 3 eq {setgy} if %Y ausz 4 eq {pop pop pop /ccolor exch def ccolor 0 0 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgc} %PSL1-SW-Geraet ifelse } if %Cbunt ausz 5 eq {pop pop /mcolor exch def pop 0 mcolor 0 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgm} %PSL1-SW-Geraet ifelse } if %Mbunt ausz 6 eq {pop /ycolor exch def pop pop 0 0 ycolor 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgy} %PSL1-SW-Geraet ifelse } if %Ybunt ausz 7 eq {setgn} if %N ausz 8 ge { /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgf} %PSL1-SW-Geraet ifelse } if %bei ausz=8: Farb- oder SW-Ausdruck je nach Drucker } bind def %********************************************************************* /rgb_LAB_Interp_olv*ioG {%BEG Procedure rgb_LAB_Interp_olv*ioG zm60'LABINPLT.PS %assumes input of rgb, LAB_Interpolation and calculation of olv* %split in chromatic and achromatic colours %two special cases black N and white W /b exch def /g exch def /r exch def %For N and W interpolation for cf1#1 %r g sub abs 0.001 le %r b sub abs 0.001 le and {%achromatic case % /Case 0 def % r abs 0.001 le % g abs 0.001 le and % b abs 0.001 le and {%N special case % /Case 1 def % } if %N special case % % 1 r sub abs 0.001 le % 1 g sub abs 0.001 le and % 1 b sub abs 0.001 le and {%W special case % /Case 2 def % } if % }%achromatic % {%chromatic % /Case 3 def % } ifelse %chromatic %Case 1 eq {%Black N % /o* 0 def % /l* 0 def % /v* 0 def % } if %N special case %Case 2 eq {%White W % /o* 1 def % /l* 1 def % /v* 1 def % } if %W special case % %Case 0 eq Case 3 eq or {%chromatic or gray /tLAB 1 def r g b proc_olv3*s_to_olv3*u*dd_de_H*M_LAB*Ma_Fa*ioG L*Fa A*Fa B*Fa Lab2RGBinterpolation /v* exch def /l* exch def /o* exch def % } if %chromatic or gray } bind def %END Procedure rgb_LAB_Interp_olv*ioG 'zm60'LABINPLT.PS %********************************************************************* /trans_rgb3*_cmyn4*ioG {%BEG Procedure trans_rgb3*_cmyn4*ioG %assumes input of olv* o* 0 le {/o* 0.0000 def} if l* 0 le {/l* 0.0000 def} if v* 0 le {/v* 0.0000 def} if o* 1 ge {/o* 1.0000 def} if l* 1 ge {/l* 1.0000 def} if v* 1 ge {/v* 1.0000 def} if /tdel 0 def v* l* ge l* o* ge and tdel 0 eq and % v* >= l* >= o* equal y* <= m* <= c* %sector C-V of C-M, C>=M: i*p=0 {/n*n 1 v* sub def /w*w o* def /tdel 1 def } if % v* >= l* >= o* v* o* ge o* l* ge and tdel 0 eq and % v* >= o* >= l* equal y* <= c* <= m* %sector V-M of C-M, M>=C: i*p=1 {/n*n 1 v* sub def /w*w l* def /tdel 1 def } if % v* >= o* >= l* o* v* ge v* l* ge and tdel 0 eq and % o* >= v* >= l* equal c* <= y* <= m* %sector M-O of M-Y, M>=Y: i*p=2 {/n*n 1 o* sub def /w*w l* def /tdel 1 def } if % o* >= v* >= l* o* l* ge l* v* ge and tdel 0 eq and % o* >= l* >= v* equal c* <= m* <= y* %sector O-Y of M-Y, Y>=M: i*p=3 {/n*n 1 o* sub def /w*w v* def /tdel 1 def } if % o* >= l* >= v* l* o* ge o* v* ge and tdel 0 eq and % l* >= o* >= v* equal m* <= c* <= y* %sector Y-L of Y-C, Y>=C: i*p=4 {/n*n 1 l* sub def /w*w v* def /tdel 1 def } if % l* >= o* >= v* l* v* ge v* o* ge and tdel 0 eq and % l* >= v* >= o* equal m* <= y* <= c* %sector L-C of Y-C, C>=Y: i*p=5 {/n*n 1 l* sub def /w*w o* def /tdel 1 def } if % l* >= v* >= o* %achromatic %W: o*, l*, v* = 1.00 1.0 o* sub abs 0.001 le 1.0 l* sub abs 0.001 le and 1.0 v* sub abs 0.001 le and %W special case {/n*n 0 def /w*w 1 def %W } if %N: o*, l*, v* <= 0.001 o* abs 0.001 le l* abs 0.001 le and v* abs 0.001 le and %N special case {/n*n 1 def /w*w 0 def %N } if %Achromatic o* l* sub abs 0.001 le l* v* sub abs 0.001 le and %Achromatic special case {/n*n 1 o* sub def /w*w o* def %grey } if /lab*wFa w*w def /lab*nFa n*n def /c3*Fa 1 o* sub def /m3*Fa 1 l* sub def /y3*Fa 1 v* sub def /c4*Fa c3*Fa lab*nFa sub def %at least one of cmy will be cero /m4*Fa m3*Fa lab*nFa sub def /y4*Fa y3*Fa lab*nFa sub def /n4*Fa lab*nFa def %cmyn4* /o4*Fa 1 c4*Fa sub def /l4*Fa 1 m4*Fa sub def /v4*Fa 1 y4*Fa sub def /i4*Fa 1 n4*Fa sub def } bind def %END Procedure trans_rgb3*_cmyn4*ioG %******************************************************************* /trans_rgb3*_cmyn5*ioG {%BEG Procedure trans_rgb3*_cmyn5*ioG %assumes input of olv*, 'zm60'CMYN559LT.PS o* 0 le {/o* 0.0000 def} if l* 0 le {/l* 0.0000 def} if v* 0 le {/v* 0.0000 def} if o* 1 ge {/o* 1.0000 def} if l* 1 ge {/l* 1.0000 def} if v* 1 ge {/v* 1.0000 def} if /ok* o* def /lk* l* def /vk* v* def /tdel 0 def vk* lk* ge lk* ok* ge and tdel 0 eq and % v* >= l* >= o* equal y* <= m* <= c* %sector C-V of C-M, C>=M: i*p=0 {/n*n 1 vk* sub def /w*w ok* def /m*w lk* def /tdel 1 def /isec 3 def } if % v* >= l* >= o* vk* ok* ge ok* lk* ge and tdel 0 eq and % v* >= o* >= l* equal y* <= c* <= m* %sector V-M of C-M, M>=C: i*p=1 {/n*n 1 vk* sub def /w*w lk* def /m*w ok* def /tdel 1 def /isec 4 def } if % v* >= o* >= l* ok* vk* ge vk* lk* ge and tdel 0 eq and % o* >= v* >= l* equal c* <= y* <= m* %sector M-O of M-Y, M>=Y: i*p=2 {/n*n 1 ok* sub def /w*w lk* def /m*w vk* def /tdel 1 def /isec 5 def } if % o* >= v* >= l* ok* lk* ge lk* vk* ge and tdel 0 eq and % o* >= l* >= v* equal c* <= m* <= y* %sector O-Y of M-Y, Y>=M: i*p=3 {/n*n 1 ok* sub def /w*w vk* def /m*w lk* def /tdel 1 def /isec 0 def } if % o* >= l* >= v* lk* ok* ge ok* vk* ge and tdel 0 eq and % l* >= o* >= v* equal m* <= c* <= y* %sector Y-L of Y-C, Y>=C: i*p=4 {/n*n 1 lk* sub def /w*w vk* def /m*w ok* def /tdel 1 def /isec 1 def } if % l* >= o* >= v* lk* vk* ge vk* ok* ge and tdel 0 eq and % l* >= v* >= o* equal m* <= y* <= c* %sector L-C of Y-C, C>=Y: i*p=5 {/n*n 1 lk* sub def /w*w ok* def /m*w vk* def /tdel 1 def /isec 2 def } if % l* >= v* >= o* %achromatic %W: ok*, lk*, vk* = 1.00 1.0 ok* sub abs 0.001 le 1.0 lk* sub abs 0.001 le and 1.0 vk* sub abs 0.001 le and %W special case {/n*n 0 def /w*w 1 def /m*w 1 def %W /isec 6 def } if %N: ok*, lk*, vk* <= 0.001 ok* abs 0.001 le lk* abs 0.001 le and vk* abs 0.001 le and %N special case {/n*n 1 def /w*w 0 def /m*w 0 def %N /isec 6 def } if %Achromatic ok* lk* sub abs 0.001 le lk* vk* sub abs 0.001 le and %Achromatic special case {/n*n 1 ok* sub def /w*w ok* def /m*w ok* def %grey /isec 6 def } if /lab*wFa w*w def /lab*nFa n*n def /lab*cFa 1 n*n sub w*w sub def /argb 1 lab*nFa sub def /brgb m*w def /crgb lab*wFa def /c* lab*cFa def /lab*tFa 1 lab*nFa sub lab*cFa 0.5 mul sub def isec 6 eq {%BEG isec=6 achromatic /o*1 1 def /l*1 1 def /v*1 1 def }%END isec=6 achromatic {%BEG isec#6 chromatic /o*1 ok* argb 0.000001 add div def /l*1 lk* argb 0.000001 add div def /v*1 vk* argb 0.000001 add div def } ifelse %END isec#6 /c3*Fa 1 o*1 sub def /m3*Fa 1 l*1 sub def /y3*Fa 1 v*1 sub def /c4*Fa c3*Fa def %at least one of cmy will be cero /m4*Fa m3*Fa def /y4*Fa y3*Fa def /n4*Fa lab*nFa def %cmyn5* /o4*Fa 1 c4*Fa sub def /l4*Fa 1 m4*Fa sub def /v4*Fa 1 y4*Fa sub def /i4*Fa 1 n4*Fa sub def } bind def %END Procedure trans_rgb3*_cmyn5*ioG 'zm60'CMYN559LT.PS %********************************************************************* /trans_rgb3*_cmyn6*ioG {%BEG Procedure trans_rgb3*_cmyn6*ioG %assumes input of olv*, 'zm60'CMYN559LT.PS o* 0 le {/o* 0.0000 def} if l* 0 le {/l* 0.0000 def} if v* 0 le {/v* 0.0000 def} if o* 1 ge {/o* 1.0000 def} if l* 1 ge {/l* 1.0000 def} if v* 1 ge {/v* 1.0000 def} if /ok* o* def /lk* l* def /vk* v* def /tdel 0 def vk* lk* ge lk* ok* ge and tdel 0 eq and % v* >= l* >= o* equal y* <= m* <= c* %sector C-V of C-M, C>=M: i*p=0 {/n*n 1 vk* sub def /w*w ok* def /m*w lk* def /tdel 1 def /isec 3 def } if % v* >= l* >= o* vk* ok* ge ok* lk* ge and tdel 0 eq and % v* >= o* >= l* equal y* <= c* <= m* %sector V-M of C-M, M>=C: i*p=1 {/n*n 1 vk* sub def /w*w lk* def /m*w ok* def /tdel 1 def /isec 4 def } if % v* >= o* >= l* ok* vk* ge vk* lk* ge and tdel 0 eq and % o* >= v* >= l* equal c* <= y* <= m* %sector M-O of M-Y, M>=Y: i*p=2 {/n*n 1 ok* sub def /w*w lk* def /m*w vk* def /tdel 1 def /isec 5 def } if % o* >= v* >= l* ok* lk* ge lk* vk* ge and tdel 0 eq and % o* >= l* >= v* equal c* <= m* <= y* %sector O-Y of M-Y, Y>=M: i*p=3 {/n*n 1 ok* sub def /w*w vk* def /m*w lk* def /tdel 1 def /isec 0 def } if % o* >= l* >= v* lk* ok* ge ok* vk* ge and tdel 0 eq and % l* >= o* >= v* equal m* <= c* <= y* %sector Y-L of Y-C, Y>=C: i*p=4 {/n*n 1 lk* sub def /w*w vk* def /m*w ok* def /tdel 1 def /isec 1 def } if % l* >= o* >= v* lk* vk* ge vk* ok* ge and tdel 0 eq and % l* >= v* >= o* equal m* <= y* <= c* %sector L-C of Y-C, C>=Y: i*p=5 {/n*n 1 lk* sub def /w*w ok* def /m*w vk* def /tdel 1 def /isec 2 def } if % l* >= v* >= o* %achromatic %W: ok*, lk*, vk* = 1.00 1.0 ok* sub abs 0.001 le 1.0 lk* sub abs 0.001 le and 1.0 vk* sub abs 0.001 le and %W special case {/n*n 0 def /w*w 1 def /m*w 1 def %W /isec 6 def } if %N: ok*, lk*, vk* <= 0.001 ok* abs 0.001 le lk* abs 0.001 le and vk* abs 0.001 le and %N special case {/n*n 1 def /w*w 0 def /m*w 0 def %N /isec 6 def } if %Achromatic ok* lk* sub abs 0.001 le lk* vk* sub abs 0.001 le and %Achromatic special case {/n*n 1 ok* sub def /w*w ok* def /m*w ok* def %grey /isec 6 def } if /lab*wFa w*w def /lab*nFa n*n def /lab*cFa 1 n*n sub w*w sub def /argb 1 lab*nFa sub def /brgb m*w def /crgb lab*wFa def /c* lab*cFa def /lab*tFa 1 lab*nFa sub lab*cFa 0.5 mul sub def isec 6 eq {%BEG isec=6 achromatic /o*1 1 def /l*1 1 def /v*1 1 def }%END isec=6 achromatic {%BEG isec#6 chromatic /o*1 ok* argb 0.000001 add div def /l*1 lk* argb 0.000001 add div def /v*1 vk* argb 0.000001 add div def } ifelse %END isec#6 /c3*Fa 1 o*1 sub def /m3*Fa 1 l*1 sub def /y3*Fa 1 v*1 sub def /c41*Fa c3*Fa def %at least one of cmy will be cero /m41*Fa m3*Fa def /y41*Fa y3*Fa def /n4*Fa lab*nFa 1.0 exp def %cmyn6* %change by deepness difference delta d* = c*S1 - c*S2 %use lab*cFa, lab*tFa for correction %equations of three lines %t* = 1 - 0.5 c* %t* = [t* / c*] c* %t* = [(t* + 0,18) / c*] c* - 0,18 %cut point S1 for nt=0,18: %c*s1 = 1 /[ t*F / c*F + 0,5 ] %cut point S2 for n=0,18: %c*s1 = (1 + nt) / [ (t*F + nt) / c*F + 0,5 ] %special case lab*cFa=0 and n=0,18 /nt 0.18 def lab*cFa 0 eq { %lab*cFa=0,#0 /c*S1 0 def /c*S2 0 def } %lab*cFa=0 { %lab*cFa#0 /c*S1 1 lab*tFa lab*cFa div 0.5 add div def /c*S2 1 nt add lab*tFa nt add lab*cFa div 0.5 add div def } ifelse %lab*cFa=0,#0 /c4*Fa c41*Fa c41*Fa c*S1 c*S2 sub mul sub def /m4*Fa m41*Fa m41*Fa c*S1 c*S2 sub mul sub def /y4*Fa y41*Fa y41*Fa c*S1 c*S2 sub mul sub def /o4*Fa 1 c4*Fa sub def /l4*Fa 1 m4*Fa sub def /v4*Fa 1 y4*Fa sub def /i4*Fa 1 n4*Fa sub def } bind def %END Procedure trans_rgb3*_cmyn6*ioG 'zm60'CMYN559LT.PS %********************************************************************* %BEG 'zm60'COLM57_590415LT.PS 20100101 ColSpx 0 eq {%ColSpx=0 /tLAB 0 def xcharti 1 ge {%xcharti>=1 'zm60'COLM57LT.PS cmy0* 20100101 colorm 0 eq {%BEG colorm=0 /setrgbcolor {/v* exch def /l* exch def /o* exch def %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if %standard cmy0* for input /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def rgb_cmy 1 eq {c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew} {o* l* v* sgrgbcolor} ifelse } def /setgray {dup dup /v* exch def /l* exch def /o* exch def %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if %standard cmy0* for input /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def rgb_cmy 1 eq {c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew} {o* l* v* sgrgbcolor} ifelse } def /setcmykcolor {/n*n exch def /y*n exch def /m*n exch def /c*n exch def %standard cmy0* for input n*n 0 eq {/o* 1 c*n sub def /l* 1 m*n sub def /v* 1 y*n sub def /i* 0 def } {/o* 1 n*n sub def /l* 1 n*n sub def /v* 1 n*n sub def /i* 0 def } ifelse %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def rgb_cmy 1 eq {c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew} {o* l* v* sgrgbcolor} ifelse } def }%END colorm=0 {%BEG colorm=1 /setrgbcolor {/v* exch def /l* exch def /o* exch def %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if o* l* v* rgb_LAB_Interp_olv*ioG /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def rgb_cmy 1 eq {c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew} {o* l* v* sgrgbcolor} ifelse } def /setgray {/w*w exch def /o* w*w def /l* w*w def /v* w*w def %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if o* l* v* rgb_LAB_Interp_olv*ioG /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def rgb_cmy 1 eq {c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew} {o* l* v* sgrgbcolor} ifelse } def /setcmykcolor {/n*n exch def /y*n exch def /m*n exch def /c*n exch def %standard cmy0* or 000n* for input n*n 0 eq {/o* 1 c*n sub def /l* 1 m*n sub def /v* 1 y*n sub def} {/o* 1 n*n sub def /l* 1 n*n sub def /v* 1 n*n sub def} ifelse %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if o* l* v* rgb_LAB_Interp_olv*ioG /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def rgb_cmy 1 eq {c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew} {o* l* v* sgrgbcolor} ifelse } def } ifelse %END colorm=1 }%END %xcharti>=1 {%BEG %xcharti=0 /setrgbcolor {/v* exch def /l* exch def /o* exch def /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def o* l* v* sgrgbcolor } def /setgray {dup dup /v* exch def /l* exch def /o* exch def /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def o* sggray } def /setcmykcolor {/n*n exch def /y*n exch def /m*n exch def /c*n exch def n*n 0 eq {/o* 1 c*n sub def /l* 1 m*n sub def /v* 1 y*n sub def /n4*Fa 0 def} {/o* 1 def /l* 1 def /v* 1 def /n4*Fa n*n def} ifelse /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def c4*Fa m4*Fa y4*Fa n4*Fa sgcmykcolor } def } ifelse %END %xcharti=0 'zm60'COLM57LT.PS cmy0* 20100101 } if %ColSpx=0 %********************************************************************* ColSpx 1 eq {%ColSpx=1 /tLAB 0 def xcharti 1 ge {%xcharti>=1 'zm60'COLM559LT.PS cmyn6* 20080201 colorm 0 eq {%BEG colorm=0 /olvtrans 1 def %changes olv* to olvk* /setrgbcolor {/v* exch def /l* exch def /o* exch def %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if trans_rgb3*_cmyn6*ioG %in: olv*, out: cmyn6 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def /setgray {/w*w exch def /v* w*w def /l* w*w def /o* w*w def %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if trans_rgb3*_cmyn6*ioG %in: olv*, out: cmyn6 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def /setcmykcolor {/n*n exch def /y*n exch def /m*n exch def /c*n exch def %standard cmy0* or 000n* for input n*n 0 eq {/o* 1 c*n sub def /l* 1 m*n sub def /v* 1 y*n sub def} {/o* 1 n*n sub def /l* 1 n*n sub def /v* 1 n*n sub def} ifelse %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if trans_rgb3*_cmyn6*ioG %in: olv*, out: cmyn6 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def }%END colorm=0 {%BEG colorm=1 /olvtrans 0 def %no change of olv* /setrgbcolor {/v* exch def /l* exch def /o* exch def %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if o* l* v* rgb_LAB_Interp_olv*ioG trans_rgb3*_cmyn6*ioG %in: olv*, out: cmyn6 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def /setgray {dup dup /v* exch def /l* exch def /o* exch def %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if o* l* v* rgb_LAB_Interp_olv*ioG trans_rgb3*_cmyn6*ioG %in: olv*, out: cmyn6 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def /setcmykcolor {/n*n exch def /y*n exch def /m*n exch def /c*n exch def %standard cmy0* or 000n* for input n*n 0 eq {/o* 1 c*n sub def /l* 1 m*n sub def /v* 1 y*n sub def} {/o* 1 n*n sub def /l* 1 n*n sub def /v* 1 n*n sub def} ifelse %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if o* l* v* rgb_LAB_Interp_olv*ioG trans_rgb3*_cmyn6*ioG %in: olv*, out: cmyn6 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def } ifelse %END colorm=1 }%END %xcharti>=0 {%BEG %xcharti=0 /setrgbcolor {/v* exch def /l* exch def /o* exch def /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def o* l* v* sgrgbcolor } def /setgray {dup dup /v* exch def /l* exch def /o* exch def /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def o* sggray } def /setcmykcolor {/n*n exch def /y*n exch def /m*n exch def /c*n exch def n*n 0 eq {/o* 1 c*n sub def /l* 1 m*n sub def /v* 1 y*n sub def /n4*Fa 0 def} {/o* 1 def /l* 1 def /v* 1 def /n4*Fa n*n def} ifelse /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def c4*Fa m4*Fa y4*Fa n4*Fa sgcmykcolor } def } ifelse %END %xcharti=0 'zm60'COLM559LT.PS cmyn6* 20080201 } if %ColSpx=1 %*************************************************************** ColSpx 2 eq {%ColSpx=2 /tLAB 0 def xcharti 1 ge {%xcharti>=1 'zm60'COLM58LT.PS cmyn4* 20100101 colorm 0 eq {%BEG colorm=0 /setrgbcolor {/v* exch def /l* exch def /o* exch def %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if trans_rgb3*_cmyn4*ioG %in: olv*, out: cmyn4 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def /setgray {dup dup /v* exch def /l* exch def /o* exch def %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if trans_rgb3*_cmyn4*ioG %in: olv*, out: cmyn4 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def /setcmykcolor {/n*n exch def /y*n exch def /m*n exch def /c*n exch def %standard cmy0* or 000n* for input n*n 0 eq {/o* 1 c*n sub def /l* 1 m*n sub def /v* 1 y*n sub def} {/o* 1 n*n sub def /l* 1 n*n sub def /v* 1 n*n sub def} ifelse %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if trans_rgb3*_cmyn4*ioG %in: olv*, out: cmyn4 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def }%END colorm=0 {%BEG colorm=1 /setrgbcolor {/v* exch def /l* exch def /o* exch def %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if o* l* v* rgb_LAB_Interp_olv*ioG trans_rgb3*_cmyn4*ioG %needs olv* for input %produces cmyn4*ioG as output c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def /setgray {dup dup /v* exch def /l* exch def /o* exch def %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if o* l* v* rgb_LAB_Interp_olv*ioG trans_rgb3*_cmyn4*ioG %in: olv*, out: cmyn4 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def /setcmykcolor {/n*n exch def /y*n exch def /m*n exch def /c*n exch def %standard cmy0* or 000n* for input n*n 0 eq {/o* 1 c*n sub def /l* 1 m*n sub def /v* 1 y*n sub def} {/o* 1 n*n sub def /l* 1 n*n sub def /v* 1 n*n sub def} ifelse %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if o* l* v* rgb_LAB_Interp_olv*ioG trans_rgb3*_cmyn4*ioG %in: olv*, out: cmyn4 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def } ifelse %END colorm=1 }%END %xcharti>=0 {%BEG %xcharti=0 /setrgbcolor {/v* exch def /l* exch def /o* exch def /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def o* l* v* sgrgbcolor } def /setgray {dup dup /v* exch def /l* exch def /o* exch def /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def o* sggray } def /setcmykcolor {/n*n exch def /y*n exch def /m*n exch def /c*n exch def n*n 0 eq {/o* 1 c*n sub def /l* 1 m*n sub def /v* 1 y*n sub def /n4*Fa 0 def} {/o* 1 def /l* 1 def /v* 1 def /n4*Fa n*n def} ifelse /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def c4*Fa m4*Fa y4*Fa n4*Fa sgcmykcolor } def } ifelse %END %xcharti=0 'zm60'COLM58LT.PS cmyn4* 20100101 } if %ColSpx=2 %************************************************************* ColSpx 3 eq {%ColSpx=3 /tLAB 0 def xcharti 1 ge {%xcharti>=1 'zm60'COLM559LT.PS cmyn5* 20100101 colorm 0 eq {%BEG colorm=0 /setrgbcolor {/v* exch def /l* exch def /o* exch def %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if trans_rgb3*_cmyn5*ioG %in: olv*, out: cmyn5 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def /setgray {dup dup /v* exch def /l* exch def /o* exch def %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if trans_rgb3*_cmyn5*ioG %in: olv*, out: cmyn5 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def /setcmykcolor {/n*n exch def /y*n exch def /m*n exch def /c*n exch def %standard cmy0* or 000n* for input n*n 0 eq {/o* 1 c*n sub def /l* 1 m*n sub def /v* 1 y*n sub def} {/o* 1 n*n sub def /l* 1 n*n sub def /v* 1 n*n sub def} ifelse %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if trans_rgb3*_cmyn5*ioG %in: olv*, out: cmyn5 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def }%END colorm=0 {%BEG colorm=1 /olvtrans 0 def %no change of olv* /setrgbcolor {/v* exch def /l* exch def /o* exch def %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if o* l* v* rgb_LAB_Interp_olv*ioG trans_rgb3*_cmyn5*ioG %in: olv*, out: cmyn5 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def /setgray {dup dup /v* exch def /l* exch def /o* exch def %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if o* l* v* rgb_LAB_Interp_olv*ioG trans_rgb3*_cmyn5*ioG %in: olv*, out: cmyn5 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def /setcmykcolor {/n*n exch def /y*n exch def /m*n exch def /c*n exch def %standard cmy0* or 000n* for input n*n 0 eq {/o* 1 c*n sub def /l* 1 m*n sub def /v* 1 y*n sub def} {/o* 1 n*n sub def /l* 1 n*n sub def /v* 1 n*n sub def} ifelse %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if o* l* v* rgb_LAB_Interp_olv*ioG trans_rgb3*_cmyn5*ioG %in: olv*, out: cmyn5 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def } ifelse %END colorm=1 }%END %xcharti>=0 {%BEG %xcharti=0 /setrgbcolor {/v* exch def /l* exch def /o* exch def /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def o* l* v* sgrgbcolor } def /setgray {dup dup /v* exch def /l* exch def /o* exch def /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def o* sggray } def /setcmykcolor {/n*n exch def /y*n exch def /m*n exch def /c*n exch def n*n 0 eq {/o* 1 c*n sub def /l* 1 m*n sub def /v* 1 y*n sub def /n4*Fa 0 def} {/o* 1 def /l* 1 def /v* 1 def /n4*Fa n*n def} ifelse /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def c4*Fa m4*Fa y4*Fa n4*Fa sgcmykcolor } def } ifelse %END %xcharti=0 'zm60'COLM559LT.PS cmyn5* 20100101 } if %ColSpx=3 } bind def %BEG Procedure proc_ColSep*ioG ColourSeparation for NP-file 20100101 %***************************************************************************** %END JK0X->JE39/OUTLIN1X.PS, ident. for NP-(*ioG), FP-files (*ioG) 20100101 %***************************************************************************** %BEG DM00/CMISO_S1gLAB.DAT Output Linearization (OL), GLOBAL (G), 20011201 %EMPTY %END DM00/CMISO_S1gLAB.DAT Output Linearization (OL), GLOBAL (G), 20011201 %BEG DM00/CMISO_S1gXYZ.DAT Output Linearization (OL), GLOBAL (G), 20011201 %EMPTY %END DM00/CMISO_S1gXYZ.DAT Output Linearization (OL), GLOBAL (G), 20011201 %BEG DM00/CM_S1GCMYOS.DAT Output Linearization (OL), GLOBAL (G), 20010901 %EMPTY %END DM00/CM_S1GCMYOS.DAT Output Linearization (OL), GLOBAL (G), 20010901 %BEG JK0X->JE39/OUTLIN1Y.PS 20100101 %EMPTY %END JK0X->JE39/OUTLIN1Y.PS 20100101 %BEG JK0X->JE39/OUTLIN1I.PS 20100101 %EMPTY %END JK0X->JE39/OUTLIN1I.PS 20100101 (www.ps.bam.de/JE39/JE39L0N) def %Link file name for data /CDateS1g (2010-01-01, Name) def %Date of calculation, Tester /CDeviceS1g (unknown ) def %Device name /CMeasS1g (JE39/JE39L0N) def %File name measured in step S1g %change scount2g from 2 to 10 for 10 series %change pcount2g from 8 to 240 for 240 pages of each series /scount1g 1 def /scount2g 1 def /scountg 1 def /pcount1g 1 def /pcount2g 10 def /pcountg 1 def %start=1, one more 9+1! /xchart1g 0 def /xchart2g 9 def /xchartg 0 def /BeginEPSF { % def % Prepare for EPS file /b4_Inc_state save def % Save state for cleanup /dict_count countdictstack def /op_count count 1 sub def % Count objects on op stack userdict begin % Make userdict current dict /showpage {} def 0 setgray 0 setlinecap 1 setlinewidth 0 setlinejoin 10 setmiterlimit [] 0 setdash newpath /languagelevel where % If level not equal to 1 then {pop languagelevel where % If level not equal to 1 then 1 ne {false setstrokeadjust false setoverprint } if } if } bind def /EndEPSF { % def count op_count sub {pop} repeat countdictstack dict_count sub {end} repeat % Clean up dict stack b4_Inc_state restore } 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 % !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 /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {300 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def %ANFA CMYKDEF %CMYKDEA0 (A0=Standard-Drucker-CMYKDEF) 15.3.97 /tzac [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzam [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzay [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzan [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tza0 [0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000] def /tza1 [1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000] def %ENDE CMYKD /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 /colrecfiLAB* %x y width heigth LAB* { setcolor rec fill} bind def /colrecstLAB* %x y width heigth LAB* { setcolor rec stroke} bind def /colrecficmyn* %x y width heigth cmy0* or 000n* { setcmykcolor rec fill} bind def /colrecstcmyn* %x y width heigth cmy0* or 000n* { setcmykcolor rec stroke} bind def /colrecfiw* %x y width heigth w* { setgray rec fill} bind def /colrecstw* %x y width heigth w* { setgray rec stroke} bind def /colrecfiolv* %x y width heigth olv* { setrgbcolor rec fill} bind def /colrecstolv* %x y width heigth olv* { setrgbcolor rec stroke} bind def /tzocmy0* {0.0 1.0 1.0 0.0} bind def %Reproduction colours /tzlcmy0* {1.0 0.0 1.0 0.0} bind def %cmyn* setcmykcolor /tzvcmy0* {1.0 1.0 0.0 0.0} bind def /tzccmy0* {1.0 0.0 0.0 0.0} bind def /tzmcmy0* {0.0 1.0 0.0 0.0} bind def /tzycmy0* {0.0 0.0 1.0 0.0} bind def /tzoolv* {1.0 0.0 0.0} bind def %Reproduction colours /tzlolv* {0.0 1.0 0.0} bind def %olv* setrgbcolor /tzvolv* {0.0 0.0 1.0} bind def /tzcolv* {0.0 1.0 1.0} bind def /tzmolv* {1.0 0.0 1.0} bind def /tzyolv* {1.0 1.0 0.0} bind def /tzoLAB* [53.34 72.46 50.66] def %Reproduction colours /tzlLAB* [84.93 -79.83 74.80] def %LAB* setcolor /tzvLAB* [32.20 24.88 -37.89] def /tzcLAB* [88.10 -44.88 -13.36] def /tzmLAB* [59.66 90.32 -19.65] def /tzyLAB* [93.76 -20.24 85.93] def /tzncmy0* {1.00 1.00 1.00 0.00} bind def %grey series /tzdcmy0* {0.75 0.75 0.75 0.00} bind def %cmy0* setcmykcolor /tzzcmy0* {0.50 0.50 0.50 0.00} bind def /tzhcmy0* {0.25 0.25 0.25 0.00} bind def /tzwcmy0* {0.00 0.00 0.00 0.00} bind def /tzn000n* {0.00 0.00 0.00 1.00} bind def %grey series 000n* /tzd000n* {0.00 0.00 0.00 0.75} bind def %000n* setcmykcolor /tzz000n* {0.00 0.00 0.00 0.50} bind def /tzh000n* {0.00 0.00 0.00 0.25} bind def /tzw000n* {0.00 0.00 0.00 0.00} bind def /tznw* {0.00} bind def %grey series /tzdw* {0.25} bind def %w* setgray /tzzw* {0.50} bind def /tzhw* {0.75} bind def /tzww* {1.00} bind def /tznolv* {0.00 0.00 0.00} bind def %grey series /tzdolv* {0.25 0.25 0.25} bind def %olv* setrgbcolor /tzzolv* {0.50 0.50 0.50} bind def /tzholv* {0.75 0.75 0.75} bind def /tzwolv* {1.00 1.00 1.00} bind def /tznLAB* [18.01 0.00 0.00] def %grey series /tzdLAB* [37.36 0.00 0.00] def %LAB* setcolor /tzzLAB* [56.71 0.00 0.00] def /tzhLAB* [76.06 0.00 0.00] def /tzwLAB* [95.41 0.00 0.00] def /tfn {0 setgray} bind def /tfw {1 setgray} bind def /A4quer {598 0 translate 90 rotate} def /cviht {dup 0 ge {0.49 add}{0.49 sub} ifelse cvi} def /cvishow {dup 0 ge {0.5 add} {0.5 sub} ifelse cvi 6 string cvs show} def /cvsshow1 {dup 0 ge {0.05 add} {0.05 sub} ifelse 10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {dup 0 ge {0.005 add} {0.005 sub} ifelse 100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {dup 0 ge {0.0005 add} {0.0005 sub} ifelse 1000 mul cvi 0.001 mul 7 string cvs show} def /tzank [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def %BEG xx lines comment %1 %2 %3 %4 %END 38 lines comment or new PS operators possible %%EndProlog %%BeginPageSetup /#copies 1 def %A4quer 1.0 1.0 scale /pgsave save def %%EndPageSetup 0.0 MM 0.0 MM translate %Verschiebung nach oben und links fuer Belichter gsave /LAB*TE [(sRGB, L*=18_95)] def /SS$ [(G) (E) (S) (F) (I) (J) (M)] def /SC$ [(N) (F) (S) (D) (T) (E) (C)] def /SX$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)] def /SY$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)] def % 0 1 2 3 4 5 % 6 7 8 /EX$ [(A.TXT /.PS) (B.BMP /.PS) (G.GIF /.PS) (H.HTM /.PS) (I.HTM /.PS) (J.JPE /.PS) (P.PDF /.PS) (T.TIF /.PS)] def /EY$ [(A.DAT) (B.DAT) (G.DAT) (H.DAT) (I.DAT) (J.DAT) (P.DAT) (T.DAT)] def /lanindg1 1 def /lanindg2 1 def /colormg1 1 def /colormg2 1 def /xcolorg1 0 def /xcolorg2 0 def /xchartg1 0 def /xchartg2 0 def /lanindg lanindg1 def %no loops /colormg colormg1 def /xcolorg xcolorg1 def /xchartg xchartg1 def /pcount2x pcount2g xchart2g sub 2 add def %scount1g 1 scount2g {/scountg exch def %s=serie, e. g. 1,1,10 %pcount1g 1 pcount2x {/pcountg exch def %p=page, e. g. 1,1,250 /xchart10 0 def /xchart20 29 def %29x1=29 orig, trans+1, 4 sep, 9+2x7 colour data %pcountg pcount1g eq {/xchart10 17 def /xchart20 0 def} % {/xchart10 1 def /xchart20 1 def} ifelse %pcountg pcount2x eq {/xchart10 2 def /xchart20 9 def} if xchart10 1 xchart20 {/xchartg exch def /xcharti xchartg def xcharti 0 eq {/ausz 8 def /xchartt (A) def} if xcharti 1 eq {/ausz 8 def /xchartt (F) def} if xcharti 2 eq {/ausz 8 def /xchartt (F) def} if xcharti 3 eq {/ausz 1 def /xchartt (C) def} if xcharti 4 eq {/ausz 2 def /xchartt (M) def} if xcharti 5 eq {/ausz 3 def /xchartt (Y) def} if xcharti 6 eq {/ausz 7 def /xchartt (N) def} if xcharti 7 ge {/ausz 8 def /xchartt (F) def} if /xchartg0 0 def /colorm colormg def /xchart xcharti xchartg0 sub def %LAB*ioL, ColSep*ioL, and procedures (*ioL) are only in Y10-7N.EPS %proc_LAB*ioG, proc_ColSep*ioG, and procedures (*ioG) are only in JE39L0FP.PS6.PS and OUTLIN1X %for colorm=0, default rgb/cmyk-values are used for Frame %for colorm=1, rgb/cmyk-values of proc_LAB*ioG, proc_ColSep*ioG are used for Frame %for colorm=0, rgb/cmyk-values of LAB*ioL, ColSep*ioL are used in Y10-7N %for colorm=1, rgb/cmyk-values of proc_LAB*ioG, proc_ColSep*ioG are used in Y10-7N %for consistancy use same procedures in Y10-7N and JE39L0FP.PS6.PS colorm 1 eq {proc_LAB*ioG proc_ColSep*ioG} if %LAB*ioL, ColSep*ioL only in Y10-7! %2 MM /Times-Roman FS %274 MM 82 MM moveto -90 rotate (/JE39/ ) show (Form: ) show %xchartg 1 add cvi 6 string cvs show (/) show %xchart2g 1 add cvi 6 string cvs show (,) show 90 rotate %274 MM 65 MM moveto -90 rotate (Serie: ) show %scountg cvi 6 string cvs show (/) show %scount2g cvi 6 string cvs show (,) show 90 rotate %274 MM 55 MM moveto -90 rotate %lanindg 0 eq {(Seite: )}{(Page: )} ifelse show %pcountg xchartg xchart10 sub add cvi 6 string cvs show 90 rotate %274 MM 45 MM moveto %-90 rotate %lanindg 0 eq {(Seitenz\344hlung )}{(Page: count: )} ifelse show %scountg 1 sub pcount2g mul pcountg add %pcountg pcount2x eq {xchartg add pcount1g pcount2x ne {2 sub } if} if %cvi 6 string cvs show %90 rotate /GSS$ SS$ lanindg get def /GSC$ SC$ colormg get def /GSX$ SX$ xcolorg xcolorg 16 idiv 16 mul sub get def /GSY$ SY$ xchartg xchartg 16 idiv 16 mul sub get def /GEX$ EX$ 6 get def /GEY$ EY$ 6 get def %gsave BeginEPSF 28 MM 197 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto 1 1 scale -77 -91 translate %%BeginDocument: Bild 10 %line 329 %%EndDocument EndEPSF grestore gsave BeginEPSF 28 MM 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto 1 1 scale -77 -91 translate %%BeginDocument: Bild 11 %line 339 %!PS-Adobe-3.0 EPSF-3.0 JE390-1, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (JE390-1,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 12 %line 349 %!PS-Adobe-3.0 EPSF-3.0 JE390-2, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (JE390-2,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 28 MM 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 13 %line 359 %!PS-Adobe-3.0 EPSF-3.0 JE390-3, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (JE390-3,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 14 %line 369 %!PS-Adobe-3.0 EPSF-3.0 JE390-4, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (JE390-4,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 28 MM 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 15 %line 379 %!PS-Adobe-3.0 EPSF-3.0 JE390-5, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (JE390-5,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 16 %line 389 %!PS-Adobe-3.0 EPSF-3.0 JE390-6, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (JE390-6,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 28 MM xcharti 1 le {18}{01} ifelse MM add 20 MM xcharti 1 le {26}{15.5} ifelse MM add translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 17 %line 399 %!PS-Adobe-3.0 EPSF-3.0 JE390-7N.EPS %%BoundingBox: 14 10 820 572 %START PDFDE011.EPS /pdfmark07 where {pop} {userdict /pdfmark07 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: http://130.149.60.45/~farbmetrik/JE39/) /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:2010010112000) /ModDate (D:2010010112000) /DOCINFO pdfmark07 [ /View [ /FitB ] /DOCVIEW pdfmark07 %END PDFDE011 /ColSpxL 0 def /DEintp 1 def /rgb_cmy 0 def %Early binding /sggray where {pop /slgray {sggray} bind def} {/slgray {setgray} bind def} ifelse /sgcmykcolor where {pop /slcmykcolor {sgcmykcolor} bind def} {/slcmykcolor {setcmykcolor} bind def} ifelse /sgrgbcolor where {pop /slrgbcolor {sgrgbcolor} bind def} {/slrgbcolor {setrgbcolor} bind def} ifelse /ColSpxG where {pop /ColSpx {ColSpxG} bind def} {/ColSpx {ColSpxL} bind def} ifelse /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse } forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse } forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse } forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse } forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /Courier findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Courier-ISOL1 exch definefont pop /Courier-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierB-ISOL1 exch definefont pop /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {300 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /CKK {200 /Courier-ISOL1 FS} bind def /CK {250 /Courier-ISOL1 FS} bind def /CM {300 /Courier-ISOL1 FS} bind def /CG {350 /Courier-ISOL1 FS} bind def /CBKK {200 /CourierB-ISOL1 FS} bind def /CBK {250 /CourierB-ISOL1 FS} bind def /CBM {300 /CourierB-ISOL1 FS} bind def /CBG {350 /CourierB-ISOL1 FS} bind def %***************************************************************************** %BEG JK0X->JE39/Y10-7N.EPS, ident. for NP-(*ioL), FP-files (*ioL) 20100101 %***************************************************************************** %Data (LECD, L*=18_95) /proc_LAB*ioL {%BEG Procedure proc_LAB*ioL %requires ISRL*ioL=0,1,3 /RJGBLAB* 12 array def /RJGBLAB*[ 39.92 58.74 27.99 % R CIE No.09 elementary colours in LAB, D65 81.26 -2.89 71.56 % J CIE No.10 52.23 -42.42 13.60 % G CIE No.11 30.57 1.41 -46.47 % B CIE No.12 ] def /LAB* 132 array def %12x3=36 including N,W + 16x3=48 elementary system + 16x3=48 device system /LAB*a 132 array def /LAB*Hx 13 array def %0_to_6 8_to_12 for device and elemetary colours /LAB*00 24 array def /LAB*01 24 array def /LAB*02 24 array def /LAB*03 24 array def /LAB*04 24 array def /LAB*05 24 array def /LAB*06 24 array def /LAB*07 24 array def /LAB*TE %used in file and frame [(sRGB, L*=18_95) (TLS00) (FRS06) (TSL18) (NLS00) (NLS18) (SRS18) (TLS70) (TLS00) (TLS06) (TLS11) (TLS18) (TLS27) (TLS38) (TLS52) (TLS70) (OLS00) (OLS06) (OLS11) (OLS18) (OLS27) (OLS38) (OLS52) (OLS70)] def %LECD, L*=08_95, exchange 55 lines, 141:195 or exchange 41 lines, 154:195 ISRL*ioL 0 eq { %ISRL*ioL=0 /LAB*00 [%D=Device OYLCVMO+NW %for Offset Reflective System (ORS18) %LAB* %#1000 x (r g b c m y 0) (ORS18_95A_D65_ALM) %047.94 65.31 52.07 %O 0 %090.37 -11.16 96.17 %Y 1 %050.90 -62.97 36.71 %L 2 %058.62 -30.63 -42.75 %C 3 %see TABle 1 of ISO/IEC 15775:1999-12 %025.72 31.45 -44.36 %V 4 %048.13 75.20 -6.80 %M 5 %018.01 0.50 -0.47 %N 7 %095.41 -0.99 4.76 %W 8 %From LUT 2010_01_01 %JE260-7N, Page 41 /66, LAB*la3; cf1=1.00; nt=0.18; nx=1.0; sRGB_00_95, adapted %LAB*la3, D65, adapted, Y = 2.52 , L* = 18.01 %100 x LAB*a %#1000 x (r g b c m y 0) %nr. pos 005275 007165 004987 %#1000 0000 0000 0000 1000 1000 0000 %0648 S19 %O1 0 009274 -02006 008497 %#1000 1000 0000 0000 0000 1000 0000 %0720 a19 %Y1 1 008400 -07902 007394 %#0000 1000 0000 1000 0000 1000 0000 %0072 I01 %L1 2 008713 -04444 -01314 %#0000 1000 1000 1000 0000 0000 0000 %0080 I09 %C1 3 003546 006492 -09509 %#0000 0000 1000 1000 1000 0000 0000 %0008 A09 %V1 4 005900 008934 -05570 %#1000 0000 1000 0000 1000 0000 0000 %0656 S27 %M1 5 001800 000000 000000 %#0000 0000 0000 1000 1000 1000 0000 %0000 A01 %N1 6 009540 000000 000000 %#1000 1000 1000 0000 0000 0000 0000 %0728 a27 %W1 7 %$ %z005275 007165 004987 %#1000 0000 0000 0000 1000 1000 0000 %0801 j01 %O2 0 %z009274 -02006 008497 %#1000 1000 0000 0000 0000 1000 0000 %0882 j10 %Y2 1 %z008400 -07902 007394 %#0000 1000 0000 1000 0000 1000 0000 %0963 j19 %L2 2 %z008713 -04444 -01314 %#0000 1000 1000 1000 0000 0000 0000 %0737 b09 %C2 3 %z003546 006492 -09509 %#0000 0000 1000 1000 1000 0000 0000 %0818 b18 %V2 4 %z005900 008934 -05570 %#1000 0000 1000 0000 1000 0000 0000 %0899 b27 %M2 5 %z001800 000000 000000 %#0000 0000 0000 1000 1000 1000 0000 %0809 j09 %N2 6 %z009540 000000 000000 %#1000 1000 1000 0000 0000 0000 0000 %0729 b01 %W2 7 %$ %JE260-7N, Page 41 /66, LAB*la3; cf1=1.00; nt=0.18; nx=1.0; sRGB_00_95, adapted %LAB*la3, D65, adapted, Y = 2.52 , L* = 18.01 %100 x LAB*a %#1000 x (r g b c m y 0) %nr. pos %z005275 007165 004987 %#1000 0000 0000 0000 1000 1000 0000 %0648 S19 %O1 0 %z009274 -02006 008497 %#1000 1000 0000 0000 0000 1000 0000 %0720 a19 %Y1 1 %z008400 -07902 007394 %#0000 1000 0000 1000 0000 1000 0000 %0072 I01 %L1 2 %z008713 -04444 -01314 %#0000 1000 1000 1000 0000 0000 0000 %0080 I09 %C1 3 %z003546 006492 -09509 %#0000 0000 1000 1000 1000 0000 0000 %0008 A09 %V1 4 %z005900 008934 -05570 %#1000 0000 1000 0000 1000 0000 0000 %0656 S27 %M1 5 %z001800 000000 000000 %#0000 0000 0000 1000 1000 1000 0000 %0000 A01 %N1 6 %z009540 000000 000000 %#1000 1000 1000 0000 0000 0000 0000 %0728 a27 %W1 7 %$ %z005275 007165 004987 %#1000 0000 0000 0000 1000 1000 0000 %0801 j01 %O2 0 %z009274 -02006 008497 %#1000 1000 0000 0000 0000 1000 0000 %0882 j10 %Y2 1 %z008400 -07902 007394 %#0000 1000 0000 1000 0000 1000 0000 %0963 j19 %L2 2 %z008713 -04444 -01314 %#0000 1000 1000 1000 0000 0000 0000 %0737 b09 %C2 3 %z003546 006492 -09509 %#0000 0000 1000 1000 1000 0000 0000 %0818 b18 %V2 4 %z005900 008934 -05570 %#1000 0000 1000 0000 1000 0000 0000 %0899 b27 %M2 5 %z001800 000000 000000 %#0000 0000 0000 1000 1000 1000 0000 %0809 j09 %N2 6 %z009540 000000 000000 %#1000 1000 1000 0000 0000 0000 0000 %0729 b01 %W2 7 %$ ] def %OYLCVMO+NW /LAB*01 [%D=Device OYLCVMO+NW %for Television Luminous System (TLS00) 50.50 76.92 64.55 %O 0 92.66 -20.70 90.75 %Y 1 83.63 -82.76 79.90 %L 2 86.88 -46.17 -13.56 %C 3 %see TABle 1 of ISO/IEC 15775:1999-12 30.39 76.06 -103.6 %V 4 corected 57.30 94.35 -58.42 %M 5 corected 00.01 0.00 0.00 %N 7 corected 95.41 0.00 0.00 %W 8 ] def %OYLCVMO+NW /LAB*02 [%D=Device OYLCVMO+NW %for Device Reflective System (FRS06. FUJI) 32.57 61.14 43.72 %8-0-0 O-W 0 olv* setrgbcolor 64 82.73 -3.51 109.24 %8-8-0 Y-W 1 olv* setrgbcolor 32 39.43 -62.87 42.80 %0-8-0 L-W 2 olv* setrgbcolor 80 47.86 -27.73 -37.62 %0-8-8 C-W 3 olv* setrgbcolor 0 actual printer 10.16 53.56 -62.92 %0-0-8 V-W 4 olv* setrgbcolor 96 34.50 79.53 -36.77 %8-0-8 M-W 5 olv* setrgbcolor 16 06.25 -1.63 -1.73 %0-0-0 N-W 6 olv* setrgbcolor 48 91.97 -0.18 -5.11 %8-8-8 A-W 7 olv* setrgbcolor ] def %OYLCVMO+NW /LAB*03 [%D=Device OYLCVMO+NW %for Television Luminous System (TLS18) 52.76 71.63 49.88 %O 0 92.74 -20.03 84.97 %Y 1 84.00 -78.99 73.94 %L 2 87.14 -44.42 -13.12 %C 3 %see TABle 1 of ISO/IEC 15775:1999-12 35.47 64.92 -95.07 %V 4 %see TABle X of ISO/IEC TR 24705:2005-10 59.01 89.33 -55.68 %M 5 %see Annex A, www.ps.bam.de/RLABE.PDF 18.01 0.00 0.00 %N 6 Yr=2.52 95.41 0.00 0.00 %W 7 ] def %OYLCVMO+NW /LAB*04 [%Natural symmetric Luminous System OYLCVMO+NW (NLS00) 31.81 82.62 47.70 %O 0 95.40/2 = 47.70 63.61 00.00 95.40 %Y 1 C*ab = 95.40 31.81 -82.62 47.70 %L 2 0.866 C*ab = 0.866 * 95.40 = 82.62 63.61 -82.62 -47.70 %C 3 delta L*=25.8 31.81 00.00 -95.40 %V 4 43.81=00.01+31.80 63.61 82.62 -47.70 %M 5 69.61=00.01+2*31.80 00.01 0.00 0.00 %N 6 95.40/3 = 31.80 95.41 0.00 0.00 %W 7 95.40*(2/3) = 63.60 ] def %CVMOYLC+NW /LAB*05 [%Natural symmetric Luminous System OYLCVMO+NW (NLS18) 43.81 67.03 38.70 %O 0 77.40/2 = 38.70 69.61 00.00 77.40 %Y 1 C*ab = 77.40 43.81 -67.03 38.70 %L 2 0.866 C*ab = 67.03 69.61 -67.03 -38.70 %C 3 delta L*=25.8 43.81 00.00 -77.40 %V 4 43.81=18.01+25.80 69.61 67.03 -38.70 %M 5 69.61=18.01+2*25.80 18.01 0.00 0.00 %N 6 18.01+77.40/3 = 18.01+25.80=43.81 95.41 0.00 0.00 %W 7 18.01+77.40*(2/3) = 18.01+51.60=69.61 ] def %CVMOYLC+NW /LAB*06 [%Symmetric Reflective System OYLCVMO+NW (SRS18) 56.71 67.03 38.70 %O 0 18.01 + 77.40*0.5 = 18.01 + 38.70 = 56.71 56.71 00.00 77.40 %Y 1 C*ab = 77.40 56.71 -67.03 38.70 %L 2 0.866 C*ab = 67.03 56.71 -67.03 -38.70 %C 3 delta L*=25.8 56.71 00.00 -77.40 %V 4 43.81=18.01+25.80 56.71 67.03 -38.70 %M 5 69.61=18.01+2*25.80 18.01 0.00 0.00 %N 6 95.41 0.00 0.00 %W 7 95.41=18.01+3*25.80 ] def %CVMOYLC+NW /LAB*07 [%D=Device OYLCVMO+NW %for Television Luminous System (TLS70) 76.43 26.27 10.57 %O 0 93.93 -10.77 34.63 %Y 1 89.32 -35.81 27.64 %L 2 90.93 -21.96 -7.08 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 72.10 15.76 -35.64 %V 4 78.50 37.52 -25.24 %M 5 69.70 0.00 0.00 %N 6 Yr=40.32 95.41 0.00 0.00 %W 7 ] def %OYLCVMO+NW } if %ISRL*ioL=0 ISRL*ioL 1 eq { %ISRL*ioL=1 /LAB*00 [%D=Device CVMOYLC+NW %for Television Luminous System (TLS00) 50.50 76.91 64.55 %O 0 92.66 -20.68 90.75 %Y 1 83.62 -82.74 79.90 %L 2 86.88 -46.15 -13.54 %C 3 %see TABle 1 of ISO/IEC 15775:1999-12 30.39 76.06 -103.6 %V 4 %see TABle X of ISO/IEC TR 24705:2005-10 57.31 94.35 -58.40 %M 5 %see Annex A, www.ps.bam.de/RLABE.PDF 00.01 0.00 0.00 %N 6 Yr=0.00 95.41 0.00 0.00 %W 7 ] def %CVMOYLC+NW /LAB*01 [%D=Device CVMOYLC+NW %for Television Luminous System (TLS06) 51.08 75.54 59.69 %O 0 92.68 -20.51 89.24 %Y 1 83.72 -81.79 78.32 %L 2 86.94 -45.72 -13.43 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 31.77 72.91 -101.3 %V 4 57.74 93.06 -57.71 %M 5 05.69 0.00 0.00 %N 6 Yr=0.63 95.41 0.00 0.00 %W 7 ] def %CVMOYLC+NW /LAB*02 [%D=Device CVMOYLC+NW %for Television Luminous System (TLS11) 51.65 74.20 55.83 %O 0 92.70 -20.35 87.77 %Y 1 83.81 -80.85 76.81 %L 2 87.01 -45.28 -13.33 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 33.06 70.03 -99.09 %V 4 58.17 91.80 -57.03 %M 5 10.99 0.00 0.00 %N 6 Yr=1.26 95.41 0.00 0.00 %W 7 ] def %CVMOYLC+NW /LAB*03 [%D=Device CVMOYLC+NW %for Television Luminous System (TLS18) 52.76 71.63 49.88 %O 0 92.74 -20.03 84.97 %Y 1 84.00 -78.99 73.94 %L 2 87.14 -44.42 -13.12 %C 3 %see TABle 1 of ISO/IEC 15775:1999-12 35.47 64.92 -95.07 %V 4 %see TABle X of ISO/IEC TR 24705:2005-10 59.01 89.33 -55.68 %M 5 %see Annex A, www.ps.bam.de/RLABE.PDF 18.01 0.00 0.00 %N 6 Yr=2.52 95.41 0.00 0.00 %W 7 ] def %CVMOYLC+NW /LAB*04 [%D=Device CVMOYLC+NW %for Television Luminous System (TLS27) 54.88 66.84 41.69 %O 0 92.82 -19.39 79.81 %Y 1 84.37 -75.39 68.76 %L 2 87.40 -42.72 -12.70 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 39.70 56.66 -88.02 %V 4 60.64 84.61 -53.08 %M 5 26.85 0.00 0.00 %N 6 Yr=5.04 95.41 0.00 0.00 %W 7 ] def %CVMOYLC+NW /LAB*05 [%D=Device CVMOYLC+NW %for Television Luminous System (TLS38) 58.77 58.45 31.73 %O 0 92.98 -18.11 70.81 %Y 1 85.11 -68.58 60.02 %L 2 87.92 -39.42 -11.87 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 46.64 44.93 -76.56 %V 4 63.71 75.92 -48.22 %M 5 37.99 0.00 0.00 %N 6 Yr=10.08 95.41 0.00 0.00 %W 7 ] def %CVMOYLC+NW /LAB*06 [%D=Device CVMOYLC+NW %for Television Luminous System (TLS52) 65.53 45.06 20.98 %O 0 93.30 -15.61 56.27 %Y 1 86.55 -56.31 46.52 %L 2 88.94 -33.19 -10.24 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 57.17 30.66 -59.40 %V 4 69.22 60.95 -39.57 %M 5 52.02 0.00 0.00 %N 6 Yr=20.16 95.41 0.00 0.00 %W 7 ] def %CVMOYLC+NW /LAB*07 [%D=Device CVMOYLC+NW %for Television Luminous System (TLS70) 76.43 26.27 10.57 %O 0 93.93 -10.77 34.63 %Y 1 89.32 -35.81 27.64 %L 2 90.93 -21.96 -7.08 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 72.10 15.76 -35.64 %V 4 78.50 37.52 -25.24 %M 5 69.70 0.00 0.00 %N 6 Yr=40.32 95.41 0.00 0.00 %W 7 ] def %CVMOYLC+NW } if %ISRL*ioL=1 ISRL*ioL 2 eq { %ISRL*ioL=2 /LAB*00 [%D=Device OYLCVMO+NW %for Offset Luminous System (OLS00) 45.14 71.37 75.54 %O 0 90.22 -10.60 99.51 %Y 1 48.45 -73.19 42.21 %L 2 56.88 -33.11 -47.41 %C 3 %see TABle 1 of ISO/IEC 15775:1999-12 16.48 45.84 -56.22 %V 4 %see TABle X of ISO/IEC TR 24705:2005-10 45.36 81.85 -9.29 %M 5 %see Annex A, www.ps.bam.de/RLABE.PDF 00.01 0.00 0.00 %N 6 Yr=0.00 95.41 0.00 0.00 %W 7 ] def %OYLCVMO+NW /LAB*01 [%D=Device OYLCVMO+NW %for Offset Luminous System (OLS06) 45.87 69.79 66.99 %O 0 90.25 -10.51 97.42 %Y 1 49.08 -70.28 40.08 %L 2 57.33 -32.38 -46.80 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 19.26 40.73 -52.47 %V 4 46.07 80.12 -9.04 %M 5 05.69 0.00 0.00 %N 6 Yr=0.63 95.41 0.00 0.00 %W 7 ] def %OYLCVMO+NW /LAB*02 [%D=Device OYLCVMO+NW %for Offset Luminous System (OLS11) 46.57 68.27 59.62 %O 0 90.29 -10.43 95.45 %Y 1 49.70 -67.60 38.19 %L 2 57.76 -31.68 -46.19 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 21.67 36.81 -49.37 %V 4 46.77 78.45 -8.80 %M 5 10.99 0.00 0.00 %N 6 Yr=1.26 95.41 0.00 0.00 %W 7 ] def %OYLCVMO+NW /LAB*03 [%D=Device OYLCVMO+NW %for Offset Luminous System (OLS18) 47.94 65.39 50.52 %O 0 90.37 -10.26 91.75 %Y 1 50.90 -62.83 34.96 %L 2 58.62 -30.34 -45.01 %C 3 %see TABle 1 of ISO/IEC 15775:1999-12 25.72 31.10 -44.40 %V 4 %see TABle X of ISO/IEC TR 24705:2005-10 48.13 75.28 -8.36 %M 5 %see Annex A, www.ps.bam.de/RLABE.PDF 18.01 0.00 0.00 %N 6 Yr=2.52 95.41 0.00 0.00 %W 7 ] def %OYLCVMO+NW /LAB*04 [%D=Device OYLCVMO+NW %for Offset Luminous System (OLS27) 50.51 60.17 40.13 %O 0 90.52 -9.92 85.20 %Y 1 53.18 -55.04 30.00 %L 2 60.28 -27.91 -42.75 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 32.06 24.02 -37.32 %V 4 50.68 69.50 -7.57 %M 5 26.85 0.00 0.00 %N 6 Yr=5.04 95.41 0.00 0.00 %W 7 ] def %OYLCVMO+NW /LAB*05 [%D=Device OYLCVMO+NW %for Offset Luminous System (OLS38) 55.13 51.42 29.16 %O 0 90.83 -9.25 74.37 %Y 1 57.35 -43.84 23.35 %L 2 63.39 -23.83 -38.56 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 41.26 16.67 -28.49 %V 4 55.27 59.74 -6.32 %M 5 37.99 0.00 0.00 %N 6 Yr=10.08 95.41 0.00 0.00 %W 7 ] def %OYLCVMO+NW /LAB*06 [%D=Device OYLCVMO+NW %for Offset Luminous System (OLS52) 62.90 38.38 18.55 %O 0 91.44 -7.95 57.91 %Y 1 64.49 -30.06 15.67 %L 2 68.98 -17.74 -31.24 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 53.87 10.09 -18.84 %V 4 63.00 44.96 -4.56 %M 5 52.02 0.00 0.00 %N 6 Yr=20.16 95.41 0.00 0.00 %W 7 ] def %OYLCVMO+NW /LAB*07 [%D=Device OYLCVMO+NW %for Offset Luminous System (OLS70) 75.01 21.53 9.07 %O 0 92.64 -5.45 34.85 %Y 1 75.86 -15.50 7.96 %L 2 78.37 -9.90 -19.51 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 70.54 4.74 -9.47 %V 4 75.07 25.47 -2.46 %M 5 69.70 0.00 0.00 %N 6 Yr=40.32 95.41 0.00 0.00 %W 7 ] def %OYLCVMO+NW } if %ISRL*ioL=2 0 1 11 {/sISO exch def %sISO=0,11 /i30 sISO 3 mul def /i31 i30 1 add def /i32 i30 2 add def sISO 7 le { %sISO=0,7 ISIO*ioL 0 eq { %ORS18/TLS00/OLS00 LAB* i30 LAB*00 i30 get 100 div put LAB* i31 LAB*00 i31 get 100 div put LAB* i32 LAB*00 i32 get 100 div put } if ISIO*ioL 1 eq { %TLS00/TLS06/OLS06 LAB* i30 LAB*01 i30 get put LAB* i31 LAB*01 i31 get put LAB* i32 LAB*01 i32 get put } if ISIO*ioL 2 eq { %FRS06/TLS11/OLS11 LAB* i30 LAB*02 i30 get put LAB* i31 LAB*02 i31 get put LAB* i32 LAB*02 i32 get put } if ISIO*ioL 3 eq { %TLS18/TLS18/OLS18 LAB* i30 LAB*03 i30 get put LAB* i31 LAB*03 i31 get put LAB* i32 LAB*03 i32 get put } if ISIO*ioL 4 eq { %NLS00/TSL28/OLS28 LAB* i30 LAB*04 i30 get put LAB* i31 LAB*04 i31 get put LAB* i32 LAB*04 i32 get put } if ISIO*ioL 5 eq { %NRS18/TLS38/OLS38 LAB* i30 LAB*05 i30 get put LAB* i31 LAB*05 i31 get put LAB* i32 LAB*05 i32 get put } if ISIO*ioL 6 eq { %SRS18/TLS50/OLS50 LAB* i30 LAB*06 i30 get put LAB* i31 LAB*06 i31 get put LAB* i32 LAB*06 i32 get put } if ISIO*ioL 7 eq { %TLS70/TLS70/OLS70 LAB* i30 LAB*07 i30 get put LAB* i31 LAB*07 i31 get put LAB* i32 LAB*07 i32 get put } if } %sISO=0,7 {%sISO=8,11 %Definition 8 to 11 (24 to 35=33+2) /jISO sISO 8 sub def /j30 jISO 3 mul def /j31 j30 1 add def /j32 j30 2 add def LAB* i30 RJGBLAB* j30 get put LAB* i31 RJGBLAB* j31 get put LAB* i32 RJGBLAB* j32 get put LAB*a i30 LAB* i30 get put LAB*a i31 LAB* i31 get put LAB*a i32 LAB* i32 get put } ifelse } for %sISO=0,11 % possible change of LAB*a according to reduced gamut %LAB* = 20 for Black N %LAB* = 95 for White W %cfakt = (95 - 20)/(95.41 - 18.01) = 0.969 %LAB*L*Nn = 20 for Black N instead of LAB*L*N = 18,01 %LAB*L*Wn = 95 for White W instead of LAB*L*W = 95,41 %LAB*L*Zn = 20+(95-20)/2=57,5 for Grey Z instead of %LAB*L*Z = 18,01+(95,41-18,01)/2=56,71 %L*neu = L*alt + (1 - cfakt %For achromatic %deltaLmean = 57,5 (1-c*neu); 56,71 (1-c*alt) %deltaLmimu = 20,0 (1-c*neu); 18,01 (1-c*alt) %deltaLplus = 95,0 (1-c*neu); 95,41 (1-c*alt) %For chromatic M %deltaLmean = L*Ma,neu; L*Ma,alt = known %C*Ma,alt known, C*Ma,neu known /L*Nio LAB* 18 get def /A*Nio LAB* 19 get def /B*Nio LAB* 20 get def /L*Wio LAB* 21 get def /A*Wio LAB* 22 get def /B*Wio LAB* 23 get def /L*Wioref 95.0 def /L*Nioref 18.0 def /cfakt 1 def %/cfakt L*Wioref L*Nioref sub L*Wio L*Nio sub div def cfakt 1 ne {%cfakt#1 %change of lightness for Maximum colour /l*CIEN L*Nioref L*Nio sub L*Wio L*Nio sub div def /l*CIEW L*Wioref L*Nio sub L*Wio L*Nio sub div def %LAB* 18 L*Nioref put %defined change of lightness and chroma a*,b* for N LAB* 19 A*Nio A*Wio A*Nio sub l*CIEN mul add put LAB* 20 B*Nio B*Wio B*Nio sub l*CIEN mul add put %LAB* 21 L*Wioref put %defined change of lightness and chroma a*,b* for W LAB* 22 A*Nio A*Wio A*Nio sub l*CIEW mul add put LAB* 23 B*Nio B*Wio B*Nio sub l*CIEW mul add put %change of chroma by factor cfakt 0 1 07 {/iISO exch def /i30 iISO 3 mul def /i31 i30 1 add def /i32 i30 2 add def /l*CIEL LAB* i30 get L*Nio sub L*Wio L*Nio sub div def LAB* i30 L*Nioref L*Wioref L*Nioref sub l*CIEL mul add put LAB* i31 LAB* i31 get cfakt mul put LAB* i32 LAB* i32 get cfakt mul put } for } if %cfakt#1 /L*Nior LAB* 18 get def %r=reference for reverse transform /A*Nior LAB* 19 get def /B*Nior LAB* 20 get def /L*Wior LAB* 21 get def /A*Wior LAB* 22 get def /B*Wior LAB* 23 get def /cf1 1.00 def 0 1 7 {/iISO exch def %iISO=0,7 /i30 iISO 3 mul def /i31 i30 1 add def /i32 i30 2 add def /l*CIE LAB* i30 get L*Nior sub L*Wior L*Nior sub div def /a*sr A*Wior A*Nior sub l*CIE mul def /b*sr B*Wior B*Nior sub l*CIE mul def /L*Z L*Nior L*Wior L*Nior sub 0.5 mul add def LAB*a i30 LAB* i30 get iISO 7 le {L*Z sub cf1 mul L*Z add} if put LAB*a i31 LAB* i31 get A*Nior sub a*sr sub cf1 mul put LAB*a i32 LAB* i32 get B*Nior sub b*sr sub cf1 mul put } for /L*Nio LAB*a 18 get def %=18.01 /A*Nio LAB*a 19 get def %=0 /B*Nio LAB*a 20 get def %=0 /L*Wio LAB*a 21 get def %=95.41 /A*Wio LAB*a 22 get def %=0 /B*Wio LAB*a 23 get def %=0 /A*Dio A*Wio A*Nio sub def %=0 /B*Dio B*Wio B*Nio sub def %=0 /cLAB*s0 3 array def %C cyan blue /vLAB*s0 3 array def %V violet blue /mLAB*s0 3 array def %M magenta red /oLAB*s0 3 array def %O orange red /yLAB*s0 3 array def %Y yellow /lLAB*s0 3 array def %L leaf green /nLAB*s0 3 array def %N black /wLAB*s0 3 array def %W white /rLAB*s0 3 array def %R elementary red /jLAB*s0 3 array def %J elementary yellow /gLAB*s0 3 array def %G elementary green /bLAB*s0 3 array def %B elementary blue %Determine Matrix data input or output data oLAB*s0 0 LAB*a 0 get L*Nio sub put oLAB*s0 1 LAB*a 1 get put oLAB*s0 2 LAB*a 2 get put yLAB*s0 0 LAB*a 3 get L*Nio sub put yLAB*s0 1 LAB*a 4 get put yLAB*s0 2 LAB*a 5 get put lLAB*s0 0 LAB*a 6 get L*Nio sub put lLAB*s0 1 LAB*a 7 get put lLAB*s0 2 LAB*a 8 get put cLAB*s0 0 LAB*a 9 get L*Nio sub put cLAB*s0 1 LAB*a 10 get put cLAB*s0 2 LAB*a 11 get put vLAB*s0 0 LAB*a 12 get L*Nio sub put vLAB*s0 1 LAB*a 13 get put vLAB*s0 2 LAB*a 14 get put mLAB*s0 0 LAB*a 15 get L*Nio sub put mLAB*s0 1 LAB*a 16 get put mLAB*s0 2 LAB*a 17 get put nLAB*s0 0 LAB*a 18 get L*Nio sub put nLAB*s0 1 LAB*a 19 get put nLAB*s0 2 LAB*a 20 get put wLAB*s0 0 LAB*a 21 get L*Nio sub put wLAB*s0 1 LAB*a 22 get put wLAB*s0 2 LAB*a 23 get put rLAB*s0 0 LAB*a 24 get L*Nio sub put rLAB*s0 1 LAB*a 25 get put rLAB*s0 2 LAB*a 26 get put jLAB*s0 0 LAB*a 27 get L*Nio sub put jLAB*s0 1 LAB*a 28 get put jLAB*s0 2 LAB*a 29 get put gLAB*s0 0 LAB*a 30 get L*Nio sub put gLAB*s0 1 LAB*a 31 get put gLAB*s0 2 LAB*a 32 get put bLAB*s0 0 LAB*a 33 get L*Nio sub put bLAB*s0 1 LAB*a 34 get put bLAB*s0 2 LAB*a 35 get put % Determine the input or output angle in the A* B* plane % of each of the colours defined above /C*Ang cLAB*s0 2 get cLAB*s0 1 get 0.0001 add atan def /V*Ang vLAB*s0 2 get vLAB*s0 1 get 0.0001 add atan def /M*Ang mLAB*s0 2 get mLAB*s0 1 get 0.0001 add atan def /O*Ang oLAB*s0 2 get oLAB*s0 1 get 0.0001 add atan def /Y*Ang yLAB*s0 2 get yLAB*s0 1 get 0.0001 add atan def /L*Ang lLAB*s0 2 get mLAB*s0 1 get 0.0001 add atan def /N*Ang 0 def /W*Ang 0 def /R*Ang rLAB*s0 2 get rLAB*s0 1 get 0.0001 add atan def /J*Ang jLAB*s0 2 get jLAB*s0 1 get 0.0001 add atan def /G*Ang gLAB*s0 2 get gLAB*s0 1 get 0.0001 add atan def /B*Ang bLAB*s0 2 get bLAB*s0 1 get 0.0001 add atan def %6+1 hue angles for 6 device colour (index 0 to 06) %4+1 hue angles for 4 elementary colours (index 8 to 12) %no. 6 and 7 originaly achromatic 0 1 11 {/iHx exch def /i1x iHx 3 mul 1 add def /i2x i1x 1 add def LAB*Hx iHx LAB*a i2x get LAB*a i1x get 0.000001 add atan put } for LAB*Hx 06 LAB*Hx 00 get 360 add put LAB*Hx 12 LAB*Hx 08 get 360 add put %6 Hue angles of elementary and intermediate colours e=RJGCgbBMbr /LAB*He 7 array def LAB*He 0 LAB*Hx 08 get put %R LAB*He 1 LAB*Hx 09 get put %J LAB*He 2 LAB*Hx 10 get put %G LAB*He 3 LAB*Hx 10 get LAB*Hx 11 get add 0.5 mul put %Cgb LAB*He 4 LAB*Hx 11 get put %B LAB*He 5 LAB*Hx 11 get LAB*Hx 08 get 360 add add 0.5 mul put %Mbr LAB*He 6 LAB*Hx 08 get 360 add put %R(+360) %6 Hue angles of device and intermediate colours d=OYLCVMO /LAB*Hd 7 array def LAB*Hd 0 LAB*Hx 00 get put %O LAB*Hd 1 LAB*Hx 01 get put %Y LAB*Hd 2 LAB*Hx 02 get put %L LAB*Hd 3 LAB*Hx 03 get put %C LAB*Hd 4 LAB*Hx 04 get put %V LAB*Hd 5 LAB*Hx 05 get put %M LAB*Hd 6 LAB*Hx 00 get 360 add put %O(+360) /ColeiNames 16 array def /ColeiNames [(r00j) (r25j) (r50j) (r75j) (j00g) (j25g) (j50g) (j75g) (g00b) (g25b) (g50b) (g75b) (b00r) (b25r) (b50r) (b75r) ] def /ColdiNames 16 array def /ColdiNames [(o00y) (o25y) (o50y) (o75y) (y00l) (y25l) (y50l) (y75l) (l00c) (l50c) (c00v) (c50v) (v00m) (v50m) (m00o) (m50o) ] def /L*diMa 16 array def %LAB*diMa /A*diMa 16 array def /B*diMa 16 array def /o3*ddiMa 16 array def %olv3*ddiMa /l3*ddiMa 16 array def /v3*ddiMa 16 array def /u*ddiMa1 16 array def %u*ddiMax /u*ddiMai 16 array def /u*ddiMa2 16 array def /o3*deiMa 16 array def %olv3*deiMa /l3*deiMa 16 array def /v3*deiMa 16 array def /u*deiMa1 16 array def %u*deiMax /u*deiMai 16 array def /u*deiMa2 16 array def /L*eiMa 16 array def %LAB*eiMa /A*eiMa 16 array def /B*eiMa 16 array def /o3*eeiMa 16 array def %olv3*eeiMa /l3*eeiMa 16 array def /v3*eeiMa 16 array def /u*eeiMa1 16 array def %u*eeiMax /u*eeiMai 16 array def /u*eeiMa2 16 array def /o3*ediMa 16 array def %olv3*ediMa /l3*ediMa 16 array def /v3*ediMa 16 array def /u*ediMa1 16 array def %u*ediMax /u*ediMai 16 array def /u*ediMa2 16 array def %/L*xiMa 16 array def %LAB*xiMa x=d/e %/A*xiMa 16 array def %/B*xiMa 16 array def %/o3*xxiMa 16 array def %olv3*xxiMa xx=dd/ee %/l3*xxiMa 16 array def %/v3*xxiMa 16 array def /u*xxiMa1 16 array def %u*xxiMax xx=dd/ee /u*xxiMai 16 array def /u*xxiMa2 16 array def %/o3*xyiMa 16 array def %olv3*xxiMa xy=de/ed %/l3*xyiMa 16 array def %/v3*xyiMa 16 array def %/u*xyiMa1 16 array def %u*xxiMax xy=de/ed %/u*xyiMai 16 array def %/u*xyiMa2 16 array def %Definition LAB*diMa, olv3*deiMa, u*deiMax (all 00 to 15) by equal device (d) hue angle difference %between O and Y, Y and L, L and C, C and V, V and M, and M and O %Definition of OYLCVMO, 4 steps between OYL, 2 steps between LCVMO 0 1 15 {/iinx exch def %iinx=0,15 %define device hue angle H*M of 16 hues iinx 00 eq {/H*M LAB*a 0 3 mul 2 add get LAB*a 0 3 mul 1 add get atan def} if iinx 01 eq {/H*M LAB*a 0 3 mul 2 add get LAB*a 0 3 mul 1 add get atan 0.75 mul LAB*a 1 3 mul 2 add get LAB*a 1 3 mul 1 add get atan 0.25 mul add def} if iinx 02 eq {/H*M LAB*a 0 3 mul 2 add get LAB*a 0 3 mul 1 add get atan 0.50 mul LAB*a 1 3 mul 2 add get LAB*a 1 3 mul 1 add get atan 0.50 mul add def} if iinx 03 eq {/H*M LAB*a 0 3 mul 2 add get LAB*a 0 3 mul 1 add get atan 0.25 mul LAB*a 1 3 mul 2 add get LAB*a 1 3 mul 1 add get atan 0.75 mul add def} if iinx 04 eq {/H*M LAB*a 1 3 mul 2 add get LAB*a 1 3 mul 1 add get atan def} if iinx 05 eq {/H*M LAB*a 1 3 mul 2 add get LAB*a 1 3 mul 1 add get atan 0.75 mul LAB*a 2 3 mul 2 add get LAB*a 2 3 mul 1 add get atan 0.25 mul add def} if iinx 06 eq {/H*M LAB*a 1 3 mul 2 add get LAB*a 1 3 mul 1 add get atan 0.50 mul LAB*a 2 3 mul 2 add get LAB*a 2 3 mul 1 add get atan 0.50 mul add def} if iinx 07 eq {/H*M LAB*a 1 3 mul 2 add get LAB*a 1 3 mul 1 add get atan 0.25 mul LAB*a 2 3 mul 2 add get LAB*a 2 3 mul 1 add get atan 0.75 mul add def} if iinx 08 eq {/H*M LAB*a 2 3 mul 2 add get LAB*a 2 3 mul 1 add get atan def} if iinx 09 eq {/H*M LAB*a 2 3 mul 2 add get LAB*a 2 3 mul 1 add get atan 0.5 mul LAB*a 3 3 mul 2 add get LAB*a 3 3 mul 1 add get atan 0.5 mul add def} if iinx 10 eq {/H*M LAB*a 3 3 mul 2 add get LAB*a 3 3 mul 1 add get atan def} if iinx 11 eq {/H*M LAB*a 3 3 mul 2 add get LAB*a 3 3 mul 1 add get atan 0.5 mul LAB*a 4 3 mul 2 add get LAB*a 4 3 mul 1 add get atan 0.5 mul add def} if iinx 12 eq {/H*M LAB*a 4 3 mul 2 add get LAB*a 4 3 mul 1 add get atan def} if iinx 13 eq {/H*M LAB*a 4 3 mul 2 add get LAB*a 4 3 mul 1 add get atan 0.5 mul LAB*a 5 3 mul 2 add get LAB*a 5 3 mul 1 add get atan 0.5 mul add def} if iinx 14 eq {/H*M LAB*a 5 3 mul 2 add get LAB*a 5 3 mul 1 add get atan def} if iinx 15 eq {/H*M LAB*a 5 3 mul 2 add get LAB*a 5 3 mul 1 add get atan 0.5 mul LAB*a 0 3 mul 2 add get LAB*a 0 3 mul 1 add get atan 360 add 0.5 mul add def} if proc_H*M_LAB*MaNTABl_olvi3*cmyn3*u*deMa*ioL %stores LAB*diMa L*diMa iinx L*Ma put A*diMa iinx A*Ma put B*diMa iinx B*Ma put %stores olv3*ddiMa o3*ddiMa iinx o3*ddMa put l3*ddiMa iinx l3*ddMa put v3*ddiMa iinx v3*ddMa put %stores u*ddiMax u*ddiMa1 iinx u*ddMa1 put u*ddiMai iinx u*ddMai put u*ddiMa2 iinx u*ddMa2 put %stores olv3*deiMa o3*deiMa iinx o3*deMa put l3*deiMa iinx l3*deMa put v3*deiMa iinx v3*deMa put %stores u*deiMax u*deiMa1 iinx u*deMa1 put u*deiMai iinx u*deMai put u*deiMa2 iinx u*deMa2 put } for %iinx=0,15 %Definition LAB*eiMa, olv3*ediMa, u*ediMax (all 00 to 15) by equal elementary (e) hue angle difference %between R and J, J and G, G and B, and B and R 0 1 03 {/ik exch def %ik=0,3 /H*1 RJGBLAB* ik 3 mul 2 add get RJGBLAB* ik 3 mul 1 add get 0.00001 add atan def ik 2 le {/ik2b ik 3 mul 5 add def} {/ik2b 2 def} ifelse /ik2a ik2b 1 sub def /H*2 RJGBLAB* ik2b get RJGBLAB* ik2a get 0.00001 add atan def ik 3 eq {/H*2 H*2 360 add def} if 0 1 03 {/ij exch def %ij=1,3 ij 0 eq {/a0 1.00 def /b0 0.00 def} if ij 1 eq {/a0 0.75 def /b0 0.25 def} if ij 2 eq {/a0 0.50 def /b0 0.50 def} if ij 3 eq {/a0 0.25 def /b0 0.75 def} if /H*M a0 H*1 mul b0 H*2 mul add def H*M 360 ge {/H*M H*M 360 sub def} if proc_H*M_LAB*MaNTABl_olvi3*cmyn3*u*deMa*ioL /iinx ik 4 mul ij add def %stores LAB*eiMa L*eiMa iinx L*Ma put A*eiMa iinx A*Ma put B*eiMa iinx B*Ma put %stores olv3*eeiMa o3*eeiMa iinx o3*deMa put l3*eeiMa iinx l3*deMa put v3*eeiMa iinx v3*deMa put %stores u*eeiMax u*eeiMa1 iinx u*deMa1 put u*eeiMai iinx u*deMai put u*eeiMa2 iinx u*deMa2 put %stores olv3*ediMa o3*ediMa iinx o3*ddMa put l3*ediMa iinx l3*ddMa put v3*ediMa iinx v3*ddMa put %stores u*eeiMax u*ediMa1 iinx u*ddMa1 put u*ediMai iinx u*ddMai put u*ediMa2 iinx u*ddMa2 put } for %ik=0,3 } for %ij=0,3 0 1 15 {/i exch def %i=0,15 %L*xiMa i DEintp 0 eq {L*diMa}{L*eiMa} ifelse i get put %LAB*xiMa x=d/e %A*xiMa i DEintp 0 eq {A*diMa}{A*eiMa} ifelse i get put %B*xiMa i DEintp 0 eq {B*diMa}{B*eiMa} ifelse i get put %o3*xxiMa i DEintp 0 eq {o3*ddiMa}{o3*eeiMa} ifelse i get put %olv3*xxiMa xx=dd/ee %l3*xxiMa i DEintp 0 eq {l3*ddiMa}{l3*eeiMa} ifelse i get put %v3*xxiMa i DEintp 0 eq {v3*ddiMa}{v3*eeiMa} ifelse i get put u*xxiMa1 i DEintp 0 eq {u*ddiMa1}{u*eeiMa1} ifelse i get put %u*xxiMax xx=dd/ee u*xxiMai i DEintp 0 eq {u*ddiMai}{u*eeiMai} ifelse i get put u*xxiMa2 i DEintp 0 eq {u*ddiMa2}{u*eeiMa2} ifelse i get put %o3*xyiMa i DEintp 0 eq {o3*deiMa}{o3*ediMa} ifelse i get put %olv3*xxiMa xy=de/ed %l3*xyiMa i DEintp 0 eq {l3*deiMa}{l3*ediMa} ifelse i get put %v3*xyiMa i DEintp 0 eq {v3*deiMa}{v3*ediMa} ifelse i get put %u*xyiMa1 i DEintp 0 eq {u*deiMa1}{u*ediMa1} ifelse i get put %u*xxiMax xy=de/ed %u*xyiMai i DEintp 0 eq {u*deiMai}{u*ediMai} ifelse i get put %u*xyiMa2 i DEintp 0 eq {u*deiMa2}{u*ediMa2} ifelse i get put } for %i=0,15 } bind def %END Procedure proc_LAB*ioL %*********************************************************** /proc_H*M_LAB*MaNTABl_olvi3*cmyn3*u*deMa*ioL { %BEG procedure proc_H*M_LAB*MaNTABl_olvi3*cmyn3*u*deMa*ioL %only for calculation without hue tables %input H*M (only hue (H) of Fa/Ma) %input LAB*a (6 adapted colours OYLCVM) %input nLAB*s0 (colour Black N for calculation of lab*l) %input wLAB*s0 (colour White W for achromatic axis) %output LAB*Ma %output olvi3*Ma %output cmyn3*Ma /L*Ha 50 def /A*Ha 75 H*M cos mul def /B*Ha 75 H*M sin mul def /UXF1a wLAB*s0 1 get B*Ha mul wLAB*s0 2 get A*Ha mul sub def /UXF2a wLAB*s0 2 get L*Ha mul wLAB*s0 0 get B*Ha mul sub def /UXF3a wLAB*s0 0 get A*Ha mul wLAB*s0 1 get L*Ha mul sub def /T1 0 def /T2 0 def 0 1 5 {/ia exch def /ia30 ia 3 mul def ia 5 eq {/ia31 0 def} {/ia31 ia30 3 add def} ifelse /T1 LAB*a ia30 get UXF1a mul LAB*a ia30 1 add get UXF2a mul add LAB*a ia30 2 add get UXF3a mul add def /T2 LAB*a ia31 get UXF1a mul LAB*a ia31 1 add get UXF2a mul add LAB*a ia31 2 add get UXF3a mul add def T1 0 le {/T1X (N) def} {/T1X (P) def} ifelse T2 0 gt {/T2X (P) def} {/T2X (N) def} ifelse T1 0 le T2 0 gt and {/ia3END ia30 def exit} if } for /L*11a LAB*a ia3END get def /A*11a LAB*a ia3END 1 add get def /B*11a LAB*a ia3END 2 add get def ia3END 15 ge {/ia3END -3 def} if /L*21a LAB*a ia3END 3 add get def /A*21a LAB*a ia3END 4 add get def /B*21a LAB*a ia3END 5 add get def /NENNER L*21a L*11a sub UXF1a mul A*21a A*11a sub UXF2a mul add B*21a B*11a sub UXF3a mul add def /ZAEHLE L*21a UXF1a mul A*21a UXF2a mul add B*21a UXF3a mul add def NENNER 0 ne {/ALPH ZAEHLE NENNER div def} {/ALPH 99999} ifelse /L*Ma ALPH L*11a mul 1 ALPH sub L*21a mul add def /A*Ma ALPH A*11a mul 1 ALPH sub A*21a mul add def /B*Ma ALPH B*11a mul 1 ALPH sub B*21a mul add def /C*Ma A*Ma dup mul B*Ma dup mul add 0.000001 add sqrt def /H*Ma B*Ma A*Ma atan def /H*abd B*Ha A*Ha 0.0001 add atan def /H*abe H*abd def %faktor and section in actual System (for example ORS18) /jsecd -1 def %main equations %faktd = [col_angh - LAB*Hd(n)]/[LAB*Hd(n+1) - LAB*Hd(n)] %col_angh = faktd [LAB*Hd(n+1) - LAB*Hd(n)] + LAB*Hd(n) H*abd LAB*Hd 0 get lt {/H*abd H*abd 360 add def} if 0 1 5 {/nx exch def /np nx 1 add def H*abd LAB*Hd nx get ge H*abd LAB*Hd np get lt and {/jsecd nx def /faktd H*abd LAB*Hd nx get sub LAB*Hd np get LAB*Hd nx get sub div def} if } for %nx=0,5 %1 0 0 %O jsecd=0 %1 1 0 %Y jsecd=1 %0 1 0 %L jsecd=2 %0 1 1 %C jsecd=3 %0 0 1 %V jsecd=4 %1 0 1 %M jsecd=5 jsecd -1 eq {STOPjsecd} if /fakmd 1 faktd sub def /o3*ddMa -1 def /l3*ddMa -1 def /v3*ddMa -1 def jsecd 0 eq {%sector O->Y, o3*=1, l3*=0->1, v3*=0 /o3*ddMa 1 def /l3*ddMa faktd def /v3*ddMa 0 def /u*ddMa1 (o) def /u*ddMai faktd 99 mul cviht def /u*ddMa2 (y) def} if jsecd 1 eq {%sector Y->L, o3*=1->0, l3*=1, v3*=0 /o3*ddMa fakmd def /l3*ddMa 1 def /v3*ddMa 0 def /u*ddMa1 (y) def /u*ddMai faktd 99 mul cviht def /u*ddMa2 (l) def} if jsecd 2 eq {%sector L->C, o3*=0, l3*=1, v3*=0->1 /o3*ddMa 0 def /l3*ddMa 1 def /v3*ddMa faktd def /u*ddMa1 (l) def /u*ddMai faktd 99 mul cviht def /u*ddMa2 (c) def} if jsecd 3 eq {%sector C->V, o3*=0, l3*=0->1, v3*=1 /o3*ddMa 0 def /l3*ddMa fakmd def /v3*ddMa 1 def /u*ddMa1 (c) def /u*ddMai faktd 99 mul cviht def /u*ddMa2 (v) def} if jsecd 4 eq {%sector V->M, o3*=0->1, l3*=0, v3*=1 /o3*ddMa faktd def /l3*ddMa 0 def /v3*ddMa 1 def /u*ddMa1 (v) def /u*ddMai faktd 99 mul cviht def /u*ddMa2 (m) def} if jsecd 5 eq {%sector M->O, o3*=1, l3*=0, v3*=1->0 /o3*ddMa 1 def /l3*ddMa 0 def /v3*ddMa fakmd def /u*ddMa1 (m) def /u*ddMai faktd 99 mul cviht def /u*ddMa2 (o) def} if o3*ddMa -1 eq {STOPo3*ddMa1} if l3*ddMa -1 eq {STOPl3*ddMa1} if v3*ddMa -1 eq {STOPv3*ddMa1} if /i3*ddMa 1 def /c3*ddMa 1 o3*ddMa sub def /m3*ddMa 1 l3*ddMa sub def /y3*ddMa 1 v3*ddMa sub def /n3*ddMa 0 def %calculations for elementary (e) system: %faktor and section in actual System (for example ORS18) /jsece -1 def %main equations %fakte = [col_angh - LAB*He(n)]/[LAB*He(n+1) - LAB*He(n)] %col_angh = fakte [LAB*He(n+1) - LAB*He(n)] + LAB*He(n) H*abe LAB*He 0 get lt {/H*abe H*abe 360 add def} if 0 1 5 {/nx exch def /np nx 1 add def H*abe LAB*He nx get ge H*abe LAB*He np get lt and {/jsece nx def /fakte H*abe LAB*He nx get sub LAB*He np get LAB*He nx get sub div def} if } for %nx=0,5 %1 0 0 %R jsece=0 %1 1 0 %J jsece=1 %0 1 0 %G jsece=2 %0 1 1 %C' jsece=3 %0 0 1 %B jsece=4 %1 0 1 %R jsece=5 jsece -1 eq {STOPjsece} if /fakme 1 fakte sub def /o3*deMa -1 def /l3*deMa -1 def /v3*deMa -1 def jsece 0 eq {%sector O->Y, o3*=1, l3*=0->1, v*=0 /o3*deMa 1 def /l3*deMa fakte def /v3*deMa 0 def /u*dtMa1 (r) def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (j) def /u*deMa1 (r) def /u*deMai fakte 99 mul cviht def /u*deMa2 (j) def} if jsece 1 eq {%sector Y->L, o3*=1->0, l3*=1, v*=0 /o3*deMa fakme def /l3*deMa 1 def /v3*deMa 0 def /u*dtMa1 (j) def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (g) def /u*deMa1 (j) def /u*deMai fakte 99 mul cviht def /u*deMa2 (g) def} if jsece 2 eq {%sector L->C, o3*=0, l3*=1, v*=0->1 /o3*deMa 0 def /l3*deMa 1 def /v3*deMa fakte def /u*dtMa1 (g) def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (c') def /u*deMa1 (g) def /u*deMai fakte 99 mul 0.5 mul cviht def /u*deMa2 (b) def} if jsece 3 eq {%sector C->V, o3*=0, l3*=0->1, v*=1 /o3*deMa 0 def /l3*deMa fakme def /v3*deMa 1 def /u*dtMa1 (c') def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (b) def /u*deMa1 (g) def /u*deMai fakte 99 mul 0.5 mul 50 add cviht def /u*deMa2 (b) def} if jsece 4 eq {%sector V->M, o3*=0->1, l3*=0, v*=1 /o3*deMa fakte def /l3*deMa 0 def /v3*deMa 1 def /u*dtMa1 (b) def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (m') def /u*deMa1 (b) def /u*deMai fakte 99 mul 0.5 mul cviht def /u*deMa2 (r) def} if jsece 5 eq {%sector M->O, o3*=1, l3*=0, v*=1->0 /o3*deMa 1 def /l3*deMa 0 def /v3*deMa fakme def /u*dtMa1 (m') def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (r) def /u*deMa1 (b) def /u*deMai fakte 99 mul 0.5 mul 50 add cviht def /u*deMa2 (r) def} if o3*deMa -1 eq {STOPo3*Ma0} if l3*deMa -1 eq {STOPl3*Ma0} if v3*deMa -1 eq {STOPv3*Ma0} if /i3*deMa 1 def /c3*deMa 1 o3*deMa sub def /m3*deMa 1 l3*deMa sub def /y3*deMa 1 v3*deMa sub def /n3*deMa 0 def /lab*nMa 0.00 def /lab*cMa 1.00 def /lab*wMa 0.00 def /lab*tMa 0.50 def /lab*hMa H*Ma 360 div def /lab*lMa L*Ma nLAB*s0 0 get sub wLAB*s0 0 get nLAB*s0 0 get sub 0.000001 add div def } bind def %END procedure proc_H*M_LAB*MaNTABl_olvi3*cmyn3*u*deMa*ioL %************************************************************* /proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioL { %BEG Procedure proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioL %transfer from elementary data to device (ed) and elementary data (ee) %For tLAB=1 Transfer to LAB*Ma and LAB*Fa /v*s exch def /l*s exch def /o*s exch def /i*p 0 def %test if achromatic %W special case %W: o*s, l*s, v*s = 1.00 1.0 o*s sub abs 0.001 le 1.0 l*s sub abs 0.001 le and 1.0 v*s sub abs 0.001 le and %W special case {/i*p 6 def %W /c*rs 0 def /n*s 0 def /w*s 1 def /t*s 1 def } if %Test if achromatic %N special case %N: o*n, l*n, v*n <= 0.01 o*s abs 0.001 le l*s abs 0.001 le and v*s abs 0.001 le and %N special case {/i*p 6 def %N /c*rs 0 def /n*s 1 def /w*s 0 def /t*s 0 def } if %test if achromatic Grey sample o*s l*s sub abs 0.001 le l*s v*s sub abs 0.001 le and %Achromatic grey special case {/i*p 6 def %Grey /c*rs 0 def /n*s 1 o*s sub def /w*s o*s def /t*s 1 n*s sub c*rs 0.5 mul sub def } if i*p 6 eq {%achromatic,chromatic colours /o3*edMa 1 def /l3*edMa 1 def /v3*edMa 1 def /o3*eeMa 1 def /l3*eeMa 1 def /v3*eeMa 1 def /u*edMa1 (o) def /u*edMai 0 def /u*edMa2 (y) def /u*etMa1 (r) def /u*etMai 0 def /u*etMa2 (j) def /u*eeMa1 (r) def /u*eeMai 0 def /u*eeMa2 (j) def /o3*ed o*s def /l3*ed l*s def /v3*ed v*s def /o3*ee o*s def /l3*ee l*s def /v3*ee v*s def } %achromatic i*p=6 { %chromatic i*p#6 o*s l*s ge o*s v*s ge and {/olv*smax o*s def l*s v*s ge {%sector O->Y, o3*=1, l3*=0->1, v3*=0 /olv*smin v*s def /olv*smean l*s def /jsecs 0 def} {%sector M->O, o3*=1, l3*=0, v3*=1->0 /olv*smin l*s def /olv*smean v*s def /jsecs 5 def} ifelse } if l*s v*s ge l*s o*s ge and {/olv*smax l*s def v*s o*s ge {%sector L->C, o3*=0, l3*=1, v3*=0->1 /olv*smin o*s def /olv*smean v*s def /jsecs 2 def} {%sector Y->L, o3*=1->0, l3*=1, v3*=0 /olv*smin v*s def /olv*smean o*s def /jsecs 1 def} ifelse } if v*s o*s ge v*s l*s ge and {/olv*smax v*s def o*s l*s ge {%sector V->M, o3*=0->1, l3*=0, v3*=1 /olv*smin l*s def /olv*smean o*s def /jsecs 4 def} {%sector C->V, o3*=0, l3*=0->1, v3*=1 /olv*smin o*s def /olv*smean l*s def /jsecs 3 def } ifelse } if /c*rs olv*smax olv*smin sub def /n*s 1 olv*smax sub def /w*s 1 n*s sub c*rs sub def /t*s 1 n*s sub c*rs 0.5 mul sub def /b_a olv*smean olv*smax div def /c_a olv*smin olv*smax div def /alpha 1 c_a sub def /fakts b_a c_a sub alpha 0.00001 add div def /fakms 1 fakts sub def %jsecs interpreted as elementary hue angle jsecs 0 eq {%sector O->Y, o3*=1, l3*=0->1, v3*=0 /o3*eeMa 1 def /l3*eeMa fakts def /v3*eeMa 0 def /H*Me LAB*He 0 get LAB*He 1 get LAB*He 0 get sub fakts mul add def /u*eeMa1 (r) def /u*eeMai fakts 99 mul cviht def /u*eeMa2 (j) def} if jsecs 1 eq {%sector Y->L, o3*=1->0, l3*=1, v3*=0 /o3*eeMa fakts def /l3*eeMa 1 def /v3*eeMa 0 def /H*Me LAB*He 1 get LAB*He 2 get LAB*He 1 get sub fakms mul add def /u*eeMa1 (j) def /u*eeMai fakms 99 mul cviht def /u*eeMa2 (g) def} if jsecs 2 eq {%sector L->C, o3*=0, l3*=1, v3*=0->1 /o3*eeMa 0 def /l3*eeMa 1 def /v3*eeMa fakts def /H*Me LAB*He 2 get LAB*He 3 get LAB*He 2 get sub fakts mul add def /u*etMa1 (g) def /u*etMai fakts 99 mul cviht def /u*etMa2 (C) def /u*eeMa1 (g) def /u*eeMai fakts 99 mul 0.5 mul cviht def /u*eeMa2 (b) def} if jsecs 3 eq {%sector C->V, o3*=0, l3*=0->1, v3*=1 /o3*eeMa 0 def /l3*eeMa fakts def /v3*eeMa 1 def /H*Me LAB*He 3 get LAB*He 4 get LAB*He 3 get sub fakms mul add def /u*etMa1 (C) def /u*etMai fakms 99 mul cviht def /u*etMa2 (b) def /u*eeMa1 (g) def /u*eeMai fakms 99 mul 0.5 mul 50 add cviht def /u*eeMa2 (b) def} if jsecs 4 eq {%sector V->M, o3*=0->1, l3*=0, v3*=1 /o3*eeMa fakts def /l3*eeMa 0 def /v3*eeMa 1 def /H*Me LAB*He 4 get LAB*He 5 get LAB*He 4 get sub fakts mul add def /u*etMa1 (b) def /u*etMai fakts 99 mul cviht def /u*etMa2 (M) def /u*eeMa1 (b) def /u*eeMai fakts 99 mul 0.5 mul cviht def /u*eeMa2 (r) def} if jsecs 5 eq {%sector M->O, o3*=1, l3*=0, v3*=1->0 /o3*eeMa 1 def /l3*eeMa 0 def /v3*eeMa fakts def /H*Me LAB*He 5 get LAB*He 6 get LAB*He 5 get sub fakms mul add def /u*etMa1 (M) def /u*etMai fakms 99 mul cviht def /u*etMa2 (r) def /u*eeMa1 (b) def /u*eeMai fakms 99 mul 0.5 mul 50 add cviht def /u*eeMa2 (r) def} if /i3*eeMa 1 def /c3*eeMa 1 o3*eeMa sub def /m3*eeMa 1 l3*eeMa sub def /y3*eeMa 1 v3*eeMa sub def /n3*eeMa 0 def H*Me 360 ge {/H*Me H*Me 360 sub def} if %H*Me = H*abd = H*abe for all hue angles /H*abd H*Me def %calculations for device (d) system: %faktor and section in actual System (for example ORS18) /jsece -1 def %main equations %faktd = [col_angh - LAB*Hd(n)]/[LAB*Hd(n+1) - LAB*Hd(n)] %col_angh = faktd [LAB*Hd(n+1) - LAB*Hd(n)] + LAB*Hd(n) H*abd LAB*Hd 0 get lt {/H*abd H*abd 360 add def} if 0 1 5 {/nx exch def /np nx 1 add def H*abd LAB*Hd nx get ge H*abd LAB*Hd np get lt and {/jsecd nx def /faktd H*abd LAB*Hd nx get sub LAB*Hd np get LAB*Hd nx get sub div def} if } for %nx=0,5 %1 0 0 %O jsecd=0 %1 1 0 %Y jsecd=1 %0 1 0 %L jsecd=2 %0 1 1 %C jsecd=3 %0 0 1 %V jsecd=4 %1 0 1 %O jsecd=5 jsecd -1 eq {STOPjsecd} if /fakmd 1 faktd sub def /o3*edMa -1 def /l3*edMa -1 def /v3*edMa -1 def jsecd 0 eq {%sector O->Y, o3*=1, l3*=0->1, v*=0 /o3*edMa 1 def /l3*edMa faktd def /v3*edMa 0 def /u*dtMa1 (o) def /u*dtMai faktd 99 mul cviht def /u*dtMa2 (y) def /u*edMa1 (o) def /u*edMai faktd 99 mul cviht def /u*edMa2 (y) def} if jsecd 1 eq {%sector Y->L, o3*=1->0, l3*=1, v*=0 /o3*edMa fakmd def /l3*edMa 1 def /v3*edMa 0 def /u*dtMa1 (y) def /u*dtMai faktd 99 mul cviht def /u*dtMa2 (l) def /u*edMa1 (y) def /u*edMai faktd 99 mul cviht def /u*edMa2 (l) def} if jsecd 2 eq {%sector L->C, o3*=0, l3*=1, v*=0->1 /o3*edMa 0 def /l3*edMa 1 def /v3*edMa faktd def /u*dtMa1 (l) def /u*dtMai faktd 99 mul cviht def /u*dtMa2 (c) def /u*edMa1 (l) def /u*edMai faktd 99 mul cviht def /u*edMa2 (c) def} if jsecd 3 eq {%sector C->V, o3*=0, l3*=0->1, v*=1 /o3*edMa 0 def /l3*edMa fakmd def /v3*edMa 1 def /u*dtMa1 (c) def /u*dtMai faktd 99 mul cviht def /u*dtMa2 (v) def /u*edMa1 (c) def /u*edMai faktd 99 mul cviht def /u*edMa2 (v) def} if jsecd 4 eq {%sector V->M, o3*=0->1, l3*=0, v*=1 /o3*edMa faktd def /l3*edMa 0 def /v3*edMa 1 def /u*dtMa1 (v) def /u*dtMai faktd 99 mul cviht def /u*dtMa2 (m) def /u*edMa1 (v) def /u*edMai faktd 99 mul cviht def /u*edMa2 (m) def} if jsecd 5 eq {%sector M->O, o3*=1, l3*=0, v*=1->0 /o3*edMa 1 def /l3*edMa 0 def /v3*edMa fakmd def /u*dtMa1 (m) def /u*dtMai faktd 99 mul cviht def /u*dtMa2 (o) def /u*edMa1 (v) def /u*edMai faktd 99 mul cviht def /u*edMa2 (o) def} if o3*edMa -1 eq {STOPo3*Ma0} if l3*edMa -1 eq {STOPl3*Ma0} if v3*edMa -1 eq {STOPv3*Ma0} if /i3*edMa 1 def /c3*edMa 1 o3*edMa sub def /m3*edMa 1 l3*edMa sub def /y3*edMa 1 v3*edMa sub def /n3*edMa 0 def /lab*nMa 0.00 def /lab*cMa 1.00 def /lab*wMa 0.00 def /lab*tMa 0.50 def /lab*hMa H*Ma 360 div def /lab*lMa L*Ma nLAB*s0 0 get sub wLAB*s0 0 get nLAB*s0 0 get sub 0.000001 add div def %/o3*ee o*s def %/o3*ee w*s o3*eeMa c*rs mul add def %/l3*ee l*s def %/l3*ee w*s l3*eeMa c*rs mul add def %/v3*ee v*s def %/v3*ee w*s v3*eeMa c*rs mul add def /o3*ee w*s o3*eeMa c*rs mul add def /l3*ee w*s l3*eeMa c*rs mul add def /v3*ee w*s v3*eeMa c*rs mul add def /o3*ed w*s o3*edMa c*rs mul add def /l3*ed w*s l3*edMa c*rs mul add def /v3*ed w*s v3*edMa c*rs mul add def } ifelse %chromatic colour i*p#6 %For tLAB=1 Transfer to LAB*Ma and LAB*Fa tLAB 1 eq {%tLAB = 1 i*p 6 eq { %achromatic,chromatic colours /L*Ma L*Wio def /A*Ma 0 def /B*Ma 0 def /H*Ma B*Ma A*Ma 0.0001 add atan def /C*Ma 0 def /L*Fa L*Nio L*Wio L*Nio sub w*s mul add def /A*Fa 0 def /B*Fa 0 def /H*Fa B*Fa A*Fa 0.0001 add atan def /C*Fa 0 def /l*rs w*s def } %achromatic i*p=6 {%chromatic i*p#6 /H*M H*Me def %H*M allready defined /L*Ha 50 def /A*Ha 75 H*M cos mul def /B*Ha 75 H*M sin mul def /UXF1a wLAB*s0 1 get B*Ha mul wLAB*s0 2 get A*Ha mul sub def /UXF2a wLAB*s0 2 get L*Ha mul wLAB*s0 0 get B*Ha mul sub def /UXF3a wLAB*s0 0 get A*Ha mul wLAB*s0 1 get L*Ha mul sub def /T1 0 def /T2 0 def 0 1 5 {/ia exch def /ia30 ia 3 mul def ia 5 eq {/ia31 0 def} {/ia31 ia30 3 add def} ifelse /T1 LAB*a ia30 get UXF1a mul LAB*a ia30 1 add get UXF2a mul add LAB*a ia30 2 add get UXF3a mul add def /T2 LAB*a ia31 get UXF1a mul LAB*a ia31 1 add get UXF2a mul add LAB*a ia31 2 add get UXF3a mul add def T1 0 le {/T1X (N) def} {/T1X (P) def} ifelse T2 0 gt {/T2X (P) def} {/T2X (N) def} ifelse T1 0 le T2 0 gt and {/ia3END ia30 def exit} if } for /L*11a LAB*a ia3END get def /A*11a LAB*a ia3END 1 add get def /B*11a LAB*a ia3END 2 add get def ia3END 15 ge {/ia3END -3 def} if /L*21a LAB*a ia3END 3 add get def /A*21a LAB*a ia3END 4 add get def /B*21a LAB*a ia3END 5 add get def /NENNER L*21a L*11a sub UXF1a mul A*21a A*11a sub UXF2a mul add B*21a B*11a sub UXF3a mul add def /ZAEHLE L*21a UXF1a mul A*21a UXF2a mul add B*21a UXF3a mul add def NENNER 0 ne {/ALPH ZAEHLE NENNER div def} {/ALPH 99999} ifelse /L*Ma ALPH L*11a mul 1 ALPH sub L*21a mul add def /A*Ma ALPH A*11a mul 1 ALPH sub A*21a mul add def /B*Ma ALPH B*11a mul 1 ALPH sub B*21a mul add def /C*Ma A*Ma dup mul B*Ma dup mul add 0.000001 add sqrt def /H*Ma B*Ma A*Ma 0.0001 add atan def %equations %/c*rs olv*smax olv*smin sub def %/n*s 1 olv*smax sub def %/w*s 1 n*s sub c*rs sub def %/t*s 1 n*s sub c*rs 0.5 mul sub def %l* = t* + c* [L*M - L*N]/[L*W - L*N] - 0.5 c* %l* = (L*Fa - L*Na) / (L*Wa - L*Na) %L*Fa = l* (L*Wa - L*Na) + L*Na %given L*Nio, L*Wio /l*rs t*s L*Ma L*Nio sub L*Wio L*Nio sub div c*rs mul add c*rs 0.5 mul sub def /L*Fa L*Nio L*Wio L*Nio sub l*rs mul add def /C*Fa C*Ma c*rs mul def /H*Fa H*Ma def /A*Fa C*Fa H*Ma cos mul def /B*Fa C*Fa H*Ma sin mul def } ifelse %chromatic colour i*p#6 } if %tLAB = 1 } bind def %END Procedure proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioL %******************************************************************** /proc_olv3*s_to_olv3*u*dd_de_H*M_LAB*Ma_Fa*ioL { %BEG Procedure proc_olv3*s_to_olv3*u*dd_de_H*M_LAB*Ma_Fa*ioL %transfer from device data to device (dd) and elementary data (de) %For tLAB=1 Transfer to LAB*Ma and LAB*Fa /v*s exch def /l*s exch def /o*s exch def /i*p 0 def %test if achromatic %W special case %W: o*s, l*s, v*s = 1.00 1.0 o*s sub abs 0.001 le 1.0 l*s sub abs 0.001 le and 1.0 v*s sub abs 0.001 le and %W special case {/i*p 6 def %W /c*rs 0 def /n*s 0 def /w*s 1 def /t*s 1 def } if %Test if achromatic %N special case %N: o*n, l*n, v*n <= 0.01 o*s abs 0.001 le l*s abs 0.001 le and v*s abs 0.001 le and %N special case {/i*p 6 def %N /c*rs 0 def /n*s 1 def /w*s 0 def /t*s 0 def } if %test if achromatic Grey sample o*s l*s sub abs 0.001 le l*s v*s sub abs 0.001 le and %Achromatic grey special case {/i*p 6 def %Grey /c*rs 0 def /n*s 1 o*s sub def /w*s o*s def /t*s 1 n*s sub c*rs 0.5 mul sub def } if i*p 6 eq {%achromatic,chromatic colours /o3*ddMa 1 def /l3*ddMa 1 def /v3*ddMa 1 def /o3*deMa 1 def /l3*deMa 1 def /v3*deMa 1 def /u*ddMa1 (o) def /u*ddMai 0 def /u*ddMa2 (y) def /u*dtMa1 (r) def /u*dtMai 0 def /u*dtMa2 (j) def /u*deMa1 (r) def /u*deMai 0 def /u*deMa2 (j) def /o3*dd o*s def /l3*dd l*s def /v3*dd v*s def /o3*de o*s def /l3*de l*s def /v3*de v*s def } %achromatic i*p=6 { %chromatic i*p#6 o*s l*s ge o*s v*s ge and {/olv*smax o*s def l*s v*s ge {%sector O->Y, o3*=1, l3*=0->1, v3*=0 /olv*smin v*s def /olv*smean l*s def /jsecd 0 def} {%sector M->O, o3*=1, l3*=0, v3*=1->0 /olv*smin l*s def /olv*smean v*s def /jsecd 5 def} ifelse } if l*s v*s ge l*s o*s ge and {/olv*smax l*s def v*s o*s ge {%sector L->C, o3*=0, l3*=1, v3*=0->1 /olv*smin o*s def /olv*smean v*s def /jsecd 2 def} {%sector Y->L, o3*=1->0, l3*=1, v3*=0 /olv*smin v*s def /olv*smean o*s def /jsecd 1 def} ifelse } if v*s o*s ge v*s l*s ge and {/olv*smax v*s def o*s l*s ge {%sector V->M, o3*=0->1, l3*=0, v3*=1 /olv*smin l*s def /olv*smean o*s def /jsecd 4 def} {%sector C->V, o3*=0, l3*=0->1, v3*=1 /olv*smin o*s def /olv*smean l*s def /jsecd 3 def } ifelse } if /c*rs olv*smax olv*smin sub def /n*s 1 olv*smax sub def /w*s 1 n*s sub c*rs sub def /t*s 1 n*s sub c*rs 0.5 mul sub def /b_a olv*smean olv*smax div def /c_a olv*smin olv*smax div def /alpha 1 c_a sub def /faktd b_a c_a sub alpha 0.00001 add div def /fakmd 1 faktd sub def %jsecd interpreted as device angle jsecd 0 eq {%sector O->Y, o3*=1, l3*=0->1, v3*=0 /o3*ddMa 1 def /l3*ddMa faktd def /v3*ddMa 0 def /H*M LAB*Hd 0 get LAB*Hd 1 get LAB*Hd 0 get sub faktd mul add def /u*ddMa1 (o) def /u*ddMai faktd 99 mul cviht def /u*ddMa2 (y) def} if jsecd 1 eq {%sector Y->L, o3*=1->0, l3*=1, v3*=0 /o3*ddMa faktd def /l3*ddMa 1 def /v3*ddMa 0 def /H*M LAB*Hd 1 get LAB*Hd 2 get LAB*Hd 1 get sub fakmd mul add def /u*ddMa1 (y) def /u*ddMai fakmd 99 mul cviht def /u*ddMa2 (l) def} if jsecd 2 eq {%sector L->C, o3*=0, l3*=1, v3*=0->1 /o3*ddMa 0 def /l3*ddMa 1 def /v3*ddMa faktd def /H*M LAB*Hd 2 get LAB*Hd 3 get LAB*Hd 2 get sub faktd mul add def /u*ddMa1 (l) def /u*ddMai faktd 99 mul cviht def /u*ddMa2 (c) def} if jsecd 3 eq {%sector C->V, o3*=0, l3*=0->1, v3*=1 /o3*ddMa 0 def /l3*ddMa faktd def /v3*ddMa 1 def /H*M LAB*Hd 3 get LAB*Hd 4 get LAB*Hd 3 get sub fakmd mul add def /u*ddMa1 (c) def /u*ddMai fakmd 99 mul cviht def /u*ddMa2 (v) def} if jsecd 4 eq {%sector V->M, o3*=0->1, l3*=0, v3*=1 /o3*ddMa faktd def /l3*ddMa 0 def /v3*ddMa 1 def /H*M LAB*Hd 4 get LAB*Hd 5 get LAB*Hd 4 get sub faktd mul add def /u*ddMa1 (v) def /u*ddMai faktd 99 mul cviht def /u*ddMa2 (m) def} if jsecd 5 eq {%sector M->O, o3*=1, l3*=0, v3*=1->0 /o3*ddMa 1 def /l3*ddMa 0 def /v3*ddMa faktd def /H*M LAB*Hd 5 get LAB*Hd 6 get LAB*Hd 5 get sub fakmd mul add def /u*ddMa1 (m) def /u*ddMai fakmd 99 mul cviht def /u*ddMa2 (o) def} if /i3*ddMa 1 def /c3*ddMa 1 o3*ddMa sub def /m3*ddMa 1 l3*ddMa sub def /y3*ddMa 1 v3*ddMa sub def /n3*ddMa 0 def H*M 360 ge {/H*M H*M 360 sub def} if %H*M = H*abd = H*abe for all hue angles /H*abe H*M def %calculations for elementary (e) system: %faktor and section in actual System (for example ORS18) /jsece -1 def %main equations %fakte = [col_angh - LAB*He(n)]/[LAB*He(n+1) - LAB*He(n)] %col_angh = fakte [LAB*He(n+1) - LAB*He(n)] + LAB*He(n) H*abe LAB*He 0 get lt {/H*abe H*abe 360 add def} if 0 1 5 {/nx exch def /np nx 1 add def H*abe LAB*He nx get ge H*abe LAB*He np get lt and {/jsece nx def /fakte H*abe LAB*He nx get sub LAB*He np get LAB*He nx get sub div def} if } for %nx=0,5 %1 0 0 %R jsece=0 %1 1 0 %J jsece=1 %0 1 0 %G jsece=2 %0 1 1 %C' jsece=3 %0 0 1 %B jsece=4 %1 0 1 %R jsece=5 jsece -1 eq {STOPjsece} if /fakme 1 fakte sub def /o3*deMa -1 def /l3*deMa -1 def /v3*deMa -1 def jsece 0 eq {%sector O->Y, o3*=1, l3*=0->1, v*=0 /o3*deMa 1 def /l3*deMa fakte def /v3*deMa 0 def /u*dtMa1 (r) def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (j) def /u*deMa1 (r) def /u*deMai fakte 99 mul cviht def /u*deMa2 (j) def} if jsece 1 eq {%sector Y->L, o3*=1->0, l3*=1, v*=0 /o3*deMa fakme def /l3*deMa 1 def /v3*deMa 0 def /u*dtMa1 (j) def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (g) def /u*deMa1 (j) def /u*deMai fakte 99 mul cviht def /u*deMa2 (g) def} if jsece 2 eq {%sector L->C, o3*=0, l3*=1, v*=0->1 /o3*deMa 0 def /l3*deMa 1 def /v3*deMa fakte def /u*dtMa1 (g) def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (C) def /u*deMa1 (g) def /u*deMai fakte 99 mul 0.5 mul cviht def /u*deMa2 (b) def} if jsece 3 eq {%sector C->V, o3*=0, l3*=0->1, v*=1 /o3*deMa 0 def /l3*deMa fakme def /v3*deMa 1 def /u*dtMa1 (C) def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (b) def /u*deMa1 (g) def /u*deMai fakte 99 mul 0.5 mul 50 add cviht def /u*deMa2 (b) def} if jsece 4 eq {%sector V->M, o3*=0->1, l3*=0, v*=1 /o3*deMa fakte def /l3*deMa 0 def /v3*deMa 1 def /u*dtMa1 (b) def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (M) def /u*deMa1 (b) def /u*deMai fakte 99 mul 0.5 mul cviht def /u*deMa2 (r) def} if jsece 5 eq {%sector M->O, o3*=1, l3*=0, v*=1->0 /o3*deMa 1 def /l3*deMa 0 def /v3*deMa fakme def /u*dtMa1 (M) def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (r) def /u*deMa1 (b) def /u*deMai fakte 99 mul 0.5 mul 50 add cviht def /u*deMa2 (r) def} if o3*deMa -1 eq {STOPo3*Ma0} if l3*deMa -1 eq {STOPl3*Ma0} if v3*deMa -1 eq {STOPv3*Ma0} if /i3*deMa 1 def /c3*deMa 1 o3*deMa sub def /m3*deMa 1 l3*deMa sub def /y3*deMa 1 v3*deMa sub def /n3*deMa 0 def /lab*nMa 0.00 def /lab*cMa 1.00 def /lab*wMa 0.00 def /lab*tMa 0.50 def /lab*hMa H*Ma 360 div def /lab*lMa L*Ma nLAB*s0 0 get sub wLAB*s0 0 get nLAB*s0 0 get sub 0.000001 add div def /o3*dd o*s def /o3*dd w*s o3*ddMa c*rs mul add def /l3*dd l*s def /l3*dd w*s l3*ddMa c*rs mul add def /v3*dd v*s def /v3*dd w*s v3*ddMa c*rs mul add def /o3*de w*s o3*deMa c*rs mul add def /l3*de w*s l3*deMa c*rs mul add def /v3*de w*s v3*deMa c*rs mul add def } ifelse %chromatic colour i*p#6 %For tLAB=1 Transfer to LAB*Ma and LAB*Fa tLAB 1 eq {%tLAB = 1 i*p 6 eq {%achromatic,chromatic colours /L*Ma L*Wio def /A*Ma 0 def /B*Ma 0 def /H*Ma B*Ma A*Ma 0.0001 add atan def /C*Ma 0 def /L*Fa L*Nio L*Wio L*Nio sub w*s mul add def /A*Fa 0 def /B*Fa 0 def /H*Fa B*Fa A*Fa 0.0001 add atan def /C*Fa 0 def /l*rs w*s def } %achromatic i*p=6 { %chromatic i*p#6 %H*M allready defined /L*Ha 50 def /A*Ha 75 H*M cos mul def /B*Ha 75 H*M sin mul def /UXF1a wLAB*s0 1 get B*Ha mul wLAB*s0 2 get A*Ha mul sub def /UXF2a wLAB*s0 2 get L*Ha mul wLAB*s0 0 get B*Ha mul sub def /UXF3a wLAB*s0 0 get A*Ha mul wLAB*s0 1 get L*Ha mul sub def /T1 0 def /T2 0 def 0 1 5 {/ia exch def /ia30 ia 3 mul def ia 5 eq {/ia31 0 def} {/ia31 ia30 3 add def} ifelse /T1 LAB*a ia30 get UXF1a mul LAB*a ia30 1 add get UXF2a mul add LAB*a ia30 2 add get UXF3a mul add def /T2 LAB*a ia31 get UXF1a mul LAB*a ia31 1 add get UXF2a mul add LAB*a ia31 2 add get UXF3a mul add def T1 0 le {/T1X (N) def} {/T1X (P) def} ifelse T2 0 gt {/T2X (P) def} {/T2X (N) def} ifelse T1 0 le T2 0 gt and {/ia3END ia30 def exit} if } for /L*11a LAB*a ia3END get def /A*11a LAB*a ia3END 1 add get def /B*11a LAB*a ia3END 2 add get def ia3END 15 ge {/ia3END -3 def} if /L*21a LAB*a ia3END 3 add get def /A*21a LAB*a ia3END 4 add get def /B*21a LAB*a ia3END 5 add get def /NENNER L*21a L*11a sub UXF1a mul A*21a A*11a sub UXF2a mul add B*21a B*11a sub UXF3a mul add def /ZAEHLE L*21a UXF1a mul A*21a UXF2a mul add B*21a UXF3a mul add def NENNER 0 ne {/ALPH ZAEHLE NENNER div def} {/ALPH 99999} ifelse /L*Ma ALPH L*11a mul 1 ALPH sub L*21a mul add def /A*Ma ALPH A*11a mul 1 ALPH sub A*21a mul add def /B*Ma ALPH B*11a mul 1 ALPH sub B*21a mul add def /C*Ma A*Ma dup mul B*Ma dup mul add 0.000001 add sqrt def /H*Ma B*Ma A*Ma 0.0001 add atan def %equations %/c*rs olv*smax olv*smin sub def %/n*s 1 olv*smax sub def %/w*s 1 n*s sub c*rs sub def %/t*s 1 n*s sub c*rs 0.5 mul sub def %l* = t* + c* [L*M - L*N]/[L*W - L*N] - 0.5 c* %l* = (L*Fa - L*Na) / (L*Wa - L*Na) %L*Fa = l* (L*Wa - L*Na) + L*Na %given L*Nio, L*Wio /l*rs t*s L*Ma L*Nio sub L*Wio L*Nio sub div c*rs mul add c*rs 0.5 mul sub def /L*Fa L*Nio L*Wio L*Nio sub l*rs mul add def /C*Fa C*Ma c*rs mul def /H*Fa H*Ma def /A*Fa C*Fa H*Ma cos mul def /B*Fa C*Fa H*Ma sin mul def } ifelse %chromatic colour i*p#6 } if %tLAB = 1 } bind def %END Procedure proc_olv3*s_to_olv3*u*dd_de_H*M_LAB*Ma_Fa*ioL %******************************************************************* from De990-7N04.PS /proc_ColSep*ioL {%BEG Procedure proc_ColSep*ioL ColourSeparation for NP-file 20100101 /setgc {pop pop pop 1 exch sub slgray} bind def /setgm {pop pop 1 exch sub slgray pop} bind def /setgy {pop 1 exch sub slgray pop pop} bind def /setgn {1 exch sub slgray pop pop pop} bind def /setgf {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def 0 ccolor eq 0 mcolor eq and 0 ycolor eq and {1 ncolor sub slgray} {1 ccolor sub 0.71 mul 1 mcolor sub 0.22 mul add 1 ycolor sub 0.07 mul add slgray} ifelse } bind def /setcmykcolorf { slcmykcolor} bind def %fuer PSL1/2-Farbgeraet /setcmyknew { %Ersatz setcolornew durch setcmykcolor1 ausz 1 eq {setgc} if %C ausz 2 eq {setgm} if %M ausz 3 eq {setgy} if %Y ausz 4 eq {pop pop pop /ccolor exch def ccolor 0 0 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgc} %PSL1-SW-Geraet ifelse } if %Cbunt ausz 5 eq {pop pop /mcolor exch def pop 0 mcolor 0 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgm} %PSL1-SW-Geraet ifelse } if %Mbunt ausz 6 eq {pop /ycolor exch def pop pop 0 0 ycolor 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgy} %PSL1-SW-Geraet ifelse } if %Ybunt ausz 7 eq {setgn} if %N ausz 8 ge { /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgf} %PSL1-SW-Geraet ifelse } if %bei ausz=8: Farb- oder SW-Ausdruck je nach Drucker } bind def %********************************************************************* /rgb_LAB_Interp_olv*ioL {%BEG Procedure rgb_LAB_Interp_olv*ioL zm60'LABINPLT.PS %assumes input of rgb, LAB_Interpolation and calculation of olv* %split in chromatic and achromatic colours %two special cases black N and white W /b exch def /g exch def /r exch def %For N and W interpolation for cf1#1 %r g sub abs 0.001 le %r b sub abs 0.001 le and {%achromatic case % /Case 0 def % r abs 0.001 le % g abs 0.001 le and % b abs 0.001 le and {%N special case % /Case 1 def % } if %N special case % % 1 r sub abs 0.001 le % 1 g sub abs 0.001 le and % 1 b sub abs 0.001 le and {%W special case % /Case 2 def % } if % }%achromatic % {%chromatic % /Case 3 def % } ifelse %chromatic %Case 1 eq {%Black N % /o* 0 def % /l* 0 def % /v* 0 def % } if %N special case %Case 2 eq {%White W % /o* 1 def % /l* 1 def % /v* 1 def % } if %W special case % %Case 0 eq Case 3 eq or {%chromatic or gray /tLAB 1 def r g b proc_olv3*s_to_olv3*u*dd_de_H*M_LAB*Ma_Fa*ioL L*Fa A*Fa B*Fa Lab2RGBinterpolation /v* exch def /l* exch def /o* exch def % } if %chromatic or gray } bind def %END Procedure rgb_LAB_Interp_olv*ioL 'zm60'LABINPLT.PS %********************************************************************* /trans_rgb3*_cmyn4*ioL {%BEG Procedure trans_rgb3*_cmyn4*ioL %assumes input of olv* o* 0 le {/o* 0.0000 def} if l* 0 le {/l* 0.0000 def} if v* 0 le {/v* 0.0000 def} if o* 1 ge {/o* 1.0000 def} if l* 1 ge {/l* 1.0000 def} if v* 1 ge {/v* 1.0000 def} if /tdel 0 def v* l* ge l* o* ge and tdel 0 eq and % v* >= l* >= o* equal y* <= m* <= c* %sector C-V of C-M, C>=M: i*p=0 {/n*n 1 v* sub def /w*w o* def /tdel 1 def } if % v* >= l* >= o* v* o* ge o* l* ge and tdel 0 eq and % v* >= o* >= l* equal y* <= c* <= m* %sector V-M of C-M, M>=C: i*p=1 {/n*n 1 v* sub def /w*w l* def /tdel 1 def } if % v* >= o* >= l* o* v* ge v* l* ge and tdel 0 eq and % o* >= v* >= l* equal c* <= y* <= m* %sector M-O of M-Y, M>=Y: i*p=2 {/n*n 1 o* sub def /w*w l* def /tdel 1 def } if % o* >= v* >= l* o* l* ge l* v* ge and tdel 0 eq and % o* >= l* >= v* equal c* <= m* <= y* %sector O-Y of M-Y, Y>=M: i*p=3 {/n*n 1 o* sub def /w*w v* def /tdel 1 def } if % o* >= l* >= v* l* o* ge o* v* ge and tdel 0 eq and % l* >= o* >= v* equal m* <= c* <= y* %sector Y-L of Y-C, Y>=C: i*p=4 {/n*n 1 l* sub def /w*w v* def /tdel 1 def } if % l* >= o* >= v* l* v* ge v* o* ge and tdel 0 eq and % l* >= v* >= o* equal m* <= y* <= c* %sector L-C of Y-C, C>=Y: i*p=5 {/n*n 1 l* sub def /w*w o* def /tdel 1 def } if % l* >= v* >= o* %achromatic %W: o*, l*, v* = 1.00 1.0 o* sub abs 0.001 le 1.0 l* sub abs 0.001 le and 1.0 v* sub abs 0.001 le and %W special case {/n*n 0 def /w*w 1 def %W } if %N: o*, l*, v* <= 0.001 o* abs 0.001 le l* abs 0.001 le and v* abs 0.001 le and %N special case {/n*n 1 def /w*w 0 def %N } if %Achromatic o* l* sub abs 0.001 le l* v* sub abs 0.001 le and %Achromatic special case {/n*n 1 o* sub def /w*w o* def %grey } if /lab*wFa w*w def /lab*nFa n*n def /c3*Fa 1 o* sub def /m3*Fa 1 l* sub def /y3*Fa 1 v* sub def /c4*Fa c3*Fa lab*nFa sub def %at least one of cmy will be cero /m4*Fa m3*Fa lab*nFa sub def /y4*Fa y3*Fa lab*nFa sub def /n4*Fa lab*nFa def %cmyn4* /o4*Fa 1 c4*Fa sub def /l4*Fa 1 m4*Fa sub def /v4*Fa 1 y4*Fa sub def /i4*Fa 1 n4*Fa sub def } bind def %END Procedure trans_rgb3*_cmyn4*ioL %******************************************************************* /trans_rgb3*_cmyn5*ioL {%BEG Procedure trans_rgb3*_cmyn5*ioL %assumes input of olv*, 'zm60'CMYN559LT.PS o* 0 le {/o* 0.0000 def} if l* 0 le {/l* 0.0000 def} if v* 0 le {/v* 0.0000 def} if o* 1 ge {/o* 1.0000 def} if l* 1 ge {/l* 1.0000 def} if v* 1 ge {/v* 1.0000 def} if /ok* o* def /lk* l* def /vk* v* def /tdel 0 def vk* lk* ge lk* ok* ge and tdel 0 eq and % v* >= l* >= o* equal y* <= m* <= c* %sector C-V of C-M, C>=M: i*p=0 {/n*n 1 vk* sub def /w*w ok* def /m*w lk* def /tdel 1 def /isec 3 def } if % v* >= l* >= o* vk* ok* ge ok* lk* ge and tdel 0 eq and % v* >= o* >= l* equal y* <= c* <= m* %sector V-M of C-M, M>=C: i*p=1 {/n*n 1 vk* sub def /w*w lk* def /m*w ok* def /tdel 1 def /isec 4 def } if % v* >= o* >= l* ok* vk* ge vk* lk* ge and tdel 0 eq and % o* >= v* >= l* equal c* <= y* <= m* %sector M-O of M-Y, M>=Y: i*p=2 {/n*n 1 ok* sub def /w*w lk* def /m*w vk* def /tdel 1 def /isec 5 def } if % o* >= v* >= l* ok* lk* ge lk* vk* ge and tdel 0 eq and % o* >= l* >= v* equal c* <= m* <= y* %sector O-Y of M-Y, Y>=M: i*p=3 {/n*n 1 ok* sub def /w*w vk* def /m*w lk* def /tdel 1 def /isec 0 def } if % o* >= l* >= v* lk* ok* ge ok* vk* ge and tdel 0 eq and % l* >= o* >= v* equal m* <= c* <= y* %sector Y-L of Y-C, Y>=C: i*p=4 {/n*n 1 lk* sub def /w*w vk* def /m*w ok* def /tdel 1 def /isec 1 def } if % l* >= o* >= v* lk* vk* ge vk* ok* ge and tdel 0 eq and % l* >= v* >= o* equal m* <= y* <= c* %sector L-C of Y-C, C>=Y: i*p=5 {/n*n 1 lk* sub def /w*w ok* def /m*w vk* def /tdel 1 def /isec 2 def } if % l* >= v* >= o* %achromatic %W: ok*, lk*, vk* = 1.00 1.0 ok* sub abs 0.001 le 1.0 lk* sub abs 0.001 le and 1.0 vk* sub abs 0.001 le and %W special case {/n*n 0 def /w*w 1 def /m*w 1 def %W /isec 6 def } if %N: ok*, lk*, vk* <= 0.001 ok* abs 0.001 le lk* abs 0.001 le and vk* abs 0.001 le and %N special case {/n*n 1 def /w*w 0 def /m*w 0 def %N /isec 6 def } if %Achromatic ok* lk* sub abs 0.001 le lk* vk* sub abs 0.001 le and %Achromatic special case {/n*n 1 ok* sub def /w*w ok* def /m*w ok* def %grey /isec 6 def } if /lab*wFa w*w def /lab*nFa n*n def /lab*cFa 1 n*n sub w*w sub def /argb 1 lab*nFa sub def /brgb m*w def /crgb lab*wFa def /c* lab*cFa def /lab*tFa 1 lab*nFa sub lab*cFa 0.5 mul sub def isec 6 eq {%BEG isec=6 achromatic /o*1 1 def /l*1 1 def /v*1 1 def }%END isec=6 achromatic {%BEG isec#6 chromatic /o*1 ok* argb 0.000001 add div def /l*1 lk* argb 0.000001 add div def /v*1 vk* argb 0.000001 add div def } ifelse %END isec#6 /c3*Fa 1 o*1 sub def /m3*Fa 1 l*1 sub def /y3*Fa 1 v*1 sub def /c4*Fa c3*Fa def %at least one of cmy will be cero /m4*Fa m3*Fa def /y4*Fa y3*Fa def /n4*Fa lab*nFa def %cmyn5* /o4*Fa 1 c4*Fa sub def /l4*Fa 1 m4*Fa sub def /v4*Fa 1 y4*Fa sub def /i4*Fa 1 n4*Fa sub def } bind def %END Procedure trans_rgb3*_cmyn5*ioL 'zm60'CMYN559LT.PS %********************************************************************* /trans_rgb3*_cmyn6*ioL {%BEG Procedure trans_rgb3*_cmyn6*ioL %assumes input of olv*, 'zm60'CMYN559LT.PS o* 0 le {/o* 0.0000 def} if l* 0 le {/l* 0.0000 def} if v* 0 le {/v* 0.0000 def} if o* 1 ge {/o* 1.0000 def} if l* 1 ge {/l* 1.0000 def} if v* 1 ge {/v* 1.0000 def} if /ok* o* def /lk* l* def /vk* v* def /tdel 0 def vk* lk* ge lk* ok* ge and tdel 0 eq and % v* >= l* >= o* equal y* <= m* <= c* %sector C-V of C-M, C>=M: i*p=0 {/n*n 1 vk* sub def /w*w ok* def /m*w lk* def /tdel 1 def /isec 3 def } if % v* >= l* >= o* vk* ok* ge ok* lk* ge and tdel 0 eq and % v* >= o* >= l* equal y* <= c* <= m* %sector V-M of C-M, M>=C: i*p=1 {/n*n 1 vk* sub def /w*w lk* def /m*w ok* def /tdel 1 def /isec 4 def } if % v* >= o* >= l* ok* vk* ge vk* lk* ge and tdel 0 eq and % o* >= v* >= l* equal c* <= y* <= m* %sector M-O of M-Y, M>=Y: i*p=2 {/n*n 1 ok* sub def /w*w lk* def /m*w vk* def /tdel 1 def /isec 5 def } if % o* >= v* >= l* ok* lk* ge lk* vk* ge and tdel 0 eq and % o* >= l* >= v* equal c* <= m* <= y* %sector O-Y of M-Y, Y>=M: i*p=3 {/n*n 1 ok* sub def /w*w vk* def /m*w lk* def /tdel 1 def /isec 0 def } if % o* >= l* >= v* lk* ok* ge ok* vk* ge and tdel 0 eq and % l* >= o* >= v* equal m* <= c* <= y* %sector Y-L of Y-C, Y>=C: i*p=4 {/n*n 1 lk* sub def /w*w vk* def /m*w ok* def /tdel 1 def /isec 1 def } if % l* >= o* >= v* lk* vk* ge vk* ok* ge and tdel 0 eq and % l* >= v* >= o* equal m* <= y* <= c* %sector L-C of Y-C, C>=Y: i*p=5 {/n*n 1 lk* sub def /w*w ok* def /m*w vk* def /tdel 1 def /isec 2 def } if % l* >= v* >= o* %achromatic %W: ok*, lk*, vk* = 1.00 1.0 ok* sub abs 0.001 le 1.0 lk* sub abs 0.001 le and 1.0 vk* sub abs 0.001 le and %W special case {/n*n 0 def /w*w 1 def /m*w 1 def %W /isec 6 def } if %N: ok*, lk*, vk* <= 0.001 ok* abs 0.001 le lk* abs 0.001 le and vk* abs 0.001 le and %N special case {/n*n 1 def /w*w 0 def /m*w 0 def %N /isec 6 def } if %Achromatic ok* lk* sub abs 0.001 le lk* vk* sub abs 0.001 le and %Achromatic special case {/n*n 1 ok* sub def /w*w ok* def /m*w ok* def %grey /isec 6 def } if /lab*wFa w*w def /lab*nFa n*n def /lab*cFa 1 n*n sub w*w sub def /argb 1 lab*nFa sub def /brgb m*w def /crgb lab*wFa def /c* lab*cFa def /lab*tFa 1 lab*nFa sub lab*cFa 0.5 mul sub def isec 6 eq {%BEG isec=6 achromatic /o*1 1 def /l*1 1 def /v*1 1 def }%END isec=6 achromatic {%BEG isec#6 chromatic /o*1 ok* argb 0.000001 add div def /l*1 lk* argb 0.000001 add div def /v*1 vk* argb 0.000001 add div def } ifelse %END isec#6 /c3*Fa 1 o*1 sub def /m3*Fa 1 l*1 sub def /y3*Fa 1 v*1 sub def /c41*Fa c3*Fa def %at least one of cmy will be cero /m41*Fa m3*Fa def /y41*Fa y3*Fa def /n4*Fa lab*nFa 1.0 exp def %cmyn6* %change by deepness difference delta d* = c*S1 - c*S2 %use lab*cFa, lab*tFa for correction %equations of three lines %t* = 1 - 0.5 c* %t* = [t* / c*] c* %t* = [(t* + 0,18) / c*] c* - 0,18 %cut point S1 for nt=0,18: %c*s1 = 1 /[ t*F / c*F + 0,5 ] %cut point S2 for n=0,18: %c*s1 = (1 + nt) / [ (t*F + nt) / c*F + 0,5 ] %special case lab*cFa=0 and n=0,18 /nt 0.18 def lab*cFa 0 eq { %lab*cFa=0,#0 /c*S1 0 def /c*S2 0 def } %lab*cFa=0 { %lab*cFa#0 /c*S1 1 lab*tFa lab*cFa div 0.5 add div def /c*S2 1 nt add lab*tFa nt add lab*cFa div 0.5 add div def } ifelse %lab*cFa=0,#0 /c4*Fa c41*Fa c41*Fa c*S1 c*S2 sub mul sub def /m4*Fa m41*Fa m41*Fa c*S1 c*S2 sub mul sub def /y4*Fa y41*Fa y41*Fa c*S1 c*S2 sub mul sub def /o4*Fa 1 c4*Fa sub def /l4*Fa 1 m4*Fa sub def /v4*Fa 1 y4*Fa sub def /i4*Fa 1 n4*Fa sub def } bind def %END Procedure trans_rgb3*_cmyn6*ioL 'zm60'CMYN559LT.PS %********************************************************************* %BEG 'zm60'COLM57_590415LT.PS 20100101 ColSpx 0 eq {%ColSpx=0 /tLAB 0 def xcharti 1 ge {%xcharti>=1 'zm60'COLM57LT.PS cmy0* 20100101 colorm 0 eq {%BEG colorm=0 /setrgbcolor {/v* exch def /l* exch def /o* exch def %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioL %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if %standard cmy0* for input /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def rgb_cmy 1 eq {c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew} {o* l* v* slrgbcolor} ifelse } def /setgray {dup dup /v* exch def /l* exch def /o* exch def %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioL %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if %standard cmy0* for input /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def rgb_cmy 1 eq {c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew} {o* l* v* slrgbcolor} ifelse } def /setcmykcolor {/n*n exch def /y*n exch def /m*n exch def /c*n exch def %standard cmy0* for input n*n 0 eq {/o* 1 c*n sub def /l* 1 m*n sub def /v* 1 y*n sub def /i* 0 def } {/o* 1 n*n sub def /l* 1 n*n sub def /v* 1 n*n sub def /i* 0 def } ifelse %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioL %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def rgb_cmy 1 eq {c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew} {o* l* v* slrgbcolor} ifelse } def }%END colorm=0 {%BEG colorm=1 /setrgbcolor {/v* exch def /l* exch def /o* exch def %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioL %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if o* l* v* rgb_LAB_Interp_olv*ioL /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def rgb_cmy 1 eq {c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew} {o* l* v* slrgbcolor} ifelse } def /setgray {/w*w exch def /o* w*w def /l* w*w def /v* w*w def %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioL %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if o* l* v* rgb_LAB_Interp_olv*ioL /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def rgb_cmy 1 eq {c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew} {o* l* v* slrgbcolor} ifelse } def /setcmykcolor {/n*n exch def /y*n exch def /m*n exch def /c*n exch def %standard cmy0* or 000n* for input n*n 0 eq {/o* 1 c*n sub def /l* 1 m*n sub def /v* 1 y*n sub def} {/o* 1 n*n sub def /l* 1 n*n sub def /v* 1 n*n sub def} ifelse %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioL %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if o* l* v* rgb_LAB_Interp_olv*ioL /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def rgb_cmy 1 eq {c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew} {o* l* v* slrgbcolor} ifelse } def } ifelse %END colorm=1 }%END %xcharti>=1 {%BEG %xcharti=0 /setrgbcolor {/v* exch def /l* exch def /o* exch def /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def o* l* v* slrgbcolor } def /setgray {dup dup /v* exch def /l* exch def /o* exch def /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def o* slgray } def /setcmykcolor {/n*n exch def /y*n exch def /m*n exch def /c*n exch def n*n 0 eq {/o* 1 c*n sub def /l* 1 m*n sub def /v* 1 y*n sub def /n4*Fa 0 def} {/o* 1 def /l* 1 def /v* 1 def /n4*Fa n*n def} ifelse /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def c4*Fa m4*Fa y4*Fa n4*Fa slcmykcolor } def } ifelse %END %xcharti=0 'zm60'COLM57LT.PS cmy0* 20100101 } if %ColSpx=0 %********************************************************************* ColSpx 1 eq {%ColSpx=1 /tLAB 0 def xcharti 1 ge {%xcharti>=1 'zm60'COLM559LT.PS cmyn6* 20080201 colorm 0 eq {%BEG colorm=0 /olvtrans 1 def %changes olv* to olvk* /setrgbcolor {/v* exch def /l* exch def /o* exch def %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioL %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if trans_rgb3*_cmyn6*ioL %in: olv*, out: cmyn6 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def /setgray {/w*w exch def /v* w*w def /l* w*w def /o* w*w def %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioL %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if trans_rgb3*_cmyn6*ioL %in: olv*, out: cmyn6 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def /setcmykcolor {/n*n exch def /y*n exch def /m*n exch def /c*n exch def %standard cmy0* or 000n* for input n*n 0 eq {/o* 1 c*n sub def /l* 1 m*n sub def /v* 1 y*n sub def} {/o* 1 n*n sub def /l* 1 n*n sub def /v* 1 n*n sub def} ifelse %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioL %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if trans_rgb3*_cmyn6*ioL %in: olv*, out: cmyn6 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def }%END colorm=0 {%BEG colorm=1 /olvtrans 0 def %no change of olv* /setrgbcolor {/v* exch def /l* exch def /o* exch def %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioL %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if o* l* v* rgb_LAB_Interp_olv*ioL trans_rgb3*_cmyn6*ioL %in: olv*, out: cmyn6 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def /setgray {dup dup /v* exch def /l* exch def /o* exch def %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioL %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if o* l* v* rgb_LAB_Interp_olv*ioL trans_rgb3*_cmyn6*ioL %in: olv*, out: cmyn6 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def /setcmykcolor {/n*n exch def /y*n exch def /m*n exch def /c*n exch def %standard cmy0* or 000n* for input n*n 0 eq {/o* 1 c*n sub def /l* 1 m*n sub def /v* 1 y*n sub def} {/o* 1 n*n sub def /l* 1 n*n sub def /v* 1 n*n sub def} ifelse %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioL %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if o* l* v* rgb_LAB_Interp_olv*ioL trans_rgb3*_cmyn6*ioL %in: olv*, out: cmyn6 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def } ifelse %END colorm=1 }%END %xcharti>=0 {%BEG %xcharti=0 /setrgbcolor {/v* exch def /l* exch def /o* exch def /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def o* l* v* slrgbcolor } def /setgray {dup dup /v* exch def /l* exch def /o* exch def /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def o* slgray } def /setcmykcolor {/n*n exch def /y*n exch def /m*n exch def /c*n exch def n*n 0 eq {/o* 1 c*n sub def /l* 1 m*n sub def /v* 1 y*n sub def /n4*Fa 0 def} {/o* 1 def /l* 1 def /v* 1 def /n4*Fa n*n def} ifelse /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def c4*Fa m4*Fa y4*Fa n4*Fa slcmykcolor } def } ifelse %END %xcharti=0 'zm60'COLM559LT.PS cmyn6* 20080201 } if %ColSpx=1 %*************************************************************** ColSpx 2 eq {%ColSpx=2 /tLAB 0 def xcharti 1 ge {%xcharti>=1 'zm60'COLM58LT.PS cmyn4* 20100101 colorm 0 eq {%BEG colorm=0 /setrgbcolor {/v* exch def /l* exch def /o* exch def %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioL %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if trans_rgb3*_cmyn4*ioL %in: olv*, out: cmyn4 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def /setgray {dup dup /v* exch def /l* exch def /o* exch def %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioL %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if trans_rgb3*_cmyn4*ioL %in: olv*, out: cmyn4 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def /setcmykcolor {/n*n exch def /y*n exch def /m*n exch def /c*n exch def %standard cmy0* or 000n* for input n*n 0 eq {/o* 1 c*n sub def /l* 1 m*n sub def /v* 1 y*n sub def} {/o* 1 n*n sub def /l* 1 n*n sub def /v* 1 n*n sub def} ifelse %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioL %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if trans_rgb3*_cmyn4*ioL %in: olv*, out: cmyn4 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def }%END colorm=0 {%BEG colorm=1 /setrgbcolor {/v* exch def /l* exch def /o* exch def %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioL %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if o* l* v* rgb_LAB_Interp_olv*ioL trans_rgb3*_cmyn4*ioL %needs olv* for input %produces cmyn4*ioL as output c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def /setgray {dup dup /v* exch def /l* exch def /o* exch def %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioL %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if o* l* v* rgb_LAB_Interp_olv*ioL trans_rgb3*_cmyn4*ioL %in: olv*, out: cmyn4 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def /setcmykcolor {/n*n exch def /y*n exch def /m*n exch def /c*n exch def %standard cmy0* or 000n* for input n*n 0 eq {/o* 1 c*n sub def /l* 1 m*n sub def /v* 1 y*n sub def} {/o* 1 n*n sub def /l* 1 n*n sub def /v* 1 n*n sub def} ifelse %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioL %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if o* l* v* rgb_LAB_Interp_olv*ioL trans_rgb3*_cmyn4*ioL %in: olv*, out: cmyn4 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def } ifelse %END colorm=1 }%END %xcharti>=0 {%BEG %xcharti=0 /setrgbcolor {/v* exch def /l* exch def /o* exch def /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def o* l* v* slrgbcolor } def /setgray {dup dup /v* exch def /l* exch def /o* exch def /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def o* slgray } def /setcmykcolor {/n*n exch def /y*n exch def /m*n exch def /c*n exch def n*n 0 eq {/o* 1 c*n sub def /l* 1 m*n sub def /v* 1 y*n sub def /n4*Fa 0 def} {/o* 1 def /l* 1 def /v* 1 def /n4*Fa n*n def} ifelse /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def c4*Fa m4*Fa y4*Fa n4*Fa slcmykcolor } def } ifelse %END %xcharti=0 'zm60'COLM58LT.PS cmyn4* 20100101 } if %ColSpx=2 %************************************************************* ColSpx 3 eq {%ColSpx=3 /tLAB 0 def xcharti 1 ge {%xcharti>=1 'zm60'COLM559LT.PS cmyn5* 20100101 colorm 0 eq {%BEG colorm=0 /setrgbcolor {/v* exch def /l* exch def /o* exch def %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioL %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if trans_rgb3*_cmyn5*ioL %in: olv*, out: cmyn5 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def /setgray {dup dup /v* exch def /l* exch def /o* exch def %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioL %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if trans_rgb3*_cmyn5*ioL %in: olv*, out: cmyn5 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def /setcmykcolor {/n*n exch def /y*n exch def /m*n exch def /c*n exch def %standard cmy0* or 000n* for input n*n 0 eq {/o* 1 c*n sub def /l* 1 m*n sub def /v* 1 y*n sub def} {/o* 1 n*n sub def /l* 1 n*n sub def /v* 1 n*n sub def} ifelse %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioL %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if trans_rgb3*_cmyn5*ioL %in: olv*, out: cmyn5 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def }%END colorm=0 {%BEG colorm=1 /olvtrans 0 def %no change of olv* /setrgbcolor {/v* exch def /l* exch def /o* exch def %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioL %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if o* l* v* rgb_LAB_Interp_olv*ioL trans_rgb3*_cmyn5*ioL %in: olv*, out: cmyn5 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def /setgray {dup dup /v* exch def /l* exch def /o* exch def %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioL %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if o* l* v* rgb_LAB_Interp_olv*ioL trans_rgb3*_cmyn5*ioL %in: olv*, out: cmyn5 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def /setcmykcolor {/n*n exch def /y*n exch def /m*n exch def /c*n exch def %standard cmy0* or 000n* for input n*n 0 eq {/o* 1 c*n sub def /l* 1 m*n sub def /v* 1 y*n sub def} {/o* 1 n*n sub def /l* 1 n*n sub def /v* 1 n*n sub def} ifelse %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioL %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if o* l* v* rgb_LAB_Interp_olv*ioL trans_rgb3*_cmyn5*ioL %in: olv*, out: cmyn5 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def } ifelse %END colorm=1 }%END %xcharti>=0 {%BEG %xcharti=0 /setrgbcolor {/v* exch def /l* exch def /o* exch def /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def o* l* v* slrgbcolor } def /setgray {dup dup /v* exch def /l* exch def /o* exch def /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def o* slgray } def /setcmykcolor {/n*n exch def /y*n exch def /m*n exch def /c*n exch def n*n 0 eq {/o* 1 c*n sub def /l* 1 m*n sub def /v* 1 y*n sub def /n4*Fa 0 def} {/o* 1 def /l* 1 def /v* 1 def /n4*Fa n*n def} ifelse /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def c4*Fa m4*Fa y4*Fa n4*Fa slcmykcolor } def } ifelse %END %xcharti=0 'zm60'COLM559LT.PS cmyn5* 20100101 } if %ColSpx=3 } bind def %BEG Procedure proc_ColSep*ioL ColourSeparation for NP-file 20100101 %***************************************************************************** %END JK0X->JE39/Y10-7N.EPS, ident. for NP-(*ioL), FP-files (*ioL) 20100101 %***************************************************************************** /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /rem %x0, y0 width heigth {/heigth exch def /width exch def /y0 exch def /x0 exch def x0 width 0.5 mul add y0 heigth 0.5 mul add moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /cviht {dup 0 ge {0.49 add}{0.49 sub} ifelse cvi} def /cvishow {dup 0 ge {0.5 add} {0.5 sub} ifelse cvi 6 string cvs show} def /cvsshow1 {dup 0 ge {0.05 add} {0.05 sub} ifelse 10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {dup 0 ge {0.005 add} {0.005 sub} ifelse 100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {dup 0 ge {0.0005 add} {0.0005 sub} ifelse 1000 mul cvi 0.001 mul 7 string cvs show} def /A4quer {598 0 tl 90 rotate} def %%ENDProlog gsave /lanind 0 def /lantex [(G) (E) (S) (N) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /colormg where {pop /colorm1 colormg def /colorm2 colormg def} {/colorm1 1 def /colorm2 1 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showPage /colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showPage /xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showPage /xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showPage /GSS$ where {pop /LSS$ GSS$ def} {/LSS$ (1) def} ifelse /GSC$ where {pop /LSC$ GSC$ def} {/LSC$ (N) def} ifelse /GSX$ where {pop /LSX$ GSX$ def} {/LSX$ (0) def} ifelse /GSY$ where {pop /LSY$ GSY$ def} {/LSY$ (0) def} ifelse /GEX$ where {pop /LEX$ GEX$ def} {/LEX$ (P.PS./PDF) def} ifelse /GEY$ where {pop /LEY$ GEY$ def} {/LEY$ (P.DAT) def} ifelse /IMES where {pop %/IMES IMES def } {/IMES 0 def} ifelse /xchartg where {pop /xchartx xchartg def} {/xchartx 0 def} ifelse /colormg where {pop /colorm colormg def} {/colorm 0 def} ifelse /IMODE 0 def /xs 1000 def /ys xs def /d2 xs 2 div def /d8 xs 8 div def /xs5x xs 5.4 mul def /ys5x ys 5.4 mul def /x xs 0.15 mul def /y ys 12.0 mul def /nr1 27 array def /tx1 52 array def /nr1 [(01) (02) (03) (04) (05) (06) (07) (08) (09) (10) (11) (12) (13) (14) (15) (16) (17) (18) (19) (20) (21) (22) (23) (24) (25) (26) (27)] def /tx1 [(A) (B) (C) (D) (E) (F) (G) (H) (I) (J) (K) (L) (M) (N) (O) (P) (Q) (R) (S) (T) (U) (V) (W) (X) (Y) (Z) (a) (b) (c) (d) (e) (f) (g) (h) (i) (j) (k) (l) (m) (n) (o) (p) (q) (r) (s) (t) (u) (v) (w) (x) (y) (z)] def /ColNamesrgb* 30 array def /ColNamesrgb* [(O) (Y) (L) (C) (V) (M) (N) (W) (R) (J) (G) (B) (r00j) (r25j) (r50j) (r75j) (j00g) (j25g) (j50g) (j75g) (g00b) (g25b) (g50b) (g75b) (b00r) (b25r) (b50r) (b75r) (R = r00j) (r25j) ] def /ColNamesolv* 30 array def /ColNamesolv* [(O) (Y) (L) (C) (V) (M) (N) (W) (O) (Y) (L) (V) (o00y) (o25y) (o50y) (o75y) (y00l) (y25l) (y50l) (y75l) (l00c) (l50c) (c00v) (c50v) (v00m) (v50m) (m00o) (m50o) (O = o00y) (o25y) ] def /ColNames 30 array def 0 1 29 {/iintp exch def %iintp=0,29 ColNames iintp DEintp 0 eq {ColNamesolv* iintp get} {ColNamesrgb* iintp get} ifelse put } for %iintp=0,29 /AngsTabt 68 array def /AngsTabt [%31 angles = 360/22,5 + 1 = 16 + 1 000.0 1.00 0.00 0.00 %r00j 022.5 1.00 0.25 0.00 045.0 1.00 0.50 0.00 %r50j 067.5 1.00 0.75 0.00 090.0 1.00 1.00 0.00 %j00g 112.5 0.75 1.00 0.00 135.0 0.50 1.00 0.00 %j50g 157.5 0.25 1.00 0.00 180.0 0.00 1.00 0.00 %g00b 202.5 0.00 1.00 0.50 225.0 0.00 1.00 1.00 %g50b 247.5 0.00 0.50 1.00 270.0 0.00 0.00 1.00 %b00r 292.5 0.50 0.00 1.00 315.0 1.00 0.00 1.00 %b50r 337.5 1.00 0.00 0.50 360.0 1.00 0.00 0.00 %r00j ] def /XD65 95.05 def /YD65 100.0 def /ZD65 108.90 def /XD50 96.42 def /YD50 100.0 def /ZD50 82.49 def /XLI 0 def XLI 0 eq {/XLIx XD65 def /YLIx YD65 def /ZLIx ZD65 def} {/XLIx XD50 def /YLIx YD50 def /ZLIx ZD50 def} ifelse /xd 800 def /yd 800 def /xd5x xs5x 200 sub def /yd5x ys5x 200 sub def /j 0 def /i 0 def /xds 600 def /xmin 0000 def /xmax 10000 def /ymin 0000 def /ymax 10000 def /ISIN*ioG where {pop /ISIN*ioL ISIN*ioG def} {/ISIN*ioL 0 def} ifelse /ISOU*ioG where {pop /ISOU*ioL ISOU*ioG def} {/ISOU*ioL 0 def} ifelse /ISRL*ioL 0 def /ISIO*ioL ISIN*ioL def /ISIO*ioG where {pop /ISIO*ioG ISIO*ioL def} if /ISRL*ioG where {pop /ISRL*ioG ISRL*ioL def} if /xcharts xchartx def %needed for steering output in proc_ColSep*io /XYZa 24 array def /XYZaicc 24 array def /LAB*aicc 24 array def /DecodeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind def /xcharti xchartx def %00 1 29 {/xcharti exch def %BEG xcharti=00,29 0 setgray gsave 16 16 translate xcharti 1 le {0.0100 MM dup scale} if %with Frame xcharti 2 ge xcharti 6 le and {0.0108 MM dup scale} if %for measuerement xcharti 7 ge {0.0115 MM dup scale} if %tables colorm 1 eq {proc_LAB*ioG proc_ColSep*ioG} {proc_LAB*ioL proc_ColSep*ioL} ifelse xcharti 0 eq {/ausz 8 def /xchartt (A) def} if xcharti 1 eq {/ausz 8 def /xchartt (F) def} if xcharti 2 eq {/ausz 8 def /xchartt (F) def} if xcharti 3 eq {/ausz 1 def /xchartt (C) def} if xcharti 4 eq {/ausz 2 def /xchartt (M) def} if xcharti 5 eq {/ausz 3 def /xchartt (Y) def} if xcharti 6 eq {/ausz 7 def /xchartt (N) def} if xcharti 7 ge {/ausz 8 def /xchartt (F) def} if TK 0 setgray /Param (; cf1=1.00; nt=0.18; nx=1.0) def %200 -300 moveto (JE390-7) show colorm 0 eq {(A_O, ) show} {(F_O, ) show} ifelse %(Page ) showen (Seite ) showde xcharti 1 add cvishow (/30, ) show LAB*TE 0 get show Param show /xss 600 def /yss xss def /xmins 650 3 div 2.2 mul def /ymaxs 15800 def /xds 600 def /xsd xss xds sub 0.5 mul def /ysd xss xds sub 0.5 mul def xcharti 15 le {0.5 0.5 0.5 setrgbcolor 0 0 moveto 24700 0 rlineto 0 17000 rlineto 24700 neg 0 rlineto closepath fill} {1 1 1 setrgbcolor 0 0 moveto 24500 0 rlineto 0 17000 rlineto 24500 neg 0 rlineto closepath fill 0 0 0 setrgbcolor 0 0 moveto 24500 0 rlineto 0 17000 rlineto 24500 neg 0 rlineto closepath stroke} ifelse 0 0 0 setrgbcolor 20 setlinewidth xcharti 15 le {%xcharti<=15 500 3 div 2 mul /Times-ISOL1 FS 1 1 27 {/i exch def %i=1,27 /x xss 0.15 mul def /y 27.6 yss mul yss i mul sub def x y moveto nr1 i 1 sub get show } for %i=1,27 xcharti 6 le {/im 40 def} {/im 37 def} ifelse 1 1 im {/i exch def %i=1,im /x xss i mul 000 add def /y 27.5 yss mul def x y moveto tx1 i 1 sub get show } for %i=1,im } if %xcharti<=15 xcharti 16 ge {%xcharti>=16 %long loop 0 1 7 {/k exch def %k=0,7 /xank 2750 k 1 add mul def xank 16600 moveto 0 -16300 rlineto stroke } for %k=0,7 /xp 200 def /yp 16700 def CBK xcharti 16 eq xcharti 17 eq or {xp yp moveto (% olv*_8bit, 9x9x9 grid) show} if xcharti 18 ge xcharti 25 le and {%long loop 18<=xcharti<=25 xcharti 18 eq xcharti 19 eq or {xp 150 sub yp moveto (%LAB*a,CIE) show} if xcharti 20 eq xcharti 21 eq or {xp 150 sub yp moveto (%LAB*a,ICC) show} if xcharti 22 eq xcharti 23 eq or {xp 150 sub yp moveto (%LAB*a_8bit,CIE) show} if xcharti 24 eq xcharti 25 eq or {xp 150 sub yp moveto (%LAB*a_8bit,ICC) show} if 0 1 07 {/i exch def %i=0,7 /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def /X* {LAB*a i30 get 16 add 116 div LAB*a i31 get 500 div add} bind def /Y* {LAB*a i30 get 16 add 116 div} bind def /Z* {LAB*a i30 get 16 add 116 div LAB*a i32 get 200 div sub} bind def XYZa i30 X* DecodeXYZ* XLIx mul put XYZa i31 Y* DecodeXYZ* YLIx mul put XYZa i32 Z* DecodeXYZ* ZLIx mul put } for %i=0,7 0 1 07 {/i exch def %i=0,7 /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def /Xnmw XYZa 21 get def /Ynmw XYZa 22 get def /Znmw XYZa 23 get def XYZaicc i30 XYZa i30 get Xnmw div XLIx mul put XYZaicc i31 XYZa i31 get Ynmw div YLIx mul put XYZaicc i32 XYZa i32 get Znmw div ZLIx mul put /XQ XYZaicc i30 get XLIx div def /YQ XYZaicc i31 get YLIx div def /ZQ XYZaicc i32 get ZLIx div def XQ 0 lt {/XQ 0.00000001 def} if YQ 0 lt {/YQ 0.00000001 def} if ZQ 0 lt {/ZQ 0.00000001 def} if LAB*aicc i30 YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse put LAB*aicc i31 XQ 0.008856 lt {7.787 XQ mul 16 116 div add} {XQ 0.33333333 exp} ifelse YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse sub 500 mul put LAB*aicc i32 YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add} {ZQ 0.33333333 exp} ifelse sub 200 mul put } for %i=0,7 %first line LAB* 0 1 7 {/k exch def %k=0,7 /xani k 1 add 2750 mul def xani 100 sub yp moveto ColNamesolv* k get show (:) show /xani 200 k 1 add 2750 mul add def /i30 k 3 mul def /i31 i30 1 add def /i32 i30 2 add def xcharti 18 eq xcharti 19 eq or {%xcharti=18,19 xani 0000 add yp moveto LAB*a i30 get cvsshow1 xani 0800 add yp moveto LAB*a i31 get cvsshow1 xani 1600 add yp moveto LAB*a i32 get cvsshow1 } if %xcharti=18,19 xcharti 20 eq xcharti 21 eq or {%xcharti=20,21 xani 0000 add yp moveto LAB*aicc i30 get cvsshow1 xani 0800 add yp moveto LAB*aicc i31 get cvsshow1 xani 1600 add yp moveto LAB*aicc i32 get cvsshow1 } if %xcharti=20,21 xcharti 22 eq xcharti 23 eq or {%xcharti=22,23 xani 0000 add yp moveto LAB*a i30 get 2.55 mul cvishow xani 0800 add yp moveto LAB*a i31 get 1.28 mul 128 add cvishow xani 1600 add yp moveto LAB*a i32 get 1.28 mul 128 add cvishow } if %xcharti=22,23 xcharti 24 eq xcharti 25 eq or {%xcharti=24,25 xani 0000 add yp moveto LAB*aicc i30 get 2.55 mul cvishow xani 0800 add yp moveto LAB*aicc i31 get 1.28 mul 128 add cvishow xani 1600 add yp moveto LAB*aicc i32 get 1.28 mul 128 add cvishow } if %xcharti=24,25 } for %k=0,7 %last line XYZ /yp 16400 81 202 mul sub def xcharti 18 eq xcharti 19 eq or {xp yp moveto (%XYZa,CIE) show} if xcharti 20 eq xcharti 21 eq or {xp yp moveto (%XYZa,ICC) show} if xcharti 22 eq xcharti 23 eq or {xp yp moveto (%XYZa_8bit,CIE) show} if xcharti 24 eq xcharti 25 eq or {xp yp moveto (%XYZa_8bit,ICC) show} if 0 1 7 {/i exch def %i=0,7 /xani i 1 add 2750 mul def xani 100 sub yp moveto ColNamesolv* i get show (:) show /xani 200 i 1 add 2750 mul add def /i30 i 3 mul def /i31 i30 1 add def /i32 i30 2 add def xcharti 18 eq xcharti 19 eq or {%xcharti=18,19 xani 0000 add yp moveto XYZa i30 get cvsshow1 xani 0800 add yp moveto XYZa i31 get cvsshow1 xani 1600 add yp moveto XYZa i32 get cvsshow1 } if %xcharti=18,19 xcharti 20 eq xcharti 21 eq or {%xcharti=20,21 xani 0000 add yp moveto XYZaicc i30 get cvsshow1 xani 0800 add yp moveto XYZaicc i31 get cvsshow1 xani 1600 add yp moveto XYZaicc i32 get cvsshow1 } if %xcharti=20,21 xcharti 22 eq xcharti 23 eq or {%xcharti=22,23 xani 0000 add yp moveto XYZa i30 get 2.55 mul cvishow xani 0800 add yp moveto XYZa i31 get 2.55 mul cvishow xani 1600 add yp moveto XYZa i32 get 2.55 mul cvishow } if %xcharti=22,23 xcharti 24 eq xcharti 25 eq or {%xcharti=24,25 xani 0000 add yp moveto XYZaicc i30 get 2.55 mul cvishow xani 0800 add yp moveto XYZaicc i31 get 2.55 mul cvishow xani 1600 add yp moveto XYZaicc i32 get 2.55 mul cvishow } if %xcharti=24,25 } for %i=0,7 } if %long loop 18<=xcharti<=25 xcharti 26 eq xcharti 27 eq or {xp yp moveto (% olv'*_8bit, 9x9x9 grid) show} if xcharti 28 eq xcharti 29 eq or {xp yp moveto (% cmyn'*_8bit, 9x9x9 grid) show} if } if %xcharti>=16 %long loop CBK %3x rgb_cmy 0 1 3 {/kx exch def %kx=0,3 /id 1 8 div def /rijn 81 array def %for intermediate storage /gijn 81 array def /bijn 81 array def /lmax 2 def /kx025 kx 0.25 mul def /n kx 243 mul 1 sub def 0 1 lmax {/l exch def %beg k=0,kmax /xadd kx xss 9 mul mul def /yadd l yss 9 mul mul def %for intermediate storage of l=0,lmax 0 1 01 {/jchart exch def %jchart=0,1 /xchartj l jchart 3 mul add def 0 1 08 {/j exch def %j=0,7 /im 8 j sub def jchart 1 im {/i exch def %i=0,8 /ia 1 id j mul sub def /argb ia def /brgb ia i id mul sub def xchartj 0 eq {/r argb def /g brgb argb brgb sub kx025 mul add def /b brgb def} if xchartj 1 eq {/r argb brgb argb sub kx025 mul add def /g argb def /b brgb def} if xchartj 2 eq {/r brgb def /g argb def /b brgb argb brgb sub kx025 mul add def} if xchartj 3 eq {/r brgb def /g argb brgb argb sub kx025 mul add def /b argb def} if xchartj 4 eq {/r brgb argb brgb sub kx025 mul add def /g brgb def /b argb def} if xchartj 5 eq {/r argb def /g brgb def /b argb brgb argb sub kx025 mul add def} if jchart 0 eq {/in i j add def /jn j def} {/in j def /jn i j add def} ifelse rijn in 9 mul jn add r put gijn in 9 mul jn add g put bijn in 9 mul jn add b put } for %i=0,7 } for %j=0,8 } for %jchart=0,1 %for output of l=0,lmax 0 1 08 {/j exch def %j=0,8 0 1 08 {/i exch def %i=0,8 /r*x rijn i j 9 mul add get def /g*x gijn i j 9 mul add get def /b*x bijn i j 9 mul add get def /xa xmins xss j mul add xadd add xsd add def /ya ymaxs xss i mul sub yadd sub ysd add def /tLAB 1 def %interpretation as rgb* r*x g*x b*x proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioL /o3*ed0 o3*ed def /l3*ed0 l3*ed def /v3*ed0 v3*ed def /o3*ee0 o3*ee def /l3*ee0 l3*ee def /v3*ee0 v3*ee def /L*Fa0e L*Fa def /A*Fa0e A*Fa def /B*Fa0e B*Fa def /C*Fa0e C*Fa def /H*Fa0e H*Fa def /u*edMa10 u*edMa1 def /u*eeMa10 u*eeMa1 def /u*edMai0 u*edMai def /u*eeMai0 u*eeMai def /u*edMa20 u*edMa2 def /u*eeMa20 u*eeMa2 def %interpretation as olv* r*x g*x b*x proc_olv3*s_to_olv3*u*dd_de_H*M_LAB*Ma_Fa*ioL /o3*dd0 o3*dd def /l3*dd0 l3*dd def /v3*dd0 v3*dd def /o3*de0 o3*de def /l3*de0 l3*de def /v3*de0 v3*de def /L*Fa0 L*Fa def /A*Fa0 A*Fa def /B*Fa0 B*Fa def /C*Fa0 C*Fa def /H*Fa0 H*Fa def /u*ddMa10 u*ddMa1 def /u*deMa10 u*deMa1 def /u*ddMai0 u*ddMai def /u*deMai0 u*deMai def /u*ddMa20 u*ddMa2 def /u*deMa20 u*deMa2 def /c*rs0 c*rs def /t*s0 t*s def /l*s0 l*rs def /h*s0 H*Fa0 360 div def /i*s0 1 n*s sub def /a*sr A*Wior A*Nior sub l*s0 mul def /b*sr B*Wior B*Nior sub l*s0 mul def /L*Fa0x L*Fa0 def /A*Fa0x A*Fa0 A*Nior add a*sr add def /B*Fa0x B*Fa0 B*Nior add b*sr add def /r*x DEintp 0 eq {o3*dd0} {o3*ed0} ifelse def /g*x DEintp 0 eq {l3*dd0} {l3*ed0} ifelse def /b*x DEintp 0 eq {v3*dd0} {v3*ed0} ifelse def r*x g*x b*x setrgbcolor %only to calculate olv'*3, cmyn'*4 for elementary or device /os3*Fa0 o* def /ls3*Fa0 l* def /vs3*Fa0 v* def /cs4*Fa0 c4*Fa def /ms4*Fa0 m4*Fa def /ys4*Fa0 y4*Fa def /ns4*Fa0 n4*Fa def xcharti 6 le {r*x g*x b*x setrgbcolor xa ya xds dup rec fill 1 r*x sub 1 g*x sub 1 b*x sub 0 setcmykcolor xa ya xds 0.5 mul dup rem fill} if xcharti 7 ge xcharti 15 le and {1 1 1 setrgbcolor xa ya xds xds rec fill 0 0 0 setrgbcolor xa ya xds xds rec stroke} if xcharti 0 eq {%xcharti=0 [100 300] 0 setdash r*x 0 eq g*x 0 eq and b*x 0 eq and {1 setgray} {0 setgray} ifelse xa ya xds 0.5 mul dup rem stroke [ ] 0 setdash } if %xcharti=0 xcharti 7 ge xcharti 15 le and {0 0 0 setrgbcolor /xan xa xds 0.00 mul sub def /yan ya xds 0.25 mul sub def} if xcharti 7 eq {xan yan 600 add moveto DEintp 0 eq {o3*dd0}{o3*ed0} ifelse cvsshow2 xan yan 400 add moveto DEintp 0 eq {l3*dd0}{l3*ed0} ifelse cvsshow2 xan yan 200 add moveto DEintp 0 eq {v3*dd0}{v3*ed0} ifelse cvsshow2} if xcharti 8 eq {xan yan 600 add moveto DEintp 0 eq {o3*de0}{o3*dd0} ifelse cvsshow2 xan yan 400 add moveto DEintp 0 eq {l3*de0}{l3*dd0} ifelse cvsshow2 xan yan 200 add moveto DEintp 0 eq {v3*de0}{v3*dd0} ifelse cvsshow2} if xcharti 9 eq {xan yan 600 add moveto DEintp 0 eq {L*Fa0}{L*Fa0e} ifelse cvsshow1 xan yan 400 add moveto DEintp 0 eq {A*Fa0}{A*Fa0e} ifelse cvsshow1 xan yan 200 add moveto DEintp 0 eq {B*Fa0}{B*Fa0e} ifelse cvsshow1} if xcharti 10 eq {xan yan 600 add moveto DEintp 0 eq {L*Fa0}{L*Fa0e} ifelse cvsshow1 xan yan 400 add moveto DEintp 0 eq {C*Fa0}{C*Fa0e} ifelse cvsshow1 xan yan 200 add moveto DEintp 0 eq {H*Fa0}{H*Fa0e} ifelse cvishow} if xcharti 11 eq {xan yan 600 add moveto t*s0 cvsshow2 xan yan 400 add moveto c*rs0 cvsshow2 xan yan 200 add moveto h*s0 cvsshow2} if xcharti 12 eq {xan yan 600 add moveto i*s0 cvsshow2 xan yan 400 add moveto c*rs0 cvsshow2 xan yan 200 add moveto DEintp 0 eq {u*ddMa10 show u*ddMai0 9 le {(0) show} if u*ddMai0 cvishow u*ddMa20 show} {u*eeMa10 show u*eeMai0 9 le {(0) show} if u*eeMai0 cvishow u*eeMa20 show} ifelse } if xcharti 13 eq {xan yan 600 add moveto L*Fa0x cvsshow1 xan yan 400 add moveto A*Fa0x cvsshow1 xan yan 200 add moveto B*Fa0x cvishow} if xcharti 14 eq {xan yan 600 add moveto os3*Fa0 cvsshow2 xan yan 400 add moveto ls3*Fa0 cvsshow2 xan yan 200 add moveto vs3*Fa0 cvsshow2} if xcharti 15 eq {CBKK xan yan 610 add moveto cs4*Fa0 cvsshow2 xan yan 460 add moveto ms4*Fa0 cvsshow2 xan yan 320 add moveto ys4*Fa0 cvsshow2 xan yan 180 add moveto ns4*Fa0 cvsshow2 CBK} if CBK /k l def 0 0 0 setrgbcolor /ijtab i j 9 mul add def /xani 200 k kx 3 eq {0}{kx} ifelse 3 mul add 2750 mul add def /yani 16400 ijtab 202 mul sub def xcharti 16 eq kx 2 le and xcharti 17 eq kx 3 eq and or {%xcharti=16; %xcharti=17 or xani 0000 add yani moveto DEintp 0 eq {o3*dd0}{o3*ed0} ifelse 255 mul cvishow xani 0800 add yani moveto DEintp 0 eq {l3*dd0}{l3*ed0} ifelse 255 mul cvishow xani 1600 add yani moveto DEintp 0 eq {v3*dd0}{v3*ed0} ifelse 255 mul cvishow } if %xcharti=16; %xcharti=17 or xcharti 18 eq kx 2 le and xcharti 19 eq kx 3 eq and or {%xcharti=18; %xcharti=19 or xani 0000 add yani moveto DEintp 0 eq {L*Fa0}{L*Fa0e} ifelse cvsshow1 xani 0800 add yani moveto DEintp 0 eq {A*Fa0}{A*Fa0e} ifelse cvsshow1 xani 1600 add yani moveto DEintp 0 eq {B*Fa0}{B*Fa0e} ifelse cvsshow1 } if %xcharti=18; %xcharti=19 or xcharti 22 eq kx 2 le and xcharti 23 eq kx 3 eq and or {%xcharti=22; %xcharti=23 or xani 0000 add yani moveto DEintp 0 eq {L*Fa0}{L*Fa0e} ifelse 2.55 mul cvishow xani 0800 add yani moveto DEintp 0 eq {A*Fa0}{A*Fa0e} ifelse 1.28 mul 128 add cvishow xani 1600 add yani moveto DEintp 0 eq {B*Fa0}{B*Fa0e} ifelse 1.28 mul 128 add cvishow } if %xcharti=22; %xcharti=23 or xcharti 20 eq kx 2 le and xcharti 21 eq kx 3 eq and or xcharti 24 eq kx 2 le and xcharti 25 eq kx 3 eq and or or {%xcharti=20,21 or 24,25 /X* {L*Fa0 16 add 116 div A*Fa0 500 div add} bind def /Y* {L*Fa0 16 add 116 div} bind def /Z* {L*Fa0 16 add 116 div B*Fa0 200 div sub} bind def /Xacie X* DecodeXYZ* XLIx mul def /Yacie Y* DecodeXYZ* YLIx mul def /Zacie Z* DecodeXYZ* ZLIx mul def /Xnmw XYZa 21 get def /Ynmw XYZa 22 get def /Znmw XYZa 23 get def /Xaicc Xacie Xnmw div XLIx mul def /Yaicc Yacie Ynmw div YLIx mul def /Zaicc Zacie Znmw div ZLIx mul def /XQ Xaicc XLIx div def /YQ Yaicc YLIx div def /ZQ Zaicc ZLIx div def XQ 0 lt {/XQ 0.00000001 def} if YQ 0 lt {/YQ 0.00000001 def} if ZQ 0 lt {/ZQ 0.00000001 def} if /L*aicc YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse def /A*aicc XQ 0.008856 lt {7.787 XQ mul 16 116 div add} {XQ 0.33333333 exp} ifelse YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse sub 500 mul def /B*aicc YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add} {ZQ 0.33333333 exp} ifelse sub 200 mul def xcharti 20 eq kx 2 le and xcharti 21 eq kx 3 eq and or {%xcharti=20, %xcharti=21 or xani 0000 add yani moveto L*aicc cvsshow1 xani 0800 add yani moveto A*aicc cvsshow1 xani 1600 add yani moveto B*aicc cvsshow1 } if %xcharti=20, %xcharti=21, kx=0 or xcharti 24 eq kx 2 le and xcharti 25 eq kx 3 eq and or {%xcharti=24, %xcharti=25 or xani 0000 add yani moveto L*aicc 2.55 mul cvishow xani 0800 add yani moveto A*aicc 1.28 mul 128 add cvishow xani 1600 add yani moveto B*aicc 1.28 mul 128 add cvishow } if %xcharti=24, %xcharti=21, kx=0 or } if %xcharti=20,21 or 24,25 xcharti 26 eq kx 2 le and xcharti 27 eq kx 3 eq and or {%xcharti=26, %xcharti=27 or xani 0000 add yani moveto os3*Fa0 255 mul cvishow xani 0800 add yani moveto ls3*Fa0 255 mul cvishow xani 1600 add yani moveto vs3*Fa0 255 mul cvishow } if %xcharti=26, %xcharti=27, kx=0 or xcharti 28 eq kx 2 le and xcharti 29 eq kx 3 eq and or {%xcharti=28, %xcharti=29 or xani 0000 add yani moveto cs4*Fa0 255 mul cvishow xani 0600 add yani moveto ms4*Fa0 255 mul cvishow xani 1200 add yani moveto ys4*Fa0 255 mul cvishow xani 1800 add yani moveto ns4*Fa0 255 mul cvishow } if %xcharti=28, %xcharti=29 } for %i=0,7 } for %j=0,8 } for %end l=0,lmax } for %kx=0,3 %6wrgbcmy /n 971 /lmax 03 def %4 rows with geys /kmax 1 def %9 or 16 steps 0 1 kmax {/k exch def % k 0 eq {/jmax 08 def} {/jmax 15 def} ifelse 0 1 lmax {/l exch def %beg l=0,lmax /xadd 36 l add xss mul def /yadd k 9 xss mul mul def /j1 l 36 add def /j1$ tx1 j1 get def 0 1 jmax {/j exch def %j=0,08 /n n 1 add def /i1 j k 9 mul add 1 add def %9 steps, 16 steps /argb j jmax div def /xa xmins xadd add xsd add def /ya ymaxs xss j mul sub yadd sub ysd add def /r*x argb def /g*x argb def /b*x argb def /tLAB 1 def %interpretation as rgb* r*x g*x b*x proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioL /o3*ed0 o3*ed def /l3*ed0 l3*ed def /v3*ed0 v3*ed def /o3*ee0 o3*ee def /l3*ee0 l3*ee def /v3*ee0 v3*ee def /L*Fa0e L*Fa def /A*Fa0e A*Fa def /B*Fa0e B*Fa def /C*Fa0e C*Fa def /H*Fa0e H*Fa def /u*edMa10 u*edMa1 def /u*eeMa10 u*eeMa1 def /u*edMai0 u*edMai def /u*eeMai0 u*eeMai def /u*edMa20 u*edMa2 def /u*eeMa20 u*eeMa2 def %interpretation as olv* r*x g*x b*x proc_olv3*s_to_olv3*u*dd_de_H*M_LAB*Ma_Fa*ioL /o3*dd0 o3*dd def /l3*dd0 l3*dd def /v3*dd0 v3*dd def /o3*de0 o3*de def /l3*de0 l3*de def /v3*de0 v3*de def /L*Fa0 L*Fa def /A*Fa0 A*Fa def /B*Fa0 B*Fa def /C*Fa0 C*Fa def /H*Fa0 H*Fa def /u*ddMa10 u*ddMa1 def /u*deMa10 u*deMa1 def /u*ddMai0 u*ddMai def /u*deMai0 u*deMai def /u*ddMa20 u*ddMa2 def /u*deMa20 u*deMa2 def /c*rs0 c*rs def /t*s0 t*s def /l*s0 l*rs def /h*s0 H*Fa0 360 div def /i*s0 1 n*s sub def /a*sr A*Wior A*Nior sub l*s0 mul def /b*sr B*Wior B*Nior sub l*s0 mul def /L*Fa0x L*Fa0 def /A*Fa0x A*Fa0 A*Nior add a*sr add def /B*Fa0x B*Fa0 B*Nior add b*sr add def /r*x DEintp 0 eq {o3*dd0} {o3*ed0} ifelse def /g*x DEintp 0 eq {l3*dd0} {l3*ed0} ifelse def /b*x DEintp 0 eq {v3*dd0} {v3*ed0} ifelse def r*x g*x b*x setrgbcolor %only to calculate olv'*3, cmyn'*4 for elementary or device /os3*Fa0 o* def /ls3*Fa0 l* def /vs3*Fa0 v* def /cs4*Fa0 c4*Fa def /ms4*Fa0 m4*Fa def /ys4*Fa0 y4*Fa def /ns4*Fa0 n4*Fa def xcharti 6 le {/xrgb r*x def l 0 eq {0 0 0 1 xrgb sub setcmykcolor} if l 1 eq {xrgb setgray} if l 2 eq {1 xrgb sub dup dup 0 setcmykcolor} if l 3 eq {xrgb dup dup setrgbcolor} if xa ya xds dup rec fill 1 r*x sub 1 g*x sub 1 b*x sub 0 setcmykcolor xa ya xds 0.5 mul dup rem fill} if xcharti 7 ge xcharti 15 le and {1 1 1 setrgbcolor xa ya xds xds rec fill 0 0 0 setrgbcolor xa ya xds xds rec stroke} if xcharti 0 eq {%xcharti=0 [100 300] 0 setdash r*x 0 eq g*x 0 eq and b*x 0 eq and {1 setgray} {0 setgray} ifelse xa ya xds 0.5 mul dup rem stroke [ ] 0 setdash } if %xcharti=0 xcharti 7 ge xcharti 15 le and {0 0 0 setrgbcolor /xan xa xds 0.00 mul sub def /yan ya xds 0.25 mul sub def} if xcharti 7 eq {xan yan 600 add moveto DEintp 0 eq {o3*dd0}{o3*ed0} ifelse cvsshow2 xan yan 400 add moveto DEintp 0 eq {l3*dd0}{l3*ed0} ifelse cvsshow2 xan yan 200 add moveto DEintp 0 eq {v3*dd0}{v3*ed0} ifelse cvsshow2} if xcharti 8 eq {xan yan 600 add moveto DEintp 0 eq {o3*de0}{o3*dd0} ifelse cvsshow2 xan yan 400 add moveto DEintp 0 eq {l3*de0}{l3*dd0} ifelse cvsshow2 xan yan 200 add moveto DEintp 0 eq {v3*de0}{v3*dd0} ifelse cvsshow2} if xcharti 9 eq {xan yan 600 add moveto DEintp 0 eq {L*Fa0}{L*Fa0e} ifelse cvsshow1 xan yan 400 add moveto DEintp 0 eq {A*Fa0}{A*Fa0e} ifelse cvsshow1 xan yan 200 add moveto DEintp 0 eq {B*Fa0}{B*Fa0e} ifelse cvsshow1} if xcharti 10 eq {xan yan 600 add moveto DEintp 0 eq {L*Fa0}{L*Fa0e} ifelse cvsshow1 xan yan 400 add moveto DEintp 0 eq {C*Fa0}{C*Fa0e} ifelse cvsshow1 xan yan 200 add moveto DEintp 0 eq {H*Fa0}{H*Fa0e} ifelse cvishow} if xcharti 11 eq {xan yan 600 add moveto t*s0 cvsshow2 xan yan 400 add moveto c*rs0 cvsshow2 xan yan 200 add moveto h*s0 cvsshow2} if xcharti 12 eq {xan yan 600 add moveto i*s0 cvsshow2 xan yan 400 add moveto c*rs0 cvsshow2 xan yan 200 add moveto DEintp 0 eq {u*ddMa10 show u*ddMai0 9 le {(0) show} if u*ddMai0 cvishow u*ddMa20 show} {u*eeMa10 show u*eeMai0 9 le {(0) show} if u*eeMai0 cvishow u*eeMa20 show} ifelse } if xcharti 13 eq {xan yan 600 add moveto L*Fa0x cvsshow1 xan yan 400 add moveto A*Fa0x cvsshow1 xan yan 200 add moveto B*Fa0x cvishow} if xcharti 14 eq {xan yan 600 add moveto os3*Fa0 cvsshow2 xan yan 400 add moveto ls3*Fa0 cvsshow2 xan yan 200 add moveto vs3*Fa0 cvsshow2} if xcharti 15 eq {CBKK xan yan 610 add moveto cs4*Fa0 cvsshow2 xan yan 460 add moveto ms4*Fa0 cvsshow2 xan yan 320 add moveto ys4*Fa0 cvsshow2 xan yan 180 add moveto ns4*Fa0 cvsshow2 CBK} if CBK /kx 3 k add def /jmax1 jmax 1 add def 0 0 0 setrgbcolor xcharti 17 eq {%xcharti=17 /ijtab j l jmax1 mul add def /xani 200 kx 2750 mul add def /yani 16400 ijtab 202 mul sub def xani 0000 add yani moveto DEintp 0 eq {o3*dd0}{o3*ed0} ifelse 255 mul cvishow xani 0800 add yani moveto DEintp 0 eq {l3*dd0}{l3*ed0} ifelse 255 mul cvishow xani 1600 add yani moveto DEintp 0 eq {v3*dd0}{v3*ed0} ifelse 255 mul cvishow } if %xcharti=17 xcharti 19 eq {%xcharti=19 /ijtab j l jmax1 mul add def /xani 200 kx 2750 mul add def /yani 16400 ijtab 202 mul sub def xani 0000 add yani moveto DEintp 0 eq {L*Fa0}{L*Fa0e} ifelse cvsshow1 xani 0800 add yani moveto DEintp 0 eq {A*Fa0}{A*Fa0e} ifelse cvsshow1 xani 1600 add yani moveto DEintp 0 eq {A*Fa0}{A*Fa0e} ifelse cvsshow1 } if %xcharti=19 xcharti 23 eq {%xcharti=23 /ijtab j l jmax1 mul add def /xani 200 kx 2750 mul add def /yani 16400 ijtab 202 mul sub def xani 0000 add yani moveto DEintp 0 eq {L*Fa0}{L*Fa0e} ifelse 2.55 mul cvishow xani 0800 add yani moveto DEintp 0 eq {A*Fa0}{A*Fa0e} ifelse 1.28 mul 128 add cvishow xani 1600 add yani moveto DEintp 0 eq {B*Fa0}{B*Fa0e} ifelse 1.28 mul 128 add cvishow } if %xcharti=23 xcharti 21 eq xcharti 25 eq or {%xcharti=21 or 25 /ijtab j l jmax1 mul add def /xani 200 kx 2750 mul add def /yani 16400 ijtab 202 mul sub def /X* {L*Fa0 16 add 116 div A*Fa0 500 div add} bind def /Y* {L*Fa0 16 add 116 div} bind def /Z* {L*Fa0 16 add 116 div B*Fa0 200 div sub} bind def /Xacie X* DecodeXYZ* XLIx mul def /Yacie Y* DecodeXYZ* YLIx mul def /Zacie Z* DecodeXYZ* ZLIx mul def /Xnmw XYZa 21 get def /Ynmw XYZa 22 get def /Znmw XYZa 23 get def /Xaicc Xacie Xnmw div XLIx mul def /Yaicc Yacie Ynmw div YLIx mul def /Zaicc Zacie Znmw div ZLIx mul def /XQ Xaicc XLIx div def /YQ Yaicc YLIx div def /ZQ Zaicc ZLIx div def XQ 0 lt {/XQ 0.00000001 def} if YQ 0 lt {/YQ 0.00000001 def} if ZQ 0 lt {/ZQ 0.00000001 def} if /L*aicc YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse def /A*aicc XQ 0.008856 lt {7.787 XQ mul 16 116 div add} {XQ 0.33333333 exp} ifelse YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse sub 500 mul def /B*aicc YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add} {ZQ 0.33333333 exp} ifelse sub 200 mul def xcharti 21 eq {%xcharti=21 xani 0000 add yani moveto L*aicc cvsshow1 xani 0800 add yani moveto A*aicc cvsshow1 xani 1600 add yani moveto B*aicc cvsshow1 } if %xcharti=21 xcharti 25 eq {%xcharti=25 xani 0000 add yani moveto L*aicc 2.55 mul cvishow xani 0800 add yani moveto A*aicc 1.28 mul 128 add cvishow xani 1600 add yani moveto B*aicc 1.28 mul 128 add cvishow } if %xcharti=25 } if %xcharti=21 or 25 xcharti 27 eq {%xcharti=27 /ijtab j l jmax1 mul add def /xani 200 kx 2750 mul add def /yani 16400 ijtab 202 mul sub def xani 0000 add yani moveto os3*Fa0 255 mul cvishow xani 0800 add yani moveto ls3*Fa0 255 mul cvishow xani 1600 add yani moveto vs3*Fa0 255 mul cvishow } if %xcharti=27 xcharti 29 eq {%xcharti=29 /ijtab j l jmax1 mul add def /xani 200 kx 2750 mul add def /yani 16400 ijtab 202 mul sub def xani 0000 add yani moveto cs4*Fa0 255 mul cvishow xani 0600 add yani moveto ms4*Fa0 255 mul cvishow xani 1200 add yani moveto ys4*Fa0 255 mul cvishow xani 1800 add yani moveto ns4*Fa0 255 mul cvishow } if %xcharti=29 } for %j=0,jmax } for %l=0,lmax } for %k=0,kmax %basic colours 1072 - 1080 /basrgb 24 array def /basrgb [0 0 0 1 1 1 1 0 0 0 1 1 1 1 0 0 0 1 0 1 0 1 0 1 ] def /n 1071 def 0 1 7 {/i exch def %i=0,7 /n n 1 add def /i3 i 3 mul def /xadd 36 xss mul def /yadd 25 xss mul def i 0 eq {/l 0 def /j 0 def /j1$ (k) def /i1 26 def} if i 1 eq {/l 0 def /j 1 def /j1$ (k) def /i1 27 def} if i 2 eq {/l 1 def /j 0 def /j1$ (l) def /i1 26 def} if i 3 eq {/l 1 def /j 1 def /j1$ (l) def /i1 27 def} if i 4 eq {/l 2 def /j 0 def /j1$ (m) def /i1 26 def} if i 5 eq {/l 2 def /j 1 def /j1$ (m) def /i1 27 def} if i 6 eq {/l 3 def /j 0 def /j1$ (n) def /i1 26 def} if i 7 eq {/l 3 def /j 1 def /j1$ (n) def /i1 27 def} if /xa xmins xss l mul add xadd add xsd add def /ya ymaxs xss j mul sub yadd sub ysd add def /r*x basrgb i3 get def /g*x basrgb i3 1 add get def /b*x basrgb i3 2 add get def /tLAB 1 def %interpretation as rgb* r*x g*x b*x proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioL /o3*ed0 o3*ed def /l3*ed0 l3*ed def /v3*ed0 v3*ed def /o3*ee0 o3*ee def /l3*ee0 l3*ee def /v3*ee0 v3*ee def /L*Fa0e L*Fa def /A*Fa0e A*Fa def /B*Fa0e B*Fa def /C*Fa0e C*Fa def /H*Fa0e H*Fa def /u*edMa10 u*edMa1 def /u*eeMa10 u*eeMa1 def /u*edMai0 u*edMai def /u*eeMai0 u*eeMai def /u*edMa20 u*edMa2 def /u*eeMa20 u*eeMa2 def %interpretation as olv* r*x g*x b*x proc_olv3*s_to_olv3*u*dd_de_H*M_LAB*Ma_Fa*ioL /o3*dd0 o3*dd def /l3*dd0 l3*dd def /v3*dd0 v3*dd def /o3*de0 o3*de def /l3*de0 l3*de def /v3*de0 v3*de def /L*Fa0 L*Fa def /A*Fa0 A*Fa def /B*Fa0 B*Fa def /C*Fa0 C*Fa def /H*Fa0 H*Fa def /u*ddMa10 u*ddMa1 def /u*deMa10 u*deMa1 def /u*ddMai0 u*ddMai def /u*deMai0 u*deMai def /u*ddMa20 u*ddMa2 def /u*deMa20 u*deMa2 def /c*rs0 c*rs def /t*s0 t*s def /l*s0 l*rs def /h*s0 H*Fa0 360 div def /i*s0 1 n*s sub def /a*sr A*Wior A*Nior sub l*s0 mul def /b*sr B*Wior B*Nior sub l*s0 mul def /L*Fa0x L*Fa0 def /A*Fa0x A*Fa0 A*Nior add a*sr add def /B*Fa0x B*Fa0 B*Nior add b*sr add def /r*x DEintp 0 eq {o3*dd0} {o3*ed0} ifelse def /g*x DEintp 0 eq {l3*dd0} {l3*ed0} ifelse def /b*x DEintp 0 eq {v3*dd0} {v3*ed0} ifelse def r*x g*x b*x setrgbcolor %only to calculate olv'*3, cmyn'*4 for elementary or device /os3*Fa0 o* def /ls3*Fa0 l* def /vs3*Fa0 v* def /cs4*Fa0 c4*Fa def /ms4*Fa0 m4*Fa def /ys4*Fa0 y4*Fa def /ns4*Fa0 n4*Fa def xcharti 6 le {r*x g*x b*x setrgbcolor xa ya xds dup rec fill 1 r*x sub 1 g*x sub 1 b*x sub 0 setcmykcolor xa ya xds 0.5 mul dup rem fill} if xcharti 7 ge xcharti 15 le and {1 1 1 setrgbcolor xa ya xds xds rec fill 0 0 0 setrgbcolor xa ya xds xds rec stroke} if xcharti 0 eq {%xcharti=0 [100 300] 0 setdash r*x 0 eq g*x 0 eq and b*x 0 eq and {1 setgray} {0 setgray} ifelse xa ya xds 0.5 mul dup rem stroke [ ] 0 setdash } if %xcharti=0 xcharti 7 ge xcharti 15 le and {0 0 0 setrgbcolor /xan xa xds 0.00 mul sub def /yan ya xds 0.25 mul sub def} if xcharti 7 eq {xan yan 600 add moveto DEintp 0 eq {o3*dd0}{o3*ed0} ifelse cvsshow2 xan yan 400 add moveto DEintp 0 eq {l3*dd0}{l3*ed0} ifelse cvsshow2 xan yan 200 add moveto DEintp 0 eq {v3*dd0}{v3*ed0} ifelse cvsshow2} if xcharti 8 eq {xan yan 600 add moveto DEintp 0 eq {o3*de0}{o3*dd0} ifelse cvsshow2 xan yan 400 add moveto DEintp 0 eq {l3*de0}{l3*dd0} ifelse cvsshow2 xan yan 200 add moveto DEintp 0 eq {v3*de0}{v3*dd0} ifelse cvsshow2} if xcharti 9 eq {xan yan 600 add moveto DEintp 0 eq {L*Fa0}{L*Fa0e} ifelse cvsshow1 xan yan 400 add moveto DEintp 0 eq {A*Fa0}{A*Fa0e} ifelse cvsshow1 xan yan 200 add moveto DEintp 0 eq {B*Fa0}{B*Fa0e} ifelse cvsshow1} if xcharti 10 eq {xan yan 600 add moveto DEintp 0 eq {L*Fa0}{L*Fa0e} ifelse cvsshow1 xan yan 400 add moveto DEintp 0 eq {C*Fa0}{C*Fa0e} ifelse cvsshow1 xan yan 200 add moveto DEintp 0 eq {H*Fa0}{H*Fa0e} ifelse cvishow} if xcharti 11 eq {xan yan 600 add moveto t*s0 cvsshow2 xan yan 400 add moveto c*rs0 cvsshow2 xan yan 200 add moveto h*s0 cvsshow2} if xcharti 12 eq {xan yan 600 add moveto i*s0 cvsshow2 xan yan 400 add moveto c*rs0 cvsshow2 xan yan 200 add moveto DEintp 0 eq {u*ddMa10 show u*ddMai0 9 le {(0) show} if u*ddMai0 cvishow u*ddMa20 show} {u*eeMa10 show u*eeMai0 9 le {(0) show} if u*eeMai0 cvishow u*eeMa20 show} ifelse } if xcharti 13 eq {xan yan 600 add moveto L*Fa0x cvsshow1 xan yan 400 add moveto A*Fa0x cvsshow1 xan yan 200 add moveto B*Fa0x cvishow} if xcharti 14 eq {xan yan 600 add moveto os3*Fa0 cvsshow2 xan yan 400 add moveto ls3*Fa0 cvsshow2 xan yan 200 add moveto vs3*Fa0 cvsshow2} if xcharti 15 eq {CBKK xan yan 610 add moveto cs4*Fa0 cvsshow2 xan yan 460 add moveto ms4*Fa0 cvsshow2 xan yan 320 add moveto ys4*Fa0 cvsshow2 xan yan 180 add moveto ns4*Fa0 cvsshow2 CBK} if CBK /kx 5 def 0 0 0 setrgbcolor xcharti 17 eq {%xcharti=17 /ijtab i def /xani 200 kx 2750 mul add def /yani 16400 ijtab 202 mul sub def xani 0000 add yani moveto DEintp 0 eq {o3*dd0}{o3*ed0} ifelse 255 mul cvishow xani 0800 add yani moveto DEintp 0 eq {l3*dd0}{l3*ed0} ifelse 255 mul cvishow xani 1600 add yani moveto DEintp 0 eq {v3*dd0}{v3*ed0} ifelse 255 mul cvishow } if %xcharti=17 xcharti 19 eq {%xcharti=19 /ijtab i def /xani 200 kx 2750 mul add def /yani 16400 ijtab 202 mul sub def xani 0000 add yani moveto DEintp 0 eq {L*Fa0}{L*Fa0e} ifelse cvsshow1 xani 0800 add yani moveto DEintp 0 eq {A*Fa0}{A*Fa0e} ifelse cvsshow1 xani 1600 add yani moveto DEintp 0 eq {A*Fa0}{A*Fa0e} ifelse cvsshow1 } if %xcharti=19 xcharti 23 eq {%xcharti=23 /ijtab i def /xani 200 kx 2750 mul add def /yani 16400 ijtab 202 mul sub def xani 0000 add yani moveto DEintp 0 eq {L*Fa0}{L*Fa0e} ifelse 2.55 mul cvishow xani 0800 add yani moveto DEintp 0 eq {A*Fa0}{A*Fa0e} ifelse 1.28 mul 128 add cvishow xani 1600 add yani moveto DEintp 0 eq {B*Fa0}{B*Fa0e} ifelse 1.28 mul 128 add cvishow } if %xcharti=23 xcharti 21 eq xcharti 25 eq or {%xcharti=21 or 25 /ijtab i def /xani 200 kx 2750 mul add def /yani 16400 ijtab 202 mul sub def /X* {L*Fa0 16 add 116 div A*Fa0 500 div add} bind def /Y* {L*Fa0 16 add 116 div} bind def /Z* {L*Fa0 16 add 116 div B*Fa0 200 div sub} bind def /Xacie X* DecodeXYZ* XLIx mul def /Yacie Y* DecodeXYZ* YLIx mul def /Zacie Z* DecodeXYZ* ZLIx mul def /Xnmw XYZa 21 get def /Ynmw XYZa 22 get def /Znmw XYZa 23 get def /Xaicc Xacie Xnmw div XLIx mul def /Yaicc Yacie Ynmw div YLIx mul def /Zaicc Zacie Znmw div ZLIx mul def /XQ Xaicc XLIx div def /YQ Yaicc YLIx div def /ZQ Zaicc ZLIx div def XQ 0 lt {/XQ 0.00000001 def} if YQ 0 lt {/YQ 0.00000001 def} if ZQ 0 lt {/ZQ 0.00000001 def} if /L*aicc YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse def /A*aicc XQ 0.008856 lt {7.787 XQ mul 16 116 div add} {XQ 0.33333333 exp} ifelse YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse sub 500 mul def /B*aicc YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add} {ZQ 0.33333333 exp} ifelse sub 200 mul def xcharti 21 eq {%xcharti=21 xani 0000 add yani moveto L*aicc cvsshow1 xani 0800 add yani moveto A*aicc cvsshow1 xani 1600 add yani moveto B*aicc cvsshow1 } if %xcharti=21 xcharti 25 eq {%xcharti=25 xani 0000 add yani moveto L*aicc 2.55 mul cvishow xani 0800 add yani moveto A*aicc 1.28 mul 128 add cvishow xani 1600 add yani moveto B*aicc 1.28 mul 128 add cvishow } if %xcharti=25 } if %xcharti=21 or 25 xcharti 27 eq {%xcharti=27 /ijtab i def /xani 200 kx 2750 mul add def /yani 16400 ijtab 202 mul sub def xani 0000 add yani moveto os3*Fa0 255 mul cvishow xani 0800 add yani moveto ls3*Fa0 255 mul cvishow xani 1600 add yani moveto vs3*Fa0 255 mul cvishow } if %xcharti=27 xcharti 29 eq {%xcharti=29 /ijtab i def /xani 200 kx 2750 mul add def /yani 16400 ijtab 202 mul sub def xani 0000 add yani moveto cs4*Fa0 255 mul cvishow xani 0600 add yani moveto ms4*Fa0 255 mul cvishow xani 1200 add yani moveto ys4*Fa0 255 mul cvishow xani 1800 add yani moveto ns4*Fa0 255 mul cvishow } if %xcharti=29 } for %i=0,7 xcharti 15 le {%xchart<=15 40 3 div 2 mul setlinewidth /xtmin xmins def /ytmax ymaxs xss 01 mul add def /ytmin ytmax xss 27 mul sub def /xtmax xtmin xss 36 mul add def /ytmean1 ytmin ytmax ytmin sub 0.3333 mul add def /ytmean2 ytmin ytmax ytmin sub 0.6667 mul add def 1 0 0 setrgbcolor 1 1 4 {/k exch def /xta xtmin xss 9 mul k mul add def xta ytmin 100 sub moveto xta ytmax 100 add lineto stroke } for xtmin 100 sub ytmean1 moveto xtmax ytmean1 lineto stroke xtmin 100 sub ytmean2 moveto xtmax xss 4 mul add 100 add ytmean2 lineto stroke /ytmean3 ytmin 2 xss mul add def xtmax ytmean3 moveto xtmax xss 4 mul add 100 add ytmean3 lineto stroke 0 0 0 setrgbcolor TBIG 22500 16500 moveto xcharti 7 eq {(lab*olv*) show} if xcharti 8 eq {(lab*rgb*) show} if xcharti 9 eq {(LAB*LAB*) show -20 -50 rmoveto TBM (a) show DEintp 1 eq {(e) show} if 0 50 rmoveto TBIG} if xcharti 10 eq {(LAB*LCH*) show -20 -50 rmoveto TBM (a) show DEintp 1 eq {(e) show} if 0 50 rmoveto TBIG} if xcharti 11 eq {(lab*tch*) show} if xcharti 12 eq {(lab*icu*) show TBM 0 -50 rmoveto DEintp 0 eq {(d)} {(e)} ifelse show 0 50 rmoveto TBIG} if xcharti 13 eq {(LAB*LAB*) show DEintp 1 eq {(e) show} if} if xcharti 14 eq {(lab*) show DEintp 0 eq {(olv'*) show} {(rgb'*) show} ifelse} if xcharti 15 eq {(LAB*) show DEintp 0 eq {(cmyn'*) show} {(cmyn'*e) show} ifelse} if ColSpx 0 eq rgb_cmy 1 eq and xcharti 6 eq and { /ausz 8 def 0 0 0 setrgbcolor 8000 6000 moveto 700 /TimesBI-ISOL1 FS 30 rotate (Black separation empty) showen (Schwarz-Separation leer) showde -30 rotate /ausz 7 def } if ColSpx 0 eq rgb_cmy 0 eq and xcharti 3 ge xcharti 6 le and and { /ausz 8 def 0 0 0 setrgbcolor 8000 6000 moveto 700 /TimesBI-ISOL1 FS 30 rotate (olv* data, No cmyn* separation) showen (olv*\255Daten, keine cmyn*\255Separation) showde -30 rotate /ausz 7 def } if } if %xcharti<=11 showpage grestore %} for %xcharti END xcharti=00,29 %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 020 MM translate 12 /Times-ISOL1 FS -9 MM -7 MM moveto ( ) show 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 18 %line 409 %!PS-Adobe-3.0 EPSF-3.0 JE390-8, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (JE390-8,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 197 MM translate 10 /Times-ISOL1 FS 1 1 scale -77 -91 translate %%BeginDocument: Bild 12 %line 419 %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 21 %line 429 %!PS-Adobe-3.0 EPSF-3.0 JE391-1, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (JE391-1,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 22 %line 439 %!PS-Adobe-3.0 EPSF-3.0 JE391-2, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (JE391-2,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 23 %line 449 %!PS-Adobe-3.0 EPSF-3.0 JE391-3, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (JE391-3,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 24 %line 459 %!PS-Adobe-3.0 EPSF-3.0 JE391-4, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (JE391-4,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 25 %line 469 %!PS-Adobe-3.0 EPSF-3.0 JE391-5, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (JE391-5,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 26 %line 479 %!PS-Adobe-3.0 EPSF-3.0 JE391-6, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (JE391-6,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 251 MM 020 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 27 %line 489 %!PS-Adobe-3.0 EPSF-3.0 JE391-7, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (JE391-7,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 020 MM translate 12 /Times-ISOL1 FS -9 MM -7 MM moveto ( ) show 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 28 %line 499 %!PS-Adobe-3.0 EPSF-3.0 JE391-8, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (JE391-8,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 080 MM add 008 MM translate %80 MM Breite von TestStreifen 10 /Times-ISOL1 FS 53 MM 1 MM moveto () show 1 1 scale -77 21 MM sub -91 translate %%BeginDocument: Bild 29 Teststreifen Ueberlaenge %line 509 %%EndDocument EndEPSF grestore gsave BeginEPSF -0.0 MM -0.0 MM translate %xy-Verschiebung Rechteckrahmen nach innen% %%BeginDocument: Bild 30 %Rechteckrahmen %line 519 %!PS-Adobe-3.0 EPSF-3.0 Frame arround with Internet text DG02 20100101 %%BoundingBox: 0 0 598 845 %%EndProlog gsave /lanind 1 def /lantex [(G) (E) (S) (N) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 0 def /lanind2 0 def} ifelse /colormg where {pop /colorm1 colormg def /colorm2 colormg def} {/colorm1 1 def /colorm2 1 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 /i*ptrsc where {pop %/i*ptrsc i*ptrsc def } {/i*ptrsc 0 def} ifelse gsave /xchartg where {pop /xchartx xchartg def} {/xchartx 0 def} ifelse /colormg where {pop /colorm colormg def} {/colorm 0 def} ifelse /ISRL*ioG where {pop}{/ISRL*ioG 0 def} ifelse /ISIN*ioG where {pop}{/ISIN*ioG 0 def} ifelse /ISOU*ioG where {pop}{/ISOU*ioG 0 def} ifelse /xcharti xchartx def xcharti 0 eq {/ausz 8 def /xchartt (A) def} if xcharti 1 eq {/ausz 8 def /xchartt (F) def} if xcharti 2 eq {/ausz 8 def /xchartt (F) def} if xcharti 3 eq {/ausz 1 def /xchartt (C) def} if xcharti 4 eq {/ausz 2 def /xchartt (M) def} if xcharti 5 eq {/ausz 3 def /xchartt (Y) def} if xcharti 6 eq {/ausz 7 def /xchartt (N) def} if xcharti 7 ge {/ausz 8 def /xchartt (F) def} if %LAB*ioL, ColSep*ioL, and procedures (*ioL) are only in Y10-7N.EPS %proc_LAB*ioG, proc_ColSep*ioG, and procedures (*ioG) are only in JE39L0FP.PS6.PS and OUTLIN1X %for colorm=0, default rgb/cmyk-values are used for Frame %for colorm=1, rgb/cmyk-values of proc_LAB*ioG, proc_ColSep*ioG are used for Frame %for colorm=0, rgb/cmyk-values of LAB*ioL, ColSep*ioL are used in Y10-7N %for colorm=1, rgb/cmyk-values of proc_LAB*ioG, proc_ColSep*ioG are used in Y10-7N %for consistancy use same procedures in Y10-7N and JE39L0FP.PS6.PS colorm 1 eq {proc_LAB*ioG proc_ColSep*ioG} if %LAB*ioL, ColSep*ioL only in Y10-7! 0 setgray 1.0 1.0 scale 0.0 MM 0.0 MM translate 0.15 MM setlinewidth /xx 20 array def /yy 20 array def /dd 20 array def /xx [000 296 296 000 002 294 294 002 005 291 291 005 %speziell 006 290 290 006 008 288 288 008 ] def /yy [000 000 210 210 002 002 208 208 005 005 205 205 %speziell 006 006 204 204 008 008 202 202 ] def /dd [060 017 -60 -17 058 015 -58 -15 056 013 -56 -13 054 011 -54 -11 052 009 -52 -09 ] def xcharti 1 le {/xt 1 def} {/xt 0 def} ifelse %without/with frame xt 0 eq {%xt=0,1 ifelse /i0 12 def /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def %xx i0 get MM yy i0 get MM moveto xx i1 get MM yy i1 get MM lineto %xx i2 get MM yy i2 get MM lineto xx i3 get MM yy i3 get MM lineto %xx i0 get MM yy i0 get MM lineto stroke 3.0 MM /Times-ISOL1 FS xx i0 get MM 50 MM add yy i0 get MM 0 MM sub moveto (http://130.149.60.45/~farbmetrik/JE39/JE39L) show (0) show LSC$ show LEX$ show (, Page ) showen (, Seite ) showde xcharti 1 add cvishow (/30) show (; ) show LAB*TE 0 get show (; cf1=1.00; nt=0.18; nx=1.0) show } %xt=0 { %xt=1 /xlu 017 MM def /ylu 017 MM def /xro 279 MM def /yro 193 MM def /xlo 017 MM def /ylo 193 MM def /xru 279 MM def /yru 017 MM def xlu 8 MM sub ylu moveto 16 MM 0 rlineto stroke xlu ylu 8 MM sub moveto 0 16 MM rlineto stroke xro 8 MM add yro moveto -16 MM 0 rlineto stroke xro yro 8 MM add moveto 0 -16 MM rlineto stroke xru 8 MM sub yru moveto 16 MM 0 rlineto stroke xru yru 8 MM sub moveto 0 16 MM rlineto stroke xlo 8 MM add ylo moveto -16 MM 0 rlineto stroke xlo ylo 8 MM add moveto 0 -16 MM rlineto stroke 1 2 7 {/i exch def %Zentrierkreise xlu ylu i MM 0 360 arc stroke xro yro i MM 0 360 arc stroke xru yru i MM 0 360 arc stroke xlo ylo i MM 0 360 arc stroke } for %i 12 4 16 {/i exch def /i0 i def %i=0,16 %0 4 16 {/i exch def /i0 i def %i=0,16 /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def i 16 eq {0.30 MM setlinewidth} {0.15 MM setlinewidth} ifelse 0 setgray xx i0 get MM yy i0 get MM moveto xx i1 get MM yy i1 get MM lineto xx i2 get MM yy i2 get MM lineto xx i3 get MM yy i3 get MM lineto xx i0 get MM yy i0 get MM lineto stroke i 16 eq {6 /Times-ISOL1 FS /x00 67 def /xdif 32 def /y0o 202.3 def /y0u 6.3 def /x0l 6.1 def /x0r 288 def /y00 22 def /ydif 32 def x00 xdif 0 mul add MM y0o MM moveto (V) show x00 xdif 0 mul add MM y0u MM moveto (C) show x00 xdif 1 mul add MM y0o MM moveto (L) show x00 xdif 1 mul add MM y0u MM moveto (M) show x00 xdif 2 mul add MM y0o MM moveto (O) show x00 xdif 2 mul add MM y0u MM moveto (Y) show x00 xdif 3 mul add MM y0o MM moveto (Y) show x00 xdif 3 mul add MM y0u MM moveto (O) show x00 xdif 4 mul add MM y0o MM moveto (M) show x00 xdif 4 mul add MM y0u MM moveto (L) show x00 xdif 5 mul add MM y0o MM moveto (C) show x00 xdif 5 mul add MM y0u MM moveto (V) show x0l MM y00 ydif 0 mul add MM moveto (V) show x0r MM y00 ydif 0 mul add MM moveto (C) show x0l MM y00 ydif 1 mul add MM moveto (L) show x0r MM y00 ydif 1 mul add MM moveto (M) show x0l MM y00 ydif 2 mul add MM moveto (O) show x0r MM y00 ydif 2 mul add MM moveto (Y) show x0l MM y00 ydif 3 mul add MM moveto (Y) show x0r MM y00 ydif 3 mul add MM moveto (O) show x0l MM y00 ydif 4 mul add MM moveto (M) show x0r MM y00 ydif 4 mul add MM moveto (L) show x0l MM y00 ydif 5 mul add MM moveto (C) show x0r MM y00 ydif 5 mul add MM moveto (V) show } if } for %i=0,16 0 1 10 {/j0 exch def /j1 j0 1 add def %j0 j0 0 eq {tzcolv* setrgbcolor} if j0 1 eq {0 setgray} if j0 2 eq {tzmolv* setrgbcolor} if j0 3 eq {0 setgray} if j0 4 eq {tzyolv* setrgbcolor} if j0 5 eq {0 setgray} if j0 6 eq {tzoolv* setrgbcolor} if j0 7 eq {0 setgray} if j0 8 eq {tzlolv* setrgbcolor} if j0 9 eq {0 setgray} if j0 10 eq {tzvolv* setrgbcolor} if 12 4 16 {/i exch def /i0 i def %i=0,16 %0 4 16 {/i exch def /i0 i def %i=0,16 /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def i 16 eq {0.30 MM setlinewidth} {0.15 MM setlinewidth} ifelse xx i0 get dd i0 get add 16 j0 mul add MM yy i0 get MM moveto xx i0 get dd i0 get add 16 j1 mul add MM yy i0 get MM lineto stroke xx i1 get MM yy i1 get dd i1 get add 16 j0 mul add MM moveto xx i1 get MM yy i1 get dd i1 get add 16 j1 mul add MM lineto stroke xx i2 get dd i2 get add 16 j0 mul sub MM yy i2 get MM moveto xx i2 get dd i2 get add 16 j1 mul sub MM yy i2 get MM lineto stroke xx i3 get MM yy i3 get dd i3 get add 16 j0 mul sub MM moveto xx i3 get MM yy i3 get dd i3 get add 16 j1 mul sub MM lineto stroke } for %i=0,16 } for %j0 0.15 MM setlinewidth /s 7 MM def /s1 8 MM def /s5 36 MM def 16 1 20 {/j exch def /j0 j 16 sub def %j=16,20 /ix0 xlu 8 MM add j0 7 MM mul add def /iy0 ylu 8 MM sub def 0 1 3 {/ij exch def %ij=0,3 ij 0 eq {/ix0 xlu 8 MM add j0 7 MM mul add def /iy0 ylu 8 MM sub def} if ij 1 eq {/ix0 xru 43 MM sub j0 7 MM mul add def /iy0 yru 8 MM sub def} if ij 2 eq {/ix0 xlo 8 MM add j0 7 MM mul add def /iy0 ylo 1 MM add def} if ij 3 eq {/ix0 xro 43 MM sub j0 7 MM mul add def /iy0 yro 1 MM add def} if i*ptrsc 0 eq i*ptrsc 2 eq or {%i*ptrsc=0,2 cmy0* setcmykcolor j 16 eq {/ng tzan j get def ng ng ng 0 setcmykcolor ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if /ng tzan j get def ng ng ng 0 setcmykcolor ix0 iy0 s s rec fill } if %i*ptrsc=0,2 i*ptrsc 1 eq i*ptrsc 3 eq or {%i*ptrsc=1,3 www* setrgbcolor j 16 eq {/wg 1 tzan j get sub def wg setgray %N ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if /wg 1 tzan j get sub def wg setgray %N ix0 iy0 s s rec fill } if %i*ptrsc=1,3 i*ptrsc 4 eq i*ptrsc 5 eq or {%i*ptrsc=4,5 [/CIEBasedABC << %Farbraum und Grenzen fuer D65 /RangeABC [0 100 -128 127 -128 127] /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] /MatrixABC [1 1 1 1 0 0 0 0 -1] /DecodeLMN [{dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind] /WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65 >>] setcolorspace j 16 eq {tznLAB* 0 get tzwLAB* 0 get tznLAB* 0 get sub 0.25 j0 mul mul add tznLAB* 1 get tzwLAB* 1 get tznLAB* 1 get sub 0.25 j0 mul mul add tznLAB* 2 get tzwLAB* 2 get tznLAB* 2 get sub 0.25 j0 mul mul add setcolor %N ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if tznLAB* 0 get tzwLAB* 0 get tznLAB* 0 get sub 0.25 j0 mul mul add tznLAB* 1 get tzwLAB* 1 get tznLAB* 1 get sub 0.25 j0 mul mul add tznLAB* 2 get tzwLAB* 2 get tznLAB* 2 get sub 0.25 j0 mul mul add setcolor %N ix0 iy0 s s rec fill } if %i*ptrsc=4,5 i*ptrsc 6 eq {%i*ptrsc=6 000n* setcmykcolor j 16 eq {/ng tzan j get def 0 0 0 ng setcmykcolor ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if /ng tzan j get def 0 0 0 ng setcmykcolor ix0 iy0 s s rec fill } if %i*ptrsc=6 i*ptrsc 7 eq {%i*ptrsc=7 w* setgray j 16 eq {/wg 1 tzan j get sub def wg setgray ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if /wg 1 tzan j get sub def wg setgray ix0 iy0 s s rec fill } if %i*ptrsc=7 } for %ij=0,3 } for %j=16,20 0 setgray 018 MM 008.2 MM moveto 6 /Times-Roman FS (-8) show 018 MM 006.2 MM moveto 6 /Times-Roman FS (-6) show 276 MM 008.2 MM moveto 6 /Times-Roman FS (-8) show 276 MM 006.2 MM moveto 6 /Times-Roman FS (-6) show 018 MM 202.2 MM moveto 6 /Times-Roman FS (-8) show 018 MM 204.2 MM moveto 6 /Times-Roman FS (-6) show 276 MM 202.2 MM moveto 6 /Times-Roman FS (-8) show 276 MM 204.2 MM moveto 6 /Times-Roman FS (-6) show 0 setgray 12 /Times-ISOL1 FS 61 MM 13 MM moveto (TUB\255Pr\374fvorlage JE39; Relatives Ger\344te\255Farbsystem O) showde (TUB\255test chart JE39; Relative Device Colour System O) showen %(, Page ) showen %(, Seite ) showde %xcharti 1 add cvishow (/30) show 61 MM 09 MM moveto (D65: ) show (1080 Normfarben, Separationen und 23 Datentabellen) showde (1080 standard colours, separations and 23 data tables) showen 12 /Times-ISOL1 FS 168 MM 13 MM moveto ( input: ) showen (Eingabe: ) showde 12 /TimesI-ISOL1 FS (000n / w / nnn0 / www set... ) show 12 /Times-ISOL1 FS 168 MM 9 MM moveto ( output: ) showen (Ausgabe: ) showde LSC$ (N) eq {%LSC$=N 12 /Times-ISOL1 FS xcharti 0 eq {(no change compared to input) showen (keine Eingabe\344nderung) showde} {12 /TimesI-ISOL1 FS (->rgb* setrgbcolor) show 12 /Times-ISOL1 FS} ifelse } if %LSC$=N LSC$ (S) eq { (Startup (S) data dependend) showen (Startup(S)Daten abh\344ngig) showde } if LSC$ (F) eq { 12 /TimesI-ISOL1 FS i*ptrsc 0 eq {(cmy0* / 000n* setcmykcolor) show} if i*ptrsc 1 eq {xcharti 0 eq {12 /Times-ISOL1 FS (no change compared to input) showen (keine Eingabe\344nderung) showde } {(->LAB*->rgb* setrgb) show } ifelse } if i*ptrsc 2 eq {(cmy0* / nnn0* setcmykcolor) show} if i*ptrsc 3 eq {(olv* / www* setrgbcolor) show} if i*ptrsc 4 eq {(lab* setcolor) show} if i*ptrsc 5 eq {(LAB* setcolor) show} if i*ptrsc 6 eq {(000n* setcmykcolor) show} if i*ptrsc 7 eq {(w* setgray) show} if } if %0 setgray %end white and unvisible 12 /Times-ISOL1 FS 62 MM 198.5 MM moveto (http://130.149.60.45/~farbmetrik/JE39/JE39L) show (0) show LSC$ show LEX$ show (, Page ) showen (, Seite ) showde xcharti 1 add cvishow (/30) show (; ) show LAB*TE 0 get show %1 setgray %start white and unvisible %(; ) show %LSC$ (N) eq { %xcharti 0 eq {(Start\255Ausgabe) showde (start output) showen} % {(Transfer und Ausgabe) showde (transfer and output) showen} ifelse %(start) showes %(start) showfr %(start) showit %(start) showjp %(start) showm % } if %LSC$ (C) eq { %(Start) showde %(start) showen %(start) showes %(start) showfr %(start) showit %(start) showjp %(start) showm % } if %LSC$ (F) eq { %xcharti 0 eq {(Start\255Ausgabe) showde (start output) showen} % {(Linearisierte Ausgabe) showde (linearized output) showen} ifelse %(linearized) showes %(linearized) showfr %(linearized) showit %(linearized) showjp %(linearized) showm % } if 62 MM 194 MM moveto LSC$ (N) eq LSC$ (C) eq or { (N: Keine Ausgabe\255Linearisierung (OL) in Datei (F), Startup (S), Ger\344t (D)) showde (N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showen (N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showes (N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showfr (N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showit (N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showjp (N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showm } {LSC$ show (: ) show (Linearisierte\255Ausgabe) showde (linearized output) showen (linearized output) showes (linearized output) showfr (linearized output) showit (linearized output) showjp (linearized output) showm (JE39/JE39L) show LSS$ show LSX$ show (0) show LSC$ show LEY$ show } ifelse LSC$ (F) eq { ( in der Datei (F)) showde ( in File (F)) showen ( in File (F)) showes ( in File (F)) showfr ( in File (F)) showit ( in File (F)) showjp ( in File (F)) showm } if LSC$ (S) eq { ( im Distiller Startup (S) Directory) showde ( in Distiller Startup (S) Directory) showen ( in Distiller Startup (S) Directory) showes ( in Distiller Startup (S) Directory) showfr ( in Distiller Startup (S) Directory) showit ( in Distiller Startup (S) Directory) showjp ( in Distiller Startup (S) Directory) showm } if LSC$ (D) eq { ( in PostScript Device (D)) showde ( in PostScript Device (D)) showen ( in PostScript Device (D)) showes ( in PostScript Device (D)) showfr ( in PostScript Device (D)) showit ( in PostScript Device (D)) showjp ( in PostScript Device (D)) showm } if LSC$ (T) eq { ( von Distiller Startup (S) Directory) showde ( of Distiller Startup (S) Directory) showen ( of Distiller Startup (S) Directory) showes ( of Distiller Startup (S) Directory) showfr ( of Distiller Startup (S) Directory) showit ( of Distiller Startup (S) Directory) showjp ( of Distiller Startup (S) Directory) showm } if LSC$ (E) eq { ( von PostScript Device (D)) showde ( of PostScript Device (D)) showen ( of PostScript Device (D)) showes ( of PostScript Device (D)) showfr ( of PostScript Device (D)) showit ( of PostScript Device (D)) showjp ( of PostScript Device (D)) showm } if %0 setgray %end white and unvisible 16 MM 185 MM moveto -90 rotate (Siehe Original/Kopie: ) showde (See original or copy: ) showen (http://web.me.com/klaus.richter/JE39/JE39L) show (0) show LSC$ show LEX$ show 90 rotate 12 MM 185 MM moveto -90 rotate (Technische Information: ) showde (Technical information: ) showen (http://www.ps.bam.de) show %( or ) showen ( oder ) showde %(http://130.149.60.45/~farbmetrik) show 90 rotate 12 MM 105 MM moveto -90 rotate (V 2.1, io=1,) show LSC$ (N) eq {(1) show} if LSC$ (S) eq {(1?) show} if LSC$ (D) eq {(1?) show} if %LSC$ (F) eq {i*ptrsc cvishow % IMES 0 eq {(, CIELAB) show} % {(, CIEXYZ) show} ifelse % } if (, Cx=) show ColSpx cvishow (; cf1=1.00; nt=0.18; nx=1.0) show 90 rotate 281 MM 185 MM moveto -90 rotate (TUB\255Registrierung: 20100101\255JE39/JE39L) showde (TUB registration: 20100101\255JE39/JE39L) showen (0) show LSC$ show LEX$ show 90 rotate 281 MM 74 MM moveto -90 rotate (TUB\255Material: Code=rha4ta) showde (TUB material: code=rha4ta) showen (TUB material: code=rha4ta) showes (TUB material: code=rha4ta) showfr (TUB material: code=rha4ta) showit (TUB material: code=rha4ta) showjp (TUB material: code=rha4ta) showm 90 rotate 277 MM 185 MM moveto -90 rotate /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def ( Anwendung f\374r Beurteilung und Messung von Drucker- oder Monitorsystemen) showde ( application for evaluation and measurement of printer or monitor systems) showen ( application for evaluation and measurement of printer or monitor systems) showes ( application for evaluation and measurement of printer or monitor systems) showfr ( application for evaluation and measurement of printer or monitor systems) showit ( application for evaluation and measurement of printer or monitor systems) showjp ( application for evaluation and measurement of printer or monitor systems) showm IMES 1 eq LSC$ (N) ne and { %IMES=1 (, Yr=) show Yre cvsshow1 (, XYZ) show } if %IMES=1 90 rotate /i0 8 def /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def 0.30 MM setlinewidth 0 setgray xx i0 get MM yy i0 get MM moveto xx i1 get MM yy i1 get MM lineto xx i2 get MM yy i2 get MM lineto xx i3 get MM yy i3 get MM lineto xx i0 get MM yy i0 get MM lineto stroke %} if %end if xcharti=0 %/xlu1 013 MM def /ylu1 010 MM def %/xro1 283 MM def /yro1 200 MM def %/xlo1 013 MM def /ylo1 200 MM def %/xru1 283 MM def /yru1 010 MM def %xlu1 4 MM sub ylu1 moveto 8 MM 0 rlineto stroke %xlu1 ylu1 4 MM sub moveto 0 8 MM rlineto stroke %xro1 4 MM add yro1 moveto -8 MM 0 rlineto stroke %xro1 yro1 4 MM add moveto 0 -8 MM rlineto stroke %xru1 4 MM sub yru1 moveto 8 MM 0 rlineto stroke %xru1 yru1 4 MM sub moveto 0 8 MM rlineto stroke %xlo1 4 MM add ylo1 moveto -8 MM 0 rlineto stroke %xlo1 ylo1 4 MM add moveto 0 -8 MM rlineto stroke } ifelse %xt=0,1 ifelse %} for %output with colorm end %} for %output with xcolor end %} for %output with lanind end %%Trailer %%EndDocument EndEPSF grestore gsave showpage grestore } for %end for xchartg=xchartg1,xchartg2 %} for %end for pcountg=pcountg1,pcount2g %} for %end for scountg=scountg1,scount2g %%Trailer