%!PS-Adobe-3.0 EPSF-3.0 AEA01-7N %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark17 where {pop} {userdict /pdfmark17 /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: farbe.li.tu-berlin.de/AEA0/AEA0.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2019100112000) /ModDate (D:2019100112000) /DOCINFO pdfmark17 [ /View [ /FitB ] /DOCVIEW pdfmark17 %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 /FileData0en (9 step equidistant colour series, ORS18a, Interpretation: rgb -> olv*, adapted) def /FileData0de (9-stufige gleichabst\344ndige Farbreihen, ORS18a, Interpretation: rgb -> olv*, adaptiert) def /LUT_LAB0 [%BEG LUT_LAB0 % AEA00-7A, 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 %W1 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 %C 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 %O 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 09540 00000 00000 1000 1000 1000 0000 0000 0000 0000 %0810 b10 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 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 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 09540 00000 00000 1000 1000 1000 0000 0000 0000 0000 %0891 b19 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 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 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 ] def %END LUT_LAB0 /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 /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 1 def /lanind2 1 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 72 90 translate 0.01 MM dup scale %00 1 15 {/xchart exch def %xchart=0,15 /xchartl 0 def gsave /FileData lanind 0 eq {FileData0de def} {FileData0en def} ifelse 200 /Times-ISOL1 FS 0 setgray 0 1 02429 {/i exch def %i=0,02429 LUT i LUT_LAB0 i get put } for %i=0,02429 20 setlinewidth /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 120 /Times-ISOL1 FS 0 setgray 100 -120 moveto (AEA01-7N) show 2600 0600 translate /yshift 400 def gsave 0.8 0.8 scale 1 setgray -3200 3800 yshift sub moveto TBS (System: ORS18a) show xchartl 6 ge { %xchartl>=6 -2000 1300 moveto TBS (theoretical) showea (theoretischer) showde -2000 1050 moveto (overprint) showea (\334berdruck) showde -2800 0350 moveto TBS (real) showea (realer) showde -2800 0100 moveto (overprint) showea (\334berdruck) showde } if %xchartl>=6 /x700 400 def /angle_olv 7 array def /angle_olv [38 96 151 236 305 354 398] def /angle_rgb 7 array def /angle_rgb [26 92 162 217 272 329 386] def /angle6 7 array def /cname_olv [(R) (Y) (G) (C) (B) (M) (R)] def /cname_rgb [(R) (Y) (G) (C) (B) (M) (R)] def /cname6 7 array def /olvrgb 0 def 0 1 6 {/i exch def cname6 i olvrgb 0 eq {cname_olv i get} {cname_rgb i get} ifelse put angle6 i xchartl 3 le {angle_olv i get} if xchartl 4 ge {olvrgb 0 eq {angle_olv i get} {angle_rgb i get} ifelse } if 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 -3200 4100 yshift sub 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 jbild 3 eq {cname6 0 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 jbild 3 eq {angle6 0 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 jbild 3 eq {cname6 3 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 jbild 3 eq {angle6 3 get cvishow} if (/360) show xchartl 0 ge xchartl 3 le and {%0<=xchartl<=3 -3200 4400 yshift sub 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 TBL 0 -50 rmoveto (ab,a) show 0 50 rmoveto TBS (, ) show TBIS (L*) show TBS (\051) show } if %0<=xchartl<=3 xchartl 4 ge xchartl 7 le and {%4<=xchartl<=7 -3200 4400 yshift sub moveto %TBS (Linear relation ) showea (Beziehung ) showde TBIS (Adapted (a) ) showea (Adaptiertes (a) ) showde TBS (CIELAB \050) show TBIS (C*) show TBL 0 -50 rmoveto (ab,a) show 0 50 rmoveto 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 } if %4<=xchartl<=7 xchartl 8 ge xchartl 11 le and {%8<=xchartl<=11 -3200 4400 yshift sub moveto %TBS (Linear relation ) showea (Beziehung ) showde TBIS (Adapted (a) ) showea (Adaptiertes (a) ) showde TBS (CIELAB \050) show TBIS (C*) show (ab,a) ibshown 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 %Txx ibshown (,lab*) ibshown TBS (, ) show TBIS (t*) show %Txx ibshown (,lab*) ibshown TBS (\051) show } if %8<=xchartl<=11 xchartl 12 ge xchartl 15 le and {%12<=xchartl<=15 -3200 4400 yshift sub moveto TBS (Linear relation ) showea (Beziehung ) showde TBIS (rgb*) show Txx ibshown TBS ( and ) showea ( und ) showde TBIS (relative ) show TBS (chroma ) showea (Buntheit ) showde TBIS (c*) show (rgb) ibshown TBS ( and ) showea ( und ) showde %TBIS (relative ) show TBS (triangle lightness ) showea (Dreiecks\255Helligkeit ) showde TBIS (t*) show (rgb) ibshown } if %12<=xchartl<=15 xchartl 3 le { %xchartl<=3 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 %xchartl<=3 /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 xchartl 3 eq xchartl 7 eq or xchartl 11 eq or xchartl 15 eq or {/j1 729 j729 sub 10 mul def} if %series O-C 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 xchartl 3 eq xchartl 7 eq or xchartl 11 eq or xchartl 15 eq or {/index [801 737 809 729] def} if %O,C,N1,W1 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 6300 0 rlineto stroke 0 -080 moveto 0 3600 rlineto stroke 3300 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) () ( 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 -2400 3100 moveto TBIK (relative ) show TBK (lightness) showea (Helligkeit) showde -400 3100 moveto TBIK (l*) show %xchartl 11 le {(lab*) ibshown} if } if xchartl 8 ge { 1 setgray -2600 3100 moveto TBK (triangle lightness) showea (Dreiecks\255Helligkeit) showde -400 3100 moveto TBIK (t*) show %xchartl 11 le {(lab*) ibshown} if xchartl 12 ge {(rgb) ibshown} if } if xchartl 4 ge { 1000 -600 moveto TBIK (relative ) show TBK (chroma) showea (Buntheit) showde 2900 -600 moveto TBIK (c*) show %xchartl 11 le {(lab*) ibshown} if xchartl 12 ge {(rgb) ibshown} if } if xchartl 12 ge { 1500 2350 moveto TBIS (n*) show %(rgb*) ibshown TBS ( = 0; ) show TBIS (i*) show %(rgb*) ibshown TBS ( = 1) show 2000 0550 moveto TBIS (w*) show %(rgb*) ibshown TBS ( = 0; ) show TBIS (d*) show %(rgb*) ibshown TBS ( = 1) show } if /fakt 30 def /fakt2 3000 def 100 /Times-ISOL1 FS /j1 0 def /k1 0 def /k2 0 def xchartl 0 ge xchartl 3 le and {%0<=xchartl <=3 %********************************************************************** 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 /C*abmean0 3 array def /L*mean0 3 array 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 4 eq {/C*abmean4 C*ab j get def /L*mean4 L* j get def C*abmean4 fakt mul L*mean4 fakt mul moveto 0 0 lineto stroke } if j 8 eq {newpath TBK C*ab j get fakt mul 80 sub L* j get fakt mul 150 add moveto xchartl 00 eq {cname6 0 get show Txx ibshow0} if xchartl 01 eq {cname6 1 get show Txx ibshow0} if xchartl 02 eq {cname6 2 get show Txx ibshow0} if xchartl 03 eq {cname6 0 get show Txx ibshow0} if 1 setgray C*ab j get fakt mul 580 sub L* j get fakt mul 700 sub moveto TBS (\050) show TBIS (C*) show 0 -50 rmoveto TBL (ab,a,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 %********************************************************************** 0 1 1 {/m exch def %m=0,1 /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 m 0 eq {C*ab j get fakt mul L* j get fakt mul j 0 eq {/C*abmax C*ab j get def /L*max L* j get def} if j 8 eq {/C*abmin C*ab j get def /L*min L* j get def} if } {/c* C*ab j get C*abmax div def C*ab j get L*min 1 c* sub mul add fakt mul L* j get L*min 0.5 mul 1 c* sub mul sub fakt mul } ifelse 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 m 1 eq j 8 eq and {[50] 0 setdash C*ab j get L*min 1 c* sub mul add fakt mul L* j get L*min 0.5 mul 1 c* sub mul sub fakt mul moveto C*ab j get fakt mul L* j get fakt mul lineto stroke [] 0 setdash newpath C*ab j get L*min 1 c* sub mul add fakt mul 200 sub %#100->200 L* j get L*min 0.5 mul 1 c* sub mul sub fakt mul 550 sub moveto %#300->550 TBK (N+) show xchartl 00 eq {cname6 0 get show Txx ibshow0} if xchartl 01 eq {cname6 1 get show Txx ibshow0} if xchartl 02 eq {cname6 2 get show Txx ibshow0} if xchartl 03 eq {cname6 0 get show Txx ibshow0} if newpath } if } for %j=j1,j2 } for %k=0,3 } for %m=0,1 %********************************************************************** /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 4 eq {/C*abmean5 C*ab j get def /L*mean5 L* j get def C*abmean5 fakt mul L*mean5 fakt mul moveto 0 0 lineto stroke } if j 8 eq {newpath 250 /TimesBI-ISOL1 FS C*ab j get fakt mul 180 sub %#80->180 L* j get fakt mul 150 add olvrgb 1 eq {xchartl 0 eq xchartl 2 eq or {200 add} if} if moveto xchartl 00 eq {cname6 3 get show Txx ibshow0} if xchartl 01 eq {cname6 4 get show Txx ibshow0} if xchartl 02 eq {cname6 5 get show Txx ibshow0} if xchartl 03 eq {cname6 3 get show Txx ibshow0} if newpath } if } for %j=j1,j2 } for %k=0,3 %********************************************************************** 0 1 1 {/m exch def %m=0,1 /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 m 0 eq {C*ab j get fakt mul L* j get fakt mul j 0 eq {/C*abmax C*ab j get def /L*max L* j get def} if j 8 eq {/C*abmin C*ab j get def /L*min L* j get def} if } {/c* C*ab j get C*abmax div def C*ab j get L*min 1 c* sub mul sub fakt mul L* j get L*min 0.5 mul 1 c* sub mul sub fakt mul } ifelse 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 0 setgray %black line and text m 1 eq j 8 eq and {[50] 0 setdash C*ab j get L*min 1 c* sub mul sub fakt mul L* j get L*min 0.5 mul 1 c* sub mul sub fakt mul moveto C*ab j get fakt mul L* j get fakt mul lineto stroke [] 0 setdash newpath C*ab j get L*min 1 c* sub mul sub fakt mul 250 sub %#100->250 L* j get L*min 0.5 mul 1 c* sub mul sub fakt mul 550 sub moveto %#300->550 TBK (N+) show xchartl 00 eq {cname6 3 get show Txx ibshow0} if xchartl 01 eq {cname6 4 get show Txx ibshow0} if xchartl 02 eq {cname6 5 get show Txx ibshow0} if xchartl 03 eq {cname6 3 get show Txx ibshow0} if newpath } if } for %j=j1,j2 } for %k=0,3 } for %m=0,1 %********************************************************************** } if %0<=xchartl <=3 xchartl 4 ge xchartl 7 le and {%4<=xchartl <=7 %********************************************************************** 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 %********************************************************************** 0 1 1 {/m exch def %m=0,1 /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 m 0 eq {c1* j get fakt2 mul l1* j get fakt2 mul j 0 eq {/c1*max c1* j get def /l1*max l1* j get def} if j 8 eq {/c1*min c1* j get def /l1*min l1* j get def} if } {/c* c1* j get c1*max div def c1* j get 0.2 1 c* sub mul add fakt2 mul l1* j get 0.2 0.5 mul 1 c* sub mul sub fakt2 mul } ifelse 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 0 setgray %black line and text m 1 eq j 8 eq and {[50] 0 setdash c1* j get 0.2 1 c* sub mul add fakt2 mul l1* j get 0.2 0.5 mul 1 c* sub mul sub fakt2 mul moveto c1* j get fakt2 mul l1* j get fakt2 mul lineto stroke [] 0 setdash newpath c1* j get 0.2 1 c* sub mul add fakt2 mul 350 sub %#100->350 l1* j get 0.2 0.5 mul 1 c* sub mul sub fakt2 mul 300 sub moveto TBK (N+) show xchartl 04 eq {cname6 0 get show Txx ibshow0} if xchartl 05 eq {cname6 1 get show Txx ibshow0} if xchartl 06 eq {cname6 2 get show Txx ibshow0} if xchartl 07 eq {cname6 0 get show Txx ibshow0} if newpath } if } for %j=j1,j2 } for %k=0,3 } for %m=0,1 %********************************************************************** /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 4 eq xchartl 7 eq and { /c1*mean6 c1* j get def /l1*mean6 l1* j get def c1*mean6 fakt2 mul l1*mean6 fakt2 mul moveto 0 -0.2 fakt2 mul lineto stroke } if j 8 eq {newpath 250 /TimesBI-ISOL1 FS c1* j get fakt2 mul Vorz mul 80 sub l1* j get fakt2 mul 150 add moveto xchartl 04 eq {cname6 0 get show Txx ibshow0} if xchartl 05 eq {cname6 1 get show Txx ibshow0} if xchartl 06 eq {cname6 2 get show Txx ibshow0} if xchartl 07 eq {cname6 0 get show Txx ibshow0} if 1 setgray c1* j get fakt2 mul Vorz mul 450 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 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 4 eq xchartl 7 eq and { /c2*mean6 c2* j get def /l2*mean6 l2* j get def c2*mean6 fakt2 mul Vorz mul l2*mean6 fakt2 mul moveto 0 -0.2 fakt2 mul lineto stroke } if j 8 eq {newpath 250 /TimesBI-ISOL1 FS c2* j get fakt2 mul Vorz mul 80 sub l2* j get fakt2 mul 250 add %#150 add -> 250 add olvrgb 1 eq {xchartl 4 eq xchartl 6 eq or {200 add} if} if moveto xchartl 04 eq {cname6 3 get show Txx ibshow0} if xchartl 05 eq {cname6 4 get show Txx ibshow0} if xchartl 06 eq {cname6 5 get show Txx ibshow0} if xchartl 07 eq {cname6 3 get show Txx ibshow0} if newpath } if } for %j=j1,j2 } for %k=0,3 %********************************************************************** 0 1 1 {/m exch def %m=0,1 /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 m 0 eq {c2* j get fakt2 mul Vorz mul l2* j get fakt2 mul j 0 eq {/c2*max c2* j get def /l2*max l2* j get def} if j 8 eq {/c2*min c2* j get def /l2*min l2* j get def} if } {/c* c2* j get c2*max div def c2* j get 0.2 1 c* sub mul add fakt2 mul Vorz mul l2* j get 0.2 0.5 mul 1 c* sub mul sub fakt2 mul } ifelse 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 0 setgray %black line and text m 1 eq j 8 eq {[50] 0 setdash c2* j get 0.2 1 c* sub mul add fakt2 mul Vorz mul l2* j get 0.2 0.5 mul 1 c* sub mul sub fakt2 mul moveto c2* j get fakt2 mul l2* j get fakt2 mul lineto stroke [] 0 setdash newpath c2* j get 0.2 1 c* sub mul add fakt2 mul Vorz mul 350 sub %#100->350 l2* j get 0.2 0.5 mul 1 c* sub mul sub fakt2 mul 300 sub moveto TBK (N+) show xchartl 04 eq {cname6 3 get show Txx ibshow0} if xchartl 05 eq {cname6 4 get show Txx ibshow0} if xchartl 06 eq {cname6 5 get show Txx ibshow0} if xchartl 07 eq {cname6 3 get show Txx ibshow0} if newpath } if } for %j=j1,j2 } for %k=0,3 } for %m=0,1 %********************************************************************** } if %4<=xchartl <=7 xchartl 8 ge xchartl 11 le and {%8<=xchartl <=11 %********************************************************************** 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 %********************************************************************** 0 1 1 {/m exch def %m=0,1 /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 m 0 eq {c1* j get fakt2 mul t1* j get fakt2 mul j 0 eq {/c1*max c1* j get def /t1*max t1* j get def} if j 8 eq {/c1*min c1* j get def /t1*min t1* j get def} if } {/c* c1* j get c1*max div def c1* j get 0.2 1 c* sub mul add fakt2 mul t1* j get 0.2 0.5 mul 1 c* sub mul sub fakt2 mul } ifelse 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 0 setgray %black line and text m 1 eq j 8 eq and {[50] 0 setdash c1* j get 0.2 1 c* sub mul add fakt2 mul t1* j get 0.2 0.5 mul 1 c* sub mul sub fakt2 mul moveto c1* j get fakt2 mul t1* j get fakt2 mul lineto stroke [] 0 setdash newpath c1* j get 0.2 1 c* sub mul add fakt2 mul 350 sub %#100->350 t1* j get 0.2 0.5 mul 1 c* sub mul sub fakt2 mul 300 sub moveto TBK (N+) show xchartl 08 eq {cname6 0 get show Txx ibshow0} if xchartl 09 eq {cname6 1 get show Txx ibshow0} if xchartl 10 eq {cname6 2 get show Txx ibshow0} if xchartl 11 eq {cname6 0 get show Txx ibshow0} if newpath } if } for %j=j1,j2 } for %k=0,3 } for %m=0,1 %********************************************************************** /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 4 eq xchartl 11 eq and { /c1*mean7 c1* j get def /t1*mean7 t1* j get def c1*mean7 fakt2 mul t1*mean7 fakt2 mul moveto 0 -0.2 fakt2 mul lineto stroke } if j 8 eq {newpath 250 /TimesBI-ISOL1 FS c1* j get fakt2 mul Vorz mul 80 sub t1* j get fakt2 mul 150 add moveto xchartl 08 eq {cname6 0 get show Txx ibshow0} if xchartl 09 eq {cname6 1 get show Txx ibshow0} if xchartl 10 eq {cname6 2 get show Txx ibshow0} if xchartl 11 eq {cname6 0 get show Txx ibshow0} if 1 setgray c1* j get fakt2 mul Vorz mul 450 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 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 4 eq xchartl 11 eq and { /c2*mean7 c2* j get def /t2*mean7 t2* j get def c2*mean7 fakt2 mul Vorz mul t2*mean7 fakt2 mul moveto 0 -0.2 fakt2 mul lineto stroke } if j 8 eq {newpath 250 /TimesBI-ISOL1 FS c2* j get fakt2 mul Vorz mul 80 sub t2* j get fakt2 mul 250 add %#150 add -> 250 add olvrgb 1 eq {xchartl 8 eq xchartl 10 eq or {200 add} if} if moveto xchartl 08 eq {cname6 3 get show Txx ibshow0} if xchartl 09 eq {cname6 4 get show Txx ibshow0} if xchartl 10 eq {cname6 5 get show Txx ibshow0} if xchartl 11 eq {cname6 3 get show Txx ibshow0} if newpath } if } for %j=j1,j2 } for %k=0,3 %********************************************************************** 0 1 1 {/m exch def %m=0,1 /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 m 0 eq {c2* j get fakt2 mul Vorz mul t2* j get fakt2 mul j 0 eq {/c2*max c2* j get def /t2*max t2* j get def} if j 8 eq {/c2*min c2* j get def /t2*min t2* j get def} if } {/c* c2* j get c2*max div def c2* j get 0.2 1 c* sub mul add fakt2 mul Vorz mul t2* j get 0.2 0.5 mul 1 c* sub mul sub fakt2 mul } ifelse 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 0 setgray %black line and text m 1 eq j 8 eq and {[50] 0 setdash c2* j get 0.2 1 c* sub mul add fakt2 mul Vorz mul t2* j get 0.2 0.5 mul 1 c* sub mul sub fakt2 mul moveto c2* j get fakt2 mul t2* j get fakt2 mul lineto stroke [] 0 setdash newpath c2* j get 0.2 1 c* sub mul add fakt2 mul Vorz mul 350 sub %#100->350 t2* j get 0.2 0.5 mul 1 c* sub mul sub fakt2 mul 300 sub moveto TBK (N+) show xchartl 08 eq {cname6 3 get show Txx ibshow0} if xchartl 09 eq {cname6 4 get show Txx ibshow0} if xchartl 10 eq {cname6 5 get show Txx ibshow0} if xchartl 11 eq {cname6 3 get show Txx ibshow0} if newpath } if } for %j=j1,j2 } for %k=0,3 } for %m=0,1 %********************************************************************** } if %8<=xchartl <=11 xchartl 12 ge xchartl 15 le and {%12<=xchartl <=15 %********************************************************************** 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 %********************************************************************** 0 1 1 {/m exch def %m=0,1 /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 m 0 eq {c1*rgb j get fakt2 mul t1*rgb j get fakt2 mul j 0 eq {/c1*max c1*rgb j get def /t1*max t1*rgb j get def} if j 8 eq {/c1*min c1*rgb j get def /t1*min t1*rgb j get def} if } {/c* c1*rgb j get c1*max div def c1*rgb j get 0.2 1 c* sub mul add fakt2 mul t1*rgb j get 0.2 0.5 mul 1 c* sub mul sub fakt2 mul } ifelse 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 0 setgray %black line and text m 1 eq j 8 eq and {[50] 0 setdash c1*rgb j get 0.2 1 c* sub mul add fakt2 mul t1*rgb j get 0.2 0.5 mul 1 c* sub mul sub fakt2 mul moveto c1*rgb j get fakt2 mul t1*rgb j get fakt2 mul lineto stroke [] 0 setdash newpath c1*rgb j get 0.2 1 c* sub mul add fakt2 mul 350 sub %#100->350 t1*rgb j get 0.2 0.5 mul 1 c* sub mul sub fakt2 mul 300 sub moveto TBK (N+) show xchartl 12 eq {cname6 0 get show Txx ibshow0} if xchartl 13 eq {cname6 1 get show Txx ibshow0} if xchartl 14 eq {cname6 2 get show Txx ibshow0} if xchartl 15 eq {cname6 0 get show Txx ibshow0} if newpath } if } for %j=j1,j2 } for %k=0,3 } for %m=0,1 %********************************************************************** /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 4 eq xchartl 15 eq and { /c1*mean8 c1*rgb j get def /t1*mean8 t1*rgb j get def c1*mean8 fakt2 mul t1*mean8 fakt2 mul moveto 0 -0.2 fakt2 mul lineto stroke } if j 8 eq {newpath 250 /TimesBI-ISOL1 FS c1*rgb j get fakt2 mul Vorz mul 80 sub t1*rgb j get fakt2 mul 150 add moveto xchartl 12 eq {cname6 0 get show Txx ibshow0} if xchartl 13 eq {cname6 1 get show Txx ibshow0} if xchartl 14 eq {cname6 2 get show Txx ibshow0} if xchartl 15 eq {cname6 0 get show Txx ibshow0} if 1 setgray c1*rgb j get fakt2 mul Vorz mul 450 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 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 4 eq xchartl 15 eq and { /c2*mean8 c2*rgb j get def /t2*mean8 t2*rgb j get def c2*mean8 fakt2 mul Vorz mul t2*mean8 fakt2 mul moveto 0 -0.2 fakt2 mul lineto stroke } if j 8 eq {newpath 250 /TimesBI-ISOL1 FS c2*rgb j get fakt2 mul Vorz mul 80 sub t2*rgb j get fakt2 mul 250 add %#150 add -> 250 add olvrgb 1 eq {xchartl 12 eq xchartl 14 eq or {200 add} if} if moveto xchartl 12 eq {cname6 3 get show Txx ibshow0} if xchartl 13 eq {cname6 4 get show Txx ibshow0} if xchartl 14 eq {cname6 5 get show Txx ibshow0} if xchartl 15 eq {cname6 3 get show Txx ibshow0} if newpath } if } for %j=j1,j2 } for %k=0,3 %********************************************************************** 0 1 1 {/m exch def %m=0,1 /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 m 0 eq {c2*rgb j get fakt2 mul Vorz mul t2*rgb j get fakt2 mul j 0 eq {/c2*max c2*rgb j get def /t2*max t2*rgb j get def} if j 8 eq {/c2*min c2*rgb j get def /t2*min t2*rgb j get def} if } {/c* c2*rgb j get c2*max div def c2*rgb j get 0.2 1 c* sub mul add fakt2 mul Vorz mul t2*rgb j get 0.2 0.5 mul 1 c* sub mul sub fakt2 mul } ifelse 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 0 setgray %black line and text m 1 eq j 8 eq and {[50] 0 setdash c2*rgb j get 0.2 1 c* sub mul add fakt2 mul Vorz mul t2*rgb j get 0.2 0.5 mul 1 c* sub mul sub fakt2 mul moveto c2*rgb j get fakt2 mul t2*rgb j get fakt2 mul lineto stroke [] 0 setdash newpath c2*rgb j get 0.2 1 c* sub mul add fakt2 mul Vorz mul 350 sub %#100->350 t2*rgb j get 0.2 0.5 mul 1 c* sub mul sub fakt2 mul 300 sub moveto TBK (N+) show xchartl 12 eq {cname6 3 get show Txx ibshow0} if xchartl 13 eq {cname6 4 get show Txx ibshow0} if xchartl 14 eq {cname6 5 get show Txx ibshow0} if xchartl 15 eq {cname6 3 get show Txx ibshow0} if newpath } if } for %j=j1,j2 } for %k=0,3 } for %m=0,1 %********************************************************************** } if %12<=xchartl <=15 %********************************************************************** grestore 2600 neg 0600 neg translate showpage grestore %} for %xchart=0,15 %%Trailer