%!PS-Adobe-3.0 EPSF-3.0 JG071-3A %%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/JG07/) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices, colour vision) /Creator (klaus.Richter@mac.com) /CreationDate (D:2010010112000) /ModDate (D:2010010112000) /DOCINFO pdfmark07 [ /View [ /FitB ] /DOCVIEW pdfmark07 %END PDFDE011 % !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 /LAB*Fa0100 24 array def %start output /LAB*Fa1100 24 array def %linearized output /LAB*FaG0100 24 array def %start output/100 /LAB*FaG1100 24 array def %linearized output/100 %********************************************************************* %BEG JG07_LECD display 0,9%_ra_LUT.DAT /FileDataen (_LUT.DAT, 243 colours, 100101, Separation olv*, adapted) def /FileDatade (_LUT.DAT, 243 Farben, 100101, Separation olv*, adaptiert) def %END JG07_LECD display 0,9%_ra_LUT.DAT %********************************************************************* /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 7 string cvs show} def /LAB*ioLmod {%BEG Procedure LAB*ioLmod %requires ISRL*ioL=0,1,3 /RJGBLAB* 12 array def /RJGBLAB*[ 39.92 58.74 27.99 % R CIE No.09 elementary colours in LAB, D65 81.26 -2.89 71.56 % J CIE No.10 52.23 -42.42 13.60 % G CIE No.11 30.57 1.41 -46.47 % B CIE No.12 ] def /LAB* 84 array def %12x3=36 including N,W + 16x3=48 elementary system /LAB*a 84 array def 0 1 11 {/sISO exch def /i30 sISO 3 mul def /i31 i30 1 add def /i32 i30 2 add def sISO 7 le { %sISO=0,7 LAB* i30 LAB*02 i30 get put LAB* i31 LAB*02 i31 get put LAB* i32 LAB*02 i32 get put } %sISO=0,7 {%sISO=8,11 %Definition 8 to 11 /jISO sISO 8 sub def /j30 jISO 3 mul def /j31 j30 1 add def /j32 j30 2 add def LAB* i30 RJGBLAB* j30 get put LAB* i31 RJGBLAB* j31 get put LAB* i32 RJGBLAB* j32 get put } ifelse %sISO=0,7 and 8,11 } for /L*Nio LAB* 18 get def /A*Nio LAB* 19 get def /B*Nio LAB* 20 get def /L*Wio LAB* 21 get def /A*Wio LAB* 22 get def /B*Wio LAB* 23 get def /A*Dio A*Wio A*Nio sub def /B*Dio B*Wio B*Nio sub def icolor 0 eq {/cf1 1 def}{/cf1 0.95 def} ifelse 0 1 11 {/sISO exch def /i30 sISO 3 mul def /i31 i30 1 add def /i32 i30 2 add def /l*CIE LAB* i30 get L*Nio sub L*Wio L*Nio sub div def %system rel. lightn. /a*s A*Wio A*Nio sub l*CIE mul def /b*s B*Wio B*Nio sub l*CIE mul def /L*Z L*Nio L*Wio L*Nio sub 0.5 mul add def LAB*a i30 LAB* i30 get L*Z sub cf1 mul L*Z add put LAB*a i31 LAB* i31 get A*Nio sub a*s sub cf1 mul put LAB*a i32 LAB* i32 get B*Nio sub b*s sub cf1 mul put } for /cLAB*s0 3 array def %C cyan blue /vLAB*s0 3 array def %V violet blue /mLAB*s0 3 array def %M magenta red /oLAB*s0 3 array def %O orange red /yLAB*s0 3 array def %Y yellow /lLAB*s0 3 array def %L leaf green /nLAB*s0 3 array def %N black /wLAB*s0 3 array def %W white /rLAB*s0 3 array def %R elementary red /jLAB*s0 3 array def %J elementary yellow /gLAB*s0 3 array def %G elementary green /bLAB*s0 3 array def %B elementary blue %Determine Matrix data input or output data oLAB*s0 0 LAB*a 0 get L*Nio sub put oLAB*s0 1 LAB*a 1 get put oLAB*s0 2 LAB*a 2 get put yLAB*s0 0 LAB*a 3 get L*Nio sub put yLAB*s0 1 LAB*a 4 get put yLAB*s0 2 LAB*a 5 get put lLAB*s0 0 LAB*a 6 get L*Nio sub put lLAB*s0 1 LAB*a 7 get put lLAB*s0 2 LAB*a 8 get put cLAB*s0 0 LAB*a 9 get L*Nio sub put cLAB*s0 1 LAB*a 10 get put cLAB*s0 2 LAB*a 11 get put vLAB*s0 0 LAB*a 12 get L*Nio sub put vLAB*s0 1 LAB*a 13 get put vLAB*s0 2 LAB*a 14 get put mLAB*s0 0 LAB*a 15 get L*Nio sub put mLAB*s0 1 LAB*a 16 get put mLAB*s0 2 LAB*a 17 get put nLAB*s0 0 LAB*a 18 get L*Nio sub put nLAB*s0 1 LAB*a 19 get put nLAB*s0 2 LAB*a 20 get put wLAB*s0 0 LAB*a 21 get L*Nio sub put wLAB*s0 1 LAB*a 22 get put wLAB*s0 2 LAB*a 23 get put rLAB*s0 0 LAB*a 24 get L*Nio sub put rLAB*s0 1 LAB*a 25 get put rLAB*s0 2 LAB*a 26 get put jLAB*s0 0 LAB*a 27 get L*Nio sub put jLAB*s0 1 LAB*a 28 get put jLAB*s0 2 LAB*a 29 get put gLAB*s0 0 LAB*a 30 get L*Nio sub put gLAB*s0 1 LAB*a 31 get put gLAB*s0 2 LAB*a 32 get put bLAB*s0 0 LAB*a 33 get L*Nio sub put bLAB*s0 1 LAB*a 34 get put bLAB*s0 2 LAB*a 35 get put % Determine the input or output angle in the A* B* plane % of each of the colours defined above /C*Ang cLAB*s0 2 get cLAB*s0 1 get 0.0001 add atan def /V*Ang vLAB*s0 2 get vLAB*s0 1 get 0.0001 add atan def /M*Ang mLAB*s0 2 get mLAB*s0 1 get 0.0001 add atan def /O*Ang oLAB*s0 2 get oLAB*s0 1 get 0.0001 add atan def /Y*Ang yLAB*s0 2 get yLAB*s0 1 get 0.0001 add atan def /L*Ang lLAB*s0 2 get mLAB*s0 1 get 0.0001 add atan def /N*Ang 0 def /W*Ang 0 def /R*Ang rLAB*s0 2 get rLAB*s0 1 get 0.0001 add atan def /J*Ang jLAB*s0 2 get jLAB*s0 1 get 0.0001 add atan def /G*Ang gLAB*s0 2 get gLAB*s0 1 get 0.0001 add atan def /B*Ang bLAB*s0 2 get bLAB*s0 1 get 0.0001 add atan def } def %END Procedure LAB*ioLmod %*********************************************************** /proc_LAB*Fa_LAB*MaNTABl_olvi3*cmyn3*Ma*ioL { %BEG procedure proc_LAB*Fa_LAB*MaNTABl_olvi3*cmyn3*Ma*ioL %only for calculation without hue tables %input LAB*Fa %input LAB*a (6 adapted colours OYLCVM) %input nLAB*s0 (colour white N for calculation of lab*l) %input wLAB*s0 (colour white W for achromatic axis) %output LAB*Ma %output olvi3*Ma %output cmyn3*Ma /UXF1a wLAB*s0 1 get B*Fa mul wLAB*s0 2 get A*Fa mul sub def /UXF2a wLAB*s0 2 get L*Fa mul wLAB*s0 0 get B*Fa mul sub def /UXF3a wLAB*s0 0 get A*Fa mul wLAB*s0 1 get L*Fa mul sub def /T1 0 def /T2 0 def 0 1 5 {/ia exch def /ia30 ia 3 mul def ia 5 eq {/ia31 0 def} {/ia31 ia30 3 add def} ifelse /T1 LAB*a ia30 get UXF1a mul LAB*a ia30 1 add get UXF2a mul add LAB*a ia30 2 add get UXF3a mul add def /T2 LAB*a ia31 get UXF1a mul LAB*a ia31 1 add get UXF2a mul add LAB*a ia31 2 add get UXF3a mul add def T1 0 le {/T1X (N) def} {/T1X (P) def} ifelse T2 0 gt {/T2X (P) def} {/T2X (N) def} ifelse T1 0 le T2 0 gt and {/ia3END ia30 def exit} if } for /L*11a LAB*a ia3END get def /A*11a LAB*a ia3END 1 add get def /B*11a LAB*a ia3END 2 add get def ia3END 15 ge {/ia3END -3 def} if /L*21a LAB*a ia3END 3 add get def /A*21a LAB*a ia3END 4 add get def /B*21a LAB*a ia3END 5 add get def /NENNER L*21a L*11a sub UXF1a mul A*21a A*11a sub UXF2a mul add B*21a B*11a sub UXF3a mul add def /ZAEHLE L*21a UXF1a mul A*21a UXF2a mul add B*21a UXF3a mul add def NENNER 0 ne {/ALPH ZAEHLE NENNER div def} {/ALPH 99999} ifelse /L*Ma ALPH L*11a mul 1 ALPH sub L*21a mul add def /A*Ma ALPH A*11a mul 1 ALPH sub A*21a mul add def /B*Ma ALPH B*11a mul 1 ALPH sub B*21a mul add def /C*Ma A*Ma dup mul B*Ma dup mul add 0.000001 add sqrt def /H*Ma B*Ma A*Ma 0.0001 add atan def /ia30 ia 3 mul def /iap 1 ALPH sub def /iam ALPH def ia 0 eq {/c3*Ma 0 def %L, c*=0, sector O->Y /m3*Ma iam def %L, m*=1->0 /y3*Ma 1 def %L, y*=1 } if ia 1 eq {/c3*Ma iap def %L, c*=0->1, sector Y->L /m3*Ma 0 def %L, m*=0 /y3*Ma 1 def %L, y*=1 } if ia 2 eq {/c3*Ma 1 def %L, c*=1, sector L->C /m3*Ma 0 def %L, m*=0 /y3*Ma iam def %L, y*=1->0 } if ia 3 eq {/c3*Ma 1 def %L, c*=1, sector C->V /m3*Ma iap def %L, m*=1->0 /y3*Ma 0 def %L, y*=0 } if ia 4 eq {/c3*Ma iam def %L, c*=1->0, sector V->M /m3*Ma 1 def %L, m*=1 /y3*Ma 0 def %L, y*=0 } if ia 5 eq {/c3*Ma 0 def %L, c*=0, sector M->O /m3*Ma 1 def %L, m*=1 /y3*Ma iap def %L, y*=0->1 } if /o3*Ma 1 c3*Ma sub def /l3*Ma 1 m3*Ma sub def /v3*Ma 1 y3*Ma sub def /i3*Ma 1 def /lab*nMa 0.00 def /lab*cMa 1.00 def /lab*wMa 0.00 def /lab*tMa 0.50 def /lab*hMa H*Ma 360 div def /lab*lMa L*Ma nLAB*s0 0 get sub wLAB*s0 0 get nLAB*s0 0 get sub 0.000001 add div def } bind def %END procedure proc_LAB*Fa_LAB*MaNTABl_olvi3*cmyn3*Ma*ioL %******************************************************************* /proc_LAB*Fae_LAB*MaeNTABl_olvi3*cmyn3*Ma*ioL { %BEG procedure proc_LAB*Fae_LAB*MaeNTABl_olvi3*cmyn3*Ma*ioL %only for calculation without hue tables %input LAB*Fae %input LAB*a (4 adapted colours RJGB, No. 8 to 11) %input nLAB*s0 (colour white N for calculation of lab*l) %input wLAB*s0 (colour white W for achromatic axis) %output LAB*Mae %output olvi3*Mae %output cmyn3*Mae /UXF1a wLAB*s0 1 get B*Fae mul wLAB*s0 2 get A*Fae mul sub def /UXF2a wLAB*s0 2 get L*Fae mul wLAB*s0 0 get B*Fae mul sub def /UXF3a wLAB*s0 0 get A*Fae mul wLAB*s0 1 get L*Fae mul sub def /T1 0 def /T2 0 def 0 1 5 {/ia exch def /ia30 ia 3 mul def ia 5 eq {/ia31 0 def} {/ia31 ia30 3 add def} ifelse /T1 LAB*a ia30 get UXF1a mul LAB*a ia30 1 add get UXF2a mul add LAB*a ia30 2 add get UXF3a mul add def /T2 LAB*a ia31 get UXF1a mul LAB*a ia31 1 add get UXF2a mul add LAB*a ia31 2 add get UXF3a mul add def T1 0 le {/T1X (N) def} {/T1X (P) def} ifelse T2 0 gt {/T2X (P) def} {/T2X (N) def} ifelse T1 0 le T2 0 gt and {/ia3END ia30 def exit} if } for /L*11a LAB*a ia3END get def /A*11a LAB*a ia3END 1 add get def /B*11a LAB*a ia3END 2 add get def ia3END 15 ge {/ia3END -3 def} if /L*21a LAB*a ia3END 3 add get def /A*21a LAB*a ia3END 4 add get def /B*21a LAB*a ia3END 5 add get def /NENNER L*21a L*11a sub UXF1a mul A*21a A*11a sub UXF2a mul add B*21a B*11a sub UXF3a mul add def /ZAEHLE L*21a UXF1a mul A*21a UXF2a mul add B*21a UXF3a mul add def NENNER 0 ne {/ALPH ZAEHLE NENNER div def} {/ALPH 99999} ifelse /L*Mae ALPH L*11a mul 1 ALPH sub L*21a mul add def /A*Mae ALPH A*11a mul 1 ALPH sub A*21a mul add def /B*Mae ALPH B*11a mul 1 ALPH sub B*21a mul add def /C*Mae A*Mae dup mul B*Mae dup mul add 0.000001 add sqrt def /H*Mae B*Mae A*Mae 0.0001 add atan def /ia30 ia 3 mul def /iap 1 ALPH sub def /iam ALPH def ia 0 eq {/c3*Mae 0 def %L, c*=0, sector O->Y /m3*Mae iam def %L, m*=1->0 /y3*Mae 1 def %L, y*=1 } if ia 1 eq {/c3*Mae iap def %L, c*=0->1, sector Y->L /m3*Mae 0 def %L, m*=0 /y3*Mae 1 def %L, y*=1 } if ia 2 eq {/c3*Mae 1 def %L, c*=1, sector L->C /m3*Mae 0 def %L, m*=0 /y3*Mae iam def %L, y*=1->0 } if ia 3 eq {/c3*Mae 1 def %L, c*=1, sector C->V /m3*Mae iap def %L, m*=1->0 /y3*Mae 0 def %L, y*=0 } if ia 4 eq {/c3*Mae iam def %L, c*=1->0, sector V->M /m3*Mae 1 def %L, m*=1 /y3*Mae 0 def %L, y*=0 } if ia 5 eq {/c3*Mae 0 def %L, c*=0, sector M->O /m3*Mae 1 def %L, m*=1 /y3*Mae iap def %L, y*=0->1 } if /o3*Mae 1 c3*Mae sub def /l3*Mae 1 m3*Mae sub def /v3*Mae 1 y3*Mae sub def /i3*Mae 1 def /lab*nMae 0.00 def /lab*cMae 1.00 def /lab*wMae 0.00 def /lab*tMae 0.50 def /lab*hMae H*Mae 360 div def /lab*lMae L*Mae nLAB*s0 0 get sub wLAB*s0 0 get nLAB*s0 0 get sub 0.000001 add div def } bind def %END procedure proc_LAB*Fae_LAB*MaeNTABl_olvi3*cmyn3*Ma*ioL %******************************************************************* %%EndProlog gsave %LANINDL2 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 {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 /showm {6 lanind eq {show} {pop} ifelse} bind def /popde {0 lanind ne {pop} if} bind def /popen {1 lanind ne {pop} if} bind def /popes {2 lanind ne {pop} if} bind def /popfr {3 lanind ne {pop} if} bind def /popit {4 lanind ne {pop} if} bind def /popjp {5 lanind ne {pop} if} bind def /popm {6 lanind ne {pop} if} bind def /popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def /popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def /popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def /popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def /popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def /popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def /popxm {/n exch def 6 lanind ne {n {pop} repeat} if} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 0 def /lanind2 0 def} ifelse /colormg where {pop /colorm1 colormg def /colorm2 colormg def} {/colorm1 0 def /colorm2 0 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage /colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage /xcolorx xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage /xchartx xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage gsave %LANINDL2 END /cvi100show {100 mul cvi /xi exch def xi 0 lt {/vorz -1 def} {/vorz 1 def} ifelse /xia xi abs def vorz -1 eq {(\255) show} {(0) show} ifelse xia 0 ge xia 9 le {(000) show} if xia 10 ge xia 99 le and {(00) show} if xia 100 ge xia 999 le and {(0) show} if % xia 1000 ge xia 9999 le and {() show} if xia cvishow ( ) show } bind def /LUTL* 247 array def %243+4=247 /LUTA* 247 array def /LUTB* 247 array def /LUTr* 247 array def /LUTg* 247 array def /LUTb* 247 array def /C*ab 247 array def /L* 247 array def /LUTl* 247 array def %243+4=247 /LUTc1* 247 array def /LUTc2* 247 array def /LUTt1* 247 array def /LUTt2* 247 array def /LUTc*rgb 247 array def /LUTt*rgb 247 array def /l1* 247 array def %243+4=247 /l2* 247 array def %l* not possible allread used olv* /c1* 247 array def /c2* 247 array def /t1* 247 array def /t2* 247 array def /c1*rgb 247 array def /c2*rgb 247 array def /t1*rgb 247 array def /t2*rgb 247 array def /ColNames [(O) (Y) (L) (C) (V) (M) (N) (W) (R) (J) (G) (B) (R) (R25J) (R50J) (R75J) (J) (J25G) (J50G) (J75G) (G) (G25B) (G50B) (G75B) (B) (B25R) (B50R) (B75R) (R) ] def /o3Ma [1 1 0 0 0 1 0 1 1 1 0 0 1 1.00 1.00 1.00 1 0.75 0.50 0.25 0 0.00 0.00 0.00 0 0.50 1.00 1.00 1] def /l3Ma [0 1 1 1 0 0 0 1 0 1 1 0 0 0.25 0.50 0.75 1 1.00 1.00 1.00 1 1.00 1.00 0.50 0 0.00 0.00 0.00 0] def /v3Ma [0 0 0 1 1 1 0 1 0 0 0 1 0 0.00 0.00 0.00 0 0.00 0.00 0.00 0 0.50 1.00 1.00 1 1.00 1.00 0.50 0] def /yd 340 def %y-Zeilenabstand %Spalten /S1 20 def /S2 450 def /S3 1550 def /S4 2650 def /S5 3750 def /S6 4650 def /S7 5350 def /S8 6400 def /S9 7200 def /S10 8000 def /S11 8800 def /S12 9600 def /yu1 4650 def /yu2 3800 4000 add def /nshow {300 /Times-ISOL1 FS show} bind def /kshow {300 /TimesI-ISOL1 FS show} bind def /bshow {300 /TimesB-ISOL1 FS show} bind def /jshow {300 /TimesBI-ISOL1 FS show} bind def /sshow {300 /Symbol FS show} bind def /ishow {220 /Times-ISOL1 FS -00 -50 rmoveto show 00 50 rmoveto} bind def /eshow {220 /Times-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto} bind def 72 90 translate 0.01 MM dup scale /L*olv 8 array def /A*olv 8 array def /B*olv 8 array def /C*olv 8 array def /H*olv 8 array def /N*olv 8 array def /o*olv 8 array def /l*olv 8 array def /v*olv 8 array def /L*rgb 8 array def /A*rgb 8 array def /B*rgb 8 array def /C*rgb 8 array def /H*rgb 8 array def /N*rgb 8 array def /o*rgb 8 array def /l*rgb 8 array def /v*rgb 8 array def /angle_olv 7 array def /angle_olvG01 7 array def /angle_olvG11 7 array def /angle_rgb 7 array def /angle_olv [38 96 151 236 305 354 398] def %standard offset /angle_rgb [26 92 162 217 272 329 386] def %CIE-test colors /angle_olvi 28 array def %shift by 00,25,50,75% /angle_olvG01i 28 array def %shift by 00,25,50,75% /angle_olvG11i 28 array def %shift by 00,25,50,75% /angle_rgbi 28 array def %shift by 00,25,50,75% /xcolor xcolorx def /xchart xchartx def 00 1 0 {/xcolor exch def %xcolor=0,0 gsave %/icolor xcolor xcolor 2 idiv 2 mul sub def %icolor=0 or 1 /icolor 0 def xcolor 0 eq {%xcolor 0, LAB*ra /FileData (JG07_LECD display 0,9%_ra) def /LUT [ %ps2ascii output with Ghostsript-programm: macps2pdf, date: 2010-01-04 %input file: JE060-7A.PS, output file: JE060-7AA.TXT (BBEDIT used for TXT) %JE060-7AA.TXT ra_line 1146 %JE060-7A, Page 7 /66, LAB*ra; cf1=1.00; nt=0.18; nx=1.0; LECD_08_95, adapted %LAB*ra, D65, adapted, Y = 0.89 , L* = 8.08 000808 000025 000012 0000 0000 0000 1000 1000 1000 0000 %0000 A01 000931 000919 -01869 0000 0000 0125 1000 1000 0875 0000 %0001 A02 001167 002466 -03965 0000 0000 0250 1000 1000 0750 0000 %0002 A03 001401 003576 -05276 0000 0000 0375 1000 1000 0625 0000 %0003 A04 001648 004412 -06317 0000 0000 0500 1000 1000 0500 0000 %0004 A05 001898 005148 -07223 0000 0000 0625 1000 1000 0375 0000 %0005 A06 002150 005821 -08070 0000 0000 0750 1000 1000 0250 0000 %0006 A07 002474 006445 -08938 0000 0000 0875 1000 1000 0125 0000 %0007 A08 003158 007462 -10553 0000 0000 1000 1000 1000 0000 0000 %0008 A09 001676 -01579 001271 0000 0125 0000 1000 0875 1000 0000 %0009 B01 001731 -00841 -00575 0000 0125 0125 1000 0875 0875 0000 %0010 B02 001874 000615 -02750 0000 0125 0250 1000 0875 0750 0000 %0011 B03 002040 001847 -04246 0000 0125 0375 1000 0875 0625 0000 %0012 B04 002213 002785 -05404 0000 0125 0500 1000 0875 0500 0000 %0013 B05 002391 003696 -06406 0000 0125 0625 1000 0875 0375 0000 %0014 B06 002597 004497 -07327 0000 0125 0750 1000 0875 0250 0000 %0015 B07 002854 005273 -08288 0000 0125 0875 1000 0875 0125 0000 %0016 B08 003446 006580 -10061 0000 0125 1000 1000 0875 0000 0000 %0017 B09 002876 -03237 002923 0000 0250 0000 1000 0750 1000 0000 %0018 C01 002906 -02734 001262 0000 0250 0125 1000 0750 0875 0000 %0019 C02 002993 -01616 -00976 0000 0250 0250 1000 0750 0750 0000 %0020 C03 003091 -00586 -02497 0000 0250 0375 1000 0750 0625 0000 %0021 C04 003191 000408 -03782 0000 0250 0500 1000 0750 0500 0000 %0022 C05 003312 001309 -04892 0000 0250 0625 1000 0750 0375 0000 %0023 C06 003452 002169 -05901 0000 0250 0750 1000 0750 0250 0000 %0024 C07 003633 003104 -07003 0000 0250 0875 1000 0750 0125 0000 %0025 C08 004077 004741 -08995 0000 0250 1000 1000 0750 0000 0000 %0026 C09 003824 -04321 004085 0000 0375 0000 1000 0625 1000 0000 %0027 D01 003844 -03918 002597 0000 0375 0125 1000 0625 0875 0000 %0028 D02 003899 -03043 000431 0000 0375 0250 1000 0625 0750 0000 %0029 D03 003963 -02220 -01080 0000 0375 0375 1000 0625 0625 0000 %0030 D04 004045 -01337 -02393 0000 0375 0500 1000 0625 0500 0000 %0031 D05 004128 -00501 -03529 0000 0375 0625 1000 0625 0375 0000 %0032 D06 004232 000341 -04610 0000 0375 0750 1000 0625 0250 0000 %0033 D07 004370 001369 -05750 0000 0375 0875 1000 0625 0125 0000 %0034 D08 004720 003008 -07907 0000 0375 1000 1000 0625 0000 0000 %0035 D09 004663 -05141 005048 0000 0500 0000 1000 0500 1000 0000 %0036 E01 004682 -04842 003741 0000 0500 0125 1000 0500 0875 0000 %0037 E02 004724 -04159 001691 0000 0500 0250 1000 0500 0750 0000 %0038 E03 004772 -03460 000184 0000 0500 0375 1000 0500 0625 0000 %0039 E04 004831 -02703 -01131 0000 0500 0500 1000 0500 0500 0000 %0040 E05 004899 -01972 -02284 0000 0500 0625 1000 0500 0375 0000 %0041 E06 004980 -01162 -03396 0000 0500 0750 1000 0500 0250 0000 %0042 E07 005089 -00302 -04578 0000 0500 0875 1000 0500 0125 0000 %0043 E08 005373 001453 -06830 0000 0500 1000 1000 0500 0000 0000 %0044 E09 005431 -05829 005927 0000 0625 0000 1000 0375 1000 0000 %0045 F01 005443 -05597 004727 0000 0625 0125 1000 0375 0875 0000 %0046 F02 005476 -05041 002787 0000 0625 0250 1000 0375 0750 0000 %0047 F03 005515 -04461 001339 0000 0625 0375 1000 0375 0625 0000 %0048 F04 005562 -03800 000016 0000 0625 0500 1000 0375 0500 0000 %0049 F05 005617 -03145 -01136 0000 0625 0625 1000 0375 0375 0000 %0050 F06 005680 -02436 -02252 0000 0625 0750 1000 0375 0250 0000 %0051 F07 005773 -01611 -03470 0000 0625 0875 1000 0375 0125 0000 %0052 F08 006008 000062 -05776 0000 0625 1000 1000 0375 0000 0000 %0053 F09 006230 -06526 006792 0000 0750 0000 1000 0250 1000 0000 %0054 G01 006242 -06336 005756 0000 0750 0125 1000 0250 0875 0000 %0055 G02 006269 -05869 003933 0000 0750 0250 1000 0250 0750 0000 %0056 G03 006301 -05372 002517 0000 0750 0375 1000 0250 0625 0000 %0057 G04 006339 -04813 001226 0000 0750 0500 1000 0250 0500 0000 %0058 G05 006382 -04248 000073 0000 0750 0625 1000 0250 0375 0000 %0059 G06 006436 -03629 -01046 0000 0750 0750 1000 0250 0250 0000 %0060 G07 006509 -02887 -02269 0000 0750 0875 1000 0250 0125 0000 %0061 G08 006708 -01319 -04626 0000 0750 1000 1000 0250 0000 0000 %0062 G09 007134 -07253 007791 0000 0875 0000 1000 0125 1000 0000 %0063 H01 007142 -07093 006887 0000 0875 0125 1000 0125 0875 0000 %0064 H02 007165 -06720 005198 0000 0875 0250 1000 0125 0750 0000 %0065 H03 007191 -06307 003830 0000 0875 0375 1000 0125 0625 0000 %0066 H04 007222 -05845 002575 0000 0875 0500 1000 0125 0500 0000 %0067 H05 007256 -05354 001433 0000 0875 0625 1000 0125 0375 0000 %0068 H06 007300 -04815 000317 0000 0875 0750 1000 0125 0250 0000 %0069 H07 007361 -04161 -00914 0000 0875 0875 1000 0125 0125 0000 %0070 H08 007522 -02745 -03292 0000 0875 1000 1000 0125 0000 0000 %0071 H09 008413 -08214 009227 0000 1000 0000 1000 0000 1000 0000 %0072 I01 008419 -08103 008441 0000 1000 0125 1000 0000 0875 0000 %0073 I02 008437 -07802 006939 0000 1000 0250 1000 0000 0750 0000 %0074 I03 008458 -07489 005659 0000 1000 0375 1000 0000 0625 0000 %0075 I04 008480 -07116 004454 0000 1000 0500 1000 0000 0500 0000 %0076 I05 008508 -06733 003342 0000 1000 0625 1000 0000 0375 0000 %0077 I06 008540 -06300 002243 0000 1000 0750 1000 0000 0250 0000 %0078 I07 008588 -05756 001027 0000 1000 0875 1000 0000 0125 0000 %0079 I08 008716 -04558 -01357 0000 1000 1000 1000 0000 0000 0000 %0080 I09 001127 001190 000529 0125 0000 0000 0875 1000 1000 0000 %0081 J01 001205 001753 -01331 0125 0000 0125 0875 1000 0875 0000 %0082 J02 001418 002878 -03493 0125 0000 0250 0875 1000 0750 0000 %0083 J03 001619 003769 -04861 0125 0000 0375 0875 1000 0625 0000 %0084 J04 001836 004568 -05982 0125 0000 0500 0875 1000 0500 0000 %0085 J05 002062 005298 -06947 0125 0000 0625 0875 1000 0375 0000 %0086 J06 002294 005870 -07795 0125 0000 0750 0875 1000 0250 0000 %0087 J07 002597 006510 -08721 0125 0000 0875 0875 1000 0125 0000 %0088 J08 003249 007507 -10384 0125 0000 1000 0875 1000 0000 0000 %0089 J09 001849 -00470 001613 0125 0125 0000 0875 0875 1000 0000 %0090 K01 001911 000085 -00255 0125 0125 0125 0875 0875 0875 0000 %0091 K02 002040 001222 -02481 0125 0125 0250 0875 0875 0750 0000 %0092 K03 002182 002215 -03938 0125 0125 0375 0875 0875 0625 0000 %0093 K04 002343 003111 -05148 0125 0125 0500 0875 0875 0500 0000 %0094 K05 002519 003943 -06182 0125 0125 0625 0875 0875 0375 0000 %0095 K06 002705 004618 -07093 0125 0125 0750 0875 0875 0250 0000 %0096 K07 002957 005406 -08120 0125 0125 0875 0875 0875 0125 0000 %0097 K08 003527 006648 -09917 0125 0125 1000 0875 0875 0000 0000 %0098 K09 002972 -02430 003077 0125 0250 0000 0875 0750 1000 0000 %0099 L01 003007 -07510 000165 0125 0250 0125 0875 0750 0875 0000 %0100 L02 003084 -01053 -00796 0125 0250 0250 0875 0750 0750 0000 %0101 L03 003178 -00144 -02315 0125 0250 0375 0875 0750 0625 0000 %0102 L04 003281 000765 -03606 0125 0250 0500 0875 0750 0500 0000 %0103 L05 003398 001602 -04723 0125 0250 0625 0875 0750 0375 0000 %0104 L06 003533 002401 -05763 0125 0250 0750 0875 0750 0250 0000 %0105 L07 003704 003295 -06855 0125 0250 0875 0875 0750 0125 0000 %0106 L08 004142 004871 -08881 0125 0250 1000 0875 0750 0000 0000 %0107 L09 003889 -03708 004160 0125 0375 0000 0875 0625 1000 0000 %0108 M01 003914 -03381 002707 0125 0375 0125 0875 0625 0875 0000 %0109 M02 003973 -02581 000573 0125 0375 0250 0875 0625 0750 0000 %0110 M03 004035 -01789 -00940 0125 0375 0375 0875 0625 0625 0000 %0111 M04 004110 -00980 -02266 0125 0375 0500 0875 0625 0500 0000 %0112 M05 004192 -00189 -03410 0125 0375 0625 0875 0625 0375 0000 %0113 M06 004293 000597 -04498 0125 0375 0750 0875 0625 0250 0000 %0114 M07 004420 001477 -05647 0125 0375 0875 0875 0625 0125 0000 %0115 M08 004776 003185 -07829 0125 0375 1000 0875 0625 0000 0000 %0116 M09 004720 -04664 005124 0125 0500 0000 0875 0500 1000 0000 %0117 N01 004739 -04393 003819 0125 0500 0125 0875 0500 0875 0000 %0118 N02 004780 -03752 001787 0125 0500 0250 0875 0500 0750 0000 %0119 N03 004827 -03091 000292 0125 0500 0375 0875 0500 0625 0000 %0120 N04 004888 -02384 -01021 0125 0500 0500 0875 0500 0500 0000 %0121 N05 004949 -01676 -02177 0125 0500 0625 0875 0500 0375 0000 %0122 N06 005099 -00949 -03326 0125 0500 0750 0875 0500 0250 0000 %0123 N07 005139 -00085 -04487 0125 0500 0875 0875 0500 0125 0000 %0124 N08 005422 001616 -06753 0125 0500 1000 0875 0500 0000 0000 %0125 N09 005476 -05455 005957 0125 0625 0000 0875 0375 1000 0000 %0126 O01 005488 -05229 004819 0125 0625 0125 0875 0375 0875 0000 %0127 O02 005524 -04688 002885 0125 0625 0250 0875 0375 0750 0000 %0128 O03 005565 -04094 001377 0125 0625 0375 0875 0375 0625 0000 %0129 O04 005609 -03511 000111 0125 0625 0500 0875 0375 0500 0000 %0130 O05 005660 -02892 -01046 0125 0625 0625 0875 0375 0375 0000 %0131 O06 005728 -02202 -02175 0125 0625 0750 0875 0375 0250 0000 %0132 O07 005814 -01414 -03385 0125 0625 0875 0875 0375 0125 0000 %0133 O08 006052 000222 -05709 0125 0625 1000 0875 0375 0000 0000 %0134 O09 006272 -06218 006858 0125 0750 0000 0875 0250 1000 0000 %0135 P01 006281 -06024 005814 0125 0750 0125 0875 0250 0875 0000 %0136 P02 006308 -05577 004005 0125 0750 0250 0875 0250 0750 0000 %0137 P03 006341 -05108 002588 0125 0750 0375 0875 0250 0625 0000 %0138 P04 006379 -04563 001301 0125 0750 0500 0875 0250 0500 0000 %0139 P05 006424 -04017 000146 0125 0750 0625 0875 0250 0375 0000 %0140 P06 006475 -03411 -00979 0125 0750 0750 0875 0250 0250 0000 %0141 P07 006548 -02694 -02205 0125 0750 0875 0875 0250 0125 0000 %0142 P08 006745 -01166 -04559 0125 0750 1000 0875 0250 0000 0000 %0143 P09 007167 -07002 007827 0125 0875 0000 0875 0125 1000 0000 %0144 Q01 007177 -06839 006932 0125 0875 0125 0875 0125 0875 0000 %0145 Q02 007197 -06482 005253 0125 0875 0250 0875 0125 0750 0000 %0146 Q03 007222 -06084 003891 0125 0875 0375 0875 0125 0625 0000 %0147 Q04 007254 -05636 002633 0125 0875 0500 0875 0125 0500 0000 %0148 Q05 007289 -05157 001494 0125 0875 0625 0875 0125 0375 0000 %0149 Q06 007332 -04626 000376 0125 0875 0750 0875 0125 0250 0000 %0150 Q07 007392 -03982 -00854 0125 0875 0875 0875 0125 0125 0000 %0151 Q08 007555 -02603 -03241 0125 0875 1000 0875 0125 0000 0000 %0152 Q09 008431 -08022 009245 0125 1000 0000 0875 0000 1000 0000 %0153 R01 008438 -07903 008476 0125 1000 0125 0875 0000 0875 0000 %0154 R02 008455 -07611 006967 0125 1000 0250 0875 0000 0750 0000 %0155 R03 009894 -08308 006508 0125 1000 0375 0875 0000 0625 0000 %0156 R04 008498 -06948 004484 0125 1000 0500 0875 0000 0500 0000 %0157 R05 008526 -06564 003376 0125 1000 0625 0875 0000 0375 0000 %0158 R06 008559 -06131 002274 0125 1000 0750 0875 0000 0250 0000 %0159 R07 008606 -05605 001058 0125 1000 0875 0875 0000 0125 0000 %0160 R08 008732 -04410 -01330 0125 1000 1000 0875 0000 0000 0000 %0161 R09 001717 002484 001492 0250 0000 0000 0750 1000 1000 0000 %0162 S01 001784 002854 -00432 0250 0000 0125 0750 1000 0875 0000 %0163 S02 001923 003609 -02631 0250 0000 0250 0750 1000 0750 0000 %0164 S03 002085 004266 -04083 0250 0000 0375 0750 1000 0625 0000 %0165 S04 002244 004920 -05279 0250 0000 0500 0750 1000 0500 0000 %0166 S05 002419 005493 -06289 0250 0000 0625 0750 1000 0375 0000 %0167 S06 002631 006065 -07246 0250 0000 0750 0750 1000 0250 0000 %0168 S07 002884 006634 -08220 0250 0000 0875 0750 1000 0125 0000 %0169 S08 003469 007616 -10008 0250 0000 1000 0750 1000 0000 0000 %0170 S09 002254 001153 002206 0250 0125 0000 0750 0875 1000 0000 %0171 T01 002304 001480 000414 0250 0125 0125 0750 0875 0875 0000 %0172 T02 002409 002247 -01846 0250 0125 0250 0750 0875 0750 0000 %0173 T03 002536 002996 -03349 0250 0125 0375 0750 0875 0625 0000 %0174 T04 002672 003704 -04604 0250 0125 0500 0750 0875 0500 0000 %0175 T05 002815 004340 -05649 0250 0125 0625 0750 0875 0375 0000 %0176 T06 002979 004980 -06628 0250 0125 0750 0750 0875 0250 0000 %0177 T07 003204 005678 -07698 0250 0125 0875 0750 0875 0125 0000 %0178 T08 003725 006833 -09578 0250 0125 1000 0750 0875 0000 0000 %0179 T09 003224 -00977 003472 0250 0250 0000 0750 0750 1000 0000 %0180 U01 003249 -00657 001813 0250 0250 0125 0750 0750 0875 0000 %0181 U02 003325 000065 -00399 0250 0250 0250 0750 0750 0750 0000 %0182 U03 003404 000792 -01927 0250 0250 0375 0750 0750 0625 0000 %0183 U04 003498 001520 -03236 0250 0250 0500 0750 0750 0500 0000 %0184 U05 003606 002223 -04353 0250 0250 0625 0750 0750 0375 0000 %0185 U06 003725 002926 -05405 0250 0250 0750 0750 0750 0250 0000 %0186 U07 003894 003710 -06526 0250 0250 0875 0750 0750 0125 0000 %0187 U08 004306 005143 -08599 0250 0250 1000 0750 0750 0000 0000 %0188 U09 004068 000928 006968 0250 0375 0000 0750 0625 1000 0000 %0189 V01 004091 -02192 002984 0250 0375 0125 0750 0625 0875 0000 %0190 V02 004142 -01537 000852 0250 0375 0250 0750 0625 0750 0000 %0191 V03 004201 -00900 -00672 0250 0375 0375 0750 0625 0625 0000 %0192 V04 004271 -00207 -01994 0250 0375 0500 0750 0625 0500 0000 %0193 V05 004353 000475 -03134 0250 0375 0625 0750 0625 0375 0000 %0194 V06 004449 001174 -04233 0250 0375 0750 0750 0625 0250 0000 %0195 V07 004578 001974 -05403 0250 0375 0875 0750 0625 0125 0000 %0196 V08 004910 003528 -07590 0250 0375 1000 0750 0625 0000 0000 %0197 V09 004856 -03639 005337 0250 0500 0000 0750 0500 1000 0000 %0198 W01 004874 -03412 004053 0250 0500 0125 0750 0500 0875 0000 %0199 W02 004913 -02854 002010 0250 0500 0250 0750 0500 0750 0000 %0200 W03 004959 -02278 000520 0250 0500 0375 0750 0500 0625 0000 %0201 W04 005018 -01667 -00803 0250 0500 0500 0750 0500 0500 0000 %0202 W05 005079 -01021 -01965 0250 0500 0625 0750 0500 0375 0000 %0203 W06 005156 -00362 -03082 0250 0500 0750 0750 0500 0250 0000 %0204 W07 005259 000424 -04282 0250 0500 0875 0750 0500 0125 0000 %0205 W08 005786 002048 -06786 0250 0500 1000 0750 0500 0000 0000 %0206 W09 005585 -04619 006156 0250 0625 0000 0750 0375 1000 0000 %0207 X01 005600 -04388 004974 0250 0625 0125 0750 0375 0875 0000 %0208 X02 005635 -03910 003061 0250 0625 0250 0750 0375 0750 0000 %0209 X03 005672 -03413 001600 0250 0625 0375 0750 0375 0625 0000 %0210 X04 005717 -02849 000280 0250 0625 0500 0750 0375 0500 0000 %0211 X05 005770 -02273 -00873 0250 0625 0625 0750 0375 0375 0000 %0212 X06 005830 -01664 -01998 0250 0625 0750 0750 0375 0250 0000 %0213 X07 005916 -00920 -03218 0250 0625 0875 0750 0375 0125 0000 %0214 X08 006146 000600 -05538 0250 0625 1000 0750 0375 0000 0000 %0215 X09 006360 -05497 006977 0250 0750 0000 0750 0250 1000 0000 %0216 Y01 006372 -05329 005953 0250 0750 0125 0750 0250 0875 0000 %0217 Y02 006400 -04906 004155 0250 0750 0250 0750 0250 0750 0000 %0218 Y03 006429 -04466 002731 0250 0750 0375 0750 0250 0625 0000 %0219 Y04 006466 -03980 001441 0250 0750 0500 0750 0250 0500 0000 %0220 Y05 006509 -03463 000293 0250 0750 0625 0750 0250 0375 0000 %0221 Y06 006559 -02904 -00830 0250 0750 0750 0750 0250 0250 0000 %0222 Y07 006633 -02236 -02063 0250 0750 0875 0750 0250 0125 0000 %0223 Y08 006826 -00786 -04427 0250 0750 1000 0750 0250 0000 0000 %0224 Y09 007239 -06400 007951 0250 0875 0000 0750 0125 1000 0000 %0225 Z01 007249 -06258 007038 0250 0875 0125 0750 0125 0875 0000 %0226 Z02 007268 -05917 005362 0250 0875 0250 0750 0125 0750 0000 %0227 Z03 007295 -05541 004005 0250 0875 0375 0750 0125 0625 0000 %0228 Z04 007325 -05109 002753 0250 0875 0500 0750 0125 0500 0000 %0229 Z05 007359 -04679 001611 0250 0875 0625 0750 0125 0375 0000 %0230 Z06 007402 -04164 000488 0250 0875 0750 0750 0125 0250 0000 %0231 Z07 007461 -03576 -00733 0250 0875 0875 0750 0125 0125 0000 %0232 Z08 007622 -02243 -03125 0250 0875 1000 0750 0125 0000 0000 %0233 Z09 008482 -07555 009317 0250 1000 0000 0750 0000 1000 0000 %0234 a01 008489 -07444 008559 0250 1000 0125 0750 0000 0875 0000 %0235 a02 008507 -07169 007050 0250 1000 0250 0750 0000 0750 0000 %0236 a03 008526 -06873 005776 0250 1000 0375 0750 0000 0625 0000 %0237 a04 008548 -06520 004573 0250 1000 0500 0750 0000 0500 0000 %0238 a05 008575 -06158 003460 0250 1000 0625 0750 0000 0375 0000 %0239 a06 008610 -05739 002358 0250 1000 0750 0750 0000 0250 0000 %0240 a07 008656 -05233 001137 0250 1000 0875 0750 0000 0125 0000 %0241 a08 008782 -04078 -01249 0250 1000 1000 0750 0000 0000 0000 %0242 a09 %JE060-7A, Page 8 /66, LAB*ra; cf1=1.00; nt=0.18; nx=1.0; LECD_08_95, adapted 002244 003463 002320 0375 0000 0000 0625 1000 1000 0000 %0243 A10 002294 003708 000457 0375 0000 0125 0625 1000 0875 0000 %0244 A11 002409 004240 -01813 0375 0000 0250 0625 1000 0750 0000 %0245 A12 002527 004773 -03309 0375 0000 0375 0625 1000 0625 0000 %0246 A13 002664 005291 -04560 0375 0000 0500 0625 1000 0500 0000 %0247 A14 002808 005778 -05605 0375 0000 0625 0625 1000 0375 0000 %0248 A15 002979 006299 -06619 0375 0000 0750 0625 1000 0250 0000 %0249 A16 003198 006823 -07655 0375 0000 0875 0625 1000 0125 0000 %0250 A17 003725 007752 -09558 0375 0000 1000 0625 1000 0000 0000 %0251 A18 002664 002326 002875 0375 0125 0000 0625 0875 1000 0000 %0252 B10 002705 002574 001068 0375 0125 0125 0625 0875 0875 0000 %0253 B11 002800 003151 -01194 0375 0125 0250 0625 0875 0750 0000 %0254 B12 002899 003696 -02708 0375 0125 0375 0625 0875 0625 0000 %0255 B13 003021 004263 -03989 0375 0125 0500 0625 0875 0500 0000 %0256 B14 003145 004824 -05086 0375 0125 0625 0625 0875 0375 0000 %0257 B15 003416 005506 -06269 0375 0125 0750 0625 0875 0250 0000 %0258 B16 003487 005955 -07185 0375 0125 0875 0625 0875 0125 0000 %0259 B17 003963 007044 -09169 0375 0125 1000 0625 0875 0000 0000 %0260 B18 003498 000327 003875 0375 0250 0000 0625 0750 1000 0000 %0261 C10 003527 000571 002257 0375 0250 0125 0625 0750 0875 0000 %0262 C11 003595 001130 000046 0375 0250 0250 0625 0750 0750 0000 %0263 C12 003672 001714 -01495 0375 0250 0375 0625 0750 0625 0000 %0264 C13 003751 002318 -02805 0375 0250 0500 0625 0750 0500 0000 %0265 C14 003849 002890 -03935 0375 0250 0625 0625 0750 0375 0000 %0266 C15 003963 003513 -05016 0375 0250 0750 0625 0750 0250 0000 %0267 C16 004114 004187 -06154 0375 0250 0875 0625 0750 0125 0000 %0268 C17 004502 005489 -08275 0375 0250 1000 0625 0750 0000 0000 %0269 C18 004276 -01277 004758 0375 0375 0000 0625 0625 1000 0000 %0270 D10 004297 -01019 003306 0375 0375 0125 0625 0625 0875 0000 %0271 D11 004344 -00508 001188 0375 0375 0250 0625 0625 0750 0000 %0272 D12 004399 000016 -00328 0375 0375 0375 0625 0625 0625 0000 %0273 D13 004469 000620 -01665 0375 0375 0500 0625 0625 0500 0000 %0274 D14 004546 001212 -02819 0375 0375 0625 0625 0625 0375 0000 %0275 D15 004632 001820 -03923 0375 0375 0750 0625 0625 0250 0000 %0276 D16 004754 002528 -05105 0375 0375 0875 0625 0625 0125 0000 %0277 D17 005072 003916 -07313 0375 0375 1000 0625 0625 0000 0000 %0278 D18 005018 -02569 005560 0375 0500 0000 0625 0500 1000 0000 %0279 E10 005035 -02363 004284 0375 0500 0125 0625 0500 0875 0000 %0280 E11 005076 -01894 002267 0375 0500 0250 0625 0500 0750 0000 %0281 E12 005119 -00518 001117 0375 0500 0375 0625 0500 0625 0000 %0282 E13 005172 -00852 -00550 0375 0500 0500 0625 0500 0500 0000 %0283 E14 005234 -00300 -01708 0375 0500 0625 0625 0500 0375 0000 %0284 E15 005307 000311 -02836 0375 0500 0750 0625 0500 0250 0000 %0285 E16 005406 000991 -04043 0375 0500 0875 0625 0500 0125 0000 %0286 E17 005669 002424 -06325 0375 0500 1000 0625 0500 0000 0000 %0287 E18 005717 -03656 006307 0375 0625 0000 0625 0375 1000 0000 %0288 F10 005731 -03472 005176 0375 0625 0125 0625 0375 0875 0000 %0289 F11 005764 -03044 003262 0375 0625 0250 0625 0375 0750 0000 %0290 F12 005803 -02591 001814 0375 0625 0375 0625 0375 0625 0000 %0291 F13 005844 -02088 000495 0375 0625 0500 0625 0375 0500 0000 %0292 F14 005895 -01589 -00659 0375 0625 0625 0625 0375 0375 0000 %0293 F15 005956 -01013 -01789 0375 0625 0750 0625 0375 0250 0000 %0294 F16 006039 -00350 -03010 0375 0625 0875 0625 0375 0125 0000 %0295 F17 006262 001070 -05349 0375 0625 1000 0625 0375 0000 0000 %0296 F18 006468 -04674 007123 0375 0750 0000 0625 0250 1000 0000 %0297 G10 006479 -04523 006108 0375 0750 0125 0625 0250 0875 0000 %0298 G11 006507 -04142 004317 0375 0750 0250 0625 0250 0750 0000 %0299 G12 006537 -03739 002901 0375 0750 0375 0625 0250 0625 0000 %0300 G13 006573 -03289 001616 0375 0750 0500 0625 0250 0500 0000 %0301 G14 006613 -02823 000466 0375 0750 0625 0625 0250 0375 0000 %0302 G15 006666 -02294 -00659 0375 0750 0750 0625 0250 0250 0000 %0303 G16 006736 -01667 -01894 0375 0750 0875 0625 0250 0125 0000 %0304 G17 006924 -00323 -04262 0375 0750 1000 0625 0250 0000 0000 %0305 G18 007327 -05712 008059 0375 0875 0000 0625 0125 1000 0000 %0306 H10 007336 -05570 007166 0375 0875 0125 0625 0125 0875 0000 %0307 H11 007357 -05240 005499 0375 0875 0250 0625 0125 0750 0000 %0308 H12 007381 -04896 004139 0375 0875 0375 0625 0125 0625 0000 %0309 H13 007413 -04509 002888 0375 0875 0500 0625 0125 0500 0000 %0310 H14 007446 -04088 001751 0375 0875 0625 0625 0125 0375 0000 %0311 H15 007488 -03627 000631 0375 0875 0750 0625 0125 0250 0000 %0312 H16 007548 -03058 -00599 0375 0875 0875 0625 0125 0125 0000 %0313 H17 007705 -01796 -02990 0375 0875 1000 0625 0125 0000 0000 %0314 H18 008548 -07012 009403 0375 1000 0000 0625 0000 1000 0000 %0315 I10 008553 -06895 008640 0375 1000 0125 0625 0000 0875 0000 %0316 I11 008571 -06624 007151 0375 1000 0250 0625 0000 0750 0000 %0317 I12 008591 -06341 005881 0375 1000 0375 0625 0000 0625 0000 %0318 I13 008614 -06009 004672 0375 1000 0500 0625 0000 0500 0000 %0319 I14 008642 -05666 003564 0375 1000 0625 0625 0000 0375 0000 %0320 I15 008674 -05268 002464 0375 1000 0750 0625 0000 0250 0000 %0321 I16 008720 -04781 001244 0375 1000 0875 0625 0000 0125 0000 %0322 I17 008845 -03685 -01146 0375 1000 1000 0625 0000 0000 0000 %0323 I18 002777 004306 003138 0500 0000 0000 0500 1000 1000 0000 %0324 J10 002823 004510 001307 0500 0000 0125 0500 1000 0875 0000 %0325 J11 002906 004859 -00963 0500 0000 0250 0500 1000 0750 0000 %0326 J12 003007 005328 -02521 0500 0000 0375 0500 1000 0625 0000 %0327 J13 003118 005761 -03813 0500 0000 0500 0500 1000 0500 0000 %0328 J14 003230 006145 -04879 0500 0000 0625 0500 1000 0375 0000 %0329 J15 003380 006597 -05938 0500 0000 0750 0500 1000 0250 0000 %0330 J16 003567 006989 -06987 0500 0000 0875 0500 1000 0125 0000 %0331 J17 004035 007930 -09025 0500 0000 1000 0500 1000 0000 0000 %0332 J18 003111 003346 003552 0500 0125 0000 0500 0875 1000 0000 %0333 K10 003145 003564 001778 0500 0125 0125 0500 0875 0875 0000 %0334 K11 003224 003992 -00490 0500 0125 0250 0500 0875 0750 0000 %0335 K12 003312 004416 -02017 0500 0125 0375 0500 0875 0625 0000 %0336 K13 003410 004881 -03333 0500 0125 0500 0500 0875 0500 0000 %0337 K14 003516 005327 -04441 0500 0125 0625 0500 0875 0375 0000 %0338 K15 003644 005790 -05503 0500 0125 0750 0500 0875 0250 0000 %0339 K16 003819 006322 -06629 0500 0125 0875 0500 0875 0125 0000 %0340 K17 004245 007316 -08687 0500 0125 1000 0500 0875 0000 0000 %0341 K18 003824 001533 004358 0500 0250 0000 0500 0750 1000 0000 %0342 L10 003854 001737 002767 0500 0250 0125 0500 0750 0875 0000 %0343 L11 003909 002166 000572 0500 0250 0250 0500 0750 0750 0000 %0344 L12 003978 002627 -00970 0500 0250 0375 0500 0750 0625 0000 %0345 L13 004054 003120 -02305 0500 0250 0500 0500 0750 0500 0000 %0346 L14 004142 003602 -03445 0500 0250 0625 0500 0750 0375 0000 %0347 L15 004245 004124 -04538 0500 0250 0750 0500 0750 0250 0000 %0348 L16 004382 004715 -05700 0500 0250 0875 0500 0750 0125 0000 %0349 L17 004739 005869 -07862 0500 0250 1000 0500 0750 0000 0000 %0350 L18 004522 -00063 005116 0500 0375 0000 0500 0625 1000 0000 %0351 M10 004546 000142 003695 0500 0375 0125 0500 0625 0875 0000 %0352 M11 004593 000564 001593 0500 0375 0250 0500 0625 0750 0000 %0353 M12 004644 001020 000068 0500 0375 0375 0500 0625 0625 0000 %0354 M13 004709 001515 -01257 0500 0375 0500 0500 0625 0500 0000 %0355 M14 004776 002015 -02422 0500 0375 0625 0500 0625 0375 0000 %0356 M15 004860 002540 -03544 0500 0375 0750 0500 0625 0250 0000 %0357 M16 004973 003146 -04720 0500 0375 0875 0500 0625 0125 0000 %0358 M17 005272 004397 -06967 0500 0375 1000 0500 0625 0000 0000 %0359 M18 005218 -01429 005860 0500 0500 0000 0500 0500 1000 0000 %0360 N10 005234 -01245 004582 0500 0500 0125 0500 0500 0875 0000 %0361 N11 005272 -00847 002590 0500 0500 0250 0500 0500 0750 0000 %0362 N12 005316 -00419 001093 0500 0500 0375 0500 0500 0625 0000 %0363 N13 005366 000052 -00221 0500 0500 0500 0500 0500 0500 0000 %0364 N14 005422 000533 -01395 0500 0500 0625 0500 0500 0375 0000 %0365 N15 005491 001051 -02516 0500 0500 0750 0500 0500 0250 0000 %0366 N16 005585 001675 -03734 0500 0500 0875 0500 0500 0125 0000 %0367 N17 005841 002961 -06041 0500 0500 1000 0500 0500 0000 0000 %0368 N18 005884 -02600 006555 0500 0625 0000 0500 0375 1000 0000 %0369 O10 005895 -02439 005415 0500 0625 0125 0500 0375 0875 0000 %0370 O11 005927 -02068 003524 0500 0625 0250 0500 0375 0750 0000 %0371 O12 005964 -01670 002073 0500 0625 0375 0500 0375 0625 0000 %0372 O13 006006 -01232 000766 0500 0625 0500 0500 0375 0500 0000 %0373 O14 006052 -00766 -00398 0500 0625 0625 0500 0375 0375 0000 %0374 O15 006111 -00263 -01530 0500 0625 0750 0500 0375 0250 0000 %0375 O16 006191 000332 -02759 0500 0625 0875 0500 0375 0125 0000 %0376 O17 006407 001621 -05101 0500 0625 1000 0500 0375 0000 0000 %0377 O18 006602 -03733 007310 0500 0750 0000 0500 0250 1000 0000 %0378 P10 006615 -03582 006312 0500 0750 0125 0500 0250 0875 0000 %0379 P11 006642 -03248 004535 0500 0750 0250 0500 0250 0750 0000 %0380 P12 006671 -02891 003124 0500 0750 0375 0500 0250 0625 0000 %0381 P13 006703 -02478 001840 0500 0750 0500 0500 0250 0500 0000 %0382 P14 006747 -02059 000683 0500 0750 0625 0500 0250 0375 0000 %0383 P15 006794 -01587 -00446 0500 0750 0750 0500 0250 0250 0000 %0384 P16 006864 -01011 -01675 0500 0750 0875 0500 0250 0125 0000 %0385 P17 007046 000228 -04056 0500 0750 1000 0500 0250 0000 0000 %0386 P18 007435 -04888 008198 0500 0875 0000 0500 0125 1000 0000 %0387 Q10 007444 -04761 007331 0500 0875 0125 0500 0125 0875 0000 %0388 Q11 007468 -04454 005670 0500 0875 0250 0500 0125 0750 0000 %0389 Q12 007490 -04134 004324 0500 0875 0375 0500 0125 0625 0000 %0390 Q13 007519 -03768 003070 0500 0875 0500 0500 0125 0500 0000 %0391 Q14 007553 -03387 001934 0500 0875 0625 0500 0125 0375 0000 %0392 Q15 007594 -02961 000813 0500 0875 0750 0500 0125 0250 0000 %0393 Q16 007651 -02429 -00418 0500 0875 0875 0500 0125 0125 0000 %0394 Q17 007806 -01252 -02822 0500 0875 1000 0500 0125 0000 0000 %0395 Q18 008629 -06319 009511 0500 1000 0000 0500 0000 1000 0000 %0396 R10 008637 -06218 008764 0500 1000 0125 0500 0000 0875 0000 %0397 R11 008653 -05967 007279 0500 1000 0250 0500 0000 0750 0000 %0398 R12 008672 -05693 006015 0500 1000 0375 0500 0000 0625 0000 %0399 R13 008694 -05387 004804 0500 1000 0500 0500 0000 0500 0000 %0400 R14 008721 -05059 003704 0500 1000 0625 0500 0000 0375 0000 %0401 R15 008754 -04695 002601 0500 1000 0750 0500 0000 0250 0000 %0402 R16 008798 -04223 001382 0500 1000 0875 0500 0000 0125 0000 %0403 R17 008923 -03176 -01012 0500 1000 1000 0500 0000 0000 0000 %0404 R18 003287 005027 003923 0625 0000 0000 0375 1000 1000 0000 %0405 S10 003319 005153 002141 0625 0000 0125 0375 1000 0875 0000 %0406 S11 003398 005492 -00150 0625 0000 0250 0375 1000 0750 0000 %0407 S12 003475 005832 -01699 0625 0000 0375 0375 1000 0625 0000 %0408 S13 003567 006189 -03020 0625 0000 0500 0375 1000 0500 0000 %0409 S14 003672 006563 -04152 0625 0000 0625 0375 1000 0375 0000 %0410 S15 003788 006919 -05215 0625 0000 0750 0375 1000 0250 0000 %0411 S16 003954 007356 -06362 0625 0000 0875 0375 1000 0125 0000 %0412 S17 004366 008183 -08476 0625 0000 1000 0375 1000 0000 0000 %0413 S18 003555 004241 004225 0625 0125 0000 0375 0875 1000 0000 %0414 T10 003589 004401 002508 0625 0125 0125 0375 0875 0875 0000 %0415 T11 003655 004757 000242 0625 0125 0250 0375 0875 0750 0000 %0416 T12 003725 005084 -01305 0625 0125 0375 0375 0875 0625 0000 %0417 T13 003814 005472 -02637 0625 0125 0500 0375 0875 0500 0000 %0418 T14 003909 005880 -03789 0625 0125 0625 0375 0875 0375 0000 %0419 T15 004021 006256 -04861 0625 0125 0750 0375 0875 0250 0000 %0420 T16 004169 006725 -06024 0625 0125 0875 0375 0875 0125 0000 %0421 T17 004554 007624 -08175 0625 0125 1000 0375 0875 0000 0000 %0422 T18 004165 002625 004865 0625 0250 0000 0375 0750 1000 0000 %0423 U10 004192 002778 003334 0625 0250 0125 0375 0750 0875 0000 %0424 U11 004245 003116 001146 0625 0250 0250 0375 0750 0750 0000 %0425 U12 004306 003505 -00403 0625 0250 0375 0375 0750 0625 0000 %0426 U13 004374 003922 -01742 0625 0250 0500 0375 0750 0500 0000 %0427 U14 004453 004323 -02904 0625 0250 0625 0375 0750 0375 0000 %0428 U15 004546 004761 -04013 0625 0250 0750 0375 0750 0250 0000 %0429 U16 004671 005276 -05204 0625 0250 0875 0375 0750 0125 0000 %0430 U17 004997 006294 -07412 0625 0250 1000 0375 0750 0000 0000 %0431 U18 004794 001099 005528 0625 0375 0000 0375 0625 1000 0000 %0432 V10 004816 001269 004136 0625 0375 0125 0375 0625 0875 0000 %0433 V11 004860 001626 002047 0625 0375 0250 0375 0625 0750 0000 %0434 V12 004910 001982 000531 0625 0375 0375 0375 0625 0625 0000 %0435 V13 004963 002406 -00816 0625 0375 0500 0375 0625 0500 0000 %0436 V14 005028 002824 -01982 0625 0375 0625 0375 0625 0375 0000 %0437 V15 005109 003283 -03110 0625 0375 0750 0375 0625 0250 0000 %0438 V16 005211 003813 -04313 0625 0375 0875 0375 0625 0125 0000 %0439 V17 005494 004929 -06595 0625 0375 1000 0375 0625 0000 0000 %0440 V18 005437 -00286 006191 0625 0500 0000 0375 0500 1000 0000 %0441 W10 005452 -00126 004945 0625 0500 0125 0375 0500 0875 0000 %0442 W11 005488 000208 002956 0625 0500 0250 0375 0500 0750 0000 %0443 W12 005527 000581 001467 0625 0500 0375 0375 0500 0625 0000 %0444 W13 005577 000971 000141 0625 0500 0500 0375 0500 0500 0000 %0445 W14 005632 001393 -01023 0625 0500 0625 0375 0500 0375 0000 %0446 W15 005694 001836 -02159 0625 0500 0750 0375 0500 0250 0000 %0447 W16 005786 002388 -03384 0625 0500 0875 0375 0500 0125 0000 %0448 W17 006026 003544 -05713 0625 0500 1000 0375 0500 0000 0000 %0449 W18 006062 -01524 006820 0625 0625 0000 0375 0375 1000 0000 %0450 X10 006078 -01383 005718 0625 0625 0125 0375 0375 0875 0000 %0451 X11 006108 -01043 003840 0625 0625 0250 0375 0375 0750 0000 %0452 X12 006141 -00696 002381 0625 0625 0375 0375 0375 0625 0000 %0453 X13 006183 -00315 001076 0625 0625 0500 0375 0375 0500 0000 %0454 X14 006228 000093 -00088 0625 0625 0625 0375 0375 0375 0000 %0455 X15 006284 000535 -01227 0625 0625 0750 0375 0375 0250 0000 %0456 X16 006360 001077 -02460 0625 0625 0875 0375 0375 0125 0000 %0457 X17 006568 002240 -04829 0625 0625 1000 0375 0375 0000 0000 %0458 X18 006753 -02720 007540 0625 0750 0000 0375 0250 1000 0000 %0459 Y10 006766 -02598 006562 0625 0750 0125 0375 0250 0875 0000 %0460 Y11 006794 -02289 004789 0625 0750 0250 0375 0250 0750 0000 %0461 Y12 006822 -01980 003382 0625 0750 0375 0375 0250 0625 0000 %0462 Y13 006853 -01607 002102 0625 0750 0500 0375 0250 0500 0000 %0463 Y14 006895 -01234 000942 0625 0750 0625 0375 0250 0375 0000 %0464 Y15 006941 -00804 -00181 0625 0750 0750 0375 0250 0250 0000 %0465 Y16 007008 -00281 -01426 0625 0750 0875 0375 0250 0125 0000 %0466 Y17 007187 000853 -03809 0625 0750 1000 0375 0250 0000 0000 %0467 Y18 007562 -03981 008394 0625 0875 0000 0375 0125 1000 0000 %0468 Z10 007571 -03859 007525 0625 0875 0125 0375 0125 0875 0000 %0469 Z11 007592 -03583 005880 0625 0875 0250 0375 0125 0750 0000 %0470 Z12 007615 -03294 004537 0625 0875 0375 0375 0125 0625 0000 %0471 Z13 007645 -02946 003273 0625 0875 0500 0375 0125 0500 0000 %0472 Z14 007679 -02610 002151 0625 0875 0625 0375 0125 0375 0000 %0473 Z15 007719 -02216 001034 0625 0875 0750 0375 0125 0250 0000 %0474 Z16 007774 -01730 -00207 0625 0875 0875 0375 0125 0125 0000 %0475 Z17 007927 -00646 -02615 0625 0875 1000 0375 0125 0000 0000 %0476 Z18 008727 -05555 009660 0625 1000 0000 0375 0000 1000 0000 %0477 a10 008734 -05451 008920 0625 1000 0125 0375 0000 0875 0000 %0478 a11 008751 -05215 007436 0625 1000 0250 0375 0000 0750 0000 %0479 a12 008770 -04968 006182 0625 1000 0375 0375 0000 0625 0000 %0480 a13 008793 -04684 004977 0625 1000 0500 0375 0000 0500 0000 %0481 a14 008819 -04374 003873 0625 1000 0625 0375 0000 0375 0000 %0482 a15 008851 -04028 002768 0625 1000 0750 0375 0000 0250 0000 %0483 a16 008895 -03592 001543 0625 1000 0875 0375 0000 0125 0000 %0484 a17 009017 -02609 -00852 0625 1000 1000 0375 0000 0000 0000 %0485 a18 %JE060-7A, Page 9 /66, LAB*ra; cf1=1.00; nt=0.18; nx=1.0; LECD_08_95, adapted 003819 005759 004727 0750 0000 0000 0250 1000 1000 0000 %0486 A19 003854 005884 003013 0750 0000 0125 0250 1000 0875 0000 %0487 A20 003914 006143 000722 0750 0000 0250 0250 1000 0750 0000 %0488 A21 003978 006413 -00832 0750 0000 0375 0250 1000 0625 0000 %0489 A22 004054 006719 -02185 0750 0000 0500 0250 1000 0500 0000 %0490 A23 004142 007020 -03338 0750 0000 0625 0250 1000 0375 0000 %0491 A24 004241 007357 -04448 0750 0000 0750 0250 1000 0250 0000 %0492 A25 004382 007722 -05622 0750 0000 0875 0250 1000 0125 0000 %0493 A26 004742 008463 -07818 0750 0000 1000 0250 1000 0000 0000 %0494 A27 004045 005113 004957 0750 0125 0000 0250 0875 1000 0000 %0495 B19 004073 005242 003305 0750 0125 0125 0250 0875 0875 0000 %0496 B20 004128 005502 001051 0750 0125 0250 0250 0875 0750 0000 %0497 B21 004187 006025 -00410 0750 0125 0375 0250 0875 0625 0000 %0498 B22 004254 006117 -01875 0750 0125 0500 0250 0875 0500 0000 %0499 B23 004340 006443 -03037 0750 0125 0625 0250 0875 0375 0000 %0500 B24 004437 006786 -04151 0750 0125 0750 0250 0875 0250 0000 %0501 B25 004570 007176 -05330 0750 0125 0875 0250 0875 0125 0000 %0502 B26 004910 007974 -07553 0750 0125 1000 0250 0875 0000 0000 %0503 B27 004566 003692 005460 0750 0250 0000 0250 0750 1000 0000 %0504 C19 004589 003810 003962 0750 0250 0125 0250 0750 0875 0000 %0505 C20 004636 004095 001786 0750 0250 0250 0250 0750 0750 0000 %0506 C21 004686 004409 000240 0750 0250 0375 0250 0750 0625 0000 %0507 C22 004750 004733 -01097 0750 0250 0500 0250 0750 0500 0000 %0508 C23 004816 005076 -02281 0750 0250 0625 0250 0750 0375 0000 %0509 C24 004903 005454 -03401 0750 0250 0750 0250 0750 0250 0000 %0510 C25 005014 005890 -04609 0750 0250 0875 0250 0750 0125 0000 %0511 C26 005313 006794 -06881 0750 0250 1000 0250 0750 0000 0000 %0512 C27 005123 002267 006019 0750 0375 0000 0250 0625 1000 0000 %0513 D19 005142 002394 004657 0750 0375 0125 0250 0625 0875 0000 %0514 D20 005182 002687 002580 0750 0375 0250 0250 0625 0750 0000 %0515 D21 005227 002992 001073 0750 0375 0375 0250 0625 0625 0000 %0516 D22 005279 003336 -00276 0750 0375 0500 0250 0625 0500 0000 %0517 D23 005338 003696 -01455 0750 0375 0625 0250 0625 0375 0000 %0518 D24 005409 004095 -02587 0750 0375 0750 0250 0625 0250 0000 %0519 D25 005506 004552 -03813 0750 0375 0875 0250 0625 0125 0000 %0520 D26 005767 005523 -06131 0750 0375 1000 0250 0625 0000 0000 %0521 D27 005708 000912 006578 0750 0500 0000 0250 0500 1000 0000 %0522 E19 005725 001035 005363 0750 0500 0125 0250 0500 0875 0000 %0523 E20 005759 001318 003415 0750 0500 0250 0250 0500 0750 0000 %0524 E21 005797 001622 001919 0750 0500 0375 0250 0500 0625 0000 %0525 E22 005841 001975 000591 0750 0500 0500 0250 0500 0500 0000 %0526 E23 005892 002323 -00578 0750 0500 0625 0250 0500 0375 0000 %0527 E24 005953 002715 -01721 0750 0500 0750 0250 0500 0250 0000 %0528 E25 006037 003196 -02957 0750 0500 0875 0250 0500 0125 0000 %0529 E26 006264 004200 -05309 0750 0500 1000 0250 0500 0000 0000 %0530 E27 006296 -00336 007178 0750 0625 0000 0250 0375 1000 0000 %0531 F19 006310 -00215 006087 0750 0625 0125 0250 0375 0875 0000 %0532 F20 006339 000065 004214 0750 0625 0250 0250 0375 0750 0000 %0533 F21 006370 000365 002768 0750 0625 0375 0250 0375 0625 0000 %0534 F22 006410 000694 001462 0750 0625 0500 0250 0375 0500 0000 %0535 F23 006452 001046 000289 0750 0625 0625 0250 0375 0375 0000 %0536 F24 006507 001430 -00845 0750 0625 0750 0250 0375 0250 0000 %0537 F25 006577 001911 -02086 0750 0625 0875 0250 0375 0125 0000 %0538 F26 006777 002940 -04472 0750 0625 1000 0250 0375 0000 0000 %0539 F27 006951 -01599 007843 0750 0750 0000 0250 0250 1000 0000 %0540 G19 006963 -01478 006853 0750 0750 0125 0250 0250 0875 0000 %0541 G20 006988 -01223 005115 0750 0750 0250 0250 0250 0750 0000 %0542 G21 007014 -00938 003713 0750 0750 0375 0250 0250 0625 0000 %0543 G22 007048 004746 006705 0750 0750 0500 0250 0250 0500 0000 %0544 G23 007085 -00288 001271 0750 0750 0625 0250 0250 0375 0000 %0545 G24 007132 000087 000137 0750 0750 0750 0250 0250 0250 0000 %0546 G25 007195 000552 -01105 0750 0750 0875 0250 0250 0125 0000 %0547 G26 007368 001580 -03508 0750 0750 1000 0250 0250 0000 0000 %0548 G27 007727 -02944 008639 0750 0875 0000 0250 0125 1000 0000 %0549 H19 007738 -02826 007779 0750 0875 0125 0250 0125 0875 0000 %0550 H20 007758 -02585 006148 0750 0875 0250 0250 0125 0750 0000 %0551 H21 007780 -02325 004809 0750 0875 0375 0250 0125 0625 0000 %0552 H22 007808 -02019 003559 0750 0875 0500 0250 0125 0500 0000 %0553 H23 007821 -01707 002417 0750 0875 0625 0250 0125 0375 0000 %0554 H24 007878 -01355 001300 0750 0875 0750 0250 0125 0250 0000 %0555 H25 007932 -00917 000057 0750 0875 0875 0250 0125 0125 0000 %0556 H26 008080 000074 -02353 0750 0875 1000 0250 0125 0000 0000 %0557 H27 008855 -04648 009846 0750 1000 0000 0250 0000 1000 0000 %0558 I19 008863 -04546 009111 0750 1000 0125 0250 0000 0875 0000 %0559 I20 008880 -04337 007641 0750 1000 0250 0250 0000 0750 0000 %0560 I21 008899 -04103 006390 0750 1000 0375 0250 0000 0625 0000 %0561 I22 008920 -03841 005194 0750 1000 0500 0250 0000 0500 0000 %0562 I23 008946 -03557 004084 0750 1000 0625 0250 0000 0375 0000 %0563 I24 008977 -03225 002986 0750 1000 0750 0250 0000 0250 0000 %0564 I25 009020 -02831 001755 0750 1000 0875 0250 0000 0125 0000 %0565 I26 009143 -01913 -00647 0750 1000 1000 0250 0000 0000 0000 %0566 I27 004370 006471 005560 0875 0000 0000 0125 1000 1000 0000 %0567 J19 004395 006570 003898 0875 0000 0125 0125 1000 0875 0000 %0568 J20 004449 006805 001617 0875 0000 0250 0125 1000 0750 0000 %0569 J21 004498 007023 000047 0875 0000 0375 0125 1000 0625 0000 %0570 J22 004566 007281 -01309 0875 0000 0500 0125 1000 0500 0000 %0571 J23 004640 007551 -02492 0875 0000 0625 0125 1000 0375 0000 %0572 J24 004724 007829 -03623 0875 0000 0750 0125 1000 0250 0000 %0573 J25 004845 008153 -04830 0875 0000 0875 0125 1000 0125 0000 %0574 J26 005162 008823 -07115 0875 0000 1000 0125 1000 0000 0000 %0575 J27 004558 005941 005760 0875 0125 0000 0125 0875 1000 0000 %0576 K19 004578 006056 004116 0875 0125 0125 0125 0875 0875 0000 %0577 K20 004628 006267 001882 0875 0125 0250 0125 0875 0750 0000 %0578 K21 004682 006512 000315 0875 0125 0375 0125 0875 0625 0000 %0579 K22 004739 006771 -01053 0875 0125 0500 0125 0875 0500 0000 %0580 K23 004809 007043 -02230 0875 0125 0625 0125 0875 0375 0000 %0581 K24 004892 007344 -03368 0875 0125 0750 0125 0875 0250 0000 %0582 K25 005008 007690 -04589 0875 0125 0875 0125 0875 0125 0000 %0583 K26 005307 008388 -06871 0875 0125 1000 0125 0875 0000 0000 %0584 K27 005004 004708 006132 0875 0250 0000 0125 0750 1000 0000 %0585 L19 005021 004808 004651 0875 0250 0125 0125 0750 0875 0000 %0586 L20 005066 005047 002498 0875 0250 0250 0125 0750 0750 0000 %0587 L21 005109 005296 000955 0875 0250 0375 0125 0750 0625 0000 %0588 L22 005162 005573 -00404 0875 0250 0500 0125 0750 0500 0000 %0589 L23 005224 005862 -01581 0875 0250 0625 0125 0750 0375 0000 %0590 L24 005298 006169 -02728 0875 0250 0750 0125 0750 0250 0000 %0591 L25 005400 006534 -03952 0875 0250 0875 0125 0750 0125 0000 %0592 L26 005669 007326 -06270 0875 0250 1000 0125 0750 0000 0000 %0593 L27 005497 003405 006579 0875 0375 0000 0125 0625 1000 0000 %0594 M19 005515 003511 005261 0875 0375 0125 0125 0625 0875 0000 %0595 M20 005550 003755 003195 0875 0375 0250 0125 0625 0750 0000 %0596 M21 005591 004001 001679 0875 0375 0375 0125 0625 0625 0000 %0597 M22 005637 004298 000330 0875 0375 0500 0125 0625 0500 0000 %0598 M23 005692 004595 -00846 0875 0375 0625 0125 0625 0375 0000 %0599 M24 005756 004926 -02004 0875 0375 0750 0125 0625 0250 0000 %0600 M25 005844 005317 -03237 0875 0375 0875 0125 0625 0125 0000 %0601 M26 006083 006154 -05591 0875 0375 1000 0125 0625 0000 0000 %0602 M27 006032 002109 007089 0875 0500 0000 0125 0500 1000 0000 %0603 N19 006044 002211 005879 0875 0500 0125 0125 0500 0875 0000 %0604 N20 006078 002448 003934 0875 0500 0250 0125 0500 0750 0000 %0605 N21 006111 002708 002448 0875 0500 0375 0125 0500 0625 0000 %0606 N22 006151 003027 001090 0875 0500 0500 0125 0500 0500 0000 %0607 N23 006198 003293 -00061 0875 0500 0625 0125 0500 0375 0000 %0608 N24 006257 003634 -01210 0875 0500 0750 0125 0500 0250 0000 %0609 N25 006332 004036 -02449 0875 0500 0875 0125 0500 0125 0000 %0610 N26 006543 004930 -04833 0875 0500 1000 0125 0500 0000 0000 %0611 N27 006575 000874 007586 0875 0625 0000 0125 0375 1000 0000 %0612 O19 006586 000968 006521 0875 0625 0125 0125 0375 0875 0000 %0613 O20 006613 001217 004662 0875 0625 0250 0125 0375 0750 0000 %0614 O21 006644 001465 003227 0875 0625 0375 0125 0375 0625 0000 %0615 O22 006682 001748 001922 0875 0625 0500 0125 0375 0500 0000 %0616 O23 006721 002045 000747 0875 0625 0625 0125 0375 0375 0000 %0617 O24 006770 002393 -00397 0875 0625 0750 0125 0375 0250 0000 %0618 O25 006839 002804 -01649 0875 0625 0875 0125 0375 0125 0000 %0619 O26 007026 003698 -04045 0875 0625 1000 0125 0375 0000 0000 %0620 O27 007191 -00413 008193 0875 0750 0000 0125 0250 1000 0000 %0621 P19 007202 -00313 007238 0875 0750 0125 0125 0250 0875 0000 %0622 P20 007226 -00087 005498 0875 0750 0250 0125 0250 0750 0000 %0623 P21 007253 000161 004105 0875 0750 0375 0125 0250 0625 0000 %0624 P22 007283 000443 002817 0875 0750 0500 0125 0250 0500 0000 %0625 P23 007317 000731 001661 0875 0750 0625 0125 0250 0375 0000 %0626 P24 007361 001065 000525 0875 0750 0750 0125 0250 0250 0000 %0627 P25 007422 001464 -00723 0875 0750 0875 0125 0250 0125 0000 %0628 P26 007587 002374 -03139 0875 0750 1000 0125 0250 0000 0000 %0629 P27 007928 -01804 008945 0875 0875 0000 0125 0125 1000 0000 %0630 Q19 007938 -01707 008106 0875 0875 0125 0125 0125 0875 0000 %0631 Q20 007960 -01488 006480 0875 0875 0250 0125 0125 0750 0000 %0632 Q21 007979 -05050 003144 0875 0875 0375 0125 0125 0625 0000 %0633 Q22 008007 -01000 003891 0875 0875 0500 0125 0125 0500 0000 %0634 Q23 008038 -00716 002758 0875 0875 0625 0125 0125 0375 0000 %0635 Q24 008075 -00398 001628 0875 0875 0750 0125 0125 0250 0000 %0636 Q25 008126 -00003 000384 0875 0875 0875 0125 0125 0125 0000 %0637 Q26 008270 000887 -02034 0875 0875 1000 0125 0125 0000 0000 %0638 Q27 009016 -03609 010098 0875 1000 0000 0125 0000 1000 0000 %0639 R19 009024 -03525 009347 0875 1000 0125 0125 0000 0875 0000 %0640 R20 009040 -03331 007901 0875 1000 0250 0125 0000 0750 0000 %0641 R21 009059 -03128 006652 0875 1000 0375 0125 0000 0625 0000 %0642 R22 009080 -02887 005449 0875 1000 0500 0125 0000 0500 0000 %0643 R23 009105 -02626 004346 0875 1000 0625 0125 0000 0375 0000 %0644 R24 009135 -02332 003240 0875 1000 0750 0125 0000 0250 0000 %0645 R25 009176 -01968 002018 0875 1000 0875 0125 0000 0125 0000 %0646 R26 009294 -01135 -00387 0875 1000 1000 0125 0000 0000 0000 %0647 R27 005099 007440 006711 1000 0000 0000 0000 1000 1000 0000 %0648 S19 005113 007509 005066 1000 0000 0125 0000 1000 0875 0000 %0649 S20 005149 007682 002817 1000 0000 0250 0000 1000 0750 0000 %0650 S21 005192 007864 001223 1000 0000 0375 0000 1000 0625 0000 %0651 S22 005243 008057 -00151 1000 0000 0500 0000 1000 0500 0000 %0652 S23 005304 008284 -01357 1000 0000 0625 0000 1000 0375 0000 %0653 S24 005373 008511 -02509 1000 0000 0750 0000 1000 0250 0000 %0654 S25 005470 008791 -03760 1000 0000 0875 0000 1000 0125 0000 %0655 S26 005731 009362 -06140 1000 0000 1000 0000 1000 0000 0000 %0656 S27 005247 007013 006830 1000 0125 0000 0000 0875 1000 0000 %0657 T19 005259 007072 005248 1000 0125 0125 0000 0875 0875 0000 %0658 T20 005298 007243 003008 1000 0125 0250 0000 0875 0750 0000 %0659 T21 005338 007435 001428 1000 0125 0375 0000 0875 0625 0000 %0660 T22 005385 003701 002825 1000 0125 0500 0000 0875 0500 0000 %0661 T23 005443 007862 -01149 1000 0125 0625 0000 0875 0375 0000 %0662 T24 005512 008109 -02316 1000 0125 0750 0000 0875 0250 0000 %0663 T25 005606 008393 -03559 1000 0125 0875 0000 0875 0125 0000 %0664 T26 005857 008995 -05935 1000 0125 1000 0000 0875 0000 0000 %0665 T27 005617 005955 007110 1000 0250 0000 0000 0750 1000 0000 %0666 U19 005632 006033 005668 1000 0250 0125 0000 0750 0875 0000 %0667 U20 005663 006211 003514 1000 0250 0250 0000 0750 0750 0000 %0668 U21 005697 006408 001947 1000 0250 0375 0000 0750 0625 0000 %0669 U22 005742 006628 000584 1000 0250 0500 0000 0750 0500 0000 %0670 U23 005795 006859 -00612 1000 0250 0625 0000 0750 0375 0000 %0671 U24 005857 007113 -01773 1000 0250 0750 0000 0750 0250 0000 %0672 U25 005943 007424 -03025 1000 0250 0875 0000 0750 0125 0000 %0673 U26 006173 008075 -05419 1000 0250 1000 0000 0750 0000 0000 %0674 U27 006042 004811 007447 1000 0375 0000 0000 0625 1000 0000 %0675 V19 006055 004888 006142 1000 0375 0125 0000 0625 0875 0000 %0676 V20 006083 005072 004082 1000 0375 0250 0000 0625 0750 0000 %0677 V21 006116 005272 002557 1000 0375 0375 0000 0625 0625 0000 %0678 V22 006158 005492 001206 1000 0375 0500 0000 0625 0500 0000 %0679 V23 006203 005738 000006 1000 0375 0625 0000 0625 0375 0000 %0680 V24 006259 006003 -01152 1000 0375 0750 0000 0625 0250 0000 %0681 V25 006337 006323 -02408 1000 0375 0875 0000 0625 0125 0000 %0682 V26 006546 007029 -04816 1000 0375 1000 0000 0625 0000 0000 %0683 V27 006516 003612 007847 1000 0500 0000 0000 0500 1000 0000 %0684 W19 006528 003683 006660 1000 0500 0125 0000 0500 0875 0000 %0685 W20 006555 003866 004711 1000 0500 0250 0000 0500 0750 0000 %0686 W21 006584 004070 003216 1000 0500 0375 0000 0500 0625 0000 %0687 W22 006620 004303 001885 1000 0500 0500 0000 0500 0500 0000 %0688 W23 006662 004550 000701 1000 0500 0625 0000 0500 0375 0000 %0689 W24 006712 004817 -00453 1000 0500 0750 0000 0500 0250 0000 %0690 W25 006781 005158 -01707 1000 0500 0875 0000 0500 0125 0000 %0691 W26 006969 005877 -04121 1000 0500 1000 0000 0500 0000 0000 %0692 W27 007012 002428 008269 1000 0625 0000 0000 0375 1000 0000 %0693 X19 007022 002509 007199 1000 0625 0125 0000 0375 0875 0000 %0694 X20 007046 002685 005350 1000 0625 0250 0000 0375 0750 0000 %0695 X21 007073 002884 003911 1000 0625 0375 0000 0375 0625 0000 %0696 X22 007106 003128 002589 1000 0625 0500 0000 0375 0500 0000 %0697 X23 007142 003365 001424 1000 0625 0625 0000 0375 0375 0000 %0698 X24 007189 003646 000276 1000 0625 0750 0000 0375 0250 0000 %0699 X25 007251 003980 -00976 1000 0625 0875 0000 0375 0125 0000 %0700 X26 007418 004728 -03396 1000 0625 1000 0000 0375 0000 0000 %0701 X27 007582 001154 008795 1000 0750 0000 0000 0250 1000 0000 %0702 Y19 007592 001238 007826 1000 0750 0125 0000 0250 0875 0000 %0703 Y20 007612 001416 006087 1000 0750 0250 0000 0250 0750 0000 %0704 Y21 007636 001615 004689 1000 0750 0375 0000 0250 0625 0000 %0705 Y22 007666 001845 003406 1000 0750 0500 0000 0250 0500 0000 %0706 Y23 007698 002092 002247 1000 0750 0625 0000 0250 0375 0000 %0707 Y24 007738 002359 001114 1000 0750 0750 0000 0250 0250 0000 %0708 Y25 007792 002699 -00125 1000 0750 0875 0000 0250 0125 0000 %0709 Y26 007942 003462 -02554 1000 0750 1000 0000 0250 0000 0000 %0710 Y27 008270 -00253 009469 1000 0875 0000 0000 0125 1000 0000 %0711 Z19 008278 -00180 008611 1000 0875 0125 0000 0125 0875 0000 %0712 Z20 008295 000000 006976 1000 0875 0250 0000 0125 0750 0000 %0713 Z21 008315 000194 005639 1000 0875 0375 0000 0125 0625 0000 %0714 Z22 008339 000416 004390 1000 0875 0500 0000 0125 0500 0000 %0715 Z23 008369 000650 003251 1000 0875 0625 0000 0125 0375 0000 %0716 Z24 008404 000921 002134 1000 0875 0750 0000 0125 0250 0000 %0717 Z25 008450 001245 000895 1000 0875 0875 0000 0125 0125 0000 %0718 Z26 008583 002001 -01523 1000 0875 1000 0000 0125 0000 0000 %0719 Z27 009291 -02138 010504 1000 1000 0000 0000 0000 1000 0000 %0720 a19 009298 -02352 010340 1000 1000 0125 0000 0000 0875 0000 %0721 a20 009313 -01908 008298 1000 1000 0250 0000 0000 0750 0000 %0722 a21 009329 -01722 007042 1000 1000 0375 0000 0000 0625 0000 %0723 a22 009349 -01521 005840 1000 1000 0500 0000 0000 0500 0000 %0724 a23 009373 -01292 004737 1000 1000 0625 0000 0000 0375 0000 %0725 a24 009401 -01038 003634 1000 1000 0750 0000 0000 0250 0000 %0726 a25 009441 -00728 002422 1000 1000 0875 0000 0000 0125 0000 %0727 a26 009550 -00003 000025 1000 1000 1000 0000 0000 0000 0000 %0728 a27 %JE060-7A, Page 10 /66, LAB*ra; cf1=1.00; nt=0.18; nx=1.0; LECD_08_95, adapted 009575 000007 000046 1000 1000 1000 0000 0000 0000 0000 %0729 b01 009339 -01119 -00352 0875 1000 1000 0125 0000 0000 0000 %0730 b02 009185 -01892 -00606 0750 1000 1000 0250 0000 0000 0000 %0731 b03 009059 -02585 -00822 0625 1000 1000 0375 0000 0000 0000 %0732 b04 008957 -03159 -00994 0500 1000 1000 0500 0000 0000 0000 %0733 b05 008871 -03658 -01134 0375 1000 1000 0625 0000 0000 0000 %0734 b06 008805 -04068 -01243 0250 1000 1000 0750 0000 0000 0000 %0735 b07 008754 -04407 -01330 0125 1000 1000 0875 0000 0000 0000 %0736 b08 008731 -04541 -01366 0000 1000 1000 1000 0000 0000 0000 %0737 b09 008477 001253 000894 1000 0875 0875 0000 0125 0125 0000 %0738 c01 008177 000005 000389 0875 0875 0875 0125 0125 0125 0000 %0739 c02 007983 -00886 000060 0750 0875 0875 0250 0125 0125 0000 %0740 c03 007820 -01703 -00205 0625 0875 0875 0375 0125 0125 0000 %0741 c04 007689 -02409 -00423 0500 0875 0875 0500 0125 0125 0000 %0742 c05 007578 -03029 -00606 0375 0875 0875 0625 0125 0125 0000 %0743 c06 007490 -03549 -00755 0250 0875 0875 0750 0125 0125 0000 %0744 c07 007416 -03972 -00873 0125 0875 0875 0875 0125 0125 0000 %0745 c08 007381 -04153 -00930 0000 0875 0875 1000 0125 0125 0000 %0746 c09 007767 002360 001104 1000 0750 0750 0000 0250 0250 0000 %0747 d01 007416 001061 000515 0875 0750 0750 0125 0250 0250 0000 %0748 d02 007189 000104 000127 0750 0750 0750 0250 0250 0250 0000 %0749 d03 006992 -00778 -00196 0625 0750 0750 0375 0250 0250 0000 %0750 d04 006834 -01565 -00462 0500 0750 0750 0500 0250 0250 0000 %0751 d05 006701 -02287 -00675 0375 0750 0750 0625 0250 0250 0000 %0752 d06 006595 -02886 -00854 0250 0750 0750 0750 0250 0250 0000 %0753 d07 006505 -03410 -01003 0125 0750 0750 0875 0250 0250 0000 %0754 d08 006461 -03606 -01078 0000 0750 0750 1000 0250 0250 0000 %0755 d09 007175 003357 001399 1000 0625 0625 0000 0375 0375 0000 %0756 e01 006775 002043 000727 0875 0625 0625 0125 0375 0375 0000 %0757 e02 006507 001047 000277 0750 0625 0625 0250 0375 0375 0000 %0758 e03 006279 000094 -00095 0625 0625 0625 0375 0375 0375 0000 %0759 e04 006093 -00760 -00412 0500 0625 0625 0500 0375 0375 0000 %0760 e05 005930 -01563 -00680 0375 0625 0625 0625 0375 0375 0000 %0761 e06 005800 -02260 -00890 0250 0625 0625 0750 0375 0375 0000 %0762 e07 005689 -02870 -01072 0125 0625 0625 0875 0375 0375 0000 %0763 e08 005637 -03138 -01165 0000 0625 0625 1000 0375 0375 0000 %0764 e09 006655 004285 001856 1000 0500 0500 0000 0500 0500 0000 %0765 f01 006201 002985 001090 0875 0500 0500 0125 0500 0500 0000 %0766 f02 005892 001968 000574 0750 0500 0500 0250 0500 0500 0000 %0767 f03 005620 000982 000125 0625 0500 0500 0375 0500 0500 0000 %0768 f04 005397 000052 -00243 0500 0500 0500 0500 0500 0500 0000 %0769 f05 005201 -00835 -00564 0375 0500 0500 0625 0500 0500 0000 %0770 f06 005045 -01644 -00834 0250 0500 0500 0750 0500 0500 0000 %0771 f07 004913 -02375 -01055 0125 0500 0500 0875 0500 0500 0000 %0772 f08 004849 -02696 -01158 0000 0500 0500 1000 0500 0500 0000 %0773 f09 006151 005254 002515 1000 0375 0375 0000 0625 0625 0000 %0774 g01 005632 003954 001666 0875 0375 0375 0125 0625 0625 0000 %0775 g02 005269 003001 001042 0750 0375 0375 0250 0625 0625 0000 %0776 g03 004945 002003 000502 0625 0375 0375 0375 0625 0625 0000 %0777 g04 004671 001037 000044 0500 0375 0375 0500 0625 0625 0000 %0778 g05 004428 000046 -00352 0375 0375 0375 0625 0625 0625 0000 %0779 g06 004227 -00888 -00684 0250 0375 0375 0750 0625 0625 0000 %0780 g07 004059 -01777 -00966 0125 0375 0375 0875 0625 0625 0000 %0781 g08 003973 -02209 -01100 0000 0375 0375 1000 0625 0625 0000 %0782 g09 005692 006204 003470 1000 0250 0250 0000 0750 0750 0000 %0783 h01 005096 005039 002474 0875 0250 0250 0125 0750 0750 0000 %0784 h02 004671 004096 001773 0750 0250 0250 0250 0750 0750 0000 %0785 h03 004276 003143 001116 0625 0250 0250 0375 0750 0750 0000 %0786 h04 003929 002182 000555 0500 0250 0250 0500 0750 0750 0000 %0787 h05 003611 001124 000031 0375 0250 0250 0625 0750 0750 0000 %0788 h06 003343 000096 -00423 0250 0250 0250 0750 0750 0750 0000 %0789 h07 003098 -01031 -00817 0125 0250 0250 0875 0750 0750 0000 %0790 h08 003000 -01602 -00997 0000 0250 0250 1000 0750 0750 0000 %0791 h09 005282 007086 005218 1000 0125 0125 0000 0875 0875 0000 %0792 i01 004601 006056 004098 0875 0125 0125 0125 0875 0875 0000 %0793 i02 004091 005250 003273 0750 0125 0125 0250 0875 0875 0000 %0794 i03 003606 004428 002494 0625 0125 0125 0375 0875 0875 0000 %0795 i04 003158 003560 001779 0500 0125 0125 0500 0875 0875 0000 %0796 i05 002713 002570 001049 0375 0125 0125 0625 0875 0875 0000 %0797 i06 002314 001510 000379 0250 0125 0125 0750 0875 0875 0000 %0798 i07 001911 000109 -00274 0125 0125 0125 0875 0875 0875 0000 %0799 i08 001731 -00796 -00591 0000 0125 0125 1000 0875 0875 0000 %0800 i09 005113 007459 006736 1000 0000 0000 0000 1000 1000 0000 %0801 j01 004387 006508 005598 0875 0000 0000 0125 1000 1000 0000 %0802 j02 003834 005780 004752 0750 0000 0000 0250 1000 1000 0000 %0803 j03 003300 005021 003936 0625 0000 0000 0375 1000 1000 0000 %0804 j04 002784 004299 003150 0500 0000 0000 0500 1000 1000 0000 %0805 j05 002254 003491 002350 0375 0000 0000 0625 1000 1000 0000 %0806 j06 001717 002554 001486 0250 0000 0000 0750 1000 1000 0000 %0807 j07 001127 001180 000537 0125 0000 0000 0875 1000 1000 0000 %0808 j08 000808 000025 000012 0000 0000 0000 1000 1000 1000 0000 %0809 j09 009545 000000 000016 1000 1000 1000 0000 0000 0000 0000 %0810 b10 008287 000884 -02023 0875 0875 1000 0125 0125 0000 0000 %0811 b11 007390 001583 -03496 0750 0750 1000 0250 0250 0000 0000 %0812 b12 006591 002227 -04813 0625 0625 1000 0375 0375 0000 0000 %0813 b13 005846 002969 -06044 0500 0500 1000 0500 0500 0000 0000 %0814 b14 005079 003934 -07325 0375 0375 1000 0625 0625 0000 0000 %0815 b15 004310 005149 -08597 0250 0250 1000 0750 0750 0000 0000 %0816 b16 003533 006687 -09945 0125 0125 1000 0875 0875 0000 0000 %0817 b17 003151 007503 -10570 0000 0000 1000 1000 1000 0000 0000 %0818 b18 009436 -00728 002410 1000 1000 0875 0000 0000 0125 0000 %0819 c10 008145 000004 000378 0875 0875 0875 0125 0125 0125 0000 %0820 c11 007218 000558 -01110 0750 0750 0875 0250 0250 0125 0000 %0821 c12 006382 001076 -02463 0625 0625 0875 0375 0375 0125 0000 %0822 c13 005594 001673 -03739 0500 0500 0875 0500 0500 0125 0000 %0823 c14 004765 002532 -05109 0375 0375 0875 0625 0625 0125 0000 %0824 c15 003899 003729 -06547 0250 0250 0875 0750 0750 0125 0000 %0825 c16 002957 005376 -08099 0125 0125 0875 0875 0875 0125 0000 %0826 c17 002456 006454 -08926 0000 0000 0875 1000 1000 0125 0000 %0827 c18 009396 -01045 003634 1000 1000 0750 0000 0000 0250 0000 %0828 d10 008094 -00385 001605 0875 0875 0750 0125 0125 0250 0000 %0829 d11 007154 000099 000125 0750 0750 0750 0250 0250 0250 0000 %0830 d12 006305 000541 -01229 0625 0625 0750 0375 0375 0250 0000 %0831 d13 005500 001069 -02535 0500 0500 0750 0500 0500 0250 0000 %0832 d14 004644 001850 -03942 0375 0375 0750 0625 0625 0250 0000 %0833 d15 003736 002951 -05433 0250 0250 0750 0750 0750 0250 0000 %0834 d16 002721 004670 -07143 0125 0125 0750 0875 0875 0250 0000 %0835 d17 002150 005821 -08070 0000 0000 0750 1000 1000 0250 0000 %0836 d18 009367 -01300 004729 1000 1000 0625 0000 0000 0375 0000 %0837 e10 008056 -00712 002733 0875 0875 0625 0125 0125 0375 0000 %0838 e11 007108 -00276 001251 0750 0750 0625 0250 0250 0375 0000 %0839 e12 006250 000104 -00103 0625 0625 0625 0375 0375 0375 0000 %0840 e13 005431 000549 -01408 0500 0500 0625 0500 0500 0375 0000 %0841 e14 004554 001219 -02833 0375 0375 0625 0625 0625 0375 0000 %0842 e15 003611 002238 -04377 0250 0250 0625 0750 0750 0375 0000 %0843 e16 002519 003923 -06185 0125 0125 0625 0875 0875 0375 0000 %0844 e17 001886 005194 -07239 0000 0000 0625 1000 1000 0375 0000 %0845 e18 009342 -01520 005836 1000 1000 0500 0000 0000 0500 0000 %0846 f10 008022 -00990 003865 0875 0875 0500 0125 0125 0500 0000 %0847 f11 007071 -00610 002412 0750 0750 0500 0250 0250 0500 0000 %0848 f12 006201 -00300 001062 0625 0625 0500 0375 0375 0500 0000 %0849 f13 005373 000061 -00246 0500 0500 0500 0500 0500 0500 0000 %0850 f14 004477 000631 -01684 0375 0375 0500 0625 0625 0500 0000 %0851 f15 003510 001536 -03255 0250 0250 0500 0750 0750 0500 0000 %0852 f16 002352 003137 -05158 0125 0125 0500 0875 0875 0500 0000 %0853 f17 001648 004421 -06330 0000 0000 0500 1000 1000 0500 0000 %0854 f18 009322 -01732 007034 1000 1000 0375 0000 0000 0625 0000 %0855 g10 007999 -01258 005119 0875 0875 0375 0125 0125 0625 0000 %0856 g11 007036 -00940 003692 0750 0750 0375 0250 0250 0625 0000 %0857 g12 006161 -00702 002370 0625 0625 0375 0375 0375 0625 0000 %0858 g13 005323 -00412 001084 0500 0500 0375 0500 0500 0625 0000 %0859 g14 004408 000048 -00356 0375 0375 0375 0625 0625 0625 0000 %0860 g15 003410 000806 -01946 0250 0250 0375 0750 0750 0625 0000 %0861 g16 002182 002193 -03931 0125 0125 0375 0875 0875 0625 0000 %0862 g17 001401 003528 -05262 0000 0000 0375 1000 1000 0625 0000 %0863 g18 009305 -01917 008290 1000 1000 0250 0000 0000 0750 0000 %0864 h10 007976 -01481 006465 0875 0875 0250 0125 0125 0750 0000 %0865 h11 007008 -01209 005085 0750 0750 0250 0250 0250 0750 0000 %0866 h12 006126 -01034 003824 0625 0625 0250 0375 0375 0750 0000 %0867 h13 005279 -00844 002578 0500 0500 0250 0500 0500 0750 0000 %0868 h14 004353 -00502 001184 0375 0375 0250 0625 0625 0750 0000 %0869 h15 003331 000063 -00418 0250 0250 0250 0750 0750 0750 0000 %0870 h16 002051 001249 -02502 0125 0125 0250 0875 0875 0750 0000 %0871 h17 001167 002436 -03944 0000 0000 0250 1000 1000 0750 0000 %0872 h18 009291 -02078 009766 1000 1000 0125 0000 0000 0875 0000 %0873 i10 007956 -01712 008096 0875 0875 0125 0125 0125 0875 0000 %0874 i11 006984 -01489 006860 0750 0750 0125 0250 0250 0875 0000 %0875 i12 006096 -01360 005720 0625 0625 0125 0375 0375 0875 0000 %0876 i13 005240 -01254 004596 0500 0500 0125 0500 0500 0875 0000 %0877 i14 004297 -01035 003301 0375 0375 0125 0625 0625 0875 0000 %0878 i15 003256 -00652 001806 0250 0250 0125 0750 0750 0875 0000 %0879 i16 001911 000087 -00250 0125 0125 0125 0875 0875 0875 0000 %0880 i17 000908 001004 -01863 0000 0000 0125 1000 1000 0875 0000 %0881 i18 009285 -02142 010510 1000 1000 0000 0000 0000 1000 0000 %0882 j10 007945 -01804 008965 0875 0875 0000 0125 0125 1000 0000 %0883 j11 006969 -01600 007856 0750 0750 0000 0250 0250 1000 0000 %0884 j12 006080 -01506 006838 0625 0625 0000 0375 0375 1000 0000 %0885 j13 005221 -01423 005865 0500 0500 0000 0500 0500 1000 0000 %0886 j14 004276 -01267 004769 0375 0375 0000 0625 0625 1000 0000 %0887 j15 003224 -00985 003464 0250 0250 0000 0750 0750 1000 0000 %0888 j16 001849 -00473 001595 0125 0125 0000 0875 0875 1000 0000 %0889 j17 000782 -00004 000000 0000 0000 0000 1000 1000 1000 0000 %0890 j18 009543 -00004 000009 1000 1000 1000 0000 0000 0000 0000 %0891 b19 008574 002006 -01542 1000 0875 1000 0000 0125 0000 0000 %0892 b20 007935 003463 -02568 1000 0750 1000 0000 0250 0000 0000 %0893 b21 007418 004730 -03402 1000 0625 1000 0000 0375 0000 0000 %0894 b22 006976 005882 -04124 1000 0500 1000 0000 0500 0000 0000 %0895 b23 006559 007023 -04809 1000 0375 1000 0000 0625 0000 0000 %0896 b24 006186 008068 -05411 1000 0250 1000 0000 0750 0000 0000 %0897 b25 005868 009008 -05936 1000 0125 1000 0000 0875 0000 0000 %0898 b26 005742 009376 -06141 1000 0000 1000 0000 1000 0000 0000 %0899 b27 009190 -01952 001999 0875 1000 0875 0125 0000 0125 0000 %0900 c19 008142 000000 000377 0875 0875 0875 0125 0125 0125 0000 %0901 c20 007442 001468 -00734 0875 0750 0875 0125 0250 0125 0000 %0902 c21 006862 002803 -01651 0875 0625 0875 0125 0375 0125 0000 %0903 c22 006356 004031 -02457 0875 0500 0875 0125 0500 0125 0000 %0904 c23 005865 005310 -03243 0875 0375 0875 0125 0625 0125 0000 %0905 c24 005419 006554 -03968 0875 0250 0875 0125 0750 0125 0000 %0906 c25 005021 007695 -04595 0875 0125 0875 0125 0875 0125 0000 %0907 c26 004856 008178 -04848 0875 0000 0875 0125 1000 0125 0000 %0908 c27 008989 -03215 002958 0750 1000 0750 0250 0000 0250 0000 %0909 d19 007893 -01336 001280 0750 0875 0750 0250 0125 0250 0000 %0910 d20 007150 000107 000123 0750 0750 0750 0250 0250 0250 0000 %0911 d21 006525 001431 -00856 0750 0625 0750 0250 0375 0250 0000 %0912 d22 005977 002726 -01735 0750 0500 0750 0250 0500 0250 0000 %0913 d23 005428 004098 -02606 0750 0375 0750 0250 0625 0250 0000 %0914 d24 004917 005469 -03423 0750 0250 0750 0250 0750 0250 0000 %0915 d25 004453 006795 -04165 0750 0125 0750 0250 0875 0250 0000 %0916 d26 004254 007377 -04469 0750 0000 0750 0250 1000 0250 0000 %0917 d27 008827 -04354 003839 0625 1000 0625 0375 0000 0375 0000 %0918 e19 007689 -02592 002130 0625 0875 0625 0375 0125 0375 0000 %0919 e20 006908 -01213 000925 0625 0750 0625 0375 0250 0375 0000 %0920 e21 006242 000093 -00103 0625 0625 0625 0375 0375 0375 0000 %0921 e22 005646 001405 -01046 0625 0500 0625 0375 0500 0375 0000 %0922 e23 005045 002830 -01996 0625 0375 0625 0375 0625 0375 0000 %0923 e24 004465 004327 -02924 0625 0250 0625 0375 0750 0375 0000 %0924 e25 003919 005892 -03811 0625 0125 0625 0375 0875 0375 0000 %0925 e26 003677 006570 -04178 0625 0000 0625 0375 1000 0375 0000 %0926 e27 008696 -05370 004779 0500 1000 0500 0500 0000 0500 0000 %0927 f19 007522 -03760 003045 0500 0875 0500 0500 0125 0500 0000 %0928 f20 006710 -02469 001817 0500 0750 0500 0500 0250 0500 0000 %0929 f21 006008 -01217 000741 0500 0625 0500 0500 0375 0500 0000 %0930 f22 005369 000061 -00249 0500 0500 0500 0500 0500 0500 0000 %0931 f23 004712 001532 -01287 0500 0375 0500 0500 0625 0500 0000 %0932 f24 004059 003123 -02318 0500 0250 0500 0500 0750 0500 0000 %0933 f25 003416 004874 -03350 0500 0125 0500 0500 0875 0500 0000 %0934 f26 003118 005733 -03821 0500 0000 0500 0500 1000 0500 0000 %0935 f27 008588 -06330 005844 0375 1000 0375 0625 0000 0625 0000 %0936 g19 007381 -04886 004122 0375 0875 0375 0625 0125 0625 0000 %0937 g20 006537 -03738 002885 0375 0750 0375 0625 0250 0625 0000 %0938 g21 005803 -02581 001796 0375 0625 0375 0625 0375 0625 0000 %0939 g22 005123 -01377 000757 0375 0500 0375 0625 0500 0625 0000 %0940 g23 004408 000048 -00356 0375 0375 0375 0625 0625 0625 0000 %0941 g24 003672 001724 -01507 0375 0250 0375 0625 0750 0625 0000 %0942 g25 002906 003699 -02728 0375 0125 0375 0625 0875 0625 0000 %0943 g26 002536 004756 -03319 0375 0000 0375 0625 1000 0625 0000 %0944 g27 008501 -07166 007021 0250 1000 0250 0750 0000 0750 0000 %0945 h19 007268 -05907 005349 0250 0875 0250 0750 0125 0750 0000 %0946 h20 006396 -04906 004127 0250 0750 0250 0750 0250 0750 0000 %0947 h21 005635 -03910 003042 0250 0625 0250 0750 0375 0750 0000 %0948 h22 004917 -02838 001995 0250 0500 0250 0750 0500 0750 0000 %0949 h23 004147 -01538 000841 0250 0375 0250 0750 0625 0750 0000 %0950 h24 003325 000069 -00415 0250 0250 0250 0750 0750 0750 0000 %0951 h25 002419 002276 -01880 0250 0125 0250 0750 0875 0750 0000 %0952 h26 001935 003625 -02674 0250 0000 0250 0750 1000 0750 0000 %0953 h27 008433 -07917 008454 0125 1000 0125 0875 0000 0875 0000 %0954 i19 007171 -06839 006909 0125 0875 0125 0875 0125 0875 0000 %0955 i20 006279 -06032 005801 0125 0750 0125 0875 0250 0875 0000 %0956 i21 005488 -05208 004775 0125 0625 0125 0875 0375 0875 0000 %0957 i22 004735 -04396 003808 0125 0500 0125 0875 0500 0875 0000 %0958 i23 003914 -03361 002683 0125 0375 0125 0875 0625 0875 0000 %0959 i24 003014 -02014 001408 0125 0250 0125 0875 0750 0875 0000 %0960 i25 001911 000108 -00266 0125 0125 0125 0875 0875 0875 0000 %0961 i26 001224 001779 -01376 0125 0000 0125 0875 1000 0875 0000 %0962 i27 008403 -08207 009209 0000 1000 0000 1000 0000 1000 0000 %0963 j19 007126 -07240 007800 0000 0875 0000 1000 0125 1000 0000 %0964 j20 006223 -06521 006788 0000 0750 0000 1000 0250 1000 0000 %0965 j21 005422 -05829 005902 0000 0625 0000 1000 0375 1000 0000 %0966 j22 004655 -05133 005052 0000 0500 0000 1000 0500 1000 0000 %0967 j23 003814 -04300 004060 0000 0375 0000 1000 0625 1000 0000 %0968 j24 002869 -03246 002891 0000 0250 0000 1000 0750 1000 0000 %0969 j25 001648 -01576 001270 0000 0125 0000 1000 0875 1000 0000 %0970 j26 000808 -00021 -00042 0000 0000 0000 1000 1000 1000 0000 %0971 j27 %JE060-7A, Page 11 /66, LAB*ra; cf1=1.00; nt=0.18; nx=1.0; LECD_08_95, adapted %LAB*ra, D65, adapted, Y = 0.89 , L* = 8.08 %100 x LAB*a %#1000 x (r g b c m y 0) %nr. pos %z005099 007440 006711 %#1000 0000 0000 0000 1000 1000 0000 %0648 S19 %O1 0 %z009291 -02138 010504 %#1000 1000 0000 0000 0000 1000 0000 %0720 a19 %Y1 1 %z008413 -08214 009227 %#0000 1000 0000 1000 0000 1000 0000 %0072 I01 %L1 2 %z008716 -04558 -01357 %#0000 1000 1000 1000 0000 0000 0000 %0080 I09 %C1 3 %z003158 007462 -10553 %#0000 0000 1000 1000 1000 0000 0000 %0008 A09 %V1 4 %z005731 009362 -06140 %#1000 0000 1000 0000 1000 0000 0000 %0656 S27 %M1 5 %z000808 000025 000012 %#0000 0000 0000 1000 1000 1000 0000 %0000 A01 %N1 6 %z009550 -00003 000025 %#1000 1000 1000 0000 0000 0000 0000 %0728 a27 %W1 7 %$ %z005113 007459 006736 %#1000 0000 0000 0000 1000 1000 0000 %0801 j01 %O2 0 %z009285 -02142 010510 %#1000 1000 0000 0000 0000 1000 0000 %0882 j10 %Y2 1 %z008403 -08207 009209 %#0000 1000 0000 1000 0000 1000 0000 %0963 j19 %L2 2 %z008731 -04541 -01366 %#0000 1000 1000 1000 0000 0000 0000 %0737 b09 %C2 3 %z003151 007503 -10570 %#0000 0000 1000 1000 1000 0000 0000 %0818 b18 %V2 4 %z005742 009376 -06141 %#1000 0000 1000 0000 1000 0000 0000 %0899 b27 %M2 5 %z000800 000000 -00009 %#0000 0000 0000 1000 1000 1000 0000 %0809 j09 %N2 6 %z009554 000001 000023 %#1000 1000 1000 0000 0000 0000 0000 %0729 b01 %W2 7 %$ %JE060-7A, Page 12 /66, LAB*ra; cf1=1.00; nt=0.18; nx=1.0; LECD_08_95, adapted %100 x LAB* 1000 x (r g b c m y 0) %nr. pos 000808 -00093 000012 0000 0000 0000 1000 1000 1000 0000 %0972 k01 001911 000101 -00277 0125 0125 0125 0875 0875 0875 0000 %0973 k02 003325 000088 -00419 0250 0250 0250 0750 0750 0750 0000 %0974 k03 004403 000040 -00353 0375 0375 0375 0625 0625 0625 0000 %0975 k04 005366 000051 -00246 0500 0500 0500 0500 0500 0500 0000 %0976 k05 006242 000100 -00105 0625 0625 0625 0375 0375 0375 0000 %0977 k06 007148 000095 000119 0750 0750 0750 0250 0250 0250 0000 %0978 k07 008140 -00004 000370 0875 0875 0875 0125 0125 0125 0000 %0979 k08 009542 -00004 000003 1000 1000 1000 0000 0000 0000 0000 %0980 k09 000782 -00004 000000 0000 0000 0000 1000 1000 1000 0000 %0981 l01 001911 000085 -00265 0125 0125 0125 0875 0875 0875 0000 %0982 l02 003325 000090 -00418 0250 0250 0250 0750 0750 0750 0000 %0983 l03 004403 000045 -00357 0375 0375 0375 0625 0625 0625 0000 %0984 l04 005366 000057 -00250 0500 0500 0500 0500 0500 0500 0000 %0985 l05 006242 000103 -00111 0625 0625 0625 0375 0375 0375 0000 %0986 l06 007148 000095 000123 0750 0750 0750 0250 0250 0250 0000 %0987 l07 008140 -00008 000373 0875 0875 0875 0125 0125 0125 0000 %0988 l08 009540 -00004 000003 1000 1000 1000 0000 0000 0000 0000 %0989 l09 000808 -00003 000002 0000 0000 0000 1000 1000 1000 0000 %0990 m01 001898 000102 -00285 0125 0125 0125 0875 0875 0875 0000 %0991 m02 003325 000090 -00418 0250 0250 0250 0750 0750 0750 0000 %0992 m03 004403 000029 -00351 0375 0375 0375 0625 0625 0625 0000 %0993 m04 005366 000054 -00251 0500 0500 0500 0500 0500 0500 0000 %0994 m05 006242 000096 -00106 0625 0625 0625 0375 0375 0375 0000 %0995 m06 007148 000095 000123 0750 0750 0750 0250 0250 0250 0000 %0996 m07 008140 000000 000372 0875 0875 0875 0125 0125 0125 0000 %0997 m08 009540 -00009 000007 1000 1000 1000 0000 0000 0000 0000 %0998 m09 000808 -00003 000002 0000 0000 0000 1000 1000 1000 0000 %0999 n01 001911 000103 -00245 0125 0125 0125 0875 0875 0875 0000 %1000 n02 003325 000088 -00419 0250 0250 0250 0750 0750 0750 0000 %1001 n03 004403 000034 -00355 0375 0375 0375 0625 0625 0625 0000 %1002 n04 005366 000047 -00254 0500 0500 0500 0500 0500 0500 0000 %1003 n05 006242 000096 -00106 0625 0625 0625 0375 0375 0375 0000 %1004 n06 007150 000099 000120 0750 0750 0750 0250 0250 0250 0000 %1005 n07 008140 -00004 000375 0875 0875 0875 0125 0125 0125 0000 %1006 n08 009540 -00009 000001 1000 1000 1000 0000 0000 0000 0000 %1007 n09 000782 -00004 000000 0000 0000 0000 1000 1000 1000 0000 %1008 k10 001065 000057 -00027 0066 0066 0066 0933 0933 0933 0000 %1009 k11 001994 000122 -00313 0133 0133 0133 0866 0866 0866 0000 %1010 k12 002876 000079 -00453 0200 0200 0200 0800 0800 0800 0000 %1011 k13 003463 000082 -00352 0266 0266 0266 0333 0333 0333 0000 %1012 k14 004030 000111 -00384 0333 0333 0333 0666 0666 0666 0000 %1013 k15 004574 000060 -00338 0400 0400 0400 0600 0600 0600 0000 %1014 k16 005116 000040 -00280 0466 0466 0466 0533 0533 0533 0000 %1015 k17 005588 000092 -00267 0533 0533 0533 0466 0466 0466 0000 %1016 k18 006073 000107 -00167 0600 0600 0600 0400 0400 0400 0000 %1017 k19 006555 000095 -00067 0666 0666 0666 0333 0333 0333 0000 %1018 k20 007038 000097 000064 0734 0734 0734 0266 0266 0266 0000 %1019 k21 007553 000076 000220 0800 0800 0800 0200 0200 0200 0000 %1020 k22 008083 000032 000353 0866 0866 0866 0133 0133 0133 0000 %1021 k23 008694 -00035 000556 0933 0933 0933 0066 0066 0066 0000 %1022 k24 009542 -00004 000003 1000 1000 1000 0000 0000 0000 0000 %1023 k25 000808 -00003 000002 0000 0000 0000 1000 1000 1000 0000 %1024 l10 001086 000074 -00032 0066 0066 0066 0933 0933 0933 0000 %1025 l11 002006 000135 -00304 0133 0133 0133 0866 0866 0866 0000 %1026 l12 002884 000058 -00434 0200 0200 0200 0800 0800 0800 0000 %1027 l13 003469 000094 -00364 0266 0266 0266 0333 0333 0333 0000 %1028 l14 004040 000082 -00383 0333 0333 0333 0666 0666 0666 0000 %1029 l15 004581 000062 -00343 0400 0400 0400 0600 0600 0600 0000 %1030 l16 005119 000047 -00272 0466 0466 0466 0533 0533 0533 0000 %1031 l17 005597 000092 -00260 0533 0533 0533 0466 0466 0466 0000 %1032 l18 006078 000096 -00164 0600 0600 0600 0400 0400 0400 0000 %1033 l19 006562 000092 -00064 0666 0666 0666 0333 0333 0333 0000 %1034 l20 007044 000105 000062 0734 0734 0734 0266 0266 0266 0000 %1035 l21 007558 000076 000220 0800 0800 0800 0200 0200 0200 0000 %1036 l22 008088 000028 000357 0866 0866 0866 0133 0133 0133 0000 %1037 l23 008697 -00034 000561 0933 0933 0933 0066 0066 0066 0000 %1038 l24 009543 -00004 000009 1000 1000 1000 0000 0000 0000 0000 %1039 l25 000808 -00003 000002 0000 0000 0000 1000 1000 1000 0000 %1040 m10 001065 000074 -00032 0066 0066 0066 0933 0933 0933 0000 %1041 m11 002006 000123 -00313 0133 0133 0133 0866 0866 0866 0000 %1042 m12 002876 000055 -00445 0200 0200 0200 0800 0800 0800 0000 %1043 m13 003469 000068 -00355 0266 0266 0266 0333 0333 0333 0000 %1044 m14 004035 000084 -00385 0333 0333 0333 0666 0666 0666 0000 %1045 m15 004574 000059 -00344 0400 0400 0400 0600 0600 0600 0000 %1046 m16 005119 000053 -00276 0466 0466 0466 0533 0533 0533 0000 %1047 m17 005591 000102 -00267 0533 0533 0533 0466 0466 0466 0000 %1048 m18 006073 000100 -00166 0600 0600 0600 0400 0400 0400 0000 %1049 m19 006557 000084 -00063 0666 0666 0666 0333 0333 0333 0000 %1050 m20 007042 000094 000062 0734 0734 0734 0266 0266 0266 0000 %1051 m21 007556 000080 000217 0800 0800 0800 0200 0200 0200 0000 %1052 m22 008086 000032 000353 0866 0866 0866 0133 0133 0133 0000 %1053 m23 008696 -00034 000561 0933 0933 0933 0066 0066 0066 0000 %1054 m24 009543 -00004 000003 1000 1000 1000 0000 0000 0000 0000 %1055 m25 000808 000020 000010 0000 0000 0000 1000 1000 1000 0000 %1056 n10 001086 000082 -00045 0066 0066 0066 0933 0933 0933 0000 %1057 n11 002006 000104 -00318 0133 0133 0133 0866 0866 0866 0000 %1058 n12 002876 000047 -00439 0200 0200 0200 0800 0800 0800 0000 %1059 n13 003463 000101 -00364 0266 0266 0266 0333 0333 0333 0000 %1060 n14 004030 000097 -00388 0333 0333 0333 0666 0666 0666 0000 %1061 n15 004574 000071 -00343 0400 0400 0400 0600 0600 0600 0000 %1062 n16 005113 000050 -00280 0466 0466 0466 0533 0533 0533 0000 %1063 n17 005591 000057 -00240 0533 0533 0533 0466 0466 0466 0000 %1064 n18 006073 000100 -00166 0600 0600 0600 0400 0400 0400 0000 %1065 n19 006557 000091 -00064 0666 0666 0666 0333 0333 0333 0000 %1066 n20 007042 000101 000061 0734 0734 0734 0266 0266 0266 0000 %1067 n21 007555 000080 000217 0800 0800 0800 0200 0200 0200 0000 %1068 n22 008083 000036 000350 0866 0866 0866 0133 0133 0133 0000 %1069 n23 008696 -00035 000556 0933 0933 0933 0066 0066 0066 0000 %1070 n24 009542 -00009 000001 1000 1000 1000 0000 0000 0000 0000 %1071 n25 000808 000000 000000 0000 0000 0000 1000 1000 1000 0000 %1072 k26 009540 000000 000000 1000 1000 1000 0000 0000 0000 0000 %1073 k27 005109 007459 006708 1000 0000 0000 0000 1000 1000 0000 %1074 l26 008706 -04517 -01399 0000 1000 1000 1000 0000 0000 0000 %1075 l27 009283 -02142 010507 1000 1000 0000 0000 0000 1000 0000 %1076 m26 003158 007505 -10573 0000 0000 1000 1000 1000 0000 0000 %1077 m27 008416 -08227 009205 0000 1000 0000 1000 0000 1000 0000 %1078 n26 005742 009390 -06153 1000 0000 1000 0000 1000 0000 0000 %1079 n27 %$ %z005109 007459 006708 %#1000 0000 0000 0000 1000 1000 0000 %1074 l26 %O3 0 %z009283 -02142 010507 %#1000 1000 0000 0000 0000 1000 0000 %1076 m26 %Y3 1 %z008416 -08227 009205 %#0000 1000 0000 1000 0000 1000 0000 %1078 n26 %L3 2 %z008706 -04517 -01399 %#0000 1000 1000 1000 0000 0000 0000 %1075 l27 %C3 3 %z003158 007505 -10573 %#0000 0000 1000 1000 1000 0000 0000 %1077 m27 %V3 4 %z005742 009390 -06153 %#1000 0000 1000 0000 1000 0000 0000 %1079 n27 %M3 5 %z000808 000000 000000 %#0000 0000 0000 1000 1000 1000 0000 %1072 k26 %N3 6 %z009540 000000 000000 %#1000 1000 1000 0000 0000 0000 0000 %1073 k27 %W3 7 %$ %z000795 -00049 000006 %#0000 0000 0000 1000 1000 1000 0000 %0972 k01 %N4 6 %z009542 -00004 000003 %#1000 1000 1000 0000 0000 0000 0000 %0980 k09 %W4 7 %$ %z000795 -00003 000001 %#0000 0000 0000 1000 1000 1000 0000 %0981 l01 %N5 6 %z009542 -00004 000006 %#1000 1000 1000 0000 0000 0000 0000 %0989 l09 %W5 7 %$ %z000808 -00003 000002 %#0000 0000 0000 1000 1000 1000 0000 %0990 m01 %N6 6 %z009542 -00007 000005 %#1000 1000 1000 0000 0000 0000 0000 %0998 m09 %W6 7 %$ %z000808 000008 000006 %#0000 0000 0000 1000 1000 1000 0000 %0999 n01 %N7 6 %z009541 -00009 000001 %#1000 1000 1000 0000 0000 0000 0000 %1007 n09 %W7 7 %$ ra_line 2290 ] def %**************************************************************************** /LAB*Fa0100 [ %JE060-7A, Page 11 /66, LAB*ra; cf1=1.00; nt=0.18; nx=1.0; LECD_08_95, adapted %LAB*ra, D65, adapted, Y = 0.89 , L* = 8.08 %100 x LAB*a %#1000 x (r g b c m y 0) %nr. pos %z005099 007440 006711 %#1000 0000 0000 0000 1000 1000 0000 %0648 S19 %O1 0 %z009291 -02138 010504 %#1000 1000 0000 0000 0000 1000 0000 %0720 a19 %Y1 1 %z008413 -08214 009227 %#0000 1000 0000 1000 0000 1000 0000 %0072 I01 %L1 2 %z008716 -04558 -01357 %#0000 1000 1000 1000 0000 0000 0000 %0080 I09 %C1 3 %z003158 007462 -10553 %#0000 0000 1000 1000 1000 0000 0000 %0008 A09 %V1 4 %z005731 009362 -06140 %#1000 0000 1000 0000 1000 0000 0000 %0656 S27 %M1 5 %z000808 000025 000012 %#0000 0000 0000 1000 1000 1000 0000 %0000 A01 %N1 6 %z009550 -00003 000025 %#1000 1000 1000 0000 0000 0000 0000 %0728 a27 %W1 7 %$ 005113 007459 006736 %#1000 0000 0000 0000 1000 1000 0000 %0801 j01 %O2 0 009285 -02142 010510 %#1000 1000 0000 0000 0000 1000 0000 %0882 j10 %Y2 1 008403 -08207 009209 %#0000 1000 0000 1000 0000 1000 0000 %0963 j19 %L2 2 008731 -04541 -01366 %#0000 1000 1000 1000 0000 0000 0000 %0737 b09 %C2 3 003151 007503 -10570 %#0000 0000 1000 1000 1000 0000 0000 %0818 b18 %V2 4 005742 009376 -06141 %#1000 0000 1000 0000 1000 0000 0000 %0899 b27 %M2 5 000800 000000 -00009 %#0000 0000 0000 1000 1000 1000 0000 %0809 j09 %N2 6 009554 000001 000023 %#1000 1000 1000 0000 0000 0000 0000 %0729 b01 %W2 7 %$ ] def %************************************************************************* } if %xcolor 0, LAB*ra0 %************************************************************************* 0 1 23 {/i exch def LAB*FaG0100 i LAB*Fa0100 i get 100 div put LAB*FaG1100 i LAB*Fa0100 i get 100 div put %identical, no L-data } for 0 1 05 {/i exch def %i=0,5 /A*Fa LAB*FaG0100 i 3 mul 1 add get def /B*Fa LAB*FaG0100 i 3 mul 2 add get def /H*Fa B*Fa A*Fa 0.0001 add atan def angle_olvG01 i H*Fa put i 0 eq {angle_olvG01 6 H*Fa 360 add put} if /A*Fa LAB*FaG1100 i 3 mul 1 add get def /B*Fa LAB*FaG1100 i 3 mul 2 add get def /H*Fa B*Fa A*Fa 0.0001 add atan def angle_olvG11 i H*Fa put i 0 eq {angle_olvG11 6 H*Fa 360 add put} if } for %i=0,5 0 1 5 {/i exch def /i1 i 1 add def %i=0,5 /angle_olvG01_dif angle_olvG01 i1 get angle_olvG01 i get sub def angle_olvG01i i angle_olvG01 i get put angle_olvG01i i 07 add angle_olvG01 i get angle_olvG01_dif 0.00 mul add put angle_olvG01i i 14 add angle_olvG01 i get angle_olvG01_dif 0.00 mul add put angle_olvG01i i 21 add angle_olvG01 i get angle_olvG01_dif 0.00 mul add put /angle_olvG11_dif angle_olvG11 i1 get angle_olvG11 i get sub def angle_olvG11i i angle_olvG11 i get put angle_olvG11i i 07 add angle_olvG11 i get angle_olvG11_dif 0.00 mul add put angle_olvG11i i 14 add angle_olvG11 i get angle_olvG11_dif 0.00 mul add put angle_olvG11i i 21 add angle_olvG11 i get angle_olvG11_dif 0.00 mul add put } for %i=0,5 /LAB*02 24 array def /j0 0 def 729 1 971 {/jj exch def %jj=729,971 /j jj j0 sub def %necessary in both cases jj 963 eq {%RGB*02 02 RGBCMY0*tx j get put %963 0-8-0 L 2 LAB*02 06 LUT j 10 mul 0 add get put LAB*02 07 LUT j 10 mul 1 add get put LAB*02 08 LUT j 10 mul 2 add get put} if jj 737 eq {%RGB*02 03 RGBCMY0*tx j get put %737 0-8-8 C 3 LAB*02 09 LUT j 10 mul 0 add get put LAB*02 10 LUT j 10 mul 1 add get put LAB*02 11 LUT j 10 mul 2 add get put} if jj 818 eq {%RGB*02 04 RGBCMY0*tx j get put %818 0-0-8 V 4 LAB*02 12 LUT j 10 mul 0 add get put LAB*02 13 LUT j 10 mul 1 add get put LAB*02 14 LUT j 10 mul 2 add get put} if jj 809 eq {%RGB*02 06 RGBCMY0*tx j get put %809 or 890 or 971 0-0-0 N 6 LAB*02 18 LUT j 10 mul 0 add get LUT 890 j0 sub 10 mul 0 add get add LUT 971 j0 sub 10 mul 0 add get add 3 div put LAB*02 19 LUT j 10 mul 1 add get LUT 890 j0 sub 10 mul 1 add get add LUT 971 j0 sub 10 mul 1 add get add 3 div put LAB*02 20 LUT j 10 mul 2 add get LUT 890 j0 sub 10 mul 2 add get add LUT 971 j0 sub 10 mul 2 add get add 3 div put} if jj 801 eq {%RGB*02 00 RGBCMY0*tx j get put %801 8-0-0 O 0 LAB*02 00 LUT j 10 mul 0 add get put LAB*02 01 LUT j 10 mul 1 add get put LAB*02 02 LUT j 10 mul 2 add get put} if jj 882 eq {%RGB*02 01 RGBCMY0*tx j get put %882 8-8-0 Y 1 LAB*02 03 LUT j 10 mul 0 add get put LAB*02 04 LUT j 10 mul 1 add get put LAB*02 05 LUT j 10 mul 2 add get put} if jj 899 eq {%RGB*02 05 RGBCMY0*tx j get put %899 8-0-8 M 5 LAB*02 15 LUT j 10 mul 0 add get put LAB*02 16 LUT j 10 mul 1 add get put LAB*02 17 LUT j 10 mul 2 add get put} if jj 729 eq {%RGB*02 07 RGBCMY0*tx j get put %729 or 810 or 891 8-8-8 W 7 LAB*02 21 LUT j 10 mul 0 add get LUT 810 j0 sub 10 mul 0 add get add LUT 891 j0 sub 10 mul 0 add get add 3 div put LAB*02 22 LUT j 10 mul 1 add get LUT 810 j0 sub 10 mul 1 add get add LUT 891 j0 sub 10 mul 1 add get add 3 div put LAB*02 23 LUT j 10 mul 2 add get LUT 810 j0 sub 10 mul 2 add get add LUT 891 j0 sub 10 mul 2 add get add 3 div put} if } for %jj=729,971 0 1 23 {/j exch def %j=0,23 LAB*02 j LAB*02 j get 100 div put } for %j=0,23 /ISRL*ioL 0 def %standard colours /ISIO*ioL 2 def %special for LAB*02 TLS70 LAB*ioLmod 0 1 1 {/ibild exch def %ibild=0,1 ibild 0 eq {%BEG ibild=0 0 1 05 {/ic exch def %ic=0,11 S1 20 add yu2 yd ic mul sub moveto ( ) nshow N*olv ic ColNames ic get put } for %ic=0,11 0 1 05 {/i exch def %i=0,11 /ya yu2 yd i mul sub def /L*Fa LAB*a i 3 mul get def /A*Fa LAB*a i 3 mul 1 add get def /B*Fa LAB*a i 3 mul 2 add get def /C*Fa A*Fa dup mul B*Fa dup mul add sqrt def /H*Fa B*Fa A*Fa 0.0001 add atan def L*olv i L*Fa put A*olv i A*Fa put B*olv i B*Fa put C*olv i C*Fa put H*olv i H*Fa put o*olv i o3Ma i get put l*olv i l3Ma i get put v*olv i v3Ma i get put i 5 eq {L*olv 6 L*olv 0 get put A*olv 6 A*olv 0 get put B*olv 6 B*olv 0 get put A*olv 6 A*olv 0 get put C*olv 6 C*olv 0 get put H*olv 6 H*olv 0 get put o*olv 6 o*olv 0 get put l*olv 6 l*olv 0 get put v*olv 6 v*olv 0 get put } if } for %i=0,11 }%END ibild=0 {%BEG ibild=1 12 2 27 {/ic exch def %ic=12,27 N*rgb ic 12 sub 2 idiv ColNames ic get put } for %ic=12,27 %calculation of intermediate elementary colours %/proc_LAB*Fae_LAB*MaeNTABl_olvi3*cmyn3*Ma*ioL { %BEG procedure proc_LAB*Fae_LAB*MaeNTABl_olvi3*cmyn3*Ma*ioL %only for calculation without hue tables %input LAB*Fae %input LAB*a (4 adapted colours RJGB, No. 8 to 11) %input nLAB*s0 (colour white N for calculation of lab*l) %input wLAB*s0 (colour white W for achromatic axis) %output LAB*Mae %output olvi3*Mae %output cmyn3*Mae 0 1 3 {/j exch def %j=0,3 /L*Fae0 LAB*a j 8 add 3 mul 0 add get def /A*Fae0 LAB*a j 8 add 3 mul 1 add get def /B*Fae0 LAB*a j 8 add 3 mul 2 add get def /H*Fae0 B*Fae0 A*Fae0 0.0001 add atan def j 2 le {/L*Fae1 LAB*a j 1 add 8 add 3 mul 0 add get def /A*Fae1 LAB*a j 1 add 8 add 3 mul 1 add get def /B*Fae1 LAB*a j 1 add 8 add 3 mul 2 add get def /H*Fae1 B*Fae1 A*Fae1 0.0001 add atan def } {/L*Fae1 LAB*a 0 8 add 3 mul 0 add get def /A*Fae1 LAB*a 0 8 add 3 mul 1 add get def /B*Fae1 LAB*a 0 8 add 3 mul 2 add get def /H*Fae1 B*Fae1 A*Fae1 0.0001 add atan 360 add def } ifelse 0 1 1 {/i exch def %i=0,3 /n j 2 mul i add def /ya yu2 yd n mul sub 8000 add def /alph i 2 div def /beta 1 alph sub def /L*Fae L*Fae0 beta mul L*Fae1 alph mul add def /H*Fae H*Fae0 beta mul H*Fae1 alph mul add def /A*Fae 100 H*Fae cos mul def /B*Fae 100 H*Fae sin mul def proc_LAB*Fae_LAB*MaeNTABl_olvi3*cmyn3*Ma*ioL n 0 ge {/ineu n def} if n 2 ge {/ineu n 1 sub def} if n 4 ge {/ineu n 2 sub def} if L*rgb ineu L*Mae put A*rgb ineu A*Mae put B*rgb ineu B*Mae put C*rgb ineu C*Mae put H*rgb ineu H*Mae put n 7 eq {/ineu 6 def %ineu=6 L*rgb ineu L*rgb 0 get put A*rgb ineu A*rgb 0 get put B*rgb ineu B*rgb 0 get put C*rgb ineu C*rgb 0 get put H*rgb ineu H*rgb 0 get put } if %ineu=6 } for %i=0,1 } for %j=0,3 } ifelse %END ibild=1 } for %ibild=0,1 %00 1 15 {/xchart exch def %xchart=0,15 /xchartl 10 def 200 /Times-ISOL1 FS 0 setgray %100 -200 moveto (JG071-7A: ) show %(Messung: ) showde %(Measurement: ) showen FileData show %lanind eq {FileDatade show} {FileDataen show} ifelse %(, Page ) showen (, Seite ) showde %xcolor 1 add cvishow (/8) show 20 setlinewidth %0 0 25000 17100 0.0 0.0 0.0 0.0 colrecfi %area white grey %0 0 25000 17100 0.0 0.0 0.0 1.0 colrecst %Rahmen Schwarz %0 1 15 {/xchartl exch def %xchartl=0,11 %special space for 'xm03'PROZ0.COM 2x before/after xchartl % xchartl 0 eq { 100 13000 translate} if % xchartl 1 eq { 6100 13000 translate} if % xchartl 2 eq { 100 08750 translate} if % xchartl 3 eq { 6100 08750 translate} if % xchartl 4 eq { 100 4500 translate} if % xchartl 5 eq { 6100 4500 translate} if % xchartl 6 eq { 100 0250 translate} if % xchartl 7 eq { 6100 0250 translate} if % xchartl 8 eq {13500 13000 translate} if % xchartl 9 eq {19500 13000 translate} if % xchartl 10 eq {13500 08750 translate} if % xchartl 11 eq {19500 08750 translate} if % xchartl 12 eq {13500 4500 translate} if % xchartl 13 eq {19500 4500 translate} if % xchartl 14 eq {13500 0250 translate} if % xchartl 15 eq {19500 0250 translate} if /xwidth 5400 def /ywidth 4000 def 0 0 xwidth ywidth 0.0 0.0 0.0 0.5 colrecfi %Rechteck Mittelgrau 20 setlinewidth 0 0 xwidth ywidth 0.0 0.0 0.0 1.0 colrecst %Rahmen Schwarz 150 /Times-ISOL1 FS 0 setgray /Param (; cf1=1.00; nt=0.18; nx=1.0, LECD_08_95) def 300 -150 moveto xchartl 7 le {(JG071-) show} {(JG071-) show} ifelse xchartl 0 ge xchartl 7 le and {xchartl 1 add cvishow} if xchartl 8 ge xchartl 15 le and {xchartl 7 sub cvishow} if (A) show %A (, ) show xcolor 1 add cvishow Param show 2600 0300 translate gsave 0.8 0.8 scale 1 setgray -3200 4175 moveto TBS (System: ) show FileData show /x400 400 def /x700 550 def 0 1 5 {/i exch def /i1 i 1 add def %i=0,5 /angle_olv_dif angle_olv i1 get angle_olv i get sub def angle_olvi i angle_olv i get put angle_olvi i 07 add angle_olv i get angle_olv_dif 0.00 mul add put angle_olvi i 14 add angle_olv i get angle_olv_dif 0.00 mul add put angle_olvi i 21 add angle_olv i get angle_olv_dif 0.00 mul add put /angle_rgb_dif angle_rgb i1 get angle_rgb i get sub def angle_rgbi i angle_rgb i get put angle_rgbi i 07 add angle_rgb i get angle_rgb_dif 0.00 mul add put angle_rgbi i 14 add angle_rgb i get angle_rgb_dif 0.00 mul add put angle_rgbi i 21 add angle_rgb i get angle_rgb_dif 0.00 mul add put } for %i=0,5 /angle6 7 array def /angle6i 28 array def /cfarb_olv_o 7 array def /cfarb_olv_l 7 array def /cfarb_olv_v 7 array def /cfarb_rgb_r 7 array def /cfarb_rgb_g 7 array def /cfarb_rgb_b 7 array def /cfarb_olv00_o 7 array def /cfarb_olv00_l 7 array def /cfarb_olv00_v 7 array def /cfarb_olv25_o 7 array def /cfarb_olv25_l 7 array def /cfarb_olv25_v 7 array def /cfarb_olv50_o 7 array def /cfarb_olv50_l 7 array def /cfarb_olv50_v 7 array def /cfarb_olv75_o 7 array def /cfarb_olv75_l 7 array def /cfarb_olv75_v 7 array def /cfarb_rgb00_r 7 array def /cfarb_rgb00_g 7 array def /cfarb_rgb00_b 7 array def /cfarb_rgb25_r 7 array def /cfarb_rgb25_g 7 array def /cfarb_rgb25_b 7 array def /cfarb_rgb50_r 7 array def /cfarb_rgb50_g 7 array def /cfarb_rgb50_b 7 array def /cfarb_rgb75_r 7 array def /cfarb_rgb75_g 7 array def /cfarb_rgb75_b 7 array def /cname_olv [(O) (Y) (L) (C) (V) (M) (O)] def /cfarb_olv_o [1 1 0 0 0 1 1] def /cfarb_olv_l [0 1 1 1 0 0 0] def /cfarb_olv_v [0 0 0 1 1 1 0] def /cname_rgb [(R) (J) (G) (G50B) (B) (B50R) (R)] def /cfarb_rgb_r [1 1 0 0 0 1 1] def /cfarb_rgb_g [0 1 1 1 0 0 0] def /cfarb_rgb_g [0 0 0 1 1 1 0] def /cname_olv00 [(O00Y) (Y00L) (L00C) (C00V) (V00M) (M00O) (O00Y)] def /cfarb_olv00_o [1 1 0 0 0 1 1] def /cfarb_olv00_l [0 1 1 1 0 0 0] def /cfarb_olv00_v [0 0 0 1 1 1 0] def /cname_olv25 [(O25Y) (Y25L) (L25C) (C25V) (V25M) (M25O) (O25Y)] def /cfarb_olv25_o [1.00 0.75 0.00 0.00 0.25 1.00 1.00] def /cfarb_olv25_l [0.25 1.00 1.00 0.75 0.00 0.00 0.25] def /cfarb_olv25_v [0.00 0.00 0.25 1.00 1.00 0.75 0.00] def /cname_olv50 [(O50Y) (Y50L) (L50C) (C50V) (V50M) (M50O) (O50Y)] def /cfarb_olv50_o [1.00 0.50 0.00 0.00 0.50 1.00 1.00] def /cfarb_olv50_l [0.50 1.00 1.00 0.50 0.00 0.00 0.50] def /cfarb_olv50_v [0.00 0.00 0.50 1.00 1.00 0.50 0.00] def /cname_olv75 [(O75Y) (Y75L) (L75C) (C75V) (V75M) (M75O) (O75Y)] def /cfarb_olv75_o [1.00 0.25 0.00 0.00 0.75 1.00 1.00] def /cfarb_olv75_l [0.75 1.00 1.00 0.25 0.00 0.00 0.75] def /cfarb_olv75_v [0.00 0.00 0.75 1.00 1.00 0.25 0.00] def /cname_rgb00 [(R00J) (J00G) (G00B) (G50B) (B00R) (B50R) (R00J)] def /cfarb_rgb00_r [1 1 0 0 0 1 1] def /cfarb_rgb00_g [0 1 1 1 0 0 0] def /cfarb_rgb00_b [0 0 0 1 1 1 0] def /cname_rgb25 [(R25J) (J25G) (G13B) (G62B) (B12R) (B63R) (R25J)] def /cfarb_rgb25_r [1.00 0.75 0.00 0.00 0.25 1.00 1.00] def /cfarb_rgb25_g [0.25 1.00 1.00 0.75 0.00 0.00 0.25] def /cfarb_rgb25_b [0.00 0.00 0.25 1.00 1.00 0.75 0.00] def /cname_rgb50 [(R50J) (J50G) (G25B) (G75B) (B25R) (B75R) (R50J)] def /cfarb_rgb50_r [1.00 0.50 0.00 0.00 0.50 1.00 1.00] def /cfarb_rgb50_g [0.50 1.00 1.00 0.50 0.00 0.00 0.50] def /cfarb_rgb50_b [0.00 0.00 0.50 1.00 1.00 0.50 0.00] def /cname_rgb75 [(R75J) (J75G) (G38B) (G88B) (B38R) (B88R) (R75J)] def /cfarb_rgb75_r [1.00 0.25 0.00 0.00 0.75 1.00 1.00] def /cfarb_rgb75_g [0.75 1.00 1.00 0.25 0.00 0.00 0.75] def /cfarb_rgb75_b [0.00 0.00 0.75 1.00 1.00 0.25 0.00] def /cname6 7 array def /olvrgb 0 def 0 1 6 {/i exch def cname6 i olvrgb 0 eq {%olvrgb=0 xcolor 0 eq xcolor 1 eq or {cname_olv00 i get} if xcolor 2 eq xcolor 3 eq or {cname_olv00 i get} if xcolor 4 eq xcolor 5 eq or {cname_olv00 i get} if xcolor 6 eq xcolor 7 eq or {cname_olv00 i get} if } {%olvrgb=1 xcolor 0 eq xcolor 1 eq or {cname_rgb00 i get} if xcolor 2 eq xcolor 3 eq or {cname_rgb00 i get} if xcolor 4 eq xcolor 5 eq or {cname_rgb00 i get} if xcolor 6 eq xcolor 7 eq or {cname_rgb00 i get} if } ifelse put angle6 i olvrgb 0 eq {%olvrgb=0 xcolor 0 eq xcolor 1 eq or {angle_olvi i get} if xcolor 2 eq xcolor 3 eq or {angle_olvi i get} if xcolor 4 eq xcolor 5 eq or {angle_olvi i get} if xcolor 6 eq xcolor 7 eq or {angle_olvi i get} if } {%olvrgb=1 xcolor 0 eq xcolor 1 eq or {angle_rgbi i get} if xcolor 2 eq xcolor 3 eq or {angle_rgbi i get} if xcolor 4 eq xcolor 5 eq or {angle_rgbi i get} if xcolor 6 eq xcolor 7 eq or {angle_rgbi i get} if } ifelse put } for xchartl 0 eq xchartl 4 eq or xchartl 8 eq or xchartl 12 eq or {/jbild 0 def} if xchartl 1 eq xchartl 5 eq or xchartl 9 eq or xchartl 13 eq or {/jbild 1 def} if xchartl 2 eq xchartl 6 eq or xchartl 10 eq or xchartl 14 eq or {/jbild 2 def} if xchartl 3 eq xchartl 7 eq or xchartl 11 eq or xchartl 15 eq or {/jbild 3 def} if jbild 3 ne {%jbild#3 -3200 3900 moveto TBS lanind 0 eq {(Buntton: )} {(Hue: )} ifelse show TBIS (h*) show TBL 0 -50 rmoveto jbild 0 eq {cname6 0 get show} if jbild 1 eq {cname6 1 get show} if jbild 2 eq {cname6 2 get show} if 0 50 rmoveto TBS (=) show jbild 0 eq {angle6 0 get cvishow} if jbild 1 eq {angle6 1 get cvishow} if jbild 2 eq {angle6 2 get cvishow} if (/360; ) show TBIS (h*) show TBL 0 -50 rmoveto jbild 0 eq {cname6 3 get show olvrgb 1 eq {0 -50 rmoveto (gb) show 0 50 rmoveto} if } if jbild 1 eq {cname6 4 get show} if jbild 2 eq {cname6 5 get show olvrgb 1 eq {0 -50 rmoveto (br) show 0 50 rmoveto} if } if 0 50 rmoveto TBS (=) show jbild 0 eq {angle6 3 get cvishow} if jbild 1 eq {angle6 4 get cvishow} if jbild 2 eq {angle6 5 get cvishow} if (/360) show } if %jbild#3 xchartl 12 ge {%xchartl>=12 -3200 3625 xchartl 15 eq {300 add} if moveto TBS lanind 0 eq {(Ergebnis: )} {(Result: )} ifelse show TBIS (c*) show TBL 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto TBS (=) show TBIS (c*) show TBL 0 -50 rmoveto (lab*) show 0 50 rmoveto TBS (; ) show TBIS (t*) show TBL 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto TBS (=) show TBIS (t*) show TBL 0 -50 rmoveto (lab*) show 0 50 rmoveto } if %xchartl>=12 xchartl 0 ge xchartl 3 le and {%0<=xchartl<=3 -3200 4400 moveto TBS (Linear relation ) showen (Beziehung ) showde TBS (CIELAB \050) show TBIS (L*, a*, b*) show TBS (\051) show TBS ( and ) showen ( und ) showde TBIS (adapted (a) ) showen (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 x400 4100 moveto TBIS (l*) show TBL 0 -50 rmoveto (lab*) show 0 50 rmoveto TBS (=\050 ) show TBIS (L*) show TBS ( - ) show TBIS (L*) show 0 -50 rmoveto TBL (N) show 0 50 rmoveto TBS ( \051 / \050) show TBIS (L*) show 0 -50 rmoveto TBL (W) show 0 50 rmoveto ( - ) show TBIS (L*) show 0 -50 rmoveto TBL (N) show 0 50 rmoveto TBS ( \051) show x400 3800 moveto TBIS (a*) show 0 -50 rmoveto TBL (a) show 0 50 rmoveto TBS (=) show TBIS (a*) show TBS ( - ) show TBIS (a*) show 0 -50 rmoveto TBL (N) show 0 50 rmoveto TBS ( - ) show TBIS (l*) show TBL 0 -50 rmoveto (lab*) show 0 50 rmoveto TBS ( [ ) show TBIS (a*) show 0 -50 rmoveto TBL (W) show 0 50 rmoveto TBS ( - ) show TBIS (a*) show 0 -50 rmoveto TBL (N) show 0 50 rmoveto TBS ( ]) show x400 3500 moveto TBIS (b*) show 0 -50 rmoveto TBL (a) show 0 50 rmoveto TBS (=) show TBIS (b*) show TBS ( - ) show TBIS (b*) show 0 -50 rmoveto TBL (N) show 0 50 rmoveto TBS ( - ) show TBIS (l*) show TBL 0 -50 rmoveto (lab*) show 0 50 rmoveto TBS ( [ ) show TBIS (b*) show 0 -50 rmoveto TBL (W) show 0 50 rmoveto TBS ( - ) show TBIS (b*) show 0 -50 rmoveto TBL (N) show 0 50 rmoveto TBS ( ]) show x400 500 add 3200 moveto TBIS (C*) show 0 -50 rmoveto TBL (ab,a) show 0 50 rmoveto TBS (=[ ) show TBIS (a*) show 0 -50 rmoveto TBL (a) show 0 050 rmoveto 0 100 rmoveto TBL (2) show 0 -100 rmoveto TBS ( + ) show TBIS (b*) show 0 -50 rmoveto TBL (a) show 0 050 rmoveto 0 100 rmoveto TBL (2) show 0 -100 rmoveto TBS ( ] ) show 0 100 rmoveto TBL (1/2) show 0 -100 rmoveto } if %0<=xchartl<=3 xchartl 4 ge xchartl 7 le and {%4<=xchartl<=7 -3200 4400 moveto %TBS (Linear relation ) showen (Beziehung ) showde TBIS (Adapted (a) ) showen (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 ) showen ( und ) showde TBIS (relative ) showen (relatives ) showde TBS (CIELAB \050) show TBIS (c*) show 0 -50 rmoveto TBL (lab*) show 0 50 rmoveto TBS (, ) show TBIS (l*) show 0 -50 rmoveto TBL (lab*) show 0 50 rmoveto TBS (\051) show x700 4100 moveto TBIS (l*) show 0 -50 rmoveto TBL (lab*) show 0 50 rmoveto TBS (=\050 ) show TBIS (L*) show TBS ( - ) show TBIS (L*) show 0 -50 rmoveto TBL (N) show 0 50 rmoveto TBS ( \051 / \050) show TBIS (L*) show 0 -50 rmoveto TBL (W) show 0 50 rmoveto ( - ) show TBIS (L*) show 0 -50 rmoveto TBL (N) show 0 50 rmoveto TBS ( \051) show x700 3800 moveto TBIS (c*) show 0 -50 rmoveto TBL (lab*) show 0 50 rmoveto TBS (=) show TBIS (C*) show 0 -50 rmoveto TBL (ab,a) show 0 50 rmoveto TBS ( / ) show TBIS (C*) show 0 -50 rmoveto TBL (ab,a,M) show 0 50 rmoveto x700 3500 moveto TBIS (M) show TBS (=Maximum colour) showen (=Maximalfarbe) showde } if %4<=xchartl<=7 xchartl 8 ge xchartl 11 le and {%8<=xchartl<=11 -3200 4400 moveto TBS (Linear relation ) showen (Beziehung ) showde TBIS (adapted (a) ) showen (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 ) showen ( und ) showde TBIS (relative ) showen (relatives ) showde TBS (CIELAB \050) show TBIS (c*) show TBS (, ) show TBIS (t*) show TBS (\051) show x700 4100 moveto TBIS (l*) show 0 -50 rmoveto TBL (M) show 0 50 rmoveto TBS (=\050) show TBIS (L*) show 0 -50 rmoveto TBL (M) show 0 50 rmoveto TBS ( - ) show TBIS (L*) show 0 -50 rmoveto TBL (N) show 0 50 rmoveto TBS (\051 / \050) show TBIS (L*) show 0 -50 rmoveto TBL (W) show 0 50 rmoveto ( - ) show TBIS (L*) show 0 -50 rmoveto TBL (N) show 0 50 rmoveto TBS (\051) show x700 3800 moveto TBIS (t*) show TBL 0 -50 rmoveto (lab*) show 0 50 rmoveto TBS (=) show TBIS (l*) show TBL 0 -50 rmoveto (lab*) show 0 50 rmoveto TBS ( - ) show TBIS (c*) show TBL 0 -50 rmoveto (lab*) show 0 50 rmoveto TBS ( [ ) show TBIS (l*) show %TBL 0 -50 rmoveto (lab*) show 0 50 rmoveto 0 -50 rmoveto TBL (M) show 0 50 rmoveto TBS ( - 0,5 ]) show x700 3500 moveto TBIS (c*) show TBL 0 -50 rmoveto (lab*) show 0 50 rmoveto TBS (=) show TBIS (C*) show 0 -50 rmoveto TBL (ab,a) show 0 50 rmoveto TBS ( / ) show TBIS (C*) show 0 -50 rmoveto TBL (ab,a,M) show 0 50 rmoveto 700 3200 moveto TBIS (M) show TBS (=Maximum colour) showen (=Maximalfarbe) showde } if %8<=xchartl<=11 xchartl 12 ge xchartl 15 le and {%12<=xchartl<=15 -3200 4400 moveto TBS (Linear relation ) showen (Beziehung ) showde TBIS olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show TBS ( and ) showen ( und ) showde TBIS (relative ) show TBS (chroma ) showen (Buntheit ) showde TBIS (c*) show TBL 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto xchartl 03 ne xchartl 07 ne and xchartl 11 ne and xchartl 15 ne and {%xchart #3,7,11,15 or =3,7,11,15 TBS ( and triangle lightness ) showen ( und Dreiecks\255Helligkeit ) showde TBIS (t*) show TBL 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto } %xchart #3,7,11,15 %********************************************************************************* { %xchart =3,7,11,15 TBS ( or chroma ) showen ( oder Buntheit ) showde TBIS (a) show xchartl 12 ge {(*) show} if TBL 0 -50 rmoveto xchartl 0 ge xchartl 3 le and {(rgb) show} if xchartl 4 ge xchartl 7 le and {(olv) show} if xchartl 8 ge xchartl 11 le and {olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show} if xchartl 12 ge xchartl 15 le and {olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show} if TBL 0 50 rmoveto TBS (, ) show TBIS (b) show xchartl 12 ge {(*) show} if TBL 0 -50 rmoveto xchartl 0 ge xchartl 3 le and {(rgb) show} if xchartl 4 ge xchartl 7 le and {(olv) show} if xchartl 8 ge xchartl 11 le and {olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show} if xchartl 12 ge xchartl 15 le and {olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show} if TBL 0 50 rmoveto } ifelse %xchart #3,7,11,15 or =3,7,11,15 x700 4100 moveto TBIS (c*) show TBL 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto TBS (=max \050) show TBIS olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show TBS (\051 - min \050) show TBIS olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show TBS (\051) show x700 3800 moveto TBIS (n*) show %TBL 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto TBS (=1 - max \050) show TBIS olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show TBS (\051) show TBS (= 1 - ) show TBIS (i*) show %TBL 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto x700 3500 moveto TBIS (w*) show %TBL 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto TBS (=min \050) show TBIS olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show TBS (\051) show TBS (= 1 - ) show TBIS (d*) show %TBL 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto x700 3200 moveto TBIS (t*) show TBL 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto TBS (=) show TBIS (w*) show %TBL 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto TBS ( + 0,5 ) show TBIS (c*) show TBL 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto xchartl 14 le { 700 2900 moveto TBIS (M) show TBS (=Maximum colour) showen (=Maximalfarbe) showde } if } if %12<=xchartl<=15 xchartl 2 le { 1500 150 moveto TBK (chroma) showen (Buntheit) showde 2500 150 moveto TBIK (C*) show TS 0 -50 rmoveto (ab,a) show -1600 3100 moveto TBK (lightness) showen (Helligkeit) showde -350 3100 moveto TBIK (L*) show } if grestore gsave xchart 3 le {0.75 dup scale} {0.80 dup scale} ifelse xchartl 03 ne xchartl 07 ne and xchartl 11 ne and xchartl 15 ne and {%xchart #3,7,11,15 or =3,7,11,15 xchartl 1 eq xcolor 2 eq xcolor 3 eq or and { 200 0 translate} if %special shift for J-B xchartl 1 eq xcolor 4 eq xcolor 5 eq or and {-300 0 translate} if %special shift for J-B xchartl 1 eq xcolor 6 eq xcolor 7 eq or and { 200 0 translate} if %special shift for J-B /j729 0 def xchartl 0 eq xchartl 4 eq or xchartl 8 eq or xchartl 12 eq or {/j1 729 j729 sub 10 mul def} if %series O-C xchartl 1 eq xchartl 5 eq or xchartl 9 eq or xchartl 13 eq or {/j1 729 j729 sub 081 add 10 mul def} if %series Y-V xchartl 2 eq xchartl 6 eq or xchartl 10 eq or xchartl 14 eq or {/j1 729 j729 sub 162 add 10 mul def} if %series L-M 0 1 080 {/i exch def %i=0,080 /i10 j1 i 10 mul add def LUTL* i LUT i10 0 add get 100 div put LUTA* i LUT i10 1 add get 100 div put LUTB* i LUT i10 2 add get 100 div put LUTr* i LUT i10 3 add get 1000 div put LUTg* i LUT i10 4 add get 1000 div put LUTb* i LUT i10 5 add get 1000 div put C*ab i LUTA* i get dup mul LUTB* i get dup mul add 0.000001 add sqrt put L* i LUTL* i get put } for %i=0,080 % 801 737 809 729 882 818 890 810 963 899 971 891 % j01 b09 j09 b01 j10 b18 j18 b10 j19 b27 j27 b19 % O C N1 W1 Y V N2 W2 L M N3 W3 xchartl 0 eq xchartl 4 eq or xchartl 8 eq or xchartl 12 eq or {/index [801 737 809 729] def} if %O,C,N1,W1 xchartl 1 eq xchartl 5 eq or xchartl 9 eq or xchartl 13 eq or {/index [882 818 890 810] def} if %Y,V,N2,W2 xchartl 2 eq xchartl 6 eq or xchartl 10 eq or xchartl 14 eq or {/index [963 899 971 891] def} if %L,M,N1,W2 0 1 3 {/i exch def %i=0,3 %standard colours at the end /i10 index i get j729 sub 10 mul def /i81 81 i add def LUTL* i81 LUT i10 0 add get 100 div put LUTA* i81 LUT i10 1 add get 100 div put LUTB* i81 LUT i10 2 add get 100 div put LUTr* i81 LUT i10 3 add get 1000 div put LUTg* i81 LUT i10 4 add get 1000 div put LUTb* i81 LUT i10 5 add get 1000 div put C*ab i81 LUTA* i81 get dup mul LUTB* i81 get dup mul add 0.000001 add sqrt put L* i81 LUTL* i81 get put } for %i=0,3 /L*WN LUTL* 84 get LUTL* 83 get sub def 0 1 084 {/i exch def %i=0,084 LUTl* i LUTL* i get LUTL* 83 get sub L*WN 0.000001 add div put LUTc1* i C*ab i get C*ab 81 get 0.000001 add div put LUTc2* i C*ab i get C*ab 82 get 0.000001 add div put LUTt1* i LUTl* i get LUTc1* i get L* 81 get L* 83 get sub L*WN 0.000001 add div 0.5 sub mul sub put LUTt2* i LUTl* i get LUTc2* i get L* 82 get L* 83 get sub L*WN 0.000001 add div 0.5 sub mul sub put LUTr* i get 0 lt {LUTr* i 0 put} if LUTg* i get 0 lt {LUTg* i 0 put} if LUTb* i get 0 lt {LUTb* i 0 put} if LUTr* i get 1 gt {LUTr* i 1 put} if LUTg* i get 1 gt {LUTg* i 1 put} if LUTb* i get 1 gt {LUTb* i 1 put} if %maximum /max LUTr* i get def %rgb brilliantness LUTg* i get max gt {/max LUTg* i get def} if LUTb* i get max gt {/max LUTb* i get def} if %minimum /min LUTr* i get def %rgb whiteness LUTg* i get min lt {/min LUTg* i get def} if LUTb* i get min lt {/min LUTb* i get def} if LUTc*rgb i max min sub put %rgb chroma LUTt*rgb i min max min sub 0.5 mul add put %rgb triangle lightness } for %i=0,084 %axis and scales 1 setgray -3000 0 moveto 6250 0 rlineto stroke 0 -080 moveto 0 3600 rlineto stroke 3250 100 sub 50 moveto 100 -50 rlineto -100 -50 rlineto closepath fill 0 50 sub 3600 100 sub moveto 50 100 rlineto 50 -100 rlineto closepath fill 0 setgray TS /xt001 9 array def /xt001 [(-1,0) () (-0,5) ( ) ( 0) () ( 0,5) () () ] def %( 1,0)] def /yt001 5 array def /yt001 [( ) () (0,5) ( ) (1,0)] def /xt100 9 array def /xt100 [(-100) () ( -50) ( ) ( 0) () ( 50) () (100)] def /yt100 5 array def /yt100 [( ) () (50) ( ) (100)] def 0 1 8 {/i exch def %i=0,8 -3000 i 750 mul add -50 moveto 0 100 rlineto stroke -3200 i 750 mul add -250 moveto xchartl 3 le {xt100}{xt001} ifelse i get show } for %i=0,8 0 1 4 {/i exch def %i=0,4 -75 0 i 750 mul add moveto 150 0 rlineto stroke 30 50 i 750 mul add moveto xchartl 3 le {yt100}{yt001} ifelse i get show } for %i=0,4 xchartl 4 ge xchartl 7 le and { 1 setgray -2800 3100 moveto TBIK (relative ) show TBK (lightness) showen (Helligkeit) showde -600 3100 moveto TBIK (l*) show xchartl 11 le {TS 0 -50 rmoveto (lab*) show 0 50 rmoveto} if } if xchartl 8 ge { 1 setgray -2800 3100 moveto TBK (triangle lightness) showen (Dreiecks\255Helligkeit) showde -600 3100 moveto TBIK (t*) show xchartl 11 le {TS 0 -50 rmoveto (lab*) show 0 50 rmoveto} if xchartl 12 ge {TS 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto} if } if xchartl 4 ge { 1000 150 moveto TBIK (relative ) show TBK (chroma) showen (Buntheit) showde 2800 150 moveto TBIK (c*) show xchartl 11 le {TS 0 -50 rmoveto (lab*) show 0 50 rmoveto} if xchartl 12 ge {TS 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto} if } if xchartl 12 ge { 1500 2350 moveto TBIS (n*) show %TBL 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto TBS (=0; ) show TBIS (i*) show %TBL 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto TBS (=1) show 1500 0550 moveto TBIS (w*) show %TBL 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto TBS (=0; ) show TBIS (d*) show %TBL 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto TBS (=1) show } if /fakt 30 def /fakt2 3000 def 100 /Times-ISOL1 FS /j1 0 def /k1 0 def /k2 3 def newpath xchartl 0 ge xchartl 2 le and {%0<=xchartl <=2 %********************************************************************** 100 /Times-ISOL1 FS %********************************************************************** /Vorz 1 def k1 1 k2 {/k exch def %k=0,3 k 0 eq {/j2 8 def /j0 72 def} if %row j01 to j09: O-N k 1 eq {/j2 6 def /j0 64 def} if %row i02 to i08: O-N k 2 eq {/j2 4 def /j0 56 def} if %row h03 to h07: O-N k 3 eq {/j2 2 def /j0 48 def} if %row g04 to g06: O-N j1 1 j2 {/j exch def %j=j1,j2 %lines /ja j0 j add def L* j LUTL* ja get put C*ab j LUTA* ja get dup mul LUTB* ja get dup mul add sqrt Vorz mul put LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor C*ab j get fakt mul L* j get fakt mul 050 0 360 arc fill j 1 ge { C*ab j 1 sub get fakt mul L* j 1 sub get fakt mul moveto C*ab j get fakt mul L* j get fakt mul lineto stroke } if j 8 eq {k 0 eq {%k=0 icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor C*ab j get fakt mul L* j get fakt mul moveto C*ab 0 get fakt mul L* 0 get fakt mul lineto stroke } if %k=0 } if } for %j=j1,j2 } for %k=0,3 %********************************************************************** /Vorz 1 def %spalte e05 bis e05: W-O 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 050 0 360 arc fill 1 setgray 10 setlinewidth C*ab j get fakt mul L* j get fakt mul 055 0 360 arc stroke 20 setlinewidth newpath } for %j=0,0 k1 1 k2 {/k exch def %k=0,3 k 0 eq {/j2 8 def /j0 00 def} if %line b01 to j01: W-O k 1 eq {/j2 6 def /j0 10 def} if %line c02 to i02: W-O k 2 eq {/j2 4 def /j0 20 def} if %line d03 to h03: W-O k 3 eq {/j2 2 def /j0 30 def} if %line e04 to g04: W-O j1 1 j2 {/j exch def %j=j1,j2 %lines /ja j0 j 9 mul add def L* j LUTL* ja get put C*ab j LUTA* ja get dup mul LUTB* ja get dup mul add sqrt Vorz mul put LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor C*ab j get fakt mul L* j get fakt mul 050 0 360 arc fill j 1 ge {C*ab j 1 sub get fakt mul L* j 1 sub get fakt mul moveto C*ab j get fakt mul L* j get fakt mul lineto stroke } if j 8 eq {k 0 eq {%k=0 icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor C*ab j get fakt mul L* j get fakt mul moveto C*ab 0 get fakt mul L* 0 get fakt mul lineto stroke C*ab j get fakt mul L* j get fakt mul 070 0 360 arc stroke } if %k=0 LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor newpath 250 /TimesBI-ISOL1 FS /xadd0 [-200 -200 -200] def /yadd0 [250 250 250] def /xadd1 [-200 -200 -200] def /yadd1 [250 250 250] def C*ab j get fakt mul olvrgb 0 eq {xadd0} {xadd1} ifelse xchartl get add L* j get fakt mul olvrgb 0 eq {yadd0} {yadd1} ifelse xchartl get add moveto cname6 xchartl get show 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 (,) show C*ab j get fakt mul 580 sub L* j get fakt mul 700 sub 300 sub moveto TBIS ( L*) show 0 -50 rmoveto TBL (M) show 0 50 rmoveto TBS (\051) show newpath } if } for %j=j1,j2 } for %k=0,3 %********************************************************************** /Vorz -1 def k1 1 k2 {/k exch def %k=0,3 k 0 eq {/j2 8 def /j0 08 def} if %line b09 to j09: C-N k 1 eq {/j2 6 def /j0 16 def} if %line c08 to i08: C-N k 2 eq {/j2 4 def /j0 24 def} if %line d07 to h07: C-N k 3 eq {/j2 2 def /j0 32 def} if %line e06 to h06: C-N j1 1 j2 {/j exch def %j=j1,j2 %lines /ja j0 j 9 mul add def L* j LUTL* ja get put C*ab j LUTA* ja get dup mul LUTB* ja get dup mul add sqrt Vorz mul put LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor C*ab j get fakt mul L* j get fakt mul 050 0 360 arc fill j 1 ge {C*ab j 1 sub get fakt mul L* j 1 sub get fakt mul moveto C*ab j get fakt mul L* j get fakt mul lineto stroke } if j 8 eq {k 0 eq {%k=0 icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor C*ab j get fakt mul L* j get fakt mul moveto C*ab 0 get fakt mul L* 0 get fakt mul lineto stroke } if %k=0 } if } for %j=j1,j2 } for %k=0,3 %********************************************************************** /Vorz -1 def %spalte e05 bis e05: W-C 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 050 0 360 arc fill 1 setgray 10 setlinewidth C*ab j get fakt mul L* j get fakt mul 055 0 360 arc stroke 20 setlinewidth newpath } for %j=0,0 k1 1 k2 {/k exch def %k=0,3 k 0 eq {/j2 8 def /j0 00 def} if %row b01 to b09: W-C k 1 eq {/j2 6 def /j0 10 def} if %row c02 to c08: W-C k 2 eq {/j2 4 def /j0 20 def} if %row d03 to d07: W-C k 3 eq {/j2 2 def /j0 30 def} if %row e04 to e06: W-C j1 1 j2 {/j exch def %j=j1,j2 %rows /ja j0 j add def L* j LUTL* ja get put C*ab j LUTA* ja get dup mul LUTB* ja get dup mul add sqrt Vorz mul put LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor C*ab j get fakt mul L* j get fakt mul 050 0 360 arc fill j 1 ge {C*ab j 1 sub get fakt mul L* j 1 sub get fakt mul moveto C*ab j get fakt mul L* j get fakt mul lineto stroke } if j 8 eq {k 0 eq {%k=0 icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor C*ab j get fakt mul L* j get fakt mul moveto C*ab 0 get fakt mul L* 0 get fakt mul lineto stroke C*ab j get fakt mul L* j get fakt mul 070 0 360 arc stroke } if %k=0 LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor newpath 250 /TimesBI-ISOL1 FS /xadd0 [-400 -400 -400] def /yadd0 [-400 250 -400] def /xadd1 [-400 -400 -400] def /yadd1 [-400 250 -400] def C*ab j get fakt mul olvrgb 0 eq {xadd0} {xadd1} ifelse xchartl get add L* j get fakt mul olvrgb 0 eq {yadd0} {yadd1} ifelse xchartl get add moveto cname6 3 xchartl add get show newpath } if } for %j=j1,j2 } for %k=0,3 /fakt 30 def icolor 1 eq {%icolor=1 0 0 0 setrgbcolor /i24 xcolor 2 idiv 24 mul def /C*abW 0 def /C*abN 0 def /L*aN LAB*Fa0100 6 3 mul i24 add get def /L*aW LAB*Fa0100 7 3 mul i24 add get def /j xchartl def /j30 j 3 mul i24 add def /j31 j30 1 add def /j32 j30 2 add def /C*abM LAB*Fa0100 j31 get dup mul LAB*Fa0100 j32 get dup mul add 0.0001 add sqrt def C*abN fakt mul L*aN fakt mul moveto C*abM fakt mul LAB*Fa0100 j30 get fakt mul lineto C*abW fakt mul L*aW fakt mul lineto stroke /j xchartl 3 add def /j30 j 3 mul i24 add def /j31 j30 1 add def /j32 j30 2 add def /C*abM LAB*Fa0100 j31 get dup mul LAB*Fa0100 j32 get dup mul add 0.0001 add sqrt def C*abN fakt mul neg L*aN fakt mul moveto C*abM fakt mul neg LAB*Fa0100 j30 get fakt mul lineto C*abW fakt mul neg L*aW fakt mul lineto stroke } if %icolor=1 %********************************************************************** } if %0<=xchartl <=2 newpath xchartl 4 ge xchartl 6 le and {%4<=xchartl <=6 %********************************************************************** 100 /Times-ISOL1 FS /Vorz 1 def k1 1 k2 {/k exch def %k=0,3 k 0 eq {/j2 8 def /j0 72 def} if %row j01 to j09: O-N k 1 eq {/j2 6 def /j0 64 def} if %row i02 to i08: O-N k 2 eq {/j2 4 def /j0 56 def} if %row h03 to h07: O-N k 3 eq {/j2 2 def /j0 48 def} if %row g04 to g06: O-N j1 1 j2 {/j exch def %j=j1,j2 %lines /ja j0 j add def l1* j LUTl* ja get put c1* j LUTc1* ja get put LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor c1* j get fakt2 mul Vorz mul l1* j get fakt2 mul 050 0 360 arc fill j 1 ge {c1* j 1 sub get fakt2 mul Vorz mul l1* j 1 sub get fakt2 mul moveto c1* j get fakt2 mul Vorz mul l1* j get fakt2 mul lineto stroke } if j 8 eq {k 0 eq {%k=0 icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor c1* j get fakt2 mul Vorz mul l1* j get fakt2 mul moveto c1* 0 get fakt2 mul Vorz mul l1* 0 get fakt2 mul lineto stroke } if %k=0 } if } for %j=j1,j2 } for %k=0,3 %********************************************************************** /Vorz 1 def %spalte e05 bis e05: W-O 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 Vorz mul l1* j get fakt2 mul 050 0 360 arc fill 1 setgray 10 setlinewidth c1* j get fakt2 mul Vorz mul l1* j get fakt2 mul 055 0 360 arc stroke 20 setlinewidth newpath } for %j=0,0 k1 1 k2 {/k exch def %k=0,3 k 0 eq {/j2 8 def /j0 00 def} if %line b01 to j01: W-O k 1 eq {/j2 6 def /j0 10 def} if %line c02 to i02: W-O k 2 eq {/j2 4 def /j0 20 def} if %line d03 to h03: W-O k 3 eq {/j2 2 def /j0 30 def} if %line e04 to g04: W-O j1 1 j2 {/j exch def %j=j1,j2 %lines /ja j0 j 9 mul add def l1* j LUTl* ja get put c1* j LUTc1* ja get put LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor c1* j get fakt2 mul Vorz mul l1* j get fakt2 mul 050 0 360 arc fill j 1 ge {c1* j 1 sub get fakt2 mul Vorz mul l1* j 1 sub get fakt2 mul moveto c1* j get fakt2 mul Vorz mul l1* j get fakt2 mul lineto stroke } if j 8 eq {k 0 eq {%k=0 icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor c1* j get fakt2 mul Vorz mul l1* j get fakt2 mul moveto c1* 0 get fakt2 mul Vorz mul l1* 0 get fakt2 mul lineto stroke c1* j get fakt2 mul Vorz mul l1* j get fakt2 mul 070 0 360 arc stroke } if %k=0 LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor newpath 250 /TimesBI-ISOL1 FS /xadd0 [-200 -200 -200] def /yadd0 [250 250 250] def /xadd1 [-200 -200 -200] def /yadd1 [250 250 250] def c1* j get fakt2 mul Vorz mul olvrgb 0 eq {xadd0} {xadd1} ifelse xchartl 4 sub get add l1* j get fakt2 mul olvrgb 0 eq {yadd0} {yadd1} ifelse xchartl 4 sub get add moveto cname6 xchartl 4 sub get show 1 setgray c1* j get fakt2 mul Vorz mul 580 sub l1* j get fakt2 mul 600 sub moveto TBS (\050) show TBIS (c*) show 0 -50 rmoveto TBL (M) show 0 50 rmoveto TBIS (, l*) show 0 -50 rmoveto TBL (M) show 0 50 rmoveto TBS (\051) show newpath } if } for %j=j1,j2 } for %k=0,3 %********************************************************************** /Vorz -1 def k1 1 k2 {/k exch def %k=0,3 k 0 eq {/j2 8 def /j0 08 def} if %line b09 to j09: C-N k 1 eq {/j2 6 def /j0 16 def} if %line c08 to i08: C-N k 2 eq {/j2 4 def /j0 24 def} if %line d07 to h07: C-N k 3 eq {/j2 2 def /j0 32 def} if %line e06 to h06: C-N j1 1 j2 {/j exch def %j=j1,j2 %lines /ja j0 j 9 mul add def l2* j LUTl* ja get put c2* j LUTc2* ja get put LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor c2* j get fakt2 mul Vorz mul l2* j get fakt2 mul 050 0 360 arc fill j 1 ge {c2* j 1 sub get fakt2 mul Vorz mul l2* j 1 sub get fakt2 mul moveto c2* j get fakt2 mul Vorz mul l2* j get fakt2 mul lineto stroke } if j 8 eq {k 0 eq {%k=0 icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor c2* j get fakt2 mul Vorz mul l2* j get fakt2 mul moveto c2* 0 get fakt2 mul Vorz mul l2* 0 get fakt2 mul lineto stroke } if %k=0 } if } for %j=j1,j2 } for %k=0,3 %********************************************************************** /Vorz -1 def %spalte e05 bis e05: W-C 0 1 0 {/j exch def %j=0,0 %lines /ja j 40 add def l2* j LUTl* ja get put c2* j LUTc1* ja get put newpath 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 1 setgray 10 setlinewidth c2* j get fakt2 mul Vorz mul l2* j get fakt2 mul 055 0 360 arc stroke 20 setlinewidth newpath } for %j=0,0 k1 1 k2 {/k exch def %k=0,3 k 0 eq {/j2 8 def /j0 00 def} if %row b01 to b09: W-C k 1 eq {/j2 6 def /j0 10 def} if %row c02 to c08: W-C k 2 eq {/j2 4 def /j0 20 def} if %row d03 to d07: W-C k 3 eq {/j2 2 def /j0 30 def} if %row e04 to e06: W-C j1 1 j2 {/j exch def %j=j1,j2 %rows /ja j0 j add def l2* j LUTl* ja get put c2* j LUTc2* ja get put LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor c2* j get fakt2 mul Vorz mul l2* j get fakt2 mul 050 0 360 arc fill j 1 ge {c2* j 1 sub get fakt2 mul Vorz mul l2* j 1 sub get fakt2 mul moveto c2* j get fakt2 mul Vorz mul l2* j get fakt2 mul lineto stroke } if j 8 eq {k 0 eq {%k=0 icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor c2* j get fakt2 mul Vorz mul l2* j get fakt2 mul moveto c2* 0 get fakt2 mul Vorz mul l2* 0 get fakt2 mul lineto stroke c2* j get fakt2 mul Vorz mul l2* j get fakt2 mul 070 0 360 arc stroke } if %k=0 LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor newpath 250 /TimesBI-ISOL1 FS /xadd0 [-000 -400 -400] def /yadd0 [-400 250 -400] def /xadd1 [-000 -400 -400] def /yadd1 [-400 250 -400] def c2* j get fakt2 mul Vorz mul olvrgb 0 eq {xadd0} {xadd1} ifelse xchartl 4 sub get add l2* j get fakt2 mul olvrgb 0 eq {yadd0} {yadd1} ifelse xchartl 4 sub get add moveto cname6 xchartl 4 sub 3 add get show newpath } if } for %j=j1,j2 } for %k=0,3 %********************************************************************** } if %4<=xchartl <=6 newpath xchartl 8 ge xchartl 10 le and {%8<=xchartl <=10 %********************************************************************** 100 /Times-ISOL1 FS /Vorz 1 def k1 1 k2 {/k exch def %k=0,3 k 0 eq {/j2 8 def /j0 72 def} if %row j01 to j09: O-N k 1 eq {/j2 6 def /j0 64 def} if %row i02 to i08: O-N k 2 eq {/j2 4 def /j0 56 def} if %row h03 to h07: O-N k 3 eq {/j2 2 def /j0 48 def} if %row g04 to g06: O-N j1 1 j2 {/j exch def %j=j1,j2 %lines /ja j0 j add def t1* j LUTt1* ja get put c1* j LUTc1* ja get put LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor c1* j get fakt2 mul Vorz mul t1* j get fakt2 mul 050 0 360 arc fill j 1 ge {c1* j 1 sub get fakt2 mul Vorz mul t1* j 1 sub get fakt2 mul moveto c1* j get fakt2 mul Vorz mul t1* j get fakt2 mul lineto stroke } if j 8 eq {k 0 eq {%k=0 icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor c1* j get fakt2 mul Vorz mul t1* j get fakt2 mul moveto c1* 0 get fakt2 mul Vorz mul t1* 0 get fakt2 mul lineto stroke } if %k=0 } if } for %j=j1,j2 } for %k=0,3 %********************************************************************** /Vorz 1 def %spalte e05 bis e05: W-O 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 Vorz mul t1* j get fakt2 mul 050 0 360 arc fill 1 setgray 10 setlinewidth c1* j get fakt2 mul Vorz mul t1* j get fakt2 mul 055 0 360 arc stroke 20 setlinewidth newpath } for %j=0,0 k1 1 k2 {/k exch def %k=0,3 k 0 eq {/j2 8 def /j0 00 def} if %line b01 to j01: W-O k 1 eq {/j2 6 def /j0 10 def} if %line c02 to i02: W-O k 2 eq {/j2 4 def /j0 20 def} if %line d03 to h03: W-O k 3 eq {/j2 2 def /j0 30 def} if %line e04 to g04: W-O j1 1 j2 {/j exch def %j=j1,j2 %lines /ja j0 j 9 mul add def t1* j LUTt1* ja get put c1* j LUTc1* ja get put LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor c1* j get fakt2 mul Vorz mul t1* j get fakt2 mul 050 0 360 arc fill j 1 ge {c1* j 1 sub get fakt2 mul Vorz mul t1* j 1 sub get fakt2 mul moveto c1* j get fakt2 mul Vorz mul t1* j get fakt2 mul lineto stroke } if j 8 eq {k 0 eq {%k=0 icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor c1* j get fakt2 mul Vorz mul t1* j get fakt2 mul moveto c1* 0 get fakt2 mul Vorz mul t1* 0 get fakt2 mul lineto stroke c1* j get fakt2 mul Vorz mul t1* j get fakt2 mul 070 0 360 arc stroke } if %k=0 LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor newpath 250 /TimesBI-ISOL1 FS /xadd0 [-200 -200 -200] def /yadd0 [250 250 250] def /xadd1 [-200 -200 -200] def /yadd1 [250 250 250] def c1* j get fakt2 mul Vorz mul olvrgb 0 eq {xadd0} {xadd1} ifelse xchartl 8 sub get add t1* j get fakt2 mul olvrgb 0 eq {yadd0} {yadd1} ifelse xchartl 8 sub get add moveto cname6 xchartl 8 sub get show 1 setgray c1* j get fakt2 mul Vorz mul 580 sub t1* j get fakt2 mul 600 sub moveto TBS (\050) show TBIS (c*) show 0 -50 rmoveto TBL (M) show 0 50 rmoveto TBIS (, t*) show 0 -50 rmoveto TBL (M) show 0 50 rmoveto TBS (\051) show newpath } if } for %j=j1,j2 } for %k=0,3 %********************************************************************** /Vorz -1 def k1 1 k2 {/k exch def %k=0,3 k 0 eq {/j2 8 def /j0 08 def} if %line b09 to j09: C-N k 1 eq {/j2 6 def /j0 16 def} if %line c08 to i08: C-N k 2 eq {/j2 4 def /j0 24 def} if %line d07 to h07: C-N k 3 eq {/j2 2 def /j0 32 def} if %line e06 to h06: C-N j1 1 j2 {/j exch def %j=j1,j2 %lines /ja j0 j 9 mul add def t2* j LUTt2* ja get put c2* j LUTc2* ja get put LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor c2* j get fakt2 mul Vorz mul t2* j get fakt2 mul 050 0 360 arc fill j 1 ge {c2* j 1 sub get fakt2 mul Vorz mul t2* j 1 sub get fakt2 mul moveto c2* j get fakt2 mul Vorz mul t2* j get fakt2 mul lineto stroke } if j 8 eq {k 0 eq {%k=0 icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor c2* j get fakt2 mul Vorz mul t2* j get fakt2 mul moveto c2* 0 get fakt2 mul Vorz mul t2* 0 get fakt2 mul lineto stroke } if %k=0 } if } for %j=j1,j2 } for %k=0,3 %********************************************************************** /Vorz -1 def %spalte e05 bis e05: W-C 0 1 0 {/j exch def %j=0,0 %lines /ja j 40 add def t2* j LUTt1* ja get put c2* j LUTc1* ja get put newpath 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 1 setgray 10 setlinewidth c2* j get fakt2 mul Vorz mul t2* j get fakt2 mul 055 0 360 arc stroke 20 setlinewidth newpath } for %j=0,0 k1 1 k2 {/k exch def %k=0,3 k 0 eq {/j2 8 def /j0 00 def} if %row b01 to b09: W-C k 1 eq {/j2 6 def /j0 10 def} if %row c02 to c08: W-C k 2 eq {/j2 4 def /j0 20 def} if %row d03 to d07: W-C k 3 eq {/j2 2 def /j0 30 def} if %row e04 to e06: W-C j1 1 j2 {/j exch def %j=j1,j2 %rows /ja j0 j add def t2* j LUTt2* ja get put c2* j LUTc2* ja get put LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor c2* j get fakt2 mul Vorz mul t2* j get fakt2 mul 050 0 360 arc fill j 1 ge {c2* j 1 sub get fakt2 mul Vorz mul t2* j 1 sub get fakt2 mul moveto c2* j get fakt2 mul Vorz mul t2* j get fakt2 mul lineto stroke } if j 8 eq {k 0 eq {%k=0 icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor c2* j get fakt2 mul Vorz mul t2* j get fakt2 mul moveto c2* 0 get fakt2 mul Vorz mul t2* 0 get fakt2 mul lineto stroke c2* j get fakt2 mul Vorz mul t2* j get fakt2 mul 070 0 360 arc stroke } if %k=0 LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor newpath 250 /TimesBI-ISOL1 FS /xadd0 [-000 -400 -400] def /yadd0 [-400 250 -400] def /xadd1 [-000 -400 -400] def /yadd1 [-400 250 -400] def c2* j get fakt2 mul Vorz mul olvrgb 0 eq {xadd0} {xadd1} ifelse xchartl 8 sub get add t2* j get fakt2 mul olvrgb 0 eq {yadd0} {yadd1} ifelse xchartl 8 sub get add moveto cname6 xchartl 8 sub 3 add get show newpath } if } for %j=j1,j2 } for %k=0,3 %********************************************************************** } if %8<=xchartl <=10 newpath xchartl 12 ge xchartl 14 le and {%12<=xchartl <=14 %********************************************************************** 100 /Times-ISOL1 FS /Vorz 1 def k1 1 k2 {/k exch def %k=0,3 k 0 eq {/j2 8 def /j0 72 def} if %row j01 to j09: O-N k 1 eq {/j2 6 def /j0 64 def} if %row i02 to i08: O-N k 2 eq {/j2 4 def /j0 56 def} if %row h03 to h07: O-N k 3 eq {/j2 2 def /j0 48 def} if %row g04 to g06: O-N j1 1 j2 {/j exch def %j=j1,j2 %lines /ja j0 j add def t1*rgb j LUTt*rgb ja get put c1*rgb j LUTc*rgb ja get put LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor c1*rgb j get fakt2 mul Vorz mul t1*rgb j get fakt2 mul 050 0 360 arc fill j 1 ge {c1*rgb j 1 sub get fakt2 mul Vorz mul t1*rgb j 1 sub get fakt2 mul moveto c1*rgb j get fakt2 mul Vorz mul t1*rgb j get fakt2 mul lineto stroke } if j 8 eq {k 0 eq {%k=0 icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor c1*rgb j get fakt2 mul Vorz mul t1*rgb j get fakt2 mul moveto c1*rgb 0 get fakt2 mul Vorz mul t1*rgb 0 get fakt2 mul lineto stroke } if %k=0 } if } for %j=j1,j2 } for %k=0,3 %********************************************************************** /Vorz 1 def %spalte e05 bis e05: W-O 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 Vorz mul t1*rgb j get fakt2 mul 050 0 360 arc fill 1 setgray 10 setlinewidth c1*rgb j get fakt2 mul Vorz mul t1*rgb j get fakt2 mul 055 0 360 arc stroke 20 setlinewidth newpath } for %j=0,0 k1 1 k2 {/k exch def %k=0,3 k 0 eq {/j2 8 def /j0 00 def} if %line b01 to j01: W-O k 1 eq {/j2 6 def /j0 10 def} if %line c02 to i02: W-O k 2 eq {/j2 4 def /j0 20 def} if %line d03 to h03: W-O k 3 eq {/j2 2 def /j0 30 def} if %line e04 to g04: W-O j1 1 j2 {/j exch def %j=j1,j2 %lines /ja j0 j 9 mul add def t1*rgb j LUTt*rgb ja get put c1*rgb j LUTc*rgb ja get put LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor c1*rgb j get fakt2 mul Vorz mul t1*rgb j get fakt2 mul 050 0 360 arc fill j 1 ge {c1*rgb j 1 sub get fakt2 mul Vorz mul t1*rgb j 1 sub get fakt2 mul moveto c1*rgb j get fakt2 mul Vorz mul t1*rgb j get fakt2 mul lineto stroke } if j 8 eq {k 0 eq {%k=0 icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor c1*rgb j get fakt2 mul Vorz mul t1*rgb j get fakt2 mul moveto c1*rgb 0 get fakt2 mul Vorz mul t1*rgb 0 get fakt2 mul lineto stroke c1*rgb j get fakt2 mul Vorz mul t1*rgb j get fakt2 mul 070 0 360 arc stroke } if %k=0 LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor newpath 250 /TimesBI-ISOL1 FS /xadd0 [-200 -200 -200] def /yadd0 [250 250 250] def /xadd1 [-200 -200 -200] def /yadd1 [250 250 250] def c1*rgb j get fakt2 mul Vorz mul olvrgb 0 eq {xadd0} {xadd1} ifelse xchartl 12 sub get add t1*rgb j get fakt2 mul olvrgb 0 eq {yadd0} {yadd1} ifelse xchartl 12 sub get add moveto cname6 xchartl 12 sub get show 1 setgray c1*rgb j get fakt2 mul Vorz mul 580 sub t1*rgb j get fakt2 mul 600 sub moveto TBS (\050) show TBIS (c*) show 0 -50 rmoveto TBL (M) show 0 50 rmoveto TBIS (, t*) show 0 -50 rmoveto TBL (M) show 0 50 rmoveto TBS (\051) show newpath } if } for %j=j1,j2 } for %k=0,3 %********************************************************************** /Vorz -1 def k1 1 k2 {/k exch def %k=0,3 k 0 eq {/j2 8 def /j0 08 def} if %line b09 to j09: C-N k 1 eq {/j2 6 def /j0 16 def} if %line c08 to i08: C-N k 2 eq {/j2 4 def /j0 24 def} if %line d07 to h07: C-N k 3 eq {/j2 2 def /j0 32 def} if %line e06 to h06: C-N j1 1 j2 {/j exch def %j=j1,j2 %lines /ja j0 j 9 mul add def t2*rgb j LUTt*rgb ja get put c2*rgb j LUTc*rgb ja get put LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor c2*rgb j get fakt2 mul Vorz mul t2*rgb j get fakt2 mul 050 0 360 arc fill j 1 ge {c2*rgb j 1 sub get fakt2 mul Vorz mul t2*rgb j 1 sub get fakt2 mul moveto c2*rgb j get fakt2 mul Vorz mul t2*rgb j get fakt2 mul lineto stroke } if j 8 eq {k 0 eq {%k=0 icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor c2*rgb j get fakt2 mul Vorz mul t2*rgb j get fakt2 mul moveto c2*rgb 0 get fakt2 mul Vorz mul t2*rgb 0 get fakt2 mul lineto stroke } if %k=0 } if } for %j=j1,j2 } for %k=0,3 %********************************************************************** /Vorz -1 def %spalte e05 bis e05: W-C 0 1 0 {/j exch def %j=0,0 %lines /ja j 40 add def t2*rgb j LUTt*rgb ja get put c2*rgb j LUTc*rgb ja get put newpath 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 1 setgray 10 setlinewidth c2*rgb j get fakt2 mul Vorz mul t2*rgb j get fakt2 mul 055 0 360 arc stroke 20 setlinewidth newpath } for %j=0,0 k1 1 k2 {/k exch def %k=0,3 k 0 eq {/j2 8 def /j0 00 def} if %row b01 to b09: W-C k 1 eq {/j2 6 def /j0 10 def} if %row c02 to c08: W-C k 2 eq {/j2 4 def /j0 20 def} if %row d03 to d07: W-C k 3 eq {/j2 2 def /j0 30 def} if %row e04 to e06: W-C j1 1 j2 {/j exch def %j=j1,j2 %rows /ja j0 j add def t2*rgb j LUTt*rgb ja get put c2*rgb j LUTc*rgb ja get put LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor c2*rgb j get fakt2 mul Vorz mul t2*rgb j get fakt2 mul 050 0 360 arc fill j 1 ge {c2*rgb j 1 sub get fakt2 mul Vorz mul t2*rgb j 1 sub get fakt2 mul moveto c2*rgb j get fakt2 mul Vorz mul t2*rgb j get fakt2 mul lineto stroke } if j 8 eq {k 0 eq {%k=0 icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor c2*rgb j get fakt2 mul Vorz mul t2*rgb j get fakt2 mul moveto c2*rgb 0 get fakt2 mul Vorz mul t2*rgb 0 get fakt2 mul lineto stroke c2*rgb j get fakt2 mul Vorz mul t2*rgb j get fakt2 mul 070 0 360 arc stroke } if %k=0 LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor newpath 250 /TimesBI-ISOL1 FS /xadd0 [-000 -400 -400] def /yadd0 [-400 250 -400] def /xadd1 [-000 -400 -400] def /yadd1 [-400 250 -400] def c2*rgb j get fakt2 mul Vorz mul olvrgb 0 eq {xadd0} {xadd1} ifelse xchartl 12 sub get add t2*rgb j get fakt2 mul olvrgb 0 eq {yadd0} {yadd1} ifelse xchartl 12 sub get add moveto cname6 xchartl 12 sub 3 add get show newpath } if } for %j=j1,j2 } for %k=0,3 %********************************************************************** } if %12<=xchartl <=14 xchartl 1 eq xcolor 2 eq xcolor 3 eq or and {-200 0 translate} if %special shift for J-B TLS00a xchartl 1 eq xcolor 4 eq xcolor 5 eq or and { 300 0 translate} if %special shift for J-B FRS06a xchartl 1 eq xcolor 6 eq xcolor 7 eq or and {-200 0 translate} if %special shift for J-B TLS18a %********************************************************************** } %xchart #3,7,11,15 %********************************************************************************* { %xchart =3,7,11,15 1 setgray %xchartl 3 eq { -3400 4175 moveto TBS (CIELAB) show (\255Bunttonwinkel: ) showde ( hue angles: ) showen % } if xchartl 11 le { -3400 xchartl 7 ge {200 add} if 3900 moveto TBIS (h) show 0 -50 rmoveto TBL (ab,d) show 0 50 rmoveto TBS (=[) show 0 1 5 {/i exch def %i=0,5 angle_olvG11i i get cvishow i 5 ne {(, ) show} if } for %i=0,5 (]) show -3400 xchartl 7 ge {200 add} if 3625 moveto TBIS (h) show 0 -50 rmoveto TBL (ab,dx) show 0 50 rmoveto TBS (=[) show 0 1 5 {/i exch def %i=0,5 H*olv i get cvishow i 5 ne {(, ) show} if } for %i=0,5 (]) show } if %xchartl,<=11 olvrgb 1 eq {%olvrgb=1 -3400 xchartl 7 ge {200 add} if 3350 moveto TBIS (h) show 0 -50 rmoveto TBL (ab,e) show 0 50 rmoveto TBS (=[) show 0 1 5 {/i exch def %i=0,5 angle_rgb i get cvishow i 5 ne {(, ) show} if } for %i=0,5 (]) show } if %olvrgb=1 1600 200 add 2900 moveto %xchartl 3 eq {200 sub} if 2900 moveto TBIS (a*) show TBL 0 -50 rmoveto xchartl 0 ge xchartl 3 le and {(a) show} if xchartl 4 ge xchartl 7 le and {(lab*) show} if xchartl 8 ge xchartl 11 le and {(lab*) show} if xchartl 12 ge xchartl 15 le and {olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show} if TBL 0 50 rmoveto TBS (=) show xchartl 4 le { TBIS (C*) show TBL 0 -50 rmoveto (ab,a) show TBL 0 50 rmoveto } { TBIS (c*) show TBL 0 -50 rmoveto xchartl 4 ge xchartl 7 le and {(lab*) show} if xchartl 8 ge xchartl 11 le and {(lab*) show} if xchartl 12 ge xchartl 15 le and {olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show} if TBL 0 50 rmoveto } ifelse TBIS ( cos h) show 0 -50 rmoveto TBL (ab) show 0 50 rmoveto 1600 200 add 2600 moveto %xchartl 3 eq {200 sub} if 2600 moveto TBIS (b*) show TBL 0 -50 rmoveto xchartl 0 ge xchartl 3 le and {(a) show} if xchartl 4 ge xchartl 7 le and {(lab*) show} if xchartl 8 ge xchartl 11 le and {(lab*) show} if xchartl 12 ge xchartl 15 le and {olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show} if TBL 0 50 rmoveto TBS (=) show xchartl 4 le { TBIS (C*) show TBL 0 -50 rmoveto (ab,a) show TBL 0 50 rmoveto } { TBIS (c*) show TBL 0 -50 rmoveto xchartl 4 ge xchartl 7 le and {(lab*) show} if xchartl 8 ge xchartl 11 le and {(lab*) show} if xchartl 12 ge xchartl 15 le and {olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show} if TBL 0 50 rmoveto } ifelse TBIS ( sin h) show 0 -50 rmoveto TBL (ab) show 0 50 rmoveto -400 200 add 3800 moveto %xchartl 11 le {300 add} if 3500 moveto TBIK (b*) show TBS 0 -50 rmoveto xchartl 0 ge xchartl 3 le and {(a) show} if xchartl 4 ge xchartl 7 le and {(lab*) show} if xchartl 8 ge xchartl 11 le and {(lab*) show} if xchartl 12 ge xchartl 15 le and {olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show} if TBS 0 50 rmoveto 1800 xchartl 3 le {700 add } if 1900 moveto xchartl 4 ge {TBIK (relative ) show} if TBK lanind 0 eq {(Buntheit ) showde} {(chroma ) showen} ifelse 2700 1650 moveto TBIK (a*) show TBS 0 -50 rmoveto xchartl 0 ge xchartl 3 le and {(a) show} if xchartl 4 ge xchartl 7 le and {(lab*) show} if xchartl 8 ge xchartl 11 le and {(lab*) show} if xchartl 12 ge xchartl 15 le and {olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show} if TBS 0 50 rmoveto %new shift in middle 0 1500 translate %axis and scales 1 setgray -3000 0 moveto 6300 0 rlineto stroke 0 -1880 moveto 0 3600 rlineto stroke 3300 100 sub 50 moveto 100 -50 rlineto -100 -50 rlineto closepath fill 0 50 sub 1800 100 sub moveto 50 100 rlineto 50 -100 rlineto closepath fill 0 setgray TS /xt001 9 array def /xt001 [(-2,0) () (-1,0) ( ) ( ) () () () () ]def %( 1,0) () ( 2,0)] def /yt001 5 array def /yt001 [(-1,0 ) () ( ) ( ) (1,0)] def /xt100 9 array def /xt100 [(-200) () (-100) ( ) ( ) () ( 100) () ( 200)] def /yt100 5 array def /yt100 [(-100 ) () ( ) ( ) (100)] def 2 1 6 {/i exch def %i=2,6 -3000 i 750 mul add -50 moveto 0 100 rlineto stroke -3650 i 850 mul add -200 moveto xchartl 3 le {xt100} {xt001} ifelse i get show } for %i=2,6 0 1 4 {/i exch def %i=0,4 -75 -1500 i 750 mul add moveto 150 0 rlineto stroke 100 -1650 i 800 mul add moveto xchartl 3 le {yt100} {yt001} ifelse i get show } for %i=0,4 newpath %********************************************************************** %For all xchartl=3,7,11,15 %Variable hue series O00Y-O83Y, Y00L-Y83L, L00C-L83C, % C00V-C83V, C00V-C83V, C00V-C83V-O00Y 250 /TimesBI-ISOL1 FS /fcolor1 1.10 def /fcolor2 1.20 def /j729 0 def 0 1 5 {/xtonj exch def %xton=0,5 0 1 7 {/j exch def %i=0,08 xtonj 0 eq {/j10 648 j729 sub j 09 mul add 10 mul def} if %series O00Y-O83Y, -09 xtonj 1 eq {/j10 720 j729 sub j 81 mul sub 10 mul def} if %series Y00L-Y83L, -81 xtonj 2 eq {/j10 072 j729 sub j add 10 mul def} if %series L00C-L83C, +01 xtonj 3 eq {/j10 080 j729 sub j 09 mul sub 10 mul def} if %series C00V-C83V, -09 xtonj 4 eq {/j10 008 j729 sub j 81 mul add 10 mul def} if %series C00V-C83V, -81 xtonj 5 eq {/j10 656 j729 sub j sub 10 mul def} if %series C00V-C83V, +01 LUTL* j LUT j10 0 add get 100 div put LUTA* j LUT j10 1 add get 100 div put LUTB* j LUT j10 2 add get 100 div put LUTr* j LUT j10 3 add get 1000 div put LUTg* j LUT j10 4 add get 1000 div put LUTb* j LUT j10 5 add get 1000 div put C*ab j LUTA* j get dup mul LUTB* j get dup mul add 0.000001 add sqrt put L* j LUTL* j get put LUTc*rgb j 1000 put } for %j=0,08 %********************************************************************** /j0 0 def /j1 0 def /j2 8 def /k 0 def /fakt 30 def /fakt1 15 def /fakt2 1500 def 0 1 7 {/j exch def %j=0,8 %lines /ja j0 j add def c1*rgb j LUTc*rgb ja get put C*ab j LUTA* ja get dup mul LUTB* ja get dup mul add sqrt put /angleWO LUTB* ja get LUTA* ja get 0.0001 add atan def LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor xchartl 3 le {%xchart=3 newpath C*ab j get fakt1 mul angleWO cos mul C*ab j get fakt1 mul angleWO sin mul moveto C*ab j get fakt1 mul angleWO cos mul C*ab j get fakt1 mul angleWO sin mul 050 0 360 arc fill } {%xchart>=7 newpath c1*rgb j get fakt2 mul angleWO cos mul c1*rgb j get fakt2 mul angleWO sin mul moveto c1*rgb j get fakt2 mul angleWO cos mul c1*rgb j get fakt2 mul angleWO sin mul 050 0 360 arc fill } ifelse %xchart=3,>=7 } for %j=0,8 } for %xton=0,5 %END for all xchartl=3,7,11,15 %********************************************************************** %For all xchartl=3,7,11,15 %Constant hue series 250 /TimesBI-ISOL1 FS /fcolor1 1.10 def /fcolor2 1.20 def /j729 0 def %xcolor 1 le {/j729 0 def}{/j729 729 def} ifelse 0 1 2 {/xtonj exch def %xton=0,2 xtonj 0 eq {/j1 729 j729 sub 10 mul def} if %series O-C xtonj 1 eq {/j1 729 j729 sub 081 add 10 mul def} if %series Y-V xtonj 2 eq {/j1 729 j729 sub 162 add 10 mul def} if %series L-M 0 1 080 {/i exch def %i=0,080 /i10 j1 i 10 mul add def LUTL* i LUT i10 0 add get 100 div put LUTA* i LUT i10 1 add get 100 div put LUTB* i LUT i10 2 add get 100 div put LUTr* i LUT i10 3 add get 1000 div put LUTg* i LUT i10 4 add get 1000 div put LUTb* i LUT i10 5 add get 1000 div put C*ab i LUTA* i get dup mul LUTB* i get dup mul add 0.000001 add sqrt put L* i LUTL* i get put } for %i=0,080 % 801 737 809 729 882 818 890 810 963 899 971 891 % j01 b09 j09 b01 j10 b18 j18 b10 j19 b27 j27 b19 % O C N1 W1 Y V N2 W2 L M N3 W3 xtonj 0 eq {/index [801 737 809 729] def} if %O,C,N1,W1 xtonj 1 eq {/index [882 818 890 810] def} if %Y,V,N2,W2 xtonj 2 eq {/index [963 899 971 891] def} if %L,M,N1,W2 0 1 3 {/i exch def %i=0,3 %standard colours at the end /i10 index i get j729 sub 10 mul def /i81 81 i add def LUTL* i81 LUT i10 0 add get 100 div put LUTA* i81 LUT i10 1 add get 100 div put LUTB* i81 LUT i10 2 add get 100 div put LUTr* i81 LUT i10 3 add get 1000 div put LUTg* i81 LUT i10 4 add get 1000 div put LUTb* i81 LUT i10 5 add get 1000 div put C*ab i81 LUTA* i81 get dup mul LUTB* i81 get dup mul add 0.000001 add sqrt put L* i81 LUTL* i81 get put } for %i=0,3 /L*WN LUTL* 84 get LUTL* 83 get sub def 0 1 084 {/i exch def %i=0,084 LUTl* i LUTL* i get LUTL* 83 get sub L*WN 0.000001 add div put LUTc1* i C*ab i get C*ab 81 get 0.000001 add div put LUTc2* i C*ab i get C*ab 82 get 0.000001 add div put LUTt1* i LUTl* i get LUTc1* i get L* 81 get L* 83 get sub L*WN 0.000001 add div 0.5 sub mul sub put LUTt2* i LUTl* i get LUTc2* i get L* 82 get L* 83 get sub L*WN 0.000001 add div 0.5 sub mul sub put LUTr* i get 0 lt {LUTr* i 0 put} if LUTg* i get 0 lt {LUTg* i 0 put} if LUTb* i get 0 lt {LUTb* i 0 put} if LUTr* i get 1 gt {LUTr* i 1 put} if LUTg* i get 1 gt {LUTg* i 1 put} if LUTb* i get 1 gt {LUTb* i 1 put} if %maximum /max LUTr* i get def %rgb brilliantness LUTg* i get max gt {/max LUTg* i get def} if LUTb* i get max gt {/max LUTb* i get def} if %minimum /min LUTr* i get def %rgb whiteness LUTg* i get min lt {/min LUTg* i get def} if LUTb* i get min lt {/min LUTb* i get def} if LUTc*rgb i max min sub put %rgb chroma LUTt*rgb i min max min sub 0.5 mul add put %rgb triangle lightness } for %i=0,084 %********************************************************************** /j0 0 def /j1 0 def /j2 8 def /k 0 def /fakt 30 def /fakt1 15 def /fakt2 1500 def 0 1 8 {/j exch def %j=0,8 %lines /ja j0 j 9 mul add def c1*rgb j LUTc*rgb ja get put C*ab j LUTA* ja get dup mul LUTB* ja get dup mul add sqrt put /angleWO LUTB* ja get LUTA* ja get 0.0001 add atan def LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor xchartl 3 le {%xchart=3 C*ab j get fakt1 mul angleWO cos mul C*ab j get fakt1 mul angleWO sin mul 050 0 360 arc fill j j2 eq {%j=j2 0 0 0 setrgbcolor C*ab j get fakt1 mul angleWO cos mul C*ab j get fakt1 mul angleWO sin mul 065 0 360 arc stroke LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor /xadd0 [-100 -500 -500 -700 -200 000] def /yadd0 [ 100 -000 -200 -100 -200 100] def C*ab j get fakt1 mul fcolor2 mul angleWO cos mul xadd0 xtonj get add C*ab j get fakt1 mul fcolor2 mul angleWO sin mul yadd0 xtonj get add moveto cname6 xtonj get show icolor 1 eq {1 0 0 setrgbcolor 0 0 moveto C*ab j get fakt1 mul angleWO cos mul C*ab j get fakt1 mul angleWO sin mul lineto stroke } if } if %j=j2 } {%xchart>=7 c1*rgb j get fakt2 mul angleWO cos mul c1*rgb j get fakt2 mul angleWO sin mul 050 0 360 arc fill j j2 eq {%j=j2 0 0 0 setrgbcolor c1*rgb j get fakt2 mul angleWO cos mul c1*rgb j get fakt2 mul angleWO sin mul 065 0 360 arc stroke LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor /xadd0 [-100 -500 -500 -700 -200 000] def /yadd0 [ 100 -000 -200 -100 -200 100] def c1*rgb j get fakt2 mul fcolor2 mul angleWO cos mul xadd0 xtonj get add c1*rgb j get fakt2 mul fcolor2 mul angleWO sin mul yadd0 xtonj get add moveto cname6 xtonj get show icolor 1 eq {1 0 0 setrgbcolor %icolor=1 0 0 moveto c1*rgb j get fakt2 mul angleWO cos mul c1*rgb j get fakt2 mul angleWO sin mul lineto stroke } if %icolor=1 } if %j=j2 } ifelse %xchart=3,>=7 LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor j 1 ge {xchartl 3 eq {olvrgb 0 eq {C*ab j 1 sub get fakt1 mul angleWO cos mul C*ab j 1 sub get fakt1 mul angleWO sin mul moveto C*ab j get fakt1 mul angleWO cos mul C*ab j get fakt1 mul angleWO sin mul lineto stroke } if } {c1*rgb j 1 sub get fakt2 mul angleWO cos mul c1*rgb j 1 sub get fakt2 mul angleWO sin mul moveto c1*rgb j get fakt2 mul angleWO cos mul c1*rgb j get fakt2 mul angleWO sin mul lineto stroke } ifelse } if } for %j=0,8 %********************************************************************** 0 1 8 {/j exch def %j=0,8 %lines /ja j0 j add def c2*rgb j LUTc*rgb ja get put C*ab j LUTA* ja get dup mul LUTB* ja get dup mul add sqrt put /angleWO LUTB* ja get LUTA* ja get 0.0001 add atan def LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor xchartl 3 le {%xchart=3 C*ab j get fakt1 mul angleWO cos mul C*ab j get fakt1 mul angleWO sin mul 050 0 360 arc fill j j2 eq {%j=j2 0 0 0 setrgbcolor C*ab j get fakt1 mul angleWO cos mul C*ab j get fakt1 mul angleWO sin mul 065 0 360 arc stroke LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor /xadd0 [-000 -100 -500 -700 -200 000] def /yadd0 [ 100 -000 000 -100 -200 100] def C*ab j get fakt1 mul fcolor2 mul angleWO cos mul xadd0 xtonj 3 add get add C*ab j get fakt1 mul fcolor2 mul angleWO sin mul yadd0 xtonj 3 add get add moveto cname6 xtonj 3 add get show icolor 1 eq {1 0 0 setrgbcolor 0 0 moveto C*ab j get fakt1 mul angleWO cos mul C*ab j get fakt1 mul angleWO sin mul lineto stroke } if } if %j=j2 } {%xchart=7 c2*rgb j get fakt2 mul angleWO cos mul c2*rgb j get fakt2 mul angleWO sin mul 050 0 360 arc fill j j2 eq {%j=j2 0 0 0 setrgbcolor c2*rgb j get fakt2 mul angleWO cos mul c2*rgb j get fakt2 mul angleWO sin mul 065 0 360 arc stroke LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor /xadd0 [-000 -100 -500 -700 -200 000] def /yadd0 [ 100 -000 000 -100 -200 100] def c2*rgb j get fakt2 mul fcolor2 mul angleWO cos mul xadd0 xtonj 3 add get add c2*rgb j get fakt2 mul fcolor2 mul angleWO sin mul yadd0 xtonj 3 add get add moveto cname6 xtonj 3 add get show icolor 1 eq {1 0 0 setrgbcolor %icolor=1 0 0 moveto c2*rgb j get fakt2 mul angleWO cos mul c2*rgb j get fakt2 mul angleWO sin mul lineto stroke } if %icolor=1 } if %j=j2 } ifelse %xchart=3, %xchart>=7 LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor j 1 ge {xchartl 3 le {C*ab j 1 sub get fakt1 mul angleWO cos mul C*ab j 1 sub get fakt1 mul angleWO sin mul moveto C*ab j get fakt1 mul angleWO cos mul C*ab j get fakt1 mul angleWO sin mul lineto stroke } {c2*rgb j 1 sub get fakt2 mul angleWO cos mul c2*rgb j 1 sub get fakt2 mul angleWO sin mul moveto c2*rgb j get fakt2 mul angleWO cos mul c2*rgb j get fakt2 mul angleWO sin mul lineto stroke } ifelse } if } for %j=00,08 %xtonj=0 %series O-C %xtonj=1 %series Y-V %xtonj=2 %series L-M } for %xton=0,2 %END for all xchartl=3,7,11,15 %********************************************************************** xchartl 3 eq {%xchartl=3 only %BEG Hexagon % 801 737 809 729 882 818 890 810 963 899 971 891 % j01 b09 j09 b01 j10 b18 j18 b10 j19 b27 j27 b19 % O C N1 W1 Y V N2 W2 L M N3 W3 /fakt1 15 def /indexX 7 array def /indexX [801 882 963 737 818 899 801] def /LUTL*X 7 array def /LUTA*X 7 array def /LUTB*X 7 array def 0 setgray /fcolor1 1.10 def /fcolor2 1.20 def 250 /TimesBI-ISOL1 FS /j729 0 def 0 1 6 {/iX exch def %iX=0,6 %hexagon standard colours at the end /i10 indexX iX get j729 sub 10 mul def LUTL*X iX LUT i10 0 add get 100 div put LUTA*X iX LUT i10 1 add get 100 div put LUTB*X iX LUT i10 2 add get 100 div put LUTr* iX LUT i10 3 add get 1000 div put LUTg* iX LUT i10 4 add get 1000 div put LUTb* iX LUT i10 5 add get 1000 div put iX 5 le {0 0 0 setrgbcolor 0 0 moveto LUTA*X iX get fakt1 mul fcolor1 mul cf1 div LUTB*X iX get fakt1 mul fcolor1 mul cf1 div lineto stroke /xadd0 [-000 -100 -500 -700 -200 000] def /yadd0 [ 100 -000 000 -100 -200 100] def LUTA*X iX get fakt1 mul fcolor2 mul cf1 div xadd0 iX get add LUTB*X iX get fakt1 mul fcolor2 mul cf1 div yadd0 iX get add moveto % xcolor 2 ge {%xcolor>=2 % 0 0 0 setrgbcolor % cname_olv00 iX get show % } if %xcolor>=2 } if iX 5 le icolor 1 eq and {xcolor 2 ge {0 0 0}{1 0 0} ifelse setrgbcolor 0 0 moveto LUTA*X iX get fakt1 mul LUTB*X iX get fakt1 mul lineto stroke } if iX 1 ge {0 0 0 setrgbcolor LUTA*X iX 1 sub get fakt1 mul cf1 div LUTB*X iX 1 sub get fakt1 mul cf1 div moveto LUTA*X iX get fakt1 mul cf1 div LUTB*X iX get fakt1 mul cf1 div lineto stroke } if iX 1 ge icolor 1 eq and {1 0 0 setrgbcolor LUTA*X iX 1 sub get fakt1 mul LUTB*X iX 1 sub get fakt1 mul moveto LUTA*X iX get fakt1 mul LUTB*X iX get fakt1 mul lineto stroke } if } for %iX=0,6 %hexagon } if %xchartl=3 %********************************************************************** xchartl 7 ge {%xchart>=7 %circle icolor 0 eq {0 0 0 setrgbcolor} {1 0 0 setrgbcolor} ifelse 0 1500 moveto newpath 0 0 1500 0 360 arc stroke %BEG Hexagon % 801 737 809 729 882 818 890 810 963 899 971 891 % j01 b09 j09 b01 j10 b18 j18 b10 j19 b27 j27 b19 % O C N1 W1 Y V N2 W2 L M N3 W3 /fakt1 15 def /indexX 7 array def /indexX [801 882 963 737 818 899 801] def /LUTL*X 7 array def /LUTA*X 7 array def /LUTB*X 7 array def 0 setgray /fcolor1 1.10 def /fcolor2 1.20 def /c1000 1 fakt2 mul def 250 /TimesBI-ISOL1 FS /j729 0 def 0 1 6 {/iX exch def %iX=0,5 %hexagon standard colours at the end /i10 indexX iX get j729 sub 10 mul def LUTL*X iX LUT i10 0 add get 100 div put LUTA*X iX LUT i10 1 add get 100 div put LUTB*X iX LUT i10 2 add get 100 div put LUTr* iX LUT i10 3 add get 1000 div put LUTg* iX LUT i10 4 add get 1000 div put LUTb* iX LUT i10 5 add get 1000 div put /angleOLV LUTB*X iX get LUTA*X iX get 0.0001 add atan def iX 5 le {0 0 0 setrgbcolor 0 0 moveto c1000 angleOLV cos mul fcolor2 mul c1000 angleOLV sin mul fcolor2 mul lineto stroke /xadd0 [-200 -300 -300 -500 -400 -000] def /yadd0 [ 100 -000 000 -100 -200 100] def c1000 angleOLV cos mul fcolor2 mul xadd0 iX get add c1000 angleOLV sin mul fcolor2 mul yadd0 iX get add moveto % xcolor 2 ge {%xcolor>=2 % 0 0 0 setrgbcolor % cname_olv00 iX get show % } if %xcolor>=2 } if iX 5 le icolor 1 eq and {xcolor 2 ge {0 0 0}{1 0 0} ifelse setrgbcolor 0 0 moveto c1000 angleOLV cos mul fcolor2 mul c1000 angleOLV sin mul fcolor2 mul lineto stroke } if } for %iX=0,6 %hexagon } if %xchartl>=7 %********************************************************************** 0 1500 neg translate } ifelse %xchart #3,7,11,15 or =3,7,11,15 grestore 2600 neg 0300 neg translate %special space for 'xm03'PROZ0.COM 2x before/after xchartl % xchartl 0 eq { 100 neg 13000 neg translate} if % xchartl 1 eq { 6100 neg 13000 neg translate} if % xchartl 2 eq { 100 neg 08750 neg translate} if % xchartl 3 eq { 6100 neg 08750 neg translate} if % xchartl 4 eq { 100 neg 4500 neg translate} if % xchartl 5 eq { 6100 neg 4500 neg translate} if % xchartl 6 eq { 100 neg 0250 neg translate} if % xchartl 7 eq { 6100 neg 0250 neg translate} if % xchartl 8 eq {13500 neg 13000 neg translate} if % xchartl 9 eq {19500 neg 13000 neg translate} if % xchartl 10 eq {13500 neg 08750 neg translate} if % xchartl 11 eq {19500 neg 08750 neg translate} if % xchartl 12 eq {13500 neg 4500 neg translate} if % xchartl 13 eq {19500 neg 4500 neg translate} if % xchartl 14 eq {13500 neg 0250 neg translate} if % xchartl 15 eq {19500 neg 0250 neg translate} if %} for % xchartl=0,15 showpage %} for %xchart=0,15 grestore } for %xcolor=0,0 %%Trailer