%!PS-Adobe-3.0 EPSF-3.0 UE051-7A %%BoundingBox: 70 85 226 206 %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/UE05/) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.445/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@me.com) /CreationDate (D:2014010112000) /ModDate (D:2014010112000) /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 % !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /TK {240 /Times-ISOL1 FS} bind def /TM {290 /Times-ISOL1 FS} bind def /TG {340 /Times-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIM {290 /TimesI-ISOL1 FS} bind def /TIG {340 /TimesI-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBM {290 /TimesB-ISOL1 FS} bind def /TBG {340 /TimesB-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIM {290 /TimesBI-ISOL1 FS} bind def /TBIG {340 /TimesBI-ISOL1 FS} bind def /SK {240 1 sub /Symbol FS} bind def /SM {290 1 sub /Symbol FS} bind def /SG {340 1 sub /Symbol FS} bind def %XCHA01.PS BEG /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 {setcmyk_olvcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmyk_olvcolor rec stroke} bind def /rem %x, y width heigth {/heigth exch 0.5 mul def /width exch 0.5 mul def /yleftb exch heigth 0.5 mul add def /xleftb exch width 0.5 mul add def xleftb yleftb moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colremfi %x y width heigth c m y k {setcmykcolor rem fill} bind def /colremst %x y width heigth c m y k {setcmykcolor rem stroke} bind def /tzr {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzg {1.0 0.0 1.0 0.0} bind def /tzb {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tfr {0.0 1.0 1.0 0.0 setcmyk_olvcolor} bind def %Reproduktionsfarben /tfg {1.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def /tfb {1.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def /tfc {1.0 0.0 0.0 0.0 setcmyk_olvcolor} bind def /tfm {0.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def /tfy {0.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def /tfn {0.0 0.0 0.0 1.00 setcmyk_olvcolor} bind def %Graureihe /tfd {0.0 0.0 0.0 0.75 setcmyk_olvcolor} bind def /tfz {0.0 0.0 0.0 0.50 setcmyk_olvcolor} bind def /tfh {0.0 0.0 0.0 0.25 setcmyk_olvcolor} bind def /tfw {0.0 0.0 0.0 0.00 setcmyk_olvcolor} bind def %For array: 1156=289*4=17*17*4 % =%17 data * 17 colours * 4 series /AVR2DA05 1156 array def %289*4 /AVR2DA05 [ % Steering: (IDATA(I),I=1,5),xyYLcx,xyYLGi,CIELAB,LABJND 1 0 0 0 0 %THIS FILE KITDA08_AL.LIS (change and sort of KITTDA08.TXT for achrom. colours) % Programm: KITTDA08.FOR 2014_04_01 % Output file: KITTDA08.TXT 2014_04_01 %000000 1 2 3 4 5 6 7 %123456789012345678901234567890123456789012345678901234567890123456789012345678 %110000 x y Y L delta_x delta_y delta_Y ObReJNSu_1 delta_L xg yg Lg % 17 KIT WDN_WN 60cd/m**2 00 0 0 110034 0.3185 0.3344 0.1050E+01 0.3150E+01 0.35E-02 0.31E-02 0.40E-01 30 1 1 1 11 0.1200E+00 0.3172 0.3302 0.6000E+02 115214 0.3185 0.3282 0.1700E+01 0.5100E+01 0.15E-02 0.14E-02 0.40E-01 30 1 1 1 11 0.1200E+00 0.3172 0.3302 0.6000E+02 120204 0.3187 0.3341 0.2810E+01 0.8430E+01 0.10E-02 0.19E-02 0.60E-01 30 1 1 1 11 0.1800E+00 0.3172 0.3302 0.6000E+02 125194 0.3207 0.3352 0.4170E+01 0.1251E+02 0.92E-03 0.78E-03 0.50E-01 30 1 1 1 11 0.1500E+00 0.3172 0.3302 0.6000E+02 130184 0.3205 0.3347 0.5890E+01 0.1767E+02 0.85E-03 0.74E-03 0.60E-01 30 1 1 1 11 0.1800E+00 0.3172 0.3302 0.6000E+02 135174 0.3195 0.3351 0.8150E+01 0.2445E+02 0.79E-03 0.67E-03 0.80E-01 30 1 1 1 11 0.2400E+00 0.3172 0.3302 0.6000E+02 140164 0.3176 0.3321 0.1056E+02 0.3168E+02 0.71E-03 0.32E-03 0.70E-01 30 1 1 1 11 0.2100E+00 0.3172 0.3302 0.6000E+02 145154 0.3185 0.3368 0.1469E+02 0.4407E+02 0.61E-03 0.29E-03 0.90E-01 30 1 1 1 11 0.2700E+00 0.3172 0.3302 0.6000E+02 150014 0.3172 0.3302 0.1745E+02 0.5235E+02 0.67E-03 0.58E-03 0.15E+00 30 1 1 1 11 0.4500E+00 0.3172 0.3302 0.6000E+02 155084 0.3168 0.3314 0.2189E+02 0.6567E+02 0.59E-03 0.36E-03 0.14E+00 30 1 1 1 11 0.4200E+00 0.3172 0.3302 0.6000E+02 160094 0.3171 0.3333 0.2719E+02 0.8157E+02 0.44E-03 0.37E-03 0.15E+00 30 1 1 1 11 0.4500E+00 0.3172 0.3302 0.6000E+02 165104 0.3181 0.3333 0.3194E+02 0.9582E+02 0.42E-03 0.35E-03 0.18E+00 30 1 1 1 11 0.5400E+00 0.3172 0.3302 0.6000E+02 170114 0.3178 0.3347 0.3842E+02 0.1153E+03 0.38E-03 0.31E-03 0.19E+00 30 1 1 1 11 0.5700E+00 0.3172 0.3302 0.6000E+02 175124 0.3171 0.3335 0.4567E+02 0.1370E+03 0.38E-03 0.31E-03 0.23E+00 30 1 1 1 11 0.6900E+00 0.3172 0.3302 0.6000E+02 180134 0.3173 0.3340 0.5363E+02 0.1609E+03 0.35E-03 0.35E-03 0.27E+00 30 1 1 1 11 0.8100E+00 0.3172 0.3302 0.6000E+02 185144 0.3166 0.3322 0.6215E+02 0.1865E+03 0.42E-03 0.31E-03 0.31E+00 30 1 1 1 11 0.9300E+00 0.3172 0.3302 0.6000E+02 190024 0.3163 0.3341 0.7418E+02 0.2225E+03 0.46E-03 0.37E-03 0.44E+00 30 1 1 1 11 0.1320E+01 0.3172 0.3302 0.6000E+02 % 17 KIT WDN_RC 60cd/m**2 00 0 0 110031 0.3185 0.3344 0.1050E+01 0.3150E+01 0.33E-02 -0.10E-04 0.10E-01 30 1 1 1 11 0.3000E-01 0.3172 0.3302 0.6000E+02 115211 0.3185 0.3282 0.1700E+01 0.5100E+01 0.70E-03 0.66E-03 0.10E-01 30 1 1 1 11 0.3000E-01 0.3172 0.3302 0.6000E+02 120201 0.3187 0.3341 0.2810E+01 0.8430E+01 0.12E-02 -0.28E-05 0.10E-01 30 1 1 1 11 0.3000E-01 0.3172 0.3302 0.6000E+02 125191 0.3207 0.3352 0.4170E+01 0.1251E+02 0.83E-03 -0.45E-05 0.10E-01 30 1 1 1 11 0.3000E-01 0.3172 0.3302 0.6000E+02 130181 0.3205 0.3347 0.5890E+01 0.1767E+02 0.59E-03 -0.22E-05 0.10E-01 30 1 1 1 11 0.3000E-01 0.3172 0.3302 0.6000E+02 135171 0.3195 0.3351 0.8150E+01 0.2445E+02 0.71E-03 -0.14E-03 0.10E-01 30 1 1 1 11 0.3000E-01 0.3172 0.3302 0.6000E+02 140161 0.3176 0.3321 0.1056E+02 0.3168E+02 0.54E-03 -0.10E-03 0.10E-01 30 1 1 1 11 0.3000E-01 0.3172 0.3302 0.6000E+02 145151 0.3185 0.3368 0.1469E+02 0.4407E+02 0.40E-03 -0.80E-04 0.10E-01 30 1 1 1 11 0.3000E-01 0.3172 0.3302 0.6000E+02 150011 0.3172 0.3302 0.1745E+02 0.5235E+02 0.72E-03 -0.57E-04 0.30E-01 30 1 1 1 11 0.9000E-01 0.3172 0.3302 0.6000E+02 155081 0.3168 0.3314 0.2189E+02 0.6567E+02 0.52E-03 -0.98E-04 0.20E-01 30 1 1 1 11 0.6000E-01 0.3172 0.3302 0.6000E+02 160091 0.3171 0.3333 0.2719E+02 0.8157E+02 0.47E-03 -0.41E-04 0.30E-01 30 1 1 1 11 0.9000E-01 0.3172 0.3302 0.6000E+02 165101 0.3181 0.3333 0.3194E+02 0.9582E+02 0.47E-03 -0.69E-04 0.30E-01 30 1 1 1 11 0.9000E-01 0.3172 0.3302 0.6000E+02 170111 0.3178 0.3347 0.3842E+02 0.1153E+03 0.48E-03 -0.60E-04 0.40E-01 30 1 1 1 11 0.1200E+00 0.3172 0.3302 0.6000E+02 175121 0.3171 0.3335 0.4567E+02 0.1370E+03 0.46E-03 -0.73E-04 0.40E-01 30 1 1 1 11 0.1200E+00 0.3172 0.3302 0.6000E+02 180131 0.3173 0.3340 0.5363E+02 0.1609E+03 0.37E-03 -0.21E-04 0.50E-01 30 1 1 1 11 0.1500E+00 0.3172 0.3302 0.6000E+02 185141 0.3166 0.3322 0.6215E+02 0.1865E+03 0.48E-03 -0.70E-04 0.60E-01 30 1 1 1 11 0.1800E+00 0.3172 0.3302 0.6000E+02 190021 0.3163 0.3341 0.7418E+02 0.2225E+03 0.61E-03 -0.91E-04 0.90E-01 30 1 1 1 11 0.2700E+00 0.3172 0.3302 0.6000E+02 % 17 KIT WDN_GM 60cd/m**2 00 0 0 110032 0.3185 0.3344 0.1050E+01 0.3150E+01 -0.20E-02 0.42E-02 0.20E-01 30 1 1 1 11 0.6000E-01 0.3172 0.3302 0.6000E+02 115212 0.3185 0.3282 0.1700E+01 0.5100E+01 -0.12E-02 0.26E-02 0.20E-01 30 1 1 1 11 0.6000E-01 0.3172 0.3302 0.6000E+02 120202 0.3187 0.3341 0.2810E+01 0.8430E+01 -0.11E-02 0.24E-02 0.30E-01 30 1 1 1 11 0.9000E-01 0.3172 0.3302 0.6000E+02 125192 0.3207 0.3352 0.4170E+01 0.1251E+02 -0.10E-02 0.13E-02 0.30E-01 30 1 1 1 11 0.9000E-01 0.3172 0.3302 0.6000E+02 130182 0.3205 0.3347 0.5890E+01 0.1767E+02 0.22E-04 0.56E-03 0.20E-01 30 1 1 1 11 0.6000E-01 0.3172 0.3302 0.6000E+02 135172 0.3195 0.3351 0.8150E+01 0.2445E+02 -0.25E-03 0.54E-03 0.30E-01 30 1 1 1 11 0.9000E-01 0.3172 0.3302 0.6000E+02 140162 0.3176 0.3321 0.1056E+02 0.3168E+02 -0.30E-03 0.63E-03 0.30E-01 30 1 1 1 11 0.9000E-01 0.3172 0.3302 0.6000E+02 145152 0.3185 0.3368 0.1469E+02 0.4407E+02 -0.21E-03 0.45E-03 0.40E-01 30 1 1 1 11 0.1200E+00 0.3172 0.3302 0.6000E+02 150012 0.3172 0.3302 0.1745E+02 0.5235E+02 -0.22E-03 0.70E-03 0.70E-01 30 1 1 1 11 0.2100E+00 0.3172 0.3302 0.6000E+02 155082 0.3168 0.3314 0.2189E+02 0.6567E+02 -0.18E-03 0.41E-03 0.50E-01 30 1 1 1 11 0.1500E+00 0.3172 0.3302 0.6000E+02 160092 0.3171 0.3333 0.2719E+02 0.8157E+02 -0.19E-03 0.41E-03 0.60E-01 30 1 1 1 11 0.1800E+00 0.3172 0.3302 0.6000E+02 165102 0.3181 0.3333 0.3194E+02 0.9582E+02 -0.19E-03 0.52E-03 0.90E-01 30 1 1 1 11 0.2700E+00 0.3172 0.3302 0.6000E+02 170112 0.3178 0.3347 0.3842E+02 0.1153E+03 -0.13E-03 0.38E-03 0.80E-01 30 1 1 1 11 0.2400E+00 0.3172 0.3302 0.6000E+02 175122 0.3171 0.3335 0.4567E+02 0.1370E+03 -0.18E-03 0.46E-03 0.11E+00 30 1 1 1 11 0.3300E+00 0.3172 0.3302 0.6000E+02 180132 0.3173 0.3340 0.5363E+02 0.1609E+03 -0.19E-03 0.48E-03 0.13E+00 30 1 1 1 11 0.3900E+00 0.3172 0.3302 0.6000E+02 185142 0.3166 0.3322 0.6215E+02 0.1865E+03 -0.14E-03 0.37E-03 0.13E+00 30 1 1 1 11 0.3900E+00 0.3172 0.3302 0.6000E+02 190022 0.3163 0.3341 0.7418E+02 0.2225E+03 -0.22E-03 0.52E-03 0.21E+00 30 1 1 1 11 0.6300E+00 0.3172 0.3302 0.6000E+02 % 17 KIT WDN_BY 60cd/m**2 00 0 0 110033 0.3185 0.3344 0.1050E+01 0.3150E+01 -0.56E-02 -0.12E-01 0.00E+00 30 1 1 1 11 0.0000E+00 0.3172 0.3302 0.6000E+02 115213 0.3185 0.3282 0.1700E+01 0.5100E+01 -0.47E-02 -0.68E-02 0.00E+00 30 1 1 1 11 0.0000E+00 0.3172 0.3302 0.6000E+02 120203 0.3187 0.3341 0.2810E+01 0.8430E+01 -0.29E-02 -0.43E-02 0.10E-01 30 1 1 1 11 0.3000E-01 0.3172 0.3302 0.6000E+02 125193 0.3207 0.3352 0.4170E+01 0.1251E+02 -0.17E-02 -0.35E-02 0.00E+00 30 1 1 1 11 0.0000E+00 0.3172 0.3302 0.6000E+02 130183 0.3205 0.3347 0.5890E+01 0.1767E+02 -0.10E-02 -0.23E-02 0.00E+00 30 1 1 1 11 0.0000E+00 0.3172 0.3302 0.6000E+02 135173 0.3195 0.3351 0.8150E+01 0.2445E+02 -0.11E-02 -0.25E-02 0.00E+00 30 1 1 1 11 0.0000E+00 0.3172 0.3302 0.6000E+02 140163 0.3176 0.3321 0.1056E+02 0.3168E+02 -0.95E-03 -0.20E-02 0.00E+00 30 1 1 1 11 0.0000E+00 0.3172 0.3302 0.6000E+02 145153 0.3185 0.3368 0.1469E+02 0.4407E+02 -0.77E-03 -0.15E-02 0.00E+00 30 1 1 1 11 0.0000E+00 0.3172 0.3302 0.6000E+02 150013 0.3172 0.3302 0.1745E+02 0.5235E+02 -0.86E-03 -0.15E-02 0.10E-01 30 1 1 1 11 0.2999E-01 0.3172 0.3302 0.6000E+02 155083 0.3168 0.3314 0.2189E+02 0.6567E+02 -0.54E-03 -0.12E-02 0.00E+00 30 1 1 1 11 0.0000E+00 0.3172 0.3302 0.6000E+02 160093 0.3171 0.3333 0.2719E+02 0.8157E+02 -0.71E-03 -0.13E-02 0.10E-01 30 1 1 1 11 0.3000E-01 0.3172 0.3302 0.6000E+02 165103 0.3181 0.3333 0.3194E+02 0.9582E+02 -0.79E-03 -0.14E-02 0.20E-01 30 1 1 1 11 0.6000E-01 0.3172 0.3302 0.6000E+02 170113 0.3178 0.3347 0.3842E+02 0.1153E+03 -0.73E-03 -0.14E-02 0.20E-01 30 1 1 1 11 0.6000E-01 0.3172 0.3302 0.6000E+02 175123 0.3171 0.3335 0.4567E+02 0.1370E+03 -0.77E-03 -0.15E-02 0.10E-01 30 1 1 1 11 0.3001E-01 0.3172 0.3302 0.6000E+02 180133 0.3173 0.3340 0.5363E+02 0.1609E+03 -0.75E-03 -0.14E-02 0.20E-01 30 1 1 1 11 0.6000E-01 0.3172 0.3302 0.6000E+02 185143 0.3166 0.3322 0.6215E+02 0.1865E+03 -0.76E-03 -0.14E-02 0.20E-01 30 1 1 1 11 0.5999E-01 0.3172 0.3302 0.6000E+02 190023 0.3163 0.3341 0.7418E+02 0.2225E+03 -0.79E-03 -0.15E-02 0.30E-01 30 1 1 1 11 0.9000E-01 0.3172 0.3302 0.6000E+02 ] 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 %%EndProlog gsave /lanind 1 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} {/xcolor1 3 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 gsave 0 1 2 {/xchart exch def %xchart=0,8 3x3 plots /MDK3 xchart def %0,1,2 for plots log dL, log L/dL, L/dL /MD 0 def %0=60cd/m**2 /MDK 0 def %0=60cd/m**2 gsave 5 /Times-ISOL1 FS /cvishow {cvi 6 string cvs show} def %75 85 moveto %lanind cvishow (-) show %colorm cvishow %deintp cvishow %xcolor cvishow %xchart cvishow %pchart cvishow %colsep cvishow (-L) show pmetam cvishow 5 /Times-ISOL1 FS %175 85 moveto (UE051-7R) show %xchart 0 eq {(R) show} % {deintp colorm 2 mul add cvishow} ifelse 72 90 translate 0.01 MM dup scale 30 setlinewidth 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 /xchartl 14 def %0 1 15 {/xchartl exch def %xchartl=0,15 gsave % 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 150 /Times-ISOL1 FS 0 setgray 300 -150 moveto xchartl 7 le {(UE051-) show} {(UE051-) show} ifelse xchartl 0 ge xchartl 7 le and {xchartl 1 add cvishow} if xchartl 8 ge xchartl 15 le and {xchartl 7 sub cvishow} if (A) show %A (_) show xchart 1 add cvishow 0 setlinewidth 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath clip 20 setlinewidth 0 0 xwidth ywidth 0.0 0.0 0.0 1.0 colrecst %frame black %******************************************** /xt0 50 def /yt0 3750 def /xt1 1000 def /xt2 1250 def /ytd 300 def xt0 yt0 moveto TBM tfw MDK3 0 eq {%MDK3=0 TBM (log [) show SM (D) show TBIM (L, ) show SM (D) show TBIM (a L, ) show SM (D) show TBIM (b L) show TBM ( ]) show %(luminance difference) showen %(Leuchtdichte\255Diffenz\255) showde xt0 yt0 ytd 1 mul sub moveto TBM (3 difference thresholds) showen TBM (3 Differenzrenzschwelle) showde } if %MDK3=0 MDK3 1 eq {%MDK3=1 TBM (log [) show TBIM (L/) show SM (D) show TBIM (L, ) show TBIM (L/\050) show SM (D) show TBIM (a L\051, ) show TBIM (L/\050) show SM (D) show TBIM (b L\051) show TBM ( ]) show %(luminance contrast) showen %(Leuchtdichte\255Kontrast\255) showde xt0 yt0 ytd 1 mul sub moveto TBM (3 sensitivity thresholds) showen TBM (3 Empfindlichkeitsschwellen) showde } if %MDK3=1 MDK3 2 eq {%MDK3=2 TBIM (L/) show SM (D) show TBIM (L, ) show TBIM (L/\050) show SM (D) show TBIM (a L\051, ) show TBIM (L/\050) show SM (D) show TBIM (b L\051) show %(luminance contrast) showen %(Leuchtdichte\255Kontrast\255) showde xt0 150 sub yt0 ytd 1 mul sub moveto TBM (3 sensitivity thresholds) showen TBM (3 Empfindlichkeitsschwellen) showde } if %MDK3=2 tfn MDK3 0 eq {/xa1 300 def} %for tables {/xa1 200 def} ifelse /ishowg {0 -50 rmoveto TBM (g) show 0 50 rmoveto} def /ishowp {0 -50 rmoveto TBM (p) show 0 50 rmoveto} def /eshow2 {-30 100 rmoveto TBK (2) show 0 100 rmoveto} def newpath /xa2 3950 def /ya2 yt0 100 sub def xa2 100 sub ya2 130 add 50 00 360 arc fill newpath tfw xa2 ya2 moveto TBIK (L) show ishowg TBK (=60cd/m) show eshow2 tfw 550 400 translate 50 setlinewidth 0 0 moveto 700 6 mul 0 rlineto stroke 0 0 moveto 0 700 4 mul rlineto stroke TBM /tx [(-3) (-2) (-1) ( 0) ( 1) ( 2) ( 3)] def /ty [(-2) (-1) ( 0) ( 1) ( 2) ( 3)] def /ty5 [( 0) (100) (200) (300) (400) (500) (600) (700)] def %!x-Achse: 1 log-Einheiten = 700 Skalen-Einheiten 0 1 5 {/i exch def /ixt { -250 i 0700 mul add} def /ixl { 000 i 0700 mul add} def ixt -350 moveto tx i get exec show ixl 75 moveto 0 -150 rlineto stroke } for %!y-Achse: 1 log-Einheiten = 700 Skalen-Einheiten 0 1 4 {/i exch def /iyt {-120 i 0700 mul add} def /iyl { 000 i 0700 mul add} def MDK3 1 le {%MDK3<=1 -450 iyt moveto ty i get exec show } if %MDK3<=1 MDK3 2 eq {%MDK3=2 -450 iyt moveto ty5 i get exec show } if %MDK3=2 -75 iyl moveto 150 0 rlineto stroke } for 50 setlinewidth 3900 -250 moveto (x) TBIM tfw show 20 0 rmoveto (=) TBM tfw show 20 0 rmoveto (log) TBM tfw show 30 0 rmoveto TBIM (L) show /ishowg {0 -50 rmoveto TBM (g) show 0 50 rmoveto} def /ishowp {0 -50 rmoveto TBM (p) show 0 50 rmoveto} def /eshow2 {0 100 rmoveto TBK (2) show 0 100 rmoveto} def /eshowA2 {0 100 rmoveto TBK (A2) show 0 100 rmoveto} def /yd 300 def MDK3 0 eq MDK3 2 eq or {%MDK3=0,2 %table 1 left /xt10 200 def /xt11 500 def /xt12 1100 def /yt10 2750 def %table 2 right /xt20 1800 def /yt20 2750 def } if %MDK3=0,2 MDK3 1 eq {%MDK3=1 %table 1 right /xt10 3200 def /xt11 3500 def /xt12 4100 def /yt10 2050 def %table 2 left /xt20 200 def /yt20 2700 def } if %MDK3=1 tfw xt11 yt10 moveto TBIM (x) show xt12 yt10 moveto TBIM (y) show tfw xt10 yt10 yd sub moveto (A) show tfw xt11 yt10 yd sub moveto (0,32) show xt12 yt10 yd sub moveto (0,36) show xt10 yt10 yd 2 mul sub moveto (experiments:) show xchartl 00 eq xchartl 08 eq or {/xchartx1 00 def} if %WDN_WN xchartl 01 eq xchartl 09 eq or {/xchartx1 01 def} if %WDN_RC xchartl 02 eq xchartl 10 eq or {/xchartx1 02 def} if %WDN_GM xchartl 03 eq xchartl 11 eq or {/xchartx1 03 def} if %WDN_BY xchartl 04 eq xchartl 12 eq or {/xchartx1 00 def} if %WDN_WN xchartl 05 eq xchartl 13 eq or {/xchartx1 01 def} if %WDN_RC xchartl 06 eq xchartl 14 eq or {/xchartx1 02 def} if %WDN_GM xchartl 07 eq xchartl 15 eq or {/xchartx1 03 def} if %WDN_BY tfw xt20 yt20 yd 0 mul sub moveto (Exp.: ) show xchartl 08 eq {(WDN_WN) show} if xchartl 09 eq {(WDN-RC) show} if xchartl 10 eq {(WDN_GM) show} if xchartl 11 eq {(WDN_BY) show} if xchartl 12 eq {(WDN_WN) show} if xchartl 13 eq {(WDN_RC) show} if xchartl 14 eq {(WDN_GM) show} if xchartl 15 eq {(WDN_BY,TM,BY) show} if tfw xt20 yt20 yd 1 mul sub moveto (30 5s ) show xt20 yt20 yd 2 mul sub moveto (average) showen (Mittel) showde newpath /xfact 700 def MDK3 0 eq MDK3 1 eq or {/yfact 700 def} if MDK3 2 eq {/yfact 07 def} if tfn 60 log 3 add xfact mul 0 50 00 360 arc fill /xgr 17 array def /ygr 17 array def /ygs 17 array def /ygp 17 array def /ygm 17 array def /xga 17 array def /yga 17 array def /xanGi 17 array def %usually constant for i! /yanGi 17 array def /zanGi 17 array def /YGi 17 array def /YLGi 17 array def /aanGi 17 array def /banGi 17 array def /cabGi 17 array def /xanFi 17 array def /yanFi 17 array def /zanFi 17 array def /YFi 17 array def /YLFi 17 array def /xanPi 17 array def /yanPi 17 array def /zanPi 17 array def /YPi 17 array def /YLPi 17 array def /aanFi 17 array def /banFi 17 array def /cabFi 17 array def /aanPi 17 array def /banPi 17 array def /cabPi 17 array def /DxanFPi 17 array def /DyanFPi 17 array def /DYFPi 17 array def /DYLFPi 17 array def /DaanFPi 17 array def /DbanFPi 17 array def /DcabFPi 17 array def /DxanFGi 17 array def /DyanFGi 17 array def /DYFGi 17 array def /DYLFGi 17 array def /DaanFGi 17 array def /DbanFGi 17 array def /DcabFGi 17 array def /ver {00 -70 rmoveto 0 140 rlineto stroke} def /hor {-70 0 rmoveto 140 0 rlineto stroke} def /dgr {-50 -50 rmoveto 100 100 rlineto stroke} def /dgl {-50 50 rmoveto 100 -100 rlineto stroke} def /xs2 2 def /ys2 2 def /xs3 3 def /ys3 3 def xchartl 7 le {/KJ 0 def} {/KJ 1 def} ifelse 0 1 KJ {/kx exch def %kx=0,1 %kx 1 eq {%kx=1 /A1 04 array def %for 11 data sets for 3 illuminants (630, 63, 6.3cd/m**2) /A2 04 array def /A3 04 array def /ALPHA 04 array def %change of j=0 -> j=0,1,2,3 %AUKI_HPPOTXY2_L5.FOR, IN/OUT AUKI_HPPOTXY2_L5.DAT'/.TXT/.LIS %LM0,KX,JM,X00(J),(3I3,6F7.4): %040 99 02 0.1000 1.1000 0.1960 %040 99 03 0.1000 1.1000 0.1960 %040 99 02 0.0095 1.4050 1.7500 %LM0,KX,JM,(X00(J),J=1,6): 40 10 3 0.0030 1.8000 0.3238 0.0000 0.0000 0.0000 %% Steering: (IDATA(I),I=1,5),xyYLcx,xyYLGi,CIELAB,LABJND 1 0 0 0 0 %%THIS FILE KITTDA08_AL.LIS (change and sort of KITTDA08.TXT for achrom. colo %% Programm: KITTDA08.FOR 2014_04_01 %% Output file: KITTDA08.TXT 2014_04_01 %%000000 1 2 3 4 5 6 7 %%123456789012345678901234567890123456789012345678901234567890123456789012345 %%110000 x y Y L delta_x delta_y delta_Y ObR %EQUATIONS USED %F(I)=A3+A1*Y(I)**A2 %A(I,1)=Y(I)**A2 %C d/dx a**x = a**x * ln(a) %A(I,2)=A1*Y(I)**A2*ALOG(Y(I)) %A(I,3)=1. %A(I,JMP)=V(I)-F(I) % % %17 KIT WDN_WN 60cd/m**2 00 0 0,LM0,KX,JM,JNR,IM: 40 10 3 0 17 %BEG X0K,J=1,6 0.3000E-02 0.1800E+01 0.1320E+01 0.0000E+00 0.0000E+00 0.0000E+00 %BEG ALPHA= 0.1585E+01 %END X(I),I=1,JM 0.3927E-06-0.9668E-04-0.2764E-04 %END X0K,J=1,6 0.3778E-02 0.1037E+01 0.1110E+00 0.0000E+00 0.0000E+00 0.0000E+00 %END ALPHA= 0.2617E-02 ALPHA 0 0.2617E-02 put A1 0 0.3778E-02 put A2 0 0.1037E+01 put A3 0 0.1110E+00 put %AUKI_HPPOTXY4_L5.FOR, IN/OUT AUKI_HPPOTXY4_L5.DAT'/.TXT/.LIS %LM0,KX,JM,X00(J),(3I3,6F7.4): %040 99 02 0.1000 1.1000 0.1960 %040 99 03 0.1000 1.1000 0.1960 %040 99 02 0.0095 1.4050 1.7500 %LM0,KX,JM,(X00(J),J=1,6): 40 10 3 0.0030 1.8000 0.3238 0.0000 0.0000 0.0000 %% Steering: (IDATA(I),I=1,5),xyYLcx,xyYLGi,CIELAB,LABJND 1 0 0 0 0 %%THIS FILE KITDA08_AL.LIS (change and sort of KITTDA08.TXT for achrom. colou %% Programm: KITTDA08.FOR 2014_04_01 %% Output file: KITTDA08.TXT 2014_04_01 %%000000 1 2 3 4 5 6 7 %%123456789012345678901234567890123456789012345678901234567890123456789012345 %%110000 x y Y L delta_x delta_y delta_Y ObR %EQUATIONS USED %F(I)=A3+A1*Y(I)**A2 %A(I,1)=Y(I)**A2 %C d/dx a**x = a**x * ln(a) %A(I,2)=A1*Y(I)**A2*ALOG(Y(I)) %A(I,3)=1. %A(I,JMP)=V(I)-F(I) % % %17 KIT WDN_RC 60cd/m**2 00 0 0,LM0,KX,JM,JNR,IM: 40 10 3 0 17 %BEG X0K,J=1,6 0.3000E-02 0.1800E+01 0.4637E+00 0.0000E+00 0.0000E+00 0.0000E+00 %BEG ALPHA= 0.3237E+01 %END X(I),I=1,JM-0.4549E-06-0.9523E-04-0.2023E-05 %END X0K,J=1,6 0.1433E-02 0.1031E+01 0.3573E-02 0.0000E+00 0.0000E+00 0.0000E+00 %END ALPHA= 0.9982E-01 ALPHA 1 0.9982E-01 put A1 1 0.1433E-02 put A2 1 0.1031E+01 put A3 1 0.3573E-02 put %AUKI_HPPOTXY6_L5.FOR, IN/OUT AUKI_HPPOTXY6_L5.DAT'/.TXT/.LIS %LM0,KX,JM,X00(J),(3I3,6F7.4): %040 99 02 0.1000 1.1000 0.1960 %040 99 03 0.1000 1.1000 0.1960 %040 99 02 0.0095 1.4050 1.7500 %LM0,KX,JM,(X00(J),J=1,6): 40 10 3 0.0030 1.8000 0.3238 0.0000 0.0000 0.0000 %% Steering: (IDATA(I),I=1,5),xyYLcx,xyYLGi,CIELAB,LABJND 1 0 0 0 0 %%THIS FILE KITTDA06_AL.LIS (change and sort of KITTDA06.TXT; chrom. colours %% Programm: KITTDA08.FOR 2014_04_01 %% Output file: KITTDA08.TXT 2014_04_01 %%000000 1 2 3 4 5 6 7 %%123456789012345678901234567890123456789012345678901234567890123456789012345 %%110000 x y Y L delta_x delta_y delta_Y ObR %EQUATIONS USED %F(I)=A3+A1*Y(I)**A2 %A(I,1)=Y(I)**A2 %C d/dx a**x = a**x * ln(a) %A(I,2)=A1*Y(I)**A2*ALOG(Y(I)) %A(I,3)=1. %A(I,JMP)=V(I)-F(I) % % %17 KIT WDN_GM 60cd/m**2 00 0 0,LM0,KX,JM,JNR,IM: 40 10 3 0 17 %BEG X0K,J=1,6 0.3000E-02 0.1800E+01 0.4736E+00 0.0000E+00 0.0000E+00 0.0000E+00 %BEG ALPHA= 0.2584E+01 %END X(I),I=1,JM-0.4081E-07-0.9849E-04-0.2176E-04 %END X0K,J=1,6 0.1231E-03 0.1488E+01 0.5506E-01 0.0000E+00 0.0000E+00 0.0000E+00 %END ALPHA= 0.1448E-01 ALPHA 2 0.1448E-01 put A1 2 0.1231E-03 put A2 2 0.1488E+01 put A3 2 0.5506E-01 put %AUKI_HPPOTXY8_L5.FOR, IN/OUT AUKI_HPPOTXY8_L5.DAT'/.TXT/.LIS %LM0,KX,JM,X00(J),(3I3,6F7.4): %040 99 02 0.1000 1.1000 0.1960 %040 99 03 0.1000 1.1000 0.1960 %040 99 02 0.0095 1.4050 1.7500 %LM0,KX,JM,(X00(J),J=1,6): 40 10 3 0.0030 1.8000 0.3238 0.0000 0.0000 0.0000 %% Steering: (IDATA(I),I=1,5),xyYLcx,xyYLGi,CIELAB,LABJND 1 0 0 0 0 %%THIS FILE KITTDA08_AL.LIS (change and sort of KITTDA08.TXT; chrom. colours %% Programm: KITTDA08.FOR 2014_04_01 %% Output file: KITTDA08.TXT 2014_04_01 %%000000 1 2 3 4 5 6 7 %%123456789012345678901234567890123456789012345678901234567890123456789012345 %%110000 x y Y L delta_x delta_y delta_Y ObR %EQUATIONS USED %F(I)=A3+A1*Y(I)**A2 %A(I,1)=Y(I)**A2 %C d/dx a**x = a**x * ln(a) %A(I,2)=A1*Y(I)**A2*ALOG(Y(I)) %A(I,3)=1. %A(I,JMP)=V(I)-F(I) % % %17 KIT WDN_BY 60cd/m**2 00 0 0,LM0,KX,JM,JNR,IM: 40 10 3 0 17 %BEG X0K,J=1,6 0.3000E-02 0.1800E+01 0.1033E+01 0.0000E+00 0.0000E+00 0.0000E+00 %BEG ALPHA= 0.1758E+01 %END X(I),I=1,JM-0.7103E-06-0.7519E-04-0.9748E-04 %END X0K,J=1,6 0.5130E-03 0.1388E+01 0.1134E+00 0.0000E+00 0.0000E+00 0.0000E+00 %END ALPHA= 0.1159E-02 ALPHA 3 0.1159E-02 put A1 3 0.5130E-03 put A2 3 0.1388E+01 put A3 3 0.1134E+00 put %} if %kx=1 /xchartl3 xchartl 4 idiv def %0..3 /IM 16 def /JM 0 def /j 0 def 0 1 JM {/j exch def %j=0,JM /jx xchartl xchartl 4 idiv 4 mul sub def %0..3 /k17_17 17 jx mul 17 mul def 0 1 IM {/i exch def %i=0,IM /j0 i 17 mul k17_17 add def xanFi i AVR2DA05 j0 01 add get put yanFi i AVR2DA05 j0 02 add get put zanFi i 1 xanFi i get sub yanFi i get sub put zanFi i get 0 le {zanFi i 0.0001 put} if YFi i AVR2DA05 j0 03 add get put YLFi i AVR2DA05 j0 04 add get put DxanFPi i AVR2DA05 j0 05 add get put DyanFPi i AVR2DA05 j0 06 add get put DYFPi i AVR2DA05 j0 07 add get put DYLFPi i AVR2DA05 j0 13 add get put xanGi i AVR2DA05 j0 14 add get put yanGi i AVR2DA05 j0 15 add get put zanGi i 1 xanGi i get sub yanGi i get sub put zanGi i get 0 le {zanGi i 0.0001 put} if YGi i AVR2DA05 j0 16 add get put xanPi i xanFi i get DxanFPi i get add put yanPi i yanFi i get DyanFPi i get add put zanPi i 1 xanPi i get sub yanPi i get sub put zanPi i get 0 le {zanPi i 0.0001 put} if YPi i YFi i get DYFPi i get add put YLPi i YLFi i get DYLFPi i get add put aanFi i xanFi i get yanFi i get 0.0001 add div put banFi i zanFi i get yanFi i get 0.0001 add div -0.4 mul put aanPi i xanPi i get yanPi i get 0.0001 add div put banPi i zanPi i get yanPi i get 0.0001 add div -0.4 mul put DaanFPi i aanFi i get aanPi i get sub put DbanFPi i banFi i get banPi i get sub put DcabFPi i DaanFPi i get dup mul DbanFPi i get dup mul add 0.000001 add 0.5 exp put aanGi i xanGi i get yanGi i get 0.0001 add div put banGi i zanGi i get yanGi i get 0.0001 add div -0.4 mul put DaanFGi i aanFi i get aanGi i get sub put DbanFGi i banFi i get banGi i get sub put DcabFGi i DaanFGi i get dup mul DbanFGi i get dup mul add 0.000001 add 0.5 exp put %allways: xgr i YLFi i get put xga i xgr i get put MDK3 0 eq {%MDK3=0 dL, delta_a*L, delta_b*L jx 0 eq {%DLi ygr i DYLFPi i get put yga i ygr i get put } if %DLi jx 1 eq {%DaanFPi*Li ygr i DaanFPi i get abs YLFi i get mul put yga i ygr i get put } if %DaanFPi*Li jx 2 eq {%DaanFPi*Li ygr i DaanFPi i get abs YLFi i get mul put yga i ygr i get put } if %DaanFPi*Fi jx 3 eq {%DbanFPi*Li ygr i DbanFPi i get abs YLFi i get mul put yga i ygr i get put } if %DbanFPi*Li } if %MDK3=0 dL MDK3 1 eq MDK3 2 eq or {%MDK3=1,2 L/dL log and linear jx 0 eq {%DLi ygr i xgr i get DYLFPi i get div put yga i DYLFPi i get put } if %DLi jx 1 eq {%DaanFPi*Li ygr i xgr i get DaanFPi i get abs YLFi i get mul div put yga i DaanFPi i get abs YLFi i get mul put } if %DaanFi*Li jx 2 eq {%DaanFPi*Li ygr i xgr i get DaanFPi i get abs YLFi i get mul div put yga i DaanFPi i get abs YLFi i get mul put } if %DaanFi*Fi jx 3 eq {%DbanFPi*Li ygr i xgr i get DbanFPi i get abs YLFi i get mul div put yga i DbanFPi i get abs YLFi i get mul put } if %DbanFPi*Li } if %MDK3=0 L/dL } for %i=0,IM 0 1 IM {/i exch def %i=0,IM /ig i 2 idiv 2 mul def jx 0 eq {i ig eq {tfn}{tfw} ifelse} if jx 1 eq {i ig eq {tfr}{tfc} ifelse} if jx 2 eq {i ig eq {tfg}{tfm} ifelse} if jx 3 eq {i ig eq {tfb}{tfy} ifelse} if xgr i get log xs3 add xfact mul ygr i get 0.001 add MDK3 1 le {log} if ys2 add yfact mul moveto dgr xgr i get log xs3 add xfact mul ygr i get 0.001 add MDK3 1 le {log} if ys2 add yfact mul moveto dgl } for %i=0,IM kx 1 eq {%kx=1 50 setlinewidth 0 1 IM {/i exch def %i=0,IM MDK3 0 eq {%MDK3=0 dL ygr i A3 jx get A1 jx get xga i get A2 jx get exp mul add put } if %MDK3=0 dL MDK3 1 eq MDK3 2 eq or {%MDK3=1,2 L/dL log and linear ygr i xga i get A3 jx get A1 jx get xga i get A2 jx get exp mul add div put } if %MDK3=0 L/dL xchart 3 ge {%xchart>=2 500 3600 i 200 mul sub moveto xgr i get cvsshow2 (, ) show xga i get cvsshow2 (, ) show yga i get cvsshow2 (, ) show ygr i get cvsshow2 (, ) show } if %xchart>=2 } for %i=0,IM 0 1 IM {/i exch def %i=0,IM xgr i get log xs3 add xfact mul ygr i get 0.001 add MDK3 1 le {log} if ys2 add yfact mul i 00 eq {moveto} if i 01 gt i IM lt and {lineto} if i IM eq {lineto stroke} if } for %i=0,IM xchartl 8 ge {%xchartl>=8 TBK j 0 eq {%j=0 /xa3 xa1 100 sub def /ya3 1750 def newpath tfn xa3 ya3 moveto (F=A3+A1*L) show (A2) eshowA2 xa3 ya3 250 sub moveto (Daten & P-A3-Fit) showde (data & P-A3-fit) showen xa3 100 add ya3 500 sub moveto TBK (A1 A2 A3) show ( ) show SK (D) show TK } if %j=0 newpath tfn xa3 ya3 750 sub moveto TK A1 jx get cvsshow3 ( ) show A2 jx get cvsshow3 ( ) show A3 jx get cvsshow3 ( ) show ALPHA jx get cvsshow3 tfw newpath } if %xchartl>=8 } if %kx=1 } for %j=0,JM } for %kx=0,1 tfn 60 log 3 add xfact mul 0 50 00 360 arc fill 550 neg 400 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 grestore %} for %xchartl=0,15 showpage grestore } for %xchart=0,2 for MDK: 0=6,3cd/m**2 %%Trailer