%!PS-Adobe-3.0 EPSF-3.0 xxx/IG56/IG56L00XX.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/IG56/IG56.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 0 def
%***************************************************************************
%BEG IG56/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
%IG56-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 IG56/OUTLIN11_FRS09_92A.PS, LUT0729 for FP-File, Interpolation 20080701
%***************************************************************************

%*****************************************************************************
%BEG IG56/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 IG56/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/IG56/OUTLIN1Y.PS Emty 20080601

%END ZM45/IG56/OUTLIN1Y.PS Emty 20080601
                                                                         
%BEG ZM45/IG56/OUTLIN1I.PS Emty 20080601

%END ZM45/IG56/OUTLIN1I.PS Emty 20080101
                                                                         
/CFilenameS1g                                  %START output of step S1g
(www.ps.bam.de/IG56/10Y/Y10M00N) def           %Link file name for data
/CDateS1g (2009-10-01, Name) def               %Date of calculation, Tester
/CDeviceS1g (unknown ) def                     %Device name
/CMeasS1g (IG56/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
%0
%1
/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 0 def /lanindg2 0 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 15 def %16=16 hue planes
%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

/xcharti 1 def

xcharti 0 eq {/ausz 8 def /xchartt (A) def} if
xcharti 1 eq {/ausz 8 def /xchartt (F) def} if
xcharti 2 eq {/ausz 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 Y10G00FA.PS6.PS and OUTLIN1X
%for consistancy use same procedures in Y10-7N and Y10G00FA.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 (/IG56/  ) 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 IG560-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     (IG560-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 IG560-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     (IG560-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 IG560-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     (IG560-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 IG560-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     (IG560-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 IG560-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     (IG560-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 IG560-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     (IG560-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 IG560-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 0 def %Early binding
/sggray where      {pop /slgray {sggray} bind def}
                       {/slgray {setgray} bind def} ifelse
/sgcmykcolor where {pop /slcmykcolor {sgcmykcolor} bind def}
                       {/slcmykcolor {setcmykcolor} bind def} ifelse
/sgrgbcolor where  {pop /slrgbcolor {sgrgbcolor} bind def}
                       {/slrgbcolor {setrgbcolor} bind def} ifelse
/ColSpxG where  {pop /ColSpx {ColSpxG} bind def}
                    {/ColSpx {ColSpxL} bind def} ifelse
                  
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def /str {8 string } bind def
/languagelevel where {pop languagelevel} {1} ifelse
                     /PSL12 exch def
/dictende {counttomark 2 idiv dup dict begin {def}
           repeat pop currentdict end} bind def

/Times-Roman findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse } forall
/Encoding ISOLatin1Encoding def
currentdict end

/Times-ISOL1 exch definefont pop

/Times-Italic findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse } forall
/Encoding ISOLatin1Encoding def
currentdict end

/TimesI-ISOL1 exch definefont pop

/Times-Bold findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse } forall
/Encoding ISOLatin1Encoding def
currentdict end

/TimesB-ISOL1 exch definefont pop

/Times-BoldItalic findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse } forall
/Encoding ISOLatin1Encoding def
currentdict end

/TimesBI-ISOL1 exch definefont pop

/Courier findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end

/Courier-ISOL1 exch definefont pop

/Courier-Bold findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end

/CourierB-ISOL1 exch definefont pop

/TK {250 /Times-ISOL1 FS} bind def
/TM {300 /Times-ISOL1 FS} bind def
/TG {350 /Times-ISOL1 FS} bind def

/TIK {250 /TimesI-ISOL1 FS} bind def
/TIM {300 /TimesI-ISOL1 FS} bind def
/TIG {350 /TimesI-ISOL1 FS} bind def

/TBK {250 /TimesB-ISOL1 FS} bind def
/TBM {300 /TimesB-ISOL1 FS} bind def
/TBG {350 /TimesB-ISOL1 FS} bind def

/TBIK {250 /TimesBI-ISOL1 FS} bind def
/TBIM {300 /TimesBI-ISOL1 FS} bind def
/TBIG {350 /TimesBI-ISOL1 FS} bind def

/CKK {200 /Courier-ISOL1 FS} bind def
/CK {250 /Courier-ISOL1 FS} bind def
/CM {300 /Courier-ISOL1 FS} bind def
/CG {350 /Courier-ISOL1 FS} bind def

/CBKK {200 /CourierB-ISOL1 FS} bind def
/CBK {250 /CourierB-ISOL1 FS} bind def
/CBM {300 /CourierB-ISOL1 FS} bind def
/CBG {350 /CourierB-ISOL1 FS} bind def

%*****************************************************************************
%BEG IG56/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 IG56/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 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

/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 7 def} ifelse
/ISOU*ioG where {pop /ISOU*ioL ISOU*ioG def} {/ISOU*ioL 7 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

/xcharti 1 def %needed for steering output in proc_ColSep*io
/xcharts0 10 def
/xcharts xchartx xcharts0 add def

0 setgray
%10 1 25 {/xcharts exch def %BEG xcharts=10,26 %only triangles

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 (IG560-7) show colorm 0 eq {(N  ) show} {(F  ) show} ifelse
%(Page ) showen (Seite ) showde xcharts xcharts0 sub 1 add cvishow (/16) 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

/TSYSIOa (TLS00a) def /TSYSIO (TLS00) def
ISRL*ioL 0 eq {%ISRL*ioL=0
               xtext0 14500 moveto
               ISIO*ioL 0 eq {/TSYSIOa (FRS15_90a) def /TSYSIO (FRS15_90) def
                              (Colorimetric Printer Reflective System ) showen
                              (Farbmetrisches Drucker\255Reflektiv\255System ) showde} if
              } if %ISRL*ioL=0
            TSYSIOa show

TBG
xtext0 14100 moveto 
(data for any colour:) showen
(Daten f\374r jede Farbe:) showde

xtext1 13700 moveto TBIG DEintp 0 eq {(d*)}{(u*)} ifelse show TBG
 ( and number) showen ( und Nummer) showde
TBIG ( no. ) showen ( Nr. ) showde
TBG (= 00 .. 15) show

xtext0 13300 moveto TBG
DEintp 0 eq {(device hue text: ) showen (Ger\344te\255Bunttontext: ) showde}
            {(elementary hue text: ) showen (Elementar\255Bunttontext: ) showde} ifelse

xtext1 12900 moveto
TBIG DEintp 0 eq {(d*)} {(u*)} ifelse show TBG ( = ) show
xchart 0 eq {%xchart0,#0
             (16 hues) showen (16 Bunttoene) showde
             TBIG DEintp 0 eq {( o00y, o25y, ..., m50o) show}
                              {( r00j, r25j, ..., b75r) show} ifelse
            }
            {xcharts 5 le {/i xcharts def}{/i xcharts 2 add def} ifelse
             TBIG ColNames i get show
            } ifelse %xchart0,#0

cfakt 1 ne {%cfakt#1
xtext0 12500 moveto TBG
(contrast reduction factor: ) showen (Kontrastreduzierungsfaktor: ) showde
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 (n*) show TM ( = 0,00) show
  7500 400 sub 3750 iy0 sub moveto TIM (n*) show TM ( = 0,25) show
  5000 400 sub 2500 iy0 sub moveto TIM (n*) show TM ( = 0,50) show
  2500 400 sub 1250 iy0 sub moveto TIM (n*) show TM ( = 0,75) show
   000 400 sub   00 iy0 sub moveto TIM (n*) show TM ( = 1,00) show
           }
           {
/iy0 700 def
 10000 500 sub 4700 iy0 sub moveto TIM (n*) show TM (=0,00) show
  8000 200 sub 4000 iy0 sub moveto TIM (n*) show TM (=0,20) show
  6000 200 sub 3000 iy0 sub moveto TIM (n*) show TM (=0,40) show
  4000 200 sub 2000 iy0 sub moveto TIM (n*) show TM (=0,60) show
  2000 200 sub 1000 iy0 sub moveto TIM (n*) show TM (=0,80) show
   000 200 sub -300 iy0 sub moveto TIM (n*) show TM (=1,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 2600 sub 3800 iy0 sub moveto TBG
(relative blackness) showen (relative Schwarzheit) showde
TBIG ( n*) show
10000 0500 sub 1000 sub 4800 iy0 sub 500 sub moveto
%-450 -75 rlineto 150 -300 rlineto closepath fill
 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\255Lichtfarben\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\255Lichtfarben\255System ) showde} if
               ISIO*ioL 4 eq {/TSYSIOa (NLS00a) def
                              (Natural Luminous System ) showen
                              (Nat\374rliches\255Lichtfarben\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\255Lichtfarben\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\255Lichtfarben\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\255Lichtfarben\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
DEintp 0 eq {(device and elementary) showen
             (Ger\344te\255 und Elementar\255) showde
            }
            {(elementary and device) showen
             (Elementar\255 und Ger\344te\255) showde
            } ifelse 

xtext0 13300 moveto TBG
(hue text: ) showen
(Bunttontext: ) showde

xtext1 12900 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
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 12900 moveto
TBIG DEintp 0 eq {(u*)}{(d*)} ifelse show 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 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 {/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=10,26 %only triangles

%%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 IG560-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     (IG560-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 IG561-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     (IG561-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 IG561-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     (IG561-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 IG561-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     (IG561-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 IG561-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     (IG561-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 IG561-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     (IG561-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 IG561-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     (IG561-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 IG561-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     (IG561-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 IG561-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     (IG561-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 7 def} ifelse
/ISOU*ioG where {pop}{/ISOU*ioG 7 def} ifelse

/xcharti 1 def

xcharti 0 eq {/ausz 8 def /xchartt (A) def} if
xcharti 1 eq {/ausz 8 def /xchartt (F) def} if
xcharti 2 eq {/ausz 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 Y10G00FA.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 Y10G00FA.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/IG56/IG56L) show
LSS$ show LSX$ show (0) show
LSC$ show LEX$ show
(, Page ) showen
(, Seite ) showde
xchartx 1 add cvishow (/16) 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 IG56; Farbmetrik\255Systeme) showde
(TUB\255test chart IG56; Colorimetric systems) showen
(, Page ) showen
(, Seite ) showde
xchartx 1 add cvishow (/16) show

61 MM 09 MM  moveto %(D65: ) show
(Bunttonebene und Datentabelle f\374r 16 Buntt\366ne ) showde
(Hue plane and data table 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 (->olv*) 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/IG56/IG56L) 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
(IG56/IG56L) 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/IG56/IG56L) 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\255IG56/IG56L) showde
(TUB registration: 20090901\255IG56/IG56L) 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