%!PS-Adobe-3.0 EPSF-3.0 SG471-8A
%%BoundingBox: 70 85 226 206
 
%START PDFDE011.EPS
/pdfmark18 where {pop} {userdict /pdfmark18 /cleartomark load put} ifelse
/languagelevel where {pop languagelevel} {1} ifelse
2 lt { userdict (<<) cvn ([) cvn load put
       userdict (>>) cvn (]) cvn load put} if
[ /Title (PostScript pictures: http://130.149.60.45/~farbmetrik/SG47/)
  /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1)
  /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik)
  /Keywords (image reproduction, colour devices, colour vision)
  /Creator (klaus.richter@mac.com)
  /CreationDate (D:2013030112000)
  /ModDate (D:2013030112000)
/DOCINFO pdfmark18
[ /View [ /FitB ]
/DOCVIEW pdfmark18
%END  PDFDE011

%SETCMYK_OLV.PS
/setcmyk_olvcolor %transfer cmyk to olv
{/ncolor exch def /ycolor exch def
 /mcolor exch def /ccolor exch def
 ncolor 0 eq {1 ccolor sub
              1 mcolor sub
              1 ycolor sub setrgbcolor
             }
             {ccolor 0 eq 
              mcolor 0 eq and
              ycolor 0 eq and {%only black n
                               1 ncolor sub 
                               dup
                               dup
                               setrgbcolor
                              }
                              {%cmy and black n
                               1 ccolor sub 1 ncolor sub mul
                               1 mcolor sub 1 ncolor sub mul
                               1 ycolor sub 1 ncolor sub mul
                               setrgbcolor
                              } ifelse
             } ifelse
} bind def
 
% !Change to ISOLatin1 fonts
/Times-Roman findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def currentdict end
/Times-ISOL1 exch definefont pop
 
/Times-Italic findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def currentdict end
/TimesI-ISOL1 exch definefont pop
 
/Times-Bold findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def currentdict end
/TimesB-ISOL1 exch definefont pop
 
/Times-BoldItalic findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def currentdict end
/TimesBI-ISOL1 exch definefont pop
 
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def /str {8 string } bind def

/TL {160 /Times-ISOL1 FS} bind def 
/TS {200 /Times-ISOL1 FS} bind def 
/TK {250 /Times-ISOL1 FS} bind def
/TM {300 /Times-ISOL1 FS} bind def
/TG {350 /Times-ISOL1 FS} bind def

/TIL {160 /TimesI-ISOL1 FS} bind def
/TIS {200 /TimesI-ISOL1 FS} bind def 
/TIK {250 /TimesI-ISOL1 FS} bind def
/TIM {300 /TimesI-ISOL1 FS} bind def
/TIG {350 /TimesI-ISOL1 FS} bind def
 
/TBL {160 /TimesB-ISOL1 FS} bind def
/TBS {200 /TimesB-ISOL1 FS} bind def
/TBK {250 /TimesB-ISOL1 FS} bind def
/TBM {300 /TimesB-ISOL1 FS} bind def
/TBG {350 /TimesB-ISOL1 FS} bind def

/TBIL {160 /TimesBI-ISOL1 FS} bind def
/TBIS {200 /TimesBI-ISOL1 FS} bind def 
/TBIK {250 /TimesBI-ISOL1 FS} bind def
/TBIM {300 /TimesBI-ISOL1 FS} bind def
/TBIG {350 /TimesBI-ISOL1 FS} bind def

/rec %x, y width heigth
  {/heigth exch def /width exch def
   moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto
   closepath } bind def

/colrecfi %x y width heigth c m y k
  {setcmykcolor rec fill} bind def

/colrecst %x y width heigth c m y k
  {setcmykcolor rec stroke} bind def

/LUT 10800 array def

/LUT_LAB0 10800 array def %10x1080
/LUT_LAB1 10800 array def %10x1080
/LUT_LAB2 10800 array def %10x1080
/LUT_LAB3 10800 array def %10x1080
/LUT_LAB4 10800 array def %10x1080
/LUT_LAB5 10800 array def %10x1080
/LUT_LAB6 10800 array def %10x1080
/LUT_LAB7 10800 array def %10x1080
/LAB*Fa0000 96 array def
/LAB*Fa0100 96 array def
/LAB*Fa1100 96 array def

%*********************************************************************

/FileDataen (LAB_D65_Z46N_R243.DAT, 243 colours, 20080301, Separation cmy0*, adapted) def
/FileDatade (LAB_D65_Z46N_R243.DAT, 243 Farben, 20080301, Separation cmy0*, adaptiert) def

/LUT_LAB0 [
% XE93-7: Measurement, File: %Z46N_R243.DAT, 243 colours, 20080301, Separation cmy0*, adapted
%Z46N_R243.DAT, 243 colours, 20080301, Separation cmy0*
%100 x LAB*a         1000 x (r g b  c m y 0)            %nr.  pos
009491 -00003 000000 1000 1000 1000 0000 0000 0000 0000 %0729 b01
008972 -00366 -00746 0875 1000 1000 0125 0000 0000 0000 %0730 b02
008534 -00628 -01408 0750 1000 1000 0250 0000 0000 0000 %0731 b03
008005 -00885 -02130 0625 1000 1000 0375 0000 0000 0000 %0732 b04
007614 -01052 -02625 0500 1000 1000 0500 0000 0000 0000 %0733 b05
007171 -01167 -03233 0375 1000 1000 0625 0000 0000 0000 %0734 b06
006709 -01397 -03789 0250 1000 1000 0750 0000 0000 0000 %0735 b07
006171 -01480 -04477 0125 1000 1000 0875 0000 0000 0000 %0736 b08
005946 -01477 -04711 0000 1000 1000 1000 0000 0000 0000 %0737 b09
008684 000494 001085 1000 0875 0875 0000 0125 0125 0000 %0738 c01
008159 -00071 000384 0875 0875 0875 0125 0125 0125 0000 %0739 c02
007792 -00405 -00125 0750 0875 0875 0250 0125 0125 0000 %0740 c03
007348 -00758 -00834 0625 0875 0875 0375 0125 0125 0000 %0741 c04
006972 -01035 -01290 0500 0875 0875 0500 0125 0125 0000 %0742 c05
006593 -01324 -01880 0375 0875 0875 0625 0125 0125 0000 %0743 c06
006179 -01683 -02382 0250 0875 0875 0750 0125 0125 0000 %0744 c07
005675 -02132 -03024 0125 0875 0875 0875 0125 0125 0000 %0745 c08
005392 -02257 -03379 0000 0875 0875 1000 0125 0125 0000 %0746 c09
008116 000933 001990 1000 0750 0750 0000 0250 0250 0000 %0747 d01
007600 000291 001313 0875 0750 0750 0125 0250 0250 0000 %0748 d02
007260 -00128 000814 0750 0750 0750 0250 0250 0250 0000 %0749 d03
006847 -00618 000163 0625 0750 0750 0375 0250 0250 0000 %0750 d04
006528 -00938 -00302 0500 0750 0750 0500 0250 0250 0000 %0751 d05
006189 -01341 -00875 0375 0750 0750 0625 0250 0250 0000 %0752 d06
005756 -01814 -01437 0250 0750 0750 0750 0250 0250 0000 %0753 d07
005364 -02235 -02023 0125 0750 0750 0875 0250 0250 0000 %0754 d08
005094 -02447 -02409 0000 0750 0750 1000 0250 0250 0000 %0755 d09
007494 001614 002687 1000 0625 0625 0000 0375 0375 0000 %0756 e01
007082 000861 001971 0875 0625 0625 0125 0375 0375 0000 %0757 e02
006710 000394 001501 0750 0625 0625 0250 0375 0375 0000 %0758 e03
006395 -00186 000878 0625 0625 0625 0375 0375 0375 0000 %0759 e04
006048 -00530 000380 0500 0625 0625 0500 0375 0375 0000 %0760 e05
005764 -00930 -00243 0375 0625 0625 0625 0375 0375 0000 %0761 e06
005222 -01575 -00784 0250 0625 0625 0750 0375 0375 0000 %0762 e07
004862 -02110 -01405 0125 0625 0625 0875 0375 0375 0000 %0763 e08
004606 -02344 -01764 0000 0625 0625 1000 0375 0375 0000 %0764 e09
007014 002219 003343 1000 0500 0500 0000 0500 0500 0000 %0765 f01
006580 001514 002590 0875 0500 0500 0125 0500 0500 0000 %0766 f02
006263 000994 002118 0750 0500 0500 0250 0500 0500 0000 %0767 f03
005907 000407 001505 0625 0500 0500 0375 0500 0500 0000 %0768 f04
005577 -00001 000941 0500 0500 0500 0500 0500 0500 0000 %0769 f05
005229 -00542 000417 0375 0500 0500 0625 0500 0500 0000 %0770 f06
004795 -01085 -00170 0250 0500 0500 0750 0500 0500 0000 %0771 f07
004425 -01850 -00733 0125 0500 0500 0875 0500 0500 0000 %0772 f08
004142 -02055 -01221 0000 0500 0500 1000 0500 0500 0000 %0773 f09
006346 003283 003680 1000 0375 0375 0000 0625 0625 0000 %0774 g01
005920 002568 003020 0875 0375 0375 0125 0625 0625 0000 %0775 g02
005599 002062 002508 0750 0375 0375 0250 0625 0625 0000 %0776 g03
005284 001342 001963 0625 0375 0375 0375 0625 0625 0000 %0777 g04
004913 000909 001405 0500 0375 0375 0500 0625 0625 0000 %0778 g05
004572 000319 000830 0375 0375 0375 0625 0625 0625 0000 %0779 g06
004197 -00282 000184 0250 0375 0375 0750 0625 0625 0000 %0780 g07
003875 -01157 -00369 0125 0375 0375 0875 0625 0625 0000 %0781 g08
003598 -01514 -00743 0000 0375 0375 1000 0625 0625 0000 %0782 g09
005783 004301 003914 1000 0250 0250 0000 0750 0750 0000 %0783 h01
005355 003574 003283 0875 0250 0250 0125 0750 0750 0000 %0784 h02
005027 003112 002773 0750 0250 0250 0250 0750 0750 0000 %0785 h03
004741 002291 002180 0625 0250 0250 0375 0750 0750 0000 %0786 h04
004413 001793 001668 0500 0250 0250 0500 0750 0750 0000 %0787 h05
004082 001041 001030 0375 0250 0250 0625 0750 0750 0000 %0788 h06
003680 000370 000510 0250 0250 0250 0750 0750 0750 0000 %0789 h07
003373 -00666 -00023 0125 0250 0250 0875 0750 0750 0000 %0790 h08
003133 -01077 -00346 0000 0250 0250 1000 0750 0750 0000 %0791 h09
005038 005738 003951 1000 0125 0125 0000 0875 0875 0000 %0792 i01
004637 004911 003253 0875 0125 0125 0125 0875 0875 0000 %0793 i02
004345 004348 002762 0750 0125 0125 0250 0875 0875 0000 %0794 i03
004073 003439 002082 0625 0125 0125 0375 0875 0875 0000 %0795 i04
003765 002909 001614 0500 0125 0125 0500 0875 0875 0000 %0796 i05
003393 002086 001000 0375 0125 0125 0625 0875 0875 0000 %0797 i06
003095 001352 000529 0250 0125 0125 0750 0875 0875 0000 %0798 i07
002815 000222 000063 0125 0125 0125 0875 0875 0875 0000 %0799 i08
002617 -00233 -00184 0000 0125 0125 1000 0875 0875 0000 %0800 i09
004842 006072 004021 1000 0000 0000 0000 1000 1000 0000 %0801 j01
004420 005267 003315 0875 0000 0000 0125 1000 1000 0000 %0802 j02
004159 004648 002769 0750 0000 0000 0250 1000 1000 0000 %0803 j03
003813 003805 002257 0625 0000 0000 0375 1000 1000 0000 %0804 j04
003532 003248 001782 0500 0000 0000 0500 1000 1000 0000 %0805 j05
003180 002333 001153 0375 0000 0000 0625 1000 1000 0000 %0806 j06
002925 001506 000696 0250 0000 0000 0750 1000 1000 0000 %0807 j07
002633 000353 000239 0125 0000 0000 0875 1000 1000 0000 %0808 j08
002521 000008 000011 0000 0000 0000 1000 1000 1000 0000 %0809 j09

009495 000001 -00001 1000 1000 1000 0000 0000 0000 0000 %0810 b10
008280 000570 -01150 0875 0875 1000 0125 0125 0000 0000 %0811 b11
007533 000901 -01747 0750 0750 1000 0250 0250 0000 0000 %0812 b12
006579 001171 -02562 0625 0625 1000 0375 0375 0000 0000 %0813 b13
005849 001571 -03030 0500 0500 1000 0500 0500 0000 0000 %0814 b14
004918 001912 -03687 0375 0375 1000 0625 0625 0000 0000 %0815 b15
004085 002280 -04260 0250 0250 1000 0750 0750 0000 0000 %0816 b16
003192 002649 -04694 0125 0125 1000 0875 0875 0000 0000 %0817 b17
002744 002870 -04876 0000 0000 1000 1000 1000 0000 0000 %0818 b18
009403 -00578 001481 1000 1000 0875 0000 0000 0125 0000 %0819 c10
008203 -00047 000348 0875 0875 0875 0125 0125 0125 0000 %0820 c11
007394 000315 -00451 0750 0750 0875 0250 0250 0125 0000 %0821 c12
006489 000606 -01333 0625 0625 0875 0375 0375 0125 0000 %0822 c13
005787 000991 -01875 0500 0500 0875 0500 0500 0125 0000 %0823 c14
004832 001377 -02658 0375 0375 0875 0625 0625 0125 0000 %0824 c15
003993 001753 -03331 0250 0250 0875 0750 0750 0125 0000 %0825 c16
003099 002223 -03987 0125 0125 0875 0875 0875 0125 0000 %0826 c17
002587 002398 -04291 0000 0000 0875 1000 1000 0125 0000 %0827 c18
009337 -01006 002915 1000 1000 0750 0000 0000 0250 0000 %0828 d10
008133 -00454 001649 0875 0875 0750 0125 0125 0250 0000 %0829 d11
007298 -00092 000776 0750 0750 0750 0250 0250 0250 0000 %0830 d12
006419 000169 -00184 0625 0625 0750 0375 0375 0250 0000 %0831 d13
005717 000546 -00841 0500 0500 0750 0500 0500 0250 0000 %0832 d14
004784 000937 -01711 0375 0375 0750 0625 0625 0250 0000 %0833 d15
003908 001303 -02522 0250 0250 0750 0750 0750 0250 0000 %0834 d16
003037 001774 -03269 0125 0125 0750 0875 0875 0250 0000 %0835 d17
002504 001946 -03668 0000 0000 0750 1000 1000 0250 0000 %0836 d18
009266 -01297 004216 1000 1000 0625 0000 0000 0375 0000 %0837 e10
008069 -00728 002730 0875 0875 0625 0125 0125 0375 0000 %0838 e11
007275 -00413 001868 0750 0750 0625 0250 0250 0375 0000 %0839 e12
006406 -00084 000754 0625 0625 0625 0375 0375 0375 0000 %0840 e13
005648 000266 000027 0500 0500 0625 0500 0500 0375 0000 %0841 e14
004718 000690 -00896 0375 0375 0625 0625 0625 0375 0000 %0842 e15
003777 000971 -01830 0250 0250 0625 0750 0750 0375 0000 %0843 e16
002934 001393 -02664 0125 0125 0625 0875 0875 0375 0000 %0844 e17
002442 001505 -03022 0000 0000 0625 1000 1000 0375 0000 %0845 e18
009200 -01512 005504 1000 1000 0500 0000 0000 0500 0000 %0846 f10
008068 -00909 003876 0875 0875 0500 0125 0125 0500 0000 %0847 f11
007236 -00622 002988 0750 0750 0500 0250 0250 0500 0000 %0848 f12
006358 -00312 001820 0625 0625 0500 0375 0375 0500 0000 %0849 f13
005601 000036 000989 0500 0500 0500 0500 0500 0500 0000 %0850 f14
004657 000490 -00035 0375 0375 0500 0625 0625 0500 0000 %0851 f15
003778 000690 -01001 0250 0250 0500 0750 0750 0500 0000 %0852 f16
002902 001027 -01934 0125 0125 0500 0875 0875 0500 0000 %0853 f17
002467 001112 -02297 0000 0000 0500 1000 1000 0500 0000 %0854 f18
009163 -01628 006560 1000 1000 0375 0000 0000 0625 0000 %0855 g10
008072 -01053 004936 0875 0875 0375 0125 0125 0625 0000 %0856 g11
007264 -00747 004068 0750 0750 0375 0250 0250 0625 0000 %0857 g12
006292 -00447 002790 0625 0625 0375 0375 0375 0625 0000 %0858 g13
005524 -00023 001811 0500 0500 0375 0500 0500 0625 0000 %0859 g14
004609 000334 000811 0375 0375 0375 0625 0625 0625 0000 %0860 g15
003693 000500 -00196 0250 0250 0375 0750 0750 0625 0000 %0861 g16
002795 000803 -01236 0125 0125 0375 0875 0875 0625 0000 %0862 g17
002413 000779 -01572 0000 0000 0375 1000 1000 0625 0000 %0863 g18
009106 -01740 007836 1000 1000 0250 0000 0000 0750 0000 %0864 h10
008029 -01146 006208 0875 0875 0250 0125 0125 0750 0000 %0865 h11
007248 -00823 005180 0750 0750 0250 0250 0250 0750 0000 %0866 h12
006266 -00531 003755 0625 0625 0250 0375 0375 0750 0000 %0867 h13
005435 -00138 002722 0500 0500 0250 0500 0500 0750 0000 %0868 h14
004495 000269 001521 0375 0375 0250 0625 0625 0750 0000 %0869 h15
003626 000388 000517 0250 0250 0250 0750 0750 0750 0000 %0870 h16
002822 000456 -00580 0125 0125 0250 0875 0875 0750 0000 %0871 h17
002445 000432 -00906 0000 0000 0250 1000 1000 0750 0000 %0872 h18
009072 -01740 008660 1000 1000 0125 0000 0000 0875 0000 %0873 i10
008045 -01197 007203 0875 0875 0125 0125 0125 0875 0000 %0874 i11
007192 -00838 006013 0750 0750 0125 0250 0250 0875 0000 %0875 i12
006192 -00603 004582 0625 0625 0125 0375 0375 0875 0000 %0876 i13
005364 -00177 003458 0500 0500 0125 0500 0500 0875 0000 %0877 i14
004389 000182 002157 0375 0375 0125 0625 0625 0875 0000 %0878 i15
003582 000193 001140 0250 0250 0125 0750 0750 0875 0000 %0879 i16
002755 000152 000013 0125 0125 0125 0875 0875 0875 0000 %0880 i17
002492 000145 -00336 0000 0000 0125 1000 1000 0875 0000 %0881 i18
009046 -01720 009080 1000 1000 0000 0000 0000 1000 0000 %0882 j10
007994 -01167 007654 0875 0875 0000 0125 0125 1000 0000 %0883 j11
007149 -00839 006530 0750 0750 0000 0250 0250 1000 0000 %0884 j12
006097 -00594 004963 0625 0625 0000 0375 0375 1000 0000 %0885 j13
005259 -00167 003855 0500 0500 0000 0500 0500 1000 0000 %0886 j14
004278 000145 002413 0375 0375 0000 0625 0625 1000 0000 %0887 j15
003534 000149 001461 0250 0250 0000 0750 0750 1000 0000 %0888 j16
002724 000074 000314 0125 0125 0000 0875 0875 1000 0000 %0889 j17
002502 000061 -00009 0000 0000 0000 1000 1000 1000 0000 %0890 j18

009497 000001 000001 1000 1000 1000 0000 0000 0000 0000 %0891 b19
008814 001008 -00410 1000 0875 1000 0000 0125 0000 0000 %0892 b20
008287 001793 -00652 1000 0750 1000 0000 0250 0000 0000 %0893 b21
007690 002662 -00857 1000 0625 1000 0000 0375 0000 0000 %0894 b22
007215 003388 -01005 1000 0500 1000 0000 0500 0000 0000 %0895 b23
006547 004455 -01188 1000 0375 1000 0000 0625 0000 0000 %0896 b24
006043 005281 -01235 1000 0250 1000 0000 0750 0000 0000 %0897 b25
005232 006673 -01239 1000 0125 1000 0000 0875 0000 0000 %0898 b26
005095 006822 -01092 1000 0000 1000 0000 1000 0000 0000 %0899 b27
008865 -01062 000789 0875 1000 0875 0125 0000 0125 0000 %0900 c19
008149 -00083 000355 0875 0875 0875 0125 0125 0125 0000 %0901 c20
007730 000648 000042 0875 0750 0875 0125 0250 0125 0000 %0902 c21
007206 001478 -00241 0875 0625 0875 0125 0375 0125 0000 %0903 c22
006732 002255 -00452 0875 0500 0875 0125 0500 0125 0000 %0904 c23
006089 003292 -00760 0875 0375 0875 0125 0625 0125 0000 %0905 c24
005510 004304 -00979 0875 0250 0875 0125 0750 0125 0000 %0906 c25
004804 005581 -01118 0875 0125 0875 0125 0875 0125 0000 %0907 c26
004623 005879 -01067 0875 0000 0875 0125 1000 0125 0000 %0908 c27
008338 -01911 001636 0750 1000 0750 0250 0000 0250 0000 %0909 d19
007769 -00842 001071 0750 0875 0750 0250 0125 0250 0000 %0910 d20
007311 -00121 000771 0750 0750 0750 0250 0250 0250 0000 %0911 d21
006805 000697 000438 0750 0625 0750 0250 0375 0250 0000 %0912 d22
006367 001468 000105 0750 0500 0750 0250 0500 0250 0000 %0913 d23
005713 002488 -00244 0750 0375 0750 0250 0625 0250 0000 %0914 d24
005213 003471 -00535 0750 0250 0750 0250 0750 0250 0000 %0915 d25
004504 004814 -00752 0750 0125 0750 0250 0875 0250 0000 %0916 d26
004320 005159 -00760 0750 0000 0750 0250 1000 0250 0000 %0917 d27
007788 -02554 001991 0625 1000 0625 0375 0000 0375 0000 %0918 e19
007219 -01586 001489 0625 0875 0625 0375 0125 0375 0000 %0919 e20
006852 -00900 001152 0625 0750 0625 0375 0250 0375 0000 %0920 e21
006414 -00110 000781 0625 0625 0625 0375 0375 0375 0000 %0921 e22
005901 000599 000445 0625 0500 0625 0375 0500 0375 0000 %0922 e23
005311 001662 000041 0625 0375 0625 0375 0625 0375 0000 %0923 e24
004773 002638 -00318 0625 0250 0625 0375 0750 0375 0000 %0924 e25
004153 003975 -00641 0625 0125 0625 0375 0875 0375 0000 %0925 e26
003977 004294 -00673 0625 0000 0625 0375 1000 0375 0000 %0926 e27
007394 -03066 002675 0500 1000 0500 0500 0000 0500 0000 %0927 f19
006881 -02170 002172 0500 0875 0500 0500 0125 0500 0000 %0928 f20
006494 -01524 001776 0500 0750 0500 0500 0250 0500 0000 %0929 f21
006047 -00760 001386 0500 0625 0500 0500 0375 0500 0000 %0930 f22
005571 -00067 000966 0500 0500 0500 0500 0500 0500 0000 %0931 f23
005003 000994 000538 0500 0375 0500 0500 0625 0500 0000 %0932 f24
004517 001917 000130 0500 0250 0500 0500 0750 0500 0000 %0933 f25
003896 003311 -00269 0500 0125 0500 0500 0875 0500 0000 %0934 f26
003693 003696 -00343 0500 0000 0500 0500 1000 0500 0000 %0935 f27
006856 -03749 003156 0375 1000 0375 0625 0000 0625 0000 %0936 g19
006383 -02821 002437 0375 0875 0375 0625 0125 0625 0000 %0937 g20
005986 -02271 002076 0375 0750 0375 0625 0250 0625 0000 %0938 g21
005567 -01473 001700 0375 0625 0375 0625 0375 0625 0000 %0939 g22
005118 -00805 001230 0375 0500 0375 0625 0500 0625 0000 %0940 g23
004585 000271 000709 0375 0375 0375 0625 0625 0625 0000 %0941 g24
004102 001209 000294 0375 0250 0375 0625 0750 0625 0000 %0942 g25
003494 002483 -00094 0375 0125 0375 0625 0875 0625 0000 %0943 g26
003291 002773 -00212 0375 0000 0375 0625 1000 0625 0000 %0944 g27
006367 -04321 003419 0250 1000 0250 0750 0000 0750 0000 %0945 h19
005836 -03609 002819 0250 0875 0250 0750 0125 0750 0000 %0946 h20
005501 -03020 002406 0250 0750 0250 0750 0250 0750 0000 %0947 h21
005138 -02249 002022 0250 0625 0250 0750 0375 0750 0000 %0948 h22
004634 -01576 001430 0250 0500 0250 0750 0500 0750 0000 %0949 h23
004113 -00568 000903 0250 0375 0250 0750 0625 0750 0000 %0950 h24
003699 000277 000482 0250 0250 0250 0750 0750 0750 0000 %0951 h25
003152 001554 000083 0250 0125 0250 0750 0875 0750 0000 %0952 h26
002991 001802 -00049 0250 0000 0250 0750 1000 0750 0000 %0953 h27
005731 -05043 003232 0125 1000 0125 0875 0000 0875 0000 %0954 i19
005242 -04483 002810 0125 0875 0125 0875 0125 0875 0000 %0955 i20
004905 -03947 002364 0125 0750 0125 0875 0250 0875 0000 %0956 i21
004526 -03231 002014 0125 0625 0125 0875 0375 0875 0000 %0957 i22
004114 -02519 001393 0125 0500 0125 0875 0500 0875 0000 %0958 i23
003589 -01680 000898 0125 0375 0125 0875 0625 0875 0000 %0959 i24
003248 -00870 000524 0125 0250 0125 0875 0750 0875 0000 %0960 i25
002750 000177 000051 0125 0125 0125 0875 0875 0875 0000 %0961 i26
002642 000533 -00068 0125 0000 0125 0875 1000 0875 0000 %0962 i27
005235 -05548 003272 0000 1000 0000 1000 0000 1000 0000 %0963 j19
004817 -04891 002686 0000 0875 0000 1000 0125 1000 0000 %0964 j20
004522 -04341 002346 0000 0750 0000 1000 0250 1000 0000 %0965 j21
004215 -03617 001973 0000 0625 0000 1000 0375 1000 0000 %0966 j22
003759 -02969 001500 0000 0500 0000 1000 0500 1000 0000 %0967 j23
003311 -02145 000942 0000 0375 0000 1000 0625 1000 0000 %0968 j24
003028 -01351 000568 0000 0250 0000 1000 0750 1000 0000 %0969 j25
002588 -00416 000158 0000 0125 0000 1000 0875 1000 0000 %0970 j26
002512 -00069 -00002 0000 0000 0000 1000 1000 1000 0000 %0971 j27
] def

/LAB*Fa0100 [
%Z46N_R243.DAT, 243 colours, 20080301, Separation cmy0*
%100 x LAB*a         1000 x (r g b  c m y 0)            %nr.  pos
%004880 006184 003840 1000 0000 0000 0000 1000 1000 0000 %0648 S19 %O1 0
%009017 -01717 009265 1000 1000 0000 0000 0000 1000 0000 %0720 a19 %Y1 1
%005285 -05228 003298 0000 1000 0000 1000 0000 1000 0000 %0072 I01 %L1 2
%005780 -01363 -04975 0000 1000 1000 1000 0000 0000 0000 %0080 I09 %C1 3
%002539 003108 -05122 0000 0000 1000 1000 1000 0000 0000 %0008 A09 %V1 4
%005089 006997 -01180 1000 0000 1000 0000 1000 0000 0000 %0656 S27 %M1 5
%002641 000000 000000 0000 0000 0000 1000 1000 1000 0000 %0000 A01 %N1 6
%009475 000000 000000 1000 1000 1000 0000 0000 0000 0000 %0728 a27 %W1 7
%$
004842 006072 004021 1000 0000 0000 0000 1000 1000 0000 %0801 j01 %O2 0
009046 -01720 009080 1000 1000 0000 0000 0000 1000 0000 %0720 a19 %Y2 1
005235 -05548 003272 0000 1000 0000 1000 0000 1000 0000 %0963 j19 %L2 2
005946 -01477 -04711 0000 1000 1000 1000 0000 0000 0000 %0080 I09 %C2 3
002744 002870 -04876 0000 0000 1000 1000 1000 0000 0000 %0818 b18 %V2 4
005095 006822 -01092 1000 0000 1000 0000 1000 0000 0000 %0899 b27 %M2 5
002512 000000 000000 0000 0000 0000 1000 1000 1000 0000 %0809 j09 %N2 6
009494 000000 000000 1000 1000 1000 0000 0000 0000 0000 %0729 b01 %W2 7
] def %Z47N_R243.DAT
/FileData0Na (R_LRS25_Z46N_N0) def

/FileData1en (Z46F_R243.DAT, 243 colours, 20080301, Separation cmy0*, adapted) def
/FileData1de (Z46F_R243.DAT, 243 Farben, 20080301, Separation cmy0*, adaptiert) def

/LUT_LAB1 [
%Measurement data: LAB_D65_%Z46F_R243.DAT, 243 colours, 20080301, Separation cmy0*, adapted
%Z46F_R243.DAT, 243 colours, 20080301, Separation cmy0*
%100 x LAB*a         1000 x (r g b  c m y 0)            %nr.  pos
009510 -00001 000000 1000 1000 1000 0000 0000 0000 0000 %0729 b01
008809 -00179 -00863 0875 1000 1000 0125 0000 0000 0000 %0730 b02
008254 -00323 -01373 0750 1000 1000 0250 0000 0000 0000 %0731 b03
007777 -00505 -01964 0625 1000 1000 0375 0000 0000 0000 %0732 b04
007256 -00686 -02563 0500 1000 1000 0500 0000 0000 0000 %0733 b05
006831 -00868 -03079 0375 1000 1000 0625 0000 0000 0000 %0734 b06
006303 -00977 -03931 0250 1000 1000 0750 0000 0000 0000 %0735 b07
005837 -01173 -04568 0125 1000 1000 0875 0000 0000 0000 %0736 b08
005495 -01397 -05094 0000 1000 1000 1000 0000 0000 0000 %0737 b09
008614 000757 000701 1000 0875 0875 0000 0125 0125 0000 %0738 c01
008312 -00181 000278 0875 0875 0875 0125 0125 0125 0000 %0739 c02
007795 -00213 -00333 0750 0875 0875 0250 0125 0125 0000 %0740 c03
007304 -00503 -01001 0625 0875 0875 0375 0125 0125 0000 %0741 c04
006881 -00708 -01570 0500 0875 0875 0500 0125 0125 0000 %0742 c05
006480 -00874 -02124 0375 0875 0875 0625 0125 0125 0000 %0743 c06
005971 -01114 -02978 0250 0875 0875 0750 0125 0125 0000 %0744 c07
005457 -01329 -03683 0125 0875 0875 0875 0125 0125 0000 %0745 c08
005030 -01414 -04253 0000 0875 0875 1000 0125 0125 0000 %0746 c09
007996 001505 000934 1000 0750 0750 0000 0250 0250 0000 %0747 d01
007788 000775 000578 0875 0750 0750 0125 0250 0250 0000 %0748 d02
007507 000008 000092 0750 0750 0750 0250 0250 0250 0000 %0749 d03
007006 -00214 -00625 0625 0750 0750 0375 0250 0250 0000 %0750 d04
006516 -00371 -01270 0500 0750 0750 0500 0250 0250 0000 %0751 d05
006008 -00454 -01834 0375 0750 0750 0625 0250 0250 0000 %0752 d06
005519 -00712 -02517 0250 0750 0750 0750 0250 0250 0000 %0753 d07
004983 -00898 -03201 0125 0750 0750 0875 0250 0250 0000 %0754 d08
004546 -01043 -03764 0000 0750 0750 1000 0250 0250 0000 %0755 d09
007388 002127 001597 1000 0625 0625 0000 0375 0375 0000 %0756 e01
007155 001608 001213 0875 0625 0625 0125 0375 0375 0000 %0757 e02
006834 000959 000640 0750 0625 0625 0250 0375 0375 0000 %0758 e03
006595 -00025 000095 0625 0625 0625 0375 0375 0375 0000 %0759 e04
006059 -00087 -00590 0500 0625 0625 0500 0375 0375 0000 %0760 e05
005624 -00207 -01232 0375 0625 0625 0625 0375 0375 0000 %0761 e06
005179 -00483 -01814 0250 0625 0625 0750 0375 0375 0000 %0762 e07
004672 -00818 -02551 0125 0625 0625 0875 0375 0375 0000 %0763 e08
004227 -00936 -03120 0000 0625 0625 1000 0375 0375 0000 %0764 e09
006784 002876 002246 1000 0500 0500 0000 0500 0500 0000 %0765 f01
006584 002447 001868 0875 0500 0500 0125 0500 0500 0000 %0766 f02
006273 001722 001311 0750 0500 0500 0250 0500 0500 0000 %0767 f03
006047 000637 000735 0625 0500 0500 0375 0500 0500 0000 %0768 f04
005689 -00091 000198 0500 0500 0500 0500 0500 0500 0000 %0769 f05
005226 -00123 -00490 0375 0500 0500 0625 0500 0500 0000 %0770 f06
004694 -00312 -01195 0250 0500 0500 0750 0500 0500 0000 %0771 f07
004118 -00443 -01887 0125 0500 0500 0875 0500 0500 0000 %0772 f08
003692 -00635 -02483 0000 0500 0500 1000 0500 0500 0000 %0773 f09
006115 003938 002633 1000 0375 0375 0000 0625 0625 0000 %0774 g01
005831 003574 002229 0875 0375 0375 0125 0625 0625 0000 %0775 g02
005568 002883 001659 0750 0375 0375 0250 0625 0625 0000 %0776 g03
005294 001920 001056 0625 0375 0375 0375 0625 0625 0000 %0777 g04
004949 001094 000591 0500 0375 0375 0500 0625 0625 0000 %0778 g05
004722 000292 000007 0375 0375 0375 0625 0625 0625 0000 %0779 g06
004243 000025 -00574 0250 0375 0375 0750 0625 0625 0000 %0780 g07
003751 -00042 -01261 0125 0375 0375 0875 0625 0625 0000 %0781 g08
003364 -00455 -01841 0000 0375 0375 1000 0625 0625 0000 %0782 g09
005523 004882 003510 1000 0250 0250 0000 0750 0750 0000 %0783 h01
005255 004421 002695 0875 0250 0250 0125 0750 0750 0000 %0784 h02
004975 003718 002148 0750 0250 0250 0250 0750 0750 0000 %0785 h03
004764 002507 001663 0625 0250 0250 0375 0750 0750 0000 %0786 h04
004417 001767 001126 0500 0250 0250 0500 0750 0750 0000 %0787 h05
004192 000944 000432 0375 0250 0250 0625 0750 0750 0000 %0788 h06
003904 000107 -00073 0250 0250 0250 0750 0750 0750 0000 %0789 h07
003440 -00001 -00599 0125 0250 0250 0875 0750 0750 0000 %0790 h08
002953 -00149 -01255 0000 0250 0250 1000 0750 0750 0000 %0791 h09
004939 005986 003772 1000 0125 0125 0000 0875 0875 0000 %0792 i01
004546 005412 003024 0875 0125 0125 0125 0875 0875 0000 %0793 i02
004343 004565 002426 0750 0125 0125 0250 0875 0875 0000 %0794 i03
004171 003404 002019 0625 0125 0125 0375 0875 0875 0000 %0795 i04
003872 002649 001359 0500 0125 0125 0500 0875 0875 0000 %0796 i05
003578 001705 000698 0375 0125 0125 0625 0875 0875 0000 %0797 i06
003329 000833 000437 0250 0125 0125 0750 0875 0875 0000 %0798 i07
003066 000233 -00079 0125 0125 0125 0875 0875 0875 0000 %0799 i08
002627 000147 -00724 0000 0125 0125 1000 0875 0875 0000 %0800 i09
004616 006471 004067 1000 0000 0000 0000 1000 1000 0000 %0801 j01
004204 005694 003322 0875 0000 0000 0125 1000 1000 0000 %0802 j02
003931 005011 002734 0750 0000 0000 0250 1000 1000 0000 %0803 j03
003657 004053 002247 0625 0000 0000 0375 1000 1000 0000 %0804 j04
003409 003229 001692 0500 0000 0000 0500 1000 1000 0000 %0805 j05
003126 002417 001125 0375 0000 0000 0625 1000 1000 0000 %0806 j06
002937 001337 000804 0250 0000 0000 0750 1000 1000 0000 %0807 j07
002642 000815 000386 0125 0000 0000 0875 1000 1000 0000 %0808 j08
002429 -00012 -00020 0000 0000 0000 1000 1000 1000 0000 %0809 j09

009504 000002 -00004 1000 1000 1000 0000 0000 0000 0000 %0810 b10
008347 000343 -00522 0875 0875 1000 0125 0125 0000 0000 %0811 b11
007509 000643 -00958 0750 0750 1000 0250 0250 0000 0000 %0812 b12
006606 001113 -01652 0625 0625 1000 0375 0375 0000 0000 %0813 b13
005749 001509 -02318 0500 0500 1000 0500 0500 0000 0000 %0814 b14
004785 002198 -02890 0375 0375 1000 0625 0625 0000 0000 %0815 b15
003851 002461 -03632 0250 0250 1000 0750 0750 0000 0000 %0816 b16
002975 002947 -04085 0125 0125 1000 0875 0875 0000 0000 %0817 b17
002260 003131 -04740 0000 0000 1000 1000 1000 0000 0000 %0818 b18
009243 -00351 001433 1000 1000 0875 0000 0000 0125 0000 %0819 c10
008353 -00183 000267 0875 0875 0875 0125 0125 0125 0000 %0820 c11
007518 000291 -00281 0750 0750 0875 0250 0250 0125 0000 %0821 c12
006556 000780 -01017 0625 0625 0875 0375 0375 0125 0000 %0822 c13
005680 001112 -01758 0500 0500 0875 0500 0500 0125 0000 %0823 c14
004704 001935 -02377 0375 0375 0875 0625 0625 0125 0000 %0824 c15
003826 002159 -03078 0250 0250 0875 0750 0750 0125 0000 %0825 c16
002920 002751 -03606 0125 0125 0875 0875 0875 0125 0000 %0826 c17
002211 002693 -04062 0000 0000 0875 1000 1000 0125 0000 %0827 c18
009089 -00498 002401 1000 1000 0750 0000 0000 0250 0000 %0828 d10
008286 -00242 001274 0875 0875 0750 0125 0125 0250 0000 %0829 d11
007560 -00001 000154 0750 0750 0750 0250 0250 0250 0000 %0830 d12
006526 000449 -00606 0625 0625 0750 0375 0375 0250 0000 %0831 d13
005764 000710 -01129 0500 0500 0750 0500 0500 0250 0000 %0832 d14
004778 001476 -01795 0375 0375 0750 0625 0625 0250 0000 %0833 d15
003993 001698 -02442 0250 0250 0750 0750 0750 0250 0000 %0834 d16
002928 002334 -03024 0125 0125 0750 0875 0875 0250 0000 %0835 d17
002214 002277 -03480 0000 0000 0750 1000 1000 0250 0000 %0836 d18
008976 -00706 003559 1000 1000 0625 0000 0000 0375 0000 %0837 e10
008263 -00387 002608 0875 0875 0625 0125 0125 0375 0000 %0838 e11
007511 -00263 001561 0750 0750 0625 0250 0250 0375 0000 %0839 e12
006637 -00046 000086 0625 0625 0625 0375 0375 0375 0000 %0840 e13
005861 000318 -00443 0500 0500 0625 0500 0500 0375 0000 %0841 e14
004809 001005 -01143 0375 0375 0625 0625 0625 0375 0000 %0842 e15
003956 001238 -01752 0250 0250 0625 0750 0750 0375 0000 %0843 e16
002917 002011 -02397 0125 0125 0625 0875 0875 0375 0000 %0844 e17
002273 001930 -02792 0000 0000 0625 1000 1000 0375 0000 %0845 e18
008908 -00907 004713 1000 1000 0500 0000 0000 0500 0000 %0846 f10
008208 -00595 003725 0875 0875 0500 0125 0125 0500 0000 %0847 f11
007455 -00413 002619 0750 0750 0500 0250 0250 0500 0000 %0848 f12
006506 -00230 001247 0625 0625 0500 0375 0375 0500 0000 %0849 f13
005733 -00057 000155 0500 0500 0500 0500 0500 0500 0000 %0850 f14
004770 000605 -00644 0375 0375 0500 0625 0625 0500 0000 %0851 f15
003996 000852 -01167 0250 0250 0500 0750 0750 0500 0000 %0852 f16
002984 001552 -01782 0125 0125 0500 0875 0875 0500 0000 %0853 f17
002287 001515 -02156 0000 0000 0500 1000 1000 0500 0000 %0854 f18
008882 -01111 006033 1000 1000 0375 0000 0000 0625 0000 %0855 g10
008148 -00730 005093 0875 0875 0375 0125 0125 0625 0000 %0856 g11
007395 -00546 003826 0750 0750 0375 0250 0250 0625 0000 %0857 g12
006424 -00350 002283 0625 0625 0375 0375 0375 0625 0000 %0858 g13
005654 -00225 001252 0500 0500 0375 0500 0500 0625 0000 %0859 g14
004757 000193 000001 0375 0375 0375 0625 0625 0625 0000 %0860 g15
003980 000495 -00598 0250 0250 0375 0750 0750 0625 0000 %0861 g16
003010 001173 -01218 0125 0125 0375 0875 0875 0625 0000 %0862 g17
002271 001213 -01592 0000 0000 0375 1000 1000 0625 0000 %0863 g18
008823 -01216 007216 1000 1000 0250 0000 0000 0750 0000 %0864 h10
008039 -00995 006099 0875 0875 0250 0125 0125 0750 0000 %0865 h11
007311 -00753 004923 0750 0750 0250 0250 0250 0750 0000 %0866 h12
006316 -00571 003411 0625 0625 0250 0375 0375 0750 0000 %0867 h13
005546 -00498 002329 0500 0500 0250 0500 0500 0750 0000 %0868 h14
004666 -00026 001034 0375 0375 0250 0625 0625 0750 0000 %0869 h15
003928 000053 -00044 0250 0250 0250 0750 0750 0750 0000 %0870 h16
003024 000735 -00728 0125 0125 0250 0875 0875 0750 0000 %0871 h17
002288 000878 -01116 0000 0000 0250 1000 1000 0750 0000 %0872 h18
008911 -01487 008869 1000 1000 0125 0000 0000 0875 0000 %0873 i10
007997 -01200 007474 0875 0875 0125 0125 0125 0875 0000 %0874 i11
007217 -01015 006199 0750 0750 0125 0250 0250 0875 0000 %0875 i12
006301 -00932 004785 0625 0625 0125 0375 0375 0875 0000 %0876 i13
005497 -00774 003488 0500 0500 0125 0500 0500 0875 0000 %0877 i14
004618 -00339 002142 0375 0375 0125 0625 0625 0875 0000 %0878 i15
003813 -00289 001070 0250 0250 0125 0750 0750 0875 0000 %0879 i16
003082 000204 -00065 0125 0125 0125 0875 0875 0875 0000 %0880 i17
002406 000407 -00489 0000 0000 0125 1000 1000 0875 0000 %0881 i18
009002 -01662 009722 1000 1000 0000 0000 0000 1000 0000 %0882 j10
007986 -01397 008167 0875 0875 0000 0125 0125 1000 0000 %0883 j11
007184 -01225 006993 0750 0750 0000 0250 0250 1000 0000 %0884 j12
006292 -01366 005539 0625 0625 0000 0375 0375 1000 0000 %0885 j13
005431 -00991 004286 0500 0500 0000 0500 0500 1000 0000 %0886 j14
004628 -00533 003186 0375 0375 0000 0625 0625 1000 0000 %0887 j15
003721 -00440 001773 0250 0250 0000 0750 0750 1000 0000 %0888 j16
002962 -00035 000779 0125 0125 0000 0875 0875 1000 0000 %0889 j17
002411 000025 000005 0000 0000 0000 1000 1000 1000 0000 %0890 j18

009507 000000 000005 1000 1000 1000 0000 0000 0000 0000 %0891 b19
008739 000966 -00111 1000 0875 1000 0000 0125 0000 0000 %0892 b20
008210 001649 -00120 1000 0750 1000 0000 0250 0000 0000 %0893 b21
007530 002620 -00244 1000 0625 1000 0000 0375 0000 0000 %0894 b22
007000 003447 -00443 1000 0500 1000 0000 0500 0000 0000 %0895 b23
006268 004634 -00588 1000 0375 1000 0000 0625 0000 0000 %0896 b24
005946 005208 -00660 1000 0250 1000 0000 0750 0000 0000 %0897 b25
005202 006554 -00737 1000 0125 1000 0000 0875 0000 0000 %0898 b26
004714 007421 -00768 1000 0000 1000 0000 1000 0000 0000 %0899 b27
008683 -00896 000741 0875 1000 0875 0125 0000 0125 0000 %0900 c19
008336 -00184 000284 0875 0875 0875 0125 0125 0125 0000 %0901 c20
007817 000752 000090 0875 0750 0875 0125 0250 0125 0000 %0902 c21
007224 001739 -00018 0875 0625 0875 0125 0375 0125 0000 %0903 c22
006627 002635 -00225 0875 0500 0875 0125 0500 0125 0000 %0904 c23
005974 003727 -00398 0875 0375 0875 0125 0625 0125 0000 %0905 c24
005495 004574 -00527 0875 0250 0875 0125 0750 0125 0000 %0906 c25
004828 005717 -00700 0875 0125 0875 0125 0875 0125 0000 %0907 c26
004383 006466 -00674 0875 0000 0875 0125 1000 0125 0000 %0908 c27
008181 -01444 000975 0750 1000 0750 0250 0000 0250 0000 %0909 d19
007791 -00666 000607 0750 0875 0750 0250 0125 0250 0000 %0910 d20
007548 000007 000134 0750 0750 0750 0250 0250 0250 0000 %0911 d21
006943 001075 000019 0750 0625 0750 0250 0375 0250 0000 %0912 d22
006428 001869 -00081 0750 0500 0750 0250 0500 0250 0000 %0913 d23
005772 002921 -00223 0750 0375 0750 0250 0625 0250 0000 %0914 d24
005266 003749 -00320 0750 0250 0750 0250 0750 0250 0000 %0915 d25
004577 004814 -00441 0750 0125 0750 0250 0875 0250 0000 %0916 d26
004059 005625 -00496 0750 0000 0750 0250 1000 0250 0000 %0917 d27
007598 -02014 001353 0625 1000 0625 0375 0000 0375 0000 %0918 e19
007210 -01326 001011 0625 0875 0625 0375 0125 0375 0000 %0919 e20
006955 -00683 000565 0625 0750 0625 0375 0250 0375 0000 %0920 e21
006621 000015 000114 0625 0625 0625 0375 0375 0375 0000 %0921 e22
006131 000841 000044 0625 0500 0625 0375 0500 0375 0000 %0922 e23
005464 001907 -00131 0625 0375 0625 0375 0625 0375 0000 %0923 e24
004944 002718 -00205 0625 0250 0625 0375 0750 0375 0000 %0924 e25
004254 003958 -00387 0625 0125 0625 0375 0875 0375 0000 %0925 e26
003652 004858 -00366 0625 0000 0625 0375 1000 0375 0000 %0926 e27
007041 -02739 001705 0500 1000 0500 0500 0000 0500 0000 %0927 f19
006655 -02011 001285 0500 0875 0500 0500 0125 0500 0000 %0928 f20
006383 -01326 000920 0500 0750 0500 0500 0250 0500 0000 %0929 f21
005922 -00597 000453 0500 0625 0500 0500 0375 0500 0000 %0930 f22
005717 000001 000181 0500 0500 0500 0500 0500 0500 0000 %0931 f23
004991 001064 -00083 0500 0375 0500 0500 0625 0500 0000 %0932 f24
004504 002047 -00154 0500 0250 0500 0500 0750 0500 0000 %0933 f25
003933 003075 -00249 0500 0125 0500 0500 0875 0500 0000 %0934 f26
003395 003868 -00327 0500 0000 0500 0500 1000 0500 0000 %0935 f27
006398 -03460 001945 0375 1000 0375 0625 0000 0625 0000 %0936 g19
006063 -02721 001562 0375 0875 0375 0625 0125 0625 0000 %0937 g20
005728 -01974 001097 0375 0750 0375 0625 0250 0625 0000 %0938 g21
005427 -01117 000659 0375 0625 0375 0625 0375 0625 0000 %0939 g22
005191 -00607 000496 0375 0500 0375 0625 0500 0625 0000 %0940 g23
004722 000204 000052 0375 0375 0375 0625 0625 0625 0000 %0941 g24
004235 001122 -00070 0375 0250 0375 0625 0750 0625 0000 %0942 g25
003611 001966 -00255 0375 0125 0375 0625 0875 0625 0000 %0943 g26
003156 002775 -00278 0375 0000 0375 0625 1000 0625 0000 %0944 g27
005731 -04306 002248 0250 1000 0250 0750 0000 0750 0000 %0945 h19
005440 -03687 001897 0250 0875 0250 0750 0125 0750 0000 %0946 h20
005158 -02857 001355 0250 0750 0250 0750 0250 0750 0000 %0947 h21
004809 -02153 000911 0250 0625 0250 0750 0375 0750 0000 %0948 h22
004565 -01625 000708 0250 0500 0250 0750 0500 0750 0000 %0949 h23
004186 -00753 000327 0250 0375 0250 0750 0625 0750 0000 %0950 h24
003884 000117 000019 0250 0250 0250 0750 0750 0750 0000 %0951 h25
003373 000978 -00150 0250 0125 0250 0750 0875 0750 0000 %0952 h26
002903 001740 -00134 0250 0000 0250 0750 1000 0750 0000 %0953 h27
005151 -05038 002537 0125 1000 0125 0875 0000 0875 0000 %0954 i19
004923 -04404 002233 0125 0875 0125 0875 0125 0875 0000 %0955 i20
004622 -03604 001843 0125 0750 0125 0875 0250 0875 0000 %0956 i21
004329 -02923 001540 0125 0625 0125 0875 0375 0875 0000 %0957 i22
004003 -02173 001028 0125 0500 0125 0875 0500 0875 0000 %0958 i23
003607 -01317 000596 0125 0375 0125 0875 0625 0875 0000 %0959 i24
003369 -00712 000352 0125 0250 0125 0875 0750 0875 0000 %0960 i25
003076 000108 -00009 0125 0125 0125 0875 0875 0875 0000 %0961 i26
002574 001015 000036 0125 0000 0125 0875 1000 0875 0000 %0962 i27
004754 -05655 002858 0000 1000 0000 1000 0000 1000 0000 %0963 j19
004467 -04925 002601 0000 0875 0000 1000 0125 1000 0000 %0964 j20
004187 -04150 002137 0000 0750 0000 1000 0250 1000 0000 %0965 j21
003908 -03409 001863 0000 0625 0000 1000 0375 1000 0000 %0966 j22
003538 -02695 001394 0000 0500 0000 1000 0500 1000 0000 %0967 j23
003204 -01872 000957 0000 0375 0000 1000 0625 1000 0000 %0968 j24
002888 -01154 000642 0000 0250 0000 1000 0750 1000 0000 %0969 j25
002590 -00427 000307 0000 0125 0000 1000 0875 1000 0000 %0970 j26
002359 -00013 000014 0000 0000 0000 1000 1000 1000 0000 %0971 j27
] def

% XE93-7: Measurement data: LAB_D65_%Z46F_R243.DAT, 243 colours, 20080301, Separation cmy0*, adapted

/LAB*Fa1100 [
%Z46F_R243.DAT, 243 colours, 20080301, Separation cmy0*
%100 x LAB*a         1000 x (r g b  c m y 0)            %nr.  pos
004616 006471 004067 1000 0000 0000 0000 1000 1000 0000 %0801 j01 %O2 0
009002 -01662 009722 1000 1000 0000 0000 0000 1000 0000 %0882 j10 %Y2 1
004754 -05655 002858 0000 1000 0000 1000 0000 1000 0000 %0963 j19 %L2 2
005495 -01397 -05094 0000 1000 1000 1000 0000 0000 0000 %0737 b09 %C2 3
002260 003131 -04740 0000 0000 1000 1000 1000 0000 0000 %0818 b18 %V2 4
004714 007421 -00768 1000 0000 1000 0000 1000 0000 0000 %0899 b27 %M2 5
002400 000000 000000 0000 0000 0000 1000 1000 1000 0000 %0809 j09 %N2 6
009507 000000 000000 1000 1000 1000 0000 0000 0000 0000 %0729 b01 %W2 7
] def %Z46F_R243.DAT, 243 colours, 20080301, Separation cmy0*, adapted
/FileData1Na (R_LRS24_Z46F_N0) def

/cvishow {cvi 6 string cvs show} def
/cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def
/cvsshow2 {100 mul cvi 0.01 mul 7 string cvs show} def
/cvsshow3 {1000 mul cvi 0.001 mul 7 string cvs show} def

/LAB*ioLmod {%BEG Procedure LAB*ioLmod

%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* 84 array def %12x3=36 including N,W + 16x3=48 elementary system
/LAB*a 84 array def


0 1 11 {/sISO exch def
        /i30 sISO 3 mul def /i31 i30 1 add def /i32 i30 2 add def
        sISO 7 le { %sISO=0,7
        LAB* i30 LAB*02 i30 get put
        LAB* i31 LAB*02 i31 get put
        LAB* i32 LAB*02 i32 get put
       } %sISO=0,7
       {%sISO=8,11
        %Definition 8 to 11
        /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
        
%        %Definition 12 to 24 (36 to 72)
%        /jISO0 sISO 8 sub def
%        sISO 11 eq {/jISO1 0 def}
%                   {/jISO1 jISO0 1 add def} ifelse
%        0 1 3 {/ij exch def
%               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
%               LAB* 36 jISO0 12 mul add ij 3 mul add
%               RJGBLAB* jISO0 3 mul get       a0 mul
%               RJGBLAB* jISO1 3 mul get       b0 mul add put
%               LAB* 37 jISO0 12 mul add ij 3 mul add
%               RJGBLAB* jISO0 3 mul 1 add get      a0 mul
%               RJGBLAB* jISO1 3 mul 1 add get      b0 mul add put
%               LAB* 38 jISO0 12 mul add ij 3 mul add
%               RJGBLAB* jISO0 3 mul 2 add get      a0 mul
%               RJGBLAB* jISO1 3 mul 2 add get      b0 mul add put
%              } for

       } ifelse %sISO=0,7 and 8,11

       } for

/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

/A*Dio A*Wio A*Nio sub def
/B*Dio B*Wio B*Nio sub def
icolor 0 eq {/cf1 1 def}{/cf1 0.90 def} ifelse
0 1 11 {/sISO exch def
        /i30 sISO 3 mul def /i31 i30 1 add def /i32 i30 2 add def
        /l*CIE LAB* i30 get L*Nio sub L*Wio L*Nio sub div def %system rel. lightn.
        /a*s A*Wio A*Nio sub l*CIE mul def
        /b*s B*Wio B*Nio sub l*CIE mul def
        /L*Z L*Nio L*Wio L*Nio sub 0.5 mul add def
        LAB*a i30 LAB* i30 get L*Z sub cf1 mul L*Z add put
        LAB*a i31 LAB* i31 get A*Nio sub a*s sub cf1 mul put
        LAB*a i32 LAB* i32 get B*Nio sub b*s sub cf1 mul put
       } for
/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

} def %END Procedure LAB*ioLmod

%***********************************************************

/proc_LAB*Fa_LAB*MaNTABl_olvi3*cmyn3*Ma*ioL {
%BEG procedure proc_LAB*Fa_LAB*MaNTABl_olvi3*cmyn3*Ma*ioL
%only for calculation without hue tables

%input  LAB*Fa
%input  LAB*a (6 adapted colours OYLCVM)
%input  nLAB*s0 (colour white N for calculation of lab*l)
%input  wLAB*s0 (colour white W for achromatic axis)

%output LAB*Ma
%output olvi3*Ma
%output cmyn3*Ma

/UXF1a wLAB*s0 1 get B*Fa mul wLAB*s0 2 get A*Fa mul sub def
/UXF2a wLAB*s0 2 get L*Fa mul wLAB*s0 0 get B*Fa mul sub def
/UXF3a wLAB*s0 0 get A*Fa mul wLAB*s0 1 get L*Fa 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

/ia30 ia 3 mul def /iap 1 ALPH sub def /iam ALPH def
ia 0 eq {/c3*Ma   0 def %L, c*=0, sector O->Y
         /m3*Ma iam def %L, m*=1->0
         /y3*Ma   1 def %L, y*=1
        } if
ia 1 eq {/c3*Ma iap def %L, c*=0->1, sector Y->L
         /m3*Ma   0 def %L, m*=0
         /y3*Ma   1 def %L, y*=1
        } if
ia 2 eq {/c3*Ma   1 def %L, c*=1, sector L->C
         /m3*Ma   0 def %L, m*=0
         /y3*Ma iam def %L, y*=1->0
        } if
ia 3 eq {/c3*Ma   1 def %L, c*=1, sector C->V
         /m3*Ma iap def %L, m*=1->0
         /y3*Ma   0 def %L, y*=0
        } if
ia 4 eq {/c3*Ma iam def %L, c*=1->0, sector V->M
         /m3*Ma   1 def %L, m*=1
         /y3*Ma   0 def %L, y*=0
        } if
ia 5 eq {/c3*Ma   0 def %L, c*=0, sector M->O
         /m3*Ma   1 def %L, m*=1
         /y3*Ma iap def %L, y*=0->1
        } if

/o3*Ma 1 c3*Ma sub def
/l3*Ma 1 m3*Ma sub def
/v3*Ma 1 y3*Ma sub def
/i3*Ma 1 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_LAB*Fa_LAB*MaNTABl_olvi3*cmyn3*Ma*ioL

%*******************************************************************

/proc_LAB*Fae_LAB*MaeNTABl_olvi3*cmyn3*Ma*ioL {
%BEG procedure proc_LAB*Fae_LAB*MaeNTABl_olvi3*cmyn3*Ma*ioL
%only for calculation without hue tables

%input  LAB*Fae
%input  LAB*a (4 adapted colours RJGB, No. 8 to 11)
%input  nLAB*s0 (colour white N for calculation of lab*l)
%input  wLAB*s0 (colour white W for achromatic axis)

%output LAB*Mae
%output olvi3*Mae
%output cmyn3*Mae

/UXF1a wLAB*s0 1 get B*Fae mul wLAB*s0 2 get A*Fae mul sub def
/UXF2a wLAB*s0 2 get L*Fae mul wLAB*s0 0 get B*Fae mul sub def
/UXF3a wLAB*s0 0 get A*Fae mul wLAB*s0 1 get L*Fae 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*Mae ALPH L*11a mul 1 ALPH sub L*21a mul add def
/A*Mae ALPH A*11a mul 1 ALPH sub A*21a mul add def
/B*Mae ALPH B*11a mul 1 ALPH sub B*21a mul add def
/C*Mae A*Mae dup mul B*Mae dup mul add 0.000001 add sqrt def
/H*Mae B*Mae A*Mae 0.0001 add atan def

/ia30 ia 3 mul def /iap 1 ALPH sub def /iam ALPH def
ia 0 eq {/c3*Mae   0 def %L, c*=0, sector O->Y
         /m3*Mae iam def %L, m*=1->0
         /y3*Mae   1 def %L, y*=1
        } if
ia 1 eq {/c3*Mae iap def %L, c*=0->1, sector Y->L
         /m3*Mae   0 def %L, m*=0
         /y3*Mae   1 def %L, y*=1
        } if
ia 2 eq {/c3*Mae   1 def %L, c*=1, sector L->C
         /m3*Mae   0 def %L, m*=0
         /y3*Mae iam def %L, y*=1->0
        } if
ia 3 eq {/c3*Mae   1 def %L, c*=1, sector C->V
         /m3*Mae iap def %L, m*=1->0
         /y3*Mae   0 def %L, y*=0
        } if
ia 4 eq {/c3*Mae iam def %L, c*=1->0, sector V->M
         /m3*Mae   1 def %L, m*=1
         /y3*Mae   0 def %L, y*=0
        } if
ia 5 eq {/c3*Mae   0 def %L, c*=0, sector M->O
         /m3*Mae   1 def %L, m*=1
         /y3*Mae iap def %L, y*=0->1
        } if

/o3*Mae 1 c3*Mae sub def
/l3*Mae 1 m3*Mae sub def
/v3*Mae 1 y3*Mae sub def
/i3*Mae 1 def

/lab*nMae 0.00 def
/lab*cMae 1.00 def
/lab*wMae 0.00 def
/lab*tMae 0.50 def
/lab*hMae H*Mae 360 div def
/lab*lMae L*Mae nLAB*s0 0 get sub
          wLAB*s0 0 get nLAB*s0 0 get sub 0.000001 add div def

} bind def
%END procedure proc_LAB*Fae_LAB*MaeNTABl_olvi3*cmyn3*Ma*ioL

/ibshown {TBS -50 -50 rmoveto show 0 50 rmoveto TBK} bind def
/ibshow0 {TBS -00 -50 rmoveto show 0 50 rmoveto TBK} bind def
/ishown  {TS  -50 -50 rmoveto show 0 50 rmoveto TK } bind def
/ishow0  {TS  -00 -50 rmoveto show 0 50 rmoveto TK } bind def

/ibshownL {TBL -50 -50 rmoveto show 0 50 rmoveto TBS} bind def
/ibshow0L {TBL -00 -50 rmoveto show 0 50 rmoveto TBS} bind def
/ishownL  {TL  -50 -50 rmoveto show 0 50 rmoveto TS } bind def
/ishow0L  {TL  -00 -50 rmoveto show 0 50 rmoveto TS } bind def

%%EndProlog
gsave

%LANINDL2 START  20090901
/lanind 0 def
/lantex [(G) (E) (S) (F) (I) (J) (M)] def
/showde {0 lanind eq {show} {pop} ifelse} bind def
/showen {1 lanind eq {show} {pop} ifelse} bind def
/showes {2 lanind eq {show} {pop} ifelse} bind def
/showfr {3 lanind eq {show} {pop} ifelse} bind def
/showit {4 lanind eq {show} {pop} ifelse} bind def
/showjp {5 lanind eq {show} {pop} ifelse} bind def
/showea {1 lanind le {show} {pop} ifelse} bind def

/lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def
                    /lanindd laninddf def}
               {/lanind1 0 def /lanind2 0 def} ifelse
/colormf where {pop /colorm1 colormf def /colorm2 colormf def
                    /colormd colormdf def}
               {/colorm1 0 def} ifelse
/deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def
                    /deintpd deintpdf def}
               {/deintp1 0 def} ifelse
/xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def
                    /xcolord xcolordf def
                    /xcolorm xcolor2f xcolor1f sub 1 add def}
               {/xcolor1 0 def /xcolorm 1 def} ifelse
/xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def
                    /xchartd xchartdf def
                    /xchartm xchart2f xchart1f sub 1 add def}
               {/xchart1 0 def /xchartm 1 def} ifelse
/xchart3f where {pop /xchart3 xchart3f def}
                {/xchart3 0 def} ifelse
/xchart4f where {pop /xchart4 xchart4f def}
                {/xchart4 0 def} ifelse
/pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def
                    /pchartd pchartdf def}
               {/pchart1 3 def} ifelse
/colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def
                    /colsepd colsepdf def}
               {/colsep1 0 def} ifelse
/pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def
                    /pmetamd pmetamdf def}
               {/pmetam1 0 def} ifelse

%either defaul values for xchart=0 or values for xchart=1
/lanind lanind1 def %
/colorm colorm1 def %
/deintp deintp1 def %
/xcolor xcolor1 def %
/xchart xchart1 def %
/pchart pchart1 def %
/colsep colsep1 def %
/pmetam pmetam1 def %

colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0
colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1
colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0
colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1
%xchart 0 eq {/Txx (-) def /Fxx (-) def} if %always independent of intended output

