%!PS-Adobe-3.0 EPSF-3.0 CGI80-7N.EPS %%BoundingBox: 70 80 750 590 %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://farbe.li.tu-berlin.de/CGI8/CGI8.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de http://color.li.tu-berlin.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2021110112000) /ModDate (D:20211101112000) /DOCINFO pdfmark07 [ /View [ /FitB ] /DOCVIEW pdfmark07 %END PDFDE011 % !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 /TKKK {130 /Times-ISOL1 FS} bind def /TKK {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 /TIKKK {130 /TimesI-ISOL1 FS} bind def /TIKK {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 /TBKKK {130 /TimesB-ISOL1 FS} bind def /TBKK {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 /TBIKKK {130 /TimesBI-ISOL1 FS} bind def /TBIKK {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 /SKKK {130 /Symbol FS} bind def /SKK {200 /Symbol FS} bind def /SK {250 /Symbol FS} bind def /SM {300 /Symbol FS} bind def /SG {350 /Symbol FS} bind def /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /A4quer {598 0 translate 90 rotate} def /RGB 44 array def /RGB [1.000 0.000 0.000 %oXXy 1.000 1.000 0.000 %yXXl 0.000 1.000 0.000 %lXXc 0.000 1.000 1.000 %cXXv 0.000 0.000 1.000 %vXXm 1.000 0.000 1.000 %mXXo 1.000 0.000 0.000 %o00y 0.000 0.000 0.000 %nXXw 1.000 1.000 1.000 %n99w 0.000 0.000 0.000 %nXXw 1.000 1.000 1.000 %n99w ] def /LABn13 [(01,0) (02,1) (03,2) (04,3) (05,4) (06,5) (07,6) (08,7) (09,8) (10,N) (11,W) (12,N0)(13,W1)] def /RGBn13 60 array def /RGBn13 [0.000 0.000 0.000 %00/8 0.125 0.125 0.125 %01/8 0.250 0.250 0.250 %02/8 0.375 0.375 0.375 %03/8 0.500 0.500 0.500 %04/8 0.625 0.625 0.625 %05/8 0.750 0.750 0.750 %06/8 0.875 0.875 0.875 %07/8 1.000 1.000 1.000 %08/8 0.000 0.000 0.000 %09 nXXw 1.000 1.000 1.000 %10 n99w 0.000 0.000 0.000 %11 nXXw 1.000 1.000 1.000 %12 n99w ] def /LAB*TLSn13 60 array def /LAB*TLSn13 [%D=Device 16 greys + NW %for Television Luminous System (TLS) 0.01 0.00 0.00 %00 00 11.93 0.00 0.00 %01 01 23.85 0.00 0.00 %02 02 35.78 0.00 0.00 %03 03 47.70 0.00 0.00 %04 04 59.63 0.00 0.00 %05 05 71.55 0.00 0.00 %06 06 83.48 0.00 0.00 %07 07 95.41 0.00 0.00 %08 08 00.01 0.00 0.00 %09 N 95.41 0.00 0.00 %10 W 00.01 0.00 0.00 %11 N0 95.41 0.00 0.00 %12 W1 ] def %09 greys + NW /LABN20 [(01,0) (02,1) (03,2) (04,3) (05,4) (06,5) (07,6) (08,7) (09,8) (10,9) (11,A) (12,B) (13,C) (14,D) (15,E) (16,F) (17,N) (18,W) (19,N0)(20,W1)] def /RGBn20 60 array def /RGBn20 [0.000 0.000 0.000 %00/15 0.067 0.067 0.067 %01/15 0.133 0.133 0.133 %02/15 0.200 0.200 0.200 %03/15 0.267 0.267 0.267 %04/15 0.333 0.333 0.333 %05/15 0.400 0.400 0.400 %06/15 0.467 0.467 0.467 %07/15 0.533 0.533 0.533 %08/15 0.600 0.600 0.600 %09/15 0.667 0.667 0.667 %10/15 0.733 0.733 0.733 %11/15 0.800 0.800 0.800 %12/15 0.867 0.867 0.867 %13/15 0.933 0.933 0.933 %14/15 1.000 1.000 1.000 %15/15 0.000 0.000 0.000 %16 nXXw 1.000 1.000 1.000 %17 n99w 0.000 0.000 0.000 %18 nXXw 1.000 1.000 1.000 %19 n99w ] def /LAB*TLSn20 60 array def /LAB*TLSn20 [%D=Device 16 greys + NW %for Television Luminous System (TLS) 0.01 0.00 0.00 %0 00 6.36 0.00 0.00 %0 01 12.72 0.00 0.00 %0 02 19.08 0.00 0.00 %0 03 25.44 0.00 0.00 %0 04 31.80 0.00 0.00 %0 05 38.16 0.00 0.00 %0 06 44.52 0.00 0.00 %0 07 50.89 0.00 0.00 %0 08 57.25 0.00 0.00 %0 09 63.61 0.00 0.00 %0 10 69.97 0.00 0.00 %0 11 76.33 0.00 0.00 %0 12 82.69 0.00 0.00 %0 13 89.05 0.00 0.00 %0 14 95.41 0.00 0.00 %0 15 0.01 0.00 0.00 %N 16 95.41 0.00 0.00 %W 17 0.01 0.00 0.00 %N0 18 95.41 0.00 0.00 %W1 19 ] def %16 greys + NW /LAB*TLS00 [%D=Device OYLCVMO+NW %for Television Luminous System (TLS) 50.50 76.92 64.55 %0 0 %see Table 1 of ISO/IEC 15775:1999-12 92.66 -20.70 90.75 %Y 1 83.63 -82.76 79.90 %L 2 86.88 -46.17 -13.56 %C 3 30.39 76.06 -103.6 %V 4 57.30 94.35 -58.42 %M 5 50.50 76.92 64.55 %0 6 again 0.01 0.00 0.00 %N 7 95.41 0.00 0.00 %W 8 0.01 0.00 0.00 %N 9 95.41 0.00 0.00 %W 10 ] def %OYLCVMO+NW /LAB*TLS18 [%D=Device OYLCVMO+NW %for Television Luminous System (TLS) 52.76 71.63 49.88 %0 0 %computed from Table 1 of ISO/IEC 15775:1999-12 92.74 -20.04 84.97 %Y 1 % with Yn=2.52 84.00 -79.00 73.94 %L 2 87.14 -44.43 -13.13 %C 3 35.47 64.92 95.07 %V 4 59.01 89.33 -55.68 %M 5 52.76 71.63 49.88 %0 6 %again 18.01 0.00 0.00 %N 7 95.41 0.00 0.00 %W 8 18.01 0.00 0.00 %N 9 95.41 0.00 0.00 %W 10 ] def %OYLCVMO+NW /DecodeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind def /cviht {dup 0 ge {0.49 add}{0.49 sub} ifelse cvi} def /cvishow {dup 0 ge {0.5 add} {0.5 sub} ifelse cvi 6 string cvs show} def /cvsshow1 {dup 0 ge {0.05 add} {0.05 sub} ifelse 10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {dup 0 ge {0.005 add} {0.005 sub} ifelse 100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {dup 0 ge {0.0005 add} {0.0005 sub} ifelse 1000 mul cvi 0.001 mul 7 string cvs show} def /nshow {TKKK show} def /tspace {dup abs 1.0 le {( ) show} if dup dup -1.0 le exch -10 gt and {( ) show} if dup dup 1.0 gt exch 10 lt and {( ) show} if dup dup 1.0 gt exch 10 ge and {( ) show} if } bind def /trushow {tspace 0.005 add 100 mul truncate 100 div 10 string cvs show} bind def /troshow {0.005 add 100 mul truncate 100 div 10 string cvs show} bind def /trushow3 {0.0005 add 1000 mul truncate 1000 div 10 string cvs show} bind def /trushow4 {0.00005 add 10000 mul truncate 10000 div 10 string cvs show} bind def /nshow {TKKK show} def /kshow {TIKKK show} def /bshow {TBKKK show} def /bishow {TBIKKK show} def /nSshow {SKKK show} def /kSshow {SKKK show} def /bSshow {SKKK show} def /bSishow {SKKK show} def /ishow {0 -20 rmoveto 110 /TimesB-ISOL1 FS show 0 20 rmoveto} def /js2d {100 /TimesB-ISOL1 FS 0 -30 rmoveto (d) show 0 30 rmoveto 170 /TimesB-ISOL1 FS } def /js2abd {100 /TimesB-ISOL1 FS 0 -30 rmoveto (ab,d) show 0 30 rmoveto 170 /TimesB-ISOL1 FS } def /js2ad {100 /TimesB-ISOL1 FS 0 -30 rmoveto (a,d) show 0 30 rmoveto 170 /TimesB-ISOL1 FS } def /js2abad {100 /TimesB-ISOL1 FS 0 -30 rmoveto (ab,a,d) show 0 30 rmoveto 170 /TimesB-ISOL1 FS } def /js2bd {100 /TimesB-ISOL1 FS 0 -30 rmoveto (b,d) show 0 30 rmoveto 170 /TimesB-ISOL1 FS } def /js2abbd {100 /TimesB-ISOL1 FS 0 -30 rmoveto (ab,b,d) show 0 30 rmoveto 170 /TimesB-ISOL1 FS } def /js2red {100 /TimesB-ISOL1 FS 0 -30 rmoveto (re,d) show 0 30 rmoveto 170 /TimesB-ISOL1 FS } def /js2itd {100 /TimesB-ISOL1 FS 0 -30 rmoveto (it,d) show 0 30 rmoveto 170 /TimesB-ISOL1 FS } def /js2reitd {100 /TimesB-ISOL1 FS 0 -30 rmoveto (re-it,d) show 0 30 rmoveto 170 /TimesB-ISOL1 FS } def /ns2d {100 /Times-ISOL1 FS 0 -30 rmoveto (d) show 0 30 rmoveto 130 /Times-ISOL1 FS } def /ns2ad {100 /Times-ISOL1 FS 0 -30 rmoveto (a,d) show 0 30 rmoveto 130 /Times-ISOL1 FS } def /ns2bd {100 /Times-ISOL1 FS 0 -30 rmoveto (b,d) show 0 30 rmoveto 130 /Times-ISOL1 FS } def %%EndProlog gsave %LANINDL2.EPS START 20000505 /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 {3 lanind eq {show} {pop} ifelse} bind def /showfr {2 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def} {/lanind1 0 def /lanind2 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage /xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage /xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage gsave %LANINDL2 END %174=58*3 /LAB*rc089 174 array def /XYZrc089 174 array def /LAB*ra089 174 array def /XYZra089 174 array def /LAB*la089 174 array def /XYZla089 174 array def /LAB*lc089 174 array def /XYZlc089 174 array def %21*3 /LAB*na089 63 array def /XYZna089 63 array def %174=58*3 /LAB*nc089 174 array def /XYZnc089 174 array def /LAB*na089 174 array def /XYZna089 174 array def /LAB*oa089 174 array def /XYZoa089 174 array def /LAB*oc089 174 array def /XYZoc089 174 array def %21*3 /LAB*ma089 63 array def /XYZma089 63 array def /jM0 0 def jM0 0 eq {/jM3 07 def /jM2 08 def /jM1 09 def /jMA 10 def /jMX 12 def} {/jM3 14 def /jM2 15 def /jM1 16 def /jMA 17 def /jMX 19 def} ifelse /LABN 20 array def /RGBn 60 array def /LAB*TLSn 60 array def jM0 0 eq {%jM0=0 0 1 12 {/i exch def %i=0,12 LABN i LABn13 i get put } for %i=0,12 0 1 38 {/i exch def %i=0,38 RGBn i RGBn13 i get put LAB*TLSn i LAB*TLSn13 i get put } for %i=0,38 } if %jM0=0 jM0 1 eq {%jM0=1 0 1 19 {/i exch def %i=0,19 LABN i LABN20 i get put } for %i=0,19 0 1 59 {/i exch def %i=0,59 RGBn i RGBn20 i get put LAB*TLSn i LAB*TLSn20 i get put } for %i=0,59 } if %jM0=1 /Lil 8 array def % 0 1 2 3 4 5 6 7 /Lil [(=00) (=06) (=11) (=18) (=27) (=38) (=52) (=70)] def /Lit [(00) (06) (11) (18) (27) (38) (52) (70)] def gsave /Touten0 (Colorimetric data of Television Lumimous System TLS18 and calculated) def /Toutenx [ ( Television Luminous Systems TLS00/06/11/18 for CIE standard illuminant D65) ( Television Luminous Systems TLS27/38/52/70 for CIE standard illuminant D65) ] def /Toutde0 (Farbmetrische Daten des Fernseh\255Lichtfarben\255Systems TLS18 und berechnete) def /Toutdex [ ( Fernseh\255Lichtfarben\255Systeme TLS00/06/11/18 f\374r CIE\255Normlichtart D65) ( Fernseh\255Lichtfarben\255Systeme TLS27/38/52/70 f\374r CIE\255Normlichtart D65) ] def /Toutfr0 (Donn\351es colorim\351triques du syst\350me lumineux de t\351l\351vision TLS18 et calcul\351es) def /Toutfrx [ ( Syst\350me lumineux de t\351l\351vision TLS00/06/11/18 pour illuminant standard CIE D65) ( Syst\350me lumineux de t\351l\351vision TLS27/38/52/70 pour illuminant standard CIE D65) ] def /ISYSTEM 1 def /xchartl xchart1 def 01 1 1 {/xchartl exch def %xchartl=1,1 gsave /xchart xchartl xchartl 2 idiv 2 mul sub def /xcolor xchartl 2 idiv def %start with TRS0 for L*N=0 0 1 jMX {/sISO exch def /i30 sISO 3 mul def /i31 i30 1 add def /i32 i30 2 add def LAB*nc089 i30 LAB*TLSn i30 get put LAB*nc089 i31 LAB*TLSn i31 get put LAB*nc089 i32 LAB*TLSn i32 get put } for 0 1 jMX {/i exch def /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def /X* {LAB*nc089 i30 get 16 add 116 div LAB*nc089 i31 get 500 div add} bind def /Y* {LAB*nc089 i30 get 16 add 116 div} bind def /Z* {LAB*nc089 i30 get 16 add 116 div LAB*nc089 i32 get 200 div sub} bind def XYZnc089 i30 X* DecodeXYZ* 95.05 mul put XYZnc089 i31 Y* DecodeXYZ* 100.00 mul put XYZnc089 i32 Z* DecodeXYZ* 108.90 mul put } for %STOP2 /jN jM1 3 mul def /L*N LAB*nc089 jN get def /A*N LAB*nc089 jN 1 add get def /B*N LAB*nc089 jN 2 add get def /jW jMA 3 mul def /L*W LAB*nc089 jW get def /A*W LAB*nc089 jW 1 add get def /B*W LAB*nc089 jW 2 add get def /YN XYZnc089 jN 1 add get def % achromatic colours /XLWD65100 95.04 def /YLWD65100 100.00 def /ZLWD65100 108.88 def /XLW089 XYZnc089 jM1 3 mul 0 add get def %9x3=27,16x3=48 /YLW089 XYZnc089 jM1 3 mul 1 add get def /ZLW089 XYZnc089 jM1 3 mul 2 add get def /XLN001 XLWD65100 100 div def /YLN001 YLWD65100 100 div def /ZLN001 ZLWD65100 100 div def %STOP21 /iout xchartl 1 add def /Touten0 (Colorimetric data of Television Luminous System TLS) def /Toutenx [ ( and calculated Television Luminous Systems TLS00/06/11/18 for CIE standard illuminant D65) ( and calculated Television Luminous Systems TLS00/06/11/18 for CIE standard illuminant D65) ( and calculated Television Luminous Systems TLS27/38/52/70 for CIE standard illuminant D65) ( and calculated Television Luminous Systems TLS27/38/52/70 for CIE standard illuminant D65) ] def /Toutde0 (Farbmetrische Daten des Fernseh\255Lichtfarben\255Systems TLS) def /Toutdex [ ( und berechnete Fernseh\255Lichtfarben\255Systeme TLS00/06/11/18 f\374r CIE\255Normlichtart D65) ( und berechnete Fernseh\255Lichtfarben\255Systeme TLS00/06/11/18 f\374r CIE\255Normlichtart D65) ( und berechnete Fernseh\255Lichtfarben\255Systeme TLS27/38/52/70 f\374r CIE\255Normlichtart D65) ( und berechnete Fernseh\255Lichtfarben\255Systeme TLS27/38/52/70 f\374r CIE\255Normlichtart D65) ] def /Toutfr0 (Donn\351es colorim\351triques du syst\350me lumineux TLS) def /Toutfrx [ ( Syst\350me lumineux de t\351l\351vision TLS00/06/11/18 pour illuminant standard CIE D65) ( Syst\350me lumineux de t\351l\351vision TLS00/06/11/18 pour illuminant standard CIE D65) ( Syst\350me lumineux de t\351l\351vision TLS27/38/52/70 pour illuminant standard CIE D65) ( Syst\350me lumineux de t\351l\351vision TLS27/38/52/70 pour illuminant standard CIE D65) ] def 8 /Times-ISOL1 FS 72 82.5 moveto ( CGI80-7N) show %Toutde0 showde %Touten0 showen %Toutfr0 showfr L*N 10 le {(0) show} if L*N cvishow %xchartl 1 ge {(a) show} if %( for CIE standard illuminant D65) showen %( f\374r CIE\255Normlichtart D65) showde %( pour standard illuminant CIE D65) showfr %(; TLS00 System) showde %(; TLS00\255System) showen %(; Syst\351me TLS00) showfr %(; Seite: ) showde %(; Page: ) showen %(; Page: ) showfr %xchartl 1 add cvishow (/5) show 72 90 translate 0.0208 MM dup scale %special instead of 0.02 15 setlinewidth 1 setgray 0 0 moveto 11400 0 rlineto 0 8300 rlineto -11400 0 rlineto closepath fill 0 setgray 0 0 moveto 11400 0 rlineto 0 8300 rlineto -11400 0 rlineto closepath stroke %0 1 jMX {/i exch def % /i30 i 3 mul def % /i31 i30 1 add def % /i32 i30 2 add def % 1000 6000 i 200 mul sub moveto TKKK i trushow % LAB*nc089 i30 get trushow (, ) nshow % LAB*nc089 i31 get trushow (, ) nshow % LAB*nc089 i32 get trushow % } for /ix1 50 def /ix2 1500 def /ixd 800 def /ixx 2000 def %RGB /ix21 ixx ixd 0.0 mul add def /ix22 ixx ixd 0.6 mul add def /ix23 ixx ixd 1.2 mul add def %LAB /ix3 ixx ixd 1.80 mul add def /ix4 ixx ixd 2.50 mul add def /ix5 ixx ixd 3.20 mul add def /ix6 ixx ixd 3.90 mul add def /ix61 ixx ixd 4.60 mul add def %%XYZxy /ix7 ixx ixd 5.1 mul add def /ix8 ixx ixd 6.6 mul add def /ix9 ixx ixd 8.1 mul add def /ix10 ixx ixd 9.60 mul add def /ix11 ixx ixd 10.30 mul add def %Y/89.60 /ix12 ixx ixd 11.00 mul add def /iyd0130 130 def %regular line difference, middle text /iyd0160 160 def %line difference after text line, middle text /iyd0200 200 def %regular line difference, left text /iyd2000 2725 def %p0=page 0, bloc difference /iyd1500 1540 def %p1=page 1, bloc difference %p0=page 0, p1/p2=page p1, section 1 and page p1, sextion 2 and following /iyp00 8100 def %p0=page 0, top Colorimetric line /iyp01 iyp00 iyd0200 sub def %p0=page 0, top data text line /iyp02 iyp01 iyd0160 sub def %p0=page 0, next data line /iyp10 8100 def %p1=section 1, top colorimetric line /iyp11 iyp10 iyd0200 sub def %p1=section 1, top data line /iyp12 iyp11 iyd0160 sub def %p1=section 1, next data line /iyp20 8100 def %p1=section 2, top colorimetric line /iyp21 iyp20 iyd0200 sub def %p1=section 2, top data text line /iyp22 iyp21 iyd0160 sub def %p1=section 2, next data line 0 1 jMX {/i exch def /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def /X* {LAB*nc089 i30 get 16 add 116 div LAB*nc089 i31 get 500 div add} bind def /Y* {LAB*nc089 i30 get 16 add 116 div} bind def /Z* {LAB*nc089 i30 get 16 add 116 div LAB*nc089 i32 get 200 div sub} bind def XYZnc089 i30 X* DecodeXYZ* XLWD65100 mul put XYZnc089 i31 Y* DecodeXYZ* YLWD65100 mul put XYZnc089 i32 Z* DecodeXYZ* ZLWD65100 mul put } for %STOP3 0 1 jMX {/i exch def /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def LAB*na089 i30 LAB*nc089 i30 get put % /l*CIE LAB*nc089 i30 get L*N sub L*W L*N sub div def %system rel. light % /a*s A*W A*N sub l*CIE mul def % /b*s B*W B*N sub l*CIE mul def % LAB*na089 i31 LAB*nc089 i31 get A*N sub a*s sub put % LAB*na089 i32 LAB*nc089 i32 get B*N sub b*s sub put LAB*na089 i31 0 put LAB*na089 i32 0 put } for %i=0,jMX %STOP30 0 1 jMX {/i exch def /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def /X* {LAB*na089 i30 get 16 add 116 div LAB*na089 i31 get 500 div add} bind def /Y* {LAB*na089 i30 get 16 add 116 div} bind def /Z* {LAB*na089 i30 get 16 add 116 div LAB*na089 i32 get 200 div sub} bind def XYZna089 i30 X* DecodeXYZ* XLWD65100 mul put XYZna089 i31 Y* DecodeXYZ* YLWD65100 mul put XYZna089 i32 Z* DecodeXYZ* ZLWD65100 mul put } for %i=0,jMX %STOP31 /Xwnef089 XYZna089 jMA 3 mul 0 add get def %10x3=30, 17x3=51 /Ywnef089 XYZna089 jMA 3 mul 1 add get def /Zwnef089 XYZna089 jMA 3 mul 2 add get def /YrN XYZna089 jM1 3 mul 1 add get def %9x3+1=28, 16x3+1=49 /Xnnef089 YrN XLN001 mul def /Ynnef089 YrN def /Znnef089 YrN ZLN001 mul def 0 1 jMX {/i exch def /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def XYZma089 i30 XYZna089 i30 get Xnnef089 sub put XYZma089 i31 XYZna089 i31 get Ynnef089 sub put XYZma089 i32 XYZna089 i32 get Znnef089 sub put } for %i=0,jMX 0 1 jMX {/i exch def /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def /XQ XYZma089 i30 get XLWD65100 div def /YQ XYZma089 i31 get YLWD65100 div def /ZQ XYZma089 i32 get ZLWD65100 div def XQ 0 lt {/XQ 0.00000001 def} if YQ 0 lt {/YQ 0.00000001 def} if ZQ 0 lt {/ZQ 0.00000001 def} if LAB*ma089 i30 YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse put LAB*ma089 i31 XQ 0.008856 lt {7.787 XQ mul 16 116 div add} {XQ 0.33333333 exp} ifelse YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse sub 500 mul put LAB*ma089 i32 YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add} {ZQ 0.33333333 exp} ifelse sub 200 mul put } for %i=0,jMX %STOP4 %separat for xchartl=0 and #0 xchartl 0 eq {%xchartl=0 0 1 2 {/xtype exch def %xtype /iy iyp00 iyd2000 xtype mul sub def 20 iy moveto 180 /TimesB-ISOL1 FS xtype 0 eq {%xtype=0 (Farbmetrische "Norm\255Daten": ) showde (Colorimetric "Standard data": ) showen (Colorim\351trique "Donn\351es standard": ) showfr } if %xtype=0 xtype 1 eq {%xtype=1 (Farbmetrische "Adaptierte Daten (a)": ) showde (Colorimetric "Adapted data (a)": ) showen ("Donn\351es adapt\351es (a)" colorim\351triques: ) showfr } if %xtype=1 xtype 2 eq {%xtype=2 (Farbmetrische "Adaptierte Daten (b)": ) showde (Colorimetric "Adapted data (b)": ) showen ("Donn\351es adapt\351es (b)" colorim\351triques: ) showfr } if %xtype=2 180 /TimesB-ISOL1 FS (Fernseh\255Lichtfarben\255System TLS) showde (Television Luminous System TLS) showen (Syst\350me lumineux de t\351l\351vision TLS) showfr L*N 10 le {(0) show} if L*N cvishow xtype 1 eq {(a) show} if xtype 2 eq {(b) show} if ( f\374r Helligkeit ) showde ( for CIE lightness ) showen ( pour CIE clart\351 ) showfr 180 /TimesBI-ISOL1 FS (L*) show 180 /TimesB-ISOL1 FS (=) show L*N 10 le {(0) show} if L*N cvishow xtype 1 eq {(a) show} if xtype 2 eq {(b) show} if ( von Schwarz und f\374r Lichtart D65) showde ( of black and for illuminant D65) showen ( de noir et pour illuminant D65) showfr /iy iyp01 iyd2000 xtype mul sub def 20 iy moveto 180 /TimesB-ISOL1 FS (System TLS) showde (System TLS) showen (Syst\350me TLS) showfr L*N 10 le {(0) show} if L*N cvishow xtype 1 eq {(a) show} if xtype 2 eq {(b) show} if 170 /TimesB-ISOL1 FS /iy iyp01 iyd2000 xtype mul sub iyd0200 sub def 20 iy iyd0200 0.5 mul sub moveto (D65\255Reflexion:) showde (D65 reflection:) showen (R\351flexion D65:) showfr 20 iy iyd0200 1.5 mul sub moveto 170 /TimesBI-ISOL1 FS (Y) show 130 /TimesB-ISOL1 FS 0 -20 rmoveto (N) show 0 20 rmoveto 170 /TimesB-ISOL1 FS ( = ) show xtype 0 eq {XYZnc089 jMA 3 mul 1 add 3 add get} if %3*9+1+3=31, 3*16+1+3=52 xtype 1 eq {XYZna089 jMA 3 mul 1 add 3 add get} if xtype 2 eq {XYZma089 jMA 3 mul 1 add 3 add get} if cvsshow2 20 iy iyd0200 2.5 mul sub moveto 170 /TimesBI-ISOL1 FS (L*) show 130 /TimesB-ISOL1 FS 0 -20 rmoveto (N) show 0 20 rmoveto 170 /TimesB-ISOL1 FS ( = ) show xtype 0 eq {LAB*nc089 jMA 3 mul 3 add get} if %3*9+3=30, 3*16+3=51 xtype 1 eq {LAB*na089 jMA 3 mul 3 add get} if xtype 2 eq {LAB*ma089 jMA 3 mul 3 add get} if cvsshow2 xtype 0 eq {%xtype=0 /iy iyp01 iyd2000 xtype mul sub 30 add def 20 iy moveto ix2 iy moveto lanind 0 eq {(Farbe) bshow} if lanind 1 eq {(Color) bshow} if lanind 2 eq {-80 0 rmoveto (Couleur) bshow} if ( i) bshow ix21 iy moveto (r*) bishow js2d ix22 iy moveto (g*) bishow js2d ix23 iy moveto (b*) bishow js2d ix3 iy moveto (L*) bishow js2red ix4 iy moveto (D) bSishow (L*) bishow js2red ix5 iy moveto (L*) bishow js2itd ix6 iy moveto (D) bSishow (L*) bishow js2itd ix61 iy moveto (w) bishow js2d ix7 iy moveto (X) bishow js2d ix8 iy moveto (Y) bishow js2d ix9 iy moveto (Z) bishow js2d ix10 iy moveto (x) bishow js2d ix11 iy moveto (y) bishow js2d ix12 100 sub iy moveto (Y) bishow js2d (/88.59) bshow TKKK /jend jMA 3 mul 1 add def 0 1 jMA {/i exch def /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def /iy iyp02 iyd2000 xtype mul sub i iyd0130 mul sub 30 add def ix2 iy moveto ( ) kshow LABN i get show ns2d ix21 iy moveto RGBn i30 get cvsshow3 ix22 iy moveto RGBn i31 get cvsshow3 ix23 iy moveto RGBn i32 get cvsshow3 /L*red0 LAB*nc089 i30 get def /L*itd0 i jM2 le {LAB*nc089 0 get LAB*nc089 jend 1 sub get LAB*nc089 0 get sub jM2 div i mul add def} {L*red0 def} ifelse ix3 iy moveto L*red0 trushow ix5 iy moveto L*itd0 trushow i jM2 le {ix61 iy moveto LAB*nc089 i30 get LAB*nc089 0 get sub LAB*nc089 jend 1 sub get LAB*nc089 0 get sub div trushow3} if i jM3 le i jM1 eq or {%i<=jM3 /L*red1 LAB*nc089 i30 3 add get def i jM3 le {/L*itd1 LAB*nc089 0 get LAB*nc089 jend 1 sub get LAB*nc089 0 get sub jM2 div i 1 add mul add def} if i jM1 eq {/L*itd1 LAB*nc089 jM1 get LAB*nc089 jend 1 sub get LAB*nc089 jM1 get sub add def} if ix4 iy 80 sub moveto L*red1 L*red0 sub trushow ix6 iy 80 sub moveto L*itd1 L*itd0 sub trushow } if %i<=jM3 ix7 iy moveto XYZnc089 i30 get troshow ix8 iy moveto XYZnc089 i31 get troshow ix9 iy moveto XYZnc089 i32 get troshow /sumXYZnc089 XYZnc089 i30 get XYZnc089 i31 get add XYZnc089 i32 get add def ix10 iy moveto XYZnc089 i30 get sumXYZnc089 div trushow4 ix11 iy moveto XYZnc089 i31 get sumXYZnc089 div trushow4 ix12 iy moveto XYZnc089 i31 get XYZnc089 jend get div trushow4 } for %i=1,jMA } if %xtype=0 xtype 1 eq {%xtype=1 /iy iyp01 iyd2000 xtype mul sub 30 add def 20 iy moveto ix2 iy moveto lanind 0 eq {(Farbe) bshow} if lanind 1 eq {(Color) bshow} if lanind 2 eq {-80 0 rmoveto (Couleur) bshow} if ( i) bshow ix21 iy moveto (r*) bishow js2d ix22 iy moveto (g*) bishow js2d ix23 iy moveto (b*) bishow js2d ix3 iy moveto (L*) bishow js2red ix4 iy moveto (D) bSishow (L*) bishow js2red ix5 iy moveto (L*) bishow js2itd ix6 iy moveto (D) bSishow (L*) bishow js2itd ix61 iy moveto (w) bishow js2d ix7 iy moveto (X) bishow js2ad ix8 iy moveto (Y) bishow js2ad ix9 iy moveto (Z) bishow js2ad ix10 iy moveto (x) bishow js2ad ix11 iy moveto (y) bishow js2ad ix12 100 sub iy moveto (Y) bishow js2ad (/88.59) bshow TKKK /jend jMA 3 mul 1 add def 0 1 jMA {/i exch def /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def /iy iyp02 iyd2000 xtype mul sub i iyd0130 mul sub 30 add def ix2 iy moveto ( ) kshow LABN i get show ns2d ix21 iy moveto RGBn i30 get cvsshow3 ix22 iy moveto RGBn i31 get cvsshow3 ix23 iy moveto RGBn i32 get cvsshow3 /L*red0 LAB*na089 i30 get def /L*itd0 i jM2 le {LAB*na089 0 get LAB*na089 jend 1 sub get LAB*na089 0 get sub jM2 div i mul add def} {L*red0 def} ifelse ix3 iy moveto L*red0 trushow ix5 iy moveto L*itd0 trushow i jM2 le {ix61 iy moveto LAB*na089 i30 get LAB*na089 0 get sub LAB*na089 jend 1 sub get LAB*na089 0 get sub div trushow3} if i jM3 le i jM1 eq or {%i<=jM3 /L*red1 LAB*na089 i30 3 add get def i jM3 le {/L*itd1 LAB*na089 0 get LAB*na089 jend 1 sub get LAB*na089 0 get sub jM2 div i 1 add mul add def} if i jM1 eq {/L*itd1 LAB*na089 jM1 get LAB*na089 jend 1 sub get LAB*na089 jM1 get sub add def} if ix4 iy 80 sub moveto L*red1 L*red0 sub trushow ix6 iy 80 sub moveto L*itd1 L*itd0 sub trushow } if %i<=jM3 ix7 iy moveto XYZna089 i30 get troshow ix8 iy moveto XYZna089 i31 get troshow ix9 iy moveto XYZna089 i32 get troshow /sumXYZna089 XYZna089 i30 get XYZna089 i31 get add XYZna089 i32 get add def ix10 iy moveto XYZna089 i30 get sumXYZna089 div trushow4 ix11 iy moveto XYZna089 i31 get sumXYZna089 div trushow4 ix12 iy moveto XYZna089 i31 get XYZna089 jend get div trushow4 } for } if %xtype=1 xtype 2 eq {%xtype=2 /iy iyp01 iyd2000 xtype mul sub 30 add def 20 iy moveto ix2 iy moveto lanind 0 eq {(Farbe) bshow} if lanind 1 eq {(Color) bshow} if lanind 2 eq {-80 0 rmoveto (Couleur) bshow} if ( i) bshow ix21 iy moveto (r*) bishow js2d ix22 iy moveto (g*) bishow js2d ix23 iy moveto (b*) bishow js2d ix3 iy moveto (L*) bishow js2red ix4 iy moveto (D) bSishow (L*) bishow js2red ix5 iy moveto (L*) bishow js2itd ix6 iy moveto (D) bSishow (L*) bishow js2itd ix61 iy moveto (w) bishow js2d ix7 iy moveto (X) bishow js2bd ix8 iy moveto (Y) bishow js2bd ix9 iy moveto (Z) bishow js2bd ix10 iy moveto (x) bishow js2bd ix11 iy moveto (y) bishow js2bd ix12 100 sub iy moveto (Y) bishow js2bd (/88.59) bshow TKKK /jend jMA 3 mul 1 add def 0 1 jMA {/i exch def /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def /iy iyp02 iyd2000 xtype mul sub i iyd0130 mul sub 30 add def ix2 iy moveto ( ) kshow LABN i get show ns2d ix21 iy moveto RGBn i30 get cvsshow3 ix22 iy moveto RGBn i31 get cvsshow3 ix23 iy moveto RGBn i32 get cvsshow3 /L*red0 LAB*na089 i30 get def /L*itd0 i jM2 le {LAB*na089 0 get LAB*na089 jend 1 sub get LAB*na089 0 get sub jM2 div i mul add def} {L*red0 def} ifelse ix3 iy moveto L*red0 trushow ix5 iy moveto L*itd0 trushow i jM2 le {ix61 iy moveto LAB*na089 i30 get LAB*na089 0 get sub LAB*na089 jend 1 sub get LAB*na089 0 get sub div trushow3} if i jM3 le i jM1 eq or {%i<=jM3 /L*red1 LAB*na089 i30 3 add get def i jM3 le {/L*itd1 LAB*na089 0 get LAB*na089 jend 1 sub get LAB*na089 0 get sub jM2 div i 1 add mul add def} if i jM1 eq {/L*itd1 LAB*na089 jM1 get LAB*na089 jend 1 sub get LAB*na089 jM1 get sub add def} if ix4 iy 80 sub moveto L*red1 L*red0 sub trushow ix6 iy 80 sub moveto L*itd1 L*itd0 sub trushow } if %i<=jM3 ix7 iy moveto XYZna089 i30 get troshow (\050) nshow (=) show XYZma089 i30 get troshow (+) show Xnnef089 troshow (\051) show ix8 iy moveto XYZna089 i31 get troshow (\050) nshow (=) show XYZma089 i31 get troshow (+) show Ynnef089 troshow (\051) show ix9 iy moveto XYZna089 i32 get troshow (\050) nshow (=) show XYZma089 i32 get troshow (+) show Znnef089 troshow (\051) show /sumXYZna089 XYZna089 i30 get XYZna089 i31 get add XYZna089 i32 get add def ix10 iy moveto XYZna089 i30 get sumXYZna089 0.00001 add div trushow4 ix11 iy moveto XYZna089 i31 get sumXYZna089 0.00001 add div trushow4 ix12 iy moveto XYZna089 i31 get XYZna089 jend get 0.00001 add div trushow4 } for } if %xtype=2 } for %xtype=0,2 } if %xchartl=0 %****************************************************** xchartl 0 ne {%xchartl#0 /iy iyp10 def 20 iy moveto 180 /TimesB-ISOL1 FS (Farbmetrische "Adaptierte Daten (b)": ) showde (Colorimetric "Adapted data (b)": ) showen ("Donn\351es adapt\351es (b)" colorim\351triques: ) showfr (Fernseh\255Lichtfarben\255System TLS00b) showde (Television Luminous System TLS00b) showen (Syst\350me lumineux de t\351l\351vision TLS00b) showfr ( f\374r Helligkeit ) showde ( for CIE lightness ) showen ( pour CIE clart\351 ) showfr 180 /TimesBI-ISOL1 FS (L*) show 180 /TimesB-ISOL1 FS (=00) show ( von Schwarz und f\374r Lichtart D65) showde ( of black and for illuminant D65) showen ( de noir et pour illuminant D65) showfr /iy iyp11 def 20 iy moveto 180 /TimesB-ISOL1 FS (System TLS00b) showde (System TLS00b) showen (Syst\350me TLS00b) showfr 170 /TimesB-ISOL1 FS /iy iyp11 iyd0200 1.5 mul sub def 20 iy moveto (D65\255Reflexion:) showde (D65 reflection:) showen (R\351flexion D65:) showfr /iy iyp11 iyd0200 2.5 mul sub def 20 iy moveto 170 /TimesBI-ISOL1 FS (Y) show 130 /TimesB-ISOL1 FS 0 -20 rmoveto (N) show 0 20 rmoveto 170 /TimesB-ISOL1 FS ( = 0.0) show /iy iyp11 iyd0200 3.5 mul sub def 20 iy moveto 170 /TimesBI-ISOL1 FS (L*) show 130 /TimesB-ISOL1 FS 0 -20 rmoveto (N) show 0 20 rmoveto 170 /TimesB-ISOL1 FS ( = 0.0) show %without xtype mul /iy iyp11 50 add def ix2 iy moveto lanind 0 eq {(Farbe) bshow} if lanind 1 eq {(Color) bshow} if lanind 2 eq {-80 0 rmoveto (Couleur) bshow} if ( i) bshow ix21 iy moveto (r*) bishow js2d ix22 iy moveto (g*) bishow js2d ix23 iy moveto (b*) bishow js2d ix3 iy moveto (L*) bishow js2red ix4 iy moveto (D) bSishow (L*) bishow js2red ix5 iy moveto (L*) bishow js2itd ix6 iy moveto (D) bSishow (L*) bishow js2itd ix61 iy moveto (w) bishow js2d ix7 iy moveto (X) bishow js2bd ix8 iy moveto (Y) bishow js2bd ix9 iy moveto (Z) bishow js2bd ix10 iy moveto (x) bishow js2bd ix11 iy moveto (y) bishow js2bd ix12 100 sub iy moveto (Y) bishow js2bd (/88.59) bshow TKKK /jend jMA 3 mul 1 add def 0 1 jMA {/i exch def /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def /iy iyp12 i iyd0130 mul sub 50 add def ix2 iy moveto ( ) kshow LABN i get show ns2d ix21 iy moveto RGBn i30 get cvsshow3 ix22 iy moveto RGBn i31 get cvsshow3 ix23 iy moveto RGBn i32 get cvsshow3 /L*red0 LAB*na089 i30 get def /L*itd0 i jM2 le {LAB*na089 0 get LAB*na089 jend 1 sub get LAB*na089 0 get sub jM2 div i mul add def} {L*red0 def} ifelse ix3 iy moveto L*red0 trushow ix5 iy moveto L*itd0 trushow i jM2 le {ix61 iy moveto LAB*na089 i30 get LAB*na089 0 get sub LAB*na089 jend 1 sub get LAB*na089 0 get sub div trushow3} if i jM3 le i jM1 eq or {%i<=jM3 /L*red1 LAB*na089 i30 3 add get def i jM3 le {/L*itd1 LAB*na089 0 get LAB*na089 jend 1 sub get LAB*na089 0 get sub jM2 div i 1 add mul add def} if i jM1 eq {/L*itd1 LAB*na089 jM1 get LAB*na089 jend 1 sub get LAB*na089 jM1 get sub add def} if ix4 iy 80 sub moveto L*red1 L*red0 sub trushow ix6 iy 80 sub moveto L*itd1 L*itd0 sub trushow } if %i<=jM3 ix7 iy moveto XYZna089 i30 get troshow (\050) nshow (=) show XYZma089 i30 get troshow (+) show Xnnef089 troshow (\051) show ix8 iy moveto XYZna089 i31 get troshow (\050) nshow (=) show XYZma089 i31 get troshow (+) show Ynnef089 troshow (\051) show ix9 iy moveto XYZna089 i32 get troshow (\050) nshow (=) show XYZma089 i32 get troshow (+) show Znnef089 troshow (\051) show /sumXYZna089 XYZna089 i30 get XYZna089 i31 get add XYZna089 i32 get add def ix10 iy moveto XYZna089 i30 get sumXYZna089 0.00001 add div trushow4 ix11 iy moveto XYZna089 i31 get sumXYZna089 0.00001 add div trushow4 ix12 iy moveto XYZna089 i31 get XYZna089 jend get 0.00001 add div trushow4 } for xchartl 01 eq {/ila1 3 def /ila2 7 def /ilad 4 def} if xchartl 02 eq {/ila1 2 def /ila2 3 def /ilad 1 def} if xchartl 03 eq {/ila1 4 def /ila2 5 def /ilad 1 def} if xchartl 04 eq {/ila1 6 def /ila2 7 def /ilad 1 def} if ila1 ilad ila2 {/il exch def %il=0,3; 4,7 /YrN 2.52 def %Reference black and white il 0 eq {/Xtref089 0.00 def /Ytref089 0.00 def /Ztref089 0.00 def /PLref (OLS00) def /TLref (TLS00) def} if il 1 eq {/Xtref089 YrN 0.25 mul XLN001 mul def /Ytref089 YrN 0.25 mul def /Ztref089 YrN 0.25 mul ZLN001 mul def /PLref (OLS06) def /TLref (TLS06) def} if il 2 eq {/Xtref089 YrN 0.50 mul XLN001 mul def /Ytref089 YrN 0.50 mul def /Ztref089 YrN 0.50 mul ZLN001 mul def /PLref (OLS11) def /TLref (TLS11) def} if il 3 eq {/Xtref089 YrN 1.00 mul XLN001 mul def /Ytref089 YrN 1.00 mul def /Ztref089 YrN 1.00 mul ZLN001 mul def /PLref (OLS18) def /TLref (TLS18) def} if il 4 eq {/Xtref089 YrN 2.00 mul XLN001 mul def /Ytref089 YrN 2.00 mul def /Ztref089 YrN 2.00 mul ZLN001 mul def /PLref (OLS27) def /TLref (TLS27) def} if il 5 eq {/Xtref089 YrN 4.00 mul XLN001 mul def /Ytref089 YrN 4.00 mul def /Ztref089 YrN 4.00 mul ZLN001 mul def /PLref (OLS38) def /TLref (TLS38) def} if il 6 eq {/Xtref089 YrN 8.00 mul XLN001 mul def /Ytref089 YrN 8.00 mul def /Ztref089 YrN 8.00 mul ZLN001 mul def /PLref (OLS52) def /TLref (TLS52) def} if il 7 eq {/Xtref089 YrN 16.00 mul XLN001 mul def /Ytref089 YrN 16.00 mul def /Ztref089 YrN 16.00 mul ZLN001 mul def /PLref (OLS70) def /TLref (TLS70) def} if /YNil Ytref089 def /YNil001 YNil 100 div def YNil001 6 29 div 3 exp ge {/FYYn YNil001 0.3333 exp def} {/FYYn 841 108 div YNil001 mul 4 29 div add def} ifelse /L*Nil 116 FYYn mul 16 sub def 0 1 jMX {/i exch def /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def XYZma089 i30 XYZna089 i30 get Xwnef089 Xtref089 sub Xwnef089 div mul put XYZma089 i31 XYZna089 i31 get Ywnef089 Ytref089 sub Ywnef089 div mul put XYZma089 i32 XYZna089 i32 get Zwnef089 Ztref089 sub Zwnef089 div mul put XYZoa089 i30 XYZma089 i30 get Xtref089 add put XYZoa089 i31 XYZma089 i31 get Ytref089 add put XYZoa089 i32 XYZma089 i32 get Ztref089 add put } for %i=0,jMX 0 1 jMX {/i exch def /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def /XQ XYZoa089 i30 get XLWD65100 div def /YQ XYZoa089 i31 get YLWD65100 div def /ZQ XYZoa089 i32 get ZLWD65100 div def XQ 0 lt {/XQ 0.00000001 def} if YQ 0 lt {/YQ 0.00000001 def} if ZQ 0 lt {/ZQ 0.00000001 def} if LAB*oa089 i30 YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse put LAB*oa089 i31 XQ 0.008856 lt {7.787 XQ mul 16 116 div add} {XQ 0.33333333 exp} ifelse YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse sub 500 mul put LAB*oa089 i32 YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add} {ZQ 0.33333333 exp} ifelse sub 200 mul put } for %i=0,jMX /iy iyp20 iyd2000 il ila1 sub ilad idiv 1 add mul sub def 20 iy moveto 180 /TimesB-ISOL1 FS (Berechnete farbmetrische Daten (b): ) showde (Calculated colorimetric data (b): ) showen (Donn\351es colorim\351trique calcul\351es (b): ) showfr 180 /TimesB-ISOL1 FS (Fernseh\255Lichtfarben\255Systeme TLS) showde (Television Luminous Systems TLS) showen (Syst\350me lumineux de t\352l\351vision TLS) showfr Lit il get show (b f\374r Helligkeit ) showde (b for CIE lightness ) showen (b pour CIE clart\351 ) showfr 180 /TimesBI-ISOL1 FS (L*) show 180 /TimesB-ISOL1 FS Lil il get show ( von Schwarz und f\374r Lichtart D65) showde ( of black and for illuminant D65) showen ( de noir et pour illuminant D65) showfr /iy iyp21 iyd2000 il ila1 ilad idiv sub 1 add mul sub def 20 iy moveto lanind 0 eq {(System ) 180 /TimesB-ISOL1 FS show} if lanind 1 eq {(System ) 180 /TimesB-ISOL1 FS show} if lanind 2 eq {(Syst\350me ) 180 /TimesB-ISOL1 FS show} if ISYSTEM 0 eq {PLref 180 /TimesB-ISOL1 FS show (b) show} if ISYSTEM 1 eq {TLref 180 /TimesB-ISOL1 FS show (b) show} if 170 /TimesB-ISOL1 FS /iy iyp21 iyd2000 il ila1 sub ilad idiv 1 add mul sub def 20 iy iyd0200 1.5 mul sub moveto (D65\255Reflexion:) showde (D65 reflection:) showen (R\351flexion D65:) showfr 20 iy iyd0200 2.5 mul sub moveto 170 /TimesBI-ISOL1 FS (Y) show 130 /TimesB-ISOL1 FS 0 -20 rmoveto (N) show 0 20 rmoveto 170 /TimesB-ISOL1 FS ( = ) show YNil cvsshow2 20 iy iyd0200 3.5 mul sub moveto 170 /TimesBI-ISOL1 FS (L*) show 130 /TimesB-ISOL1 FS 0 -20 rmoveto (N) show 0 20 rmoveto 170 /TimesB-ISOL1 FS ( = ) show L*Nil cvsshow2 /iy iyp21 iyd2000 il ila1 sub ilad idiv 1 add mul sub 50 add def ix2 iy moveto lanind 0 eq {(Farbe) bshow} if lanind 1 eq {(Color) bshow} if lanind 2 eq {-80 0 rmoveto (Couleur) bshow} if ( i) bshow ix21 iy moveto (r*) bishow js2ad ix22 iy moveto (g*) bishow js2ad ix23 iy moveto (b*) bishow js2ad ix3 iy moveto (L*) bishow js2red ix4 iy moveto (D) bSishow (L*) bishow js2red ix5 iy moveto (L*) bishow js2itd ix6 iy moveto (D) bSishow (L*) bishow js2itd ix61 iy moveto (w) bishow js2d ix7 iy moveto (X) bishow js2ad ix8 iy moveto (Y) bishow js2ad ix9 iy moveto (Z) bishow js2ad ix10 iy moveto (x) bishow js2ad ix11 iy moveto (y) bishow js2ad ix12 100 sub iy moveto (Y) bishow js2ad (/88.59) bshow TKKK /jend jMA 3 mul 1 add def %+ 1 for Y, -1 for L* 0 1 jMA {/i exch def /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def /iy iyp22 iyd2000 il ila1 sub ilad idiv 1 add mul sub 50 add i iyd0130 mul sub def ix2 iy moveto ( ) kshow LABN i get show ns2d ix21 iy moveto RGBn i30 get cvsshow3 ix22 iy moveto RGBn i31 get cvsshow3 ix23 iy moveto RGBn i32 get cvsshow3 /L*red0 LAB*oa089 i30 get def /L*itd0 i jM2 le {LAB*oa089 0 get LAB*oa089 jend 1 sub get LAB*oa089 0 get sub jM2 div i mul add def} {L*red0 def} ifelse ix3 iy moveto L*red0 trushow ix5 iy moveto L*itd0 trushow i jM2 le {ix61 iy moveto LAB*oa089 i30 get LAB*oa089 0 get sub LAB*oa089 jend 1 sub get LAB*oa089 0 get sub div trushow3} if i jM3 le i jM1 eq or {%i<=jM3 /L*red1 LAB*oa089 i30 3 add get def i jM3 le {/L*itd1 LAB*oa089 0 get LAB*oa089 jend 1 sub get LAB*oa089 0 get sub jM2 div i 1 add mul add def} if i jM1 eq {/L*itd1 LAB*oa089 jM1 get LAB*oa089 jend 1 sub get LAB*oa089 jM1 get sub add def} if ix4 iy 80 sub moveto L*red1 L*red0 sub trushow ix6 iy 80 sub moveto L*itd1 L*itd0 sub trushow } if %i<=jM3 ix7 iy moveto XYZoa089 i30 get trushow (\050=) nshow XYZma089 i30 get troshow (+) show Xtref089 troshow (\051) show ix8 iy moveto XYZoa089 i31 get trushow (\050=) nshow XYZma089 i31 get troshow (+) show Ytref089 troshow (\051) show ix9 iy moveto XYZoa089 i32 get trushow (\050=) nshow XYZma089 i32 get troshow (+) show Ztref089 troshow (\051) show /sumXYZoa089 XYZoa089 i30 get XYZoa089 i31 get add XYZoa089 i32 get add def ix10 iy moveto XYZoa089 i30 get sumXYZoa089 0.0001 add div trushow4 ix11 iy moveto XYZoa089 i31 get sumXYZoa089 0.0001 add div trushow4 ix12 iy moveto XYZoa089 i31 get XYZoa089 jend get 0.0001 add div trushow4 } for } for %il=3,7,4 } if %xchartl#0 showpage grestore } for %xchartl=1,1 %%Trailer