%!PS-Adobe-3.0 EPSF-3.0 xxx/IE52/IE52L00XX.PS 20090901 %%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: www.ps.bam.de/IE52/IE52.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.445/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2009090112000) /ModDate (D:2009090112000) /DOCINFO pdfmark [ /View [ /Fit ] /DOCVIEW pdfmark /ColSpxG 0 def /ColSpx ColSpxG def /DEintp 1 def %*************************************************************************** %BEG IE52/OUTLIN11_FRS09_92A.PS, LUT0729 for FP-File, Interpolation 20080701 %*************************************************************************** %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 Television Luminous System (TLS00) %/ISOU*ioG 0 def %default output dto. %/ISIN*ioG 1 def %input for Television Luminous System (TLS06) %/ISOU*ioG 1 def %output dto. %/ISIN*ioG 2 def %input for Television Luminous System (TLS11) %/ISOU*ioG 2 def %output dto. /ISIN*ioG 3 def %input for Television Luminous System (TLS18) /ISOU*ioG 3 def %output dto. %/ISIN*ioG 4 def %input for Television Luminous System (TLS27) %/ISOU*ioG 4 def %output dto. %/ISIN*ioG 5 def %input for Television Luminous System (TLS33) %/ISOU*ioG 5 def %output dto. %/ISIN*ioG 6 def %input for Television Luminous System (TLS52) %/ISOU*ioG 6 def %output dto. %/ISIN*ioG 7 def %input for Television Luminous System (TLS70) %/ISOU*ioG 7 def %output dto. /iLAB 0 def /ISIO*ioG 1 def /ISRL*ioG 1 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 3240 array def %1080x3=3240 /lut0 [ %Definition LUT-Table %De70/OUTLIN11_FRS09_92A.PS %Shared/F_PRS09_LIN/LUT_FRS09_92_1080.DAT %Measurement, File: %ZE45N_CM_OF_080602_1080.TXT, 1080 colours, % 20080602, Matching OFF, adapted %console0806021.TXT %IE52-7: Measurement, File: %ZE45N_CM_OF_080602_1080.TXT, 1080 colours, 20080602, Matching OFF, adapted %ZE45N_CM_OF_080602_1080.TXT, 1080 colours, 20080602, Matching OFF %100 x LAB*a %#1000 x (r g b c m y 0) %nr. pos 000858 000000 000000 %#0000 0000 0000 1000 1000 1000 0000 %0000 A01 000896 000897 -01546 %#0000 0000 0125 1000 1000 0875 0000 %0001 A02 000965 001757 -02621 %#0000 0000 0250 1000 1000 0750 0000 %0002 A03 001050 002541 -03476 %#0000 0000 0375 1000 1000 0625 0000 %0003 A04 001137 003369 -04313 %#0000 0000 0500 1000 1000 0500 0000 %0004 A05 001236 004236 -05136 %#0000 0000 0625 1000 1000 0375 0000 %0005 A06 001302 004830 -05682 %#0000 0000 0750 1000 1000 0250 0000 %0006 A07 001409 004984 -05859 %#0000 0000 0875 1000 1000 0125 0000 %0007 A08 001415 005030 -05903 %#0000 0000 1000 1000 1000 0000 0000 %0008 A09 001449 -01252 000801 %#0000 0125 0000 1000 0875 1000 0000 %0009 B01 001543 -00561 -00798 %#0000 0125 0125 1000 0875 0875 0000 %0010 B02 001628 000243 -01969 %#0000 0125 0250 1000 0875 0750 0000 %0011 B03 001727 000970 -02863 %#0000 0125 0375 1000 0875 0625 0000 %0012 B04 001838 001858 -03836 %#0000 0125 0500 1000 0875 0500 0000 %0013 B05 001950 002777 -04758 %#0000 0125 0625 1000 0875 0375 0000 %0014 B06 002027 003452 -05401 %#0000 0125 0750 1000 0875 0250 0000 %0015 B07 002085 003782 -05701 %#0000 0125 0875 1000 0875 0125 0000 %0016 B08 002062 003875 -05779 %#0000 0125 1000 1000 0875 0000 0000 %0017 B09 002193 -02669 001804 %#0000 0250 0000 1000 0750 1000 0000 %0018 C01 002304 -02147 000138 %#0000 0250 0125 1000 0750 0875 0000 %0019 C02 002392 -01432 -01096 %#0000 0250 0250 1000 0750 0750 0000 %0020 C03 002500 -00753 -02061 %#0000 0250 0375 1000 0750 0625 0000 %0021 C04 002606 000125 -03116 %#0000 0250 0500 1000 0750 0500 0000 %0022 C05 002713 001063 -04120 %#0000 0250 0625 1000 0750 0375 0000 %0023 C06 002793 001806 -04866 %#0000 0250 0750 1000 0750 0250 0000 %0024 C07 002844 002207 -05255 %#0000 0250 0875 1000 0750 0125 0000 %0025 C08 002840 002283 -05315 %#0000 0250 1000 1000 0750 0000 0000 %0026 C09 002850 -03830 002716 %#0000 0375 0000 1000 0625 1000 0000 %0027 D01 002983 -03464 001040 %#0000 0375 0125 1000 0625 0875 0000 %0028 D02 003082 -02872 -00237 %#0000 0375 0250 1000 0625 0750 0000 %0029 D03 003192 -02222 -01281 %#0000 0375 0375 1000 0625 0625 0000 %0030 D04 003279 -01382 -02383 %#0000 0375 0500 1000 0625 0500 0000 %0031 D05 003397 -00471 -03449 %#0000 0375 0625 1000 0625 0375 0000 %0032 D06 003479 000297 -04272 %#0000 0375 0750 1000 0625 0250 0000 %0033 D07 003529 000734 -04717 %#0000 0375 0875 1000 0625 0125 0000 %0034 D08 003531 000803 -04781 %#0000 0375 1000 1000 0625 0000 0000 %0035 D09 003485 -04870 003569 %#0000 0500 0000 1000 0500 1000 0000 %0036 E01 003617 -04611 001869 %#0000 0500 0125 1000 0500 0875 0000 %0037 E02 003711 -04114 000597 %#0000 0500 0250 1000 0500 0750 0000 %0038 E03 003817 -03532 -00511 %#0000 0500 0375 1000 0500 0625 0000 %0039 E04 003922 -02774 -01633 %#0000 0500 0500 1000 0500 0500 0000 %0040 E05 004037 -01900 -02756 %#0000 0500 0625 1000 0500 0375 0000 %0041 E06 004129 -01120 -03652 %#0000 0500 0750 1000 0500 0250 0000 %0042 E07 004183 -00661 -04151 %#0000 0500 0875 1000 0500 0125 0000 %0043 E08 004181 -00582 -04225 %#0000 0500 1000 1000 0500 0000 0000 %0044 E09 003924 -05563 004174 %#0000 0625 0000 1000 0375 1000 0000 %0045 F01 004076 -05420 002516 %#0000 0625 0125 1000 0375 0875 0000 %0046 F02 004176 -05005 001221 %#0000 0625 0250 1000 0375 0750 0000 %0047 F03 004288 -04500 000128 %#0000 0625 0375 1000 0375 0625 0000 %0048 F04 004389 -03787 -01039 %#0000 0625 0500 1000 0375 0500 0000 %0049 F05 004520 -02927 -02244 %#0000 0625 0625 1000 0375 0375 0000 %0050 F06 004612 -02177 -03165 %#0000 0625 0750 1000 0375 0250 0000 %0051 F07 004663 -01704 -03694 %#0000 0625 0875 1000 0375 0125 0000 %0052 F08 004677 -01635 -03774 %#0000 0625 1000 1000 0375 0000 0000 %0053 F09 004226 -06023 004590 %#0000 0750 0000 1000 0250 1000 0000 %0054 G01 004413 -05910 002914 %#0000 0750 0125 1000 0250 0875 0000 %0055 G02 004514 -05599 001653 %#0000 0750 0250 1000 0250 0750 0000 %0056 G03 004623 -05147 000558 %#0000 0750 0375 1000 0250 0625 0000 %0057 G04 004738 -04484 -00637 %#0000 0750 0500 1000 0250 0500 0000 %0058 G05 004873 -03688 -01829 %#0000 0750 0625 1000 0250 0375 0000 %0059 G06 004965 -02949 -02791 %#0000 0750 0750 1000 0250 0250 0000 %0060 G07 005021 -02486 -03345 %#0000 0750 0875 1000 0250 0125 0000 %0061 G08 005038 -02414 -03425 %#0000 0750 1000 1000 0250 0000 0000 %0062 G09 004398 -06264 004819 %#0000 0875 0000 1000 0125 1000 0000 %0063 H01 004583 -06231 003155 %#0000 0875 0125 1000 0125 0875 0000 %0064 H02 004716 -05954 001920 %#0000 0875 0250 1000 0125 0750 0000 %0065 H03 004822 -05537 000823 %#0000 0875 0375 1000 0125 0625 0000 %0066 H04 004950 -04907 -00394 %#0000 0875 0500 1000 0125 0500 0000 %0067 H05 005085 -04138 -01597 %#0000 0875 0625 1000 0125 0375 0000 %0068 H06 005186 -03427 -02560 %#0000 0875 0750 1000 0125 0250 0000 %0069 H07 005251 -02977 -03118 %#0000 0875 0875 1000 0125 0125 0000 %0070 H08 005259 -02908 -03196 %#0000 0875 1000 1000 0125 0000 0000 %0071 H09 004413 -06267 004825 %#0000 1000 0000 1000 0000 1000 0000 %0072 I01 004595 -06257 003215 %#0000 1000 0125 1000 0000 0875 0000 %0073 I02 004726 -05970 001936 %#0000 1000 0250 1000 0000 0750 0000 %0074 I03 004840 -05543 000813 %#0000 1000 0375 1000 0000 0625 0000 %0075 I04 004968 -04919 -00391 %#0000 1000 0500 1000 0000 0500 0000 %0076 I05 005100 -04149 -01596 %#0000 1000 0625 1000 0000 0375 0000 %0077 I06 005204 -03427 -02569 %#0000 1000 0750 1000 0000 0250 0000 %0078 I07 005261 -02983 -03119 %#0000 1000 0875 1000 0000 0125 0000 %0079 I08 005266 -02915 -03198 %#0000 1000 1000 1000 0000 0000 0000 %0080 I09 001110 000750 000439 %#0125 0000 0000 0875 1000 1000 0000 %0081 J01 001173 001481 -01196 %#0125 0000 0125 0875 1000 0875 0000 %0082 J02 001240 002189 -02330 %#0125 0000 0250 0875 1000 0750 0000 %0083 J03 001335 002919 -03269 %#0125 0000 0375 0875 1000 0625 0000 %0084 J04 001435 003708 -04188 %#0125 0000 0500 0875 1000 0500 0000 %0085 J05 001522 004534 -05052 %#0125 0000 0625 0875 1000 0375 0000 %0086 J06 001593 005097 -05622 %#0125 0000 0750 0875 1000 0250 0000 %0087 J07 001633 005372 -05889 %#0125 0000 0875 0875 1000 0125 0000 %0088 J08 001637 005403 -05917 %#0125 0000 1000 0875 1000 0000 0000 %0089 J09 001761 -00480 001308 %#0125 0125 0000 0875 0875 1000 0000 %0090 K01 001879 000057 -00385 %#0125 0125 0125 0875 0875 0875 0000 %0091 K02 001959 000721 -01617 %#0125 0125 0250 0875 0875 0750 0000 %0092 K03 002085 001378 -02613 %#0125 0125 0375 0875 0875 0625 0000 %0093 K04 002194 002233 -03674 %#0125 0125 0500 0875 0875 0500 0000 %0094 K05 002295 003109 -04661 %#0125 0125 0625 0875 0875 0375 0000 %0095 K06 002379 003733 -05321 %#0125 0125 0750 0875 0875 0250 0000 %0096 K07 002418 004077 -05665 %#0125 0125 0875 0875 0875 0125 0000 %0097 K08 002428 004108 -05701 %#0125 0125 1000 0875 0875 0000 0000 %0098 K09 002536 -01875 002369 %#0125 0250 0000 0875 0750 1000 0000 %0099 L01 002656 -01487 000597 %#0125 0250 0125 0875 0750 0875 0000 %0100 L02 002753 -00893 -00710 %#0125 0250 0250 0875 0750 0750 0000 %0101 L03 002884 -00284 -01774 %#0125 0250 0375 0875 0750 0625 0000 %0102 L04 002978 000542 -02910 %#0125 0250 0500 0875 0750 0500 0000 %0103 L05 003098 001427 -03985 %#0125 0250 0625 0875 0750 0375 0000 %0104 L06 003189 002124 -04759 %#0125 0250 0750 0875 0750 0250 0000 %0105 L07 003228 002519 -05173 %#0125 0250 0875 0875 0750 0125 0000 %0106 L08 003244 002552 -05217 %#0125 0250 1000 0875 0750 0000 0000 %0107 L09 003248 -03087 003320 %#0125 0375 0000 0875 0625 1000 0000 %0108 M01 003394 -02807 001553 %#0125 0375 0125 0875 0625 0875 0000 %0109 M02 003492 -02302 000197 %#0125 0375 0250 0875 0625 0750 0000 %0110 M03 003608 -01734 -00928 %#0125 0375 0375 0875 0625 0625 0000 %0111 M04 003710 -00968 -02111 %#0125 0375 0500 0875 0625 0500 0000 %0112 M05 003846 -00100 -03278 %#0125 0375 0625 0875 0625 0375 0000 %0113 M06 003939 000620 -04134 %#0125 0375 0750 0875 0625 0250 0000 %0114 M07 003980 001059 -04611 %#0125 0375 0875 0875 0625 0125 0000 %0115 M08 003978 001109 -04668 %#0125 0375 1000 0875 0625 0000 0000 %0116 M09 003944 -04180 004279 %#0125 0500 0000 0875 0500 1000 0000 %0117 N01 004098 -04002 002490 %#0125 0500 0125 0875 0500 0875 0000 %0118 N02 004205 -03595 001128 %#0125 0500 0250 0875 0500 0750 0000 %0119 N03 004309 -03080 -00054 %#0125 0500 0375 0875 0500 0625 0000 %0120 N04 004421 -02391 -01282 %#0125 0500 0500 0875 0500 0500 0000 %0121 N05 004549 -01556 -02512 %#0125 0500 0625 0875 0500 0375 0000 %0122 N06 004637 -00811 -03465 %#0125 0500 0750 0875 0500 0250 0000 %0123 N07 004696 -00357 -04008 %#0125 0500 0875 0875 0500 0125 0000 %0124 N08 004697 -00293 -04073 %#0125 0500 1000 0875 0500 0000 0000 %0125 N09 004471 -04959 004991 %#0125 0625 0000 0875 0375 1000 0000 %0126 O01 004637 -04873 003239 %#0125 0625 0125 0875 0375 0875 0000 %0127 O02 004744 -04540 001846 %#0125 0625 0250 0875 0375 0750 0000 %0128 O03 004858 -04109 000676 %#0125 0625 0375 0875 0375 0625 0000 %0129 O04 004980 -03470 -00614 %#0125 0625 0500 0875 0375 0500 0000 %0130 O05 005109 -02666 -01906 %#0125 0625 0625 0875 0375 0375 0000 %0131 O06 005203 -01937 -02910 %#0125 0625 0750 0875 0375 0250 0000 %0132 O07 005267 -01490 -03488 %#0125 0625 0875 0875 0375 0125 0000 %0133 O08 005264 -01419 -03562 %#0125 0625 1000 0875 0375 0000 0000 %0134 O09 004833 -05477 005501 %#0125 0750 0000 0875 0250 1000 0000 %0135 P01 005027 -05475 003760 %#0125 0750 0125 0875 0250 0875 0000 %0136 P02 005151 -05219 002380 %#0125 0750 0250 0875 0250 0750 0000 %0137 P03 005276 -04839 001198 %#0125 0750 0375 0875 0250 0625 0000 %0138 P04 005401 -04265 -00088 %#0125 0750 0500 0875 0250 0500 0000 %0139 P05 005546 -03548 -01371 %#0125 0750 0625 0875 0250 0375 0000 %0140 P06 005655 -02842 -02428 %#0125 0750 0750 0875 0250 0250 0000 %0141 P07 005710 -02376 -03059 %#0125 0750 0875 0875 0250 0125 0000 %0142 P08 005714 -02311 -03143 %#0125 0750 1000 0875 0250 0000 0000 %0143 P09 005059 -05779 005802 %#0125 0875 0000 0875 0125 1000 0000 %0144 Q01 005271 -05858 004092 %#0125 0875 0125 0875 0125 0875 0000 %0145 Q02 005423 -05669 002751 %#0125 0875 0250 0875 0125 0750 0000 %0146 Q03 005562 -05348 001577 %#0125 0875 0375 0875 0125 0625 0000 %0147 Q04 005697 -04823 000266 %#0125 0875 0500 0875 0125 0500 0000 %0148 Q05 005844 -04141 -01044 %#0125 0875 0625 0875 0125 0375 0000 %0149 Q06 005960 -03468 -02116 %#0125 0875 0750 0875 0125 0250 0000 %0150 Q07 006025 -03013 -02763 %#0125 0875 0875 0875 0125 0125 0000 %0151 Q08 006031 -02946 -02850 %#0125 0875 1000 0875 0125 0000 0000 %0152 Q09 005056 -05784 005805 %#0125 1000 0000 0875 0000 1000 0000 %0153 R01 005278 -05864 004120 %#0125 1000 0125 0875 0000 0875 0000 %0154 R02 005430 -05688 002796 %#0125 1000 0250 0875 0000 0750 0000 %0155 R03 005564 -05364 001596 %#0125 1000 0375 0875 0000 0625 0000 %0156 R04 005707 -04861 000321 %#0125 1000 0500 0875 0000 0500 0000 %0157 R05 005859 -04154 -01041 %#0125 1000 0625 0875 0000 0375 0000 %0158 R06 005976 -03485 -02106 %#0125 1000 0750 0875 0000 0250 0000 %0159 R07 006042 -03036 -02745 %#0125 1000 0875 0875 0000 0125 0000 %0160 R08 006039 -02968 -02838 %#0125 1000 1000 0875 0000 0000 0000 %0161 R09 001496 001682 001053 %#0250 0000 0000 0750 1000 1000 0000 %0162 S01 001552 002248 -00666 %#0250 0000 0125 0750 1000 0875 0000 %0163 S02 001618 002819 -01863 %#0250 0000 0250 0750 1000 0750 0000 %0164 S03 001697 003411 -02836 %#0250 0000 0375 0750 1000 0625 0000 %0165 S04 001798 004118 -03814 %#0250 0000 0500 0750 1000 0500 0000 %0166 S05 001885 004879 -04741 %#0250 0000 0625 0750 1000 0375 0000 %0167 S06 001957 005396 -05327 %#0250 0000 0750 0750 1000 0250 0000 %0168 S07 001989 005666 -05613 %#0250 0000 0875 0750 1000 0125 0000 %0169 S08 001985 005693 -05646 %#0250 0000 1000 0750 1000 0000 0000 %0170 S09 002198 000502 001962 %#0250 0125 0000 0750 0875 1000 0000 %0171 T01 002303 000933 000144 %#0250 0125 0125 0750 0875 0875 0000 %0172 T02 002384 001439 -01131 %#0250 0125 0250 0750 0875 0750 0000 %0173 T03 002492 002013 -02207 %#0250 0125 0375 0750 0875 0625 0000 %0174 T04 002593 002745 -03298 %#0250 0125 0500 0750 0875 0500 0000 %0175 T05 002707 003535 -04339 %#0250 0125 0625 0750 0875 0375 0000 %0176 T06 002786 004124 -05048 %#0250 0125 0750 0750 0875 0250 0000 %0177 T07 002812 004444 -05412 %#0250 0125 0875 0750 0875 0125 0000 %0178 T08 002828 004474 -05443 %#0250 0125 1000 0750 0875 0000 0000 %0179 T09 003016 -00893 003052 %#0250 0250 0000 0750 0750 1000 0000 %0180 U01 003142 -00583 001197 %#0250 0250 0125 0750 0750 0875 0000 %0181 U02 003224 -00100 -00197 %#0250 0250 0250 0750 0750 0750 0000 %0182 U03 003348 000411 -01332 %#0250 0250 0375 0750 0750 0625 0000 %0183 U04 003446 001130 -02514 %#0250 0250 0500 0750 0750 0500 0000 %0184 U05 003565 001931 -03659 %#0250 0250 0625 0750 0750 0375 0000 %0185 U06 003651 002572 -04479 %#0250 0250 0750 0750 0750 0250 0000 %0186 U07 003695 002933 -04909 %#0250 0250 0875 0750 0750 0125 0000 %0187 U08 003688 002998 -04969 %#0250 0250 1000 0750 0750 0000 0000 %0188 U09 003756 -02134 004056 %#0250 0375 0000 0750 0625 1000 0000 %0189 V01 003901 -01903 002191 %#0250 0375 0125 0750 0625 0875 0000 %0190 V02 003992 -01499 000744 %#0250 0375 0250 0750 0625 0750 0000 %0191 V03 004100 -01024 -00434 %#0250 0375 0375 0750 0625 0625 0000 %0192 V04 004210 -00347 -01702 %#0250 0375 0500 0750 0625 0500 0000 %0193 V05 004344 000437 -02930 %#0250 0375 0625 0750 0625 0375 0000 %0194 V06 004417 001124 -03849 %#0250 0375 0750 0750 0625 0250 0000 %0195 V07 004464 001521 -04354 %#0250 0375 0875 0750 0625 0125 0000 %0196 V08 004475 001572 -04415 %#0250 0375 1000 0750 0625 0000 0000 %0197 V09 004477 -03272 005051 %#0250 0500 0000 0750 0500 1000 0000 %0198 W01 004630 -03130 003168 %#0250 0500 0125 0750 0500 0875 0000 %0199 W02 004736 -02791 001699 %#0250 0500 0250 0750 0500 0750 0000 %0200 W03 004833 -02359 000461 %#0250 0500 0375 0750 0500 0625 0000 %0201 W04 004952 -01774 -00815 %#0250 0500 0500 0750 0500 0500 0000 %0202 W05 005075 -01014 -02129 %#0250 0500 0625 0750 0500 0375 0000 %0203 W06 005153 -00318 -03164 %#0250 0500 0750 0750 0500 0250 0000 %0204 W07 005206 000118 -03745 %#0250 0500 0875 0750 0500 0125 0000 %0205 W08 005215 000167 -03815 %#0250 0500 1000 0750 0500 0000 0000 %0206 W09 005037 -04111 005830 %#0250 0625 0000 0750 0375 1000 0000 %0207 X01 005220 -04058 003954 %#0250 0625 0125 0750 0375 0875 0000 %0208 X02 005330 -03797 002486 %#0250 0625 0250 0750 0375 0750 0000 %0209 X03 005443 -03434 001230 %#0250 0625 0375 0750 0375 0625 0000 %0210 X04 005549 -02884 -00104 %#0250 0625 0500 0750 0375 0500 0000 %0211 X05 005666 -02175 -01478 %#0250 0625 0625 0750 0375 0375 0000 %0212 X06 005761 -01495 -02561 %#0250 0625 0750 0750 0375 0250 0000 %0213 X07 005827 -01063 -03192 %#0250 0625 0875 0750 0375 0125 0000 %0214 X08 005825 -00985 -03280 %#0250 0625 1000 0750 0375 0000 0000 %0215 X09 005455 -04700 006400 %#0250 0750 0000 0750 0250 1000 0000 %0216 Y01 005662 -04743 004562 %#0250 0750 0125 0750 0250 0875 0000 %0217 Y02 005793 -04557 003115 %#0250 0750 0250 0750 0250 0750 0000 %0218 Y03 005906 -04268 001852 %#0250 0750 0375 0750 0250 0625 0000 %0219 Y04 006030 -03788 000493 %#0250 0750 0500 0750 0250 0500 0000 %0220 Y05 006171 -03162 -00886 %#0250 0750 0625 0750 0250 0375 0000 %0221 Y06 006266 -02512 -02015 %#0250 0750 0750 0750 0250 0250 0000 %0222 Y07 006343 -02075 -02696 %#0250 0750 0875 0750 0250 0125 0000 %0223 Y08 006331 -02004 -02797 %#0250 0750 1000 0750 0250 0000 0000 %0224 Y09 005708 -05053 006745 %#0250 0875 0000 0750 0125 1000 0000 %0225 Z01 005961 -05184 004978 %#0250 0875 0125 0750 0125 0875 0000 %0226 Z02 006108 -05084 003536 %#0250 0875 0250 0750 0125 0750 0000 %0227 Z03 006228 -04856 002287 %#0250 0875 0375 0750 0125 0625 0000 %0228 Z04 006365 -04447 000960 %#0250 0875 0500 0750 0125 0500 0000 %0229 Z05 006522 -03845 -00474 %#0250 0875 0625 0750 0125 0375 0000 %0230 Z06 006619 -03252 -01619 %#0250 0875 0750 0750 0125 0250 0000 %0231 Z07 006698 -02814 -02323 %#0250 0875 0875 0750 0125 0125 0000 %0232 Z08 006701 -02754 -02415 %#0250 0875 1000 0750 0125 0000 0000 %0233 Z09 005718 -05055 006752 %#0250 1000 0000 0750 0000 1000 0000 %0234 a01 005965 -05197 004980 %#0250 1000 0125 0750 0000 0875 0000 %0235 a02 006114 -05096 003560 %#0250 1000 0250 0750 0000 0750 0000 %0236 a03 006241 -04874 002343 %#0250 1000 0375 0750 0000 0625 0000 %0237 a04 006395 -04452 000963 %#0250 1000 0500 0750 0000 0500 0000 %0238 a05 006532 -03877 -00437 %#0250 1000 0625 0750 0000 0375 0000 %0239 a06 006638 -03261 -01606 %#0250 1000 0750 0750 0000 0250 0000 %0240 a07 006712 -02832 -02305 %#0250 1000 0875 0750 0000 0125 0000 %0241 a08 006716 -02777 -02397 %#0250 1000 1000 0750 0000 0000 0000 %0242 a09 001806 002485 001521 %#0375 0000 0000 0625 1000 1000 0000 %0243 A10 001888 003019 -00217 %#0375 0000 0125 0625 1000 0875 0000 %0244 A11 001971 003530 -01468 %#0375 0000 0250 0625 1000 0750 0000 %0245 A12 002049 004015 -02414 %#0375 0000 0375 0625 1000 0625 0000 %0246 A13 002128 004659 -03469 %#0375 0000 0500 0625 1000 0500 0000 %0247 A14 002198 005271 -04350 %#0375 0000 0625 0625 1000 0375 0000 %0248 A15 002252 005757 -04959 %#0375 0000 0750 0625 1000 0250 0000 %0249 A16 002290 005996 -05244 %#0375 0000 0875 0625 1000 0125 0000 %0250 A17 002286 006026 -05274 %#0375 0000 1000 0625 1000 0000 0000 %0251 A18 002504 001389 002435 %#0375 0125 0000 0625 0875 1000 0000 %0252 B10 002642 001786 000581 %#0375 0125 0125 0625 0875 0875 0000 %0253 B11 002747 002209 -00728 %#0375 0125 0250 0625 0875 0750 0000 %0254 B12 002868 002699 -01791 %#0375 0125 0375 0625 0875 0625 0000 %0255 B13 002935 003353 -02964 %#0375 0125 0500 0625 0875 0500 0000 %0256 B14 003025 004049 -03992 %#0375 0125 0625 0625 0875 0375 0000 %0257 B15 003086 004596 -04723 %#0375 0125 0750 0625 0875 0250 0000 %0258 B16 003116 004909 -05105 %#0375 0125 0875 0625 0875 0125 0000 %0259 B17 003109 004957 -05151 %#0375 0125 1000 0625 0875 0000 0000 %0260 B18 003311 000006 003522 %#0375 0250 0000 0625 0750 1000 0000 %0261 C10 003478 000306 001613 %#0375 0250 0125 0625 0750 0875 0000 %0262 C11 003592 000690 000201 %#0375 0250 0250 0625 0750 0750 0000 %0263 C12 003717 001124 -00899 %#0375 0250 0375 0625 0750 0625 0000 %0264 C13 003802 001767 -02165 %#0375 0250 0500 0625 0750 0500 0000 %0265 C14 003879 002494 -03338 %#0375 0250 0625 0625 0750 0375 0000 %0266 C15 003939 003122 -04200 %#0375 0250 0750 0625 0750 0250 0000 %0267 C16 003973 003504 -04675 %#0375 0250 0875 0625 0750 0125 0000 %0268 C17 003967 003552 -04733 %#0375 0250 1000 0625 0750 0000 0000 %0269 C18 004082 -01262 004557 %#0375 0375 0000 0625 0625 1000 0000 %0270 D10 004257 -01045 002643 %#0375 0375 0125 0625 0625 0875 0000 %0271 D11 004375 -00726 001187 %#0375 0375 0250 0625 0625 0750 0000 %0272 D12 004482 -00292 -00008 %#0375 0375 0375 0625 0625 0625 0000 %0273 D13 004579 000310 -01361 %#0375 0375 0500 0625 0625 0500 0000 %0274 D14 004658 001013 -02592 %#0375 0375 0625 0625 0625 0375 0000 %0275 D15 004717 001687 -03579 %#0375 0375 0750 0625 0625 0250 0000 %0276 D16 004759 002107 -04140 %#0375 0375 0875 0625 0625 0125 0000 %0277 D17 004756 002171 -04215 %#0375 0375 1000 0625 0625 0000 0000 %0278 D18 004840 -02458 005608 %#0375 0500 0000 0625 0500 1000 0000 %0279 E10 005021 -02300 003652 %#0375 0500 0125 0625 0500 0875 0000 %0280 E11 005147 -02040 002162 %#0375 0500 0250 0625 0500 0750 0000 %0281 E12 005247 -01644 000913 %#0375 0500 0375 0625 0500 0625 0000 %0282 E13 005328 -01120 -00470 %#0375 0500 0500 0625 0500 0500 0000 %0283 E14 005422 -00437 -01789 %#0375 0500 0625 0625 0500 0375 0000 %0284 E15 005495 000250 -02887 %#0375 0500 0750 0625 0500 0250 0000 %0285 E16 005530 000711 -03542 %#0375 0500 0875 0625 0500 0125 0000 %0286 E17 005517 000781 -03632 %#0375 0500 1000 0625 0500 0000 0000 %0287 E18 005445 -03343 006454 %#0375 0625 0000 0625 0375 1000 0000 %0288 F10 005616 -03273 004487 %#0375 0625 0125 0625 0375 0875 0000 %0289 F11 005757 -03080 003001 %#0375 0625 0250 0625 0375 0750 0000 %0290 F12 005857 -02760 001750 %#0375 0625 0375 0625 0375 0625 0000 %0291 F13 005936 -02273 000306 %#0375 0625 0500 0625 0375 0500 0000 %0292 F14 006050 -01635 -01070 %#0375 0625 0625 0625 0375 0375 0000 %0293 F15 006138 -00972 -02241 %#0375 0625 0750 0625 0375 0250 0000 %0294 F16 006177 -00522 -02966 %#0375 0625 0875 0625 0375 0125 0000 %0295 F17 006178 -00445 -03060 %#0375 0625 1000 0625 0375 0000 0000 %0296 F18 005899 -03988 007073 %#0375 0750 0000 0625 0250 1000 0000 %0297 G10 006104 -04021 005152 %#0375 0750 0125 0625 0250 0875 0000 %0298 G11 006249 -03900 003672 %#0375 0750 0250 0625 0250 0750 0000 %0299 G12 006377 -03656 002434 %#0375 0750 0375 0625 0250 0625 0000 %0300 G13 006475 -03259 000995 %#0375 0750 0500 0625 0250 0500 0000 %0301 G14 006602 -02708 -00409 %#0375 0750 0625 0625 0250 0375 0000 %0302 G15 006690 -02084 -01625 %#0375 0750 0750 0625 0250 0250 0000 %0303 G16 006765 -01633 -02398 %#0375 0750 0875 0625 0250 0125 0000 %0304 G17 006758 -01564 -02508 %#0375 0750 1000 0625 0250 0000 0000 %0305 G18 006192 -04389 007482 %#0375 0875 0000 0625 0125 1000 0000 %0306 H10 006468 -04533 005642 %#0375 0875 0125 0625 0125 0875 0000 %0307 H11 006613 -04493 004196 %#0375 0875 0250 0625 0125 0750 0000 %0308 H12 006756 -04305 002936 %#0375 0875 0375 0625 0125 0625 0000 %0309 H13 006882 -03992 001520 %#0375 0875 0500 0625 0125 0500 0000 %0310 H14 007006 -03513 000104 %#0375 0875 0625 0625 0125 0375 0000 %0311 H15 007110 -02952 -01140 %#0375 0875 0750 0625 0125 0250 0000 %0312 H16 007198 -02517 -01936 %#0375 0875 0875 0625 0125 0125 0000 %0313 H17 007209 -02459 -02039 %#0375 0875 1000 0625 0125 0000 0000 %0314 H18 006207 -04396 007481 %#0375 1000 0000 0625 0000 1000 0000 %0315 I10 006483 -04541 005644 %#0375 1000 0125 0625 0000 0875 0000 %0316 I11 006640 -04497 004204 %#0375 1000 0250 0625 0000 0750 0000 %0317 I12 006777 -04314 002938 %#0375 1000 0375 0625 0000 0625 0000 %0318 I13 006898 -04005 001528 %#0375 1000 0500 0625 0000 0500 0000 %0319 I14 007032 -03526 000113 %#0375 1000 0625 0625 0000 0375 0000 %0320 I15 007144 -02971 -01122 %#0375 1000 0750 0625 0000 0250 0000 %0321 I16 007225 -02538 -01917 %#0375 1000 0875 0625 0000 0125 0000 %0322 I17 007227 -02488 -02024 %#0375 1000 1000 0625 0000 0000 0000 %0323 I18 002246 003431 002272 %#0500 0000 0000 0500 1000 1000 0000 %0324 J10 002328 003849 000425 %#0500 0000 0125 0500 1000 0875 0000 %0325 J11 002397 004252 -00866 %#0500 0000 0250 0500 1000 0750 0000 %0326 J12 002466 004672 -01873 %#0500 0000 0375 0500 1000 0625 0000 %0327 J13 002529 005216 -02957 %#0500 0000 0500 0500 1000 0500 0000 %0328 J14 002596 005755 -03867 %#0500 0000 0625 0500 1000 0375 0000 %0329 J15 002652 006176 -04492 %#0500 0000 0750 0500 1000 0250 0000 %0330 J16 002670 006402 -04788 %#0500 0000 0875 0500 1000 0125 0000 %0331 J17 002669 006419 -04819 %#0500 0000 1000 0500 1000 0000 0000 %0332 J18 002920 002364 003147 %#0500 0125 0000 0500 0875 1000 0000 %0333 K10 003053 002682 001208 %#0500 0125 0125 0500 0875 0875 0000 %0334 K11 003158 003036 -00188 %#0500 0125 0250 0500 0875 0750 0000 %0335 K12 003239 003416 -01284 %#0500 0125 0375 0500 0875 0625 0000 %0336 K13 003302 003955 -02483 %#0500 0125 0500 0500 0875 0500 0000 %0337 K14 003391 004562 -03541 %#0500 0125 0625 0500 0875 0375 0000 %0338 K15 003460 005076 -04322 %#0500 0125 0750 0500 0875 0250 0000 %0339 K16 003482 005364 -04713 %#0500 0125 0875 0500 0875 0125 0000 %0340 K17 003475 005414 -04770 %#0500 0125 1000 0500 0875 0000 0000 %0341 K18 003713 001039 004194 %#0500 0250 0000 0500 0750 1000 0000 %0342 L10 003850 001241 002191 %#0500 0250 0125 0500 0750 0875 0000 %0343 L11 003969 001532 000740 %#0500 0250 0250 0500 0750 0750 0000 %0344 L12 004067 001904 -00438 %#0500 0250 0375 0500 0750 0625 0000 %0345 L13 004133 002430 -01713 %#0500 0250 0500 0500 0750 0500 0000 %0346 L14 004221 003115 -02946 %#0500 0250 0625 0500 0750 0375 0000 %0347 L15 004286 003671 -03836 %#0500 0250 0750 0500 0750 0250 0000 %0348 L16 004317 004020 -04337 %#0500 0250 0875 0500 0750 0125 0000 %0349 L17 004325 004067 -04392 %#0500 0250 1000 0500 0750 0000 0000 %0350 L18 004485 -00220 005228 %#0500 0375 0000 0500 0625 1000 0000 %0351 M10 004643 -00058 003177 %#0500 0375 0125 0500 0625 0875 0000 %0352 M11 004748 000155 001697 %#0500 0375 0250 0500 0625 0750 0000 %0353 M12 004834 000497 000468 %#0500 0375 0375 0500 0625 0625 0000 %0354 M13 004902 001016 -00918 %#0500 0375 0500 0500 0625 0500 0000 %0355 M14 005008 001661 -02199 %#0500 0375 0625 0500 0625 0375 0000 %0356 M15 005060 002292 -03240 %#0500 0375 0750 0500 0625 0250 0000 %0357 M16 005097 002701 -03837 %#0500 0375 0875 0500 0625 0125 0000 %0358 M17 005099 002757 -03904 %#0500 0375 1000 0500 0625 0000 0000 %0359 M18 005261 -01443 006283 %#0500 0500 0000 0500 0500 1000 0000 %0360 N10 005418 -01358 004235 %#0500 0500 0125 0500 0500 0875 0000 %0361 N11 005522 -01165 002701 %#0500 0500 0250 0500 0500 0750 0000 %0362 N12 005607 -00855 001407 %#0500 0500 0375 0500 0500 0625 0000 %0363 N13 005686 -00409 000005 %#0500 0500 0500 0500 0500 0500 0000 %0364 N14 005771 000223 -01382 %#0500 0500 0625 0500 0500 0375 0000 %0365 N15 005842 000862 -02541 %#0500 0500 0750 0500 0500 0250 0000 %0366 N16 005883 001295 -03231 %#0500 0500 0875 0500 0500 0125 0000 %0367 N17 005880 001360 -03323 %#0500 0500 1000 0500 0500 0000 0000 %0368 N18 005896 -02393 007162 %#0500 0625 0000 0500 0375 1000 0000 %0369 O10 006052 -02370 005126 %#0500 0625 0125 0500 0375 0875 0000 %0370 O11 006166 -02239 003555 %#0500 0625 0250 0500 0375 0750 0000 %0371 O12 006247 -02016 002287 %#0500 0625 0375 0500 0375 0625 0000 %0372 O13 006342 -01589 000803 %#0500 0625 0500 0500 0375 0500 0000 %0373 O14 006433 -01014 -00631 %#0500 0625 0625 0500 0375 0375 0000 %0374 O15 006516 -00394 -01863 %#0500 0625 0750 0500 0375 0250 0000 %0375 O16 006562 000058 -02637 %#0500 0625 0875 0500 0375 0125 0000 %0376 O17 006562 000128 -02742 %#0500 0625 1000 0500 0375 0000 0000 %0377 O18 006393 -03094 007860 %#0500 0750 0000 0500 0250 1000 0000 %0378 P10 006580 -03191 005859 %#0500 0750 0125 0500 0250 0875 0000 %0379 P11 006708 -03137 004327 %#0500 0750 0250 0500 0250 0750 0000 %0380 P12 006814 -02968 003056 %#0500 0750 0375 0500 0250 0625 0000 %0381 P13 006915 -02632 001564 %#0500 0750 0500 0500 0250 0500 0000 %0382 P14 007039 -02143 000106 %#0500 0750 0625 0500 0250 0375 0000 %0383 P15 007124 -01575 -01176 %#0500 0750 0750 0500 0250 0250 0000 %0384 P16 007191 -01138 -02023 %#0500 0750 0875 0500 0250 0125 0000 %0385 P17 007189 -01066 -02141 %#0500 0750 1000 0500 0250 0000 0000 %0386 P18 006744 -03575 008374 %#0500 0875 0000 0500 0125 1000 0000 %0387 Q10 006989 -03808 006449 %#0500 0875 0125 0500 0125 0875 0000 %0388 Q11 007141 -03819 004930 %#0500 0875 0250 0500 0125 0750 0000 %0389 Q12 007254 -03727 003661 %#0500 0875 0375 0500 0125 0625 0000 %0390 Q13 007383 -03481 002188 %#0500 0875 0500 0500 0125 0500 0000 %0391 Q14 007518 -03067 000704 %#0500 0875 0625 0500 0125 0375 0000 %0392 Q15 007636 -02552 -00613 %#0500 0875 0750 0500 0125 0250 0000 %0393 Q16 007708 -02142 -01504 %#0500 0875 0875 0500 0125 0125 0000 %0394 Q17 007716 -02083 -01622 %#0500 0875 1000 0500 0125 0000 0000 %0395 Q18 006742 -03606 008379 %#0500 1000 0000 0500 0000 1000 0000 %0396 R10 007003 -03821 006494 %#0500 1000 0125 0500 0000 0875 0000 %0397 R11 007143 -03854 004961 %#0500 1000 0250 0500 0000 0750 0000 %0398 R12 007270 -03748 003687 %#0500 1000 0375 0500 0000 0625 0000 %0399 R13 007399 -03511 002221 %#0500 1000 0500 0500 0000 0500 0000 %0400 R14 007542 -03103 000741 %#0500 1000 0625 0500 0000 0375 0000 %0401 R15 007652 -02601 -00584 %#0500 1000 0750 0500 0000 0250 0000 %0402 R16 007736 -02177 -01478 %#0500 1000 0875 0500 0000 0125 0000 %0403 R17 007735 -02128 -01604 %#0500 1000 1000 0500 0000 0000 0000 %0404 R18 002728 004430 003072 %#0625 0000 0000 0375 1000 1000 0000 %0405 S10 002779 004715 001163 %#0625 0000 0125 0375 1000 0875 0000 %0406 S11 002828 005035 -00207 %#0625 0000 0250 0375 1000 0750 0000 %0407 S12 002883 005375 -01265 %#0625 0000 0375 0375 1000 0625 0000 %0408 S13 002942 005826 -02374 %#0625 0000 0500 0375 1000 0500 0000 %0409 S14 002998 006314 -03354 %#0625 0000 0625 0375 1000 0375 0000 %0410 S15 003033 006671 -03998 %#0625 0000 0750 0375 1000 0250 0000 %0411 S16 003051 006879 -04300 %#0625 0000 0875 0375 1000 0125 0000 %0412 S17 003051 006887 -04338 %#0625 0000 1000 0375 1000 0000 0000 %0413 S18 003424 003425 003938 %#0625 0125 0000 0375 0875 1000 0000 %0414 T10 003520 003648 001897 %#0625 0125 0125 0375 0875 0875 0000 %0415 T11 003603 003906 000446 %#0625 0125 0250 0375 0875 0750 0000 %0416 T12 003686 004221 -00712 %#0625 0125 0375 0375 0875 0625 0000 %0417 T13 003744 004705 -01958 %#0625 0125 0500 0375 0875 0500 0000 %0418 T14 003816 005222 -03065 %#0625 0125 0625 0375 0875 0375 0000 %0419 T15 003865 005663 -03856 %#0625 0125 0750 0375 0875 0250 0000 %0420 T16 003898 005926 -04265 %#0625 0125 0875 0375 0875 0125 0000 %0421 T17 003883 005954 -04320 %#0625 0125 1000 0375 0875 0000 0000 %0422 T18 004238 002136 004983 %#0625 0250 0000 0375 0750 1000 0000 %0423 U10 004360 002284 002860 %#0625 0250 0125 0375 0750 0875 0000 %0424 U11 004471 002513 001341 %#0625 0250 0250 0375 0750 0750 0000 %0425 U12 004543 002780 000121 %#0625 0250 0375 0375 0750 0625 0000 %0426 U13 004597 003254 -01209 %#0625 0250 0500 0375 0750 0500 0000 %0427 U14 004690 003823 -02461 %#0625 0250 0625 0375 0750 0375 0000 %0428 U15 004728 004321 -03390 %#0625 0250 0750 0375 0750 0250 0000 %0429 U16 004765 004607 -03892 %#0625 0250 0875 0375 0750 0125 0000 %0430 U17 004757 004654 -03957 %#0625 0250 1000 0375 0750 0000 0000 %0431 U18 005018 000893 006037 %#0625 0375 0000 0375 0625 1000 0000 %0432 V10 005134 000982 003857 %#0625 0375 0125 0375 0625 0875 0000 %0433 V11 005243 001166 002282 %#0625 0375 0250 0375 0625 0750 0000 %0434 V12 005311 001436 000996 %#0625 0375 0375 0375 0625 0625 0000 %0435 V13 005392 001890 -00415 %#0625 0375 0500 0375 0625 0500 0000 %0436 V14 005458 002435 -01740 %#0625 0375 0625 0375 0625 0375 0000 %0437 V15 005509 002980 -02797 %#0625 0375 0750 0375 0625 0250 0000 %0438 V16 005513 003361 -03430 %#0625 0375 0875 0375 0625 0125 0000 %0439 V17 005513 003402 -03506 %#0625 0375 1000 0375 0625 0000 0000 %0440 V18 005788 -00329 007094 %#0625 0500 0000 0375 0500 1000 0000 %0441 W10 005926 -00283 004914 %#0625 0500 0125 0375 0500 0875 0000 %0442 W11 006012 -00146 003291 %#0625 0500 0250 0375 0500 0750 0000 %0443 W12 006078 000100 001935 %#0625 0500 0375 0375 0500 0625 0000 %0444 W13 006162 000493 000504 %#0625 0500 0500 0375 0500 0500 0000 %0445 W14 006223 001035 -00923 %#0625 0500 0625 0375 0500 0375 0000 %0446 W15 006279 001602 -02114 %#0625 0500 0750 0375 0500 0250 0000 %0447 W16 006312 001992 -02839 %#0625 0500 0875 0375 0500 0125 0000 %0448 W17 006304 002045 -02939 %#0625 0500 1000 0375 0500 0000 0000 %0449 W18 006457 -01291 008029 %#0625 0625 0000 0375 0375 1000 0000 %0450 X10 006562 -01324 005808 %#0625 0625 0125 0375 0375 0875 0000 %0451 X11 006673 -01242 004187 %#0625 0625 0250 0375 0375 0750 0000 %0452 X12 006757 -01062 002834 %#0625 0625 0375 0375 0375 0625 0000 %0453 X13 006840 -00691 001335 %#0625 0625 0500 0375 0375 0500 0000 %0454 X14 006903 -00212 -00146 %#0625 0625 0625 0375 0375 0375 0000 %0455 X15 006975 000327 -01415 %#0625 0625 0750 0375 0375 0250 0000 %0456 X16 007024 000733 -02226 %#0625 0625 0875 0375 0375 0125 0000 %0457 X17 007032 000792 -02332 %#0625 0625 1000 0375 0375 0000 0000 %0458 X18 006965 -02078 008732 %#0625 0750 0000 0375 0250 1000 0000 %0459 Y10 007143 -02215 006652 %#0625 0750 0125 0375 0250 0875 0000 %0460 Y11 007266 -02206 005010 %#0625 0750 0250 0375 0250 0750 0000 %0461 Y12 007351 -02095 003676 %#0625 0750 0375 0375 0250 0625 0000 %0462 Y13 007450 -01822 002183 %#0625 0750 0500 0375 0250 0500 0000 %0463 Y14 007565 -01411 000642 %#0625 0750 0625 0375 0250 0375 0000 %0464 Y15 007627 -00924 -00675 %#0625 0750 0750 0375 0250 0250 0000 %0465 Y16 007687 -00505 -01578 %#0625 0750 0875 0375 0250 0125 0000 %0466 Y17 007677 -00442 -01708 %#0625 0750 1000 0375 0250 0000 0000 %0467 Y18 007344 -02606 009283 %#0625 0875 0000 0375 0125 1000 0000 %0468 Z10 007562 -02887 007256 %#0625 0875 0125 0375 0125 0875 0000 %0469 Z11 007700 -02960 005681 %#0625 0875 0250 0375 0125 0750 0000 %0470 Z12 007824 -02906 004338 %#0625 0875 0375 0375 0125 0625 0000 %0471 Z13 007942 -02730 002862 %#0625 0875 0500 0375 0125 0500 0000 %0472 Z14 008072 -02396 001332 %#0625 0875 0625 0375 0125 0375 0000 %0473 Z15 008169 -01968 -00026 %#0625 0875 0750 0375 0125 0250 0000 %0474 Z16 008240 -01598 -00967 %#0625 0875 0875 0375 0125 0125 0000 %0475 Z17 008241 -01546 -01103 %#0625 0875 1000 0375 0125 0000 0000 %0476 Z18 007349 -02612 009289 %#0625 1000 0000 0375 0000 1000 0000 %0477 a10 007580 -02902 007289 %#0625 1000 0125 0375 0000 0875 0000 %0478 a11 007728 -02969 005704 %#0625 1000 0250 0375 0000 0750 0000 %0479 a12 007837 -02930 004385 %#0625 1000 0375 0375 0000 0625 0000 %0480 a13 007963 -02758 002908 %#0625 1000 0500 0375 0000 0500 0000 %0481 a14 008090 -02432 001371 %#0625 1000 0625 0375 0000 0375 0000 %0482 a15 008195 -02004 000007 %#0625 1000 0750 0375 0000 0250 0000 %0483 a16 008271 -01634 -00930 %#0625 1000 0875 0375 0000 0125 0000 %0484 a17 008270 -01589 -01069 %#0625 1000 1000 0375 0000 0000 0000 %0485 a18 003179 005362 003879 %#0750 0000 0000 0250 1000 1000 0000 %0486 A19 003215 005602 001847 %#0750 0000 0125 0250 1000 0875 0000 %0487 A20 003251 005853 000437 %#0750 0000 0250 0250 1000 0750 0000 %0488 A21 003300 006120 -00670 %#0750 0000 0375 0250 1000 0625 0000 %0489 A22 003329 006468 -01789 %#0750 0000 0500 0250 1000 0500 0000 %0490 A23 003372 006844 -02755 %#0750 0000 0625 0250 1000 0375 0000 %0491 A24 003400 007188 -03424 %#0750 0000 0750 0250 1000 0250 0000 %0492 A25 003407 007331 -03738 %#0750 0000 0875 0250 1000 0125 0000 %0493 A26 003393 007391 -03781 %#0750 0000 1000 0250 1000 0000 0000 %0494 A27 003891 004509 004730 %#0750 0125 0000 0250 0875 1000 0000 %0495 B19 003963 004685 002561 %#0750 0125 0125 0250 0875 0875 0000 %0496 B20 004027 004900 001042 %#0750 0125 0250 0250 0875 0750 0000 %0497 B21 004076 005170 -00190 %#0750 0125 0375 0250 0875 0625 0000 %0498 B22 004120 005550 -01427 %#0750 0125 0500 0250 0875 0500 0000 %0499 B23 004163 005973 -02536 %#0750 0125 0625 0250 0875 0375 0000 %0500 B24 004185 006365 -03338 %#0750 0125 0750 0250 0875 0250 0000 %0501 B25 004190 006609 -03783 %#0750 0125 0875 0250 0875 0125 0000 %0502 B26 004165 006676 -03837 %#0750 0125 1000 0250 0875 0000 0000 %0503 B27 004675 003332 005727 %#0750 0250 0000 0250 0750 1000 0000 %0504 C19 004764 003445 003511 %#0750 0250 0125 0250 0750 0875 0000 %0505 C20 004827 003646 001883 %#0750 0250 0250 0250 0750 0750 0000 %0506 C21 004896 003881 000622 %#0750 0250 0375 0250 0750 0625 0000 %0507 C22 004924 004272 -00726 %#0750 0250 0500 0250 0750 0500 0000 %0508 C23 004979 004730 -01977 %#0750 0250 0625 0250 0750 0375 0000 %0509 C24 005013 005165 -02924 %#0750 0250 0750 0250 0750 0250 0000 %0510 C25 005007 005477 -03497 %#0750 0250 0875 0250 0750 0125 0000 %0511 C26 004990 005552 -03576 %#0750 0250 1000 0250 0750 0000 0000 %0512 C27 005462 002147 006773 %#0750 0375 0000 0250 0625 1000 0000 %0513 D19 005545 002217 004471 %#0750 0375 0125 0250 0625 0875 0000 %0514 D20 005609 002363 002832 %#0750 0375 0250 0250 0625 0750 0000 %0515 D21 005650 002615 001483 %#0750 0375 0375 0250 0625 0625 0000 %0516 D22 005687 002985 000058 %#0750 0375 0500 0250 0625 0500 0000 %0517 D23 005740 003442 -01285 %#0750 0375 0625 0250 0625 0375 0000 %0518 D24 005776 003919 -02365 %#0750 0375 0750 0250 0625 0250 0000 %0519 D25 005757 004319 -03073 %#0750 0375 0875 0250 0625 0125 0000 %0520 D26 005717 004413 -03185 %#0750 0375 1000 0250 0625 0000 0000 %0521 D27 006253 000948 007851 %#0750 0500 0000 0250 0500 1000 0000 %0522 E19 006319 000977 005519 %#0750 0500 0125 0250 0500 0875 0000 %0523 E20 006376 001098 003841 %#0750 0500 0250 0250 0500 0750 0000 %0524 E21 006421 001323 002420 %#0750 0500 0375 0250 0500 0625 0000 %0525 E22 006467 001631 000984 %#0750 0500 0500 0250 0500 0500 0000 %0526 E23 006515 002097 -00473 %#0750 0500 0625 0250 0500 0375 0000 %0527 E24 006553 002596 -01692 %#0750 0500 0750 0250 0500 0250 0000 %0528 E25 006558 002999 -02507 %#0750 0500 0875 0250 0500 0125 0000 %0529 E26 006528 003087 -02636 %#0750 0500 1000 0250 0500 0000 0000 %0530 E27 006914 -00053 008782 %#0750 0625 0000 0250 0375 1000 0000 %0531 F19 006989 -00082 006476 %#0750 0625 0125 0250 0375 0875 0000 %0532 F20 007056 -00024 004771 %#0750 0625 0250 0250 0375 0750 0000 %0533 F21 007118 000130 003381 %#0750 0625 0375 0250 0375 0625 0000 %0534 F22 007176 000405 001885 %#0750 0625 0500 0250 0375 0500 0000 %0535 F23 007232 000819 000365 %#0750 0625 0625 0250 0375 0375 0000 %0536 F24 007279 001314 -00966 %#0750 0625 0750 0250 0375 0250 0000 %0537 F25 007286 001749 -01896 %#0750 0625 0875 0250 0375 0125 0000 %0538 F26 007268 001838 -02041 %#0750 0625 1000 0250 0375 0000 0000 %0539 F27 007489 -00879 009591 %#0750 0750 0000 0250 0250 1000 0000 %0540 G19 007607 -01034 007337 %#0750 0750 0125 0250 0250 0875 0000 %0541 G20 007704 -01060 005694 %#0750 0750 0250 0250 0250 0750 0000 %0542 G21 007777 -00973 004300 %#0750 0750 0375 0250 0250 0625 0000 %0543 G22 007850 -00769 002787 %#0750 0750 0500 0250 0250 0500 0000 %0544 G23 007934 -00448 001259 %#0750 0750 0625 0250 0250 0375 0000 %0545 G24 007998 -00005 -00139 %#0750 0750 0750 0250 0250 0250 0000 %0546 G25 008031 000411 -01164 %#0750 0750 0875 0250 0250 0125 0000 %0547 G26 008015 000505 -01338 %#0750 0750 1000 0250 0250 0000 0000 %0548 G27 007910 -01505 010208 %#0750 0875 0000 0250 0125 1000 0000 %0549 H19 008122 -01813 008067 %#0750 0875 0125 0250 0125 0875 0000 %0550 H20 008236 -01919 006462 %#0750 0875 0250 0250 0125 0750 0000 %0551 H21 008332 -01911 005098 %#0750 0875 0375 0250 0125 0625 0000 %0552 H22 008446 -01813 003630 %#0750 0875 0500 0250 0125 0500 0000 %0553 H23 008540 -01582 002087 %#0750 0875 0625 0250 0125 0375 0000 %0554 H24 008643 -01226 000659 %#0750 0875 0750 0250 0125 0250 0000 %0555 H25 008706 -00880 -00410 %#0750 0875 0875 0250 0125 0125 0000 %0556 H26 008712 -00821 -00578 %#0750 0875 1000 0250 0125 0000 0000 %0557 H27 007929 -01506 010226 %#0750 1000 0000 0250 0000 1000 0000 %0558 I19 008138 -01832 008107 %#0750 1000 0125 0250 0000 0875 0000 %0559 I20 008272 -01948 006515 %#0750 1000 0250 0250 0000 0750 0000 %0560 I21 008368 -01945 005136 %#0750 1000 0375 0250 0000 0625 0000 %0561 I22 008479 -01851 003672 %#0750 1000 0500 0250 0000 0500 0000 %0562 I23 008589 -01624 002123 %#0750 1000 0625 0250 0000 0375 0000 %0563 I24 008689 -01280 000702 %#0750 1000 0750 0250 0000 0250 0000 %0564 I25 008748 -00933 -00374 %#0750 1000 0875 0250 0000 0125 0000 %0565 I26 008756 -00883 -00545 %#0750 1000 1000 0250 0000 0000 0000 %0566 I27 003490 005936 004353 %#0875 0000 0000 0125 1000 1000 0000 %0567 J19 003529 006180 002242 %#0875 0000 0125 0125 1000 0875 0000 %0568 J20 003566 006417 000823 %#0875 0000 0250 0125 1000 0750 0000 %0569 J21 003609 006680 -00296 %#0875 0000 0375 0125 1000 0625 0000 %0570 J22 003633 007023 -01426 %#0875 0000 0500 0125 1000 0500 0000 %0571 J23 003674 007375 -02384 %#0875 0000 0625 0125 1000 0375 0000 %0572 J24 003701 007650 -03024 %#0875 0000 0750 0125 1000 0250 0000 %0573 J25 003707 007811 -03348 %#0875 0000 0875 0125 1000 0125 0000 %0574 J26 003713 007828 -03366 %#0875 0000 1000 0125 1000 0000 0000 %0575 J27 004239 005165 005275 %#0875 0125 0000 0125 0875 1000 0000 %0576 K19 004321 005342 003028 %#0875 0125 0125 0125 0875 0875 0000 %0577 K20 004378 005545 001479 %#0875 0125 0250 0125 0875 0750 0000 %0578 K21 004430 005787 000271 %#0875 0125 0375 0125 0875 0625 0000 %0579 K22 004463 006163 -01012 %#0875 0125 0500 0125 0875 0500 0000 %0580 K23 004506 006536 -02097 %#0875 0125 0625 0125 0875 0375 0000 %0581 K24 004535 006895 -02911 %#0875 0125 0750 0125 0875 0250 0000 %0582 K25 004533 007130 -03367 %#0875 0125 0875 0125 0875 0125 0000 %0583 K26 004506 007191 -03413 %#0875 0125 1000 0125 0875 0000 0000 %0584 K27 005035 004098 006293 %#0875 0250 0000 0125 0750 1000 0000 %0585 L19 005123 004215 003999 %#0875 0250 0125 0125 0750 0875 0000 %0586 L20 005180 004397 002358 %#0875 0250 0250 0125 0750 0750 0000 %0587 L21 005240 004613 001066 %#0875 0250 0375 0125 0750 0625 0000 %0588 L22 005267 004983 -00290 %#0875 0250 0500 0125 0750 0500 0000 %0589 L23 005302 005403 -01532 %#0875 0250 0625 0125 0750 0375 0000 %0590 L24 005337 005802 -02494 %#0875 0250 0750 0125 0750 0250 0000 %0591 L25 005347 006088 -03077 %#0875 0250 0875 0125 0750 0125 0000 %0592 L26 005324 006148 -03146 %#0875 0250 1000 0125 0750 0000 0000 %0593 L27 005809 002981 007321 %#0875 0375 0000 0125 0625 1000 0000 %0594 M19 005880 003084 004939 %#0875 0375 0125 0125 0625 0875 0000 %0595 M20 005934 003236 003259 %#0875 0375 0250 0125 0625 0750 0000 %0596 M21 005972 003470 001877 %#0875 0375 0375 0125 0625 0625 0000 %0597 M22 006021 003793 000470 %#0875 0375 0500 0125 0625 0500 0000 %0598 M23 006047 004235 -00888 %#0875 0375 0625 0125 0625 0375 0000 %0599 M24 006076 004666 -01963 %#0875 0375 0750 0125 0625 0250 0000 %0600 M25 006076 005019 -02674 %#0875 0375 0875 0125 0625 0125 0000 %0601 M26 006058 005091 -02770 %#0875 0375 1000 0125 0625 0000 0000 %0602 M27 006586 001842 008383 %#0875 0500 0000 0125 0500 1000 0000 %0603 N19 006659 001899 005992 %#0875 0500 0125 0125 0500 0875 0000 %0604 N20 006711 002021 004252 %#0875 0500 0250 0125 0500 0750 0000 %0605 N21 006745 002220 002852 %#0875 0500 0375 0125 0500 0625 0000 %0606 N22 006800 002513 001390 %#0875 0500 0500 0125 0500 0500 0000 %0607 N23 006835 002920 -00037 %#0875 0500 0625 0125 0500 0375 0000 %0608 N24 006874 003381 -01285 %#0875 0500 0750 0125 0500 0250 0000 %0609 N25 006873 003775 -02120 %#0875 0500 0875 0125 0500 0125 0000 %0610 N26 006848 003863 -02250 %#0875 0500 1000 0125 0500 0000 0000 %0611 N27 007253 000884 009328 %#0875 0625 0000 0125 0375 1000 0000 %0612 O19 007329 000883 006919 %#0875 0625 0125 0125 0375 0875 0000 %0613 O20 007413 000938 005219 %#0875 0625 0250 0125 0375 0750 0000 %0614 O21 007452 001081 003775 %#0875 0625 0375 0125 0375 0625 0000 %0615 O22 007520 001328 002286 %#0875 0625 0500 0125 0375 0500 0000 %0616 O23 007558 001692 000802 %#0875 0625 0625 0125 0375 0375 0000 %0617 O24 007616 002127 -00524 %#0875 0625 0750 0125 0375 0250 0000 %0618 O25 007630 002533 -01479 %#0875 0625 0875 0125 0375 0125 0000 %0619 O26 007613 002624 -01628 %#0875 0625 1000 0125 0375 0000 0000 %0620 O27 007847 000067 010170 %#0875 0750 0000 0125 0250 1000 0000 %0621 P19 007973 -00055 007856 %#0875 0750 0125 0125 0250 0875 0000 %0622 P20 008075 -00079 006162 %#0875 0750 0250 0125 0250 0750 0000 %0623 P21 008152 -00012 004756 %#0875 0750 0375 0125 0250 0625 0000 %0624 P22 008220 000164 003272 %#0875 0750 0500 0125 0250 0500 0000 %0625 P23 008299 000434 001749 %#0875 0750 0625 0125 0250 0375 0000 %0626 P24 008361 000829 000340 %#0875 0750 0750 0125 0250 0250 0000 %0627 P25 008384 001227 -00727 %#0875 0750 0875 0125 0250 0125 0000 %0628 P26 008371 001321 -00906 %#0875 0750 1000 0125 0250 0000 0000 %0629 P27 008321 -00568 010877 %#0875 0875 0000 0125 0125 1000 0000 %0630 Q19 008539 -00848 008680 %#0875 0875 0125 0125 0125 0875 0000 %0631 Q20 008659 -00957 007012 %#0875 0875 0250 0125 0125 0750 0000 %0632 Q21 008767 -00966 005624 %#0875 0875 0375 0125 0125 0625 0000 %0633 Q22 008862 -00878 004128 %#0875 0875 0500 0125 0125 0500 0000 %0634 Q23 008961 -00688 002612 %#0875 0875 0625 0125 0125 0375 0000 %0635 Q24 009053 -00386 001182 %#0875 0875 0750 0125 0125 0250 0000 %0636 Q25 009109 -00061 000069 %#0875 0875 0875 0125 0125 0125 0000 %0637 Q26 009111 000003 -00116 %#0875 0875 1000 0125 0125 0000 0000 %0638 Q27 008344 -00584 010923 %#0875 1000 0000 0125 0000 1000 0000 %0639 R19 008567 -00878 008745 %#0875 1000 0125 0125 0000 0875 0000 %0640 R20 008685 -00995 007085 %#0875 1000 0250 0125 0000 0750 0000 %0641 R21 008793 -01010 005690 %#0875 1000 0375 0125 0000 0625 0000 %0642 R22 008892 -00931 004206 %#0875 1000 0500 0125 0000 0500 0000 %0643 R23 008996 -00747 002678 %#0875 1000 0625 0125 0000 0375 0000 %0644 R24 009086 -00447 001232 %#0875 1000 0750 0125 0000 0250 0000 %0645 R25 009140 -00125 000108 %#0875 1000 0875 0125 0000 0125 0000 %0646 R26 009156 -00068 -00069 %#0875 1000 1000 0125 0000 0000 0000 %0647 R27 003506 005999 004401 %#1000 0000 0000 0000 1000 1000 0000 %0648 S19 003553 006230 002311 %#1000 0000 0125 0000 1000 0875 0000 %0649 S20 003594 006475 000863 %#1000 0000 0250 0000 1000 0750 0000 %0650 S21 003633 006737 -00275 %#1000 0000 0375 0000 1000 0625 0000 %0651 S22 003658 007075 -01398 %#1000 0000 0500 0000 1000 0500 0000 %0652 S23 003699 007414 -02353 %#1000 0000 0625 0000 1000 0375 0000 %0653 S24 003728 007699 -02997 %#1000 0000 0750 0000 1000 0250 0000 %0654 S25 003737 007855 -03325 %#1000 0000 0875 0000 1000 0125 0000 %0655 S26 003737 007864 -03349 %#1000 0000 1000 0000 1000 0000 0000 %0656 S27 004268 005229 005298 %#1000 0125 0000 0000 0875 1000 0000 %0657 T19 004354 005394 003052 %#1000 0125 0125 0000 0875 0875 0000 %0658 T20 004408 005605 001516 %#1000 0125 0250 0000 0875 0750 0000 %0659 T21 004457 005849 000294 %#1000 0125 0375 0000 0875 0625 0000 %0660 T22 004495 006199 -00964 %#1000 0125 0500 0000 0875 0500 0000 %0661 T23 004538 006591 -02073 %#1000 0125 0625 0000 0875 0375 0000 %0662 T24 004568 006932 -02875 %#1000 0125 0750 0000 0875 0250 0000 %0663 T25 004565 007164 -03334 %#1000 0125 0875 0000 0875 0125 0000 %0664 T26 004551 007207 -03383 %#1000 0125 1000 0000 0875 0000 0000 %0665 T27 005092 004108 006354 %#1000 0250 0000 0000 0750 1000 0000 %0666 U19 005177 004236 004004 %#1000 0250 0125 0000 0750 0875 0000 %0667 U20 005246 004406 002376 %#1000 0250 0250 0000 0750 0750 0000 %0668 U21 005293 004643 001077 %#1000 0250 0375 0000 0750 0625 0000 %0669 U22 005329 005003 -00267 %#1000 0250 0500 0000 0750 0500 0000 %0670 U23 005383 005405 -01510 %#1000 0250 0625 0000 0750 0375 0000 %0671 U24 005406 005815 -02468 %#1000 0250 0750 0000 0750 0250 0000 %0672 U25 005405 006099 -03039 %#1000 0250 0875 0000 0750 0125 0000 %0673 U26 005372 006181 -03120 %#1000 0250 1000 0000 0750 0000 0000 %0674 U27 005851 003030 007353 %#1000 0375 0000 0000 0625 1000 0000 %0675 V19 005917 003125 004929 %#1000 0375 0125 0000 0625 0875 0000 %0676 V20 005982 003284 003254 %#1000 0375 0250 0000 0625 0750 0000 %0677 V21 006030 003501 001901 %#1000 0375 0375 0000 0625 0625 0000 %0678 V22 006060 003849 000476 %#1000 0375 0500 0000 0625 0500 0000 %0679 V23 006106 004268 -00855 %#1000 0375 0625 0000 0625 0375 0000 %0680 V24 006135 004712 -01953 %#1000 0375 0750 0000 0625 0250 0000 %0681 V25 006137 005043 -02635 %#1000 0375 0875 0000 0625 0125 0000 %0682 V26 006116 005121 -02728 %#1000 0375 1000 0000 0625 0000 0000 %0683 V27 006648 001890 008453 %#1000 0500 0000 0000 0500 1000 0000 %0684 W19 006716 001945 006010 %#1000 0500 0125 0000 0500 0875 0000 %0685 W20 006773 002069 004288 %#1000 0500 0250 0000 0500 0750 0000 %0686 W21 006813 002267 002852 %#1000 0500 0375 0000 0500 0625 0000 %0687 W22 006868 002561 001393 %#1000 0500 0500 0000 0500 0500 0000 %0688 W23 006889 002976 -00015 %#1000 0500 0625 0000 0500 0375 0000 %0689 W24 006935 003438 -01271 %#1000 0500 0750 0000 0500 0250 0000 %0690 W25 006943 003805 -02075 %#1000 0500 0875 0000 0500 0125 0000 %0691 W26 006927 003880 -02193 %#1000 0500 1000 0000 0500 0000 0000 %0692 W27 007319 000950 009401 %#1000 0625 0000 0000 0375 1000 0000 %0693 X19 007398 000941 006947 %#1000 0625 0125 0000 0375 0875 0000 %0694 X20 007477 000999 005182 %#1000 0625 0250 0000 0375 0750 0000 %0695 X21 007530 001130 003793 %#1000 0625 0375 0000 0375 0625 0000 %0696 X22 007583 001385 002296 %#1000 0625 0500 0000 0375 0500 0000 %0697 X23 007634 001751 000814 %#1000 0625 0625 0000 0375 0375 0000 %0698 X24 007681 002184 -00504 %#1000 0625 0750 0000 0375 0250 0000 %0699 X25 007707 002564 -01426 %#1000 0625 0875 0000 0375 0125 0000 %0700 X26 007689 002654 -01578 %#1000 0625 1000 0000 0375 0000 0000 %0701 X27 007899 000139 010210 %#1000 0750 0000 0000 0250 1000 0000 %0702 Y19 008029 000019 007862 %#1000 0750 0125 0000 0250 0875 0000 %0703 Y20 008133 -00009 006150 %#1000 0750 0250 0000 0250 0750 0000 %0704 Y21 008204 000061 004748 %#1000 0750 0375 0000 0250 0625 0000 %0705 Y22 008274 000243 003251 %#1000 0750 0500 0000 0250 0500 0000 %0706 Y23 008351 000514 001736 %#1000 0750 0625 0000 0250 0375 0000 %0707 Y24 008421 000905 000355 %#1000 0750 0750 0000 0250 0250 0000 %0708 Y25 008445 001277 -00688 %#1000 0750 0875 0000 0250 0125 0000 %0709 Y26 008434 001376 -00862 %#1000 0750 1000 0000 0250 0000 0000 %0710 Y27 008361 -00495 010914 %#1000 0875 0000 0000 0125 1000 0000 %0711 Z19 008574 -00778 008670 %#1000 0875 0125 0000 0125 0875 0000 %0712 Z20 008696 -00882 007002 %#1000 0875 0250 0000 0125 0750 0000 %0713 Z21 008785 -00888 005615 %#1000 0875 0375 0000 0125 0625 0000 %0714 Z22 008907 -00796 004122 %#1000 0875 0500 0000 0125 0500 0000 %0715 Z23 008986 -00599 002611 %#1000 0875 0625 0000 0125 0375 0000 %0716 Z24 009094 -00295 001194 %#1000 0875 0750 0000 0125 0250 0000 %0717 Z25 009157 000013 000127 %#1000 0875 0875 0000 0125 0125 0000 %0718 Z26 009165 000072 -00051 %#1000 0875 1000 0000 0125 0000 0000 %0719 Z27 008377 -00516 010932 %#1000 1000 0000 0000 0000 1000 0000 %0720 a19 008593 -00808 008717 %#1000 1000 0125 0000 0000 0875 0000 %0721 a20 008721 -00918 007054 %#1000 1000 0250 0000 0000 0750 0000 %0722 a21 008830 -00929 005675 %#1000 1000 0375 0000 0000 0625 0000 %0723 a22 008932 -00844 004174 %#1000 1000 0500 0000 0000 0500 0000 %0724 a23 009033 -00656 002677 %#1000 1000 0625 0000 0000 0375 0000 %0725 a24 009132 -00357 001238 %#1000 1000 0750 0000 0000 0250 0000 %0726 a25 009194 -00052 000166 %#1000 1000 0875 0000 0000 0125 0000 %0727 a26 009202 000000 000000 %#1000 1000 1000 0000 0000 0000 0000 %0728 a27 009230 -00011 -00001 %#1000 1000 1000 0000 0000 0000 0000 %0729 b01 009195 -00081 -00041 %#0875 1000 1000 0125 0000 0000 0000 %0730 b02 008800 -00853 -00508 %#0750 1000 1000 0250 0000 0000 0000 %0731 b03 008282 -01589 -01073 %#0625 1000 1000 0375 0000 0000 0000 %0732 b04 007755 -02106 -01575 %#0500 1000 1000 0500 0000 0000 0000 %0733 b05 007277 -02468 -01985 %#0375 1000 1000 0625 0000 0000 0000 %0734 b06 006731 -02774 -02388 %#0250 1000 1000 0750 0000 0000 0000 %0735 b07 006047 -02969 -02806 %#0125 1000 1000 0875 0000 0000 0000 %0736 b08 005282 -02935 -03167 %#0000 1000 1000 1000 0000 0000 0000 %0737 b09 009188 000007 000092 %#1000 0875 0875 0000 0125 0125 0000 %0738 c01 009154 -00072 000060 %#0875 0875 0875 0125 0125 0125 0000 %0739 c02 008756 -00854 -00413 %#0750 0875 0875 0250 0125 0125 0000 %0740 c03 008243 -01605 -00983 %#0625 0875 0875 0375 0125 0125 0000 %0741 c04 007721 -02133 -01493 %#0500 0875 0875 0500 0125 0125 0000 %0742 c05 007237 -02515 -01912 %#0375 0875 0875 0625 0125 0125 0000 %0743 c06 006695 -02813 -02325 %#0250 0875 0875 0750 0125 0125 0000 %0744 c07 006032 -03018 -02732 %#0125 0875 0875 0875 0125 0125 0000 %0745 c08 005274 -02992 -03085 %#0000 0875 0875 1000 0125 0125 0000 %0746 c09 008473 000885 000285 %#1000 0750 0750 0000 0250 0250 0000 %0747 d01 008456 000782 000278 %#0875 0750 0750 0125 0250 0250 0000 %0748 d02 008089 -00005 -00191 %#0750 0750 0750 0250 0250 0250 0000 %0749 d03 007628 -00875 -00731 %#0625 0750 0750 0375 0250 0250 0000 %0750 d04 007151 -01547 -01214 %#0500 0750 0750 0500 0250 0250 0000 %0751 d05 006736 -02060 -01627 %#0375 0750 0750 0625 0250 0250 0000 %0752 d06 006265 -02498 -02028 %#0250 0750 0750 0750 0250 0250 0000 %0753 d07 005679 -02840 -02448 %#0125 0750 0750 0875 0250 0250 0000 %0754 d08 004990 -02957 -02780 %#0000 0750 0750 1000 0250 0250 0000 %0755 d09 007711 001723 000729 %#1000 0625 0625 0000 0375 0375 0000 %0756 e01 007672 001636 000743 %#0875 0625 0625 0125 0375 0375 0000 %0757 e02 007322 000785 000330 %#0750 0625 0625 0250 0375 0375 0000 %0758 e03 006887 -00171 -00216 %#0625 0625 0625 0375 0375 0375 0000 %0759 e04 006463 -00976 -00666 %#0500 0625 0625 0500 0375 0375 0000 %0760 e05 006097 -01608 -01086 %#0375 0625 0625 0625 0375 0375 0000 %0761 e06 005663 -02194 -01472 %#0250 0625 0625 0750 0375 0375 0000 %0762 e07 005146 -02695 -01893 %#0125 0625 0625 0875 0375 0375 0000 %0763 e08 004543 -02952 -02223 %#0000 0625 0625 1000 0375 0375 0000 %0764 e09 006897 002548 001344 %#1000 0500 0500 0000 0500 0500 0000 %0765 f01 006890 002451 001339 %#0875 0500 0500 0125 0500 0500 0000 %0766 f02 006568 001573 000974 %#0750 0500 0500 0250 0500 0500 0000 %0767 f03 006139 000529 000445 %#0625 0500 0500 0375 0500 0500 0000 %0768 f04 005730 -00362 -00013 %#0500 0500 0500 0500 0500 0500 0000 %0769 f05 005370 -01095 -00454 %#0375 0500 0500 0625 0500 0500 0000 %0770 f06 004962 -01812 -00861 %#0250 0500 0500 0750 0500 0500 0000 %0771 f07 004503 -02450 -01278 %#0125 0500 0500 0875 0500 0500 0000 %0772 f08 003978 -02863 -01584 %#0000 0500 0500 1000 0500 0500 0000 %0773 f09 006075 003477 001855 %#1000 0375 0375 0000 0625 0625 0000 %0774 g01 006059 003408 001814 %#0875 0375 0375 0125 0625 0625 0000 %0775 g02 005746 002550 001471 %#0750 0375 0375 0250 0625 0625 0000 %0776 g03 005294 001482 000913 %#0625 0375 0375 0375 0625 0625 0000 %0777 g04 004853 000549 000406 %#0500 0375 0375 0500 0625 0625 0000 %0778 g05 004510 -00270 -00046 %#0375 0375 0375 0625 0625 0625 0000 %0779 g06 004125 -01089 -00480 %#0250 0375 0375 0750 0625 0625 0000 %0780 g07 003688 -01790 -00939 %#0125 0375 0375 0875 0625 0625 0000 %0781 g08 003238 -02292 -01256 %#0000 0375 0375 1000 0625 0625 0000 %0782 g09 005275 004409 002332 %#1000 0250 0250 0000 0750 0750 0000 %0783 h01 005250 004355 002295 %#0875 0250 0250 0125 0750 0750 0000 %0784 h02 004922 003582 001895 %#0750 0250 0250 0250 0750 0750 0000 %0785 h03 004450 002523 001304 %#0625 0250 0250 0375 0750 0750 0000 %0786 h04 004029 001565 000761 %#0500 0250 0250 0500 0750 0750 0000 %0787 h05 003651 000678 000266 %#0375 0250 0250 0625 0750 0750 0000 %0788 h06 003271 -00201 -00230 %#0250 0250 0250 0750 0750 0750 0000 %0789 h07 002867 -01007 -00679 %#0125 0250 0250 0875 0750 0750 0000 %0790 h08 002465 -01553 -01034 %#0000 0250 0250 1000 0750 0750 0000 %0791 h09 004417 005362 003030 %#1000 0125 0125 0000 0875 0875 0000 %0792 i01 004394 005310 003009 %#0875 0125 0125 0125 0875 0875 0000 %0793 i02 004060 004631 002580 %#0750 0125 0125 0250 0875 0875 0000 %0794 i03 003584 003625 001911 %#0625 0125 0125 0375 0875 0875 0000 %0795 i04 003139 002669 001282 %#0500 0125 0125 0500 0875 0875 0000 %0796 i05 002759 001726 000694 %#0375 0125 0125 0625 0875 0875 0000 %0797 i06 002376 000805 000145 %#0250 0125 0125 0750 0875 0875 0000 %0798 i07 001959 -00010 -00382 %#0125 0125 0125 0875 0875 0875 0000 %0799 i08 001610 -00656 -00766 %#0000 0125 0125 1000 0875 0875 0000 %0800 i09 003587 006013 004444 %#1000 0000 0000 0000 1000 1000 0000 %0801 j01 003555 005976 004391 %#0875 0000 0000 0125 1000 1000 0000 %0802 j02 003261 005383 003944 %#0750 0000 0000 0250 1000 1000 0000 %0803 j03 002796 004444 003159 %#0625 0000 0000 0375 1000 1000 0000 %0804 j04 002317 003474 002390 %#0500 0000 0000 0500 1000 1000 0000 %0805 j05 001920 002517 001642 %#0375 0000 0000 0625 1000 1000 0000 %0806 j06 001554 001582 001006 %#0250 0000 0000 0750 1000 1000 0000 %0807 j07 001124 000725 000431 %#0125 0000 0000 0875 1000 1000 0000 %0808 j08 000840 -00017 -00010 %#0000 0000 0000 1000 1000 1000 0000 %0809 j09 009201 000003 000002 %#1000 1000 1000 0000 0000 0000 0000 %0810 b10 009134 -00011 -00071 %#0875 0875 1000 0125 0125 0000 0000 %0811 b11 008172 000379 -01184 %#0750 0750 1000 0250 0250 0000 0000 %0812 b12 007063 000775 -02286 %#0625 0625 1000 0375 0375 0000 0000 %0813 b13 005972 001322 -03240 %#0500 0500 1000 0500 0500 0000 0000 %0814 b14 004839 002132 -04118 %#0375 0375 1000 0625 0625 0000 0000 %0815 b15 003693 002968 -04922 %#0250 0250 1000 0750 0750 0000 0000 %0816 b16 002443 004089 -05648 %#0125 0125 1000 0875 0875 0000 0000 %0817 b17 001333 005160 -05941 %#0000 0000 1000 1000 1000 0000 0000 %0818 b18 009186 -00038 000135 %#1000 1000 0875 0000 0000 0125 0000 %0819 c10 009125 -00059 000068 %#0875 0875 0875 0125 0125 0125 0000 %0820 c11 008171 000314 -01061 %#0750 0750 0875 0250 0250 0125 0000 %0821 c12 007058 000704 -02186 %#0625 0625 0875 0375 0375 0125 0000 %0822 c13 005947 001259 -03172 %#0500 0500 0875 0500 0500 0125 0000 %0823 c14 004838 002064 -04057 %#0375 0375 0875 0625 0625 0125 0000 %0824 c15 003682 002922 -04876 %#0250 0250 0875 0750 0750 0125 0000 %0825 c16 002446 004043 -05607 %#0125 0125 0875 0875 0875 0125 0000 %0826 c17 001330 005128 -05910 %#0000 0000 0875 1000 1000 0125 0000 %0827 c18 009123 -00327 001149 %#1000 1000 0750 0000 0000 0250 0000 %0828 d10 009063 -00355 001081 %#0875 0875 0750 0125 0125 0250 0000 %0829 d11 008108 -00040 -00148 %#0750 0750 0750 0250 0250 0250 0000 %0830 d12 007004 000312 -01393 %#0625 0625 0750 0375 0375 0250 0000 %0831 d13 005902 000832 -02491 %#0500 0500 0750 0500 0500 0250 0000 %0832 d14 004785 001667 -03525 %#0375 0375 0750 0625 0625 0250 0000 %0833 d15 003636 002555 -04454 %#0250 0250 0750 0750 0750 0250 0000 %0834 d16 002396 003706 -05271 %#0125 0125 0750 0875 0875 0250 0000 %0835 d17 001294 004817 -05629 %#0000 0000 0750 1000 1000 0250 0000 %0836 d18 009031 -00625 002536 %#1000 1000 0625 0000 0000 0375 0000 %0837 e10 008971 -00659 002483 %#0875 0875 0625 0125 0125 0375 0000 %0838 e11 008017 -00459 001214 %#0750 0750 0625 0250 0250 0375 0000 %0839 e12 006909 -00226 -00135 %#0625 0625 0625 0375 0375 0375 0000 %0840 e13 005820 000237 -01396 %#0500 0500 0625 0500 0500 0375 0000 %0841 e14 004693 001032 -02574 %#0375 0375 0625 0625 0625 0375 0000 %0842 e15 003553 001908 -03658 %#0250 0250 0625 0750 0750 0375 0000 %0843 e16 002313 003076 -04621 %#0125 0125 0625 0875 0875 0375 0000 %0844 e17 001205 004225 -05078 %#0000 0000 0625 1000 1000 0375 0000 %0845 e18 008923 -00826 004053 %#1000 1000 0500 0000 0000 0500 0000 %0846 f10 008865 -00867 004001 %#0875 0875 0500 0125 0125 0500 0000 %0847 f11 007944 -00805 002755 %#0750 0750 0500 0250 0250 0500 0000 %0848 f12 006853 -00723 001368 %#0625 0625 0500 0375 0375 0500 0000 %0849 f13 005736 -00402 000010 %#0500 0500 0500 0500 0500 0500 0000 %0850 f14 004609 000294 -01300 %#0375 0375 0500 0625 0625 0500 0000 %0851 f15 003454 001069 -02530 %#0250 0250 0500 0750 0750 0500 0000 %0852 f16 002195 002195 -03648 %#0125 0125 0500 0875 0875 0500 0000 %0853 f17 001103 003402 -04299 %#0000 0000 0500 1000 1000 0500 0000 %0854 f18 008838 -00925 005529 %#1000 1000 0375 0000 0000 0625 0000 %0855 g10 008784 -00966 005465 %#0875 0875 0375 0125 0125 0625 0000 %0856 g11 007877 -01005 004234 %#0750 0750 0375 0250 0250 0625 0000 %0857 g12 006761 -01061 002804 %#0625 0625 0375 0375 0375 0625 0000 %0858 g13 005665 -00874 001398 %#0500 0500 0375 0500 0500 0625 0000 %0859 g14 004513 -00287 -00020 %#0375 0375 0375 0625 0625 0625 0000 %0860 g15 003343 000376 -01391 %#0250 0250 0375 0750 0750 0625 0000 %0861 g16 002091 001390 -02641 %#0125 0125 0375 0875 0875 0625 0000 %0862 g17 001017 002551 -03452 %#0000 0000 0375 1000 1000 0625 0000 %0863 g18 008730 -00922 006931 %#1000 1000 0250 0000 0000 0750 0000 %0864 h10 008681 -00965 006849 %#0875 0875 0250 0125 0125 0750 0000 %0865 h11 007785 -01074 005639 %#0750 0750 0250 0250 0250 0750 0000 %0866 h12 006672 -01256 004178 %#0625 0625 0250 0375 0375 0750 0000 %0867 h13 005581 -01169 002710 %#0500 0500 0250 0500 0500 0750 0000 %0868 h14 004432 -00696 001200 %#0375 0375 0250 0625 0625 0750 0000 %0869 h15 003246 -00171 -00249 %#0250 0250 0250 0750 0750 0750 0000 %0870 h16 002001 000705 -01648 %#0125 0125 0250 0875 0875 0750 0000 %0871 h17 000937 001778 -02610 %#0000 0000 0250 1000 1000 0750 0000 %0872 h18 008597 -00821 008586 %#1000 1000 0125 0000 0000 0875 0000 %0873 i10 008553 -00862 008522 %#0875 0875 0125 0125 0125 0875 0000 %0874 i11 007699 -01064 007326 %#0750 0750 0125 0250 0250 0875 0000 %0875 i12 006599 -01361 005824 %#0625 0625 0125 0375 0375 0875 0000 %0876 i13 005497 -01366 004278 %#0500 0500 0125 0500 0500 0875 0000 %0877 i14 004337 -01041 002695 %#0375 0375 0125 0625 0625 0875 0000 %0878 i15 003154 -00665 001144 %#0250 0250 0125 0750 0750 0875 0000 %0879 i16 001926 000015 -00410 %#0125 0125 0125 0875 0875 0875 0000 %0880 i17 000868 000936 -01578 %#0000 0000 0125 1000 1000 0875 0000 %0881 i18 008376 -00527 010859 %#1000 1000 0000 0000 0000 1000 0000 %0882 j10 008342 -00559 010807 %#0875 0875 0000 0125 0125 1000 0000 %0883 j11 007563 -00853 009637 %#0750 0750 0000 0250 0250 1000 0000 %0884 j12 006483 -01288 008064 %#0625 0625 0000 0375 0375 1000 0000 %0885 j13 005367 -01430 006423 %#0500 0500 0000 0500 0500 1000 0000 %0886 j14 004164 -01236 004690 %#0375 0375 0000 0625 0625 1000 0000 %0887 j15 002987 -00989 003010 %#0250 0250 0000 0750 0750 1000 0000 %0888 j16 001796 -00549 001339 %#0125 0125 0000 0875 0875 1000 0000 %0889 j17 000799 000005 -00020 %#0000 0000 0000 1000 1000 1000 0000 %0890 j18 009189 000007 000000 %#1000 1000 1000 0000 0000 0000 0000 %0891 b19 009160 000068 -00045 %#1000 0875 1000 0000 0125 0000 0000 %0892 b20 008507 001257 -00785 %#1000 0750 1000 0000 0250 0000 0000 %0893 b21 007771 002507 -01494 %#1000 0625 1000 0000 0375 0000 0000 %0894 b22 007007 003746 -02125 %#1000 0500 1000 0000 0500 0000 0000 %0895 b23 006190 005001 -02672 %#1000 0375 1000 0000 0625 0000 0000 %0896 b24 005447 006080 -03064 %#1000 0250 1000 0000 0750 0000 0000 %0897 b25 004595 007169 -03350 %#1000 0125 1000 0000 0875 0000 0000 %0898 b26 003756 007862 -03306 %#1000 0000 1000 0000 1000 0000 0000 %0899 b27 009152 -00114 000106 %#0875 1000 0875 0125 0000 0125 0000 %0900 c19 009118 -00058 000068 %#0875 0875 0875 0125 0125 0125 0000 %0901 c20 008484 001118 -00670 %#0875 0750 0875 0125 0250 0125 0000 %0902 c21 007741 002389 -01401 %#0875 0625 0875 0125 0375 0125 0000 %0903 c22 006977 003642 -02051 %#0875 0500 0875 0125 0500 0125 0000 %0904 c23 006179 004883 -02605 %#0875 0375 0875 0125 0625 0125 0000 %0905 c24 005414 006012 -03032 %#0875 0250 0875 0125 0750 0125 0000 %0906 c25 004564 007110 -03330 %#0875 0125 0875 0125 0875 0125 0000 %0907 c26 003733 007810 -03300 %#0875 0000 0875 0125 1000 0125 0000 %0908 c27 008709 -01243 000659 %#0750 1000 0750 0250 0000 0250 0000 %0909 d19 008673 -01196 000613 %#0750 0875 0750 0250 0125 0250 0000 %0910 d20 008077 -00028 -00132 %#0750 0750 0750 0250 0250 0250 0000 %0911 d21 007373 001251 -00916 %#0750 0625 0750 0250 0375 0250 0000 %0912 d22 006633 002552 -01663 %#0750 0500 0750 0250 0500 0250 0000 %0913 d23 005830 003888 -02329 %#0750 0375 0750 0250 0625 0250 0000 %0914 d24 005054 005159 -02895 %#0750 0250 0750 0250 0750 0250 0000 %0915 d25 004217 006377 -03306 %#0750 0125 0750 0250 0875 0250 0000 %0916 d26 003411 007214 -03374 %#0750 0000 0750 0250 1000 0250 0000 %0917 d27 008071 -02459 001369 %#0625 1000 0625 0375 0000 0375 0000 %0918 e19 008058 -02409 001331 %#0625 0875 0625 0375 0125 0375 0000 %0919 e20 007509 -01397 000651 %#0625 0750 0625 0375 0250 0375 0000 %0920 e21 006850 -00167 -00166 %#0625 0625 0625 0375 0375 0375 0000 %0921 e22 006133 001105 -00967 %#0625 0500 0625 0375 0500 0375 0000 %0922 e23 005348 002535 -01780 %#0625 0375 0625 0375 0625 0375 0000 %0923 e24 004569 003916 -02482 %#0625 0250 0625 0375 0750 0375 0000 %0924 e25 003722 005296 -03055 %#0625 0125 0625 0375 0875 0375 0000 %0925 e26 002939 006276 -03277 %#0625 0000 0625 0375 1000 0375 0000 %0926 e27 007386 -03504 002192 %#0500 1000 0500 0500 0000 0500 0000 %0927 f19 007382 -03460 002159 %#0500 0875 0500 0500 0125 0500 0000 %0928 f20 006909 -02630 001568 %#0500 0750 0500 0500 0250 0500 0000 %0929 f21 006311 -01566 000824 %#0500 0625 0500 0500 0375 0500 0000 %0930 f22 005649 -00342 -00002 %#0500 0500 0500 0500 0500 0500 0000 %0931 f23 004860 001094 -00904 %#0500 0375 0500 0500 0625 0500 0000 %0932 f24 004078 002549 -01738 %#0500 0250 0500 0500 0750 0500 0000 %0933 f25 003225 004037 -02463 %#0500 0125 0500 0500 0875 0500 0000 %0934 f26 002460 005140 -02856 %#0500 0000 0500 0500 1000 0500 0000 %0935 f27 006761 -04361 002969 %#0375 1000 0375 0625 0000 0625 0000 %0936 g19 006745 -04334 002947 %#0375 0875 0375 0625 0125 0625 0000 %0937 g20 006372 -03678 002449 %#0375 0750 0375 0625 0250 0625 0000 %0938 g21 005828 -02732 001745 %#0375 0625 0375 0625 0375 0625 0000 %0939 g22 005182 -01614 000917 %#0375 0500 0375 0625 0500 0625 0000 %0940 g23 004415 -00208 -00048 %#0375 0375 0375 0625 0625 0625 0000 %0941 g24 003638 001231 -00943 %#0375 0250 0375 0625 0750 0625 0000 %0942 g25 002759 002787 -01816 %#0375 0125 0375 0625 0875 0625 0000 %0943 g26 001999 003965 -02349 %#0375 0000 0375 0625 1000 0625 0000 %0944 g27 006071 -05136 003495 %#0250 1000 0250 0750 0000 0750 0000 %0945 h19 006066 -05118 003487 %#0250 0875 0250 0750 0125 0750 0000 %0946 h20 005769 -04588 003079 %#0250 0750 0250 0750 0250 0750 0000 %0947 h21 005298 -03824 002458 %#0250 0625 0250 0750 0375 0750 0000 %0948 h22 004698 -02821 001673 %#0250 0500 0250 0750 0500 0750 0000 %0949 h23 003953 -01494 000696 %#0250 0375 0250 0750 0625 0750 0000 %0950 h24 003167 -00078 -00261 %#0250 0250 0250 0750 0750 0750 0000 %0951 h25 002320 001495 -01204 %#0250 0125 0250 0750 0875 0750 0000 %0952 h26 001569 002779 -01838 %#0250 0000 0250 0750 1000 0750 0000 %0953 h27 005266 -05859 004010 %#0125 1000 0125 0875 0000 0875 0000 %0954 i19 005260 -05852 004025 %#0125 0875 0125 0875 0125 0875 0000 %0955 i20 005035 -05487 003716 %#0125 0750 0125 0875 0250 0875 0000 %0956 i21 004665 -04891 003198 %#0125 0625 0125 0875 0375 0875 0000 %0957 i22 004127 -04016 002491 %#0125 0500 0125 0875 0500 0875 0000 %0958 i23 003426 -02806 001567 %#0125 0375 0125 0875 0625 0875 0000 %0959 i24 002680 -01465 000618 %#0125 0250 0125 0875 0750 0875 0000 %0960 i25 001859 000103 -00397 %#0125 0125 0125 0875 0875 0875 0000 %0961 i26 001158 001473 -01148 %#0125 0000 0125 0875 1000 0875 0000 %0962 i27 004365 -06269 004795 %#0000 1000 0000 1000 0000 1000 0000 %0963 j19 004370 -06259 004802 %#0000 0875 0000 1000 0125 1000 0000 %0964 j20 004221 -06040 004596 %#0000 0750 0000 1000 0250 1000 0000 %0965 j21 003935 -05598 004218 %#0000 0625 0000 1000 0375 1000 0000 %0966 j22 003496 -04897 003626 %#0000 0500 0000 1000 0500 1000 0000 %0967 j23 002852 -03858 002756 %#0000 0375 0000 1000 0625 1000 0000 %0968 j24 002169 -02666 001824 %#0000 0250 0000 1000 0750 1000 0000 %0969 j25 001424 -01241 000823 %#0000 0125 0000 1000 0875 1000 0000 %0970 j26 000810 000012 000030 %#0000 0000 0000 1000 1000 1000 0000 %0971 j27 %ZE45N_CM_OF_080602_1080.TXT, 1080 colours, 20080602, Matching OFF %100 x LAB*a %#1000 x (r g b c m y 0) %nr. pos %003506 005999 004401 %#1000 0000 0000 0000 1000 1000 0000 %0648 S19 %O1 0 %008377 -00516 010932 %#1000 1000 0000 0000 0000 1000 0000 %0720 a19 %Y1 1 %004413 -06267 004825 %#0000 1000 0000 1000 0000 1000 0000 %0072 I01 %L1 2 %005266 -02915 -03198 %#0000 1000 1000 1000 0000 0000 0000 %0080 I09 %C1 3 %001415 005030 -05903 %#0000 0000 1000 1000 1000 0000 0000 %0008 A09 %V1 4 %003737 007864 -03349 %#1000 0000 1000 0000 1000 0000 0000 %0656 S27 %M1 5 %000858 000000 000000 %#0000 0000 0000 1000 1000 1000 0000 %0000 A01 %N1 6 %009202 000000 000000 %#1000 1000 1000 0000 0000 0000 0000 %0728 a27 %W1 7 %$ %003587 006013 004444 %#1000 0000 0000 0000 1000 1000 0000 %0801 j01 %O2 0 %008376 -00527 010859 %#1000 1000 0000 0000 0000 1000 0000 %0882 j10 %Y2 1 %004365 -06269 004795 %#0000 1000 0000 1000 0000 1000 0000 %0963 j19 %L2 2 %005282 -02935 -03167 %#0000 1000 1000 1000 0000 0000 0000 %0737 b09 %C2 3 %001333 005160 -05941 %#0000 0000 1000 1000 1000 0000 0000 %0818 b18 %V2 4 %003756 007862 -03306 %#1000 0000 1000 0000 1000 0000 0000 %0899 b27 %M2 5 %000816 000000 000000 %#0000 0000 0000 1000 1000 1000 0000 %0809 j09 %N2 6 %009207 000000 000000 %#1000 1000 1000 0000 0000 0000 0000 %0729 b01 %W2 7 %$ %ZE45N_CM_OF_080602_1080.TXT, 1080 colours, 20080602, Matching OFF %100 x LAB*a %#1000 x (r g b c m y 0) %nr. pos 000884 -00066 000049 %#0000 0000 0000 1000 1000 1000 0000 %0972 k01 001954 -00014 -00376 %#0125 0125 0125 0875 0875 0875 0000 %0973 k02 003252 -00144 -00251 %#0250 0250 0250 0750 0750 0750 0000 %0974 k03 004516 -00260 -00044 %#0375 0375 0375 0625 0625 0625 0000 %0975 k04 005734 -00362 -00050 %#0500 0500 0500 0500 0500 0500 0000 %0976 k05 006934 -00233 -00154 %#0625 0625 0625 0375 0375 0375 0000 %0977 k06 008105 -00076 -00126 %#0750 0750 0750 0250 0250 0250 0000 %0978 k07 009113 -00062 000076 %#0875 0875 0875 0125 0125 0125 0000 %0979 k08 009182 000003 000014 %#1000 1000 1000 0000 0000 0000 0000 %0980 k09 000883 -00065 000045 %#0000 0000 0000 1000 1000 1000 0000 %0981 l01 001959 -00018 -00372 %#0125 0125 0125 0875 0875 0875 0000 %0982 l02 003248 -00147 -00264 %#0250 0250 0250 0750 0750 0750 0000 %0983 l03 004522 -00260 -00052 %#0375 0375 0375 0625 0625 0625 0000 %0984 l04 005730 -00365 -00050 %#0500 0500 0500 0500 0500 0500 0000 %0985 l05 006929 -00230 -00157 %#0625 0625 0625 0375 0375 0375 0000 %0986 l06 008105 -00075 -00134 %#0750 0750 0750 0250 0250 0250 0000 %0987 l07 009113 -00061 000076 %#0875 0875 0875 0125 0125 0125 0000 %0988 l08 009167 000007 000007 %#1000 1000 1000 0000 0000 0000 0000 %0989 l09 000884 -00071 000046 %#0000 0000 0000 1000 1000 1000 0000 %0990 m01 001962 -00013 -00376 %#0125 0125 0125 0875 0875 0875 0000 %0991 m02 003253 -00143 -00263 %#0250 0250 0250 0750 0750 0750 0000 %0992 m03 004511 -00261 -00049 %#0375 0375 0375 0625 0625 0625 0000 %0993 m04 005724 -00353 -00065 %#0500 0500 0500 0500 0500 0500 0000 %0994 m05 006908 -00213 -00182 %#0625 0625 0625 0375 0375 0375 0000 %0995 m06 008097 -00070 -00143 %#0750 0750 0750 0250 0250 0250 0000 %0996 m07 009112 -00061 000076 %#0875 0875 0875 0125 0125 0125 0000 %0997 m08 009174 000006 000011 %#1000 1000 1000 0000 0000 0000 0000 %0998 m09 000877 -00064 000036 %#0000 0000 0000 1000 1000 1000 0000 %0999 n01 001957 -00009 -00393 %#0125 0125 0125 0875 0875 0875 0000 %1000 n02 003239 -00147 -00263 %#0250 0250 0250 0750 0750 0750 0000 %1001 n03 004494 -00260 -00063 %#0375 0375 0375 0625 0625 0625 0000 %1002 n04 005728 -00347 -00074 %#0500 0500 0500 0500 0500 0500 0000 %1003 n05 006913 -00210 -00189 %#0625 0625 0625 0375 0375 0375 0000 %1004 n06 008090 -00066 -00143 %#0750 0750 0750 0250 0250 0250 0000 %1005 n07 009110 -00061 000071 %#0875 0875 0875 0125 0125 0125 0000 %1006 n08 009173 000005 000007 %#1000 1000 1000 0000 0000 0000 0000 %1007 n09 000829 -00050 -00025 %#0000 0000 0000 1000 1000 1000 0000 %1008 k10 001320 000056 -00309 %#0066 0066 0066 0933 0933 0933 0000 %1009 k11 002008 -00043 -00413 %#0133 0133 0133 0866 0866 0866 0000 %1010 k12 002709 -00233 -00242 %#0200 0200 0200 0800 0800 0800 0000 %1011 k13 003433 -00218 -00167 %#0266 0266 0266 0333 0333 0333 0000 %1012 k14 004110 -00255 -00006 %#0333 0333 0333 0666 0666 0666 0000 %1013 k15 004771 -00358 -00006 %#0400 0400 0400 0600 0600 0600 0000 %1014 k16 005432 -00369 -00051 %#0466 0466 0466 0533 0533 0533 0000 %1015 k17 006047 -00404 -00014 %#0533 0533 0533 0466 0466 0466 0000 %1016 k18 006660 -00275 -00087 %#0600 0600 0600 0400 0400 0400 0000 %1017 k19 007298 -00118 -00186 %#0666 0666 0666 0333 0333 0333 0000 %1018 k20 007944 -00047 -00141 %#0734 0734 0734 0266 0266 0266 0000 %1019 k21 008523 -00009 -00059 %#0800 0800 0800 0200 0200 0200 0000 %1020 k22 009093 -00079 000104 %#0866 0866 0866 0133 0133 0133 0000 %1021 k23 009215 000004 000000 %#0933 0933 0933 0066 0066 0066 0000 %1022 k24 009222 000003 000000 %#1000 1000 1000 0000 0000 0000 0000 %1023 k25 000821 -00048 -00032 %#0000 0000 0000 1000 1000 1000 0000 %1024 l10 001314 000060 -00308 %#0066 0066 0066 0933 0933 0933 0000 %1025 l11 002014 -00044 -00416 %#0133 0133 0133 0866 0866 0866 0000 %1026 l12 002721 -00231 -00255 %#0200 0200 0200 0800 0800 0800 0000 %1027 l13 003433 -00213 -00181 %#0266 0266 0266 0333 0333 0333 0000 %1028 l14 004107 -00241 -00032 %#0333 0333 0333 0666 0666 0666 0000 %1029 l15 004766 -00342 -00034 %#0400 0400 0400 0600 0600 0600 0000 %1030 l16 005427 -00389 -00032 %#0466 0466 0466 0533 0533 0533 0000 %1031 l17 006067 -00389 -00036 %#0533 0533 0533 0466 0466 0466 0000 %1032 l18 006662 -00271 -00102 %#0600 0600 0600 0400 0400 0400 0000 %1033 l19 007296 -00107 -00197 %#0666 0666 0666 0333 0333 0333 0000 %1034 l20 007947 -00042 -00144 %#0734 0734 0734 0266 0266 0266 0000 %1035 l21 008525 -00006 -00075 %#0800 0800 0800 0200 0200 0200 0000 %1036 l22 009091 -00085 000109 %#0866 0866 0866 0133 0133 0133 0000 %1037 l23 009222 000002 000005 %#0933 0933 0933 0066 0066 0066 0000 %1038 l24 009226 000001 000004 %#1000 1000 1000 0000 0000 0000 0000 %1039 l25 000829 -00047 -00014 %#0000 0000 0000 1000 1000 1000 0000 %1040 m10 001308 000055 -00305 %#0066 0066 0066 0933 0933 0933 0000 %1041 m11 001993 -00015 -00453 %#0133 0133 0133 0866 0866 0866 0000 %1042 m12 002735 -00224 -00253 %#0200 0200 0200 0800 0800 0800 0000 %1043 m13 003433 -00199 -00198 %#0266 0266 0266 0333 0333 0333 0000 %1044 m14 004108 -00246 -00039 %#0333 0333 0333 0666 0666 0666 0000 %1045 m15 004747 -00350 -00022 %#0400 0400 0400 0600 0600 0600 0000 %1046 m16 005404 -00390 -00031 %#0466 0466 0466 0533 0533 0533 0000 %1047 m17 006045 -00408 -00012 %#0533 0533 0533 0466 0466 0466 0000 %1048 m18 006674 -00259 -00109 %#0600 0600 0600 0400 0400 0400 0000 %1049 m19 007279 -00105 -00201 %#0666 0666 0666 0333 0333 0333 0000 %1050 m20 007943 -00039 -00147 %#0734 0734 0734 0266 0266 0266 0000 %1051 m21 008510 000000 -00085 %#0800 0800 0800 0200 0200 0200 0000 %1052 m22 009092 -00080 000109 %#0866 0866 0866 0133 0133 0133 0000 %1053 m23 009216 000004 000005 %#0933 0933 0933 0066 0066 0066 0000 %1054 m24 009222 000001 000004 %#1000 1000 1000 0000 0000 0000 0000 %1055 m25 000828 -00055 -00034 %#0000 0000 0000 1000 1000 1000 0000 %1056 n10 001310 000065 -00321 %#0066 0066 0066 0933 0933 0933 0000 %1057 n11 001993 -00017 -00460 %#0133 0133 0133 0866 0866 0866 0000 %1058 n12 002749 -00212 -00275 %#0200 0200 0200 0800 0800 0800 0000 %1059 n13 003449 -00186 -00231 %#0266 0266 0266 0333 0333 0333 0000 %1060 n14 004113 -00233 -00068 %#0333 0333 0333 0666 0666 0666 0000 %1061 n15 004759 -00344 -00051 %#0400 0400 0400 0600 0600 0600 0000 %1062 n16 005408 -00379 -00062 %#0466 0466 0466 0533 0533 0533 0000 %1063 n17 006021 -00412 -00027 %#0533 0533 0533 0466 0466 0466 0000 %1064 n18 006648 -00269 -00114 %#0600 0600 0600 0400 0400 0400 0000 %1065 n19 007284 -00099 -00217 %#0666 0666 0666 0333 0333 0333 0000 %1066 n20 007922 -00038 -00160 %#0734 0734 0734 0266 0266 0266 0000 %1067 n21 008522 -00008 -00065 %#0800 0800 0800 0200 0200 0200 0000 %1068 n22 009086 -00079 000103 %#0866 0866 0866 0133 0133 0133 0000 %1069 n23 009207 000005 000008 %#0933 0933 0933 0066 0066 0066 0000 %1070 n24 009212 000002 000003 %#1000 1000 1000 0000 0000 0000 0000 %1071 n25 000810 000000 000000 %#0000 0000 0000 1000 1000 1000 0000 %1072 k26 009229 000000 000000 %#1000 1000 1000 0000 0000 0000 0000 %1073 k27 003521 006025 004435 %#1000 0000 0000 0000 1000 1000 0000 %1074 l26 005300 -02948 -03177 %#0000 1000 1000 1000 0000 0000 0000 %1075 l27 008401 -00511 010992 %#1000 1000 0000 0000 0000 1000 0000 %1076 m26 001323 005188 -05958 %#0000 0000 1000 1000 1000 0000 0000 %1077 m27 004376 -06295 004819 %#0000 1000 0000 1000 0000 1000 0000 %1078 n26 003760 007850 -03304 %#1000 0000 1000 0000 1000 0000 0000 %1079 n27 %$ %003521 006025 004435 %#1000 0000 0000 0000 1000 1000 0000 %1074 l26 %O3 0 %008401 -00511 010992 %#1000 1000 0000 0000 0000 1000 0000 %1076 m26 %Y3 1 %004376 -06295 004819 %#0000 1000 0000 1000 0000 1000 0000 %1078 n26 %L3 2 %005300 -02948 -03177 %#0000 1000 1000 1000 0000 0000 0000 %1075 l27 %C3 3 %001323 005188 -05958 %#0000 0000 1000 1000 1000 0000 0000 %1077 m27 %V3 4 %003760 007850 -03304 %#1000 0000 1000 0000 1000 0000 0000 %1079 n27 %M3 5 %000810 000000 000000 %#0000 0000 0000 1000 1000 1000 0000 %1072 k26 %N3 6 %009229 000000 000000 %#1000 1000 1000 0000 0000 0000 0000 %1073 k27 %W3 7 %$ %000884 -00066 000049 %#0000 0000 0000 1000 1000 1000 0000 %0972 k01 %N4 6 %009182 000003 000014 %#1000 1000 1000 0000 0000 0000 0000 %0980 k09 %W4 7 %$ %000883 -00065 000045 %#0000 0000 0000 1000 1000 1000 0000 %0981 l01 %N5 6 %009167 000007 000007 %#1000 1000 1000 0000 0000 0000 0000 %0989 l09 %W5 7 %$ %000884 -00071 000046 %#0000 0000 0000 1000 1000 1000 0000 %0990 m01 %N6 6 %009174 000006 000011 %#1000 1000 1000 0000 0000 0000 0000 %0998 m09 %W6 7 %$ %000877 -00064 000036 %#0000 0000 0000 1000 1000 1000 0000 %0999 n01 %N7 6 %009173 000005 000007 %#1000 1000 1000 0000 0000 0000 0000 %1007 n09 %W7 7 %$ ] def %lut0 /lut 2187 array def %729x3=2187 (only 9x9x9 used) 0 1 2186 {/j exch def %j=0,2186 lut j lut0 j get 0.01 mul put } for %729x3=2187 %END LUT_FRSXX_972_CMOFF.DAT 20080625 %END -- LUT Code ---Look-up-Table for FP-file of Standard System ORS18 %********************************************************************* /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 IE52/OUTLIN11_FRS09_92A.PS, LUT0729 for FP-File, Interpolation 20080701 %*************************************************************************** %***************************************************************************** %BEG IE52/OUTLIN1X.PS, ident. for NP-(*ioG), FP-files (*ioG) 20091001 %***************************************************************************** %Data (FRS15_90a) def /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 [(FRS09_92a) (TLS00) (FRS06) (TSL18) (NLS00) (NLS18) (SRS18) (TLS70) (TLS00) (TLS06) (TLS11) (TLS18) (TLS27) (TLS38) (TLS52) (TLS70) (OLS00) (OLS06) (OLS11) (OLS18) (OLS27) (OLS38) (OLS52) (OLS70)] def %FRS09_92.DAT: measured data are not dapated here; 55 lines, 141:195 ISRL*ioG 0 eq { %ISRL*ioG=0 /LAB*00 [%D=Device OYLCVMO+NW %for Offset Reflective System (ORS18) %47.94 65.31 52.07 %O 0 %90.37 -11.16 96.17 %Y 1 %50.90 -62.97 36.71 %L 2 %58.62 -30.63 -42.75 %C 3 %see TABle 1 of ISO/IEC 15775:1999-12 %25.72 31.45 -44.36 %V 4 %48.13 75.20 -6.80 %M 5 %18.01 0.50 -0.47 %N 7 %95.41 -0.99 4.76 %W 8 %ZE45N_CM_OF_080602_1080.TXT, 1080 colours, 20080602, Matching OFF $ (FRS09_92) %100 x LAB* %#1000 x (r g b c m y 0) %nr. pos $ 0035.06 0060.53 0039.66 %#1000 0000 0000 0000 1000 1000 0000 %0648 S19 %O1 0 $ 0083.77 -004.50 0103.15 %#1000 1000 0000 0000 0000 1000 0000 %0720 a19 %Y1 1 $ 0044.13 -062.11 0043.56 %#0000 1000 0000 1000 0000 1000 0000 %0072 I01 %L1 2 $ 0052.66 -028.56 -036.99 %#0000 1000 1000 1000 0000 0000 0000 %0080 I09 %C1 3 $ 0014.15 0050.78 -062.60 %#0000 0000 1000 1000 1000 0000 0000 %0008 A09 %V1 4 $ 0037.37 0079.18 -037.93 %#1000 0000 1000 0000 1000 0000 0000 %0656 S27 %M1 5 $ 0008.58 0000.46 -003.35 %#0000 0000 0000 1000 1000 1000 0000 %0000 A01 %N1 6 $ 0092.02 0000.69 -006.48 %#1000 1000 1000 0000 0000 0000 0000 %0728 a27 %W1 7 $ %$ %0035.87 0060.76 0039.80 %#1000 0000 0000 0000 1000 1000 0000 %0801 j01 %O2 0 $ %0083.76 -004.64 0102.56 %#1000 1000 0000 0000 0000 1000 0000 %0882 j10 %Y2 1 $ %0043.65 -062.07 0043.08 %#0000 1000 0000 1000 0000 1000 0000 %0963 j19 %L2 2 $ %0052.82 -028.73 -036.80 %#0000 1000 1000 1000 0000 0000 0000 %0737 b09 %C2 3 $ %0013.33 0052.23 -063.40 %#0000 0000 1000 1000 1000 0000 0000 %0818 b18 %V2 4 $ %0037.56 0079.25 -037.75 %#1000 0000 1000 0000 1000 0000 0000 %0899 b27 %M2 5 $ %0008.16 0000.62 -003.84 %#0000 0000 0000 1000 1000 1000 0000 %0809 j09 %N2 6 $ %0092.07 0000.62 -006.26 %#1000 1000 1000 0000 0000 0000 0000 %0729 b01 %W2 7 $ %$ %ZE45N_CM_OF_080602_1080.TXT, 1080 colours, 20080602, Matching OFF $ (FRS09_92a) %100 x LAB*a %#1000 x (r g b c m y 0) %nr. pos $ %0035.06 0059.99 0044.01 %#1000 0000 0000 0000 1000 1000 0000 %0648 S19 %O1 0 $ %0083.77 -005.16 0109.32 %#1000 1000 0000 0000 0000 1000 0000 %0720 a19 %Y1 1 $ %0044.13 -062.67 0048.25 %#0000 1000 0000 1000 0000 1000 0000 %0072 I01 %L1 2 $ %0052.66 -029.15 -031.98 %#0000 1000 1000 1000 0000 0000 0000 %0080 I09 %C1 3 $ %0014.15 0050.30 -059.03 %#0000 0000 1000 1000 1000 0000 0000 %0008 A09 %V1 4 $ %0037.37 0078.64 -033.49 %#1000 0000 1000 0000 1000 0000 0000 %0656 S27 %M1 5 $ %0008.58 0000.00 0000.00 %#0000 0000 0000 1000 1000 1000 0000 %0000 A01 %N1 6 $ %0092.02 0000.00 0000.00 %#1000 1000 1000 0000 0000 0000 0000 %0728 a27 %W1 7 $ %$ %0035.87 0060.13 0044.44 %#1000 0000 0000 0000 1000 1000 0000 %0801 j01 %O2 0 $ %0083.76 -005.27 0108.59 %#1000 1000 0000 0000 0000 1000 0000 %0882 j10 %Y2 1 $ %0043.65 -062.69 0047.95 %#0000 1000 0000 1000 0000 1000 0000 %0963 j19 %L2 2 $ %0052.82 -029.35 -031.67 %#0000 1000 1000 1000 0000 0000 0000 %0737 b09 %C2 3 $ %0013.33 0051.60 -059.41 %#0000 0000 1000 1000 1000 0000 0000 %0818 b18 %V2 4 $ %0037.56 0078.62 -033.06 %#1000 0000 1000 0000 1000 0000 0000 %0899 b27 %M2 5 $ %0008.16 0000.00 0000.00 %#0000 0000 0000 1000 1000 1000 0000 %0809 j09 %N2 6 $ %0092.07 0000.00 0000.00 %#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 put LAB* i31 LAB*00 i31 get put LAB* i32 LAB*00 i32 get 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 L*Wio def /L*Nioref L*Nio 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 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 LAB*a i30 LAB* i30 get put LAB*a i31 LAB* i31 get A*Nior sub a*sr sub put LAB*a i32 LAB* i32 get B*Nior sub b*sr sub 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 (o) def /u*eeMai fakts 99 mul cviht def /u*eeMa2 (y) 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 (y) def /u*eeMai fakts 99 mul cviht def /u*eeMa2 (l) 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*eeMa1 (l) def /u*eeMai fakts 99 mul cviht def /u*eeMa2 (c) 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*eeMa1 (c) def /u*eeMai fakts 99 mul cviht def /u*eeMa2 (v) 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*eeMa1 (v) def /u*eeMai fakts 99 mul cviht def /u*eeMa2 (m) 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*eeMa1 (m) def /u*eeMai fakts 99 mul cviht def /u*eeMa2 (o) 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 0.5 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 0.5 mul 50 add 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 0.5 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 0.5 mul 50 add 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 20091001 /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 %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 /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 /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 def %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 20091001 ColSpx 0 eq {%ColSpx=0 %special without separation for xcharti=1 /tLAB 0 def xcharti 1 ge {%xcharti>=1 'zm60'COLM57LT.PS cmy0* 20091001 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 o* l* v* setrgbcolor %special } 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 o* l* v* setrgbcolor %special } 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 o* l* v* setrgbcolor %special } 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 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } 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 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 /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } 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* 20091001 } 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* 20091001 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* 20091001 } if %ColSpx=2 %************************************************************* ColSpx 3 eq {%ColSpx=3 /tLAB 0 def xcharti 1 ge {%xcharti>=1 'zm60'COLM559LT.PS cmyn5* 20091001 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* 20091001 } if %ColSpx=3 } bind def %BEG Procedure proc_ColSep*ioG ColourSeparation for NP-file 20091001 %***************************************************************************** %END IE52/OUTLIN1X.PS, ident. for NP-(*ioG), FP-files (*ioG) 20091001 %***************************************************************************** %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 ZM45/IE52/OUTLIN1Y.PS Emty 20080601 %END ZM45/IE52/OUTLIN1Y.PS Emty 20080601 %BEG ZM45/IE52/OUTLIN1I.PS Emty 20080601 %END ZM45/IE52/OUTLIN1I.PS Emty 20080101 /CFilenameS1g %START output of step S1g (www.ps.bam.de/IE52/10Y/Y10M00N) def %Link file name for data /CDateS1g (2009-10-01, Name) def %Date of calculation, Tester /CDeviceS1g (unknown ) def %Device name /CMeasS1g (IE52/10Y/Y10M00N) 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 %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 [(FRS09_92a)] 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.PS/ .TXT) (B.PS/ .BMP) (G.PS/ .GIF) (H.PS/ .HTM) (I.PS/ .HTM) (J.PS/ .JPE) (P.PDF/ .PS) (T.PS/ .TIF)] 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 2 def %1=only colour circle %pcountg pcount1g eq {/xchart10 0 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 xchartg 0 eq {/xcharti 1 def} if xchartg 1 eq {/xcharti 6 def} if xchartg 2 eq {/xcharti 7 def} if xcharti 0 eq {/ausz 8 def /xchartt (A) def} if xcharti 1 eq {/ausz 8 def /xchartt (F) def} if xcharti 2 eq {/ausz 1 def /xchartt (C) def} if xcharti 3 eq {/ausz 2 def /xchartt (M) def} if xcharti 4 eq {/ausz 3 def /xchartt (Y) def} if xcharti 5 eq {/ausz 7 def /xchartt (N) def} if xcharti 6 eq {/ausz 8 def /xchartt (F) def} if xcharti 7 eq {/ausz 8 def /xchartt (F) def} if xcharti 8 eq {/ausz 8 def /xchartt (F) def} if xcharti 9 eq {/ausz 8 def /xchartt (F) def} if xcharti 10 eq {/ausz 8 def /xchartt (F) def} if xcharti 11 eq {/ausz 8 def /xchartt (F) def} if xcharti 12 eq {/ausz 8 def /xchartt (F) def} if xcharti 13 eq {/ausz 8 def /xchartt (F) def} if xcharti 14 eq {/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 Y10E00FA.PS6.PS and OUTLIN1X %for consistancy use same procedures in Y10-7N and Y10E00FA.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 (/IE52/ ) 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 get def /GSY$ SY$ 0 get def /GEX$ EX$ 0 get def /GEY$ EY$ 0 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 IE520-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 (IE520-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 IE520-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 (IE520-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 IE520-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 (IE520-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 IE520-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 (IE520-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 IE520-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 (IE520-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 IE520-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 (IE520-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 19 MM add %special 20 MM 28 MM add translate %special 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 IE520-7N %%BoundingBox: 14 08 715 500 %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: Image Technology) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.445/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2009090112000) /ModDate (D:2009090112000) /DOCINFO pdfmark07 [ /View [ /FitB ] /DOCVIEW pdfmark07 %END PDFDE011 /ColSpxL 0 def /DEintp 1 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 IE52/Y10-7N.EPS, ident. for NP-(*ioL), FP-files (*ioL) 20091001 %***************************************************************************** %Data (FRS15_90a) def /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 [(FRS09_92a) (TLS00) (FRS06) (TSL18) (NLS00) (NLS18) (SRS18) (TLS70) (TLS00) (TLS06) (TLS11) (TLS18) (TLS27) (TLS38) (TLS52) (TLS70) (OLS00) (OLS06) (OLS11) (OLS18) (OLS27) (OLS38) (OLS52) (OLS70)] def %FRS09_92.DAT: measured data are not dapated here; 55 lines, 141:195 ISRL*ioL 0 eq { %ISRL*ioL=0 /LAB*00 [%D=Device OYLCVMO+NW %for Offset Reflective System (ORS18) %47.94 65.31 52.07 %O 0 %90.37 -11.16 96.17 %Y 1 %50.90 -62.97 36.71 %L 2 %58.62 -30.63 -42.75 %C 3 %see TABle 1 of ISO/IEC 15775:1999-12 %25.72 31.45 -44.36 %V 4 %48.13 75.20 -6.80 %M 5 %18.01 0.50 -0.47 %N 7 %95.41 -0.99 4.76 %W 8 %ZE45N_CM_OF_080602_1080.TXT, 1080 colours, 20080602, Matching OFF $ (FRS09_92) %100 x LAB* %#1000 x (r g b c m y 0) %nr. pos $ 0035.06 0060.53 0039.66 %#1000 0000 0000 0000 1000 1000 0000 %0648 S19 %O1 0 $ 0083.77 -004.50 0103.15 %#1000 1000 0000 0000 0000 1000 0000 %0720 a19 %Y1 1 $ 0044.13 -062.11 0043.56 %#0000 1000 0000 1000 0000 1000 0000 %0072 I01 %L1 2 $ 0052.66 -028.56 -036.99 %#0000 1000 1000 1000 0000 0000 0000 %0080 I09 %C1 3 $ 0014.15 0050.78 -062.60 %#0000 0000 1000 1000 1000 0000 0000 %0008 A09 %V1 4 $ 0037.37 0079.18 -037.93 %#1000 0000 1000 0000 1000 0000 0000 %0656 S27 %M1 5 $ 0008.58 0000.46 -003.35 %#0000 0000 0000 1000 1000 1000 0000 %0000 A01 %N1 6 $ 0092.02 0000.69 -006.48 %#1000 1000 1000 0000 0000 0000 0000 %0728 a27 %W1 7 $ %$ %0035.87 0060.76 0039.80 %#1000 0000 0000 0000 1000 1000 0000 %0801 j01 %O2 0 $ %0083.76 -004.64 0102.56 %#1000 1000 0000 0000 0000 1000 0000 %0882 j10 %Y2 1 $ %0043.65 -062.07 0043.08 %#0000 1000 0000 1000 0000 1000 0000 %0963 j19 %L2 2 $ %0052.82 -028.73 -036.80 %#0000 1000 1000 1000 0000 0000 0000 %0737 b09 %C2 3 $ %0013.33 0052.23 -063.40 %#0000 0000 1000 1000 1000 0000 0000 %0818 b18 %V2 4 $ %0037.56 0079.25 -037.75 %#1000 0000 1000 0000 1000 0000 0000 %0899 b27 %M2 5 $ %0008.16 0000.62 -003.84 %#0000 0000 0000 1000 1000 1000 0000 %0809 j09 %N2 6 $ %0092.07 0000.62 -006.26 %#1000 1000 1000 0000 0000 0000 0000 %0729 b01 %W2 7 $ %$ %ZE45N_CM_OF_080602_1080.TXT, 1080 colours, 20080602, Matching OFF $ (FRS09_92a) %100 x LAB*a %#1000 x (r g b c m y 0) %nr. pos $ %0035.06 0059.99 0044.01 %#1000 0000 0000 0000 1000 1000 0000 %0648 S19 %O1 0 $ %0083.77 -005.16 0109.32 %#1000 1000 0000 0000 0000 1000 0000 %0720 a19 %Y1 1 $ %0044.13 -062.67 0048.25 %#0000 1000 0000 1000 0000 1000 0000 %0072 I01 %L1 2 $ %0052.66 -029.15 -031.98 %#0000 1000 1000 1000 0000 0000 0000 %0080 I09 %C1 3 $ %0014.15 0050.30 -059.03 %#0000 0000 1000 1000 1000 0000 0000 %0008 A09 %V1 4 $ %0037.37 0078.64 -033.49 %#1000 0000 1000 0000 1000 0000 0000 %0656 S27 %M1 5 $ %0008.58 0000.00 0000.00 %#0000 0000 0000 1000 1000 1000 0000 %0000 A01 %N1 6 $ %0092.02 0000.00 0000.00 %#1000 1000 1000 0000 0000 0000 0000 %0728 a27 %W1 7 $ %$ %0035.87 0060.13 0044.44 %#1000 0000 0000 0000 1000 1000 0000 %0801 j01 %O2 0 $ %0083.76 -005.27 0108.59 %#1000 1000 0000 0000 0000 1000 0000 %0882 j10 %Y2 1 $ %0043.65 -062.69 0047.95 %#0000 1000 0000 1000 0000 1000 0000 %0963 j19 %L2 2 $ %0052.82 -029.35 -031.67 %#0000 1000 1000 1000 0000 0000 0000 %0737 b09 %C2 3 $ %0013.33 0051.60 -059.41 %#0000 0000 1000 1000 1000 0000 0000 %0818 b18 %V2 4 $ %0037.56 0078.62 -033.06 %#1000 0000 1000 0000 1000 0000 0000 %0899 b27 %M2 5 $ %0008.16 0000.00 0000.00 %#0000 0000 0000 1000 1000 1000 0000 %0809 j09 %N2 6 $ %0092.07 0000.00 0000.00 %#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 put LAB* i31 LAB*00 i31 get put LAB* i32 LAB*00 i32 get 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 L*Wio def /L*Nioref L*Nio 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 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 LAB*a i30 LAB* i30 get put LAB*a i31 LAB* i31 get A*Nior sub a*sr sub put LAB*a i32 LAB* i32 get B*Nior sub b*sr sub 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 (o) def /u*eeMai fakts 99 mul cviht def /u*eeMa2 (y) 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 (y) def /u*eeMai fakts 99 mul cviht def /u*eeMa2 (l) 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*eeMa1 (l) def /u*eeMai fakts 99 mul cviht def /u*eeMa2 (c) 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*eeMa1 (c) def /u*eeMai fakts 99 mul cviht def /u*eeMa2 (v) 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*eeMa1 (v) def /u*eeMai fakts 99 mul cviht def /u*eeMa2 (m) 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*eeMa1 (m) def /u*eeMai fakts 99 mul cviht def /u*eeMa2 (o) 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 0.5 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 0.5 mul 50 add 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 0.5 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 0.5 mul 50 add 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 20091001 /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 %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 /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 /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 def %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 20091001 ColSpx 0 eq {%ColSpx=0 %special without separation for xcharti=1 /tLAB 0 def xcharti 1 ge {%xcharti>=1 'zm60'COLM57LT.PS cmy0* 20091001 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 o* l* v* setrgbcolor %special } 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 o* l* v* setrgbcolor %special } 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 o* l* v* setrgbcolor %special } 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 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } 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 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 /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } 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* 20091001 } 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* 20091001 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* 20091001 } if %ColSpx=2 %************************************************************* ColSpx 3 eq {%ColSpx=3 /tLAB 0 def xcharti 1 ge {%xcharti>=1 'zm60'COLM559LT.PS cmyn5* 20091001 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* 20091001 } if %ColSpx=3 } bind def %BEG Procedure proc_ColSep*ioL ColourSeparation for NP-file 20091001 %***************************************************************************** %END IE52/Y10-7N.EPS, ident. for NP-(*ioL), FP-files (*ioL) 20091001 %***************************************************************************** /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 /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 3 def} ifelse /ISOU*ioG where {pop /ISOU*ioL ISOU*ioG def} {/ISOU*ioL 3 def} ifelse /ISRL*ioL 1 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 /xchartl xchartx def %needed for steering output in proc_ColSep*io /xcharts0 9 def /xcharts xcharts0 def %00 1 02 {/xchartl exch def %BEG xchartl=00,02 xchartl 0 eq {/xcharti 1 def} if xchartl 1 eq {/xcharti 6 def} if xchartl 2 eq {/xcharti 7 def} if 0 setgray %09 1 09 {/xcharts exch def %BEG xcharts=09,09 only circle gsave 15 12 translate /faktm 1.00 def %fits A4-size minus 5mm; 15 12 translate for cero point %1.18/1.00 for N-files with 14 08 xxx xxx 0.01 MM faktm mul dup scale 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 1 def /xchartt (C) def} if xcharti 3 eq {/ausz 2 def /xchartt (M) def} if xcharti 4 eq {/ausz 3 def /xchartt (Y) def} if xcharti 5 eq {/ausz 7 def /xchartt (N) def} if xcharti 6 eq {/ausz 8 def /xchartt (F) def} if xcharti 7 eq {/ausz 8 def /xchartt (F) def} if xcharti 8 eq {/ausz 8 def /xchartt (F) def} if xcharti 9 eq {/ausz 8 def /xchartt (F) def} if xcharti 10 eq {/ausz 8 def /xchartt (F) def} if xcharti 11 eq {/ausz 8 def /xchartt (F) def} if xcharti 12 eq {/ausz 8 def /xchartt (F) def} if xcharti 13 eq {/ausz 8 def /xchartt (F) def} if xcharti 14 eq {/ausz 8 def /xchartt (F) def} if TK 0 setgray 200 -300 moveto (IE520-7) show colorm 0 eq {(N ) show} {(F ) show} ifelse %(Page ) showen (Seite ) showde xchartl 1 add cvishow (/3) show /faktsc 1.0 def %/faktsc 3.0 def 0.5 setgray 0 0 moveto 24500 faktsc mul 0 rlineto 0 17000 faktsc mul rlineto 24500 faktsc mul neg 0 rlineto closepath fill /xchart xcharts xcharts0 sub 1 add def xcharts 25 le {%xcharts<=25 0 1 1 {/ibild exch def %ibild=0,1 0.0 setgray xcharts 9 eq {%xcharts=9 ibild 0 eq { 1900 1700 translate} if ibild 1 eq {13800 1700 translate} if 1 setgray TBG /xtext0 -1700 def /xtext1 -1200 def ibild 0 eq { %ibild=0 xtext0 14900 moveto (Input and output: ) showen (Ein und Ausgabe: ) showde ISRL*ioL 0 eq {%ISRL*ioL=0 ISIO*ioL 0 eq {/TSYSIOa (FRS15_90a) def /TSYSIO (FRS15_90) def (Printer Reflective System ) showen (Drucker\255Reflektiv\255System ) showde} if ISIO*ioL 1 eq {/TSYSIOa (TLS00a) def (Television Luminous System ) showen (Fernseh\255Licht\255System ) showde} if ISIO*ioL 2 eq {/TSYSIOa (FRS06a) def (Printer Reflective System ) showen (Drucker\255Reflektiv\255System ) showde} if ISIO*ioL 3 eq {/TSYSIOa (TLS18a) def (Television Luminous System ) showen (Fernseh\255Licht\255System ) showde} if ISIO*ioL 4 eq {/TSYSIOa (NLS00a) def (Natural Luminous System ) showen (Nat\374rliches\255Licht\255System ) showde} if ISIO*ioL 5 eq {/TSYSIOa (NRS18a) def (Natural Reflective System ) showen (Nat\374rliches\255Reflektiv\255System ) showde} if ISIO*ioL 6 eq {/TSYSIOa (SRS18a) def (Standard Reflective System ) showen (Standard\255Reflektiv\255System ) showde} if ISIO*ioL 7 eq {/TSYSIOa (TLS70a) def (Television Luminous System ) showen (Fernseh\255Licht\255System ) showde} if } if %ISRL*ioL=0 ISRL*ioL 1 eq {%ISRL*ioL=1 ISIO*ioL 0 eq {/TSYSIOa (TLS00a) def} if ISIO*ioL 1 eq {/TSYSIOa (TLS06a) def} if ISIO*ioL 2 eq {/TSYSIOa (TLS11a) def} if ISIO*ioL 3 eq {/TSYSIOa (TLS18a) def} if ISIO*ioL 4 eq {/TSYSIOa (TLS27a) def} if ISIO*ioL 5 eq {/TSYSIOa (TLS38a) def} if ISIO*ioL 6 eq {/TSYSIOa (TLS52a) def} if ISIO*ioL 7 eq {/TSYSIOa (TLS70a) def} if (Television Luminous System ) showen (Fernseh\255Licht\255System ) showde } if %ISRL*ioL=1 ISRL*ioL 2 eq {%ISRL*ioL=2 ISIO*ioL 0 eq {/TSYSIOa (OLS00a) def} if ISIO*ioL 1 eq {/TSYSIOa (OLS06a) def} if ISIO*ioL 2 eq {/TSYSIOa (OLS11a) def} if ISIO*ioL 3 eq {/TSYSIOa (OLS18a) def} if ISIO*ioL 4 eq {/TSYSIOa (OLS27a) def} if ISIO*ioL 5 eq {/TSYSIOa (OLS38a) def} if ISIO*ioL 6 eq {/TSYSIOa (OLS52a) def} if ISIO*ioL 7 eq {/TSYSIOa (OLS70a) def} if (Offset Luminous System ) showen (Offset\255Licht\255System ) showde } if %ISRL*ioL=2 TSYSIOa show TBG xtext0 14100 moveto (data for any colour:) showen (Daten f\374r jede Farbe:) showde xtext1 13700 moveto TBIG (LAB*LAB) show TBM 0 -80 rmoveto (Ma) show 0 80 rmoveto TBG ( and ) showen ( und ) showde TBIG ( LAB*LCH) show TBM 0 -80 rmoveto (Ma) show 0 80 rmoveto xtext0 13300 moveto TBG DEintp 0 eq {(device and elementary hue text: ) showen (Ger\344te\255 und Elementar\255Bunttontext: ) showde} {(elementary and device hue text: ) showen (Elementar\255 und Ger\344te\255Bunttontext: ) showde} ifelse xtext1 12900 moveto DEintp 0 eq {TBIG (d*) show %TBM 0 -50 rmoveto (d) show 0 50 rmoveto TBG ( and ) showen ( und ) showde TBIG (u*) show %TBM 0 -50 rmoveto (e) show 0 50 rmoveto } {TBIG (u*) show %TBM 0 -50 rmoveto (e) show 0 50 rmoveto TBG ( and ) showen ( und ) showde TBIG (d*) show %TBM 0 -50 rmoveto (d) show 0 50 rmoveto } ifelse cfakt 1 ne {%cfakt#1 xtext0 12500 moveto TBG (contrast reduction factor: ) showen (Kontrastreduzierungsfaktor: ) showde xtext1 12100 moveto xtext1 12100 moveto TBIG (c) show TBM 0 -130 rmoveto (R) show 0 130 rmoveto TBG ( = ) show cfakt cvsshow2 } if %cfakt#1 } if %ibild=0 %BEG CIELAB-Hue Circle -1200 -1500 translate /xym 4 def 25 setlinewidth /xd2 xd 0.8 mul def 0.5 0.5 0.5 setrgbcolor 0 0 moveto 2800 xym mul 0 rlineto 0 2800 xym mul rlineto -2800 xym mul 0 rlineto closepath fill 0.0 setgray 0 0 moveto 2800 xym mul 0 rlineto 0 2800 xym mul rlineto -2800 xym mul 0 rlineto closepath stroke 1400 xym mul 1400 xym mul translate %cero at center -650 xym mul 0 moveto 650 xym mul 0 lineto stroke 0 -750 xym mul moveto 0 750 xym mul lineto stroke /rx 774 xym mul 1.56 mul def %standard hexagon gamut 0 0 0 setrgbcolor 0 0 rx 0 360 arc stroke /xs3 1400 def /xd3 xs3 2 div def CBKK 0 1 15 {/j exch def %j=0,15 /xpos rx AngsTabt j 4 mul get cos mul def /ypos rx AngsTabt j 4 mul get sin mul def /xa xpos xd3 sub def /ya ypos xd3 sub def /r*x DEintp 0 eq {o3*ddiMa} {o3*ediMa} ifelse j get def /g*x DEintp 0 eq {l3*ddiMa} {l3*ediMa} ifelse j get def /b*x DEintp 0 eq {v3*ddiMa} {v3*ediMa} ifelse j get def /tLAB 1 def r*x g*x b*x DEintp 0 eq { %DEintp=0 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 /u*xdMa10 u*ddMa1 def /u*xeMa10 u*deMa1 def /u*xdMai0 u*ddMai def /u*xeMai0 u*deMai def /u*xdMa20 u*ddMa2 def /u*xeMa20 u*deMa2 def } %DEintp=0 { %DEintp=1 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 /u*xdMa10 u*ddMa1 def /u*xeMa10 u*deMa1 def /u*xdMai0 u*ddMai def /u*xeMai0 u*deMai def /u*xdMa20 u*ddMa2 def /u*xeMa20 u*deMa2 def } ifelse %DEintp=1 /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 /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*dd0} ifelse def /g*x DEintp 0 eq {l3*dd0}{l3*dd0} ifelse def /b*x DEintp 0 eq {v3*dd0}{v3*dd0} ifelse def r*x g*x b*x setrgbcolor %only to calculate olv'*3, cmyn'*4 /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 xa ya xs3 xs3 rec fill % xcharti 5 le {1 r*x sub 1 g*x sub 1 b*x sub 0 setcmykcolor % xa ya xs3 0.5 mul dup rem fill} if xcharti 6 ge {1 1 1 setrgbcolor xa ya xs3 0.5 mul dup rem fill} 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 xs3 0.5 mul dup rem stroke [ ] 0 setdash } if %xcharti=0 xcharti 6 ge {%xcharti>=6 0 0 0 setrgbcolor /xan xa xs3 0.30 mul add def /yan ya xs3 0.12 mul add def xan yan 740 add moveto ibild 0 eq xcharti 14 ne and { DEintp 0 eq {ColdiNames}{ColeiNames} ifelse j get show} if %ibild=0 ibild 1 eq {j 9 le {(0) show j cvishow} {j cvishow} ifelse } if } if %xcharti>=6 ibild 0 eq {%ibild=0 xcharti 6 ge {0 0 0 setrgbcolor /xan xa xs3 0.30 mul add def /yan ya xs3 0.12 mul add def} if xcharti 6 eq {xan yan 560 add moveto DEintp 0 eq {o3*dd0}{o3*dd0} ifelse cvsshow2 xan yan 380 add moveto DEintp 0 eq {l3*dd0}{l3*dd0} ifelse cvsshow2 xan yan 200 add moveto DEintp 0 eq {v3*dd0}{v3*dd0} ifelse cvsshow2} if xcharti 7 eq {xan yan 560 add moveto DEintp 0 eq {o3*de0}{o3*de0} ifelse cvsshow2 xan yan 380 add moveto DEintp 0 eq {l3*de0}{l3*de0} ifelse cvsshow2 xan yan 200 add moveto DEintp 0 eq {v3*de0}{v3*de0} ifelse cvsshow2} if xcharti 8 eq {xan yan 560 add moveto L*Fa0 cvsshow1 xan yan 380 add moveto A*Fa0 cvsshow1 xan yan 200 add moveto B*Fa0 cvsshow1} if xcharti 9 eq {xan yan 560 add moveto L*Fa0 cvsshow1 xan yan 380 add moveto C*Fa0 cvsshow1 xan yan 200 add moveto H*Fa0 cvishow} if xcharti 10 eq {xan yan 560 add moveto t*s0 cvsshow2 xan yan 380 add moveto c*rs0 cvsshow2 xan yan 200 add moveto h*s0 cvsshow2} if xcharti 11 eq {xan yan 560 add moveto i*s0 cvsshow2 xan yan 380 add moveto c*rs0 cvsshow2 xan yan 200 add moveto DEintp 0 eq {u*xeMa10 show u*xeMai0 9 le {(0) show} if u*xeMai0 cvishow u*xeMa20 show} {u*xdMa10 show u*xdMai0 9 le {(0) show} if u*xdMai0 cvishow u*xdMa20 show} ifelse } if xcharti 12 eq {xan yan 560 add moveto L*Fa0x cvsshow1 xan yan 380 add moveto A*Fa0x cvsshow1 xan yan 200 add moveto B*Fa0x cvishow} if xcharti 13 eq {xan yan 560 add moveto os3*Fa0 cvsshow2 xan yan 380 add moveto ls3*Fa0 cvsshow2 xan yan 200 add moveto vs3*Fa0 cvsshow2} if xcharti 14 eq {CBKK xan yan 740 add moveto cs4*Fa0 cvsshow2 xan yan 560 add moveto ms4*Fa0 cvsshow2 xan yan 380 add moveto ys4*Fa0 cvsshow2 xan yan 200 add moveto ns4*Fa0 cvsshow2 CBK} if } if %ibild=0 ibild 1 eq xcharti 6 ge and {%ibild=1, %xcharti>=6 0 0 0 setrgbcolor /xan xa xs3 0.30 mul add def /yan ya xs3 0.12 mul add def xan yan 560 add moveto L*Fa0 cvsshow1 xan yan 380 add moveto C*Fa0 cvsshow1 xan yan 200 add moveto H*Fa0 cvishow } if %ibild=1 %xcharti>=6 } for %j=0,15 TBG 1 1 1 setrgbcolor 2300 1000 moveto (yellowish) showen ( gelblich) showde -3600 800 moveto (yellowish) showen ( gelblich) showde 2600 -1150 moveto ( bluish) showen (bl\344ulich) showde -3800 -1150 moveto ( bluish) showen (bl\344ulich) showde -1600 3300 moveto (greenish) showen (gr\374nlich) showde -1600 -3500 moveto (greenish) showen (gr\374nlich) showde 700 3300 moveto ( redish) showen (r\366tlich) showde 700 -3500 moveto ( redish) showen (r\366tlich) showde -4000 -100 moveto (Green G) showen (Gr\374n G) showde 3000 -100 moveto (Red R) showen (Rot R) showde -400 3700 moveto (Yellow J) showen (Gelb J) showde -400 -3900 moveto (Blue B) showen (Blau B) showde -1400 xym mul -1400 xym mul translate 1200 1500 translate %END CIELAB-Hue Circle %CIELAB-Table /xdev 11000 def /xele -09250 def /xtop 600 def ibild 0 eq {5600 xdev add }{4700 xele add} ifelse 9600 xtop add translate /yhoe 6300 def ibild 0 eq {/xmi0 0 def /ymi0 -50 def} {/xmi0 700 def /ymi0 -1400 def} ifelse 15 setlinewidth 1.0 setgray 0 ymi0 moveto 5300 xmi0 add 0 rlineto 0 4800 ymi0 sub rlineto -5300 xmi0 sub 0 rlineto closepath fill 0.0 setgray 0 ymi0 moveto 5300 xmi0 add 0 rlineto 0 4800 ymi0 sub rlineto -5300 xmi0 sub 0 rlineto closepath stroke /nshow {300 /Times-ISOL1 FS show} bind def /kshow {300 /TimesI-ISOL1 FS show} bind def /bshow {300 /TimesB-ISOL1 FS show} bind def /jshow {300 /TimesBI-ISOL1 FS show} bind def /sshow {300 /Symbol FS show} bind def /ishow {220 /Times-ISOL1 FS -00 -50 rmoveto show 00 50 rmoveto} bind def /eshow {220 /Times-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto} bind def /yd 340 def %y-Zeilenabstand %Spalten /S1 20 def /S2 450 def /S3 1550 def /S4 2650 def /S5 3750 def /S6 4800 def /yu1 4650 def /yu2 3800 def 0 4100 moveto ibild 0 eq {5300}{6000} ifelse 0 rlineto stroke %Titeltext S1 4550 moveto ibild 0 eq {xcharti 12 eq {TSYSIO} {TSYSIOa} ifelse bshow} {TSYSIOa bshow} ifelse lanind 1 eq {(;) bshow xcharti 12 lt ibild 0 ne or {( adapted (a)) bshow} if ( CIELAB data) bshow} if lanind 0 eq {(;) bshow xcharti 12 lt ibild 0 ne or {( adaptierte) bshow} if ( CIELAB\255Daten) bshow} if S1 000 add 4250 moveto ibild 0 eq {(Name) kshow} {DEintp 0 eq {( d*)}{( u*)} ifelse kshow} ifelse S2 300 add 4250 moveto (L*=L*) kshow xcharti 12 lt ibild 0 ne or {(a) ishow} if S3 300 add 4250 moveto (a*) kshow xcharti 12 lt ibild 0 ne or {(a) ishow} if S4 000 add 4250 moveto (b*) kshow xcharti 12 lt ibild 0 ne or {(a) ishow} if S5 100 sub 4250 moveto (C*) kshow (ab) ishow xcharti 12 lt ibild 0 ne or {(,a) ishow} if S6 200 sub 4250 moveto (h*) kshow (ab) ishow xcharti 12 lt ibild 0 ne or {(,a) ishow} if ibild 1 eq {S6 600 add 4250 moveto DEintp 0 eq {(u*)}{(d*)} ifelse kshow} if ibild 0 eq {%BEG ibild=0 0 1 11 {/ic exch def %ic=0,11 S1 20 add yu2 yd ic mul sub moveto ColNames ic get nshow ic 8 ge {(CIE) ishow}{(M) ishow xcharti 12 lt {(a) ishow} if} ifelse ( ) nshow } for %ic=0,11 0 1 11 {/i exch def %i=0,11 /ya yu2 yd i mul sub def xcharti 12 lt { %xcharti=12,#12 /L*Fa LAB*a i 3 mul get def /A*Fa LAB*a i 3 mul 1 add get def /B*Fa LAB*a i 3 mul 2 add get def /C*Fa A*Fa dup mul B*Fa dup mul add sqrt def /H*Fa B*Fa A*Fa 0.0001 add atan def S2 350 add ya moveto L*Fa cvsshow2 S3 100 add ya moveto A*Fa cvsshow2 S4 100 add ya moveto B*Fa cvsshow2 S5 ya moveto C*Fa cvsshow2 S6 ya moveto H*Fa cvishow } %xcharti=12 { %xcharti#12 /L*Fx LAB* i 3 mul get def /A*Fx LAB* i 3 mul 1 add get def /B*Fx LAB* i 3 mul 2 add get def /C*Fx A*Fx dup mul B*Fx dup mul add sqrt def /H*Fx B*Fx A*Fx 0.0001 add atan def S2 350 add ya moveto L*Fx cvsshow2 S3 100 add ya moveto A*Fx cvsshow2 S4 100 add ya moveto B*Fx cvsshow2 S5 ya moveto C*Fx cvsshow2 S6 50 sub ya moveto H*Fx cvishow } ifelse %xcharti=12,#12 } for %i=0,11 }%END ibild=0 {%BEG ibild=1 0 1 15 {/i exch def %i=0,15 S1 20 add yu2 yd i mul sub moveto DEintp 0 eq {ColdiNames}{ColeiNames} ifelse i get kshow } for %i=0,15 0 1 15 {/i exch def %i=0,15 /ya yu2 yd i mul sub def /L*Ma DEintp 0 eq {L*diMa} {L*eiMa} ifelse i get def /A*Ma DEintp 0 eq {A*diMa} {A*eiMa} ifelse i get def /B*Ma DEintp 0 eq {B*diMa} {B*eiMa} ifelse i get def /C*Ma A*Ma dup mul B*Ma dup mul add 0.0001 add sqrt def /H*Ma B*Ma A*Ma 0.0001 add atan def S1 ya moveto () nshow S2 350 add ya moveto L*Ma cvsshow2 S3 100 add ya moveto A*Ma cvsshow2 S4 100 add ya moveto B*Ma cvsshow2 S5 ya moveto C*Ma cvsshow2 S6 100 sub ya moveto H*Ma cvishow S6 500 add ya moveto DEintp 0 eq {u*deiMa1 i get kshow u*deiMai i get 9 le {(0) kshow} if u*deiMai i get 6 string cvs kshow u*deiMa2 i get kshow } {u*ediMa1 i get kshow u*ediMai i get 9 le {(0) kshow} if u*ediMai i get 6 string cvs kshow u*ediMa2 i get kshow } ifelse } for %i=0,15 } ifelse %END ibild=1 ibild 0 eq {-5600 xdev sub}{-4700 xele sub} ifelse -9600 xtop sub translate %CIELAB-Diagram ibild 0 eq { %ibild=0 2600 xdev add 11600 xtop add translate 25 setlinewidth 1.0 setgray 0 0 moveto 2800 0 rlineto 0 2800 rlineto -2800 0 rlineto closepath fill 0.0 setgray 0 0 moveto 2800 0 rlineto 0 2800 rlineto -2800 0 rlineto closepath stroke 1200 1300 translate -1000 0 moveto 1000 0 lineto stroke 0 -1000 moveto 0 1000 lineto stroke 1100 0 moveto (a*) kshow (a) ishow 0 1100 moveto (b*) kshow (a) ishow /rx 774 def %standard hexagon gamut 0.0 setgray rx 030 cos mul rx 030 sin mul moveto 0 rx lineto rx 150 cos mul rx 150 sin mul lineto rx 210 cos mul rx 210 sin mul lineto 0 rx neg lineto rx 330 cos mul rx 330 sin mul lineto closepath stroke /r*x 1 def /g*x 0 def /b*x 0 def r*x g*x b*x setrgbcolor rx 030 cos mul rx 030 sin mul 100 0 360 arc fill /r*x 1 def /g*x 1 def /b*x 0 def r*x g*x b*x setrgbcolor 0 rx 100 0 360 arc fill /r*x 0 def /g*x 1 def /b*x 0 def r*x g*x b*x setrgbcolor rx 150 cos mul rx 150 sin mul 100 0 360 arc fill /r*x 0 def /g*x 1 def /b*x 1 def r*x g*x b*x setrgbcolor rx 210 cos mul rx 210 sin mul 100 0 360 arc fill /r*x 0 def /g*x 0 def /b*x 1 def r*x g*x b*x setrgbcolor 0 rx neg 100 0 360 arc fill /r*x 1 def /g*x 0 def /b*x 1 def r*x g*x b*x setrgbcolor rx 330 cos mul rx 330 sin mul 100 0 360 arc fill %calculation line of actual hue 45 setlinewidth %actual gamut 0 0 0 setrgbcolor 0 1 5 {/i exch def %i=0,5 /A*Ma LAB*a i 3 mul 1 add get def /B*Ma LAB*a i 3 mul 2 add get def i 0 eq {A*Ma 10 mul B*Ma 10 mul moveto} {A*Ma 10 mul B*Ma 10 mul lineto} ifelse i 5 eq {closepath stroke} if } for %i=0,5 %plot line of actual hue 50 setlinewidth xcharts 0 eq {/r*x 1 def /g*x 0 def /b*x 0 def} if xcharts 1 eq {/r*x 1 def /g*x 1 def /b*x 0 def} if xcharts 2 eq {/r*x 0 def /g*x 1 def /b*x 0 def} if xcharts 3 eq {/r*x 0 def /g*x 1 def /b*x 1 def} if xcharts 4 eq {/r*x 0 def /g*x 0 def /b*x 1 def} if xcharts 5 eq {/r*x 1 def /g*x 0 def /b*x 1 def} if xcharts 5 le {%xcharts<=5 r*x g*x b*x setrgbcolor 0 0 moveto /A*Ma LAB*a xcharts 3 mul 1 add get def /B*Ma LAB*a xcharts 3 mul 2 add get def A*Ma 10 mul B*Ma 10 mul lineto stroke } if %xcharts<=5 xcharts 6 ge {%xcharts>=6 0 1 15 {/jhue exch def %jhue /L*xMa DEintp 0 eq {L*diMa} {L*eiMa} ifelse jhue get def /A*xMa DEintp 0 eq {A*diMa} {A*eiMa} ifelse jhue get def /B*xMa DEintp 0 eq {B*diMa} {B*eiMa} ifelse jhue get def /r*x DEintp 0 eq {o3*ddiMa} {o3*ediMa} ifelse jhue get def /g*x DEintp 0 eq {l3*ddiMa} {l3*ediMa} ifelse jhue get def /b*x DEintp 0 eq {v3*ddiMa} {v3*ediMa} ifelse jhue get def r*x g*x b*x setrgbcolor 0 0 moveto A*xMa 10 mul B*xMa 10 mul lineto stroke A*xMa 10 mul B*xMa 10 mul moveto -100 -100 rlineto 200 200 rlineto stroke A*xMa 10 mul B*xMa 10 mul moveto -100 100 rlineto 200 -200 rlineto stroke } for %jhue=0,15 } if %xcharts>=6 -1200 -1300 translate -2600 xdev sub -11600 xtop sub translate } if %ibild=0 /u* 0 def /H*MGam 6 array def /C*MGam 6 array def 0 1 5 {/i exch def %i=0,5 /A*Ma LAB*a i 3 mul 1 add get def /B*Ma LAB*a i 3 mul 2 add get def /C*MGama A*Ma dup mul B*Ma dup mul add sqrt def H*MGam i B*Ma A*Ma 0.0001 add atan put C*MGam i C*MGama put /u* u* C*MGama L*Wio L*Nio sub mul add def } for %i=0,5 /u*r u* 77.4 77.4 mul 6 mul div 100 mul def 1 1 1 setrgbcolor ibild 1 eq { %ibild=1 /xmtext 2500 def /xms 0 def xmtext 11800 moveto TBG (%Gamut) showen (%Umfang) showde xmtext 11400 moveto TBG (u*) show (rel) ishow TBG ( = ) show u*r cvishow 0 1 4 {/i exch def %i=0,4 /H*dif H*MGam i 1 add get H*MGam i get sub def i 0 eq {/H*MGamin H*dif def /H*MGamax H*dif def} if H*dif H*MGamin lt {/H*MGamin H*dif def} if H*dif H*MGamax gt {/H*MGamax H*dif def} if } for %i=0,4 /g*Hr H*MGamin H*MGamax div 100 mul def xmtext 11000 moveto TBG (%Regularity) showen (%Regularit\344t) showde xmtext 10600 moveto TBG (g*) show (H,rel) ishow TBG ( = ) show g*Hr cvishow 0 1 4 {/i exch def %i=0,4 /C*akt C*MGam i get def i 0 eq {/C*MGamin C*akt def /C*MGamax C*akt def} if C*akt C*MGamin lt {/C*MGamin C*akt def} if C*akt C*MGamax gt {/C*MGamax C*akt def} if } for %i=0,4 /g*Cr C*MGamin C*MGamax div 100 mul def xmtext 10200 moveto TBG (g*) show (C,rel) ishow TBG ( = ) show g*Cr cvishow 0 0 0 setrgbcolor TBIG 7700 9200 moveto xcharti 6 ge {(no. ) showen (Nr. ) showde 7700 8800 moveto (LAB*LCH*) show -20 -50 rmoveto TBM (a) show 0 50 rmoveto TBIG } if 0 0 0 setrgbcolor TBIG -12800 9200 moveto xcharti 6 ge {DEintp 0 eq {(d*)} {(u*)} ifelse show} if -12800 8800 moveto xcharti 6 eq {(lab*olv*) show} if xcharti 7 eq {(lab*rgb*) show} if xcharti 8 eq {(LAB*LAB*) show -20 -50 rmoveto TBM (a) show 0 50 rmoveto TBIG} if xcharti 9 eq {(LAB*LCH*) show -20 -50 rmoveto TBM (a) show 0 50 rmoveto TBIG} if xcharti 10 eq {(lab*tch*) show} if xcharti 11 eq {(lab*icu*) show TBM 0 -50 rmoveto DEintp 0 eq {(e)} {(d)} ifelse show 0 50 rmoveto TBIG} if xcharti 12 eq {(LAB*LAB*) show} if xcharti 13 eq {(lab*) show (olv'*) show} if %DEintp 0 eq {(olv'*) show} {(rgb'*) show} ifelse} if xcharti 14 eq {(LAB*) show (cmyn'*) show} if %DEintp 0 eq {(cmyn'*) show} {(cmjn'*) show} ifelse} if } if %ibild=1 ibild 1 eq {-13800 -1700 translate} if ibild 0 eq { -1900 -1700 translate} if } if %xcharts=9 xcharts 10 ge {%xcharts>=10 ibild 0 eq { 1900 1700 translate} if ibild 1 eq {13800 1700 translate} if 1.0 setgray 25 setlinewidth -200 000 moveto 10500 0 rlineto stroke 000 -200 moveto 0 11800 rlineto stroke ibild 0 eq {2500 -200 moveto 0 400 rlineto stroke 5000 -200 moveto 0 400 rlineto stroke 7500 -200 moveto 0 400 rlineto stroke} {2000 -200 moveto 0 400 rlineto stroke 4000 -200 moveto 0 400 rlineto stroke 6000 -200 moveto 0 400 rlineto stroke 8000 -200 moveto 0 400 rlineto stroke }ifelse 10000 -200 moveto 0 400 rlineto stroke -200 5000 moveto 400 0 rlineto stroke -200 10000 moveto 400 0 rlineto stroke 000 000 moveto 10000 5000 rlineto -10000 5000 rlineto stroke 09700 -450 sub 000 150 add moveto 450 -150 rlineto -450 -150 rlineto closepath fill 000 150 sub 11000 -450 sub moveto 150 450 rlineto 150 -450 rlineto closepath fill TM %c*, C* ibild 0 eq { %ibild=0,1 /iy0 -600 def 0 200 sub iy0 moveto (0,00) show 2500 200 sub iy0 moveto (0,25) show 5000 200 sub iy0 moveto (0,50) show 7500 200 sub iy0 moveto (0,75) show 10000 200 sub iy0 moveto (1,00) show } { /iy0 -600 def 0 200 sub iy0 moveto (0,00) show 2000 200 sub iy0 moveto (0,20) show 4000 200 sub iy0 moveto (0,40) show 6000 200 sub iy0 moveto (0,60) show 8000 200 sub iy0 moveto (0,80) show 10000 200 sub iy0 moveto (1,00) show } ifelse %ibild=0,1 TM %t*, L* ibild 0 eq { %ibild=0,1 /ix0 -1850 def /iy0 200 def ix0 0 iy0 sub moveto (0,00) show ix0 2500 iy0 sub moveto (0,25) show ix0 5000 iy0 sub moveto (0,50) show ix0 7500 iy0 sub moveto (0,75) show ix0 10000 iy0 sub moveto (1,00) show } { /ix0 -1000 def /iy0 200 def ix0 0 iy0 sub moveto (0,00) show ix0 2500 iy0 sub moveto (0,25) show % ix0 5000 iy0 sub moveto (0,50) show ix0 7500 iy0 sub moveto (0,75) show ix0 10000 iy0 sub moveto (1,00) show } ifelse %ibild=0,1 TM i%* ibild 0 eq { %ibild=0,1 /iy0 1550 def 10000 400 sub 5000 iy0 sub moveto TIM (i*) show TM ( = 1,00) show 7500 400 sub 3750 iy0 sub moveto TIM (i*) show TM ( = 0,75) show 5000 400 sub 2500 iy0 sub moveto TIM (i*) show TM ( = 0,50) show 2500 400 sub 1250 iy0 sub moveto TIM (i*) show TM ( = 0,25) show 000 400 sub 00 iy0 sub moveto TIM (i*) show TM ( = 0,00) show } { /iy0 700 def 10000 500 sub 4700 iy0 sub moveto TIM (i*) show TM (=1,00) show 8000 200 sub 4000 iy0 sub moveto TIM (i*) show TM (=0,80) show 6000 200 sub 3000 iy0 sub moveto TIM (i*) show TM (=0,60) show 4000 200 sub 2000 iy0 sub moveto TIM (i*) show TM (=0,40) show 2000 200 sub 1000 iy0 sub moveto TIM (i*) show TM (=0,20) show 000 200 sub -300 iy0 sub moveto TIM (i*) show TM (=0,00) show } ifelse %ibild=0,1 ibild 0 eq {/iy0 2400 def} {/iy0 1400 def} ifelse 10000 0500 sub 4800 iy0 sub moveto -1000 -500 rlineto stroke 10000 2000 sub 3800 iy0 sub moveto TBG (brilliantness) showen (Brillantheit) showde TBIG ( i*) show 10000 0500 sub 4800 iy0 sub moveto -450 -75 rlineto 150 -300 rlineto closepath fill 7200 -1100 moveto TBG (relative chroma) showen (relative Buntheit) showde TBIG ( c*) show TBG /xtext0 -1700 def /xtext1 -1200 def ibild 0 eq { %ibild=0 xtext0 15000 100 sub moveto (Input and output: Colorimetric ) showen (Ein und Ausgabe: Farbmetrisches ) showde ISRL*ioL 0 eq {%ISRL*ioL=0 ISIO*ioL 0 eq {/TSYSIOa (FRS15_90a) def /TSYSIO (FRS15_90) def (Printer Reflective System ) showen (Drucker\255Reflektiv\255System ) showde} if ISIO*ioL 1 eq {/TSYSIOa (TLS00a) def (Television Luminous System ) showen (Fernseh\255Licht\255System ) showde} if ISIO*ioL 2 eq {/TSYSIOa (FRS06a) def (Printer Reflective System ) showen (Drucker\255Reflektiv\255System ) showde} if ISIO*ioL 3 eq {/TSYSIOa (TLS18a) def (Television Luminous System ) showen (Fernseh\255Licht\255System ) showde} if ISIO*ioL 4 eq {/TSYSIOa (NLS00a) def (Natural Luminous System ) showen (Nat\374rliches\255Licht\255System ) showde} if ISIO*ioL 5 eq {/TSYSIOa (NRS18a) def (Natural Reflective System ) showen (Nat\374rliches\255Reflektiv\255System ) showde} if ISIO*ioL 6 eq {/TSYSIOa (SRS18a) def (Standard Reflective System ) showen (Standard\255Reflektiv\255System ) showde} if ISIO*ioL 7 eq {/TSYSIOa (TLS70a) def (Television Luminous System ) showen (Fernseh\255Licht\255System ) showde} if } if %ISRL*ioL=0 ISRL*ioL 1 eq {%ISRL*ioL=1 ISIO*ioL 0 eq {/TSYSIOa (TLS00a) def} if ISIO*ioL 1 eq {/TSYSIOa (TLS06a) def} if ISIO*ioL 2 eq {/TSYSIOa (TLS11a) def} if ISIO*ioL 3 eq {/TSYSIOa (TLS18a) def} if ISIO*ioL 4 eq {/TSYSIOa (TLS27a) def} if ISIO*ioL 5 eq {/TSYSIOa (TLS38a) def} if ISIO*ioL 6 eq {/TSYSIOa (TLS52a) def} if ISIO*ioL 7 eq {/TSYSIOa (TLS70a) def} if (Television Luminous System ) showen (Fernseh\255Licht\255System ) showde } if %ISRL*ioL=1 ISRL*ioL 2 eq {%ISRL*ioL=2 ISIO*ioL 0 eq {/TSYSIOa (OLS00a) def} if ISIO*ioL 1 eq {/TSYSIOa (OLS06a) def} if ISIO*ioL 2 eq {/TSYSIOa (OLS11a) def} if ISIO*ioL 3 eq {/TSYSIOa (OLS18a) def} if ISIO*ioL 4 eq {/TSYSIOa (OLS27a) def} if ISIO*ioL 5 eq {/TSYSIOa (OLS38a) def} if ISIO*ioL 6 eq {/TSYSIOa (OLS52a) def} if ISIO*ioL 7 eq {/TSYSIOa (OLS70a) def} if (Offset Luminous System ) showen (Offset\255Licht\255System ) showde } if %ISRL*ioL=2 TSYSIOa show /i xcharts 10 sub def TBG ( for relative CIELAB hue) showen ( f\374r relativen CIELAB\255Buntton) showde TBIG ( h* = lab*h*) show TBG ( = ) show TBIG ( h) show TBM -20 -50 rmoveto (ab) show 0 50 rmoveto TBG (/360 = ) show DEintp 0 eq {B*diMa} {B*eiMa} ifelse i get DEintp 0 eq {A*diMa} {A*eiMa} ifelse i get 0.0001 add atan 360 div cvsshow3 TBG xtext0 14500 moveto (data for any colour:) showen (Daten f\374r jede Farbe:) showde xtext1 14100 moveto TBIG (lab*tch*) show TBG ( and ) showen ( und ) showde TBIG (lab*ncu*) show xtext0 13700 moveto TBG (Hue texts: ) showen (Bunttontexte: ) showde xtext1 13300 moveto TBIG DEintp 0 eq {(d*)} {(u*)} ifelse show TBG ( = ) show TBIG DEintp 0 eq {ColdiNames}{ColeiNames} ifelse i get show cfakt 1 ne {%cfakt#1 xtext0 12900 moveto TBG (contrast reduction factor: ) showen (Kontrastreduzierungsfaktor: ) showde xtext1 12500 moveto xtext1 12500 moveto TBIG (c) show TBM 0 -130 rmoveto (R) show 0 130 rmoveto TBG ( = ) show cfakt cvsshow2 } if %cfakt#1 xtext1 12000 moveto TBG (triangle lightness) showen (Dreiecks\255Helligkeit) showde TBIG ( t*) show /ixt 12500 def /iyt 000 def TBG -1200 ixt add 12000 iyt add moveto TBG (triangle lightness) showen (Dreiecks\255Helligkeit) showde TBIG ( t*) show xtext1 1800 add 13300 moveto TBIG ( u*) show TBM 0 -50 rmoveto DEintp 0 eq {(e)}{(d)} ifelse show 0 50 rmoveto TBG ( = ) show TBIG DEintp 0 eq {u*deiMa1 i get show u*deiMai i get 9 le {(0) show} if u*deiMai i get 6 string cvs show u*deiMa2 i get show } {u*ediMa1 i get show u*ediMai i get 9 le {(0) show} if u*ediMai i get 6 string cvs show u*ediMa2 i get show } ifelse TBG -1200 ixt add 14500 iyt add moveto (Data for maximum colour (Ma): ) showen (Daten f\374r Maximalfarbe (Ma): ) showde TBIG -1200 ixt add 14000 iyt add moveto (LAB*LAB*) show TBM -20 -50 rmoveto (Ma) show 0 50 rmoveto TBG (: ) show DEintp 0 eq {L*diMa} {L*eiMa} ifelse i get cvishow ( ) show DEintp 0 eq {A*diMa} {A*eiMa} ifelse i get cvishow ( ) show DEintp 0 eq {B*diMa} {B*eiMa} ifelse i get cvishow TBIG -1200 ixt add 13500 iyt add moveto (LAB*LCH*) show TBM -20 -50 rmoveto (Ma) show 0 50 rmoveto TBG (: ) show DEintp 0 eq {L*diMa} {L*eiMa} ifelse i get cvishow ( ) show DEintp 0 eq {A*diMa} {A*eiMa} ifelse i get dup mul DEintp 0 eq {B*diMa} {B*eiMa} ifelse i get dup mul add 0.0001 add sqrt cvishow ( ) show DEintp 0 eq {B*diMa} {B*eiMa} ifelse i get DEintp 0 eq {A*diMa} {A*eiMa} ifelse i get 0.0001 add atan cvi cvishow TBIG -1200 ixt add 13000 iyt add moveto (lab*) show DEintp 0 eq {(olv*)}{(rgb*)} ifelse show TBM -20 -50 rmoveto (Ma) show 0 50 rmoveto TBG (: ) show DEintp 0 eq {o3*ddiMa i get cvsshow2 ( ) show l3*ddiMa i get cvsshow2 ( ) show v3*ddiMa i get cvsshow2 ( ) show } {o3*eeiMa i get cvsshow2 ( ) show l3*eeiMa i get cvsshow2 ( ) show v3*eeiMa i get cvsshow2 ( ) show } ifelse TBIG -1200 ixt add 12500 iyt add moveto (lab*) show DEintp 0 eq {(rgb*)}{(olv*)} ifelse show TBM -20 -50 rmoveto (Ma) show 0 50 rmoveto TBG (: ) show DEintp 0 eq {o3*deiMa i get cvsshow2 ( ) show l3*deiMa i get cvsshow2 ( ) show v3*deiMa i get cvsshow2 ( ) show } {o3*ediMa i get cvsshow2 ( ) show l3*ediMa i get cvsshow2 ( ) show v3*ediMa i get cvsshow2 ( ) show } ifelse } if %ibild=0 0.0 setgray CBM ibild 0 eq { %ibild=0 /Tabfakt 0.82 def /anz 5 def /xs 10000 anz 3 add div def /ys xs def /x9 xs 1.8 mul def /xd xs 2 mul def /yd xs def 1 1 1 setrgbcolor %n* 1 1 3 {/j exch def /x1 xmin def /y1 ymax yd j 2 mul mul sub def /x2 xmin xd 4 j sub mul add def /y2 ymin yd 4 j sub mul add def x1 y1 moveto x2 y2 lineto stroke } for %c* 1 1 3 {/j exch def /x1 xmin xd j mul add def /y1 ymax yd j mul sub def /x2 xmin xd j mul add def /y2 ymin yd j mul add def x1 y1 moveto x2 y2 lineto stroke } for xcharts 6 ge {/i xcharts 10 sub def /o3*xxMa0 DEintp 0 eq {o3*ddiMa} {o3*ediMa} ifelse i get def /l3*xxMa0 DEintp 0 eq {l3*ddiMa} {l3*ediMa} ifelse i get def /v3*xxMa0 DEintp 0 eq {v3*ddiMa} {v3*ediMa} ifelse i get def } if /id 1 4 div def 0 1 04 {/j exch def %j=0,4 /im 4 j sub def 0 1 im {/i exch def %i=0,4 im 0 eq %im=0 {/r*x 0 def /g*x 0 def /b*x 0 def} %im=0 {/ia 1 id j mul sub def /argb ia def /brgb ia i id mul sub def xcharts 0 eq {/r*x argb def /g*x brgb def /b*x brgb def} if xcharts 1 eq {/r*x argb def /g*x argb def /b*x brgb def} if xcharts 2 eq {/r*x brgb def /g*x argb def /b*x brgb def} if xcharts 3 eq {/r*x brgb def /g*x argb def /b*x argb def} if xcharts 4 eq {/r*x brgb def /g*x brgb def /b*x argb def} if xcharts 5 eq {/r*x argb def /g*x brgb def /b*x argb def} if xcharts 6 ge {%xcharts>=6 /ib 1 im div def %im#0 /ic 1 ib i mul sub def /ie 1 ic sub def /r*x 1 ia mul ic mul o3*xxMa0 ia mul ie mul add def /g*x 1 ia mul ic mul l3*xxMa0 ia mul ie mul add def /b*x 1 ia mul ic mul v3*xxMa0 ia mul ie mul add def } if %xcharts>=6 } ifelse %im=0 /tLAB 1 def r*x g*x b*x DEintp 0 eq { %DEintp=0 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 /u*xdMa10 u*ddMa1 def /u*xeMa10 u*deMa1 def /u*xdMai0 u*ddMai def /u*xeMai0 u*deMai def /u*xdMa20 u*ddMa2 def /u*xeMa20 u*deMa2 def } %DEintp=0 { %DEintp=1 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 /u*xdMa10 u*ddMa1 def /u*xeMa10 u*deMa1 def /u*xdMai0 u*ddMai def /u*xeMai0 u*deMai def /u*xdMa20 u*ddMa2 def /u*xeMa20 u*deMa2 def } ifelse %DEintp=1 /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 /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*dd0} ifelse def /g*x DEintp 0 eq {l3*dd0}{l3*dd0} ifelse def /b*x DEintp 0 eq {v3*dd0}{v3*dd0} ifelse def r*x g*x b*x setrgbcolor %only to calculate olv'*3, cmyn'*4 /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 /xa xmin xd i mul add 0.5 xd mul sub def /iad j 2 mul def /ya ymax yd i iad add mul sub 1.0 yd mul sub def r*x g*x b*x setrgbcolor /o*Fa0 o* def /l*Fa0 l* def /v*Fa0 v* def /c4*Fa0 c4*Fa def /m4*Fa0 m4*Fa def /y4*Fa0 y4*Fa def /n4*Fa0 n4*Fa def xa ya xd xd rec fill xcharti 5 le {1 r*x sub 1 g*x sub 1 b*x sub 0 setcmykcolor xa ya xd 0.5 mul dup rem fill} if xcharti 6 ge {1 1 1 setrgbcolor xa ya xd 0.5 mul dup rem fill} 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 xd 0.5 mul dup rem stroke [ ] 0 setdash } if %xcharti=0 xcharti 6 ge {0 0 0 setrgbcolor /xan xa xd 0.30 mul add def /yan ya xd 0.25 mul add def xcharti 14 ne { 0 0.5 1 setrgbcolor xan yan 1000 add moveto DEintp 0 eq {u*xdMa10 show u*xdMai0 9 le {(0) show} if u*xdMai0 cvishow u*xdMa20 show} {u*xeMa10 show u*xeMai0 9 le {(0) show} if u*xeMai0 cvishow u*xeMa20 show} ifelse 0 0 0 setrgbcolor} if } if xcharti 6 eq {xan yan 700 add moveto DEintp 0 eq {o3*dd0}{o3*dd0} ifelse cvsshow2 xan yan 400 add moveto DEintp 0 eq {l3*dd0}{l3*dd0} ifelse cvsshow2 xan yan 100 add moveto DEintp 0 eq {v3*dd0}{v3*dd0} ifelse cvsshow2} if xcharti 7 eq {xan yan 700 add moveto DEintp 0 eq {o3*de0}{o3*de0} ifelse cvsshow2 xan yan 400 add moveto DEintp 0 eq {l3*de0}{l3*de0} ifelse cvsshow2 xan yan 100 add moveto DEintp 0 eq {v3*de0}{v3*de0} ifelse cvsshow2} if xcharti 8 eq {xan yan 700 add moveto L*Fa0 cvsshow1 xan yan 400 add moveto A*Fa0 cvsshow1 xan yan 100 add moveto B*Fa0 cvsshow1} if xcharti 9 eq {xan yan 700 add moveto L*Fa0 cvsshow1 xan yan 400 add moveto C*Fa0 cvsshow1 xan yan 100 add moveto H*Fa0 cvishow} if xcharti 10 eq {xan yan 700 add moveto t*s0 cvsshow2 xan yan 400 add moveto c*rs0 cvsshow2 xan yan 100 add moveto h*s0 cvsshow2} if xcharti 11 eq {xan yan 700 add moveto i*s0 cvsshow2 xan yan 400 add moveto c*rs0 cvsshow2 xan yan 100 add moveto DEintp 0 eq {u*xeMa10 show u*xeMai0 9 le {(0) show} if u*xeMai0 cvishow u*xeMa20 show} {u*xdMa10 show u*xdMai0 9 le {(0) show} if u*xdMai0 cvishow u*xdMa20 show} ifelse } if xcharti 12 eq {xan yan 700 add moveto L*Fa0x cvsshow1 xan yan 400 add moveto A*Fa0x cvsshow1 xan yan 100 add moveto B*Fa0x cvishow} if xcharti 13 eq {xan yan 700 add moveto os3*Fa0 cvsshow2 xan yan 400 add moveto ls3*Fa0 cvsshow2 xan yan 100 add moveto vs3*Fa0 cvsshow2} if xcharti 14 eq {CBM xan yan 1000 add moveto cs4*Fa0 cvsshow2 xan yan 700 add moveto ms4*Fa0 cvsshow2 xan yan 400 add moveto ys4*Fa0 cvsshow2 xan yan 100 add moveto ns4*Fa0 cvsshow2 CBM} if } for %i=0,4 } for %j=0,4 /i 2 def %mean grey stroke of 5 steps /xa xmin 0.5 xd mul sub def /ya ymax yd i mul 2 mul sub 1.0 yd mul sub def 1 1 1 setrgbcolor xa ya xd xd rec stroke } if %ibild=0 ibild 1 eq { %ibild=1 CBK /Tabfakt 1 def /anz 16 def /xs 10000 anz 14 add div def /ys xs def /x9 xs 1.8 mul def /xd xs 2 mul def /yd xs def 1 1 1 setrgbcolor %n* 1 1 14 {/j exch def %j=1,14 /x1 xmin def /y1 ymax yd j 2 mul mul sub def /x2 xmin xd 15 j sub mul add def /y2 ymin yd 15 j sub mul add def x1 y1 moveto x2 y2 lineto stroke } for %j=1,14 %c* 1 1 14 {/j exch def %j=1,14 /x1 xmin xd j mul add def /y1 ymax yd j mul sub def /x2 xmin xd j mul add def /y2 ymin yd j mul add def x1 y1 moveto x2 y2 lineto stroke } for %j=1,14 xcharts 6 ge {/i xcharts 10 sub def /o3*xxMa0 DEintp 0 eq {o3*ddiMa} {o3*ediMa} ifelse i get def /l3*xxMa0 DEintp 0 eq {l3*ddiMa} {l3*ediMa} ifelse i get def /v3*xxMa0 DEintp 0 eq {v3*ddiMa} {v3*ediMa} ifelse i get def } if /id 1 15 div def 0 1 15 {/j exch def %j=0,14 /im 15 j sub def 0 1 im {/i exch def %i=0,15 im 0 eq %im=0 {/r*x 0 def /g*x 0 def /b*x 0 def} %im=0 {/ia 1 id j mul sub def /argb ia def /brgb ia i id mul sub def xcharts 0 eq {/r*x argb def /g*x brgb def /b*x brgb def} if xcharts 1 eq {/r*x argb def /g*x argb def /b*x brgb def} if xcharts 2 eq {/r*x brgb def /g*x argb def /b*x brgb def} if xcharts 3 eq {/r*x brgb def /g*x argb def /b*x argb def} if xcharts 4 eq {/r*x brgb def /g*x brgb def /b*x argb def} if xcharts 5 eq {/r*x argb def /g*x brgb def /b*x argb def} if xcharts 6 ge {%xcharts>=6 /ib 1 im div def %im#0 /ic 1 ib i mul sub def /ie 1 ic sub def /r*x 1 ia mul ic mul o3*xxMa0 ia mul ie mul add def /g*x 1 ia mul ic mul l3*xxMa0 ia mul ie mul add def /b*x 1 ia mul ic mul v3*xxMa0 ia mul ie mul add def } if %xcharts>=6 } ifelse %im=0 /tLAB 1 def r*x g*x b*x DEintp 0 eq { %DEintp=0 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 /u*xdMa10 u*ddMa1 def /u*xeMa10 u*deMa1 def /u*xdMai0 u*ddMai def /u*xeMai0 u*deMai def /u*xdMa20 u*ddMa2 def /u*xeMa20 u*deMa2 def } %DEintp=0 { %DEintp=1 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 /u*xdMa10 u*ddMa1 def /u*xeMa10 u*deMa1 def /u*xdMai0 u*ddMai def /u*xeMai0 u*deMai def /u*xdMa20 u*ddMa2 def /u*xeMa20 u*deMa2 def } ifelse %DEintp=1 /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 /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 g*x b*x setrgbcolor %only to calculate olv'*3, cmyn'*4 /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 /xa xmin xd i mul add xd 0.5 mul sub def /iad j 2 mul def /ya ymax yd i iad add mul sub xd 0.5 mul sub def xcharti 5 le {r*x g*x b*x setrgbcolor xa ya xd dup rec fill 1 r*x sub 1 g*x sub 1 b*x sub 0 setcmykcolor xa ya xd 0.5 mul dup rem fill} if xcharti 6 ge {1 1 1 setrgbcolor xa ya xd xd rec fill 0 0 0 setrgbcolor xa ya xd xd 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 xd 0.5 mul dup rem stroke [ ] 0 setdash } if %xcharti=0 xcharti 6 ge {0 0 0 setrgbcolor /xan xa xds 0.00 mul sub def /yan ya xds 0.25 mul sub def} if xcharti 6 eq {xan yan 600 add moveto DEintp 0 eq {o3*dd0}{o3*dd0} ifelse cvsshow2 xan yan 400 add moveto DEintp 0 eq {l3*dd0}{l3*dd0} ifelse cvsshow2 xan yan 200 add moveto DEintp 0 eq {v3*dd0}{v3*dd0} ifelse cvsshow2} if xcharti 7 eq {xan yan 600 add moveto DEintp 0 eq {o3*de0}{o3*de0} ifelse cvsshow2 xan yan 400 add moveto DEintp 0 eq {l3*de0}{l3*de0} ifelse cvsshow2 xan yan 200 add moveto DEintp 0 eq {v3*de0}{v3*de0} ifelse cvsshow2} if xcharti 8 eq {xan yan 600 add moveto L*Fa0 cvsshow1 xan yan 400 add moveto A*Fa0 cvsshow1 xan yan 200 add moveto B*Fa0 cvsshow1} if xcharti 9 eq {xan yan 600 add moveto L*Fa0 cvsshow1 xan yan 400 add moveto C*Fa0 cvsshow1 xan yan 200 add moveto H*Fa0 cvishow} if xcharti 10 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 11 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*xeMa10 show u*xeMai0 9 le {(0) show} if u*xeMai0 cvishow u*xeMa20 show} {u*xdMa10 show u*xdMai0 9 le {(0) show} if u*xdMai0 cvishow u*xdMa20 show} ifelse } if xcharti 12 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 13 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 14 eq {CBKK xan yan 665 add moveto cs4*Fa0 cvsshow2 xan yan 500 add moveto ms4*Fa0 cvsshow2 xan yan 335 add moveto ys4*Fa0 cvsshow2 xan yan 170 add moveto ns4*Fa0 cvsshow2 CBK} if } for %i=0,15 } for %j=0,15 xcharti 5 le {%xchart=0,5 %mean grey stroke of steps 7 and 8 7 1 8 {/i exch def %i=7,8 /xa xmin xd 0.5 mul sub def /ya ymax yd i mul 2 mul sub xd 0.5 mul sub def 1 1 1 setrgbcolor xa ya xd xd rec stroke } for %i=7,8 } if %xchart=0,5 %Data text for xcharti=6 to 11 0 0 0 setrgbcolor TBIG 8600 14900 moveto DEintp 0 eq {(d*)} {(u*)} ifelse show ( = ) show ColNames xcharts 2 add get show 8600 14500 moveto xcharti 6 eq {(lab*olv*) show} if xcharti 7 eq {(lab*rgb*) show} if xcharti 8 eq {(LAB*LAB*) show -20 -50 rmoveto TBM (a) show 0 50 rmoveto TBIG} if xcharti 9 eq {(LAB*LCH*) show -20 -50 rmoveto TBM (a) show 0 50 rmoveto TBIG} if xcharti 10 eq {(lab*tch*) show} if xcharti 11 eq {(lab*icu*) show TBM 0 -50 rmoveto DEintp 0 eq {(e)} {(d)} ifelse show 0 50 rmoveto TBIG} if xcharti 12 eq {(LAB*LAB*) show} if xcharti 13 eq {(lab*) show (olv'*) show} if %DEintp 0 eq {(olv'*) show} {(rgb'*) show} ifelse} if xcharti 14 eq {(LAB*) show (cmyn'*) show} if %DEintp 0 eq {(cmyn'*) show} {(cmjn'*) show} ifelse} if 8600 06500 moveto xcharti 6 eq {(lab*olv*) show} if xcharti 7 eq {(lab*rgb*) show} if xcharti 8 eq {(LAB*LAB*) show -20 -50 rmoveto TBM (a) show 0 50 rmoveto TBIG} if xcharti 9 eq {(LAB*LCH*) show -20 -50 rmoveto TBM (a) show 0 50 rmoveto TBIG} if xcharti 10 eq {(lab*tch*) show} if xcharti 11 eq {(lab*icu*) show TBM 0 -50 rmoveto DEintp 0 eq {(e)} {(d)} ifelse show 0 50 rmoveto TBIG} if xcharti 12 eq {(LAB*LAB*) show} if xcharti 13 eq {(lab*) show (olv'*) show} if %DEintp 0 eq {(olv'*) show} {(rgb'*) show} ifelse} if xcharti 14 eq {(LAB*) show (cmyn'*) show} if %DEintp 0 eq {(cmyn'*) show} {(cmjn'*) show} ifelse} if } if %ibild=1 %CIELAB-Table ibild 0 eq {5600}{4500} ifelse 9600 translate /yhoe 6300 def ibild 0 eq {/xmi0 0 def /ymi0 -50 def} {/xmi0 700 def /ymi0 -1400 def} ifelse 15 setlinewidth 1.0 setgray 0 ymi0 moveto 5300 xmi0 add 0 rlineto 0 4800 ymi0 sub rlineto -5300 xmi0 sub 0 rlineto closepath fill 0.0 setgray 0 ymi0 moveto 5300 xmi0 add 0 rlineto 0 4800 ymi0 sub rlineto -5300 xmi0 sub 0 rlineto closepath stroke /nshow {300 /Times-ISOL1 FS show} bind def /kshow {300 /TimesI-ISOL1 FS show} bind def /bshow {300 /TimesB-ISOL1 FS show} bind def /jshow {300 /TimesBI-ISOL1 FS show} bind def /sshow {300 /Symbol FS show} bind def /ishow {220 /Times-ISOL1 FS -00 -50 rmoveto show 00 50 rmoveto} bind def /eshow {220 /Times-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto} bind def /yd 340 def %y-Zeilenabstand %Spalten /S1 20 def /S2 450 def /S3 1550 def /S4 2650 def /S5 3750 def /S6 4800 def /yu1 4650 def /yu2 3800 def 0 4100 moveto ibild 0 eq {5300}{6000} ifelse 0 rlineto stroke %Titeltext S1 4550 moveto ibild 0 eq {xcharti 12 eq {TSYSIO} {TSYSIOa} ifelse bshow} {TSYSIOa bshow} ifelse lanind 1 eq {(;) bshow xcharti 12 lt ibild 0 ne or {( adapted (a)) bshow} if ( CIELAB data) bshow} if lanind 0 eq {(;) bshow xcharti 12 lt ibild 0 ne or {( adaptierte) bshow} if ( CIELAB\255Daten) bshow} if S1 000 add 4250 moveto DEintp 0 eq {( d*)}{( u*)} ifelse kshow S2 200 add 4250 moveto (L*=L*) kshow xcharti 12 lt ibild 0 ne or {(a) ishow} if S3 200 add 4250 moveto (a*) kshow xcharti 12 lt ibild 0 ne or {(a) ishow} if S4 000 add 4250 moveto (b*) kshow xcharti 12 lt ibild 0 ne or {(a) ishow} if S5 100 sub 4250 moveto (C*) kshow (ab) ishow xcharti 12 lt ibild 0 ne or {(,a) ishow} if S6 200 sub 4250 moveto (h*) kshow (ab) ishow xcharti 12 lt ibild 0 ne or {(,a) ishow} if ibild 1 eq {S6 600 add 4250 moveto DEintp 0 eq {(u*)}{(d*)} ifelse kshow} if ibild 0 eq {%BEG ibild=0 0 1 11 {/i exch def %i=0,11 S1 20 add yu2 yd i mul sub moveto ColNames i get nshow ic 8 ge {(CIE) ishow}{(M) ishow xcharti 12 lt {(a) ishow} if} ifelse ( ) nshow } for %i=0,11 0 1 11 {/i exch def %i=0,11 /ya yu2 yd i mul sub def xcharti 12 lt { %xcharti=12,#12 /L*Fa LAB*a i 3 mul get def /A*Fa LAB*a i 3 mul 1 add get def /B*Fa LAB*a i 3 mul 2 add get def /C*Fa A*Fa dup mul B*Fa dup mul add sqrt def /H*Fa B*Fa A*Fa 0.0001 add atan def S2 350 add ya moveto L*Fa cvsshow2 S3 100 add ya moveto A*Fa cvsshow2 S4 100 add ya moveto B*Fa cvsshow2 S5 ya moveto C*Fa cvsshow2 S6 ya moveto H*Fa cvishow } %xcharti=12 { %xcharti#12 /L*Fx LAB* i 3 mul get def /A*Fx LAB* i 3 mul 1 add get def /B*Fx LAB* i 3 mul 2 add get def /C*Fx A*Fx dup mul B*Fx dup mul add sqrt def /H*Fx B*Fx A*Fx 0.0001 add atan def S2 350 add ya moveto L*Fx cvsshow2 S3 100 add ya moveto A*Fx cvsshow2 S4 100 add ya moveto B*Fx cvsshow2 S5 ya moveto C*Fx cvsshow2 S6 ya moveto H*Fx cvishow } ifelse %xcharti=12,#12 } for %i=0,11 }%END ibild=0 {%BEG ibild=1 0 1 15 {/i exch def %i=0,15 S1 20 add yu2 yd i mul sub moveto DEintp 0 eq {ColdiNames}{ColeiNames} ifelse i get kshow } for %i=0,15 0 1 15 {/i exch def %i=0,15 /ya yu2 yd i mul sub def /L*Ma DEintp 0 eq {L*diMa} {L*eiMa} ifelse i get def /A*Ma DEintp 0 eq {A*diMa} {A*eiMa} ifelse i get def /B*Ma DEintp 0 eq {B*diMa} {B*eiMa} ifelse i get def /C*Ma A*Ma dup mul B*Ma dup mul add 0.0001 add sqrt def /H*Ma B*Ma A*Ma 0.0001 add atan def S1 ya moveto () nshow S2 350 add ya moveto L*Ma cvsshow2 S3 100 add ya moveto A*Ma cvsshow2 S4 100 add ya moveto B*Ma cvsshow2 S5 ya moveto C*Ma cvsshow2 S6 100 sub ya moveto H*Ma cvishow S6 500 add ya moveto DEintp 0 eq {u*deiMa1 i get kshow u*deiMai i get 9 le {(0) kshow} if u*deiMai i get 6 string cvs kshow u*deiMa2 i get kshow } {u*ediMa1 i get kshow u*ediMai i get 9 le {(0) kshow} if u*ediMai i get 6 string cvs kshow u*ediMa2 i get kshow } ifelse } for %i=0,15 } ifelse %END ibild=1 ibild 0 eq {-5600}{-4500} ifelse -9600 translate %CIELAB-Diagram ibild 0 eq { %ibild=0 2700 11600 translate 25 setlinewidth 1.0 setgray 0 0 moveto 2800 0 rlineto 0 2800 rlineto -2800 0 rlineto closepath fill 0.0 setgray 0 0 moveto 2800 0 rlineto 0 2800 rlineto -2800 0 rlineto closepath stroke 1200 1300 translate -1000 0 moveto 1000 0 lineto stroke 0 -1000 moveto 0 1000 lineto stroke 1100 0 moveto (a*) kshow (a) ishow 0 1100 moveto (b*) kshow (a) ishow /rx 774 def %standard hexagon gamut 0.0 setgray rx 030 cos mul rx 030 sin mul moveto 0 rx lineto rx 150 cos mul rx 150 sin mul lineto rx 210 cos mul rx 210 sin mul lineto 0 rx neg lineto rx 330 cos mul rx 330 sin mul lineto closepath stroke /r*x 1 def /g*x 0 def /b*x 0 def r*x g*x b*x setrgbcolor rx 030 cos mul rx 030 sin mul 100 0 360 arc fill /r*x 1 def /g*x 1 def /b*x 0 def r*x g*x b*x setrgbcolor 0 rx 100 0 360 arc fill /r*x 0 def /g*x 1 def /b*x 0 def r*x g*x b*x setrgbcolor rx 150 cos mul rx 150 sin mul 100 0 360 arc fill /r*x 0 def /g*x 1 def /b*x 1 def r*x g*x b*x setrgbcolor rx 210 cos mul rx 210 sin mul 100 0 360 arc fill /r*x 0 def /g*x 0 def /b*x 1 def r*x g*x b*x setrgbcolor 0 rx neg 100 0 360 arc fill /r*x 1 def /g*x 0 def /b*x 1 def r*x g*x b*x setrgbcolor rx 330 cos mul rx 330 sin mul 100 0 360 arc fill %plot hexagon in device (d) space 45 setlinewidth %actual gamut 0 0 0 setrgbcolor 0 1 5 {/i exch def %i=0,5 /A*Ma LAB*a i 3 mul 1 add get def /B*Ma LAB*a i 3 mul 2 add get def i 0 eq {A*Ma 10 mul B*Ma 10 mul moveto} {A*Ma 10 mul B*Ma 10 mul lineto} ifelse i 5 eq {closepath stroke} if } for %i=0,5 %plot line of actual hue 50 setlinewidth xcharts 0 eq {/r*x 1 def /g*x 0 def /b*x 0 def} if xcharts 1 eq {/r*x 1 def /g*x 1 def /b*x 0 def} if xcharts 2 eq {/r*x 0 def /g*x 1 def /b*x 0 def} if xcharts 3 eq {/r*x 0 def /g*x 1 def /b*x 1 def} if xcharts 4 eq {/r*x 0 def /g*x 0 def /b*x 1 def} if xcharts 5 eq {/r*x 1 def /g*x 0 def /b*x 1 def} if xcharts 5 le {%xcharts<=5 r*x g*x b*x setrgbcolor 0 0 moveto /A*Ma LAB*a xcharts 3 mul 1 add get def /B*Ma LAB*a xcharts 3 mul 2 add get def A*Ma 10 mul B*Ma 10 mul lineto stroke } if %xcharts<=5 xcharts 6 ge {%xcharts>=6 /i xcharts 10 sub def /A*Ma0 DEintp 0 eq {A*diMa} {A*eiMa} ifelse i get def /B*Ma0 DEintp 0 eq {B*diMa} {B*eiMa} ifelse i get def /r*x DEintp 0 eq {o3*ddiMa} {o3*ediMa} ifelse i get def /g*x DEintp 0 eq {l3*ddiMa} {l3*ediMa} ifelse i get def /b*x DEintp 0 eq {v3*ddiMa} {v3*ediMa} ifelse i get def r*x g*x b*x setrgbcolor 0 0 moveto A*Ma0 10 mul B*Ma0 10 mul lineto stroke A*Ma0 10 mul B*Ma0 10 mul moveto -100 -100 rlineto 200 200 rlineto stroke A*Ma0 10 mul B*Ma0 10 mul moveto -100 100 rlineto 200 -200 rlineto stroke } if %xcharts>=6 -1200 -1300 translate -2700 -11600 translate } if %ibild=0 /u* 0 def /H*MGam 6 array def /C*MGam 6 array def 0 1 5 {/i exch def %i=0,5 /A*Ma LAB*a i 3 mul 1 add get def /B*Ma LAB*a i 3 mul 2 add get def /C*MGama A*Ma dup mul B*Ma dup mul add sqrt def H*MGam i B*Ma A*Ma 0.0001 add atan put C*MGam i C*MGama put /u* u* C*MGama L*Wio L*Nio sub mul add def } for %i=0,5 /u*r u* 77.4 77.4 mul 6 mul div 100 mul def 1 1 1 setrgbcolor ibild 1 eq { %ibild=1 /xmtext 2200 def /xms 0 def xmtext xms sub 11400 moveto TBG (%Gamut) showen (%Umfang) showde xmtext xms sub 11000 moveto TBG (u*) show (rel) ishow TBG ( = ) show u*r cvishow 0 1 4 {/i exch def %i=0,4 /H*dif H*MGam i 1 add get H*MGam i get sub def i 0 eq {/H*MGamin H*dif def /H*MGamax H*dif def} if H*dif H*MGamin lt {/H*MGamin H*dif def} if H*dif H*MGamax gt {/H*MGamax H*dif def} if } for %i=0,4 /g*Hr H*MGamin H*MGamax div 100 mul def xmtext xms sub 10600 moveto TBG (%Regularity) showen (%Regularit\344t) showde xmtext 10200 moveto TBG (g*) show (H,rel) ishow TBG ( = ) show g*Hr cvishow 0 1 4 {/i exch def %i=0,4 /C*akt C*MGam i get def i 0 eq {/C*MGamin C*akt def /C*MGamax C*akt def} if C*akt C*MGamin lt {/C*MGamin C*akt def} if C*akt C*MGamax gt {/C*MGamax C*akt def} if } for %i=0,4 /g*Cr C*MGamin C*MGamax div 100 mul def xmtext 09800 moveto TBG (g*) show (C,rel) ishow TBG ( = ) show g*Cr cvishow } if %ibild=1 ibild 1 eq {-13800 -1700 translate} if ibild 0 eq { -1900 -1700 translate} if } if %xcharts>=10 } for %ibild=0,1 } if %xcharts<=25 xcharts 26 eq {%xcharts=26 /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 0.5 0.5 0.5 setrgbcolor 0 0 moveto 24500 0 rlineto 0 17000 rlineto 24500 neg 0 rlineto closepath fill 20 setlinewidth 500 3 div 2 mul /Times-ISOL1 FS 0 0 0 setrgbcolor 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 1 1 37 {/i exch def %i=1,37 /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,37 CBKK /IMODE 0 def %input rgb for output LAB* %row no.1 and 2: 9xrgb /imax 08 def /jmax 08 def /kmax 08 def 0 1 kmax {/k exch def %beg k=0,08 /k0 k 3 idiv def /k1 k k0 3 mul sub def /xadd k1 xss 9 mul mul def /yadd k0 xss 9 mul mul def 0 1 jmax {/j exch def %beg j=0,jmax 0 1 imax {/i exch def %beg i=0,imax /n i j 9 mul add k 81 mul add def /j1 j k1 9 mul add def /j1$ tx1 j1 get def /i1 i 1 add k0 9 mul add def /xa xmins j xss mul add xadd add xsd add def /ya ymaxs i yss mul sub yadd sub ysd add def /r*x k kmax div def /g*x j jmax div def /b*x i imax div def /tLAB 1 def r*x g*x b*x DEintp 0 eq { %DEintp=0 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 /u*xdMa10 u*ddMa1 def /u*xeMa10 u*deMa1 def /u*xdMai0 u*ddMai def /u*xeMai0 u*deMai def /u*xdMa20 u*ddMa2 def /u*xeMa20 u*deMa2 def } %DEintp=0 { %DEintp=1 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 /u*xdMa10 u*ddMa1 def /u*xeMa10 u*deMa1 def /u*xdMai0 u*ddMai def /u*xeMai0 u*deMai def /u*xdMa20 u*ddMa2 def /u*xeMa20 u*deMa2 def } ifelse %DEintp=1 /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 /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*dd0} ifelse def /g*x DEintp 0 eq {l3*dd0} {l3*dd0} ifelse def /b*x DEintp 0 eq {v3*dd0} {v3*dd0} ifelse def r*x g*x b*x setrgbcolor %only to calculate olv'*3, cmyn'*4 /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 5 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 6 ge {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 6 ge {0 0 0 setrgbcolor /xan xa xds 0.00 mul sub def /yan ya xds 0.25 mul sub def} if xcharti 6 eq {xan yan 600 add moveto DEintp 0 eq {o3*dd0}{o3*dd0} ifelse cvsshow2 xan yan 400 add moveto DEintp 0 eq {l3*dd0}{l3*dd0} ifelse cvsshow2 xan yan 200 add moveto DEintp 0 eq {v3*dd0}{v3*dd0} ifelse cvsshow2} if xcharti 7 eq {xan yan 600 add moveto DEintp 0 eq {o3*de0}{o3*de0} ifelse cvsshow2 xan yan 400 add moveto DEintp 0 eq {l3*de0}{l3*de0} ifelse cvsshow2 xan yan 200 add moveto DEintp 0 eq {v3*de0}{v3*de0} ifelse cvsshow2} if xcharti 8 eq {xan yan 600 add moveto L*Fa0 cvsshow1 xan yan 400 add moveto A*Fa0 cvsshow1 xan yan 200 add moveto B*Fa0 cvsshow1} if xcharti 9 eq {xan yan 600 add moveto L*Fa0 cvsshow1 xan yan 400 add moveto C*Fa0 cvsshow1 xan yan 200 add moveto H*Fa0 cvishow} if xcharti 10 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 11 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*xeMa10 show u*xeMai0 9 le {(0) show} if u*xeMai0 cvishow u*xeMa20 show} {u*xdMa10 show u*xdMai0 9 le {(0) show} if u*xdMai0 cvishow u*xdMa20 show} ifelse } if xcharti 12 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 13 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 14 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 } for %end i=0,jmax } for %end j=0,jmax } for %end k=0,kmax %3x rgbcmy /id 1 8 div def /rijn 81 array def %for intermediate storage /gijn 81 array def /bijn 81 array def /lmax 2 def /n 728 def 0 1 lmax {/l exch def %beg k=0,kmax /xadd 3 xss 9 mul mul def /yadd l yss 9 mul mul def %for intermediate storage of l=0,lmax 0 1 01 {/jchart exch def %jchart=0,1 /xchartj l jchart 3 mul add def 0 1 08 {/j exch def %j=0,7 /im 8 j sub def jchart 1 im {/i exch def %i=0,8 /ia 1 id j mul sub def /argb ia def /brgb ia i id mul sub def xchartj 0 eq {/r argb def /g brgb def /b brgb def} if xchartj 1 eq {/r argb def /g argb def /b brgb def} if xchartj 2 eq {/r brgb def /g argb def /b brgb def} if xchartj 3 eq {/r brgb def /g argb def /b argb def} if xchartj 4 eq {/r brgb def /g brgb def /b argb def} if xchartj 5 eq {/r argb def /g brgb def /b argb def} if jchart 0 eq {/in i j add def /jn j def} {/in j def /jn i j add def} ifelse rijn in 9 mul jn add r put gijn in 9 mul jn add g put bijn in 9 mul jn add b put } for %i=0,7 } for %j=0,8 } for %jchart=0,1 %for output of l=0,lmax 0 1 08 {/j exch def %j=0,8 0 1 08 {/i exch def %i=0,8 /r*x rijn i j 9 mul add get def /g*x gijn i j 9 mul add get def /b*x bijn i j 9 mul add get def /xa xmins xss j mul add xadd add xsd add def /ya ymaxs xss i mul sub yadd sub ysd add def /tLAB 1 def r*x g*x b*x DEintp 0 eq { %DEintp=0 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 /u*xdMa10 u*ddMa1 def /u*xeMa10 u*deMa1 def /u*xdMai0 u*ddMai def /u*xeMai0 u*deMai def /u*xdMa20 u*ddMa2 def /u*xeMa20 u*deMa2 def } %DEintp=0 { %DEintp=1 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 /u*xdMa10 u*ddMa1 def /u*xeMa10 u*deMa1 def /u*xdMai0 u*ddMai def /u*xeMai0 u*deMai def /u*xdMa20 u*ddMa2 def /u*xeMa20 u*deMa2 def } ifelse %DEintp=1 /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 /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*dd0} ifelse def /g*x DEintp 0 eq {l3*dd0} {l3*dd0} ifelse def /b*x DEintp 0 eq {v3*dd0} {v3*dd0} ifelse def r*x g*x b*x setrgbcolor %only to calculate olv'*3, cmyn'*4 /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 5 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 6 ge {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 6 ge {0 0 0 setrgbcolor /xan xa xds 0.00 mul sub def /yan ya xds 0.25 mul sub def} if xcharti 6 eq {xan yan 600 add moveto DEintp 0 eq {o3*dd0}{o3*dd0} ifelse cvsshow2 xan yan 400 add moveto DEintp 0 eq {l3*dd0}{l3*dd0} ifelse cvsshow2 xan yan 200 add moveto DEintp 0 eq {v3*dd0}{v3*dd0} ifelse cvsshow2} if xcharti 7 eq {xan yan 600 add moveto DEintp 0 eq {o3*de0}{o3*de0} ifelse cvsshow2 xan yan 400 add moveto DEintp 0 eq {l3*de0}{l3*de0} ifelse cvsshow2 xan yan 200 add moveto DEintp 0 eq {v3*de0}{v3*de0} ifelse cvsshow2} if xcharti 8 eq {xan yan 600 add moveto L*Fa0 cvsshow1 xan yan 400 add moveto A*Fa0 cvsshow1 xan yan 200 add moveto B*Fa0 cvsshow1} if xcharti 9 eq {xan yan 600 add moveto L*Fa0 cvsshow1 xan yan 400 add moveto C*Fa0 cvsshow1 xan yan 200 add moveto H*Fa0 cvishow} if xcharti 10 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 11 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*xeMa10 show u*xeMai0 9 le {(0) show} if u*xeMai0 cvishow u*xeMa20 show} {u*xdMa10 show u*xdMai0 9 le {(0) show} if u*xdMai0 cvishow u*xdMa20 show} ifelse } if xcharti 12 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 13 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 14 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 } for %i=0,7 } for %j=0,8 } for %end l=0,lmax %6wrgbcmy /n 971 /lmax 03 def %4 rows with geys /kmax 1 def %9 or 16 steps 0 1 kmax {/k exch def % k 0 eq {/jmax 08 def} {/jmax 15 def} ifelse 0 1 lmax {/l exch def %beg l=0,lmax /xadd 36 l add xss mul def /yadd k 9 xss mul mul def /j1 l 36 add def /j1$ tx1 j1 get def 0 1 jmax {/j exch def %j=0,08 /n n 1 add def /i1 j k 9 mul add 1 add def %9 steps, 16 steps /argb j jmax div def /xa xmins xadd add xsd add def /ya ymaxs xss j mul sub yadd sub ysd add def /r*x argb def /g*x argb def /b*x argb def /tLAB 1 def r*x g*x b*x DEintp 0 eq { %DEintp=0 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 /u*xdMa10 u*ddMa1 def /u*xeMa10 u*deMa1 def /u*xdMai0 u*ddMai def /u*xeMai0 u*deMai def /u*xdMa20 u*ddMa2 def /u*xeMa20 u*deMa2 def } %DEintp=0 { %DEintp=1 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 /u*xdMa10 u*ddMa1 def /u*xeMa10 u*deMa1 def /u*xdMai0 u*ddMai def /u*xeMai0 u*deMai def /u*xdMa20 u*ddMa2 def /u*xeMa20 u*deMa2 def } ifelse %DEintp=1 /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 /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*dd0} ifelse def /g*x DEintp 0 eq {l3*dd0} {l3*dd0} ifelse def /b*x DEintp 0 eq {v3*dd0} {v3*dd0} ifelse def r*x g*x b*x setrgbcolor %only to calculate olv'*3, cmyn'*4 /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 5 le { l 0 eq {0 0 0 1 argb sub setcmykcolor} if l 1 eq {argb setgray} if l 2 eq {1 argb sub dup dup 0 setcmykcolor} if l 3 eq {argb 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 6 ge {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 6 ge {0 0 0 setrgbcolor /xan xa xds 0.00 mul sub def /yan ya xds 0.25 mul sub def} if xcharti 6 eq {xan yan 600 add moveto DEintp 0 eq {o3*dd0}{o3*dd0} ifelse cvsshow2 xan yan 400 add moveto DEintp 0 eq {l3*dd0}{l3*dd0} ifelse cvsshow2 xan yan 200 add moveto DEintp 0 eq {v3*dd0}{v3*dd0} ifelse cvsshow2} if xcharti 7 eq {xan yan 600 add moveto DEintp 0 eq {o3*de0}{o3*de0} ifelse cvsshow2 xan yan 400 add moveto DEintp 0 eq {l3*de0}{l3*de0} ifelse cvsshow2 xan yan 200 add moveto DEintp 0 eq {v3*de0}{v3*de0} ifelse cvsshow2} if xcharti 8 eq {xan yan 600 add moveto L*Fa0 cvsshow1 xan yan 400 add moveto A*Fa0 cvsshow1 xan yan 200 add moveto B*Fa0 cvsshow1} if xcharti 9 eq {xan yan 600 add moveto L*Fa0 cvsshow1 xan yan 400 add moveto C*Fa0 cvsshow1 xan yan 200 add moveto H*Fa0 cvishow} if xcharti 10 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 11 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*xeMa10 show u*xeMai0 9 le {(0) show} if u*xeMai0 cvishow u*xeMa20 show} {u*xdMa10 show u*xdMai0 9 le {(0) show} if u*xdMai0 cvishow u*xdMa20 show} ifelse } if xcharti 12 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 13 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 14 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 } 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 r*x g*x b*x DEintp 0 eq { %DEintp=0 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 /u*xdMa10 u*ddMa1 def /u*xeMa10 u*deMa1 def /u*xdMai0 u*ddMai def /u*xeMai0 u*deMai def /u*xdMa20 u*ddMa2 def /u*xeMa20 u*deMa2 def } %DEintp=0 { %DEintp=1 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 /u*xdMa10 u*ddMa1 def /u*xeMa10 u*deMa1 def /u*xdMai0 u*ddMai def /u*xeMai0 u*deMai def /u*xdMa20 u*ddMa2 def /u*xeMa20 u*deMa2 def } ifelse %DEintp=1 /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 /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 g*x b*x setrgbcolor %only to calculate olv'*3, cmyn'*4 /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 /r*x DEintp 0 eq {o3*dd0} {o3*dd0} ifelse def /g*x DEintp 0 eq {l3*dd0} {l3*dd0} ifelse def /b*x DEintp 0 eq {v3*dd0} {v3*dd0} ifelse def xcharti 5 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 6 ge {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 6 ge {0 0 0 setrgbcolor /xan xa xds 0.00 mul sub def /yan ya xds 0.25 mul sub def} if xcharti 6 eq {xan yan 600 add moveto DEintp 0 eq {o3*dd0}{o3*dd0} ifelse cvsshow2 xan yan 400 add moveto DEintp 0 eq {l3*dd0}{l3*dd0} ifelse cvsshow2 xan yan 200 add moveto DEintp 0 eq {v3*dd0}{v3*dd0} ifelse cvsshow2} if xcharti 7 eq {xan yan 600 add moveto DEintp 0 eq {o3*de0}{o3*de0} ifelse cvsshow2 xan yan 400 add moveto DEintp 0 eq {l3*de0}{l3*de0} ifelse cvsshow2 xan yan 200 add moveto DEintp 0 eq {v3*de0}{v3*de0} ifelse cvsshow2} if xcharti 8 eq {xan yan 600 add moveto L*Fa0 cvsshow1 xan yan 400 add moveto A*Fa0 cvsshow1 xan yan 200 add moveto B*Fa0 cvsshow1} if xcharti 9 eq {xan yan 600 add moveto L*Fa0 cvsshow1 xan yan 400 add moveto C*Fa0 cvsshow1 xan yan 200 add moveto H*Fa0 cvishow} if xcharti 10 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 11 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*xeMa10 show u*xeMai0 9 le {(0) show} if u*xeMai0 cvishow u*xeMa20 show} {u*xdMa10 show u*xdMai0 9 le {(0) show} if u*xdMai0 cvishow u*xdMa20 show} ifelse } if xcharti 12 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 13 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 14 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 } for %i=0,7 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 22600 16500 moveto xcharti 6 eq {(lab*olv*) show} if xcharti 7 eq {(lab*rgb*) show} if xcharti 8 eq {(LAB*LAB*) show -20 -50 rmoveto TBM (a) show 0 50 rmoveto TBIG} if xcharti 9 eq {(LAB*LCH*) show -20 -50 rmoveto TBM (a) show 0 50 rmoveto TBIG} if xcharti 10 eq {(lab*tch*) show} if xcharti 11 eq {(lab*icu*) show TBM 0 -50 rmoveto DEintp 0 eq {(e)} {(d)} ifelse show 0 50 rmoveto TBIG} if xcharti 12 eq {(LAB*LAB*) show} if xcharti 13 eq {(lab*) show (olv'*) show} if %DEintp 0 eq {(olv'*) show} {(rgb'*) show} ifelse} if xcharti 14 eq {(LAB*) show (cmyn'*) show} if %DEintp 0 eq {(cmyn'*) show} {(cmjn'*) show} ifelse} if } if %xcharts=26 ColSpx 0 eq xcharti 5 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 showpage grestore %} for %xcharts END xcharts=09,09 only circle %} for %xchartl END xchartl=00,02 %%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 IE520-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 (IE520-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 IE521-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 (IE521-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 IE521-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 (IE521-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 IE521-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 (IE521-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 IE521-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 (IE521-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 IE521-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 (IE521-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 IE521-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 (IE521-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 IE521-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 (IE521-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 IE521-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 (IE521-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 20081001 %%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 1 def} ifelse /ISIN*ioG where {pop}{/ISIN*ioG 3 def} ifelse /ISOU*ioG where {pop}{/ISOU*ioG 3 def} ifelse /xchartx 0 eq {/xcharti 1 def} if /xchartx 1 eq {/xcharti 6 def} if /xchartx 2 eq {/xcharti 7 def} if xcharti 0 eq {/ausz 8 def /xchartt (A) def} if xcharti 1 eq {/ausz 8 def /xchartt (F) def} if xcharti 2 eq {/ausz 1 def /xchartt (C) def} if xcharti 3 eq {/ausz 2 def /xchartt (M) def} if xcharti 4 eq {/ausz 3 def /xchartt (Y) def} if xcharti 5 eq {/ausz 7 def /xchartt (N) def} if xcharti 6 eq {/ausz 8 def /xchartt (F) def} if xcharti 7 eq {/ausz 8 def /xchartt (F) def} if xcharti 8 eq {/ausz 8 def /xchartt (F) def} if xcharti 9 eq {/ausz 8 def /xchartt (F) def} if xcharti 10 eq {/ausz 8 def /xchartt (F) def} if xcharti 11 eq {/ausz 8 def /xchartt (F) def} if xcharti 12 eq {/ausz 8 def /xchartt (F) def} if xcharti 13 eq {/ausz 8 def /xchartt (F) def} if xcharti 14 eq {/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 Y10E00FA.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 Y10E00FA.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 /xt 1 def %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 110 MM add yy i0 get MM 2.5 MM sub moveto (xxx/IE52/IE52L) show LSS$ show LSX$ show (0) show LSC$ show LEX$ show (, Page ) showen (, Seite ) showde xchartx 1 add cvishow (/3) show (; ) show LAB*TE 0 get 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 IE52; Farbmetrik\255Systeme) showde (TUB\255test chart IE52; Colorimetric systems) showen (, Page ) showen (, Seite ) showde xchartx 1 add cvishow (/3) show 61 MM 09 MM moveto %(D65: ) show (Bunttonkreis und Datentabellen f\374r 16 Buntt\366ne ) showde (Hue circle and data tables for 16 hues ) showen 12 /TimesI-ISOL1 FS DEintp 0 eq {(o00y) show}{(r00j) show} ifelse 12 /Times-ISOL1 FS ( bis ) showde ( to ) showen 12 /TimesI-ISOL1 FS DEintp 0 eq {(m75o) show}{(b75r) show} ifelse 12 /Times-ISOL1 FS 168 MM 13 MM moveto ( input: ) showen (Eingabe: ) showde 12 /TimesI-ISOL1 FS (rgb (->rgb*) setrgbcolor) show 12 /Times-ISOL1 FS 168 MM 9 MM moveto ( output: ) showen (Ausgabe: ) showde LSC$ (N) eq {%LSC$=N 12 /Times-ISOL1 FS (no change compared to input) showen (keine Eingabe\344nderung) showde } 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*->cmy0* setcmyk) 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/IE52/IE52L) show (0) show LSC$ show LEX$ 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 (IE52/IE52L) 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 xcharti 2 ge xcharti 5 le and {(; Separation: ) show tzcolv* setrgbcolor (c) show tzmolv* setrgbcolor (m) show tzyolv* setrgbcolor (y) show tznolv* setrgbcolor (n) show LSC$ (F) eq {tznolv* setrgbcolor (*) show} if } 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/IE52/IE52L) 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 281 MM 185 MM moveto -90 rotate (TUB\255Registrierung: 20090901\255IE52/IE52L) showde (TUB registration: 20090901\255IE52/IE52L) 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 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 Ausgabe von) showde ( visuellen Display\255Systemen) showde ( application for output of) showen ( visual display systems) showen 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