%STOP1

/cvi100show {100 mul cvi /xi exch def
             xi 0 lt {/vorz -1 def} {/vorz 1 def} ifelse
             /xia xi abs def
             vorz -1 eq {(\255) show} {(0) show} ifelse
             xia    0 ge xia    9 le     {(000) show} if
             xia   10 ge xia   99 le and {(00) show} if
             xia  100 ge xia  999 le and {(0) show} if
%             xia 1000 ge xia 9999 le and {() show} if
             xia cvishow ( ) show
            } bind def

/LUTL* 247 array def %243+4=247
/LUTA* 247 array def
/LUTB* 247 array def

/LUTr* 247 array def
/LUTg* 247 array def
/LUTb* 247 array def
/C*ab  247 array def
/L*    247 array def

/LUTl*  247 array def %243+4=247
/LUTc1* 247 array def
/LUTc2* 247 array def
/LUTt1* 247 array def
/LUTt2* 247 array def
/LUTc*rgb 247 array def
/LUTt*rgb 247 array def

/l1* 247 array def %243+4=247
/l2* 247 array def %l* not possible allread used olv*
/c1* 247 array def
/c2* 247 array def
/t1* 247 array def
/t2* 247 array def
/c1*rgb 247 array def
/c2*rgb 247 array def
/t1*rgb 247 array def
/t2*rgb 247 array def

