%!PS-Adobe-3.0 EPSF-3.0 SS390-7N %%BoundingBox: 70 82 785 580 %START PDFDE011.EPS /pdfmark07 where {pop} {userdict /pdfmark07 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: http://130.149.60.45/~farbmetrik/SS39/) /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 pdfmark07 [ /View [ /FitB ] /DOCVIEW pdfmark07 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def % !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 (9 step equidistant colour series, ORS18aS, rgb->rgb*d, adapted) def /FileDatade (9-stufige gleichabst\344ndige Farbreihen, ORS18aS, rgb->rgb*d, adaptiert) def /LUT_LAB0 [%BEG LUT_LAB0 % SS390-7N, Test chart with 40x27=1080 colours; digital equidistant 9 or 16 step colour scales; % Colour data in column (A-n): rgb (A-j, n), 000n (k), w (l), nnn0 (m), % 6,0mm x 6,0mm, 270mm x 187mm, page 4/27, ORS18a % 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 % A B C D E F G H I J K L M N O P Q R S T U V W X Y Z a b c d e f g h i j k l m n % 100 x (LAB*) 1000 x (r g b c m y 0) %nr. pos 09540 00000 00000 1000 1000 1000 0000 0000 0000 0000 %0729 b01 %WX1 09080 -0379 -0562 0875 1000 1000 0125 0000 0000 0000 %0730 b02 08620 -0758 -1125 0750 1000 1000 0250 0000 0000 0000 %0731 b03 08160 -1137 -1687 0625 1000 1000 0375 0000 0000 0000 %0732 b04 07701 -1517 -2250 0500 1000 1000 0500 0000 0000 0000 %0733 b05 07241 -1896 -2813 0375 1000 1000 0625 0000 0000 0000 %0734 b06 06781 -2275 -3376 0250 1000 1000 0750 0000 0000 0000 %0735 b07 06321 -2655 -3939 0125 1000 1000 0875 0000 0000 0000 %0736 b08 05861 -3034 -4501 0000 1000 1000 1000 0000 0000 0000 %0737 b09 %CX 08947 00816 00630 1000 0875 0875 0000 0125 0125 0000 %0738 c01 08573 00000 00000 0875 0875 0875 0125 0125 0125 0000 %0739 c02 08113 -0379 -0562 0750 0875 0875 0250 0125 0125 0000 %0740 c03 07653 -0758 -1125 0625 0875 0875 0375 0125 0125 0000 %0741 c04 07193 -1138 -1688 0500 0875 0875 0500 0125 0125 0000 %0742 c05 06734 -1517 -2251 0375 0875 0875 0625 0125 0125 0000 %0743 c06 06274 -1896 -2814 0250 0875 0875 0750 0125 0125 0000 %0744 c07 05814 -2276 -3376 0125 0875 0875 0875 0125 0125 0000 %0745 c08 05354 -2655 -3939 0000 0875 0875 1000 0125 0125 0000 %0746 c09 08353 01634 01262 1000 0750 0750 0000 0250 0250 0000 %0747 d01 07980 00817 00631 0875 0750 0750 0125 0250 0250 0000 %0748 d02 07606 00000 00000 0750 0750 0750 0250 0250 0250 0000 %0749 d03 07146 -0379 -0562 0625 0750 0750 0375 0250 0250 0000 %0750 d04 06686 -0758 -1125 0500 0750 0750 0500 0250 0250 0000 %0751 d05 06226 -1138 -1688 0375 0750 0750 0625 0250 0250 0000 %0752 d06 05766 -1517 -2251 0250 0750 0750 0750 0250 0250 0000 %0753 d07 05306 -1896 -2814 0125 0750 0750 0875 0250 0250 0000 %0754 d08 04847 -2275 -3376 0000 0750 0750 1000 0250 0250 0000 %0755 d09 07760 02451 01893 1000 0625 0625 0000 0375 0375 0000 %0756 e01 07386 01634 01262 0875 0625 0625 0125 0375 0375 0000 %0757 e02 07012 00817 00631 0750 0625 0625 0250 0375 0375 0000 %0758 e03 06638 00000 00000 0625 0625 0625 0375 0375 0375 0000 %0759 e04 06178 -0379 -0562 0500 0625 0625 0500 0375 0375 0000 %0760 e05 05718 -0758 -1125 0375 0625 0625 0625 0375 0375 0000 %0761 e06 05258 -1138 -1688 0250 0625 0625 0750 0375 0375 0000 %0762 e07 04799 -1517 -2251 0125 0625 0625 0875 0375 0375 0000 %0763 e08 04339 -1896 -2813 0000 0625 0625 1000 0375 0375 0000 %0764 e09 07167 03268 02525 1000 0500 0500 0000 0500 0500 0000 %0765 f01 06793 02451 01894 0875 0500 0500 0125 0500 0500 0000 %0766 f02 06419 01634 01262 0750 0500 0500 0250 0500 0500 0000 %0767 f03 06045 00817 00631 0625 0500 0500 0375 0500 0500 0000 %0768 f04 05671 00000 00000 0500 0500 0500 0500 0500 0500 0000 %0769 f05 05211 -0379 -0562 0375 0500 0500 0625 0500 0500 0000 %0770 f06 04751 -0758 -1125 0250 0500 0500 0750 0500 0500 0000 %0771 f07 04291 -1138 -1688 0125 0500 0500 0875 0500 0500 0000 %0772 f08 03831 -1517 -2250 0000 0500 0500 1000 0500 0500 0000 %0773 f09 06573 04085 03156 1000 0375 0375 0000 0625 0625 0000 %0774 g01 06200 03269 02525 0875 0375 0375 0125 0625 0625 0000 %0775 g02 05825 02451 01894 0750 0375 0375 0250 0625 0625 0000 %0776 g03 05451 01634 01262 0625 0375 0375 0375 0625 0625 0000 %0777 g04 05077 00817 00631 0500 0375 0375 0500 0625 0625 0000 %0778 g05 04703 00000 00000 0375 0375 0375 0625 0625 0625 0000 %0779 g06 04243 -0379 -0562 0250 0375 0375 0750 0625 0625 0000 %0780 g07 03783 -0758 -1125 0125 0375 0375 0875 0625 0625 0000 %0781 g08 03324 -1137 -1687 0000 0375 0375 1000 0625 0625 0000 %0782 g09 05980 04903 03788 1000 0250 0250 0000 0750 0750 0000 %0783 h01 05606 04086 03157 0875 0250 0250 0125 0750 0750 0000 %0784 h02 05232 03269 02525 0750 0250 0250 0250 0750 0750 0000 %0785 h03 04858 02451 01894 0625 0250 0250 0375 0750 0750 0000 %0786 h04 04484 01634 01262 0500 0250 0250 0500 0750 0750 0000 %0787 h05 04110 00817 00631 0375 0250 0250 0625 0750 0750 0000 %0788 h06 03736 00000 00000 0250 0250 0250 0750 0750 0750 0000 %0789 h07 03276 -0379 -0562 0125 0250 0250 0875 0750 0750 0000 %0790 h08 02816 -0758 -1125 0000 0250 0250 1000 0750 0750 0000 %0791 h09 05387 05720 04419 1000 0125 0125 0000 0875 0875 0000 %0792 i01 05013 04903 03788 0875 0125 0125 0125 0875 0875 0000 %0793 i02 04639 04086 03157 0750 0125 0125 0250 0875 0875 0000 %0794 i03 04265 03269 02525 0625 0125 0125 0375 0875 0875 0000 %0795 i04 03890 02451 01894 0500 0125 0125 0500 0875 0875 0000 %0796 i05 03516 01634 01262 0375 0125 0125 0625 0875 0875 0000 %0797 i06 03142 00817 00631 0250 0125 0125 0750 0875 0875 0000 %0798 i07 02768 00000 00000 0125 0125 0125 0875 0875 0875 0000 %0799 i08 02308 -0379 -0562 0000 0125 0125 1000 0875 0875 0000 %0800 i09 04794 06537 05050 1000 0000 0000 0000 1000 1000 0000 %0801 j01 %RX 04420 05720 04419 0875 0000 0000 0125 1000 1000 0000 %0802 j02 04046 04903 03788 0750 0000 0000 0250 1000 1000 0000 %0803 j03 03672 04085 03156 0625 0000 0000 0375 1000 1000 0000 %0804 j04 03297 03268 02525 0500 0000 0000 0500 1000 1000 0000 %0805 j05 02923 02451 01893 0375 0000 0000 0625 1000 1000 0000 %0806 j06 02549 01634 01262 0250 0000 0000 0750 1000 1000 0000 %0807 j07 02175 00816 00630 0125 0000 0000 0875 1000 1000 0000 %0808 j08 01802 00000 00000 0000 0000 0000 1000 1000 1000 0000 %0809 j09 %NX1 09540 00000 00000 1000 1000 1000 0000 0000 0000 0000 %0810 b10 %WX2 08669 00388 -0554 0875 0875 1000 0125 0125 0000 0000 %0811 b11 07798 00777 -1109 0750 0750 1000 0250 0250 0000 0000 %0812 b12 06927 01165 -1664 0625 0625 1000 0375 0375 0000 0000 %0813 b13 06056 01554 -2220 0500 0500 1000 0500 0500 0000 0000 %0814 b14 05185 01943 -2775 0375 0375 1000 0625 0625 0000 0000 %0815 b15 04314 02332 -3330 0250 0250 1000 0750 0750 0000 0000 %0816 b16 03443 02720 -3885 0125 0125 1000 0875 0875 0000 0000 %0817 b17 02572 03109 -4440 0000 0000 1000 1000 1000 0000 0000 %0818 b18 %BX 09477 -0128 01145 1000 1000 0875 0000 0000 0125 0000 %0819 c10 08573 00000 00000 0875 0875 0875 0125 0125 0125 0000 %0820 c11 07702 00388 -0555 0750 0750 0875 0250 0250 0125 0000 %0821 c12 06831 00777 -1110 0625 0625 0875 0375 0375 0125 0000 %0822 c13 05960 01166 -1665 0500 0500 0875 0500 0500 0125 0000 %0823 c14 05089 01554 -2220 0375 0375 0875 0625 0625 0125 0000 %0824 c15 04217 01943 -2775 0250 0250 0875 0750 0750 0125 0000 %0825 c16 03346 02332 -3330 0125 0125 0875 0875 0875 0125 0000 %0826 c17 02476 02720 -3885 0000 0000 0875 1000 1000 0125 0000 %0827 c18 09414 -0256 02292 1000 1000 0750 0000 0000 0250 0000 %0828 d10 08510 -0128 01146 0875 0875 0750 0125 0125 0250 0000 %0829 d11 07606 00000 00000 0750 0750 0750 0250 0250 0250 0000 %0830 d12 06734 00388 -0555 0625 0625 0750 0375 0375 0250 0000 %0831 d13 05863 00777 -1110 0500 0500 0750 0500 0500 0250 0000 %0832 d14 04992 01166 -1665 0375 0375 0750 0625 0625 0250 0000 %0833 d15 04121 01554 -2220 0250 0250 0750 0750 0750 0250 0000 %0834 d16 03250 01943 -2775 0125 0125 0750 0875 0875 0250 0000 %0835 d17 02379 02332 -3330 0000 0000 0750 1000 1000 0250 0000 %0836 d18 09351 -0384 03439 1000 1000 0625 0000 0000 0375 0000 %0837 e10 08447 -0256 02293 0875 0875 0625 0125 0125 0375 0000 %0838 e11 07543 -0128 01146 0750 0750 0625 0250 0250 0375 0000 %0839 e12 06638 00000 00000 0625 0625 0625 0375 0375 0375 0000 %0840 e13 05767 00388 -0555 0500 0500 0625 0500 0500 0375 0000 %0841 e14 04896 00777 -1110 0375 0375 0625 0625 0625 0375 0000 %0842 e15 04025 01166 -1665 0250 0250 0625 0750 0750 0375 0000 %0843 e16 03154 01554 -2220 0125 0125 0625 0875 0875 0375 0000 %0844 e17 02283 01943 -2775 0000 0000 0625 1000 1000 0375 0000 %0845 e18 09288 -0513 04586 1000 1000 0500 0000 0000 0500 0000 %0846 f10 08384 -0385 03440 0875 0875 0500 0125 0125 0500 0000 %0847 f11 07480 -0256 02293 0750 0750 0500 0250 0250 0500 0000 %0848 f12 06575 -0128 01146 0625 0625 0500 0375 0375 0500 0000 %0849 f13 05671 00000 00000 0500 0500 0500 0500 0500 0500 0000 %0850 f14 04799 00388 -0555 0375 0375 0500 0625 0625 0500 0000 %0851 f15 03928 00777 -1110 0250 0250 0500 0750 0750 0500 0000 %0852 f16 03057 01166 -1665 0125 0125 0500 0875 0875 0500 0000 %0853 f17 02187 01554 -2220 0000 0000 0500 1000 1000 0500 0000 %0854 f18 09225 -0641 05733 1000 1000 0375 0000 0000 0625 0000 %0855 g10 08321 -0513 04587 0875 0875 0375 0125 0125 0625 0000 %0856 g11 07417 -0385 03440 0750 0750 0375 0250 0250 0625 0000 %0857 g12 06512 -0256 02293 0625 0625 0375 0375 0375 0625 0000 %0858 g13 05608 -0128 01146 0500 0500 0375 0500 0500 0625 0000 %0859 g14 04703 00000 00000 0375 0375 0375 0625 0625 0625 0000 %0860 g15 03832 00388 -0555 0250 0250 0375 0750 0750 0625 0000 %0861 g16 02961 00777 -1110 0125 0125 0375 0875 0875 0625 0000 %0862 g17 02090 01165 -1664 0000 0000 0375 1000 1000 0625 0000 %0863 g18 09162 -0769 06880 1000 1000 0250 0000 0000 0750 0000 %0864 h10 08258 -0641 05734 0875 0875 0250 0125 0125 0750 0000 %0865 h11 07354 -0513 04587 0750 0750 0250 0250 0250 0750 0000 %0866 h12 06449 -0385 03440 0625 0625 0250 0375 0375 0750 0000 %0867 h13 05545 -0256 02293 0500 0500 0250 0500 0500 0750 0000 %0868 h14 04640 -0128 01146 0375 0375 0250 0625 0625 0750 0000 %0869 h15 03736 00000 00000 0250 0250 0250 0750 0750 0750 0000 %0870 h16 02864 00388 -0555 0125 0125 0250 0875 0875 0750 0000 %0871 h17 01994 00777 -1109 0000 0000 0250 1000 1000 0750 0000 %0872 h18 09099 -0898 08027 1000 1000 0125 0000 0000 0875 0000 %0873 i10 08195 -0770 06881 0875 0875 0125 0125 0125 0875 0000 %0874 i11 07290 -0641 05734 0750 0750 0125 0250 0250 0875 0000 %0875 i12 06386 -0513 04587 0625 0625 0125 0375 0375 0875 0000 %0876 i13 05482 -0385 03440 0500 0500 0125 0500 0500 0875 0000 %0877 i14 04577 -0256 02293 0375 0375 0125 0625 0625 0875 0000 %0878 i15 03673 -0128 01146 0250 0250 0125 0750 0750 0875 0000 %0879 i16 02768 00000 00000 0125 0125 0125 0875 0875 0875 0000 %0880 i17 01898 00388 -0554 0000 0000 0125 1000 1000 0875 0000 %0881 i18 09036 -1026 09173 1000 1000 0000 0000 0000 1000 0000 %0882 j10 %YX 08132 -0898 08027 0875 0875 0000 0125 0125 1000 0000 %0883 j11 07228 -0769 06880 0750 0750 0000 0250 0250 1000 0000 %0884 j12 06323 -0641 05733 0625 0625 0000 0375 0375 1000 0000 %0885 j13 05419 -0513 04586 0500 0500 0000 0500 0500 1000 0000 %0886 j14 04514 -0384 03439 0375 0375 0000 0625 0625 1000 0000 %0887 j15 03610 -0256 02292 0250 0250 0000 0750 0750 1000 0000 %0888 j16 02705 -0128 01145 0125 0125 0000 0875 0875 1000 0000 %0889 j17 01802 00000 00000 0000 0000 0000 1000 1000 1000 0000 %0890 j18 %NX2 09540 00000 00000 1000 1000 1000 0000 0000 0000 0000 %0891 b19 %WX3 08949 00940 -0104 1000 0875 1000 0000 0125 0000 0000 %0892 b20 08358 01881 -0209 1000 0750 1000 0000 0250 0000 0000 %0893 b21 07767 02822 -0313 1000 0625 1000 0000 0375 0000 0000 %0894 b22 07176 03763 -0418 1000 0500 1000 0000 0500 0000 0000 %0895 b23 06585 04704 -0522 1000 0375 1000 0000 0625 0000 0000 %0896 b24 05994 05645 -0627 1000 0250 1000 0000 0750 0000 0000 %0897 b25 05403 06586 -0731 1000 0125 1000 0000 0875 0000 0000 %0898 b26 04813 07526 -0836 1000 0000 1000 0000 1000 0000 0000 %0899 b27 %MX 08984 -0784 00436 0875 1000 0875 0125 0000 0125 0000 %0900 c19 08573 00000 00000 0875 0875 0875 0125 0125 0125 0000 %0901 c20 07982 00940 -0104 0875 0750 0875 0125 0250 0125 0000 %0902 c21 07391 01881 -0209 0875 0625 0875 0125 0375 0125 0000 %0903 c22 06800 02822 -0313 0875 0500 0875 0125 0500 0125 0000 %0904 c23 06209 03763 -0418 0875 0375 0875 0125 0625 0125 0000 %0905 c24 05618 04704 -0522 0875 0250 0875 0125 0750 0125 0000 %0906 c25 05027 05645 -0627 0875 0125 0875 0125 0875 0125 0000 %0907 c26 04436 06586 -0731 0875 0000 0875 0125 1000 0125 0000 %0908 c27 08427 -1570 00873 0750 1000 0750 0250 0000 0250 0000 %0909 d19 08017 -0785 00436 0750 0875 0750 0250 0125 0250 0000 %0910 d20 07606 00000 00000 0750 0750 0750 0250 0250 0250 0000 %0911 d21 07015 00940 -0104 0750 0625 0750 0250 0375 0250 0000 %0912 d22 06424 01881 -0209 0750 0500 0750 0250 0500 0250 0000 %0913 d23 05833 02822 -0313 0750 0375 0750 0250 0625 0250 0000 %0914 d24 05242 03763 -0418 0750 0250 0750 0250 0750 0250 0000 %0915 d25 04651 04704 -0522 0750 0125 0750 0250 0875 0250 0000 %0916 d26 04060 05645 -0627 0750 0000 0750 0250 1000 0250 0000 %0917 d27 07871 -2355 01310 0625 1000 0625 0375 0000 0375 0000 %0918 e19 07460 -1570 00873 0625 0875 0625 0375 0125 0375 0000 %0919 e20 07049 -0785 00436 0625 0750 0625 0375 0250 0375 0000 %0920 e21 06638 00000 00000 0625 0625 0625 0375 0375 0375 0000 %0921 e22 06047 00940 -0104 0625 0500 0625 0375 0500 0375 0000 %0922 e23 05456 01881 -0209 0625 0375 0625 0375 0625 0375 0000 %0923 e24 04865 02822 -0313 0625 0250 0625 0375 0750 0375 0000 %0924 e25 04274 03763 -0418 0625 0125 0625 0375 0875 0375 0000 %0925 e26 03683 04704 -0522 0625 0000 0625 0375 1000 0375 0000 %0926 e27 07315 -3141 01747 0500 1000 0500 0500 0000 0500 0000 %0927 f19 06904 -2356 01310 0500 0875 0500 0500 0125 0500 0000 %0928 f20 06493 -1570 00873 0500 0750 0500 0500 0250 0500 0000 %0929 f21 06082 -0785 00436 0500 0625 0500 0500 0375 0500 0000 %0930 f22 05671 00000 00000 0500 0500 0500 0500 0500 0500 0000 %0931 f23 05080 00940 -0104 0500 0375 0500 0500 0625 0500 0000 %0932 f24 04489 01881 -0209 0500 0250 0500 0500 0750 0500 0000 %0933 f25 03898 02822 -0313 0500 0125 0500 0500 0875 0500 0000 %0934 f26 03307 03763 -0418 0500 0000 0500 0500 1000 0500 0000 %0935 f27 06758 -3926 02184 0375 1000 0375 0625 0000 0625 0000 %0936 g19 06348 -3141 01747 0375 0875 0375 0625 0125 0625 0000 %0937 g20 05936 -2356 01310 0375 0750 0375 0625 0250 0625 0000 %0938 g21 05525 -1570 00873 0375 0625 0375 0625 0375 0625 0000 %0939 g22 05114 -0785 00436 0375 0500 0375 0625 0500 0625 0000 %0940 g23 04703 00000 00000 0375 0375 0375 0625 0625 0625 0000 %0941 g24 04112 00940 -0104 0375 0250 0375 0625 0750 0625 0000 %0942 g25 03521 01881 -0209 0375 0125 0375 0625 0875 0625 0000 %0943 g26 02930 02822 -0313 0375 0000 0375 0625 1000 0625 0000 %0944 g27 06202 -4712 02621 0250 1000 0250 0750 0000 0750 0000 %0945 h19 05791 -3927 02184 0250 0875 0250 0750 0125 0750 0000 %0946 h20 05380 -3141 01747 0250 0750 0250 0750 0250 0750 0000 %0947 h21 04969 -2356 01310 0250 0625 0250 0750 0375 0750 0000 %0948 h22 04558 -1570 00873 0250 0500 0250 0750 0500 0750 0000 %0949 h23 04147 -0785 00436 0250 0375 0250 0750 0625 0750 0000 %0950 h24 03736 00000 00000 0250 0250 0250 0750 0750 0750 0000 %0951 h25 03145 00940 -0104 0250 0125 0250 0750 0875 0750 0000 %0952 h26 02554 01881 -0209 0250 0000 0250 0750 1000 0750 0000 %0953 h27 05646 -5497 03058 0125 1000 0125 0875 0000 0875 0000 %0954 i19 05235 -4712 02621 0125 0875 0125 0875 0125 0875 0000 %0955 i20 04824 -3927 02184 0125 0750 0125 0875 0250 0875 0000 %0956 i21 04412 -3141 01747 0125 0625 0125 0875 0375 0875 0000 %0957 i22 04001 -2356 01310 0125 0500 0125 0875 0500 0875 0000 %0958 i23 03590 -1570 00873 0125 0375 0125 0875 0625 0875 0000 %0959 i24 03179 -0785 00436 0125 0250 0125 0875 0750 0875 0000 %0960 i25 02768 00000 00000 0125 0125 0125 0875 0875 0875 0000 %0961 i26 02177 00940 -0104 0125 0000 0125 0875 1000 0875 0000 %0962 i27 05090 -6282 03495 0000 1000 0000 1000 0000 1000 0000 %0963 j19 %GX 04679 -5497 03058 0000 0875 0000 1000 0125 1000 0000 %0964 j20 04268 -4712 02621 0000 0750 0000 1000 0250 1000 0000 %0965 j21 03857 -3926 02184 0000 0625 0000 1000 0375 1000 0000 %0966 j22 03445 -3141 01747 0000 0500 0000 1000 0500 1000 0000 %0967 j23 03034 -2355 01310 0000 0375 0000 1000 0625 1000 0000 %0968 j24 02623 -1570 00873 0000 0250 0000 1000 0750 1000 0000 %0969 j25 02212 -0784 00436 0000 0125 0000 1000 0875 1000 0000 %0970 j26 01802 00000 00000 0000 0000 0000 1000 1000 1000 0000 %0971 j27 %NX3 ] def %END LUT_LAB0 /LAB*Fa0100 [ %ORS18aS, 243 colours, 20080301, rgb* %100 x LAB*a 1000 x (r g b c m y 0) %nr. pos %09540 00000 00000 1000 1000 1000 0000 0000 0000 0000 %0729 b01 %WX1 %05861 -3034 -4501 0000 1000 1000 1000 0000 0000 0000 %0737 b09 %CX %04794 06537 05050 1000 0000 0000 0000 1000 1000 0000 %0801 j01 %RX %01802 00000 00000 0000 0000 0000 1000 1000 1000 0000 %0809 j09 %NX1 %09540 00000 00000 1000 1000 1000 0000 0000 0000 0000 %0810 b10 %WX2 %02572 03109 -4440 0000 0000 1000 1000 1000 0000 0000 %0818 b18 %BX %09036 -1026 09173 1000 1000 0000 0000 0000 1000 0000 %0882 j10 %YX %01802 00000 00000 0000 0000 0000 1000 1000 1000 0000 %0890 j18 %NX2 %09540 00000 00000 1000 1000 1000 0000 0000 0000 0000 %0891 b19 %WX3 %04813 07526 -0836 1000 0000 1000 0000 1000 0000 0000 %0899 b27 %MX %05090 -6282 03495 0000 1000 0000 1000 0000 1000 0000 %0963 j19 %GX %01802 00000 00000 0000 0000 0000 1000 1000 1000 0000 %0971 j27 %NX3 %$ 04794 06537 05050 1000 0000 0000 0000 1000 1000 0000 %0801 j01 %RX 09036 -1026 09173 1000 1000 0000 0000 0000 1000 0000 %0882 j10 %YX 05090 -6282 03495 0000 1000 0000 1000 0000 1000 0000 %0963 j19 %GX 05861 -3034 -4501 0000 1000 1000 1000 0000 0000 0000 %0737 b09 %CX 02572 03109 -4440 0000 0000 1000 1000 1000 0000 0000 %0818 b18 %BX 04813 07526 -0836 1000 0000 1000 0000 1000 0000 0000 %0899 b27 %MX 01802 00000 00000 0000 0000 0000 1000 1000 1000 0000 %0971 j27 %NX3 09540 00000 00000 1000 1000 1000 0000 0000 0000 0000 %0891 b19 %WX3 %$ ] def %END ORS18aS.DAT /FileData0Na (ORS18aS.DAT) def /FileData1en (ORS18aS.DAT, 243 colours, 20080301, rgb*d, adapted) def /FileData1de (ORS18aS.DAT, 243 Farben, 20080301, rgb*d, adaptiert) def /LUT_LAB1 [%BEG LUT_LAB1 % SS390-7N, Test chart with 40x27=1080 colours; digital equidistant 9 or 16 step colour scales; % Colour data in column (A-n): rgb (A-j, n), 000n (k), w (l), nnn0 (m), % 6,0mm x 6,0mm, 270mm x 187mm, page 4/27, ORS18aS % 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 % A B C D E F G H I J K L M N O P Q R S T U V W X Y Z a b c d e f g h i j k l m n % 100 x (LAB*) 1000 x (r g b c m y 0) %nr. pos 09540 00000 00000 1000 1000 1000 0000 0000 0000 0000 %0729 b01 %WX1 09080 -0379 -0562 0875 1000 1000 0125 0000 0000 0000 %0730 b02 08620 -0758 -1125 0750 1000 1000 0250 0000 0000 0000 %0731 b03 08160 -1137 -1687 0625 1000 1000 0375 0000 0000 0000 %0732 b04 07701 -1517 -2250 0500 1000 1000 0500 0000 0000 0000 %0733 b05 07241 -1896 -2813 0375 1000 1000 0625 0000 0000 0000 %0734 b06 06781 -2275 -3376 0250 1000 1000 0750 0000 0000 0000 %0735 b07 06321 -2655 -3939 0125 1000 1000 0875 0000 0000 0000 %0736 b08 05861 -3034 -4501 0000 1000 1000 1000 0000 0000 0000 %0737 b09 %CX 08947 00816 00630 1000 0875 0875 0000 0125 0125 0000 %0738 c01 08573 00000 00000 0875 0875 0875 0125 0125 0125 0000 %0739 c02 08113 -0379 -0562 0750 0875 0875 0250 0125 0125 0000 %0740 c03 07653 -0758 -1125 0625 0875 0875 0375 0125 0125 0000 %0741 c04 07193 -1138 -1688 0500 0875 0875 0500 0125 0125 0000 %0742 c05 06734 -1517 -2251 0375 0875 0875 0625 0125 0125 0000 %0743 c06 06274 -1896 -2814 0250 0875 0875 0750 0125 0125 0000 %0744 c07 05814 -2276 -3376 0125 0875 0875 0875 0125 0125 0000 %0745 c08 05354 -2655 -3939 0000 0875 0875 1000 0125 0125 0000 %0746 c09 08353 01634 01262 1000 0750 0750 0000 0250 0250 0000 %0747 d01 07980 00817 00631 0875 0750 0750 0125 0250 0250 0000 %0748 d02 07606 00000 00000 0750 0750 0750 0250 0250 0250 0000 %0749 d03 07146 -0379 -0562 0625 0750 0750 0375 0250 0250 0000 %0750 d04 06686 -0758 -1125 0500 0750 0750 0500 0250 0250 0000 %0751 d05 06226 -1138 -1688 0375 0750 0750 0625 0250 0250 0000 %0752 d06 05766 -1517 -2251 0250 0750 0750 0750 0250 0250 0000 %0753 d07 05306 -1896 -2814 0125 0750 0750 0875 0250 0250 0000 %0754 d08 04847 -2275 -3376 0000 0750 0750 1000 0250 0250 0000 %0755 d09 07760 02451 01893 1000 0625 0625 0000 0375 0375 0000 %0756 e01 07386 01634 01262 0875 0625 0625 0125 0375 0375 0000 %0757 e02 07012 00817 00631 0750 0625 0625 0250 0375 0375 0000 %0758 e03 06638 00000 00000 0625 0625 0625 0375 0375 0375 0000 %0759 e04 06178 -0379 -0562 0500 0625 0625 0500 0375 0375 0000 %0760 e05 05718 -0758 -1125 0375 0625 0625 0625 0375 0375 0000 %0761 e06 05258 -1138 -1688 0250 0625 0625 0750 0375 0375 0000 %0762 e07 04799 -1517 -2251 0125 0625 0625 0875 0375 0375 0000 %0763 e08 04339 -1896 -2813 0000 0625 0625 1000 0375 0375 0000 %0764 e09 07167 03268 02525 1000 0500 0500 0000 0500 0500 0000 %0765 f01 06793 02451 01894 0875 0500 0500 0125 0500 0500 0000 %0766 f02 06419 01634 01262 0750 0500 0500 0250 0500 0500 0000 %0767 f03 06045 00817 00631 0625 0500 0500 0375 0500 0500 0000 %0768 f04 05671 00000 00000 0500 0500 0500 0500 0500 0500 0000 %0769 f05 05211 -0379 -0562 0375 0500 0500 0625 0500 0500 0000 %0770 f06 04751 -0758 -1125 0250 0500 0500 0750 0500 0500 0000 %0771 f07 04291 -1138 -1688 0125 0500 0500 0875 0500 0500 0000 %0772 f08 03831 -1517 -2250 0000 0500 0500 1000 0500 0500 0000 %0773 f09 06573 04085 03156 1000 0375 0375 0000 0625 0625 0000 %0774 g01 06200 03269 02525 0875 0375 0375 0125 0625 0625 0000 %0775 g02 05825 02451 01894 0750 0375 0375 0250 0625 0625 0000 %0776 g03 05451 01634 01262 0625 0375 0375 0375 0625 0625 0000 %0777 g04 05077 00817 00631 0500 0375 0375 0500 0625 0625 0000 %0778 g05 04703 00000 00000 0375 0375 0375 0625 0625 0625 0000 %0779 g06 04243 -0379 -0562 0250 0375 0375 0750 0625 0625 0000 %0780 g07 03783 -0758 -1125 0125 0375 0375 0875 0625 0625 0000 %0781 g08 03324 -1137 -1687 0000 0375 0375 1000 0625 0625 0000 %0782 g09 05980 04903 03788 1000 0250 0250 0000 0750 0750 0000 %0783 h01 05606 04086 03157 0875 0250 0250 0125 0750 0750 0000 %0784 h02 05232 03269 02525 0750 0250 0250 0250 0750 0750 0000 %0785 h03 04858 02451 01894 0625 0250 0250 0375 0750 0750 0000 %0786 h04 04484 01634 01262 0500 0250 0250 0500 0750 0750 0000 %0787 h05 04110 00817 00631 0375 0250 0250 0625 0750 0750 0000 %0788 h06 03736 00000 00000 0250 0250 0250 0750 0750 0750 0000 %0789 h07 03276 -0379 -0562 0125 0250 0250 0875 0750 0750 0000 %0790 h08 02816 -0758 -1125 0000 0250 0250 1000 0750 0750 0000 %0791 h09 05387 05720 04419 1000 0125 0125 0000 0875 0875 0000 %0792 i01 05013 04903 03788 0875 0125 0125 0125 0875 0875 0000 %0793 i02 04639 04086 03157 0750 0125 0125 0250 0875 0875 0000 %0794 i03 04265 03269 02525 0625 0125 0125 0375 0875 0875 0000 %0795 i04 03890 02451 01894 0500 0125 0125 0500 0875 0875 0000 %0796 i05 03516 01634 01262 0375 0125 0125 0625 0875 0875 0000 %0797 i06 03142 00817 00631 0250 0125 0125 0750 0875 0875 0000 %0798 i07 02768 00000 00000 0125 0125 0125 0875 0875 0875 0000 %0799 i08 02308 -0379 -0562 0000 0125 0125 1000 0875 0875 0000 %0800 i09 04794 06537 05050 1000 0000 0000 0000 1000 1000 0000 %0801 j01 %RX 04420 05720 04419 0875 0000 0000 0125 1000 1000 0000 %0802 j02 04046 04903 03788 0750 0000 0000 0250 1000 1000 0000 %0803 j03 03672 04085 03156 0625 0000 0000 0375 1000 1000 0000 %0804 j04 03297 03268 02525 0500 0000 0000 0500 1000 1000 0000 %0805 j05 02923 02451 01893 0375 0000 0000 0625 1000 1000 0000 %0806 j06 02549 01634 01262 0250 0000 0000 0750 1000 1000 0000 %0807 j07 02175 00816 00630 0125 0000 0000 0875 1000 1000 0000 %0808 j08 01802 00000 00000 0000 0000 0000 1000 1000 1000 0000 %0809 j09 %NX1 09540 00000 00000 1000 1000 1000 0000 0000 0000 0000 %0810 b10 %WX2 08669 00388 -0554 0875 0875 1000 0125 0125 0000 0000 %0811 b11 07798 00777 -1109 0750 0750 1000 0250 0250 0000 0000 %0812 b12 06927 01165 -1664 0625 0625 1000 0375 0375 0000 0000 %0813 b13 06056 01554 -2220 0500 0500 1000 0500 0500 0000 0000 %0814 b14 05185 01943 -2775 0375 0375 1000 0625 0625 0000 0000 %0815 b15 04314 02332 -3330 0250 0250 1000 0750 0750 0000 0000 %0816 b16 03443 02720 -3885 0125 0125 1000 0875 0875 0000 0000 %0817 b17 02572 03109 -4440 0000 0000 1000 1000 1000 0000 0000 %0818 b18 %BX 09477 -0128 01145 1000 1000 0875 0000 0000 0125 0000 %0819 c10 08573 00000 00000 0875 0875 0875 0125 0125 0125 0000 %0820 c11 07702 00388 -0555 0750 0750 0875 0250 0250 0125 0000 %0821 c12 06831 00777 -1110 0625 0625 0875 0375 0375 0125 0000 %0822 c13 05960 01166 -1665 0500 0500 0875 0500 0500 0125 0000 %0823 c14 05089 01554 -2220 0375 0375 0875 0625 0625 0125 0000 %0824 c15 04217 01943 -2775 0250 0250 0875 0750 0750 0125 0000 %0825 c16 03346 02332 -3330 0125 0125 0875 0875 0875 0125 0000 %0826 c17 02476 02720 -3885 0000 0000 0875 1000 1000 0125 0000 %0827 c18 09414 -0256 02292 1000 1000 0750 0000 0000 0250 0000 %0828 d10 08510 -0128 01146 0875 0875 0750 0125 0125 0250 0000 %0829 d11 07606 00000 00000 0750 0750 0750 0250 0250 0250 0000 %0830 d12 06734 00388 -0555 0625 0625 0750 0375 0375 0250 0000 %0831 d13 05863 00777 -1110 0500 0500 0750 0500 0500 0250 0000 %0832 d14 04992 01166 -1665 0375 0375 0750 0625 0625 0250 0000 %0833 d15 04121 01554 -2220 0250 0250 0750 0750 0750 0250 0000 %0834 d16 03250 01943 -2775 0125 0125 0750 0875 0875 0250 0000 %0835 d17 02379 02332 -3330 0000 0000 0750 1000 1000 0250 0000 %0836 d18 09351 -0384 03439 1000 1000 0625 0000 0000 0375 0000 %0837 e10 08447 -0256 02293 0875 0875 0625 0125 0125 0375 0000 %0838 e11 07543 -0128 01146 0750 0750 0625 0250 0250 0375 0000 %0839 e12 06638 00000 00000 0625 0625 0625 0375 0375 0375 0000 %0840 e13 05767 00388 -0555 0500 0500 0625 0500 0500 0375 0000 %0841 e14 04896 00777 -1110 0375 0375 0625 0625 0625 0375 0000 %0842 e15 04025 01166 -1665 0250 0250 0625 0750 0750 0375 0000 %0843 e16 03154 01554 -2220 0125 0125 0625 0875 0875 0375 0000 %0844 e17 02283 01943 -2775 0000 0000 0625 1000 1000 0375 0000 %0845 e18 09288 -0513 04586 1000 1000 0500 0000 0000 0500 0000 %0846 f10 08384 -0385 03440 0875 0875 0500 0125 0125 0500 0000 %0847 f11 07480 -0256 02293 0750 0750 0500 0250 0250 0500 0000 %0848 f12 06575 -0128 01146 0625 0625 0500 0375 0375 0500 0000 %0849 f13 05671 00000 00000 0500 0500 0500 0500 0500 0500 0000 %0850 f14 04799 00388 -0555 0375 0375 0500 0625 0625 0500 0000 %0851 f15 03928 00777 -1110 0250 0250 0500 0750 0750 0500 0000 %0852 f16 03057 01166 -1665 0125 0125 0500 0875 0875 0500 0000 %0853 f17 02187 01554 -2220 0000 0000 0500 1000 1000 0500 0000 %0854 f18 09225 -0641 05733 1000 1000 0375 0000 0000 0625 0000 %0855 g10 08321 -0513 04587 0875 0875 0375 0125 0125 0625 0000 %0856 g11 07417 -0385 03440 0750 0750 0375 0250 0250 0625 0000 %0857 g12 06512 -0256 02293 0625 0625 0375 0375 0375 0625 0000 %0858 g13 05608 -0128 01146 0500 0500 0375 0500 0500 0625 0000 %0859 g14 04703 00000 00000 0375 0375 0375 0625 0625 0625 0000 %0860 g15 03832 00388 -0555 0250 0250 0375 0750 0750 0625 0000 %0861 g16 02961 00777 -1110 0125 0125 0375 0875 0875 0625 0000 %0862 g17 02090 01165 -1664 0000 0000 0375 1000 1000 0625 0000 %0863 g18 09162 -0769 06880 1000 1000 0250 0000 0000 0750 0000 %0864 h10 08258 -0641 05734 0875 0875 0250 0125 0125 0750 0000 %0865 h11 07354 -0513 04587 0750 0750 0250 0250 0250 0750 0000 %0866 h12 06449 -0385 03440 0625 0625 0250 0375 0375 0750 0000 %0867 h13 05545 -0256 02293 0500 0500 0250 0500 0500 0750 0000 %0868 h14 04640 -0128 01146 0375 0375 0250 0625 0625 0750 0000 %0869 h15 03736 00000 00000 0250 0250 0250 0750 0750 0750 0000 %0870 h16 02864 00388 -0555 0125 0125 0250 0875 0875 0750 0000 %0871 h17 01994 00777 -1109 0000 0000 0250 1000 1000 0750 0000 %0872 h18 09099 -0898 08027 1000 1000 0125 0000 0000 0875 0000 %0873 i10 08195 -0770 06881 0875 0875 0125 0125 0125 0875 0000 %0874 i11 07290 -0641 05734 0750 0750 0125 0250 0250 0875 0000 %0875 i12 06386 -0513 04587 0625 0625 0125 0375 0375 0875 0000 %0876 i13 05482 -0385 03440 0500 0500 0125 0500 0500 0875 0000 %0877 i14 04577 -0256 02293 0375 0375 0125 0625 0625 0875 0000 %0878 i15 03673 -0128 01146 0250 0250 0125 0750 0750 0875 0000 %0879 i16 02768 00000 00000 0125 0125 0125 0875 0875 0875 0000 %0880 i17 01898 00388 -0554 0000 0000 0125 1000 1000 0875 0000 %0881 i18 09036 -1026 09173 1000 1000 0000 0000 0000 1000 0000 %0882 j10 %YX 08132 -0898 08027 0875 0875 0000 0125 0125 1000 0000 %0883 j11 07228 -0769 06880 0750 0750 0000 0250 0250 1000 0000 %0884 j12 06323 -0641 05733 0625 0625 0000 0375 0375 1000 0000 %0885 j13 05419 -0513 04586 0500 0500 0000 0500 0500 1000 0000 %0886 j14 04514 -0384 03439 0375 0375 0000 0625 0625 1000 0000 %0887 j15 03610 -0256 02292 0250 0250 0000 0750 0750 1000 0000 %0888 j16 02705 -0128 01145 0125 0125 0000 0875 0875 1000 0000 %0889 j17 01802 00000 00000 0000 0000 0000 1000 1000 1000 0000 %0890 j18 %NX2 09540 00000 00000 1000 1000 1000 0000 0000 0000 0000 %0891 b19 %WX3 08949 00940 -0104 1000 0875 1000 0000 0125 0000 0000 %0892 b20 08358 01881 -0209 1000 0750 1000 0000 0250 0000 0000 %0893 b21 07767 02822 -0313 1000 0625 1000 0000 0375 0000 0000 %0894 b22 07176 03763 -0418 1000 0500 1000 0000 0500 0000 0000 %0895 b23 06585 04704 -0522 1000 0375 1000 0000 0625 0000 0000 %0896 b24 05994 05645 -0627 1000 0250 1000 0000 0750 0000 0000 %0897 b25 05403 06586 -0731 1000 0125 1000 0000 0875 0000 0000 %0898 b26 04813 07526 -0836 1000 0000 1000 0000 1000 0000 0000 %0899 b27 %MX 08984 -0784 00436 0875 1000 0875 0125 0000 0125 0000 %0900 c19 08573 00000 00000 0875 0875 0875 0125 0125 0125 0000 %0901 c20 07982 00940 -0104 0875 0750 0875 0125 0250 0125 0000 %0902 c21 07391 01881 -0209 0875 0625 0875 0125 0375 0125 0000 %0903 c22 06800 02822 -0313 0875 0500 0875 0125 0500 0125 0000 %0904 c23 06209 03763 -0418 0875 0375 0875 0125 0625 0125 0000 %0905 c24 05618 04704 -0522 0875 0250 0875 0125 0750 0125 0000 %0906 c25 05027 05645 -0627 0875 0125 0875 0125 0875 0125 0000 %0907 c26 04436 06586 -0731 0875 0000 0875 0125 1000 0125 0000 %0908 c27 08427 -1570 00873 0750 1000 0750 0250 0000 0250 0000 %0909 d19 08017 -0785 00436 0750 0875 0750 0250 0125 0250 0000 %0910 d20 07606 00000 00000 0750 0750 0750 0250 0250 0250 0000 %0911 d21 07015 00940 -0104 0750 0625 0750 0250 0375 0250 0000 %0912 d22 06424 01881 -0209 0750 0500 0750 0250 0500 0250 0000 %0913 d23 05833 02822 -0313 0750 0375 0750 0250 0625 0250 0000 %0914 d24 05242 03763 -0418 0750 0250 0750 0250 0750 0250 0000 %0915 d25 04651 04704 -0522 0750 0125 0750 0250 0875 0250 0000 %0916 d26 04060 05645 -0627 0750 0000 0750 0250 1000 0250 0000 %0917 d27 07871 -2355 01310 0625 1000 0625 0375 0000 0375 0000 %0918 e19 07460 -1570 00873 0625 0875 0625 0375 0125 0375 0000 %0919 e20 07049 -0785 00436 0625 0750 0625 0375 0250 0375 0000 %0920 e21 06638 00000 00000 0625 0625 0625 0375 0375 0375 0000 %0921 e22 06047 00940 -0104 0625 0500 0625 0375 0500 0375 0000 %0922 e23 05456 01881 -0209 0625 0375 0625 0375 0625 0375 0000 %0923 e24 04865 02822 -0313 0625 0250 0625 0375 0750 0375 0000 %0924 e25 04274 03763 -0418 0625 0125 0625 0375 0875 0375 0000 %0925 e26 03683 04704 -0522 0625 0000 0625 0375 1000 0375 0000 %0926 e27 07315 -3141 01747 0500 1000 0500 0500 0000 0500 0000 %0927 f19 06904 -2356 01310 0500 0875 0500 0500 0125 0500 0000 %0928 f20 06493 -1570 00873 0500 0750 0500 0500 0250 0500 0000 %0929 f21 06082 -0785 00436 0500 0625 0500 0500 0375 0500 0000 %0930 f22 05671 00000 00000 0500 0500 0500 0500 0500 0500 0000 %0931 f23 05080 00940 -0104 0500 0375 0500 0500 0625 0500 0000 %0932 f24 04489 01881 -0209 0500 0250 0500 0500 0750 0500 0000 %0933 f25 03898 02822 -0313 0500 0125 0500 0500 0875 0500 0000 %0934 f26 03307 03763 -0418 0500 0000 0500 0500 1000 0500 0000 %0935 f27 06758 -3926 02184 0375 1000 0375 0625 0000 0625 0000 %0936 g19 06348 -3141 01747 0375 0875 0375 0625 0125 0625 0000 %0937 g20 05936 -2356 01310 0375 0750 0375 0625 0250 0625 0000 %0938 g21 05525 -1570 00873 0375 0625 0375 0625 0375 0625 0000 %0939 g22 05114 -0785 00436 0375 0500 0375 0625 0500 0625 0000 %0940 g23 04703 00000 00000 0375 0375 0375 0625 0625 0625 0000 %0941 g24 04112 00940 -0104 0375 0250 0375 0625 0750 0625 0000 %0942 g25 03521 01881 -0209 0375 0125 0375 0625 0875 0625 0000 %0943 g26 02930 02822 -0313 0375 0000 0375 0625 1000 0625 0000 %0944 g27 06202 -4712 02621 0250 1000 0250 0750 0000 0750 0000 %0945 h19 05791 -3927 02184 0250 0875 0250 0750 0125 0750 0000 %0946 h20 05380 -3141 01747 0250 0750 0250 0750 0250 0750 0000 %0947 h21 04969 -2356 01310 0250 0625 0250 0750 0375 0750 0000 %0948 h22 04558 -1570 00873 0250 0500 0250 0750 0500 0750 0000 %0949 h23 04147 -0785 00436 0250 0375 0250 0750 0625 0750 0000 %0950 h24 03736 00000 00000 0250 0250 0250 0750 0750 0750 0000 %0951 h25 03145 00940 -0104 0250 0125 0250 0750 0875 0750 0000 %0952 h26 02554 01881 -0209 0250 0000 0250 0750 1000 0750 0000 %0953 h27 05646 -5497 03058 0125 1000 0125 0875 0000 0875 0000 %0954 i19 05235 -4712 02621 0125 0875 0125 0875 0125 0875 0000 %0955 i20 04824 -3927 02184 0125 0750 0125 0875 0250 0875 0000 %0956 i21 04412 -3141 01747 0125 0625 0125 0875 0375 0875 0000 %0957 i22 04001 -2356 01310 0125 0500 0125 0875 0500 0875 0000 %0958 i23 03590 -1570 00873 0125 0375 0125 0875 0625 0875 0000 %0959 i24 03179 -0785 00436 0125 0250 0125 0875 0750 0875 0000 %0960 i25 02768 00000 00000 0125 0125 0125 0875 0875 0875 0000 %0961 i26 02177 00940 -0104 0125 0000 0125 0875 1000 0875 0000 %0962 i27 05090 -6282 03495 0000 1000 0000 1000 0000 1000 0000 %0963 j19 %GX 04679 -5497 03058 0000 0875 0000 1000 0125 1000 0000 %0964 j20 04268 -4712 02621 0000 0750 0000 1000 0250 1000 0000 %0965 j21 03857 -3926 02184 0000 0625 0000 1000 0375 1000 0000 %0966 j22 03445 -3141 01747 0000 0500 0000 1000 0500 1000 0000 %0967 j23 03034 -2355 01310 0000 0375 0000 1000 0625 1000 0000 %0968 j24 02623 -1570 00873 0000 0250 0000 1000 0750 1000 0000 %0969 j25 02212 -0784 00436 0000 0125 0000 1000 0875 1000 0000 %0970 j26 01802 00000 00000 0000 0000 0000 1000 1000 1000 0000 %0971 j27 %NX3 ] def %END LUT_LAB1 /LAB*Fa1100 [ %ORS18aS, 243 colours, 20080301, rgb* %100 x LAB*a 1000 x (r g b c m y 0) %nr. pos %09540 00000 00000 1000 1000 1000 0000 0000 0000 0000 %0729 b01 %WX1 %05861 -3034 -4501 0000 1000 1000 1000 0000 0000 0000 %0737 b09 %CX %04794 06537 05050 1000 0000 0000 0000 1000 1000 0000 %0801 j01 %RX %01802 00000 00000 0000 0000 0000 1000 1000 1000 0000 %0809 j09 %NX1 %09540 00000 00000 1000 1000 1000 0000 0000 0000 0000 %0810 b10 %WX2 %02572 03109 -4440 0000 0000 1000 1000 1000 0000 0000 %0818 b18 %BX %09036 -1026 09173 1000 1000 0000 0000 0000 1000 0000 %0882 j10 %YX %01802 00000 00000 0000 0000 0000 1000 1000 1000 0000 %0890 j18 %NX2 %09540 00000 00000 1000 1000 1000 0000 0000 0000 0000 %0891 b19 %WX3 %04813 07526 -0836 1000 0000 1000 0000 1000 0000 0000 %0899 b27 %MX %05090 -6282 03495 0000 1000 0000 1000 0000 1000 0000 %0963 j19 %GX %01802 00000 00000 0000 0000 0000 1000 1000 1000 0000 %0971 j27 %NX3 %$ 04794 06537 05050 1000 0000 0000 0000 1000 1000 0000 %0801 j01 %RX 09036 -1026 09173 1000 1000 0000 0000 0000 1000 0000 %0882 j10 %YX 05090 -6282 03495 0000 1000 0000 1000 0000 1000 0000 %0963 j19 %GX 05861 -3034 -4501 0000 1000 1000 1000 0000 0000 0000 %0737 b09 %CX 02572 03109 -4440 0000 0000 1000 1000 1000 0000 0000 %0818 b18 %BX 04813 07526 -0836 1000 0000 1000 0000 1000 0000 0000 %0899 b27 %MX 01802 00000 00000 0000 0000 0000 1000 1000 1000 0000 %0971 j27 %NX3 09540 00000 00000 1000 1000 1000 0000 0000 0000 0000 %0891 b19 %WX3 ] def %END ORS18aS.DAT /FileData1Na (ORS18aS.DAT) 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 2 def /lanind2 2 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 /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 xchart def gsave 200 /Times-ISOL1 FS 0 setgray 100 -200 moveto (SS390-7N: ) 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 0 eq {FileDatade show} {FileDataen show} ifelse (, Seite ) showde %0SS39X-Y 2200# (, page ) showen %1SS39X-Y 2200# (, p\341gina ) showes %2SS39X-Y 2200# (, page ) showfr %3SS39X-Y 2200# (, pagina ) showit %4SS39X-Y 2200# (, page ) showjp %5SS39X-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 {(SS390-) show} {(SS391-) 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 (N) show %N (, ) 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 0 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