/ColNames [(O) (Y) (L) (C) (V) (M) (N) (W)
           (R) (J) (G) (B)
           (R) (R25J) (R50J) (R75J)
           (J) (J25G) (J50G) (J75G)
           (G) (G25B) (G50B) (G75B)
           (B) (B25R) (B50R) (B75R) (R)
          ] def

/o3Ma [1 1 0 0 0 1 0 1
       1 1 0 0
       1 1.00 1.00 1.00
       1 0.75 0.50 0.25
       0 0.00 0.00 0.00
       0 0.50 1.00 1.00 1] def
/l3Ma [0 1 1 1 0 0 0 1
       0 1 1 0
       0 0.25 0.50 0.75
       1 1.00 1.00 1.00
       1 1.00 1.00 0.50
       0 0.00 0.00 0.00 0] def
/v3Ma [0 0 0 1 1 1 0 1
       0 0 0 1
       0 0.00 0.00 0.00
       0 0.00 0.00 0.00
       0 0.50 1.00 1.00
       1 1.00 1.00 0.50 0] def
          
/yd 340 def %y-Zeilenabstand
%Spalten
/S1 20 def
/S2 450 def
/S3 1550 def
/S4 2650 def
/S5 3750 def
/S6 4650 def
/S7 5350 def
/S8 6400 def
/S9 7200 def
/S10 8000 def
/S11 8800 def
/S12 9600 def

/yu1 4650 def
/yu2 3800 4000 add def

/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

72 90 translate

0.01 MM dup scale

/L*olv 8 array def
/A*olv 8 array def
/B*olv 8 array def
/C*olv 8 array def
/H*olv 8 array def
/N*olv 8 array def
/o*olv 8 array def
/l*olv 8 array def
/v*olv 8 array def

/L*rgb 8 array def
/A*rgb 8 array def
/B*rgb 8 array def
/C*rgb 8 array def
/H*rgb 8 array def
/N*rgb 8 array def
/o*rgb 8 array def
/l*rgb 8 array def
/v*rgb 8 array def

/angle_olv    7 array def
/angle_olvG01 7 array def
/angle_olvG11 7 array def
/angle_rgb    7 array def
/angle_olv [38 96 151 236 305 354 398] def %standard offset
/angle_rgb [26 92 162 217 272 329 386] def %CIE-test colors

/angle_olvi    28 array def %shift by 00,25,50,75%
/angle_olvG01i 28 array def %shift by 00,25,50,75%
/angle_olvG11i 28 array def %shift by 00,25,50,75%
/angle_rgbi    28 array def %shift by 00,25,50,75%

0 1 23 {/i exch def
        LAB*Fa0100 i LAB*Fa0100 i get 100 div put
        LAB*Fa1100 i LAB*Fa1100 i get 100 div put
       } for


/LAB*FaG0100 24 array def
/LAB*FaG1100 24 array def
/LAB*FaG0000 24 array def

0 1 23 {/i exch def
        LAB*FaG0100 i LAB*Fa0100 i get put
        LAB*FaG1100 i LAB*Fa1100 i get put
       } for

00 1 1 {/xcolor exch def %xcolor=0,1

gsave
/icolor xcolor xcolor 2 idiv 2 mul sub def %icolor=0 or 1
            
%0 1 9719 {/i exch def %i=0,09719 %972*10-1=9719
0 1 2429 {/i exch def %i=0,2429
           LUT i
           xcolor 0 eq {LUT_LAB0 i get} if
           xcolor 1 eq {LUT_LAB1 i get} if
           xcolor 2 eq {LUT_LAB2 i get} if
           xcolor 3 eq {LUT_LAB3 i get} if
           xcolor 4 eq {LUT_LAB4 i get} if
           xcolor 5 eq {LUT_LAB5 i get} if
           xcolor 6 eq {LUT_LAB6 i get} if
           xcolor 7 eq {LUT_LAB7 i get} if
           put
          } for %i=0,09719

0 1 23 {/i exch def
        LAB*Fa0000 i
        icolor 0 eq {LAB*Fa0100 i get}
                    {LAB*Fa1100 i get} ifelse
        put
       } for

0 1 23 {/i exch def
        LAB*FaG0000 i
        icolor 0 eq {LAB*FaG0100 i get}
                    {LAB*FaG1100 i get} ifelse
        put
       } for

0 1 05 {/i exch def %i=0,5
        /A*Fa LAB*FaG0100 i 3 mul 1 add get def
        /B*Fa LAB*FaG0100 i 3 mul 2 add get def
        /H*Fa B*Fa A*Fa 0.0001 add atan def
        angle_olvG01 i H*Fa put
        i 0 eq {angle_olvG01 6 H*Fa 360 add put} if
        
        /A*Fa LAB*FaG1100 i 3 mul 1 add get def
        /B*Fa LAB*FaG1100 i 3 mul 2 add get def
        /H*Fa B*Fa A*Fa 0.0001 add atan def
        angle_olvG11 i H*Fa put
        i 0 eq {angle_olvG11 6 H*Fa 360 add put} if
       } for %i=0,5

0 1 5 {/i exch def /i1 i 1 add def %i=0,5       
       /angle_olvG01_dif angle_olvG01 i1 get angle_olvG01 i get sub def
       angle_olvG01i i angle_olvG01 i get put
       angle_olvG01i i 07 add angle_olvG01 i get angle_olvG01_dif 0.25 mul add put
       angle_olvG01i i 14 add angle_olvG01 i get angle_olvG01_dif 0.50 mul add put
       angle_olvG01i i 21 add angle_olvG01 i get angle_olvG01_dif 0.75 mul add put
       
       /angle_olvG11_dif angle_olvG11 i1 get angle_olvG11 i get sub def
       angle_olvG11i i angle_olvG11 i get put
       angle_olvG11i i 07 add angle_olvG11 i get angle_olvG11_dif 0.25 mul add put
       angle_olvG11i i 14 add angle_olvG11 i get angle_olvG11_dif 0.50 mul add put
       angle_olvG11i i 21 add angle_olvG11 i get angle_olvG11_dif 0.75 mul add put
      } for %i=0,5

/LAB*02 24 array def
%/j0 0 def
/j0 729 def
729 1 971 {/jj exch def %jj=729,971
           /j jj j0 sub def
           %necessary in both cases
         jj 963 eq {%RGB*02 02 RGBCMY0*tx j get put %963 0-8-0 L 2
                   LAB*02 06 LUT j 10 mul 0 add get put
                   LAB*02 07 LUT j 10 mul 1 add get put
                   LAB*02 08 LUT j 10 mul 2 add get put} if
         jj 737 eq {%RGB*02 03 RGBCMY0*tx j get put %737 0-8-8 C 3
                   LAB*02 09 LUT j 10 mul 0 add get put
                   LAB*02 10 LUT j 10 mul 1 add get put
                   LAB*02 11 LUT j 10 mul 2 add get put} if
         jj 818 eq {%RGB*02 04 RGBCMY0*tx j get put %818 0-0-8 V 4
                   LAB*02 12 LUT j 10 mul 0 add get put
                   LAB*02 13 LUT j 10 mul 1 add get put
                   LAB*02 14 LUT j 10 mul 2 add get put} if
         jj 809 eq {%RGB*02 06 RGBCMY0*tx j get put %809 or 890 or 971 0-0-0 N 6
                   LAB*02 18 LUT j          10 mul 0 add get
                             LUT 890 j0 sub 10 mul 0 add get add
                             LUT 971 j0 sub 10 mul 0 add get add 3 div put
                   LAB*02 19 LUT j          10 mul 1 add get
                             LUT 890 j0 sub 10 mul 1 add get add
                             LUT 971 j0 sub 10 mul 1 add get add 3 div put
                   LAB*02 20 LUT j          10 mul 2 add get
                             LUT 890 j0 sub 10 mul 2 add get add
                             LUT 971 j0 sub 10 mul 2 add get add 3 div put} if
         jj 801 eq {%RGB*02 00 RGBCMY0*tx j get put %801 8-0-0 O 0
                   LAB*02 00 LUT j 10 mul 0 add get put
                   LAB*02 01 LUT j 10 mul 1 add get put
                   LAB*02 02 LUT j 10 mul 2 add get put} if
         jj 882 eq {%RGB*02 01 RGBCMY0*tx j get put %882 8-8-0 Y 1
                   LAB*02 03 LUT j 10 mul 0 add get put
                   LAB*02 04 LUT j 10 mul 1 add get put
                   LAB*02 05 LUT j 10 mul 2 add get put} if
         jj 899 eq {%RGB*02 05 RGBCMY0*tx j get put %899 8-0-8 M 5
                   LAB*02 15 LUT j 10 mul 0 add get put
                   LAB*02 16 LUT j 10 mul 1 add get put
                   LAB*02 17 LUT j 10 mul 2 add get put} if
         jj 729 eq {%RGB*02 07 RGBCMY0*tx j get put %729 or 810 or 891 8-8-8 W 7
                   LAB*02 21 LUT j          10 mul 0 add get
                             LUT 810 j0 sub 10 mul 0 add get add
                             LUT 891 j0 sub 10 mul 0 add get add 3 div put
                   LAB*02 22 LUT j          10 mul 1 add get
                             LUT 810 j0 sub 10 mul 1 add get add
                             LUT 891 j0 sub 10 mul 1 add get add 3 div put
                   LAB*02 23 LUT j          10 mul 2 add get
                             LUT 810 j0 sub 10 mul 2 add get add
                             LUT 891 j0 sub 10 mul 2 add get add 3 div put} if
        } for %jj=729,971


0 1 23 {/j exch def %j=0,23
        LAB*02 j LAB*02 j get 100 div put
       } for %j=0,23

/ISRL*ioL 0 def %standard colours
/ISIO*ioL 2 def %special for LAB*02 TLS70


LAB*ioLmod

0 1 1 {/ibild exch def %ibild=0,1

ibild 0 eq {%BEG ibild=0
0 1 05 {/ic exch def %ic=0,11
        S1 20 add yu2 yd ic mul sub moveto
        ( ) nshow
        N*olv ic ColNames ic get put
       } for %ic=0,11
0 1 05 {/i exch def %i=0,11
       /ya yu2 yd i mul sub def
       /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
       L*olv i L*Fa put
       A*olv i A*Fa put
       B*olv i B*Fa put
       C*olv i C*Fa put
       H*olv i H*Fa put
       o*olv i o3Ma i get put
       l*olv i l3Ma i get put
       v*olv i v3Ma i get put
       i 5 eq {L*olv 6 L*olv 0 get put
               A*olv 6 A*olv 0 get put
               B*olv 6 B*olv 0 get put
               A*olv 6 A*olv 0 get put
               C*olv 6 C*olv 0 get put
               H*olv 6 H*olv 0 get put
               o*olv 6 o*olv 0 get put
               l*olv 6 l*olv 0 get put
               v*olv 6 v*olv 0 get put
              } if
       
       } for %i=0,11
        }%END ibild=0
        {%BEG ibild=1
12 2 27 {/ic exch def %ic=12,27
         N*rgb ic 12 sub 2 idiv ColNames ic get put
        } for %ic=12,27

%calculation of intermediate elementary colours
%/proc_LAB*Fae_LAB*MaeNTABl_olvi3*cmyn3*Ma*ioL {
%BEG procedure proc_LAB*Fae_LAB*MaeNTABl_olvi3*cmyn3*Ma*ioL
%only for calculation without hue tables

%input  LAB*Fae
%input  LAB*a (4 adapted colours RJGB, No. 8 to 11)
%input  nLAB*s0 (colour white N for calculation of lab*l)
%input  wLAB*s0 (colour white W for achromatic axis)

%output LAB*Mae
%output olvi3*Mae
%output cmyn3*Mae

0 1 3 {/j exch def %j=0,3
       /L*Fae0 LAB*a j 8 add 3 mul 0 add get def
       /A*Fae0 LAB*a j 8 add 3 mul 1 add get def
       /B*Fae0 LAB*a j 8 add 3 mul 2 add get def
       /H*Fae0 B*Fae0 A*Fae0 0.0001 add atan def
       j 2 le {/L*Fae1 LAB*a j 1 add 8 add 3 mul 0 add get def
               /A*Fae1 LAB*a j 1 add 8 add 3 mul 1 add get def
               /B*Fae1 LAB*a j 1 add 8 add 3 mul 2 add get def
               /H*Fae1 B*Fae1 A*Fae1 0.0001 add atan def
              }
              {/L*Fae1 LAB*a 0       8 add 3 mul 0 add get def
               /A*Fae1 LAB*a 0       8 add 3 mul 1 add get def
               /B*Fae1 LAB*a 0       8 add 3 mul 2 add get def
               /H*Fae1 B*Fae1 A*Fae1 0.0001 add atan 360 add def
              } ifelse
0 1 1 {/i exch def %i=0,3
       /n j 2 mul i add def
       /ya yu2 yd n mul sub 8000 add def
       /alph i 2 div def /beta 1 alph sub def
       /L*Fae L*Fae0 beta mul L*Fae1 alph mul add def
       /H*Fae H*Fae0 beta mul H*Fae1 alph mul add def
       /A*Fae 100 H*Fae cos mul def
       /B*Fae 100 H*Fae sin mul def
       
       proc_LAB*Fae_LAB*MaeNTABl_olvi3*cmyn3*Ma*ioL
       
         n 0 ge {/ineu n       def} if
         n 2 ge {/ineu n 1 sub def} if
         n 4 ge {/ineu n 2 sub def} if
         L*rgb ineu L*Mae put
         A*rgb ineu A*Mae put
         B*rgb ineu B*Mae put
         C*rgb ineu C*Mae put
         H*rgb ineu H*Mae put
         n 7 eq {/ineu 6 def %ineu=6
         L*rgb ineu L*rgb 0 get put
         A*rgb ineu A*rgb 0 get put
         B*rgb ineu B*rgb 0 get put
         C*rgb ineu C*rgb 0 get put
         H*rgb ineu H*rgb 0 get put
                 } if %ineu=6

      } for %i=0,1 
      
      } for %j=0,3 
        
        } ifelse %END ibild=1

} for %ibild=0,1

%00 1 15 {/xchart exch def %xchart=0,15

 /xchartl 15 def

gsave

200 /Times-ISOL1 FS
0 setgray
%100 -200 moveto (SG471-8A: ) show
%(Messung: ) showde
%(Measurement: ) showea
%xcolor 0 eq { FileData0Na show} if
%xcolor 1 eq { FileData1Na show} if
%xcolor 2 eq { FileData2Na show} if
%xcolor 3 eq { FileData3Na show} if
%xcolor 4 eq { FileData4Na show} if
%xcolor 5 eq { FileData5Na show} if
%xcolor 6 eq { FileData6Na show} if
%xcolor 7 eq { FileData7Na show} if
%lanind eq {FileDatade show} {FileDataen show} ifelse
%(, Seite ) showde                                               %0SG47X-Y 2200#
%(, page ) showen                                                %1SG47X-Y 2200#
%(, p\341gina ) showes                                           %2SG47X-Y 2200#
%(, page ) showfr                                                %3SG47X-Y 2200#
%(, pagina ) showit                                              %4SG47X-Y 2200#
%, page ) showjp                                                %5SG47X-Y 2200#
%xcolor 1 add cvishow (/) show
2 cvishow

20 setlinewidth
%0 0 25000 17100 0.0 0.0 0.0 0.0 colrecfi %area white grey

%0 0 25000 17100 0.0 0.0 0.0 1.0 colrecst %Rahmen Schwarz

%0 1 15 {/xchartl   exch def %xchartl=0,11

%special space for 'xm03'PROZ0.COM 2x before/after xchartl
%  xchartl   0 eq {  100 13000 translate} if
%  xchartl   1 eq { 6100 13000 translate} if
%  xchartl   2 eq {  100 08750 translate} if
%  xchartl   3 eq { 6100 08750 translate} if

%  xchartl   4 eq {  100  4500 translate} if
%  xchartl   5 eq { 6100  4500 translate} if
%  xchartl   6 eq {  100  0250 translate} if
%  xchartl   7 eq { 6100  0250 translate} if

%  xchartl   8 eq {13500 13000 translate} if
%  xchartl   9 eq {19500 13000 translate} if
%  xchartl   10 eq {13500 08750 translate} if
%  xchartl   11 eq {19500 08750 translate} if

%  xchartl   12 eq {13500  4500 translate} if
%  xchartl   13 eq {19500  4500 translate} if
%  xchartl   14 eq {13500  0250 translate} if
%  xchartl   15 eq {19500  0250 translate} if


/xwidth 5400 def
/ywidth 4000 def

0 0 xwidth ywidth 0.0 0.0 0.0 0.5 colrecfi %Rechteck Mittelgrau

20 setlinewidth

0 0 xwidth ywidth 0.0 0.0 0.0 1.0 colrecst %Rahmen Schwarz

150 /Times-ISOL1 FS
0 setgray /Param (; cf1=0.90; nt=0.18; nx=1.0) def
300 -150 moveto 
xchartl 5 le {(SG471-) show} 
             {(SG471-) show} ifelse
xchartl 0 ge xchartl   7 le and {xchartl 1 add cvishow} if
xchartl 8 ge xchartl  15 le and {xchartl 7 sub cvishow} if
(A) show %A
(, ) show xcolor 1 add cvishow Param show

2600 0300 translate


gsave
0.8 0.8 scale

1 setgray
-3200   4175   moveto
TBS (System: ) show
xcolor 0 eq {FileData0Na show} if
xcolor 1 eq {FileData1Na show} if
xcolor 2 eq {FileData2Na show} if
xcolor 3 eq {FileData3Na show} if
xcolor 4 eq {FileData4Na show} if
xcolor 5 eq {FileData5Na show} if
xcolor 6 eq {FileData6Na show} if
xcolor 7 eq {FileData7Na show} if

/x800 800 def
/X850 850 def

0 1 5 {/i exch def /i1 i 1 add def %i=0,5
       /angle_olv_dif angle_olv i1 get angle_olv i get sub def
       angle_olvi i angle_olv i get put
       angle_olvi i 07 add angle_olv i get angle_olv_dif 0.25 mul add put
       angle_olvi i 14 add angle_olv i get angle_olv_dif 0.50 mul add put
       angle_olvi i 21 add angle_olv i get angle_olv_dif 0.75 mul add put

       /angle_rgb_dif angle_rgb i1 get angle_rgb i get sub def
       angle_rgbi i angle_rgb i get put
       angle_rgbi i 07 add angle_rgb i get angle_rgb_dif 0.25 mul add put
       angle_rgbi i 14 add angle_rgb i get angle_rgb_dif 0.50 mul add put
       angle_rgbi i 21 add angle_rgb i get angle_rgb_dif 0.75 mul add put
      } for %i=0,5

/angle6   7 array def
/angle6i 28 array def

/cfarb_olv_o 7 array def
/cfarb_olv_l 7 array def
/cfarb_olv_v 7 array def

/cfarb_rgb_r 7 array def
/cfarb_rgb_g 7 array def
/cfarb_rgb_b 7 array def

/cfarb_olv00_o 7 array def
/cfarb_olv00_l 7 array def
/cfarb_olv00_v 7 array def
/cfarb_olv25_o 7 array def
/cfarb_olv25_l 7 array def
/cfarb_olv25_v 7 array def
/cfarb_olv50_o 7 array def
/cfarb_olv50_l 7 array def
/cfarb_olv50_v 7 array def
/cfarb_olv75_o 7 array def
/cfarb_olv75_l 7 array def
/cfarb_olv75_v 7 array def

/cfarb_rgb00_r 7 array def
/cfarb_rgb00_g 7 array def
/cfarb_rgb00_b 7 array def
/cfarb_rgb25_r 7 array def
/cfarb_rgb25_g 7 array def
/cfarb_rgb25_b 7 array def
/cfarb_rgb50_r 7 array def
/cfarb_rgb50_g 7 array def
/cfarb_rgb50_b 7 array def
/cfarb_rgb75_r 7 array def
/cfarb_rgb75_g 7 array def
/cfarb_rgb75_b 7 array def

/cname_olv [(R) (Y) (G) (C) (B) (M) (R)] def
/cfarb_olv_o [1 1 0 0 0 1 1] def
/cfarb_olv_l [0 1 1 1 0 0 0] def
/cfarb_olv_v [0 0 0 1 1 1 0] def
/cname_rgb [(R) (Y) (G) (C) (B) (M) (R)] def
/cfarb_rgb_r [1 1 0 0 0 1 1] def
/cfarb_rgb_g [0 1 1 1 0 0 0] def
/cfarb_rgb_g [0 0 0 1 1 1 0] def

/cname_olv00 [(R00Y) (Y00G) (G00C) (C00B) (B00M) (M00R) (R00Y)] def
/cfarb_olv00_o [1 1 0 0 0 1 1] def
/cfarb_olv00_l [0 1 1 1 0 0 0] def
/cfarb_olv00_v [0 0 0 1 1 1 0] def
/cname_olv25 [(R25Y) (Y25G) (G25C) (C25B) (B25M) (M25R) (R25Y)] def
/cfarb_olv25_o [1.00 0.75 0.00 0.00 0.25 1.00 1.00] def
/cfarb_olv25_l [0.25 1.00 1.00 0.75 0.00 0.00 0.25] def
/cfarb_olv25_v [0.00 0.00 0.25 1.00 1.00 0.75 0.00] def
/cname_olv50 [(R50Y) (Y50G) (G50C) (C50B) (B50M) (M50R) (R50Y)] def
/cfarb_olv50_o [1.00 0.50 0.00 0.00 0.50 1.00 1.00] def
/cfarb_olv50_l [0.50 1.00 1.00 0.50 0.00 0.00 0.50] def
/cfarb_olv50_v [0.00 0.00 0.50 1.00 1.00 0.50 0.00] def
/cname_olv75 [(R75Y) (Y75G) (G75C) (C75B) (B75M) (M75R) (R75Y)] def
/cfarb_olv75_o [1.00 0.25 0.00 0.00 0.75 1.00 1.00] def
/cfarb_olv75_l [0.75 1.00 1.00 0.25 0.00 0.00 0.75] def
/cfarb_olv75_v [0.00 0.00 0.75 1.00 1.00 0.25 0.00] def

/cname_rgb00 [(R00Y) (Y00G) (G00B) (G50B) (B00R) (B50R) (R00Y)] def
/cfarb_rgb00_r [1 1 0 0 0 1 1] def
/cfarb_rgb00_g [0 1 1 1 0 0 0] def
/cfarb_rgb00_b [0 0 0 1 1 1 0] def
/cname_rgb25 [(R25Y) (Y25G) (G13B) (G62B) (B12R) (B63R) (R25Y)] def
/cfarb_rgb25_r [1.00 0.75 0.00 0.00 0.25 1.00 1.00] def
/cfarb_rgb25_g [0.25 1.00 1.00 0.75 0.00 0.00 0.25] def
/cfarb_rgb25_b [0.00 0.00 0.25 1.00 1.00 0.75 0.00] def
/cname_rgb50 [(R50Y) (Y50G) (G25B) (G75B) (B25R) (B75R) (R50Y)] def
/cfarb_rgb50_r [1.00 0.50 0.00 0.00 0.50 1.00 1.00] def
/cfarb_rgb50_g [0.50 1.00 1.00 0.50 0.00 0.00 0.50] def
/cfarb_rgb50_b [0.00 0.00 0.50 1.00 1.00 0.50 0.00] def
/cname_rgb75 [(R75Y) (Y75G) (G38B) (G88B) (B38R) (B88R) (R75Y)] def
/cfarb_rgb75_r [1.00 0.25 0.00 0.00 0.75 1.00 1.00] def
/cfarb_rgb75_g [0.75 1.00 1.00 0.25 0.00 0.00 0.75] def
/cfarb_rgb75_b [0.00 0.00 0.75 1.00 1.00 0.25 0.00] def

/cname6 7 array def

/olvrgb 0 def

0 1 6 {/i exch def
       cname6 i
                    xcolor 0 eq xcolor 1 eq or {cname_rgb00 i get} if
                    xcolor 2 eq xcolor 3 eq or {cname_rgb25 i get} if
                    xcolor 4 eq xcolor 5 eq or {cname_rgb50 i get} if
                    xcolor 6 eq xcolor 7 eq or {cname_rgb75 i get} if
       put

       angle6 i
       olvrgb 0 eq {%olvrgb=0
                    xcolor 0 eq xcolor 1 eq or {angle_olvi i get} if
                    xcolor 2 eq xcolor 3 eq or {angle_olvi i 07 add get} if
                    xcolor 4 eq xcolor 5 eq or {angle_olvi i 14 add get} if
                    xcolor 6 eq xcolor 7 eq or {angle_olvi i 21 add get} if
                   }
                   {%olvrgb=1
                    xcolor 0 eq xcolor 1 eq or {angle_rgbi i get} if
                    xcolor 2 eq xcolor 3 eq or {angle_rgbi i 07 add get} if
                    xcolor 4 eq xcolor 5 eq or {angle_rgbi i 14 add get} if
                    xcolor 6 eq xcolor 7 eq or {angle_rgbi i 21 add get} if
                   } ifelse
       put
      } for
             

xchartl 0 eq xchartl 4 eq or xchartl 8  eq or xchartl 12 eq or {/jbild 0 def} if
xchartl 1 eq xchartl 5 eq or xchartl 9  eq or xchartl 13 eq or {/jbild 1 def} if
xchartl 2 eq xchartl 6 eq or xchartl 10 eq or xchartl 14 eq or {/jbild 2 def} if
xchartl 3 eq xchartl 7 eq or xchartl 11 eq or xchartl 15 eq or {/jbild 3 def} if

jbild 3 ne {%jbild#3
-3200   3900   moveto
TBS lanind 0 eq {(Buntton: )} {(Hue: )} ifelse show
TBIS (h) show (ab,) ibshow0L
TBL 0 -50 rmoveto
jbild 0 eq {cname6 0 get show Txx show} if
jbild 1 eq {cname6 1 get show Txx show} if
jbild 2 eq {cname6 2 get show Txx show} if
0 50 rmoveto
TBS (=) show
jbild 0 eq {angle6 0 get cvishow} if
jbild 1 eq {angle6 1 get cvishow} if
jbild 2 eq {angle6 2 get cvishow} if
(/360; ) show
TBIS (h) show (ab,) ibshow0L
TBL 0 -50 rmoveto
jbild 0 eq {cname6 3 get show Txx show} if
jbild 1 eq {cname6 4 get show Txx show} if
jbild 2 eq {cname6 5 get show Txx show} if
0 50 rmoveto
TBS (=) show
jbild 0 eq {angle6 3 get cvishow} if
jbild 1 eq {angle6 4 get cvishow} if
jbild 2 eq {angle6 5 get cvishow} if
(/360) show
         } if %jbild#3

xchartl 12 ge {%xchartl>=12
-3200  3625  xchartl 15 eq {300 add} if moveto
TBS lanind 0 eq {(Ergebnis: )} {(Result: )} ifelse show
TBIS (c*) show (rgb*) ibshownL
TBS (=) show
TBIS (c*) show %(rgb*) ibshownL
TBS (; ) show
TBIS (t*) show (rgb*) ibshownL
TBS (=) show
TBIS (t*) show
             } if %xchartl>=12

xchartl   0 ge xchartl   3 le and {%0<=xchartl<=3
-3200 4400 moveto
TBS (Linear relation ) showea (Beziehung ) showde
TBS (CIELAB \050) show
TBIS (L*, a*, b*) show
TBS (\051) show
TBS ( and ) showea ( und ) showde
TBIS (adapted (a) ) showea (adaptiertes (a) ) showde 
TBS (CIELAB \050) show
TBIS (C*) show (ab,a) ibshownL
TBS (, ) show
TBIS (L*) show
TBS (\051) show

x800 4100 moveto
TBIS (l*) show
TBS (=\050 ) show 
TBIS (L*) show TBS ( - ) show  TBIS (L*) show (N) ibshownL
TBS ( \051 / \050) show TBIS (L*) show (W) ibshownL
( - ) show  TBIS (L*) show (N) ibshownL
TBS ( \051) show

x800 3800 moveto
TBIS (a*) show (a) ibshownL
TBS (=) show 
TBIS (a*) show
TBS ( - ) show 
TBIS (a*) show (N) ibshownL
TBS ( - ) show 
TBIS (l*) show
TBS ( [ ) show
TBIS (a*) show (W) ibshownL
TBS ( - ) show
TBIS (a*) show (N) ibshownL
TBS ( ]) show

x800 3500 moveto
TBIS (b*) show (a) ibshownL
TBS (=) show 
TBIS (b*) show
TBS ( - ) show 
TBIS (b*) show (N) ibshownL
TBS ( - ) show 
TBIS (l*) show
TBS ( [ ) show
TBIS (b*) show (W) ibshownL
TBS ( - ) show
TBIS (b*) show (N) ibshownL
TBS ( ]) show

x800 500 add 3200 moveto
TBIS (C*) show (ab,a) ibshownL
TBS (=[ ) show 
TBIS (a*) show (a) ibshownL
0 100 rmoveto TBL (2) show 0 -100 rmoveto

TBS ( + ) show 
TBIS (b*) show (a) ibshownL
0 100 rmoveto TBL (2) show 0 -100 rmoveto
TBS ( ] ) show
0 100 rmoveto TBL (1/2) show 0 -100 rmoveto

                            } if %0<=xchartl<=3

xchartl   4 ge xchartl   7 le and {%4<=xchartl<=7
-3200 4400 moveto
%TBS (Linear relation ) showea (Beziehung ) showde
TBIS (Adapted (a) ) showea (Adaptiertes (a) ) showde
TBS (CIELAB \050) show
TBIS (C*) show (ab,a) ibshownL
TBS (, ) show
TBIS (L*) show
TBS (\051) show
TBS ( and ) showea ( und ) showde
TBIS (relative ) showea (relatives ) showde 
TBS (CIELAB \050) show
TBIS (c*) show
TBS (, ) show
TBIS (l*) show
TBS (\051) show

X850 4100 moveto
TBIS (l*) show
TBS (=\050 ) show 
TBIS (L*) show TBS ( - ) show  TBIS (L*) show (N) ibshownL
TBS ( \051 / \050) show TBIS (L*) show (W) ibshownL
( - ) show  TBIS (L*) show (N) ibshownL
TBS ( \051) show

X850 3800 moveto
TBIS (c*) show
TBS (=) show 
TBIS (C*) show (ab,a) ibshownL
TBS ( / ) show
TBIS (C*) show (ab,a,M) ibshownL

X850 3500 moveto
TBIS (M) show
TBS (=Maximum colour) showea (=Maximalfarbe) showde
                            } if %4<=xchartl<=7
                            
xchartl   8 ge xchartl  11 le and {%8<=xchartl<=11
-3200 4400 moveto
TBS (Linear relation ) showea (Beziehung ) showde
TBIS (adapted (a) ) showea (adaptiertes (a) ) showde
TBS (CIELAB \050) show
TBIS (C*) show (ab,a) ibshownL
TBS (, ) show
TBIS (L*) show
TBS (\051) show
TBS ( and ) showea ( und ) showde
TBIS (relative ) showea (relatives ) showde 
TBS (CIELAB \050) show
TBIS (c*) show
TBS (, ) show
TBIS (t*) show
TBS (\051) show

X850 4100 moveto
TBIS (l*) show (M) ibshownL
TBS (=\050) show 
TBIS (L*) show (M) ibshownL
TBS ( - ) show  TBIS (L*) show (N) ibshownL
TBS (\051 / \050) show TBIS (L*) show (W) ibshownL
( - ) show  TBIS (L*) show (N) ibshownL
TBS (\051) show

X850 3800 moveto
TBIS (t*) show 
TBS (=) show 
TBIS (l*) show
TBS ( - ) show  TBIS (c*) show
TBS ( [ ) show TBIS (l*) show
0 -50 rmoveto TBL (M) show 0 50 rmoveto
TBS ( - 0,5 ]) show

X850 3500 moveto
TBIS (c*) show
TBS (=) show 
TBIS (C*) show (ab,a) ibshownL
TBS ( / ) show
TBIS (C*) show (ab,a,M) ibshownL

X850 3200 moveto
TBIS (M) show
TBS (=Maximum colour) showea (=Maximalfarbe) showde
                            } if %8<=xchartl<=11
                            
xchartl   12 ge xchartl   15 le and {%12<=xchartl<=15
-3200 4400 moveto
TBS (Linear relation ) showea (Beziehung ) showde
TBIS (rgb*) show
TBS ( and ) showea ( und ) showde
TBIS (relative ) show
TBS (chroma ) showea
    (Buntheit ) showde
TBIS (c*) show (rgb*) ibshownL

xchartl 03 ne
xchartl 07 ne and
xchartl 11 ne and
xchartl 15 ne and {%xchart #3,7,11,15 or =3,7,11,15
TBS ( and triangle lightness ) showea
    ( und Dreiecks\255Helligkeit ) showde
TBIS (t*) show
TBL 0 -50 rmoveto (rgb*) show 0 50 rmoveto

        } %xchart #3,7,11,15
%*********************************************************************************
        { %xchart =3,7,11,15
TBS ( or chroma ) showea
    ( oder Buntheit ) showde
TBIS (a) show
xchartl 12 ge {(*) show} if (rgb*) ibshownL

TBS (, ) show
TBIS (b) show
xchartl 12 ge {(*) show} if (rgb*) ibshownL

        } ifelse %xchart #3,7,11,15 or =3,7,11,15

X850 4100 moveto
TBIS (c*) show (rgb*) ibshownL
TBS (=max\050) show 
TBIS (rgb*) show 
TBS (\051 - min\050) show 
TBIS (rgb*) show
TBS (\051) show

X850 3800 moveto
TBIS (n*) show %(rgb*) ibshownL
TBS (=1 - max\050) show 
TBIS (rgb*) show 
TBS (\051) show
TBS (= 1 - ) show
TBIS (i*) show %(rgb*) ibshownL

X850 3500 moveto
TBIS (w*) show %(rgb*) ibshownL
TBS (=min\050) show 
TBIS (rgb*) show 
TBS (\051) show
TBS (= 1 - ) show
TBIS (d*) show %(rgb*) ibshownL

X850 3200 moveto
TBIS (t*) show (rgb*) ibshownL
TBS (=) show 
TBIS (w*) show %(rgb*) ibshownL
TBS ( + 0,5 ) show 
TBIS (c*) show (rgb*) ibshownL

xchartl 14 le {
X850 2900 moveto
TBIS (M) show
TBS (=Maximum colour) showea (=Maximalfarbe) showde
             } if

                            } if %12<=xchartl<=15

xchartl   2 le {
1500   150   moveto TBK (chroma) showea (Buntheit) showde
2500   150   moveto TBIK (C*) show 
TS 0 -50 rmoveto (ab,a) show

-1600 3100 moveto TBK (lightness) showea (Helligkeit) showde
-350   3100   moveto TBIK (L*) show
            } if

grestore
gsave

xchart 3 le {0.75 dup scale} {0.80 dup scale} ifelse

xchartl 03 ne
xchartl 07 ne and
xchartl 11 ne and
xchartl 15 ne and {%xchart #3,7,11,15 or =3,7,11,15

xchartl 1 eq xcolor 2 eq xcolor 3 eq or and { 200 0 translate} if %special shift for J-B
xchartl 1 eq xcolor 4 eq xcolor 5 eq or and {-300 0 translate} if %special shift for J-B
xchartl 1 eq xcolor 6 eq xcolor 7 eq or and { 200 0 translate} if %special shift for J-B

/j729 729 def
xchartl   0 eq xchartl   4 eq or xchartl   8 eq or xchartl   12 eq or
{/j1 729 j729 sub         10 mul def} if %series O-C
xchartl   1 eq xchartl   5 eq or xchartl   9 eq or xchartl   13 eq or
{/j1 729 j729 sub 081 add 10 mul def} if %series Y-V
xchartl   2 eq xchartl   6 eq or xchartl  10 eq or xchartl   14 eq or
{/j1 729 j729 sub 162 add 10 mul def} if %series L-M

0 1 080 {/i exch def %i=0,080
         /i10 j1 i 10 mul add def
         LUTL* i LUT i10 0 add get  100 div put 
         LUTA* i LUT i10 1 add get  100 div put
         LUTB* i LUT i10 2 add get  100 div put
         LUTr* i LUT i10 3 add get 1000 div put
         LUTg* i LUT i10 4 add get 1000 div put
         LUTb* i LUT i10 5 add get 1000 div put
         C*ab  i LUTA* i get dup mul
                 LUTB* i get dup mul add 0.000001 add sqrt put
         L*    i LUTL* i get put
        } for %i=0,080
        
%       801 737 809 729  882 818 890 810  963 899 971 891
%       j01 b09 j09 b01  j10 b18 j18 b10  j19 b27 j27 b19
%       O   C   N1  W1   Y   V   N2  W2   L   M   N3  W3

       xchartl 0 eq xchartl   4 eq or xchartl   8 eq or xchartl  12 eq or
       {/index [801 737 809 729] def} if %O,C,N1,W1
       xchartl 1 eq xchartl   5 eq or xchartl   9 eq or xchartl  13 eq or
       {/index [882 818 890 810] def} if %Y,V,N2,W2
       xchartl 2 eq xchartl   6 eq or xchartl  10 eq or xchartl  14 eq or
       {/index [963 899 971 891] def} if %L,M,N1,W2

0 1 3 {/i exch def %i=0,3 %standard colours at the end
       /i10 index i get j729 sub 10 mul def
       /i81 81 i add def
       LUTL* i81 LUT i10 0 add get 100 div put
       LUTA* i81 LUT i10 1 add get 100 div put
       LUTB* i81 LUT i10 2 add get 100 div put
       LUTr* i81 LUT i10 3 add get 1000 div put
       LUTg* i81 LUT i10 4 add get 1000 div put
       LUTb* i81 LUT i10 5 add get 1000 div put
       C*ab  i81 LUTA* i81 get dup mul
                 LUTB* i81 get dup mul add 0.000001 add sqrt put
       L*    i81 LUTL* i81 get put
      } for %i=0,3

/L*WN LUTL* 84 get LUTL* 83 get sub def

0 1 084 {/i exch def %i=0,084
         LUTl*  i LUTL* i get LUTL* 83 get sub 
                  L*WN 0.000001 add div put
         LUTc1* i C*ab i get C*ab 81 get 0.000001 add div put
         LUTc2* i C*ab i get C*ab 82 get 0.000001 add div put
         LUTt1* i LUTl* i get LUTc1* i get 
                  L* 81 get L* 83 get sub L*WN
                  0.000001 add div 0.5 sub mul sub put
         LUTt2* i LUTl* i get LUTc2* i get
                  L* 82 get L* 83 get sub L*WN
                  0.000001 add div 0.5 sub mul sub put
                  LUTr* i get 0 lt {LUTr* i 0 put} if
         LUTg* i get 0 lt {LUTg* i 0 put} if
         LUTb* i get 0 lt {LUTb* i 0 put} if
         LUTr* i get 1 gt {LUTr* i 1 put} if
         LUTg* i get 1 gt {LUTg* i 1 put} if
         LUTb* i get 1 gt {LUTb* i 1 put} if
         %maximum
         /max LUTr* i get def %rgb brilliantness
         LUTg* i get max gt {/max LUTg* i get def} if
         LUTb* i get max gt {/max LUTb* i get def} if
         %minimum
         /min LUTr* i get def %rgb whiteness
         LUTg* i get min lt {/min LUTg* i get def} if
         LUTb* i get min lt {/min LUTb* i get def} if         
         LUTc*rgb i max min sub put %rgb chroma
         LUTt*rgb i min max min sub 0.5 mul add put %rgb triangle lightness
        } for %i=0,084
        
%axis and scales
1 setgray
-3000 0 moveto 6250  0 rlineto stroke
0 -080  moveto 0 3600  rlineto stroke
 3250 100 sub 50 moveto 100 -50 rlineto
                       -100 -50 rlineto closepath fill
0 50 sub 3600 100 sub moveto 50  100 rlineto
                             50 -100 rlineto closepath fill

0 setgray
TS
/xt001 9 array def
/xt001 [(  1,0) () (  0,5) ( ) (  0) () (  0,5) () () ] def %(  1,0)] def
/yt001 5 array def
/yt001 [( ) () (0,5) ( ) (1,0)] def

/xt100 9 array def
/xt100 [(  100) () (   50) ( ) (     0) () (  50) () (100)] def
/yt100 5 array def
/yt100 [( ) () (50) ( ) (100)] def

0 1 8 {/i exch def %i=0,8
        -3000   i 750   mul add  -50 moveto 0 100 rlineto stroke
        -3200   i 750   mul add -250   moveto
        xchartl 3 le {xt100}{xt001} ifelse i get show
       } for %i=0,8

0 1 4 {/i exch def %i=0,4
       -75 0 i 750 mul    add moveto 150 0 rlineto stroke
        30 50 i 750 mul   add moveto
        xchartl 3 le {yt100}{yt001} ifelse i get show
      } for %i=0,4

xchartl   4 ge xchartl 7 le and {
1 setgray
-2800   3100   moveto TBIK (relative ) show
TBK (lightness) showea (Helligkeit) showde
-600   3100   moveto TBIK (l*) show
xchartl 11 le {TS 0 -50 rmoveto () show 0 50 rmoveto} if
               } if

xchartl   8 ge {
1 setgray
-2800   3100   moveto TBK (triangle lightness) showea
                          (Dreiecks\255Helligkeit) showde
-600   3100   moveto TBIK (t*) show
xchartl 11 le {TS 0 -50 rmoveto () show 0 50 rmoveto} if
xchartl 12 ge {TS 0 -50 rmoveto (rgb*) show 0 50 rmoveto} if
               } if

xchartl    4 ge {
1000   150   moveto TBIK (relative ) show
TBK (chroma) showea (Buntheit) showde
2800   150   moveto TBIK (c*) show
xchartl 11 le {TS 0 -50 rmoveto () show 0 50 rmoveto} if
xchartl 12 ge {TS 0 -50 rmoveto (rgb*) show 0 50 rmoveto} if
            } if

xchartl 12 ge {
1500 2350 moveto
TBIS (n*) show
%TBL 0 -50 rmoveto (rgb*) show 0 50 rmoveto
TBS (=0; ) show 
TBIS (i*) show
%TBL 0 -50 rmoveto (rgb*) show 0 50 rmoveto
TBS (=1) show

1500 0550 moveto
TBIS (w*) show
%TBL 0 -50 rmoveto (rgb*) show 0 50 rmoveto
TBS (=0; ) show 
TBIS (d*) show
%TBL 0 -50 rmoveto (rgb*) show 0 50 rmoveto
TBS (=1) show
            } if

/fakt  30 def
/fakt2 3000 def
100 /Times-ISOL1 FS
/j1 0 def
/k1 0 def
/k2 3 def


xchartl   0 ge xchartl   2 le and {%0<=xchartl  <=2
%**********************************************************************
100 /Times-ISOL1 FS

%only once:
%spalte e05 bis e05: W-C
/Vorz -1 def
0 1 0 {/j exch def %j=0,0 %lines
       /ja j 40 add def
       L*   j LUTL* ja get put
       C*ab j LUTA* ja get dup mul
              LUTB* ja get dup mul add sqrt Vorz mul put
       newpath
       LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
       C*ab j get fakt mul
       L*   j get fakt mul
       030 0 360 arc fill
       newpath
      } for %j=0,0

%**********************************************************************
/Vorz 1 def
k1 1 k2 {/k exch def %k=0,3
         k 0 eq {/j2 8 def /j0 72 def} if %row j01 to j09: O-N
         k 1 eq {/j2 6 def /j0 64 def} if %row i02 to i08: O-N
         k 2 eq {/j2 4 def /j0 56 def} if %row h03 to h07: O-N
         k 3 eq {/j2 2 def /j0 48 def} if %row g04 to g06: O-N
       
j1 1 j2 {/j exch def %j=j1,j2 %lines
         /ja j0 j add def
         L*   j LUTL* ja get put
         C*ab j LUTA* ja get dup mul
                LUTB* ja get dup mul add sqrt Vorz mul put
         LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
         C*ab j get fakt mul
         L*   j get fakt mul
         050 0 360 arc fill
         j 1 ge {
                 C*ab j 1 sub get fakt mul
                 L*   j 1 sub get fakt mul moveto
                 C*ab j get fakt mul
                 L*   j get fakt mul lineto stroke
                } if
         j 8 eq {k 0 eq {%k=0
                         icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor
                         C*ab j get fakt mul
                         L*   j get fakt mul moveto
                         C*ab 0 get fakt mul
                         L*   0 get fakt mul lineto stroke
                        } if %k=0
                 } if
       } for %j=j1,j2
       
       } for %k=0,3

%**********************************************************************

/Vorz 1 def
k1 1 k2 {/k exch def %k=0,3
         k 0 eq {/j2 8 def /j0 00 def} if %line b01 to j01: W-O
         k 1 eq {/j2 6 def /j0 10 def} if %line c02 to i02: W-O
         k 2 eq {/j2 4 def /j0 20 def} if %line d03 to h03: W-O
         k 3 eq {/j2 2 def /j0 30 def} if %line e04 to g04: W-O
         
j1 1 j2 {/j exch def %j=j1,j2 %lines
         /ja j0 j 9 mul add def
         L*   j LUTL* ja get put
         C*ab j LUTA* ja get dup mul
                LUTB* ja get dup mul add sqrt Vorz mul put
         LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
         C*ab j get fakt mul
         L*   j get fakt mul
         050 0 360 arc fill
         j 1 ge {C*ab j 1 sub get fakt mul
                 L*   j 1 sub get fakt mul moveto
                 C*ab j get fakt mul
                 L*   j get fakt mul lineto stroke
                } if
         j 8 eq {k 0 eq {%k=0
                         icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor
                         C*ab j get fakt mul
                         L*   j get fakt mul moveto
                         C*ab 0 get fakt mul
                         L*   0 get fakt mul lineto stroke
                         C*ab j get fakt mul
                         L*   j get fakt mul
                         070 0 360 arc stroke
                        } if %k=0
                 LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
                 newpath 250 /TimesBI-ISOL1 FS
                 /xadd0 [-400 -400 -400] def /yadd0 [500 500 500] def
                 C*ab j get fakt mul xadd0 xchartl get add
                 L*   j get fakt mul yadd0 xchartl get add
                 moveto
                 cname6 xchartl get show Txx ibshow0
                 newpath
                 1 setgray
                 C*ab  j     get fakt mul 580 sub
                 L*  j       get fakt mul 700 sub 150 sub moveto
                 TBS (\050) show TBIS (C*) show (ab,a,M) ibshown
                 TBIS (,) show
                 TBIS ( L*) show (M) ibshown
                 TBS (\051) show 
                 newpath
                } if
        } for %j=j1,j2

        } for %k=0,3

%**********************************************************************
/Vorz -1 def

k1 1 k2 {/k exch def %k=0,3
         k 0 eq {/j2 8 def /j0 08 def} if %line b09 to j09: C-N
         k 1 eq {/j2 6 def /j0 16 def} if %line c08 to i08: C-N
         k 2 eq {/j2 4 def /j0 24 def} if %line d07 to h07: C-N
         k 3 eq {/j2 2 def /j0 32 def} if %line e06 to h06: C-N

j1 1 j2 {/j exch def %j=j1,j2 %lines
         /ja j0 j 9 mul add def
         L*   j LUTL* ja get put
         C*ab j LUTA* ja get dup mul
                LUTB* ja get dup mul add sqrt Vorz mul put
         LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
         C*ab j get fakt mul
         L*   j get fakt mul
         050 0 360 arc fill
         j 1 ge {C*ab j 1 sub get fakt mul
                 L*   j 1 sub get fakt mul moveto
                 C*ab j get fakt mul
                 L*   j get fakt mul lineto stroke
                } if
         j 8 eq {k 0 eq {%k=0
                         icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor
                         C*ab j get fakt mul
                         L*   j get fakt mul moveto
                         C*ab 0 get fakt mul
                         L*   0 get fakt mul lineto stroke
                        } if %k=0
                 } if
        } for %j=j1,j2
        
        } for %k=0,3

%**********************************************************************
/Vorz -1 def
k1 1 k2 {/k exch def %k=0,3
         k 0 eq {/j2 8 def /j0 00 def} if %row b01 to b09: W-C
         k 1 eq {/j2 6 def /j0 10 def} if %row c02 to c08: W-C
         k 2 eq {/j2 4 def /j0 20 def} if %row d03 to d07: W-C
         k 3 eq {/j2 2 def /j0 30 def} if %row e04 to e06: W-C

j1 1 j2 {/j exch def %j=j1,j2 %rows
         /ja j0 j add def
         L*   j LUTL* ja get put
         C*ab j LUTA* ja get dup mul
                LUTB* ja get dup mul add sqrt Vorz mul put
         LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
         C*ab j get fakt mul
         L*   j get fakt mul
         050 0 360 arc fill
         j 1 ge {C*ab j 1 sub get fakt mul
                 L*   j 1 sub get fakt mul moveto
                 C*ab j get fakt mul
                 L*   j get fakt mul lineto stroke
                } if
         j 8 eq {k 0 eq {%k=0
                         icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor
                         C*ab j get fakt mul
                         L*   j get fakt mul moveto
                         C*ab 0 get fakt mul
                         L*   0 get fakt mul lineto stroke
                         C*ab j get fakt mul
                         L*   j get fakt mul
                         070 0 360 arc stroke
                        } if %k=0
                 LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
                 newpath 250 /TimesBI-ISOL1 FS
                 /xadd0 [-400 -400 -400] def /yadd0 [500 500 500] def
                 C*ab j get fakt mul xadd0 xchartl get add
                 L*   j get fakt mul yadd0 xchartl get add
                 moveto
                 cname6 3 xchartl add get show Txx ibshow0
                 newpath
                } if
        } for %j=j1,j2
        
        } for %k=0,3
        
/fakt 30 def
icolor 1 eq {%icolor=1    
0 0 0 setrgbcolor
/i24 xcolor 2 idiv 24 mul def
/C*abW 0 def
/C*abN 0 def
/L*aN LAB*Fa0100 6 3 mul i24 add get def
/L*aW LAB*Fa0100 7 3 mul i24 add get def
/j xchartl def
/j30 j 3 mul i24 add def /j31 j30 1 add def /j32 j30 2 add def
/C*abM LAB*Fa0100 j31 get dup mul
       LAB*Fa0100 j32 get dup mul add 0.0001 add sqrt def
%C*abN fakt mul L*aN fakt mul moveto
%C*abM fakt mul LAB*Fa0100 j30 get fakt mul lineto
%C*abW fakt mul L*aW fakt mul lineto
%stroke
/j xchartl 3 add def
/j30 j 3 mul i24 add def /j31 j30 1 add def /j32 j30 2 add def
/C*abM LAB*Fa0100 j31 get dup mul
       LAB*Fa0100 j32 get dup mul add 0.0001 add sqrt def
%C*abN fakt mul neg L*aN fakt mul moveto
%C*abM fakt mul neg LAB*Fa0100 j30 get fakt mul lineto
%C*abW fakt mul neg L*aW fakt mul lineto
%stroke
} if %icolor=1

%**********************************************************************
} if %0<=xchartl  <=2

xchartl   4 ge xchartl   6 le and {%4<=xchartl  <=6
%**********************************************************************
100 /Times-ISOL1 FS

%only once:
%spalte e05 bis e05: W-C
0 1 0 {/j exch def %j=0,0 %lines
       /ja j 40 add def
       l1* j LUTl*  ja get put
       c1* j LUTc1* ja get put
       newpath
       LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
       c1* j get fakt2 mul
       l1* j get fakt2 mul
       030 0 360 arc fill
       newpath
      } for %j=0,0

%**********************************************************************

/Vorz 1 def
k1 1 k2 {/k exch def %k=0,3
         k 0 eq {/j2 8 def /j0 72 def} if %row j01 to j09: O-N
         k 1 eq {/j2 6 def /j0 64 def} if %row i02 to i08: O-N
         k 2 eq {/j2 4 def /j0 56 def} if %row h03 to h07: O-N
         k 3 eq {/j2 2 def /j0 48 def} if %row g04 to g06: O-N
       
j1 1 j2 {/j exch def %j=j1,j2 %lines
         /ja j0 j add def
         l1* j LUTl*  ja get put
         c1* j LUTc1* ja get put
         LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
         c1* j get fakt2 mul Vorz mul
         l1* j get fakt2 mul
         050 0 360 arc fill
         j 1 ge {c1*  j 1 sub get fakt2 mul Vorz mul
                 l1*  j 1 sub get fakt2 mul moveto
                 c1*  j       get fakt2 mul Vorz mul
                 l1*  j       get fakt2 mul lineto stroke
                } if
         j 8 eq {k 0 eq {%k=0
                         icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor
                         c1* j get fakt2 mul Vorz mul
                         l1* j get fakt2 mul moveto
                         c1* 0 get fakt2 mul Vorz mul
                         l1* 0 get fakt2 mul lineto stroke
                        } if %k=0
                 } if
       } for %j=j1,j2
       
       } for %k=0,3

%**********************************************************************

/Vorz 1 def
k1 1 k2 {/k exch def %k=0,3
         k 0 eq {/j2 8 def /j0 00 def} if %line b01 to j01: W-O
         k 1 eq {/j2 6 def /j0 10 def} if %line c02 to i02: W-O
         k 2 eq {/j2 4 def /j0 20 def} if %line d03 to h03: W-O
         k 3 eq {/j2 2 def /j0 30 def} if %line e04 to g04: W-O
         
j1 1 j2 {/j exch def %j=j1,j2 %lines
         /ja j0 j 9 mul add def
         l1* j LUTl*  ja get put
         c1* j LUTc1* ja get put
         LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
         c1* j get fakt2 mul Vorz mul
         l1* j get fakt2 mul
         050 0 360 arc fill
         j 1 ge {c1*  j 1 sub get fakt2 mul Vorz mul
                 l1*  j 1 sub get fakt2 mul moveto
                 c1*  j       get fakt2 mul Vorz mul
                 l1*  j       get fakt2 mul lineto stroke
                } if
         j 8 eq {k 0 eq {%k=0
                         icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor
                         c1* j get fakt2 mul Vorz mul
                         l1* j get fakt2 mul moveto
                         c1* 0 get fakt2 mul Vorz mul
                         l1* 0 get fakt2 mul lineto stroke
                         c1* j get fakt2 mul Vorz mul
                         l1* j get fakt2 mul
                         070 0 360 arc stroke
                        } if %k=0
                 LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
                 newpath 250 /TimesBI-ISOL1 FS
                 /xadd0 [-400 -400 -400] def /yadd0 [500 500 500] def
                 c1*  j get fakt2 mul Vorz mul xadd0 xchartl 4 sub get add
                 l1*  j get fakt2 mul          yadd0 xchartl 4 sub get add
                 moveto
                 cname6 xchartl 4 sub get show Txx ibshow0
                 newpath
                 1 setgray
                 c1*  j       get fakt2 mul Vorz mul 580 sub
                 l1*  j       get fakt2 mul 600 sub moveto
                 TBS (\050) show TBIS (c*) show 
                 0 -50 rmoveto TBL (M) show 0 50 rmoveto
                 TBIS (, l*) show
                 0 -50 rmoveto TBL (M) show 0 50 rmoveto
                 TBS (\051) show 
                 newpath
                } if
        } for %j=j1,j2

        } for %k=0,3


%**********************************************************************

/Vorz -1 def

k1 1 k2 {/k exch def %k=0,3
         k 0 eq {/j2 8 def /j0 08 def} if %line b09 to j09: C-N
         k 1 eq {/j2 6 def /j0 16 def} if %line c08 to i08: C-N
         k 2 eq {/j2 4 def /j0 24 def} if %line d07 to h07: C-N
         k 3 eq {/j2 2 def /j0 32 def} if %line e06 to h06: C-N

j1 1 j2 {/j exch def %j=j1,j2 %lines
         /ja j0 j 9 mul add def
         l2* j LUTl*  ja get put
         c2* j LUTc2* ja get put
         LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
         c2* j get fakt2 mul Vorz mul
         l2* j get fakt2 mul
         050 0 360 arc fill
         j 1 ge {c2*  j 1 sub get fakt2 mul Vorz mul
                 l2*  j 1 sub get fakt2 mul moveto
                 c2*  j       get fakt2 mul Vorz mul
                 l2*  j       get fakt2 mul lineto stroke
                } if
         j 8 eq {k 0 eq {%k=0
                         icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor
                         c2* j get fakt2 mul Vorz mul
                         l2* j get fakt2 mul moveto
                         c2* 0 get fakt2 mul Vorz mul
                         l2* 0 get fakt2 mul lineto stroke
                        } if %k=0
                 } if
        } for %j=j1,j2
        
        } for %k=0,3
%**********************************************************************

/Vorz -1 def
k1 1 k2 {/k exch def %k=0,3
         k 0 eq {/j2 8 def /j0 00 def} if %row b01 to b09: W-C
         k 1 eq {/j2 6 def /j0 10 def} if %row c02 to c08: W-C
         k 2 eq {/j2 4 def /j0 20 def} if %row d03 to d07: W-C
         k 3 eq {/j2 2 def /j0 30 def} if %row e04 to e06: W-C

j1 1 j2 {/j exch def %j=j1,j2 %rows
         /ja j0 j add def
         l2* j LUTl*  ja get put
         c2* j LUTc2* ja get put

         LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
         c2* j get fakt2 mul Vorz mul
         l2* j get fakt2 mul
         050 0 360 arc fill
         j 1 ge {c2*  j 1 sub get fakt2 mul Vorz mul
                 l2*  j 1 sub get fakt2 mul moveto
                 c2*  j       get fakt2 mul Vorz mul
                 l2*  j       get fakt2 mul lineto stroke
                } if
         j 8 eq {k 0 eq {%k=0
                         icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor
                         c2* j get fakt2 mul Vorz mul
                         l2* j get fakt2 mul moveto
                         c2* 0 get fakt2 mul Vorz mul
                         l2* 0 get fakt2 mul lineto stroke
                         c2* j get fakt2 mul Vorz mul
                         l2* j get fakt2 mul
                         070 0 360 arc stroke
                        } if %k=0
                 LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
                 newpath 250 /TimesBI-ISOL1 FS
                 /xadd0 [-400 -400 -400] def /yadd0 [500 500 500] def
                 c2*  j get fakt2 mul Vorz mul xadd0 xchartl 4 sub get add
                 l2*  j get fakt2 mul          yadd0 xchartl 4 sub get add
                 moveto
                 cname6 xchartl 4 sub 3 add get show Txx ibshow0
                 newpath
                } if
        } for %j=j1,j2
        
        } for %k=0,3

%**********************************************************************
} if %4<=xchartl  <=6

xchartl   8 ge xchartl  10 le and {%8<=xchartl  <=10
%**********************************************************************
100 /Times-ISOL1 FS

%only once:
%spalte e05 bis e05: W-C
0 1 0 {/j exch def %j=0,0 %lines
       /ja j 40 add def
       t1* j LUTt1* ja get put
       c1* j LUTc1* ja get put
       newpath
       LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
       c1* j get fakt2 mul
       t1* j get fakt2 mul
       030 0 360 arc fill
       newpath
      } for %j=0,0

%**********************************************************************

/Vorz 1 def
k1 1 k2 {/k exch def %k=0,3
         k 0 eq {/j2 8 def /j0 72 def} if %row j01 to j09: O-N
         k 1 eq {/j2 6 def /j0 64 def} if %row i02 to i08: O-N
         k 2 eq {/j2 4 def /j0 56 def} if %row h03 to h07: O-N
         k 3 eq {/j2 2 def /j0 48 def} if %row g04 to g06: O-N
       
j1 1 j2 {/j exch def %j=j1,j2 %lines
         /ja j0 j add def
         t1* j LUTt1* ja get put
         c1* j LUTc1* ja get put
         LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
         c1* j get fakt2 mul Vorz mul
         t1* j get fakt2 mul
         050 0 360 arc fill
         j 1 ge {c1*  j 1 sub get fakt2 mul Vorz mul
                 t1*  j 1 sub get fakt2 mul moveto
                 c1*  j       get fakt2 mul Vorz mul
                 t1*  j       get fakt2 mul lineto stroke
                } if
         j 8 eq {k 0 eq {%k=0
                         icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor
                         c1* j get fakt2 mul Vorz mul
                         t1* j get fakt2 mul moveto
                         c1* 0 get fakt2 mul Vorz mul
                         t1* 0 get fakt2 mul lineto stroke
                        } if %k=0
                 } if
       } for %j=j1,j2
       
       } for %k=0,3

%**********************************************************************

/Vorz 1 def
k1 1 k2 {/k exch def %k=0,3
         k 0 eq {/j2 8 def /j0 00 def} if %line b01 to j01: W-O
         k 1 eq {/j2 6 def /j0 10 def} if %line c02 to i02: W-O
         k 2 eq {/j2 4 def /j0 20 def} if %line d03 to h03: W-O
         k 3 eq {/j2 2 def /j0 30 def} if %line e04 to g04: W-O
         
j1 1 j2 {/j exch def %j=j1,j2 %lines
         /ja j0 j 9 mul add def
         t1* j LUTt1* ja get put
         c1* j LUTc1* ja get put
         LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
         c1* j get fakt2 mul Vorz mul
         t1* j get fakt2 mul
         050 0 360 arc fill
         j 1 ge {c1*  j 1 sub get fakt2 mul Vorz mul
                 t1*  j 1 sub get fakt2 mul moveto
                 c1*  j       get fakt2 mul Vorz mul
                 t1*  j       get fakt2 mul lineto stroke
                } if
         j 8 eq {k 0 eq {%k=0
                         icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor
                         c1* j get fakt2 mul Vorz mul
                         t1* j get fakt2 mul moveto
                         c1* 0 get fakt2 mul Vorz mul
                         t1* 0 get fakt2 mul lineto stroke
                         c1* j get fakt2 mul Vorz mul
                         t1* j get fakt2 mul
                         070 0 360 arc stroke
                        } if %k=0
                 LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
                 newpath 250 /TimesBI-ISOL1 FS
                 /xadd0 [-400 -400 -400] def /yadd0 [500 500 500] def
                 c1*  j get fakt2 mul Vorz mul xadd0 xchartl 8 sub get add
                 t1*  j get fakt2 mul          yadd0 xchartl 8 sub get add
                 moveto
                 cname6 xchartl 8 sub get show
                 1 setgray
                 c1*  j       get fakt2 mul Vorz mul 580 sub
                 t1*  j       get fakt2 mul 600 sub moveto
                 TBS (\050) show TBIS (c*) show 
                 0 -50 rmoveto TBL (M) show 0 50 rmoveto
                 TBIS (, t*) show
                 0 -50 rmoveto TBL (M) show 0 50 rmoveto
                 TBS (\051) show 
                 newpath
                } if
        } for %j=j1,j2

        } for %k=0,3

%**********************************************************************
/Vorz -1 def

k1 1 k2 {/k exch def %k=0,3
         k 0 eq {/j2 8 def /j0 08 def} if %line b09 to j09: C-N
         k 1 eq {/j2 6 def /j0 16 def} if %line c08 to i08: C-N
         k 2 eq {/j2 4 def /j0 24 def} if %line d07 to h07: C-N
         k 3 eq {/j2 2 def /j0 32 def} if %line e06 to h06: C-N

j1 1 j2 {/j exch def %j=j1,j2 %lines
         /ja j0 j 9 mul add def
         t2* j LUTt2* ja get put
         c2* j LUTc2* ja get put
         LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
         c2* j get fakt2 mul Vorz mul
         t2* j get fakt2 mul
         050 0 360 arc fill
         j 1 ge {c2*  j 1 sub get fakt2 mul Vorz mul
                 t2*  j 1 sub get fakt2 mul moveto
                 c2*  j       get fakt2 mul Vorz mul
                 t2*  j       get fakt2 mul lineto stroke
                } if
         j 8 eq {k 0 eq {%k=0
                         icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor
                         c2* j get fakt2 mul Vorz mul
                         t2* j get fakt2 mul moveto
                         c2* 0 get fakt2 mul Vorz mul
                         t2* 0 get fakt2 mul lineto stroke
                        } if %k=0
                 } if
        } for %j=j1,j2
        
        } for %k=0,3
%**********************************************************************
/Vorz -1 def
k1 1 k2 {/k exch def %k=0,3
         k 0 eq {/j2 8 def /j0 00 def} if %row b01 to b09: W-C
         k 1 eq {/j2 6 def /j0 10 def} if %row c02 to c08: W-C
         k 2 eq {/j2 4 def /j0 20 def} if %row d03 to d07: W-C
         k 3 eq {/j2 2 def /j0 30 def} if %row e04 to e06: W-C

j1 1 j2 {/j exch def %j=j1,j2 %rows
         /ja j0 j add def
         t2* j LUTt2* ja get put
         c2* j LUTc2* ja get put

         LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
         c2* j get fakt2 mul Vorz mul
         t2* j get fakt2 mul
         050 0 360 arc fill
         j 1 ge {c2*  j 1 sub get fakt2 mul Vorz mul
                 t2*  j 1 sub get fakt2 mul moveto
                 c2*  j       get fakt2 mul Vorz mul
                 t2*  j       get fakt2 mul lineto stroke
                } if
         j 8 eq {k 0 eq {%k=0
                         icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor
                         c2* j get fakt2 mul Vorz mul
                         t2* j get fakt2 mul moveto
                         c2* 0 get fakt2 mul Vorz mul
                         t2* 0 get fakt2 mul lineto stroke
                         c2* j get fakt2 mul Vorz mul
                         t2* j get fakt2 mul
                         070 0 360 arc stroke
                        } if %k=0
                 LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
                 newpath 250 /TimesBI-ISOL1 FS
                 /xadd0 [-400 -400 -400] def /yadd0 [500 500 500] def
                 c2*  j get fakt2 mul Vorz mul xadd0 xchartl 8 sub get add
                 t2*  j get fakt2 mul          yadd0 xchartl 8 sub get add
                 moveto
                 cname6 xchartl 8 sub 3 add get show Txx ibshow0
                 newpath
                } if
        } for %j=j1,j2
        
        } for %k=0,3

%**********************************************************************
} if %8<=xchartl  <=10

xchartl   12 ge xchartl   14 le and {%12<=xchartl  <=14
%**********************************************************************
100 /Times-ISOL1 FS

%only once:
%spalte e05 bis e05: W-C
0 1 0 {/j exch def %j=0,0 %lines
       /ja j 40 add def
       t1*rgb j LUTt*rgb ja get put
       c1*rgb j LUTc*rgb ja get put
       newpath
       LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
       c1*rgb j get fakt2 mul
       t1*rgb j get fakt2 mul
       030 0 360 arc fill
       newpath
      } for %j=0,0

%**********************************************************************

/Vorz 1 def
k1 1 k2 {/k exch def %k=0,3
         k 0 eq {/j2 8 def /j0 72 def} if %row j01 to j09: O-N
         k 1 eq {/j2 6 def /j0 64 def} if %row i02 to i08: O-N
         k 2 eq {/j2 4 def /j0 56 def} if %row h03 to h07: O-N
         k 3 eq {/j2 2 def /j0 48 def} if %row g04 to g06: O-N
       
j1 1 j2 {/j exch def %j=j1,j2 %lines
         /ja j0 j add def
         t1*rgb j LUTt*rgb ja get put
         c1*rgb j LUTc*rgb ja get put
         LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
         c1*rgb j get fakt2 mul Vorz mul
         t1*rgb j get fakt2 mul
         050 0 360 arc fill
         j 1 ge {c1*rgb  j 1 sub get fakt2 mul Vorz mul
                 t1*rgb  j 1 sub get fakt2 mul moveto
                 c1*rgb  j       get fakt2 mul Vorz mul
                 t1*rgb  j       get fakt2 mul lineto stroke
                } if
         j 8 eq {k 0 eq {%k=0
                         icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor
                         c1*rgb j get fakt2 mul Vorz mul
                         t1*rgb j get fakt2 mul moveto
                         c1*rgb 0 get fakt2 mul Vorz mul
                         t1*rgb 0 get fakt2 mul lineto stroke
                        } if %k=0
                 } if
       } for %j=j1,j2
       
       } for %k=0,3

%**********************************************************************

/Vorz 1 def
k1 1 k2 {/k exch def %k=0,3
         k 0 eq {/j2 8 def /j0 00 def} if %line b01 to j01: W-O
         k 1 eq {/j2 6 def /j0 10 def} if %line c02 to i02: W-O
         k 2 eq {/j2 4 def /j0 20 def} if %line d03 to h03: W-O
         k 3 eq {/j2 2 def /j0 30 def} if %line e04 to g04: W-O
         
j1 1 j2 {/j exch def %j=j1,j2 %lines
         /ja j0 j 9 mul add def
         t1*rgb j LUTt*rgb ja get put
         c1*rgb j LUTc*rgb ja get put
         LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
         c1*rgb j get fakt2 mul Vorz mul
         t1*rgb j get fakt2 mul
         050 0 360 arc fill
         j 1 ge {c1*rgb  j 1 sub get fakt2 mul Vorz mul
                 t1*rgb  j 1 sub get fakt2 mul moveto
                 c1*rgb  j       get fakt2 mul Vorz mul
                 t1*rgb  j       get fakt2 mul lineto stroke
                } if
         j 8 eq {k 0 eq {%k=0
                         icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor
                         c1*rgb j get fakt2 mul Vorz mul
                         t1*rgb j get fakt2 mul moveto
                         c1*rgb 0 get fakt2 mul Vorz mul
                         t1*rgb 0 get fakt2 mul lineto stroke
                         c1*rgb j get fakt2 mul Vorz mul
                         t1*rgb j get fakt2 mul
                         070 0 360 arc stroke
                        } if %k=0
                 LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
                 newpath 250 /TimesBI-ISOL1 FS
                 /xadd0 [-400 -400 -400] def /yadd0 [500 500 500] def
                 c1*rgb  j get fakt2 mul Vorz mul xadd0 xchartl 12 sub get add
                 t1*rgb  j get fakt2 mul          yadd0 xchartl 12 sub get add
                 moveto
                 cname6 xchartl 12 sub get show
                 1 setgray
                 c1*rgb  j       get fakt2 mul Vorz mul 580 sub
                 t1*rgb  j       get fakt2 mul 600 sub moveto
                 TBS (\050) show TBIS (c*) show 
                 0 -50 rmoveto TBL (M) show 0 50 rmoveto
                 TBIS (, t*) show
                 0 -50 rmoveto TBL (M) show 0 50 rmoveto
                 TBS (\051) show 
                 newpath
                } if
        } for %j=j1,j2

        } for %k=0,3


%**********************************************************************
/Vorz -1 def

k1 1 k2 {/k exch def %k=0,3
         k 0 eq {/j2 8 def /j0 08 def} if %line b09 to j09: C-N
         k 1 eq {/j2 6 def /j0 16 def} if %line c08 to i08: C-N
         k 2 eq {/j2 4 def /j0 24 def} if %line d07 to h07: C-N
         k 3 eq {/j2 2 def /j0 32 def} if %line e06 to h06: C-N

j1 1 j2 {/j exch def %j=j1,j2 %lines
         /ja j0 j 9 mul add def
         t2*rgb j LUTt*rgb ja get put
         c2*rgb j LUTc*rgb ja get put
         LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
         c2*rgb j get fakt2 mul Vorz mul
         t2*rgb j get fakt2 mul
         050 0 360 arc fill
         j 1 ge {c2*rgb  j 1 sub get fakt2 mul Vorz mul
                 t2*rgb  j 1 sub get fakt2 mul moveto
                 c2*rgb  j       get fakt2 mul Vorz mul
                 t2*rgb  j       get fakt2 mul lineto stroke
                } if
         j 8 eq {k 0 eq {%k=0
                         icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor
                         c2*rgb j get fakt2 mul Vorz mul
                         t2*rgb j get fakt2 mul moveto
                         c2*rgb 0 get fakt2 mul Vorz mul
                         t2*rgb 0 get fakt2 mul lineto stroke
                        } if %k=0
                 } if
        } for %j=j1,j2
        
        } for %k=0,3
%**********************************************************************
/Vorz -1 def
k1 1 k2 {/k exch def %k=0,3
         k 0 eq {/j2 8 def /j0 00 def} if %row b01 to b09: W-C
         k 1 eq {/j2 6 def /j0 10 def} if %row c02 to c08: W-C
         k 2 eq {/j2 4 def /j0 20 def} if %row d03 to d07: W-C
         k 3 eq {/j2 2 def /j0 30 def} if %row e04 to e06: W-C

j1 1 j2 {/j exch def %j=j1,j2 %rows
         /ja j0 j add def
         t2*rgb j LUTt*rgb ja get put
         c2*rgb j LUTc*rgb ja get put
         LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
         c2*rgb j get fakt2 mul Vorz mul
         t2*rgb j get fakt2 mul
         050 0 360 arc fill
         j 1 ge {c2*rgb  j 1 sub get fakt2 mul Vorz mul
                 t2*rgb  j 1 sub get fakt2 mul moveto
                 c2*rgb  j       get fakt2 mul Vorz mul
                 t2*rgb  j       get fakt2 mul lineto stroke
                } if
         j 8 eq {k 0 eq {%k=0
                         icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor
                         c2*rgb j get fakt2 mul Vorz mul
                         t2*rgb j get fakt2 mul moveto
                         c2*rgb 0 get fakt2 mul Vorz mul
                         t2*rgb 0 get fakt2 mul lineto stroke
                         c2*rgb j get fakt2 mul Vorz mul
                         t2*rgb j get fakt2 mul
                         070 0 360 arc stroke
                        } if %k=0
                 LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
                 newpath 250 /TimesBI-ISOL1 FS
                 /xadd0 [-400 -400 -400] def /yadd0 [500 500 500] def
                 c2*rgb  j get fakt2 mul Vorz mul xadd0 xchartl 12 sub get add
                 t2*rgb  j get fakt2 mul          yadd0 xchartl 12 sub get add
                 moveto
                 cname6 xchartl 12 sub 3 add get show Txx ibshow0
                 newpath
                } if
        } for %j=j1,j2
        
        } for %k=0,3

%**********************************************************************
} if %12<=xchartl  <=14

xchartl 1 eq xcolor 2 eq xcolor 3 eq or and {-200 0 translate} if %special shift for J-B TLS00a
xchartl 1 eq xcolor 4 eq xcolor 5 eq or and { 300 0 translate} if %special shift for J-B FRS06a
xchartl 1 eq xcolor 6 eq xcolor 7 eq or and {-200 0 translate} if %special shift for J-B TLS18a

%**********************************************************************
        } %xchart #3,7,11,15
%*********************************************************************************
        { %xchart =3,7,11,15

1 setgray        
%xchartl 3 eq {
-3400  4175 moveto
TBS (CIELAB) show
(\255Bunttonwinkel: ) showde ( hue angles: ) showea
%              } if

xchartl 11 le {
-3400 xchartl 7 ge {200 add} if 3900 moveto
TBIS (h) show
0 -50 rmoveto TBL (ab,d) show 0 50 rmoveto
TBS (=[) show
0 1 5 {/i exch def %i=0,5
       angle_olvG11i i get cvishow
       i 5 ne {(, ) show} if
      } for %i=0,5
(]) show

-3400 xchartl 7 ge {200 add} if 3625 moveto
TBIS (h) show
0 -50 rmoveto TBL (ab,dx) show 0 50 rmoveto
TBS (=[) show
0 1 5 {/i exch def %i=0,5
       H*olv i get cvishow
       i 5 ne {(, ) show} if
      } for %i=0,5
(]) show
} if %xchartl,<=11

olvrgb 1 eq {%olvrgb=1
-3400 xchartl 7 ge {200 add} if 3350 moveto
TBIS (h) show
0 -50 rmoveto TBL (ab,e) show 0 50 rmoveto
TBS (=[) show
0 1 5 {/i exch def %i=0,5
       angle_rgb i get cvishow
       i 5 ne {(, ) show} if
      } for %i=0,5
(]) show
           } if %olvrgb=1

1600 200 add 2900 moveto %xchartl 3 eq {200 sub} if 2900 moveto
TBIS (a*) show
TBL 0 -50 rmoveto
xchartl  0 ge xchartl  3 le and {(a) show} if
xchartl  4 ge xchartl  7 le and {() show} if
xchartl  8 ge xchartl 11 le and {() show} if
xchartl 12 ge xchartl 15 le and {(rgb*) show} if
TBL 0 50 rmoveto
TBS (=) show
xchartl 4 le {
              TBIS (C*) show
              TBL 0 -50 rmoveto (ab,a) show TBL 0 50 rmoveto
             }
             {
              TBIS (c*) show
              TBL 0 -50 rmoveto
              xchartl 4  ge xchartl  7 le and {() show} if
              xchartl 8  ge xchartl 11 le and {() show} if
              xchartl 12 ge xchartl 15 le and {(rgb*) show} if
              TBL 0 50 rmoveto
             } ifelse
TBIS ( cos h) show
0 -50 rmoveto TBL (ab) show 0 50 rmoveto
 

1600 200 add 2600 moveto %xchartl 3 eq {200 sub} if 2600 moveto
TBIS (b*) show
TBL 0 -50 rmoveto
xchartl  0 ge xchartl  3 le and {(a) show} if
xchartl  4 ge xchartl  7 le and {() show} if
xchartl  8 ge xchartl 11 le and {() show} if
xchartl 12 ge xchartl 15 le and {(rgb*) show} if
TBL 0 50 rmoveto
TBS (=) show
xchartl 4 le {
              TBIS (C*) show
              TBL 0 -50 rmoveto (ab,a) show TBL 0 50 rmoveto
             }
             {
              TBIS (c*) show
              TBL 0 -50 rmoveto
              xchartl 4  ge xchartl  7 le and {() show} if
              xchartl 8  ge xchartl 11 le and {() show} if
              xchartl 12 ge xchartl 15 le and {(rgb*) show} if
              TBL 0 50 rmoveto
             } ifelse
TBIS ( sin h) show
0 -50 rmoveto TBL (ab) show 0 50 rmoveto

-400 200 add 3800 moveto %xchartl 11 le {300 add} if 3500 moveto
TBIK (b*) show
TBS 0 -50 rmoveto
xchartl  0 ge xchartl  3 le and {(a) show} if
xchartl  4 ge xchartl  7 le and {() show} if
xchartl  8 ge xchartl 11 le and {() show} if
xchartl 12 ge xchartl 15 le and {(rgb*) show} if
TBS 0 50 rmoveto

1800 xchartl 3 le {700 add } if 1900 moveto
xchartl 4 ge {TBIK (relative ) show} if
TBK
(Buntheit ) showde
(chroma ) showea

2700 1650 moveto
TBIK (a*) show
TBS 0 -50 rmoveto
xchartl  0 ge xchartl  3 le and {(a) show} if
xchartl  4 ge xchartl  7 le and {() show} if
xchartl  8 ge xchartl 11 le and {() show} if
xchartl 12 ge xchartl 15 le and {(rgb*) show} if
TBS 0 50 rmoveto

          
%new shift in middle
0 1500 translate

%axis and scales
1 setgray
-3000 0 moveto 6300  0 rlineto stroke
0 -1880  moveto 0 3600  rlineto stroke
3300 100 sub 50 moveto 100 -50 rlineto
                      -100 -50 rlineto closepath fill
0 50 sub 1800 100 sub moveto 50  100 rlineto
                             50 -100 rlineto closepath fill
0 setgray
TS
/xt001 9 array def
/xt001 [(-2,0) () (-1,0) ( ) (  ) () () () () ]def %(  1,0) () (  2,0)] def
/yt001 5 array def
/yt001 [(-1,0 ) () ( ) ( ) (1,0)] def

/xt100 9 array def
/xt100 [(-200) () (-100) ( ) (  ) () (  100) () (  200)] def
/yt100 5 array def
/yt100 [(-100 ) () ( ) ( ) (100)] def

2 1 6 {/i exch def %i=2,6
        -3000   i 750   mul add  -50 moveto 0 100 rlineto stroke
        -3650   i 850   mul add -200   moveto
        xchartl 3 le {xt100} {xt001} ifelse i get show
       } for %i=2,6
      
0 1 4 {/i exch def %i=0,4
       -75 -1500 i 750 mul    add moveto 150 0 rlineto stroke
       100 -1650 i 800 mul    add moveto
       xchartl 3 le {yt100} {yt001} ifelse i get show
       } for %i=0,4
newpath

%**********************************************************************

/HUE03_15 0 def

HUE03_15 1 eq {%HUE03_15=1

%For all xchartl=3,7,11,15
%Variable hue series O00Y-O83Y, Y00L-Y83L, L00C-L83C,
%                    C00V-C83V, C00V-C83V, C00V-C83V-O00Y
250 /TimesBI-ISOL1 FS
/fcolor1 1.10 def
/fcolor2 1.20 def

/j729 729 def
0 1 5 {/xtonj exch def %xton=0,5

0 1 7 {/j exch def %i=0,08
       xtonj 0 eq {/j10 648 j729 sub j 09 mul add 10 mul def} if %series O00Y-O83Y, -09
       xtonj 1 eq {/j10 720 j729 sub j 81 mul sub 10 mul def} if %series Y00L-Y83L, -81
       xtonj 2 eq {/j10 072 j729 sub j        add 10 mul def} if %series L00C-L83C, +01
       xtonj 3 eq {/j10 080 j729 sub j 09 mul sub 10 mul def} if %series C00V-C83V, -09
       xtonj 4 eq {/j10 008 j729 sub j 81 mul add 10 mul def} if %series C00V-C83V, -81
       xtonj 5 eq {/j10 656 j729 sub j        sub 10 mul def} if %series C00V-C83V, +01
       LUTL* j LUT j10 0 add get  100 div put 
       LUTA* j LUT j10 1 add get  100 div put
       LUTB* j LUT j10 2 add get  100 div put
       LUTr* j LUT j10 3 add get 1000 div put
       LUTg* j LUT j10 4 add get 1000 div put
       LUTb* j LUT j10 5 add get 1000 div put
       C*ab  j LUTA* j get dup mul
               LUTB* j get dup mul add 0.000001 add sqrt put
       L*    j LUTL* j get put
       LUTc*rgb j 1000 put
      } for %j=0,08

%**********************************************************************

/j0 0 def /j1 0 def /j2 8 def /k 0 def
/fakt  30 def
/fakt1  15 def
/fakt2 1500 def

 0 1 7  {/j exch def %j=0,8 %lines
         /ja j0 j add def
         c1*rgb j LUTc*rgb ja get put
         C*ab j LUTA* ja get dup mul
                LUTB* ja get dup mul add sqrt put
         /angleWO LUTB* ja get LUTA* ja get 0.0001 add atan def
         LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
         xchartl 3 le {%xchart=3
                       newpath
                       C*ab j get fakt1 mul angleWO cos mul
                       C*ab j get fakt1 mul angleWO sin mul moveto
                       C*ab j get fakt1 mul angleWO cos mul
                       C*ab j get fakt1 mul angleWO sin mul
                       050 0 360 arc fill
                      }
                      {%xchart>=7
                       newpath
                       c1*rgb j get fakt2 mul angleWO cos mul
                       c1*rgb j get fakt2 mul angleWO sin mul moveto
                       c1*rgb j get fakt2 mul angleWO cos mul
                       c1*rgb j get fakt2 mul angleWO sin mul
                       050 0 360 arc fill
                      } ifelse %xchart=3,>=7
        } for %j=0,8

} for %xton=0,5

%END for all xchartl=3,7,11,15

%**********************************************************************

%For all xchartl=3,7,11,15
%Constant hue series
250 /TimesBI-ISOL1 FS
/fcolor1 1.10 def
/fcolor2 1.20 def

xcolor 1 le {/j729 729 def}{/j729 729 def} ifelse
0 1 2 {/xtonj exch def %xton=0,2

       xtonj 0 eq {/j1 729 j729 sub         10 mul def} if %series O-C
       xtonj 1 eq {/j1 729 j729 sub 081 add 10 mul def} if %series Y-V
       xtonj 2 eq {/j1 729 j729 sub 162 add 10 mul def} if %series L-M

       0 1 080 {/i exch def %i=0,080
                /i10 j1 i 10 mul add def
                LUTL* i LUT i10 0 add get  100 div put 
                LUTA* i LUT i10 1 add get  100 div put
                LUTB* i LUT i10 2 add get  100 div put
                LUTr* i LUT i10 3 add get 1000 div put
                LUTg* i LUT i10 4 add get 1000 div put
                LUTb* i LUT i10 5 add get 1000 div put
                C*ab  i LUTA* i get dup mul
                        LUTB* i get dup mul add 0.000001 add sqrt put
                L*    i LUTL* i get put
               } for %i=0,080
        
          %       801 737 809 729  882 818 890 810  963 899 971 891
          %       j01 b09 j09 b01  j10 b18 j18 b10  j19 b27 j27 b19
          %       O   C   N1  W1   Y   V   N2  W2   L   M   N3  W3

          xtonj 0 eq {/index [801 737 809 729] def} if %O,C,N1,W1
          xtonj 1 eq {/index [882 818 890 810] def} if %Y,V,N2,W2
          xtonj 2 eq {/index [963 899 971 891] def} if %L,M,N1,W2

          0 1 3 {/i exch def %i=0,3 %standard colours at the end
                 /i10 index i get j729 sub 10 mul def
                 /i81 81 i add def
                 LUTL* i81 LUT i10 0 add get 100 div put
                 LUTA* i81 LUT i10 1 add get 100 div put
                 LUTB* i81 LUT i10 2 add get 100 div put
                 LUTr* i81 LUT i10 3 add get 1000 div put
                 LUTg* i81 LUT i10 4 add get 1000 div put
                 LUTb* i81 LUT i10 5 add get 1000 div put
                 C*ab  i81 LUTA* i81 get dup mul
                           LUTB* i81 get dup mul add 0.000001 add sqrt put
                 L*    i81 LUTL* i81 get put
                } for %i=0,3

          /L*WN LUTL* 84 get LUTL* 83 get sub def

          0 1 084 {/i exch def %i=0,084
                   LUTl*  i LUTL* i get LUTL* 83 get sub 
                            L*WN 0.000001 add div put
                   LUTc1* i C*ab i get C*ab 81 get 0.000001 add div put
                   LUTc2* i C*ab i get C*ab 82 get 0.000001 add div put
                   LUTt1* i LUTl* i get LUTc1* i get 
                            L* 81 get L* 83 get sub L*WN
                            0.000001 add div 0.5 sub mul sub put
                   LUTt2* i LUTl* i get LUTc2* i get
                            L* 82 get L* 83 get sub L*WN
                            0.000001 add div 0.5 sub mul sub put
                   LUTr* i get 0 lt {LUTr* i 0 put} if
                   LUTg* i get 0 lt {LUTg* i 0 put} if
                   LUTb* i get 0 lt {LUTb* i 0 put} if
                   LUTr* i get 1 gt {LUTr* i 1 put} if
                   LUTg* i get 1 gt {LUTg* i 1 put} if
                   LUTb* i get 1 gt {LUTb* i 1 put} if
                   %maximum
                   /max LUTr* i get def %rgb brilliantness
                   LUTg* i get max gt {/max LUTg* i get def} if
                   LUTb* i get max gt {/max LUTb* i get def} if
                   %minimum
                   /min LUTr* i get def %rgb whiteness
                   LUTg* i get min lt {/min LUTg* i get def} if
                   LUTb* i get min lt {/min LUTb* i get def} if         
                   LUTc*rgb i max min sub put %rgb chroma
                   LUTt*rgb i min max min sub 0.5 mul add put %rgb triangle lightness
                  } for %i=0,084

%**********************************************************************

/j0 0 def /j1 0 def /j2 8 def /k 0 def
/fakt  30 def
/fakt1  15 def
/fakt2 1500 def

 0 1 8  {/j exch def %j=0,8 %lines
         /ja j0 j 9 mul add def
         c1*rgb j LUTc*rgb ja get put
         C*ab j LUTA* ja get dup mul
                LUTB* ja get dup mul add sqrt put
         /angleWO LUTB* ja get LUTA* ja get 0.0001 add atan def
         LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
         xchartl 3 le {%xchart=3
                       C*ab j get fakt1 mul angleWO cos mul
                       C*ab j get fakt1 mul angleWO sin mul
                       050 0 360 arc fill
                       j j2 eq {%j=j2
                                0 0 0 setrgbcolor
                                C*ab j get fakt1 mul angleWO cos mul
                                C*ab j get fakt1 mul angleWO sin mul
                                065 0 360 arc stroke
                                LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
                                /xadd1 [ 100 -500 -800 -800 -200  100] def
                                /yadd1 [-100  100 -200 -200 -200 -200] def
                                C*ab j get fakt1 mul fcolor2 mul angleWO cos mul 
                                xadd1 xtonj get add
                                C*ab j get fakt1 mul fcolor2 mul angleWO sin mul
                                yadd1 xtonj get add moveto
                                cname6 xtonj get show Txx ibshow0
                                icolor 1 eq {1 0 0 setrgbcolor
                                             0 0 moveto
                                             C*ab j get fakt1 mul angleWO cos mul
                                             C*ab j get fakt1 mul angleWO sin mul
                                             lineto stroke
                                            } if
                                } if %j=j2
                      }
                      {%xchart>=7
                       c1*rgb j get fakt2 mul angleWO cos mul
                       c1*rgb j get fakt2 mul angleWO sin mul
                       050 0 360 arc fill
                       j j2 eq {%j=j2
                                0 0 0 setrgbcolor
                                c1*rgb j get fakt2 mul angleWO cos mul
                                c1*rgb j get fakt2 mul angleWO sin mul
                                065 0 360 arc stroke
                                LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
                                /xadd1 [ 100 -500 -800 -800 -200  100] def
                                /yadd1 [-100  100 -200 -200 -100 -200] def
                                c1*rgb j get fakt2 mul fcolor2 mul angleWO cos mul
                                xadd1 xtonj get add
                                c1*rgb j get fakt2 mul fcolor2 mul angleWO sin mul
                                yadd1 xtonj get add moveto
                                cname6 xtonj get show Txx ibshow0
                                icolor 1 eq {1 0 0 setrgbcolor %icolor=1
                                             0 0 moveto
                                             c1*rgb j get fakt2 mul angleWO cos mul
                                             c1*rgb j get fakt2 mul angleWO sin mul
                                             lineto stroke
                                            } if %icolor=1
                               } if %j=j2
                      } ifelse %xchart=3,>=7
         LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
         j 1 ge {xchartl 3 eq {olvrgb 0 eq {C*ab j 1 sub get fakt1 mul angleWO cos mul
                                            C*ab j 1 sub get fakt1 mul angleWO sin mul moveto
                                            C*ab j       get fakt1 mul angleWO cos mul
                                            C*ab j       get fakt1 mul angleWO sin mul lineto stroke
                                           } if
                              }
                              {c1*rgb  j 1 sub get fakt2 mul angleWO cos mul
                               c1*rgb  j 1 sub get fakt2 mul angleWO sin mul moveto
                               c1*rgb  j       get fakt2 mul angleWO cos mul
                               c1*rgb  j       get fakt2 mul angleWO sin mul lineto stroke
                              } ifelse
                } if
        } for %j=0,8

%**********************************************************************

 0 1 8  {/j exch def %j=0,8 %lines
         /ja j0 j add def
         c2*rgb j LUTc*rgb ja get put
         C*ab j LUTA* ja get dup mul
                LUTB* ja get dup mul add sqrt put
         /angleWO LUTB* ja get LUTA* ja get 0.0001 add atan def
         LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
         xchartl 3 le {%xchart=3
                       C*ab j get fakt1 mul angleWO cos mul
                       C*ab j get fakt1 mul angleWO sin mul
                       050 0 360 arc fill
                       j j2 eq {%j=j2
                                0 0 0 setrgbcolor
                                C*ab j get fakt1 mul angleWO cos mul
                                C*ab j get fakt1 mul angleWO sin mul
                                065 0 360 arc stroke
                                LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
                                /xadd1 [ 100 -500 -800 -800 -200  100] def
                                /yadd1 [-100  100 -200 -200 -100 -200] def
                                C*ab j get fakt1 mul fcolor2 mul angleWO cos mul
                                xadd1 xtonj 3 add get add
                                C*ab j get fakt1 mul fcolor2 mul angleWO sin mul
                                yadd1 xtonj 3 add get add moveto
                                cname6 xtonj 3 add get show Txx ibshow0
                                icolor 1 eq {1 0 0 setrgbcolor
                                             0 0 moveto
                                             C*ab j get fakt1 mul angleWO cos mul
                                             C*ab j get fakt1 mul angleWO sin mul
                                             lineto stroke
                                            } if
                               } if %j=j2
                      }
                      {%xchart=7
                       c2*rgb j get fakt2 mul angleWO cos mul
                       c2*rgb j get fakt2 mul angleWO sin mul
                       050 0 360 arc fill
                       j j2 eq {%j=j2
                                0 0 0 setrgbcolor
                                c2*rgb j get fakt2 mul angleWO cos mul
                                c2*rgb j get fakt2 mul angleWO sin mul
                                065 0 360 arc stroke
                                LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
                                /xadd1 [ 100 -500 -800 -800 -200  100] def
                                /yadd1 [-100  100 -200 -200 -100 -200] def
                                c2*rgb j get fakt2 mul fcolor2 mul angleWO cos mul
                                xadd1 xtonj 3 add get add
                                c2*rgb j get fakt2 mul fcolor2 mul angleWO sin mul
                                yadd1 xtonj 3 add get add moveto
                                cname6 xtonj 3 add get show Txx ibshow0
                                icolor 1 eq {1 0 0 setrgbcolor %icolor=1
                                             0 0 moveto
                                             c2*rgb j get fakt2 mul angleWO cos mul
                                             c2*rgb j get fakt2 mul angleWO sin mul
                                             lineto stroke
                                            } if %icolor=1
                               } if %j=j2
                      } ifelse %xchart=3, %xchart>=7
         LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
         j 1 ge {xchartl 3 le {C*ab j 1 sub get fakt1 mul angleWO cos mul
                               C*ab j 1 sub get fakt1 mul angleWO sin mul moveto
                               C*ab j       get fakt1 mul angleWO cos mul
                               C*ab j       get fakt1 mul angleWO sin mul lineto stroke
                              }
                              {c2*rgb  j 1 sub get fakt2 mul angleWO cos mul
                               c2*rgb  j 1 sub get fakt2 mul angleWO sin mul moveto
                               c2*rgb  j       get fakt2 mul angleWO cos mul
                               c2*rgb  j       get fakt2 mul angleWO sin mul lineto stroke
                              } ifelse
                } if
        } for %j=00,08

%xtonj=0 %series O-C
%xtonj=1 %series Y-V
%xtonj=2 %series L-M

} for %xton=0,2

%END for all xchartl=3,7,11,15

%**********************************************************************

xchartl 3 eq {%xchartl=3 only

%BEG Hexagon
%       801 737 809 729  882 818 890 810  963 899 971 891
%       j01 b09 j09 b01  j10 b18 j18 b10  j19 b27 j27 b19
%       O   C   N1  W1   Y   V   N2  W2   L   M   N3  W3

/fakt1  15 def
/indexX 7 array def
/indexX [801 882 963 737 818 899 801] def
/LUTL*X 7 array def
/LUTA*X 7 array def
/LUTB*X 7 array def

0 setgray
/fcolor1 1.10 def
/fcolor2 1.20 def
250 /TimesBI-ISOL1 FS

/j729 729 def
0 1 6 {/iX exch def %iX=0,6 %hexagon standard colours at the end
       /i10 indexX iX get j729 sub 10 mul def
                    LUTL*X iX LUT i10 0 add get 100 div put
                    LUTA*X iX LUT i10 1 add get 100 div put
                    LUTB*X iX LUT i10 2 add get 100 div put
                    LUTr* iX LUT i10 3 add get 1000 div put
                    LUTg* iX LUT i10 4 add get 1000 div put
                    LUTb* iX LUT i10 5 add get 1000 div put

       iX 5 le {0 0 0 setrgbcolor
                0 0 moveto
                LUTA*X iX get fakt1 mul fcolor1 mul cf1 div
                LUTB*X iX get fakt1 mul fcolor1 mul cf1 div lineto stroke
                /xadd1 [ 100 -500 -800 -800 -200  100] def
                /yadd1 [-100  100 -200 -200 -300 -200] def
                LUTA*X iX get fakt1 mul fcolor2 mul cf1 div xadd1 iX get add
                LUTB*X iX get fakt1 mul fcolor2 mul cf1 div yadd1 iX get add moveto
                xcolor 2 ge {%xcolor>=2
                             0 0 0 setrgbcolor
                             cname_olv00 iX get show
                            } if %xcolor>=2
               } if
       iX 5 le icolor 1 eq and {xcolor 2 ge {0 0 0}{1 0 0} ifelse setrgbcolor
                                0 0 moveto
                                LUTA*X iX get fakt1 mul
                                LUTB*X iX get fakt1 mul lineto stroke
                               } if
                       
       iX 1 ge {0 0 0 setrgbcolor
                LUTA*X iX 1 sub get fakt1 mul cf1 div
                LUTB*X iX 1 sub get fakt1 mul cf1 div moveto
                LUTA*X iX get fakt1 mul cf1 div
                LUTB*X iX get fakt1 mul cf1 div lineto stroke
               } if
       iX 1 ge icolor 1 eq and {1 0 0 setrgbcolor
                                LUTA*X iX 1 sub get fakt1 mul
                                LUTB*X iX 1 sub get fakt1 mul moveto
                                LUTA*X iX get fakt1 mul
                                LUTB*X iX get fakt1 mul lineto stroke
                               } if
      } for  %iX=0,6 %hexagon
      
} if %xchartl=3

%**********************************************************************

xchartl 7 ge {%xchart>=7

%circle
icolor 0 eq {0 0 0 setrgbcolor} {1 0 0 setrgbcolor} ifelse
0 1500 moveto
newpath
0 0 1500  0 360 arc stroke

%BEG Hexagon
%       801 737 809 729  882 818 890 810  963 899 971 891
%       j01 b09 j09 b01  j10 b18 j18 b10  j19 b27 j27 b19
%       O   C   N1  W1   Y   V   N2  W2   L   M   N3  W3

/fakt1  15 def
/indexX 7 array def
/indexX [801 882 963 737 818 899 801] def
/LUTL*X 7 array def
/LUTA*X 7 array def
/LUTB*X 7 array def

0 setgray
/fcolor1 1.10 def
/fcolor2 1.20 def
/c1000 1 fakt2 mul def
250 /TimesBI-ISOL1 FS

/j729 729 def
0 1 6 {/iX exch def %iX=0,5 %hexagon standard colours at the end
       /i10 indexX iX get j729 sub 10 mul def
                    
       LUTL*X iX LUT i10 0 add get 100 div put
       LUTA*X iX LUT i10 1 add get 100 div put
       LUTB*X iX LUT i10 2 add get 100 div put
       LUTr* iX LUT i10 3 add get 1000 div put
       LUTg* iX LUT i10 4 add get 1000 div put
       LUTb* iX LUT i10 5 add get 1000 div put
       /angleOLV LUTB*X iX get LUTA*X iX get 0.0001 add atan def

       iX 5 le {0 0 0 setrgbcolor
                0 0 moveto
                c1000 angleOLV cos mul fcolor2 mul 
                c1000 angleOLV sin mul fcolor2 mul 
                lineto stroke
                /xadd1 [ 100 -500 -800 -800 -200  100] def
                /yadd1 [-100  100 -200 -200 -100 -200] def
                c1000 angleOLV cos mul fcolor2 mul xadd1 iX get add
                c1000 angleOLV sin mul fcolor2 mul yadd1 iX get add moveto
                xcolor 2 ge {%xcolor>=2
                             0 0 0 setrgbcolor
                             cname_olv00 iX get show
                            } if %xcolor>=2
               } if
       iX 5 le icolor 1 eq and {xcolor 2 ge {0 0 0}{1 0 0} ifelse setrgbcolor
                                0 0 moveto
                                c1000 angleOLV cos mul fcolor2 mul
                                c1000 angleOLV sin mul fcolor2 mul lineto stroke
                               } if
      } for  %iX=0,6 %hexagon

} if %xchartl>=7

} if %HUE03_15=1

%**********************************************************************
          
          0 1500 neg translate
        } ifelse %xchart #3,7,11,15 or =3,7,11,15

grestore

2600 neg 0300 neg translate

%special space for 'xm03'PROZ0.COM 2x before/after xchartl
%  xchartl    0 eq {  100 neg 13000 neg translate} if
%  xchartl    1 eq { 6100 neg 13000 neg translate} if
%  xchartl    2 eq {  100 neg 08750 neg translate} if
%  xchartl    3 eq { 6100 neg 08750 neg translate} if

%  xchartl    4 eq {  100 neg  4500 neg translate} if
%  xchartl    5 eq { 6100 neg  4500 neg translate} if
%  xchartl    6 eq {  100 neg  0250 neg translate} if
%  xchartl    7 eq { 6100 neg  0250 neg translate} if

%  xchartl    8 eq {13500 neg 13000 neg translate} if
%  xchartl    9 eq {19500 neg 13000 neg translate} if
%  xchartl   10 eq {13500 neg 08750 neg translate} if
%  xchartl   11 eq {19500 neg 08750 neg translate} if

%  xchartl   12 eq {13500 neg  4500 neg translate} if
%  xchartl   13 eq {19500 neg  4500 neg translate} if
%  xchartl   14 eq {13500 neg  0250 neg translate} if
%  xchartl   15 eq {19500 neg  0250 neg translate} if

%} for % xchartl=0,15

showpage
grestore

%} for %xchart=0,15

grestore

} for %xcolor=0,1

%%Trailer