%!PS-Adobe-3.0 EPSF-3.0 http://130.149.60.45/~farbmetrik/TE01/TE01L00XX.PS 20130201 %%BoundingBox: 14 08 828 584 /pdfmark where {pop} {userdict /pdfmark /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: www.ps.bam.de/TE01/TE01.HTM) /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) /Creator (klaus.richter@mac.com) /CreationDate (D:2013020112000) /ModDate (D:20130210112000) /DOCINFO pdfmark [ /View [ /Fit ] /DOCVIEW pdfmark /sfgray {setgray} bind def %Early Frame File (f) definition /sfrgbcolor {setrgbcolor} bind def /sfcmykcolor {setcmykcolor} bind def %line 20****************************************************** %BEG TE01/OUTLIN10.PS Emty 20120301 %END TE01/OUTLIN10.PS Emty 20120301 %**************************************************** %BEG 'TE01'OUTLIN1X.PS Other procedures for sRGB output linearization %**************************************************** %BEG COLDATA_SRGB_00.PS %BEG TRANSFER_EARLY_F.TXT **********************************2012-02-01 %Early definition of FF_LM_setgray_F0 identical to former setgray /FF_LM_setgray_F0 {setgray} bind def /FF_LM_setrgbcolor_F0 {setrgbcolor} bind def /FF_LM_setcmykcolor_F0 {setcmykcolor} bind def /FF_LM_transfer_F0 {settransfer} bind def /FF_LM_colortransfer_F0 {setcolortransfer} bind def %END TRANSFER_EARLY_F.TXT **********************************2012-02-01 %***************************************************************************** /setcolortrans_F {%BEG procedure setcolortrans_F %1MR-Transform of setgray and setcmykcolor to FF_LM_de_setrgbcolor_F %Three procedures and use of the procedure FF_LM_de_setrgbcolor_F of main FF /setgray {%BEG procedure setgray_F dup dup FF_LM_de_setrgbcolor_F %STOPs } def %END procedure setgray_F /setcmykcolor {%BEG procedure setcmykcolor_F /FF_LM_k exch def /FF_LM_y exch def /FF_LM_m exch def /FF_LM_c exch def FF_LM_k 0 eq {%FF_LM_k=0 1 FF_LM_c sub 1 FF_LM_m sub 1 FF_LM_y sub FF_LM_de_setrgbcolor_F }%FF_LM_k=0 {%FF_LM_k#0 FF_LM_c 0 eq FF_LM_m 0 eq and FF_LM_y 0 eq and {%FF_LM_k#0 and c=m=y=0 achromatic 1 FF_LM_k sub dup dup FF_LM_de_setrgbcolor_F }%FF_LM_k#0 and c=m=y=0 achromatic {%FF_LM_k#0 and c or m or y#0 chromatic 1 FF_LM_c sub 1 FF_LM_k sub mul 1 FF_LM_m sub 1 FF_LM_k sub mul 1 FF_LM_y sub 1 FF_LM_k sub mul FF_LM_de_setrgbcolor_F } ifelse %FF_LM_k#0 and c or m or y#0 chromatic } ifelse %FF_LM_k#0 } def %END procedure setcmykcolor_F /setrgbcolor {%BEG procedure setrgbcolor_F /FF_LM_b exch def /FF_LM_g exch def /FF_LM_r exch def FF_LM_r FF_LM_g FF_LM_b FF_LM_de_setrgbcolor_F %STOPr } def %BEG procedure setrgbcolor_F /settransfer {FF_LM_transfer_F} def /setcolortransfer {FF_LM_colortransfer_F} def %******************************************************************* /FF_LM_de_setrgbcolor_F { %BEG FF_LM_de_setrgbcolor_F %assumes input of rgb, which is called rgb_dyF %calculation of intended rgb*dyF, LABCh*dyF %Lab2RGBinterpolation for colorm=1 %calculation of inverse rgb'*dyF, LABCh'*dyF, which produces rgb*dyF, LABCh*dyF %requires /hab*dy362Mi 362 array def %(y=s,d,e) %requires /rgb*dy362Mi 362 array def %(y=s,d,e) %requires /LAB*dyx362Mi 362 array def %(y=s,d,e, x=LabCh) /b_dyF exch def /g_dyF exch def /r_dyF exch def %calculation of i_dyF, c_dyF, and t_dyF /maxd r_dyF def g_dyF maxd gt {/maxd g_dyF def} if b_dyF maxd gt {/maxd b_dyF def} if /mind r_dyF def g_dyF mind lt {/mind g_dyF def} if b_dyF mind lt {/mind b_dyF def} if /i_dyF maxd def /c_dyF maxd mind sub def /t_dyF i_dyF c_dyF 0.5 mul sub def /hsiF r_dyF 030 sin mul g_dyF 150 sin mul add b_dyF 270 sin mul add %y_e r_dyF 030 cos mul g_dyF 150 cos mul add %x_e 0.0001 add atan 0.5 add cvi def %range 30 ... 390 %perhaps change %to decide hab*dyF/dsF/deF ! hsiF hab*ds362Mi 0 get sub 0 le {/hsiF hsiF 360 add def} if /hsiFm30 hsiF 30 sub def %range 00 ... 360 %test grey r_dyF g_dyF sub abs 0.002 le g_dyF b_dyF sub abs 0.002 le and {%grey, not grey /r*dyM 1 def /g*dyM 1 def /b*dyM 1 def /hsiM r*dyM 030 sin mul g*dyM 150 sin mul add b*dyM 270 sin mul add %y_d r*dyM 030 cos mul g*dyM 150 cos mul add %x_d 0.0001 add atan def hsiM hab*ds362Mi 0 get sub 0 le {/hsiM hsiM 360 add def} if /hsiMm30 hsiM 30 sub def /LAB*LdyM L*Wioa def /LAB*adyM 0 def /LAB*bdyM 0 def /LAB*LdyF L*Nioa r_dyF L*Wioa L*Nioa sub mul add def /LAB*adyF 0 def /LAB*bdyF 0 def /r*dyF r_dyF def /g*dyF g_dyF def /b*dyF b_dyF def /r'*dyF r_dyF def /g'*dyF g_dyF def /b'*dyF b_dyF def }%grey {%color hsiFm30 0 lt {/hsiFm30 0 def} if %for correction to be deleted! hsiFm30 360 gt {/hsiFm30 360 def} if %calculation of intended rgb*dyM, LAB*LabdyM deintp 0 eq {%deintp=0 /r*dyM r*dd362Mi hsiFm30 get def /g*dyM g*dd362Mi hsiFm30 get def /b*dyM b*dd362Mi hsiFm30 get def /LAB*LdyM LAB*Ldd362Mi hsiFm30 get def /LAB*adyM LAB*add362Mi hsiFm30 get def /LAB*bdyM LAB*bdd362Mi hsiFm30 get def } if %deintp=0 deintp 1 eq {%deintp=1 /r*dyM r*de362Mi hsiFm30 get def /g*dyM g*de362Mi hsiFm30 get def /b*dyM b*de362Mi hsiFm30 get def /LAB*LdyM LAB*Lde362Mi hsiFm30 get def /LAB*adyM LAB*ade362Mi hsiFm30 get def /LAB*bdyM LAB*bde362Mi hsiFm30 get def } if %deintp=1 %calculation of intended rgb*dyF, LAB*LabdyF c_dyF 1 eq {%c_dy=1,#1 /r*dyF r*dyM def /g*dyF g*dyM def /b*dyF b*dyM def /LAB*LdyF LAB*LdyM def /LAB*adyF LAB*adyM def /LAB*bdyF LAB*bdyM def }%c_dyF=1 {%c_dyF#1 /t00 1.0 c_dyF 0.5 mul sub def /t0x 0.5 t_dyF 0.5 sub 0.5 mul t00 0.5 sub div add def /r*dyF t0x r*dyM t0x sub c_dyF mul add def /g*dyF t0x g*dyM t0x sub c_dyF mul add def /b*dyF t0x b*dyM t0x sub c_dyF mul add def /L*Xioa L*Nioa t0x L*Wioa L*Nioa sub mul add def /LAB*LdyF L*Xioa LAB*LdyM L*Xioa sub c_dyF mul add def /LAB*adyF 0 LAB*adyM 0 sub c_dyF mul add def /LAB*bdyF 0 LAB*bdyM 0 sub c_dyF mul add def } ifelse %c_dyF=1,#1 } ifelse %grey or color %only for control, not used: calculation of hsiM /hsiM r*dyM 030 sin mul g*dyM 150 sin mul add b*dyM 270 sin mul add %y_d r*dyM 030 cos mul g*dyM 150 cos mul add %x_d 0.0001 add atan def hsiM hab*ds362Mi 0 get sub 0 le {/hsiM hsiM 360 add def} if /hsiMm30 hsiM 30 sub def %only for control, not used: calculation of ict*dyM and ict*dyF %calculation of i*dyM, c*dyM, and t*dyM /maxd r*dyM def g*dyM maxd gt {/maxd g*dyM def} if b*dyM maxd gt {/maxd b*dyM def} if /mind r*dyM def g*dyM mind lt {/mind g*dyM def} if b*dyM mind lt {/mind b*dyM def} if /i*dyM maxd def /c*dyM maxd mind sub def /t*dyM i*dyM c*dyM 0.5 mul sub def %%only for control, not used: calculation of i*dyF, c*dyF, and t*dyF /maxd r*dyF def g*dyF maxd gt {/maxd g*dyF def} if b*dyF maxd gt {/maxd b*dyF def} if /mind r*dyF def g*dyF mind lt {/mind g*dyF def} if b*dyF mind lt {/mind b*dyF def} if /i*dyF maxd def /c*dyF maxd mind sub def /t*dyF i*dyF c*dyF 0.5 mul sub def colorm 0 eq {%colorm=0 r*dyF g*dyF b*dyF }%colorm=0 {%colorm=1 LAB*LdyF LAB*adyF LAB*bdyF Lab2RGBinterpolation /b'*dyF exch def /g'*dyF exch def /r'*dyF exch def r'*dyF g'*dyF b'*dyF } ifelse %colorm=1 FF_LM_setrgbcolor_F } bind def %END FF_LM_de_setrgbcolor_F /FF_LM_xchart_gamma_F {/xchart where {pop /xchartN xchart 8 idiv def /xchartP xchart xchart 8 idiv 8 mul sub def} {/xchartN 2.0 def %default /xchartP 0.5 def} ifelse /gamma_F 2.4 xchartP 0.18 mul sub 2.4 div 1 2.4 xchartN 0.18 mul sub 2.4 div div mul def gamma_F exp } def /FF_LM_setrgbcolor_F {%FF_LM_setrgbcolor_F /FF_LM_b0L exch def /FF_LM_g0L exch def /FF_LM_r0L exch def FF_LM_r0L 0 le {/FF_LM_r0L 0.0001 def} if FF_LM_g0L 0 le {/FF_LM_g0L 0.0001 def} if FF_LM_b0L 0 le {/FF_LM_b0L 0.0001 def} if /FF_LM_r1F FF_LM_r0L FF_LM_xchart_gamma_F def /FF_LM_g1F FF_LM_g0L FF_LM_xchart_gamma_F def /FF_LM_b1F FF_LM_b0L FF_LM_xchart_gamma_F def FF_LM_r1F FF_LM_g1F FF_LM_b1F FF_LM_setrgbcolor_F0 } def %FF_LM_setrgbcolor_F /FF_LM_transfer_F {{FF_LM_xchart_gamma_F} FF_LM_transfer_F0} def /FF_LM_colortransfer_F {{FF_LM_xchart_gamma_F} {FF_LM_xchart_gamma_F} {FF_LM_xchart_gamma_F} FF_LM_colortransfer_F0} def } def %END procedure setcolortrans_F %******************************************************************* /Colordata_sRGB_F {%BEG procedure Colordata_sRGB_F /Xrx089 729 array def /Yrx089 729 array def /Zrx089 729 array def /Xrx100 729 array def /Yrx100 729 array def /Zrx100 729 array def /R0 729 array def /G0 729 array def /B0 729 array def %/RGB0_to_XYZj_F { %BEG procedure RGB0_to_XYZj_F %transfers standard sRGB data (IEC 61966-2-1) to XYZ data for 9x9x9=729 colours %normalized XYZ data with Y=88.59 for display white, compare ISO 9241-306:2008. %requires /(XYZ)rx089 729 array def % /(XYZ)rx100 729 array def %requires in addition /RGB0_F 1080 array def %/Xrx089 729 array def %/Yrx089 729 array def %/Zrx089 729 array def %/Xrx100 729 array def %/Yrx100 729 array def %/Zrx100 729 array def %/R0 729 array def %/G0 729 array def %/B0 729 array def %row no.1 and 2: 9xrgb /imax 08 def /jmax 08 def /kmax 08 def 0 1 kmax {/k exch def %beg k=0,08 0 1 jmax {/j exch def %beg j=0,jmax 0 1 imax {/i exch def %beg i=0,imax /n i j 9 mul add k 81 mul add def R0 n k kmax div 1000 mul put G0 n j jmax div 1000 mul put B0 n i imax div 1000 mul put } for %end i=0,jmax } for %end j=0,jmax } for %end k=0,kmax /IM0 729 def /IM1 IM0 1 sub def 0 1 IM1 {/i exch def %i=0,IM1 R0 i get 0.04045 le %equations of IEC 61966-2-1:2003 {/RsRGB R0 i get 12.92 div def} {/RsRGB R0 i get 0.001 mul 0.055 add 1.055 div 2.4 exp def} ifelse G0 i get 0.04045 le {/GsRGB G0 i get 12.92 div def} {/GsRGB G0 i get 0.001 mul 0.055 add 1.055 div 2.4 exp def} ifelse B0 i get 0.04045 le {/BsRGB B0 i get 12.92 div def} {/BsRGB B0 i get 0.001 mul 0.055 add 1.055 div 2.4 exp def} ifelse Xrx100 i 0.4124 RsRGB mul 0.3576 GsRGB mul add 0.1805 BsRGB mul add 100 mul put Yrx100 i 0.2126 RsRGB mul 0.7152 GsRGB mul add 0.0722 BsRGB mul add 100 mul put Zrx100 i 0.0193 RsRGB mul 0.1192 GsRGB mul add 0.9505 BsRGB mul add 100 mul put } for %i=0,IM1 0 1 IM1 {/i exch def %i=0,IM1 Xrx089 i Xrx100 i get 0.8859 mul put Yrx089 i Yrx100 i get 0.8859 mul put Zrx089 i Zrx100 i get 0.8859 mul put } for %i=0,IM1 /iN 0 def /iW 728 def /XLN100 Xrx100 iN get def /YLN100 Yrx100 iN get def /ZLN100 Zrx100 iN get def /XLW100 Xrx100 iW get def /YLW100 Yrx100 iW get def /ZLW100 Zrx100 iW get def /XLN089 Xrx089 iN get def /YLN089 Yrx089 iN get def /ZLN089 Zrx089 iN get def /XLW089 Xrx089 iW get def /YLW089 Yrx089 iW get def /ZLW089 Zrx089 iW get def % achromatic (D65) colours /XLWD65100 95.04 def /YLWD65100 100.00 def /ZLWD65100 108.88 def /XLWD65089 95.04 0.8859 mul def /YLWD65089 100.00 0.8859 mul def /ZLWD65089 108.88 0.8859 mul def /XLN001 XLWD65100 100 div def /YLN001 YLWD65100 100 div def /ZLN001 ZLWD65100 100 div def %} bind def %END procedure RGB0_to_XYZj_F %/xchartj_XYZj_FAB729a_F { %BEG Procedure xchartj_FAB729a_F %transfer from XYZj data to LAB729a CIELAB data for 9x9x9=729 colours %requires 0<= xchartj <=10 (11 luminance reflections) %requires /(XYZ)x089 3240 array def (x=rc,ra,na,la) %requires /(Lab)x089 3240 array def (x=rc,ra,na,la) %requires /x729 729 array def (x=X,Y,Z) %not adapted %requires /x729 729 array def (x=L,a,b) %not adapted %requires /x729a 729 array def (x=L,a,b) %adapted /Lrc089 729 array def /arc089 729 array def /brc089 729 array def /Xrc089 729 array def /Yrc089 729 array def /Zrc089 729 array def /Lra089 729 array def /ara089 729 array def /bra089 729 array def /Xra089 729 array def /Yra089 729 array def /Zra089 729 array def /Lna089 729 array def /ana089 729 array def /bna089 729 array def /Xna089 729 array def /Yna089 729 array def /Zna089 729 array def /Lla089 729 array def /ala089 729 array def /bla089 729 array def /Xla089 729 array def /Yla089 729 array def /Zla089 729 array def /Xj 729 array def /Yj 729 array def /Zj 729 array def /LAB*Lj 729 array def %not adapted /LAB*aj 729 array def /LAB*bj 729 array def /LAB*Lja 729 array def %adapted /LAB*aja 729 array def /LAB*bja 729 array def /DecodeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind def /XD65W 95.04 def /YD65W 100.00 def /ZD65W 108.88 def /XD50W 96.42 def /YD50W 100.00 def /ZD50W 82.51 def /DAKTE [(D65) (D50)] def /ilf 8 array def /ilf [0.00 0.25 0.50 1.00 2.00 4.00 8.00 16.00] def /Lrefl 11 array def /Lrefl [(0%) (0%) (0%) (0%) (0,6%) (1,2%) (2,5%) (5%) (10%) (20%) (40%)] def xchartj 2 le {/il 0 def} {/il xchartj 3 sub def} ifelse %Reference black and factors /YrN 2.52 def /Xtref089 YrN ilf il get mul XLN001 mul def /Ytref089 YrN ilf il get mul def /Ztref089 YrN ilf il get mul ZLN001 mul def /YNil Ytref089 def /YNil001 YNil 100 div def YNil001 6 29 div 3 exp ge {/FYYn YNil001 0.3333 exp def} {/FYYn 841 108 div YNil001 mul 4 29 div add def} ifelse /L*Nil 116 FYYn mul 16 sub def /IM1 728 def 0 1 IM1 {/i exch def %i=0,IM1 Xrc089 i Xrx089 i get put Yrc089 i Yrx089 i get put Zrc089 i Zrx089 i get put /XQ Xrc089 i get XLWD65100 div def /YQ Yrc089 i get YLWD65100 div def /ZQ Zrc089 i get ZLWD65100 div def XQ 0 lt {/XQ 0.00000001 def} if YQ 0 lt {/YQ 0.00000001 def} if ZQ 0 lt {/ZQ 0.00000001 def} if Lrc089 i YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse put arc089 i XQ 0.008856 lt {7.787 XQ mul 16 116 div add} {XQ 0.33333333 exp} ifelse YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse sub 500 mul put brc089 i YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add} {ZQ 0.33333333 exp} ifelse sub 200 mul put } for %i=0,IM1 /L*N Lrc089 0 get def /A*N arc089 0 get def /B*N brc089 0 get def /L*W Lrc089 728 get def /A*W arc089 728 get def /B*W brc089 728 get def 0 1 IM1 {/i exch def %i=0,IM1 Lra089 i Lrc089 i get put /l*CIE Lrc089 i get L*N sub L*W L*N sub div def %system rel. lightn. /a*s A*W A*N sub l*CIE mul def /b*s B*W B*N sub l*CIE mul def ara089 i arc089 i get A*N sub a*s sub put bra089 i brc089 i get B*N sub b*s sub put } for %i=0,IM1 0 1 IM1 {/i exch def %i=0,IM1 /X* {Lra089 i get 16 add 116 div ara089 i get 500 div add} bind def /Y* {Lra089 i get 16 add 116 div} bind def /Z* {Lra089 i get 16 add 116 div bra089 i get 200 div sub} bind def Xra089 i X* DecodeXYZ* XLWD65100 mul put Yra089 i Y* DecodeXYZ* YLWD65100 mul put Zra089 i Z* DecodeXYZ* ZLWD65100 mul put } for %i=0,IM1 xchartj 2 ge {%xchartj>=2 %for white X data /Xwref089 Xra089 728 get def /Ywref089 Yra089 728 get def /Zwref089 Zra089 728 get def %for black X data /YrN Yra089 0 get def /Xnref089 YrN XLN001 mul def /Ynref089 YrN def /Znref089 YrN ZLN001 mul def /IM1 728 def 0 1 IM1 {/i exch def %i=1,IM1 Xna089 i Xra089 i get Xnref089 sub Xwref089 Xwref089 Xnref089 sub div mul put Yna089 i Yra089 i get Ynref089 sub Ywref089 Ywref089 Ynref089 sub div mul put Zna089 i Zra089 i get Znref089 sub Zwref089 Zwref089 Znref089 sub div mul put } for %i=1,IM1 0 1 IM1 {/i exch def %i=1,IM1 /XQ Xna089 i get XLWD65100 div def /YQ Yna089 i get YLWD65100 div def /ZQ Zna089 i get ZLWD65100 div def XQ 0 lt {/XQ 0.00000001 def} if YQ 0 lt {/YQ 0.00000001 def} if ZQ 0 lt {/ZQ 0.00000001 def} if Lna089 i YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse put ana089 i XQ 0.008856 lt {7.787 XQ mul 16 116 div add} {XQ 0.33333333 exp} ifelse YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse sub 500 mul put bna089 i YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add} {ZQ 0.33333333 exp} ifelse sub 200 mul put } for %i=1,IM1 } if %xchart>=2 xchartj 3 ge {%xchart>=3 %for white X data /Xwref089 Xra089 728 get def /Ywref089 Yra089 728 get def /Zwref089 Zra089 728 get def /kn Ywref089 Ywref089 Ytref089 sub div def 0 1 IM1 {/i exch def %i=1,IM1 Xla089 i Xna089 i get kn div Xtref089 add put Yla089 i Yna089 i get kn div Ytref089 add put Zla089 i Zna089 i get kn div Ztref089 add put } for %i=1,IM1 0 1 IM1 {/i exch def %i=1,IM1 /XQ Xla089 i get XLWD65100 div def /YQ Yla089 i get YLWD65100 div def /ZQ Zla089 i get ZLWD65100 div def XQ 0 lt {/XQ 0.00000001 def} if YQ 0 lt {/YQ 0.00000001 def} if ZQ 0 lt {/ZQ 0.00000001 def} if Lla089 i YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse put ala089 i XQ 0.008856 lt {7.787 XQ mul 16 116 div add} {XQ 0.33333333 exp} ifelse YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse sub 500 mul put bla089 i YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add} {ZQ 0.33333333 exp} ifelse sub 200 mul put } for %i=1,IM1 } if %xchart>=3 xchartj 0 eq {%xchartj=0 (1x) 0 1 IM1 {/i exch def %i=0,IM1 LAB*Lj i Lrc089 i get put LAB*aj i arc089 i get put LAB*bj i brc089 i get put Xj i Xrc089 i get put Yj i Yrc089 i get put Zj i Zrc089 i get put } for %i=0,IM1 } if %xchartj=0 (1x) xchartj 1 eq {%xchartj=1 (1x) 0 1 IM1 {/i exch def %i=0,IM1 LAB*Lj i Lra089 i get put LAB*aj i ara089 i get put LAB*bj i bra089 i get put Xj i Xra089 i get put Yj i Yra089 i get put Zj i Zra089 i get put } for %i=0,IM1 } if %xchartj=1 (1x) xchartj 2 eq {%xchartj=2 (1x) 0 1 IM1 {/i exch def %i=0,IM1 LAB*Lj i Lna089 i get put LAB*aj i ana089 i get put LAB*bj i bna089 i get put Xj i Xna089 i get put Yj i Yna089 i get put Zj i Zna089 i get put } for %i=0,IM1 } if %xchartj=2 (1x) xchartj 3 ge {%xchartj=3,4,5,6,7,8,9,10 (8x) 0 1 728 {/i exch def %i=0,IM1 LAB*Lj i Lla089 i get put LAB*aj i ala089 i get put LAB*bj i bla089 i get put Xj i Xla089 i get put Yj i Yla089 i get put Zj i Zla089 i get put } for %i=0,IM1 } if %xchartj=3,4,5,6,7,8,9,10 (8x) %Adaptation /L*Nio LAB*Lj 000 get def /A*Nio LAB*aj 000 get def /B*Nio LAB*bj 000 get def /L*Wio LAB*Lj 728 get def /A*Wio LAB*aj 728 get def /B*Wio LAB*bj 728 get def /A*Dio A*Wio A*Nio sub def /B*Dio B*Wio B*Nio sub def 0 1 728 {/j exch def %j=0,728 LAB*Lja j LAB*Lj j get put /l*CIE LAB*Lj j 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 LAB*aja j LAB*aj j get A*Nio sub a*s sub put LAB*bja j LAB*bj j get B*Nio sub b*s sub put } for %j=0,728 /L*Nioa LAB*Lja 0 get def /A*Nioa LAB*aja 0 get def /B*Nioa LAB*bja 0 get def /L*Wioa LAB*Lja 728 get def /A*Wioa LAB*aja 728 get def /B*Wioa LAB*bja 728 get def /nR 9 def %lut size /nG 9 def /nB 9 def /nges nR nG nB mul mul def /lut 2187 array def %729x3=2187 (only 9x9x9 used) 0 1 728 {/i exch def %i=0,728 /i3 i 3 mul def lut i3 LAB*Lja i get put lut i3 1 add LAB*aja i get put lut i3 2 add LAB*bja i get put } for %i=0,729 %} bind def %END xchartj_XYZj_FAB729a_F } bind def %END procedure Colordata_sRGB_F %***************************************************************************** %BEG Procedure PROC_SPEC_IOF Colour special for NP-file 20120401 %***************************************************************************** %different procedures: % proc_LAB729a_to_LAB*LabCh64M and proc_LAB*LabCh64M_to_tab362_dy %*********************************************************** /proc_LAB729a_to_LAB*LabCh64M { %BEG Procedure proc_LAB729a_to_LAB*LabCh64M %transfer from proc_LAB729a_to_LAB*LabCh64M, %9x9x9=729 steps used for LAB729a %requires /LAB*LabCh64M 64 array def %requires in addition /LAB729a 729 array def /LAB*Ldd64M 64 array def /LAB*add64M 64 array def /LAB*bdd64M 64 array def /LAB*Cdd64M 64 array def /LAB*hdd64M 64 array def /hab*dd64M 64 array def /M1jx 49 array def 0 1 5 {/xtonj exch def %xtonj=0,5 0 1 7 {/j exch def %j=0,7 /ja xtonj 8 mul j add def xtonj 0 eq {/jx 648 j 09 mul add def} if %see O00Y-O83Y, -0 xtonj 1 eq {/jx 720 j 81 mul sub def} if %see Y00L-Y83L, -81 xtonj 2 eq {/jx 072 j add def} if %see L00C-L83C, +01 xtonj 3 eq {/jx 080 j 09 mul sub def} if %see C00V-C83V, -09 xtonj 4 eq {/jx 008 j 81 mul add def} if %see V00M-V83M, -81 xtonj 5 eq {/jx 656 j sub def} if %see M00O-M83O, +01 LAB*Ldd64M ja LAB*Lja jx get put LAB*add64M ja LAB*aja jx get put LAB*bdd64M ja LAB*bja jx get put LAB*Cdd64M ja LAB*add64M ja get dup mul LAB*bdd64M ja get dup mul add sqrt put LAB*hdd64M ja LAB*bdd64M ja get LAB*add64M ja get 0.0001 add atan put xtonj 5 eq LAB*hdd64M ja get 90 le and {LAB*hdd64M ja LAB*hdd64M ja get 360 add put} if M1jx ja jx put } for %j=0,7 } for %xtonj=0,5 M1jx 48 M1jx 0 get put 0 1 15 {/i exch def %i=0,15 LAB*Ldd64M 48 i add LAB*Ldd64M i get put LAB*add64M 48 i add LAB*add64M i get put LAB*bdd64M 48 i add LAB*bdd64M i get put LAB*Cdd64M 48 i add LAB*Cdd64M i get put LAB*hdd64M 48 i add LAB*hdd64M i get 360 add put } for %i=1,15 0 1 63 {/i exch def %i=0,63 hab*dd64M i LAB*hdd64M i get put } for %i=0,63 %data test according to increasing hue angle and appropriate correction /xtesthuea -1 def /xtesthuei 64 array def 0 1 48 {/i exch def %i=0,49 hab*dd64M i get hab*dd64M i 1 add get gt {/xtesthuea xtesthuea 1 add def xtesthuei xtesthuea i put hab*dd64M i 1 add hab*dd64M i get put LAB*Ldd64M i 1 add LAB*Ldd64M i get put LAB*add64M i 1 add LAB*add64M i get put LAB*bdd64M i 1 add LAB*bdd64M i get put LAB*Cdd64M i 1 add LAB*Cdd64M i get put LAB*hdd64M i 1 add LAB*hdd64M i get put } if } for %i=0,49 } bind def %END proc_LAB729a_to_LAB*LabCh64M %*********************************************************** /proc_LAB*LabCh64M_to_tab362_dy { %BEG procedure proc_LAB*LabCh64M_to_tab362_dy /LAB*e 40 array def %8x5=40 LabCh* /LAB*e [39.92 58.74 27.99 0.0 0.0 %0 00_04 R CIE No.09 elementary in LAB 81.26 -2.89 71.56 0.0 0.0 %1 05_09 J CIE No.10 52.23 -42.42 13.60 0.0 0.0 %2 10_14 G CIE No.11 0.0 0.0 0.0 0.0 0.0 %3 15_19 Cgb to be calculated 30.57 1.41 -46.47 0.0 0.0 %4 20_24 B CIE No.12 0.0 0.0 0.0 0.0 0.0 %5 25_29 Mbr to be calculated 39.92 58.74 27.99 0.0 0.0 %6 30_34 Re+360 to be calculated 81.26 -2.89 71.56 0.0 0.0 %7 35_39 Ye+360 to be calculated ] def %add no. 03_04 Re LAB*e 03 LAB*e 01 get dup mul LAB*e 02 get dup mul add sqrt put LAB*e 04 LAB*e 02 get LAB*e 01 get 0.0001 add atan put %add no. 08_09 Ye LAB*e 08 LAB*e 06 get dup mul LAB*e 07 get dup mul add sqrt put LAB*e 09 LAB*e 07 get LAB*e 06 get 0.0001 add atan put %add no. 13_14 Ge LAB*e 13 LAB*e 11 get dup mul LAB*e 12 get dup mul add sqrt put LAB*e 14 LAB*e 12 get LAB*e 11 get 0.0001 add atan put %add no. 23_24 Be LAB*e 23 LAB*e 21 get dup mul LAB*e 22 get dup mul add sqrt put LAB*e 24 LAB*e 22 get LAB*e 21 get 0.0001 add atan put %add no. 33_34 Re+360 LAB*e 33 LAB*e 31 get dup mul LAB*e 32 get dup mul add sqrt put LAB*e 34 LAB*e 32 get LAB*e 31 get 0.0001 add atan 360 add put %add no. 38_39 Ye+360 LAB*e 38 LAB*e 36 get dup mul LAB*e 37 get dup mul add sqrt put LAB*e 39 LAB*e 37 get LAB*e 36 get 0.0001 add atan 360 add put %new no. 15_19 Cgb with Ge_Be LAB*e 19 LAB*e 14 get LAB*e 24 get add 0.5 mul put %hab LAB*e 18 LAB*e 13 get LAB*e 23 get add 0.5 mul put %C*ab LAB*e 15 LAB*e 10 get LAB*e 20 get add 0.5 mul put %L* LAB*e 16 LAB*e 18 get LAB*e 19 get cos mul put %a* LAB*e 17 LAB*e 18 get LAB*e 19 get sin mul put %b* %new no. 25_29 Mbr with Be_Re+360 LAB*e 29 LAB*e 24 get LAB*e 34 get add 0.5 mul put %hab LAB*e 28 LAB*e 23 get LAB*e 33 get add 0.5 mul put %C*ab LAB*e 25 LAB*e 20 get LAB*e 00 get add 0.5 mul put %L* LAB*e 26 LAB*e 28 get LAB*e 29 get cos mul put %a* LAB*e 27 LAB*e 28 get LAB*e 29 get sin mul put %b* /LAB*He 8 array def 0 1 7 {/i exch def %i=0,7 LAB*He i LAB*e i 5 mul 4 add get put } for %i=0,7 /hab*de64M 50 array def 0 1 47 {/i exch def %i=0,47 /i8 i 8 idiv def /i8d i i8 8 mul sub def /dLAB*He LAB*He i8 1 add get LAB*He i8 get sub 8 div def hab*de64M i LAB*He i8 get dLAB*He i8d mul add put } for %i=0,47 hab*de64M 48 hab*de64M 0 get 360 add put hab*de64M 49 hab*de64M 1 get 360 add put /LAB*Hs 8 array def /LAB*Hs [30. 90. 150. 210. 270. 330. 390. 450.] def /hab*ds64M 50 array def 0 1 47 {/i exch def %i=0,47 /i8 i 8 idiv def /i8d i i8 8 mul sub def /dLAB*Hs LAB*Hs i8 1 add get LAB*Hs i8 get sub 8 div def hab*ds64M i LAB*Hs i8 get dLAB*Hs i8d mul add put } for %i=0,47 hab*ds64M 48 hab*ds64M 0 get 360 add put hab*ds64M 49 hab*ds64M 1 get 360 add put %***************** calculation of LAB*LabChd362Mi and rgb*dd362Mi %***************** for 362 elementary hue angles /LAB*Ldd362Mi 362 array def /LAB*add362Mi 362 array def /LAB*bdd362Mi 362 array def /LAB*Cdd362Mi 362 array def /LAB*hdd362Mi 362 array def /r*dd362Mi 362 array def /g*dd362Mi 362 array def /b*dd362Mi 362 array def %******default rgb-input data for output of device colours /r*dd64M 64 array def /r*dd64M [1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %R 1.000 0.875 0.750 0.625 0.500 0.375 0.250 0.125 %J 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %G 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %C 0.000 0.125 0.250 0.375 0.500 0.625 0.750 0.875 %B 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %M 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %R 1.000 0.875 0.750 0.625 0.500 0.375 0.250 0.125 %J ] def /g*dd64M 64 array def /g*dd64M [0.000 0.125 0.250 0.375 0.500 0.625 0.750 0.875 %R 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %J 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %G 1.000 0.875 0.750 0.625 0.500 0.375 0.250 0.125 %C 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %B 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %M 0.000 0.125 0.250 0.375 0.500 0.625 0.750 0.875 %R 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %J ] def /b*dd64M 64 array def /b*dd64M [0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %R 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %J 0.000 0.125 0.250 0.375 0.500 0.625 0.750 0.875 %G 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %C 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %B 1.000 0.875 0.750 0.625 0.500 0.375 0.250 0.125 %M 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %R 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %J ] def %calculate all data of 16+1=17 step elementary colour circle /ind64M 17 array def /ind64M %R00Y R25Y R50Y R75Y Y00G Y25G Y50G Y75G [0 2 4 6 8 10 12 14 %G00B G25B G50B G75G B00R B25R B50R B75R R00Y 16 20 24 28 32 36 40 44 0 ] def %actual 16 step device circle + N + W /r*dd18M 18 array def /g*dd18M 18 array def /b*dd18M 18 array def 0 1 15 {/i exch def %i=0,15 /indi ind64M i get def r*dd18M i r*dd64M indi get put %16 device colours g*dd18M i g*dd64M indi get put b*dd18M i b*dd64M indi get put } for %i=0,15 r*dd18M 16 0 put %N g*dd18M 16 0 put b*dd18M 16 0 put r*dd18M 17 1 put %W g*dd18M 17 1 put b*dd18M 17 1 put %actual 6 step device circle + N + W /r*dd08M 08 array def /g*dd08M 08 array def /b*dd08M 08 array def 0 1 5 {/i exch def %i=0,5 r*dd08M i r*dd64M i 8 mul get put %6 device colours g*dd08M i g*dd64M i 8 mul get put b*dd08M i b*dd64M i 8 mul get put } for %i=0,5 r*dd08M 6 0 put %N g*dd08M 6 0 put b*dd08M 6 0 put r*dd08M 7 1 put %W g*dd08M 7 1 put b*dd08M 7 1 put 0 1 361 {/i exch def %i=0,361 %default only for test r*dd362Mi i 0 put %of irregularities g*dd362Mi i 0 put b*dd362Mi i 0 put LAB*Ldd362Mi i 0.0001 put LAB*add362Mi i 0 put LAB*bdd362Mi i 0 put LAB*Cdd362Mi i 0 put LAB*hdd362Mi i 0 put } for %i=0,361 % s-data 030,0 -> LAB*hdd64M 0 get -> LAB*Ldd362Mi 30,0 put: LAB*hdd362Mi=40 % s-data 037,5 -> LAB*hdd64M 1 get -> LAB*Ldd362Mi 37,5 put: LAB*hdd362Mi=41,3 % s-data 045,0 -> LAB*hdd64M 2 get -> LAB*Ldd362Mi 45,0 put: LAB*hdd362Mi=44,6 % s-data 052,5 -> LAB*hdd64M 3 get -> LAB*Ldd362Mi 52,5 put: LAB*hdd362Mi=50,7 %... % s-data 090,0 -> LAB*hdd64M 8 get -> LAB*Ldd362Mi 90,0 put: LAB*hdd362Mi=102,8 % s-data 330,0 -> LAB*hdd64M 41 get -> LAB*Ldd362Mi 330,0 put: LAB*hdd362Mi=328 % s-data 337,5 -> LAB*hdd64M 42 get -> LAB*Ldd362Mi 337,5 put: LAB*hdd362Mi=334 % s-data 345,0 -> LAB*hdd64M 43 get -> LAB*Ldd362Mi 345,0 put: LAB*hdd362Mi=341 % s-data 352,5 -> LAB*hdd64M 44 get -> LAB*Ldd362Mi 352,5 put: LAB*hdd362Mi=351 % s-data 360,0 -> LAB*hdd64M 45 get -> LAB*Ldd362Mi 360,0 put: LAB*hdd362Mi=352 %... % s-data 390,0 -> LAB*hdd64M 49 get -> LAB*Ldd362Mi 390,0 put: LAB*hdd362Mi=400 0 15 345 {/i exch def %i=0,15,345 /ix00 i 15 idiv 2 mul def /ix01 ix00 1 add def /ix02 ix00 2 add def 0 1 14 {/j exch def %j=0,14 j 07 le {%j<=7 /XIE j 7.5 div def /i0 i j add def /ix0 ix00 def /ix1 ix01 def }%j<=7 {%j>7 /XIE j 8 sub 0.5 add 7.5 div def /i0 i j add def /ix0 ix01 def /ix1 ix02 def } ifelse %j>7 LAB*Ldd362Mi i0 LAB*Ldd64M ix0 get LAB*Ldd64M ix1 get LAB*Ldd64M ix0 get sub XIE mul add put LAB*Cdd362Mi i0 LAB*Cdd64M ix0 get LAB*Cdd64M ix1 get LAB*Cdd64M ix0 get sub XIE mul add put LAB*hdd362Mi i0 LAB*hdd64M ix0 get LAB*hdd64M ix1 get LAB*hdd64M ix0 get sub XIE mul add dup 90 gt i0 45 le and {360 sub} if put LAB*add362Mi i0 LAB*Cdd362Mi i0 get LAB*hdd362Mi i0 get cos mul put LAB*bdd362Mi i0 LAB*Cdd362Mi i0 get LAB*hdd362Mi i0 get sin mul put r*dd362Mi i0 r*dd64M ix0 get r*dd64M ix1 get r*dd64M ix0 get sub XIE mul add put g*dd362Mi i0 g*dd64M ix0 get g*dd64M ix1 get g*dd64M ix0 get sub XIE mul add put b*dd362Mi i0 b*dd64M ix0 get b*dd64M ix1 get b*dd64M ix0 get sub XIE mul add put } for %j=0,14 } for %i0=0,15,345 0 1 1 {/i exch def %i=0,1 LAB*Ldd362Mi 360 i add LAB*Ldd362Mi i get put LAB*add362Mi 360 i add LAB*add362Mi i get put LAB*bdd362Mi 360 i add LAB*bdd362Mi i get put LAB*Cdd362Mi 360 i add LAB*Cdd362Mi i get put LAB*hdd362Mi 360 i add LAB*hdd362Mi i get 360 add put r*dd362Mi 360 i add r*dd362Mi i get put g*dd362Mi 360 i add g*dd362Mi i get put b*dd362Mi 360 i add b*dd362Mi i get put } for %i=0,1 /hab*dd362Fi 362 array def 0 1 361 {/i exch def %i=0,361 hab*dd362Fi i LAB*hdd362Mi i get put %floating point F } for %i=0,361 %***************** calculation of hab*ds362Mi %integer %***************** for 362 standard hue angles /hab*ds362Mi 362 array def 0 1 361 {/i exch def %i=0,361 %range 30..391 hab*ds362Mi i 30 i add put %always integer } for %i=0,361 %***************** calculation of LAB*LabChs362Mi and rgb*ds362Mi %***************** for 362 device hue angles /LAB*Lds362Mi 362 array def /LAB*ads362Mi 362 array def /LAB*bds362Mi 362 array def /LAB*Cds362Mi 362 array def /LAB*hds362Mi 362 array def /r*ds362Mi 362 array def /g*ds362Mi 362 array def /b*ds362Mi 362 array def 0 1 361 {/i exch def %i=0,361 %default only for test r*ds362Mi i 0 put %of irregularities g*ds362Mi i 0 put b*ds362Mi i 0 put LAB*Lds362Mi i 0.0001 put LAB*ads362Mi i 0 put LAB*bds362Mi i 0 put LAB*Cds362Mi i 0 put LAB*hds362Mi i 0 put } for %i=0,361 0 1 359 {/i0 exch def %i=0,359 /i0i hab*ds362Mi i0 get def %integer range 30...390 i0i hab*dd362Fi 0 get lt {/i0i i0i 360 add def} if 0 1 47 {/ix0 exch def %ix0=0,48 /ix1 ix0 1 add def i0i LAB*hdd64M ix0 get sub 0 ge i0i LAB*hdd64M ix1 get sub 0 lt and {%ge..lt /XIE i0i LAB*hdd64M ix0 get sub LAB*hdd64M ix1 get LAB*hdd64M ix0 get sub div def LAB*Lds362Mi i0 LAB*Ldd64M ix0 get LAB*Ldd64M ix1 get LAB*Ldd64M ix0 get sub XIE mul add put LAB*Cds362Mi i0 LAB*Cdd64M ix0 get LAB*Cdd64M ix1 get LAB*Cdd64M ix0 get sub XIE mul add put LAB*hds362Mi i0 LAB*hdd64M ix0 get LAB*hdd64M ix1 get LAB*hdd64M ix0 get sub XIE mul add dup 90 gt i0 45 le and {360 sub} if put LAB*ads362Mi i0 LAB*Cds362Mi i0 get LAB*hds362Mi i0 get cos mul put LAB*bds362Mi i0 LAB*Cds362Mi i0 get LAB*hds362Mi i0 get sin mul put r*ds362Mi i0 r*dd64M ix0 get r*dd64M ix1 get r*dd64M ix0 get sub XIE mul add put g*ds362Mi i0 g*dd64M ix0 get g*dd64M ix1 get g*dd64M ix0 get sub XIE mul add put b*ds362Mi i0 b*dd64M ix0 get b*dd64M ix1 get b*dd64M ix0 get sub XIE mul add put exit } if %ge..lt } for %ix0=0,47 } for %i=0,359 0 1 1 {/i exch def %i=0,1 LAB*Lds362Mi 360 i add LAB*Lds362Mi i get put LAB*ads362Mi 360 i add LAB*ads362Mi i get put LAB*bds362Mi 360 i add LAB*bds362Mi i get put LAB*Cds362Mi 360 i add LAB*Cds362Mi i get put LAB*hds362Mi 360 i add LAB*hds362Mi i get 360 add put r*ds362Mi 360 i add r*ds362Mi i get put g*ds362Mi 360 i add g*ds362Mi i get put b*ds362Mi 360 i add b*ds362Mi i get put } for %i=0,1 %***************** calculation of hab*de362Fi %***************** for 362 elementary hue angles /hab*de362Fi 362 array def %floating point %range 26..386 30 1 389 {/i exch def %i=30,389 /im30 i 30 sub def /hab*sM i def %alphas = [habs - LAB*Hs(h)]/[LAB*Hs(n+1) - LAB*Hs(n)] % = [habs - LAB*Hs(h)]/60 %habe = LAB*He(n) + alphas [LAB*He(n+1) - LAB*He(n)] %use of LAB*He 0..7 Re_to_Ye i 030 ge i 089 le and {/ipan0 0 def /ipan1 1 def} if i 090 ge i 149 le and {/ipan0 1 def /ipan1 2 def} if i 150 ge i 209 le and {/ipan0 2 def /ipan1 3 def} if i 210 ge i 269 le and {/ipan0 3 def /ipan1 4 def} if i 270 ge i 329 le and {/ipan0 4 def /ipan1 5 def} if i 330 ge i 359 le and {/ipan0 5 def /ipan1 6 def} if i 360 ge i 389 le and {/ipan0 6 def /ipan1 7 def} if /alphas {hab*sM LAB*Hs ipan0 get sub 60 div} bind def /habe {LAB*He ipan0 get LAB*He ipan1 get LAB*He ipan0 get sub alphas mul add} bind def hab*de362Fi im30 habe put %floating point } for %i=30,389 hab*de362Fi 360 hab*de362Fi 0 get 360 add put hab*de362Fi 361 hab*de362Fi 1 get 360 add put %***************** calculation LAB*LabChe32Mi and rgb*de362Mi %***************** for 362 elementary hue angles /LAB*Lde362Mi 362 array def /LAB*ade362Mi 362 array def /LAB*bde362Mi 362 array def /LAB*Cde362Mi 362 array def /LAB*hde362Mi 362 array def /r*de362Mi 362 array def /g*de362Mi 362 array def /b*de362Mi 362 array def 0 1 361 {/i exch def %i=0,361 %default only for test r*de362Mi i 0 put %of irregularities g*de362Mi i 0 put b*de362Mi i 0 put LAB*Lde362Mi i 0.0001 put LAB*ade362Mi i 0 put LAB*bde362Mi i 0 put LAB*Cde362Mi i 0 put LAB*hde362Mi i 0 put } for %i=0,361 0 1 359 {/i0 exch def %i=0,359 /i0i hab*de362Fi i0 get def %range 26...386 i0i hab*dd362Fi 0 get lt {/i0i i0i 360 add def} if 0 1 47 {/ix0 exch def %ix0=0,48 /ix1 ix0 1 add def i0i LAB*hdd64M ix0 get sub 0 ge i0i LAB*hdd64M ix1 get sub 0 lt and {%ge..lt /XIE i0i LAB*hdd64M ix0 get sub LAB*hdd64M ix1 get LAB*hdd64M ix0 get sub div def LAB*Lde362Mi i0 LAB*Ldd64M ix0 get LAB*Ldd64M ix1 get LAB*Ldd64M ix0 get sub XIE mul add put LAB*Cde362Mi i0 LAB*Cdd64M ix0 get LAB*Cdd64M ix1 get LAB*Cdd64M ix0 get sub XIE mul add put LAB*hde362Mi i0 LAB*hdd64M ix0 get LAB*hdd64M ix1 get LAB*hdd64M ix0 get sub XIE mul add dup 90 gt i0 45 le and {360 sub} if put LAB*ade362Mi i0 LAB*Cde362Mi i0 get LAB*hde362Mi i0 get cos mul put LAB*bde362Mi i0 LAB*Cde362Mi i0 get LAB*hde362Mi i0 get sin mul put r*de362Mi i0 r*dd64M ix0 get r*dd64M ix1 get r*dd64M ix0 get sub XIE mul add put g*de362Mi i0 g*dd64M ix0 get g*dd64M ix1 get g*dd64M ix0 get sub XIE mul add put b*de362Mi i0 b*dd64M ix0 get b*dd64M ix1 get b*dd64M ix0 get sub XIE mul add put exit } if %ge..lt } for %ix0=0,47 } for %i=0,359 0 1 1 {/i exch def %i=0,1 LAB*Lde362Mi 360 i add LAB*Lde362Mi i get put LAB*ade362Mi 360 i add LAB*ade362Mi i get put LAB*bde362Mi 360 i add LAB*bde362Mi i get put LAB*Cde362Mi 360 i add LAB*Cde362Mi i get put LAB*hde362Mi 360 i add LAB*hde362Mi i get 360 add put r*de362Mi 360 i add r*de362Mi i get put g*de362Mi 360 i add g*de362Mi i get put b*de362Mi 360 i add b*de362Mi i get put } for %i=0,1 %special LAB* data calculation of 17 step colour circle %needs LAB*LabCh64M, hab*dd64M /ind64M 17 array def /ind64M %R00Y R25Y R50Y R75Y Y00G Y25G Y50G Y75G [0 2 4 6 8 10 12 14 %G00B G25B G50B G75G B00R B25R B50R B75R R00Y 16 20 24 28 32 36 40 44 0 ] def /LAB*Ldd18M 17 array def /LAB*add18M 17 array def /LAB*bdd18M 17 array def /LAB*Cdd18M 17 array def /LAB*hdd18M 17 array def /hab*dd18M 17 array def 0 1 16 {/i exch def %i=0,16 /indi ind64M i get def LAB*Ldd18M i LAB*Ldd64M indi get put LAB*add18M i LAB*add64M indi get put LAB*bdd18M i LAB*bdd64M indi get put LAB*Cdd18M i LAB*Cdd64M indi get put LAB*hdd18M i LAB*hdd64M indi get put hab*dd18M i hab*dd64M indi get put } for %i=0,16 } bind def %END proc_LAB*LabCh64M_to_tab362_dy %***************************************************************************** %END Procedure PROC_SPEC_IOF Colour special for NP-file 20120401 %***************************************************************************** /FileDaten (sRGB standard device; no separation, D65) def /FileDatde (sRGB Norm\255Ger\344t; keine Separation, D65) def /RGB0_F 3240 array def %1080*3 /RGB0_F [%1000 x rgb* nr. pos 1080 colours 0000 0000 0000 %0000 A01 0000 0000 0125 %0001 A02 0000 0000 0250 %0002 A03 0000 0000 0375 %0003 A04 0000 0000 0500 %0004 A05 0000 0000 0625 %0005 A06 0000 0000 0750 %0006 A07 0000 0000 0875 %0007 A08 0000 0000 1000 %0008 A09 0000 0125 0000 %0009 B01 0000 0125 0125 %0010 B02 0000 0125 0250 %0011 B03 0000 0125 0375 %0012 B04 0000 0125 0500 %0013 B05 0000 0125 0625 %0014 B06 0000 0125 0750 %0015 B07 0000 0125 0875 %0016 B08 0000 0125 1000 %0017 B09 0000 0250 0000 %0018 C01 0000 0250 0125 %0019 C02 0000 0250 0250 %0020 C03 0000 0250 0375 %0021 C04 0000 0250 0500 %0022 C05 0000 0250 0625 %0023 C06 0000 0250 0750 %0024 C07 0000 0250 0875 %0025 C08 0000 0250 1000 %0026 C09 0000 0375 0000 %0027 D01 0000 0375 0125 %0028 D02 0000 0375 0250 %0029 D03 0000 0375 0375 %0030 D04 0000 0375 0500 %0031 D05 0000 0375 0625 %0032 D06 0000 0375 0750 %0033 D07 0000 0375 0875 %0034 D08 0000 0375 1000 %0035 D09 0000 0500 0000 %0036 E01 0000 0500 0125 %0037 E02 0000 0500 0250 %0038 E03 0000 0500 0375 %0039 E04 0000 0500 0500 %0040 E05 0000 0500 0625 %0041 E06 0000 0500 0750 %0042 E07 0000 0500 0875 %0043 E08 0000 0500 1000 %0044 E09 0000 0625 0000 %0045 F01 0000 0625 0125 %0046 F02 0000 0625 0250 %0047 F03 0000 0625 0375 %0048 F04 0000 0625 0500 %0049 F05 0000 0625 0625 %0050 F06 0000 0625 0750 %0051 F07 0000 0625 0875 %0052 F08 0000 0625 1000 %0053 F09 0000 0750 0000 %0054 G01 0000 0750 0125 %0055 G02 0000 0750 0250 %0056 G03 0000 0750 0375 %0057 G04 0000 0750 0500 %0058 G05 0000 0750 0625 %0059 G06 0000 0750 0750 %0060 G07 0000 0750 0875 %0061 G08 0000 0750 1000 %0062 G09 0000 0875 0000 %0063 H01 0000 0875 0125 %0064 H02 0000 0875 0250 %0065 H03 0000 0875 0375 %0066 H04 0000 0875 0500 %0067 H05 0000 0875 0625 %0068 H06 0000 0875 0750 %0069 H07 0000 0875 0875 %0070 H08 0000 0875 1000 %0071 H09 0000 1000 0000 %0072 I01 0000 1000 0125 %0073 I02 0000 1000 0250 %0074 I03 0000 1000 0375 %0075 I04 0000 1000 0500 %0076 I05 0000 1000 0625 %0077 I06 0000 1000 0750 %0078 I07 0000 1000 0875 %0079 I08 0000 1000 1000 %0080 I09 0125 0000 0000 %0081 J01 0125 0000 0125 %0082 J02 0125 0000 0250 %0083 J03 0125 0000 0375 %0084 J04 0125 0000 0500 %0085 J05 0125 0000 0625 %0086 J06 0125 0000 0750 %0087 J07 0125 0000 0875 %0088 J08 0125 0000 1000 %0089 J09 0125 0125 0000 %0090 K01 0125 0125 0125 %0091 K02 0125 0125 0250 %0092 K03 0125 0125 0375 %0093 K04 0125 0125 0500 %0094 K05 0125 0125 0625 %0095 K06 0125 0125 0750 %0096 K07 0125 0125 0875 %0097 K08 0125 0125 1000 %0098 K09 0125 0250 0000 %0099 L01 0125 0250 0125 %0100 L02 0125 0250 0250 %0101 L03 0125 0250 0375 %0102 L04 0125 0250 0500 %0103 L05 0125 0250 0625 %0104 L06 0125 0250 0750 %0105 L07 0125 0250 0875 %0106 L08 0125 0250 1000 %0107 L09 0125 0375 0000 %0108 M01 0125 0375 0125 %0109 M02 0125 0375 0250 %0110 M03 0125 0375 0375 %0111 M04 0125 0375 0500 %0112 M05 0125 0375 0625 %0113 M06 0125 0375 0750 %0114 M07 0125 0375 0875 %0115 M08 0125 0375 1000 %0116 M09 0125 0500 0000 %0117 N01 0125 0500 0125 %0118 N02 0125 0500 0250 %0119 N03 0125 0500 0375 %0120 N04 0125 0500 0500 %0121 N05 0125 0500 0625 %0122 N06 0125 0500 0750 %0123 N07 0125 0500 0875 %0124 N08 0125 0500 1000 %0125 N09 0125 0625 0000 %0126 O01 0125 0625 0125 %0127 O02 0125 0625 0250 %0128 O03 0125 0625 0375 %0129 O04 0125 0625 0500 %0130 O05 0125 0625 0625 %0131 O06 0125 0625 0750 %0132 O07 0125 0625 0875 %0133 O08 0125 0625 1000 %0134 O09 0125 0750 0000 %0135 P01 0125 0750 0125 %0136 P02 0125 0750 0250 %0137 P03 0125 0750 0375 %0138 P04 0125 0750 0500 %0139 P05 0125 0750 0625 %0140 P06 0125 0750 0750 %0141 P07 0125 0750 0875 %0142 P08 0125 0750 1000 %0143 P09 0125 0875 0000 %0144 Q01 0125 0875 0125 %0145 Q02 0125 0875 0250 %0146 Q03 0125 0875 0375 %0147 Q04 0125 0875 0500 %0148 Q05 0125 0875 0625 %0149 Q06 0125 0875 0750 %0150 Q07 0125 0875 0875 %0151 Q08 0125 0875 1000 %0152 Q09 0125 1000 0000 %0153 R01 0125 1000 0125 %0154 R02 0125 1000 0250 %0155 R03 0125 1000 0375 %0156 R04 0125 1000 0500 %0157 R05 0125 1000 0625 %0158 R06 0125 1000 0750 %0159 R07 0125 1000 0875 %0160 R08 0125 1000 1000 %0161 R09 0250 0000 0000 %0162 S01 0250 0000 0125 %0163 S02 0250 0000 0250 %0164 S03 0250 0000 0375 %0165 S04 0250 0000 0500 %0166 S05 0250 0000 0625 %0167 S06 0250 0000 0750 %0168 S07 0250 0000 0875 %0169 S08 0250 0000 1000 %0170 S09 0250 0125 0000 %0171 T01 0250 0125 0125 %0172 T02 0250 0125 0250 %0173 T03 0250 0125 0375 %0174 T04 0250 0125 0500 %0175 T05 0250 0125 0625 %0176 T06 0250 0125 0750 %0177 T07 0250 0125 0875 %0178 T08 0250 0125 1000 %0179 T09 0250 0250 0000 %0180 U01 0250 0250 0125 %0181 U02 0250 0250 0250 %0182 U03 0250 0250 0375 %0183 U04 0250 0250 0500 %0184 U05 0250 0250 0625 %0185 U06 0250 0250 0750 %0186 U07 0250 0250 0875 %0187 U08 0250 0250 1000 %0188 U09 0250 0375 0000 %0189 V01 0250 0375 0125 %0190 V02 0250 0375 0250 %0191 V03 0250 0375 0375 %0192 V04 0250 0375 0500 %0193 V05 0250 0375 0625 %0194 V06 0250 0375 0750 %0195 V07 0250 0375 0875 %0196 V08 0250 0375 1000 %0197 V09 0250 0500 0000 %0198 W01 0250 0500 0125 %0199 W02 0250 0500 0250 %0200 W03 0250 0500 0375 %0201 W04 0250 0500 0500 %0202 W05 0250 0500 0625 %0203 W06 0250 0500 0750 %0204 W07 0250 0500 0875 %0205 W08 0250 0500 1000 %0206 W09 0250 0625 0000 %0207 X01 0250 0625 0125 %0208 X02 0250 0625 0250 %0209 X03 0250 0625 0375 %0210 X04 0250 0625 0500 %0211 X05 0250 0625 0625 %0212 X06 0250 0625 0750 %0213 X07 0250 0625 0875 %0214 X08 0250 0625 1000 %0215 X09 0250 0750 0000 %0216 Y01 0250 0750 0125 %0217 Y02 0250 0750 0250 %0218 Y03 0250 0750 0375 %0219 Y04 0250 0750 0500 %0220 Y05 0250 0750 0625 %0221 Y06 0250 0750 0750 %0222 Y07 0250 0750 0875 %0223 Y08 0250 0750 1000 %0224 Y09 0250 0875 0000 %0225 Z01 0250 0875 0125 %0226 Z02 0250 0875 0250 %0227 Z03 0250 0875 0375 %0228 Z04 0250 0875 0500 %0229 Z05 0250 0875 0625 %0230 Z06 0250 0875 0750 %0231 Z07 0250 0875 0875 %0232 Z08 0250 0875 1000 %0233 Z09 0250 1000 0000 %0234 a01 0250 1000 0125 %0235 a02 0250 1000 0250 %0236 a03 0250 1000 0375 %0237 a04 0250 1000 0500 %0238 a05 0250 1000 0625 %0239 a06 0250 1000 0750 %0240 a07 0250 1000 0875 %0241 a08 0250 1000 1000 %0242 a09 0375 0000 0000 %0243 A10 0375 0000 0125 %0244 A11 0375 0000 0250 %0245 A12 0375 0000 0375 %0246 A13 0375 0000 0500 %0247 A14 0375 0000 0625 %0248 A15 0375 0000 0750 %0249 A16 0375 0000 0875 %0250 A17 0375 0000 1000 %0251 A18 0375 0125 0000 %0252 B10 0375 0125 0125 %0253 B11 0375 0125 0250 %0254 B12 0375 0125 0375 %0255 B13 0375 0125 0500 %0256 B14 0375 0125 0625 %0257 B15 0375 0125 0750 %0258 B16 0375 0125 0875 %0259 B17 0375 0125 1000 %0260 B18 0375 0250 0000 %0261 C10 0375 0250 0125 %0262 C11 0375 0250 0250 %0263 C12 0375 0250 0375 %0264 C13 0375 0250 0500 %0265 C14 0375 0250 0625 %0266 C15 0375 0250 0750 %0267 C16 0375 0250 0875 %0268 C17 0375 0250 1000 %0269 C18 0375 0375 0000 %0270 D10 0375 0375 0125 %0271 D11 0375 0375 0250 %0272 D12 0375 0375 0375 %0273 D13 0375 0375 0500 %0274 D14 0375 0375 0625 %0275 D15 0375 0375 0750 %0276 D16 0375 0375 0875 %0277 D17 0375 0375 1000 %0278 D18 0375 0500 0000 %0279 E10 0375 0500 0125 %0280 E11 0375 0500 0250 %0281 E12 0375 0500 0375 %0282 E13 0375 0500 0500 %0283 E14 0375 0500 0625 %0284 E15 0375 0500 0750 %0285 E16 0375 0500 0875 %0286 E17 0375 0500 1000 %0287 E18 0375 0625 0000 %0288 F10 0375 0625 0125 %0289 F11 0375 0625 0250 %0290 F12 0375 0625 0375 %0291 F13 0375 0625 0500 %0292 F14 0375 0625 0625 %0293 F15 0375 0625 0750 %0294 F16 0375 0625 0875 %0295 F17 0375 0625 1000 %0296 F18 0375 0750 0000 %0297 G10 0375 0750 0125 %0298 G11 0375 0750 0250 %0299 G12 0375 0750 0375 %0300 G13 0375 0750 0500 %0301 G14 0375 0750 0625 %0302 G15 0375 0750 0750 %0303 G16 0375 0750 0875 %0304 G17 0375 0750 1000 %0305 G18 0375 0875 0000 %0306 H10 0375 0875 0125 %0307 H11 0375 0875 0250 %0308 H12 0375 0875 0375 %0309 H13 0375 0875 0500 %0310 H14 0375 0875 0625 %0311 H15 0375 0875 0750 %0312 H16 0375 0875 0875 %0313 H17 0375 0875 1000 %0314 H18 0375 1000 0000 %0315 I10 0375 1000 0125 %0316 I11 0375 1000 0250 %0317 I12 0375 1000 0375 %0318 I13 0375 1000 0500 %0319 I14 0375 1000 0625 %0320 I15 0375 1000 0750 %0321 I16 0375 1000 0875 %0322 I17 0375 1000 1000 %0323 I18 0500 0000 0000 %0324 J10 0500 0000 0125 %0325 J11 0500 0000 0250 %0326 J12 0500 0000 0375 %0327 J13 0500 0000 0500 %0328 J14 0500 0000 0625 %0329 J15 0500 0000 0750 %0330 J16 0500 0000 0875 %0331 J17 0500 0000 1000 %0332 J18 0500 0125 0000 %0333 K10 0500 0125 0125 %0334 K11 0500 0125 0250 %0335 K12 0500 0125 0375 %0336 K13 0500 0125 0500 %0337 K14 0500 0125 0625 %0338 K15 0500 0125 0750 %0339 K16 0500 0125 0875 %0340 K17 0500 0125 1000 %0341 K18 0500 0250 0000 %0342 L10 0500 0250 0125 %0343 L11 0500 0250 0250 %0344 L12 0500 0250 0375 %0345 L13 0500 0250 0500 %0346 L14 0500 0250 0625 %0347 L15 0500 0250 0750 %0348 L16 0500 0250 0875 %0349 L17 0500 0250 1000 %0350 L18 0500 0375 0000 %0351 M10 0500 0375 0125 %0352 M11 0500 0375 0250 %0353 M12 0500 0375 0375 %0354 M13 0500 0375 0500 %0355 M14 0500 0375 0625 %0356 M15 0500 0375 0750 %0357 M16 0500 0375 0875 %0358 M17 0500 0375 1000 %0359 M18 0500 0500 0000 %0360 N10 0500 0500 0125 %0361 N11 0500 0500 0250 %0362 N12 0500 0500 0375 %0363 N13 0500 0500 0500 %0364 N14 0500 0500 0625 %0365 N15 0500 0500 0750 %0366 N16 0500 0500 0875 %0367 N17 0500 0500 1000 %0368 N18 0500 0625 0000 %0369 O10 0500 0625 0125 %0370 O11 0500 0625 0250 %0371 O12 0500 0625 0375 %0372 O13 0500 0625 0500 %0373 O14 0500 0625 0625 %0374 O15 0500 0625 0750 %0375 O16 0500 0625 0875 %0376 O17 0500 0625 1000 %0377 O18 0500 0750 0000 %0378 P10 0500 0750 0125 %0379 P11 0500 0750 0250 %0380 P12 0500 0750 0375 %0381 P13 0500 0750 0500 %0382 P14 0500 0750 0625 %0383 P15 0500 0750 0750 %0384 P16 0500 0750 0875 %0385 P17 0500 0750 1000 %0386 P18 0500 0875 0000 %0387 Q10 0500 0875 0125 %0388 Q11 0500 0875 0250 %0389 Q12 0500 0875 0375 %0390 Q13 0500 0875 0500 %0391 Q14 0500 0875 0625 %0392 Q15 0500 0875 0750 %0393 Q16 0500 0875 0875 %0394 Q17 0500 0875 1000 %0395 Q18 0500 1000 0000 %0396 R10 0500 1000 0125 %0397 R11 0500 1000 0250 %0398 R12 0500 1000 0375 %0399 R13 0500 1000 0500 %0400 R14 0500 1000 0625 %0401 R15 0500 1000 0750 %0402 R16 0500 1000 0875 %0403 R17 0500 1000 1000 %0404 R18 0625 0000 0000 %0405 S10 0625 0000 0125 %0406 S11 0625 0000 0250 %0407 S12 0625 0000 0375 %0408 S13 0625 0000 0500 %0409 S14 0625 0000 0625 %0410 S15 0625 0000 0750 %0411 S16 0625 0000 0875 %0412 S17 0625 0000 1000 %0413 S18 0625 0125 0000 %0414 T10 0625 0125 0125 %0415 T11 0625 0125 0250 %0416 T12 0625 0125 0375 %0417 T13 0625 0125 0500 %0418 T14 0625 0125 0625 %0419 T15 0625 0125 0750 %0420 T16 0625 0125 0875 %0421 T17 0625 0125 1000 %0422 T18 0625 0250 0000 %0423 U10 0625 0250 0125 %0424 U11 0625 0250 0250 %0425 U12 0625 0250 0375 %0426 U13 0625 0250 0500 %0427 U14 0625 0250 0625 %0428 U15 0625 0250 0750 %0429 U16 0625 0250 0875 %0430 U17 0625 0250 1000 %0431 U18 0625 0375 0000 %0432 V10 0625 0375 0125 %0433 V11 0625 0375 0250 %0434 V12 0625 0375 0375 %0435 V13 0625 0375 0500 %0436 V14 0625 0375 0625 %0437 V15 0625 0375 0750 %0438 V16 0625 0375 0875 %0439 V17 0625 0375 1000 %0440 V18 0625 0500 0000 %0441 W10 0625 0500 0125 %0442 W11 0625 0500 0250 %0443 W12 0625 0500 0375 %0444 W13 0625 0500 0500 %0445 W14 0625 0500 0625 %0446 W15 0625 0500 0750 %0447 W16 0625 0500 0875 %0448 W17 0625 0500 1000 %0449 W18 0625 0625 0000 %0450 X10 0625 0625 0125 %0451 X11 0625 0625 0250 %0452 X12 0625 0625 0375 %0453 X13 0625 0625 0500 %0454 X14 0625 0625 0625 %0455 X15 0625 0625 0750 %0456 X16 0625 0625 0875 %0457 X17 0625 0625 1000 %0458 X18 0625 0750 0000 %0459 Y10 0625 0750 0125 %0460 Y11 0625 0750 0250 %0461 Y12 0625 0750 0375 %0462 Y13 0625 0750 0500 %0463 Y14 0625 0750 0625 %0464 Y15 0625 0750 0750 %0465 Y16 0625 0750 0875 %0466 Y17 0625 0750 1000 %0467 Y18 0625 0875 0000 %0468 Z10 0625 0875 0125 %0469 Z11 0625 0875 0250 %0470 Z12 0625 0875 0375 %0471 Z13 0625 0875 0500 %0472 Z14 0625 0875 0625 %0473 Z15 0625 0875 0750 %0474 Z16 0625 0875 0875 %0475 Z17 0625 0875 1000 %0476 Z18 0625 1000 0000 %0477 a10 0625 1000 0125 %0478 a11 0625 1000 0250 %0479 a12 0625 1000 0375 %0480 a13 0625 1000 0500 %0481 a14 0625 1000 0625 %0482 a15 0625 1000 0750 %0483 a16 0625 1000 0875 %0484 a17 0625 1000 1000 %0485 a18 0750 0000 0000 %0486 A19 0750 0000 0125 %0487 A20 0750 0000 0250 %0488 A21 0750 0000 0375 %0489 A22 0750 0000 0500 %0490 A23 0750 0000 0625 %0491 A24 0750 0000 0750 %0492 A25 0750 0000 0875 %0493 A26 0750 0000 1000 %0494 A27 0750 0125 0000 %0495 B19 0750 0125 0125 %0496 B20 0750 0125 0250 %0497 B21 0750 0125 0375 %0498 B22 0750 0125 0500 %0499 B23 0750 0125 0625 %0500 B24 0750 0125 0750 %0501 B25 0750 0125 0875 %0502 B26 0750 0125 1000 %0503 B27 0750 0250 0000 %0504 C19 0750 0250 0125 %0505 C20 0750 0250 0250 %0506 C21 0750 0250 0375 %0507 C22 0750 0250 0500 %0508 C23 0750 0250 0625 %0509 C24 0750 0250 0750 %0510 C25 0750 0250 0875 %0511 C26 0750 0250 1000 %0512 C27 0750 0375 0000 %0513 D19 0750 0375 0125 %0514 D20 0750 0375 0250 %0515 D21 0750 0375 0375 %0516 D22 0750 0375 0500 %0517 D23 0750 0375 0625 %0518 D24 0750 0375 0750 %0519 D25 0750 0375 0875 %0520 D26 0750 0375 1000 %0521 D27 0750 0500 0000 %0522 E19 0750 0500 0125 %0523 E20 0750 0500 0250 %0524 E21 0750 0500 0375 %0525 E22 0750 0500 0500 %0526 E23 0750 0500 0625 %0527 E24 0750 0500 0750 %0528 E25 0750 0500 0875 %0529 E26 0750 0500 1000 %0530 E27 0750 0625 0000 %0531 F19 0750 0625 0125 %0532 F20 0750 0625 0250 %0533 F21 0750 0625 0375 %0534 F22 0750 0625 0500 %0535 F23 0750 0625 0625 %0536 F24 0750 0625 0750 %0537 F25 0750 0625 0875 %0538 F26 0750 0625 1000 %0539 F27 0750 0750 0000 %0540 G19 0750 0750 0125 %0541 G20 0750 0750 0250 %0542 G21 0750 0750 0375 %0543 G22 0750 0750 0500 %0544 G23 0750 0750 0625 %0545 G24 0750 0750 0750 %0546 G25 0750 0750 0875 %0547 G26 0750 0750 1000 %0548 G27 0750 0875 0000 %0549 H19 0750 0875 0125 %0550 H20 0750 0875 0250 %0551 H21 0750 0875 0375 %0552 H22 0750 0875 0500 %0553 H23 0750 0875 0625 %0554 H24 0750 0875 0750 %0555 H25 0750 0875 0875 %0556 H26 0750 0875 1000 %0557 H27 0750 1000 0000 %0558 I19 0750 1000 0125 %0559 I20 0750 1000 0250 %0560 I21 0750 1000 0375 %0561 I22 0750 1000 0500 %0562 I23 0750 1000 0625 %0563 I24 0750 1000 0750 %0564 I25 0750 1000 0875 %0565 I26 0750 1000 1000 %0566 I27 0875 0000 0000 %0567 J19 0875 0000 0125 %0568 J20 0875 0000 0250 %0569 J21 0875 0000 0375 %0570 J22 0875 0000 0500 %0571 J23 0875 0000 0625 %0572 J24 0875 0000 0750 %0573 J25 0875 0000 0875 %0574 J26 0875 0000 1000 %0575 J27 0875 0125 0000 %0576 K19 0875 0125 0125 %0577 K20 0875 0125 0250 %0578 K21 0875 0125 0375 %0579 K22 0875 0125 0500 %0580 K23 0875 0125 0625 %0581 K24 0875 0125 0750 %0582 K25 0875 0125 0875 %0583 K26 0875 0125 1000 %0584 K27 0875 0250 0000 %0585 L19 0875 0250 0125 %0586 L20 0875 0250 0250 %0587 L21 0875 0250 0375 %0588 L22 0875 0250 0500 %0589 L23 0875 0250 0625 %0590 L24 0875 0250 0750 %0591 L25 0875 0250 0875 %0592 L26 0875 0250 1000 %0593 L27 0875 0375 0000 %0594 M19 0875 0375 0125 %0595 M20 0875 0375 0250 %0596 M21 0875 0375 0375 %0597 M22 0875 0375 0500 %0598 M23 0875 0375 0625 %0599 M24 0875 0375 0750 %0600 M25 0875 0375 0875 %0601 M26 0875 0375 1000 %0602 M27 0875 0500 0000 %0603 N19 0875 0500 0125 %0604 N20 0875 0500 0250 %0605 N21 0875 0500 0375 %0606 N22 0875 0500 0500 %0607 N23 0875 0500 0625 %0608 N24 0875 0500 0750 %0609 N25 0875 0500 0875 %0610 N26 0875 0500 1000 %0611 N27 0875 0625 0000 %0612 O19 0875 0625 0125 %0613 O20 0875 0625 0250 %0614 O21 0875 0625 0375 %0615 O22 0875 0625 0500 %0616 O23 0875 0625 0625 %0617 O24 0875 0625 0750 %0618 O25 0875 0625 0875 %0619 O26 0875 0625 1000 %0620 O27 0875 0750 0000 %0621 P19 0875 0750 0125 %0622 P20 0875 0750 0250 %0623 P21 0875 0750 0375 %0624 P22 0875 0750 0500 %0625 P23 0875 0750 0625 %0626 P24 0875 0750 0750 %0627 P25 0875 0750 0875 %0628 P26 0875 0750 1000 %0629 P27 0875 0875 0000 %0630 Q19 0875 0875 0125 %0631 Q20 0875 0875 0250 %0632 Q21 0875 0875 0375 %0633 Q22 0875 0875 0500 %0634 Q23 0875 0875 0625 %0635 Q24 0875 0875 0750 %0636 Q25 0875 0875 0875 %0637 Q26 0875 0875 1000 %0638 Q27 0875 1000 0000 %0639 R19 0875 1000 0125 %0640 R20 0875 1000 0250 %0641 R21 0875 1000 0375 %0642 R22 0875 1000 0500 %0643 R23 0875 1000 0625 %0644 R24 0875 1000 0750 %0645 R25 0875 1000 0875 %0646 R26 0875 1000 1000 %0647 R27 1000 0000 0000 %0648 S19 1000 0000 0125 %0649 S20 1000 0000 0250 %0650 S21 1000 0000 0375 %0651 S22 1000 0000 0500 %0652 S23 1000 0000 0625 %0653 S24 1000 0000 0750 %0654 S25 1000 0000 0875 %0655 S26 1000 0000 1000 %0656 S27 1000 0125 0000 %0657 T19 1000 0125 0125 %0658 T20 1000 0125 0250 %0659 T21 1000 0125 0375 %0660 T22 1000 0125 0500 %0661 T23 1000 0125 0625 %0662 T24 1000 0125 0750 %0663 T25 1000 0125 0875 %0664 T26 1000 0125 1000 %0665 T27 1000 0250 0000 %0666 U19 1000 0250 0125 %0667 U20 1000 0250 0250 %0668 U21 1000 0250 0375 %0669 U22 1000 0250 0500 %0670 U23 1000 0250 0625 %0671 U24 1000 0250 0750 %0672 U25 1000 0250 0875 %0673 U26 1000 0250 1000 %0674 U27 1000 0375 0000 %0675 V19 1000 0375 0125 %0676 V20 1000 0375 0250 %0677 V21 1000 0375 0375 %0678 V22 1000 0375 0500 %0679 V23 1000 0375 0625 %0680 V24 1000 0375 0750 %0681 V25 1000 0375 0875 %0682 V26 1000 0375 1000 %0683 V27 1000 0500 0000 %0684 W19 1000 0500 0125 %0685 W20 1000 0500 0250 %0686 W21 1000 0500 0375 %0687 W22 1000 0500 0500 %0688 W23 1000 0500 0625 %0689 W24 1000 0500 0750 %0690 W25 1000 0500 0875 %0691 W26 1000 0500 1000 %0692 W27 1000 0625 0000 %0693 X19 1000 0625 0125 %0694 X20 1000 0625 0250 %0695 X21 1000 0625 0375 %0696 X22 1000 0625 0500 %0697 X23 1000 0625 0625 %0698 X24 1000 0625 0750 %0699 X25 1000 0625 0875 %0700 X26 1000 0625 1000 %0701 X27 1000 0750 0000 %0702 Y19 1000 0750 0125 %0703 Y20 1000 0750 0250 %0704 Y21 1000 0750 0375 %0705 Y22 1000 0750 0500 %0706 Y23 1000 0750 0625 %0707 Y24 1000 0750 0750 %0708 Y25 1000 0750 0875 %0709 Y26 1000 0750 1000 %0710 Y27 1000 0875 0000 %0711 Z19 1000 0875 0125 %0712 Z20 1000 0875 0250 %0713 Z21 1000 0875 0375 %0714 Z22 1000 0875 0500 %0715 Z23 1000 0875 0625 %0716 Z24 1000 0875 0750 %0717 Z25 1000 0875 0875 %0718 Z26 1000 0875 1000 %0719 Z27 1000 1000 0000 %0720 a19 1000 1000 0125 %0721 a20 1000 1000 0250 %0722 a21 1000 1000 0375 %0723 a22 1000 1000 0500 %0724 a23 1000 1000 0625 %0725 a24 1000 1000 0750 %0726 a25 1000 1000 0875 %0727 a26 1000 1000 1000 %0728 a27 1000 1000 1000 %0729 b01 0875 1000 1000 %0730 b02 0750 1000 1000 %0731 b03 0625 1000 1000 %0732 b04 0500 1000 1000 %0733 b05 0375 1000 1000 %0734 b06 0250 1000 1000 %0735 b07 0125 1000 1000 %0736 b08 0000 1000 1000 %0737 b09 1000 0875 0875 %0738 c01 0875 0875 0875 %0739 c02 0750 0875 0875 %0740 c03 0625 0875 0875 %0741 c04 0500 0875 0875 %0742 c05 0375 0875 0875 %0743 c06 0250 0875 0875 %0744 c07 0125 0875 0875 %0745 c08 0000 0875 0875 %0746 c09 1000 0750 0750 %0747 d01 0875 0750 0750 %0748 d02 0750 0750 0750 %0749 d03 0625 0750 0750 %0750 d04 0500 0750 0750 %0751 d05 0375 0750 0750 %0752 d06 0250 0750 0750 %0753 d07 0125 0750 0750 %0754 d08 0000 0750 0750 %0755 d09 1000 0625 0625 %0756 e01 0875 0625 0625 %0757 e02 0750 0625 0625 %0758 e03 0625 0625 0625 %0759 e04 0500 0625 0625 %0760 e05 0375 0625 0625 %0761 e06 0250 0625 0625 %0762 e07 0125 0625 0625 %0763 e08 0000 0625 0625 %0764 e09 1000 0500 0500 %0765 f01 0875 0500 0500 %0766 f02 0750 0500 0500 %0767 f03 0625 0500 0500 %0768 f04 0500 0500 0500 %0769 f05 0375 0500 0500 %0770 f06 0250 0500 0500 %0771 f07 0125 0500 0500 %0772 f08 0000 0500 0500 %0773 f09 1000 0375 0375 %0774 g01 0875 0375 0375 %0775 g02 0750 0375 0375 %0776 g03 0625 0375 0375 %0777 g04 0500 0375 0375 %0778 g05 0375 0375 0375 %0779 g06 0250 0375 0375 %0780 g07 0125 0375 0375 %0781 g08 0000 0375 0375 %0782 g09 1000 0250 0250 %0783 h01 0875 0250 0250 %0784 h02 0750 0250 0250 %0785 h03 0625 0250 0250 %0786 h04 0500 0250 0250 %0787 h05 0375 0250 0250 %0788 h06 0250 0250 0250 %0789 h07 0125 0250 0250 %0790 h08 0000 0250 0250 %0791 h09 1000 0125 0125 %0792 i01 0875 0125 0125 %0793 i02 0750 0125 0125 %0794 i03 0625 0125 0125 %0795 i04 0500 0125 0125 %0796 i05 0375 0125 0125 %0797 i06 0250 0125 0125 %0798 i07 0125 0125 0125 %0799 i08 0000 0125 0125 %0800 i09 1000 0000 0000 %0801 j01 0875 0000 0000 %0802 j02 0750 0000 0000 %0803 j03 0625 0000 0000 %0804 j04 0500 0000 0000 %0805 j05 0375 0000 0000 %0806 j06 0250 0000 0000 %0807 j07 0125 0000 0000 %0808 j08 0000 0000 0000 %0809 j09 1000 1000 1000 %0810 b10 0875 0875 1000 %0811 b11 0750 0750 1000 %0812 b12 0625 0625 1000 %0813 b13 0500 0500 1000 %0814 b14 0375 0375 1000 %0815 b15 0250 0250 1000 %0816 b16 0125 0125 1000 %0817 b17 0000 0000 1000 %0818 b18 1000 1000 0875 %0819 c10 0875 0875 0875 %0820 c11 0750 0750 0875 %0821 c12 0625 0625 0875 %0822 c13 0500 0500 0875 %0823 c14 0375 0375 0875 %0824 c15 0250 0250 0875 %0825 c16 0125 0125 0875 %0826 c17 0000 0000 0875 %0827 c18 1000 1000 0750 %0828 d10 0875 0875 0750 %0829 d11 0750 0750 0750 %0830 d12 0625 0625 0750 %0831 d13 0500 0500 0750 %0832 d14 0375 0375 0750 %0833 d15 0250 0250 0750 %0834 d16 0125 0125 0750 %0835 d17 0000 0000 0750 %0836 d18 1000 1000 0625 %0837 e10 0875 0875 0625 %0838 e11 0750 0750 0625 %0839 e12 0625 0625 0625 %0840 e13 0500 0500 0625 %0841 e14 0375 0375 0625 %0842 e15 0250 0250 0625 %0843 e16 0125 0125 0625 %0844 e17 0000 0000 0625 %0845 e18 1000 1000 0500 %0846 f10 0875 0875 0500 %0847 f11 0750 0750 0500 %0848 f12 0625 0625 0500 %0849 f13 0500 0500 0500 %0850 f14 0375 0375 0500 %0851 f15 0250 0250 0500 %0852 f16 0125 0125 0500 %0853 f17 0000 0000 0500 %0854 f18 1000 1000 0375 %0855 g10 0875 0875 0375 %0856 g11 0750 0750 0375 %0857 g12 0625 0625 0375 %0858 g13 0500 0500 0375 %0859 g14 0375 0375 0375 %0860 g15 0250 0250 0375 %0861 g16 0125 0125 0375 %0862 g17 0000 0000 0375 %0863 g18 1000 1000 0250 %0864 h10 0875 0875 0250 %0865 h11 0750 0750 0250 %0866 h12 0625 0625 0250 %0867 h13 0500 0500 0250 %0868 h14 0375 0375 0250 %0869 h15 0250 0250 0250 %0870 h16 0125 0125 0250 %0871 h17 0000 0000 0250 %0872 h18 1000 1000 0125 %0873 i10 0875 0875 0125 %0874 i11 0750 0750 0125 %0875 i12 0625 0625 0125 %0876 i13 0500 0500 0125 %0877 i14 0375 0375 0125 %0878 i15 0250 0250 0125 %0879 i16 0125 0125 0125 %0880 i17 0000 0000 0125 %0881 i18 1000 1000 0000 %0882 j10 0875 0875 0000 %0883 j11 0750 0750 0000 %0884 j12 0625 0625 0000 %0885 j13 0500 0500 0000 %0886 j14 0375 0375 0000 %0887 j15 0250 0250 0000 %0888 j16 0125 0125 0000 %0889 j17 0000 0000 0000 %0890 j18 1000 1000 1000 %0891 b19 1000 0875 1000 %0892 b20 1000 0750 1000 %0893 b21 1000 0625 1000 %0894 b22 1000 0500 1000 %0895 b23 1000 0375 1000 %0896 b24 1000 0250 1000 %0897 b25 1000 0125 1000 %0898 b26 1000 0000 1000 %0899 b27 0875 1000 0875 %0900 c19 0875 0875 0875 %0901 c20 0875 0750 0875 %0902 c21 0875 0625 0875 %0903 c22 0875 0500 0875 %0904 c23 0875 0375 0875 %0905 c24 0875 0250 0875 %0906 c25 0875 0125 0875 %0907 c26 0875 0000 0875 %0908 c27 0750 1000 0750 %0909 d19 0750 0875 0750 %0910 d20 0750 0750 0750 %0911 d21 0750 0625 0750 %0912 d22 0750 0500 0750 %0913 d23 0750 0375 0750 %0914 d24 0750 0250 0750 %0915 d25 0750 0125 0750 %0916 d26 0750 0000 0750 %0917 d27 0625 1000 0625 %0918 e19 0625 0875 0625 %0919 e20 0625 0750 0625 %0920 e21 0625 0625 0625 %0921 e22 0625 0500 0625 %0922 e23 0625 0375 0625 %0923 e24 0625 0250 0625 %0924 e25 0625 0125 0625 %0925 e26 0625 0000 0625 %0926 e27 0500 1000 0500 %0927 f19 0500 0875 0500 %0928 f20 0500 0750 0500 %0929 f21 0500 0625 0500 %0930 f22 0500 0500 0500 %0931 f23 0500 0375 0500 %0932 f24 0500 0250 0500 %0933 f25 0500 0125 0500 %0934 f26 0500 0000 0500 %0935 f27 0375 1000 0375 %0936 g19 0375 0875 0375 %0937 g20 0375 0750 0375 %0938 g21 0375 0625 0375 %0939 g22 0375 0500 0375 %0940 g23 0375 0375 0375 %0941 g24 0375 0250 0375 %0942 g25 0375 0125 0375 %0943 g26 0375 0000 0375 %0944 g27 0250 1000 0250 %0945 h19 0250 0875 0250 %0946 h20 0250 0750 0250 %0947 h21 0250 0625 0250 %0948 h22 0250 0500 0250 %0949 h23 0250 0375 0250 %0950 h24 0250 0250 0250 %0951 h25 0250 0125 0250 %0952 h26 0250 0000 0250 %0953 h27 0125 1000 0125 %0954 i19 0125 0875 0125 %0955 i20 0125 0750 0125 %0956 i21 0125 0625 0125 %0957 i22 0125 0500 0125 %0958 i23 0125 0375 0125 %0959 i24 0125 0250 0125 %0960 i25 0125 0125 0125 %0961 i26 0125 0000 0125 %0962 i27 0000 1000 0000 %0963 j19 0000 0875 0000 %0964 j20 0000 0750 0000 %0965 j21 0000 0625 0000 %0966 j22 0000 0500 0000 %0967 j23 0000 0375 0000 %0968 j24 0000 0250 0000 %0969 j25 0000 0125 0000 %0970 j26 0000 0000 0000 %0971 j27 0000 0000 0000 %0972 k01 0125 0125 0125 %0973 k02 0250 0250 0250 %0974 k03 0375 0375 0375 %0975 k04 0500 0500 0500 %0976 k05 0625 0625 0625 %0977 k06 0750 0750 0750 %0978 k07 0875 0875 0875 %0979 k08 1000 1000 1000 %0980 k09 0000 0000 0000 %0981 l01 0125 0125 0125 %0982 l02 0250 0250 0250 %0983 l03 0375 0375 0375 %0984 l04 0500 0500 0500 %0985 l05 0625 0625 0625 %0986 l06 0750 0750 0750 %0987 l07 0875 0875 0875 %0988 l08 1000 1000 1000 %0989 l09 0000 0000 0000 %0990 m01 0125 0125 0125 %0991 m02 0250 0250 0250 %0992 m03 0375 0375 0375 %0993 m04 0500 0500 0500 %0994 m05 0625 0625 0625 %0995 m06 0750 0750 0750 %0996 m07 0875 0875 0875 %0997 m08 1000 1000 1000 %0998 m09 0000 0000 0000 %0999 n01 0125 0125 0125 %1000 n02 0250 0250 0250 %1001 n03 0375 0375 0375 %1002 n04 0500 0500 0500 %1003 n05 0625 0625 0625 %1004 n06 0750 0750 0750 %1005 n07 0875 0875 0875 %1006 n08 1000 1000 1000 %1007 n09 0000 0000 0000 %1008 k10 0066 0066 0066 %1009 k11 0133 0133 0133 %1010 k12 0200 0200 0200 %1011 k13 0266 0266 0266 %1012 k14 0333 0333 0333 %1013 k15 0400 0400 0400 %1014 k16 0466 0466 0466 %1015 k17 0533 0533 0533 %1016 k18 0600 0600 0600 %1017 k19 0666 0666 0666 %1018 k20 0734 0734 0734 %1019 k21 0800 0800 0800 %1020 k22 0866 0866 0866 %1021 k23 0933 0933 0933 %1022 k24 1000 1000 1000 %1023 k25 0000 0000 0000 %1024 l10 0066 0066 0066 %1025 l11 0133 0133 0133 %1026 l12 0200 0200 0200 %1027 l13 0266 0266 0266 %1028 l14 0333 0333 0333 %1029 l15 0400 0400 0400 %1030 l16 0466 0466 0466 %1031 l17 0533 0533 0533 %1032 l18 0600 0600 0600 %1033 l19 0666 0666 0666 %1034 l20 0734 0734 0734 %1035 l21 0800 0800 0800 %1036 l22 0866 0866 0866 %1037 l23 0933 0933 0933 %1038 l24 1000 1000 1000 %1039 l25 0000 0000 0000 %1040 m10 0066 0066 0066 %1041 m11 0133 0133 0133 %1042 m12 0200 0200 0200 %1043 m13 0266 0266 0266 %1044 m14 0333 0333 0333 %1045 m15 0400 0400 0400 %1046 m16 0466 0466 0466 %1047 m17 0533 0533 0533 %1048 m18 0600 0600 0600 %1049 m19 0666 0666 0666 %1050 m20 0734 0734 0734 %1051 m21 0800 0800 0800 %1052 m22 0866 0866 0866 %1053 m23 0933 0933 0933 %1054 m24 1000 1000 1000 %1055 m25 0000 0000 0000 %1056 n10 0066 0066 0066 %1057 n11 0133 0133 0133 %1058 n12 0200 0200 0200 %1059 n13 0266 0266 0266 %1060 n14 0333 0333 0333 %1061 n15 0400 0400 0400 %1062 n16 0466 0466 0466 %1063 n17 0533 0533 0533 %1064 n18 0600 0600 0600 %1065 n19 0666 0666 0666 %1066 n20 0734 0734 0734 %1067 n21 0800 0800 0800 %1068 n22 0866 0866 0866 %1069 n23 0933 0933 0933 %1070 n24 1000 1000 1000 %1071 n25 0000 0000 0000 %1072 k26 1000 1000 1000 %1073 k27 1000 0000 0000 %1074 l26 0000 1000 1000 %1075 l27 1000 1000 0000 %1076 m26 0000 0000 1000 %1077 m27 0000 1000 0000 %1078 n26 1000 0000 1000 %1079 n27 0000 1000 0000 %1078 nx6 1000 0000 1000 %1079 nx7 ] def %END RGB0_F %***************************************************************** %} def %END PROC_SPEC_IOF.PS %END COLDATA-SRGB_00.PS %**************************************************** %END 'TE01'OUTLIN1X.PS Other procedures for sRGB output linearization %**************************************************** %BEG TE01/OUTLIN1Y.PS Emty 20101101 %END TE01/OUTLIN1Y.PS Emty 20101101 /BeginEPSF {% def % Prepare for EPS file /b4_Inc_state save def % Save state for cleanup /dict_count countdictstack def /op_count count 1 sub def % Count objects on op stack userdict begin % Make userdict current dict /showpage {} def 0 setgray 0 setlinecap 1 setlinewidth 0 setlinejoin 10 setmiterlimit [] 0 setdash newpath /languagelevel where % If level not equal to 1 then {pop languagelevel where % If level not equal to 1 then 1 ne {false setstrokeadjust false setoverprint } if } if } bind def /EndEPSF {% def % End for EPS file count op_count sub {pop} repeat countdictstack dict_count sub {end} repeat % Clean up dict stack b4_Inc_state restore } bind def /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def % !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-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 /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-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 %ANFA CMYKDEF %CMYKDEA0 (A0=Standard-Drucker-CMYKDEF) 15.3.97 /tzac [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzam [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzay [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzan [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tza0 [0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000] def /tza1 [1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000] def %ENDE CMYKD /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 /colrecfiLAB* %x y width heigth LAB* { setcolor rec fill} bind def /colrecstLAB* %x y width heigth LAB* { setcolor rec stroke} bind def /colrecficmyn* %x y width heigth cmy0* or 000n* { setcmykcolor rec fill} bind def /colrecstcmyn* %x y width heigth cmy0* or 000n* { setcmykcolor rec stroke} bind def /colrecfiw* %x y width heigth w* { setgray rec fill} bind def /colrecstw* %x y width heigth w* { setgray rec stroke} bind def /colrecfiolv* %x y width heigth olv* { setrgbcolor rec fill} bind def /colrecstolv* %x y width heigth olv* { setrgbcolor rec stroke} bind def /tzocmy0* {0.0 1.0 1.0 0.0} bind def %Reproduction colours /tzlcmy0* {1.0 0.0 1.0 0.0} bind def %cmyn* setcmykcolor /tzvcmy0* {1.0 1.0 0.0 0.0} bind def /tzccmy0* {1.0 0.0 0.0 0.0} bind def /tzmcmy0* {0.0 1.0 0.0 0.0} bind def /tzycmy0* {0.0 0.0 1.0 0.0} bind def /tzoolv* {1.0 0.0 0.0} bind def %Reproduction colours /tzlolv* {0.0 1.0 0.0} bind def %olv* setrgbcolor /tzvolv* {0.0 0.0 1.0} bind def /tzcolv* {0.0 1.0 1.0} bind def /tzmolv* {1.0 0.0 1.0} bind def /tzyolv* {1.0 1.0 0.0} bind def /tzoLAB* [53.34 72.46 50.66] def %Reproduction colours /tzlLAB* [84.93 -79.83 74.80] def %LAB* setcolor /tzvLAB* [32.20 24.88 -37.89] def /tzcLAB* [88.10 -44.88 -13.36] def /tzmLAB* [59.66 90.32 -19.65] def /tzyLAB* [93.76 -20.24 85.93] def /tzncmy0* {1.00 1.00 1.00 0.00} bind def %grey series /tzdcmy0* {0.75 0.75 0.75 0.00} bind def %cmy0* setcmykcolor /tzzcmy0* {0.50 0.50 0.50 0.00} bind def /tzhcmy0* {0.25 0.25 0.25 0.00} bind def /tzwcmy0* {0.00 0.00 0.00 0.00} bind def /tzn000n* {0.00 0.00 0.00 1.00} bind def %grey series 000n* /tzd000n* {0.00 0.00 0.00 0.75} bind def %000n* setcmykcolor /tzz000n* {0.00 0.00 0.00 0.50} bind def /tzh000n* {0.00 0.00 0.00 0.25} bind def /tzw000n* {0.00 0.00 0.00 0.00} bind def /tznw* {0.00} bind def %grey series /tzdw* {0.25} bind def %w* setgray /tzzw* {0.50} bind def /tzhw* {0.75} bind def /tzww* {1.00} bind def /tznolv* {0.00 0.00 0.00} bind def %grey series /tzdolv* {0.25 0.25 0.25} bind def %olv* setrgbcolor /tzzolv* {0.50 0.50 0.50} bind def /tzholv* {0.75 0.75 0.75} bind def /tzwolv* {1.00 1.00 1.00} bind def /tznLAB* [18.01 0.00 0.00] def %grey series /tzdLAB* [37.36 0.00 0.00] def %LAB* setcolor /tzzLAB* [56.71 0.00 0.00] def /tzhLAB* [76.06 0.00 0.00] def /tzwLAB* [95.41 0.00 0.00] def /tfn {0 setgray} bind def /tfw {1 setgray} bind def /A4quer {598 0 translate 90 rotate} def /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 7 string cvs show} def %%EndProlog %*********************************************************** %%BeginPageSetup /#copies 1 def %A4querF 1.0 1.0 scale /pgsave save def %%EndPageSetup /SS$ [(G) (E) (S) (F) (I) (J) (M)] def /SC$ [(N) (F) (S) (D) (T) (E) (C)] def /SX$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)] def /SY$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)] def % 0 1 2 3 4 5 % 6 7 8 /EX$ [(A.TXT /.PS) (B.BMP /.PS) (G.GIF /.PS) (H.HTM /.PS) (I.HTM /.PS) (J.JPE /.PS) (P.PDF /.PS) (T.TIF /.PS)] def /EY$ [(A.DAT) (B.DAT) (G.DAT) (H.DAT) (I.DAT) (J.DAT) (P.DAT) (T.DAT)] def %******************************************************************* /lanind1f 01 def /lanind2f 01 def /laninddf 01 def /colorm1f 00 def /colorm2f 00 def /colormdf 01 def /deintp1f 00 def /deintp2f 00 def /deintpdf 01 def /xcolor1f 00 def /xcolor2f 00 def /xcolordf 01 def /xchart1f 00 def /xchart2f 00 def /xchartdf 01 def /xchart3f 01 def /xchart4f 00 def /xchart5f 00 def /pchart1f 03 def /pchart2f 03 def /pchartdf 01 def %=3 for sRGB, Lr=0 /colsep1f 00 def /colsep2f 00 def /colsepdf 01 def /pmetam1f 00 def /pmetam2f 00 def /pmetamdf 01 def %/lanindf lanind1f def % /lanindf lanind1f def %lanind1f laninddf lanind2f {/lanindf exch def %/colormf colorm1f def % /colormf colorm1f def %colorm1f colormdf colorm2f {/colormf exch def %/deintpf deintp1f def % /deintpf deintp1f def %deintp1f deintpdf deintp2f {/deintpf exch def %/xcolorf xcolor1f def % /xcolorf xcolor1f def %xcolor1f xcolordf xcolor2f {/xcolorf exch def %/xchartf xchart1f def % /xchartf xchart1f def %xchart1f xchartdf xchart2f {/xchartf exch def %/pchartf pchart1f def % /pchartf pchart1f def %/pchartf pchart1f def %pchart1f pchartdf pchart2f {/pchartf exch def %/colsepf colsep1f def % /colsepf colsep1f def %colsep1f colsepdf colsep2f {/colsepf exch def /lanind lanindf def /colorm colormf def /deintp deintpf def /xcolor xcolorf def /xchart xchartf def /xchartm xchart2f xchart1f sub 1 add def /xchart3 xchart3f def /xchart4 xchart4f def /pchart pchartf def /colsep colsepf def %/pmetamf pmetam1f def % /pmetamf pmetam1f def %pmetam1f pmetamdf pmetam2f {/pmetamf exch def /pmetam pmetamf def %************************************************************* /setgray {sfgray} bind def /setrgbcolor {sfrgbcolor} bind def /setcmykcolor {sfcmykcolor} bind def %72 90 translate %0.01 MM dup scale %0 0 moveto 24600 0 rlineto 0 17220 rlineto % -24600 0 rlineto closepath stroke %000 -240 moveto %240 /Times-ISOL1 FS %lanindf cvishow (-) show %colormf cvishow %deintpf cvishow %xcolorf cvishow %xchartf cvishow %pchartf cvishow %colsepf cvishow (-F) show pmetamf cvishow %grestore gsave /GSS$ SS$ lanind get def /GSC$ SC$ colorm get def /GSX$ SX$ xcolor xcolor 16 idiv 16 mul sub get def /GSY$ SY$ xchart xchart 16 idiv 16 mul sub get def /GEX$ EX$ 6 get def /GEY$ EY$ 6 get def %01 %02 %03 %04 %05 %06 %07 %08 %09 %10 %11 %12 %13 %14 %15 %16 %17 %18 %gsave BeginEPSF 28 MM 197 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto 1 1 scale -77 -91 translate %%BeginDocument: Bild 10 %line 329 %%EndDocument EndEPSF grestore gsave BeginEPSF 28 MM 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto 1 1 scale -77 -91 translate %%BeginDocument: Bild 11 %line 339 %!PS-Adobe-3.0 EPSF-3.0 TE010-1 %%BoundingBox: 70 83 226 206 %START PDFDE011.EPS /pdfmark01 where {pop} {userdict /pdfmark01 /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/TE01/) /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@me.com) /CreationDate (D:2013060112000) /ModDate (D:2013060112000) /DOCINFO pdfmark01 [ /View [ /FitB ] /DOCVIEW pdfmark01 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def % !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-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 /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-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 /SK {250 1 sub /Symbol FS} bind def /SM {300 1 sub /Symbol FS} bind def /SG {350 1 sub /Symbol FS} bind def /tolvfcol %Farbkreis-Reihenfolge [ (000) (F00) (FF0) (0F0) (0FF) (00F) (F0F) (FFF) (777) (700) (770) (070) (077) (007) (707) (F07) %15=R (333) (F77) (FF7) (7F7) (7FF) (77F) (F7F) (07F) %23=B (BBB) (F70) (7F0) (0F7) (07F) (70F) (F07) (0F7) %31=G ] def /tcmyfcol %Farbkreis-Reihenfolge [ (FFF) (0FF) (00F) (F0F) (F00) (FF0) (0F0) (000) (888) (8FF) (88F) (F8F) (F88) (FF8) (8F8) (0F8) %15=R (CCC) (088) (008) (808) (800) (880) (080) (F80) %23=B (444) (08F) (80F) (F08) (F80) (8F0) (0F8) (F08) %31=G ] def /tcmykfcol %Farbkreis-Reihenfolge [ (000F) (0FF0) (00F0) (F0F0) (F000) (FF00) (0F00) (0000) (0008) (0FF8) (00F8) (F0F8) (F008) (FF08) (0F08) (0F80) %15=R (000C) (0880) (0080) (8080) (8000) (8800) (0800) (F800) %23=B (0004) (0F80) (80F0) (F080) (F800) (8F00) (0F80) (F080) %31=G ] def /tolvfcols %Farbkreis-Reihenfolge [ (000*) (F00*) (FF0*) (0F0*) (0FF*) (00F*) (F0F*) (FFF*) (777*) (700*) (770*) (070*) (077*) (007*) (707*) (F07*) %15=R (333*) (F77*) (FF7*) (7F7*) (7FF*) (77F*) (F7F*) (07F*) %23=B (BBB*) (F70*) (7F0*) (0F7*) (07F*) (70F*) (F07*) (0F7*) %31=G ] def /tcmyfcols %Farbkreis-Reihenfolge [ (FFF*) (0FF*) (00F*) (F0F*) (F00*) (FF0*) (0F0*) (000*) (888*) (8FF*) (88F*) (F8F*) (F88*) (FF8*) (8F8*) (0F8*) %15=R (CCC*) (088*) (008*) (808*) (800*) (880*) (080*) (F80*) %23=B (444*) (08F*) (80F*) (F08*) (F80*) (8F0*) (0F8*) (F08*) %31=G ] def /tcmykfcols %Farbkreis-Reihenfolge [ (000F*) (0FF0*) (00F0*) (F0F0*) (F000*) (FF00*) (0F00*) (0000*) (0008*) (0FF8*) (00F8*) (F0F8*) (F008*) (FF08*) (0F08*) (0F80*) %15=R (000C*) (0880*) (0080*) (8080*) (8000*) (8800*) (0800*) (F800*) %23=B (0004*) (0F80*) (80F0*) (F080*) (F800*) (8F00*) (0F80*) (F080*) %31=G ] def /fcolors %CMYN 32 Testfarben Nr. 0 bis 31; Farbkreis-Reihenfolge [{0.0 0.0 0.0 1.0} {0.0 1.0 1.0 0.0} {0.0 0.0 1.0 0.0} {1.0 0.0 1.0 0.0} {1.0 0.0 0.0 0.0} {1.0 1.0 0.0 0.0} {0.0 1.0 0.0 0.0} {0.0 0.0 0.0 0.0} {0.0 0.0 0.0 0.5} {0.0 1.0 1.0 0.5} {0.0 0.0 1.0 0.5} {1.0 0.0 1.0 0.5} {1.0 0.0 0.0 0.5} {1.0 1.0 0.0 0.5} {0.0 1.0 0.0 0.5} {0.0 1.0 0.5 0.0} {0.0 0.0 0.0 0.75} {0.0 0.5 0.5 0.0} {0.0 0.0 0.5 0.0} {0.5 0.0 0.5 0.0} {0.5 0.0 0.0 0.0} {0.5 0.5 0.0 0.0} {0.0 0.5 0.0 0.0} {1.0 0.5 0.0 0.0} {0.0 0.0 0.0 0.25} {0.0 0.5 1.0 0.0} {0.5 0.0 1.0 0.0} {1.0 0.0 0.5 0.0} {1.0 0.5 0.0 0.0} {0.5 1.0 0.0 0.0} {0.0 1.0 0.5 0.0} {1.0 0.0 0.5 0.0} ] def /fak 0.5 def /Far %Farbkreis-Reihenfolge [ 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %R 16 17 18 19 20 21 22 23 %B 24 25 26 27 28 29 30 31 %G ] def /cFar %Kompensativ-Farbkreis-Reihenfolge [ 8 4 5 6 1 2 3 0 0 20 21 22 17 18 19 31 %G 24 12 13 14 9 10 11 2 %J 16 28 29 30 25 26 27 15 %R ] def /Btx %Farbkreis- -> %Btx-Reihenfolge [ 0 1 3 2 5 6 4 7 8 9 11 10 13 14 12 15 %R 16 17 19 18 21 22 20 23 %B 24 25 26 27 28 29 30 31 %G ] def /cBtx %Farbkreis- -> %Kompensativ-Btx-Reihenfolge [ 7 4 6 5 2 3 1 0 8 20 22 21 18 19 17 31 %G 24 12 14 13 10 11 9 2 %J 16 25 26 27 28 29 30 15 %R ] def %XCHA01.PS BEG /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfi %x y width heigth c m y k {setcmyk_olvcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmyk_olvcolor rec stroke} bind def /rem %x, y width heigth {/heigth exch 0.5 mul def /width exch 0.5 mul def /yleftb exch heigth 0.5 mul add def /xleftb exch width 0.5 mul add def xleftb yleftb moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colremfi %x y width heigth c m y k {setcmykcolor rem fill} bind def /colremst %x y width heigth c m y k {setcmykcolor rem stroke} bind def /tzr {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzg {1.0 0.0 1.0 0.0} bind def /tzb {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tfr {0.0 1.0 1.0 0.0 setcmyk_olvcolor} bind def %Reproduktionsfarben /tfg {1.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def /tfb {1.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def /tfc {1.0 0.0 0.0 0.0 setcmyk_olvcolor} bind def /tfm {0.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def /tfy {0.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def /tfn {0.0 0.0 0.0 1.00 setcmyk_olvcolor} bind def %Graureihe /tfd {0.0 0.0 0.0 0.75 setcmyk_olvcolor} bind def /tfz {0.0 0.0 0.0 0.50 setcmyk_olvcolor} bind def /tfh {0.0 0.0 0.0 0.25 setcmyk_olvcolor} bind def /tfw {0.0 0.0 0.0 0.00 setcmyk_olvcolor} bind def %%EndProlog gsave /lanind 1 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showea {1 lanind le {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 1 def /lanind2 1 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 3 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1 xchart 0 eq {/Txx (-) def /Fxx (-) def} if %always independent of intended output 5 /Times-ISOL1 FS /cvishow {cvi 6 string cvs show} def 75 85 moveto lanind cvishow (-) show colorm cvishow deintp cvishow xcolor cvishow xchart cvishow pchart cvishow colsep cvishow (-L) show pmetam cvishow gsave %XCHA01.PS END 5 /Times-ISOL1 FS 175 85 moveto (TE010-1) show xchart 0 eq {(N) show} {deintp colorm 2 mul add cvishow} ifelse (, B4_54) show % ( XG321-5, B8931_1, E8241-5, B4_54_1, N=4_54_1) show 72 90 translate 0.01 MM dup scale 30 setlinewidth 0.0 0.0 0.0 0.5 setcmykcolor 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath fill /FMC 1 def %M=chromatic moment (1), chroma (2) /FIS 2 def %I=spectral colours (1), S=surface colours (2) 050 3725 moveto TBM tfw %(log ) show (B) TBIM tfb show (R) TBIM tfr show (G) TBIM tfg show (Y) TBIM tfy show TBIM tfw lanind 2 ne {%lanind#2 FMC 1 eq {(\255I) show} {(\255(I+D))} ifelse } if %lanind#2 TBM tfw (\255Impulse/s f\374r) showde %0TE010-1 00541 (\255impluses/s for) showen %1TE010-1 00541 TBK (\255Senales incremento para) showes %2TE010-1 00541 TBM (\255impulses/s pour) showfr %3TE010-1 00541 (\255impulses/s per) showit %4TE010-1 00541 (\255impulses/s for) showjp %5TE010-1 00541 FIS 1 eq { ( Spektralfarben) showde %0TE010-1 01541 ( spectral colours) showen %1TE010-1 01541 TBK ( spectrales de color) showes %2TE010-1 01541 TBM ( couleurs spectrales) showfr %3TE010-1 01541 ( colori spettrali) showit %4TE010-1 01541 ( spectral colours) showjp %5TE010-1 01541 } { ( K\366rperfarben) showde %0TE010-1 02541 ( surface colours) showen %1TE010-1 02541 TBK ( objectos de color) showes %2TE010-1 02541 TBM ( couleurs surface) showfr %3TE010-1 02541 ( superficie colora) showit %4TE010-1 02541 ( surface colours) showjp %5TE010-1 02541 } ifelse tfw 550 400 translate 50 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 3000 rlineto stroke FMC 1 eq {1000 0 moveto 2000 2000 rlineto stroke 1000 600 moveto TBIM (m) show TBM (=1) show} { 000 500 moveto 3000 1500 rlineto stroke 1000 600 moveto TBIM (m) show TBM (=1/2) show} ifelse TBM /tx [(-6) (-5) (-4) (-3) (-2) (-1) ( 0) ( 1)] def /ty [() () ( 0) (10) (20) (30) (40)] def %!x-Achse: 1 log-Einheiten = 500 Skalen-Einheiten 0 1 7 {/i exch def /ixt { -250 i 0500 mul add} def /ixl { 000 i 0500 mul add} def ixt -350 moveto tx i get exec show ixl 75 moveto 0 -150 rlineto stroke } for %!y-Achse: 1 log-Einheiten = 500 Skalen-Einheiten 0 1 6 {/i exch def /iyt {-100 i 0500 mul add} def /iyl { 000 i 0500 mul add} def -450 iyt moveto ty i get exec show -75 iyl moveto 150 0 rlineto stroke } for % 35 setlinewidth % tfn 000 2000 moveto 4000 0000 rlineto stroke tfw 50 setlinewidth tfr [100 100] 0 setdash 2000 0000 moveto 0000 2600 rlineto stroke tfw [ ] 0 setdash tfg [100 100] 0 setdash 2130 0000 moveto 0000 2700 rlineto stroke tfw [ ] 0 setdash 3600 -300 moveto (x) TBIM tfw show 0 -50 rmoveto TBM (r) show 10 50 rmoveto 20 0 rmoveto (=) TBM tfw show 20 0 rmoveto (log) TBM tfw show 30 0 rmoveto TBIM (L) show 0 -50 rmoveto TBM (r) show 10 50 rmoveto 1100 3000 moveto (-2) TBM tfw show 30 0 rmoveto (Q) TBIM tfw show 30 0 rmoveto ([1,0c \050) TBM tfw show (x) TBIM tfw show 20 -50 rmoveto TBM (r) show 10 50 rmoveto (+x) TBIM tfw show 20 -50 rmoveto TBM (p) show 10 50 rmoveto (\051]) TBM tfw show 2200 0600 moveto (\255x) TBIM tfw show 20 -50 rmoveto TBM (p) show 10 50 rmoveto (=) show FIS 1 eq {tfb (2) show tfw (,) show tfr (1,50) show tfw (,) show tfg (1,0) show tfw (,) show tfy (0,50) show tfw (,) show tfw (0) show } {tfb (1) show tfw (,) show tfr (0,75) show tfw (,) show tfg (0,5) show tfw (,) show tfy (0,25) show tfw (,) show tfw (0) show } ifelse 2750 0200 moveto (L) TBIM tfw show TBK 20 -80 rmoveto (w) show 50 80 rmoveto (= 100 cd) TBM tfw show 20 0 rmoveto (/) TBM tfw show 10 0 rmoveto (m) TBM tfw show TBK 20 100 rmoveto (2) show 0 -100 rmoveto 2300 1000 moveto TBM tfw FMC 1 eq {(I) TBIM tfw show} {(D+I) TBIM tfw show} ifelse TBM (\255Proze\337) showde %0TE010-1 03541 (\255process) showen %1TE010-1 03541 TBK (\255Proceso de incremento) showes %2TE010-1 03541 TBM (\255processus) showfr %3TE010-1 03541 (\255processo) showit %4TE010-1 03541 (\255process) showjp %5TE010-1 03541 /cvishow {cvi 10 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 /DLL 11 array def /DLU 11 array def /DLL [0.0001 0.001 0.01 0.1 1.0 10. 100. 1000. 10000. 100000. 1000000.] def /YFAK 4 array def /YFAK [ 1.0 1.8 3.2 5.6] def /DL 40 array def /DU 40 array def /XF 40 array def /R00KXU 40 array def /RLMKXU 40 array def %Achromatic /F0 40 array def %I-W /F1 40 array def %D-N /F2 40 array def %ID-NM /F3 40 array def %I-B /F4 40 array def %D-b /F5 40 array def %ID-BW /F6 40 array def %I-B /F7 40 array def %D-b /F8 40 array def %ID-BW %Blue /FB0 40 array def %I-W /FB1 40 array def %D-N /FB2 40 array def %ID-NM /FB3 40 array def %I-B /FB4 40 array def %D-b /FB5 40 array def %ID-BW /FB6 40 array def %I-B /FB7 40 array def %D-b /FB8 40 array def %ID-BW %yellow /FY0 40 array def %I-W /FY1 40 array def %D-N /FY2 40 array def %ID-NM /FY3 40 array def %I-Y /FY4 40 array def %D-y /FY5 40 array def %ID-YW /FY6 40 array def %I-Y /FY7 40 array def %D-y /FY8 40 array def %ID-YW %Green /FG0 40 array def %I-W /FG1 40 array def %D-N /FG2 40 array def %ID-NM /FG3 40 array def %I-G /FG4 40 array def %D-g /FG5 40 array def %ID-GW /FG6 40 array def %I-G /FG7 40 array def %D-g /FG8 40 array def %ID-GW %red /FR0 40 array def %I-W /FR1 40 array def %D-N /FR2 40 array def %ID-NM /FR3 40 array def %I-R /FR4 40 array def %D-r /FR5 40 array def %ID-RW /FR6 40 array def %I-R /FR7 40 array def %D-r /FR8 40 array def %ID-RW /IORX 2000 def /IORY 2000 def /MULX 500 def /MULY 500 def 50 setlinewidth tfn %0000 2000 moveto 4000 0 rlineto stroke 0 1 9 {/k exch def %k=0,9 DLU k DLL k get put 0 1 3 {/j exch def %j=0,3 /i k 4 mul j add def %i=0,39 DL i DLL k get YFAK j get mul put DU i DL i get put } for %j=0,3 } for %k=0,10 /W2 2. sqrt def /XP 0 def 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 38 {/i exch def %i=0,38 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %R00KXU=1+1/{1+W2*10**[c(x-u+p)]} R00KXU i 1. 1. W2 F01 mul add div 1. add put %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM} RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put j 0 eq {F0 i RLMKXU i get put} if j 1 eq {F1 i RLMKXU i get put} if j 1 eq {F2 i F0 i get F1 i get add put} if } for %i=0,38 /XFX0 0.0 def /F01X0 10 XFX0 XU sub XP add XC mul exp def /R00KXUX0 1. 1. W2 F01X0 mul add div 1. add def /RLMKXUX0 XL W2 log div R00KXUX0 log mul XM sub XQ mul def j 0 eq {/F0X0 RLMKXUX0 def} if j 1 eq {/F1X0 RLMKXUX0 def} if j 1 eq {/F2X0 F0X0 F1X0 add def} if } for %j=0,1 50 setlinewidth TBM 18 3 27 {/i exch def %i=21,3,27 /y20 {IORY F1 i get XP sub MULY mul add} bind def /x20 IORX 2 XP sub MULX mul add def tfn % i 21 eq i 27 eq or { 1300 i 18 sub 80 mul add y20 moveto 1800 0 rlineto stroke % } if 700 i 18 sub 80 mul add y20 050 sub moveto tfw FMC 1 eq {i 18 eq {(0,4%) show} if i 21 eq {( 2%) show} if i 24 eq {( 9%) show} if i 27 eq {(40%) show} if } if 3200 i 18 sub 80 mul add y20 050 sub moveto tfw FMC 1 eq {i 18 eq {(4%) show} if i 21 eq {(20%) show} if i 24 eq {(90%) show} if i 27 eq {(400%) show} if } if i 27 eq {050 y20 350 add moveto tfw (Relative Leuchtdichte:) showde %0TE010-1 04541 (relative luminance:) showen %1TE010-1 04541 (luminancia relativa:) showes %2TE010-1 04541 (brillance relatif:) showfr %3TE010-1 04541 (splendore relativo:) showit %4TE010-1 04541 (relative luminance:) showjp %5TE010-1 04541 } if } for %i=21,3,27 0 1 1 {/j exch def %j=0,1 j 0 eq {0 0 0 1 setcmykcolor [ ] 0 setdash} if %I j 1 eq {0 0 0 0 setcmykcolor [300 100] 0 setdash} if %I 0 3 36 {/i exch def %i=0,3,36 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY F1 i get MULY mul add} bind def /x21 {IORX XF i 1 add get MULX mul add} bind def /y21 {IORY F1 i 1 add get MULY mul add} bind def /x22 {IORX XF i 2 add get MULX mul add} bind def /y22 {IORY F1 i 2 add get MULY mul add} bind def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,3,36 stroke } for %j=0,1 18 3 27 {/i exch def %i=21,3,27 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY F1 i get XP sub MULY mul add} bind def i 18 eq {tfn x20 y20 75 0 360 arc fill} if i 21 eq {tfw x20 y20 85 0 360 arc fill tfz x20 y20 65 0 360 arc fill} if i 24 eq {tfw x20 y20 75 0 360 arc fill} if i 27 eq {tfw x20 y20 85 0 360 arc fill tfn x20 y20 15 0 360 arc fill} if } for %i=21,3,27 /XP 0.50 FIS div def %Y 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 38 {/i exch def %i=0,38 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %R00KXU=1+1/{1+W2*10**[c(x-u+p)]} R00KXU i 1. 1. W2 F01 mul add div 1. add put %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM} RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put j 0 eq {FY3 i RLMKXU i get put} if j 1 eq {FY4 i RLMKXU i get put} if j 1 eq {FY5 i FY3 i get FY4 i get add put} if } for %i=0,38 /XFX1 0.0 def /F01X1 10 XFX1 XU sub XP add XC mul exp def /R00KXUX1 1. 1. W2 F01X1 mul add div 1. add def /RLMKXUX1 XL W2 log div R00KXUX1 log mul XM sub XQ mul def j 0 eq {/F0X1 RLMKXUX1 def} if j 1 eq {/F1X1 RLMKXUX1 def} if j 1 eq {/F2X1 F0X1 F1X1 add def} if } for %j=0,1 50 setlinewidth 0 0 1 0 setcmykcolor [ ] 0 setdash %I-Y 0 3 36 {/i exch def %i=0,3,36 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY FY4 i get MULY mul add} bind def /x21 {IORX XF i 1 add get MULX mul add} bind def /y21 {IORY FY4 i 1 add get MULY mul add} bind def /x22 {IORX XF i 2 add get MULX mul add} bind def /y22 {IORY FY4 i 2 add get MULY mul add} bind def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,3,36 stroke 18 3 27 {/i exch def %i=21,3,27 /x20 {IORX XF i 2 FIS idiv sub get MULX mul add} bind def /y20 {IORY FY4 i 2 FIS idiv sub get MULY mul add} bind def newpath x20 y20 moveto ( ) show i 18 eq {tfn} if i 21 eq {0.0 0.0 1.0 0.5 setcmykcolor} if i 24 eq {0.0 0.0 1.0 0.0 setcmykcolor} if i 24 le {x20 y20 75 0 360 arc fill} if i 27 eq {tfw x20 y20 85 0 360 arc fill tfn x20 y20 15 0 360 arc fill} if } for %i=21,3,27 /XP 1.0 FIS div def %G 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 38 {/i exch def %i=0,38 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %R00KXU=1+1/{1+W2*10**[c(x-u+p)]} R00KXU i 1. 1. W2 F01 mul add div 1. add put %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM} RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put j 0 eq {FG3 i RLMKXU i get put} if j 1 eq {FG4 i RLMKXU i get put} if j 1 eq {FG5 i FG3 i get FG4 i get add put} if } for %i=0,38 /XFX1 0.0 def /F01X1 10 XFX1 XU sub XP add XC mul exp def /R00KXUX1 1. 1. W2 F01X1 mul add div 1. add def /RLMKXUX1 XL W2 log div R00KXUX1 log mul XM sub XQ mul def j 0 eq {/F0X1 RLMKXUX1 def} if j 1 eq {/F1X1 RLMKXUX1 def} if j 1 eq {/F2X1 F0X1 F1X1 add def} if } for %j=0,1 50 setlinewidth 1 0 1 0 setcmykcolor [ ] 0 setdash %I-G 0 3 36 {/i exch def %i=0,3,36 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY FG4 i get MULY mul add} bind def /x21 {IORX XF i 1 add get MULX mul add} bind def /y21 {IORY FG4 i 1 add get MULY mul add} bind def /x22 {IORX XF i 2 add get MULX mul add} bind def /y22 {IORY FG4 i 2 add get MULY mul add} bind def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,3,36 stroke 18 3 27 {/i exch def %i=21,3,27 /x20 {IORX XF i 4 FIS idiv sub get MULX mul add} bind def /y20 {IORY FG4 i 4 FIS idiv sub get MULY mul add} bind def newpath x20 y20 moveto ( ) show i 18 eq {tfn} if i 21 eq {1.0 0.0 1.0 0.5 setcmykcolor} if i 24 eq {1.0 0.0 1.0 0.0 setcmykcolor} if i 24 le {x20 y20 75 0 360 arc fill} if i 27 eq {tfw x20 y20 85 0 360 arc fill tfn x20 y20 15 0 360 arc fill} if } for %i=21,3,27 /XP 1.5 FIS div def %R 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 38 {/i exch def %i=0,38 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %R00KXU=1+1/{1+W2*10**[c(x-u+p)]} R00KXU i 1. 1. W2 F01 mul add div 1. add put %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM} RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put j 0 eq {FR3 i RLMKXU i get put} if j 1 eq {FR4 i RLMKXU i get put} if j 1 eq {FR5 i FR3 i get FR4 i get add put} if } for %i=0,38 /XFX1 0.0 def /F01X1 10 XFX1 XU sub XP add XC mul exp def /R00KXUX1 1. 1. W2 F01X1 mul add div 1. add def /RLMKXUX1 XL W2 log div R00KXUX1 log mul XM sub XQ mul def j 0 eq {/F0X1 RLMKXUX1 def} if j 1 eq {/F1X1 RLMKXUX1 def} if j 1 eq {/F2X1 F0X1 F1X1 add def} if } for %j=0,1 50 setlinewidth 0 1 1 0 setcmykcolor [ ] 0 setdash %I-R 0 3 36 {/i exch def %i=0,3,36 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY FR4 i get MULY mul add} bind def /x21 {IORX XF i 1 add get MULX mul add} bind def /y21 {IORY FR4 i 1 add get MULY mul add} bind def /x22 {IORX XF i 2 add get MULX mul add} bind def /y22 {IORY FR4 i 2 add get MULY mul add} bind def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,3,36 stroke 18 3 27 {/i exch def %i=21,3,27 /x20 {IORX XF i 6 FIS idiv sub get MULX mul add} bind def /y20 {IORY FR4 i 6 FIS idiv sub get MULY mul add} bind def newpath x20 y20 moveto ( ) show i 18 eq {tfn} if i 21 eq {0.0 1.0 1.0 0.5 setcmykcolor} if i 24 eq {0.0 1.0 1.0 0.0 setcmykcolor} if i 24 le {x20 y20 75 0 360 arc fill} if i 27 eq {tfw x20 y20 85 0 360 arc fill tfn x20 y20 15 0 360 arc fill} if } for %i=21,3,27 /XP 2 FIS idiv def %B 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 38 {/i exch def %i=0,38 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %R00KXU=1+1/{1+W2*10**[c(x-u+p)]} R00KXU i 1. 1. W2 F01 mul add div 1. add put %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM} RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put j 0 eq {FB3 i RLMKXU i get put} if j 1 eq {FB4 i RLMKXU i get put} if j 1 eq {FB5 i FB3 i get FB4 i get add put} if } for %i=0,38 /XFX1 0.0 def /F01X1 10 XFX1 XU sub XP add XC mul exp def /R00KXUX1 1. 1. W2 F01X1 mul add div 1. add def /RLMKXUX1 XL W2 log div R00KXUX1 log mul XM sub XQ mul def j 0 eq {/F0X1 RLMKXUX1 def} if j 1 eq {/F1X1 RLMKXUX1 def} if j 1 eq {/F2X1 F0X1 F1X1 add def} if } for %j=0,1 50 setlinewidth 1 1 0 0 setcmykcolor [ ] 0 setdash %I-B 0 3 36 {/i exch def %i=0,3,36 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY FB4 i get MULY mul add} bind def /x21 {IORX XF i 1 add get MULX mul add} bind def /y21 {IORY FB4 i 1 add get MULY mul add} bind def /x22 {IORX XF i 2 add get MULX mul add} bind def /y22 {IORY FB4 i 2 add get MULY mul add} bind def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,3,36 stroke 18 3 27 {/i exch def %i=21,3,27 /x20 {IORX XF i 8 FIS idiv sub get MULX mul add} bind def /y20 {IORY FB4 i 8 FIS idiv sub get MULY mul add} bind def newpath x20 y20 moveto ( ) show i 18 eq {tfn} if i 21 eq {1.0 1.0 0.0 0.5 setcmykcolor} if i 24 eq {1.0 1.0 0.0 0.0 setcmykcolor} if i 24 le {x20 y20 75 0 360 arc fill} if i 27 eq {tfw x20 y20 85 0 360 arc fill tfn x20 y20 15 0 360 arc fill} if } for %i=21,3,27 tfy [ ] 0 setdash 2250 1370 moveto 0000 0630 rlineto 0750 0000 rlineto stroke tfr 2270 1370 moveto -530 0000 rlineto stroke showpage grestore %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 12 %line 349 %!PS-Adobe-3.0 EPSF-3.0 TE010-2 %%BoundingBox: 70 83 226 206 %START PDFDE011.EPS /pdfmark02 where {pop} {userdict /pdfmark02 /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/TE01/) /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@me.com) /CreationDate (D:2013060112000) /ModDate (D:2013060112000) /DOCINFO pdfmark02 [ /View [ /FitB ] /DOCVIEW pdfmark02 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def % !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /TK {240 /Times-ISOL1 FS} bind def /TM {290 /Times-ISOL1 FS} bind def /TG {340 /Times-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIM {290 /TimesI-ISOL1 FS} bind def /TIG {340 /TimesI-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBM {290 /TimesB-ISOL1 FS} bind def /TBG {340 /TimesB-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIM {290 /TimesBI-ISOL1 FS} bind def /TBIG {340 /TimesBI-ISOL1 FS} bind def /SK {240 1 sub /Symbol FS} bind def /SM {290 1 sub /Symbol FS} bind def /SG {340 1 sub /Symbol FS} bind def /tolvfcol %Farbkreis-Reihenfolge [ (000) (F00) (FF0) (0F0) (0FF) (00F) (F0F) (FFF) (777) (700) (770) (070) (077) (007) (707) (F07) %15=R (333) (F77) (FF7) (7F7) (7FF) (77F) (F7F) (07F) %23=B (BBB) (F70) (7F0) (0F7) (07F) (70F) (F07) (0F7) %31=G ] def /tcmyfcol %Farbkreis-Reihenfolge [ (FFF) (0FF) (00F) (F0F) (F00) (FF0) (0F0) (000) (888) (8FF) (88F) (F8F) (F88) (FF8) (8F8) (0F8) %15=R (CCC) (088) (008) (808) (800) (880) (080) (F80) %23=B (444) (08F) (80F) (F08) (F80) (8F0) (0F8) (F08) %31=G ] def /tcmykfcol %Farbkreis-Reihenfolge [ (000F) (0FF0) (00F0) (F0F0) (F000) (FF00) (0F00) (0000) (0008) (0FF8) (00F8) (F0F8) (F008) (FF08) (0F08) (0F80) %15=R (000C) (0880) (0080) (8080) (8000) (8800) (0800) (F800) %23=B (0004) (0F80) (80F0) (F080) (F800) (8F00) (0F80) (F080) %31=G ] def /tolvfcols %Farbkreis-Reihenfolge [ (000*) (F00*) (FF0*) (0F0*) (0FF*) (00F*) (F0F*) (FFF*) (777*) (700*) (770*) (070*) (077*) (007*) (707*) (F07*) %15=R (333*) (F77*) (FF7*) (7F7*) (7FF*) (77F*) (F7F*) (07F*) %23=B (BBB*) (F70*) (7F0*) (0F7*) (07F*) (70F*) (F07*) (0F7*) %31=G ] def /tcmyfcols %Farbkreis-Reihenfolge [ (FFF*) (0FF*) (00F*) (F0F*) (F00*) (FF0*) (0F0*) (000*) (888*) (8FF*) (88F*) (F8F*) (F88*) (FF8*) (8F8*) (0F8*) %15=R (CCC*) (088*) (008*) (808*) (800*) (880*) (080*) (F80*) %23=B (444*) (08F*) (80F*) (F08*) (F80*) (8F0*) (0F8*) (F08*) %31=G ] def /tcmykfcols %Farbkreis-Reihenfolge [ (000F*) (0FF0*) (00F0*) (F0F0*) (F000*) (FF00*) (0F00*) (0000*) (0008*) (0FF8*) (00F8*) (F0F8*) (F008*) (FF08*) (0F08*) (0F80*) %15=R (000C*) (0880*) (0080*) (8080*) (8000*) (8800*) (0800*) (F800*) %23=B (0004*) (0F80*) (80F0*) (F080*) (F800*) (8F00*) (0F80*) (F080*) %31=G ] def /fcolors %CMYN 32 Testfarben Nr. 0 bis 31; Farbkreis-Reihenfolge [{0.0 0.0 0.0 1.0} {0.0 1.0 1.0 0.0} {0.0 0.0 1.0 0.0} {1.0 0.0 1.0 0.0} {1.0 0.0 0.0 0.0} {1.0 1.0 0.0 0.0} {0.0 1.0 0.0 0.0} {0.0 0.0 0.0 0.0} {0.0 0.0 0.0 0.5} {0.0 1.0 1.0 0.5} {0.0 0.0 1.0 0.5} {1.0 0.0 1.0 0.5} {1.0 0.0 0.0 0.5} {1.0 1.0 0.0 0.5} {0.0 1.0 0.0 0.5} {0.0 1.0 0.5 0.0} {0.0 0.0 0.0 0.75} {0.0 0.5 0.5 0.0} {0.0 0.0 0.5 0.0} {0.5 0.0 0.5 0.0} {0.5 0.0 0.0 0.0} {0.5 0.5 0.0 0.0} {0.0 0.5 0.0 0.0} {1.0 0.5 0.0 0.0} {0.0 0.0 0.0 0.25} {0.0 0.5 1.0 0.0} {0.5 0.0 1.0 0.0} {1.0 0.0 0.5 0.0} {1.0 0.5 0.0 0.0} {0.5 1.0 0.0 0.0} {0.0 1.0 0.5 0.0} {1.0 0.0 0.5 0.0} ] def /fak 0.5 def /Far %Farbkreis-Reihenfolge [ 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %R 16 17 18 19 20 21 22 23 %B 24 25 26 27 28 29 30 31 %G ] def /cFar %Kompensativ-Farbkreis-Reihenfolge [ 8 4 5 6 1 2 3 0 0 20 21 22 17 18 19 31 %G 24 12 13 14 9 10 11 2 %J 16 28 29 30 25 26 27 15 %R ] def /Btx %Farbkreis- -> %Btx-Reihenfolge [ 0 1 3 2 5 6 4 7 8 9 11 10 13 14 12 15 %R 16 17 19 18 21 22 20 23 %B 24 25 26 27 28 29 30 31 %G ] def /cBtx %Farbkreis- -> %Kompensativ-Btx-Reihenfolge [ 7 4 6 5 2 3 1 0 8 20 22 21 18 19 17 31 %G 24 12 14 13 10 11 9 2 %J 16 25 26 27 28 29 30 15 %R ] def %XCHA01.PS BEG /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfi %x y width heigth c m y k {setcmyk_olvcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmyk_olvcolor rec stroke} bind def /rem %x, y width heigth {/heigth exch 0.5 mul def /width exch 0.5 mul def /yleftb exch heigth 0.5 mul add def /xleftb exch width 0.5 mul add def xleftb yleftb moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colremfi %x y width heigth c m y k {setcmykcolor rem fill} bind def /colremst %x y width heigth c m y k {setcmykcolor rem stroke} bind def /tzr {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzg {1.0 0.0 1.0 0.0} bind def /tzb {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tfr {0.0 1.0 1.0 0.0 setcmyk_olvcolor} bind def %Reproduktionsfarben /tfg {1.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def /tfb {1.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def /tfc {1.0 0.0 0.0 0.0 setcmyk_olvcolor} bind def /tfm {0.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def /tfy {0.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def /tfn {0.0 0.0 0.0 1.00 setcmyk_olvcolor} bind def %Graureihe /tfd {0.0 0.0 0.0 0.75 setcmyk_olvcolor} bind def /tfz {0.0 0.0 0.0 0.50 setcmyk_olvcolor} bind def /tfh {0.0 0.0 0.0 0.25 setcmyk_olvcolor} bind def /tfw {0.0 0.0 0.0 0.00 setcmyk_olvcolor} bind def %%EndProlog gsave /lanind 1 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showea {1 lanind le {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 1 def /lanind2 1 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 3 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1 xchart 0 eq {/Txx (-) def /Fxx (-) def} if %always independent of intended output 5 /Times-ISOL1 FS /cvishow {cvi 6 string cvs show} def 75 85 moveto lanind cvishow (-) show colorm cvishow deintp cvishow xcolor cvishow xchart cvishow pchart cvishow colsep cvishow (-L) show pmetam cvishow gsave %XCHA01.PS END 5 /Times-ISOL1 FS 175 85 moveto (TE010-2) show xchart 0 eq {(N) show} {deintp colorm 2 mul add cvishow} ifelse % ( XG321-5, B8931_1, E8241-5, B4_54_1, N=4_54_1) show 72 90 translate 0.01 MM dup scale 30 setlinewidth 0.0 0.0 0.0 0.5 setcmykcolor 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath fill /FMC 1 def %M=chromatic moment (1), chroma (2) /FIS 2 def %I=spectral colours (1), S=surface colours (2) /tzv0 {1.00 1.00 0.00 0.0} bind def /tzv1 {0.75 0.75 0.00 0.0} bind def /tzv2 {0.50 0.50 0.00 0.0} bind def /tzv3 {0.25 0.25 0.00 0.0} bind def /tfv0 {tzv0 setcmykcolor} bind def /tfv1 {tzv1 setcmykcolor} bind def /tfv2 {tzv2 setcmykcolor} bind def /tfv3 {tzv3 setcmykcolor} bind def 050 3725 moveto TBM tfw %(log ) show TBIM tfb (B) show tfw (W) show /TBK1 {225 /TimesB-ISOL1 FS} bind def lanind 2 ne {%lanind#2 FMC 1 eq {(\255I) show} {(\255(I+D))} ifelse } if %lanind#2 TBM tfw (\255Impulse/s f\374r) showde %0TE010-2 00542 (\255impluses/s for) showen %1TE010-2 00542 TBK1 (\255Senales incremento para) showes %2TE010-2 00542 TBM (\255impulses/s pour) showfr %3TE010-2 00542 (\255impulses/s per) showit %4TE010-2 00542 (\255impulses/s for) showjp %5TE010-2 00542 FIS 1 eq { TBM ( Spektralfarben + Wei\337) showde %0TE010-2 01542 ( spectral colours + W) showen %1TE010-2 01542 TBK ( spectrales color + W) showes %2TE010-2 01542 TBM ( couleurs spectrales+W) showfr %3TE010-2 01542 ( colori spettrali + W) showit %4TE010-2 01542 ( spectral colours + W) showjp %5TE010-2 01542 } { ( blaue K\366rperfarben) showde %0TE010-2 02542 ( blue surface colours) showen %1TE010-2 02542 TBK ( objectos de color azules) showes %2TE010-2 02542 TBM ( couleur surface bleue) showfr %3TE010-2 02542 ( superficie blu colora) showit %4TE010-2 02542 ( blue surface colours) showjp %5TE010-2 02542 } ifelse tfw 550 400 translate 50 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 3000 rlineto stroke FMC 1 eq {1000 0 moveto 2000 2000 rlineto stroke 1000 600 moveto TBIM (m) show TBM (=1) show} { 000 500 moveto 3000 1500 rlineto stroke 1000 600 moveto TBIM (m) show TBM (=1/2) show} ifelse TBM /tx [(-6) (-5) (-4) (-3) (-2) (-1) ( 0) ( 1)] def /ty [() () ( 0) (10) (20) (30) (40)] def %!x-Achse: 1 log-Einheiten = 500 Skalen-Einheiten 0 1 7 {/i exch def /ixt { -250 i 0500 mul add} def /ixl { 000 i 0500 mul add} def ixt -350 moveto tx i get exec show ixl 75 moveto 0 -150 rlineto stroke } for %!y-Achse: 1 log-Einheiten = 500 Skalen-Einheiten 0 1 6 {/i exch def /iyt {-100 i 0500 mul add} def /iyl { 000 i 0500 mul add} def -450 iyt moveto ty i get exec show -75 iyl moveto 150 0 rlineto stroke } for % 35 setlinewidth % tfn 000 2000 moveto 4000 0000 rlineto stroke tfw 50 setlinewidth tfg [100 100] 0 setdash 2130 0000 moveto 0000 2600 rlineto stroke tfw [ ] 0 setdash tfr [100 100] 0 setdash 2000 0000 moveto 0000 2600 rlineto stroke tfw [ ] 0 setdash 3600 -300 moveto (x) TBIM tfw show 0 -50 rmoveto TBM (r) show 10 50 rmoveto 20 0 rmoveto (=) TBM tfw show 20 0 rmoveto (log) TBM tfw show 30 0 rmoveto TBIM (L) show 0 -50 rmoveto TBM (r) show 10 50 rmoveto 1100 3000 moveto (-2) TBM tfw show 30 0 rmoveto (Q) TBIM tfw show 30 0 rmoveto ([1,0c \050) TBM tfw show (x) TBIM tfw show 20 -50 rmoveto TBM (r) show 10 50 rmoveto (+x) TBIM tfw show 20 -50 rmoveto TBM (p) show 10 50 rmoveto (\051]) TBM tfw show 2200 0600 moveto (-x) TBIM tfw show 20 -50 rmoveto TBM (p) show 10 50 rmoveto (=) show FIS 1 eq {tfv0 (2) show tfw (,) show tfv1 (1,50) show tfw (,) show tfv2 (1,0) show tfw (,) show tfv3 (0,50) show tfw (,) show tfw (0) show } {tfv0 (1) show tfw (,) show tfv1 (0,75) show tfw (,) show tfv2 (0,5) show tfw (,) show tfv3 (0,25) show tfw (,) show tfw (0) show } ifelse 2750 0200 moveto (L) TBIM tfw show TBK 20 -80 rmoveto (w) show 50 80 rmoveto (= 100 cd) TBM tfw show 20 0 rmoveto (/) TBM tfw show 10 0 rmoveto (m) TBM tfw show TBK 20 100 rmoveto (2) show 0 -100 rmoveto 2300 1000 moveto TBM tfw FMC 1 eq {(I) TBIM tfw show} {(D+I) TBIM tfw show} ifelse TBM (\255Proze\337) showde %0TE010-2 03542 (\255process) showen %1TE010-2 03542 TBK (\255Proceso de incremento) showes %2TE010-2 03542 TBM (\255processus) showfr %3TE010-2 03542 (\255processo) showit %4TE010-2 03542 (\255process) showjp %5TE010-2 03542 /cvishow {cvi 10 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 /DLL 11 array def /DLU 11 array def /DLL [0.0001 0.001 0.01 0.1 1.0 10. 100. 1000. 10000. 100000. 1000000.] def /YFAK 4 array def /YFAK [ 1.0 1.8 3.2 5.6] def /DL 40 array def /DU 40 array def /XF 40 array def /R00KXU 40 array def /RLMKXU 40 array def %Achromatic /F0 40 array def %I-W /F1 40 array def %D-N /F2 40 array def %ID-NM /F3 40 array def %I-B /F4 40 array def %D-b /F5 40 array def %ID-BW /F6 40 array def %I-B /F7 40 array def %D-b /F8 40 array def %ID-BW %Blue /FB0 40 array def %I-W /FB1 40 array def %D-N /FB2 40 array def %ID-NM /FB3 40 array def %I-B /FB4 40 array def %D-b /FB5 40 array def %ID-BW /FB6 40 array def %I-B /FB7 40 array def %D-b /FB8 40 array def %ID-BW %yellow /FY0 40 array def %I-W /FY1 40 array def %D-N /FY2 40 array def %ID-NM /FY3 40 array def %I-Y /FY4 40 array def %D-y /FY5 40 array def %ID-YW /FY6 40 array def %I-Y /FY7 40 array def %D-y /FY8 40 array def %ID-YW %Green /FG0 40 array def %I-W /FG1 40 array def %D-N /FG2 40 array def %ID-NM /FG3 40 array def %I-G /FG4 40 array def %D-g /FG5 40 array def %ID-GW /FG6 40 array def %I-G /FG7 40 array def %D-g /FG8 40 array def %ID-GW %red /FR0 40 array def %I-W /FR1 40 array def %D-N /FR2 40 array def %ID-NM /FR3 40 array def %I-R /FR4 40 array def %D-r /FR5 40 array def %ID-RW /FR6 40 array def %I-R /FR7 40 array def %D-r /FR8 40 array def %ID-RW /IORX 2000 def /IORY 2000 def /MULX 500 def /MULY 500 def 50 setlinewidth tfn %0000 2000 moveto 4000 0 rlineto stroke 0 1 9 {/k exch def %k=0,9 DLU k DLL k get put 0 1 3 {/j exch def %j=0,3 /i k 4 mul j add def %i=0,39 DL i DLL k get YFAK j get mul put DU i DL i get put } for %j=0,3 } for %k=0,10 /W2 2. sqrt def /XP 0 def 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 38 {/i exch def %i=0,38 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %R00KXU=1+1/{1+W2*10**[c(x-u+p)]} R00KXU i 1. 1. W2 F01 mul add div 1. add put %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM} RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put j 0 eq {F0 i RLMKXU i get put} if j 1 eq {F1 i RLMKXU i get put} if j 1 eq {F2 i F0 i get F1 i get add put} if } for %i=0,38 /XFX0 0.0 def /F01X0 10 XFX0 XU sub XP add XC mul exp def /R00KXUX0 1. 1. W2 F01X0 mul add div 1. add def /RLMKXUX0 XL W2 log div R00KXUX0 log mul XM sub XQ mul def j 0 eq {/F0X0 RLMKXUX0 def} if j 1 eq {/F1X0 RLMKXUX0 def} if j 1 eq {/F2X0 F0X0 F1X0 add def} if } for %j=0,1 50 setlinewidth %0 1 1 {/j exch def %j=0,1 %j 0 eq {0 0 0 0 setcmykcolor [ ] 0 setdash} if %D %j 1 eq {0 0 0 1 setcmykcolor [300 100] 0 setdash} if %D %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY F0 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY F0 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY F0 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke %} for %j=0,1 TBM 18 3 27 {/i exch def %i=21,3,27 /y20 {IORY F1 i get XP sub MULY mul add} bind def /x20 IORX 2 XP sub MULX mul add def tfn % i 21 eq i 27 eq or { 1300 i 18 sub 80 mul add y20 moveto 1800 0 rlineto stroke % } if 700 i 18 sub 80 mul add y20 050 sub moveto tfw FMC 1 eq {i 18 eq {(0,4%) show} if i 21 eq {( 2%) show} if i 24 eq {( 9%) show} if i 27 eq {(40%) show} if } if 3200 i 18 sub 80 mul add y20 050 sub moveto tfw FMC 1 eq {i 18 eq {(4%) show} if i 21 eq {(20%) show} if i 24 eq {(90%) show} if i 27 eq {(400%) show} if } if i 27 eq {050 y20 350 add moveto tfw (Relative Leuchtdichte:) showde %0TE010-2 04542 (relative luminance:) showen %1TE010-2 04542 (luminancia relativa:) showes %2TE010-2 04542 (brillance relatif:) showfr %3TE010-2 04542 (splendore relativo:) showit %4TE010-2 04542 (relative luminance:) showjp %5TE010-2 04542 } if } for %i=21,3,27 0 1 1 {/j exch def %j=0,1 j 0 eq {0 0 0 1 setcmykcolor [ ] 0 setdash} if %I j 1 eq {0 0 0 0 setcmykcolor [300 100] 0 setdash} if %I 0 3 36 {/i exch def %i=0,3,36 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY F1 i get MULY mul add} bind def /x21 {IORX XF i 1 add get MULX mul add} bind def /y21 {IORY F1 i 1 add get MULY mul add} bind def /x22 {IORX XF i 2 add get MULX mul add} bind def /y22 {IORY F1 i 2 add get MULY mul add} bind def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,3,36 stroke } for %j=0,1 18 3 27 {/i exch def %i=21,3,27 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY F1 i get XP sub MULY mul add} bind def i 18 eq {tfn x20 y20 75 0 360 arc fill} if i 21 eq {tfw x20 y20 85 0 360 arc fill tfz x20 y20 65 0 360 arc fill} if i 24 eq {tfw x20 y20 75 0 360 arc fill} if i 27 eq {tfw x20 y20 85 0 360 arc fill tfn x20 y20 15 0 360 arc fill} if } for %i=21,3,27 %0 1 1 {/j exch def %j=0,1 %j 0 eq {0 0 0 0 setcmykcolor [ ] 0 setdash} if %DI %j 1 eq {0 0 0 1 setcmykcolor [200 200] 0 setdash} if %DI %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY F2 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY F2 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY F2 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke %} for %j=0,1 /XP 0.50 FIS div def %Y 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 38 {/i exch def %i=0,38 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %R00KXU=1+1/{1+W2*10**[c(x-u+p)]} R00KXU i 1. 1. W2 F01 mul add div 1. add put %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM} RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put j 0 eq {FY3 i RLMKXU i get put} if j 1 eq {FY4 i RLMKXU i get put} if j 1 eq {FY5 i FY3 i get FY4 i get add put} if } for %i=0,38 /XFX1 0.0 def /F01X1 10 XFX1 XU sub XP add XC mul exp def /R00KXUX1 1. 1. W2 F01X1 mul add div 1. add def /RLMKXUX1 XL W2 log div R00KXUX1 log mul XM sub XQ mul def j 0 eq {/F0X1 RLMKXUX1 def} if j 1 eq {/F1X1 RLMKXUX1 def} if j 1 eq {/F2X1 F0X1 F1X1 add def} if } for %j=0,1 50 setlinewidth %0 0 1 0 setcmykcolor %IORX XFX1 MULX mul add -50 add %IORY F0X1 MULY mul add moveto 100 0 rlineto stroke %IORX XFX1 MULX mul add %IORY F0X1 MULY mul add -50 add moveto 0 100 rlineto stroke %1 1 0 0.5 setcmykcolor [ ] 0 setdash %D-b %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FY3 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FY3 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FY3 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke tfv3 [ ] 0 setdash %I-V3 0 3 36 {/i exch def %i=0,3,36 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY FY4 i get MULY mul add} bind def /x21 {IORX XF i 1 add get MULX mul add} bind def /y21 {IORY FY4 i 1 add get MULY mul add} bind def /x22 {IORX XF i 2 add get MULX mul add} bind def /y22 {IORY FY4 i 2 add get MULY mul add} bind def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,3,36 stroke 18 3 27 {/i exch def %i=21,3,27 /x20 {IORX XF i 2 FIS idiv sub get MULX mul add} bind def /y20 {IORY FY4 i 2 FIS idiv sub get MULY mul add} bind def newpath x20 y20 moveto ( ) show i 18 eq {tfn} if i 21 eq {0.25 0.25 0.0 0.5 setcmykcolor} if i 24 eq {0.25 0.25 0.0 0.0 setcmykcolor} if i 24 le {x20 y20 75 0 360 arc fill} if i 27 eq {tfw x20 y20 85 0 360 arc fill tfn x20 y20 15 0 360 arc fill} if } for %i=21,3,27 %0 1 1 {/j exch def %j=0,1 %j 0 eq {0 0 0 0 setcmykcolor [ ] 0 setdash} if %DI-W %j 1 eq {1 1 0 0 setcmykcolor [200 200] 0 setdash} if %DI-B %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FY5 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FY5 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FY5 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke %} for %j=0,1 /XP 1.0 FIS div def %G 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 38 {/i exch def %i=0,38 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %R00KXU=1+1/{1+W2*10**[c(x-u+p)]} R00KXU i 1. 1. W2 F01 mul add div 1. add put %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM} RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put j 0 eq {FG3 i RLMKXU i get put} if j 1 eq {FG4 i RLMKXU i get put} if j 1 eq {FG5 i FG3 i get FG4 i get add put} if } for %i=0,38 /XFX1 0.0 def /F01X1 10 XFX1 XU sub XP add XC mul exp def /R00KXUX1 1. 1. W2 F01X1 mul add div 1. add def /RLMKXUX1 XL W2 log div R00KXUX1 log mul XM sub XQ mul def j 0 eq {/F0X1 RLMKXUX1 def} if j 1 eq {/F1X1 RLMKXUX1 def} if j 1 eq {/F2X1 F0X1 F1X1 add def} if } for %j=0,1 50 setlinewidth %0 0 1 0 setcmykcolor %IORX XFX1 MULX mul add -50 add %IORY F0X1 MULY mul add moveto 100 0 rlineto stroke %IORX XFX1 MULX mul add %IORY F0X1 MULY mul add -50 add moveto 0 100 rlineto stroke %1 1 0 0.5 setcmykcolor [ ] 0 setdash %D-b %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FG3 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FG3 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FG3 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke tfv2 [ ] 0 setdash %I-V2 0 3 36 {/i exch def %i=0,3,36 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY FG4 i get MULY mul add} bind def /x21 {IORX XF i 1 add get MULX mul add} bind def /y21 {IORY FG4 i 1 add get MULY mul add} bind def /x22 {IORX XF i 2 add get MULX mul add} bind def /y22 {IORY FG4 i 2 add get MULY mul add} bind def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,3,36 stroke 18 3 27 {/i exch def %i=21,3,27 /x20 {IORX XF i 4 FIS idiv sub get MULX mul add} bind def /y20 {IORY FG4 i 4 FIS idiv sub get MULY mul add} bind def newpath x20 y20 moveto ( ) show i 18 eq {tfn} if i 21 eq {0.5 0.5 0.0 0.5 setcmykcolor} if i 24 eq {0.5 0.5 0.0 0.0 setcmykcolor} if i 24 le {x20 y20 75 0 360 arc fill} if i 27 eq {tfw x20 y20 85 0 360 arc fill tfn x20 y20 15 0 360 arc fill} if } for %i=21,3,27 %0 1 1 {/j exch def %j=0,1 %j 0 eq {0 0 0 0 setcmykcolor [ ] 0 setdash} if %DI-W %j 1 eq {1 1 0 0 setcmykcolor [200 200] 0 setdash} if %DI-B %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FG5 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FG5 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FG5 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke %} for %j=0,1 /XP 1.5 FIS div def %R 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 38 {/i exch def %i=0,38 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %R00KXU=1+1/{1+W2*10**[c(x-u+p)]} R00KXU i 1. 1. W2 F01 mul add div 1. add put %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM} RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put j 0 eq {FR3 i RLMKXU i get put} if j 1 eq {FR4 i RLMKXU i get put} if j 1 eq {FR5 i FR3 i get FR4 i get add put} if } for %i=0,38 /XFX1 0.0 def /F01X1 10 XFX1 XU sub XP add XC mul exp def /R00KXUX1 1. 1. W2 F01X1 mul add div 1. add def /RLMKXUX1 XL W2 log div R00KXUX1 log mul XM sub XQ mul def j 0 eq {/F0X1 RLMKXUX1 def} if j 1 eq {/F1X1 RLMKXUX1 def} if j 1 eq {/F2X1 F0X1 F1X1 add def} if } for %j=0,1 50 setlinewidth %0 0 1 0 setcmykcolor %IORX XFX1 MULX mul add -50 add %IORY F0X1 MULY mul add moveto 100 0 rlineto stroke %IORX XFX1 MULX mul add %IORY F0X1 MULY mul add -50 add moveto 0 100 rlineto stroke %1 1 0 0.5 setcmykcolor [ ] 0 setdash %D-b %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FR3 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FR3 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FR3 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke tfv1 [ ] 0 setdash %I-V1 0 3 36 {/i exch def %i=0,3,36 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY FR4 i get MULY mul add} bind def /x21 {IORX XF i 1 add get MULX mul add} bind def /y21 {IORY FR4 i 1 add get MULY mul add} bind def /x22 {IORX XF i 2 add get MULX mul add} bind def /y22 {IORY FR4 i 2 add get MULY mul add} bind def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,3,36 stroke 18 3 27 {/i exch def %i=21,3,27 /x20 {IORX XF i 6 FIS idiv sub get MULX mul add} bind def /y20 {IORY FR4 i 6 FIS idiv sub get MULY mul add} bind def newpath x20 y20 moveto ( ) show i 18 eq {tfn} if i 21 eq {0.75 0.75 0.0 0.5 setcmykcolor} if i 24 eq {0.75 0.75 0.0 0.0 setcmykcolor} if i 24 le {x20 y20 75 0 360 arc fill} if i 27 eq {tfw x20 y20 85 0 360 arc fill tfn x20 y20 15 0 360 arc fill} if } for %i=21,3,27 %0 1 1 {/j exch def %j=0,1 %j 0 eq {0 0 0 0 setcmykcolor [ ] 0 setdash} if %DI-W %j 1 eq {1 1 0 0 setcmykcolor [200 200] 0 setdash} if %DI-B %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FR5 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FR5 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FR5 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke %} for %j=0,1 /XP 2 FIS idiv def %B 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 38 {/i exch def %i=0,38 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %R00KXU=1+1/{1+W2*10**[c(x-u+p)]} R00KXU i 1. 1. W2 F01 mul add div 1. add put %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM} RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put j 0 eq {FB3 i RLMKXU i get put} if j 1 eq {FB4 i RLMKXU i get put} if j 1 eq {FB5 i FB3 i get FB4 i get add put} if } for %i=0,38 /XFX1 0.0 def /F01X1 10 XFX1 XU sub XP add XC mul exp def /R00KXUX1 1. 1. W2 F01X1 mul add div 1. add def /RLMKXUX1 XL W2 log div R00KXUX1 log mul XM sub XQ mul def j 0 eq {/F0X1 RLMKXUX1 def} if j 1 eq {/F1X1 RLMKXUX1 def} if j 1 eq {/F2X1 F0X1 F1X1 add def} if } for %j=0,1 50 setlinewidth %0 0 1 0 setcmykcolor %IORX XFX1 MULX mul add -50 add %IORY F0X1 MULY mul add moveto 100 0 rlineto stroke %IORX XFX1 MULX mul add %IORY F0X1 MULY mul add -50 add moveto 0 100 rlineto stroke %1 1 0 0.5 setcmykcolor [ ] 0 setdash %D-b %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FB3 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FB3 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FB3 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke tfv0 [ ] 0 setdash %I-V0 0 3 36 {/i exch def %i=0,3,36 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY FB4 i get MULY mul add} bind def /x21 {IORX XF i 1 add get MULX mul add} bind def /y21 {IORY FB4 i 1 add get MULY mul add} bind def /x22 {IORX XF i 2 add get MULX mul add} bind def /y22 {IORY FB4 i 2 add get MULY mul add} bind def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,3,36 stroke 18 3 27 {/i exch def %i=21,3,27 /x20 {IORX XF i 8 FIS idiv sub get MULX mul add} bind def /y20 {IORY FB4 i 8 FIS idiv sub get MULY mul add} bind def newpath x20 y20 moveto ( ) show i 18 eq {tfn} if i 21 eq {1.0 1.0 0.0 0.5 setcmykcolor} if i 24 eq {1.0 1.0 0.0 0.0 setcmykcolor} if i 24 le {x20 y20 75 0 360 arc fill} if i 27 eq {tfw x20 y20 85 0 360 arc fill tfn x20 y20 15 0 360 arc fill} if } for %i=21,3,27 %0 1 1 {/j exch def %j=0,1 %j 0 eq {0 0 0 0 setcmykcolor [ ] 0 setdash} if %DI-W %j 1 eq {1 1 0 0 setcmykcolor [200 200] 0 setdash} if %DI-B %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FB5 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FB5 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FB5 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke %} for %j=0,1 tfy [ ] 0 setdash 2250 1370 moveto 0000 0630 rlineto 0750 0000 rlineto stroke tfr 2270 1370 moveto -530 0000 rlineto stroke showpage grestore %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 28 MM 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 13 %line 359 %!PS-Adobe-3.0 EPSF-3.0 TE010-3 %%BoundingBox: 70 83 226 206 %START PDFDE011.EPS /pdfmark03 where {pop} {userdict /pdfmark03 /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/TE01/) /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@me.com) /CreationDate (D:2013060112000) /ModDate (D:2013060112000) /DOCINFO pdfmark03 [ /View [ /FitB ] /DOCVIEW pdfmark03 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def % !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /TK {240 /Times-ISOL1 FS} bind def /TM {290 /Times-ISOL1 FS} bind def /TG {340 /Times-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIM {290 /TimesI-ISOL1 FS} bind def /TIG {340 /TimesI-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBM {290 /TimesB-ISOL1 FS} bind def /TBG {340 /TimesB-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIM {290 /TimesBI-ISOL1 FS} bind def /TBIG {340 /TimesBI-ISOL1 FS} bind def /SK {240 1 sub /Symbol FS} bind def /SM {290 1 sub /Symbol FS} bind def /SG {340 1 sub /Symbol FS} bind def /tolvfcol %Farbkreis-Reihenfolge [ (000) (F00) (FF0) (0F0) (0FF) (00F) (F0F) (FFF) (777) (700) (770) (070) (077) (007) (707) (F07) %15=R (333) (F77) (FF7) (7F7) (7FF) (77F) (F7F) (07F) %23=B (BBB) (F70) (7F0) (0F7) (07F) (70F) (F07) (0F7) %31=G ] def /tcmyfcol %Farbkreis-Reihenfolge [ (FFF) (0FF) (00F) (F0F) (F00) (FF0) (0F0) (000) (888) (8FF) (88F) (F8F) (F88) (FF8) (8F8) (0F8) %15=R (CCC) (088) (008) (808) (800) (880) (080) (F80) %23=B (444) (08F) (80F) (F08) (F80) (8F0) (0F8) (F08) %31=G ] def /tcmykfcol %Farbkreis-Reihenfolge [ (000F) (0FF0) (00F0) (F0F0) (F000) (FF00) (0F00) (0000) (0008) (0FF8) (00F8) (F0F8) (F008) (FF08) (0F08) (0F80) %15=R (000C) (0880) (0080) (8080) (8000) (8800) (0800) (F800) %23=B (0004) (0F80) (80F0) (F080) (F800) (8F00) (0F80) (F080) %31=G ] def /tolvfcols %Farbkreis-Reihenfolge [ (000*) (F00*) (FF0*) (0F0*) (0FF*) (00F*) (F0F*) (FFF*) (777*) (700*) (770*) (070*) (077*) (007*) (707*) (F07*) %15=R (333*) (F77*) (FF7*) (7F7*) (7FF*) (77F*) (F7F*) (07F*) %23=B (BBB*) (F70*) (7F0*) (0F7*) (07F*) (70F*) (F07*) (0F7*) %31=G ] def /tcmyfcols %Farbkreis-Reihenfolge [ (FFF*) (0FF*) (00F*) (F0F*) (F00*) (FF0*) (0F0*) (000*) (888*) (8FF*) (88F*) (F8F*) (F88*) (FF8*) (8F8*) (0F8*) %15=R (CCC*) (088*) (008*) (808*) (800*) (880*) (080*) (F80*) %23=B (444*) (08F*) (80F*) (F08*) (F80*) (8F0*) (0F8*) (F08*) %31=G ] def /tcmykfcols %Farbkreis-Reihenfolge [ (000F*) (0FF0*) (00F0*) (F0F0*) (F000*) (FF00*) (0F00*) (0000*) (0008*) (0FF8*) (00F8*) (F0F8*) (F008*) (FF08*) (0F08*) (0F80*) %15=R (000C*) (0880*) (0080*) (8080*) (8000*) (8800*) (0800*) (F800*) %23=B (0004*) (0F80*) (80F0*) (F080*) (F800*) (8F00*) (0F80*) (F080*) %31=G ] def /fcolors %CMYN 32 Testfarben Nr. 0 bis 31; Farbkreis-Reihenfolge [{0.0 0.0 0.0 1.0} {0.0 1.0 1.0 0.0} {0.0 0.0 1.0 0.0} {1.0 0.0 1.0 0.0} {1.0 0.0 0.0 0.0} {1.0 1.0 0.0 0.0} {0.0 1.0 0.0 0.0} {0.0 0.0 0.0 0.0} {0.0 0.0 0.0 0.5} {0.0 1.0 1.0 0.5} {0.0 0.0 1.0 0.5} {1.0 0.0 1.0 0.5} {1.0 0.0 0.0 0.5} {1.0 1.0 0.0 0.5} {0.0 1.0 0.0 0.5} {0.0 1.0 0.5 0.0} {0.0 0.0 0.0 0.75} {0.0 0.5 0.5 0.0} {0.0 0.0 0.5 0.0} {0.5 0.0 0.5 0.0} {0.5 0.0 0.0 0.0} {0.5 0.5 0.0 0.0} {0.0 0.5 0.0 0.0} {1.0 0.5 0.0 0.0} {0.0 0.0 0.0 0.25} {0.0 0.5 1.0 0.0} {0.5 0.0 1.0 0.0} {1.0 0.0 0.5 0.0} {1.0 0.5 0.0 0.0} {0.5 1.0 0.0 0.0} {0.0 1.0 0.5 0.0} {1.0 0.0 0.5 0.0} ] def /fak 0.5 def /Far %Farbkreis-Reihenfolge [ 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %R 16 17 18 19 20 21 22 23 %B 24 25 26 27 28 29 30 31 %G ] def /cFar %Kompensativ-Farbkreis-Reihenfolge [ 8 4 5 6 1 2 3 0 0 20 21 22 17 18 19 31 %G 24 12 13 14 9 10 11 2 %J 16 28 29 30 25 26 27 15 %R ] def /Btx %Farbkreis- -> %Btx-Reihenfolge [ 0 1 3 2 5 6 4 7 8 9 11 10 13 14 12 15 %R 16 17 19 18 21 22 20 23 %B 24 25 26 27 28 29 30 31 %G ] def /cBtx %Farbkreis- -> %Kompensativ-Btx-Reihenfolge [ 7 4 6 5 2 3 1 0 8 20 22 21 18 19 17 31 %G 24 12 14 13 10 11 9 2 %J 16 25 26 27 28 29 30 15 %R ] def %XCHA01.PS BEG /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfi %x y width heigth c m y k {setcmyk_olvcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmyk_olvcolor rec stroke} bind def /rem %x, y width heigth {/heigth exch 0.5 mul def /width exch 0.5 mul def /yleftb exch heigth 0.5 mul add def /xleftb exch width 0.5 mul add def xleftb yleftb moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colremfi %x y width heigth c m y k {setcmykcolor rem fill} bind def /colremst %x y width heigth c m y k {setcmykcolor rem stroke} bind def /tzr {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzg {1.0 0.0 1.0 0.0} bind def /tzb {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tfr {0.0 1.0 1.0 0.0 setcmyk_olvcolor} bind def %Reproduktionsfarben /tfg {1.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def /tfb {1.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def /tfc {1.0 0.0 0.0 0.0 setcmyk_olvcolor} bind def /tfm {0.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def /tfy {0.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def /tfn {0.0 0.0 0.0 1.00 setcmyk_olvcolor} bind def %Graureihe /tfd {0.0 0.0 0.0 0.75 setcmyk_olvcolor} bind def /tfz {0.0 0.0 0.0 0.50 setcmyk_olvcolor} bind def /tfh {0.0 0.0 0.0 0.25 setcmyk_olvcolor} bind def /tfw {0.0 0.0 0.0 0.00 setcmyk_olvcolor} bind def %%EndProlog gsave /lanind 1 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showea {1 lanind le {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 1 def /lanind2 1 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 3 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1 xchart 0 eq {/Txx (-) def /Fxx (-) def} if %always independent of intended output 5 /Times-ISOL1 FS /cvishow {cvi 6 string cvs show} def 75 85 moveto lanind cvishow (-) show colorm cvishow deintp cvishow xcolor cvishow xchart cvishow pchart cvishow colsep cvishow (-L) show pmetam cvishow gsave %XCHA01.PS END 5 /Times-ISOL1 FS 175 85 moveto (TE010-3) show xchart 0 eq {(N) show} {deintp colorm 2 mul add cvishow} ifelse (, B4_54) show % ( XG321-5, B8931_1, E8241-5, B4_54_1, N=4_54_1) show 72 90 translate 0.01 MM dup scale 30 setlinewidth 0.0 0.0 0.0 0.5 setcmykcolor 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath fill /FMC 1 def %M=chromatic moment (1), chroma (2) /FIS 2 def %I=spectral colours (1), S=surface colours (2) 050 3725 moveto TBM tfw %(log ) show (B) TBIM tfb show (R) TBIM tfr show (G) TBIM tfg show (Y) TBIM tfy show TBIM tfw lanind 2 ne {%lanind#2 FMC 1 eq {(\255I) show} {(\255(I+D))} ifelse } if %lanind#2 TBM tfw (\255Impulse/s f\374r) showde %0TE010-3 00541 (\255impluses/s for) showen %1TE010-3 00541 TBK (\255Senales incremento para) showes %2TE010-3 00541 TBM (\255impulses/s pour) showfr %3TE010-3 00541 (\255impulses/s per) showit %4TE010-3 00541 (\255impulses/s for) showjp %5TE010-3 00541 FIS 1 eq { ( Spektralfarben) showde %0TE010-3 01541 ( spectral colours) showen %1TE010-3 01541 TBK ( spectrales de color) showes %2TE010-3 01541 TBM ( couleurs spectrales) showfr %3TE010-3 01541 ( colori spettrali) showit %4TE010-3 01541 ( spectral colours) showjp %5TE010-3 01541 } { ( K\366rperfarben) showde %0TE010-3 02541 ( surface colours) showen %1TE010-3 02541 TBK ( objectos de color) showes %2TE010-3 02541 TBM ( couleurs surface) showfr %3TE010-3 02541 ( superficie colora) showit %4TE010-3 02541 ( surface colours) showjp %5TE010-3 02541 } ifelse %******************************************** 700 3425 moveto TBM tfw (and luminance discriminability) showen (Leuchtdichte\255Unterscheidung) showde TBIM ( L) show TBM (/) show SM (D) show TBIM (L) show TBM tfw 550 400 translate 50 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 3000 rlineto stroke FMC 1 eq {1000 0 moveto 2000 2000 rlineto stroke 1000 600 moveto TBIM (m) show TBM (=1) show} { 000 500 moveto 3000 1500 rlineto stroke 1000 600 moveto TBIM (m) show TBM (=1/2) show} ifelse TBM /tx [(-6) (-5) (-4) (-3) (-2) (-1) ( 0) ( 1)] def /ty [() () ( 0) (10) (20) (30) (40)] def %!x-Achse: 1 log-Einheiten = 500 Skalen-Einheiten 0 1 7 {/i exch def /ixt { -250 i 0500 mul add} def /ixl { 000 i 0500 mul add} def ixt -350 moveto tx i get exec show ixl 75 moveto 0 -150 rlineto stroke } for %!y-Achse: 1 log-Einheiten = 500 Skalen-Einheiten 0 1 6 {/i exch def /iyt {-100 i 0500 mul add} def /iyl { 000 i 0500 mul add} def -450 iyt moveto ty i get exec show -75 iyl moveto 150 0 rlineto stroke } for % 35 setlinewidth % tfn 000 2000 moveto 4000 0000 rlineto stroke tfw 50 setlinewidth tfr [100 100] 0 setdash 2000 0000 moveto 0000 2600 rlineto stroke tfw [ ] 0 setdash tfg [100 100] 0 setdash 2130 0000 moveto 0000 2700 rlineto stroke tfw [ ] 0 setdash 3600 -300 moveto (x) TBIM tfw show 0 -50 rmoveto TBM (r) show 10 50 rmoveto 20 0 rmoveto (=) TBM tfw show 20 0 rmoveto (log) TBM tfw show 30 0 rmoveto TBIM (L) show 0 -50 rmoveto TBM (r) show 10 50 rmoveto %1100 3000 moveto (-2) TBM tfw show 30 0 rmoveto %(Q) TBIM tfw show 30 0 rmoveto %([1,0c \050) TBM tfw show (x) TBIM tfw show %20 -50 rmoveto TBM (r) show 10 50 rmoveto %(+x) TBIM tfw show %20 -50 rmoveto TBM (p) show 10 50 rmoveto %(\051]) TBM tfw show 2200 0600 moveto (\255x) TBIM tfw show 20 -50 rmoveto TBM (p) show 10 50 rmoveto (=) show FIS 1 eq {tfb (2) show tfw (,) show tfr (1,50) show tfw (,) show tfg (1,0) show tfw (,) show tfy (0,50) show tfw (,) show tfw (0) show } {tfb (1) show tfw (,) show tfr (0,75) show tfw (,) show tfg (0,5) show tfw (,) show tfy (0,25) show tfw (,) show tfw (0) show } ifelse 2750 0200 moveto (L) TBIM tfw show TBK 20 -80 rmoveto (w) show 50 80 rmoveto (= 100 cd) TBM tfw show 20 0 rmoveto (/) TBM tfw show 10 0 rmoveto (m) TBM tfw show TBK 20 100 rmoveto (2) show 0 -100 rmoveto 2300 1000 moveto TBM tfw FMC 1 eq {(I) TBIM tfw show} {(D+I) TBIM tfw show} ifelse TBM (\255Proze\337) showde %0TE010-3 03541 (\255process) showen %1TE010-3 03541 TBK (\255Proceso de incremento) showes %2TE010-3 03541 TBM (\255processus) showfr %3TE010-3 03541 (\255processo) showit %4TE010-3 03541 (\255process) showjp %5TE010-3 03541 /cvishow {cvi 10 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 /DLL 11 array def /DLU 11 array def /DLL [0.0001 0.001 0.01 0.1 1.0 10. 100. 1000. 10000. 100000. 1000000.] def /YFAK 4 array def /YFAK [ 1.0 1.8 3.2 5.6] def /DL 40 array def /DU 40 array def /XF 40 array def /R00KXU 40 array def /RLMKXU 40 array def %Achromatic /F0 40 array def %I-W /F1 40 array def %D-N /F2 40 array def %ID-NM /F3 40 array def %I-B /F4 40 array def %D-b /F5 40 array def %ID-BW /F6 40 array def %I-B /F7 40 array def %D-b /F8 40 array def %ID-BW %Blue /FB0 40 array def %I-W /FB1 40 array def %D-N /FB2 40 array def %ID-NM /FB3 40 array def %I-B /FB4 40 array def %D-b /FB5 40 array def %ID-BW /FB6 40 array def %I-B /FB7 40 array def %D-b /FB8 40 array def %ID-BW %yellow /FY0 40 array def %I-W /FY1 40 array def %D-N /FY2 40 array def %ID-NM /FY3 40 array def %I-Y /FY4 40 array def %D-y /FY5 40 array def %ID-YW /FY6 40 array def %I-Y /FY7 40 array def %D-y /FY8 40 array def %ID-YW %Green /FG0 40 array def %I-W /FG1 40 array def %D-N /FG2 40 array def %ID-NM /FG3 40 array def %I-G /FG4 40 array def %D-g /FG5 40 array def %ID-GW /FG6 40 array def %I-G /FG7 40 array def %D-g /FG8 40 array def %ID-GW %red /FR0 40 array def %I-W /FR1 40 array def %D-N /FR2 40 array def %ID-NM /FR3 40 array def %I-R /FR4 40 array def %D-r /FR5 40 array def %ID-RW /FR6 40 array def %I-R /FR7 40 array def %D-r /FR8 40 array def %ID-RW /IORX 2000 def /IORY 2000 def /MULX 500 def /MULY 500 def 50 setlinewidth tfn %0000 2000 moveto 4000 0 rlineto stroke 0 1 9 {/k exch def %k=0,9 DLU k DLL k get put 0 1 3 {/j exch def %j=0,3 /i k 4 mul j add def %i=0,39 DL i DLL k get YFAK j get mul put DU i DL i get put } for %j=0,3 } for %k=0,9 /W2 2. sqrt def /XP 0 def 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 38 {/i exch def %i=0,38 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %R00KXU=1+1/{1+W2*10**[c(x-u+p)]} R00KXU i 1. 1. W2 F01 mul add div 1. add put %RLMKXU=XQ*{XL/[log(w2)]*log[R00KXU]-XM} RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put j 0 eq {F0 i RLMKXU i get put} if j 1 eq {F1 i RLMKXU i get put} if j 1 eq {F2 i F0 i get F1 i get add put} if } for %i=0,38 /XFX0 0.0 def /F01X0 10 XFX0 XU sub XP add XC mul exp def /R00KXUX0 1. 1. W2 F01X0 mul add div 1. add def /RLMKXUX0 XL W2 log div R00KXUX0 log mul XM sub XQ mul def j 0 eq {/F0X0 RLMKXUX0 def} if j 1 eq {/F1X0 RLMKXUX0 def} if j 1 eq {/F2X0 F0X0 F1X0 add def} if } for %j=0,1 50 setlinewidth TBM 18 3 27 {/i exch def %i=21,3,27 /y20 {IORY F1 i get XP sub MULY mul add} bind def /x20 IORX 2 XP sub MULX mul add def tfn 1300 i 18 sub 80 mul add y20 moveto 1800 i 18 eq {200 sub} if i 21 eq {500 add} if 0 rlineto stroke 700 i 18 sub 80 mul add i 18 eq {100 sub} if y20 050 sub moveto tfw FMC 1 eq {i 18 eq {(0,4%) show} if i 21 eq {( 2%) show} if i 24 eq {( 9%) show} if i 27 eq {(40%) show} if } if 3200 i 18 sub 80 mul add i 18 eq {200 sub} if i 21 eq {500 add} if y20 050 sub moveto tfw FMC 1 eq {i 18 eq {(4%) show} if i 21 eq {(20%) show} if i 24 eq {(90%) show} if i 27 eq {(400%) show} if } if i 27 eq {050 y20 350 add moveto tfw (Relative Leuchtdichte:) showde %0TE010-3 04541 (relative luminance:) showen %1TE010-3 04541 (luminancia relativa:) showes %2TE010-3 04541 (brillance relatif:) showfr %3TE010-3 04541 (splendore relativo:) showit %4TE010-3 04541 (relative luminance:) showjp %5TE010-3 04541 } if } for %i=21,3,27 0 1 1 {/j exch def %j=0,1 j 0 eq {0 0 0 1 setcmykcolor [ ] 0 setdash} if %I j 1 eq {0 0 0 0 setcmykcolor [300 100] 0 setdash} if %I 0 3 36 {/i exch def %i=0,3,36 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY F1 i get MULY mul add} bind def /x21 {IORX XF i 1 add get MULX mul add} bind def /y21 {IORY F1 i 1 add get MULY mul add} bind def /x22 {IORX XF i 2 add get MULX mul add} bind def /y22 {IORY F1 i 2 add get MULY mul add} bind def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,3,36 stroke } for %j=0,1 18 3 27 {/i exch def %i=21,3,27 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY F1 i get XP sub MULY mul add} bind def i 18 eq {tfn x20 y20 75 0 360 arc fill} if i 21 eq {tfw x20 y20 85 0 360 arc fill tfz x20 y20 65 0 360 arc fill} if i 24 eq {tfw x20 y20 75 0 360 arc fill} if i 27 eq {tfw x20 y20 85 0 360 arc fill tfn x20 y20 15 0 360 arc fill} if } for %i=21,3,27 /XP 0.50 FIS div def %Y 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 38 {/i exch def %i=0,38 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %R00KXU=1+1/{1+W2*10**[c(x-u+p)]} R00KXU i 1. 1. W2 F01 mul add div 1. add put %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM} RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put j 0 eq {FY3 i RLMKXU i get put} if j 1 eq {FY4 i RLMKXU i get put} if j 1 eq {FY5 i FY3 i get FY4 i get add put} if } for %i=0,38 /XFX1 0.0 def /F01X1 10 XFX1 XU sub XP add XC mul exp def /R00KXUX1 1. 1. W2 F01X1 mul add div 1. add def /RLMKXUX1 XL W2 log div R00KXUX1 log mul XM sub XQ mul def j 0 eq {/F0X1 RLMKXUX1 def} if j 1 eq {/F1X1 RLMKXUX1 def} if j 1 eq {/F2X1 F0X1 F1X1 add def} if } for %j=0,1 50 setlinewidth 0 0 1 0 setcmykcolor [ ] 0 setdash %I-Y 0 3 36 {/i exch def %i=0,3,36 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY FY4 i get MULY mul add} bind def /x21 {IORX XF i 1 add get MULX mul add} bind def /y21 {IORY FY4 i 1 add get MULY mul add} bind def /x22 {IORX XF i 2 add get MULX mul add} bind def /y22 {IORY FY4 i 2 add get MULY mul add} bind def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,3,36 stroke 18 3 27 {/i exch def %i=21,3,27 /x20 {IORX XF i 2 FIS idiv sub get MULX mul add} bind def /y20 {IORY FY4 i 2 FIS idiv sub get MULY mul add} bind def newpath x20 y20 moveto ( ) show i 18 eq {tfn} if i 21 eq {0.0 0.0 1.0 0.5 setcmykcolor} if i 24 eq {0.0 0.0 1.0 0.0 setcmykcolor} if i 24 le {x20 y20 75 0 360 arc fill} if i 27 eq {tfw x20 y20 85 0 360 arc fill tfn x20 y20 15 0 360 arc fill} if } for %i=21,3,27 /XP 1.0 FIS div def %G 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 38 {/i exch def %i=0,38 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %R00KXU=1+1/{1+W2*10**[c(x-u+p)]} R00KXU i 1. 1. W2 F01 mul add div 1. add put %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM} RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put j 0 eq {FG3 i RLMKXU i get put} if j 1 eq {FG4 i RLMKXU i get put} if j 1 eq {FG5 i FG3 i get FG4 i get add put} if } for %i=0,38 /XFX1 0.0 def /F01X1 10 XFX1 XU sub XP add XC mul exp def /R00KXUX1 1. 1. W2 F01X1 mul add div 1. add def /RLMKXUX1 XL W2 log div R00KXUX1 log mul XM sub XQ mul def j 0 eq {/F0X1 RLMKXUX1 def} if j 1 eq {/F1X1 RLMKXUX1 def} if j 1 eq {/F2X1 F0X1 F1X1 add def} if } for %j=0,1 50 setlinewidth 1 0 1 0 setcmykcolor [ ] 0 setdash %I-G 0 3 36 {/i exch def %i=0,3,36 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY FG4 i get MULY mul add} bind def /x21 {IORX XF i 1 add get MULX mul add} bind def /y21 {IORY FG4 i 1 add get MULY mul add} bind def /x22 {IORX XF i 2 add get MULX mul add} bind def /y22 {IORY FG4 i 2 add get MULY mul add} bind def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,3,36 stroke 18 3 27 {/i exch def %i=21,3,27 /x20 {IORX XF i 4 FIS idiv sub get MULX mul add} bind def /y20 {IORY FG4 i 4 FIS idiv sub get MULY mul add} bind def newpath x20 y20 moveto ( ) show i 18 eq {tfn} if i 21 eq {1.0 0.0 1.0 0.5 setcmykcolor} if i 24 eq {1.0 0.0 1.0 0.0 setcmykcolor} if i 24 le {x20 y20 75 0 360 arc fill} if i 27 eq {tfw x20 y20 85 0 360 arc fill tfn x20 y20 15 0 360 arc fill} if } for %i=21,3,27 /XP 1.5 FIS div def %R 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 38 {/i exch def %i=0,38 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %R00KXU=1+1/{1+W2*10**[c(x-u+p)]} R00KXU i 1. 1. W2 F01 mul add div 1. add put %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM} RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put j 0 eq {FR3 i RLMKXU i get put} if j 1 eq {FR4 i RLMKXU i get put} if j 1 eq {FR5 i FR3 i get FR4 i get add put} if } for %i=0,38 /XFX1 0.0 def /F01X1 10 XFX1 XU sub XP add XC mul exp def /R00KXUX1 1. 1. W2 F01X1 mul add div 1. add def /RLMKXUX1 XL W2 log div R00KXUX1 log mul XM sub XQ mul def j 0 eq {/F0X1 RLMKXUX1 def} if j 1 eq {/F1X1 RLMKXUX1 def} if j 1 eq {/F2X1 F0X1 F1X1 add def} if } for %j=0,1 50 setlinewidth 0 1 1 0 setcmykcolor [ ] 0 setdash %I-R 0 3 36 {/i exch def %i=0,3,36 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY FR4 i get MULY mul add} bind def /x21 {IORX XF i 1 add get MULX mul add} bind def /y21 {IORY FR4 i 1 add get MULY mul add} bind def /x22 {IORX XF i 2 add get MULX mul add} bind def /y22 {IORY FR4 i 2 add get MULY mul add} bind def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,3,36 stroke 18 3 27 {/i exch def %i=21,3,27 /x20 {IORX XF i 6 FIS idiv sub get MULX mul add} bind def /y20 {IORY FR4 i 6 FIS idiv sub get MULY mul add} bind def newpath x20 y20 moveto ( ) show i 18 eq {tfn} if i 21 eq {0.0 1.0 1.0 0.5 setcmykcolor} if i 24 eq {0.0 1.0 1.0 0.0 setcmykcolor} if i 24 le {x20 y20 75 0 360 arc fill} if i 27 eq {tfw x20 y20 85 0 360 arc fill tfn x20 y20 15 0 360 arc fill} if } for %i=21,3,27 /XP 2 FIS idiv def %B 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 38 {/i exch def %i=0,38 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %R00KXU=1+1/{1+W2*10**[c(x-u+p)]} R00KXU i 1. 1. W2 F01 mul add div 1. add put %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM} RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put j 0 eq {FB3 i RLMKXU i get put} if j 1 eq {FB4 i RLMKXU i get put} if j 1 eq {FB5 i FB3 i get FB4 i get add put} if } for %i=0,38 /XFX1 0.0 def /F01X1 10 XFX1 XU sub XP add XC mul exp def /R00KXUX1 1. 1. W2 F01X1 mul add div 1. add def /RLMKXUX1 XL W2 log div R00KXUX1 log mul XM sub XQ mul def j 0 eq {/F0X1 RLMKXUX1 def} if j 1 eq {/F1X1 RLMKXUX1 def} if j 1 eq {/F2X1 F0X1 F1X1 add def} if } for %j=0,1 50 setlinewidth 1 1 0 0 setcmykcolor [ ] 0 setdash %I-B 0 3 36 {/i exch def %i=0,3,36 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY FB4 i get MULY mul add} bind def /x21 {IORX XF i 1 add get MULX mul add} bind def /y21 {IORY FB4 i 1 add get MULY mul add} bind def /x22 {IORX XF i 2 add get MULX mul add} bind def /y22 {IORY FB4 i 2 add get MULY mul add} bind def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,3,36 stroke 18 3 27 {/i exch def %i=21,3,27 /x20 {IORX XF i 8 FIS idiv sub get MULX mul add} bind def /y20 {IORY FB4 i 8 FIS idiv sub get MULY mul add} bind def newpath x20 y20 moveto ( ) show i 18 eq {tfn} if i 21 eq {1.0 1.0 0.0 0.5 setcmykcolor} if i 24 eq {1.0 1.0 0.0 0.0 setcmykcolor} if i 24 le {x20 y20 75 0 360 arc fill} if i 27 eq {tfw x20 y20 85 0 360 arc fill tfn x20 y20 15 0 360 arc fill} if } for %i=21,3,27 tfy [ ] 0 setdash 2250 1370 moveto 0000 0630 rlineto 0750 0000 rlineto stroke tfr 2270 1370 moveto -530 0000 rlineto stroke %******************************************************************** %L/DL with equation Buch Seite 123, Bild 4-49 right %/IORY 2000 def /IORY 1000 def /W2 2. sqrt def /const 16.5 def %arbitary to get same value /XP 0 def 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 38 {/i exch def %i=0,38 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %H=F01 %RLMKXU=const H/[(1+W2*H)(2+W2*H)] RLMKXU i F01 1 W2 F01 mul add 2 W2 F01 mul add mul div const mul put j 0 eq {F0 i RLMKXU i get put} if j 1 eq {F1 i RLMKXU i get put} if j 1 eq {F2 i F0 i get F1 i get add put} if } for %i=0,38 % /XFX0 0.0 def % /F01X0 10 XFX0 XU sub XP add XC mul exp def % /R00KXUX0 1. 1. W2 F01X0 mul add div 1. add def % /RLMKXUX0 XL W2 log div R00KXUX0 log mul XM sub XQ mul def /XFX0 0.0 def /F01X0 10 XFX0 XU sub XP add XC mul exp def /RLMKXUX0 F01X0 1 W2 F01X0 mul add 2 W2 F01X0 mul add mul div const mul def j 0 eq {/F0X0 RLMKXUX0 def} if j 1 eq {/F1X0 RLMKXUX0 def} if j 1 eq {/F2X0 F0X0 F1X0 add def} if } for %j=0,1 50 setlinewidth 0 1 1 {/j exch def %j=0,1 j 0 eq {0 0 0 1 setcmykcolor [ ] 0 setdash} if %I j 1 eq {0 0 0 0 setcmykcolor [300 100] 0 setdash} if %I 0 3 36 {/i exch def %i=0,3,36 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY F1 i get MULY mul add} bind def /x21 {IORX XF i 1 add get MULX mul add} bind def /y21 {IORY F1 i 1 add get MULY mul add} bind def /x22 {IORX XF i 2 add get MULX mul add} bind def /y22 {IORY F1 i 2 add get MULY mul add} bind def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,3,36 stroke } for %j=0,1 %****************************************************************** /XP 0.5 def 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 38 {/i exch def %i=0,38 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %H=F01 %RLMKXU=const H/[(1+W2*H)(2+W2*H)] RLMKXU i F01 1 W2 F01 mul add 2 W2 F01 mul add mul div const mul put j 0 eq {F0 i RLMKXU i get put} if j 1 eq {F1 i RLMKXU i get put} if j 1 eq {F2 i F0 i get F1 i get add put} if } for %i=0,38 % /XFX0 0.0 def % /F01X0 10 XFX0 XU sub XP add XC mul exp def % /R00KXUX0 1. 1. W2 F01X0 mul add div 1. add def % /RLMKXUX0 XL W2 log div R00KXUX0 log mul XM sub XQ mul def /XFX0 0.0 def /F01X0 10 XFX0 XU sub XP add XC mul exp def /RLMKXUX0 F01X0 1 W2 F01X0 mul add 2 W2 F01X0 mul add mul div const mul def j 0 eq {/F0X0 RLMKXUX0 def} if j 1 eq {/F1X0 RLMKXUX0 def} if j 1 eq {/F2X0 F0X0 F1X0 add def} if } for %j=0,1 50 setlinewidth 0 1 0 {/j exch def %j=0,1 j 0 eq {1 0 1 0 setcmykcolor [ ] 0 setdash} if %I %j 1 eq {0 0 0 0 setcmykcolor [300 100] 0 setdash} if %I 0 3 36 {/i exch def %i=0,3,36 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY F1 i get MULY mul add} bind def /x21 {IORX XF i 1 add get MULX mul add} bind def /y21 {IORY F1 i 1 add get MULY mul add} bind def /x22 {IORX XF i 2 add get MULX mul add} bind def /y22 {IORY F1 i 2 add get MULY mul add} bind def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,3,36 stroke } for %j=0,1 %****************************************************************** /XP 1 def 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 38 {/i exch def %i=0,38 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %H=F01 %RLMKXU=const H/[(1+W2*H)(2+W2*H)] RLMKXU i F01 1 W2 F01 mul add 2 W2 F01 mul add mul div const mul put j 0 eq {F0 i RLMKXU i get put} if j 1 eq {F1 i RLMKXU i get put} if j 1 eq {F2 i F0 i get F1 i get add put} if } for %i=0,38 % /XFX0 0.0 def % /F01X0 10 XFX0 XU sub XP add XC mul exp def % /R00KXUX0 1. 1. W2 F01X0 mul add div 1. add def % /RLMKXUX0 XL W2 log div R00KXUX0 log mul XM sub XQ mul def /XFX0 0.0 def /F01X0 10 XFX0 XU sub XP add XC mul exp def /RLMKXUX0 F01X0 1 W2 F01X0 mul add 2 W2 F01X0 mul add mul div const mul def j 0 eq {/F0X0 RLMKXUX0 def} if j 1 eq {/F1X0 RLMKXUX0 def} if j 1 eq {/F2X0 F0X0 F1X0 add def} if } for %j=0,1 50 setlinewidth 0 1 0 {/j exch def %j=0,1 j 0 eq {1 1 0 0 setcmykcolor [ ] 0 setdash} if %I %j 1 eq {0 0 0 0 setcmykcolor [300 100] 0 setdash} if %I 0 3 36 {/i exch def %i=0,3,36 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY F1 i get MULY mul add} bind def /x21 {IORX XF i 1 add get MULX mul add} bind def /y21 {IORY F1 i 1 add get MULY mul add} bind def /x22 {IORX XF i 2 add get MULX mul add} bind def /y22 {IORY F1 i 2 add get MULY mul add} bind def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,3,36 stroke } for %j=0,1 showpage grestore %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 14 %line 369 %!PS-Adobe-3.0 EPSF-3.0 TE010-4 %%BoundingBox: 70 83 226 206 %START PDFDE011.EPS /pdfmark04 where {pop} {userdict /pdfmark04 /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/TE01/) /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@me.com) /CreationDate (D:2013060112000) /ModDate (D:2013060112000) /DOCINFO pdfmark04 [ /View [ /FitB ] /DOCVIEW pdfmark04 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def % !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /TK {240 /Times-ISOL1 FS} bind def /TM {290 /Times-ISOL1 FS} bind def /TG {340 /Times-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIM {290 /TimesI-ISOL1 FS} bind def /TIG {340 /TimesI-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBM {290 /TimesB-ISOL1 FS} bind def /TBG {340 /TimesB-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIM {290 /TimesBI-ISOL1 FS} bind def /TBIG {340 /TimesBI-ISOL1 FS} bind def /SK {240 1 sub /Symbol FS} bind def /SM {290 1 sub /Symbol FS} bind def /SG {340 1 sub /Symbol FS} bind def /tolvfcol %Farbkreis-Reihenfolge [ (000) (F00) (FF0) (0F0) (0FF) (00F) (F0F) (FFF) (777) (700) (770) (070) (077) (007) (707) (F07) %15=R (333) (F77) (FF7) (7F7) (7FF) (77F) (F7F) (07F) %23=B (BBB) (F70) (7F0) (0F7) (07F) (70F) (F07) (0F7) %31=G ] def /tcmyfcol %Farbkreis-Reihenfolge [ (FFF) (0FF) (00F) (F0F) (F00) (FF0) (0F0) (000) (888) (8FF) (88F) (F8F) (F88) (FF8) (8F8) (0F8) %15=R (CCC) (088) (008) (808) (800) (880) (080) (F80) %23=B (444) (08F) (80F) (F08) (F80) (8F0) (0F8) (F08) %31=G ] def /tcmykfcol %Farbkreis-Reihenfolge [ (000F) (0FF0) (00F0) (F0F0) (F000) (FF00) (0F00) (0000) (0008) (0FF8) (00F8) (F0F8) (F008) (FF08) (0F08) (0F80) %15=R (000C) (0880) (0080) (8080) (8000) (8800) (0800) (F800) %23=B (0004) (0F80) (80F0) (F080) (F800) (8F00) (0F80) (F080) %31=G ] def /tolvfcols %Farbkreis-Reihenfolge [ (000*) (F00*) (FF0*) (0F0*) (0FF*) (00F*) (F0F*) (FFF*) (777*) (700*) (770*) (070*) (077*) (007*) (707*) (F07*) %15=R (333*) (F77*) (FF7*) (7F7*) (7FF*) (77F*) (F7F*) (07F*) %23=B (BBB*) (F70*) (7F0*) (0F7*) (07F*) (70F*) (F07*) (0F7*) %31=G ] def /tcmyfcols %Farbkreis-Reihenfolge [ (FFF*) (0FF*) (00F*) (F0F*) (F00*) (FF0*) (0F0*) (000*) (888*) (8FF*) (88F*) (F8F*) (F88*) (FF8*) (8F8*) (0F8*) %15=R (CCC*) (088*) (008*) (808*) (800*) (880*) (080*) (F80*) %23=B (444*) (08F*) (80F*) (F08*) (F80*) (8F0*) (0F8*) (F08*) %31=G ] def /tcmykfcols %Farbkreis-Reihenfolge [ (000F*) (0FF0*) (00F0*) (F0F0*) (F000*) (FF00*) (0F00*) (0000*) (0008*) (0FF8*) (00F8*) (F0F8*) (F008*) (FF08*) (0F08*) (0F80*) %15=R (000C*) (0880*) (0080*) (8080*) (8000*) (8800*) (0800*) (F800*) %23=B (0004*) (0F80*) (80F0*) (F080*) (F800*) (8F00*) (0F80*) (F080*) %31=G ] def /fcolors %CMYN 32 Testfarben Nr. 0 bis 31; Farbkreis-Reihenfolge [{0.0 0.0 0.0 1.0} {0.0 1.0 1.0 0.0} {0.0 0.0 1.0 0.0} {1.0 0.0 1.0 0.0} {1.0 0.0 0.0 0.0} {1.0 1.0 0.0 0.0} {0.0 1.0 0.0 0.0} {0.0 0.0 0.0 0.0} {0.0 0.0 0.0 0.5} {0.0 1.0 1.0 0.5} {0.0 0.0 1.0 0.5} {1.0 0.0 1.0 0.5} {1.0 0.0 0.0 0.5} {1.0 1.0 0.0 0.5} {0.0 1.0 0.0 0.5} {0.0 1.0 0.5 0.0} {0.0 0.0 0.0 0.75} {0.0 0.5 0.5 0.0} {0.0 0.0 0.5 0.0} {0.5 0.0 0.5 0.0} {0.5 0.0 0.0 0.0} {0.5 0.5 0.0 0.0} {0.0 0.5 0.0 0.0} {1.0 0.5 0.0 0.0} {0.0 0.0 0.0 0.25} {0.0 0.5 1.0 0.0} {0.5 0.0 1.0 0.0} {1.0 0.0 0.5 0.0} {1.0 0.5 0.0 0.0} {0.5 1.0 0.0 0.0} {0.0 1.0 0.5 0.0} {1.0 0.0 0.5 0.0} ] def /fak 0.5 def /Far %Farbkreis-Reihenfolge [ 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %R 16 17 18 19 20 21 22 23 %B 24 25 26 27 28 29 30 31 %G ] def /cFar %Kompensativ-Farbkreis-Reihenfolge [ 8 4 5 6 1 2 3 0 0 20 21 22 17 18 19 31 %G 24 12 13 14 9 10 11 2 %J 16 28 29 30 25 26 27 15 %R ] def /Btx %Farbkreis- -> %Btx-Reihenfolge [ 0 1 3 2 5 6 4 7 8 9 11 10 13 14 12 15 %R 16 17 19 18 21 22 20 23 %B 24 25 26 27 28 29 30 31 %G ] def /cBtx %Farbkreis- -> %Kompensativ-Btx-Reihenfolge [ 7 4 6 5 2 3 1 0 8 20 22 21 18 19 17 31 %G 24 12 14 13 10 11 9 2 %J 16 25 26 27 28 29 30 15 %R ] def %XCHA01.PS BEG /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfi %x y width heigth c m y k {setcmyk_olvcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmyk_olvcolor rec stroke} bind def /rem %x, y width heigth {/heigth exch 0.5 mul def /width exch 0.5 mul def /yleftb exch heigth 0.5 mul add def /xleftb exch width 0.5 mul add def xleftb yleftb moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colremfi %x y width heigth c m y k {setcmykcolor rem fill} bind def /colremst %x y width heigth c m y k {setcmykcolor rem stroke} bind def /tzr {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzg {1.0 0.0 1.0 0.0} bind def /tzb {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tfr {0.0 1.0 1.0 0.0 setcmyk_olvcolor} bind def %Reproduktionsfarben /tfg {1.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def /tfb {1.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def /tfc {1.0 0.0 0.0 0.0 setcmyk_olvcolor} bind def /tfm {0.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def /tfy {0.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def /tfn {0.0 0.0 0.0 1.00 setcmyk_olvcolor} bind def %Graureihe /tfd {0.0 0.0 0.0 0.75 setcmyk_olvcolor} bind def /tfz {0.0 0.0 0.0 0.50 setcmyk_olvcolor} bind def /tfh {0.0 0.0 0.0 0.25 setcmyk_olvcolor} bind def /tfw {0.0 0.0 0.0 0.00 setcmyk_olvcolor} bind def %%EndProlog gsave /lanind 1 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showea {1 lanind le {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 1 def /lanind2 1 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 3 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1 xchart 0 eq {/Txx (-) def /Fxx (-) def} if %always independent of intended output 5 /Times-ISOL1 FS /cvishow {cvi 6 string cvs show} def 75 85 moveto lanind cvishow (-) show colorm cvishow deintp cvishow xcolor cvishow xchart cvishow pchart cvishow colsep cvishow (-L) show pmetam cvishow gsave %XCHA01.PS END 5 /Times-ISOL1 FS 175 85 moveto (TE010-4) show xchart 0 eq {(N) show} {deintp colorm 2 mul add cvishow} ifelse % ( XG321-5, B8931_1, E8241-5, B4_54_1, N=4_54_1) show 72 90 translate 0.01 MM dup scale 30 setlinewidth 0.0 0.0 0.0 0.5 setcmykcolor 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath fill /FMC 1 def %M=chromatic moment (1), chroma (2) /FIS 2 def %I=spectral colours (1), S=surface colours (2) /tzv0 {1.00 1.00 0.00 0.0} bind def /tzv1 {0.75 0.75 0.00 0.0} bind def /tzv2 {0.50 0.50 0.00 0.0} bind def /tzv3 {0.25 0.25 0.00 0.0} bind def /tfv0 {tzv0 setcmykcolor} bind def /tfv1 {tzv1 setcmykcolor} bind def /tfv2 {tzv2 setcmykcolor} bind def /tfv3 {tzv3 setcmykcolor} bind def 050 3725 moveto TBM tfw %(log ) show TBIM tfb (B) show tfw (W) show /TBK1 {225 /TimesB-ISOL1 FS} bind def lanind 2 ne {%lanind#2 FMC 1 eq {(\255I) show} {(\255(I+D))} ifelse } if %lanind#2 TBM tfw (\255Impulse/s f\374r) showde %0TE010-4 00542 (\255impluses/s for) showen %1TE010-4 00542 TBK1 (\255Senales incremento para) showes %2TE010-4 00542 TBM (\255impulses/s pour) showfr %3TE010-4 00542 (\255impulses/s per) showit %4TE010-4 00542 (\255impulses/s for) showjp %5TE010-4 00542 FIS 1 eq { TBM ( Spektralfarben + Wei\337) showde %0TE010-4 01542 ( spectral colours + W) showen %1TE010-4 01542 TBK ( spectrales color + W) showes %2TE010-4 01542 TBM ( couleurs spectrales+W) showfr %3TE010-4 01542 ( colori spettrali + W) showit %4TE010-4 01542 ( spectral colours + W) showjp %5TE010-4 01542 } { ( blaue K\366rperfarben) showde %0TE010-4 02542 ( blue surface colours) showen %1TE010-4 02542 TBK ( objectos de color azules) showes %2TE010-4 02542 TBM ( couleur surface bleue) showfr %3TE010-4 02542 ( superficie blu colora) showit %4TE010-4 02542 ( blue surface colours) showjp %5TE010-4 02542 } ifelse %******************************************** 700 3425 moveto TBM tfw (and luminance discriminability) showen (Leuchtdichte\255Unterscheidung) showde TBIM ( L) show TBM (/) show SM (D) show TBIM (L) show TBM tfw 550 400 translate 50 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 3000 rlineto stroke FMC 1 eq {1000 0 moveto 2000 2000 rlineto stroke 1000 600 moveto TBIM (m) show TBM (=1) show} { 000 500 moveto 3000 1500 rlineto stroke 1000 600 moveto TBIM (m) show TBM (=1/2) show} ifelse TBM /tx [(-6) (-5) (-4) (-3) (-2) (-1) ( 0) ( 1)] def /ty [() () ( 0) (10) (20) (30) (40)] def %!x-Achse: 1 log-Einheiten = 500 Skalen-Einheiten 0 1 7 {/i exch def /ixt { -250 i 0500 mul add} def /ixl { 000 i 0500 mul add} def ixt -350 moveto tx i get exec show ixl 75 moveto 0 -150 rlineto stroke } for %!y-Achse: 1 log-Einheiten = 500 Skalen-Einheiten 0 1 6 {/i exch def /iyt {-100 i 0500 mul add} def /iyl { 000 i 0500 mul add} def -450 iyt moveto ty i get exec show -75 iyl moveto 150 0 rlineto stroke } for % 35 setlinewidth % tfn 000 2000 moveto 4000 0000 rlineto stroke tfw 50 setlinewidth tfg [100 100] 0 setdash 2130 0000 moveto 0000 2600 rlineto stroke tfw [ ] 0 setdash tfr [100 100] 0 setdash 2000 0000 moveto 0000 2600 rlineto stroke tfw [ ] 0 setdash 3600 -300 moveto (x) TBIM tfw show 0 -50 rmoveto TBM (r) show 10 50 rmoveto 20 0 rmoveto (=) TBM tfw show 20 0 rmoveto (log) TBM tfw show 30 0 rmoveto TBIM (L) show 0 -50 rmoveto TBM (r) show 10 50 rmoveto %1100 3000 moveto (-2) TBM tfw show 30 0 rmoveto %(Q) TBIM tfw show 30 0 rmoveto %([1,0c \050) TBM tfw show (x) TBIM tfw show %20 -50 rmoveto TBM (r) show 10 50 rmoveto %(+x) TBIM tfw show %20 -50 rmoveto TBM (p) show 10 50 rmoveto %(\051]) TBM tfw show 2200 0600 moveto (-x) TBIM tfw show 20 -50 rmoveto TBM (p) show 10 50 rmoveto (=) show FIS 1 eq {tfv0 (2) show tfw (,) show tfv1 (1,50) show tfw (,) show tfv2 (1,0) show tfw (,) show tfv3 (0,50) show tfw (,) show tfw (0) show } {tfv0 (1) show tfw (,) show tfv1 (0,75) show tfw (,) show tfv2 (0,5) show tfw (,) show tfv3 (0,25) show tfw (,) show tfw (0) show } ifelse 2750 0200 moveto (L) TBIM tfw show TBK 20 -80 rmoveto (w) show 50 80 rmoveto (= 100 cd) TBM tfw show 20 0 rmoveto (/) TBM tfw show 10 0 rmoveto (m) TBM tfw show TBK 20 100 rmoveto (2) show 0 -100 rmoveto 2300 1000 moveto TBM tfw FMC 1 eq {(I) TBIM tfw show} {(D+I) TBIM tfw show} ifelse TBM (\255Proze\337) showde %0TE010-4 03542 (\255process) showen %1TE010-4 03542 TBK (\255Proceso de incremento) showes %2TE010-4 03542 TBM (\255processus) showfr %3TE010-4 03542 (\255processo) showit %4TE010-4 03542 (\255process) showjp %5TE010-4 03542 /cvishow {cvi 10 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 /DLL 11 array def /DLU 11 array def /DLL [0.0001 0.001 0.01 0.1 1.0 10. 100. 1000. 10000. 100000. 1000000.] def /YFAK 4 array def /YFAK [ 1.0 1.8 3.2 5.6] def /DL 40 array def /DU 40 array def /XF 40 array def /R00KXU 40 array def /RLMKXU 40 array def %Achromatic /F0 40 array def %I-W /F1 40 array def %D-N /F2 40 array def %ID-NM /F3 40 array def %I-B /F4 40 array def %D-b /F5 40 array def %ID-BW /F6 40 array def %I-B /F7 40 array def %D-b /F8 40 array def %ID-BW %Blue /FB0 40 array def %I-W /FB1 40 array def %D-N /FB2 40 array def %ID-NM /FB3 40 array def %I-B /FB4 40 array def %D-b /FB5 40 array def %ID-BW /FB6 40 array def %I-B /FB7 40 array def %D-b /FB8 40 array def %ID-BW %yellow /FY0 40 array def %I-W /FY1 40 array def %D-N /FY2 40 array def %ID-NM /FY3 40 array def %I-Y /FY4 40 array def %D-y /FY5 40 array def %ID-YW /FY6 40 array def %I-Y /FY7 40 array def %D-y /FY8 40 array def %ID-YW %Green /FG0 40 array def %I-W /FG1 40 array def %D-N /FG2 40 array def %ID-NM /FG3 40 array def %I-G /FG4 40 array def %D-g /FG5 40 array def %ID-GW /FG6 40 array def %I-G /FG7 40 array def %D-g /FG8 40 array def %ID-GW %red /FR0 40 array def %I-W /FR1 40 array def %D-N /FR2 40 array def %ID-NM /FR3 40 array def %I-R /FR4 40 array def %D-r /FR5 40 array def %ID-RW /FR6 40 array def %I-R /FR7 40 array def %D-r /FR8 40 array def %ID-RW /IORX 2000 def /IORY 2000 def /MULX 500 def /MULY 500 def 50 setlinewidth tfn %0000 2000 moveto 4000 0 rlineto stroke 0 1 9 {/k exch def %k=0,9 DLU k DLL k get put 0 1 3 {/j exch def %j=0,3 /i k 4 mul j add def %i=0,39 DL i DLL k get YFAK j get mul put DU i DL i get put } for %j=0,3 } for %k=0,9 /W2 2. sqrt def /XP 0 def 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 38 {/i exch def %i=0,38 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %R00KXU=1+1/{1+W2*10**[c(x-u+p)]} R00KXU i 1. 1. W2 F01 mul add div 1. add put %RLMKXU=XQ*{XL/[log(w2)]*log[R00KXU]-XM} RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put j 0 eq {F0 i RLMKXU i get put} if j 1 eq {F1 i RLMKXU i get put} if j 1 eq {F2 i F0 i get F1 i get add put} if } for %i=0,38 /XFX0 0.0 def /F01X0 10 XFX0 XU sub XP add XC mul exp def /R00KXUX0 1. 1. W2 F01X0 mul add div 1. add def /RLMKXUX0 XL W2 log div R00KXUX0 log mul XM sub XQ mul def j 0 eq {/F0X0 RLMKXUX0 def} if j 1 eq {/F1X0 RLMKXUX0 def} if j 1 eq {/F2X0 F0X0 F1X0 add def} if } for %j=0,1 50 setlinewidth %0 1 1 {/j exch def %j=0,1 %j 0 eq {0 0 0 0 setcmykcolor [ ] 0 setdash} if %D %j 1 eq {0 0 0 1 setcmykcolor [300 100] 0 setdash} if %D %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY F0 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY F0 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY F0 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke %} for %j=0,1 TBM 18 3 27 {/i exch def %i=21,3,27 /y20 {IORY F1 i get XP sub MULY mul add} bind def /x20 IORX 2 XP sub MULX mul add def tfn 1300 i 18 sub 80 mul add y20 moveto 1800 i 18 eq {200 sub} if i 21 eq {500 add} if 0 rlineto stroke 700 i 18 sub 80 mul add i 18 eq {100 sub} if y20 050 sub moveto tfw FMC 1 eq {i 18 eq {(0,4%) show} if i 21 eq {( 2%) show} if i 24 eq {( 9%) show} if i 27 eq {(40%) show} if } if 3200 i 18 sub 80 mul add i 18 eq {200 sub} if i 21 eq {500 add} if y20 050 sub moveto tfw FMC 1 eq {i 18 eq {(4%) show} if i 21 eq {(20%) show} if i 24 eq {(90%) show} if i 27 eq {(400%) show} if } if i 27 eq {050 y20 350 add moveto tfw (Relative Leuchtdichte:) showde %0TE010-4 04542 (relative luminance:) showen %1TE010-4 04542 (luminancia relativa:) showes %2TE010-4 04542 (brillance relatif:) showfr %3TE010-4 04542 (splendore relativo:) showit %4TE010-4 04542 (relative luminance:) showjp %5TE010-4 04542 } if } for %i=21,3,27 0 1 1 {/j exch def %j=0,1 j 0 eq {0 0 0 1 setcmykcolor [ ] 0 setdash} if %I j 1 eq {0 0 0 0 setcmykcolor [300 100] 0 setdash} if %I 0 3 36 {/i exch def %i=0,3,36 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY F1 i get MULY mul add} bind def /x21 {IORX XF i 1 add get MULX mul add} bind def /y21 {IORY F1 i 1 add get MULY mul add} bind def /x22 {IORX XF i 2 add get MULX mul add} bind def /y22 {IORY F1 i 2 add get MULY mul add} bind def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,3,36 stroke } for %j=0,1 18 3 27 {/i exch def %i=21,3,27 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY F1 i get XP sub MULY mul add} bind def i 18 eq {tfn x20 y20 75 0 360 arc fill} if i 21 eq {tfw x20 y20 85 0 360 arc fill tfz x20 y20 65 0 360 arc fill} if i 24 eq {tfw x20 y20 75 0 360 arc fill} if i 27 eq {tfw x20 y20 85 0 360 arc fill tfn x20 y20 15 0 360 arc fill} if } for %i=21,3,27 /XP 0.50 FIS div def %Y 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 38 {/i exch def %i=0,38 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %R00KXU=1+1/{1+W2*10**[c(x-u+p)]} R00KXU i 1. 1. W2 F01 mul add div 1. add put %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM} RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put j 0 eq {FY3 i RLMKXU i get put} if j 1 eq {FY4 i RLMKXU i get put} if j 1 eq {FY5 i FY3 i get FY4 i get add put} if } for %i=0,38 /XFX1 0.0 def /F01X1 10 XFX1 XU sub XP add XC mul exp def /R00KXUX1 1. 1. W2 F01X1 mul add div 1. add def /RLMKXUX1 XL W2 log div R00KXUX1 log mul XM sub XQ mul def j 0 eq {/F0X1 RLMKXUX1 def} if j 1 eq {/F1X1 RLMKXUX1 def} if j 1 eq {/F2X1 F0X1 F1X1 add def} if } for %j=0,1 50 setlinewidth tfv3 [ ] 0 setdash %I-V3 0 3 36 {/i exch def %i=0,3,36 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY FY4 i get MULY mul add} bind def /x21 {IORX XF i 1 add get MULX mul add} bind def /y21 {IORY FY4 i 1 add get MULY mul add} bind def /x22 {IORX XF i 2 add get MULX mul add} bind def /y22 {IORY FY4 i 2 add get MULY mul add} bind def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,3,36 stroke 18 3 27 {/i exch def %i=21,3,27 /x20 {IORX XF i 2 FIS idiv sub get MULX mul add} bind def /y20 {IORY FY4 i 2 FIS idiv sub get MULY mul add} bind def newpath x20 y20 moveto ( ) show i 18 eq {tfn} if i 21 eq {0.25 0.25 0.0 0.5 setcmykcolor} if i 24 eq {0.25 0.25 0.0 0.0 setcmykcolor} if i 24 le {x20 y20 75 0 360 arc fill} if i 27 eq {tfw x20 y20 85 0 360 arc fill tfn x20 y20 15 0 360 arc fill} if } for %i=21,3,27 /XP 1.0 FIS div def %G 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 38 {/i exch def %i=0,38 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %R00KXU=1+1/{1+W2*10**[c(x-u+p)]} R00KXU i 1. 1. W2 F01 mul add div 1. add put %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM} RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put j 0 eq {FG3 i RLMKXU i get put} if j 1 eq {FG4 i RLMKXU i get put} if j 1 eq {FG5 i FG3 i get FG4 i get add put} if } for %i=0,38 /XFX1 0.0 def /F01X1 10 XFX1 XU sub XP add XC mul exp def /R00KXUX1 1. 1. W2 F01X1 mul add div 1. add def /RLMKXUX1 XL W2 log div R00KXUX1 log mul XM sub XQ mul def j 0 eq {/F0X1 RLMKXUX1 def} if j 1 eq {/F1X1 RLMKXUX1 def} if j 1 eq {/F2X1 F0X1 F1X1 add def} if } for %j=0,1 50 setlinewidth tfv2 [ ] 0 setdash %I-V2 0 3 36 {/i exch def %i=0,3,36 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY FG4 i get MULY mul add} bind def /x21 {IORX XF i 1 add get MULX mul add} bind def /y21 {IORY FG4 i 1 add get MULY mul add} bind def /x22 {IORX XF i 2 add get MULX mul add} bind def /y22 {IORY FG4 i 2 add get MULY mul add} bind def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,3,36 stroke 18 3 27 {/i exch def %i=21,3,27 /x20 {IORX XF i 4 FIS idiv sub get MULX mul add} bind def /y20 {IORY FG4 i 4 FIS idiv sub get MULY mul add} bind def newpath x20 y20 moveto ( ) show i 18 eq {tfn} if i 21 eq {0.5 0.5 0.0 0.5 setcmykcolor} if i 24 eq {0.5 0.5 0.0 0.0 setcmykcolor} if i 24 le {x20 y20 75 0 360 arc fill} if i 27 eq {tfw x20 y20 85 0 360 arc fill tfn x20 y20 15 0 360 arc fill} if } for %i=21,3,27 /XP 1.5 FIS div def %R 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 38 {/i exch def %i=0,38 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %R00KXU=1+1/{1+W2*10**[c(x-u+p)]} R00KXU i 1. 1. W2 F01 mul add div 1. add put %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM} RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put j 0 eq {FR3 i RLMKXU i get put} if j 1 eq {FR4 i RLMKXU i get put} if j 1 eq {FR5 i FR3 i get FR4 i get add put} if } for %i=0,38 /XFX1 0.0 def /F01X1 10 XFX1 XU sub XP add XC mul exp def /R00KXUX1 1. 1. W2 F01X1 mul add div 1. add def /RLMKXUX1 XL W2 log div R00KXUX1 log mul XM sub XQ mul def j 0 eq {/F0X1 RLMKXUX1 def} if j 1 eq {/F1X1 RLMKXUX1 def} if j 1 eq {/F2X1 F0X1 F1X1 add def} if } for %j=0,1 50 setlinewidth tfv1 [ ] 0 setdash %I-V1 0 3 36 {/i exch def %i=0,3,36 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY FR4 i get MULY mul add} bind def /x21 {IORX XF i 1 add get MULX mul add} bind def /y21 {IORY FR4 i 1 add get MULY mul add} bind def /x22 {IORX XF i 2 add get MULX mul add} bind def /y22 {IORY FR4 i 2 add get MULY mul add} bind def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,3,36 stroke 18 3 27 {/i exch def %i=21,3,27 /x20 {IORX XF i 6 FIS idiv sub get MULX mul add} bind def /y20 {IORY FR4 i 6 FIS idiv sub get MULY mul add} bind def newpath x20 y20 moveto ( ) show i 18 eq {tfn} if i 21 eq {0.75 0.75 0.0 0.5 setcmykcolor} if i 24 eq {0.75 0.75 0.0 0.0 setcmykcolor} if i 24 le {x20 y20 75 0 360 arc fill} if i 27 eq {tfw x20 y20 85 0 360 arc fill tfn x20 y20 15 0 360 arc fill} if } for %i=21,3,27 /XP 2 FIS idiv def %B 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 38 {/i exch def %i=0,38 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %R00KXU=1+1/{1+W2*10**[c(x-u+p)]} R00KXU i 1. 1. W2 F01 mul add div 1. add put %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM} RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put j 0 eq {FB3 i RLMKXU i get put} if j 1 eq {FB4 i RLMKXU i get put} if j 1 eq {FB5 i FB3 i get FB4 i get add put} if } for %i=0,38 /XFX1 0.0 def /F01X1 10 XFX1 XU sub XP add XC mul exp def /R00KXUX1 1. 1. W2 F01X1 mul add div 1. add def /RLMKXUX1 XL W2 log div R00KXUX1 log mul XM sub XQ mul def j 0 eq {/F0X1 RLMKXUX1 def} if j 1 eq {/F1X1 RLMKXUX1 def} if j 1 eq {/F2X1 F0X1 F1X1 add def} if } for %j=0,1 50 setlinewidth tfv0 [ ] 0 setdash %I-V0 0 3 36 {/i exch def %i=0,3,36 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY FB4 i get MULY mul add} bind def /x21 {IORX XF i 1 add get MULX mul add} bind def /y21 {IORY FB4 i 1 add get MULY mul add} bind def /x22 {IORX XF i 2 add get MULX mul add} bind def /y22 {IORY FB4 i 2 add get MULY mul add} bind def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,3,36 stroke 18 3 27 {/i exch def %i=21,3,27 /x20 {IORX XF i 8 FIS idiv sub get MULX mul add} bind def /y20 {IORY FB4 i 8 FIS idiv sub get MULY mul add} bind def newpath x20 y20 moveto ( ) show i 18 eq {tfn} if i 21 eq {1.0 1.0 0.0 0.5 setcmykcolor} if i 24 eq {1.0 1.0 0.0 0.0 setcmykcolor} if i 24 le {x20 y20 75 0 360 arc fill} if i 27 eq {tfw x20 y20 85 0 360 arc fill tfn x20 y20 15 0 360 arc fill} if } for %i=21,3,27 tfy [ ] 0 setdash 2250 1370 moveto 0000 0630 rlineto 0750 0000 rlineto stroke tfr 2270 1370 moveto -530 0000 rlineto stroke %******************************************************************** %L/DL with equation Buch Seite 123, Bild 4-49 right %/IORY 2000 def /IORY 1000 def /W2 2. sqrt def /const 16.5 def %arbitary to get same value /XP 0 def 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 38 {/i exch def %i=0,38 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %H=F01 %RLMKXU=const H/[(1+W2*H)(2+W2*H)] RLMKXU i F01 1 W2 F01 mul add 2 W2 F01 mul add mul div const mul put j 0 eq {F0 i RLMKXU i get put} if j 1 eq {F1 i RLMKXU i get put} if j 1 eq {F2 i F0 i get F1 i get add put} if } for %i=0,38 % /XFX0 0.0 def % /F01X0 10 XFX0 XU sub XP add XC mul exp def % /R00KXUX0 1. 1. W2 F01X0 mul add div 1. add def % /RLMKXUX0 XL W2 log div R00KXUX0 log mul XM sub XQ mul def /XFX0 0.0 def /F01X0 10 XFX0 XU sub XP add XC mul exp def /RLMKXUX0 F01X0 1 W2 F01X0 mul add 2 W2 F01X0 mul add mul div const mul def j 0 eq {/F0X0 RLMKXUX0 def} if j 1 eq {/F1X0 RLMKXUX0 def} if j 1 eq {/F2X0 F0X0 F1X0 add def} if } for %j=0,1 50 setlinewidth 0 1 1 {/j exch def %j=0,1 j 0 eq {0 0 0 1 setcmykcolor [ ] 0 setdash} if %I j 1 eq {0 0 0 0 setcmykcolor [300 100] 0 setdash} if %I 0 3 36 {/i exch def %i=0,3,36 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY F1 i get MULY mul add} bind def /x21 {IORX XF i 1 add get MULX mul add} bind def /y21 {IORY F1 i 1 add get MULY mul add} bind def /x22 {IORX XF i 2 add get MULX mul add} bind def /y22 {IORY F1 i 2 add get MULY mul add} bind def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,3,36 stroke } for %j=0,1 %****************************************************************** /XP 0.5 def 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 38 {/i exch def %i=0,38 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %H=F01 %RLMKXU=const H/[(1+W2*H)(2+W2*H)] RLMKXU i F01 1 W2 F01 mul add 2 W2 F01 mul add mul div const mul put j 0 eq {F0 i RLMKXU i get put} if j 1 eq {F1 i RLMKXU i get put} if j 1 eq {F2 i F0 i get F1 i get add put} if } for %i=0,38 % /XFX0 0.0 def % /F01X0 10 XFX0 XU sub XP add XC mul exp def % /R00KXUX0 1. 1. W2 F01X0 mul add div 1. add def % /RLMKXUX0 XL W2 log div R00KXUX0 log mul XM sub XQ mul def /XFX0 0.0 def /F01X0 10 XFX0 XU sub XP add XC mul exp def /RLMKXUX0 F01X0 1 W2 F01X0 mul add 2 W2 F01X0 mul add mul div const mul def j 0 eq {/F0X0 RLMKXUX0 def} if j 1 eq {/F1X0 RLMKXUX0 def} if j 1 eq {/F2X0 F0X0 F1X0 add def} if } for %j=0,1 50 setlinewidth 0 1 0 {/j exch def %j=0,1 j 0 eq {0.5 0.5 0 0 setcmykcolor [ ] 0 setdash} if %I %j 1 eq {0 0 0 0 setcmykcolor [300 100] 0 setdash} if %I 0 3 36 {/i exch def %i=0,3,36 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY F1 i get MULY mul add} bind def /x21 {IORX XF i 1 add get MULX mul add} bind def /y21 {IORY F1 i 1 add get MULY mul add} bind def /x22 {IORX XF i 2 add get MULX mul add} bind def /y22 {IORY F1 i 2 add get MULY mul add} bind def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,3,36 stroke } for %j=0,1 /XP 1 def 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 38 {/i exch def %i=0,38 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %H=F01 %RLMKXU=const H/[(1+W2*H)(2+W2*H)] RLMKXU i F01 1 W2 F01 mul add 2 W2 F01 mul add mul div const mul put j 0 eq {F0 i RLMKXU i get put} if j 1 eq {F1 i RLMKXU i get put} if j 1 eq {F2 i F0 i get F1 i get add put} if } for %i=0,38 % /XFX0 0.0 def % /F01X0 10 XFX0 XU sub XP add XC mul exp def % /R00KXUX0 1. 1. W2 F01X0 mul add div 1. add def % /RLMKXUX0 XL W2 log div R00KXUX0 log mul XM sub XQ mul def /XFX0 0.0 def /F01X0 10 XFX0 XU sub XP add XC mul exp def /RLMKXUX0 F01X0 1 W2 F01X0 mul add 2 W2 F01X0 mul add mul div const mul def j 0 eq {/F0X0 RLMKXUX0 def} if j 1 eq {/F1X0 RLMKXUX0 def} if j 1 eq {/F2X0 F0X0 F1X0 add def} if } for %j=0,1 50 setlinewidth 0 1 0 {/j exch def %j=0,1 j 0 eq {1 1 0 0 setcmykcolor [ ] 0 setdash} if %I %j 1 eq {0 0 0 0 setcmykcolor [300 100] 0 setdash} if %I 0 3 36 {/i exch def %i=0,3,36 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY F1 i get MULY mul add} bind def /x21 {IORX XF i 1 add get MULX mul add} bind def /y21 {IORY F1 i 1 add get MULY mul add} bind def /x22 {IORX XF i 2 add get MULX mul add} bind def /y22 {IORY F1 i 2 add get MULY mul add} bind def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,3,36 stroke } for %j=0,1 showpage grestore %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 28 MM 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 15 %line 379 %!PS-Adobe-3.0 EPSF-3.0 TE010-5 %%BoundingBox: 70 83 228 206 %! for061..76.dat aus (wrpos:empp8620.for) %START PDFDE011.EPS /pdfmark05 where {pop} {userdict /pdfmark05 /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/MG99/) /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@me.com) /CreationDate (D:2012050112000) /ModDate (D:2012050112000) /DOCINFO pdfmark05 [ /View [ /FitB ] /DOCVIEW pdfmark05 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def % !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-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 /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-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 /nshow1 {TG show} bind def /kshow1 {TIG show} bind def /bshow1 {TBG show} bind def /bkshow1 {TBIG show} bind def /ishow1 {TM 0 -50 rmoveto show 0 50 rmoveto} bind def /eshow1 {TM 0 200 rmoveto show 0 -200 rmoveto} bind def /nshow2 {TM show} bind def /kshow2 {TIM show} bind def /bshow2 {TBM show} bind def /bkshow2 {TBIM show} bind def /ibshow2 {TBK 0 -50 rmoveto show 0 50 rmoveto} bind def /ebshow2 {TBK 0 100 rmoveto show 0 -100 rmoveto} bind def /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmyk_olvcolor} bind def /tfl {tzl setcmyk_olvcolor} bind def /tfv {tzv setcmyk_olvcolor} bind def /tfc {tzc setcmyk_olvcolor} bind def /tfm {tzm setcmyk_olvcolor} bind def /tfy {tzy setcmyk_olvcolor} bind def /tfn {tzn setcmyk_olvcolor} bind def /tfd {tzd setcmyk_olvcolor} bind def /tfz {tzz setcmyk_olvcolor} bind def /tfh {tzh setcmyk_olvcolor} bind def /tfw {tzw setcmyk_olvcolor} bind def /tfr {tzr setcmyk_olvcolor} bind def /tfg {tzg setcmyk_olvcolor} bind def /tfb {tzb setcmyk_olvcolor} bind def /tfj {tzj setcmyk_olvcolor} bind def /tfrz {tzrz setcmyk_olvcolor} bind def /tfgz {tzgz setcmyk_olvcolor} bind def /tfbz {tzbz setcmyk_olvcolor} bind def /tfjz {tzjz setcmyk_olvcolor} bind def %ANFA OUTLIN00 951204 /pixf 1.0 def /ueg 1 pixf mul def /uek 1 pixf mul def /ues 1 pixf mul def /pxd uek def /pyd uek def /pxwd ueg def /pywd ueg def /pss ues def /outxshowf {show} bind def /outxshow {show} bind def /outSK {250 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSM {300 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSG {350 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outshowf {setcmyk_olvcolor show} bind def /outrecfi { %x y width heigth c m y k setcmyk_olvcolor rec fill} bind def /outrecfi4 { %x y width heigth c m y k outrecfi} bind def /outrecfi3 { %x y width heigth c m y k outrecfi} bind def /outrecfi2 { %x y width heigth c m y k outrecfi} bind def /outlinetos { %px py c m y k setcmyk_olvcolor lineto stroke} bind def /outstroke { %px1 py1 curveto ... curveto c m y k setcmyk_olvcolor stroke} bind def %%EndProlog gsave %LANINDL2 START 20000505 /lanind 1 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showea {1 lanind le {show} {pop} ifelse} bind def /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 /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 1 def /lanind2 1 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 3 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % colorm 0 eq deintp 0 eq and {/Txx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def} if %colorm=1, deintp=1 xchart 0 eq {/Txx (-) def} if %always independent of intended output 5 /Times-ISOL1 FS /cvishow {cvi 6 string cvs show} def 75 85 moveto lanind cvishow (-) show colorm cvishow deintp cvishow xcolor cvishow xchart cvishow pchart cvishow colsep cvishow (-L) show pmetam cvishow gsave %XCHA01.PS END 5 /Times-ISOL1 FS 170 85 moveto (ME100-5N/TE010-5) show xchart 0 eq {(N) show} {deintp colorm 2 mul add cvishow} ifelse %(, B4_33_1) show % ( B8620_4, M8220-5, B4_33_1, N=4_33_1) show 72 90 translate /pixf 16.67 def 0.1667 pixf div MM dup scale /ausz 8 def %Farbauszug 1=C, 2=M, 3=Y, 7=N, 8=F 30 setlinewidth 0.0 0.0 0.0 0.5 setcmyk_olvcolor 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath fill 050 3400 moveto (log) TBM tfw show 50 0 rmoveto (V) TBIM tfw show 30 0 rmoveto TBM 20 0 (=[c\267) ashow tfw (l) outSM 30 0 rmoveto TBM 20 0 (-c\267) ashow (555) show 20 0 rmoveto (]) show (2) ebshow2 50 setlinewidth [50] 0 setdash 050 3170 moveto 300 0 rlineto stroke [ ] 0 setdash 30 setlinewidth 350 3100 moveto TBM tfw (experimentell\255CIE) showde %0TE010-5 00531 (experimental\255CIE) showen %1TE010-5 00531 (experimental\255CIE) showes %2TE010-5 00531 (experimental\255CIE) showfr %3TE010-5 00531 (experimental\255CIE) showit %4TE010-5 00531 (experimental\255CIE) showjp %5TE010-5 00531 4700 500 moveto (l) outSM 30 0 rmoveto (/nm) bshow2 2850 3400 moveto (log) TBM tfw show 30 0 rmoveto (P) TBIM tzo outshowf 50 0 rmoveto TBM tfw 20 0 (=[c\267) ashow tfw (l) outSM 30 0 rmoveto TBM tfw 20 0 (-c\267) ashow (570) show 20 0 rmoveto (]) show (2) ebshow2 2850 3100 moveto (log) TBM tfw show 20 0 rmoveto (D) TBIM tzl outshowf 30 0 rmoveto TBM tfw 20 0 (=[c\267) ashow tfw (l) outSM 30 0 rmoveto TBM tfw 20 0 (-c\267) ashow (540) show 20 0 rmoveto (]) show (2) ebshow2 2850 2800 moveto (log) TBM tfw show 30 0 rmoveto (T) TBIM tzv outshowf 50 0 rmoveto TBM tfw 20 0 (=[c\267) ashow tfw (l) outSM 30 0 rmoveto TBM tfw 20 0 (-c\267) ashow (450) show 20 0 rmoveto (]) show (2) ebshow2 /tx [ (400) (500) (600) (700)] def /ty [(0) (10) (20) (30) (40) (50)] def 050 3750 moveto TBM tfw %B8620-04.xps (relative Empfindlichkeit) showde %0TE010-5 01531 (relative sensitivty) showen %1TE010-5 01531 (Sensibilidad relativa) showes %2TE010-5 01531 (sensibilit\351 relatif) showfr %3TE010-5 01531 (sensitivty relativo) showit %4TE010-5 01531 (relative sensitivty) showjp %5TE010-5 01531 050 2800 moveto (P) TBIM tzo outshowf (, ) TBM tfw show (D) TBIM tzl outshowf (, ) TBM tfw show (T) TBIM tzv outshowf (, ) TBM tfw show (V) TBIM tfw show (, ) TBM tfw show (V') TBIM tfn show 2900 2500 moveto (P) TBIM tzo outshowf 2600 2500 moveto (V) TBIM tfw show 2350 2500 moveto (D) TBIM tzl outshowf 1400 2500 moveto (T) TBIM tzv outshowf 2000 2500 moveto (V') TBIM tfn show 4000 2500 moveto TBM tfw (Modell ) showde %0TE010-5 02531 (model ) showen %1TE010-5 02531 (Modelo ) showes %2TE010-5 02531 (mod\350le ) showfr %3TE010-5 02531 (modello ) showit %4TE010-5 02531 (model ) showjp %5TE010-5 02531 ( l ) outSM /ty [(0,0) (0,2) (0,4) (0,6) (0,8) (1,0) ] def tfw 600 400 translate 50 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 2000 rlineto stroke 0 2000 moveto 3200 0 rlineto stroke TBM %!x-Achse: 100 Einheiten = 1200 Skalen-Einheiten tfw 0 1 3 {/i exch def /ixt { 20 i 1200 mul add} def /ixl {240 i 1200 mul add} def ixt -350 moveto tx i get exec show ixl 75 moveto 0 -150 rlineto stroke } for %!x-Achse: 150 S-Einheiten = 2500*0.8 = 2000 Skalen-Einheiten 0 1 5 {/i exch def /iyt {-100 i 0400 mul add} def /iyl { 000 i 0400 mul add} def -550 iyt moveto ty i get exec show -75 iyl moveto 150 0 rlineto stroke } for 50 setlinewidth %!0 WRPOS:EMPP8620.FOR KURVT(J)Vn 0 0 8 [ ] 0 setdash %Vn 60 18 moveto % 385 120 27 180 39 240 55 curveto % 390 395 400 300 77 360 106 420 144 curveto % 405 410 415 480 191 540 250 600 322 curveto % 420 425 430 660 407 720 507 780 621 curveto % 435 440 445 840 749 900 888 960 1036 curveto % 450 455 460 1020 1189 1080 1344 1140 1493 curveto % 465 470 475 1200 1633 1260 1756 1320 1859 curveto % 480 485 490 1380 1936 1440 1984 1500 2000 curveto % 495 500 505 1560 1984 1620 1936 1680 1859 curveto % 510 515 520 1740 1756 1800 1633 1860 1493 curveto % 525 530 535 1920 1344 1980 1189 2040 1036 curveto % 540 545 550 2100 888 2160 749 2220 621 curveto % 555 560 565 2280 507 2340 407 2400 322 curveto % 570 575 580 2460 250 2520 191 2580 144 curveto % 585 590 595 2640 106 2700 77 2760 55 curveto % 600 605 610 2820 39 2880 27 2940 18 curveto % 615 620 625 3000 12 3060 8 3120 5 curveto % 630 635 640 3180 3 3240 2 3300 1 curveto % 645 650 655 3360 0 3420 0 3480 0 curveto % 660 665 670 3540 0 3600 0 3660 0 curveto % 675 680 685 3720 0 3780 0 3840 0 curveto % 690 695 700 3900 0 3960 0 4020 0 curveto % 705 710 715 0.00 0.00 0.00 1.00 setcmyk_olvcolor stroke %! 380 1. 385 2. 390 3. 395 4. 400 6. 405 8. %! 410 11. 415 14. 420 19. 425 24. 430 31. 435 38. %! 440 47. 445 56. 450 67. 455 78. 460 89. 465 101. %! 470 112. 475 122. 480 132. 485 139. 490 145. 495 149. %! 500 150. 505 149. 510 145. 515 139. 520 132. 525 122. %! 530 112. 535 101. 540 89. 545 78. 550 67. 555 56. %! 560 47. 565 38. 570 31. 575 24. 580 19. 585 14. %! 590 11. 595 8. 600 6. 605 4. 610 3. 615 2. %! 620 1. 625 1. 630 1. 635 0. 640 0. 645 0. %! 650 0. 655 0. 660 0. 665 0. 670 0. 675 0. %! 680 0. 685 0. 690 0. 695 0. 700 0. 705 0. %! 710 0. 715 0. 720 0. [50] 0 setdash %Vn 60 2 moveto % 385 120 4 180 9 240 18 curveto % 390 395 400 300 37 360 69 420 120 curveto % 405 410 415 480 193 540 287 600 399 curveto % 420 425 430 660 525 720 656 780 786 curveto % 435 440 445 840 910 900 1026 960 1134 curveto % 450 455 460 1020 1240 1080 1352 1140 1468 curveto % 465 470 475 1200 1586 1260 1702 1320 1808 curveto % 480 485 490 1380 1898 1440 1964 1500 1996 curveto % 495 500 505 1560 1994 1620 1950 1680 1870 curveto % 510 515 520 1740 1760 1800 1622 1860 1466 curveto % 525 530 535 1920 1300 1980 1128 2040 962 curveto % 540 545 550 2100 804 2160 657 2220 527 curveto % 555 560 565 2280 415 2340 320 2400 242 curveto % 570 575 580 2460 179 2520 131 2580 93 curveto % 585 590 595 2640 66 2700 46 2760 31 curveto % 600 605 610 2820 21 2880 14 2940 9 curveto % 615 620 625 3000 6 3060 4 3120 2 curveto % 630 635 640 3180 2 3240 1 3300 0 curveto % 645 650 655 3360 0 3420 0 3480 0 curveto % 660 665 670 3540 0 3600 0 3660 0 curveto % 675 680 685 3720 0 3780 0 3840 0 curveto % 690 695 700 3900 0 3960 0 4020 0 curveto % 705 710 715 0.00 0.00 0.00 1.00 setcmyk_olvcolor stroke %! 380 0. 385 0. 390 1. 395 1. 400 3. 405 5. %! 410 9. 415 14. 420 22. 425 30. 430 39. 435 49. %! 440 59. 445 68. 450 77. 455 85. 460 93. 465 101. %! 470 110. 475 119. 480 128. 485 136. 490 142. 495 147. %! 500 150. 505 150. 510 146. 515 140. 520 132. 525 122. %! 530 110. 535 98. 540 85. 545 72. 550 60. 555 49. %! 560 40. 565 31. 570 24. 575 18. 580 13. 585 10. %! 590 7. 595 5. 600 3. 605 2. 610 2. 615 1. %! 620 1. 625 1. 630 0. 635 0. 640 0. 645 0. %! 650 0. 655 0. 660 0. 665 0. 670 0. 675 0. %! 680 0. 685 0. 690 0. 695 0. 700 0. 705 0. %! 710 0. 715 0. 720 0. %!1 WRPOS:EMPP8620.FOR KURVT(J)P 0 0 8 [ ] 0 setdash %P 60 0 moveto % 385 120 0 180 0 240 0 curveto % 390 395 400 300 0 360 0 420 0 curveto % 405 410 415 480 1 540 2 600 3 curveto % 420 425 430 660 5 720 8 780 12 curveto % 435 440 445 840 18 900 27 960 39 curveto % 450 455 460 1020 55 1080 77 1140 106 curveto % 465 470 475 1200 144 1260 191 1320 250 curveto % 480 485 490 1380 322 1440 407 1500 507 curveto % 495 500 505 1560 621 1620 749 1680 888 curveto % 510 515 520 1740 1036 1800 1189 1860 1344 curveto % 525 530 535 1920 1493 1980 1633 2040 1756 curveto % 540 545 550 2100 1859 2160 1936 2220 1984 curveto % 555 560 565 2280 2000 2340 1984 2400 1936 curveto % 570 575 580 2460 1859 2520 1756 2580 1633 curveto % 585 590 595 2640 1493 2700 1344 2760 1189 curveto % 600 605 610 2820 1036 2880 888 2940 749 curveto % 615 620 625 3000 621 3060 507 3120 407 curveto % 630 635 640 3180 322 3240 250 3300 191 curveto % 645 650 655 3360 144 3420 106 3480 77 curveto % 660 665 670 3540 55 3600 39 3660 27 curveto % 675 680 685 3720 18 3780 12 3840 8 curveto % 690 695 700 3900 5 3960 3 4020 2 curveto % 705 710 715 tzo outstroke %! 380 0. 385 0. 390 0. 395 0. 400 0. 405 0. %! 410 0. 415 0. 420 0. 425 0. 430 0. 435 1. %! 440 1. 445 1. 450 2. 455 3. 460 4. 465 6. %! 470 8. 475 11. 480 14. 485 19. 490 24. 495 31. %! 500 38. 505 47. 510 56. 515 67. 520 78. 525 89. %! 530 101. 535 112. 540 122. 545 132. 550 139. 555 145. %! 560 149. 565 150. 570 149. 575 145. 580 139. 585 132. %! 590 122. 595 112. 600 101. 605 89. 610 78. 615 67. %! 620 56. 625 47. 630 38. 635 31. 640 24. 645 19. %! 650 14. 655 11. 660 8. 665 6. 670 4. 675 3. %! 680 2. 685 1. 690 1. 695 1. 700 0. 705 0. %! 710 0. 715 0. 720 0. [50] 0 setdash %P 60 0 moveto % 385 120 0 180 1 240 2 curveto % 390 395 400 300 4 360 8 420 14 curveto % 405 410 415 480 25 540 40 600 55 curveto % 420 425 430 660 66 720 74 780 79 curveto % 435 440 445 840 84 900 89 960 95 curveto % 450 455 460 1020 103 1080 117 1140 140 curveto % 465 470 475 1200 173 1260 214 1320 271 curveto % 480 485 490 1380 347 1440 445 1500 576 curveto % 495 500 505 1560 730 1620 907 1680 1088 curveto % 510 515 520 1740 1249 1800 1396 1860 1522 curveto % 525 530 535 1920 1630 1980 1724 2040 1802 curveto % 540 545 550 2100 1871 2160 1927 2220 1967 curveto % 555 560 565 2280 1992 2340 2000 2400 1990 curveto % 570 575 580 2460 1958 2520 1907 2580 1839 curveto % 585 590 595 2640 1748 2700 1641 2760 1513 curveto % 600 605 610 2820 1373 2880 1219 2940 1051 curveto % 615 620 625 3000 885 3060 737 3120 602 curveto % 630 635 640 3180 481 3240 376 3300 288 curveto % 645 650 655 3360 216 3420 159 3480 114 curveto % 660 665 670 3540 83 3600 61 3660 42 curveto % 675 680 685 3720 29 3780 20 3840 14 curveto % 690 695 700 3900 10 3960 7 4020 5 curveto % 705 710 715 tzo outstroke %! 380 0. 385 0. 390 0. 395 0. 400 0. 405 1. %! 410 1. 415 2. 420 3. 425 4. 430 5. 435 6. %! 440 6. 445 6. 450 7. 455 7. 460 8. 465 9. %! 470 11. 475 13. 480 16. 485 20. 490 26. 495 33. %! 500 43. 505 55. 510 68. 515 82. 520 94. 525 105. %! 530 114. 535 122. 540 129. 545 135. 550 140. 555 145. %! 560 148. 565 149. 570 150. 575 149. 580 147. 585 143. %! 590 138. 595 131. 600 123. 605 114. 610 103. 615 91. %! 620 79. 625 66. 630 55. 635 45. 640 36. 645 28. %! 650 22. 655 16. 660 12. 665 9. 670 6. 675 5. %! 680 3. 685 2. 690 2. 695 1. 700 1. 705 1. %! 710 0. 715 0. 720 0. %!2 WRPOS:EMPP8620.FOR KURVT(J)D 0 0 8 [ ] 0 setdash %D 60 0 moveto % 385 120 0 180 1 240 2 curveto % 390 395 400 300 3 360 5 420 8 curveto % 405 410 415 480 12 540 18 600 27 curveto % 420 425 430 660 39 720 55 780 77 curveto % 435 440 445 840 106 900 144 960 191 curveto % 450 455 460 1020 250 1080 322 1140 407 curveto % 465 470 475 1200 507 1260 621 1320 749 curveto % 480 485 490 1380 888 1440 1036 1500 1189 curveto % 495 500 505 1560 1344 1620 1493 1680 1633 curveto % 510 515 520 1740 1756 1800 1859 1860 1936 curveto % 525 530 535 1920 1984 1980 2000 2040 1984 curveto % 540 545 550 2100 1936 2160 1859 2220 1756 curveto % 555 560 565 2280 1633 2340 1493 2400 1344 curveto % 570 575 580 2460 1189 2520 1036 2580 888 curveto % 585 590 595 2640 749 2700 621 2760 507 curveto % 600 605 610 2820 407 2880 322 2940 250 curveto % 615 620 625 3000 191 3060 144 3120 106 curveto % 630 635 640 3180 77 3240 55 3300 39 curveto % 645 650 655 3360 27 3420 18 3480 12 curveto % 660 665 670 3540 8 3600 5 3660 3 curveto % 675 680 685 3720 2 3780 1 3840 0 curveto % 690 695 700 3900 0 3960 0 4020 0 curveto % 705 710 715 tzl outstroke %! 380 0. 385 0. 390 0. 395 0. 400 0. 405 0. %! 410 1. 415 1. 420 1. 425 2. 430 3. 435 4. %! 440 6. 445 8. 450 11. 455 14. 460 19. 465 24. %! 470 31. 475 38. 480 47. 485 56. 490 67. 495 78. %! 500 89. 505 101. 510 112. 515 122. 520 132. 525 139. %! 530 145. 535 149. 540 150. 545 149. 550 145. 555 139. %! 560 132. 565 122. 570 112. 575 101. 580 89. 585 78. %! 590 67. 595 56. 600 47. 605 38. 610 31. 615 24. %! 620 19. 625 14. 630 11. 635 8. 640 6. 645 4. %! 650 3. 655 2. 660 1. 665 1. 670 1. 675 0. %! 680 0. 685 0. 690 0. 695 0. 700 0. 705 0. %! 710 0. 715 0. 720 0. [50] 0 setdash %D 60 0 moveto % 385 120 0 180 1 240 2 curveto % 390 395 400 300 4 360 8 420 15 curveto % 405 410 415 480 28 540 48 600 70 curveto % 420 425 430 660 92 720 114 780 136 curveto % 435 440 445 840 162 900 192 960 226 curveto % 450 455 460 1020 261 1080 297 1140 340 curveto % 465 470 475 1200 393 1260 455 1320 535 curveto % 480 485 490 1380 644 1440 784 1500 969 curveto % 495 500 505 1560 1174 1620 1393 1680 1597 curveto % 510 515 520 1740 1752 1800 1869 1860 1946 curveto % 525 530 535 1920 1989 1980 2000 2040 1982 curveto % 540 545 550 2100 1938 2160 1869 2220 1773 curveto % 555 560 565 2280 1654 2340 1514 2400 1359 curveto % 570 575 580 2460 1192 2520 1023 2580 859 curveto % 585 590 595 2640 709 2700 573 2760 457 curveto % 600 605 610 2820 360 2880 280 2940 214 curveto % 615 620 625 3000 161 3060 121 3120 90 curveto % 630 635 640 3180 66 3240 48 3300 35 curveto % 645 650 655 3360 25 3420 18 3480 12 curveto % 660 665 670 3540 9 3600 6 3660 4 curveto % 675 680 685 3720 3 3780 2 3840 1 curveto % 690 695 700 3900 1 3960 0 4020 0 curveto % 705 710 715 tzl outstroke %! 380 0. 385 0. 390 0. 395 0. 400 0. 405 1. %! 410 1. 415 2. 420 4. 425 5. 430 7. 435 9. %! 440 10. 445 12. 450 14. 455 17. 460 20. 465 22. %! 470 26. 475 30. 480 34. 485 40. 490 48. 495 59. %! 500 73. 505 88. 510 105. 515 120. 520 131. 525 140. %! 530 146. 535 149. 540 150. 545 149. 550 145. 555 140. %! 560 133. 565 124. 570 114. 575 102. 580 89. 585 77. %! 590 64. 595 53. 600 43. 605 34. 610 27. 615 21. %! 620 16. 625 12. 630 9. 635 7. 640 5. 645 4. %! 650 3. 655 2. 660 1. 665 1. 670 1. 675 0. %! 680 0. 685 0. 690 0. 695 0. 700 0. 705 0. %! 710 0. 715 0. 720 0. %!3 WRPOS:EMPP8620.FOR KURVT(J)T 0 0 8 [ ] 0 setdash %T 60 507 moveto % 385 120 621 180 749 240 888 curveto % 390 395 400 300 1036 360 1189 420 1344 curveto % 405 410 415 480 1493 540 1633 600 1756 curveto % 420 425 430 660 1859 720 1936 780 1984 curveto % 435 440 445 840 2000 900 1984 960 1936 curveto % 450 455 460 1020 1859 1080 1756 1140 1633 curveto % 465 470 475 1200 1493 1260 1344 1320 1189 curveto % 480 485 490 1380 1036 1440 888 1500 749 curveto % 495 500 505 1560 621 1620 507 1680 407 curveto % 510 515 520 1740 322 1800 250 1860 191 curveto % 525 530 535 1920 144 1980 106 2040 77 curveto % 540 545 550 2100 55 2160 39 2220 27 curveto % 555 560 565 2280 18 2340 12 2400 8 curveto % 570 575 580 2460 5 2520 3 2580 2 curveto % 585 590 595 2640 1 2700 0 2760 0 curveto % 600 605 610 2820 0 2880 0 2940 0 curveto % 615 620 625 3000 0 3060 0 3120 0 curveto % 630 635 640 3180 0 3240 0 3300 0 curveto % 645 650 655 3360 0 3420 0 3480 0 curveto % 660 665 670 3540 0 3600 0 3660 0 curveto % 675 680 685 3720 0 3780 0 3840 0 curveto % 690 695 700 3900 0 3960 0 4020 0 curveto % 705 710 715 tzv outstroke %! 380 38. 385 47. 390 56. 395 67. 400 78. 405 89. %! 410 101. 415 112. 420 122. 425 132. 430 139. 435 145. %! 440 149. 445 150. 450 149. 455 145. 460 139. 465 132. %! 470 122. 475 112. 480 101. 485 89. 490 78. 495 67. %! 500 56. 505 47. 510 38. 515 31. 520 24. 525 19. %! 530 14. 535 11. 540 8. 545 6. 550 4. 555 3. %! 560 2. 565 1. 570 1. 575 1. 580 0. 585 0. %! 590 0. 595 0. 600 0. 605 0. 610 0. 615 0. %! 620 0. 625 0. 630 0. 635 0. 640 0. 645 0. %! 650 0. 655 0. 660 0. 665 0. 670 0. 675 0. %! 680 0. 685 0. 690 0. 695 0. 700 0. 705 0. %! 710 0. 715 0. 720 0. [50] 0 setdash %T 60 11 moveto % 385 120 22 180 40 240 76 curveto % 390 395 400 300 123 360 232 420 416 curveto % 405 410 415 480 724 540 1166 600 1555 curveto % 420 425 430 660 1821 720 1960 780 2000 curveto % 435 440 445 840 1988 900 1957 960 1873 curveto % 450 455 460 1020 1714 1080 1445 1140 1169 curveto % 465 470 475 1200 912 1260 691 1320 522 curveto % 480 485 490 1380 396 1440 305 1500 238 curveto % 495 500 505 1560 177 1620 125 1680 87 curveto % 510 515 520 1740 64 1800 47 1860 31 curveto % 525 530 535 1920 22 1980 15 2040 9 curveto % 540 545 550 2100 6 2160 4 2220 3 curveto % 555 560 565 2280 2 2340 2 2400 1 curveto % 570 575 580 2460 1 2520 1 2580 1 curveto % 585 590 595 2640 0 2700 0 2760 0 curveto % 600 605 610 2820 0 2880 0 2940 0 curveto % 615 620 625 3000 0 3060 0 3120 0 curveto % 630 635 640 3180 0 3240 0 3300 0 curveto % 645 650 655 3360 0 3420 0 3480 0 curveto % 660 665 670 3540 0 3600 0 3660 0 curveto % 675 680 685 3720 0 3780 0 3840 0 curveto % 690 695 700 3900 0 3960 0 4020 0 curveto % 705 710 715 tzv outstroke %! 380 1. 385 2. 390 3. 395 6. 400 9. 405 17. %! 410 31. 415 54. 420 87. 425 117. 430 137. 435 147. %! 440 150. 445 149. 450 147. 455 140. 460 129. 465 108. %! 470 88. 475 68. 480 52. 485 39. 490 30. 495 23. %! 500 18. 505 13. 510 9. 515 7. 520 5. 525 4. %! 530 2. 535 2. 540 1. 545 1. 550 0. 555 0. %! 560 0. 565 0. 570 0. 575 0. 580 0. 585 0. %! 590 0. 595 0. 600 0. 605 0. 610 0. 615 0. %! 620 0. 625 0. 630 0. 635 0. 640 0. 645 0. %! 650 0. 655 0. 660 0. 665 0. 670 0. 675 0. %! 680 0. 685 0. 690 0. 695 0. 700 0. 705 0. %! 710 0. 715 0. 720 0. %!4 WRPOS:EMPP8620.FOR KURVT(J)V 0 0 8 [ ] 0 setdash %V 60 0 moveto % 385 120 0 180 0 240 0 curveto % 390 395 400 300 1 360 2 420 3 curveto % 405 410 415 480 5 540 8 600 12 curveto % 420 425 430 660 18 720 27 780 39 curveto % 435 440 445 840 55 900 77 960 106 curveto % 450 455 460 1020 144 1080 191 1140 250 curveto % 465 470 475 1200 322 1260 407 1320 507 curveto % 480 485 490 1380 621 1440 749 1500 888 curveto % 495 500 505 1560 1036 1620 1189 1680 1344 curveto % 510 515 520 1740 1493 1800 1633 1860 1756 curveto % 525 530 535 1920 1859 1980 1936 2040 1984 curveto % 540 545 550 2100 2000 2160 1984 2220 1936 curveto % 555 560 565 2280 1859 2340 1756 2400 1633 curveto % 570 575 580 2460 1493 2520 1344 2580 1189 curveto % 585 590 595 2640 1036 2700 888 2760 749 curveto % 600 605 610 2820 621 2880 507 2940 407 curveto % 615 620 625 3000 322 3060 250 3120 191 curveto % 630 635 640 3180 144 3240 106 3300 77 curveto % 645 650 655 3360 55 3420 39 3480 27 curveto % 660 665 670 3540 18 3600 12 3660 8 curveto % 675 680 685 3720 5 3780 3 3840 2 curveto % 690 695 700 3900 1 3960 0 4020 0 curveto % 705 710 715 0.00 0.00 0.00 0.00 setcmyk_olvcolor stroke %! 380 0. 385 0. 390 0. 395 0. 400 0. 405 0. %! 410 0. 415 0. 420 1. 425 1. 430 1. 435 2. %! 440 3. 445 4. 450 6. 455 8. 460 11. 465 14. %! 470 19. 475 24. 480 31. 485 38. 490 47. 495 56. %! 500 67. 505 78. 510 89. 515 101. 520 112. 525 122. %! 530 132. 535 139. 540 145. 545 149. 550 150. 555 149. %! 560 145. 565 139. 570 132. 575 122. 580 112. 585 101. %! 590 89. 595 78. 600 67. 605 56. 610 47. 615 38. %! 620 31. 625 24. 630 19. 635 14. 640 11. 645 8. %! 650 6. 655 4. 660 3. 665 2. 670 1. 675 1. %! 680 1. 685 0. 690 0. 695 0. 700 0. 705 0. %! 710 0. 715 0. 720 0. [50] 0 setdash %V 60 0 moveto % 385 120 0 180 0 240 0 curveto % 390 395 400 300 1 360 2 420 4 curveto % 405 410 415 480 8 540 14 600 23 curveto % 420 425 430 660 33 720 46 780 59 curveto % 435 440 445 840 76 900 96 960 120 curveto % 450 455 460 1020 147 1080 181 1140 225 curveto % 465 470 475 1200 278 1260 338 1320 416 curveto % 480 485 490 1380 517 1440 646 1500 814 curveto % 495 500 505 1560 1006 1620 1216 1680 1420 curveto % 510 515 520 1740 1586 1800 1724 1860 1830 curveto % 525 530 535 1920 1908 1980 1960 2040 1990 curveto % 540 545 550 2100 2000 2160 1990 2220 1957 curveto % 555 560 565 2280 1904 2340 1831 2400 1740 curveto % 570 575 580 2460 1632 2520 1514 2580 1390 curveto % 585 590 595 2640 1262 2700 1133 2760 1006 curveto % 600 605 610 2820 882 2880 762 2940 642 curveto % 615 620 625 3000 530 3060 434 3120 350 curveto % 630 635 640 3180 276 3240 214 3300 163 curveto % 645 650 655 3360 122 3420 89 3480 64 curveto % 660 665 670 3540 46 3600 34 3660 23 curveto % 675 680 685 3720 16 3780 11 3840 8 curveto % 690 695 700 3900 5 3960 4 4020 2 curveto % 705 710 715 0.00 0.00 0.00 0.00 setcmyk_olvcolor stroke %! 380 0. 385 0. 390 0. 395 0. 400 0. 405 0. %! 410 0. 415 1. 420 1. 425 2. 430 3. 435 3. %! 440 4. 445 6. 450 7. 455 9. 460 11. 465 14. %! 470 17. 475 21. 480 25. 485 31. 490 39. 495 48. %! 500 61. 505 75. 510 91. 515 107. 520 119. 525 129. %! 530 137. 535 143. 540 147. 545 149. 550 150. 555 149. %! 560 147. 565 143. 570 137. 575 131. 580 122. 585 114. %! 590 104. 595 95. 600 85. 605 75. 610 66. 615 57. %! 620 48. 625 40. 630 33. 635 26. 640 21. 645 16. %! 650 12. 655 9. 660 7. 665 5. 670 3. 675 3. %! 680 2. 685 1. 690 1. 695 1. 700 0. 705 0. %! 710 0. 715 0. 720 0. showpage grestore %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 16 %line 389 %!PS-Adobe-3.0 EPSF-3.0 TE010-6 %%BoundingBox: 70 83 228 206 %! for061..76.dat aus (wrpos:empp8620.for) %START PDFDE011.EPS /pdfmark06 where {pop} {userdict /pdfmark06 /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/MG99/) /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@me.com) /CreationDate (D:2012050112000) /ModDate (D:2012050112000) /DOCINFO pdfmark06 [ /View [ /FitB ] /DOCVIEW pdfmark06 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def % !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-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 /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-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 /nshow1 {TG show} bind def /kshow1 {TIG show} bind def /bshow1 {TBG show} bind def /bkshow1 {TBIG show} bind def /ishow1 {TM 0 -50 rmoveto show 0 50 rmoveto} bind def /eshow1 {TM 0 200 rmoveto show 0 -200 rmoveto} bind def /nshow2 {TM show} bind def /kshow2 {TIM show} bind def /bshow2 {TBM show} bind def /bkshow2 {TBIM show} bind def /ibshow2 {TBK 0 -50 rmoveto show 0 50 rmoveto} bind def /ebshow2 {TBK 0 100 rmoveto show 0 -100 rmoveto} bind def /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmyk_olvcolor} bind def /tfl {tzl setcmyk_olvcolor} bind def /tfv {tzv setcmyk_olvcolor} bind def /tfc {tzc setcmyk_olvcolor} bind def /tfm {tzm setcmyk_olvcolor} bind def /tfy {tzy setcmyk_olvcolor} bind def /tfn {tzn setcmyk_olvcolor} bind def /tfd {tzd setcmyk_olvcolor} bind def /tfz {tzz setcmyk_olvcolor} bind def /tfh {tzh setcmyk_olvcolor} bind def /tfw {tzw setcmyk_olvcolor} bind def /tfr {tzr setcmyk_olvcolor} bind def /tfg {tzg setcmyk_olvcolor} bind def /tfb {tzb setcmyk_olvcolor} bind def /tfj {tzj setcmyk_olvcolor} bind def /tfrz {tzrz setcmyk_olvcolor} bind def /tfgz {tzgz setcmyk_olvcolor} bind def /tfbz {tzbz setcmyk_olvcolor} bind def /tfjz {tzjz setcmyk_olvcolor} bind def %ANFA OUTLIN00 951204 /pixf 1.0 def /ueg 1 pixf mul def /uek 1 pixf mul def /ues 1 pixf mul def /pxd uek def /pyd uek def /pxwd ueg def /pywd ueg def /pss ues def /outxshowf {show} bind def /outxshow {show} bind def /outSK {250 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSM {300 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSG {350 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outshowf {setcmyk_olvcolor show} bind def /outrecfi { %x y width heigth c m y k setcmyk_olvcolor rec fill} bind def /outrecfi4 { %x y width heigth c m y k outrecfi} bind def /outrecfi3 { %x y width heigth c m y k outrecfi} bind def /outrecfi2 { %x y width heigth c m y k outrecfi} bind def /outlinetos { %px py c m y k setcmyk_olvcolor lineto stroke} bind def /outstroke { %px1 py1 curveto ... curveto c m y k setcmyk_olvcolor stroke} bind def %%EndProlog gsave /lanind 1 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showea {1 lanind le {show} {pop} ifelse} bind def /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 /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 1 def /lanind2 1 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 3 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % colorm 0 eq deintp 0 eq and {/Txx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def} if %colorm=1, deintp=1 xchart 0 eq {/Txx (-) def} if %always independent of intended output 5 /Times-ISOL1 FS /cvishow {cvi 6 string cvs show} def 75 85 moveto lanind cvishow (-) show colorm cvishow deintp cvishow xcolor cvishow xchart cvishow pchart cvishow colsep cvishow (-L) show pmetam cvishow gsave %XCHA01.PS END 5 /Times-ISOL1 FS 170 85 moveto (ME100-6N/TE010-6) show xchart 0 eq {(N) show} {deintp colorm 2 mul add cvishow} ifelse %(, B4_33_2) show % ( B8620_8, M8220-6, B4_33_2, N=4_33_2) show 72 90 translate /pixf 16.67 def 0.1667 pixf div MM dup scale /ausz 8 def %Farbauszug 1=C, 2=M, 3=Y, 7=N, 8=F 30 setlinewidth 0.0 0.0 0.0 0.5 setcmyk_olvcolor 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath fill 050 3400 moveto (log) TBM tfw show 50 0 rmoveto (V) TBIM tfw show 30 0 rmoveto TBM 20 0 (=[c\267) ashow tfw (l) outSM 30 0 rmoveto TBM 20 0 (-c\267) ashow (555) show 20 0 rmoveto (]) show (2) ebshow2 50 setlinewidth [50] 0 setdash 050 3170 moveto 300 0 rlineto stroke [ ] 0 setdash 30 setlinewidth 350 3100 moveto TBM tfw (experimentell\255CIE) showde %0TE010-6 00532 (experimental\255CIE) showen %1TE010-6 00532 (experimental\255CIE) showes %2TE010-6 00532 (experimental\255CIE) showfr %3TE010-6 00532 (experimental\255CIE) showit %4TE010-6 00532 (experimental\255CIE) showjp %5TE010-6 00532 4700 500 moveto (l) outSM 30 0 rmoveto (/nm) bshow2 2850 3400 moveto (log) TBM tfw show 30 0 rmoveto (P) TBIM tzo outshowf 50 0 rmoveto TBM tfw 20 0 (=[c\267) ashow tfw (l) outSM 30 0 rmoveto TBM tfw 20 0 (-c\267) ashow (570) show 20 0 rmoveto (]) show (2) ebshow2 2850 3100 moveto (log) TBM tfw show 20 0 rmoveto (D) TBIM tzl outshowf 30 0 rmoveto TBM tfw 20 0 (=[c\267) ashow tfw (l) outSM 30 0 rmoveto TBM tfw 20 0 (-c\267) ashow (540) show 20 0 rmoveto (]) show (2) ebshow2 2850 2800 moveto (log) TBM tfw show 30 0 rmoveto (T) TBIM tzv outshowf 50 0 rmoveto TBM tfw 20 0 (=[c\267) ashow tfw (l) outSM 30 0 rmoveto TBM tfw 20 0 (-c\267) ashow (450) show 20 0 rmoveto (]) show (2) ebshow2 /tx [ (400) (500) (600) (700)] def /ty [(0) (10) (20) (30) (40) (50)] def 050 3750 moveto TBM tfw %B8620-08.xps (log (relative Empfindlichkeit)) showde %0TE010-6 01532 (log (relative sensitivty)) showen %1TE010-6 01532 (log (Sensibilidad relativa)) showes %2TE010-6 01532 (log (sensibilit\351 relatif)) showfr %3TE010-6 01532 (log (sensitivty relativo)) showit %4TE010-6 01532 (log (relative sensitivty)) showjp %5TE010-6 01532 050 2800 moveto (log [ ) TBM tfw show (P) TBIM tzo outshowf (, ) TBM tfw show (V) TBIM tfw show (, ) TBM tfw show (D) TBIM tzl outshowf (, ) TBM tfw show (V') TBIM tfn show (, ) TBM tfw show (T) TBIM tzv outshowf ( ]) TBM tfw show 2900 2500 moveto (P) TBIM tzo outshowf 2600 2500 moveto (V) TBIM tfw show 2350 2500 moveto (D) TBIM tzl outshowf 1400 2500 moveto (T) TBIM tzv outshowf 2000 2500 moveto (V') TBIM tfn show 4000 2500 moveto TBM tfw (Modell ) showde %0TE010-6 02532 (model ) showen %1TE010-6 02532 (Modelo ) showes %2TE010-6 02532 (mod\350le) showfr %3TE010-6 02532 (modello ) showit %4TE010-6 02532 (model ) showjp %5TE010-6 02532 ( l ) outSM /ty [() ( -2) ( ) ( -1) ( ) ( 0) ] def tfw 600 400 translate 50 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 2000 rlineto stroke 0 2000 moveto 3200 0 rlineto stroke TBM %!x-Achse: 100 Einheiten = 1200 Skalen-Einheiten tfw 0 1 3 {/i exch def /ixt { 20 i 1200 mul add} def /ixl {240 i 1200 mul add} def ixt -350 moveto tx i get exec show ixl 75 moveto 0 -150 rlineto stroke } for %!x-Achse: 150 S-Einheiten = 2500*0.8 = 2000 Skalen-Einheiten 0 1 5 {/i exch def /iyt {-100 i 0400 mul add} def /iyl { 000 i 0400 mul add} def -550 iyt moveto ty i get exec show -75 iyl moveto 150 0 rlineto stroke } for tfz 0 setlinewidth % fuer clip 0 0 moveto 4800 0 rlineto 0 2050 rlineto -4800 0 rlineto 0 -2050 rlineto clip stroke 50 setlinewidth %!0 WRPOS:EMPP8620.FOR KURVT(J)Vn 0 1 8 [ ] 0 setdash %Vn 60 375 moveto % 385 120 508 180 635 240 756 curveto % 390 395 400 300 872 360 982 420 1086 curveto % 405 410 415 480 1185 540 1278 600 1365 curveto % 420 425 430 660 1447 720 1523 780 1594 curveto % 435 440 445 840 1659 900 1718 960 1771 curveto % 450 455 460 1020 1819 1080 1862 1140 1898 curveto % 465 470 475 1200 1929 1260 1955 1320 1975 curveto % 480 485 490 1380 1989 1440 1997 1500 2000 curveto % 495 500 505 1560 1997 1620 1989 1680 1975 curveto % 510 515 520 1740 1955 1800 1929 1860 1898 curveto % 525 530 535 1920 1862 1980 1819 2040 1771 curveto % 540 545 550 2100 1718 2160 1659 2220 1594 curveto % 555 560 565 2280 1523 2340 1447 2400 1365 curveto % 570 575 580 2460 1278 2520 1185 2580 1086 curveto % 585 590 595 2640 982 2700 872 2760 756 curveto % 600 605 610 2820 635 2880 508 2940 375 curveto % 615 620 625 3000 237 3060 93 3120 -55 curveto % 630 635 640 3180 -210 3240 -371 3300 -537 curveto % 645 650 655 3360 -710 3420 -887 3480 -1071 curveto % 660 665 670 3540 -1260 3600 -1454 3660 -1654 curveto % 675 680 685 3720 -1860 3780 -2072 3840 -2289 curveto % 690 695 700 3900 -2512 3960 -2740 4020 -2974 curveto % 705 710 715 0.00 0.00 0.00 1.00 setcmyk_olvcolor stroke %! 380 28. 385 38. 390 48. 395 57. 400 65. 405 74. %! 410 81. 415 89. 420 96. 425 102. 430 109. 435 114. %! 440 120. 445 124. 450 129. 455 133. 460 136. 465 140. %! 470 142. 475 145. 480 147. 485 148. 490 149. 495 150. %! 500 150. 505 150. 510 149. 515 148. 520 147. 525 145. %! 530 142. 535 140. 540 136. 545 133. 550 129. 555 124. %! 560 120. 565 114. 570 109. 575 102. 580 96. 585 89. %! 590 81. 595 74. 600 65. 605 57. 610 48. 615 38. %! 620 28. 625 18. 630 7. 635 -4. 640 -16. 645 -28. %! 650 -40. 655 -53. 660 -67. 665 -80. 670 -94. 675 -109. %! 680 -124. 685 -140. 690 -155. 695 -172. 700 -188. 705 -206. %! 710 -223. 715 -241. 720 -259. [50] 0 setdash %Vn 60 -364 moveto % 385 120 -124 180 124 240 374 curveto % 390 395 400 300 614 360 833 420 1025 curveto % 405 410 415 480 1188 540 1325 600 1440 curveto % 420 425 430 660 1535 720 1613 780 1675 curveto % 435 440 445 840 1726 900 1768 960 1803 curveto % 450 455 460 1020 1834 1080 1864 1140 1892 curveto % 465 470 475 1200 1919 1260 1944 1320 1965 curveto % 480 485 490 1380 1982 1440 1994 1500 1999 curveto % 495 500 505 1560 1999 1620 1991 1680 1977 curveto % 510 515 520 1740 1955 1800 1927 1860 1892 curveto % 525 530 535 1920 1850 1980 1801 2040 1746 curveto % 540 545 550 2100 1683 2160 1613 2220 1537 curveto % 555 560 565 2280 1454 2340 1364 2400 1267 curveto % 570 575 580 2460 1163 2520 1053 2580 937 curveto % 585 590 595 2640 816 2700 691 2760 561 curveto % 600 605 610 2820 429 2880 294 2940 157 curveto % 615 620 625 3000 18 3060 -120 3120 -259 curveto % 630 635 640 3180 -398 3240 -535 3300 -670 curveto % 645 650 655 3360 -803 3420 -934 3480 -1064 curveto % 660 665 670 3540 -1191 3600 -1316 3660 -1440 curveto % 675 680 685 3720 -1561 3780 -1681 3840 -1800 curveto % 690 695 700 3900 -1916 3960 -2031 4020 -2144 curveto % 705 710 715 0.00 0.00 0.00 1.00 setcmyk_olvcolor stroke %! 380 -27. 385 -9. 390 9. 395 28. 400 46. 405 63. %! 410 77. 415 89. 420 99. 425 108. 430 115. 435 121. %! 440 126. 445 129. 450 133. 455 135. 460 138. 465 140. %! 470 142. 475 144. 480 146. 485 147. 490 149. 495 150. %! 500 150. 505 150. 510 149. 515 148. 520 147. 525 145. %! 530 142. 535 139. 540 135. 545 131. 550 126. 555 121. %! 560 115. 565 109. 570 102. 575 95. 580 87. 585 79. %! 590 70. 595 61. 600 52. 605 42. 610 32. 615 22. %! 620 12. 625 1. 630 -9. 635 -19. 640 -30. 645 -40. %! 650 -50. 655 -60. 660 -70. 665 -80. 670 -89. 675 -99. %! 680 -108. 685 -117. 690 -126. 695 -135. 700 -144. 705 -152. %! 710 -161. 715 -169. 720 -177. %!1 WRPOS:EMPP8620.FOR KURVT(J)P 0 1 8 [ ] 0 setdash %P 60 -1860 moveto % 385 120 -1654 180 -1454 240 -1260 curveto % 390 395 400 300 -1071 360 -887 420 -710 curveto % 405 410 415 480 -537 540 -371 600 -210 curveto % 420 425 430 660 -55 720 93 780 237 curveto % 435 440 445 840 375 900 508 960 635 curveto % 450 455 460 1020 756 1080 872 1140 982 curveto % 465 470 475 1200 1086 1260 1185 1320 1278 curveto % 480 485 490 1380 1365 1440 1447 1500 1523 curveto % 495 500 505 1560 1594 1620 1659 1680 1718 curveto % 510 515 520 1740 1771 1800 1819 1860 1862 curveto % 525 530 535 1920 1898 1980 1929 2040 1955 curveto % 540 545 550 2100 1975 2160 1989 2220 1997 curveto % 555 560 565 2280 2000 2340 1997 2400 1989 curveto % 570 575 580 2460 1975 2520 1955 2580 1929 curveto % 585 590 595 2640 1898 2700 1862 2760 1819 curveto % 600 605 610 2820 1771 2880 1718 2940 1659 curveto % 615 620 625 3000 1594 3060 1523 3120 1447 curveto % 630 635 640 3180 1365 3240 1278 3300 1185 curveto % 645 650 655 3360 1086 3420 982 3480 872 curveto % 660 665 670 3540 756 3600 635 3660 508 curveto % 675 680 685 3720 375 3780 237 3840 93 curveto % 690 695 700 3900 -55 3960 -210 4020 -371 curveto % 705 710 715 tzo outstroke %! 380 -140. 385 -124. 390 -109. 395 -94. 400 -80. 405 -67. %! 410 -53. 415 -40. 420 -28. 425 -16. 430 -4. 435 7. %! 440 18. 445 28. 450 38. 455 48. 460 57. 465 65. %! 470 74. 475 81. 480 89. 485 96. 490 102. 495 109. %! 500 114. 505 120. 510 124. 515 129. 520 133. 525 136. %! 530 140. 535 142. 540 145. 545 147. 550 148. 555 149. %! 560 150. 565 150. 570 150. 575 149. 580 148. 585 147. %! 590 145. 595 142. 600 140. 605 136. 610 133. 615 129. %! 620 124. 625 120. 630 114. 635 109. 640 102. 645 96. %! 650 89. 655 81. 660 74. 665 65. 670 57. 675 48. %! 680 38. 685 28. 690 18. 695 7. 700 -4. 705 -16. %! 710 -28. 715 -40. 720 -53. [50] 0 setdash %P 60 -925 moveto % 385 120 -705 180 -502 240 -288 curveto % 390 395 400 300 -123 360 92 420 290 curveto % 405 410 415 480 480 540 647 600 752 curveto % 420 425 430 660 816 720 856 780 880 curveto % 435 440 445 840 899 900 919 960 941 curveto % 450 455 460 1020 971 1080 1014 1140 1076 curveto % 465 470 475 1200 1150 1260 1224 1320 1306 curveto % 480 485 490 1380 1392 1440 1478 1500 1568 curveto % 495 500 505 1560 1650 1620 1725 1680 1788 curveto % 510 515 520 1740 1836 1800 1875 1860 1905 curveto % 525 530 535 1920 1929 1980 1948 2040 1964 curveto % 540 545 550 2100 1977 2160 1987 2220 1994 curveto % 555 560 565 2280 1999 2340 2000 2400 1998 curveto % 570 575 580 2460 1993 2520 1983 2580 1971 curveto % 585 590 595 2640 1953 2700 1931 2760 1903 curveto % 600 605 610 2820 1869 2880 1828 2940 1777 curveto % 615 620 625 3000 1717 3060 1653 3120 1583 curveto % 630 635 640 3180 1505 3240 1419 3300 1327 curveto % 645 650 655 3360 1228 3420 1120 3480 1006 curveto % 660 665 670 3540 895 3600 787 3660 665 curveto % 675 680 685 3720 535 3780 410 3840 295 curveto % 690 695 700 3900 178 3960 60 4020 -58 curveto % 705 710 715 tzo outstroke %! 380 -69. 385 -53. 390 -38. 395 -22. 400 -9. 405 7. %! 410 22. 415 36. 420 49. 425 56. 430 61. 435 64. %! 440 66. 445 67. 450 69. 455 71. 460 73. 465 76. %! 470 81. 475 86. 480 92. 485 98. 490 104. 495 111. %! 500 118. 505 124. 510 129. 515 134. 520 138. 525 141. %! 530 143. 535 145. 540 146. 545 147. 550 148. 555 149. %! 560 150. 565 150. 570 150. 575 150. 580 149. 585 149. %! 590 148. 595 146. 600 145. 605 143. 610 140. 615 137. %! 620 133. 625 129. 630 124. 635 119. 640 113. 645 106. %! 650 100. 655 92. 660 84. 665 75. 670 67. 675 59. %! 680 50. 685 40. 690 31. 695 22. 700 13. 705 5. %! 710 -4. 715 -13. 720 -23. %!2 WRPOS:EMPP8620.FOR KURVT(J)D 0 1 8 [ ] 0 setdash %D 60 -887 moveto % 385 120 -710 180 -537 240 -371 curveto % 390 395 400 300 -210 360 -55 420 93 curveto % 405 410 415 480 237 540 375 600 508 curveto % 420 425 430 660 635 720 756 780 872 curveto % 435 440 445 840 982 900 1086 960 1185 curveto % 450 455 460 1020 1278 1080 1365 1140 1447 curveto % 465 470 475 1200 1523 1260 1594 1320 1659 curveto % 480 485 490 1380 1718 1440 1771 1500 1819 curveto % 495 500 505 1560 1862 1620 1898 1680 1929 curveto % 510 515 520 1740 1955 1800 1975 1860 1989 curveto % 525 530 535 1920 1997 1980 2000 2040 1997 curveto % 540 545 550 2100 1989 2160 1975 2220 1955 curveto % 555 560 565 2280 1929 2340 1898 2400 1862 curveto % 570 575 580 2460 1819 2520 1771 2580 1718 curveto % 585 590 595 2640 1659 2700 1594 2760 1523 curveto % 600 605 610 2820 1447 2880 1365 2940 1278 curveto % 615 620 625 3000 1185 3060 1086 3120 982 curveto % 630 635 640 3180 872 3240 756 3300 635 curveto % 645 650 655 3360 508 3420 375 3480 237 curveto % 660 665 670 3540 93 3600 -55 3660 -210 curveto % 675 680 685 3720 -371 3780 -537 3840 -710 curveto % 690 695 700 3900 -887 3960 -1071 4020 -1260 curveto % 705 710 715 tzl outstroke %! 380 -67. 385 -53. 390 -40. 395 -28. 400 -16. 405 -4. %! 410 7. 415 18. 420 28. 425 38. 430 48. 435 57. %! 440 65. 445 74. 450 81. 455 89. 460 96. 465 102. %! 470 109. 475 114. 480 120. 485 124. 490 129. 495 133. %! 500 136. 505 140. 510 142. 515 145. 520 147. 525 148. %! 530 149. 535 150. 540 150. 545 150. 550 149. 555 148. %! 560 147. 565 145. 570 142. 575 140. 580 136. 585 133. %! 590 129. 595 124. 600 120. 605 114. 610 109. 615 102. %! 620 96. 625 89. 630 81. 635 74. 640 65. 645 57. %! 650 48. 655 38. 660 28. 665 18. 670 7. 675 -4. %! 680 -16. 685 -28. 690 -40. 695 -53. 700 -67. 705 -80. %! 710 -94. 715 -109. 720 -124. [50] 0 setdash %D 60 -934 moveto % 385 120 -710 180 -502 240 -285 curveto % 390 395 400 300 -114 360 109 420 316 curveto % 405 410 415 480 519 540 707 600 838 curveto % 420 425 430 660 934 720 1007 780 1068 curveto % 435 440 445 840 1127 900 1186 960 1242 curveto % 450 455 460 1020 1292 1080 1337 1140 1385 curveto % 465 470 475 1200 1435 1260 1485 1320 1542 curveto % 480 485 490 1380 1606 1440 1675 1500 1748 curveto % 495 500 505 1560 1815 1620 1874 1680 1922 curveto % 510 515 520 1740 1954 1800 1976 1860 1990 curveto % 525 530 535 1920 1998 1980 2000 2040 1997 curveto % 540 545 550 2100 1989 2160 1976 2220 1958 curveto % 555 560 565 2280 1934 2340 1903 2400 1866 curveto % 570 575 580 2460 1820 2520 1767 2580 1707 curveto % 585 590 595 2640 1640 2700 1566 2760 1487 curveto % 600 605 610 2820 1404 2880 1317 2940 1224 curveto % 615 620 625 3000 1126 3060 1026 3120 923 curveto % 630 635 640 3180 816 3240 707 3300 597 curveto % 645 650 655 3360 482 3420 364 3480 242 curveto % 660 665 670 3540 124 3600 9 3660 -119 curveto % 675 680 685 3720 -251 3780 -378 3840 -495 curveto % 690 695 700 3900 -612 3960 -729 4020 -847 curveto % 705 710 715 tzl outstroke %! 380 -70. 385 -53. 390 -38. 395 -21. 400 -9. 405 8. %! 410 24. 415 39. 420 53. 425 63. 430 70. 435 76. %! 440 80. 445 85. 450 89. 455 93. 460 97. 465 100. %! 470 104. 475 108. 480 111. 485 116. 490 120. 495 126. %! 500 131. 505 136. 510 141. 515 144. 520 147. 525 148. %! 530 149. 535 150. 540 150. 545 150. 550 149. 555 148. %! 560 147. 565 145. 570 143. 575 140. 580 137. 585 133. %! 590 128. 595 123. 600 117. 605 112. 610 105. 615 99. %! 620 92. 625 84. 630 77. 635 69. 640 61. 645 53. %! 650 45. 655 36. 660 27. 665 18. 670 9. 675 1. %! 680 -9. 685 -19. 690 -28. 695 -37. 700 -46. 705 -55. %! 710 -64. 715 -73. 720 -82. %!3 WRPOS:EMPP8620.FOR KURVT(J)T 0 1 8 [ ] 0 setdash %T 60 1523 moveto % 385 120 1594 180 1659 240 1718 curveto % 390 395 400 300 1771 360 1819 420 1862 curveto % 405 410 415 480 1898 540 1929 600 1955 curveto % 420 425 430 660 1975 720 1989 780 1997 curveto % 435 440 445 840 2000 900 1997 960 1989 curveto % 450 455 460 1020 1975 1080 1955 1140 1929 curveto % 465 470 475 1200 1898 1260 1862 1320 1819 curveto % 480 485 490 1380 1771 1440 1718 1500 1659 curveto % 495 500 505 1560 1594 1620 1523 1680 1447 curveto % 510 515 520 1740 1365 1800 1278 1860 1185 curveto % 525 530 535 1920 1086 1980 982 2040 872 curveto % 540 545 550 2100 756 2160 635 2220 508 curveto % 555 560 565 2280 375 2340 237 2400 93 curveto % 570 575 580 2460 -55 2520 -210 2580 -371 curveto % 585 590 595 2640 -537 2700 -710 2760 -887 curveto % 600 605 610 2820 -1071 2880 -1260 2940 -1454 curveto % 615 620 625 3000 -1654 3060 -1860 3120 -2072 curveto % 630 635 640 3180 -2289 3240 -2512 3300 -2740 curveto % 645 650 655 3360 -2974 3420 -3214 3480 -3459 curveto % 660 665 670 3540 -3710 3600 -3967 3660 -4229 curveto % 675 680 685 3720 -4497 3780 -4771 3840 -5050 curveto % 690 695 700 3900 -5335 3960 -5626 4020 -5922 curveto % 705 710 715 tzv outstroke %! 380 114. 385 120. 390 124. 395 129. 400 133. 405 136. %! 410 140. 415 142. 420 145. 425 147. 430 148. 435 149. %! 440 150. 445 150. 450 150. 455 149. 460 148. 465 147. %! 470 145. 475 142. 480 140. 485 136. 490 133. 495 129. %! 500 124. 505 120. 510 114. 515 109. 520 102. 525 96. %! 530 89. 535 81. 540 74. 545 65. 550 57. 555 48. %! 560 38. 565 28. 570 18. 575 7. 580 -4. 585 -16. %! 590 -28. 595 -40. 600 -53. 605 -67. 610 -80. 615 -94. %! 620 -109. 625 -124. 630 -140. 635 -155. 640 -172. 645 -188. %! 650 -206. 655 -223. 660 -241. 665 -259. 670 -278. 675 -298. %! 680 -317. 685 -337. 690 -358. 695 -379. 700 -400. 705 -422. %! 710 -444. 715 -467. 720 -490. [50] 0 setdash %T 60 217 moveto % 385 120 440 180 646 240 864 curveto % 390 395 400 300 1033 360 1252 420 1455 curveto % 405 410 415 480 1647 540 1812 600 1912 curveto % 420 425 430 660 1967 720 1993 780 2000 curveto % 435 440 445 840 1998 900 1992 960 1977 curveto % 450 455 460 1020 1946 1080 1887 1140 1813 curveto % 465 470 475 1200 1727 1260 1631 1320 1533 curveto % 480 485 490 1380 1437 1440 1347 1500 1260 curveto % 495 500 505 1560 1158 1620 1037 1680 914 curveto % 510 515 520 1740 805 1800 699 1860 561 curveto % 525 530 535 1920 445 1980 300 2040 152 curveto % 540 545 550 2100 6 2160 -127 2220 -249 curveto % 555 560 565 2280 -343 2340 -396 2400 -426 curveto % 570 575 580 2460 -484 2520 -567 2580 -600 curveto % 585 590 595 2640 -678 2700 -778 2760 -975 curveto % 600 605 610 2820 -1096 2880 -1178 2940 -1401 curveto % 615 620 625 3000 -1641 3060 -1819 3120 -1960 curveto % 630 635 640 3180 -2201 3240 -2201 3300 -2201 curveto % 645 650 655 3360 -2201 3420 -2201 3480 -2201 curveto % 660 665 670 3540 -2201 3600 -2201 3660 -2201 curveto % 675 680 685 3720 -2201 3780 -2201 3840 -2201 curveto % 690 695 700 3900 -2201 3960 -2201 4020 -2201 curveto % 705 710 715 tzv outstroke %! 380 16. 385 33. 390 48. 395 65. 400 77. 405 94. %! 410 109. 415 124. 420 136. 425 143. 430 148. 435 149. %! 440 150. 445 150. 450 149. 455 148. 460 146. 465 142. %! 470 136. 475 130. 480 122. 485 115. 490 108. 495 101. %! 500 95. 505 87. 510 78. 515 69. 520 60. 525 52. %! 530 42. 535 33. 540 23. 545 11. 550 1. 555 -10. %! 560 -19. 565 -26. 570 -30. 575 -32. 580 -36. 585 -43. %! 590 -45. 595 -51. 600 -58. 605 -73. 610 -82. 615 -88. %! 620 -105. 625 -123. 630 -136. 635 -147. 640 -165. 645 -165. %! 650 -165. 655 -165. 660 -165. 665 -165. 670 -165. 675 -165. %! 680 -165. 685 -165. 690 -165. 695 -165. 700 -165. 705 -165. %! 710 -165. 715 -165. 720 -165. %!4 WRPOS:EMPP8620.FOR KURVT(J)V 0 1 8 [ ] 0 setdash %V 60 -1260 moveto % 385 120 -1071 180 -887 240 -710 curveto % 390 395 400 300 -537 360 -371 420 -210 curveto % 405 410 415 480 -55 540 93 600 237 curveto % 420 425 430 660 375 720 508 780 635 curveto % 435 440 445 840 756 900 872 960 982 curveto % 450 455 460 1020 1086 1080 1185 1140 1278 curveto % 465 470 475 1200 1365 1260 1447 1320 1523 curveto % 480 485 490 1380 1594 1440 1659 1500 1718 curveto % 495 500 505 1560 1771 1620 1819 1680 1862 curveto % 510 515 520 1740 1898 1800 1929 1860 1955 curveto % 525 530 535 1920 1975 1980 1989 2040 1997 curveto % 540 545 550 2100 2000 2160 1997 2220 1989 curveto % 555 560 565 2280 1975 2340 1955 2400 1929 curveto % 570 575 580 2460 1898 2520 1862 2580 1819 curveto % 585 590 595 2640 1771 2700 1718 2760 1659 curveto % 600 605 610 2820 1594 2880 1523 2940 1447 curveto % 615 620 625 3000 1365 3060 1278 3120 1185 curveto % 630 635 640 3180 1086 3240 982 3300 872 curveto % 645 650 655 3360 756 3420 635 3480 508 curveto % 660 665 670 3540 375 3600 237 3660 93 curveto % 675 680 685 3720 -55 3780 -210 3840 -371 curveto % 690 695 700 3900 -537 3960 -710 4020 -887 curveto % 705 710 715 0.00 0.00 0.00 0.00 setcmyk_olvcolor stroke %! 380 -94. 385 -80. 390 -67. 395 -53. 400 -40. 405 -28. %! 410 -16. 415 -4. 420 7. 425 18. 430 28. 435 38. %! 440 48. 445 57. 450 65. 455 74. 460 81. 465 89. %! 470 96. 475 102. 480 109. 485 114. 490 120. 495 124. %! 500 129. 505 133. 510 136. 515 140. 520 142. 525 145. %! 530 147. 535 148. 540 149. 545 150. 550 150. 555 150. %! 560 149. 565 148. 570 147. 575 145. 580 142. 585 140. %! 590 136. 595 133. 600 129. 605 124. 610 120. 615 114. %! 620 109. 625 102. 630 96. 635 89. 640 81. 645 74. %! 650 65. 655 57. 660 48. 665 38. 670 28. 675 18. %! 680 7. 685 -4. 690 -16. 695 -28. 700 -40. 705 -53. %! 710 -67. 715 -80. 720 -94. [50] 0 setdash %V 60 -1355 moveto % 385 120 -1136 180 -931 240 -721 curveto % 390 395 400 300 -555 360 -333 420 -129 curveto % 405 410 415 480 81 540 290 600 451 curveto % 420 425 430 660 581 720 689 780 779 curveto % 435 440 445 840 863 900 945 960 1022 curveto % 450 455 460 1020 1095 1080 1167 1140 1241 curveto % 465 470 475 1200 1314 1260 1383 1320 1454 curveto % 480 485 490 1380 1530 1440 1607 1500 1688 curveto % 495 500 505 1560 1761 1620 1827 1680 1881 curveto % 510 515 520 1740 1919 1800 1948 1860 1969 curveto % 525 530 535 1920 1984 1980 1993 2040 1998 curveto % 540 545 550 2100 2000 2160 1998 2220 1992 curveto % 555 560 565 2280 1983 2340 1969 2400 1952 curveto % 570 575 580 2460 1929 2520 1903 2580 1873 curveto % 585 590 595 2640 1840 2700 1803 2760 1761 curveto % 600 605 610 2820 1716 2880 1665 2940 1605 curveto % 615 620 625 3000 1538 3060 1469 3120 1394 curveto % 630 635 640 3180 1312 3240 1223 3300 1129 curveto % 645 650 655 3360 1028 3420 919 3480 804 curveto % 660 665 670 3540 692 3600 584 3660 461 curveto % 675 680 685 3720 331 3780 206 3840 90 curveto % 690 695 700 3900 -26 3960 -143 4020 -262 curveto % 705 710 715 0.00 0.00 0.00 0.00 setcmyk_olvcolor stroke %! 380 -102. 385 -85. 390 -70. 395 -54. 400 -42. 405 -25. %! 410 -10. 415 6. 420 22. 425 34. 430 44. 435 52. %! 440 58. 445 65. 450 71. 455 77. 460 82. 465 88. %! 470 93. 475 99. 480 104. 485 109. 490 115. 495 121. %! 500 127. 505 132. 510 137. 515 141. 520 144. 525 146. %! 530 148. 535 149. 540 149. 545 150. 550 150. 555 150. %! 560 149. 565 149. 570 148. 575 146. 580 145. 585 143. %! 590 141. 595 138. 600 135. 605 132. 610 129. 615 125. %! 620 120. 625 115. 630 110. 635 105. 640 98. 645 92. %! 650 85. 655 77. 660 69. 665 60. 670 52. 675 44. %! 680 35. 685 25. 690 15. 695 7. 700 -2. 705 -11. %! 710 -20. 715 -29. 720 -38. showpage grestore %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF /xc1 16 def /yc1 12 def /xt 1 def xchart 1 eq {/xt 1 def} if 28 MM xt 0 eq {16 MM sub} if 20 MM xt 0 eq {12 MM sub} if translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 17 %line 399 %!PS-Adobe-3.0 EPSF-3.0 TE010-7 %%BoundingBox: 70 83 228 206 %START PDFDE011.EPS /pdfmark11 where {pop} {userdict /pdfmark11 /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/TE01/) /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@me.com) /CreationDate (D:2012050112000) /ModDate (D:2012050112000) /DOCINFO pdfmark11 [ /View [ /FitB ] /DOCVIEW pdfmark11 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /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 /Courier findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Courier-ISOL1 exch definefont pop /Courier-Oblique findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierI-ISOL1 exch definefont pop /Courier-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierB-ISOL1 exch definefont pop /Courier-BoldOblique findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierBI-ISOL1 exch definefont pop /TG {350 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TL {160 /Times-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIL {160 /TimesI-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBL {160 /TimesB-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIL {160 /TimesBI-ISOL1 FS} bind def /SG {350 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SK {240 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SL {160 /Symbol FS} bind def %%EndProlog gsave %lanindL2.EPS START 20000505 /lanind 0 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showea {1 lanind le {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 1 def /lanind2 1 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 3 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % colorm 0 eq deintp 0 eq and {/Txx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def} if %colorm=1, deintp=1 xchart 0 eq {/Txx (-) def} if %always independent of intended output gsave %LANINDL2 END /cvishow {cvi 6 string cvs show ( ) show} def /cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show ( ) show} def /cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show ( ) show} def /cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show ( ) show} def /cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show ( ) show} def /cvsshow5 {100000 mul cvi 0.00001 mul 9 string cvs show ( ) show} def /SD65 80 array def %380 bis 775 mit deltalambda=05 /SD50 80 array def %380 bis 775 mit deltalambda=05 /SP40 80 array def %380 bis 775 mit deltalambda=05 /SA00 80 array def %380 bis 775 mit deltalambda=05 /SE00 80 array def %380 bis 775 mit deltalambda=05 /SC00 80 array def %380 bis 775 mit deltalambda=05 /SDAK 80 array def %380 bis 775 mit deltalambda=05 /RA 80 array def %380 bis 770 nm /F2 240 array def %3 x 80 Daten fuer Bereich 380 bis 770nm /F2N 240 array def %normiert auf Y=100 fuer D65 und 10nm %C %C LITERATURQUELLEN LICHTARTEN %C SA,SC,SD65, CIE-DOKUMENT NR.15 FARBMESSUNG, 1971 %C TABELLE 1.1.1, SEITE 81 %C SD55,SD75, CIE-DOKUMENT NR.15 FARBMESSUNG, 1971 %C TABELLE 1.1.4, SEITE 85 %C LINEAR INTERPOLIERT VON 5 ZU 5NM %C SG,SP,SXE, DIN 5033, BLATT 7 ,SEITE 8-9 %C AUSGABE 1966 %C SC CIE 15.3 2005. page 32 /SD65 %80 data 5 nm [50.0 52.3 54.6 68.7 82.8 87.1 91.5 92.5 93.4 90.1 86.7 95.8 104.9 110.9 117.0 117.4 117.8 116.3 114.9 115.4 115.9 112.4 108.8 109.1 109.4 108.6 107.8 106.3 104.8 106.2 107.7 106.0 104.4 104.2 104.0 102.0 100.0 98.2 96.3 96.1 95.8 92.2 88.7 89.3 90.0 89.8 89.6 88.6 87.7 85.5 83.3 83.5 83.7 81.9 80.0 80.1 80.2 81.2 82.3 80.3 78.3 74.0 69.7 70.7 71.6 73.0 74.3 68.0 61.6 65.7 69.9 72.5 75.1 69.3 63.6 55.0 46.4 56.6 66.8 65.1] def /SD50 %80 data 5 nm CIE 15.3, Seite 30; aus JE540-7N.PS [24.5 27.2 29.9 39.6 49.3 52.9 56.5 58.3 60.0 58.9 57.8 66.3 74.8 81.0 87.2 88.9 90.6 91.0 91.4 93.2 95.1 93.5 92.0 93.8 95.7 96.2 96.6 96.8 97.1 99.6 102.1 101.4 100.8 101.5 102.3 101.2 100.0 98.9 97.7 98.3 98.9 96.2 93.5 95.6 97.7 98.5 99.3 99.2 99.0 97.4 95.7 97.3 98.9 97.3 95.7 96.9 98.2 100.6 103.0 101.1 99.1 93.3 87.4 89.5 91.6 92.2 92.9 84.9 76.9 81.7 86.5 89.5 92.6 85.4 78.2 68.0 57.7 70.3 82.9 0.0] def %0.0 not used /SA00 %80 data 5 nm CIE 15.3 Seite 30; aus JE540-7N.PS [9.80 10.90 12.09 13.35 14.71 16.15 17.68 19.29 20.99 22.79 24.67 26.64 28.70 30.85 33.09 35.41 37.81 40.30 42.87 45.52 48.24 51.04 53.91 56.85 59.86 62.93 66.06 69.25 72.50 75.79 79.13 82.52 85.95 89.41 92.91 96.44 100.00 103.58 107.18 110.80 114.44 118.08 121.73 125.39 129.04 132.70 136.35 139.99 143.62 147.24 150.84 154.42 157.98 161.52 165.03 168.51 171.96 175.38 178.77 182.12 185.43 188.70 191.93 195.12 198.26 201.36 204.41 207.41 210.36 213.27 216.12 218.92 221.67 224.36 227.00 229.59 232.12 234.59 237.01 239.37 0.0] def %0.0 not used % AUS BILDPLA.FOR aus vrbam/wrpos:KRPROG.FOR, 5987-6023 5.10.92 %C PROGRAMM ZUR BERECHNUNG DER RELATIVEN SPEKTRALEN STRAHLUNGSVERTEI- %C LUNG EINES HOHLRAUMSTRAHLERS ALS FUNKTION DER WELLENLAENGE LAMDA %C BEI GEGEBENER TEMPERATUR T %C VERWENDETE VARIABLE %C T TEMPERATUR %C C2 PLANCKSCHE KONSTANTE (=1.4388 CM K (1967)) %C LAMDA(I) WELLENLAENGE %C S(I) STRAHLUNGSVERTEILUNG DES HOHLRAUMSTRAHLERS %C %C LITERATUR OFFIZIELLE EMPFEHLUNGEN DER CIE,DEUTSCHE VERSION, %C CA. 1969, SEITE 21 UND TABELLE 1.1.1 %C %SDP4 80 array def %380 bis 775 mit deltalambda=05 % DO 50 I=1,54 % 50 S(I)=100. % 1*(560./FLOAT(LAMDA(I)))**5 % 2*(EXP(C2/(560.*10.**(-7)*T))-1.) % 3/(EXP(C2/(FLOAT(LAMDA(I))*10.**(-7)*T))-1.) %new CIE 15.3:2004, Eq. (3.1) page 2 %S(I) = [100{560/lambda}**5] [exp{(c2*10**7)/(TNC*560 )} - 1] % /[exp{(c2*10**7)/(TNC*lambda)} - 1] % exp = e {...} = 2.71 {...} %/TNC 2848 def %NLA /TNC 4000 def /EE 2.718281 def %e=mac pocket calculator /C2 1.4350000 10 7 exp mul def /lamd 80 array def 0 1 79 {%i=0,79 /i exch def /lambda 380 i 5 mul add def lamd i lambda put /E1 560 lambda div 5 exp def /E4 C2 TNC 560 mul div def /E5 C2 TNC lambda mul div def /E6 EE E4 exp def /E7 EE E5 exp def SP40 i E1 100 mul E6 1 sub E7 1 sub div mul put } for %i=0,79 /xex 10 2 exp def /yex EE 2 exp def /SE00 %80 data 5 nm [100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0] def %0.0 not used /SC00 %80 data 5 nm [ 33.00 39.92 47.40 55.17 63.30 71.81 80.60 89.53 98.10 105.80 112.40 117.75 121.50 123.45 124.00 123.60 123.10 123.30 123.80 124.09 123.90 122.92 120.70 116.90 112.10 106.98 102.30 98.81 96.90 96.78 98.00 99.94 102.10 103.95 105.20 105.67 105.30 104.11 102.30 100.15 97.80 95.43 93.20 91.22 89.70 88.83 88.40 88.19 88.10 88.06 88.00 87.86 87.80 87.99 88.20 88.20 87.90 87.22 86.30 85.30 84.00 82.21 80.20 78.24 76.30 74.36 72.40 70.40 68.30 66.30 64.40 62.80 61.50 60.20 59.20 58.50 58.10 58.00 58.20 58.50 ] def %0.0 not used %C LITERATURQUELLEN SPEKTRALWERTE %C F2 CIE-DOKUMENT NR.15 FARBMESSUNG, 1971 %C TABELLE 2.1, SEITE 93-102 /F2 240 array def /F2 %3x80 data [.001368 .002236 .004243 .007650 .01431 .02319 .04351 .07763 .1344 .2148 .2839 .3285 .3483 .3481 .3362 .3187 .2908 .2511 .1954 .1421 .09564 .05795 .03201 .01470 .0049 .0024 .0093 .0291 .06327 .1096 .1655 .2257 .2904 .3597 .4334 .5121 .5945 .6784 .7621 .8425 .9163 .9786 1.0263 1.0567 1.0622 1.0456 1.0026 .9384 .8544 .7514 .6424 .5419 .4479 .3608 .2835 .2187 .1649 .1212 .0874 .0636 .04677 .03290 .02270 .01584 .01136 .00811 .00579 .004109 .002899 .002049 .001440 .0009999 .0006901 .000476 .0003323 .0002348 .0001662 .0001174 .00008308 .00005871 .000039 .000064 .00012 .000217 .000396 .00064 .00121 .00218 .004 .0073 .0116 .01684 .023 .0298 .0380 .048 .06 .0739 .09098 .1126 .139 .1693 .208 .2586 .323 .4073 .503 .6082 .71 .7932 .862 .9149 .954 .9803 .995 1.0 .995 .9786 .952 .9154 .870 .8163 .757 .6949 .631 .5668 .503 .4412 .381 .321 .265 .217 .175 .1382 .107 .0816 .061 .04458 .032 .0232 .017 .01192 .00821 .005723 .004102 .002929 .002091 .001484 .001047 .00074 .00052 .0003611 .0002492 .0001719 .00012 .0000848 .00006 .0000424 .00003 .0000212 .00645 .01055 .02005 .03621 .06785 .1102 .2074 .3713 .6456 1.0391 1.3856 1.623 1.7471 1.7826 1.7721 1.7441 1.6692 1.5281 1.2876 1.0419 .8130 .6162 .4652 .3533 .2720 .2123 .1582 .1117 .07825 .05725 .04216 .02984 .0203 .0134 .00875 .00575 .0039 .00275 .0021 .0018 .00165 .0014 .0011 .0010 .0008 .0006 .00034 .00024 .00019 .0001 .00005 .00003 .00002 .00001 % 26*0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %10 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %20 0.0 0.0 0.0 0.0 0.0 0.0 %26 ] def %calculation of transformation data /FARBE 27 array def /FARBE [(R) (e,M) ( MIE 20) %00 (R50Y) () ( MIE 23) %01 (Y) (e,M) ( MIE 02) %02 (Y50G) () ( MIE 05) %03 (G) (e,M) ( MIE 08) %04 (G50B) () ( MIE 11) %05 (B) (e,M) ( MIE 14) %06 (B50R) () ( MIE 17) %07 (W) (1) ( 380_770) %08 ] def /YKSUM 0 def %For CIE Illuminant E 0 1 79 {/i exch def %i=0,1,79 /YKSUM YKSUM F2 80 i add get add def } for %i=0,1,79 /F2N 240 array def 0 1 79 {/i exch def %i=0,1,79 F2N 00 i add F2 00 i add get YKSUM div 100 mul put F2N 80 i add F2 80 i add get YKSUM div 100 mul put F2N 160 i add F2 160 i add get YKSUM div 100 mul put } for %i=0,1,79 /FXN 80 array def %FXN 0 = F2N imax /FYN 80 array def /FZN 80 array def %defines FXN, FYN, FZN 0 to 79 0 1 79 {/i exch def %i=0,79 FXN i F2N 000 i add get put FYN i F2N 080 i add get put FZN i F2N 160 i add get put } for %i=0,79 %special wavelength range with complementary colours for E? /FXD 63 array def /FYD 63 array def /FZD 63 array def /DOW 63 array def 00 1 60 {/i exch def %i=0,60 %range 400..700nm FXD i FXN 005 i add get put FYD i FYN 005 i add get put FZD i FZN 005 i add get put DOW i 400 i 5 mul add put %range 400 to 700 } for %i=0,60 %for interpolation FXD 61 FXD 60 get put FYD 61 FYD 60 get put FZD 61 FZD 60 get put FXD 62 FXD 60 get put FYD 62 FYD 60 get put FZD 62 FZD 60 get put /FAD 63 array def /FBD 63 array def /FCD 63 array def /xdel 1030 def /ydel 395 def /x0 600 def /TELi 6 array def /TELi [(D65) (D50) (P40) (A00) (E00) (C00)] def %6 illuminants /Xi 10 array def %max 6 device colour + 4 elementary colours /Yi 10 array def /Zi 10 array def /XANi 10 array def /YANi 10 array def /ZANi 10 array def /xchart4 0 def % %0 1 4 {/xchart4 exch def %xchart4=0,4 /xchartl 5 def /K 1 def %not used /ILA xchartl def %for illuminants D65, D50, P40, A, E, C gsave 5 /Times-ISOL1 FS /cvishow {cvi 6 string cvs show} def 75 85 moveto lanind cvishow (-) show colorm cvishow deintp cvishow xcolor cvishow xchart cvishow pchart cvishow colsep cvishow (-L) show pmetam cvishow 5 /Times-ISOL1 FS 170 85 moveto (RE661-1N/TE010-7) show %xchart 0 ge {(N) show} if %(_) show xchart 1 add cvishow xchart 0 eq {(N) show} {deintp colorm 2 mul add cvishow} ifelse 72 90 translate 0.010 MM dup scale 25 setlinewidth 0 0 0 0 setcmyk_olvcolor 0 0 moveto 5400 0 rlineto 0 4000 rlineto 5400 neg 0 rlineto closepath fill 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath clip 0 0 0 1 setcmyk_olvcolor 0 0 moveto 5400 0 rlineto 0 4000 rlineto 5400 neg 0 rlineto closepath stroke %calculation of XW,YW,ZW for illuminant D65, D50, ... 0 1 79 {/i exch def %i=0,79 SDAK i ILA 0 eq {SD65 i get} if ILA 1 eq {SD50 i get} if ILA 2 eq {SP40 i get} if ILA 3 eq {SA00 i get} if ILA 4 eq {SE00 i get} if ILA 5 eq {SC00 i get} if put } for %i=0,79 /YKSUM 0 def 0 1 79 {/i exch def %i=0,1,79 /YKSUM YKSUM SDAK i get F2 80 i add get mul add def } for %i=0,1,79 0 1 79 {/i exch def %i=0,1,79 F2N 00 i add SDAK i get F2 00 i add get mul YKSUM div 100 mul put F2N 80 i add SDAK i get F2 80 i add get mul YKSUM div 100 mul put F2N 160 i add SDAK i get F2 160 i add get mul YKSUM div 100 mul put } for %i=0,1,79 %XW,YW,ZW for white /XW 0 def /YW 0 def /ZW 0 def 0 1 079 {/i exch def %i=0,79 /XW XW F2N 00 i add get add def /YW YW F2N 80 i add get add def /ZW ZW F2N 160 i add get add def } for %i=0,79 /SUMW XW YW add ZW add def %for D65, D50, P40, A00, E00 /XANW XW SUMW div def /YANW YW SUMW div def /ZANW ZW SUMW div def /AANW XW YW 0.0001 add div def /BANW ZW YW 0.0001 add div 0.4 mul neg def 0 1 8 {/i exch def %i=1,8 i 0 eq {Xi i 32.53 put %R Yi i 18.11 put Zi i 5.32 put} if i 1 eq {Xi i 60.31 put %R50Y Yi i 45.44 put Zi i 05.55 put} if i 2 eq {Xi i 70.72 put %Y Yi i 77.82 put Zi i 10.18 put} if i 3 eq {Xi i 25.23 put %Y50G Yi i 45.15 put Zi i 14.00 put} if i 4 eq {Xi i 08.51 put %G Yi i 20.24 put Zi i 16.28 put} if i 5 eq {Xi i 08.83 put %G50B Yi i 14.56 put Zi i 31.55 put} if i 6 eq {Xi i 11.92 put %B Yi i 09.35 put Zi i 48.79 put} if i 7 eq {Xi i 16.15 put %B50R Yi i 08.47 put Zi i 30.90 put} if i 8 eq {Xi i XW put %W Yi i YW put Zi i ZW put} if } for %i=1,8 /xtexti 5 array def /ytexti 5 array def /xtexti [2500 2700 0750 0100 0100] def /ytexti [3800 0500 0500 0500 0500] def /x0shift 0400 def /x1shift 1600 def /x2shift 1000 def xchart4 0 eq {%xchart4=0,#0 0 0 0 1 setcmyk_olvcolor xtexti xchart4 get x0shift add ytexti xchart4 get 0640 sub moveto TBIS (Miescher) show TBS (\255Elementarfarben) showde %0TE010-7 00523 ( elementary colours) showen %1TE010-7 00523 ( colores elementales) showes %2TE010-7 00523 (couleurs \351l\351mentaires) showfr %3TE010-7 00523 ( colori elementari) showit %4TE010-7 00523 ( elementary colours) showjp %5TE010-7 00523 xtexti xchart4 get x0shift add ytexti xchart4 get 0860 sub moveto TBS (und Zischenfarben) showde %0TE010-7 00523 (and intermediate colours) showen %1TE010-7 00523 (y colores intermedios) showes %2TE010-7 00523 (e couleurs interm\351diaires) showfr %3TE010-7 00523 (y colori intermedi) showit %4TE010-7 00523 (and intermediate colours) showjp %5TE010-7 00523 xtexti xchart4 get x0shift add ytexti xchart4 get 1100 sub moveto TBIS FARBE 0 get show TBL 0 -40 rmoveto FARBE 1 get show 0 40 rmoveto TBIS FARBE 2 get show xtexti xchart4 get x1shift add ytexti xchart4 get 1100 sub moveto TBIS FARBE 6 get show TBL 0 -40 rmoveto FARBE 7 get show 0 40 rmoveto TBIS FARBE 8 get show xtexti xchart4 get x0shift add ytexti xchart4 get 1320 sub moveto TBIS FARBE 12 get show TBL 0 -40 rmoveto FARBE 13 get show 0 40 rmoveto TBIS FARBE 14 get show xtexti xchart4 get x1shift add ytexti xchart4 get 1320 sub moveto TBIS FARBE 18 get show TBL 0 -40 rmoveto FARBE 19 get show 0 40 rmoveto TBIS FARBE 20 get show }%xchart4=0 {%xchart4#0 TBS 0 0 0 1 setcmyk_olvcolor xtexti xchart4 get ytexti xchart4 get 0660 add moveto TBIS (Miescher) show TBS (Elementarfarben) showde %0TE010-7 01523 (elementary colours) showen %1TE010-7 01523 (colores elementales) showes %2TE010-7 01523 (couleurs \351l\351mentaires) showfr %3TE010-7 01523 (colori elementari) showit %4TE010-7 01523 (elementary colours) showjp %5TE010-7 01523 xtexti xchart4 get ytexti xchart4 get 440 add moveto TBIS FARBE 0 get show TBL 0 -40 rmoveto FARBE 1 get show 0 40 rmoveto TBIS FARBE 2 get show xtexti xchart4 get x2shift add ytexti xchart4 get 440 add moveto TBIS FARBE 6 get show TBL 0 -40 rmoveto FARBE 7 get show 0 40 rmoveto TBIS FARBE 8 get show xtexti xchart4 get ytexti xchart4 get 220 add moveto TBIS FARBE 12 get show TBL 0 -40 rmoveto FARBE 13 get show 0 40 rmoveto TBIS FARBE 14 get show xtexti xchart4 get x2shift add ytexti xchart4 get 220 add moveto TBIS FARBE 18 get show TBL 0 -40 rmoveto FARBE 19 get show 0 40 rmoveto TBIS FARBE 20 get show } ifelse %xchart4#0 TBS 0 0 0 1 setcmyk_olvcolor xtexti xchart4 get 400 sub ytexti xchart4 get moveto (CIE\255Daten f\374r ) showde %0TE010-7 02523 (CIE data for ) showen %1TE010-7 02523 (datos CIE para ) showes %2TE010-7 02523 (donn\351es de CIE pour) showfr %3TE010-7 02523 (dati di CIE per) showit %4TE010-7 02523 (CIE data for ) showjp %5TE010-7 02523 (Elementarfarben) showde %0TE010-7 03523 (elementary colours) showen %1TE010-7 03523 (colores elementales) showes %2TE010-7 03523 (couleurs \351l\351mentaires) showfr %3TE010-7 03523 (colori elementari) showit %4TE010-7 03523 (elementary colours) showjp %5TE010-7 03523 xtexti xchart4 get 400 sub ytexti xchart4 get 220 sub moveto (maximaler Buntheit f\374r ) showde %0TE010-7 04523 (of maximum chroma for ) showen %1TE010-7 04523 (de croma m\341ximo para ) showes %2TE010-7 04523 (de chroma maximum pour) showfr %3TE010-7 04523 (di croma massimo per ) showit %4TE010-7 04523 (of maximum chroma for ) showjp %5TE010-7 04523 TELi ILA get show xtexti xchart4 get 400 sub ytexti xchart4 get 440 sub moveto xchart4 0 eq {%xchart4=0 (in Normfarbtafel) showde %0TE010-7 05523 (in chromaticity diagram) showen %1TE010-7 05523 (en el diagrama de cromaticidad) showes %2TE010-7 05523 (dans le diagramme de chromatica) showfr %3TE010-7 05523 (nel diagramma di cromaticit\340) showit %4TE010-7 05523 (in chromaticity diagram) showjp %5TE010-7 05523 TBIS ( (x, y)) show } if %xchart4=0 0 1 8 {/i exch def %i=0,8 /SUM Xi i get Yi i get add Zi i get add def XANi i Xi i get SUM 0.0001 add div put YANi i Yi i get SUM 0.0001 add div put ZANi i Zi i get SUM 0.0001 add div put } for xchart4 0 eq {%xchart4=0 0 1 62 {/i exch def %i=0,62 FAD i FXD i get put FBD i FYD i get put FCD i FZD i get put } for %i=0,62 } if %xchart4=0 xchart4 0 eq {%xchart4=0 600 400 translate 0 0 moveto 4000 0 rlineto stroke 0 0 moveto 0 3200 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten TBS 0 -50 moveto 0 100 rlineto stroke 800 -50 moveto 0 100 rlineto stroke 1600 -50 moveto 0 100 rlineto stroke 2400 -50 moveto 0 100 rlineto stroke 3200 -50 moveto 0 100 rlineto stroke 4000 -50 moveto 0 100 rlineto stroke -100 -300 moveto (0,0) show 700 -300 moveto (0,2) show 1500 -300 moveto (0,4) show 2300 -300 moveto (0,6) show 3100 -300 moveto (0,8) show 3900 -300 moveto (1,0) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 800 moveto 100 0 rlineto stroke -50 1600 moveto 100 0 rlineto stroke -50 2400 moveto 100 0 rlineto stroke -50 3200 moveto 100 0 rlineto stroke -450 -80 moveto (0,0) show -450 720 moveto (0,2) show -450 1520 moveto (0,4) show -450 2320 moveto (0,6) show -450 3120 moveto (0,8) show TIM -300 2800 moveto (y) show TIM 4200 150 moveto (x) show TBIS 2600 150 moveto (CIE 1931) show -600 -400 translate %1000 02 01 16 01 .00 .0020 ******************** %ANF PROZSPEP3.FOR: MULYA= 4000 BEO=02 xy-Farbtafel IXY0: 600 400 600 400 translate 693 19 moveto 693 19 692 19 690 19 curveto 688 19 685 20 681 23 curveto 675 27 667 34 657 43 curveto 644 55 626 70 603 90 curveto 575 118 542 159 496 231 curveto 438 347 365 530 274 802 curveto 181 1179 93 1650 32 2153 curveto 15 2619 55 3000 155 3248 curveto 297 3335 456 3304 618 3223 curveto 771 3126 918 3017 1063 2897 curveto 1206 2769 1349 2635 1492 2497 curveto 1634 2358 1776 2218 1915 2080 curveto 2049 1946 2179 1817 2300 1696 curveto 2411 1585 2508 1489 2592 1405 curveto 2663 1336 2720 1278 2765 1233 curveto 2802 1197 2831 1168 2856 1143 curveto 2876 1123 2892 1107 2903 1096 curveto 2913 1086 2919 1080 2924 1075 curveto 2927 1072 2930 1069 2933 1066 curveto 2936 1063 2937 1062 2938 1061 curveto 2938 1061 2939 1060 2744 971 curveto 2261 748 2040 643 1908 582 curveto 1819 541 1758 512 1708 490 curveto 1660 468 1612 445 1558 420 curveto 1495 391 1419 356 1320 309 curveto 1184 247 986 155 693 19 curveto stroke 0 0 0 1 setcmyk_olvcolor 693 19 30 0 360 arc fill % 400 681 23 30 0 360 arc fill % 425 626 70 30 0 360 arc fill % 450 438 347 30 0 360 arc fill % 475 32 2153 30 0 360 arc fill % 500 456 3304 30 0 360 arc fill % 525 1206 2769 30 0 360 arc fill % 550 1915 2080 30 0 360 arc fill % 575 2508 1489 30 0 360 arc fill % 600 2802 1197 30 0 360 arc fill % 625 2903 1096 30 0 360 arc fill % 650 2930 1069 30 0 360 arc fill % 675 2938 1061 30 0 360 arc fill % 700 2261 748 30 0 360 arc fill %500c 1708 490 30 0 360 arc fill %525c 1419 356 30 0 360 arc fill %550c 0 0 0 1 setcmyk_olvcolor 693 19 30 0 360 arc stroke % 400 681 23 30 0 360 arc stroke % 425 626 70 30 0 360 arc stroke % 450 438 347 30 0 360 arc stroke % 475 32 2153 30 0 360 arc stroke % 500 456 3304 30 0 360 arc stroke % 525 1206 2769 30 0 360 arc stroke % 550 1915 2080 30 0 360 arc stroke % 575 2508 1489 30 0 360 arc stroke % 600 2802 1197 30 0 360 arc stroke % 625 2903 1096 30 0 360 arc stroke % 650 2930 1069 30 0 360 arc stroke % 675 2938 1061 30 0 360 arc stroke % 700 2261 748 30 0 360 arc stroke %500c 1708 490 30 0 360 arc stroke %525c 1419 356 30 0 360 arc stroke %550c % 1250 1316 30 0 360 arc fill %D65 0 0 0 1 setcmyk_olvcolor TBIS 693 375 sub 19 250 sub moveto (400) show % 681 500 sub 23 100 sub moveto (425) show % 626 500 sub 70 100 sub moveto (450) show 438 350 sub 347 200 sub moveto (475) show 32 450 sub 2153 100 sub moveto (500) show 456 100 add 3304 000 add moveto (525) show 1206 100 add 2769 000 add moveto (550) show 1915 000 add 2080 100 add moveto (575) show 2508 100 add 1489 000 add moveto (600) show 2802 100 add 1197 100 add moveto (625) show % 2903 200 sub 1096 100 add moveto (650) show % 2930 200 sub 1069 100 add moveto (675) show 2938 100 add 1061 100 sub moveto (700) show 2261 100 add 748 200 sub moveto (500c,E) show 1708 100 add 490 200 sub moveto (525c,E) show 1419 000 add 356 250 sub moveto (550c,E) show % 1250 100 add 1316 100 sub moveto (D65 ) show -600 -400 translate %ENDE: 1 } if %xchart4=0 xchart4 1 eq {%xchart4=1 500 3200 translate 0 400 moveto 4000 0 rlineto stroke 0 400 moveto 0 -3000 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten TBS 0 350 moveto 0 100 rlineto stroke 800 350 moveto 0 100 rlineto stroke 1600 350 moveto 0 100 rlineto stroke 2400 350 moveto 0 100 rlineto stroke 3200 350 moveto 0 100 rlineto stroke 4000 350 moveto 0 100 rlineto stroke -150 500 moveto (-0,8) show 650 500 moveto (0,0) show 1450 500 moveto (0,8) show 2250 500 moveto (1,6) show 3050 500 moveto (2,4) show 3850 500 moveto (3,2) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 -800 moveto 100 0 rlineto stroke -50 -1600 moveto 100 0 rlineto stroke -50 -2400 moveto 100 0 rlineto stroke -50 -3200 moveto 100 0 rlineto stroke -450 -100 moveto ( 0,0) show -450 -900 moveto (-0,8) show -450 -1700 moveto (-1,6) show -450 -2500 moveto (-2,4) show -475 -3050 moveto TBIM (b) show TBM (=-0,40) show TBIM (z/y) show 3650 100 moveto TBIM (a=x/y) show -500 -3200 translate %1000 02 01 16 01-.03**************************************** %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 1300 3200 translate % 36136 -68535 moveto % 36136 -68535 36234 -68875 35958 -68561 curveto % 35610 -68128 33600 -64560 29424 -56936 curveto % 24474 -47779 19507 -38551 15143 -30384 curveto % 11681 -23927 8847 -18653 6639 -14534 curveto % 4846 -11128 3397 -8271 2147 -5661 curveto 1261 -3701 moveto 1261 -3701 688 -2339 342 -1455 curveto 153 -894 56 -546 15 -336 curveto 5 -208 18 -125 47 -73 curveto 89 -44 138 -28 191 -19 curveto 246 -13 304 -8 366 -5 curveto 435 -3 512 -2 597 -1 curveto 693 -1 800 0 920 0 curveto 1053 0 1198 0 1355 0 curveto 1520 0 1683 0 1844 0 curveto 1993 0 2126 0 2242 0 curveto 2340 0 2424 0 2497 0 curveto 2559 0 2610 0 2649 0 curveto 2680 0 2703 0 2718 0 curveto 2731 0 2741 0 2751 0 curveto 2760 0 2764 0 2767 0 curveto 2769 0 2770 0 2824 -116 curveto 3023 -529 3168 -817 3275 -1036 curveto 3357 -1209 3430 -1349 3482 -1469 curveto 3545 -1597 3622 -1746 3704 -1922 curveto 3817 -2156 3983 -2496 4262 -3058 curveto % 4786 -4149 6341 -7346 35775 -67850 curveto stroke 0 0 0 1 setcmyk_olvcolor % 36136 -68535 30 0 360 arc fill % 400 % 29424 -56936 30 0 360 arc fill % 425 % 8847 -18653 30 0 360 arc fill % 450 1261 -3701 30 0 360 arc fill % 475 15 -336 30 0 360 arc fill % 500 138 -28 30 0 360 arc fill % 525 435 -3 30 0 360 arc fill % 550 920 0 30 0 360 arc fill % 575 1683 0 30 0 360 arc fill % 600 2340 0 30 0 360 arc fill % 625 2649 0 30 0 360 arc fill % 650 2741 0 30 0 360 arc fill % 675 2769 0 30 0 360 arc fill % 700 3023 -529 30 0 360 arc fill %500c 3482 -1469 30 0 360 arc fill %525c 3983 -2496 30 0 360 arc fill %550c 0 0 0 1 setcmyk_olvcolor % 36136 -68535 30 0 360 arc stroke % 400 % 29424 -56936 30 0 360 arc stroke % 425 % 8847 -18653 30 0 360 arc stroke % 450 1261 -3701 30 0 360 arc stroke % 475 15 -336 30 0 360 arc stroke % 500 138 -28 30 0 360 arc stroke % 525 435 -3 30 0 360 arc stroke % 550 920 0 30 0 360 arc stroke % 575 1683 0 30 0 360 arc stroke % 600 2340 0 30 0 360 arc stroke % 625 2649 0 30 0 360 arc stroke % 650 2741 0 30 0 360 arc stroke % 675 2769 0 30 0 360 arc stroke % 700 3023 -529 30 0 360 arc stroke %500c 3482 -1469 30 0 360 arc stroke %525c 3983 -2496 30 0 360 arc stroke %550c % 950 -435 30 0 360 arc fill %D65 0 0 0 1 setcmyk_olvcolor TBIS % 36136 500 sub -68535 100 sub moveto (400) show % 29424 500 sub -56936 100 sub moveto (425) show % 8847 500 sub -18653 100 sub moveto (450) show % 1261 500 sub -3701 100 sub moveto (475) show 15 400 sub -336 100 sub moveto (500) show 138 400 sub -28 000 sub moveto (525) show % 435 200 sub -3 100 add moveto (550) show % 920 200 sub 0 100 add moveto (575) show % 1683 200 sub 0 100 add moveto (600) show 2340 200 sub 0 100 add moveto (625) show % 2649 200 sub 0 100 add moveto (650) show % 2741 200 sub 0 100 add moveto (675) show 2769 100 add 0 150 sub moveto (700) show 3023 100 add -529 100 sub moveto (500c,E) show 3482 800 sub -1469 050 sub moveto (525c,E) show % 3983 500 sub -2496 100 sub moveto (550c,E) show % 950 100 add -435 100 sub moveto (D65 ) show -1300 -3200 translate %ENDE: 2 } if %xchart4=1 xchart4 2 eq {%xchart4=2 600 3200 translate 0 400 moveto 4000 0 rlineto stroke 0 400 moveto 0 -3600 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten TBS 400 350 moveto 0 100 rlineto stroke 1200 350 moveto 0 100 rlineto stroke 2000 350 moveto 0 100 rlineto stroke 2800 350 moveto 0 100 rlineto stroke 3600 350 moveto 0 100 rlineto stroke 200 500 moveto (0,06) show 1000 500 moveto (0,12) show 1800 500 moveto (0,18) show 2600 500 moveto (0,24) show 3400 500 moveto (0,30) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 -800 moveto 100 0 rlineto stroke -50 -1600 moveto 100 0 rlineto stroke -50 -2400 moveto 100 0 rlineto stroke -50 -3200 moveto 100 0 rlineto stroke -575 -100 moveto ( 0,00) show -575 -900 moveto (-0,06) show -575 -1700 moveto (-0,12) show -575 -2500 moveto (-0,18) show TIM -380 -1300 moveto (b') show 4100 250 moveto (a') show -600 -3200 translate %1000 02 01 16 01 .00 .0020 ******************** %ANF PROZSPEP3.FOR: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 200 3200 translate 9657 -6202 moveto 9657 -6202 9666 -6212 9642 -6203 curveto 9610 -6190 9426 -6080 9018 -5830 curveto 8481 -5499 7863 -5120 7227 -4729 curveto 6628 -4367 6041 -4019 5490 -3698 curveto 4943 -3383 4391 -3065 3769 -2701 curveto 3156 -2344 2578 -2012 2043 -1717 curveto 1565 -1460 1123 -1239 723 -1054 curveto 527 -898 772 -759 1060 -634 curveto 1304 -535 1510 -464 1685 -408 curveto 1832 -356 1965 -309 2091 -267 curveto 2214 -230 2337 -200 2460 -176 curveto 2585 -157 2712 -145 2841 -139 curveto 2972 -138 3103 -133 3233 -126 curveto 3359 -126 3475 -120 3582 -113 curveto 3676 -98 3756 -91 3823 -88 curveto 3878 -75 3924 -64 3963 -57 curveto 3995 -54 4022 -46 4042 0 curveto 4057 0 4069 0 4077 0 curveto 4083 0 4088 0 4093 0 curveto 4097 0 4100 0 4101 0 curveto 4102 0 4103 0 4129 -740 curveto 4224 -1226 4290 -1417 4338 -1533 curveto 4374 -1614 4405 -1674 4427 -1723 curveto 4454 -1771 4486 -1825 4520 -1884 curveto 4565 -1958 4630 -2056 4736 -2200 curveto 4923 -2435 5407 -2946 9625 -6181 curveto stroke 0 0 0 1 setcmyk_olvcolor 9657 -6202 30 0 360 arc fill % 400 9018 -5830 30 0 360 arc fill % 425 6041 -4019 30 0 360 arc fill % 450 3156 -2344 30 0 360 arc fill % 475 723 -1054 30 0 360 arc fill % 500 1510 -464 30 0 360 arc fill % 525 2214 -230 30 0 360 arc fill % 550 2841 -139 30 0 360 arc fill % 575 3475 -120 30 0 360 arc fill % 600 3878 -75 30 0 360 arc fill % 625 4042 0 30 0 360 arc fill % 650 4088 0 30 0 360 arc fill % 675 4102 0 30 0 360 arc fill % 700 4224 -1226 30 0 360 arc fill %500c 4427 -1723 30 0 360 arc fill %525c 4630 -2056 30 0 360 arc fill %550c 0 0 0 1 setcmyk_olvcolor 9657 -6202 30 0 360 arc stroke % 400 9018 -5830 30 0 360 arc stroke % 425 6041 -4019 30 0 360 arc stroke % 450 3156 -2344 30 0 360 arc stroke % 475 723 -1054 30 0 360 arc stroke % 500 1510 -464 30 0 360 arc stroke % 525 2214 -230 30 0 360 arc stroke % 550 2841 -139 30 0 360 arc stroke % 575 3475 -120 30 0 360 arc stroke % 600 3878 -75 30 0 360 arc stroke % 625 4042 0 30 0 360 arc stroke % 650 4088 0 30 0 360 arc stroke % 675 4102 0 30 0 360 arc stroke % 700 4224 -1226 30 0 360 arc stroke %500c 4427 -1723 30 0 360 arc stroke %525c 4630 -2056 30 0 360 arc stroke %550c % 2872 -1148 30 0 360 arc fill %D65 0 0 0 1 setcmyk_olvcolor TBIS % 9657 500 sub -6202 100 sub moveto (400) show % 9018 500 sub -5830 100 sub moveto (425) show % 6041 500 sub -4019 100 sub moveto (450) show 3156 400 sub -2344 100 sub moveto (475) show 723 250 sub -1054 250 sub moveto (500) show 1510 200 sub -464 150 add moveto (525) show 2214 200 sub -230 100 add moveto (550) show 2841 200 sub -139 100 add moveto (575) show 3475 200 sub -120 100 add moveto (600) show % 3878 200 sub -75 100 add moveto (625) show % 4042 200 sub 0 100 add moveto (650) show % 4088 200 sub 0 100 add moveto (675) show 4102 050 add 0 100 sub moveto (700) show 4224 050 add -1226 000 sub moveto (500c,E) show 4427 010 sub -1723 100 add moveto (525c,E) show % 4630 100 add -2056 100 sub moveto (550c,E) show % 2872 050 add -1148 000 sub moveto (D65 ) show -200 -3200 translate %ENDE: 3 } if %xchart4=2 xchart4 3 ge {%xchart4>=3 3500 2000 translate %axis and scales 0 0 0 1 setcmyk_olvcolor -2250 0 moveto 3950 0 rlineto stroke 0 -1880 moveto 0 3600 rlineto stroke 1700 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 /xt10x 5 array def /yt10x 5 array def xchart4 3 eq {%xchart4=3 /xt10x [(-40) ( ) ( ) ( ) (40)] def /yt10x [(-40) ( ) ( ) ( ) (40)] def } if %xchart4=3 xchart4 4 eq {%xchart4=4 /xt10x [(-120) ( ) ( ) ( ) (120)] def /yt10x [(-120) ( ) ( ) ( ) (120)] def } if %xchart4= TIM 0 0 0 1 setcmyk_olvcolor 0 1 4 {/i exch def %i=0,4 x-axis -1600 i 800 mul add -75 moveto 0 150 rlineto stroke -1800 i 800 mul add -300 moveto xt10x i get show i 4 eq {-1600 i 800 mul add 0 moveto xchart4 3 eq { %xchart4=3 000 150 rmoveto TBIM (A) show TM } if %xchart4=3 xchart4 4 eq { %xchart4=4 -50 150 rmoveto TBIM (a*) show TM } if %xchart4=4 } if } for %i=0,4 TIM 0 1 4 {/i exch def %i=0,4 y-axis -75 -1600 i 800 mul add moveto 150 0 rlineto stroke 150 -1600 i 800 mul add 100 sub moveto yt10x i get show i 4 eq {0 -1600 i 800 mul add moveto xchart4 3 eq { %xchart4=3 -250 150 rmoveto TBIM (B) show TM } if %xchart4=3 xchart4 4 eq { %xchart4=4 -300 150 rmoveto TBIM (b*) show TM } if %xchart4=4 } if } for %i=0,4 -3500 -2000 translate } if %xchart4>=3 %******************************************************* %actual data xchart4 0 eq {%xchart4=0 /fakt 4000 def 600 400 translate %for scala and graphic /i1 0 def /i2 7 def i1 1 i2 {/i exch def %i=i1,i2 XANi i get fakt mul YANi i get fakt mul i i1 eq {moveto} if i i1 1 add ge i i2 1 sub le and {lineto} if i i2 eq {lineto closepath stroke} if } for %i=i1,i2 0 1 7 {/i exch def %i=0,7 i 0 eq {0 1 1 0 setcmyk_olvcolor} if %R i 1 eq {0 0.5 1 0 setcmyk_olvcolor} if %R50Y i 2 eq {0 0 1 0 setcmyk_olvcolor} if %Y i 3 eq {0.5 0 1 0 setcmyk_olvcolor} if %Y50G i 4 eq {1 0 1 0 setcmyk_olvcolor} if %G i 5 eq {1 0 0 0 setcmyk_olvcolor} if %G50B i 6 eq {1 1 0 0 setcmyk_olvcolor} if %B i 7 eq {0 1 0 0 setcmyk_olvcolor} if %B50R XANi i get fakt mul YANi i get fakt mul 90 0 360 arc fill } for 0 0 0 1 setcmyk_olvcolor 0 1 8 {/i exch def %i=0,6 XANi i get fakt mul YANi i get fakt mul i 7 le {90}{50} ifelse 0 360 arc stroke } for %i=0,6 /xshift [0100 0100 -200 -300 -400 -700 -250 100 -250 0000] def /yshift [-200 0100 -300 0150 -050 -100 -170 -020 -280 0000] def /colori [(R) (R50Y) (Y) (Y50G)(G) (G50B) (B) (B50R) (D65) ( )] def colori 8 TELi ILA get put TIM /i2 i2 1 add def i1 1 i2 {/i exch def %i=i1,i2 XANi i get fakt mul xshift i get add YANi i get fakt mul yshift i get add moveto TIK colori i get show i i2 lt {%i>) cvn (]) cvn load put} if [ /Title (PostScript pictures: http://130.149.60.45/~farbmetrik/TE01/) /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@me.com) /CreationDate (D:2012070112000) /ModDate (D:2012070112000) /DOCINFO pdfmark11 [ /View [ /FitB ] /DOCVIEW pdfmark11 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /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 /Courier findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Courier-ISOL1 exch definefont pop /Courier-Oblique findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierI-ISOL1 exch definefont pop /Courier-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierB-ISOL1 exch definefont pop /Courier-BoldOblique findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierBI-ISOL1 exch definefont pop /TG {350 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TL {160 /Times-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIL {160 /TimesI-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBL {160 /TimesB-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIL {160 /TimesBI-ISOL1 FS} bind def /SG {350 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SK {240 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SL {160 /Symbol FS} bind def %%EndProlog gsave %lanindL2.EPS START 20000505 /lanind 0 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showea {1 lanind le {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 1 def /lanind2 1 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 3 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % colorm 0 eq deintp 0 eq and {/Txx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def} if %colorm=1, deintp=1 xchart 0 eq {/Txx (-) def} if %always independent of intended output gsave %LANINDL2 END /SD65 80 array def %380 bis 775 mit deltalambda=05 /SD50 80 array def %380 bis 775 mit deltalambda=05 /SP40 80 array def %380 bis 775 mit deltalambda=05 /SA00 80 array def %380 bis 775 mit deltalambda=05 /SE00 80 array def %380 bis 775 mit deltalambda=05 /SC00 80 array def %380 bis 775 mit deltalambda=05 /SDAK 80 array def %380 bis 775 mit deltalambda=05 /RA 80 array def %380 bis 770 nm /F2 240 array def %3 x 80 Daten fuer Bereich 380 bis 770nm /F2N 240 array def %normiert auf Y=100 fuer D65 und 10nm %C %C LITERATURQUELLEN LICHTARTEN %C SA,SC,SD65, CIE-DOKUMENT NR.15 FARBMESSUNG, 1971 %C TABELLE 1.1.1, SEITE 81 %C SD55,SD75, CIE-DOKUMENT NR.15 FARBMESSUNG, 1971 %C TABELLE 1.1.4, SEITE 85 %C LINEAR INTERPOLIERT VON 5 ZU 5NM %C SG,SP,SXE, DIN 5033, BLATT 7 ,SEITE 8-9 %C AUSGABE 1966 /SD65 %80 data 5 nm [50.0 52.3 54.6 68.7 82.8 87.1 91.5 92.5 93.4 90.1 86.7 95.8 104.9 110.9 117.0 117.4 117.8 116.3 114.9 115.4 115.9 112.4 108.8 109.1 109.4 108.6 107.8 106.3 104.8 106.2 107.7 106.0 104.4 104.2 104.0 102.0 100.0 98.2 96.3 96.1 95.8 92.2 88.7 89.3 90.0 89.8 89.6 88.6 87.7 85.5 83.3 83.5 83.7 81.9 80.0 80.1 80.2 81.2 82.3 80.3 78.3 74.0 69.7 70.7 71.6 73.0 74.3 68.0 61.6 65.7 69.9 72.5 75.1 69.3 63.6 55.0 46.4 56.6 66.8 65.1] def /SD50 %80 data 5 nm CIE 15.3, Seite 30; aus JE540-7N.PS [24.5 27.2 29.9 39.6 49.3 52.9 56.5 58.3 60.0 58.9 57.8 66.3 74.8 81.0 87.2 88.9 90.6 91.0 91.4 93.2 95.1 93.5 92.0 93.8 95.7 96.2 96.6 96.8 97.1 99.6 102.1 101.4 100.8 101.5 102.3 101.2 100.0 98.9 97.7 98.3 98.9 96.2 93.5 95.6 97.7 98.5 99.3 99.2 99.0 97.4 95.7 97.3 98.9 97.3 95.7 96.9 98.2 100.6 103.0 101.1 99.1 93.3 87.4 89.5 91.6 92.2 92.9 84.9 76.9 81.7 86.5 89.5 92.6 85.4 78.2 68.0 57.7 70.3 82.9 0.0] def %0.0 not used /SA00 %80 data 5 nm CIE 15.3 Seite 30; aus JE540-7N.PS [9.80 10.90 12.09 13.35 14.71 16.15 17.68 19.29 20.99 22.79 24.67 26.64 28.70 30.85 33.09 35.41 37.81 40.30 42.87 45.52 48.24 51.04 53.91 56.85 59.86 62.93 66.06 69.25 72.50 75.79 79.13 82.52 85.95 89.41 92.91 96.44 100.00 103.58 107.18 110.80 114.44 118.08 121.73 125.39 129.04 132.70 136.35 139.99 143.62 147.24 150.84 154.42 157.98 161.52 165.03 168.51 171.96 175.38 178.77 182.12 185.43 188.70 191.93 195.12 198.26 201.36 204.41 207.41 210.36 213.27 216.12 218.92 221.67 224.36 227.00 229.59 232.12 234.59 237.01 239.37 0.0] def %0.0 not used % AUS BILDPLA.FOR aus vrbam/wrpos:KRPROG.FOR, 5987-6023 5.10.92 %C PROGRAMM ZUR BERECHNUNG DER RELATIVEN SPEKTRALEN STRAHLUNGSVERTEI- %C LUNG EINES HOHLRAUMSTRAHLERS ALS FUNKTION DER WELLENLAENGE LAMDA %C BEI GEGEBENER TEMPERATUR T %C VERWENDETE VARIABLE %C T TEMPERATUR %C C2 PLANCKSCHE KONSTANTE (=1.4388 CM K (1967)) %C LAMDA(I) WELLENLAENGE %C S(I) STRAHLUNGSVERTEILUNG DES HOHLRAUMSTRAHLERS %C %C LITERATUR OFFIZIELLE EMPFEHLUNGEN DER CIE,DEUTSCHE VERSION, %C CA. 1969, SEITE 21 UND TABELLE 1.1.1 %C %SDP4 80 array def %380 bis 775 mit deltalambda=05 % DO 50 I=1,54 % 50 S(I)=100. % 1*(560./FLOAT(LAMDA(I)))**5 % 2*(EXP(C2/(560.*10.**(-7)*T))-1.) % 3/(EXP(C2/(FLOAT(LAMDA(I))*10.**(-7)*T))-1.) %new CIE 15.3:2004, Eq. (3.1) page 2 %S(I) = [100{560/lambda}**5] [exp{(c2*10**7)/(TNC*560 )} - 1] % /[exp{(c2*10**7)/(TNC*lambda)} - 1] % exp = e {...} = 2.71 {...} %/TNC 2848 def %NLA /TNC 4000 def /EE 2.718281 def %e=mac pocket calculator /C2 1.4350000 10 7 exp mul def /lamd 80 array def 0 1 79 {%i=0,79 /i exch def /lambda 380 i 5 mul add def lamd i lambda put /E1 560 lambda div 5 exp def /E4 C2 TNC 560 mul div def /E5 C2 TNC lambda mul div def /E6 EE E4 exp def /E7 EE E5 exp def SP40 i E1 100 mul E6 1 sub E7 1 sub div mul put } for %i=0,79 /xex 10 2 exp def /yex EE 2 exp def /SE00 %80 data 5 nm [100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0] def %0.0 not used /SC00 %80 data 5 nm [ 33.00 39.92 47.40 55.17 63.30 71.81 80.60 89.53 98.10 105.80 112.40 117.75 121.50 123.45 124.00 123.60 123.10 123.30 123.80 124.09 123.90 122.92 120.70 116.90 112.10 106.98 102.30 98.81 96.90 96.78 98.00 99.94 102.10 103.95 105.20 105.67 105.30 104.11 102.30 100.15 97.80 95.43 93.20 91.22 89.70 88.83 88.40 88.19 88.10 88.06 88.00 87.86 87.80 87.99 88.20 88.20 87.90 87.22 86.30 85.30 84.00 82.21 80.20 78.24 76.30 74.36 72.40 70.40 68.30 66.30 64.40 62.80 61.50 60.20 59.20 58.50 58.10 58.00 58.20 58.50 ] def %0.0 not used %C LITERATURQUELLEN SPEKTRALWERTE %C F2 CIE-DOKUMENT NR.15 FARBMESSUNG, 1971 %C TABELLE 2.1, SEITE 93-102 /F2 %3x80 data [.001368 .002236 .004243 .007650 .01431 .02319 .04351 .07763 .1344 .2148 .2839 .3285 .3483 .3481 .3362 .3187 .2908 .2511 .1954 .1421 .09564 .05795 .03201 .01470 .0049 .0024 .0093 .0291 .06327 .1096 .1655 .2257 .2904 .3597 .4334 .5121 .5945 .6784 .7621 .8425 .9163 .9786 1.0263 1.0567 1.0622 1.0456 1.0026 .9384 .8544 .7514 .6424 .5419 .4479 .3608 .2835 .2187 .1649 .1212 .0874 .0636 .04677 .03290 .02270 .01584 .01136 .00811 .00579 .004109 .002899 .002049 .001440 .0009999 .0006901 .000476 .0003323 .0002348 .0001662 .0001174 .00008308 .00005871 .000039 .000064 .00012 .000217 .000396 .00064 .00121 .00218 .004 .0073 .0116 .01684 .023 .0298 .0380 .048 .06 .0739 .09098 .1126 .139 .1693 .208 .2586 .323 .4073 .503 .6082 .71 .7932 .862 .9149 .954 .9803 .995 1.0 .995 .9786 .952 .9154 .870 .8163 .757 .6949 .631 .5668 .503 .4412 .381 .321 .265 .217 .175 .1382 .107 .0816 .061 .04458 .032 .0232 .017 .01192 .00821 .005723 .004102 .002929 .002091 .001484 .001047 .00074 .00052 .0003611 .0002492 .0001719 .00012 .0000848 .00006 .0000424 .00003 .0000212 .00645 .01055 .02005 .03621 .06785 .1102 .2074 .3713 .6456 1.0391 1.3856 1.623 1.7471 1.7826 1.7721 1.7441 1.6692 1.5281 1.2876 1.0419 .8130 .6162 .4652 .3533 .2720 .2123 .1582 .1117 .07825 .05725 .04216 .02984 .0203 .0134 .00875 .00575 .0039 .00275 .0021 .0018 .00165 .0014 .0011 .0010 .0008 .0006 .00034 .00024 .00019 .0001 .00005 .00003 .00002 .00001 % 26*0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %10 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %20 0.0 0.0 0.0 0.0 0.0 0.0 %26 ] def /xshift 10 array def %max 2x4 elementary colours /yshift 10 array def /colori 10 array def /RX10 328 array def %8x41 /RX10[ %(R) (e) ( CIE 09) %00 %380 %390 %400 %410 %420 %430 %440 %450 %460 %470 0066 0058 0052 0051 0050 0048 0046 0042 0038 0033 %480 %490 %500 %510 %520 %530 %540 %550 %560 %570 0030 0028 0028 0030 0031 0032 0033 0035 0041 0048 %580 %590 %600 %610 %620 %630 %640 %650 %660 %670 0060 0102 0190 0336 0505 0641 0717 0758 0781 0797 %680 %690 %700 %710 %720 %730 %740 %750 %760 %770 %780 0809 0819 0828 0831 0835 0836 0838 0839 0839 0839 0839 %(Y) (e) ( CIE 10) %01 %380 %390 %400 %410 %420 %430 %440 %450 %460 %470 0050 0059 0066 0068 0069 0072 0076 0083 0095 0113 %480 %490 %500 %510 %520 %530 %540 %550 %560 %570 0142 0189 0262 0365 0465 0546 0610 0653 0678 0693 %580 %590 %600 %610 %620 %630 %640 %650 %660 %670 0701 0705 0706 0707 0708 0710 0712 0716 0720 0725 %680 %690 %700 %710 %720 %730 %740 %750 %760 %770 %780 0731 0739 0746 0749 0753 0755 0755 0756 0758 0758 0758 %(Y) (e) ( CIE 11) %02 %380 %390 %400 %410 %420 %430 %440 %450 %460 %470 0111 0127 0127 0116 0108 0104 0105 0110 0123 0148 %480 %490 %500 %510 %520 %530 %540 %550 %560 %570 0192 0252 0325 0356 0346 0314 0271 0227 0188 0153 %580 %590 %600 %610 %620 %630 %640 %650 %660 %670 0125 0106 0096 0090 0085 0080 0078 0078 0081 0088 %680 %690 %700 %710 %720 %730 %740 %750 %760 %770 %780 0102 0125 0161 0203 0242 0270 0292 0310 0317 0317 0317 %(G) (e) ( CIE 12) %03 %380 %390 %400 %410 %420 %430 %440 %450 %460 %470 0120 0090 0076 0064 0075 0123 0207 0300 0346 0341 %480 %490 %500 %510 %520 %530 %540 %550 %560 %570 0307 0257 0204 0154 0109 0075 0051 0035 0025 0019 %580 %590 %600 %610 %620 %630 %640 %650 %660 %670 0017 0016 0016 0016 0016 0018 0018 0019 0023 0026 %680 %690 %700 %710 %720 %730 %740 %750 %760 %770 %780 0035 0056 0097 0166 0257 0354 0446 0520 0577 0577 0577 %(B) (e) ( CIE 09) %00 %380 %390 %400 %410 %420 %430 %440 %450 %460 %470 0066 0058 0052 0051 0050 0048 0046 0042 0038 0033 %480 %490 %500 %510 %520 %530 %540 %550 %560 %570 0030 0028 0028 0030 0031 0032 0033 0035 0041 0048 %580 %590 %600 %610 %620 %630 %640 %650 %660 %670 0060 0102 0190 0336 0505 0641 0717 0758 0781 0797 %680 %690 %700 %710 %720 %730 %740 %750 %760 %770 %780 0809 0819 0828 0831 0835 0836 0838 0839 0839 0839 0839 %(Y) (e) ( CIE 10) %01 %380 %390 %400 %410 %420 %430 %440 %450 %460 %470 0050 0059 0066 0068 0069 0072 0076 0083 0095 0113 %480 %490 %500 %510 %520 %530 %540 %550 %560 %570 0142 0189 0262 0365 0465 0546 0610 0653 0678 0693 %580 %590 %600 %610 %620 %630 %640 %650 %660 %670 0701 0705 0706 0707 0708 0710 0712 0716 0720 0725 %680 %690 %700 %710 %720 %730 %740 %750 %760 %770 %780 0731 0739 0746 0749 0753 0755 0755 0756 0758 0758 0758 %(G) (e) ( CIE 11) %02 %380 %390 %400 %410 %420 %430 %440 %450 %460 %470 0111 0127 0127 0116 0108 0104 0105 0110 0123 0148 %480 %490 %500 %510 %520 %530 %540 %550 %560 %570 0192 0252 0325 0356 0346 0314 0271 0227 0188 0153 %580 %590 %600 %610 %620 %630 %640 %650 %660 %670 0125 0106 0096 0090 0085 0080 0078 0078 0081 0088 %680 %690 %700 %710 %720 %730 %740 %750 %760 %770 %780 0102 0125 0161 0203 0242 0270 0292 0310 0317 0317 0317 %(B) (e) ( CIE 12) %03 %380 %390 %400 %410 %420 %430 %440 %450 %460 %470 0120 0090 0076 0064 0075 0123 0207 0300 0346 0341 %480 %490 %500 %510 %520 %530 %540 %550 %560 %570 0307 0257 0204 0154 0109 0075 0051 0035 0025 0019 %580 %590 %600 %610 %620 %630 %640 %650 %660 %670 0017 0016 0016 0016 0016 0018 0018 0019 0023 0026 %680 %690 %700 %710 %720 %730 %740 %750 %760 %770 %780 0035 0056 0097 0166 0257 0354 0446 0520 0577 0577 0577 ] def /RX05 80 array def %1x80 /RX05 [ %(%W1(r=1,000) 10 380_770) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 ] def /RX0 720 array def 0 1 7 {/j exch def %j=0,7 8 tTest colours /j41 41 j mul def /j80 80 j mul def 0 1 39 {/i exch def %i=0,39 /i2 i 2 mul def RX0 j80 i2 add RX10 j41 i add get put RX0 j80 i2 add 1 add RX10 j41 i add get RX10 j41 i add 1 add get add 0.5 mul cvi put } for %i=0,39 } for %j=0,7 640 1 719 {/i exch def %i=640,719 RX0 i RX05 i 640 sub get put } for %C LITERATURQUELLEN SPEKTRALWERTE %C F2 CIE-DOKUMENT NR.15 FARBMESSUNG, 1971 %C TABELLE 2.1, SEITE 93-102 /F2 240 array def /F2 %3x80 data [.001368 .002236 .004243 .007650 .01431 .02319 .04351 .07763 .1344 .2148 .2839 .3285 .3483 .3481 .3362 .3187 .2908 .2511 .1954 .1421 .09564 .05795 .03201 .01470 .0049 .0024 .0093 .0291 .06327 .1096 .1655 .2257 .2904 .3597 .4334 .5121 .5945 .6784 .7621 .8425 .9163 .9786 1.0263 1.0567 1.0622 1.0456 1.0026 .9384 .8544 .7514 .6424 .5419 .4479 .3608 .2835 .2187 .1649 .1212 .0874 .0636 .04677 .03290 .02270 .01584 .01136 .00811 .00579 .004109 .002899 .002049 .001440 .0009999 .0006901 .000476 .0003323 .0002348 .0001662 .0001174 .00008308 .00005871 .000039 .000064 .00012 .000217 .000396 .00064 .00121 .00218 .004 .0073 .0116 .01684 .023 .0298 .0380 .048 .06 .0739 .09098 .1126 .139 .1693 .208 .2586 .323 .4073 .503 .6082 .71 .7932 .862 .9149 .954 .9803 .995 1.0 .995 .9786 .952 .9154 .870 .8163 .757 .6949 .631 .5668 .503 .4412 .381 .321 .265 .217 .175 .1382 .107 .0816 .061 .04458 .032 .0232 .017 .01192 .00821 .005723 .004102 .002929 .002091 .001484 .001047 .00074 .00052 .0003611 .0002492 .0001719 .00012 .0000848 .00006 .0000424 .00003 .0000212 .00645 .01055 .02005 .03621 .06785 .1102 .2074 .3713 .6456 1.0391 1.3856 1.623 1.7471 1.7826 1.7721 1.7441 1.6692 1.5281 1.2876 1.0419 .8130 .6162 .4652 .3533 .2720 .2123 .1582 .1117 .07825 .05725 .04216 .02984 .0203 .0134 .00875 .00575 .0039 .00275 .0021 .0018 .00165 .0014 .0011 .0010 .0008 .0006 .00034 .00024 .00019 .0001 .00005 .00003 .00002 .00001 % 26*0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %10 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %20 0.0 0.0 0.0 0.0 0.0 0.0 %26 ] def /YKSUM 0 def %For CIE Illuminant E 0 1 79 {/i exch def %i=0,1,79 /YKSUM YKSUM F2 80 i add get add def } for %i=0,1,79 /F2N 240 array def 0 1 79 {/i exch def %i=0,1,79 F2N 00 i add F2 00 i add get YKSUM div 100 mul put F2N 80 i add F2 80 i add get YKSUM div 100 mul put F2N 160 i add F2 160 i add get YKSUM div 100 mul put } for %i=0,1,79 /FXN 80 array def %FXN 0 = F2N imax /FYN 80 array def /FZN 80 array def %defines FXN, FYN, FZN 0 to 79 0 1 79 {/i exch def %i=0,79 FXN i F2N 000 i add get put FYN i F2N 080 i add get put FZN i F2N 160 i add get put } for %i=0,79 %special wavelength range with complementary colours for E? /FXD 63 array def /FYD 63 array def /FZD 63 array def /DOW 63 array def 00 1 60 {/i exch def %i=0,60 %range 400..700nm FXD i FXN 005 i add get put FYD i FYN 005 i add get put FZD i FZN 005 i add get put DOW i 400 i 5 mul add put %range 400 to 700 } for %i=0,60 %for interpolation FXD 61 FXD 60 get put FYD 61 FYD 60 get put FZD 61 FZD 60 get put FXD 62 FXD 60 get put FYD 62 FYD 60 get put FZD 62 FZD 60 get put /FAD 63 array def /FBD 63 array def /FCD 63 array def /xdel 1030 def /ydel 395 def /x0 600 def /TELi 6 array def /TELi [(D65) (D50) (P40) (A00) (E00) (C00)] def %6 illuminants /xchart4 0 def % %0 1 4 {/xchart4 exch def %xchart4=0,4 /xchartl 5 def %0 1 5 {/xchartl exch def %xchartl=0,4 (6 illuminants x 1 Normalization) /K 0 def %for normalization 1 /ILA xchartl def %for illuminants D65, D50, P40, A, E, C gsave 5 /Times-ISOL1 FS /cvishow {cvi 6 string cvs show} def 75 85 moveto lanind cvishow (-) show colorm cvishow deintp cvishow xcolor cvishow xchart cvishow pchart cvishow colsep cvishow (-L) show pmetam cvishow 5 /Times-ISOL1 FS 170 85 moveto (RE671-1N//TE010-8) show %xchart 0 ge {(N) show} if %(_) show xchart 1 add cvishow xchart 0 eq {(N) show} {deintp colorm 2 mul add cvishow} ifelse 72 90 translate 0.010 MM dup scale 25 setlinewidth 0 0 0 0 setcmyk_olvcolor 0 0 moveto 5400 0 rlineto 0 4000 rlineto 5400 neg 0 rlineto closepath fill 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath clip 0 0 0 1 setcmyk_olvcolor 0 0 moveto 5400 0 rlineto 0 4000 rlineto 5400 neg 0 rlineto closepath stroke 0 1 79 {/i exch def %i=0,79 SDAK i ILA 0 eq {SD65 i get} if ILA 1 eq {SD50 i get} if ILA 2 eq {SP40 i get} if ILA 3 eq {SA00 i get} if ILA 4 eq {SE00 i get} if ILA 5 eq {SC00 i get} if put } for %i=0,79 /YKSUM 0 def 0 1 79 {/i exch def %i=0,1,79 /YKSUM YKSUM SDAK i get F2 80 i add get mul add def } for %i=0,1,79 0 1 79 {/i exch def %i=0,1,79 F2N 00 i add SDAK i get F2 00 i add get mul YKSUM div 100 mul put F2N 80 i add SDAK i get F2 80 i add get mul YKSUM div 100 mul put F2N 160 i add SDAK i get F2 160 i add get mul YKSUM div 100 mul put } for %i=0,1,79 %XW,YW,ZW for white /XW 0 def /YW 0 def /ZW 0 def 0 1 079 {/i exch def %i=0,79 /XW XW F2N 00 i add get add def /YW YW F2N 80 i add get add def /ZW ZW F2N 160 i add get add def } for %i=0,79 /SUMW XW YW add ZW add def %for D65, D50, P40, A00, E00 /XANW XW SUMW div def /YANW YW SUMW div def /ZANW ZW SUMW div def /AANW XW YW 0.0001 add div def /BANW ZW YW 0.0001 add div 0.4 mul neg def /Xi 10 array def %max 6 device colour + 4 elementary colours /Yi 10 array def /Zi 10 array def /XANi 10 array def /YANi 10 array def /ZANi 10 array def 0 1 08 {/k exch def %k=0,8 %09 Reflections /kx k 80 mul def 0 1 79 {/i exch def %i=0,79 RA i RX0 kx i add get 1000 div put } for %i=0,79 /X 0 def /Y 0 def /Z 0 def 0 1 079 {/i exch def %i=0,79 /X X F2N 00 i add get RA i get mul add def /Y Y F2N 80 i add get RA i get mul add def /Z Z F2N 160 i add get RA i get mul add def } for %i=0,79 Xi k X put Yi k Y put Zi k Z put /SUM X Y add Z add def XANi k X SUM 0.0001 add div put YANi k Y SUM 0.0001 add div put ZANi k Z SUM 0.0001 add div put } for %k=0,8 K 1 eq {%K=1 0 1 7 {/L exch def %L=0,7 only 0 to 7! Xi L Xi L get 0.8859 mul put Yi L Yi L get 0.8859 mul put Zi L Zi L get 0.8859 mul put } for %L=0,7 } if %K=1 %calculation of transformation data /FARBE 27 array def ILA 5 eq { /FARBE [(R) (e,C) ( CIE 09) %00 (Y) (e,C) ( CIE 10) %01 (G) (e,C) ( CIE 11) %02 (B) (e,C) ( CIE 12) %03 (R) (e,M) ( MIE 02) %04 (Y) (e,M) ( MIE 08) %05 (G) (e,M) ( MIE 14) %06 (B) (e,M) ( MIE 20) %07 (W) (1) ( 380_770) %08 ] def }%ILA=5 {%ILA#5 /FARBE [(R) (e) ( CIE 09) %00 output only of CIE colours (Y) (e) ( CIE 10) %01 (G) (e) ( CIE 11) %02 (B) (e) ( CIE 12) %03 (R) (e,M) ( MIE 20) %04 (Y) (e,M) ( MIE 02) %05 (G) (e,M) ( MIE 08) %06 (B) (e,M) ( MIE 14) %07 (W) (1) ( 380_770) %08 ] def } ifelse %ILA#5 /xtexti 5 array def /ytexti 5 array def /xtexti [2500 2400 0750 0100 0100] def /ytexti [3800 0500 0500 0500 0500] def /x0shift 0550 def /x1shift 1750 def /x2shift 1200 def xchart4 0 eq {%xchart4=0,#0 0 0 0 1 setcmyk_olvcolor xtexti xchart4 get x0shift add ytexti xchart4 get 0660 sub moveto TBIS FARBE 0 get show TBL 0 -40 rmoveto FARBE 1 get show 0 40 rmoveto TBIS FARBE 2 get show xtexti xchart4 get x1shift add ytexti xchart4 get 0660 sub moveto TBIS FARBE 3 get show TBL 0 -40 rmoveto FARBE 4 get show 0 40 rmoveto TBIS FARBE 5 get show xtexti xchart4 get x0shift add ytexti xchart4 get 0880 sub moveto TBIS FARBE 6 get show TBL 0 -40 rmoveto FARBE 7 get show 0 40 rmoveto TBIS FARBE 8 get show xtexti xchart4 get x1shift add ytexti xchart4 get 0880 sub moveto TBIS FARBE 9 get show TBL 0 -40 rmoveto FARBE 10 get show 0 40 rmoveto TBIS FARBE 11 get show ILA 5 eq {%ILA=5 xtexti xchart4 get x0shift add ytexti xchart4 get 1100 sub moveto TBIS FARBE 12 get show TBL 0 -40 rmoveto FARBE 13 get show 0 40 rmoveto TBIS FARBE 14 get show xtexti xchart4 get x1shift add ytexti xchart4 get 1100 sub moveto TBIS FARBE 15 get show TBL 0 -40 rmoveto FARBE 16 get show 0 40 rmoveto TBIS FARBE 17 get show xtexti xchart4 get x0shift add ytexti xchart4 get 1320 sub moveto TBIS FARBE 18 get show TBL 0 -40 rmoveto FARBE 19 get show 0 40 rmoveto TBIS FARBE 20 get show xtexti xchart4 get x1shift add ytexti xchart4 get 1320 sub moveto TBIS FARBE 21 get show TBL 0 -40 rmoveto FARBE 22 get show 0 40 rmoveto TBIS FARBE 23 get show } if %ILA=5 }%xchart4=0 {%xchart4#0 TBS 0 0 0 1 setcmyk_olvcolor ILA 5 ne {%ILA#5 xtexti xchart4 get ytexti xchart4 get 440 add moveto TBIS FARBE 0 get show TBL 0 -40 rmoveto FARBE 1 get show 0 40 rmoveto TBIS FARBE 2 get show xtexti xchart4 get x2shift add ytexti xchart4 get 440 add moveto TBIS FARBE 3 get show TBL 0 -40 rmoveto FARBE 4 get show 0 40 rmoveto TBIS FARBE 5 get show xtexti xchart4 get ytexti xchart4 get 220 add moveto TBIS FARBE 6 get show TBL 0 -40 rmoveto FARBE 7 get show 0 40 rmoveto TBIS FARBE 8 get show xtexti xchart4 get x2shift add ytexti xchart4 get 220 add moveto TBIS FARBE 9 get show TBL 0 -40 rmoveto FARBE 10 get show 0 40 rmoveto TBIS FARBE 11 get show }%ILA#5 {%ILA=5 xtexti xchart4 get ytexti xchart4 get 880 add moveto TBIS FARBE 0 get show TBL 0 -40 rmoveto FARBE 1 get show 0 40 rmoveto TBIS FARBE 2 get show xtexti xchart4 get x2shift add ytexti xchart4 get 880 add moveto TBIS FARBE 3 get show TBL 0 -40 rmoveto FARBE 4 get show 0 40 rmoveto TBIS FARBE 5 get show xtexti xchart4 get ytexti xchart4 get 660 add moveto TBIS FARBE 6 get show TBL 0 -40 rmoveto FARBE 7 get show 0 40 rmoveto TBIS FARBE 8 get show xtexti xchart4 get x2shift add ytexti xchart4 get 660 add moveto TBIS FARBE 9 get show TBL 0 -40 rmoveto FARBE 10 get show 0 40 rmoveto TBIS FARBE 11 get show xtexti xchart4 get ytexti xchart4 get 440 add moveto TBIS FARBE 12 get show TBL 0 -40 rmoveto FARBE 13 get show 0 40 rmoveto TBIS FARBE 14 get show xtexti xchart4 get x2shift add ytexti xchart4 get 440 add moveto TBIS FARBE 15 get show TBL 0 -40 rmoveto FARBE 16 get show 0 40 rmoveto TBIS FARBE 17 get show xtexti xchart4 get ytexti xchart4 get 220 add moveto TBIS FARBE 18 get show TBL 0 -40 rmoveto FARBE 19 get show 0 40 rmoveto TBIS FARBE 20 get show xtexti xchart4 get x2shift add ytexti xchart4 get 220 add moveto TBIS FARBE 21 get show TBL 0 -40 rmoveto FARBE 22 get show 0 40 rmoveto TBIS FARBE 23 get show } ifelse %ILA=5 } ifelse %xchart4#0 TBS 0 0 0 1 setcmyk_olvcolor xtexti xchart4 get 400 sub ytexti xchart4 get moveto (CIE\255Daten f\374r Elementarfarben) showde %0TE010-8 00524 (CIE data for elementary colours) showen %1TE010-8 00524 (datos CIE para colores elementales) showes %2TE010-8 00524 (donn\351es de CIE pour couleurs \351l\351mentaires) showfr %3TE010-8 00524 (CIE dati per i colori elementari) showit %4TE010-8 00524 (CIE data for elementary colours) showjp %5TE010-8 00524 xtexti xchart4 get 400 sub ytexti xchart4 get 220 sub moveto (gro\337er Buntheit f\374r ) showde %0TE010-8 01524 (of larger chroma for ) showen %1TE010-8 01524 (de mayor croma para ) showes %2TE010-8 01524 (de grande chroma pour) showfr %3TE010-8 01524 (di pi grande chroma per ) showit %4TE010-8 01524 (of larger chroma for ) showjp %5TE010-8 01524 TELi ILA get show xtexti xchart4 get 400 sub ytexti xchart4 get 440 sub moveto xchart4 0 eq {%xchart4=0 (in Normfarbtafel) showde %0TE010-8 02524 (in chromaticity diagram) showen %1TE010-8 02524 (en el diagrama de cromaticidad) showes %2TE010-8 02524 (dans le diagramme de chromatica) showfr %3TE010-8 02524 (nel diagramma di cromaticit\340) showit %4TE010-8 02524 (in chromaticity diagram) showjp %5TE010-8 02524 TBIS ( (x, y)) show } if %xchart4=0 xchart4 1 eq {%xchart4=1 (in Farbtafel) showde %0TE010-8 03524 (in chromaticity diagram) showen %1TE010-8 03524 (en el diagrama de cromaticidad) showes %2TE010-8 03524 (dans chromatica le diagramme) showfr %3TE010-8 03524 (nel diagramma di cromaticit\340) showit %4TE010-8 03524 (in chromaticity diagram) showjp %5TE010-8 03524 TBIS ( (a, b)) show } if %xchart4=1 xchart4 2 eq {%xchart4=2 (in Farbarttafel) showde %0TE010-8 04524 (in chromaticity diagram) showen %1TE010-8 04524 (en el diagrama de cromaticidad) showes %2TE010-8 04524 (dans le diagramme de chromatica) showfr %3TE010-8 04524 (nel diagramma di cromaticit\340) showit %4TE010-8 04524 (in chromaticity diagram) showjp %5TE010-8 04524 TBIS ( (a', b')) show } if %xchart4=2 xchart4 3 eq {%xchart4=3 (in Buntwertdiagramm) showde %0TE010-8 05524 (in chromatic value diagram) showen %1TE010-8 05524 (en el diagrama de valor crom\341tico) showes %2TE010-8 05524 (dans le diagramme de valeur chromatique) showfr %3TE010-8 05524 (nel diagramma di valore cromatico) showit %4TE010-8 05524 (in chromatic value diagram) showjp %5TE010-8 05524 TBIS ( (A, B)) show } if %xchart4=3 xchart4 4 eq {%xchart4=4 (in Buntheitsdiagram) showde %0TE010-8 06524 (in chroma diagram) showen %1TE010-8 06524 (en el diagrama de croma) showes %2TE010-8 06524 (dans le diagramme de chroma) showfr %3TE010-8 06524 (nel diagramma di croma) showit %4TE010-8 06524 (in chroma diagram) showjp %5TE010-8 06524 TBIS ( (a*, b*)) show } if %xchart4=4 ILA 5 eq {%Miescher elementary colours for C Xi 04 32.53 put %R Yi 04 18.11 put Zi 04 5.32 put Xi 05 70.72 put %Y Yi 05 77.82 put Zi 05 10.18 put Xi 06 08.51 put %G Yi 06 20.24 put Zi 06 16.28 put Xi 07 11.92 put %B Yi 07 09.35 put Zi 07 48.79 put Xi 08 XW put %W, ill. C Yi 09 YW put Zi 09 ZW put } if %Miescher elementary colours for C 0 1 7 {/i exch def %i=0,7 /SUM Xi i get Yi i get add Zi i get add def XANi i Xi i get SUM 0.0001 add div put YANi i Yi i get SUM 0.0001 add div put ZANi i Zi i get SUM 0.0001 add div put } for xchart4 0 eq {%xchart4=0 0 1 62 {/i exch def %i=0,62 FAD i FXD i get put FBD i FYD i get put FCD i FZD i get put } for %i=0,62 } if %xchart4=0 xchart4 1 eq xchart 3 eq or {%xchart4=1 0 1 62 {/i exch def %i=0,62 FAD i FYD i get put FBD i FXD i get FYD i get 0.0001 add div XANW YANW 0.0001 add div sub FYD i get mul put FCD i FZD i get FYD i get 0.0001 add div ZANW YANW 0.0001 add div sub FYD i get mul 0.4 mul neg put } for %i=0,62 } if %xchart4=1 xchart4 2 eq xchart4 4 eq or {%xchart4=2 /D13 1 3 div def /D841_108 841 108 div def /D16_116 16 116 div def /D24_116 24 116 div 3 exp def /YW 100 def 0 1 62 {/i exch def %i=0,62 /YD FYD i get def YD YW div D24_116 gt {/FYYN YD YW div 0.0001 add D13 exp def} {/FYYN D841_108 YD YW div mul D16_116 add def} ifelse /a'i FXD i get FYD i get 0.0001 add div D13 exp 0.2191 mul def /b'i FZD i get FYD i get 0.0001 add div D13 exp -0.08376 mul def /a'in XANW YANW 0.0001 add div D13 exp 0.2191 mul def /b'in ZANW YANW 0.0001 add div D13 exp -0.08376 mul def FAD i FYYN put FBD i a'i a'in sub YD 0.0001 add D13 exp mul put FCD i b'i b'in sub YD 0.0001 add D13 exp mul put } for %i=0,62 } if %xchart4=2 xchart4 0 eq {%xchart4=0 600 400 translate 0 0 moveto 4000 0 rlineto stroke 0 0 moveto 0 3200 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten TBS 0 -50 moveto 0 100 rlineto stroke 800 -50 moveto 0 100 rlineto stroke 1600 -50 moveto 0 100 rlineto stroke 2400 -50 moveto 0 100 rlineto stroke 3200 -50 moveto 0 100 rlineto stroke 4000 -50 moveto 0 100 rlineto stroke -100 -300 moveto (0,0) show 700 -300 moveto (0,2) show 1500 -300 moveto (0,4) show 2300 -300 moveto (0,6) show 3100 -300 moveto (0,8) show 3900 -300 moveto (1,0) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 800 moveto 100 0 rlineto stroke -50 1600 moveto 100 0 rlineto stroke -50 2400 moveto 100 0 rlineto stroke -50 3200 moveto 100 0 rlineto stroke -450 -80 moveto (0,0) show -450 720 moveto (0,2) show -450 1520 moveto (0,4) show -450 2320 moveto (0,6) show -450 3120 moveto (0,8) show TIM -300 2800 moveto (y) show TIM 4200 150 moveto (x) show TBIS 2600 150 moveto (CIE 1931) show -600 -400 translate %1000 02 01 16 01 .00 .0020 ******************** %ANF PROZSPEP3.FOR: MULYA= 4000 BEO=02 xy-Farbtafel IXY0: 600 400 600 400 translate 693 19 moveto 693 19 692 19 690 19 curveto 688 19 685 20 681 23 curveto 675 27 667 34 657 43 curveto 644 55 626 70 603 90 curveto 575 118 542 159 496 231 curveto 438 347 365 530 274 802 curveto 181 1179 93 1650 32 2153 curveto 15 2619 55 3000 155 3248 curveto 297 3335 456 3304 618 3223 curveto 771 3126 918 3017 1063 2897 curveto 1206 2769 1349 2635 1492 2497 curveto 1634 2358 1776 2218 1915 2080 curveto 2049 1946 2179 1817 2300 1696 curveto 2411 1585 2508 1489 2592 1405 curveto 2663 1336 2720 1278 2765 1233 curveto 2802 1197 2831 1168 2856 1143 curveto 2876 1123 2892 1107 2903 1096 curveto 2913 1086 2919 1080 2924 1075 curveto 2927 1072 2930 1069 2933 1066 curveto 2936 1063 2937 1062 2938 1061 curveto 2938 1061 2939 1060 2744 971 curveto 2261 748 2040 643 1908 582 curveto 1819 541 1758 512 1708 490 curveto 1660 468 1612 445 1558 420 curveto 1495 391 1419 356 1320 309 curveto 1184 247 986 155 693 19 curveto stroke 0 0 0 1 setcmyk_olvcolor 693 19 30 0 360 arc fill % 400 681 23 30 0 360 arc fill % 425 626 70 30 0 360 arc fill % 450 438 347 30 0 360 arc fill % 475 32 2153 30 0 360 arc fill % 500 456 3304 30 0 360 arc fill % 525 1206 2769 30 0 360 arc fill % 550 1915 2080 30 0 360 arc fill % 575 2508 1489 30 0 360 arc fill % 600 2802 1197 30 0 360 arc fill % 625 2903 1096 30 0 360 arc fill % 650 2930 1069 30 0 360 arc fill % 675 2938 1061 30 0 360 arc fill % 700 2261 748 30 0 360 arc fill %500c 1708 490 30 0 360 arc fill %525c 1419 356 30 0 360 arc fill %550c 0 0 0 1 setcmyk_olvcolor 693 19 30 0 360 arc stroke % 400 681 23 30 0 360 arc stroke % 425 626 70 30 0 360 arc stroke % 450 438 347 30 0 360 arc stroke % 475 32 2153 30 0 360 arc stroke % 500 456 3304 30 0 360 arc stroke % 525 1206 2769 30 0 360 arc stroke % 550 1915 2080 30 0 360 arc stroke % 575 2508 1489 30 0 360 arc stroke % 600 2802 1197 30 0 360 arc stroke % 625 2903 1096 30 0 360 arc stroke % 650 2930 1069 30 0 360 arc stroke % 675 2938 1061 30 0 360 arc stroke % 700 2261 748 30 0 360 arc stroke %500c 1708 490 30 0 360 arc stroke %525c 1419 356 30 0 360 arc stroke %550c % 1250 1316 30 0 360 arc fill %D65 0 0 0 1 setcmyk_olvcolor TBIS 693 375 sub 19 250 sub moveto (400) show % 681 500 sub 23 100 sub moveto (425) show % 626 500 sub 70 100 sub moveto (450) show 438 350 sub 347 200 sub moveto (475) show 32 450 sub 2153 100 sub moveto (500) show 456 100 add 3304 000 add moveto (525) show 1206 100 add 2769 000 add moveto (550) show 1915 100 add 2080 000 add moveto (575) show 2508 100 add 1489 000 add moveto (600) show 2802 100 add 1197 100 add moveto (625) show % 2903 200 sub 1096 100 add moveto (650) show % 2930 200 sub 1069 100 add moveto (675) show 2938 100 add 1061 100 sub moveto (700) show 2261 100 add 748 200 sub moveto (500c,E) show 1708 100 add 490 200 sub moveto (525c,E) show 1419 000 add 356 250 sub moveto (550c,E) show % 1250 100 add 1316 100 sub moveto (D65 ) show -600 -400 translate %ENDE: 1 } if %xchart4=0 xchart4 1 eq {%xchart4=1 500 3200 translate 0 400 moveto 4000 0 rlineto stroke 0 400 moveto 0 -3000 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten TBS 0 350 moveto 0 100 rlineto stroke 800 350 moveto 0 100 rlineto stroke 1600 350 moveto 0 100 rlineto stroke 2400 350 moveto 0 100 rlineto stroke 3200 350 moveto 0 100 rlineto stroke 4000 350 moveto 0 100 rlineto stroke -150 500 moveto (-0,8) show 650 500 moveto (0,0) show 1450 500 moveto (0,8) show 2250 500 moveto (1,6) show 3050 500 moveto (2,4) show 3850 500 moveto (3,2) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 -800 moveto 100 0 rlineto stroke -50 -1600 moveto 100 0 rlineto stroke -50 -2400 moveto 100 0 rlineto stroke -50 -3200 moveto 100 0 rlineto stroke -450 -100 moveto ( 0,0) show -450 -900 moveto (-0,8) show -450 -1700 moveto (-1,6) show -450 -2500 moveto (-2,4) show -475 -3050 moveto TBIM (b) show TBM (=-0,40) show TBIM (z/y) show 3650 100 moveto TBIM (a=x/y) show -500 -3200 translate %1000 02 01 16 01-.03**************************************** %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 1300 3200 translate % 36136 -68535 moveto % 36136 -68535 36234 -68875 35958 -68561 curveto % 35610 -68128 33600 -64560 29424 -56936 curveto % 24474 -47779 19507 -38551 15143 -30384 curveto % 11681 -23927 8847 -18653 6639 -14534 curveto % 4846 -11128 3397 -8271 2147 -5661 curveto 1261 -3701 moveto 1261 -3701 688 -2339 342 -1455 curveto 153 -894 56 -546 15 -336 curveto 5 -208 18 -125 47 -73 curveto 89 -44 138 -28 191 -19 curveto 246 -13 304 -8 366 -5 curveto 435 -3 512 -2 597 -1 curveto 693 -1 800 0 920 0 curveto 1053 0 1198 0 1355 0 curveto 1520 0 1683 0 1844 0 curveto 1993 0 2126 0 2242 0 curveto 2340 0 2424 0 2497 0 curveto 2559 0 2610 0 2649 0 curveto 2680 0 2703 0 2718 0 curveto 2731 0 2741 0 2751 0 curveto 2760 0 2764 0 2767 0 curveto 2769 0 2770 0 2824 -116 curveto 3023 -529 3168 -817 3275 -1036 curveto 3357 -1209 3430 -1349 3482 -1469 curveto 3545 -1597 3622 -1746 3704 -1922 curveto 3817 -2156 3983 -2496 4262 -3058 curveto % 4786 -4149 6341 -7346 35775 -67850 curveto stroke 0 0 0 1 setcmyk_olvcolor % 36136 -68535 30 0 360 arc fill % 400 % 29424 -56936 30 0 360 arc fill % 425 % 8847 -18653 30 0 360 arc fill % 450 1261 -3701 30 0 360 arc fill % 475 15 -336 30 0 360 arc fill % 500 138 -28 30 0 360 arc fill % 525 435 -3 30 0 360 arc fill % 550 920 0 30 0 360 arc fill % 575 1683 0 30 0 360 arc fill % 600 2340 0 30 0 360 arc fill % 625 2649 0 30 0 360 arc fill % 650 2741 0 30 0 360 arc fill % 675 2769 0 30 0 360 arc fill % 700 3023 -529 30 0 360 arc fill %500c 3482 -1469 30 0 360 arc fill %525c 3983 -2496 30 0 360 arc fill %550c 0 0 0 1 setcmyk_olvcolor % 36136 -68535 30 0 360 arc stroke % 400 % 29424 -56936 30 0 360 arc stroke % 425 % 8847 -18653 30 0 360 arc stroke % 450 1261 -3701 30 0 360 arc stroke % 475 15 -336 30 0 360 arc stroke % 500 138 -28 30 0 360 arc stroke % 525 435 -3 30 0 360 arc stroke % 550 920 0 30 0 360 arc stroke % 575 1683 0 30 0 360 arc stroke % 600 2340 0 30 0 360 arc stroke % 625 2649 0 30 0 360 arc stroke % 650 2741 0 30 0 360 arc stroke % 675 2769 0 30 0 360 arc stroke % 700 3023 -529 30 0 360 arc stroke %500c 3482 -1469 30 0 360 arc stroke %525c 3983 -2496 30 0 360 arc stroke %550c % 950 -435 30 0 360 arc fill %D65 0 0 0 1 setcmyk_olvcolor TBIS % 36136 500 sub -68535 100 sub moveto (400) show % 29424 500 sub -56936 100 sub moveto (425) show % 8847 500 sub -18653 100 sub moveto (450) show % 1261 500 sub -3701 100 sub moveto (475) show 15 400 sub -336 100 sub moveto (500) show 138 400 sub -28 000 sub moveto (525) show 435 200 sub -3 100 add moveto (550) show % 920 200 sub 0 100 add moveto (575) show 1683 200 sub 0 100 add moveto (600) show 2340 200 sub 0 100 add moveto (625) show % 2649 200 sub 0 100 add moveto (650) show % 2741 200 sub 0 100 add moveto (675) show 2769 100 add 0 150 sub moveto (700) show 3023 100 add -529 100 sub moveto (500c,E) show 3482 800 sub -1469 050 sub moveto (525c,E) show % 3983 500 sub -2496 100 sub moveto (550c,E) show % 950 100 add -435 100 sub moveto (D65 ) show -1300 -3200 translate %ENDE: 2 } if %xchart4=1 xchart4 2 eq {%xchart4=2 600 3200 translate 0 400 moveto 4000 0 rlineto stroke 0 400 moveto 0 -3600 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten TBS 400 350 moveto 0 100 rlineto stroke 1200 350 moveto 0 100 rlineto stroke 2000 350 moveto 0 100 rlineto stroke 2800 350 moveto 0 100 rlineto stroke 3600 350 moveto 0 100 rlineto stroke 200 500 moveto (0,06) show 1000 500 moveto (0,12) show 1800 500 moveto (0,18) show 2600 500 moveto (0,24) show 3400 500 moveto (0,30) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 -800 moveto 100 0 rlineto stroke -50 -1600 moveto 100 0 rlineto stroke -50 -2400 moveto 100 0 rlineto stroke -50 -3200 moveto 100 0 rlineto stroke -575 -100 moveto ( 0,00) show -575 -900 moveto (-0,06) show -575 -1700 moveto (-0,12) show -575 -2500 moveto (-0,18) show TIM -380 -1300 moveto (b') show 4100 250 moveto (a') show -600 -3200 translate %1000 02 01 16 01 .00 .0020 ******************** %ANF PROZSPEP3.FOR: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 200 3200 translate 9657 -6202 moveto 9657 -6202 9666 -6212 9642 -6203 curveto 9610 -6190 9426 -6080 9018 -5830 curveto 8481 -5499 7863 -5120 7227 -4729 curveto 6628 -4367 6041 -4019 5490 -3698 curveto 4943 -3383 4391 -3065 3769 -2701 curveto 3156 -2344 2578 -2012 2043 -1717 curveto 1565 -1460 1123 -1239 723 -1054 curveto 527 -898 772 -759 1060 -634 curveto 1304 -535 1510 -464 1685 -408 curveto 1832 -356 1965 -309 2091 -267 curveto 2214 -230 2337 -200 2460 -176 curveto 2585 -157 2712 -145 2841 -139 curveto 2972 -138 3103 -133 3233 -126 curveto 3359 -126 3475 -120 3582 -113 curveto 3676 -98 3756 -91 3823 -88 curveto 3878 -75 3924 -64 3963 -57 curveto 3995 -54 4022 -46 4042 0 curveto 4057 0 4069 0 4077 0 curveto 4083 0 4088 0 4093 0 curveto 4097 0 4100 0 4101 0 curveto 4102 0 4103 0 4129 -740 curveto 4224 -1226 4290 -1417 4338 -1533 curveto 4374 -1614 4405 -1674 4427 -1723 curveto 4454 -1771 4486 -1825 4520 -1884 curveto 4565 -1958 4630 -2056 4736 -2200 curveto 4923 -2435 5407 -2946 9625 -6181 curveto stroke 0 0 0 1 setcmyk_olvcolor 9657 -6202 30 0 360 arc fill % 400 9018 -5830 30 0 360 arc fill % 425 6041 -4019 30 0 360 arc fill % 450 3156 -2344 30 0 360 arc fill % 475 723 -1054 30 0 360 arc fill % 500 1510 -464 30 0 360 arc fill % 525 2214 -230 30 0 360 arc fill % 550 2841 -139 30 0 360 arc fill % 575 3475 -120 30 0 360 arc fill % 600 3878 -75 30 0 360 arc fill % 625 4042 0 30 0 360 arc fill % 650 4088 0 30 0 360 arc fill % 675 4102 0 30 0 360 arc fill % 700 4224 -1226 30 0 360 arc fill %500c 4427 -1723 30 0 360 arc fill %525c 4630 -2056 30 0 360 arc fill %550c 0 0 0 1 setcmyk_olvcolor 9657 -6202 30 0 360 arc stroke % 400 9018 -5830 30 0 360 arc stroke % 425 6041 -4019 30 0 360 arc stroke % 450 3156 -2344 30 0 360 arc stroke % 475 723 -1054 30 0 360 arc stroke % 500 1510 -464 30 0 360 arc stroke % 525 2214 -230 30 0 360 arc stroke % 550 2841 -139 30 0 360 arc stroke % 575 3475 -120 30 0 360 arc stroke % 600 3878 -75 30 0 360 arc stroke % 625 4042 0 30 0 360 arc stroke % 650 4088 0 30 0 360 arc stroke % 675 4102 0 30 0 360 arc stroke % 700 4224 -1226 30 0 360 arc stroke %500c 4427 -1723 30 0 360 arc stroke %525c 4630 -2056 30 0 360 arc stroke %550c % 2872 -1148 30 0 360 arc fill %D65 0 0 0 1 setcmyk_olvcolor TBIS % 9657 500 sub -6202 100 sub moveto (400) show % 9018 500 sub -5830 100 sub moveto (425) show % 6041 500 sub -4019 100 sub moveto (450) show 3156 400 sub -2344 100 sub moveto (475) show 723 250 sub -1054 250 sub moveto (500) show 1510 200 sub -464 150 add moveto (525) show 2214 200 sub -230 100 add moveto (550) show 2841 200 sub -139 100 add moveto (575) show 3475 200 sub -120 100 add moveto (600) show % 3878 200 sub -75 100 add moveto (625) show % 4042 200 sub 0 100 add moveto (650) show % 4088 200 sub 0 100 add moveto (675) show 4102 050 add 0 100 sub moveto (700) show 4224 050 add -1226 000 sub moveto (500c,E) show 4427 010 sub -1723 100 add moveto (525c,E) show % 4630 100 add -2056 100 sub moveto (550c,E) show % 2872 050 add -1148 000 sub moveto (D65 ) show -200 -3200 translate %ENDE: 3 } if %xchart4=2 xchart4 3 ge {%xchart4>=3 3500 2000 translate %axis and scales 0 0 0 1 setcmyk_olvcolor -2250 0 moveto 3950 0 rlineto stroke 0 -1880 moveto 0 3600 rlineto stroke 1700 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 /xt10x 5 array def /yt10x 5 array def xchart4 3 eq {%xchart4=3 /xt10x [(-40) ( ) ( ) ( ) (40)] def /yt10x [(-40) ( ) ( ) ( ) (40)] def } if %xchart4=3 xchart4 4 eq {%xchart4=4 /xt10x [(-120) ( ) ( ) ( ) (120)] def /yt10x [(-120) ( ) ( ) ( ) (120)] def } if %xchart4= TIM 0 0 0 1 setcmyk_olvcolor 0 1 4 {/i exch def %i=0,4 x-axis -1600 i 800 mul add -75 moveto 0 150 rlineto stroke -1800 i 800 mul add -300 moveto xt10x i get show i 4 eq {-1600 i 800 mul add 0 moveto xchart4 3 eq { %xchart4=3 000 150 rmoveto TBIM (A) show TM } if %xchart4=3 xchart4 4 eq { %xchart4=4 -50 150 rmoveto TBIM (a*) show TM } if %xchart4=4 } if } for %i=0,4 TIM 0 1 4 {/i exch def %i=0,4 y-axis -75 -1600 i 800 mul add moveto 150 0 rlineto stroke 150 -1600 i 800 mul add 100 sub moveto yt10x i get show i 4 eq {0 -1600 i 800 mul add moveto xchart4 3 eq { %xchart4=3 -250 150 rmoveto TBIM (B) show TM } if %xchart4=3 xchart4 4 eq { %xchart4=4 -300 150 rmoveto TBIM (b*) show TM } if %xchart4=4 } if } for %i=0,4 -3500 -2000 translate } if %xchart4>=3 %******************************************************* %actual data xchart4 0 eq {%xchart4=0 /fakt 4000 def 600 400 translate %for scala and graphic 0 1 0 {/j exch def %j=0,1 j 0 eq {/i1 0 def /i2 3 def} {/i1 4 def /i2 7 def} ifelse i1 1 i2 {/i exch def %i=i1,i2 XANi i get fakt mul YANi i get fakt mul i i1 eq {moveto} if i i1 1 add ge i i2 1 sub le and {lineto} if i i2 eq {lineto closepath stroke} if } for %i=i1,i2 } for %j=0,1 0 1 7 {/i exch def %i=0,7 i 0 eq {0 1 1 0 setcmyk_olvcolor} if %Rm i 1 eq {0 0 1 0 setcmyk_olvcolor} if %Ym i 2 eq {1 0 1 0 setcmyk_olvcolor} if %Gm i 3 eq {1 1 0 0 setcmyk_olvcolor} if %Bm i 4 eq {0 1 1 0 setcmyk_olvcolor} if %Rm i 5 eq {0 0 1 0 setcmyk_olvcolor} if %Ym i 6 eq {1 0 1 0 setcmyk_olvcolor} if %Gm i 7 eq {1 1 0 0 setcmyk_olvcolor} if %Bm XANi i get fakt mul YANi i get fakt mul 90 0 360 arc fill } for 0 0 0 1 setcmyk_olvcolor 0 1 8 {/i exch def %i=0,6f XANi i get fakt mul YANi i get fakt mul i 7 le {90}{50} ifelse 0 360 arc stroke } for %i=0,6 ILA 5 ne {%ILA#5 /xshift [-050 -100 -450 150 -050 -100 -450 -400 -300 0000] def /yshift [-300 -350 -150 -200 -300 -350 -100 -150 -280 0000] def }%ILA#5 {%ILA=5 /xshift [-250 -200 -650 -400 100 -400 -600 100 -300 0000] def /yshift [-300 -350 -200 200 -200 200 000 -150 -280 0000] def } ifelse %ILA=5 /colori [(R) (Y) (G) (B) (R) (Y) (G) (B) (D65) ( )] def colori 8 TELi ILA get put TIM 0 1 1 {/j exch def %j=0,1 j 0 eq {/i1 0 def /i2 3 def} {/i1 8 def /i2 8 def} ifelse j 0 eq ILA 5 eq and {/i2 7 def} if i1 1 i2 {/i exch def %i=i1,i2 XANi i get fakt mul xshift i get add YANi i get fakt mul yshift i get add moveto TIM colori i get show i 7 le {TS -20 -60 rmoveto FARBE i 3 mul 1 add get show 0 60 rmoveto TIM } if } for %i=i1,i2 } for %j=0,1 -600 -400 translate %for scala and grafic } if %xchart4=0 xchart4 1 eq {%xchart4=1 /fakt 1000 def %500 3200 translate %for scala 1300 3200 translate %for grafic 0 1 0 {/j exch def %j=0,1 j 0 eq {/i1 0 def /i2 3 def} {/i1 4 def /i2 7 def} ifelse i1 1 i2 {/i exch def %i=i1,i2 Xi i get Yi i get 0.0001 add div fakt mul %a Zi i get Yi i get 0.0001 add div fakt mul %b 0.4 mul neg i i1 eq {moveto} if i i1 1 add ge i i2 1 sub le and {lineto} if i i2 eq {lineto closepath stroke} if } for %i=i1,i2 } for %j=0,1 0 1 7 {/i exch def %i=0,7 i 0 eq {0 1 1 0 setcmyk_olvcolor} if %Rm i 1 eq {0 0 1 0 setcmyk_olvcolor} if %Ym i 2 eq {1 0 1 0 setcmyk_olvcolor} if %Gm i 3 eq {1 1 0 0 setcmyk_olvcolor} if %Bm i 4 eq {0 1 1 0 setcmyk_olvcolor} if %Rm i 5 eq {0 0 1 0 setcmyk_olvcolor} if %Ym i 6 eq {1 0 1 0 setcmyk_olvcolor} if %Gm i 7 eq {1 1 0 0 setcmyk_olvcolor} if %Bm Xi i get Yi i get 0.0001 add div fakt mul %a Zi i get Yi i get 0.0001 add div fakt mul %b 0.4 mul neg 90 0 360 arc fill } for 0 0 0 1 setcmyk_olvcolor 0 1 8 {/i exch def %i=0,8 Xi i get Yi i get 0.0001 add div fakt mul %a Zi i get Yi i get 0.0001 add div fakt mul %b 0.4 mul neg i 7 le {90}{50} ifelse 0 360 arc stroke } for %i=0,8 ILA 5 ne {%ILA#5 /xshift [0150 -100 -300 -350 -100 0150 -450 -100 -200 0000] def /yshift [-250 200 -250 -250 -350 -100 -000 -300 -280 0000] def }%ILA#5 {%ILA=5 /xshift [0100 150 -400 -350 000 0100 -450 -100 -200 0000] def /yshift [-050 -250 -450 -250 -350 0200 -150 -300 -280 0000] def } ifelse %ILA=5 /colori [(R) (Y) (G) (B) (R) (Y) (G) (B) (D65) ( )] def colori 8 TELi ILA get put TIM 0 1 1 {/j exch def %j=0,1 j 0 eq {/i1 0 def /i2 3 def} {/i1 8 def /i2 8 def} ifelse j 0 eq ILA 5 eq and {/i2 7 def} if i1 1 i2 {/i exch def %i=i1,i2 Xi i get Yi i get 0.0001 add div fakt mul %a xshift i get add Zi i get Yi i get 0.0001 add div fakt mul %b 0.4 mul neg yshift i get add i 0 eq ILA 3 eq and {200 add} if %for Ill. A moveto TIM colori i get show i 7 le {TS -20 -60 rmoveto FARBE i 3 mul 1 add get show 0 60 rmoveto TIM } if } for %i=i1,i2 } for %j=0,1 %-500 -3200 translate %for scala -1300 -3200 translate %for grafic } if %xchart4=1 xchart4 2 eq {%xchart4=2 /D13 1 3 div def /fakt 13333 def %600 3200 translate %for scala 200 3200 translate %for graphic 0 1 0 {/j exch def %j=0,1 j 0 eq {/i1 0 def /i2 3 def} {/i1 4 def /i2 7 def} ifelse i1 1 i2 {/i exch def %i=i1,i2 Xi i get Yi i get 0.0001 add div %a' D13 exp 0.2191 mul fakt mul Zi i get Yi i get 0.0001 add div %b' D13 exp -0.08376 mul fakt mul i i1 eq {moveto} if i i1 1 add ge i i2 1 sub le and {lineto} if i i2 eq {lineto closepath stroke} if } for %i=i1,i2 } for %j=0,1 0 1 7 {/i exch def %i=0,7 i 0 eq {0 1 1 0 setcmyk_olvcolor} if %Rm i 1 eq {0 0 1 0 setcmyk_olvcolor} if %Ym i 2 eq {1 0 1 0 setcmyk_olvcolor} if %Gm i 3 eq {1 1 0 0 setcmyk_olvcolor} if %Bm i 4 eq {0 1 1 0 setcmyk_olvcolor} if %Rm i 5 eq {0 0 1 0 setcmyk_olvcolor} if %Ym i 6 eq {1 0 1 0 setcmyk_olvcolor} if %Gm i 7 eq {1 1 0 0 setcmyk_olvcolor} if %Bm Xi i get Yi i get 0.0001 add div %a' D13 exp 0.2191 mul fakt mul Zi i get Yi i get 0.0001 add div %b' D13 exp -0.08376 mul fakt mul 90 0 360 arc fill } for 0 0 0 1 setcmyk_olvcolor 0 1 8 {/i exch def %i=0,8 Xi i get Yi i get 0.0001 add div %a' D13 exp 0.2191 mul fakt mul Zi i get Yi i get 0.0001 add div %b' D13 exp -0.08376 mul fakt mul i 7 le {90}{50} ifelse 0 360 arc stroke } for %i=0,8 ILA 5 ne {%ILA#5 /xshift [0100 -100 -450 150 0100 -100 -450 150 -200 0000] def /yshift [ 200 200 -200 -100 -200 -300 -200 -100 -280 0000] def }%ILA#5 {%ILA=5 /xshift [0100 -100 -450 150 0100 -100 -450 150 -200 0000] def /yshift [-100 -300 250 050 -100 200 -250 -200 -280 0000] def } ifelse %ILA=5 /colori [(R) (Y) (G) (B) (R) (Y) (G) (B) (D65) ( )] def colori 8 TELi ILA get put TIM 0 1 1 {/j exch def %j=0,1 j 0 eq {/i1 0 def /i2 3 def} {/i1 8 def /i2 8 def} ifelse j 0 eq ILA 5 eq and {/i2 7 def} if i1 1 i2 {/i exch def %i=i1,i2 Xi i get Yi i get 0.0001 add div %a' D13 exp 0.2191 mul fakt mul xshift i get add Zi i get Yi i get 0.0001 add div %b' D13 exp -0.08376 mul fakt mul yshift i get add moveto TIM colori i get show i 7 le {TS -20 -60 rmoveto FARBE i 3 mul 1 add get show 0 60 rmoveto TIM } if } for %i=i1,i2 } for %j=0,1 %-600 -3200 translate %for scala -200 -3200 translate %for graphic } if %xchart4=2 xchart4 3 eq {%xchart4=3 /fakt 40 def 3500 2000 translate %for text and grafic 0 1 0 {/j exch def %j=0,1 j 0 eq {/i1 0 def /i2 3 def} {/i1 4 def /i2 7 def} ifelse i1 1 i2 {/i exch def %i=i1,i2 Xi i get Yi i get 0.0001 add div %(a-an)Y Xi 8 get Yi 8 get 0.0001 add div sub Yi i get mul fakt mul Zi i get Yi i get 0.0001 add div %(b-bn)Y Zi 8 get Yi 8 get 0.0001 add div sub 0.4 mul neg Yi i get mul fakt mul i i1 eq {moveto} if i i1 1 add ge i i2 1 sub le and {lineto} if i i2 eq {lineto closepath stroke} if } for %i=i1,i2 } for %j=0,1 0 1 7 {/i exch def %i=0,7 i 0 eq {0 1 1 0 setcmyk_olvcolor} if %Rm i 1 eq {0 0 1 0 setcmyk_olvcolor} if %Ym i 2 eq {1 0 1 0 setcmyk_olvcolor} if %Gm i 3 eq {1 1 0 0 setcmyk_olvcolor} if %Bm i 4 eq {0 1 1 0 setcmyk_olvcolor} if %Rm i 5 eq {0 0 1 0 setcmyk_olvcolor} if %Ym i 6 eq {1 0 1 0 setcmyk_olvcolor} if %Gm i 7 eq {1 1 0 0 setcmyk_olvcolor} if %Bm Xi i get Yi i get 0.0001 add div %(a-an)Y Xi 8 get Yi 8 get 0.0001 add div sub Yi i get mul fakt mul Zi i get Yi i get 0.0001 add div %(b-bn)Y Zi 8 get Yi 8 get 0.0001 add div sub 0.4 mul neg Yi i get mul fakt mul 90 0 360 arc fill } for 0 0 0 1 setcmyk_olvcolor 0 1 8 {/i exch def %i=0,8 Xi i get Yi i get 0.0001 add div %(a-an)Y Xi 8 get Yi 8 get 0.0001 add div sub Yi i get mul fakt mul Zi i get Yi i get 0.0001 add div %(b-bn)Y Zi 8 get Yi 8 get 0.0001 add div sub 0.4 mul neg Yi i get mul fakt mul i 7 le {90}{50} ifelse 0 360 arc stroke } for %i=0,8 ILA 5 ne {%ILA#5 /xshift [0100 -200 -450 -100 0100 -100 -450 -100 0050 0000] def /yshift [-100 200 -100 -350 -100 200 -100 -350 0080 0000] def }%ILA#5 {%ILA=5 /xshift [0100 -500 -700 150 0100 -600 -600 150 0050 0000] def /yshift [-200 100 100 -000 0100 000 -350 -100 0080 0000] def } ifelse %ILA=5 /colori [(R) (Y) (G) (B) (R) (Y) (G) (B) (D65) ( )] def colori 8 TELi ILA get put TIM 0 1 1 {/j exch def %j=0,1 j 0 eq {/i1 0 def /i2 3 def} {/i1 8 def /i2 8 def} ifelse j 0 eq ILA 5 eq and {/i2 7 def} if i1 1 i2 {/i exch def %i=i1,i2 Xi i get Yi i get 0.0001 add div %(a-an)Y Xi 8 get Yi 8 get 0.0001 add div sub Yi i get mul fakt mul xshift i get add Zi i get Yi i get 0.0001 add div %(b-bn)Y Zi 8 get Yi 8 get 0.0001 add div sub 0.4 mul neg Yi i get mul fakt mul yshift i get add moveto TIM colori i get show i 7 le {TS -20 -60 rmoveto FARBE i 3 mul 1 add get show 0 60 rmoveto TIM } if } for %i=i1,i2 } for %j=0,1 -3500 -2000 translate %for text and grafic } if %xchart4=3 xchart4 4 eq {%xchart4=4 /D13 1 3 div def /fakt 40 3 div def 3500 2000 translate %for text and grafic 0 1 0 {/j exch def %j=0,1 j 0 eq {/i1 0 def /i2 3 def} {/i1 4 def /i2 7 def} ifelse i1 1 i2 {/i exch def %i=i1,i2 Xi i get Yi i get 0.0001 add div %500(a'-a'n)Y**(1/3) D13 exp 0.2191 mul Xi 8 get Yi 8 get 0.0001 add div D13 exp 0.2191 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul Zi i get Yi i get 0.0001 add div %500(b'-b'n)Y**(1/3) D13 exp -0.08376 mul Zi 8 get Yi 8 get 0.0001 add div D13 exp -0.08376 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul i i1 eq {moveto} if i i1 1 add ge i i2 1 sub le and {lineto} if i i2 eq {lineto closepath stroke} if } for %i=i1,i2 } for %j=0,1 0 1 7 {/i exch def %i=0,7 i 0 eq {0 1 1 0 setcmyk_olvcolor} if %Rm i 1 eq {0 0 1 0 setcmyk_olvcolor} if %Ym i 2 eq {1 0 1 0 setcmyk_olvcolor} if %Gm i 3 eq {1 1 0 0 setcmyk_olvcolor} if %Bm i 4 eq {0 1 1 0 setcmyk_olvcolor} if %Rm i 5 eq {0 0 1 0 setcmyk_olvcolor} if %Ym i 6 eq {1 0 1 0 setcmyk_olvcolor} if %Gm i 7 eq {1 1 0 0 setcmyk_olvcolor} if %Bm Xi i get Yi i get 0.0001 add div %500(a'-a'n)Y**(1/3) D13 exp 0.2191 mul Xi 8 get Yi 8 get 0.0001 add div D13 exp 0.2191 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul Zi i get Yi i get 0.0001 add div %500(b'-b'n)Y**(1/3) D13 exp -0.08376 mul Zi 8 get Yi 8 get 0.0001 add div D13 exp -0.08376 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul 90 0 360 arc fill } for 0 0 0 1 setcmyk_olvcolor 0 1 8 {/i exch def %i=0,8 Xi i get Yi i get 0.0001 add div %500(a'-a'n)Y**(1/3) D13 exp 0.2191 mul Xi 8 get Yi 8 get 0.0001 add div D13 exp 0.2191 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul Zi i get Yi i get 0.0001 add div %500(b'-b'n)Y**(1/3) D13 exp -0.08376 mul Zi 8 get Yi 8 get 0.0001 add div D13 exp -0.08376 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul i 7 le {90}{50} ifelse 0 360 arc stroke } for %i=0,8 ILA 5 ne {%ILA#5 /xshift [0100 -100 -450 -100 0100 -100 -450 -100 0050 0000] def /yshift [-100 200 -100 -350 -100 200 -100 -350 0080 0000] def }%ILA#5 {%ILA=5 /xshift [0100 -550 -300 -550 0100 -600 -450 200 0050 0000] def /yshift [-150 000 -380 -100 0100 100 200 050 0080 0000] def } ifelse %ILA=5 /colori [(R) (Y) (G) (B) (R) (Y) (G) (B) (D65) ( )] def colori 8 TELi ILA get put TIM 0 1 1 {/j exch def %j=0,1 j 0 eq {/i1 0 def /i2 3 def} {/i1 8 def /i2 8 def} ifelse j 0 eq ILA 5 eq and {/i2 7 def} if i1 1 i2 {/i exch def %i=i1,i2 Xi i get Yi i get 0.0001 add div %500(a'-a'n)Y**(1/3) D13 exp 0.2191 mul Xi 8 get Yi 8 get 0.0001 add div D13 exp 0.2191 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul xshift i get add Zi i get Yi i get 0.0001 add div %500(b'-b'n)Y**(1/3) D13 exp -0.08376 mul Zi 8 get Yi 8 get 0.0001 add div D13 exp -0.08376 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul yshift i get add moveto TIM colori i get show i 7 le {TS -20 -60 rmoveto FARBE i 3 mul 1 add get show 0 60 rmoveto TIM } if } for %i=i1,i2 } for %j=0,1 -3500 -2000 translate %for text and grafic } if %xchart4=4 showpage grestore %} for %xchartl=0,5 %} for %xchart4=0,2 %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 197 MM translate 10 /Times-ISOL1 FS 1 1 scale -77 -91 translate %%BeginDocument: Bild 12 %line 419 %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 21 %line 429 %!PS-Adobe-3.0 EPSF-3.0 TE011-1N %%BoundingBox: 70 83 228 206 %START PDFDE011.EPS /pdfmark11 where {pop} {userdict /pdfmark11 /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/TE01/) /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:2013090112000) /ModDate (D:2013090112000) /DOCINFO pdfmark11 [ /View [ /FitB ] /DOCVIEW pdfmark11 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /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 /Courier findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Courier-ISOL1 exch definefont pop /Courier-Oblique findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierI-ISOL1 exch definefont pop /Courier-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierB-ISOL1 exch definefont pop /Courier-BoldOblique findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierBI-ISOL1 exch definefont pop /TG {350 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TL {160 /Times-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIL {160 /TimesI-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBL {160 /TimesB-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIL {160 /TimesBI-ISOL1 FS} bind def /SG {350 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SK {240 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SS {160 /Symbol FS} bind def %%EndProlog gsave %lanindL2.EPS START 20000505 /lanind 0 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showea {1 lanind le {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 1 def /lanind2 1 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 0 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 8 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % colorm 0 eq deintp 0 eq and {/Txx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def} if %colorm=1, deintp=1 xchart xchart3 lt {/Txx (-) def} if %always independent of intended output gsave %LANINDL2 END /cvishow {cvi 6 string cvs show ( ) show} def /cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show ( ) show} def /cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show ( ) show} def /cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show ( ) show} def /cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show ( ) show} def /cvsshow5 {100000 mul cvi 0.00001 mul 9 string cvs show ( ) show} def /SD65 80 array def %380 bis 775 mit deltalambda=05 /SD50 80 array def %380 bis 775 mit deltalambda=05 /SP40 80 array def %380 bis 775 mit deltalambda=05 /SA00 80 array def %380 bis 775 mit deltalambda=05 /SE00 80 array def %380 bis 775 mit deltalambda=05 /SC00 80 array def %380 bis 775 mit deltalambda=05 /SP00 80 array def %380 bis 775 mit deltalambda=05 /SQ00 80 array def %380 bis 775 mit deltalambda=05 /SDAK 80 array def %380 bis 775 mit deltalambda=05 /RA 80 array def %380 bis 770 nm /F2 240 array def %3 x 80 Daten fuer Bereich 380 bis 770nm /F2N 240 array def %normiert auf Y=100 fuer D65 und 10nm /F10 240 array def %3 x 80 Daten fuer Bereich 380 bis 770nm %C %C LITERATURQUELLEN LICHTARTEN %C SA,SC,SD65, CIE-DOKUMENT NR.15 FARBMESSUNG, 1971 %C TABELLE 1.1.1, SEITE 81 %C SD55,SD75, CIE-DOKUMENT NR.15 FARBMESSUNG, 1971 %C TABELLE 1.1.4, SEITE 85 %C LINEAR INTERPOLIERT VON 5 ZU 5NM %C SG,SP,SXE, DIN 5033, BLATT 7 ,SEITE 8-9 %C AUSGABE 1966 /SD65 %80 data 5 nm [50.0 52.3 54.6 68.7 82.8 87.1 91.5 92.5 93.4 90.1 86.7 95.8 104.9 110.9 117.0 117.4 117.8 116.3 114.9 115.4 115.9 112.4 108.8 109.1 109.4 108.6 107.8 106.3 104.8 106.2 107.7 106.0 104.4 104.2 104.0 102.0 100.0 98.2 96.3 96.1 95.8 92.2 88.7 89.3 90.0 89.8 89.6 88.6 87.7 85.5 83.3 83.5 83.7 81.9 80.0 80.1 80.2 81.2 82.3 80.3 78.3 74.0 69.7 70.7 71.6 73.0 74.3 68.0 61.6 65.7 69.9 72.5 75.1 69.3 63.6 55.0 46.4 56.6 66.8 65.1] def /SD50 %80 data 5 nm CIE 15.3, Seite 30; aus JE540-1N.PS [24.5 27.2 29.9 39.6 49.3 52.9 56.5 58.3 60.0 58.9 57.8 66.3 74.8 81.0 87.2 88.9 90.6 91.0 91.4 93.2 95.1 93.5 92.0 93.8 95.7 96.2 96.6 96.8 97.1 99.6 102.1 101.4 100.8 101.5 102.3 101.2 100.0 98.9 97.7 98.3 98.9 96.2 93.5 95.6 97.7 98.5 99.3 99.2 99.0 97.4 95.7 97.3 98.9 97.3 95.7 96.9 98.2 100.6 103.0 101.1 99.1 93.3 87.4 89.5 91.6 92.2 92.9 84.9 76.9 81.7 86.5 89.5 92.6 85.4 78.2 68.0 57.7 70.3 82.9 0.0] def %0.0 not used /SA00 %80 data 5 nm CIE 15.3 Seite 30; aus JE540-1N.PS [9.80 10.90 12.09 13.35 14.71 16.15 17.68 19.29 20.99 22.79 24.67 26.64 28.70 30.85 33.09 35.41 37.81 40.30 42.87 45.52 48.24 51.04 53.91 56.85 59.86 62.93 66.06 69.25 72.50 75.79 79.13 82.52 85.95 89.41 92.91 96.44 100.00 103.58 107.18 110.80 114.44 118.08 121.73 125.39 129.04 132.70 136.35 139.99 143.62 147.24 150.84 154.42 157.98 161.52 165.03 168.51 171.96 175.38 178.77 182.12 185.43 188.70 191.93 195.12 198.26 201.36 204.41 207.41 210.36 213.27 216.12 218.92 221.67 224.36 227.00 229.59 232.12 234.59 237.01 239.37 0.0] def %0.0 not used % AUS BILDPLA.FOR aus vrbam/wrpos:KRPROG.FOR, 5987-6023 5.10.92 %C PROGRAMM ZUR BERECHNUNG DER RELATIVEN SPEKTRALEN STRAHLUNGSVERTEI- %C LUNG EINES HOHLRAUMSTRAHLERS ALS FUNKTION DER WELLENLAENGE LAMDA %C BEI GEGEBENER TEMPERATUR T %C VERWENDETE VARIABLE %C T TEMPERATUR %C C2 PLANCKSCHE KONSTANTE (=1.4388 CM K (1967)) %C LAMDA(I) WELLENLAENGE %C S(I) STRAHLUNGSVERTEILUNG DES HOHLRAUMSTRAHLERS %C %C LITERATUR OFFIZIELLE EMPFEHLUNGEN DER CIE,DEUTSCHE VERSION, %C CA. 1969, SEITE 21 UND TABELLE 1.1.1 %C %SDP4 80 array def %380 bis 775 mit deltalambda=05 % DO 50 I=1,54 % 50 S(I)=100. % 1*(560./FLOAT(LAMDA(I)))**5 % 2*(EXP(C2/(560.*10.**(-7)*T))-1.) % 3/(EXP(C2/(FLOAT(LAMDA(I))*10.**(-7)*T))-1.) %new CIE 15.3:2004, Eq. (3.1) page 2 %S(I) = [100{560/lambda}**5] [exp{(c2*10**7)/(TNC*560 )} - 1] % /[exp{(c2*10**7)/(TNC*lambda)} - 1] % exp = e {...} = 2.71 {...} %/TNC 2848 def %NLA /TNC 4000 def /EE 2.718281 def %e=mac pocket calculator /C2 1.4350000 10 7 exp mul def /lamd 80 array def 0 1 79 {%i=0,79 /i exch def /lambda 380 i 5 mul add def lamd i lambda put /E1 560 lambda div 5 exp def /E4 C2 TNC 560 mul div def /E5 C2 TNC lambda mul div def /E6 EE E4 exp def /E7 EE E5 exp def SP40 i E1 100 mul E6 1 sub E7 1 sub div mul put } for %i=0,79 /xex 10 2 exp def /yex EE 2 exp def /SE00 %80 data 5 nm [100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0] def %0.0 not used /SC00 %80 data 5 nm [ 33.00 39.92 47.40 55.17 63.30 71.81 80.60 89.53 98.10 105.80 112.40 117.75 121.50 123.45 124.00 123.60 123.10 123.30 123.80 124.09 123.90 122.92 120.70 116.90 112.10 106.98 102.30 98.81 96.90 96.78 98.00 99.94 102.10 103.95 105.20 105.67 105.30 104.11 102.30 100.15 97.80 95.43 93.20 91.22 89.70 88.83 88.40 88.19 88.10 88.06 88.00 87.86 87.80 87.99 88.20 88.20 87.90 87.22 86.30 85.30 84.00 82.21 80.20 78.24 76.30 74.36 72.40 70.40 68.30 66.30 64.40 62.80 61.50 60.20 59.20 58.50 58.10 58.00 58.20 58.50 ] def %0.0 not used 0 1 79 {/i exch def %i=0,79 /lamda 380 i 5 mul add def SP00 i SE00 i get lamda 560 div mul put SQ00 i SE00 i get 1120 lamda sub 560 div mul put } for %i=0,79 %C LITERATURQUELLEN SPEKTRALWERTE %C F2 CIE-DOKUMENT NR.15 FARBMESSUNG, 1971 %C TABELLE 2.1, SEITE 93-102 /F2 %3x80 data [.001368 .002236 .004243 .007650 .01431 .02319 .04351 .07763 .1344 .2148 .2839 .3285 .3483 .3481 .3362 .3187 .2908 .2511 .1954 .1421 .09564 .05795 .03201 .01470 .0049 .0024 .0093 .0291 .06327 .1096 .1655 .2257 .2904 .3597 .4334 .5121 .5945 .6784 .7621 .8425 .9163 .9786 1.0263 1.0567 1.0622 1.0456 1.0026 .9384 .8544 .7514 .6424 .5419 .4479 .3608 .2835 .2187 .1649 .1212 .0874 .0636 .04677 .03290 .02270 .01584 .01136 .00811 .00579 .004109 .002899 .002049 .001440 .0009999 .0006901 .000476 .0003323 .0002348 .0001662 .0001174 .00008308 .00005871 .000039 .000064 .00012 .000217 .000396 .00064 .00121 .00218 .004 .0073 .0116 .01684 .023 .0298 .0380 .048 .06 .0739 .09098 .1126 .139 .1693 .208 .2586 .323 .4073 .503 .6082 .71 .7932 .862 .9149 .954 .9803 .995 1.0 .995 .9786 .952 .9154 .870 .8163 .757 .6949 .631 .5668 .503 .4412 .381 .321 .265 .217 .175 .1382 .107 .0816 .061 .04458 .032 .0232 .017 .01192 .00821 .005723 .004102 .002929 .002091 .001484 .001047 .00074 .00052 .0003611 .0002492 .0001719 .00012 .0000848 .00006 .0000424 .00003 .0000212 .00645 .01055 .02005 .03621 .06785 .1102 .2074 .3713 .6456 1.0391 1.3856 1.623 1.7471 1.7826 1.7721 1.7441 1.6692 1.5281 1.2876 1.0419 .8130 .6162 .4652 .3533 .2720 .2123 .1582 .1117 .07825 .05725 .04216 .02984 .0203 .0134 .00875 .00575 .0039 .00275 .0021 .0018 .00165 .0014 .0011 .0010 .0008 .0006 .00034 .00024 .00019 .0001 .00005 .00003 .00002 .00001 % 26*0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %10 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %20 0.0 0.0 0.0 0.0 0.0 0.0 %26 ] def /F10 %3x80 data [.00016 .0006624 .002362 .007242 .01911 .0434 .08474 .1406 .2045 .2647 .3147 .3577 .3837 .3867 .3707 .343 .3023 .2541 .1956 .1323 .08051 .04107 .01617 .005132 .003816 .01544 .03746 .07136 .1177 .173 .2365 .3042 .3768 .4516 .5298 .6161 .7052 .7938 .8787 .9512 1.0142 1.0743 1.1185 1.1343 1.124 1.0891 1.0305 .9507 .8563 .7549 .6475 .5351 .4316 .3437 .2683 .2043 .1526 .1122 .08126 .05793 .04085 .02862 .019941 .01384 .0100 .006605 .004552 .003145 .002175 .001506 .001045 .0007274 .0005083 .0003564 .000251 .0001777 .0001264 .00009015 .00006453 .00004634 .00001736 .00007156 .0002534 .0007685 .002004 .004509 .008756 .01446 .02139 .0295 .03868 .0496 .06208 .0747 .08946 .1063 .1282 .1528 .1852 .2199 .2536 .2977 .3391 .3954 .4608 .5314 .6067 .6857 .7618 .8233 .8752 .9238 .962 .9822 .9918 .9991 .9973 .9824 .9555 .9152 .8689 .8256 .7774 .7203 .6583 .5939 .528 .4618 .3981 .3395 .2835 .2282 .1798 .1402 .1076 .08119 .06028 .0441 .0318 .0226 .0159 .01113 .007749 .0053751 .0037177 .002565 .001768 .001222 .0008462 .0005864 .0004074 .000284 .0001987 .0001395 .00009843 .00006982 .00004974 .00003554 .00002549 .00001834 .0007048 .002928 .01048 .03234 .08601 .1971 .3894 .6568 .9725 1.2825 1.5535 1.7985 1.9673 2.0273 1.9948 1.9007 1.7454 1.5549 1.3176 1.0302 .7721 .5701 .4152 .3024 .2185 .1592 .112 .08225 .06071 .04305 .03045 .02058 .01368 .007918 .003988 .001091 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %10 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %20 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %30 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %40 0.0 0.0 0.0 0.0 %44 ] def %calculation of transformation data /FARBE 27 array def /FARBE [(R) (m) ( 561_770) %00 (Y) (m) ( 495_770) %01 (G) (m) ( 475_573) %02 (C) (m) ( 380_561) %03 (B) (m) ( 380_495) %04 (M) (m) ( 573_475) %05 (N) (0) ( 380_770) %06 (W) (0) ( 380_770) %07 (W) (1) ( 380_770) %08 ] def %/FARBE [(R) (m) ( 565_770) %00 % (Y) (m) ( 495_770) %01 % (G) (m) ( 475_575) %02 % (C) (m) ( 380_565) %03 % (B) (m) ( 380_495) %04 % (M) (m) ( 575_475) %05 % (N) (0) ( 380_770) %06 % (W) (0) ( 380_770) %07 % (W) (1) ( 380_770) %08 % ] def %calculation of transformation data /FARBE 27 array def /FARBE [(R) (m) ( 565_770) %00 (Y) (m) ( 495_770) %01 (G) (m) ( 475_575) %02 (C) (m) ( 380_565) %03 (B) (m) ( 380_495) %04 (M) (m) ( 575_475) %05 (G) (o) ( 495_565) %06 (M) (o) ( 565_495) %07 (W) (1) ( 380_770) %08 ] def /xshift 10 array def %max 6 device + 4 elementary /yshift 10 array def /colori 10 array def /RX0 640 array def %8x80 /RX0 [ %(%Rm 00 565_770) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 0000 0000 0000 0000 0000 0000 0000 0500 1000 1000 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %(%Ym 01 495_770) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 0000 0000 0000 0500 1000 1000 1000 1000 1000 1000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %(%Gm 02 475_575) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 0000 0000 0000 0000 0000 0000 0000 0000 0000 0500 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 1000 1000 1000 1000 1000 1000 1000 1000 1000 0500 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %(%Cm 04 380_565) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 1000 1000 1000 1000 1000 1000 1000 0500 0000 0000 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %(%Bm 05 380_495) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 1000 1000 1000 0500 0000 0000 0000 0000 0000 0000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %(%Mm 06 575_475) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 1000 1000 1000 1000 1000 1000 1000 1000 1000 0500 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 0000 0000 0000 0000 0000 0000 0000 0000 0000 0500 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %(%Go 02 495_565) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 0000 0000 0000 0500 1000 1000 1000 1000 1000 1000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 1000 1000 1000 1000 1000 1000 1000 0500 0000 0000 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %(%Mo 06 565_495) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 1000 1000 1000 0500 0000 0000 0000 0000 0000 0000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 0000 0000 0000 0000 0000 0000 0000 0500 1000 1000 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %(%W1(r=1,000) 10 380_770) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 ] def /xcolorl xcolor def %0 1 1 {/xcolorl exch def %xcolorl=0,1 xcolorl 1 eq {0 1 239 {/i exch def %i=0,239 F2 i F10 i get put } for %i=0,239 } if /YKSUM 0 def %For CIE Illuminant E 0 1 79 {/i exch def %i=0,1,79 /YKSUM YKSUM F2 80 i add get add def } for %i=0,1,79 /F2N 240 array def 0 1 79 {/i exch def %i=0,1,79 F2N 00 i add F2 00 i add get YKSUM div 100 mul put F2N 80 i add F2 80 i add get YKSUM div 100 mul put F2N 160 i add F2 160 i add get YKSUM div 100 mul put } for %i=0,1,79 /FXN 80 array def %FXN 0 = F2N imax /FYN 80 array def /FZN 80 array def %defines FXN, FYN, FZN 0 to 79 0 1 79 {/i exch def %i=0,79 FXN i F2N 000 i add get put FYN i F2N 080 i add get put FZN i F2N 160 i add get put } for %i=0,79 %special wavelength range with complementary colours for E? /FXD 63 array def /FYD 63 array def /FZD 63 array def /DOW 63 array def 00 1 60 {/i exch def %i=0,60 %range 400..700nm FXD i FXN 005 i add get put FYD i FYN 005 i add get put FZD i FZN 005 i add get put DOW i 400 i 5 mul add put %range 400 to 700 } for %i=0,60 %for interpolation FXD 61 FXD 60 get put FYD 61 FYD 60 get put FZD 61 FZD 60 get put FXD 62 FXD 60 get put FYD 62 FYD 60 get put FZD 62 FZD 60 get put /FAD 63 array def /FBD 63 array def /FCD 63 array def /xdel 1030 def /ydel 395 def /x0 600 def /TELi 8 array def /TELi [(D65) (D50) (P40) (A00) (E00) (C00) (P00) (Q00)] def %8 illuminants /Xi 79 array def %79 spectral or max 6 device colour + 4 elementary colours /Yi 79 array def /Zi 79 array def /XANi 79 array def /YANi 79 array def /ZANi 79 array def 0 1 0 {/xchart4 exch def %xchart4=0,7 /xchartl xchart def %0 1 7 {/xchartl exch def %xchartl=0,7 %/K 0 def %for normalization 1 /K 1 def %for normalization 0,886 gsave 5 /Times-ISOL1 FS /cvishow {cvi 6 string cvs show} def 75 85 moveto lanind cvishow (-) show colorm cvishow deintp cvishow xcolorl cvishow xchart cvishow pchart cvishow colsep cvishow (-L) show pmetam cvishow 5 /Times-ISOL1 FS 180 85 moveto (SE771-1N/TE011-) show xchart4 1 add cvishow xchart 0 ge {(N) show} if (_) show xchart 1 add cvishow %xchart 0 eq {(N) show} % {deintp colorm 2 mul add cvishow} ifelse 72 90 translate 0.010 MM dup scale 25 setlinewidth 0 0 0 0 setcmyk_olvcolor 0 0 moveto 5400 0 rlineto 0 4000 rlineto 5400 neg 0 rlineto closepath fill 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath clip 0 0 0 1 setcmyk_olvcolor 0 0 moveto 5400 0 rlineto 0 4000 rlineto 5400 neg 0 rlineto closepath stroke 0 1 79 {/i exch def %i=0,79 SDAK i xchartl 0 eq {SD65 i get} if xchartl 1 eq {SD50 i get} if xchartl 2 eq {SP40 i get} if xchartl 3 eq {SA00 i get} if xchartl 4 eq {SE00 i get} if xchartl 5 eq {SC00 i get} if xchartl 6 eq {SP00 i get} if xchartl 7 eq {SQ00 i get} if put } for %i=0,79 /YKSUM 0 def 0 1 79 {/i exch def %i=0,1,79 /YKSUM YKSUM SDAK i get F2 80 i add get mul add def } for %i=0,1,79 0 1 79 {/i exch def %i=0,1,79 F2N 00 i add SDAK i get F2 00 i add get mul YKSUM div 100 mul put F2N 80 i add SDAK i get F2 80 i add get mul YKSUM div 100 mul put F2N 160 i add SDAK i get F2 160 i add get mul YKSUM div 100 mul put } for %i=0,1,79 %XW,YW,ZW for white /XW 0 def /YW 0 def /ZW 0 def 0 1 079 {/i exch def %i=0,79 /XW XW F2N 00 i add get add def /YW YW F2N 80 i add get add def /ZW ZW F2N 160 i add get add def } for %i=0,79 /SUMW XW YW add ZW add def %for D65, D50, P40, A00, E00 /XANW XW SUMW div def /YANW YW SUMW div def /ZANW ZW SUMW div def /AANW XW YW 0.0001 add div def /BANW ZW YW 0.0001 add div 0.4 mul neg def K 0 eq {%K=0 /XK XW def /YK YW def /ZK ZW def }%K=0 {%K=1 /XK XW 0.8859 mul def /YK YW 0.8859 mul def /ZK ZW 0.8859 mul def } ifelse %K=1 /SUMK XK YK add ZK add def %for D65, D50, P40, A00, E00 /XANK XK SUMK div def /YANK YK SUMK div def /ZANK ZK SUMK div def 0 1 08 {/k exch def %k=0,8 %09 Reflections /kx k 80 mul def 0 1 79 {/i exch def %i=0,79 RA i RX0 kx i add get 1000 div put } for %i=0,79 /X 0 def /Y 0 def /Z 0 def 0 1 079 {/i exch def %i=0,79 /X X F2N 00 i add get RA i get mul add def /Y Y F2N 80 i add get RA i get mul add def /Z Z F2N 160 i add get RA i get mul add def } for %i=0,79 Xi k X put Yi k Y put Zi k Z put /SUM X Y add Z add def XANi k X SUM 0.0001 add div put YANi k Y SUM 0.0001 add div put ZANi k Z SUM 0.0001 add div put } for %k=0,8 K 1 eq {%K=1 0 1 7 {/L exch def %L=0,7 only 0 to 7! Xi L Xi L get 0.8859 mul put Yi L Yi L get 0.8859 mul put Zi L Zi L get 0.8859 mul put } for %L=0,7 } if %K=1 /xtexti 96 array def /ytexti 96 array def /xtexti [ %T00 T10 T20 T30 T40 T41 T50 T51 T60 T61 T70 T71 %0 1 2 3 4 5 6 7 8 9 10 11 1800 1800 1800 2800 2800 4000 2800 4000 2800 4000 2800 4000 %0 0600 0600 0600 0600 0600 1800 0600 1800 0600 1800 0600 1800 %1 0700 0700 0700 0700 0700 1900 0700 1900 0700 1900 0700 1900 %2 0700 0700 0700 0700 0700 1900 0700 1900 0700 1900 0700 1900 %3 0100 0100 0100 0100 0100 1300 0100 1300 0100 1300 0100 1300 %4 0100 0100 0100 0100 0100 1300 0100 1300 0100 1300 0100 1300 %5 0100 0100 0100 0100 0100 1300 0100 1300 0100 1300 0100 1300 %6 0100 0100 0100 0100 0100 1300 0100 1300 0100 1300 0100 1300 %7 ] def /ytexti [ 3800 3580 3360 3140 2920 2920 2700 2700 2480 2480 2260 2260 %0 0500 0280 0060 1380 1160 1160 0940 0940 0720 0720 0000 0000 %1 0500 0280 0060 1380 1160 1160 0940 0940 0720 0720 0000 0000 %2 0500 0280 0060 1380 1160 1160 0940 0940 0720 0720 0000 0000 %3 0500 0280 0060 1380 1160 1160 0940 0940 0720 0720 0000 0000 %4 0500 0280 0060 1380 1160 1160 0940 0940 0720 0720 0000 0000 %5 0500 0280 0060 1380 1160 1160 0940 0940 0720 0720 0000 0000 %6 0500 0280 0060 1380 1160 1160 0940 0940 0720 0720 0000 0000 %7 ] def 0 0 0 1 setcmyk_olvcolor /xchart12 xchart4 12 mul def TBS xchart4 1 ge { %xchart4 >=1 xtexti xchart12 3 add get ytexti xchart12 3 add get 220 add moveto xchart4 1 eq {(LABCab 77) show} if xchart4 2 eq {(CIELAB 76) show} if xchart4 3 eq {(LABJNDS 87) show} if xchart4 4 eq {(LABCab 85) show} if xchart4 5 eq {(CIELAB 76) show} if xchart4 6 eq {(CIELAB D65) show} if xchart4 7 eq {(LABHNU1 79) show} if } if %xchart4 >=1 xtexti xchart12 3 add get ytexti xchart12 3 add get moveto TBS (Name und Spektralbereich) showde %0TE011-7 00581 (Name and spectral range) showen %1TE011-7 00581 (Nombre y gama espectral) showes %2TE011-7 00581 (Nom et la gamma spectrale) showfr %3TE011-7 00581 (Nome e la gamma spettrale) showit %4TE011-7 00581 (Name and spectral range) showjp %5TE011-7 00581 xtexti xchart12 4 add get ytexti xchart12 4 add get moveto TBIS FARBE 0 get show TBL 0 -40 rmoveto FARBE 1 get show 0 40 rmoveto TBIS FARBE 2 get show xtexti xchart12 5 add get ytexti xchart12 5 add get moveto TBIS FARBE 3 get show TBL 0 -40 rmoveto FARBE 4 get show 0 40 rmoveto TBIS FARBE 5 get show xtexti xchart12 6 add get ytexti xchart12 6 add get moveto TBIS FARBE 6 get show TBL 0 -40 rmoveto FARBE 7 get show 0 40 rmoveto TBIS FARBE 8 get show xtexti xchart12 7 add get ytexti xchart12 7 add get moveto TBIS FARBE 9 get show TBL 0 -40 rmoveto FARBE 10 get show 0 40 rmoveto TBIS FARBE 11 get show xtexti xchart12 8 add get ytexti xchart12 8 add get moveto TBIS FARBE 12 get show TBL 0 -40 rmoveto FARBE 13 get show 0 40 rmoveto TBIS FARBE 14 get show xtexti xchart12 9 add get ytexti xchart12 9 add get moveto TBIS FARBE 15 get show TBL 0 -40 rmoveto FARBE 16 get show 0 40 rmoveto TBIS FARBE 17 get show %xtexti xchart12 10 add get ytexti xchart12 10 add get moveto %TBIS FARBE 18 get show %TBL 0 -40 rmoveto FARBE 19 get show 0 40 rmoveto %TBIS FARBE 20 get show %xtexti xchart12 11 add get ytexti xchart12 11 add get moveto %TBIS FARBE 21 get show %TBL 0 -40 rmoveto FARBE 22 get show 0 40 rmoveto %TBIS FARBE 23 get show TBS 0 0 0 1 setcmyk_olvcolor xtexti xchart12 0 add get ytexti xchart12 0 add get moveto (Optimalfarben (o)) showde %0TE011-7 02581 (Optimal colours (o)) showen %1TE011-7 02581 (Colores \363ptimos (o)) showes %2TE011-7 02581 (Couleurs optimales (o)) showfr %3TE011-7 02581 (Colori ottimi (o)) showit %4TE011-7 02581 (Optimal colours (o)) showjp %5TE011-7 02581 TBIS (, Y) show TBL 0 -60 rmoveto (W) show 0 60 rmoveto TBS K 0 eq {(=100) show}{(=88,6) show} ifelse xtexti xchart12 1 add get ytexti xchart12 1 add get moveto (6 von maximalem (m)) showde %0TE011-7 03581 (6 of maximum (m)) showen %1TE011-7 03581 (6 de chroma m\341ximo (m)) showes %2TE011-7 03581 (6 de la chroma maximum (m)) showfr %3TE011-7 03581 (6 di massimo (m)) showit %4TE011-7 03581 (6 of maximum (m)) showjp %5TE011-7 03581 TBIS ( C) show TBL 0 -60 rmoveto (AB) show 0 60 rmoveto TBS ( ) show (f\374r ) showde %0TE011-7 03581 (for ) showen %1TE011-7 03581 (bajo ) showes %2TE011-7 03581 (pour ) showfr %3TE011-7 03581 (per ) showit %4TE011-7 03581 (for ) showjp xtexti xchart12 2 add get ytexti xchart12 2 add get moveto xchart4 0 eq {%xchart4=0 (in der Normfarbtafel) showde %0TE011-7 04581 (in the chromaticity diagram) showen %1TE011-7 04581 (en el diagrama de chromaticidad) showes %2TE011-7 04581 (dans le diagramme de chromaticit\351) showfr %3TE011-7 04581 (nel diagramma di cromaticit\340) showit %4TE011-7 04581 (in the chromaticity diagram) showjp %5TE011-7 04581 TBIS ( (x, y)) show } if %xchart4=0 xchart4 1 eq {%xchart4=1 (in der Farbtafel) showde %0TE011-7 05581 (in the chromaticity diagram) showen %1TE011-7 05581 (en el diagrama de chromaticidad) showes %2TE011-7 05581 (dans le diagramme de chromaticit\351) showfr %3TE011-7 05581 (nel diagramma di cromaticit\340) showit %4TE011-7 05581 (in the chromaticity diagram) showjp %5TE011-7 05581 TBIS ( (a, b)) show } if %xchart4=1 xchart4 2 eq {%xchart4=2 (in der Farbarbtafel) showde %0TE011-7 06581 (in the chromaticity diagram) showen %1TE011-7 06581 (en el diagrama de chromaticidad) showes %2TE011-7 06581 (dans le diagramme de chromaticit\351) showfr %3TE011-7 06581 (nel diagramma di cromaticit\340) showit %4TE011-7 06581 (in the chromaticity diagram) showjp %5TE011-7 06581 TBIS ( (a', b')) show } if %xchart4=2 xchart4 3 eq {%xchart4=3 (in der Farbarbtafel) showde %0TE011-7 07581 (in the chromaticity diagram) showen %1TE011-7 07581 (en el diagrama de chromaticidad) showes %2TE011-7 07581 (dans le diagramme de chromaticit\351) showfr %3TE011-7 07581 (nel diagramma di cromaticit\340) showit %4TE011-7 07581 (in the chromaticity diagram) showjp %5TE011-7 07581 TBIS ( (a", b")) show } if %xchart4=3 xchart4 4 eq {%xchart4=4 (in Buntwertdiagramm) showde %0TE011-7 08581 (in chromatic value diagram) showen %1TE011-7 08581 (en el diagrama valor crom\341tico) showes %2TE011-7 08581 (dans la valeur chromatique le diagramme) showfr %3TE011-7 08581 (nel diagramma di valore cromatico) showit %4TE011-7 08581 (in chromatic value diagram) showjp %5TE011-7 08581 TBIS ( (A, B)) show } if %xchart4=4 xchart4 5 eq {%xchart4=5 (in Buntheitsdiagram) showde %0TE011-7 09581 (in CIELAB diagram) showen %1TE011-7 09581 (en el diagrama CIELAB) showes %2TE011-7 09581 (dans le diagramme de CIELAB) showfr %3TE011-7 09581 (nel diagramma di CIELAB) showit %4TE011-7 09581 (in CIELAB diagram) showjp %5TE011-7 09581 TBIS ( (a*, b*)) show } if %xchart4=5 xchart4 6 eq {%xchart4=6 (in Buntheitsdiagram) showde %0TE011-7 10581 (in chroma diagram) showen %1TE011-7 10581 (en el diagrama croma) showes %2TE011-7 10581 (dans le diagramme de chroma) showfr %3TE011-7 10581 (nel diagramma di chroma) showit %4TE011-7 10581 (in chroma diagram) showjp %5TE011-7 10581 TBIS ( \050a*) show 0 -50 rmoveto TBL (D65) show 0 50 rmoveto TBS (, ) show TBIS (b*) show 0 -50 rmoveto TBL (D65) show 0 50 rmoveto TBS (\051) show } if %xchart4=6 xchart4 7 eq {%xchart4=7 (in Buntheitsdiagram) showde %0TE011-7 11581 (in chroma diagram) showen %1TE011-7 11581 (en el diagrama croma) showes %2TE011-7 11581 (dans le diagramme de chroma) showfr %3TE011-7 11581 (nel diagramma di chroma) showit %4TE011-7 11581 (in chroma diagram) showjp %5TE011-7 11581 TBIS ( (A*, B*)) show } if %xchart4=7 xchart4 0 eq {%xchart4=0 600 400 translate 0 0 moveto 4000 0 rlineto stroke 0 0 moveto 0 3200 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten TBS 0 -50 moveto 0 100 rlineto stroke 800 -50 moveto 0 100 rlineto stroke 1600 -50 moveto 0 100 rlineto stroke 2400 -50 moveto 0 100 rlineto stroke 3200 -50 moveto 0 100 rlineto stroke 4000 -50 moveto 0 100 rlineto stroke -100 -300 moveto (0,0) show 700 -300 moveto (0,2) show 1500 -300 moveto (0,4) show 2300 -300 moveto (0,6) show 3100 -300 moveto (0,8) show 3900 -300 moveto (1,0) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 800 moveto 100 0 rlineto stroke -50 1600 moveto 100 0 rlineto stroke -50 2400 moveto 100 0 rlineto stroke -50 3200 moveto 100 0 rlineto stroke -450 -80 moveto (0,0) show -450 720 moveto (0,2) show -450 1520 moveto (0,4) show -450 2320 moveto (0,6) show -450 3120 moveto (0,8) show TIM -300 2800 moveto (y) show TIM 4200 150 moveto (x) show TBIS 2600 150 moveto (CIE 1931) show -600 -400 translate %1000 02 01 16 01 .00 .0020 ******************** %ANF PROZSPEP3.FOR: MULYA= 4000 BEO=02 xy-Farbtafel IXY0: 600 400 600 400 translate 693 19 moveto 693 19 692 19 690 19 curveto 688 19 685 20 681 23 curveto 675 27 667 34 657 43 curveto 644 55 626 70 603 90 curveto 575 118 542 159 496 231 curveto 438 347 365 530 274 802 curveto 181 1179 93 1650 32 2153 curveto 15 2619 55 3000 155 3248 curveto 297 3335 456 3304 618 3223 curveto 771 3126 918 3017 1063 2897 curveto 1206 2769 1349 2635 1492 2497 curveto 1634 2358 1776 2218 1915 2080 curveto 2049 1946 2179 1817 2300 1696 curveto 2411 1585 2508 1489 2592 1405 curveto 2663 1336 2720 1278 2765 1233 curveto 2802 1197 2831 1168 2856 1143 curveto 2876 1123 2892 1107 2903 1096 curveto 2913 1086 2919 1080 2924 1075 curveto 2927 1072 2930 1069 2933 1066 curveto 2936 1063 2937 1062 2938 1061 curveto 2938 1061 2939 1060 2744 971 curveto 2261 748 2040 643 1908 582 curveto 1819 541 1758 512 1708 490 curveto 1660 468 1612 445 1558 420 curveto 1495 391 1419 356 1320 309 curveto 1184 247 986 155 693 19 curveto stroke 0 0 0 1 setcmyk_olvcolor 693 19 30 0 360 arc fill % 400 681 23 30 0 360 arc fill % 425 626 70 30 0 360 arc fill % 450 438 347 30 0 360 arc fill % 475 32 2153 30 0 360 arc fill % 500 456 3304 30 0 360 arc fill % 525 1206 2769 30 0 360 arc fill % 550 1915 2080 30 0 360 arc fill % 575 2508 1489 30 0 360 arc fill % 600 2802 1197 30 0 360 arc fill % 625 2903 1096 30 0 360 arc fill % 650 2930 1069 30 0 360 arc fill % 675 2938 1061 30 0 360 arc fill % 700 2261 748 30 0 360 arc fill %500c 1708 490 30 0 360 arc fill %525c 1419 356 30 0 360 arc fill %550c 0 0 0 1 setcmyk_olvcolor 693 19 30 0 360 arc stroke % 400 681 23 30 0 360 arc stroke % 425 626 70 30 0 360 arc stroke % 450 438 347 30 0 360 arc stroke % 475 32 2153 30 0 360 arc stroke % 500 456 3304 30 0 360 arc stroke % 525 1206 2769 30 0 360 arc stroke % 550 1915 2080 30 0 360 arc stroke % 575 2508 1489 30 0 360 arc stroke % 600 2802 1197 30 0 360 arc stroke % 625 2903 1096 30 0 360 arc stroke % 650 2930 1069 30 0 360 arc stroke % 675 2938 1061 30 0 360 arc stroke % 700 2261 748 30 0 360 arc stroke %500c 1708 490 30 0 360 arc stroke %525c 1419 356 30 0 360 arc stroke %550c % 1250 1316 30 0 360 arc fill %D65 0 0 0 1 setcmyk_olvcolor TBIS 693 375 sub 19 250 sub moveto (400) show % 681 500 sub 23 100 sub moveto (425) show % 626 500 sub 70 100 sub moveto (450) show 438 350 sub 347 200 sub moveto (475) show 32 450 sub 2153 100 sub moveto (500) show 456 100 add 3304 000 add moveto (525) show 1206 100 add 2769 000 add moveto (550) show 1915 080 sub 2080 100 add moveto (575) show 2508 100 add 1489 000 add moveto (600) show 2802 100 add 1197 100 add moveto (625) show % 2903 200 sub 1096 100 add moveto (650) show % 2930 200 sub 1069 100 add moveto (675) show 2938 100 add 1061 100 sub moveto (700) show 2261 100 add 748 200 sub moveto (500c,E) show 1708 100 add 490 200 sub moveto (525c,E) show 1419 000 add 356 250 sub moveto (550c,E) show % 1250 100 add 1316 100 sub moveto (D65 ) show -600 -400 translate %ENDE: 1 } if %xchart4=0 xchart4 1 eq {%xchart4=1 500 3200 translate 0 400 moveto 4000 0 rlineto stroke 0 400 moveto 0 -3600 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten TBS 0 350 moveto 0 100 rlineto stroke 800 350 moveto 0 100 rlineto stroke 1600 350 moveto 0 100 rlineto stroke 2400 350 moveto 0 100 rlineto stroke 3200 350 moveto 0 100 rlineto stroke 4000 350 moveto 0 100 rlineto stroke -150 500 moveto (-0,8) show 650 500 moveto (0,0) show 1450 500 moveto (0,8) show 2250 500 moveto (1,6) show 3050 500 moveto (2,4) show 3850 500 moveto (3,2) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 -800 moveto 100 0 rlineto stroke -50 -1600 moveto 100 0 rlineto stroke -50 -2400 moveto 100 0 rlineto stroke -50 -3200 moveto 100 0 rlineto stroke -450 -100 moveto ( 0,0) show -450 -900 moveto (-0,8) show -450 -1700 moveto (-1,6) show %-450 -2500 moveto (-2,4) show -175 -3050 moveto 90 rotate TBIK (b) show TBK (=-0,40) show TBIK (z/y) show -90 rotate 3650 100 moveto TBIK (a=x/y) show -500 -3200 translate %1000 02 01 16 01-.03**************************************** %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 1300 3200 translate % 36136 -68535 moveto % 36136 -68535 36234 -68875 35958 -68561 curveto % 35610 -68128 33600 -64560 29424 -56936 curveto % 24474 -47779 19507 -38551 15143 -30384 curveto % 11681 -23927 8847 -18653 6639 -14534 curveto % 4846 -11128 3397 -8271 2147 -5661 curveto 1261 -3701 moveto 1261 -3701 688 -2339 342 -1455 curveto 153 -894 56 -546 15 -336 curveto 5 -208 18 -125 47 -73 curveto 89 -44 138 -28 191 -19 curveto 246 -13 304 -8 366 -5 curveto 435 -3 512 -2 597 -1 curveto 693 -1 800 0 920 0 curveto 1053 0 1198 0 1355 0 curveto 1520 0 1683 0 1844 0 curveto 1993 0 2126 0 2242 0 curveto 2340 0 2424 0 2497 0 curveto 2559 0 2610 0 2649 0 curveto 2680 0 2703 0 2718 0 curveto 2731 0 2741 0 2751 0 curveto 2760 0 2764 0 2767 0 curveto 2769 0 2770 0 2824 -116 curveto 3023 -529 3168 -817 3275 -1036 curveto 3357 -1209 3430 -1349 3482 -1469 curveto 3545 -1597 3622 -1746 3704 -1922 curveto 3817 -2156 3983 -2496 4262 -3058 curveto % 4786 -4149 6341 -7346 35775 -67850 curveto stroke 0 0 0 1 setcmyk_olvcolor % 36136 -68535 30 0 360 arc fill % 400 % 29424 -56936 30 0 360 arc fill % 425 % 8847 -18653 30 0 360 arc fill % 450 1261 -3701 30 0 360 arc fill % 475 15 -336 30 0 360 arc fill % 500 138 -28 30 0 360 arc fill % 525 435 -3 30 0 360 arc fill % 550 920 0 30 0 360 arc fill % 575 1683 0 30 0 360 arc fill % 600 2340 0 30 0 360 arc fill % 625 2649 0 30 0 360 arc fill % 650 2741 0 30 0 360 arc fill % 675 2769 0 30 0 360 arc fill % 700 3023 -529 30 0 360 arc fill %500c 3482 -1469 30 0 360 arc fill %525c 3983 -2496 30 0 360 arc fill %550c 0 0 0 1 setcmyk_olvcolor % 36136 -68535 30 0 360 arc stroke % 400 % 29424 -56936 30 0 360 arc stroke % 425 % 8847 -18653 30 0 360 arc stroke % 450 1261 -3701 30 0 360 arc stroke % 475 15 -336 30 0 360 arc stroke % 500 138 -28 30 0 360 arc stroke % 525 435 -3 30 0 360 arc stroke % 550 920 0 30 0 360 arc stroke % 575 1683 0 30 0 360 arc stroke % 600 2340 0 30 0 360 arc stroke % 625 2649 0 30 0 360 arc stroke % 650 2741 0 30 0 360 arc stroke % 675 2769 0 30 0 360 arc stroke % 700 3023 -529 30 0 360 arc stroke %500c 3482 -1469 30 0 360 arc stroke %525c 3983 -2496 30 0 360 arc stroke %550c % 950 -435 30 0 360 arc fill %D65 0 0 0 1 setcmyk_olvcolor TBIS % 36136 500 sub -68535 100 sub moveto (400) show % 29424 500 sub -56936 100 sub moveto (425) show % 8847 500 sub -18653 100 sub moveto (450) show % 1261 500 sub -3701 100 sub moveto (475) show 15 400 sub -336 100 sub moveto (500) show % 138 200 sub -28 100 add moveto (525) show 435 200 sub -3 100 add moveto (550) show % 920 200 sub 0 100 add moveto (575) show 1683 200 sub 0 100 add moveto (600) show 2340 200 sub 0 100 add moveto (625) show % 2649 200 sub 0 100 add moveto (650) show % 2741 200 sub 0 100 add moveto (675) show 2769 100 add 0 150 sub moveto (700) show 3023 100 add -529 100 sub moveto (500c,E) show 3482 800 sub -1469 050 sub moveto (525c,E) show % 3983 500 sub -2496 100 sub moveto (550c,E) show % 950 100 add -435 100 sub moveto (D65 ) show -1300 -3200 translate %ENDE: 2 } if %xchart4=1 xchart4 2 eq {%xchart4=2 600 3200 translate 0 400 moveto 4400 0 rlineto stroke 0 400 moveto 0 -3600 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten TBS 000 350 moveto 0 100 rlineto stroke 0800 350 moveto 0 100 rlineto stroke 1600 350 moveto 0 100 rlineto stroke 2400 350 moveto 0 100 rlineto stroke 3200 350 moveto 0 100 rlineto stroke 4000 350 moveto 0 100 rlineto stroke -200 500 moveto (0,00) show 600 500 moveto (0,06) show 1400 500 moveto (0,12) show 2200 500 moveto (0,18) show 3000 500 moveto (0,24) show 3800 500 moveto (0,30) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 -800 moveto 100 0 rlineto stroke -50 -1600 moveto 100 0 rlineto stroke -50 -2400 moveto 100 0 rlineto stroke -50 -3200 moveto 100 0 rlineto stroke -575 -100 moveto ( 0,00) show -575 -900 moveto (-0,06) show -575 -1700 moveto (-0,12) show -575 -2500 moveto (-0,18) show TIM -380 -1300 moveto (b') show 4300 250 moveto (a') show -600 -3200 translate %1000 02 01 16 01 .00 .0020 ******************** %ANF PROZSPEP3.FOR: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 400 3200 translate 9657 -6202 moveto 9657 -6202 9666 -6212 9642 -6203 curveto 9610 -6190 9426 -6080 9018 -5830 curveto 8481 -5499 7863 -5120 7227 -4729 curveto 6628 -4367 6041 -4019 5490 -3698 curveto 4943 -3383 4391 -3065 3769 -2701 curveto 3156 -2344 2578 -2012 2043 -1717 curveto 1565 -1460 1123 -1239 723 -1054 curveto 527 -898 772 -759 1060 -634 curveto 1304 -535 1510 -464 1685 -408 curveto 1832 -356 1965 -309 2091 -267 curveto 2214 -230 2337 -200 2460 -176 curveto 2585 -157 2712 -145 2841 -139 curveto 2972 -138 3103 -133 3233 -126 curveto 3359 -126 3475 -120 3582 -113 curveto 3676 -98 3756 -91 3823 -88 curveto 3878 -75 3924 -64 3963 -57 curveto 3995 -54 4022 -46 4042 0 curveto 4057 0 4069 0 4077 0 curveto 4083 0 4088 0 4093 0 curveto 4097 0 4100 0 4101 0 curveto 4102 0 4103 0 4129 -740 curveto 4224 -1226 4290 -1417 4338 -1533 curveto 4374 -1614 4405 -1674 4427 -1723 curveto 4454 -1771 4486 -1825 4520 -1884 curveto 4565 -1958 4630 -2056 4736 -2200 curveto 4923 -2435 5407 -2946 9625 -6181 curveto stroke 0 0 0 1 setcmyk_olvcolor 9657 -6202 30 0 360 arc fill % 400 9018 -5830 30 0 360 arc fill % 425 6041 -4019 30 0 360 arc fill % 450 3156 -2344 30 0 360 arc fill % 475 723 -1054 30 0 360 arc fill % 500 1510 -464 30 0 360 arc fill % 525 2214 -230 30 0 360 arc fill % 550 2841 -139 30 0 360 arc fill % 575 3475 -120 30 0 360 arc fill % 600 3878 -75 30 0 360 arc fill % 625 4042 0 30 0 360 arc fill % 650 4088 0 30 0 360 arc fill % 675 4102 0 30 0 360 arc fill % 700 4224 -1226 30 0 360 arc fill %500c 4427 -1723 30 0 360 arc fill %525c 4630 -2056 30 0 360 arc fill %550c 0 0 0 1 setcmyk_olvcolor 9657 -6202 30 0 360 arc stroke % 400 9018 -5830 30 0 360 arc stroke % 425 6041 -4019 30 0 360 arc stroke % 450 3156 -2344 30 0 360 arc stroke % 475 723 -1054 30 0 360 arc stroke % 500 1510 -464 30 0 360 arc stroke % 525 2214 -230 30 0 360 arc stroke % 550 2841 -139 30 0 360 arc stroke % 575 3475 -120 30 0 360 arc stroke % 600 3878 -75 30 0 360 arc stroke % 625 4042 0 30 0 360 arc stroke % 650 4088 0 30 0 360 arc stroke % 675 4102 0 30 0 360 arc stroke % 700 4224 -1226 30 0 360 arc stroke %500c 4427 -1723 30 0 360 arc stroke %525c 4630 -2056 30 0 360 arc stroke %550c % 2872 -1148 30 0 360 arc fill %D65 0 0 0 1 setcmyk_olvcolor TBIS % 9657 500 sub -6202 100 sub moveto (400) show % 9018 500 sub -5830 100 sub moveto (425) show % 6041 500 sub -4019 100 sub moveto (450) show 3156 400 sub -2344 100 sub moveto (475) show 723 250 sub -1054 250 sub moveto (500) show 1510 200 sub -464 150 add moveto (525) show 2214 200 sub -230 100 add moveto (550) show 2841 200 sub -139 100 add moveto (575) show 3475 200 sub -120 100 add moveto (600) show % 3878 200 sub -75 100 add moveto (625) show % 4042 200 sub 0 100 add moveto (650) show % 4088 200 sub 0 100 add moveto (675) show 4102 050 add 0 100 sub moveto (700) show 4224 050 add -1226 000 sub moveto (500c,E) show 4427 010 sub -1723 100 add moveto (525c,E) show % 4630 100 add -2056 100 sub moveto (550c,E) show % 2872 050 add -1148 000 sub moveto (D65 ) show -400 -3200 translate %ENDE: 3 } if %xchart4=2 xchart4 3 eq {%xchart4=3 600 3200 translate 0 400 moveto 4400 0 rlineto stroke 0 400 moveto 0 -3500 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten TBS 0 350 moveto 0 100 rlineto stroke 800 350 moveto 0 100 rlineto stroke 1600 350 moveto 0 100 rlineto stroke 2400 350 moveto 0 100 rlineto stroke 3200 350 moveto 0 100 rlineto stroke 4000 350 moveto 0 100 rlineto stroke -250 500 moveto (-0,6) show 650 500 moveto (0,0) show 1450 500 moveto (0,6) show 2250 500 moveto (1,2) show 3050 500 moveto (1,8) show 3850 500 moveto (2,4) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 -800 moveto 100 0 rlineto stroke -50 -1600 moveto 100 0 rlineto stroke -50 -2400 moveto 100 0 rlineto stroke -50 -3200 moveto 100 0 rlineto stroke -450 -100 moveto ( 0,0) show -450 -900 moveto (-0,6) show -450 -1700 moveto (-1,2) show -450 -2500 moveto (-1,8) show TBIK -450 -2900 moveto (b") show TBS -120 -125 rmoveto (s) show 120 125 rmoveto TBIK 4050 200 moveto (a") show TBS -120 -125 rmoveto (s) show 120 125 rmoveto TBIK -600 -3200 translate %1000 02 **************************************** %ANF PROZSPEP.FOR: MULYA= 1333 BEO=02 a"b" LABJND 1985 IXY0: 700 3200 700 800 add 3200 translate 3789 -3170 moveto 3789 -3170 3789 -3170 3788 -3170 curveto 3787 -3170 3779 -3166 3757 -3155 curveto 3724 -3138 3673 -3113 3603 -3079 curveto 3514 -3037 3394 -2982 3239 -2915 curveto 3028 -2826 2734 -2704 2265 -2508 curveto 1626 -2234 957 -1880 645 -1481 curveto 507 -1078 443 -720 417 -455 curveto 411 -308 419 -223 437 -171 curveto 464 -144 496 -130 533 -121 curveto 573 -115 616 -111 664 -108 curveto 721 -107 787 -105 867 -105 curveto 963 -104 1081 -104 1227 -104 curveto 1397 -104 1561 -104 1716 -104 curveto 1858 -104 1981 -104 2090 -104 curveto 2180 -104 2254 -104 2313 -104 curveto 2360 -103 2397 -103 2429 -103 curveto 2455 -103 2476 -103 2491 -103 curveto 2503 -103 2512 -103 2517 -103 curveto 2522 -103 2526 -103 2530 -103 curveto 2533 -103 2535 -103 2536 -103 curveto 2536 -103 2537 -103 2556 -214 curveto 2623 -700 2668 -1007 2700 -1196 curveto 2723 -1324 2742 -1416 2756 -1488 curveto 2772 -1560 2791 -1636 2811 -1717 curveto 2837 -1813 2873 -1933 2929 -2093 curveto 3019 -2313 3211 -2648 3788 -3169 curveto stroke 1 setgray 3789 -3170 30 0 360 arc fill % 400 3757 -3155 30 0 360 arc fill % 425 3394 -2982 30 0 360 arc fill % 450 1626 -2234 30 0 360 arc fill % 475 417 -455 30 0 360 arc fill % 500 496 -130 30 0 360 arc fill % 525 721 -107 30 0 360 arc fill % 550 1227 -104 30 0 360 arc fill % 575 1981 -104 30 0 360 arc fill % 600 2360 -103 30 0 360 arc fill % 625 2491 -103 30 0 360 arc fill % 650 2526 -103 30 0 360 arc fill % 675 2536 -103 30 0 360 arc fill % 700 2623 -700 30 0 360 arc fill %500c 2756 -1488 30 0 360 arc fill %525c 2873 -1933 30 0 360 arc fill %550c 0 setgray 3789 -3170 30 0 360 arc stroke % 400 3757 -3155 30 0 360 arc stroke % 425 3394 -2982 30 0 360 arc stroke % 450 1626 -2234 30 0 360 arc stroke % 475 417 -455 30 0 360 arc stroke % 500 496 -130 30 0 360 arc stroke % 525 721 -107 30 0 360 arc stroke % 550 1227 -104 30 0 360 arc stroke % 575 1981 -104 30 0 360 arc stroke % 600 2360 -103 30 0 360 arc stroke % 625 2491 -103 30 0 360 arc stroke % 650 2526 -103 30 0 360 arc stroke % 675 2536 -103 30 0 360 arc stroke % 700 2623 -700 30 0 360 arc stroke %500c 2756 -1488 30 0 360 arc stroke %525c 2873 -1933 30 0 360 arc stroke %550c 1266 -580 30 0 360 arc fill %D65 0 setgray TBIS 3789 200 sub -3170 200 add moveto (400) show % 3757 600 sub -3155 100 sub moveto (425) show % 3394 600 sub -2982 100 sub moveto (450) show 1626 050 sub -2234 150 add moveto (475) show 417 430 sub -455 100 sub moveto (500) show 496 400 sub -130 50 add moveto (525) show 721 200 sub -107 100 add moveto (550) show 1227 200 sub -104 100 add moveto (575) show 1981 200 sub -104 100 add moveto (600) show % 2360 200 sub -103 100 add moveto (625) show % 2491 200 sub -103 100 add moveto (650) show % 2526 200 sub -103 100 add moveto (675) show 2536 100 add -103 moveto (700) show 2623 100 add -700 100 sub moveto (500c) show 2756 100 add -1488 100 sub moveto (525c) show % 2873 100 add -1933 100 sub moveto (550c) show % 1266 100 add -580 100 sub moveto (D65 ) show 700 800 add neg -3200 translate %ENDE: 3 } if %xchart4=3 xchart4 4 ge xchart4 7 le and {%4>=xchart4<=7 3500 2000 translate %axis and scales 0 0 0 1 setcmyk_olvcolor -2250 0 moveto 3950 0 rlineto stroke 0 -1880 moveto 0 3600 rlineto stroke 1700 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 /xt10x 5 array def /yt10x 5 array def xchart4 4 eq {%xchart4=4 /xt10x [(-40) ( ) ( ) ( ) ( 40)] def /yt10x [(-40) ( ) ( ) ( ) (40)] def } if %xchart4=3 xchart4 5 ge xchart4 7 le and {%5>=xchart4<=7 /xt10x [(-120) ( ) ( ) ( ) ( 120)] def /yt10x [(-120) ( ) ( ) ( ) (120)] def } if %4>=xchart4<=6 0 0 0 1 setcmyk_olvcolor 0 1 4 {/i exch def %i=0,4 x-axis -1600 i 800 mul add -75 moveto 0 150 rlineto stroke -1800 i 800 mul add -250 moveto TBS xt10x i get show i 4 eq {-1600 i 800 mul add 0 moveto xchart4 4 eq { %xchart4=4 000 150 rmoveto TBIM (A) show TL } if %xchart4=4 xchart4 5 eq { %xchart4=5 -50 150 rmoveto TBIM (a*) show TL } if %xchart4=5 xchart4 6 eq { %xchart4=6 -350 150 rmoveto TBIM (a*) show -40 -50 rmoveto TBL (D65) show 0 50 rmoveto TL } if %xchart4=6 xchart4 7 eq { %xchart4=7 -50 150 rmoveto TBIM (A*) show TL } if %xchart4=7 } if } for %i=0,4 0 1 4 {/i exch def %i=0,4 y-axis -75 -1600 i 800 mul add moveto 150 0 rlineto stroke 100 -1600 i 800 mul add 100 sub moveto TBS yt10x i get show i 4 eq {0 -1600 i 800 mul add moveto xchart4 4 eq { %xchart4=4 -250 150 rmoveto TBIM (B) show TL } if %xchart4=4 xchart4 5 eq { %xchart4=5 -400 150 rmoveto TBIM (b*) show TL } if %xchart4=5 xchart4 6 eq { %xchart4=6 -750 150 rmoveto TBIM (b*) show -40 -50 rmoveto TBL (D65) show 0 50 rmoveto TL } if %xchart4=6 xchart4 7 eq { %xchart4=7 -300 150 rmoveto TBIM (B*) show TL } if %xchart4=7 } if } for %i=0,4 -3500 -2000 translate } if %4>=xchart4<=7 %******************************************************* %actual data /imshow {0 -50 rmoveto TBL (m) show 0 50 rmoveto TBIS} def /ioshow {0 -50 rmoveto TBL (o) show 0 50 rmoveto TBIS} def %************************************************* xchart4 0 eq {%xchart4=0 %only for (x,y) /fakt 4000 def 600 400 translate %for scala and graphic 0 1 05 {/i exch def %i=0,39 XANi i get fakt mul YANi i get fakt mul i 0 eq {moveto} if i 1 ge i 04 le and {lineto} if i 05 eq {lineto closepath stroke} if } for %i=0,39 XANW fakt mul YANW fakt mul 90 0 360 arc stroke XANW fakt mul 200 sub YANW fakt mul 250 sub moveto TBS TELi xchartl get show TBIS 0 1 5 {/i exch def %i=0,5 /SUM Xi i get Yi i get add Zi i get add 0.0001 add def /AnY Xi i get SUM div fakt mul def /BnY Yi i get SUM div fakt mul def i 0 eq {AnY 100 sub BnY 250 sub moveto (R) show imshow 0 1 1 0 setcmykcolor} if %Rm i 1 eq {AnY 100 sub BnY 250 sub moveto (Y) show imshow 0 0 1 0 setcmykcolor} if %Ym i 2 eq {AnY 100 sub BnY 250 add moveto (G) show imshow 1 0 1 0 setcmykcolor} if %Gm i 3 eq {AnY 350 sub BnY 050 sub moveto (C) show imshow 1 0 0 0 setcmykcolor} if %Cm i 4 eq {AnY 000 add BnY 200 add moveto (B) show imshow 1 1 0 0 setcmykcolor} if %Bm i 5 eq {AnY 150 add BnY 050 sub moveto (M) show imshow 0 1 0 0 setcmykcolor} if %Mm newpath AnY BnY 90 0 360 arc fill 0 setgray newpath AnY BnY 90 0 360 arc stroke } for %i=0,5 -600 -400 translate %for scala and grafic } if %xchart4=0 xchart4 1 eq {%xchart4=1 %only for (a,b) /fakt 1000 def /a2 XW YW 0.0001 add div def /b2 ZW YW 0.0001 add div -0.4 mul def 1300 3200 translate %for grafic 0 1 05 {/i exch def %i=0,39 Xi i get Yi i get 0.0001 add div fakt mul %a Zi i get Yi i get 0.0001 add div fakt mul %b 0.4 mul neg i 0 eq {moveto} if i 1 ge i 04 le and {lineto} if i 05 eq {lineto closepath stroke} if } for %i=0,39 XW YW 0.0001 add div fakt mul ZW YW 0.0001 add div fakt mul 0.4 mul neg 90 0 360 arc stroke XW YW 0.0001 add div fakt mul 200 sub ZW YW 0.0001 add div fakt mul 0.4 mul neg 250 sub moveto TBS TELi xchartl get show TBIS 0 1 5 {/i exch def %i=0,5 /AnY Xi i get Yi i get 0.0001 add div fakt mul def /BnY Zi i get Yi i get 0.0001 add div fakt mul 0.4 mul neg def i 0 eq {AnY 100 sub BnY 250 sub moveto (R) show imshow 0 1 1 0 setcmykcolor} if %Rm i 1 eq {AnY 100 sub BnY 250 sub moveto (Y) show imshow 0 0 1 0 setcmykcolor} if %Ym i 2 eq {AnY 350 sub BnY 250 add moveto (G) show imshow 1 0 1 0 setcmykcolor} if %Gm i 3 eq {AnY 350 sub BnY 050 sub moveto (C) show imshow 1 0 0 0 setcmykcolor} if %Cm i 4 eq {AnY 000 add BnY 200 add moveto (B) show imshow 1 1 0 0 setcmykcolor} if %Bm i 5 eq {AnY 150 add BnY 050 sub moveto (M) show imshow 0 1 0 0 setcmykcolor} if %Mm newpath AnY BnY 90 0 360 arc fill 0 setgray newpath AnY BnY 90 0 360 arc stroke } for %i=0,5 -1300 -3200 translate %for grafic } if %xchart4=1 xchart4 2 eq {%xchart4=2 %only for (a',b') /D13 1 3 div def /fakt 13333 def /a2 XW YW 0.0001 add div D13 exp 0.2191 mul def /b2 ZW YW 0.0001 add div D13 exp -0.08376 mul def 200 3200 translate %for graphic 0 1 05 {/i exch def %i=0,39 Xi i get Yi i get 0.0001 add div %a' D13 exp 0.2191 mul fakt mul Zi i get Yi i get 0.0001 add div %b' D13 exp -0.08376 mul fakt mul i 0 eq {moveto} if i 1 ge i 04 le and {lineto} if i 05 eq {lineto closepath stroke} if } for %i=0,39 XW YW 0.0001 add div %a' D13 exp 0.2191 mul fakt mul ZW YW 0.0001 add div %b' D13 exp -0.08376 mul fakt mul 90 0 360 arc stroke XW YW 0.0001 add div %a' D13 exp 0.2191 mul fakt mul 200 sub ZW YW 0.0001 add div %b' D13 exp -0.08376 mul fakt mul 250 sub moveto TBS TELi xchartl get show TBIS 0 1 5 {/i exch def %i=0,5 /AnY Xi i get Yi i get 0.0001 add div %a' D13 exp 0.2191 mul fakt mul def /BnY Zi i get Yi i get 0.0001 add div %b' D13 exp -0.08376 mul fakt mul def i 0 eq {AnY 100 add BnY 250 sub moveto (R) show imshow 0 1 1 0 setcmykcolor} if %Rm i 1 eq {AnY 100 sub BnY 250 sub moveto (Y) show imshow 0 0 1 0 setcmykcolor} if %Ym i 2 eq {AnY 400 sub BnY 050 sub moveto (G) show imshow 1 0 1 0 setcmykcolor} if %Gm i 3 eq {AnY 400 sub BnY 050 sub moveto (C) show imshow 1 0 0 0 setcmykcolor} if %Cm i 4 eq {AnY 000 add BnY 200 add moveto (B) show imshow 1 1 0 0 setcmykcolor} if %Bm i 5 eq {AnY 150 add BnY 050 sub moveto (M) show imshow 0 1 0 0 setcmykcolor} if %Mm newpath AnY BnY 90 0 360 arc fill 0 setgray newpath AnY BnY 90 0 360 arc stroke } for %i=0,5 -200 -3200 translate %for graphic } if %xchart4=2 xchart4 3 eq {%xchart4=3 %only for (a",b") %100 3800 moveto TIS ((a",b") (LAB 1977)) show /fakt 1333 def /XD65 95.04 def /YD65 100.00 def /ZD65 108.89 def /aD65 XD65 YD65 0.0001 add div def /bD65 ZD65 YD65 0.0001 add div -0.4 mul def /a2 aD65 def /b2 bD65 def 700 800 add 3200 translate %for grafic 0 1 05 {/i exch def %i=0,39 /a Xi i get Yi i get 0.0001 add div def /an XK YK 0.0001 add div def /b Zi i get Yi i get 0.0001 add div 0.4 mul neg def /bn ZK YK 0.0001 add div 0.4 mul neg def /a" an a an sub 1 a an sub abs 0.5 mul add div add def /b" bn b bn sub 1 b bn sub abs 0.5 mul add div add def a" fakt mul b" fakt mul /a"n an def /b"n bn def i 0 eq {moveto} if i 1 ge i 04 le and {lineto} if i 05 eq {lineto closepath stroke} if } for %i=0,39 a"n fakt mul b"n fakt mul 90 0 360 arc stroke a"n fakt mul 200 sub b"n fakt mul 250 sub moveto TBS TELi xchartl get show TBIS 0 1 5 {/i exch def %i=0,5 /a Xi i get Yi i get 0.0001 add div def /an XK YK 0.0001 add div def /b Zi i get Yi i get 0.0001 add div 0.4 mul neg def /bn ZK YK 0.0001 add div 0.4 mul neg def /a" an a an sub 1 a an sub abs 0.5 mul add div add def /b" bn b bn sub 1 b bn sub abs 0.5 mul add div add def a" fakt mul b" fakt mul /a"n an def /b"n bn def /AnY a" fakt mul def /BnY b" fakt mul def i 0 eq {AnY 100 sub BnY 250 sub moveto (R) show imshow 0 1 1 0 setcmykcolor} if %Rm i 1 eq {AnY 100 sub BnY 250 sub moveto (Y) show imshow 0 0 1 0 setcmykcolor} if %Ym i 2 eq {AnY 100 add BnY 100 sub moveto (G) show imshow 1 0 1 0 setcmykcolor} if %Gm i 3 eq {AnY 400 sub BnY 050 sub moveto (C) show imshow 1 0 0 0 setcmykcolor} if %Cm i 4 eq {AnY 000 add BnY 200 add moveto (B) show imshow 1 1 0 0 setcmykcolor} if %Bm i 5 eq {AnY 150 add BnY 050 sub moveto (M) show imshow 0 1 0 0 setcmykcolor} if %Mm newpath AnY BnY 90 0 360 arc fill 0 setgray newpath AnY BnY 90 0 360 arc stroke } for %i=0,5 700 800 add neg -3200 translate %for graphic } if %xchart4=3 xchart4 4 eq {%xchart4=4 %only for (A,B) /fakt 40 def /a2 1.00 def /b2 -0.4 def 3500 2000 translate %for text and grafic -3400 1800 moveto TBIS (XYZ) show TBL (w) show TBS (=) show XK cvsshow5 (, ) show YK cvsshow5 (, ) show ZK cvsshow2 -3400 1550 moveto TBIS (A) show TBS ( = \050) show TBIS (a) show TBS ( - ) show TBIS (a) show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (\051 ) show TBIS (Y) show -3400 1300 moveto TBIS (B) show TBS ( = \050) show TBIS (b) show TBS ( - ) show TBIS (b) show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (\051 ) show TBIS (Y) show -3400 1050 moveto TBIS (a) show TBS ( = ) show TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( [) show TBIS (x/y) show TBS (]) show -3400 800 moveto TBIS (b) show TBS ( = ) show TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( [) show TBIS (z/y) show TBS (]) show -3400 550 moveto TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( = 1) show -3400 300 moveto TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( = -0,4) show -3400 050 moveto TBIS (n) show TBS ( = ) show TELi xchartl get show 0 1 05 {/i exch def %i=0,39 Xi i get Yi i get 0.0001 add div %(a-an)Y XK YK 0.0001 add div sub Yi i get mul fakt mul Zi i get Yi i get 0.0001 add div %(b-bn)Y ZK YK 0.0001 add div sub 0.4 mul neg Yi i get mul fakt mul i 0 eq {moveto} if i 1 ge i 04 le and {lineto} if i 05 eq {lineto closepath stroke} if } for %i=0,39 XW YW 0.0001 add div %(a-an)YW XK YK 0.0001 add div sub YW mul fakt mul ZW YW 0.0001 add div %(b-an)YW ZK YK 0.0001 add div sub 0.4 mul neg YW mul fakt mul 90 0 360 arc stroke 0 200 sub 0 250 sub moveto TBS TELi xchartl get show TBIS 0 1 5 {/i exch def %i=0,5 /AnY Xi i get Yi i get 0.0001 add div %(a-an)Y XK YK 0.0001 add div sub Yi i get mul fakt mul def /BnY Zi i get Yi i get 0.0001 add div %(b-bn)Y ZK YK 0.0001 add div sub 0.4 mul neg Yi i get mul fakt mul def i 0 eq {AnY 100 sub BnY 050 sub moveto (R) show imshow 0 1 1 0 setcmykcolor} if %Rm i 1 eq {AnY 100 sub BnY 250 sub moveto (Y) show imshow 0 0 1 0 setcmykcolor} if %Ym i 2 eq {AnY 150 sub BnY 200 add moveto (G) show imshow 1 0 1 0 setcmykcolor} if %Gm i 3 eq {AnY 150 add BnY 050 sub moveto (C) show imshow 1 0 0 0 setcmykcolor} if %Cm i 4 eq {AnY 100 sub BnY 200 add moveto (B) show imshow 1 1 0 0 setcmykcolor} if %Bm i 5 eq {AnY 150 add BnY 050 sub moveto (M) show imshow 0 1 0 0 setcmykcolor} if %Mm newpath AnY BnY 90 0 360 arc fill 0 setgray newpath AnY BnY 90 0 360 arc stroke } for %i=0,5 } if %xchart4=4 xchart4 5 eq {%xchart4=5 %only for (a*,b*) /D13 1 3 div def /fakt 40 3 div def /a2 1 XW div D13 exp def /b2 1 ZW div D13 exp -0.4 mul def 3500 2000 translate %for text and grafic -3400 1800 moveto TBIS (XYZ) show TBL (w) show TBS (=) show XK cvsshow5 (, ) show YK cvsshow5 (, ) show ZK cvsshow2 -3400 1550 moveto TBIS (a*) show TBS ( = 500 \050) show TBIS (a') show TBS ( - ) show TBIS (a') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (\051 ) show TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 1300 moveto TBIS (b*) show TBS ( = 500 \050) show TBIS (b') show TBS ( - ) show TBIS (b') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (\051 ) show TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 1050 moveto TBIS (a) show TBS ( = ) show TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( [) show TBIS (x/y) show TBS (]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 800 moveto TBIS (b) show TBS ( = ) show TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( [) show TBIS (z/y) show TBS (]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 550 moveto TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS (=[1/) show TBIS (X) show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto TBS (=) show a2 cvsshow4 -3400 300 moveto TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS (=-[1/) show TBIS (Z) show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto TBS (=) show b2 cvsshow5 -3400 050 moveto TBIS (n) show TBS ( = ) show TELi xchartl get show 0 1 05 {/i exch def %i=0,39 Xi i get Yi i get 0.0001 add div %500(a'-a'n)Y**(1/3) D13 exp a2 mul %a'= a2 (x/y)**(1/3) XK YK 0.0001 add div D13 exp a2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul Zi i get Yi i get 0.0001 add div %500(b'-b'n)Y**(1/3) D13 exp b2 mul %b' = b2 (z/y)**(1/3) ZK YK 0.0001 add div D13 exp b2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul i 0 eq {moveto} if i 1 ge i 04 le and {lineto} if i 05 eq {lineto closepath stroke} if } for %i=0,39 XW YW 0.0001 add div D13 exp a2 mul XK YK 0.0001 add div D13 exp a2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul ZW YW 0.0001 add div D13 exp b2 mul ZK YK 0.0001 add div D13 exp b2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul 90 0 360 arc stroke XW YW 0.0001 add div D13 exp a2 mul XK YK 0.0001 add div D13 exp a2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul 080 add ZW YW 0.0001 add div D13 exp b2 mul ZK YK 0.0001 add div D13 exp b2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul 080 add moveto TBS TELi xchartl get show TBIS 0 1 5 {/i exch def %i=0,5 /AnY Xi i get Yi i get 0.0001 add div %500(a'-a'n)Y**(1/3) D13 exp a2 mul %a'= a2 (x/y)**(1/3) XK YK 0.0001 add div D13 exp a2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def /BnY Zi i get Yi i get 0.0001 add div %500(b'-b'n)Y**(1/3) D13 exp b2 mul %b'= b2 (x/y)**(1/3) ZK YK 0.0001 add div D13 exp b2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def i 0 eq {AnY 100 sub BnY 050 sub moveto (R) show imshow 0 1 1 0 setcmykcolor} if %Rm i 1 eq {AnY 100 sub BnY 250 sub moveto (Y) show imshow 0 0 1 0 setcmykcolor} if %Ym i 2 eq {AnY 100 add BnY 100 sub moveto (G) show imshow 1 0 1 0 setcmykcolor} if %Gm i 3 eq {AnY 400 sub BnY 050 sub moveto (C) show imshow 1 0 0 0 setcmykcolor} if %Cm i 4 eq {AnY 050 add BnY 100 add moveto (B) show imshow 1 1 0 0 setcmykcolor} if %Bm i 5 eq {AnY 150 add BnY 050 sub moveto (M) show imshow 0 1 0 0 setcmykcolor} if %Mm newpath AnY BnY 90 0 360 arc fill 0 setgray newpath AnY BnY 90 0 360 arc stroke } for %i=0,5 -3500 -2000 translate %for text and grafic } if %xchart4=5 xchart4 6 eq {%xchart4=6 %only for (a*,b*) with const. for D65 /D13 1 3 div def /fakt 40 3 div def /a2 0.2191 def /b2 -0.08376 def 3500 2000 translate %for text and grafic -3400 1800 moveto TBIS (XYZ) show TBL (w) show TBS (=) show XK cvsshow5 (, ) show YK cvsshow5 (, ) show ZK cvsshow2 -3400 1550 moveto TBIS (a*) show TBS ( = 500 \050) show TBIS (a') show TBS ( - ) show TBIS (a') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (\051 ) show TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 1300 moveto TBIS (b*) show TBS ( = 500 \050) show TBIS (b') show TBS ( - ) show TBIS (b') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (\051 ) show TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 1050 moveto TBIS (a') show TBS ( = ) show TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( [) show TBIS (x/y) show TBS (]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 800 moveto TBIS (b') show TBS ( = ) show TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( [) show TBIS (z/y) show TBS (]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 550 moveto TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS (=[1/) show TBIS (X) show 0 -50 rmoveto TBL (D65) show 0 50 rmoveto TBS (]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto TBS (=) show a2 cvsshow4 -3400 300 moveto TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS (=-[1/) show TBIS (Z) show 0 -50 rmoveto TBL (D65) show 0 50 rmoveto TBS (]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto TBS (=) show b2 cvsshow5 -3400 050 moveto TBIS (n) show TBS ( = ) show TELi xchartl get show 0 1 05 {/i exch def %i=0,39 Xi i get Yi i get 0.0001 add div %500(a'-a'n)Y**(1/3) D13 exp a2 mul %a'= a2 (x/y)**(1/3) XK YK 0.0001 add div D13 exp a2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul Zi i get Yi i get 0.0001 add div %500(b'-b'n)Y**(1/3) D13 exp b2 mul %b'= b2 (z/y)**(1/3) ZK YK 0.0001 add div D13 exp b2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul i 0 eq {moveto} if i 1 ge i 04 le and {lineto} if i 05 eq {lineto closepath stroke} if } for %i=0,39 XW YW 0.0001 add div D13 exp a2 mul XK YK 0.0001 add div D13 exp a2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul ZW YW 0.0001 add div D13 exp b2 mul ZK YK 0.0001 add div D13 exp b2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul 90 0 360 arc stroke XW YW 0.0001 add div %500(a'-a'n)Y**(1/3) D13 exp a2 mul %a'= a2 (x/y)**(1/3) XK YK 0.0001 add div D13 exp a2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul 080 add ZW YW 0.0001 add div %500(b'-b'n)Y**(1/3) D13 exp b2 mul %a'= a2 (x/y)**(1/3) ZK YK 0.0001 add div D13 exp b2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul 080 add moveto TBS TELi xchartl get show TBIS 0 1 5 {/i exch def %i=0,5 /AnY Xi i get Yi i get 0.0001 add div D13 exp a2 mul XK YK 0.0001 add div D13 exp a2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def /BnY Zi i get Yi i get 0.0001 add div D13 exp b2 mul ZK YK 0.0001 add div D13 exp b2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def i 0 eq {AnY 100 sub BnY 100 sub moveto (R) show imshow 0 1 1 0 setcmykcolor} if %Rm i 1 eq {AnY 100 sub BnY 250 sub moveto (Y) show imshow 0 0 1 0 setcmykcolor} if %Ym i 2 eq {AnY 100 sub BnY 250 sub moveto (G) show imshow 1 0 1 0 setcmykcolor} if %Gm i 3 eq {AnY 400 sub BnY 050 sub moveto (C) show imshow 1 0 0 0 setcmykcolor} if %Cm i 4 eq {AnY 100 add BnY 150 add moveto (B) show imshow 1 1 0 0 setcmykcolor} if %Bm i 5 eq {AnY 150 add BnY 050 sub moveto (M) show imshow 0 1 0 0 setcmykcolor} if %Mm newpath AnY BnY 90 0 360 arc fill 0 setgray newpath AnY BnY 90 0 360 arc stroke } for %i=0,5 -3500 -2000 translate %for text and grafic } if %xchart4=6 xchart4 7 eq {%xchart4=7 %only for (a*,b*)D65 /D13 1 3 div def /D11 1 def /D16 1 6 div def /fakt 40 3 div def /a2 1 15 div def /b2 1 12 div neg def 3500 2000 translate %for text and grafic -3400 1800 moveto TBIS (XYZ) show TBL (w) show TBS (=) show XK cvsshow5 (, ) show YK cvsshow5 (, ) show ZK cvsshow2 -3400 1550 moveto TBIS (a*) show TBS ( = 500 \050) show TBIS (a') show TBS ( - ) show TBIS (a') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (\051 ) show TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 1300 moveto TBIS (b*) show TBS ( = 500 \050) show TBIS (b') show TBS ( - ) show TBIS (b') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (\051 ) show TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 1050 moveto TBIS (a) show TBS ( = ) show TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( [) show TBIS (x/y) show TBS ( + 1]) show -3400 800 moveto TBIS (b) show TBS ( = ) show TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( [) show TBIS (z/y) show TBS ( + 1/6 ]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto TBS -3400 550 moveto TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( = 1/15 = ) show a2 cvsshow5 -3400 300 moveto TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( = -1/12 = ) show b2 cvsshow5 -3400 050 moveto TBIS (n) show TBS ( = ) show TELi xchartl get show 0 1 05 {/i exch def %i=0,39 Xi i get Yi i get 0.0001 add div %500(a'-a'n)Y**(1/3) D11 add a2 mul %a'=(x/y+1)/15 XK YK 0.0001 add div D11 add a2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul Zi i get Yi i get 0.0001 add div %500(b'-b'n)Y**(1/3) D16 add D13 exp b2 mul %b'=-[(z/y +1/6)**(1/3)]/12 ZK YK 0.0001 add div D16 add D13 exp b2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul i 0 eq {moveto} if i 1 ge i 04 le and {lineto} if i 05 eq {lineto closepath stroke} if } for %i=0,39 XW YW 0.0001 add div D11 add a2 mul XK YK 0.0001 add div D11 add a2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul ZW YW 0.0001 add div D16 add D13 exp b2 mul ZK YK 0.0001 add div D16 add D13 exp b2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul 90 0 360 arc stroke XW YW 0.0001 add div D11 add a2 mul XK YK 0.0001 add div D11 add a2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul 080 add ZW YW 0.0001 add div D16 add D13 exp b2 mul ZK YK 0.0001 add div D16 add D13 exp b2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul 080 add moveto TBS TELi xchartl get show TBIS 0 1 5 {/i exch def %i=0,5 /AnY Xi i get Yi i get 0.0001 add div %500(a'-a'n)Y**(1/3) D11 add a2 mul %a'=(x/y+1)/15 XK YK 0.0001 add div D11 add a2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def /BnY Zi i get Yi i get 0.0001 add div %500(b'-b'n)Y**(1/3) D16 add D13 exp b2 mul %b'=-[(z/y +1/6)**(1/3)]/12 ZK YK 0.0001 add div D16 add D13 exp b2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def i 0 eq {AnY 100 add BnY 200 sub moveto (R) show imshow 0 1 1 0 setcmykcolor} if %Rm i 1 eq {AnY 100 sub BnY 250 sub moveto (Y) show imshow 0 0 1 0 setcmykcolor} if %Ym i 2 eq {AnY 100 sub BnY 200 add moveto (G) show imshow 1 0 1 0 setcmykcolor} if %Gm i 3 eq {AnY 400 sub BnY 050 sub moveto (C) show imshow 1 0 0 0 setcmykcolor} if %Cm i 4 eq {AnY 000 add BnY 200 add moveto (B) show imshow 1 1 0 0 setcmykcolor} if %Bm i 5 eq {AnY 400 sub BnY 050 sub moveto (M) show imshow 0 1 0 0 setcmykcolor} if %Mm newpath AnY BnY 90 0 360 arc fill 0 setgray newpath AnY BnY 90 0 360 arc stroke } for %i=0,5 -3500 -2000 translate %for text and grafic } if %xchart4=7 showpage grestore %} for %xchartl=0,7 } for %xchart4=0,7 %} for %xcolorl=0,1 %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 22 %line 439 %!PS-Adobe-3.0 EPSF-3.0 TE011-1N %%BoundingBox: 70 83 228 206 %START PDFDE011.EPS /pdfmark11 where {pop} {userdict /pdfmark11 /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/TE01/) /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:2013090112000) /ModDate (D:2013090112000) /DOCINFO pdfmark11 [ /View [ /FitB ] /DOCVIEW pdfmark11 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /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 /Courier findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Courier-ISOL1 exch definefont pop /Courier-Oblique findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierI-ISOL1 exch definefont pop /Courier-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierB-ISOL1 exch definefont pop /Courier-BoldOblique findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierBI-ISOL1 exch definefont pop /TG {350 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TL {160 /Times-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIL {160 /TimesI-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBL {160 /TimesB-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIL {160 /TimesBI-ISOL1 FS} bind def /SG {350 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SK {240 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SL {160 /Symbol FS} bind def %%EndProlog gsave %lanindL2.EPS START 20000505 /lanind 0 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showea {1 lanind le {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 1 def /lanind2 1 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 0 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % colorm 0 eq deintp 0 eq and {/Txx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def} if %colorm=1, deintp=1 xchart 0 eq {/Txx (-) def} if %always independent of intended output gsave %LANINDL2 END /cvishow {cvi 6 string cvs show ( ) show} def /cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show ( ) show} def /cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show ( ) show} def /cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show ( ) show} def /cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show ( ) show} def /cvsshow5 {100000 mul cvi 0.00001 mul 9 string cvs show ( ) show} def /SD65 80 array def %380 bis 775 mit deltalambda=05 /SD50 80 array def %380 bis 775 mit deltalambda=05 /SP40 80 array def %380 bis 775 mit deltalambda=05 /SA00 80 array def %380 bis 775 mit deltalambda=05 /SE00 80 array def %380 bis 775 mit deltalambda=05 /SC00 80 array def %380 bis 775 mit deltalambda=05 /SP00 80 array def %380 bis 775 mit deltalambda=05 /SQ00 80 array def %380 bis 775 mit deltalambda=05 /SDAK 80 array def %380 bis 775 mit deltalambda=05 /RA 80 array def %380 bis 770 nm /F2 240 array def %3 x 80 Daten fuer Bereich 380 bis 770nm /F2N 240 array def %normiert auf Y=100 fuer D65 und 10nm /F10 240 array def %3 x 80 Daten fuer Bereich 380 bis 770nm %C %C LITERATURQUELLEN LICHTARTEN %C SA,SC,SD65, CIE-DOKUMENT NR.15 FARBMESSUNG, 1971 %C TABELLE 1.1.1, SEITE 81 %C SD55,SD75, CIE-DOKUMENT NR.15 FARBMESSUNG, 1971 %C TABELLE 1.1.4, SEITE 85 %C LINEAR INTERPOLIERT VON 5 ZU 5NM %C SG,SP,SXE, DIN 5033, BLATT 7 ,SEITE 8-9 %C AUSGABE 1966 /SD65 %80 data 5 nm [50.0 52.3 54.6 68.7 82.8 87.1 91.5 92.5 93.4 90.1 86.7 95.8 104.9 110.9 117.0 117.4 117.8 116.3 114.9 115.4 115.9 112.4 108.8 109.1 109.4 108.6 107.8 106.3 104.8 106.2 107.7 106.0 104.4 104.2 104.0 102.0 100.0 98.2 96.3 96.1 95.8 92.2 88.7 89.3 90.0 89.8 89.6 88.6 87.7 85.5 83.3 83.5 83.7 81.9 80.0 80.1 80.2 81.2 82.3 80.3 78.3 74.0 69.7 70.7 71.6 73.0 74.3 68.0 61.6 65.7 69.9 72.5 75.1 69.3 63.6 55.0 46.4 56.6 66.8 65.1] def /SD50 %80 data 5 nm CIE 15.3, Seite 30; aus JE540-1N.PS [24.5 27.2 29.9 39.6 49.3 52.9 56.5 58.3 60.0 58.9 57.8 66.3 74.8 81.0 87.2 88.9 90.6 91.0 91.4 93.2 95.1 93.5 92.0 93.8 95.7 96.2 96.6 96.8 97.1 99.6 102.1 101.4 100.8 101.5 102.3 101.2 100.0 98.9 97.7 98.3 98.9 96.2 93.5 95.6 97.7 98.5 99.3 99.2 99.0 97.4 95.7 97.3 98.9 97.3 95.7 96.9 98.2 100.6 103.0 101.1 99.1 93.3 87.4 89.5 91.6 92.2 92.9 84.9 76.9 81.7 86.5 89.5 92.6 85.4 78.2 68.0 57.7 70.3 82.9 0.0] def %0.0 not used /SA00 %80 data 5 nm CIE 15.3 Seite 30; aus JE540-1N.PS [9.80 10.90 12.09 13.35 14.71 16.15 17.68 19.29 20.99 22.79 24.67 26.64 28.70 30.85 33.09 35.41 37.81 40.30 42.87 45.52 48.24 51.04 53.91 56.85 59.86 62.93 66.06 69.25 72.50 75.79 79.13 82.52 85.95 89.41 92.91 96.44 100.00 103.58 107.18 110.80 114.44 118.08 121.73 125.39 129.04 132.70 136.35 139.99 143.62 147.24 150.84 154.42 157.98 161.52 165.03 168.51 171.96 175.38 178.77 182.12 185.43 188.70 191.93 195.12 198.26 201.36 204.41 207.41 210.36 213.27 216.12 218.92 221.67 224.36 227.00 229.59 232.12 234.59 237.01 239.37 0.0] def %0.0 not used % AUS BILDPLA.FOR aus vrbam/wrpos:KRPROG.FOR, 5987-6023 5.10.92 %C PROGRAMM ZUR BERECHNUNG DER RELATIVEN SPEKTRALEN STRAHLUNGSVERTEI- %C LUNG EINES HOHLRAUMSTRAHLERS ALS FUNKTION DER WELLENLAENGE LAMDA %C BEI GEGEBENER TEMPERATUR T %C VERWENDETE VARIABLE %C T TEMPERATUR %C C2 PLANCKSCHE KONSTANTE (=1.4388 CM K (1967)) %C LAMDA(I) WELLENLAENGE %C S(I) STRAHLUNGSVERTEILUNG DES HOHLRAUMSTRAHLERS %C %C LITERATUR OFFIZIELLE EMPFEHLUNGEN DER CIE,DEUTSCHE VERSION, %C CA. 1969, SEITE 21 UND TABELLE 1.1.1 %C %SDP4 80 array def %380 bis 775 mit deltalambda=05 % DO 50 I=1,54 % 50 S(I)=100. % 1*(560./FLOAT(LAMDA(I)))**5 % 2*(EXP(C2/(560.*10.**(-7)*T))-1.) % 3/(EXP(C2/(FLOAT(LAMDA(I))*10.**(-7)*T))-1.) %new CIE 15.3:2004, Eq. (3.1) page 2 %S(I) = [100{560/lambda}**5] [exp{(c2*10**7)/(TNC*560 )} - 1] % /[exp{(c2*10**7)/(TNC*lambda)} - 1] % exp = e {...} = 2.71 {...} %/TNC 2848 def %NLA /TNC 4000 def /EE 2.718281 def %e=mac pocket calculator /C2 1.4350000 10 7 exp mul def /lamd 80 array def 0 1 79 {%i=0,79 /i exch def /lambda 380 i 5 mul add def lamd i lambda put /E1 560 lambda div 5 exp def /E4 C2 TNC 560 mul div def /E5 C2 TNC lambda mul div def /E6 EE E4 exp def /E7 EE E5 exp def SP40 i E1 100 mul E6 1 sub E7 1 sub div mul put } for %i=0,79 /xex 10 2 exp def /yex EE 2 exp def /SE00 %80 data 5 nm [100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0] def %0.0 not used /SC00 %80 data 5 nm [ 33.00 39.92 47.40 55.17 63.30 71.81 80.60 89.53 98.10 105.80 112.40 117.75 121.50 123.45 124.00 123.60 123.10 123.30 123.80 124.09 123.90 122.92 120.70 116.90 112.10 106.98 102.30 98.81 96.90 96.78 98.00 99.94 102.10 103.95 105.20 105.67 105.30 104.11 102.30 100.15 97.80 95.43 93.20 91.22 89.70 88.83 88.40 88.19 88.10 88.06 88.00 87.86 87.80 87.99 88.20 88.20 87.90 87.22 86.30 85.30 84.00 82.21 80.20 78.24 76.30 74.36 72.40 70.40 68.30 66.30 64.40 62.80 61.50 60.20 59.20 58.50 58.10 58.00 58.20 58.50 ] def %0.0 not used 0 1 79 {/i exch def %i=0,79 /lamda 380 i 5 mul add def SP00 i SE00 i get lamda 560 div mul put SQ00 i SE00 i get 1120 lamda sub 560 div mul put } for %i=0,79 %C LITERATURQUELLEN SPEKTRALWERTE %C F2 CIE-DOKUMENT NR.15 FARBMESSUNG, 1971 %C TABELLE 2.1, SEITE 93-102 /F2 %3x80 data [.001368 .002236 .004243 .007650 .01431 .02319 .04351 .07763 .1344 .2148 .2839 .3285 .3483 .3481 .3362 .3187 .2908 .2511 .1954 .1421 .09564 .05795 .03201 .01470 .0049 .0024 .0093 .0291 .06327 .1096 .1655 .2257 .2904 .3597 .4334 .5121 .5945 .6784 .7621 .8425 .9163 .9786 1.0263 1.0567 1.0622 1.0456 1.0026 .9384 .8544 .7514 .6424 .5419 .4479 .3608 .2835 .2187 .1649 .1212 .0874 .0636 .04677 .03290 .02270 .01584 .01136 .00811 .00579 .004109 .002899 .002049 .001440 .0009999 .0006901 .000476 .0003323 .0002348 .0001662 .0001174 .00008308 .00005871 .000039 .000064 .00012 .000217 .000396 .00064 .00121 .00218 .004 .0073 .0116 .01684 .023 .0298 .0380 .048 .06 .0739 .09098 .1126 .139 .1693 .208 .2586 .323 .4073 .503 .6082 .71 .7932 .862 .9149 .954 .9803 .995 1.0 .995 .9786 .952 .9154 .870 .8163 .757 .6949 .631 .5668 .503 .4412 .381 .321 .265 .217 .175 .1382 .107 .0816 .061 .04458 .032 .0232 .017 .01192 .00821 .005723 .004102 .002929 .002091 .001484 .001047 .00074 .00052 .0003611 .0002492 .0001719 .00012 .0000848 .00006 .0000424 .00003 .0000212 .00645 .01055 .02005 .03621 .06785 .1102 .2074 .3713 .6456 1.0391 1.3856 1.623 1.7471 1.7826 1.7721 1.7441 1.6692 1.5281 1.2876 1.0419 .8130 .6162 .4652 .3533 .2720 .2123 .1582 .1117 .07825 .05725 .04216 .02984 .0203 .0134 .00875 .00575 .0039 .00275 .0021 .0018 .00165 .0014 .0011 .0010 .0008 .0006 .00034 .00024 .00019 .0001 .00005 .00003 .00002 .00001 % 26*0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %10 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %20 0.0 0.0 0.0 0.0 0.0 0.0 %26 ] def /F10 %3x80 data [.00016 .0006624 .002362 .007242 .01911 .0434 .08474 .1406 .2045 .2647 .3147 .3577 .3837 .3867 .3707 .343 .3023 .2541 .1956 .1323 .08051 .04107 .01617 .005132 .003816 .01544 .03746 .07136 .1177 .173 .2365 .3042 .3768 .4516 .5298 .6161 .7052 .7938 .8787 .9512 1.0142 1.0743 1.1185 1.1343 1.124 1.0891 1.0305 .9507 .8563 .7549 .6475 .5351 .4316 .3437 .2683 .2043 .1526 .1122 .08126 .05793 .04085 .02862 .019941 .01384 .0100 .006605 .004552 .003145 .002175 .001506 .001045 .0007274 .0005083 .0003564 .000251 .0001777 .0001264 .00009015 .00006453 .00004634 .00001736 .00007156 .0002534 .0007685 .002004 .004509 .008756 .01446 .02139 .0295 .03868 .0496 .06208 .0747 .08946 .1063 .1282 .1528 .1852 .2199 .2536 .2977 .3391 .3954 .4608 .5314 .6067 .6857 .7618 .8233 .8752 .9238 .962 .9822 .9918 .9991 .9973 .9824 .9555 .9152 .8689 .8256 .7774 .7203 .6583 .5939 .528 .4618 .3981 .3395 .2835 .2282 .1798 .1402 .1076 .08119 .06028 .0441 .0318 .0226 .0159 .01113 .007749 .0053751 .0037177 .002565 .001768 .001222 .0008462 .0005864 .0004074 .000284 .0001987 .0001395 .00009843 .00006982 .00004974 .00003554 .00002549 .00001834 .0007048 .002928 .01048 .03234 .08601 .1971 .3894 .6568 .9725 1.2825 1.5535 1.7985 1.9673 2.0273 1.9948 1.9007 1.7454 1.5549 1.3176 1.0302 .7721 .5701 .4152 .3024 .2185 .1592 .112 .08225 .06071 .04305 .03045 .02058 .01368 .007918 .003988 .001091 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %10 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %20 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %30 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %40 0.0 0.0 0.0 0.0 %44 ] def %calculation of transformation data /FARBE 27 array def /FARBE [(R) (m) ( 561_770) %00 (Y) (m) ( 495_770) %01 (G) (m) ( 475_573) %02 (C) (m) ( 380_561) %03 (B) (m) ( 380_495) %04 (M) (m) ( 573_475) %05 (N) (0) ( 380_770) %06 (W) (0) ( 380_770) %07 (W) (1) ( 380_770) %08 ] def %/FARBE [(R) (m) ( 565_770) %00 % (Y) (m) ( 495_770) %01 % (G) (m) ( 475_575) %02 % (C) (m) ( 380_565) %03 % (B) (m) ( 380_495) %04 % (M) (m) ( 575_475) %05 % (N) (0) ( 380_770) %06 % (W) (0) ( 380_770) %07 % (W) (1) ( 380_770) %08 % ] def /xshift 10 array def %max 6 device + 4 elementary /yshift 10 array def /colori 10 array def /RX0 640 array def %8x80 /RX0 [ %(%Rm 00 565_770) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 0000 0000 0000 0000 0000 0000 0000 0500 1000 1000 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %(%Ym 01 495_770) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 0000 0000 0000 0500 1000 1000 1000 1000 1000 1000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %(%Gm 02 475_575) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 0000 0000 0000 0000 0000 0000 0000 0000 0000 0500 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 1000 1000 1000 1000 1000 1000 1000 1000 1000 0500 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %(%Cm 04 380_565) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 1000 1000 1000 1000 1000 1000 1000 0500 0000 0000 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %(%Bm 05 380_495) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 1000 1000 1000 0500 0000 0000 0000 0000 0000 0000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %(%Mm 06 575_475) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 1000 1000 1000 1000 1000 1000 1000 1000 1000 0500 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 0000 0000 0000 0000 0000 0000 0000 0000 0000 0500 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %(%N0(r=0,001) 09 380_770) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 %(%W1(r=1,000) 10 380_770) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %(%W1(r=1,000) 10 380_770) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 ] def /xcolorl xcolor def %0 1 1 {/xcolorl exch def %xcolorl=0,1 xcolorl 1 eq {0 1 239 {/i exch def %i=0,239 F2 i F10 i get put } for %i=0,239 } if /YKSUM 0 def %For CIE Illuminant E 0 1 79 {/i exch def %i=0,1,79 /YKSUM YKSUM F2 80 i add get add def } for %i=0,1,79 /F2N 240 array def 0 1 79 {/i exch def %i=0,1,79 F2N 00 i add F2 00 i add get YKSUM div 100 mul put F2N 80 i add F2 80 i add get YKSUM div 100 mul put F2N 160 i add F2 160 i add get YKSUM div 100 mul put } for %i=0,1,79 /FXN 80 array def %FXN 0 = F2N imax /FYN 80 array def /FZN 80 array def %defines FXN, FYN, FZN 0 to 79 0 1 79 {/i exch def %i=0,79 FXN i F2N 000 i add get put FYN i F2N 080 i add get put FZN i F2N 160 i add get put } for %i=0,79 %special wavelength range with complementary colours for E? /FXD 63 array def /FYD 63 array def /FZD 63 array def /DOW 63 array def 00 1 60 {/i exch def %i=0,60 %range 400..700nm FXD i FXN 005 i add get put FYD i FYN 005 i add get put FZD i FZN 005 i add get put DOW i 400 i 5 mul add put %range 400 to 700 } for %i=0,60 %for interpolation FXD 61 FXD 60 get put FYD 61 FYD 60 get put FZD 61 FZD 60 get put FXD 62 FXD 60 get put FYD 62 FYD 60 get put FZD 62 FZD 60 get put /FAD 63 array def /FBD 63 array def /FCD 63 array def 20 setlinewidth /xdel 1005 def /ydel 395 def /x0 050 def /x1 -150 def /TELi 8 array def /TELi [(D65) (D50) (P40) (A00) (E00) (C00) (P00) (Q00)] def %7 illumin. /Xi 79 array def %79 spectral or max 6 device colour + 4 elementary colours /Yi 79 array def /Zi 79 array def /XANi 79 array def /YANi 79 array def /ZANi 79 array def 0 1 0 {/xchart4 exch def %xchart4=0,7 /xchartl xchart def %0 1 7 {/xchartl exch def %xchartl=0,7 %/K 0 def %for normalization 1 /K 1 def %for normalization 0,886 gsave 5 /Times-ISOL1 FS /cvishow {cvi 6 string cvs show} def 75 85 moveto lanind cvishow (-) show colorm cvishow deintp cvishow xcolorl cvishow xchart cvishow pchart cvishow colsep cvishow (-L) show pmetam cvishow 5 /Times-ISOL1 FS 180 85 moveto (SE731-1N/TE011-) show xchart4 1 add cvishow xchart 0 ge {(N) show} if (_) show xchartl 1 add cvishow %xchart 0 eq {(N) show} % {deintp colorm 2 mul add cvishow} ifelse 72 90 translate 0.010 MM dup scale 25 setlinewidth 0 0 0 0 setcmyk_olvcolor 0 0 moveto 5400 0 rlineto 0 4000 rlineto 5400 neg 0 rlineto closepath fill 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath clip 0 0 0 1 setcmyk_olvcolor 0 0 moveto 5400 0 rlineto 0 4000 rlineto 5400 neg 0 rlineto closepath stroke %calculation of XW,YW,ZW for illuminant D65, D50, ... 0 1 79 {/i exch def %i=0,79 SDAK i xchartl 0 eq {SD65 i get} if xchartl 1 eq {SD50 i get} if xchartl 2 eq {SP40 i get} if xchartl 3 eq {SA00 i get} if xchartl 4 eq {SE00 i get} if xchartl 5 eq {SC00 i get} if xchartl 6 eq {SP00 i get} if xchartl 7 eq {SQ00 i get} if put } for %i=0,79 /YKSUM 0 def 0 1 79 {/i exch def %i=0,1,79 /YKSUM YKSUM SDAK i get F2 80 i add get mul add def } for %i=0,1,79 0 1 79 {/i exch def %i=0,1,79 F2N 00 i add SDAK i get F2 00 i add get mul YKSUM div 100 mul put F2N 80 i add SDAK i get F2 80 i add get mul YKSUM div 100 mul put F2N 160 i add SDAK i get F2 160 i add get mul YKSUM div 100 mul put } for %i=0,1,79 %XW,YW,ZW for white /XW 0 def /YW 0 def /ZW 0 def 0 1 079 {/i exch def %i=0,79 /XW XW F2N 00 i add get add def /YW YW F2N 80 i add get add def /ZW ZW F2N 160 i add get add def } for %i=0,79 /SUMW XW YW add ZW add def %for D65, D50, P40, A00, E00 /XANW XW SUMW div def /YANW YW SUMW div def /ZANW ZW SUMW div def /AANW XW YW 0.0001 add div def /BANW ZW YW 0.0001 add div 0.4 mul neg def 0 1 62 {/i exch def %i=0,62 FAD i FXD i get put FBD i FYD i get put FCD i FZD i get put } for %i=0,62 % FXU(1)=FF(2)*U(3)-FF(3)*U(2) % FXU(2)=FF(3)*U(1)-FF(1)*U(3) % FXU(3)=FF(1)*U(2)-FF(2)*U(1) % SUBROUTINE DOWEL (F,FXU,IMAX,IO) % DIMENSION F(99,3),FXU(3) % I=1 % T2=F(1,1)*FXU(1)+F(1,2)*FXU(2)+F(1,3)*FXU(3) % IF(T2) 1,1,4 % 1 T1=T2 % I=I+1 % T2=F(I,1)*FXU(1)+F(I,2)*FXU(2)+F(I,3)*FXU(3) % IF(T2) 1,1,2 % 2 IF(T1) 3,3,1 % 3 IO=I-1 % RETURN % 4 T1=F(IMAX,1)*FXU(1)+F(IMAX,2)*FXU(2)+F(IMAX,3)*FXU(3) % IF(T1) 5,5,1 % 5 IO=IMAX % RETURN % END %********************************************************* /proc_ABC_KNP_FWERTiX {%BEG proc_ABC_KNP_FWERT %input FAD,FBD,FCD, KNP %output FWERTiX/Y/Z (i=1,4) kNP 1 ge {/FWERT1X FAD kNP 1 sub get def /FWERT1Y FBD kNP 1 sub get def /FWERT1Z FCD kNP 1 sub get def} {/FWERT1X FAD 0 get def %again 400nm for i=0 /FWERT1Y FBD 0 get def /FWERT1Z FCD 0 get def} ifelse /FWERT2X FAD kNP get def /FWERT2Y FBD kNP get def /FWERT2Z FCD kNP get def /FWERT3X FAD kNP 1 add get def /FWERT3Y FBD kNP 1 add get def /FWERT3Z FCD kNP 1 add get def /FWERT4X FAD kNP 2 add get def /FWERT4Y FBD kNP 2 add get def /FWERT4Z FCD kNP 2 add get def } bind def %END proc_ABC_KNP_FWERTiX %********************************************************* /proc_XIE_TN1 {%BEG proc_XIE_TN1 %input XIE, FWERTiX/Y/Z (i=1,4) %output TN1 /A1N XIE 1 XIE sub mul XIE 2 sub mul 6 div def /A2N XIE 1 add XIE 1 sub mul XIE 2 sub mul 0.5 mul def /A3N XIE 1 add XIE mul 2 XIE sub mul 0.5 mul def /A4N XIE 1 add XIE mul XIE 1 sub mul 6 div def /FNX A1N FWERT1X mul A2N FWERT2X mul add A3N FWERT3X mul add A4N FWERT4X mul add def /FNY A1N FWERT1Y mul A2N FWERT2Y mul add A3N FWERT3Y mul add A4N FWERT4Y mul add def /FNZ A1N FWERT1Z mul A2N FWERT2Z mul add A3N FWERT3Z mul add A4N FWERT4Z mul add def /TNX FNX FXU1 mul FNY FXU2 mul add FNZ FXU3 mul add def } bind def %END proc_XIE_TN1 %********************************************************* /WEL1 60 array def %irregular definition /WEL2 60 array def %irregular definition %0 1 2 3 4 5 6 7 8 9 /WEL1 [405 435 450 460 465 470 475 480 485 490 495 500 510 520 530 540 545 550 555 560 ] def 0 1 19 {/k exch def %k=0,19 %wavelength 405..700nm /j WEL1 k get 400 sub 5 idiv def /LP k def /LPP 20.5 k add def /FF1 FXD j get def %start at 405..700nm /FF2 FYD j get def /FF3 FZD j get def /U1 XW def /U2 YW def /U3 ZW def /FXU1 FF2 U3 mul FF3 U2 mul sub def /FXU2 FF3 U1 mul FF1 U3 mul sub def /FXU3 FF1 U2 mul FF2 U1 mul sub def /INP -1 def /IPN -1 def %assumption jump from TN to TP from negativ to positiv 0 1 60 {/i exch def %i=1,60 /TN FAD i get FXU1 mul FBD i get FXU2 mul add FCD i get FXU3 mul add def /TP FAD i 1 add get FXU1 mul FBD i 1 add get FXU2 mul add FCD i 1 add get FXU3 mul add def TN 0 le TP 0 gt and {/INP i def exit} if } for %i=1,60 0 1 60 {/i exch def %i=1,60 /TN FAD i get FXU1 mul FBD i get FXU2 mul add FCD i get FXU3 mul add neg def /TP FAD i 1 add get FXU1 mul FBD i 1 add get FXU2 mul add FCD i 1 add get FXU3 mul add neg def TN 0 le TP 0 gt and {/IPN i def exit} if } for %i=1,60 %********************************************************* /kNP INP def kNP 0 ge {%kNP>=0 proc_ABC_KNP_FWERTiX %input FAD,KNP, output FWERTiXYZ (i=1,4) /XIE1 0 def %start values TN=0 for XIE1, TP>0 for XIE2 /XIE2 1 def 0 1 9 {/mk exch def %mk=0,9 /XIE XIE1 XIE2 add 0.5 mul def proc_XIE_TN1 %input XIE, ouput TN1 TNX 0 le {/XIE1 XIE def /TN1 TNX def} {/XIE2 XIE def /TP1 TNX def} ifelse } for %mk=0,9 /XIE XIE1 XIE2 add 0.5 mul def /DOWXIE1 DOW INP get DOW INP 1 add get DOW INP get sub XIE mul add def /XIENP XIE def } if %kNP>=0 %********************************************************* /kNP IPN def kNP 0 ge {%kNP>=0 proc_ABC_KNP_FWERTiX %input FAD,KNP, output FWERTiXYZ (i=1,4) /XIE1 0 def %start values TN=0 for XIE1, TP>0 for XIE2 /XIE2 1 def /FXU1 FXU1 neg def /FXU2 FXU2 neg def /FXU3 FXU3 neg def 0 1 9 {/mk exch def %mk=0,9 /XIE XIE1 XIE2 add 0.5 mul def proc_XIE_TN1 %input XIE, ouput TN1 TNX 0 le {/XIE1 XIE def /TN1 TNX def} {/XIE2 XIE def /TP1 TNX def} ifelse } for %mk=0,9 /XIE XIE1 XIE2 add 0.5 mul def /DOWXIE2 DOW IPN get DOW IPN 1 add get DOW IPN get sub XIE mul add def /XIEPN XIE def } if %kNP>=0 %********************************************************* 0 1 79 {/i exch def %i=0,79 RA i 0 put } for %i=0,79 INP -1 eq {/i1 0 def} %380nm {/i1 INP 5 add def} ifelse %405..700nm IPN -1 eq {/i2 79 def} %770nm {/i2 IPN 5 add def} ifelse %405..700nm i2 i1 ge {%i1i2 i1 1 79 {/i exch def %i=i1,79 RA i 1 put } for %i=i1,79 0 1 i2 {/i exch def %i=0,i2 RA i 1 put } for %i=0,i2 } ifelse %i1>i2 %correction i2 i1 ge {%i1i2 RA i1 0.5 put RA i2 0.5 XIEPN 0.5 sub add put } ifelse %i1>i2 %*************************************************** /X 0 def /Y 0 def /Z 0 def 0 1 079 {/i exch def %i=0,79 /X X F2N 00 i add get RA i get mul add def /Y Y F2N 80 i add get RA i get mul add def /Z Z F2N 160 i add get RA i get mul add def } for %i=0,79 /SUM X Y add Z add def /XAN X SUM 0.0001 add div def /YAN Y SUM 0.0001 add div def /ZAN Z SUM 0.0001 add div def %************************************************* 0 0 0 1 setcmyk_olvcolor 0 1 1 {/Icom exch def %Icom=0,1 Icom 0 eq {%Icom=0,1 Xi k X put Yi k Y put Zi k Z put XANi k XAN put YANi k YAN put ZANi k ZAN put }%Icom=0 {%Icom=1 /kP 20 k add def Xi kP XW X sub put Yi kP YW Y sub put Zi kP ZW Z sub put /SUMi Xi kP get Yi kP get add Zi kP get add def XANi kP Xi kP get SUMi 0.0001 add div put YANi kP Yi kP get SUMi 0.0001 add div put ZANi kP Zi kP get SUMi 0.0001 add div put } ifelse %Icom=1 } for %Icom=0,1 K 1 eq {%K=1 Xi k Xi k get 0.8859 mul put Yi k Yi k get 0.8859 mul put Zi k Zi k get 0.8859 mul put Xi kP Xi kP get 0.8859 mul put Yi kP Yi kP get 0.8859 mul put Zi kP Zi kP get 0.8859 mul put } if %K=1 } for %k=0,19 %********************************************************************** %XW,YW,ZW and XK,YK,ZK for white /XW 0 def /YW 0 def /ZW 0 def 0 1 079 {/i exch def %i=0,79 /XW XW F2N 00 i add get add def /YW YW F2N 80 i add get add def /ZW ZW F2N 160 i add get add def } for %i=0,79 K 0 eq {%K=0 /XK XW def /YK YW def /ZK ZW def }%K=0 {%K=1 /XK XW 0.8859 mul def /YK YW 0.8859 mul def /ZK ZW 0.8859 mul def } ifelse %K=1 /SUMK XK YK add ZK add def %for D65, D50, P40, A00, E00 /XANK XK SUMK div def /YANK YK SUMK div def /ZANK ZK SUMK div def /LP LP 1 add def /xtexti 96 array def /ytexti 96 array def /xtexti [ %T00 T10 T20 T30 T40 T41 T50 T51 T60 T61 T70 T71 %0 1 2 3 4 5 6 7 8 9 10 11 1800 1800 1800 2800 2800 4000 2800 4000 2800 4000 2800 4000 %0 0600 0600 0600 0600 0600 1800 0600 1800 0600 1800 0600 1800 %1 0700 0700 0700 0700 0700 1900 0700 1900 0700 1900 0700 1900 %2 0700 0700 0700 0700 0700 1900 0700 1900 0700 1900 0700 1900 %3 0100 0100 0100 0100 0100 1300 0100 1300 0100 1300 0100 1300 %4 0100 0100 0100 0100 0100 1300 0100 1300 0100 1300 0100 1300 %5 0100 0100 0100 0100 0100 1300 0100 1300 0100 1300 0100 1300 %6 0100 0100 0100 0100 0100 1300 0100 1300 0100 1300 0100 1300 %7 ] def /ytexti [ 3800 3580 3360 3140 2920 2920 2700 2700 2480 2480 2260 2260 %0 0500 0280 0060 1380 1160 1160 0940 0940 0720 0720 0000 0000 %1 0500 0280 0060 1380 1160 1160 0940 0940 0720 0720 0000 0000 %2 0500 0280 0060 1380 1160 1160 0940 0940 0720 0720 0000 0000 %3 0500 0280 0060 1380 1160 1160 0940 0940 0720 0720 0000 0000 %4 0500 0280 0060 1380 1160 1160 0940 0940 0720 0720 0000 0000 %5 0500 0280 0060 1380 1160 1160 0940 0940 0720 0720 0000 0000 %6 0500 0280 0060 1380 1160 1160 0940 0940 0720 0720 0000 0000 %7 ] def 0 0 0 1 setcmyk_olvcolor /xchart12 xchart4 12 mul def TBS xchart4 1 ge { %xchart4 >=1 xtexti xchart12 3 add get ytexti xchart12 3 add get 220 add moveto xchart4 1 eq {(LABCab 77) show} if xchart4 2 eq {(CIELAB 76) show} if xchart4 3 eq {(LABJNDS 87) show} if xchart4 4 eq {(LABCab 85) show} if xchart4 5 eq {(CIELAB 76) show} if xchart4 6 eq {(CIELAB D65) show} if xchart4 7 eq {(LABHNU1 79) show} if } if %xchart4 >=1 xtexti xchart12 3 add get ytexti xchart12 3 add get moveto TBS (Name und Spektralbereich) showde %0TE011-7 00581 (Name and spectral range) showen %1TE011-7 00581 (Nombre y gama espectral) showes %2TE011-7 00581 (Nom et la gamma spectrale) showfr %3TE011-7 00581 (Nome e la gamma spettrale) showit %4TE011-7 00581 (Name and spectral range) showjp %5TE011-7 00581 xtexti xchart12 4 add get ytexti xchart12 4 add get moveto TBIS FARBE 0 get show TBL 0 -40 rmoveto FARBE 1 get show 0 40 rmoveto TBIS FARBE 2 get show xtexti xchart12 5 add get ytexti xchart12 5 add get moveto TBIS FARBE 3 get show TBL 0 -40 rmoveto FARBE 4 get show 0 40 rmoveto TBIS FARBE 5 get show xtexti xchart12 6 add get ytexti xchart12 6 add get moveto TBIS FARBE 6 get show TBL 0 -40 rmoveto FARBE 7 get show 0 40 rmoveto TBIS FARBE 8 get show xtexti xchart12 7 add get ytexti xchart12 7 add get moveto TBIS FARBE 9 get show TBL 0 -40 rmoveto FARBE 10 get show 0 40 rmoveto TBIS FARBE 11 get show xtexti xchart12 8 add get ytexti xchart12 8 add get moveto TBIS FARBE 12 get show TBL 0 -40 rmoveto FARBE 13 get show 0 40 rmoveto TBIS FARBE 14 get show xtexti xchart12 9 add get ytexti xchart12 9 add get moveto TBIS FARBE 15 get show TBL 0 -40 rmoveto FARBE 16 get show 0 40 rmoveto TBIS FARBE 17 get show %xtexti xchart12 10 add get ytexti xchart12 10 add get moveto %TBIS FARBE 18 get show %TBL 0 -40 rmoveto FARBE 19 get show 0 40 rmoveto %TBIS FARBE 20 get show %xtexti xchart12 11 add get ytexti xchart12 11 add get moveto %TBIS FARBE 21 get show %TBL 0 -40 rmoveto FARBE 22 get show 0 40 rmoveto %TBIS FARBE 23 get show TBS 0 0 0 1 setcmyk_olvcolor xtexti xchart12 0 add get ytexti xchart12 0 add get moveto TBIS (Ostwald) show TBS (\255Optimalfarben (o)) showde %0TE011-7 02581 ( optimal colours (o)) showen %1TE011-7 02581 ( colores \363ptimos (o)) showes %2TE011-7 02581 ( couleurs optimales (o)) showfr %3TE011-7 02581 ( colori ottimi (o)) showit %4TE011-7 02581 ( optimal colours (o)) showjp %5TE011-7 02581 TBIS (, Y) show TBL 0 -60 rmoveto (W) show 0 60 rmoveto TBS K 0 eq {(=100) show}{(=88,6) show} ifelse xtexti xchart12 1 add get ytexti xchart12 1 add get moveto (6 von maximalem (m)) showde %0TE011-7 03581 (6 of maximum (m)) showen %1TE011-7 03581 (6 de m\341ximo (m)) showes %2TE011-7 03581 (6 de la maximum (m)) showfr %3TE011-7 03581 (6 di massimo (m)) showit %4TE011-7 03581 (6 of maximum (m)) showjp %5TE011-7 03581 TBIS ( C) show TBL 0 -60 rmoveto (AB) show 0 60 rmoveto TBS ( f\374r ) showde %0TE011-7 03581 ( for ) showen %1TE011-7 03581 ( bajo ) showes %2TE011-7 03581 ( pour ) showfr %3TE011-7 03581 ( per ) showit %4TE011-7 03581 ( for ) showjp %5TE011-7 03581 TELi xchartl get show xtexti xchart12 2 add get ytexti xchart12 2 add get moveto xchart4 0 eq {%xchart4=0 (in der Normfarbtafel) showde %0TE011-7 04581 (in the chromaticity diagram) showen %1TE011-7 04581 (en el diagrama de chromaticidad) showes %2TE011-7 04581 (dans le diagramme de chromaticit\351) showfr %3TE011-7 04581 (nel diagramma di cromaticit\340) showit %4TE011-7 04581 (in the chromaticity diagram) showjp %5TE011-7 04581 TBIS ( (x, y)) show } if %xchart4=0 xchart4 1 eq {%xchart4=1 (in der Farbtafel) showde %0TE011-7 05581 (in the chromaticity diagram) showen %1TE011-7 05581 (en el diagrama de chromaticidad) showes %2TE011-7 05581 (dans le diagramme de chromaticit\351) showfr %3TE011-7 05581 (nel diagramma di cromaticit\340) showit %4TE011-7 05581 (in the chromaticity diagram) showjp %5TE011-7 05581 TBIS ( (a, b)) show } if %xchart4=1 xchart4 2 eq {%xchart4=2 (in der Farbarbtafel) showde %0TE011-7 06581 (in the chromaticity diagram) showen %1TE011-7 06581 (en el diagrama de chromaticidad) showes %2TE011-7 06581 (dans le diagramme de chromaticit\351) showfr %3TE011-7 06581 (nel diagramma di cromaticit\340) showit %4TE011-7 06581 (in the chromaticity diagram) showjp %5TE011-7 06581 TBIS ( (a', b')) show } if %xchart4=2 xchart4 3 eq {%xchart4=3 (in der Farbarbtafel) showde %0TE011-7 07581 (in the chromaticity diagram) showen %1TE011-7 07581 (en el diagrama de chromaticidad) showes %2TE011-7 07581 (dans le diagramme de chromaticit\351) showfr %3TE011-7 07581 (nel diagramma di cromaticit\340) showit %4TE011-7 07581 (in the chromaticity diagram) showjp %5TE011-7 07581 TBIS ( (a", b")) show } if %xchart4=3 xchart4 4 eq {%xchart4=4 (in Buntwertdiagramm) showde %0TE011-7 08581 (in chromatic value diagram) showen %1TE011-7 08581 (en el diagrama valor crom\341tico) showes %2TE011-7 08581 (dans la valeur chromatique le diagramme) showfr %3TE011-7 08581 (nel diagramma di valore cromatico) showit %4TE011-7 08581 (in chromatic value diagram) showjp %5TE011-7 08581 TBIS ( (A, B)) show } if %xchart4=4 xchart4 5 eq {%xchart4=5 (in Buntheitsdiagram) showde %0TE011-7 09581 (in CIELAB diagram) showen %1TE011-7 09581 (en el diagrama CIELAB) showes %2TE011-7 09581 (dans le diagramme de CIELAB) showfr %3TE011-7 09581 (nel diagramma di CIELAB) showit %4TE011-7 09581 (in CIELAB diagram) showjp %5TE011-7 09581 TBIS ( (a*, b*)) show } if %xchart4=5 xchart4 6 eq {%xchart4=6 (in Buntheitsdiagram) showde %0TE011-7 10581 (in chroma diagram) showen %1TE011-7 10581 (en el diagrama croma) showes %2TE011-7 10581 (dans le diagramme de chroma) showfr %3TE011-7 10581 (nel diagramma di chroma) showit %4TE011-7 10581 (in chroma diagram) showjp %5TE011-7 10581 TBIS ( \050a*) show 0 -50 rmoveto TBL (D65) show 0 50 rmoveto TBS (, ) show TBIS (b*) show 0 -50 rmoveto TBL (D65) show 0 50 rmoveto TBS (\051) show } if %xchart4=6 xchart4 7 eq {%xchart4=7 (in Buntheitsdiagram) showde %0TE011-7 11581 (in chroma diagram) showen %1TE011-7 11581 (en el diagrama croma) showes %2TE011-7 11581 (dans le diagramme de chroma) showfr %3TE011-7 11581 (nel diagramma di chroma) showit %4TE011-7 11581 (in chroma diagram) showjp %5TE011-7 11581 TBIS ( (A*, B*)) show } if %xchart4=7 xchart4 0 eq {%xchart4=0 600 400 translate 0 0 moveto 4000 0 rlineto stroke 0 0 moveto 0 3200 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten TBS 0 -50 moveto 0 100 rlineto stroke 800 -50 moveto 0 100 rlineto stroke 1600 -50 moveto 0 100 rlineto stroke 2400 -50 moveto 0 100 rlineto stroke 3200 -50 moveto 0 100 rlineto stroke 4000 -50 moveto 0 100 rlineto stroke -100 -300 moveto (0,0) show 700 -300 moveto (0,2) show 1500 -300 moveto (0,4) show 2300 -300 moveto (0,6) show 3100 -300 moveto (0,8) show 3900 -300 moveto (1,0) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 800 moveto 100 0 rlineto stroke -50 1600 moveto 100 0 rlineto stroke -50 2400 moveto 100 0 rlineto stroke -50 3200 moveto 100 0 rlineto stroke -450 -80 moveto (0,0) show -450 720 moveto (0,2) show -450 1520 moveto (0,4) show -450 2320 moveto (0,6) show -450 3120 moveto (0,8) show TIM -300 2800 moveto (y) show TIM 4200 150 moveto (x) show TBIS 2600 150 moveto (CIE 1931) show -600 -400 translate %1000 02 01 16 01 .00 .0020 ******************** %ANF PROZSPEP3.FOR: MULYA= 4000 BEO=02 xy-Farbtafel IXY0: 600 400 600 400 translate 693 19 moveto 693 19 692 19 690 19 curveto 688 19 685 20 681 23 curveto 675 27 667 34 657 43 curveto 644 55 626 70 603 90 curveto 575 118 542 159 496 231 curveto 438 347 365 530 274 802 curveto 181 1179 93 1650 32 2153 curveto 15 2619 55 3000 155 3248 curveto 297 3335 456 3304 618 3223 curveto 771 3126 918 3017 1063 2897 curveto 1206 2769 1349 2635 1492 2497 curveto 1634 2358 1776 2218 1915 2080 curveto 2049 1946 2179 1817 2300 1696 curveto 2411 1585 2508 1489 2592 1405 curveto 2663 1336 2720 1278 2765 1233 curveto 2802 1197 2831 1168 2856 1143 curveto 2876 1123 2892 1107 2903 1096 curveto 2913 1086 2919 1080 2924 1075 curveto 2927 1072 2930 1069 2933 1066 curveto 2936 1063 2937 1062 2938 1061 curveto 2938 1061 2939 1060 2744 971 curveto 2261 748 2040 643 1908 582 curveto 1819 541 1758 512 1708 490 curveto 1660 468 1612 445 1558 420 curveto 1495 391 1419 356 1320 309 curveto 1184 247 986 155 693 19 curveto stroke 0 0 0 1 setcmyk_olvcolor 693 19 30 0 360 arc fill % 400 681 23 30 0 360 arc fill % 425 626 70 30 0 360 arc fill % 450 438 347 30 0 360 arc fill % 475 32 2153 30 0 360 arc fill % 500 456 3304 30 0 360 arc fill % 525 1206 2769 30 0 360 arc fill % 550 1915 2080 30 0 360 arc fill % 575 2508 1489 30 0 360 arc fill % 600 2802 1197 30 0 360 arc fill % 625 2903 1096 30 0 360 arc fill % 650 2930 1069 30 0 360 arc fill % 675 2938 1061 30 0 360 arc fill % 700 2261 748 30 0 360 arc fill %500c 1708 490 30 0 360 arc fill %525c 1419 356 30 0 360 arc fill %550c 0 0 0 1 setcmyk_olvcolor 693 19 30 0 360 arc stroke % 400 681 23 30 0 360 arc stroke % 425 626 70 30 0 360 arc stroke % 450 438 347 30 0 360 arc stroke % 475 32 2153 30 0 360 arc stroke % 500 456 3304 30 0 360 arc stroke % 525 1206 2769 30 0 360 arc stroke % 550 1915 2080 30 0 360 arc stroke % 575 2508 1489 30 0 360 arc stroke % 600 2802 1197 30 0 360 arc stroke % 625 2903 1096 30 0 360 arc stroke % 650 2930 1069 30 0 360 arc stroke % 675 2938 1061 30 0 360 arc stroke % 700 2261 748 30 0 360 arc stroke %500c 1708 490 30 0 360 arc stroke %525c 1419 356 30 0 360 arc stroke %550c % 1250 1316 30 0 360 arc fill %D65 0 0 0 1 setcmyk_olvcolor TBIS 693 375 sub 19 250 sub moveto (400) show % 681 500 sub 23 100 sub moveto (425) show % 626 500 sub 70 100 sub moveto (450) show 438 350 sub 347 200 sub moveto (475) show 32 450 sub 2153 100 sub moveto (500) show 456 100 add 3304 000 add moveto (525) show 1206 100 add 2769 000 add moveto (550) show 1915 080 sub 2080 100 add moveto (575) show 2508 100 add 1489 000 add moveto (600) show 2802 100 add 1197 100 add moveto (625) show % 2903 200 sub 1096 100 add moveto (650) show % 2930 200 sub 1069 100 add moveto (675) show 2938 100 add 1061 100 sub moveto (700) show 2261 100 add 748 200 sub moveto (500c,E) show 1708 100 add 490 200 sub moveto (525c,E) show 1419 000 add 356 250 sub moveto (550c,E) show % 1250 100 add 1316 100 sub moveto (D65 ) show -600 -400 translate %ENDE: 1 } if %xchart4=0 xchart4 1 eq {%xchart4=1 500 3200 translate 0 400 moveto 4000 0 rlineto stroke 0 400 moveto 0 -3600 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten TBS 0 350 moveto 0 100 rlineto stroke 800 350 moveto 0 100 rlineto stroke 1600 350 moveto 0 100 rlineto stroke 2400 350 moveto 0 100 rlineto stroke 3200 350 moveto 0 100 rlineto stroke 4000 350 moveto 0 100 rlineto stroke -150 500 moveto (-0,8) show 650 500 moveto (0,0) show 1450 500 moveto (0,8) show 2250 500 moveto (1,6) show 3050 500 moveto (2,4) show 3850 500 moveto (3,2) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 -800 moveto 100 0 rlineto stroke -50 -1600 moveto 100 0 rlineto stroke -50 -2400 moveto 100 0 rlineto stroke -50 -3200 moveto 100 0 rlineto stroke -450 -100 moveto ( 0,0) show -450 -900 moveto (-0,8) show -450 -1700 moveto (-1,6) show %-450 -2500 moveto (-2,4) show -175 -3050 moveto 90 rotate TBIK (b) show TBK (=-0,40) show TBIK (z/y) show -90 rotate 3650 100 moveto TBIK (a=x/y) show -500 -3200 translate %1000 02 01 16 01-.03**************************************** %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 1300 3200 translate % 36136 -68535 moveto % 36136 -68535 36234 -68875 35958 -68561 curveto % 35610 -68128 33600 -64560 29424 -56936 curveto % 24474 -47779 19507 -38551 15143 -30384 curveto % 11681 -23927 8847 -18653 6639 -14534 curveto % 4846 -11128 3397 -8271 2147 -5661 curveto 1261 -3701 moveto 1261 -3701 688 -2339 342 -1455 curveto 153 -894 56 -546 15 -336 curveto 5 -208 18 -125 47 -73 curveto 89 -44 138 -28 191 -19 curveto 246 -13 304 -8 366 -5 curveto 435 -3 512 -2 597 -1 curveto 693 -1 800 0 920 0 curveto 1053 0 1198 0 1355 0 curveto 1520 0 1683 0 1844 0 curveto 1993 0 2126 0 2242 0 curveto 2340 0 2424 0 2497 0 curveto 2559 0 2610 0 2649 0 curveto 2680 0 2703 0 2718 0 curveto 2731 0 2741 0 2751 0 curveto 2760 0 2764 0 2767 0 curveto 2769 0 2770 0 2824 -116 curveto 3023 -529 3168 -817 3275 -1036 curveto 3357 -1209 3430 -1349 3482 -1469 curveto 3545 -1597 3622 -1746 3704 -1922 curveto 3817 -2156 3983 -2496 4262 -3058 curveto % 4786 -4149 6341 -7346 35775 -67850 curveto stroke 0 0 0 1 setcmyk_olvcolor % 36136 -68535 30 0 360 arc fill % 400 % 29424 -56936 30 0 360 arc fill % 425 % 8847 -18653 30 0 360 arc fill % 450 1261 -3701 30 0 360 arc fill % 475 15 -336 30 0 360 arc fill % 500 138 -28 30 0 360 arc fill % 525 435 -3 30 0 360 arc fill % 550 920 0 30 0 360 arc fill % 575 1683 0 30 0 360 arc fill % 600 2340 0 30 0 360 arc fill % 625 2649 0 30 0 360 arc fill % 650 2741 0 30 0 360 arc fill % 675 2769 0 30 0 360 arc fill % 700 3023 -529 30 0 360 arc fill %500c 3482 -1469 30 0 360 arc fill %525c 3983 -2496 30 0 360 arc fill %550c 0 0 0 1 setcmyk_olvcolor % 36136 -68535 30 0 360 arc stroke % 400 % 29424 -56936 30 0 360 arc stroke % 425 % 8847 -18653 30 0 360 arc stroke % 450 1261 -3701 30 0 360 arc stroke % 475 15 -336 30 0 360 arc stroke % 500 138 -28 30 0 360 arc stroke % 525 435 -3 30 0 360 arc stroke % 550 920 0 30 0 360 arc stroke % 575 1683 0 30 0 360 arc stroke % 600 2340 0 30 0 360 arc stroke % 625 2649 0 30 0 360 arc stroke % 650 2741 0 30 0 360 arc stroke % 675 2769 0 30 0 360 arc stroke % 700 3023 -529 30 0 360 arc stroke %500c 3482 -1469 30 0 360 arc stroke %525c 3983 -2496 30 0 360 arc stroke %550c % 950 -435 30 0 360 arc fill %D65 0 0 0 1 setcmyk_olvcolor TBIS % 36136 500 sub -68535 100 sub moveto (400) show % 29424 500 sub -56936 100 sub moveto (425) show % 8847 500 sub -18653 100 sub moveto (450) show % 1261 500 sub -3701 100 sub moveto (475) show 15 400 sub -336 100 sub moveto (500) show % 138 200 sub -28 100 add moveto (525) show 435 200 sub -3 100 add moveto (550) show % 920 200 sub 0 100 add moveto (575) show 1683 200 sub 0 100 add moveto (600) show 2340 200 sub 0 100 add moveto (625) show % 2649 200 sub 0 100 add moveto (650) show % 2741 200 sub 0 100 add moveto (675) show 2769 100 add 0 150 sub moveto (700) show 3023 100 add -529 100 sub moveto (500c,E) show 3482 800 sub -1469 050 sub moveto (525c,E) show % 3983 500 sub -2496 100 sub moveto (550c,E) show % 950 100 add -435 100 sub moveto (D65 ) show -1300 -3200 translate %ENDE: 2 } if %xchart4=1 xchart4 2 eq {%xchart4=2 600 3200 translate 0 400 moveto 4400 0 rlineto stroke 0 400 moveto 0 -3600 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten TBS 000 350 moveto 0 100 rlineto stroke 0800 350 moveto 0 100 rlineto stroke 1600 350 moveto 0 100 rlineto stroke 2400 350 moveto 0 100 rlineto stroke 3200 350 moveto 0 100 rlineto stroke 4000 350 moveto 0 100 rlineto stroke -200 500 moveto (0,00) show 600 500 moveto (0,06) show 1400 500 moveto (0,12) show 2200 500 moveto (0,18) show 3000 500 moveto (0,24) show 3800 500 moveto (0,30) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 -800 moveto 100 0 rlineto stroke -50 -1600 moveto 100 0 rlineto stroke -50 -2400 moveto 100 0 rlineto stroke -50 -3200 moveto 100 0 rlineto stroke -575 -100 moveto ( 0,00) show -575 -900 moveto (-0,06) show -575 -1700 moveto (-0,12) show -575 -2500 moveto (-0,18) show TIM -380 -1300 moveto (b') show 4300 250 moveto (a') show -600 -3200 translate %1000 02 01 16 01 .00 .0020 ******************** %ANF PROZSPEP3.FOR: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 400 3200 translate 9657 -6202 moveto 9657 -6202 9666 -6212 9642 -6203 curveto 9610 -6190 9426 -6080 9018 -5830 curveto 8481 -5499 7863 -5120 7227 -4729 curveto 6628 -4367 6041 -4019 5490 -3698 curveto 4943 -3383 4391 -3065 3769 -2701 curveto 3156 -2344 2578 -2012 2043 -1717 curveto 1565 -1460 1123 -1239 723 -1054 curveto 527 -898 772 -759 1060 -634 curveto 1304 -535 1510 -464 1685 -408 curveto 1832 -356 1965 -309 2091 -267 curveto 2214 -230 2337 -200 2460 -176 curveto 2585 -157 2712 -145 2841 -139 curveto 2972 -138 3103 -133 3233 -126 curveto 3359 -126 3475 -120 3582 -113 curveto 3676 -98 3756 -91 3823 -88 curveto 3878 -75 3924 -64 3963 -57 curveto 3995 -54 4022 -46 4042 0 curveto 4057 0 4069 0 4077 0 curveto 4083 0 4088 0 4093 0 curveto 4097 0 4100 0 4101 0 curveto 4102 0 4103 0 4129 -740 curveto 4224 -1226 4290 -1417 4338 -1533 curveto 4374 -1614 4405 -1674 4427 -1723 curveto 4454 -1771 4486 -1825 4520 -1884 curveto 4565 -1958 4630 -2056 4736 -2200 curveto 4923 -2435 5407 -2946 9625 -6181 curveto stroke 0 0 0 1 setcmyk_olvcolor 9657 -6202 30 0 360 arc fill % 400 9018 -5830 30 0 360 arc fill % 425 6041 -4019 30 0 360 arc fill % 450 3156 -2344 30 0 360 arc fill % 475 723 -1054 30 0 360 arc fill % 500 1510 -464 30 0 360 arc fill % 525 2214 -230 30 0 360 arc fill % 550 2841 -139 30 0 360 arc fill % 575 3475 -120 30 0 360 arc fill % 600 3878 -75 30 0 360 arc fill % 625 4042 0 30 0 360 arc fill % 650 4088 0 30 0 360 arc fill % 675 4102 0 30 0 360 arc fill % 700 4224 -1226 30 0 360 arc fill %500c 4427 -1723 30 0 360 arc fill %525c 4630 -2056 30 0 360 arc fill %550c 0 0 0 1 setcmyk_olvcolor 9657 -6202 30 0 360 arc stroke % 400 9018 -5830 30 0 360 arc stroke % 425 6041 -4019 30 0 360 arc stroke % 450 3156 -2344 30 0 360 arc stroke % 475 723 -1054 30 0 360 arc stroke % 500 1510 -464 30 0 360 arc stroke % 525 2214 -230 30 0 360 arc stroke % 550 2841 -139 30 0 360 arc stroke % 575 3475 -120 30 0 360 arc stroke % 600 3878 -75 30 0 360 arc stroke % 625 4042 0 30 0 360 arc stroke % 650 4088 0 30 0 360 arc stroke % 675 4102 0 30 0 360 arc stroke % 700 4224 -1226 30 0 360 arc stroke %500c 4427 -1723 30 0 360 arc stroke %525c 4630 -2056 30 0 360 arc stroke %550c % 2872 -1148 30 0 360 arc fill %D65 0 0 0 1 setcmyk_olvcolor TBIS % 9657 500 sub -6202 100 sub moveto (400) show % 9018 500 sub -5830 100 sub moveto (425) show % 6041 500 sub -4019 100 sub moveto (450) show 3156 400 sub -2344 100 sub moveto (475) show 723 250 sub -1054 250 sub moveto (500) show 1510 200 sub -464 150 add moveto (525) show 2214 200 sub -230 100 add moveto (550) show 2841 200 sub -139 100 add moveto (575) show 3475 200 sub -120 100 add moveto (600) show % 3878 200 sub -75 100 add moveto (625) show % 4042 200 sub 0 100 add moveto (650) show % 4088 200 sub 0 100 add moveto (675) show 4102 050 add 0 100 sub moveto (700) show 4224 050 add -1226 000 sub moveto (500c,E) show 4427 010 sub -1723 100 add moveto (525c,E) show % 4630 100 add -2056 100 sub moveto (550c,E) show % 2872 050 add -1148 000 sub moveto (D65 ) show -400 -3200 translate %ENDE: 3 } if %xchart4=2 xchart4 3 eq {%xchart4=3 600 3200 translate 0 400 moveto 4400 0 rlineto stroke 0 400 moveto 0 -3500 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten TBS 0 350 moveto 0 100 rlineto stroke 800 350 moveto 0 100 rlineto stroke 1600 350 moveto 0 100 rlineto stroke 2400 350 moveto 0 100 rlineto stroke 3200 350 moveto 0 100 rlineto stroke 4000 350 moveto 0 100 rlineto stroke -250 500 moveto (-0,6) show 650 500 moveto (0,0) show 1450 500 moveto (0,6) show 2250 500 moveto (1,2) show 3050 500 moveto (1,8) show 3850 500 moveto (2,4) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 -800 moveto 100 0 rlineto stroke -50 -1600 moveto 100 0 rlineto stroke -50 -2400 moveto 100 0 rlineto stroke -50 -3200 moveto 100 0 rlineto stroke -450 -100 moveto ( 0,0) show -450 -900 moveto (-0,6) show -450 -1700 moveto (-1,2) show -450 -2500 moveto (-1,8) show TBIK -450 -2900 moveto (b") show TBS -120 -125 rmoveto (s) show 120 125 rmoveto TBIK 4050 200 moveto (a") show TBS -120 -125 rmoveto (s) show 120 125 rmoveto TBIK -600 -3200 translate %1000 02 **************************************** %ANF PROZSPEP.FOR: MULYA= 1333 BEO=02 a"b" LABJND 1985 IXY0: 700 3200 700 800 add 3200 translate 3789 -3170 moveto 3789 -3170 3789 -3170 3788 -3170 curveto 3787 -3170 3779 -3166 3757 -3155 curveto 3724 -3138 3673 -3113 3603 -3079 curveto 3514 -3037 3394 -2982 3239 -2915 curveto 3028 -2826 2734 -2704 2265 -2508 curveto 1626 -2234 957 -1880 645 -1481 curveto 507 -1078 443 -720 417 -455 curveto 411 -308 419 -223 437 -171 curveto 464 -144 496 -130 533 -121 curveto 573 -115 616 -111 664 -108 curveto 721 -107 787 -105 867 -105 curveto 963 -104 1081 -104 1227 -104 curveto 1397 -104 1561 -104 1716 -104 curveto 1858 -104 1981 -104 2090 -104 curveto 2180 -104 2254 -104 2313 -104 curveto 2360 -103 2397 -103 2429 -103 curveto 2455 -103 2476 -103 2491 -103 curveto 2503 -103 2512 -103 2517 -103 curveto 2522 -103 2526 -103 2530 -103 curveto 2533 -103 2535 -103 2536 -103 curveto 2536 -103 2537 -103 2556 -214 curveto 2623 -700 2668 -1007 2700 -1196 curveto 2723 -1324 2742 -1416 2756 -1488 curveto 2772 -1560 2791 -1636 2811 -1717 curveto 2837 -1813 2873 -1933 2929 -2093 curveto 3019 -2313 3211 -2648 3788 -3169 curveto stroke 1 setgray 3789 -3170 30 0 360 arc fill % 400 3757 -3155 30 0 360 arc fill % 425 3394 -2982 30 0 360 arc fill % 450 1626 -2234 30 0 360 arc fill % 475 417 -455 30 0 360 arc fill % 500 496 -130 30 0 360 arc fill % 525 721 -107 30 0 360 arc fill % 550 1227 -104 30 0 360 arc fill % 575 1981 -104 30 0 360 arc fill % 600 2360 -103 30 0 360 arc fill % 625 2491 -103 30 0 360 arc fill % 650 2526 -103 30 0 360 arc fill % 675 2536 -103 30 0 360 arc fill % 700 2623 -700 30 0 360 arc fill %500c 2756 -1488 30 0 360 arc fill %525c 2873 -1933 30 0 360 arc fill %550c 0 setgray 3789 -3170 30 0 360 arc stroke % 400 3757 -3155 30 0 360 arc stroke % 425 3394 -2982 30 0 360 arc stroke % 450 1626 -2234 30 0 360 arc stroke % 475 417 -455 30 0 360 arc stroke % 500 496 -130 30 0 360 arc stroke % 525 721 -107 30 0 360 arc stroke % 550 1227 -104 30 0 360 arc stroke % 575 1981 -104 30 0 360 arc stroke % 600 2360 -103 30 0 360 arc stroke % 625 2491 -103 30 0 360 arc stroke % 650 2526 -103 30 0 360 arc stroke % 675 2536 -103 30 0 360 arc stroke % 700 2623 -700 30 0 360 arc stroke %500c 2756 -1488 30 0 360 arc stroke %525c 2873 -1933 30 0 360 arc stroke %550c 1266 -580 30 0 360 arc fill %D65 0 setgray TBIS 3789 200 sub -3170 200 add moveto (400) show % 3757 600 sub -3155 100 sub moveto (425) show % 3394 600 sub -2982 100 sub moveto (450) show 1626 050 sub -2234 150 add moveto (475) show 417 430 sub -455 100 sub moveto (500) show 496 400 sub -130 50 add moveto (525) show 721 200 sub -107 100 add moveto (550) show 1227 200 sub -104 100 add moveto (575) show 1981 200 sub -104 100 add moveto (600) show % 2360 200 sub -103 100 add moveto (625) show % 2491 200 sub -103 100 add moveto (650) show % 2526 200 sub -103 100 add moveto (675) show 2536 100 add -103 moveto (700) show 2623 100 add -700 100 sub moveto (500c) show 2756 100 add -1488 100 sub moveto (525c) show % 2873 100 add -1933 100 sub moveto (550c) show % 1266 100 add -580 100 sub moveto (D65 ) show 700 800 add neg -3200 translate %ENDE: 3 } if %xchart4=3 xchart4 4 ge xchart4 7 le and {%4>=xchart4<=7 3500 2000 translate %axis and scales 0 0 0 1 setcmyk_olvcolor -2250 0 moveto 3950 0 rlineto stroke 0 -1880 moveto 0 3600 rlineto stroke 1700 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 /xt10x 5 array def /yt10x 5 array def xchart4 4 eq {%xchart4=4 /xt10x [(-40) ( ) ( ) ( ) ( 40)] def /yt10x [(-40) ( ) ( ) ( ) (40)] def } if %xchart4=3 xchart4 5 ge xchart4 7 le and {%5>=xchart4<=7 /xt10x [(-120) ( ) ( ) ( ) ( 120)] def /yt10x [(-120) ( ) ( ) ( ) (120)] def } if %4>=xchart4<=6 0 0 0 1 setcmyk_olvcolor 0 1 4 {/i exch def %i=0,4 x-axis -1600 i 800 mul add -75 moveto 0 150 rlineto stroke -1800 i 800 mul add -250 moveto TBS xt10x i get show i 4 eq {-1600 i 800 mul add 0 moveto xchart4 4 eq { %xchart4=4 000 150 rmoveto TBIM (A) show TL } if %xchart4=4 xchart4 5 eq { %xchart4=5 -50 150 rmoveto TBIM (a*) show TL } if %xchart4=5 xchart4 6 eq { %xchart4=6 -350 150 rmoveto TBIM (a*) show -40 -50 rmoveto TBL (D65) show 0 50 rmoveto TL } if %xchart4=6 xchart4 7 eq { %xchart4=7 -50 150 rmoveto TBIM (A*) show TL } if %xchart4=7 } if } for %i=0,4 0 1 4 {/i exch def %i=0,4 y-axis -75 -1600 i 800 mul add moveto 150 0 rlineto stroke 100 -1600 i 800 mul add 100 sub moveto TBS yt10x i get show i 4 eq {0 -1600 i 800 mul add moveto xchart4 4 eq { %xchart4=4 -250 150 rmoveto TBIM (B) show TL } if %xchart4=4 xchart4 5 eq { %xchart4=5 -400 150 rmoveto TBIM (b*) show TL } if %xchart4=5 xchart4 6 eq { %xchart4=6 -750 150 rmoveto TBIM (b*) show -40 -50 rmoveto TBL (D65) show 0 50 rmoveto TL } if %xchart4=6 xchart4 7 eq { %xchart4=7 -300 150 rmoveto TBIM (B*) show TL } if %xchart4=7 } if } for %i=0,4 -3500 -2000 translate } if %4>=xchart4<=7 %*********************************************************** /icolor 9 array def %Rm %Ym %Gm %Cm %Bm %Mm %Go %Mo %W /icolor [20 10 06 00 30 26 06 26 40] def /imshow {0 -50 rmoveto TBL (m) show 0 50 rmoveto TBIS} def %************************************************* xchart4 0 eq {%xchart4=0 %only for (x,y) /fakt 4000 def 600 400 translate %for scala and graphic 0 1 39 {/i exch def %i=0,39 XANi i get fakt mul YANi i get fakt mul i 0 eq {moveto} if i 1 ge i 38 le and {lineto} if i 39 eq {lineto closepath stroke} if } for %i=0,39 XANW fakt mul YANW fakt mul 90 0 360 arc stroke XANW fakt mul 200 sub YANW fakt mul 250 sub moveto TBS TELi xchartl get show TBIS 0 1 2 {/j exch def %j=0,2 j 0 eq {/i 0 def} if %Cm-Rm j 1 eq {/i 6 def} if %Gm-Mm j 2 eq {/i 10 def} if %Ym-Bm /SUM Xi i get Yi i get add Zi i get add 0.0001 add def /AnY Xi i get SUM div fakt mul def /BnY Yi i get SUM div fakt mul def j 0 eq {AnY 350 sub BnY 050 sub moveto (C) show imshow 1 0 0 0 setcmykcolor} if %Cm j 1 eq {AnY 400 sub BnY 050 sub moveto (G) show imshow 1 0 1 0 setcmykcolor} if %Gm j 2 eq {AnY 100 sub BnY 250 sub moveto (Y) show imshow 0 0 1 0 setcmykcolor} if %Ym newpath AnY BnY 90 0 360 arc fill 0 setgray newpath AnY BnY 90 0 360 arc stroke /SUM XK Xi i get sub YK Yi i get sub add ZK Zi i get sub add 0.0001 add def /AnY XK Xi i get sub SUM div fakt mul def /BnY YK Yi i get sub SUM div fakt mul def j 0 eq {AnY 100 sub BnY 250 sub moveto (R) show imshow 0 1 1 0 setcmykcolor} if %Rm j 1 eq {AnY 150 add BnY 050 sub moveto (M) show imshow 0 1 0 0 setcmykcolor} if %Mm j 2 eq {AnY 100 add BnY 100 add moveto (B) show imshow 1 1 0 0 setcmykcolor} if %Bm newpath AnY BnY 90 0 360 arc fill 0 setgray newpath AnY BnY 90 0 360 arc stroke } for %j=0,2 -600 -400 translate %for scala and grafic } if %xchart4=0 xchart4 1 eq {%xchart4=1 %only for (a,b) /fakt 1000 def /a2 XW YW 0.0001 add div def /b2 ZW YW 0.0001 add div -0.4 mul def 1300 3200 translate %for grafic 0 1 39 {/i exch def %i=0,39 Xi i get Yi i get 0.0001 add div fakt mul %a Zi i get Yi i get 0.0001 add div fakt mul %b 0.4 mul neg i 0 eq {moveto} if i 1 ge i 38 le and {lineto} if i 39 eq {lineto closepath stroke} if } for %i=0,39 XW YW 0.0001 add div fakt mul ZW YW 0.0001 add div fakt mul 0.4 mul neg 90 0 360 arc stroke XW YW 0.0001 add div fakt mul 200 sub ZW YW 0.0001 add div fakt mul 0.4 mul neg 250 sub moveto TBS TELi xchartl get show TBIS 0 1 2 {/j exch def %j=0,2 j 0 eq {/i 0 def} if %Cm-Rm j 1 eq {/i 6 def} if %Gm-Mm j 2 eq {/i 10 def} if %Ym-Bm /AnY Xi i get Yi i get 0.0001 add div fakt mul def /BnY Zi i get Yi i get 0.0001 add div fakt mul 0.4 mul neg def j 0 eq {AnY 350 sub BnY 050 sub moveto (C) show imshow 1 0 0 0 setcmykcolor} if %Cm j 1 eq {AnY 300 sub BnY 150 sub moveto (G) show imshow 1 0 1 0 setcmykcolor} if %Gm j 2 eq {AnY 100 sub BnY 250 sub moveto (Y) show imshow 0 0 1 0 setcmykcolor} if %Ym newpath AnY BnY 90 0 360 arc fill 0 setgray newpath AnY BnY 90 0 360 arc stroke /AnY XK Xi i get sub YK Yi i get sub 0.0001 add div fakt mul def /BnY ZK Zi i get sub YK Yi i get sub 0.0001 add div fakt mul 0.4 mul neg def j 0 eq {AnY 100 add BnY 200 sub moveto (R) show imshow 0 1 1 0 setcmykcolor} if %Rm j 1 eq {AnY 100 add BnY 050 sub moveto (M) show imshow 0 1 0 0 setcmykcolor} if %Mm j 2 eq {AnY 100 sub BnY 200 add moveto (B) show imshow 1 1 0 0 setcmykcolor} if %Bm newpath AnY BnY 90 0 360 arc fill 0 setgray newpath AnY BnY 90 0 360 arc stroke } for %j=0,2 -1300 -3200 translate %for grafic } if %xchart4=1 xchart4 2 eq {%xchart4=2 %only for (a',b') /D13 1 3 div def /fakt 13333 def /a2 XW YW 0.0001 add div D13 exp 0.2191 mul def /b2 ZW YW 0.0001 add div D13 exp -0.08376 mul def 200 3200 translate %for graphic 0 1 39 {/i exch def %i=0,39 Xi i get Yi i get 0.0001 add div %a' D13 exp 0.2191 mul fakt mul Zi i get Yi i get 0.0001 add div %b' D13 exp -0.08376 mul fakt mul i 0 eq {moveto} if i 1 ge i 38 le and {lineto} if i 39 eq {lineto closepath stroke} if } for %i=0,39 XW YW 0.0001 add div %a' D13 exp 0.2191 mul fakt mul ZW YW 0.0001 add div %b' D13 exp -0.08376 mul fakt mul 90 0 360 arc stroke XW YW 0.0001 add div %a' D13 exp 0.2191 mul fakt mul 200 sub ZW YW 0.0001 add div %b' D13 exp -0.08376 mul fakt mul 250 sub moveto TBS TELi xchartl get show TBIS 0 1 2 {/j exch def %j=0,2 j 0 eq {/i 0 def} if %Cm-Rm j 1 eq {/i 6 def} if %Gm-Mm j 2 eq {/i 10 def} if %Ym-Bm /AnY Xi i get Yi i get 0.0001 add div %a' D13 exp 0.2191 mul fakt mul def /BnY Zi i get Yi i get 0.0001 add div %b' D13 exp -0.08376 mul fakt mul def j 0 eq {AnY 350 sub BnY 050 sub moveto (C) show imshow 1 0 0 0 setcmykcolor} if %Cm j 1 eq {AnY 350 sub BnY 050 sub moveto (G) show imshow 1 0 1 0 setcmykcolor} if %Gm j 2 eq {AnY 100 sub BnY 250 sub moveto (Y) show imshow 0 0 1 0 setcmykcolor} if %Ym newpath AnY BnY 90 0 360 arc fill 0 setgray newpath AnY BnY 90 0 360 arc stroke /AnY XK Xi i get sub YK Yi i get sub 0.0001 add div %a' D13 exp 0.2191 mul fakt mul def /BnY ZK Zi i get sub YK Yi i get sub 0.0001 add div %b' D13 exp -0.08376 mul fakt mul def j 0 eq {AnY 100 add BnY 000 add moveto (R) show imshow 0 1 1 0 setcmykcolor} if %Rm j 1 eq {AnY 100 add BnY 050 sub moveto (M) show imshow 0 1 0 0 setcmykcolor} if %Mm j 2 eq {AnY 050 add BnY 150 add moveto (B) show imshow 1 1 0 0 setcmykcolor} if %Bm newpath AnY BnY 90 0 360 arc fill 0 setgray newpath AnY BnY 90 0 360 arc stroke } for %j=0,2 -200 -3200 translate %for graphic } if %xchart4=2 xchart4 3 eq {%xchart4=3 %only for (a",b") %100 3800 moveto TIS ((a",b") (LAB 1977)) show /fakt 1333 def /XD65 95.04 def /YD65 100.00 def /ZD65 108.89 def /aD65 XD65 YD65 0.0001 add div def /bD65 ZD65 YD65 0.0001 add div -0.4 mul def /a2 aD65 def /b2 bD65 def 700 800 add 3200 translate %for grafic 0 1 39 {/i exch def %i=0,39 /a Xi i get Yi i get 0.0001 add div def /an XK YK 0.0001 add div def /b Zi i get Yi i get 0.0001 add div 0.4 mul neg def /bn ZK YK 0.0001 add div 0.4 mul neg def /a" an a an sub 1 a an sub abs 0.5 mul add div add def /b" bn b bn sub 1 b bn sub abs 0.5 mul add div add def a" fakt mul b" fakt mul /a"n an def /b"n bn def i 0 eq {moveto} if i 1 ge i 38 le and {lineto} if i 39 eq {lineto closepath stroke} if } for %i=0,39 a"n fakt mul b"n fakt mul 90 0 360 arc stroke a"n fakt mul 200 sub b"n fakt mul 250 sub moveto TBS TELi xchartl get show TBIS 0 1 2 {/j exch def %j=0,2 j 0 eq {/i 0 def} if %Cm-Rm j 1 eq {/i 6 def} if %Gm-Mm j 2 eq {/i 10 def} if %Ym-Bm /a Xi i get Yi i get 0.0001 add div def /an XK YK 0.0001 add div def /b Zi i get Yi i get 0.0001 add div 0.4 mul neg def /bn ZK YK 0.0001 add div 0.4 mul neg def /a" an a an sub 1 a an sub abs 0.5 mul add div add def /b" bn b bn sub 1 b bn sub abs 0.5 mul add div add def a" fakt mul b" fakt mul /a"n an def /b"n bn def /AnY a" fakt mul def /BnY b" fakt mul def j 0 eq {AnY 350 sub BnY 050 sub moveto (C) show imshow 1 0 0 0 setcmykcolor} if %Cm j 1 eq {AnY 050 add BnY 200 sub moveto (G) show imshow 1 0 1 0 setcmykcolor} if %Gm j 2 eq {AnY 050 sub BnY 250 sub moveto (Y) show imshow 0 0 1 0 setcmykcolor} if %Ym newpath AnY BnY 90 0 360 arc fill 0 setgray newpath AnY BnY 90 0 360 arc stroke /a XK Xi i get sub YK Yi i get sub 0.0001 add div def /an XK YK 0.0001 add div def /b ZK Zi i get sub YK Yi i get sub 0.0001 add div 0.4 mul neg def /bn ZK YK 0.0001 add div 0.4 mul neg def /a" an a an sub 1 a an sub abs 0.5 mul add div add def /b" bn b bn sub 1 b bn sub abs 0.5 mul add div add def a" fakt mul b" fakt mul /a"n an def /b"n bn def /AnY a" fakt mul def /BnY b" fakt mul def j 0 eq {AnY 100 add BnY 200 sub moveto (R) show imshow 0 1 1 0 setcmykcolor} if %Rm j 1 eq {AnY 100 add BnY 050 sub moveto (M) show imshow 0 1 0 0 setcmykcolor} if %Mm j 2 eq {AnY 050 add BnY 150 add moveto (B) show imshow 1 1 0 0 setcmykcolor} if %Bm newpath AnY BnY 90 0 360 arc fill 0 setgray newpath AnY BnY 90 0 360 arc stroke } for %j=0,2 700 800 add neg -3200 translate %for graphic } if %xchart4=3 xchart4 4 eq {%xchart4=4 %only for (A,B) /fakt 40 def /a2 1.00 def /b2 -0.4 def 3500 2000 translate %for text and grafic -3400 1800 moveto TBIS (XYZ) show TBL (w) show TBS (=) show XK cvsshow5 (, ) show YK cvsshow5 (, ) show ZK cvsshow2 -3400 1550 moveto TBIS (A) show TBS ( = \050) show TBIS (a) show TBS ( - ) show TBIS (a) show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (\051 ) show TBIS (Y) show -3400 1300 moveto TBIS (B) show TBS ( = \050) show TBIS (b) show TBS ( - ) show TBIS (b) show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (\051 ) show TBIS (Y) show -3400 1050 moveto TBIS (a) show TBS ( = ) show TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( [) show TBIS (x/y) show TBS (]) show -3400 800 moveto TBIS (b) show TBS ( = ) show TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( [) show TBIS (z/y) show TBS (]) show -3400 550 moveto TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( = 1) show -3400 300 moveto TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( = -0,4) show -3400 050 moveto TBIS (n) show TBS ( = ) show TELi xchartl get show 0 1 39 {/i exch def %i=0,39 Xi i get Yi i get 0.0001 add div %(a-an)Y XK YK 0.0001 add div sub Yi i get mul fakt mul Zi i get Yi i get 0.0001 add div %(b-bn)Y ZK YK 0.0001 add div sub 0.4 mul neg Yi i get mul fakt mul i 0 eq {moveto} if i 1 ge i 38 le and {lineto} if i 39 eq {lineto closepath stroke} if } for %i=0,39 XW YW 0.0001 add div %(a-an)YW XK YK 0.0001 add div sub YW mul fakt mul ZW YW 0.0001 add div %(b-an)YW ZK YK 0.0001 add div sub 0.4 mul neg YW mul fakt mul 90 0 360 arc stroke 0 080 add 0 080 add moveto TBS TELi xchartl get show TBIS 0 1 2 {/j exch def %j=0,2 j 0 eq {/i 0 def} if %Cm-Rm j 1 eq {/i 6 def} if %Gm-Mm j 2 eq {/i 10 def} if %Ym-Bm /AnY Xi i get Yi i get 0.0001 add div %(a-an)Y XK YK 0.0001 add div sub Yi i get mul fakt mul def /BnY Zi i get Yi i get 0.0001 add div %(b-bn)Y ZK YK 0.0001 add div sub 0.4 mul neg Yi i get mul fakt mul def j 0 eq {AnY 100 add BnY 000 add moveto (C) show imshow 1 0 0 0 setcmykcolor} if %Cm j 1 eq {AnY 100 add BnY 000 add moveto (G) show imshow 1 0 1 0 setcmykcolor} if %Gm j 2 eq {AnY 100 sub BnY 300 sub moveto (Y) show imshow 0 0 1 0 setcmykcolor} if %Ym newpath AnY BnY 90 0 360 arc fill 0 setgray newpath AnY BnY 90 0 360 arc stroke /AnY XK Xi i get sub YK Yi i get sub 0.0001 add div %(a-an)Y XK YK 0.0001 add div sub YK Yi i get sub mul fakt mul def /BnY ZK Zi i get sub YK Yi i get sub 0.0001 add div %(b-bn)Y ZK YK 0.0001 add div sub 0.4 mul neg YK Yi i get sub mul fakt mul def j 0 eq {AnY 100 add BnY 000 add moveto (R) show imshow 0 1 1 0 setcmykcolor} if %Rm j 1 eq {AnY 450 sub BnY 100 sub moveto (M) show imshow 0 1 0 0 setcmykcolor} if %Mm j 2 eq {AnY 100 sub BnY 200 add moveto (B) show imshow 1 1 0 0 setcmykcolor} if %Bm newpath AnY BnY 90 0 360 arc fill 0 setgray newpath AnY BnY 90 0 360 arc stroke } for %j=0,2 } if %xchart4=4 xchart4 5 eq {%xchart4=5 %only for (a*,b*) /D13 1 3 div def /fakt 40 3 div def /a2 1 XW div D13 exp def /b2 1 ZW div D13 exp -0.4 mul def 3500 2000 translate %for text and grafic -3400 1800 moveto TBIS (XYZ) show TBL (w) show TBS (=) show XK cvsshow5 (, ) show YK cvsshow5 (, ) show ZK cvsshow2 -3400 1550 moveto TBIS (a*) show TBS ( = 500 \050) show TBIS (a') show TBS ( - ) show TBIS (a') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (\051 ) show TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 1300 moveto TBIS (b*) show TBS ( = 500 \050) show TBIS (b') show TBS ( - ) show TBIS (b') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (\051 ) show TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 1050 moveto TBIS (a) show TBS ( = ) show TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( [) show TBIS (x/y) show TBS (]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 800 moveto TBIS (b) show TBS ( = ) show TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( [) show TBIS (z/y) show TBS (]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 550 moveto TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS (=[1/) show TBIS (X) show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto TBS (=) show a2 cvsshow4 -3400 300 moveto TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS (=-[1/) show TBIS (Z) show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto TBS (=) show b2 cvsshow5 -3400 050 moveto TBIS (n) show TBS ( = ) show TELi xchartl get show 0 1 39 {/i exch def %i=0,39 Xi i get Yi i get 0.0001 add div %500(a'-a'n)Y**(1/3) D13 exp a2 mul %a'= a2 (x/y)**(1/3) XK YK 0.0001 add div D13 exp a2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul Zi i get Yi i get 0.0001 add div %500(b'-b'n)Y**(1/3) D13 exp b2 mul %b' = b2 (z/y)**(1/3) ZK YK 0.0001 add div D13 exp b2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul i 0 eq {moveto} if i 1 ge i 38 le and {lineto} if i 39 eq {lineto closepath stroke} if } for %i=0,39 XW YW 0.0001 add div D13 exp a2 mul XK YK 0.0001 add div D13 exp a2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul ZW YW 0.0001 add div D13 exp b2 mul ZK YK 0.0001 add div D13 exp b2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul 90 0 360 arc stroke XW YW 0.0001 add div D13 exp a2 mul XK YK 0.0001 add div D13 exp a2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul 200 sub ZW YW 0.0001 add div D13 exp b2 mul ZK YK 0.0001 add div D13 exp b2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul 250 sub moveto TBS TELi xchartl get show TBIS 0 1 2 {/j exch def %j=0,2 j 0 eq {/i 0 def} if %Cm-Rm j 1 eq {/i 6 def} if %Gm-Mm j 2 eq {/i 10 def} if %Ym-Bm /AnY Xi i get Yi i get 0.0001 add div %500(a'-a'n)Y**(1/3) D13 exp a2 mul %a'= a2 (x/y)**(1/3) XK YK 0.0001 add div D13 exp a2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def /BnY Zi i get Yi i get 0.0001 add div %500(b'-b'n)Y**(1/3) D13 exp b2 mul %b'= b2 (x/y)**(1/3) ZK YK 0.0001 add div D13 exp b2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def j 0 eq {AnY 100 add BnY 000 add moveto (C) show imshow 1 0 0 0 setcmykcolor} if %Cm j 1 eq {AnY 100 add BnY 000 add moveto (G) show imshow 1 0 1 0 setcmykcolor} if %Gm j 2 eq {AnY 100 add BnY 250 sub moveto (Y) show imshow 0 0 1 0 setcmykcolor} if %Ym newpath AnY BnY 90 0 360 arc fill 0 setgray newpath AnY BnY 90 0 360 arc stroke /AnY XK Xi i get sub YK Yi i get sub 0.0001 add div D13 exp a2 mul XK YK 0.0001 add div D13 exp a2 mul sub YK Yi i get sub 0.0001 add D13 exp mul fakt mul 500 mul def /BnY ZK Zi i get sub YK Yi i get sub 0.0001 add div D13 exp b2 mul ZK YK 0.0001 add div D13 exp b2 mul sub YK Yi i get sub 0.0001 add D13 exp mul fakt mul 500 mul def j 0 eq {AnY 100 add BnY 000 add moveto (R) show imshow 0 1 1 0 setcmykcolor} if %Rm j 1 eq {AnY 450 sub BnY 100 sub moveto (M) show imshow 0 1 0 0 setcmykcolor} if %Mm j 2 eq {AnY 200 sub BnY 200 add moveto (B) show imshow 1 1 0 0 setcmykcolor} if %Bm newpath AnY BnY 90 0 360 arc fill 0 setgray newpath AnY BnY 90 0 360 arc stroke } for %j=0,2 -3500 -2000 translate %for text and grafic } if %xchart4=5 xchart4 6 eq {%xchart4=6 %only for (a*,b*) with const. for D65 /D13 1 3 div def /fakt 40 3 div def /a2 0.2191 def /b2 -0.08376 def 3500 2000 translate %for text and grafic -3400 1800 moveto TBIS (XYZ) show TBL (w) show TBS (=) show XK cvsshow5 (, ) show YK cvsshow5 (, ) show ZK cvsshow2 -3400 1550 moveto TBIS (a*) show TBS ( = 500 \050) show TBIS (a') show TBS ( - ) show TBIS (a') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (\051 ) show TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 1300 moveto TBIS (b*) show TBS ( = 500 \050) show TBIS (b') show TBS ( - ) show TBIS (b') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (\051 ) show TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 1050 moveto TBIS (a') show TBS ( = ) show TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( [) show TBIS (x/y) show TBS (]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 800 moveto TBIS (b') show TBS ( = ) show TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( [) show TBIS (z/y) show TBS (]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 550 moveto TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS (=[1/) show TBIS (X) show 0 -50 rmoveto TBL (D65) show 0 50 rmoveto TBS (]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto TBS (=) show a2 cvsshow4 -3400 300 moveto TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS (=-[1/) show TBIS (Z) show 0 -50 rmoveto TBL (D65) show 0 50 rmoveto TBS (]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto TBS (=) show b2 cvsshow5 -3400 050 moveto TBIS (n) show TBS ( = ) show TELi xchartl get show 0 1 39 {/i exch def %i=0,39 Xi i get Yi i get 0.0001 add div %500(a'-a'n)Y**(1/3) D13 exp a2 mul %a'= a2 (x/y)**(1/3) XK YK 0.0001 add div D13 exp a2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul Zi i get Yi i get 0.0001 add div %500(b'-b'n)Y**(1/3) D13 exp b2 mul %b'= b2 (z/y)**(1/3) ZK YK 0.0001 add div D13 exp b2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul i 0 eq {moveto} if i 1 ge i 38 le and {lineto} if i 39 eq {lineto closepath stroke} if } for %i=0,39 XW YW 0.0001 add div D13 exp a2 mul XK YK 0.0001 add div D13 exp a2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul ZW YW 0.0001 add div D13 exp b2 mul ZK YK 0.0001 add div D13 exp b2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul 90 0 360 arc stroke XW YW 0.0001 add div %500(a'-a'n)Y**(1/3) D13 exp a2 mul %a'= a2 (x/y)**(1/3) XK YK 0.0001 add div D13 exp a2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul 080 add ZW YW 0.0001 add div %500(b'-b'n)Y**(1/3) D13 exp b2 mul %a'= a2 (x/y)**(1/3) ZK YK 0.0001 add div D13 exp b2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul 080 add moveto TBS TELi xchartl get show TBIS 0 1 2 {/j exch def %j=0,2 j 0 eq {/i 0 def} if %Cm-Rm j 1 eq {/i 6 def} if %Gm-Mm j 2 eq {/i 10 def} if %Ym-Bm /AnY Xi i get Yi i get 0.0001 add div D13 exp a2 mul XK YK 0.0001 add div D13 exp a2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def /BnY Zi i get Yi i get 0.0001 add div D13 exp b2 mul ZK YK 0.0001 add div D13 exp b2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def j 0 eq {AnY 100 add BnY 000 add moveto (C) show imshow 1 0 0 0 setcmykcolor} if %Cm j 1 eq {AnY 100 add BnY 000 add moveto (G) show imshow 1 0 1 0 setcmykcolor} if %Gm j 2 eq {AnY 100 add BnY 250 sub moveto (Y) show imshow 0 0 1 0 setcmykcolor} if %Ym newpath AnY BnY 90 0 360 arc fill 0 setgray newpath AnY BnY 90 0 360 arc stroke /AnY XK Xi i get sub YK Yi i get sub 0.0001 add div D13 exp a2 mul XK YK 0.0001 add div D13 exp a2 mul sub YK Yi i get sub 0.0001 add D13 exp mul fakt mul 500 mul def /BnY ZK Zi i get sub YK Yi i get sub 0.0001 add div D13 exp b2 mul ZK YK 0.0001 add div D13 exp b2 mul sub YK Yi i get sub 0.0001 add D13 exp mul fakt mul 500 mul def j 0 eq {AnY 100 add BnY 000 add moveto (R) show imshow 0 1 1 0 setcmykcolor} if %Rm j 1 eq {AnY 450 sub BnY 100 sub moveto (M) show imshow 0 1 0 0 setcmykcolor} if %Mm j 2 eq {AnY 200 sub BnY 200 add moveto (B) show imshow 1 1 0 0 setcmykcolor} if %Bm newpath AnY BnY 90 0 360 arc fill 0 setgray newpath AnY BnY 90 0 360 arc stroke } for %j=0,2 -3500 -2000 translate %for text and grafic } if %xchart4=6 xchart4 7 eq {%xchart4=7 %only for (a*,b*)D65 /D13 1 3 div def /D11 1 def /D16 1 6 div def /fakt 40 3 div def /a2 1 15 div def /b2 1 12 div neg def 3500 2000 translate %for text and grafic -3400 1800 moveto TBIS (XYZ) show TBL (w) show TBS (=) show XK cvsshow5 (, ) show YK cvsshow5 (, ) show ZK cvsshow2 -3400 1550 moveto TBIS (a*) show TBS ( = 500 \050) show TBIS (a') show TBS ( - ) show TBIS (a') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (\051 ) show TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 1300 moveto TBIS (b*) show TBS ( = 500 \050) show TBIS (b') show TBS ( - ) show TBIS (b') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (\051 ) show TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 1050 moveto TBIS (a) show TBS ( = ) show TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( [) show TBIS (x/y) show TBS ( + 1]) show -3400 800 moveto TBIS (b) show TBS ( = ) show TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( [) show TBIS (z/y) show TBS ( + 1/6 ]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto TBS -3400 550 moveto TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( = 1/15 = ) show a2 cvsshow5 -3400 300 moveto TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( = -1/12 = ) show b2 cvsshow5 -3400 050 moveto TBIS (n) show TBS ( = ) show TELi xchartl get show 0 1 39 {/i exch def %i=0,39 Xi i get Yi i get 0.0001 add div %500(a'-a'n)Y**(1/3) D11 add a2 mul %a'=(x/y+1)/15 XK YK 0.0001 add div D11 add a2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul Zi i get Yi i get 0.0001 add div %500(b'-b'n)Y**(1/3) D16 add D13 exp b2 mul %b'=-[(z/y +1/6)**(1/3)]/12 ZK YK 0.0001 add div D16 add D13 exp b2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul i 0 eq {moveto} if i 1 ge i 38 le and {lineto} if i 39 eq {lineto closepath stroke} if } for %i=0,39 XW YW 0.0001 add div D11 add a2 mul XK YK 0.0001 add div D11 add a2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul ZW YW 0.0001 add div D16 add D13 exp b2 mul ZK YK 0.0001 add div D16 add D13 exp b2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul 90 0 360 arc stroke XW YW 0.0001 add div D11 add a2 mul XK YK 0.0001 add div D11 add a2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul 080 add ZW YW 0.0001 add div D16 add D13 exp b2 mul ZK YK 0.0001 add div D16 add D13 exp b2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul 080 add moveto TBS TELi xchartl get show TBIS 0 1 2 {/j exch def %j=0,2 j 0 eq {/i 0 def} if %Cm-Rm j 1 eq {/i 6 def} if %Gm-Mm j 2 eq {/i 10 def} if %Ym-Bm /AnY Xi i get Yi i get 0.0001 add div %500(a'-a'n)Y**(1/3) D11 add a2 mul %a'=(x/y+1)/15 XK YK 0.0001 add div D11 add a2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def /BnY Zi i get Yi i get 0.0001 add div %500(b'-b'n)Y**(1/3) D16 add D13 exp b2 mul %b'=-[(z/y +1/6)**(1/3)]/12 ZK YK 0.0001 add div D16 add D13 exp b2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def j 0 eq {AnY 100 add BnY 000 add moveto (C) show imshow 1 0 0 0 setcmykcolor} if %Cm j 1 eq {AnY 100 add BnY 000 add moveto (G) show imshow 1 0 1 0 setcmykcolor} if %Gm j 2 eq {AnY 000 add BnY 250 sub moveto (Y) show imshow 0 0 1 0 setcmykcolor} if %Ym newpath AnY BnY 90 0 360 arc fill 0 setgray newpath AnY BnY 90 0 360 arc stroke /AnY XK Xi i get sub YK Yi i get sub 0.0001 add div D11 add a2 mul XK YK 0.0001 add div D11 add a2 mul sub YK Yi i get sub 0.0001 add D13 exp mul fakt mul 500 mul def /BnY ZK Zi i get sub YK Yi i get sub 0.0001 add div D16 add D13 exp b2 mul ZK YK 0.0001 add div D16 add D13 exp b2 mul sub YK Yi i get sub 0.0001 add D13 exp mul fakt mul 500 mul def j 0 eq {AnY 100 add BnY 000 add moveto (R) show imshow 0 1 1 0 setcmykcolor} if %Rm j 1 eq {AnY 450 sub BnY 100 sub moveto (M) show imshow 0 1 0 0 setcmykcolor} if %Mm j 2 eq {AnY 200 sub BnY 200 add moveto (B) show imshow 1 1 0 0 setcmykcolor} if %Bm newpath AnY BnY 90 0 360 arc fill 0 setgray newpath AnY BnY 90 0 360 arc stroke } for %j=0,2 -3500 -2000 translate %for text and grafic } if %xchart4=7 showpage grestore %} for %xchartl=0,7 } for %xchart4=0,7 %} for %xcolorl=0,1 %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 23 %line 449 %!PS-Adobe-3.0 EPSF-3.0 TE011-4N %%BoundingBox: 70 83 228 206 %START PDFDE011.EPS /pdfmark14 where {pop} {userdict /pdfmark14 /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/TE01/) /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:2013090112000) /ModDate (D:2013090112000) /DOCINFO pdfmark14 [ /View [ /FitB ] /DOCVIEW pdfmark14 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /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 /Courier findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Courier-ISOL1 exch definefont pop /Courier-Oblique findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierI-ISOL1 exch definefont pop /Courier-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierB-ISOL1 exch definefont pop /Courier-BoldOblique findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierBI-ISOL1 exch definefont pop /TG {350 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TL {160 /Times-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIL {160 /TimesI-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBL {160 /TimesB-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIL {160 /TimesBI-ISOL1 FS} bind def /SG {350 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SK {240 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SL {160 /Symbol FS} bind def %%EndProlog gsave %lanindL2.EPS START 20000505 /lanind 0 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showea {1 lanind le {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 1 def /lanind2 1 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 0 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % colorm 0 eq deintp 0 eq and {/Txx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def} if %colorm=1, deintp=1 xchart 0 eq {/Txx (-) def} if %always independent of intended output gsave %LANINDL2 END /cvishow {cvi 6 string cvs show ( ) show} def /cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show ( ) show} def /cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show ( ) show} def /cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show ( ) show} def /cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show ( ) show} def /cvsshow5 {100000 mul cvi 0.00001 mul 9 string cvs show ( ) show} def /SD65 80 array def %380 bis 775 mit deltalambda=05 /SD50 80 array def %380 bis 775 mit deltalambda=05 /SP40 80 array def %380 bis 775 mit deltalambda=05 /SA00 80 array def %380 bis 775 mit deltalambda=05 /SE00 80 array def %380 bis 775 mit deltalambda=05 /SC00 80 array def %380 bis 775 mit deltalambda=05 /SP00 80 array def %380 bis 775 mit deltalambda=05 /SQ00 80 array def %380 bis 775 mit deltalambda=05 /SDAK 80 array def %380 bis 775 mit deltalambda=05 /RA 80 array def %380 bis 770 nm /F2 240 array def %3 x 80 Daten fuer Bereich 380 bis 770nm /F2N 240 array def %normiert auf Y=100 fuer D65 und 10nm /F10 240 array def %3 x 80 Daten fuer Bereich 380 bis 770nm %C %C LITERATURQUELLEN LICHTARTEN %C SA,SC,SD65, CIE-DOKUMENT NR.15 FARBMESSUNG, 1971 %C TABELLE 1.1.1, SEITE 81 %C SD55,SD75, CIE-DOKUMENT NR.15 FARBMESSUNG, 1971 %C TABELLE 1.1.4, SEITE 85 %C LINEAR INTERPOLIERT VON 5 ZU 5NM %C SG,SP,SXE, DIN 5033, BLATT 7 ,SEITE 8-9 %C AUSGABE 1966 /SD65 %80 data 5 nm [50.0 52.3 54.6 68.7 82.8 87.1 91.5 92.5 93.4 90.1 86.7 95.8 104.9 110.9 117.0 117.4 117.8 116.3 114.9 115.4 115.9 112.4 108.8 109.1 109.4 108.6 107.8 106.3 104.8 106.2 107.7 106.0 104.4 104.2 104.0 102.0 100.0 98.2 96.3 96.1 95.8 92.2 88.7 89.3 90.0 89.8 89.6 88.6 87.7 85.5 83.3 83.5 83.7 81.9 80.0 80.1 80.2 81.2 82.3 80.3 78.3 74.0 69.7 70.7 71.6 73.0 74.3 68.0 61.6 65.7 69.9 72.5 75.1 69.3 63.6 55.0 46.4 56.6 66.8 65.1] def /SD50 %80 data 5 nm CIE 15.3, Seite 30; aus JE540-1N.PS [24.5 27.2 29.9 39.6 49.3 52.9 56.5 58.3 60.0 58.9 57.8 66.3 74.8 81.0 87.2 88.9 90.6 91.0 91.4 93.2 95.1 93.5 92.0 93.8 95.7 96.2 96.6 96.8 97.1 99.6 102.1 101.4 100.8 101.5 102.3 101.2 100.0 98.9 97.7 98.3 98.9 96.2 93.5 95.6 97.7 98.5 99.3 99.2 99.0 97.4 95.7 97.3 98.9 97.3 95.7 96.9 98.2 100.6 103.0 101.1 99.1 93.3 87.4 89.5 91.6 92.2 92.9 84.9 76.9 81.7 86.5 89.5 92.6 85.4 78.2 68.0 57.7 70.3 82.9 0.0] def %0.0 not used /SA00 %80 data 5 nm CIE 15.3 Seite 30; aus JE540-1N.PS [9.80 10.90 12.09 13.35 14.71 16.15 17.68 19.29 20.99 22.79 24.67 26.64 28.70 30.85 33.09 35.41 37.81 40.30 42.87 45.52 48.24 51.04 53.91 56.85 59.86 62.93 66.06 69.25 72.50 75.79 79.13 82.52 85.95 89.41 92.91 96.44 100.00 103.58 107.18 110.80 114.44 118.08 121.73 125.39 129.04 132.70 136.35 139.99 143.62 147.24 150.84 154.42 157.98 161.52 165.03 168.51 171.96 175.38 178.77 182.12 185.43 188.70 191.93 195.12 198.26 201.36 204.41 207.41 210.36 213.27 216.12 218.92 221.67 224.36 227.00 229.59 232.12 234.59 237.01 239.37 0.0] def %0.0 not used % AUS BILDPLA.FOR aus vrbam/wrpos:KRPROG.FOR, 5987-6023 5.10.92 %C PROGRAMM ZUR BERECHNUNG DER RELATIVEN SPEKTRALEN STRAHLUNGSVERTEI- %C LUNG EINES HOHLRAUMSTRAHLERS ALS FUNKTION DER WELLENLAENGE LAMDA %C BEI GEGEBENER TEMPERATUR T %C VERWENDETE VARIABLE %C T TEMPERATUR %C C2 PLANCKSCHE KONSTANTE (=1.4388 CM K (1967)) %C LAMDA(I) WELLENLAENGE %C S(I) STRAHLUNGSVERTEILUNG DES HOHLRAUMSTRAHLERS %C %C LITERATUR OFFIZIELLE EMPFEHLUNGEN DER CIE,DEUTSCHE VERSION, %C CA. 1969, SEITE 21 UND TABELLE 1.1.1 %C %SDP4 80 array def %380 bis 775 mit deltalambda=05 % DO 50 I=1,54 % 50 S(I)=100. % 1*(560./FLOAT(LAMDA(I)))**5 % 2*(EXP(C2/(560.*10.**(-7)*T))-1.) % 3/(EXP(C2/(FLOAT(LAMDA(I))*10.**(-7)*T))-1.) %new CIE 15.3:2004, Eq. (3.1) page 2 %S(I) = [100{560/lambda}**5] [exp{(c2*10**7)/(TNC*560 )} - 1] % /[exp{(c2*10**7)/(TNC*lambda)} - 1] % exp = e {...} = 2.71 {...} %/TNC 2848 def %NLA /TNC 4000 def /EE 2.718281 def %e=mac pocket calculator /C2 1.4350000 10 7 exp mul def /lamd 80 array def 0 1 79 {%i=0,79 /i exch def /lambda 380 i 5 mul add def lamd i lambda put /E1 560 lambda div 5 exp def /E4 C2 TNC 560 mul div def /E5 C2 TNC lambda mul div def /E6 EE E4 exp def /E7 EE E5 exp def SP40 i E1 100 mul E6 1 sub E7 1 sub div mul put } for %i=0,79 /xex 10 2 exp def /yex EE 2 exp def /SE00 %80 data 5 nm [100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0] def %0.0 not used /SC00 %80 data 5 nm [ 33.00 39.92 47.40 55.17 63.30 71.81 80.60 89.53 98.10 105.80 112.40 117.75 121.50 123.45 124.00 123.60 123.10 123.30 123.80 124.09 123.90 122.92 120.70 116.90 112.10 106.98 102.30 98.81 96.90 96.78 98.00 99.94 102.10 103.95 105.20 105.67 105.30 104.11 102.30 100.15 97.80 95.43 93.20 91.22 89.70 88.83 88.40 88.19 88.10 88.06 88.00 87.86 87.80 87.99 88.20 88.20 87.90 87.22 86.30 85.30 84.00 82.21 80.20 78.24 76.30 74.36 72.40 70.40 68.30 66.30 64.40 62.80 61.50 60.20 59.20 58.50 58.10 58.00 58.20 58.50 ] def %0.0 not used 0 1 79 {/i exch def %i=0,79 /lamda 380 i 5 mul add def SP00 i SE00 i get lamda 560 div mul put SQ00 i SE00 i get 1120 lamda sub 560 div mul put } for %i=0,79 %C LITERATURQUELLEN SPEKTRALWERTE %C F2 CIE-DOKUMENT NR.15 FARBMESSUNG, 1971 %C TABELLE 2.1, SEITE 93-102 /F2 %3x80 data [.001368 .002236 .004243 .007650 .01431 .02319 .04351 .07763 .1344 .2148 .2839 .3285 .3483 .3481 .3362 .3187 .2908 .2511 .1954 .1421 .09564 .05795 .03201 .01470 .0049 .0024 .0093 .0291 .06327 .1096 .1655 .2257 .2904 .3597 .4334 .5121 .5945 .6784 .7621 .8425 .9163 .9786 1.0263 1.0567 1.0622 1.0456 1.0026 .9384 .8544 .7514 .6424 .5419 .4479 .3608 .2835 .2187 .1649 .1212 .0874 .0636 .04677 .03290 .02270 .01584 .01136 .00811 .00579 .004109 .002899 .002049 .001440 .0009999 .0006901 .000476 .0003323 .0002348 .0001662 .0001174 .00008308 .00005871 .000039 .000064 .00012 .000217 .000396 .00064 .00121 .00218 .004 .0073 .0116 .01684 .023 .0298 .0380 .048 .06 .0739 .09098 .1126 .139 .1693 .208 .2586 .323 .4073 .503 .6082 .71 .7932 .862 .9149 .954 .9803 .995 1.0 .995 .9786 .952 .9154 .870 .8163 .757 .6949 .631 .5668 .503 .4412 .381 .321 .265 .217 .175 .1382 .107 .0816 .061 .04458 .032 .0232 .017 .01192 .00821 .005723 .004102 .002929 .002091 .001484 .001047 .00074 .00052 .0003611 .0002492 .0001719 .00012 .0000848 .00006 .0000424 .00003 .0000212 .00645 .01055 .02005 .03621 .06785 .1102 .2074 .3713 .6456 1.0391 1.3856 1.623 1.7471 1.7826 1.7721 1.7441 1.6692 1.5281 1.2876 1.0419 .8130 .6162 .4652 .3533 .2720 .2123 .1582 .1117 .07825 .05725 .04216 .02984 .0203 .0134 .00875 .00575 .0039 .00275 .0021 .0018 .00165 .0014 .0011 .0010 .0008 .0006 .00034 .00024 .00019 .0001 .00005 .00003 .00002 .00001 % 26*0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %10 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %20 0.0 0.0 0.0 0.0 0.0 0.0 %26 ] def /F10 %3x80 data [.00016 .0006624 .002362 .007242 .01911 .0434 .08474 .1406 .2045 .2647 .3147 .3577 .3837 .3867 .3707 .343 .3023 .2541 .1956 .1323 .08051 .04107 .01617 .005132 .003816 .01544 .03746 .07136 .1177 .173 .2365 .3042 .3768 .4516 .5298 .6161 .7052 .7938 .8787 .9512 1.0142 1.0743 1.1185 1.1343 1.124 1.0891 1.0305 .9507 .8563 .7549 .6475 .5351 .4316 .3437 .2683 .2043 .1526 .1122 .08126 .05793 .04085 .02862 .019941 .01384 .0100 .006605 .004552 .003145 .002175 .001506 .001045 .0007274 .0005083 .0003564 .000251 .0001777 .0001264 .00009015 .00006453 .00004634 .00001736 .00007156 .0002534 .0007685 .002004 .004509 .008756 .01446 .02139 .0295 .03868 .0496 .06208 .0747 .08946 .1063 .1282 .1528 .1852 .2199 .2536 .2977 .3391 .3954 .4608 .5314 .6067 .6857 .7618 .8233 .8752 .9238 .962 .9822 .9918 .9991 .9973 .9824 .9555 .9152 .8689 .8256 .7774 .7203 .6583 .5939 .528 .4618 .3981 .3395 .2835 .2282 .1798 .1402 .1076 .08119 .06028 .0441 .0318 .0226 .0159 .01113 .007749 .0053751 .0037177 .002565 .001768 .001222 .0008462 .0005864 .0004074 .000284 .0001987 .0001395 .00009843 .00006982 .00004974 .00003554 .00002549 .00001834 .0007048 .002928 .01048 .03234 .08601 .1971 .3894 .6568 .9725 1.2825 1.5535 1.7985 1.9673 2.0273 1.9948 1.9007 1.7454 1.5549 1.3176 1.0302 .7721 .5701 .4152 .3024 .2185 .1592 .112 .08225 .06071 .04305 .03045 .02058 .01368 .007918 .003988 .001091 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %10 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %20 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %30 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %40 0.0 0.0 0.0 0.0 %44 ] def %calculation of transformation data /FARBE 27 array def /FARBE [(R) (m) ( 561_770) %00 (Y) (m) ( 495_770) %01 (G) (m) ( 475_573) %02 (C) (m) ( 380_561) %03 (B) (m) ( 380_495) %04 (M) (m) ( 573_475) %05 (N) (0) ( 380_770) %06 (W) (0) ( 380_770) %07 (W) (1) ( 380_770) %08 ] def %/FARBE [(R) (m) ( 565_770) %00 % (Y) (m) ( 495_770) %01 % (G) (m) ( 475_575) %02 % (C) (m) ( 380_565) %03 % (B) (m) ( 380_495) %04 % (M) (m) ( 575_475) %05 % (N) (0) ( 380_770) %06 % (W) (0) ( 380_770) %07 % (W) (1) ( 380_770) %08 % ] def /xshift 10 array def %max 6 device + 4 elementary /yshift 10 array def /colori 10 array def /RX0 640 array def %8x80 /RX0 [ %(%Rm 00 565_770) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 0000 0000 0000 0000 0000 0000 0000 0500 1000 1000 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %(%Ym 01 495_770) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 0000 0000 0000 0500 1000 1000 1000 1000 1000 1000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %(%Gm 02 475_575) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 0000 0000 0000 0000 0000 0000 0000 0000 0000 0500 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 1000 1000 1000 1000 1000 1000 1000 1000 1000 0500 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %(%Cm 04 380_565) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 1000 1000 1000 1000 1000 1000 1000 0500 0000 0000 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %(%Bm 05 380_495) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 1000 1000 1000 0500 0000 0000 0000 0000 0000 0000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %(%Mm 06 575_475) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 1000 1000 1000 1000 1000 1000 1000 1000 1000 0500 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 0000 0000 0000 0000 0000 0000 0000 0000 0000 0500 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %(%N0(r=0,001) 09 380_770) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 %(%W1(r=1,000) 10 380_770) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %(%W1(r=1,000) 10 380_770) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 ] def /xcolorl xcolor def %0 1 1 {/xcolorl exch def %xcolorl=0,1 xcolorl 1 eq {0 1 239 {/i exch def %i=0,239 F2 i F10 i get put } for %i=0,239 } if /YKSUM 0 def %For CIE Illuminant E 0 1 79 {/i exch def %i=0,1,79 /YKSUM YKSUM F2 80 i add get add def } for %i=0,1,79 /F2N 240 array def 0 1 79 {/i exch def %i=0,1,79 F2N 00 i add F2 00 i add get YKSUM div 100 mul put F2N 80 i add F2 80 i add get YKSUM div 100 mul put F2N 160 i add F2 160 i add get YKSUM div 100 mul put } for %i=0,1,79 /FXN 80 array def %FXN 0 = F2N imax /FYN 80 array def /FZN 80 array def %defines FXN, FYN, FZN 0 to 79 0 1 79 {/i exch def %i=0,79 FXN i F2N 000 i add get put FYN i F2N 080 i add get put FZN i F2N 160 i add get put } for %i=0,79 %special wavelength range with complementary colours for E? /FXD 63 array def /FYD 63 array def /FZD 63 array def /DOW 63 array def 00 1 60 {/i exch def %i=0,60 %range 400..700nm FXD i FXN 005 i add get put FYD i FYN 005 i add get put FZD i FZN 005 i add get put DOW i 400 i 5 mul add put %range 400 to 700 } for %i=0,60 %for interpolation FXD 61 FXD 60 get put FYD 61 FYD 60 get put FZD 61 FZD 60 get put FXD 62 FXD 60 get put FYD 62 FYD 60 get put FZD 62 FZD 60 get put /FAD 63 array def /FBD 63 array def /FCD 63 array def 20 setlinewidth /xdel 1005 def /ydel 395 def /x0 050 def /x1 -150 def /TELi 8 array def /TELi [(D65) (D50) (P40) (A00) (E00) (C00) (P00) (Q00)] def %7 illumin. /Xi 79 array def %79 spectral or max 6 device colour + 4 elementary colours /Yi 79 array def /Zi 79 array def /XANi 79 array def /YANi 79 array def /ZANi 79 array def 3 1 3 {/xchart4 exch def %xchart4=0,7 /xchartl xchart def %0 1 7 {/xchartl exch def %xchartl=0,7 %/K 0 def %for normalization 1 /K 1 def %for normalization 0,886 gsave 5 /Times-ISOL1 FS /cvishow {cvi 6 string cvs show} def 75 85 moveto lanind cvishow (-) show colorm cvishow deintp cvishow xcolorl cvishow xchart cvishow pchart cvishow colsep cvishow (-L) show pmetam cvishow 5 /Times-ISOL1 FS 180 85 moveto (SE731-4N/TE011-) show xchart4 1 add cvishow xchart 0 ge {(N) show} if (_) show xchartl 1 add cvishow %xchart 0 eq {(N) show} % {deintp colorm 2 mul add cvishow} ifelse 72 90 translate 0.010 MM dup scale 25 setlinewidth 0 0 0 0 setcmyk_olvcolor 0 0 moveto 5400 0 rlineto 0 4000 rlineto 5400 neg 0 rlineto closepath fill 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath clip 0 0 0 1 setcmyk_olvcolor 0 0 moveto 5400 0 rlineto 0 4000 rlineto 5400 neg 0 rlineto closepath stroke %calculation of XW,YW,ZW for illuminant D65, D50, ... 0 1 79 {/i exch def %i=0,79 SDAK i xchartl 0 eq {SD65 i get} if xchartl 1 eq {SD50 i get} if xchartl 2 eq {SP40 i get} if xchartl 3 eq {SA00 i get} if xchartl 4 eq {SE00 i get} if xchartl 5 eq {SC00 i get} if xchartl 6 eq {SP00 i get} if xchartl 7 eq {SQ00 i get} if put } for %i=0,79 /YKSUM 0 def 0 1 79 {/i exch def %i=0,1,79 /YKSUM YKSUM SDAK i get F2 80 i add get mul add def } for %i=0,1,79 0 1 79 {/i exch def %i=0,1,79 F2N 00 i add SDAK i get F2 00 i add get mul YKSUM div 100 mul put F2N 80 i add SDAK i get F2 80 i add get mul YKSUM div 100 mul put F2N 160 i add SDAK i get F2 160 i add get mul YKSUM div 100 mul put } for %i=0,1,79 %XW,YW,ZW for white /XW 0 def /YW 0 def /ZW 0 def 0 1 079 {/i exch def %i=0,79 /XW XW F2N 00 i add get add def /YW YW F2N 80 i add get add def /ZW ZW F2N 160 i add get add def } for %i=0,79 /SUMW XW YW add ZW add def %for D65, D50, P40, A00, E00 /XANW XW SUMW div def /YANW YW SUMW div def /ZANW ZW SUMW div def /AANW XW YW 0.0001 add div def /BANW ZW YW 0.0001 add div 0.4 mul neg def 0 1 62 {/i exch def %i=0,62 FAD i FXD i get put FBD i FYD i get put FCD i FZD i get put } for %i=0,62 % FXU(1)=FF(2)*U(3)-FF(3)*U(2) % FXU(2)=FF(3)*U(1)-FF(1)*U(3) % FXU(3)=FF(1)*U(2)-FF(2)*U(1) % SUBROUTINE DOWEL (F,FXU,IMAX,IO) % DIMENSION F(99,3),FXU(3) % I=1 % T2=F(1,1)*FXU(1)+F(1,2)*FXU(2)+F(1,3)*FXU(3) % IF(T2) 1,1,4 % 1 T1=T2 % I=I+1 % T2=F(I,1)*FXU(1)+F(I,2)*FXU(2)+F(I,3)*FXU(3) % IF(T2) 1,1,2 % 2 IF(T1) 3,3,1 % 3 IO=I-1 % RETURN % 4 T1=F(IMAX,1)*FXU(1)+F(IMAX,2)*FXU(2)+F(IMAX,3)*FXU(3) % IF(T1) 5,5,1 % 5 IO=IMAX % RETURN % END %********************************************************* /proc_ABC_KNP_FWERTiX {%BEG proc_ABC_KNP_FWERT %input FAD,FBD,FCD, KNP %output FWERTiX/Y/Z (i=1,4) kNP 1 ge {/FWERT1X FAD kNP 1 sub get def /FWERT1Y FBD kNP 1 sub get def /FWERT1Z FCD kNP 1 sub get def} {/FWERT1X FAD 0 get def %again 400nm for i=0 /FWERT1Y FBD 0 get def /FWERT1Z FCD 0 get def} ifelse /FWERT2X FAD kNP get def /FWERT2Y FBD kNP get def /FWERT2Z FCD kNP get def /FWERT3X FAD kNP 1 add get def /FWERT3Y FBD kNP 1 add get def /FWERT3Z FCD kNP 1 add get def /FWERT4X FAD kNP 2 add get def /FWERT4Y FBD kNP 2 add get def /FWERT4Z FCD kNP 2 add get def } bind def %END proc_ABC_KNP_FWERTiX %********************************************************* /proc_XIE_TN1 {%BEG proc_XIE_TN1 %input XIE, FWERTiX/Y/Z (i=1,4) %output TN1 /A1N XIE 1 XIE sub mul XIE 2 sub mul 6 div def /A2N XIE 1 add XIE 1 sub mul XIE 2 sub mul 0.5 mul def /A3N XIE 1 add XIE mul 2 XIE sub mul 0.5 mul def /A4N XIE 1 add XIE mul XIE 1 sub mul 6 div def /FNX A1N FWERT1X mul A2N FWERT2X mul add A3N FWERT3X mul add A4N FWERT4X mul add def /FNY A1N FWERT1Y mul A2N FWERT2Y mul add A3N FWERT3Y mul add A4N FWERT4Y mul add def /FNZ A1N FWERT1Z mul A2N FWERT2Z mul add A3N FWERT3Z mul add A4N FWERT4Z mul add def /TNX FNX FXU1 mul FNY FXU2 mul add FNZ FXU3 mul add def } bind def %END proc_XIE_TN1 %********************************************************* /WEL1 60 array def %irregular definition /WEL2 60 array def %irregular definition %0 1 2 3 4 5 6 7 8 9 /WEL1 [405 435 450 460 465 470 475 480 485 490 495 500 510 520 530 540 545 550 555 560 ] def 0 1 19 {/k exch def %k=0,19 %wavelength 405..700nm /j WEL1 k get 400 sub 5 idiv def /LP k def /LPP 20.5 k add def /FF1 FXD j get def %start at 405..700nm /FF2 FYD j get def /FF3 FZD j get def /U1 XW def /U2 YW def /U3 ZW def /FXU1 FF2 U3 mul FF3 U2 mul sub def /FXU2 FF3 U1 mul FF1 U3 mul sub def /FXU3 FF1 U2 mul FF2 U1 mul sub def /INP -1 def /IPN -1 def %assumption jump from TN to TP from negativ to positiv 0 1 60 {/i exch def %i=1,60 /TN FAD i get FXU1 mul FBD i get FXU2 mul add FCD i get FXU3 mul add def /TP FAD i 1 add get FXU1 mul FBD i 1 add get FXU2 mul add FCD i 1 add get FXU3 mul add def TN 0 le TP 0 gt and {/INP i def exit} if } for %i=1,60 0 1 60 {/i exch def %i=1,60 /TN FAD i get FXU1 mul FBD i get FXU2 mul add FCD i get FXU3 mul add neg def /TP FAD i 1 add get FXU1 mul FBD i 1 add get FXU2 mul add FCD i 1 add get FXU3 mul add neg def TN 0 le TP 0 gt and {/IPN i def exit} if } for %i=1,60 %********************************************************* /kNP INP def kNP 0 ge {%kNP>=0 proc_ABC_KNP_FWERTiX %input FAD,KNP, output FWERTiXYZ (i=1,4) /XIE1 0 def %start values TN=0 for XIE1, TP>0 for XIE2 /XIE2 1 def 0 1 9 {/mk exch def %mk=0,9 /XIE XIE1 XIE2 add 0.5 mul def proc_XIE_TN1 %input XIE, ouput TN1 TNX 0 le {/XIE1 XIE def /TN1 TNX def} {/XIE2 XIE def /TP1 TNX def} ifelse } for %mk=0,9 /XIE XIE1 XIE2 add 0.5 mul def /DOWXIE1 DOW INP get DOW INP 1 add get DOW INP get sub XIE mul add def /XIENP XIE def } if %kNP>=0 %********************************************************* /kNP IPN def kNP 0 ge {%kNP>=0 proc_ABC_KNP_FWERTiX %input FAD,KNP, output FWERTiXYZ (i=1,4) /XIE1 0 def %start values TN=0 for XIE1, TP>0 for XIE2 /XIE2 1 def /FXU1 FXU1 neg def /FXU2 FXU2 neg def /FXU3 FXU3 neg def 0 1 9 {/mk exch def %mk=0,9 /XIE XIE1 XIE2 add 0.5 mul def proc_XIE_TN1 %input XIE, ouput TN1 TNX 0 le {/XIE1 XIE def /TN1 TNX def} {/XIE2 XIE def /TP1 TNX def} ifelse } for %mk=0,9 /XIE XIE1 XIE2 add 0.5 mul def /DOWXIE2 DOW IPN get DOW IPN 1 add get DOW IPN get sub XIE mul add def /XIEPN XIE def } if %kNP>=0 %********************************************************* 0 1 79 {/i exch def %i=0,79 RA i 0 put } for %i=0,79 INP -1 eq {/i1 0 def} %380nm {/i1 INP 5 add def} ifelse %405..700nm IPN -1 eq {/i2 79 def} %770nm {/i2 IPN 5 add def} ifelse %405..700nm i2 i1 ge {%i1i2 i1 1 79 {/i exch def %i=i1,79 RA i 1 put } for %i=i1,79 0 1 i2 {/i exch def %i=0,i2 RA i 1 put } for %i=0,i2 } ifelse %i1>i2 %correction i2 i1 ge {%i1i2 RA i1 0.5 put RA i2 0.5 XIEPN 0.5 sub add put } ifelse %i1>i2 %*************************************************** /X 0 def /Y 0 def /Z 0 def 0 1 079 {/i exch def %i=0,79 /X X F2N 00 i add get RA i get mul add def /Y Y F2N 80 i add get RA i get mul add def /Z Z F2N 160 i add get RA i get mul add def } for %i=0,79 /SUM X Y add Z add def /XAN X SUM 0.0001 add div def /YAN Y SUM 0.0001 add div def /ZAN Z SUM 0.0001 add div def %************************************************* 0 0 0 1 setcmyk_olvcolor 0 1 1 {/Icom exch def %Icom=0,1 Icom 0 eq {%Icom=0,1 Xi k X put Yi k Y put Zi k Z put XANi k XAN put YANi k YAN put ZANi k ZAN put }%Icom=0 {%Icom=1 /kP 20 k add def Xi kP XW X sub put Yi kP YW Y sub put Zi kP ZW Z sub put /SUMi Xi kP get Yi kP get add Zi kP get add def XANi kP Xi kP get SUMi 0.0001 add div put YANi kP Yi kP get SUMi 0.0001 add div put ZANi kP Zi kP get SUMi 0.0001 add div put } ifelse %Icom=1 } for %Icom=0,1 K 1 eq {%K=1 Xi k Xi k get 0.8859 mul put Yi k Yi k get 0.8859 mul put Zi k Zi k get 0.8859 mul put Xi kP Xi kP get 0.8859 mul put Yi kP Yi kP get 0.8859 mul put Zi kP Zi kP get 0.8859 mul put } if %K=1 } for %k=0,19 %********************************************************************** %XW,YW,ZW and XK,YK,ZK for white /XW 0 def /YW 0 def /ZW 0 def 0 1 079 {/i exch def %i=0,79 /XW XW F2N 00 i add get add def /YW YW F2N 80 i add get add def /ZW ZW F2N 160 i add get add def } for %i=0,79 K 0 eq {%K=0 /XK XW def /YK YW def /ZK ZW def }%K=0 {%K=1 /XK XW 0.8859 mul def /YK YW 0.8859 mul def /ZK ZW 0.8859 mul def } ifelse %K=1 /SUMK XK YK add ZK add def %for D65, D50, P40, A00, E00 /XANK XK SUMK div def /YANK YK SUMK div def /ZANK ZK SUMK div def /LP LP 1 add def /xtexti 96 array def /ytexti 96 array def /xtexti [ %T00 T10 T20 T30 T40 T41 T50 T51 T60 T61 T70 T71 %0 1 2 3 4 5 6 7 8 9 10 11 1800 1800 1800 2800 2800 4000 2800 4000 2800 4000 2800 4000 %0 0600 0600 0600 0600 0600 1800 0600 1800 0600 1800 0600 1800 %1 0700 0700 0700 0700 0700 1900 0700 1900 0700 1900 0700 1900 %2 0700 0700 0700 0700 0700 1900 0700 1900 0700 1900 0700 1900 %3 0100 0100 0100 0100 0100 1300 0100 1300 0100 1300 0100 1300 %4 0100 0100 0100 0100 0100 1300 0100 1300 0100 1300 0100 1300 %5 0100 0100 0100 0100 0100 1300 0100 1300 0100 1300 0100 1300 %6 0100 0100 0100 0100 0100 1300 0100 1300 0100 1300 0100 1300 %7 ] def /ytexti [ 3800 3580 3360 3140 2920 2920 2700 2700 2480 2480 2260 2260 %0 0500 0280 0060 1380 1160 1160 0940 0940 0720 0720 0000 0000 %1 0500 0280 0060 1380 1160 1160 0940 0940 0720 0720 0000 0000 %2 0500 0280 0060 1380 1160 1160 0940 0940 0720 0720 0000 0000 %3 0500 0280 0060 1380 1160 1160 0940 0940 0720 0720 0000 0000 %4 0500 0280 0060 1380 1160 1160 0940 0940 0720 0720 0000 0000 %5 0500 0280 0060 1380 1160 1160 0940 0940 0720 0720 0000 0000 %6 0500 0280 0060 1380 1160 1160 0940 0940 0720 0720 0000 0000 %7 ] def 0 0 0 1 setcmyk_olvcolor /xchart12 xchart4 12 mul def TBS xchart4 1 ge { %xchart4 >=1 xtexti xchart12 3 add get ytexti xchart12 3 add get 220 add moveto xchart4 1 eq {(LABCab 77) show} if xchart4 2 eq {(CIELAB 76) show} if xchart4 3 eq {(LABJNDS 87) show} if xchart4 4 eq {(LABCab 85) show} if xchart4 5 eq {(CIELAB 76) show} if xchart4 6 eq {(CIELAB D65) show} if xchart4 7 eq {(LABHNU1 79) show} if } if %xchart4 >=1 xtexti xchart12 3 add get ytexti xchart12 3 add get moveto TBS (Name und Spektralbereich) showde %0TE011-7 00581 (Name and spectral range) showen %1TE011-7 00581 (Nombre y gama espectral) showes %2TE011-7 00581 (Nom et la gamma spectrale) showfr %3TE011-7 00581 (Nome e la gamma spettrale) showit %4TE011-7 00581 (Name and spectral range) showjp %5TE011-7 00581 xtexti xchart12 4 add get ytexti xchart12 4 add get moveto TBIS FARBE 0 get show TBL 0 -40 rmoveto FARBE 1 get show 0 40 rmoveto TBIS FARBE 2 get show xtexti xchart12 5 add get ytexti xchart12 5 add get moveto TBIS FARBE 3 get show TBL 0 -40 rmoveto FARBE 4 get show 0 40 rmoveto TBIS FARBE 5 get show xtexti xchart12 6 add get ytexti xchart12 6 add get moveto TBIS FARBE 6 get show TBL 0 -40 rmoveto FARBE 7 get show 0 40 rmoveto TBIS FARBE 8 get show xtexti xchart12 7 add get ytexti xchart12 7 add get moveto TBIS FARBE 9 get show TBL 0 -40 rmoveto FARBE 10 get show 0 40 rmoveto TBIS FARBE 11 get show xtexti xchart12 8 add get ytexti xchart12 8 add get moveto TBIS FARBE 12 get show TBL 0 -40 rmoveto FARBE 13 get show 0 40 rmoveto TBIS FARBE 14 get show xtexti xchart12 9 add get ytexti xchart12 9 add get moveto TBIS FARBE 15 get show TBL 0 -40 rmoveto FARBE 16 get show 0 40 rmoveto TBIS FARBE 17 get show %xtexti xchart12 10 add get ytexti xchart12 10 add get moveto %TBIS FARBE 18 get show %TBL 0 -40 rmoveto FARBE 19 get show 0 40 rmoveto %TBIS FARBE 20 get show %xtexti xchart12 11 add get ytexti xchart12 11 add get moveto %TBIS FARBE 21 get show %TBL 0 -40 rmoveto FARBE 22 get show 0 40 rmoveto %TBIS FARBE 23 get show TBS 0 0 0 1 setcmyk_olvcolor xtexti xchart12 0 add get ytexti xchart12 0 add get moveto TBIS (Ostwald) show TBS (\255Optimalfarben (o)) showde %0TE011-7 02581 ( optimal colours (o)) showen %1TE011-7 02581 ( colores \363ptimos (o)) showes %2TE011-7 02581 ( couleurs optimales (o)) showfr %3TE011-7 02581 ( colori ottimi (o)) showit %4TE011-7 02581 ( optimal colours (o)) showjp %5TE011-7 02581 TBIS (, Y) show TBL 0 -60 rmoveto (W) show 0 60 rmoveto TBS K 0 eq {(=100) show}{(=88,6) show} ifelse xtexti xchart12 1 add get ytexti xchart12 1 add get moveto (6 von maximalem (m)) showde %0TE011-7 03581 (6 of maximum (m)) showen %1TE011-7 03581 (6 de m\341ximo (m)) showes %2TE011-7 03581 (6 de la maximum (m)) showfr %3TE011-7 03581 (6 di massimo (m)) showit %4TE011-7 03581 (6 of maximum (m)) showjp %5TE011-7 03581 TBIS ( C) show TBL 0 -60 rmoveto (AB) show 0 60 rmoveto TBS ( f\374r ) showde %0TE011-7 03581 ( for ) showen %1TE011-7 03581 ( bajo ) showes %2TE011-7 03581 ( pour ) showfr %3TE011-7 03581 ( per ) showit %4TE011-7 03581 ( for ) showjp %5TE011-7 03581 TELi xchartl get show xtexti xchart12 2 add get ytexti xchart12 2 add get moveto xchart4 0 eq {%xchart4=0 (in der Normfarbtafel) showde %0TE011-7 04581 (in the chromaticity diagram) showen %1TE011-7 04581 (en el diagrama de chromaticidad) showes %2TE011-7 04581 (dans le diagramme de chromaticit\351) showfr %3TE011-7 04581 (nel diagramma di cromaticit\340) showit %4TE011-7 04581 (in the chromaticity diagram) showjp %5TE011-7 04581 TBIS ( (x, y)) show } if %xchart4=0 xchart4 1 eq {%xchart4=1 (in der Farbtafel) showde %0TE011-7 05581 (in the chromaticity diagram) showen %1TE011-7 05581 (en el diagrama de chromaticidad) showes %2TE011-7 05581 (dans le diagramme de chromaticit\351) showfr %3TE011-7 05581 (nel diagramma di cromaticit\340) showit %4TE011-7 05581 (in the chromaticity diagram) showjp %5TE011-7 05581 TBIS ( (a, b)) show } if %xchart4=1 xchart4 2 eq {%xchart4=2 (in der Farbarbtafel) showde %0TE011-7 06581 (in the chromaticity diagram) showen %1TE011-7 06581 (en el diagrama de chromaticidad) showes %2TE011-7 06581 (dans le diagramme de chromaticit\351) showfr %3TE011-7 06581 (nel diagramma di cromaticit\340) showit %4TE011-7 06581 (in the chromaticity diagram) showjp %5TE011-7 06581 TBIS ( (a', b')) show } if %xchart4=2 xchart4 3 eq {%xchart4=3 (in der Farbarbtafel) showde %0TE011-7 07581 (in the chromaticity diagram) showen %1TE011-7 07581 (en el diagrama de chromaticidad) showes %2TE011-7 07581 (dans le diagramme de chromaticit\351) showfr %3TE011-7 07581 (nel diagramma di cromaticit\340) showit %4TE011-7 07581 (in the chromaticity diagram) showjp %5TE011-7 07581 TBIS ( (a", b")) show } if %xchart4=3 xchart4 4 eq {%xchart4=4 (in Buntwertdiagramm) showde %0TE011-7 08581 (in chromatic value diagram) showen %1TE011-7 08581 (en el diagrama valor crom\341tico) showes %2TE011-7 08581 (dans la valeur chromatique le diagramme) showfr %3TE011-7 08581 (nel diagramma di valore cromatico) showit %4TE011-7 08581 (in chromatic value diagram) showjp %5TE011-7 08581 TBIS ( (A, B)) show } if %xchart4=4 xchart4 5 eq {%xchart4=5 (in Buntheitsdiagram) showde %0TE011-7 09581 (in CIELAB diagram) showen %1TE011-7 09581 (en el diagrama CIELAB) showes %2TE011-7 09581 (dans le diagramme de CIELAB) showfr %3TE011-7 09581 (nel diagramma di CIELAB) showit %4TE011-7 09581 (in CIELAB diagram) showjp %5TE011-7 09581 TBIS ( (a*, b*)) show } if %xchart4=5 xchart4 6 eq {%xchart4=6 (in Buntheitsdiagram) showde %0TE011-7 10581 (in chroma diagram) showen %1TE011-7 10581 (en el diagrama croma) showes %2TE011-7 10581 (dans le diagramme de chroma) showfr %3TE011-7 10581 (nel diagramma di chroma) showit %4TE011-7 10581 (in chroma diagram) showjp %5TE011-7 10581 TBIS ( \050a*) show 0 -50 rmoveto TBL (D65) show 0 50 rmoveto TBS (, ) show TBIS (b*) show 0 -50 rmoveto TBL (D65) show 0 50 rmoveto TBS (\051) show } if %xchart4=6 xchart4 7 eq {%xchart4=7 (in Buntheitsdiagram) showde %0TE011-7 11581 (in chroma diagram) showen %1TE011-7 11581 (en el diagrama croma) showes %2TE011-7 11581 (dans le diagramme de chroma) showfr %3TE011-7 11581 (nel diagramma di chroma) showit %4TE011-7 11581 (in chroma diagram) showjp %5TE011-7 11581 TBIS ( (A*, B*)) show } if %xchart4=7 xchart4 0 eq {%xchart4=0 600 400 translate 0 0 moveto 4000 0 rlineto stroke 0 0 moveto 0 3200 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten TBS 0 -50 moveto 0 100 rlineto stroke 800 -50 moveto 0 100 rlineto stroke 1600 -50 moveto 0 100 rlineto stroke 2400 -50 moveto 0 100 rlineto stroke 3200 -50 moveto 0 100 rlineto stroke 4000 -50 moveto 0 100 rlineto stroke -100 -300 moveto (0,0) show 700 -300 moveto (0,2) show 1500 -300 moveto (0,4) show 2300 -300 moveto (0,6) show 3100 -300 moveto (0,8) show 3900 -300 moveto (1,0) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 800 moveto 100 0 rlineto stroke -50 1600 moveto 100 0 rlineto stroke -50 2400 moveto 100 0 rlineto stroke -50 3200 moveto 100 0 rlineto stroke -450 -80 moveto (0,0) show -450 720 moveto (0,2) show -450 1520 moveto (0,4) show -450 2320 moveto (0,6) show -450 3120 moveto (0,8) show TIM -300 2800 moveto (y) show TIM 4200 150 moveto (x) show TBIS 2600 150 moveto (CIE 1931) show -600 -400 translate %1000 02 01 16 01 .00 .0020 ******************** %ANF PROZSPEP3.FOR: MULYA= 4000 BEO=02 xy-Farbtafel IXY0: 600 400 600 400 translate 693 19 moveto 693 19 692 19 690 19 curveto 688 19 685 20 681 23 curveto 675 27 667 34 657 43 curveto 644 55 626 70 603 90 curveto 575 118 542 159 496 231 curveto 438 347 365 530 274 802 curveto 181 1179 93 1650 32 2153 curveto 15 2619 55 3000 155 3248 curveto 297 3335 456 3304 618 3223 curveto 771 3126 918 3017 1063 2897 curveto 1206 2769 1349 2635 1492 2497 curveto 1634 2358 1776 2218 1915 2080 curveto 2049 1946 2179 1817 2300 1696 curveto 2411 1585 2508 1489 2592 1405 curveto 2663 1336 2720 1278 2765 1233 curveto 2802 1197 2831 1168 2856 1143 curveto 2876 1123 2892 1107 2903 1096 curveto 2913 1086 2919 1080 2924 1075 curveto 2927 1072 2930 1069 2933 1066 curveto 2936 1063 2937 1062 2938 1061 curveto 2938 1061 2939 1060 2744 971 curveto 2261 748 2040 643 1908 582 curveto 1819 541 1758 512 1708 490 curveto 1660 468 1612 445 1558 420 curveto 1495 391 1419 356 1320 309 curveto 1184 247 986 155 693 19 curveto stroke 0 0 0 1 setcmyk_olvcolor 693 19 30 0 360 arc fill % 400 681 23 30 0 360 arc fill % 425 626 70 30 0 360 arc fill % 450 438 347 30 0 360 arc fill % 475 32 2153 30 0 360 arc fill % 500 456 3304 30 0 360 arc fill % 525 1206 2769 30 0 360 arc fill % 550 1915 2080 30 0 360 arc fill % 575 2508 1489 30 0 360 arc fill % 600 2802 1197 30 0 360 arc fill % 625 2903 1096 30 0 360 arc fill % 650 2930 1069 30 0 360 arc fill % 675 2938 1061 30 0 360 arc fill % 700 2261 748 30 0 360 arc fill %500c 1708 490 30 0 360 arc fill %525c 1419 356 30 0 360 arc fill %550c 0 0 0 1 setcmyk_olvcolor 693 19 30 0 360 arc stroke % 400 681 23 30 0 360 arc stroke % 425 626 70 30 0 360 arc stroke % 450 438 347 30 0 360 arc stroke % 475 32 2153 30 0 360 arc stroke % 500 456 3304 30 0 360 arc stroke % 525 1206 2769 30 0 360 arc stroke % 550 1915 2080 30 0 360 arc stroke % 575 2508 1489 30 0 360 arc stroke % 600 2802 1197 30 0 360 arc stroke % 625 2903 1096 30 0 360 arc stroke % 650 2930 1069 30 0 360 arc stroke % 675 2938 1061 30 0 360 arc stroke % 700 2261 748 30 0 360 arc stroke %500c 1708 490 30 0 360 arc stroke %525c 1419 356 30 0 360 arc stroke %550c % 1250 1316 30 0 360 arc fill %D65 0 0 0 1 setcmyk_olvcolor TBIS 693 375 sub 19 250 sub moveto (400) show % 681 500 sub 23 100 sub moveto (425) show % 626 500 sub 70 100 sub moveto (450) show 438 350 sub 347 200 sub moveto (475) show 32 450 sub 2153 100 sub moveto (500) show 456 100 add 3304 000 add moveto (525) show 1206 100 add 2769 000 add moveto (550) show 1915 080 sub 2080 100 add moveto (575) show 2508 100 add 1489 000 add moveto (600) show 2802 100 add 1197 100 add moveto (625) show % 2903 200 sub 1096 100 add moveto (650) show % 2930 200 sub 1069 100 add moveto (675) show 2938 100 add 1061 100 sub moveto (700) show 2261 100 add 748 200 sub moveto (500c,E) show 1708 100 add 490 200 sub moveto (525c,E) show 1419 000 add 356 250 sub moveto (550c,E) show % 1250 100 add 1316 100 sub moveto (D65 ) show -600 -400 translate %ENDE: 1 } if %xchart4=0 xchart4 1 eq {%xchart4=1 500 3200 translate 0 400 moveto 4000 0 rlineto stroke 0 400 moveto 0 -3600 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten TBS 0 350 moveto 0 100 rlineto stroke 800 350 moveto 0 100 rlineto stroke 1600 350 moveto 0 100 rlineto stroke 2400 350 moveto 0 100 rlineto stroke 3200 350 moveto 0 100 rlineto stroke 4000 350 moveto 0 100 rlineto stroke -150 500 moveto (-0,8) show 650 500 moveto (0,0) show 1450 500 moveto (0,8) show 2250 500 moveto (1,6) show 3050 500 moveto (2,4) show 3850 500 moveto (3,2) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 -800 moveto 100 0 rlineto stroke -50 -1600 moveto 100 0 rlineto stroke -50 -2400 moveto 100 0 rlineto stroke -50 -3200 moveto 100 0 rlineto stroke -450 -100 moveto ( 0,0) show -450 -900 moveto (-0,8) show -450 -1700 moveto (-1,6) show %-450 -2500 moveto (-2,4) show -175 -3050 moveto 90 rotate TBIK (b) show TBK (=-0,40) show TBIK (z/y) show -90 rotate 3650 100 moveto TBIK (a=x/y) show -500 -3200 translate %1000 02 01 16 01-.03**************************************** %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 1300 3200 translate % 36136 -68535 moveto % 36136 -68535 36234 -68875 35958 -68561 curveto % 35610 -68128 33600 -64560 29424 -56936 curveto % 24474 -47779 19507 -38551 15143 -30384 curveto % 11681 -23927 8847 -18653 6639 -14534 curveto % 4846 -11128 3397 -8271 2147 -5661 curveto 1261 -3701 moveto 1261 -3701 688 -2339 342 -1455 curveto 153 -894 56 -546 15 -336 curveto 5 -208 18 -125 47 -73 curveto 89 -44 138 -28 191 -19 curveto 246 -13 304 -8 366 -5 curveto 435 -3 512 -2 597 -1 curveto 693 -1 800 0 920 0 curveto 1053 0 1198 0 1355 0 curveto 1520 0 1683 0 1844 0 curveto 1993 0 2126 0 2242 0 curveto 2340 0 2424 0 2497 0 curveto 2559 0 2610 0 2649 0 curveto 2680 0 2703 0 2718 0 curveto 2731 0 2741 0 2751 0 curveto 2760 0 2764 0 2767 0 curveto 2769 0 2770 0 2824 -116 curveto 3023 -529 3168 -817 3275 -1036 curveto 3357 -1209 3430 -1349 3482 -1469 curveto 3545 -1597 3622 -1746 3704 -1922 curveto 3817 -2156 3983 -2496 4262 -3058 curveto % 4786 -4149 6341 -7346 35775 -67850 curveto stroke 0 0 0 1 setcmyk_olvcolor % 36136 -68535 30 0 360 arc fill % 400 % 29424 -56936 30 0 360 arc fill % 425 % 8847 -18653 30 0 360 arc fill % 450 1261 -3701 30 0 360 arc fill % 475 15 -336 30 0 360 arc fill % 500 138 -28 30 0 360 arc fill % 525 435 -3 30 0 360 arc fill % 550 920 0 30 0 360 arc fill % 575 1683 0 30 0 360 arc fill % 600 2340 0 30 0 360 arc fill % 625 2649 0 30 0 360 arc fill % 650 2741 0 30 0 360 arc fill % 675 2769 0 30 0 360 arc fill % 700 3023 -529 30 0 360 arc fill %500c 3482 -1469 30 0 360 arc fill %525c 3983 -2496 30 0 360 arc fill %550c 0 0 0 1 setcmyk_olvcolor % 36136 -68535 30 0 360 arc stroke % 400 % 29424 -56936 30 0 360 arc stroke % 425 % 8847 -18653 30 0 360 arc stroke % 450 1261 -3701 30 0 360 arc stroke % 475 15 -336 30 0 360 arc stroke % 500 138 -28 30 0 360 arc stroke % 525 435 -3 30 0 360 arc stroke % 550 920 0 30 0 360 arc stroke % 575 1683 0 30 0 360 arc stroke % 600 2340 0 30 0 360 arc stroke % 625 2649 0 30 0 360 arc stroke % 650 2741 0 30 0 360 arc stroke % 675 2769 0 30 0 360 arc stroke % 700 3023 -529 30 0 360 arc stroke %500c 3482 -1469 30 0 360 arc stroke %525c 3983 -2496 30 0 360 arc stroke %550c % 950 -435 30 0 360 arc fill %D65 0 0 0 1 setcmyk_olvcolor TBIS % 36136 500 sub -68535 100 sub moveto (400) show % 29424 500 sub -56936 100 sub moveto (425) show % 8847 500 sub -18653 100 sub moveto (450) show % 1261 500 sub -3701 100 sub moveto (475) show 15 400 sub -336 100 sub moveto (500) show % 138 200 sub -28 100 add moveto (525) show 435 200 sub -3 100 add moveto (550) show % 920 200 sub 0 100 add moveto (575) show 1683 200 sub 0 100 add moveto (600) show 2340 200 sub 0 100 add moveto (625) show % 2649 200 sub 0 100 add moveto (650) show % 2741 200 sub 0 100 add moveto (675) show 2769 100 add 0 150 sub moveto (700) show 3023 100 add -529 100 sub moveto (500c,E) show 3482 800 sub -1469 050 sub moveto (525c,E) show % 3983 500 sub -2496 100 sub moveto (550c,E) show % 950 100 add -435 100 sub moveto (D65 ) show -1300 -3200 translate %ENDE: 2 } if %xchart4=1 xchart4 2 eq {%xchart4=2 600 3200 translate 0 400 moveto 4400 0 rlineto stroke 0 400 moveto 0 -3600 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten TBS 000 350 moveto 0 100 rlineto stroke 0800 350 moveto 0 100 rlineto stroke 1600 350 moveto 0 100 rlineto stroke 2400 350 moveto 0 100 rlineto stroke 3200 350 moveto 0 100 rlineto stroke 4000 350 moveto 0 100 rlineto stroke -200 500 moveto (0,00) show 600 500 moveto (0,06) show 1400 500 moveto (0,12) show 2200 500 moveto (0,18) show 3000 500 moveto (0,24) show 3800 500 moveto (0,30) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 -800 moveto 100 0 rlineto stroke -50 -1600 moveto 100 0 rlineto stroke -50 -2400 moveto 100 0 rlineto stroke -50 -3200 moveto 100 0 rlineto stroke -575 -100 moveto ( 0,00) show -575 -900 moveto (-0,06) show -575 -1700 moveto (-0,12) show -575 -2500 moveto (-0,18) show TIM -380 -1300 moveto (b') show 4300 250 moveto (a') show -600 -3200 translate %1000 02 01 16 01 .00 .0020 ******************** %ANF PROZSPEP3.FOR: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 400 3200 translate 9657 -6202 moveto 9657 -6202 9666 -6212 9642 -6203 curveto 9610 -6190 9426 -6080 9018 -5830 curveto 8481 -5499 7863 -5120 7227 -4729 curveto 6628 -4367 6041 -4019 5490 -3698 curveto 4943 -3383 4391 -3065 3769 -2701 curveto 3156 -2344 2578 -2012 2043 -1717 curveto 1565 -1460 1123 -1239 723 -1054 curveto 527 -898 772 -759 1060 -634 curveto 1304 -535 1510 -464 1685 -408 curveto 1832 -356 1965 -309 2091 -267 curveto 2214 -230 2337 -200 2460 -176 curveto 2585 -157 2712 -145 2841 -139 curveto 2972 -138 3103 -133 3233 -126 curveto 3359 -126 3475 -120 3582 -113 curveto 3676 -98 3756 -91 3823 -88 curveto 3878 -75 3924 -64 3963 -57 curveto 3995 -54 4022 -46 4042 0 curveto 4057 0 4069 0 4077 0 curveto 4083 0 4088 0 4093 0 curveto 4097 0 4100 0 4101 0 curveto 4102 0 4103 0 4129 -740 curveto 4224 -1226 4290 -1417 4338 -1533 curveto 4374 -1614 4405 -1674 4427 -1723 curveto 4454 -1771 4486 -1825 4520 -1884 curveto 4565 -1958 4630 -2056 4736 -2200 curveto 4923 -2435 5407 -2946 9625 -6181 curveto stroke 0 0 0 1 setcmyk_olvcolor 9657 -6202 30 0 360 arc fill % 400 9018 -5830 30 0 360 arc fill % 425 6041 -4019 30 0 360 arc fill % 450 3156 -2344 30 0 360 arc fill % 475 723 -1054 30 0 360 arc fill % 500 1510 -464 30 0 360 arc fill % 525 2214 -230 30 0 360 arc fill % 550 2841 -139 30 0 360 arc fill % 575 3475 -120 30 0 360 arc fill % 600 3878 -75 30 0 360 arc fill % 625 4042 0 30 0 360 arc fill % 650 4088 0 30 0 360 arc fill % 675 4102 0 30 0 360 arc fill % 700 4224 -1226 30 0 360 arc fill %500c 4427 -1723 30 0 360 arc fill %525c 4630 -2056 30 0 360 arc fill %550c 0 0 0 1 setcmyk_olvcolor 9657 -6202 30 0 360 arc stroke % 400 9018 -5830 30 0 360 arc stroke % 425 6041 -4019 30 0 360 arc stroke % 450 3156 -2344 30 0 360 arc stroke % 475 723 -1054 30 0 360 arc stroke % 500 1510 -464 30 0 360 arc stroke % 525 2214 -230 30 0 360 arc stroke % 550 2841 -139 30 0 360 arc stroke % 575 3475 -120 30 0 360 arc stroke % 600 3878 -75 30 0 360 arc stroke % 625 4042 0 30 0 360 arc stroke % 650 4088 0 30 0 360 arc stroke % 675 4102 0 30 0 360 arc stroke % 700 4224 -1226 30 0 360 arc stroke %500c 4427 -1723 30 0 360 arc stroke %525c 4630 -2056 30 0 360 arc stroke %550c % 2872 -1148 30 0 360 arc fill %D65 0 0 0 1 setcmyk_olvcolor TBIS % 9657 500 sub -6202 100 sub moveto (400) show % 9018 500 sub -5830 100 sub moveto (425) show % 6041 500 sub -4019 100 sub moveto (450) show 3156 400 sub -2344 100 sub moveto (475) show 723 250 sub -1054 250 sub moveto (500) show 1510 200 sub -464 150 add moveto (525) show 2214 200 sub -230 100 add moveto (550) show 2841 200 sub -139 100 add moveto (575) show 3475 200 sub -120 100 add moveto (600) show % 3878 200 sub -75 100 add moveto (625) show % 4042 200 sub 0 100 add moveto (650) show % 4088 200 sub 0 100 add moveto (675) show 4102 050 add 0 100 sub moveto (700) show 4224 050 add -1226 000 sub moveto (500c,E) show 4427 010 sub -1723 100 add moveto (525c,E) show % 4630 100 add -2056 100 sub moveto (550c,E) show % 2872 050 add -1148 000 sub moveto (D65 ) show -400 -3200 translate %ENDE: 3 } if %xchart4=2 xchart4 3 eq {%xchart4=3 600 3200 translate 0 400 moveto 4400 0 rlineto stroke 0 400 moveto 0 -3500 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten TBS 0 350 moveto 0 100 rlineto stroke 800 350 moveto 0 100 rlineto stroke 1600 350 moveto 0 100 rlineto stroke 2400 350 moveto 0 100 rlineto stroke 3200 350 moveto 0 100 rlineto stroke 4000 350 moveto 0 100 rlineto stroke -250 500 moveto (-0,6) show 650 500 moveto (0,0) show 1450 500 moveto (0,6) show 2250 500 moveto (1,2) show 3050 500 moveto (1,8) show 3850 500 moveto (2,4) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 -800 moveto 100 0 rlineto stroke -50 -1600 moveto 100 0 rlineto stroke -50 -2400 moveto 100 0 rlineto stroke -50 -3200 moveto 100 0 rlineto stroke -450 -100 moveto ( 0,0) show -450 -900 moveto (-0,6) show -450 -1700 moveto (-1,2) show -450 -2500 moveto (-1,8) show TBIK -450 -2900 moveto (b") show TBS -120 -125 rmoveto (s) show 120 125 rmoveto TBIK 4050 200 moveto (a") show TBS -120 -125 rmoveto (s) show 120 125 rmoveto TBIK -600 -3200 translate %1000 02 **************************************** %ANF PROZSPEP.FOR: MULYA= 1333 BEO=02 a"b" LABJND 1985 IXY0: 700 3200 700 800 add 3200 translate 3789 -3170 moveto 3789 -3170 3789 -3170 3788 -3170 curveto 3787 -3170 3779 -3166 3757 -3155 curveto 3724 -3138 3673 -3113 3603 -3079 curveto 3514 -3037 3394 -2982 3239 -2915 curveto 3028 -2826 2734 -2704 2265 -2508 curveto 1626 -2234 957 -1880 645 -1481 curveto 507 -1078 443 -720 417 -455 curveto 411 -308 419 -223 437 -171 curveto 464 -144 496 -130 533 -121 curveto 573 -115 616 -111 664 -108 curveto 721 -107 787 -105 867 -105 curveto 963 -104 1081 -104 1227 -104 curveto 1397 -104 1561 -104 1716 -104 curveto 1858 -104 1981 -104 2090 -104 curveto 2180 -104 2254 -104 2313 -104 curveto 2360 -103 2397 -103 2429 -103 curveto 2455 -103 2476 -103 2491 -103 curveto 2503 -103 2512 -103 2517 -103 curveto 2522 -103 2526 -103 2530 -103 curveto 2533 -103 2535 -103 2536 -103 curveto 2536 -103 2537 -103 2556 -214 curveto 2623 -700 2668 -1007 2700 -1196 curveto 2723 -1324 2742 -1416 2756 -1488 curveto 2772 -1560 2791 -1636 2811 -1717 curveto 2837 -1813 2873 -1933 2929 -2093 curveto 3019 -2313 3211 -2648 3788 -3169 curveto stroke 1 setgray 3789 -3170 30 0 360 arc fill % 400 3757 -3155 30 0 360 arc fill % 425 3394 -2982 30 0 360 arc fill % 450 1626 -2234 30 0 360 arc fill % 475 417 -455 30 0 360 arc fill % 500 496 -130 30 0 360 arc fill % 525 721 -107 30 0 360 arc fill % 550 1227 -104 30 0 360 arc fill % 575 1981 -104 30 0 360 arc fill % 600 2360 -103 30 0 360 arc fill % 625 2491 -103 30 0 360 arc fill % 650 2526 -103 30 0 360 arc fill % 675 2536 -103 30 0 360 arc fill % 700 2623 -700 30 0 360 arc fill %500c 2756 -1488 30 0 360 arc fill %525c 2873 -1933 30 0 360 arc fill %550c 0 setgray 3789 -3170 30 0 360 arc stroke % 400 3757 -3155 30 0 360 arc stroke % 425 3394 -2982 30 0 360 arc stroke % 450 1626 -2234 30 0 360 arc stroke % 475 417 -455 30 0 360 arc stroke % 500 496 -130 30 0 360 arc stroke % 525 721 -107 30 0 360 arc stroke % 550 1227 -104 30 0 360 arc stroke % 575 1981 -104 30 0 360 arc stroke % 600 2360 -103 30 0 360 arc stroke % 625 2491 -103 30 0 360 arc stroke % 650 2526 -103 30 0 360 arc stroke % 675 2536 -103 30 0 360 arc stroke % 700 2623 -700 30 0 360 arc stroke %500c 2756 -1488 30 0 360 arc stroke %525c 2873 -1933 30 0 360 arc stroke %550c 1266 -580 30 0 360 arc fill %D65 0 setgray TBIS 3789 200 sub -3170 200 add moveto (400) show % 3757 600 sub -3155 100 sub moveto (425) show % 3394 600 sub -2982 100 sub moveto (450) show 1626 050 sub -2234 150 add moveto (475) show 417 430 sub -455 100 sub moveto (500) show 496 400 sub -130 50 add moveto (525) show 721 200 sub -107 100 add moveto (550) show 1227 200 sub -104 100 add moveto (575) show 1981 200 sub -104 100 add moveto (600) show % 2360 200 sub -103 100 add moveto (625) show % 2491 200 sub -103 100 add moveto (650) show % 2526 200 sub -103 100 add moveto (675) show 2536 100 add -103 moveto (700) show 2623 100 add -700 100 sub moveto (500c) show 2756 100 add -1488 100 sub moveto (525c) show % 2873 100 add -1933 100 sub moveto (550c) show % 1266 100 add -580 100 sub moveto (D65 ) show 700 800 add neg -3200 translate %ENDE: 3 } if %xchart4=3 xchart4 4 ge xchart4 7 le and {%4>=xchart4<=7 3500 2000 translate %axis and scales 0 0 0 1 setcmyk_olvcolor -2250 0 moveto 3950 0 rlineto stroke 0 -1880 moveto 0 3600 rlineto stroke 1700 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 /xt10x 5 array def /yt10x 5 array def xchart4 4 eq {%xchart4=4 /xt10x [(-40) ( ) ( ) ( ) ( 40)] def /yt10x [(-40) ( ) ( ) ( ) (40)] def } if %xchart4=3 xchart4 5 ge xchart4 7 le and {%5>=xchart4<=7 /xt10x [(-120) ( ) ( ) ( ) ( 120)] def /yt10x [(-120) ( ) ( ) ( ) (120)] def } if %4>=xchart4<=6 0 0 0 1 setcmyk_olvcolor 0 1 4 {/i exch def %i=0,4 x-axis -1600 i 800 mul add -75 moveto 0 150 rlineto stroke -1800 i 800 mul add -250 moveto TBS xt10x i get show i 4 eq {-1600 i 800 mul add 0 moveto xchart4 4 eq { %xchart4=4 000 150 rmoveto TBIM (A) show TL } if %xchart4=4 xchart4 5 eq { %xchart4=5 -50 150 rmoveto TBIM (a*) show TL } if %xchart4=5 xchart4 6 eq { %xchart4=6 -350 150 rmoveto TBIM (a*) show -40 -50 rmoveto TBL (D65) show 0 50 rmoveto TL } if %xchart4=6 xchart4 7 eq { %xchart4=7 -50 150 rmoveto TBIM (A*) show TL } if %xchart4=7 } if } for %i=0,4 0 1 4 {/i exch def %i=0,4 y-axis -75 -1600 i 800 mul add moveto 150 0 rlineto stroke 100 -1600 i 800 mul add 100 sub moveto TBS yt10x i get show i 4 eq {0 -1600 i 800 mul add moveto xchart4 4 eq { %xchart4=4 -250 150 rmoveto TBIM (B) show TL } if %xchart4=4 xchart4 5 eq { %xchart4=5 -400 150 rmoveto TBIM (b*) show TL } if %xchart4=5 xchart4 6 eq { %xchart4=6 -750 150 rmoveto TBIM (b*) show -40 -50 rmoveto TBL (D65) show 0 50 rmoveto TL } if %xchart4=6 xchart4 7 eq { %xchart4=7 -300 150 rmoveto TBIM (B*) show TL } if %xchart4=7 } if } for %i=0,4 -3500 -2000 translate } if %4>=xchart4<=7 %*********************************************************** /icolor 9 array def %Rm %Ym %Gm %Cm %Bm %Mm %Go %Mo %W /icolor [20 10 06 00 30 26 06 26 40] def /imshow {0 -50 rmoveto TBL (m) show 0 50 rmoveto TBIS} def %************************************************* xchart4 0 eq {%xchart4=0 %only for (x,y) /fakt 4000 def 600 400 translate %for scala and graphic 0 1 39 {/i exch def %i=0,39 XANi i get fakt mul YANi i get fakt mul i 0 eq {moveto} if i 1 ge i 38 le and {lineto} if i 39 eq {lineto closepath stroke} if } for %i=0,39 XANW fakt mul YANW fakt mul 90 0 360 arc stroke XANW fakt mul 200 sub YANW fakt mul 250 sub moveto TBS TELi xchartl get show TBIS 0 1 2 {/j exch def %j=0,2 j 0 eq {/i 0 def} if %Cm-Rm j 1 eq {/i 6 def} if %Gm-Mm j 2 eq {/i 10 def} if %Ym-Bm /SUM Xi i get Yi i get add Zi i get add 0.0001 add def /AnY Xi i get SUM div fakt mul def /BnY Yi i get SUM div fakt mul def j 0 eq {AnY 350 sub BnY 050 sub moveto (C) show imshow 1 0 0 0 setcmykcolor} if %Cm j 1 eq {AnY 400 sub BnY 050 sub moveto (G) show imshow 1 0 1 0 setcmykcolor} if %Gm j 2 eq {AnY 100 sub BnY 250 sub moveto (Y) show imshow 0 0 1 0 setcmykcolor} if %Ym newpath AnY BnY 90 0 360 arc fill 0 setgray newpath AnY BnY 90 0 360 arc stroke /SUM XK Xi i get sub YK Yi i get sub add ZK Zi i get sub add 0.0001 add def /AnY XK Xi i get sub SUM div fakt mul def /BnY YK Yi i get sub SUM div fakt mul def j 0 eq {AnY 100 sub BnY 250 sub moveto (R) show imshow 0 1 1 0 setcmykcolor} if %Rm j 1 eq {AnY 150 add BnY 050 sub moveto (M) show imshow 0 1 0 0 setcmykcolor} if %Mm j 2 eq {AnY 100 add BnY 100 add moveto (B) show imshow 1 1 0 0 setcmykcolor} if %Bm newpath AnY BnY 90 0 360 arc fill 0 setgray newpath AnY BnY 90 0 360 arc stroke } for %j=0,2 -600 -400 translate %for scala and grafic } if %xchart4=0 xchart4 1 eq {%xchart4=1 %only for (a,b) /fakt 1000 def /a2 XW YW 0.0001 add div def /b2 ZW YW 0.0001 add div -0.4 mul def 1300 3200 translate %for grafic 0 1 39 {/i exch def %i=0,39 Xi i get Yi i get 0.0001 add div fakt mul %a Zi i get Yi i get 0.0001 add div fakt mul %b 0.4 mul neg i 0 eq {moveto} if i 1 ge i 38 le and {lineto} if i 39 eq {lineto closepath stroke} if } for %i=0,39 XW YW 0.0001 add div fakt mul ZW YW 0.0001 add div fakt mul 0.4 mul neg 90 0 360 arc stroke XW YW 0.0001 add div fakt mul 200 sub ZW YW 0.0001 add div fakt mul 0.4 mul neg 250 sub moveto TBS TELi xchartl get show TBIS 0 1 2 {/j exch def %j=0,2 j 0 eq {/i 0 def} if %Cm-Rm j 1 eq {/i 6 def} if %Gm-Mm j 2 eq {/i 10 def} if %Ym-Bm /AnY Xi i get Yi i get 0.0001 add div fakt mul def /BnY Zi i get Yi i get 0.0001 add div fakt mul 0.4 mul neg def j 0 eq {AnY 350 sub BnY 050 sub moveto (C) show imshow 1 0 0 0 setcmykcolor} if %Cm j 1 eq {AnY 300 sub BnY 150 sub moveto (G) show imshow 1 0 1 0 setcmykcolor} if %Gm j 2 eq {AnY 100 sub BnY 250 sub moveto (Y) show imshow 0 0 1 0 setcmykcolor} if %Ym newpath AnY BnY 90 0 360 arc fill 0 setgray newpath AnY BnY 90 0 360 arc stroke /AnY XK Xi i get sub YK Yi i get sub 0.0001 add div fakt mul def /BnY ZK Zi i get sub YK Yi i get sub 0.0001 add div fakt mul 0.4 mul neg def j 0 eq {AnY 100 add BnY 200 sub moveto (R) show imshow 0 1 1 0 setcmykcolor} if %Rm j 1 eq {AnY 100 add BnY 050 sub moveto (M) show imshow 0 1 0 0 setcmykcolor} if %Mm j 2 eq {AnY 100 sub BnY 200 add moveto (B) show imshow 1 1 0 0 setcmykcolor} if %Bm newpath AnY BnY 90 0 360 arc fill 0 setgray newpath AnY BnY 90 0 360 arc stroke } for %j=0,2 -1300 -3200 translate %for grafic } if %xchart4=1 xchart4 2 eq {%xchart4=2 %only for (a',b') /D13 1 3 div def /fakt 13333 def /a2 XW YW 0.0001 add div D13 exp 0.2191 mul def /b2 ZW YW 0.0001 add div D13 exp -0.08376 mul def 200 3200 translate %for graphic 0 1 39 {/i exch def %i=0,39 Xi i get Yi i get 0.0001 add div %a' D13 exp 0.2191 mul fakt mul Zi i get Yi i get 0.0001 add div %b' D13 exp -0.08376 mul fakt mul i 0 eq {moveto} if i 1 ge i 38 le and {lineto} if i 39 eq {lineto closepath stroke} if } for %i=0,39 XW YW 0.0001 add div %a' D13 exp 0.2191 mul fakt mul ZW YW 0.0001 add div %b' D13 exp -0.08376 mul fakt mul 90 0 360 arc stroke XW YW 0.0001 add div %a' D13 exp 0.2191 mul fakt mul 200 sub ZW YW 0.0001 add div %b' D13 exp -0.08376 mul fakt mul 250 sub moveto TBS TELi xchartl get show TBIS 0 1 2 {/j exch def %j=0,2 j 0 eq {/i 0 def} if %Cm-Rm j 1 eq {/i 6 def} if %Gm-Mm j 2 eq {/i 10 def} if %Ym-Bm /AnY Xi i get Yi i get 0.0001 add div %a' D13 exp 0.2191 mul fakt mul def /BnY Zi i get Yi i get 0.0001 add div %b' D13 exp -0.08376 mul fakt mul def j 0 eq {AnY 350 sub BnY 050 sub moveto (C) show imshow 1 0 0 0 setcmykcolor} if %Cm j 1 eq {AnY 350 sub BnY 050 sub moveto (G) show imshow 1 0 1 0 setcmykcolor} if %Gm j 2 eq {AnY 100 sub BnY 250 sub moveto (Y) show imshow 0 0 1 0 setcmykcolor} if %Ym newpath AnY BnY 90 0 360 arc fill 0 setgray newpath AnY BnY 90 0 360 arc stroke /AnY XK Xi i get sub YK Yi i get sub 0.0001 add div %a' D13 exp 0.2191 mul fakt mul def /BnY ZK Zi i get sub YK Yi i get sub 0.0001 add div %b' D13 exp -0.08376 mul fakt mul def j 0 eq {AnY 100 add BnY 000 add moveto (R) show imshow 0 1 1 0 setcmykcolor} if %Rm j 1 eq {AnY 100 add BnY 050 sub moveto (M) show imshow 0 1 0 0 setcmykcolor} if %Mm j 2 eq {AnY 050 add BnY 150 add moveto (B) show imshow 1 1 0 0 setcmykcolor} if %Bm newpath AnY BnY 90 0 360 arc fill 0 setgray newpath AnY BnY 90 0 360 arc stroke } for %j=0,2 -200 -3200 translate %for graphic } if %xchart4=2 xchart4 3 eq {%xchart4=3 %only for (a",b") %100 3800 moveto TIS ((a",b") (LAB 1977)) show /fakt 1333 def /XD65 95.04 def /YD65 100.00 def /ZD65 108.89 def /aD65 XD65 YD65 0.0001 add div def /bD65 ZD65 YD65 0.0001 add div -0.4 mul def /a2 aD65 def /b2 bD65 def 700 800 add 3200 translate %for grafic 0 1 39 {/i exch def %i=0,39 /a Xi i get Yi i get 0.0001 add div def /an XK YK 0.0001 add div def /b Zi i get Yi i get 0.0001 add div 0.4 mul neg def /bn ZK YK 0.0001 add div 0.4 mul neg def /a" an a an sub 1 a an sub abs 0.5 mul add div add def /b" bn b bn sub 1 b bn sub abs 0.5 mul add div add def a" fakt mul b" fakt mul /a"n an def /b"n bn def i 0 eq {moveto} if i 1 ge i 38 le and {lineto} if i 39 eq {lineto closepath stroke} if } for %i=0,39 a"n fakt mul b"n fakt mul 90 0 360 arc stroke a"n fakt mul 200 sub b"n fakt mul 250 sub moveto TBS TELi xchartl get show TBIS 0 1 2 {/j exch def %j=0,2 j 0 eq {/i 0 def} if %Cm-Rm j 1 eq {/i 6 def} if %Gm-Mm j 2 eq {/i 10 def} if %Ym-Bm /a Xi i get Yi i get 0.0001 add div def /an XK YK 0.0001 add div def /b Zi i get Yi i get 0.0001 add div 0.4 mul neg def /bn ZK YK 0.0001 add div 0.4 mul neg def /a" an a an sub 1 a an sub abs 0.5 mul add div add def /b" bn b bn sub 1 b bn sub abs 0.5 mul add div add def a" fakt mul b" fakt mul /a"n an def /b"n bn def /AnY a" fakt mul def /BnY b" fakt mul def j 0 eq {AnY 350 sub BnY 050 sub moveto (C) show imshow 1 0 0 0 setcmykcolor} if %Cm j 1 eq {AnY 050 add BnY 200 sub moveto (G) show imshow 1 0 1 0 setcmykcolor} if %Gm j 2 eq {AnY 050 sub BnY 250 sub moveto (Y) show imshow 0 0 1 0 setcmykcolor} if %Ym newpath AnY BnY 90 0 360 arc fill 0 setgray newpath AnY BnY 90 0 360 arc stroke /a XK Xi i get sub YK Yi i get sub 0.0001 add div def /an XK YK 0.0001 add div def /b ZK Zi i get sub YK Yi i get sub 0.0001 add div 0.4 mul neg def /bn ZK YK 0.0001 add div 0.4 mul neg def /a" an a an sub 1 a an sub abs 0.5 mul add div add def /b" bn b bn sub 1 b bn sub abs 0.5 mul add div add def a" fakt mul b" fakt mul /a"n an def /b"n bn def /AnY a" fakt mul def /BnY b" fakt mul def j 0 eq {AnY 100 add BnY 200 sub moveto (R) show imshow 0 1 1 0 setcmykcolor} if %Rm j 1 eq {AnY 100 add BnY 050 sub moveto (M) show imshow 0 1 0 0 setcmykcolor} if %Mm j 2 eq {AnY 050 add BnY 150 add moveto (B) show imshow 1 1 0 0 setcmykcolor} if %Bm newpath AnY BnY 90 0 360 arc fill 0 setgray newpath AnY BnY 90 0 360 arc stroke } for %j=0,2 700 800 add neg -3200 translate %for graphic } if %xchart4=3 xchart4 4 eq {%xchart4=4 %only for (A,B) /fakt 40 def /a2 1.00 def /b2 -0.4 def 3500 2000 translate %for text and grafic -3400 1800 moveto TBIS (XYZ) show TBL (w) show TBS (=) show XK cvsshow5 (, ) show YK cvsshow5 (, ) show ZK cvsshow2 -3400 1550 moveto TBIS (A) show TBS ( = \050) show TBIS (a) show TBS ( - ) show TBIS (a) show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (\051 ) show TBIS (Y) show -3400 1300 moveto TBIS (B) show TBS ( = \050) show TBIS (b) show TBS ( - ) show TBIS (b) show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (\051 ) show TBIS (Y) show -3400 1050 moveto TBIS (a) show TBS ( = ) show TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( [) show TBIS (x/y) show TBS (]) show -3400 800 moveto TBIS (b) show TBS ( = ) show TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( [) show TBIS (z/y) show TBS (]) show -3400 550 moveto TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( = 1) show -3400 300 moveto TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( = -0,4) show -3400 050 moveto TBIS (n) show TBS ( = ) show TELi xchartl get show 0 1 39 {/i exch def %i=0,39 Xi i get Yi i get 0.0001 add div %(a-an)Y XK YK 0.0001 add div sub Yi i get mul fakt mul Zi i get Yi i get 0.0001 add div %(b-bn)Y ZK YK 0.0001 add div sub 0.4 mul neg Yi i get mul fakt mul i 0 eq {moveto} if i 1 ge i 38 le and {lineto} if i 39 eq {lineto closepath stroke} if } for %i=0,39 XW YW 0.0001 add div %(a-an)YW XK YK 0.0001 add div sub YW mul fakt mul ZW YW 0.0001 add div %(b-an)YW ZK YK 0.0001 add div sub 0.4 mul neg YW mul fakt mul 90 0 360 arc stroke 0 080 add 0 080 add moveto TBS TELi xchartl get show TBIS 0 1 2 {/j exch def %j=0,2 j 0 eq {/i 0 def} if %Cm-Rm j 1 eq {/i 6 def} if %Gm-Mm j 2 eq {/i 10 def} if %Ym-Bm /AnY Xi i get Yi i get 0.0001 add div %(a-an)Y XK YK 0.0001 add div sub Yi i get mul fakt mul def /BnY Zi i get Yi i get 0.0001 add div %(b-bn)Y ZK YK 0.0001 add div sub 0.4 mul neg Yi i get mul fakt mul def j 0 eq {AnY 100 add BnY 000 add moveto (C) show imshow 1 0 0 0 setcmykcolor} if %Cm j 1 eq {AnY 100 add BnY 000 add moveto (G) show imshow 1 0 1 0 setcmykcolor} if %Gm j 2 eq {AnY 100 sub BnY 300 sub moveto (Y) show imshow 0 0 1 0 setcmykcolor} if %Ym newpath AnY BnY 90 0 360 arc fill 0 setgray newpath AnY BnY 90 0 360 arc stroke /AnY XK Xi i get sub YK Yi i get sub 0.0001 add div %(a-an)Y XK YK 0.0001 add div sub YK Yi i get sub mul fakt mul def /BnY ZK Zi i get sub YK Yi i get sub 0.0001 add div %(b-bn)Y ZK YK 0.0001 add div sub 0.4 mul neg YK Yi i get sub mul fakt mul def j 0 eq {AnY 100 add BnY 000 add moveto (R) show imshow 0 1 1 0 setcmykcolor} if %Rm j 1 eq {AnY 450 sub BnY 100 sub moveto (M) show imshow 0 1 0 0 setcmykcolor} if %Mm j 2 eq {AnY 100 sub BnY 200 add moveto (B) show imshow 1 1 0 0 setcmykcolor} if %Bm newpath AnY BnY 90 0 360 arc fill 0 setgray newpath AnY BnY 90 0 360 arc stroke } for %j=0,2 } if %xchart4=4 xchart4 5 eq {%xchart4=5 %only for (a*,b*) /D13 1 3 div def /fakt 40 3 div def /a2 1 XW div D13 exp def /b2 1 ZW div D13 exp -0.4 mul def 3500 2000 translate %for text and grafic -3400 1800 moveto TBIS (XYZ) show TBL (w) show TBS (=) show XK cvsshow5 (, ) show YK cvsshow5 (, ) show ZK cvsshow2 -3400 1550 moveto TBIS (a*) show TBS ( = 500 \050) show TBIS (a') show TBS ( - ) show TBIS (a') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (\051 ) show TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 1300 moveto TBIS (b*) show TBS ( = 500 \050) show TBIS (b') show TBS ( - ) show TBIS (b') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (\051 ) show TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 1050 moveto TBIS (a) show TBS ( = ) show TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( [) show TBIS (x/y) show TBS (]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 800 moveto TBIS (b) show TBS ( = ) show TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( [) show TBIS (z/y) show TBS (]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 550 moveto TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS (=[1/) show TBIS (X) show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto TBS (=) show a2 cvsshow4 -3400 300 moveto TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS (=-[1/) show TBIS (Z) show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto TBS (=) show b2 cvsshow5 -3400 050 moveto TBIS (n) show TBS ( = ) show TELi xchartl get show 0 1 39 {/i exch def %i=0,39 Xi i get Yi i get 0.0001 add div %500(a'-a'n)Y**(1/3) D13 exp a2 mul %a'= a2 (x/y)**(1/3) XK YK 0.0001 add div D13 exp a2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul Zi i get Yi i get 0.0001 add div %500(b'-b'n)Y**(1/3) D13 exp b2 mul %b' = b2 (z/y)**(1/3) ZK YK 0.0001 add div D13 exp b2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul i 0 eq {moveto} if i 1 ge i 38 le and {lineto} if i 39 eq {lineto closepath stroke} if } for %i=0,39 XW YW 0.0001 add div D13 exp a2 mul XK YK 0.0001 add div D13 exp a2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul ZW YW 0.0001 add div D13 exp b2 mul ZK YK 0.0001 add div D13 exp b2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul 90 0 360 arc stroke XW YW 0.0001 add div D13 exp a2 mul XK YK 0.0001 add div D13 exp a2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul 200 sub ZW YW 0.0001 add div D13 exp b2 mul ZK YK 0.0001 add div D13 exp b2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul 250 sub moveto TBS TELi xchartl get show TBIS 0 1 2 {/j exch def %j=0,2 j 0 eq {/i 0 def} if %Cm-Rm j 1 eq {/i 6 def} if %Gm-Mm j 2 eq {/i 10 def} if %Ym-Bm /AnY Xi i get Yi i get 0.0001 add div %500(a'-a'n)Y**(1/3) D13 exp a2 mul %a'= a2 (x/y)**(1/3) XK YK 0.0001 add div D13 exp a2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def /BnY Zi i get Yi i get 0.0001 add div %500(b'-b'n)Y**(1/3) D13 exp b2 mul %b'= b2 (x/y)**(1/3) ZK YK 0.0001 add div D13 exp b2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def j 0 eq {AnY 100 add BnY 000 add moveto (C) show imshow 1 0 0 0 setcmykcolor} if %Cm j 1 eq {AnY 100 add BnY 000 add moveto (G) show imshow 1 0 1 0 setcmykcolor} if %Gm j 2 eq {AnY 100 add BnY 250 sub moveto (Y) show imshow 0 0 1 0 setcmykcolor} if %Ym newpath AnY BnY 90 0 360 arc fill 0 setgray newpath AnY BnY 90 0 360 arc stroke /AnY XK Xi i get sub YK Yi i get sub 0.0001 add div D13 exp a2 mul XK YK 0.0001 add div D13 exp a2 mul sub YK Yi i get sub 0.0001 add D13 exp mul fakt mul 500 mul def /BnY ZK Zi i get sub YK Yi i get sub 0.0001 add div D13 exp b2 mul ZK YK 0.0001 add div D13 exp b2 mul sub YK Yi i get sub 0.0001 add D13 exp mul fakt mul 500 mul def j 0 eq {AnY 100 add BnY 000 add moveto (R) show imshow 0 1 1 0 setcmykcolor} if %Rm j 1 eq {AnY 450 sub BnY 100 sub moveto (M) show imshow 0 1 0 0 setcmykcolor} if %Mm j 2 eq {AnY 200 sub BnY 200 add moveto (B) show imshow 1 1 0 0 setcmykcolor} if %Bm newpath AnY BnY 90 0 360 arc fill 0 setgray newpath AnY BnY 90 0 360 arc stroke } for %j=0,2 -3500 -2000 translate %for text and grafic } if %xchart4=5 xchart4 6 eq {%xchart4=6 %only for (a*,b*) with const. for D65 /D13 1 3 div def /fakt 40 3 div def /a2 0.2191 def /b2 -0.08376 def 3500 2000 translate %for text and grafic -3400 1800 moveto TBIS (XYZ) show TBL (w) show TBS (=) show XK cvsshow5 (, ) show YK cvsshow5 (, ) show ZK cvsshow2 -3400 1550 moveto TBIS (a*) show TBS ( = 500 \050) show TBIS (a') show TBS ( - ) show TBIS (a') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (\051 ) show TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 1300 moveto TBIS (b*) show TBS ( = 500 \050) show TBIS (b') show TBS ( - ) show TBIS (b') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (\051 ) show TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 1050 moveto TBIS (a') show TBS ( = ) show TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( [) show TBIS (x/y) show TBS (]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 800 moveto TBIS (b') show TBS ( = ) show TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( [) show TBIS (z/y) show TBS (]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 550 moveto TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS (=[1/) show TBIS (X) show 0 -50 rmoveto TBL (D65) show 0 50 rmoveto TBS (]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto TBS (=) show a2 cvsshow4 -3400 300 moveto TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS (=-[1/) show TBIS (Z) show 0 -50 rmoveto TBL (D65) show 0 50 rmoveto TBS (]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto TBS (=) show b2 cvsshow5 -3400 050 moveto TBIS (n) show TBS ( = ) show TELi xchartl get show 0 1 39 {/i exch def %i=0,39 Xi i get Yi i get 0.0001 add div %500(a'-a'n)Y**(1/3) D13 exp a2 mul %a'= a2 (x/y)**(1/3) XK YK 0.0001 add div D13 exp a2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul Zi i get Yi i get 0.0001 add div %500(b'-b'n)Y**(1/3) D13 exp b2 mul %b'= b2 (z/y)**(1/3) ZK YK 0.0001 add div D13 exp b2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul i 0 eq {moveto} if i 1 ge i 38 le and {lineto} if i 39 eq {lineto closepath stroke} if } for %i=0,39 XW YW 0.0001 add div D13 exp a2 mul XK YK 0.0001 add div D13 exp a2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul ZW YW 0.0001 add div D13 exp b2 mul ZK YK 0.0001 add div D13 exp b2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul 90 0 360 arc stroke XW YW 0.0001 add div %500(a'-a'n)Y**(1/3) D13 exp a2 mul %a'= a2 (x/y)**(1/3) XK YK 0.0001 add div D13 exp a2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul 080 add ZW YW 0.0001 add div %500(b'-b'n)Y**(1/3) D13 exp b2 mul %a'= a2 (x/y)**(1/3) ZK YK 0.0001 add div D13 exp b2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul 080 add moveto TBS TELi xchartl get show TBIS 0 1 2 {/j exch def %j=0,2 j 0 eq {/i 0 def} if %Cm-Rm j 1 eq {/i 6 def} if %Gm-Mm j 2 eq {/i 10 def} if %Ym-Bm /AnY Xi i get Yi i get 0.0001 add div D13 exp a2 mul XK YK 0.0001 add div D13 exp a2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def /BnY Zi i get Yi i get 0.0001 add div D13 exp b2 mul ZK YK 0.0001 add div D13 exp b2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def j 0 eq {AnY 100 add BnY 000 add moveto (C) show imshow 1 0 0 0 setcmykcolor} if %Cm j 1 eq {AnY 100 add BnY 000 add moveto (G) show imshow 1 0 1 0 setcmykcolor} if %Gm j 2 eq {AnY 100 add BnY 250 sub moveto (Y) show imshow 0 0 1 0 setcmykcolor} if %Ym newpath AnY BnY 90 0 360 arc fill 0 setgray newpath AnY BnY 90 0 360 arc stroke /AnY XK Xi i get sub YK Yi i get sub 0.0001 add div D13 exp a2 mul XK YK 0.0001 add div D13 exp a2 mul sub YK Yi i get sub 0.0001 add D13 exp mul fakt mul 500 mul def /BnY ZK Zi i get sub YK Yi i get sub 0.0001 add div D13 exp b2 mul ZK YK 0.0001 add div D13 exp b2 mul sub YK Yi i get sub 0.0001 add D13 exp mul fakt mul 500 mul def j 0 eq {AnY 100 add BnY 000 add moveto (R) show imshow 0 1 1 0 setcmykcolor} if %Rm j 1 eq {AnY 450 sub BnY 100 sub moveto (M) show imshow 0 1 0 0 setcmykcolor} if %Mm j 2 eq {AnY 200 sub BnY 200 add moveto (B) show imshow 1 1 0 0 setcmykcolor} if %Bm newpath AnY BnY 90 0 360 arc fill 0 setgray newpath AnY BnY 90 0 360 arc stroke } for %j=0,2 -3500 -2000 translate %for text and grafic } if %xchart4=6 xchart4 7 eq {%xchart4=7 %only for (a*,b*)D65 /D13 1 3 div def /D11 1 def /D16 1 6 div def /fakt 40 3 div def /a2 1 15 div def /b2 1 12 div neg def 3500 2000 translate %for text and grafic -3400 1800 moveto TBIS (XYZ) show TBL (w) show TBS (=) show XK cvsshow5 (, ) show YK cvsshow5 (, ) show ZK cvsshow2 -3400 1550 moveto TBIS (a*) show TBS ( = 500 \050) show TBIS (a') show TBS ( - ) show TBIS (a') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (\051 ) show TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 1300 moveto TBIS (b*) show TBS ( = 500 \050) show TBIS (b') show TBS ( - ) show TBIS (b') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (\051 ) show TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 1050 moveto TBIS (a) show TBS ( = ) show TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( [) show TBIS (x/y) show TBS ( + 1]) show -3400 800 moveto TBIS (b) show TBS ( = ) show TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( [) show TBIS (z/y) show TBS ( + 1/6 ]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto TBS -3400 550 moveto TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( = 1/15 = ) show a2 cvsshow5 -3400 300 moveto TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( = -1/12 = ) show b2 cvsshow5 -3400 050 moveto TBIS (n) show TBS ( = ) show TELi xchartl get show 0 1 39 {/i exch def %i=0,39 Xi i get Yi i get 0.0001 add div %500(a'-a'n)Y**(1/3) D11 add a2 mul %a'=(x/y+1)/15 XK YK 0.0001 add div D11 add a2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul Zi i get Yi i get 0.0001 add div %500(b'-b'n)Y**(1/3) D16 add D13 exp b2 mul %b'=-[(z/y +1/6)**(1/3)]/12 ZK YK 0.0001 add div D16 add D13 exp b2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul i 0 eq {moveto} if i 1 ge i 38 le and {lineto} if i 39 eq {lineto closepath stroke} if } for %i=0,39 XW YW 0.0001 add div D11 add a2 mul XK YK 0.0001 add div D11 add a2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul ZW YW 0.0001 add div D16 add D13 exp b2 mul ZK YK 0.0001 add div D16 add D13 exp b2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul 90 0 360 arc stroke XW YW 0.0001 add div D11 add a2 mul XK YK 0.0001 add div D11 add a2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul 080 add ZW YW 0.0001 add div D16 add D13 exp b2 mul ZK YK 0.0001 add div D16 add D13 exp b2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul 080 add moveto TBS TELi xchartl get show TBIS 0 1 2 {/j exch def %j=0,2 j 0 eq {/i 0 def} if %Cm-Rm j 1 eq {/i 6 def} if %Gm-Mm j 2 eq {/i 10 def} if %Ym-Bm /AnY Xi i get Yi i get 0.0001 add div %500(a'-a'n)Y**(1/3) D11 add a2 mul %a'=(x/y+1)/15 XK YK 0.0001 add div D11 add a2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def /BnY Zi i get Yi i get 0.0001 add div %500(b'-b'n)Y**(1/3) D16 add D13 exp b2 mul %b'=-[(z/y +1/6)**(1/3)]/12 ZK YK 0.0001 add div D16 add D13 exp b2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def j 0 eq {AnY 100 add BnY 000 add moveto (C) show imshow 1 0 0 0 setcmykcolor} if %Cm j 1 eq {AnY 100 add BnY 000 add moveto (G) show imshow 1 0 1 0 setcmykcolor} if %Gm j 2 eq {AnY 000 add BnY 250 sub moveto (Y) show imshow 0 0 1 0 setcmykcolor} if %Ym newpath AnY BnY 90 0 360 arc fill 0 setgray newpath AnY BnY 90 0 360 arc stroke /AnY XK Xi i get sub YK Yi i get sub 0.0001 add div D11 add a2 mul XK YK 0.0001 add div D11 add a2 mul sub YK Yi i get sub 0.0001 add D13 exp mul fakt mul 500 mul def /BnY ZK Zi i get sub YK Yi i get sub 0.0001 add div D16 add D13 exp b2 mul ZK YK 0.0001 add div D16 add D13 exp b2 mul sub YK Yi i get sub 0.0001 add D13 exp mul fakt mul 500 mul def j 0 eq {AnY 100 add BnY 000 add moveto (R) show imshow 0 1 1 0 setcmykcolor} if %Rm j 1 eq {AnY 450 sub BnY 100 sub moveto (M) show imshow 0 1 0 0 setcmykcolor} if %Mm j 2 eq {AnY 200 sub BnY 200 add moveto (B) show imshow 1 1 0 0 setcmykcolor} if %Bm newpath AnY BnY 90 0 360 arc fill 0 setgray newpath AnY BnY 90 0 360 arc stroke } for %j=0,2 -3500 -2000 translate %for text and grafic } if %xchart4=7 showpage grestore %} for %xchartl=0,7 } for %xchart4=0,7 %} for %xcolorl=0,1 %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 24 %line 459 %!PS-Adobe-3.0 EPSF-3.0 TE011-5N %%BoundingBox: 70 83 228 206 %START PDFDE011.EPS /pdfmark15 where {pop} {userdict /pdfmark15 /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/TE01/) /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:2013090112000) /ModDate (D:2013090112000) /DOCINFO pdfmark15 [ /View [ /FitB ] /DOCVIEW pdfmark15 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /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 /Courier findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Courier-ISOL1 exch definefont pop /Courier-Oblique findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierI-ISOL1 exch definefont pop /Courier-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierB-ISOL1 exch definefont pop /Courier-BoldOblique findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierBI-ISOL1 exch definefont pop /TG {350 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TL {160 /Times-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIL {160 /TimesI-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBL {160 /TimesB-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIL {160 /TimesBI-ISOL1 FS} bind def /SG {350 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SK {240 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SL {160 /Symbol FS} bind def %%EndProlog gsave %lanindL2.EPS START 20000505 /lanind 0 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showea {1 lanind le {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 1 def /lanind2 1 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 0 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % colorm 0 eq deintp 0 eq and {/Txx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def} if %colorm=1, deintp=1 xchart 0 eq {/Txx (-) def} if %always independent of intended output gsave %LANINDL2 END /cvishow {cvi 6 string cvs show ( ) show} def /cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show ( ) show} def /cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show ( ) show} def /cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show ( ) show} def /cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show ( ) show} def /cvsshow5 {100000 mul cvi 0.00001 mul 9 string cvs show ( ) show} def /SD65 80 array def %380 bis 775 mit deltalambda=05 /SD50 80 array def %380 bis 775 mit deltalambda=05 /SP40 80 array def %380 bis 775 mit deltalambda=05 /SA00 80 array def %380 bis 775 mit deltalambda=05 /SE00 80 array def %380 bis 775 mit deltalambda=05 /SC00 80 array def %380 bis 775 mit deltalambda=05 /SP00 80 array def %380 bis 775 mit deltalambda=05 /SQ00 80 array def %380 bis 775 mit deltalambda=05 /SDAK 80 array def %380 bis 775 mit deltalambda=05 /RA 80 array def %380 bis 770 nm /F2 240 array def %3 x 80 Daten fuer Bereich 380 bis 770nm /F2N 240 array def %normiert auf Y=100 fuer D65 und 10nm /F10 240 array def %3 x 80 Daten fuer Bereich 380 bis 770nm %C %C LITERATURQUELLEN LICHTARTEN %C SA,SC,SD65, CIE-DOKUMENT NR.15 FARBMESSUNG, 1971 %C TABELLE 1.1.1, SEITE 81 %C SD55,SD75, CIE-DOKUMENT NR.15 FARBMESSUNG, 1971 %C TABELLE 1.1.4, SEITE 85 %C LINEAR INTERPOLIERT VON 5 ZU 5NM %C SG,SP,SXE, DIN 5033, BLATT 7 ,SEITE 8-9 %C AUSGABE 1966 /SD65 %80 data 5 nm [50.0 52.3 54.6 68.7 82.8 87.1 91.5 92.5 93.4 90.1 86.7 95.8 104.9 110.9 117.0 117.4 117.8 116.3 114.9 115.4 115.9 112.4 108.8 109.1 109.4 108.6 107.8 106.3 104.8 106.2 107.7 106.0 104.4 104.2 104.0 102.0 100.0 98.2 96.3 96.1 95.8 92.2 88.7 89.3 90.0 89.8 89.6 88.6 87.7 85.5 83.3 83.5 83.7 81.9 80.0 80.1 80.2 81.2 82.3 80.3 78.3 74.0 69.7 70.7 71.6 73.0 74.3 68.0 61.6 65.7 69.9 72.5 75.1 69.3 63.6 55.0 46.4 56.6 66.8 65.1] def /SD50 %80 data 5 nm CIE 15.3, Seite 30; aus JE540-1N.PS [24.5 27.2 29.9 39.6 49.3 52.9 56.5 58.3 60.0 58.9 57.8 66.3 74.8 81.0 87.2 88.9 90.6 91.0 91.4 93.2 95.1 93.5 92.0 93.8 95.7 96.2 96.6 96.8 97.1 99.6 102.1 101.4 100.8 101.5 102.3 101.2 100.0 98.9 97.7 98.3 98.9 96.2 93.5 95.6 97.7 98.5 99.3 99.2 99.0 97.4 95.7 97.3 98.9 97.3 95.7 96.9 98.2 100.6 103.0 101.1 99.1 93.3 87.4 89.5 91.6 92.2 92.9 84.9 76.9 81.7 86.5 89.5 92.6 85.4 78.2 68.0 57.7 70.3 82.9 0.0] def %0.0 not used /SA00 %80 data 5 nm CIE 15.3 Seite 30; aus JE540-1N.PS [9.80 10.90 12.09 13.35 14.71 16.15 17.68 19.29 20.99 22.79 24.67 26.64 28.70 30.85 33.09 35.41 37.81 40.30 42.87 45.52 48.24 51.04 53.91 56.85 59.86 62.93 66.06 69.25 72.50 75.79 79.13 82.52 85.95 89.41 92.91 96.44 100.00 103.58 107.18 110.80 114.44 118.08 121.73 125.39 129.04 132.70 136.35 139.99 143.62 147.24 150.84 154.42 157.98 161.52 165.03 168.51 171.96 175.38 178.77 182.12 185.43 188.70 191.93 195.12 198.26 201.36 204.41 207.41 210.36 213.27 216.12 218.92 221.67 224.36 227.00 229.59 232.12 234.59 237.01 239.37 0.0] def %0.0 not used % AUS BILDPLA.FOR aus vrbam/wrpos:KRPROG.FOR, 5987-6023 5.10.92 %C PROGRAMM ZUR BERECHNUNG DER RELATIVEN SPEKTRALEN STRAHLUNGSVERTEI- %C LUNG EINES HOHLRAUMSTRAHLERS ALS FUNKTION DER WELLENLAENGE LAMDA %C BEI GEGEBENER TEMPERATUR T %C VERWENDETE VARIABLE %C T TEMPERATUR %C C2 PLANCKSCHE KONSTANTE (=1.4388 CM K (1967)) %C LAMDA(I) WELLENLAENGE %C S(I) STRAHLUNGSVERTEILUNG DES HOHLRAUMSTRAHLERS %C %C LITERATUR OFFIZIELLE EMPFEHLUNGEN DER CIE,DEUTSCHE VERSION, %C CA. 1969, SEITE 21 UND TABELLE 1.1.1 %C %SDP4 80 array def %380 bis 775 mit deltalambda=05 % DO 50 I=1,54 % 50 S(I)=100. % 1*(560./FLOAT(LAMDA(I)))**5 % 2*(EXP(C2/(560.*10.**(-7)*T))-1.) % 3/(EXP(C2/(FLOAT(LAMDA(I))*10.**(-7)*T))-1.) %new CIE 15.3:2004, Eq. (3.1) page 2 %S(I) = [100{560/lambda}**5] [exp{(c2*10**7)/(TNC*560 )} - 1] % /[exp{(c2*10**7)/(TNC*lambda)} - 1] % exp = e {...} = 2.71 {...} %/TNC 2848 def %NLA /TNC 4000 def /EE 2.718281 def %e=mac pocket calculator /C2 1.4350000 10 7 exp mul def /lamd 80 array def 0 1 79 {%i=0,79 /i exch def /lambda 380 i 5 mul add def lamd i lambda put /E1 560 lambda div 5 exp def /E4 C2 TNC 560 mul div def /E5 C2 TNC lambda mul div def /E6 EE E4 exp def /E7 EE E5 exp def SP40 i E1 100 mul E6 1 sub E7 1 sub div mul put } for %i=0,79 /xex 10 2 exp def /yex EE 2 exp def /SE00 %80 data 5 nm [100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0] def %0.0 not used /SC00 %80 data 5 nm [ 33.00 39.92 47.40 55.17 63.30 71.81 80.60 89.53 98.10 105.80 112.40 117.75 121.50 123.45 124.00 123.60 123.10 123.30 123.80 124.09 123.90 122.92 120.70 116.90 112.10 106.98 102.30 98.81 96.90 96.78 98.00 99.94 102.10 103.95 105.20 105.67 105.30 104.11 102.30 100.15 97.80 95.43 93.20 91.22 89.70 88.83 88.40 88.19 88.10 88.06 88.00 87.86 87.80 87.99 88.20 88.20 87.90 87.22 86.30 85.30 84.00 82.21 80.20 78.24 76.30 74.36 72.40 70.40 68.30 66.30 64.40 62.80 61.50 60.20 59.20 58.50 58.10 58.00 58.20 58.50 ] def %0.0 not used 0 1 79 {/i exch def %i=0,79 /lamda 380 i 5 mul add def SP00 i SE00 i get lamda 560 div mul put SQ00 i SE00 i get 1120 lamda sub 560 div mul put } for %i=0,79 %C LITERATURQUELLEN SPEKTRALWERTE %C F2 CIE-DOKUMENT NR.15 FARBMESSUNG, 1971 %C TABELLE 2.1, SEITE 93-102 /F2 %3x80 data [.001368 .002236 .004243 .007650 .01431 .02319 .04351 .07763 .1344 .2148 .2839 .3285 .3483 .3481 .3362 .3187 .2908 .2511 .1954 .1421 .09564 .05795 .03201 .01470 .0049 .0024 .0093 .0291 .06327 .1096 .1655 .2257 .2904 .3597 .4334 .5121 .5945 .6784 .7621 .8425 .9163 .9786 1.0263 1.0567 1.0622 1.0456 1.0026 .9384 .8544 .7514 .6424 .5419 .4479 .3608 .2835 .2187 .1649 .1212 .0874 .0636 .04677 .03290 .02270 .01584 .01136 .00811 .00579 .004109 .002899 .002049 .001440 .0009999 .0006901 .000476 .0003323 .0002348 .0001662 .0001174 .00008308 .00005871 .000039 .000064 .00012 .000217 .000396 .00064 .00121 .00218 .004 .0073 .0116 .01684 .023 .0298 .0380 .048 .06 .0739 .09098 .1126 .139 .1693 .208 .2586 .323 .4073 .503 .6082 .71 .7932 .862 .9149 .954 .9803 .995 1.0 .995 .9786 .952 .9154 .870 .8163 .757 .6949 .631 .5668 .503 .4412 .381 .321 .265 .217 .175 .1382 .107 .0816 .061 .04458 .032 .0232 .017 .01192 .00821 .005723 .004102 .002929 .002091 .001484 .001047 .00074 .00052 .0003611 .0002492 .0001719 .00012 .0000848 .00006 .0000424 .00003 .0000212 .00645 .01055 .02005 .03621 .06785 .1102 .2074 .3713 .6456 1.0391 1.3856 1.623 1.7471 1.7826 1.7721 1.7441 1.6692 1.5281 1.2876 1.0419 .8130 .6162 .4652 .3533 .2720 .2123 .1582 .1117 .07825 .05725 .04216 .02984 .0203 .0134 .00875 .00575 .0039 .00275 .0021 .0018 .00165 .0014 .0011 .0010 .0008 .0006 .00034 .00024 .00019 .0001 .00005 .00003 .00002 .00001 % 26*0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %10 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %20 0.0 0.0 0.0 0.0 0.0 0.0 %26 ] def /F10 %3x80 data [.00016 .0006624 .002362 .007242 .01911 .0434 .08474 .1406 .2045 .2647 .3147 .3577 .3837 .3867 .3707 .343 .3023 .2541 .1956 .1323 .08051 .04107 .01617 .005132 .003816 .01544 .03746 .07136 .1177 .173 .2365 .3042 .3768 .4516 .5298 .6161 .7052 .7938 .8787 .9512 1.0142 1.0743 1.1185 1.1343 1.124 1.0891 1.0305 .9507 .8563 .7549 .6475 .5351 .4316 .3437 .2683 .2043 .1526 .1122 .08126 .05793 .04085 .02862 .019941 .01384 .0100 .006605 .004552 .003145 .002175 .001506 .001045 .0007274 .0005083 .0003564 .000251 .0001777 .0001264 .00009015 .00006453 .00004634 .00001736 .00007156 .0002534 .0007685 .002004 .004509 .008756 .01446 .02139 .0295 .03868 .0496 .06208 .0747 .08946 .1063 .1282 .1528 .1852 .2199 .2536 .2977 .3391 .3954 .4608 .5314 .6067 .6857 .7618 .8233 .8752 .9238 .962 .9822 .9918 .9991 .9973 .9824 .9555 .9152 .8689 .8256 .7774 .7203 .6583 .5939 .528 .4618 .3981 .3395 .2835 .2282 .1798 .1402 .1076 .08119 .06028 .0441 .0318 .0226 .0159 .01113 .007749 .0053751 .0037177 .002565 .001768 .001222 .0008462 .0005864 .0004074 .000284 .0001987 .0001395 .00009843 .00006982 .00004974 .00003554 .00002549 .00001834 .0007048 .002928 .01048 .03234 .08601 .1971 .3894 .6568 .9725 1.2825 1.5535 1.7985 1.9673 2.0273 1.9948 1.9007 1.7454 1.5549 1.3176 1.0302 .7721 .5701 .4152 .3024 .2185 .1592 .112 .08225 .06071 .04305 .03045 .02058 .01368 .007918 .003988 .001091 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %10 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %20 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %30 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %40 0.0 0.0 0.0 0.0 %44 ] def %calculation of transformation data /FARBE 27 array def /FARBE [(R) (m) ( 561_770) %00 (Y) (m) ( 495_770) %01 (G) (m) ( 475_573) %02 (C) (m) ( 380_561) %03 (B) (m) ( 380_495) %04 (M) (m) ( 573_475) %05 (N) (0) ( 380_770) %06 (W) (0) ( 380_770) %07 (W) (1) ( 380_770) %08 ] def %/FARBE [(R) (m) ( 565_770) %00 % (Y) (m) ( 495_770) %01 % (G) (m) ( 475_575) %02 % (C) (m) ( 380_565) %03 % (B) (m) ( 380_495) %04 % (M) (m) ( 575_475) %05 % (N) (0) ( 380_770) %06 % (W) (0) ( 380_770) %07 % (W) (1) ( 380_770) %08 % ] def /xshift 10 array def %max 6 device + 4 elementary /yshift 10 array def /colori 10 array def /RX0 640 array def %8x80 /RX0 [ %(%Rm 00 565_770) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 0000 0000 0000 0000 0000 0000 0000 0500 1000 1000 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %(%Ym 01 495_770) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 0000 0000 0000 0500 1000 1000 1000 1000 1000 1000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %(%Gm 02 475_575) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 0000 0000 0000 0000 0000 0000 0000 0000 0000 0500 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 1000 1000 1000 1000 1000 1000 1000 1000 1000 0500 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %(%Cm 04 380_565) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 1000 1000 1000 1000 1000 1000 1000 0500 0000 0000 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %(%Bm 05 380_495) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 1000 1000 1000 0500 0000 0000 0000 0000 0000 0000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %(%Mm 06 575_475) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 1000 1000 1000 1000 1000 1000 1000 1000 1000 0500 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 0000 0000 0000 0000 0000 0000 0000 0000 0000 0500 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %(%N0(r=0,001) 09 380_770) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 %(%W1(r=1,000) 10 380_770) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %(%W1(r=1,000) 10 380_770) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 ] def /xcolorl xcolor def %0 1 1 {/xcolorl exch def %xcolorl=0,1 xcolorl 1 eq {0 1 239 {/i exch def %i=0,239 F2 i F10 i get put } for %i=0,239 } if /YKSUM 0 def %For CIE Illuminant E 0 1 79 {/i exch def %i=0,1,79 /YKSUM YKSUM F2 80 i add get add def } for %i=0,1,79 /F2N 240 array def 0 1 79 {/i exch def %i=0,1,79 F2N 00 i add F2 00 i add get YKSUM div 100 mul put F2N 80 i add F2 80 i add get YKSUM div 100 mul put F2N 160 i add F2 160 i add get YKSUM div 100 mul put } for %i=0,1,79 /FXN 80 array def %FXN 0 = F2N imax /FYN 80 array def /FZN 80 array def %defines FXN, FYN, FZN 0 to 79 0 1 79 {/i exch def %i=0,79 FXN i F2N 000 i add get put FYN i F2N 080 i add get put FZN i F2N 160 i add get put } for %i=0,79 %special wavelength range with complementary colours for E? /FXD 63 array def /FYD 63 array def /FZD 63 array def /DOW 63 array def 00 1 60 {/i exch def %i=0,60 %range 400..700nm FXD i FXN 005 i add get put FYD i FYN 005 i add get put FZD i FZN 005 i add get put DOW i 400 i 5 mul add put %range 400 to 700 } for %i=0,60 %for interpolation FXD 61 FXD 60 get put FYD 61 FYD 60 get put FZD 61 FZD 60 get put FXD 62 FXD 60 get put FYD 62 FYD 60 get put FZD 62 FZD 60 get put /FAD 63 array def /FBD 63 array def /FCD 63 array def 20 setlinewidth /xdel 1005 def /ydel 395 def /x0 050 def /x1 -150 def /TELi 8 array def /TELi [(D65) (D50) (P40) (A00) (E00) (C00) (P00) (Q00)] def %7 illumin. /Xi 79 array def %79 spectral or max 6 device colour + 4 elementary colours /Yi 79 array def /Zi 79 array def /XANi 79 array def /YANi 79 array def /ZANi 79 array def 4 1 4 {/xchart4 exch def %xchart4=0,7 /xchartl xchart def %0 1 7 {/xchartl exch def %xchartl=0,7 %/K 0 def %for normalization 1 /K 1 def %for normalization 0,886 gsave 5 /Times-ISOL1 FS /cvishow {cvi 6 string cvs show} def 75 85 moveto lanind cvishow (-) show colorm cvishow deintp cvishow xcolorl cvishow xchart cvishow pchart cvishow colsep cvishow (-L) show pmetam cvishow 5 /Times-ISOL1 FS 180 85 moveto (SE731-5N/TE011-) show xchart4 1 add cvishow xchart 0 ge {(N) show} if (_) show xchartl 1 add cvishow %xchart 0 eq {(N) show} % {deintp colorm 2 mul add cvishow} ifelse 72 90 translate 0.010 MM dup scale 25 setlinewidth 0 0 0 0 setcmyk_olvcolor 0 0 moveto 5400 0 rlineto 0 4000 rlineto 5400 neg 0 rlineto closepath fill 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath clip 0 0 0 1 setcmyk_olvcolor 0 0 moveto 5400 0 rlineto 0 4000 rlineto 5400 neg 0 rlineto closepath stroke %calculation of XW,YW,ZW for illuminant D65, D50, ... 0 1 79 {/i exch def %i=0,79 SDAK i xchartl 0 eq {SD65 i get} if xchartl 1 eq {SD50 i get} if xchartl 2 eq {SP40 i get} if xchartl 3 eq {SA00 i get} if xchartl 4 eq {SE00 i get} if xchartl 5 eq {SC00 i get} if xchartl 6 eq {SP00 i get} if xchartl 7 eq {SQ00 i get} if put } for %i=0,79 /YKSUM 0 def 0 1 79 {/i exch def %i=0,1,79 /YKSUM YKSUM SDAK i get F2 80 i add get mul add def } for %i=0,1,79 0 1 79 {/i exch def %i=0,1,79 F2N 00 i add SDAK i get F2 00 i add get mul YKSUM div 100 mul put F2N 80 i add SDAK i get F2 80 i add get mul YKSUM div 100 mul put F2N 160 i add SDAK i get F2 160 i add get mul YKSUM div 100 mul put } for %i=0,1,79 %XW,YW,ZW for white /XW 0 def /YW 0 def /ZW 0 def 0 1 079 {/i exch def %i=0,79 /XW XW F2N 00 i add get add def /YW YW F2N 80 i add get add def /ZW ZW F2N 160 i add get add def } for %i=0,79 /SUMW XW YW add ZW add def %for D65, D50, P40, A00, E00 /XANW XW SUMW div def /YANW YW SUMW div def /ZANW ZW SUMW div def /AANW XW YW 0.0001 add div def /BANW ZW YW 0.0001 add div 0.4 mul neg def 0 1 62 {/i exch def %i=0,62 FAD i FXD i get put FBD i FYD i get put FCD i FZD i get put } for %i=0,62 % FXU(1)=FF(2)*U(3)-FF(3)*U(2) % FXU(2)=FF(3)*U(1)-FF(1)*U(3) % FXU(3)=FF(1)*U(2)-FF(2)*U(1) % SUBROUTINE DOWEL (F,FXU,IMAX,IO) % DIMENSION F(99,3),FXU(3) % I=1 % T2=F(1,1)*FXU(1)+F(1,2)*FXU(2)+F(1,3)*FXU(3) % IF(T2) 1,1,4 % 1 T1=T2 % I=I+1 % T2=F(I,1)*FXU(1)+F(I,2)*FXU(2)+F(I,3)*FXU(3) % IF(T2) 1,1,2 % 2 IF(T1) 3,3,1 % 3 IO=I-1 % RETURN % 4 T1=F(IMAX,1)*FXU(1)+F(IMAX,2)*FXU(2)+F(IMAX,3)*FXU(3) % IF(T1) 5,5,1 % 5 IO=IMAX % RETURN % END %********************************************************* /proc_ABC_KNP_FWERTiX {%BEG proc_ABC_KNP_FWERT %input FAD,FBD,FCD, KNP %output FWERTiX/Y/Z (i=1,4) kNP 1 ge {/FWERT1X FAD kNP 1 sub get def /FWERT1Y FBD kNP 1 sub get def /FWERT1Z FCD kNP 1 sub get def} {/FWERT1X FAD 0 get def %again 400nm for i=0 /FWERT1Y FBD 0 get def /FWERT1Z FCD 0 get def} ifelse /FWERT2X FAD kNP get def /FWERT2Y FBD kNP get def /FWERT2Z FCD kNP get def /FWERT3X FAD kNP 1 add get def /FWERT3Y FBD kNP 1 add get def /FWERT3Z FCD kNP 1 add get def /FWERT4X FAD kNP 2 add get def /FWERT4Y FBD kNP 2 add get def /FWERT4Z FCD kNP 2 add get def } bind def %END proc_ABC_KNP_FWERTiX %********************************************************* /proc_XIE_TN1 {%BEG proc_XIE_TN1 %input XIE, FWERTiX/Y/Z (i=1,4) %output TN1 /A1N XIE 1 XIE sub mul XIE 2 sub mul 6 div def /A2N XIE 1 add XIE 1 sub mul XIE 2 sub mul 0.5 mul def /A3N XIE 1 add XIE mul 2 XIE sub mul 0.5 mul def /A4N XIE 1 add XIE mul XIE 1 sub mul 6 div def /FNX A1N FWERT1X mul A2N FWERT2X mul add A3N FWERT3X mul add A4N FWERT4X mul add def /FNY A1N FWERT1Y mul A2N FWERT2Y mul add A3N FWERT3Y mul add A4N FWERT4Y mul add def /FNZ A1N FWERT1Z mul A2N FWERT2Z mul add A3N FWERT3Z mul add A4N FWERT4Z mul add def /TNX FNX FXU1 mul FNY FXU2 mul add FNZ FXU3 mul add def } bind def %END proc_XIE_TN1 %********************************************************* /WEL1 60 array def %irregular definition /WEL2 60 array def %irregular definition %0 1 2 3 4 5 6 7 8 9 /WEL1 [405 435 450 460 465 470 475 480 485 490 495 500 510 520 530 540 545 550 555 560 ] def 0 1 19 {/k exch def %k=0,19 %wavelength 405..700nm /j WEL1 k get 400 sub 5 idiv def /LP k def /LPP 20.5 k add def /FF1 FXD j get def %start at 405..700nm /FF2 FYD j get def /FF3 FZD j get def /U1 XW def /U2 YW def /U3 ZW def /FXU1 FF2 U3 mul FF3 U2 mul sub def /FXU2 FF3 U1 mul FF1 U3 mul sub def /FXU3 FF1 U2 mul FF2 U1 mul sub def /INP -1 def /IPN -1 def %assumption jump from TN to TP from negativ to positiv 0 1 60 {/i exch def %i=1,60 /TN FAD i get FXU1 mul FBD i get FXU2 mul add FCD i get FXU3 mul add def /TP FAD i 1 add get FXU1 mul FBD i 1 add get FXU2 mul add FCD i 1 add get FXU3 mul add def TN 0 le TP 0 gt and {/INP i def exit} if } for %i=1,60 0 1 60 {/i exch def %i=1,60 /TN FAD i get FXU1 mul FBD i get FXU2 mul add FCD i get FXU3 mul add neg def /TP FAD i 1 add get FXU1 mul FBD i 1 add get FXU2 mul add FCD i 1 add get FXU3 mul add neg def TN 0 le TP 0 gt and {/IPN i def exit} if } for %i=1,60 %********************************************************* /kNP INP def kNP 0 ge {%kNP>=0 proc_ABC_KNP_FWERTiX %input FAD,KNP, output FWERTiXYZ (i=1,4) /XIE1 0 def %start values TN=0 for XIE1, TP>0 for XIE2 /XIE2 1 def 0 1 9 {/mk exch def %mk=0,9 /XIE XIE1 XIE2 add 0.5 mul def proc_XIE_TN1 %input XIE, ouput TN1 TNX 0 le {/XIE1 XIE def /TN1 TNX def} {/XIE2 XIE def /TP1 TNX def} ifelse } for %mk=0,9 /XIE XIE1 XIE2 add 0.5 mul def /DOWXIE1 DOW INP get DOW INP 1 add get DOW INP get sub XIE mul add def /XIENP XIE def } if %kNP>=0 %********************************************************* /kNP IPN def kNP 0 ge {%kNP>=0 proc_ABC_KNP_FWERTiX %input FAD,KNP, output FWERTiXYZ (i=1,4) /XIE1 0 def %start values TN=0 for XIE1, TP>0 for XIE2 /XIE2 1 def /FXU1 FXU1 neg def /FXU2 FXU2 neg def /FXU3 FXU3 neg def 0 1 9 {/mk exch def %mk=0,9 /XIE XIE1 XIE2 add 0.5 mul def proc_XIE_TN1 %input XIE, ouput TN1 TNX 0 le {/XIE1 XIE def /TN1 TNX def} {/XIE2 XIE def /TP1 TNX def} ifelse } for %mk=0,9 /XIE XIE1 XIE2 add 0.5 mul def /DOWXIE2 DOW IPN get DOW IPN 1 add get DOW IPN get sub XIE mul add def /XIEPN XIE def } if %kNP>=0 %********************************************************* 0 1 79 {/i exch def %i=0,79 RA i 0 put } for %i=0,79 INP -1 eq {/i1 0 def} %380nm {/i1 INP 5 add def} ifelse %405..700nm IPN -1 eq {/i2 79 def} %770nm {/i2 IPN 5 add def} ifelse %405..700nm i2 i1 ge {%i1i2 i1 1 79 {/i exch def %i=i1,79 RA i 1 put } for %i=i1,79 0 1 i2 {/i exch def %i=0,i2 RA i 1 put } for %i=0,i2 } ifelse %i1>i2 %correction i2 i1 ge {%i1i2 RA i1 0.5 put RA i2 0.5 XIEPN 0.5 sub add put } ifelse %i1>i2 %*************************************************** /X 0 def /Y 0 def /Z 0 def 0 1 079 {/i exch def %i=0,79 /X X F2N 00 i add get RA i get mul add def /Y Y F2N 80 i add get RA i get mul add def /Z Z F2N 160 i add get RA i get mul add def } for %i=0,79 /SUM X Y add Z add def /XAN X SUM 0.0001 add div def /YAN Y SUM 0.0001 add div def /ZAN Z SUM 0.0001 add div def %************************************************* 0 0 0 1 setcmyk_olvcolor 0 1 1 {/Icom exch def %Icom=0,1 Icom 0 eq {%Icom=0,1 Xi k X put Yi k Y put Zi k Z put XANi k XAN put YANi k YAN put ZANi k ZAN put }%Icom=0 {%Icom=1 /kP 20 k add def Xi kP XW X sub put Yi kP YW Y sub put Zi kP ZW Z sub put /SUMi Xi kP get Yi kP get add Zi kP get add def XANi kP Xi kP get SUMi 0.0001 add div put YANi kP Yi kP get SUMi 0.0001 add div put ZANi kP Zi kP get SUMi 0.0001 add div put } ifelse %Icom=1 } for %Icom=0,1 K 1 eq {%K=1 Xi k Xi k get 0.8859 mul put Yi k Yi k get 0.8859 mul put Zi k Zi k get 0.8859 mul put Xi kP Xi kP get 0.8859 mul put Yi kP Yi kP get 0.8859 mul put Zi kP Zi kP get 0.8859 mul put } if %K=1 } for %k=0,19 %********************************************************************** %XW,YW,ZW and XK,YK,ZK for white /XW 0 def /YW 0 def /ZW 0 def 0 1 079 {/i exch def %i=0,79 /XW XW F2N 00 i add get add def /YW YW F2N 80 i add get add def /ZW ZW F2N 160 i add get add def } for %i=0,79 K 0 eq {%K=0 /XK XW def /YK YW def /ZK ZW def }%K=0 {%K=1 /XK XW 0.8859 mul def /YK YW 0.8859 mul def /ZK ZW 0.8859 mul def } ifelse %K=1 /SUMK XK YK add ZK add def %for D65, D50, P40, A00, E00 /XANK XK SUMK div def /YANK YK SUMK div def /ZANK ZK SUMK div def /LP LP 1 add def /xtexti 96 array def /ytexti 96 array def /xtexti [ %T00 T10 T20 T30 T40 T41 T50 T51 T60 T61 T70 T71 %0 1 2 3 4 5 6 7 8 9 10 11 1800 1800 1800 2800 2800 4000 2800 4000 2800 4000 2800 4000 %0 0600 0600 0600 0600 0600 1800 0600 1800 0600 1800 0600 1800 %1 0700 0700 0700 0700 0700 1900 0700 1900 0700 1900 0700 1900 %2 0700 0700 0700 0700 0700 1900 0700 1900 0700 1900 0700 1900 %3 0100 0100 0100 0100 0100 1300 0100 1300 0100 1300 0100 1300 %4 0100 0100 0100 0100 0100 1300 0100 1300 0100 1300 0100 1300 %5 0100 0100 0100 0100 0100 1300 0100 1300 0100 1300 0100 1300 %6 0100 0100 0100 0100 0100 1300 0100 1300 0100 1300 0100 1300 %7 ] def /ytexti [ 3800 3580 3360 3140 2920 2920 2700 2700 2480 2480 2260 2260 %0 0500 0280 0060 1380 1160 1160 0940 0940 0720 0720 0000 0000 %1 0500 0280 0060 1380 1160 1160 0940 0940 0720 0720 0000 0000 %2 0500 0280 0060 1380 1160 1160 0940 0940 0720 0720 0000 0000 %3 0500 0280 0060 1380 1160 1160 0940 0940 0720 0720 0000 0000 %4 0500 0280 0060 1380 1160 1160 0940 0940 0720 0720 0000 0000 %5 0500 0280 0060 1380 1160 1160 0940 0940 0720 0720 0000 0000 %6 0500 0280 0060 1380 1160 1160 0940 0940 0720 0720 0000 0000 %7 ] def 0 0 0 1 setcmyk_olvcolor /xchart12 xchart4 12 mul def TBS xchart4 1 ge { %xchart4 >=1 xtexti xchart12 3 add get ytexti xchart12 3 add get 220 add moveto xchart4 1 eq {(LABCab 77) show} if xchart4 2 eq {(CIELAB 76) show} if xchart4 3 eq {(LABJNDS 87) show} if xchart4 4 eq {(LABCab 85) show} if xchart4 5 eq {(CIELAB 76) show} if xchart4 6 eq {(CIELAB D65) show} if xchart4 7 eq {(LABHNU1 79) show} if } if %xchart4 >=1 xtexti xchart12 3 add get ytexti xchart12 3 add get moveto TBS (Name und Spektralbereich) showde %0TE011-7 00581 (Name and spectral range) showen %1TE011-7 00581 (Nombre y gama espectral) showes %2TE011-7 00581 (Nom et la gamma spectrale) showfr %3TE011-7 00581 (Nome e la gamma spettrale) showit %4TE011-7 00581 (Name and spectral range) showjp %5TE011-7 00581 xtexti xchart12 4 add get ytexti xchart12 4 add get moveto TBIS FARBE 0 get show TBL 0 -40 rmoveto FARBE 1 get show 0 40 rmoveto TBIS FARBE 2 get show xtexti xchart12 5 add get ytexti xchart12 5 add get moveto TBIS FARBE 3 get show TBL 0 -40 rmoveto FARBE 4 get show 0 40 rmoveto TBIS FARBE 5 get show xtexti xchart12 6 add get ytexti xchart12 6 add get moveto TBIS FARBE 6 get show TBL 0 -40 rmoveto FARBE 7 get show 0 40 rmoveto TBIS FARBE 8 get show xtexti xchart12 7 add get ytexti xchart12 7 add get moveto TBIS FARBE 9 get show TBL 0 -40 rmoveto FARBE 10 get show 0 40 rmoveto TBIS FARBE 11 get show xtexti xchart12 8 add get ytexti xchart12 8 add get moveto TBIS FARBE 12 get show TBL 0 -40 rmoveto FARBE 13 get show 0 40 rmoveto TBIS FARBE 14 get show xtexti xchart12 9 add get ytexti xchart12 9 add get moveto TBIS FARBE 15 get show TBL 0 -40 rmoveto FARBE 16 get show 0 40 rmoveto TBIS FARBE 17 get show %xtexti xchart12 10 add get ytexti xchart12 10 add get moveto %TBIS FARBE 18 get show %TBL 0 -40 rmoveto FARBE 19 get show 0 40 rmoveto %TBIS FARBE 20 get show %xtexti xchart12 11 add get ytexti xchart12 11 add get moveto %TBIS FARBE 21 get show %TBL 0 -40 rmoveto FARBE 22 get show 0 40 rmoveto %TBIS FARBE 23 get show TBS 0 0 0 1 setcmyk_olvcolor xtexti xchart12 0 add get ytexti xchart12 0 add get moveto TBIS (Ostwald) show TBS (\255Optimalfarben (o)) showde %0TE011-7 02581 ( optimal colours (o)) showen %1TE011-7 02581 ( colores \363ptimos (o)) showes %2TE011-7 02581 ( couleurs optimales (o)) showfr %3TE011-7 02581 ( colori ottimi (o)) showit %4TE011-7 02581 ( optimal colours (o)) showjp %5TE011-7 02581 TBIS (, Y) show TBL 0 -60 rmoveto (W) show 0 60 rmoveto TBS K 0 eq {(=100) show}{(=88,6) show} ifelse xtexti xchart12 1 add get ytexti xchart12 1 add get moveto (6 von maximalem (m)) showde %0TE011-7 03581 (6 of maximum (m)) showen %1TE011-7 03581 (6 de m\341ximo (m)) showes %2TE011-7 03581 (6 de la maximum (m)) showfr %3TE011-7 03581 (6 di massimo (m)) showit %4TE011-7 03581 (6 of maximum (m)) showjp %5TE011-7 03581 TBIS ( C) show TBL 0 -60 rmoveto (AB) show 0 60 rmoveto TBS ( f\374r ) showde %0TE011-7 03581 ( for ) showen %1TE011-7 03581 ( bajo ) showes %2TE011-7 03581 ( pour ) showfr %3TE011-7 03581 ( per ) showit %4TE011-7 03581 ( for ) showjp %5TE011-7 03581 TELi xchartl get show xtexti xchart12 2 add get ytexti xchart12 2 add get moveto xchart4 0 eq {%xchart4=0 (in der Normfarbtafel) showde %0TE011-7 04581 (in the chromaticity diagram) showen %1TE011-7 04581 (en el diagrama de chromaticidad) showes %2TE011-7 04581 (dans le diagramme de chromaticit\351) showfr %3TE011-7 04581 (nel diagramma di cromaticit\340) showit %4TE011-7 04581 (in the chromaticity diagram) showjp %5TE011-7 04581 TBIS ( (x, y)) show } if %xchart4=0 xchart4 1 eq {%xchart4=1 (in der Farbtafel) showde %0TE011-7 05581 (in the chromaticity diagram) showen %1TE011-7 05581 (en el diagrama de chromaticidad) showes %2TE011-7 05581 (dans le diagramme de chromaticit\351) showfr %3TE011-7 05581 (nel diagramma di cromaticit\340) showit %4TE011-7 05581 (in the chromaticity diagram) showjp %5TE011-7 05581 TBIS ( (a, b)) show } if %xchart4=1 xchart4 2 eq {%xchart4=2 (in der Farbarbtafel) showde %0TE011-7 06581 (in the chromaticity diagram) showen %1TE011-7 06581 (en el diagrama de chromaticidad) showes %2TE011-7 06581 (dans le diagramme de chromaticit\351) showfr %3TE011-7 06581 (nel diagramma di cromaticit\340) showit %4TE011-7 06581 (in the chromaticity diagram) showjp %5TE011-7 06581 TBIS ( (a', b')) show } if %xchart4=2 xchart4 3 eq {%xchart4=3 (in der Farbarbtafel) showde %0TE011-7 07581 (in the chromaticity diagram) showen %1TE011-7 07581 (en el diagrama de chromaticidad) showes %2TE011-7 07581 (dans le diagramme de chromaticit\351) showfr %3TE011-7 07581 (nel diagramma di cromaticit\340) showit %4TE011-7 07581 (in the chromaticity diagram) showjp %5TE011-7 07581 TBIS ( (a", b")) show } if %xchart4=3 xchart4 4 eq {%xchart4=4 (in Buntwertdiagramm) showde %0TE011-7 08581 (in chromatic value diagram) showen %1TE011-7 08581 (en el diagrama valor crom\341tico) showes %2TE011-7 08581 (dans la valeur chromatique le diagramme) showfr %3TE011-7 08581 (nel diagramma di valore cromatico) showit %4TE011-7 08581 (in chromatic value diagram) showjp %5TE011-7 08581 TBIS ( (A, B)) show } if %xchart4=4 xchart4 5 eq {%xchart4=5 (in Buntheitsdiagram) showde %0TE011-7 09581 (in CIELAB diagram) showen %1TE011-7 09581 (en el diagrama CIELAB) showes %2TE011-7 09581 (dans le diagramme de CIELAB) showfr %3TE011-7 09581 (nel diagramma di CIELAB) showit %4TE011-7 09581 (in CIELAB diagram) showjp %5TE011-7 09581 TBIS ( (a*, b*)) show } if %xchart4=5 xchart4 6 eq {%xchart4=6 (in Buntheitsdiagram) showde %0TE011-7 10581 (in chroma diagram) showen %1TE011-7 10581 (en el diagrama croma) showes %2TE011-7 10581 (dans le diagramme de chroma) showfr %3TE011-7 10581 (nel diagramma di chroma) showit %4TE011-7 10581 (in chroma diagram) showjp %5TE011-7 10581 TBIS ( \050a*) show 0 -50 rmoveto TBL (D65) show 0 50 rmoveto TBS (, ) show TBIS (b*) show 0 -50 rmoveto TBL (D65) show 0 50 rmoveto TBS (\051) show } if %xchart4=6 xchart4 7 eq {%xchart4=7 (in Buntheitsdiagram) showde %0TE011-7 11581 (in chroma diagram) showen %1TE011-7 11581 (en el diagrama croma) showes %2TE011-7 11581 (dans le diagramme de chroma) showfr %3TE011-7 11581 (nel diagramma di chroma) showit %4TE011-7 11581 (in chroma diagram) showjp %5TE011-7 11581 TBIS ( (A*, B*)) show } if %xchart4=7 xchart4 0 eq {%xchart4=0 600 400 translate 0 0 moveto 4000 0 rlineto stroke 0 0 moveto 0 3200 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten TBS 0 -50 moveto 0 100 rlineto stroke 800 -50 moveto 0 100 rlineto stroke 1600 -50 moveto 0 100 rlineto stroke 2400 -50 moveto 0 100 rlineto stroke 3200 -50 moveto 0 100 rlineto stroke 4000 -50 moveto 0 100 rlineto stroke -100 -300 moveto (0,0) show 700 -300 moveto (0,2) show 1500 -300 moveto (0,4) show 2300 -300 moveto (0,6) show 3100 -300 moveto (0,8) show 3900 -300 moveto (1,0) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 800 moveto 100 0 rlineto stroke -50 1600 moveto 100 0 rlineto stroke -50 2400 moveto 100 0 rlineto stroke -50 3200 moveto 100 0 rlineto stroke -450 -80 moveto (0,0) show -450 720 moveto (0,2) show -450 1520 moveto (0,4) show -450 2320 moveto (0,6) show -450 3120 moveto (0,8) show TIM -300 2800 moveto (y) show TIM 4200 150 moveto (x) show TBIS 2600 150 moveto (CIE 1931) show -600 -400 translate %1000 02 01 16 01 .00 .0020 ******************** %ANF PROZSPEP3.FOR: MULYA= 4000 BEO=02 xy-Farbtafel IXY0: 600 400 600 400 translate 693 19 moveto 693 19 692 19 690 19 curveto 688 19 685 20 681 23 curveto 675 27 667 34 657 43 curveto 644 55 626 70 603 90 curveto 575 118 542 159 496 231 curveto 438 347 365 530 274 802 curveto 181 1179 93 1650 32 2153 curveto 15 2619 55 3000 155 3248 curveto 297 3335 456 3304 618 3223 curveto 771 3126 918 3017 1063 2897 curveto 1206 2769 1349 2635 1492 2497 curveto 1634 2358 1776 2218 1915 2080 curveto 2049 1946 2179 1817 2300 1696 curveto 2411 1585 2508 1489 2592 1405 curveto 2663 1336 2720 1278 2765 1233 curveto 2802 1197 2831 1168 2856 1143 curveto 2876 1123 2892 1107 2903 1096 curveto 2913 1086 2919 1080 2924 1075 curveto 2927 1072 2930 1069 2933 1066 curveto 2936 1063 2937 1062 2938 1061 curveto 2938 1061 2939 1060 2744 971 curveto 2261 748 2040 643 1908 582 curveto 1819 541 1758 512 1708 490 curveto 1660 468 1612 445 1558 420 curveto 1495 391 1419 356 1320 309 curveto 1184 247 986 155 693 19 curveto stroke 0 0 0 1 setcmyk_olvcolor 693 19 30 0 360 arc fill % 400 681 23 30 0 360 arc fill % 425 626 70 30 0 360 arc fill % 450 438 347 30 0 360 arc fill % 475 32 2153 30 0 360 arc fill % 500 456 3304 30 0 360 arc fill % 525 1206 2769 30 0 360 arc fill % 550 1915 2080 30 0 360 arc fill % 575 2508 1489 30 0 360 arc fill % 600 2802 1197 30 0 360 arc fill % 625 2903 1096 30 0 360 arc fill % 650 2930 1069 30 0 360 arc fill % 675 2938 1061 30 0 360 arc fill % 700 2261 748 30 0 360 arc fill %500c 1708 490 30 0 360 arc fill %525c 1419 356 30 0 360 arc fill %550c 0 0 0 1 setcmyk_olvcolor 693 19 30 0 360 arc stroke % 400 681 23 30 0 360 arc stroke % 425 626 70 30 0 360 arc stroke % 450 438 347 30 0 360 arc stroke % 475 32 2153 30 0 360 arc stroke % 500 456 3304 30 0 360 arc stroke % 525 1206 2769 30 0 360 arc stroke % 550 1915 2080 30 0 360 arc stroke % 575 2508 1489 30 0 360 arc stroke % 600 2802 1197 30 0 360 arc stroke % 625 2903 1096 30 0 360 arc stroke % 650 2930 1069 30 0 360 arc stroke % 675 2938 1061 30 0 360 arc stroke % 700 2261 748 30 0 360 arc stroke %500c 1708 490 30 0 360 arc stroke %525c 1419 356 30 0 360 arc stroke %550c % 1250 1316 30 0 360 arc fill %D65 0 0 0 1 setcmyk_olvcolor TBIS 693 375 sub 19 250 sub moveto (400) show % 681 500 sub 23 100 sub moveto (425) show % 626 500 sub 70 100 sub moveto (450) show 438 350 sub 347 200 sub moveto (475) show 32 450 sub 2153 100 sub moveto (500) show 456 100 add 3304 000 add moveto (525) show 1206 100 add 2769 000 add moveto (550) show 1915 080 sub 2080 100 add moveto (575) show 2508 100 add 1489 000 add moveto (600) show 2802 100 add 1197 100 add moveto (625) show % 2903 200 sub 1096 100 add moveto (650) show % 2930 200 sub 1069 100 add moveto (675) show 2938 100 add 1061 100 sub moveto (700) show 2261 100 add 748 200 sub moveto (500c,E) show 1708 100 add 490 200 sub moveto (525c,E) show 1419 000 add 356 250 sub moveto (550c,E) show % 1250 100 add 1316 100 sub moveto (D65 ) show -600 -400 translate %ENDE: 1 } if %xchart4=0 xchart4 1 eq {%xchart4=1 500 3200 translate 0 400 moveto 4000 0 rlineto stroke 0 400 moveto 0 -3600 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten TBS 0 350 moveto 0 100 rlineto stroke 800 350 moveto 0 100 rlineto stroke 1600 350 moveto 0 100 rlineto stroke 2400 350 moveto 0 100 rlineto stroke 3200 350 moveto 0 100 rlineto stroke 4000 350 moveto 0 100 rlineto stroke -150 500 moveto (-0,8) show 650 500 moveto (0,0) show 1450 500 moveto (0,8) show 2250 500 moveto (1,6) show 3050 500 moveto (2,4) show 3850 500 moveto (3,2) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 -800 moveto 100 0 rlineto stroke -50 -1600 moveto 100 0 rlineto stroke -50 -2400 moveto 100 0 rlineto stroke -50 -3200 moveto 100 0 rlineto stroke -450 -100 moveto ( 0,0) show -450 -900 moveto (-0,8) show -450 -1700 moveto (-1,6) show %-450 -2500 moveto (-2,4) show -175 -3050 moveto 90 rotate TBIK (b) show TBK (=-0,40) show TBIK (z/y) show -90 rotate 3650 100 moveto TBIK (a=x/y) show -500 -3200 translate %1000 02 01 16 01-.03**************************************** %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 1300 3200 translate % 36136 -68535 moveto % 36136 -68535 36234 -68875 35958 -68561 curveto % 35610 -68128 33600 -64560 29424 -56936 curveto % 24474 -47779 19507 -38551 15143 -30384 curveto % 11681 -23927 8847 -18653 6639 -14534 curveto % 4846 -11128 3397 -8271 2147 -5661 curveto 1261 -3701 moveto 1261 -3701 688 -2339 342 -1455 curveto 153 -894 56 -546 15 -336 curveto 5 -208 18 -125 47 -73 curveto 89 -44 138 -28 191 -19 curveto 246 -13 304 -8 366 -5 curveto 435 -3 512 -2 597 -1 curveto 693 -1 800 0 920 0 curveto 1053 0 1198 0 1355 0 curveto 1520 0 1683 0 1844 0 curveto 1993 0 2126 0 2242 0 curveto 2340 0 2424 0 2497 0 curveto 2559 0 2610 0 2649 0 curveto 2680 0 2703 0 2718 0 curveto 2731 0 2741 0 2751 0 curveto 2760 0 2764 0 2767 0 curveto 2769 0 2770 0 2824 -116 curveto 3023 -529 3168 -817 3275 -1036 curveto 3357 -1209 3430 -1349 3482 -1469 curveto 3545 -1597 3622 -1746 3704 -1922 curveto 3817 -2156 3983 -2496 4262 -3058 curveto % 4786 -4149 6341 -7346 35775 -67850 curveto stroke 0 0 0 1 setcmyk_olvcolor % 36136 -68535 30 0 360 arc fill % 400 % 29424 -56936 30 0 360 arc fill % 425 % 8847 -18653 30 0 360 arc fill % 450 1261 -3701 30 0 360 arc fill % 475 15 -336 30 0 360 arc fill % 500 138 -28 30 0 360 arc fill % 525 435 -3 30 0 360 arc fill % 550 920 0 30 0 360 arc fill % 575 1683 0 30 0 360 arc fill % 600 2340 0 30 0 360 arc fill % 625 2649 0 30 0 360 arc fill % 650 2741 0 30 0 360 arc fill % 675 2769 0 30 0 360 arc fill % 700 3023 -529 30 0 360 arc fill %500c 3482 -1469 30 0 360 arc fill %525c 3983 -2496 30 0 360 arc fill %550c 0 0 0 1 setcmyk_olvcolor % 36136 -68535 30 0 360 arc stroke % 400 % 29424 -56936 30 0 360 arc stroke % 425 % 8847 -18653 30 0 360 arc stroke % 450 1261 -3701 30 0 360 arc stroke % 475 15 -336 30 0 360 arc stroke % 500 138 -28 30 0 360 arc stroke % 525 435 -3 30 0 360 arc stroke % 550 920 0 30 0 360 arc stroke % 575 1683 0 30 0 360 arc stroke % 600 2340 0 30 0 360 arc stroke % 625 2649 0 30 0 360 arc stroke % 650 2741 0 30 0 360 arc stroke % 675 2769 0 30 0 360 arc stroke % 700 3023 -529 30 0 360 arc stroke %500c 3482 -1469 30 0 360 arc stroke %525c 3983 -2496 30 0 360 arc stroke %550c % 950 -435 30 0 360 arc fill %D65 0 0 0 1 setcmyk_olvcolor TBIS % 36136 500 sub -68535 100 sub moveto (400) show % 29424 500 sub -56936 100 sub moveto (425) show % 8847 500 sub -18653 100 sub moveto (450) show % 1261 500 sub -3701 100 sub moveto (475) show 15 400 sub -336 100 sub moveto (500) show % 138 200 sub -28 100 add moveto (525) show 435 200 sub -3 100 add moveto (550) show % 920 200 sub 0 100 add moveto (575) show 1683 200 sub 0 100 add moveto (600) show 2340 200 sub 0 100 add moveto (625) show % 2649 200 sub 0 100 add moveto (650) show % 2741 200 sub 0 100 add moveto (675) show 2769 100 add 0 150 sub moveto (700) show 3023 100 add -529 100 sub moveto (500c,E) show 3482 800 sub -1469 050 sub moveto (525c,E) show % 3983 500 sub -2496 100 sub moveto (550c,E) show % 950 100 add -435 100 sub moveto (D65 ) show -1300 -3200 translate %ENDE: 2 } if %xchart4=1 xchart4 2 eq {%xchart4=2 600 3200 translate 0 400 moveto 4400 0 rlineto stroke 0 400 moveto 0 -3600 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten TBS 000 350 moveto 0 100 rlineto stroke 0800 350 moveto 0 100 rlineto stroke 1600 350 moveto 0 100 rlineto stroke 2400 350 moveto 0 100 rlineto stroke 3200 350 moveto 0 100 rlineto stroke 4000 350 moveto 0 100 rlineto stroke -200 500 moveto (0,00) show 600 500 moveto (0,06) show 1400 500 moveto (0,12) show 2200 500 moveto (0,18) show 3000 500 moveto (0,24) show 3800 500 moveto (0,30) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 -800 moveto 100 0 rlineto stroke -50 -1600 moveto 100 0 rlineto stroke -50 -2400 moveto 100 0 rlineto stroke -50 -3200 moveto 100 0 rlineto stroke -575 -100 moveto ( 0,00) show -575 -900 moveto (-0,06) show -575 -1700 moveto (-0,12) show -575 -2500 moveto (-0,18) show TIM -380 -1300 moveto (b') show 4300 250 moveto (a') show -600 -3200 translate %1000 02 01 16 01 .00 .0020 ******************** %ANF PROZSPEP3.FOR: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 400 3200 translate 9657 -6202 moveto 9657 -6202 9666 -6212 9642 -6203 curveto 9610 -6190 9426 -6080 9018 -5830 curveto 8481 -5499 7863 -5120 7227 -4729 curveto 6628 -4367 6041 -4019 5490 -3698 curveto 4943 -3383 4391 -3065 3769 -2701 curveto 3156 -2344 2578 -2012 2043 -1717 curveto 1565 -1460 1123 -1239 723 -1054 curveto 527 -898 772 -759 1060 -634 curveto 1304 -535 1510 -464 1685 -408 curveto 1832 -356 1965 -309 2091 -267 curveto 2214 -230 2337 -200 2460 -176 curveto 2585 -157 2712 -145 2841 -139 curveto 2972 -138 3103 -133 3233 -126 curveto 3359 -126 3475 -120 3582 -113 curveto 3676 -98 3756 -91 3823 -88 curveto 3878 -75 3924 -64 3963 -57 curveto 3995 -54 4022 -46 4042 0 curveto 4057 0 4069 0 4077 0 curveto 4083 0 4088 0 4093 0 curveto 4097 0 4100 0 4101 0 curveto 4102 0 4103 0 4129 -740 curveto 4224 -1226 4290 -1417 4338 -1533 curveto 4374 -1614 4405 -1674 4427 -1723 curveto 4454 -1771 4486 -1825 4520 -1884 curveto 4565 -1958 4630 -2056 4736 -2200 curveto 4923 -2435 5407 -2946 9625 -6181 curveto stroke 0 0 0 1 setcmyk_olvcolor 9657 -6202 30 0 360 arc fill % 400 9018 -5830 30 0 360 arc fill % 425 6041 -4019 30 0 360 arc fill % 450 3156 -2344 30 0 360 arc fill % 475 723 -1054 30 0 360 arc fill % 500 1510 -464 30 0 360 arc fill % 525 2214 -230 30 0 360 arc fill % 550 2841 -139 30 0 360 arc fill % 575 3475 -120 30 0 360 arc fill % 600 3878 -75 30 0 360 arc fill % 625 4042 0 30 0 360 arc fill % 650 4088 0 30 0 360 arc fill % 675 4102 0 30 0 360 arc fill % 700 4224 -1226 30 0 360 arc fill %500c 4427 -1723 30 0 360 arc fill %525c 4630 -2056 30 0 360 arc fill %550c 0 0 0 1 setcmyk_olvcolor 9657 -6202 30 0 360 arc stroke % 400 9018 -5830 30 0 360 arc stroke % 425 6041 -4019 30 0 360 arc stroke % 450 3156 -2344 30 0 360 arc stroke % 475 723 -1054 30 0 360 arc stroke % 500 1510 -464 30 0 360 arc stroke % 525 2214 -230 30 0 360 arc stroke % 550 2841 -139 30 0 360 arc stroke % 575 3475 -120 30 0 360 arc stroke % 600 3878 -75 30 0 360 arc stroke % 625 4042 0 30 0 360 arc stroke % 650 4088 0 30 0 360 arc stroke % 675 4102 0 30 0 360 arc stroke % 700 4224 -1226 30 0 360 arc stroke %500c 4427 -1723 30 0 360 arc stroke %525c 4630 -2056 30 0 360 arc stroke %550c % 2872 -1148 30 0 360 arc fill %D65 0 0 0 1 setcmyk_olvcolor TBIS % 9657 500 sub -6202 100 sub moveto (400) show % 9018 500 sub -5830 100 sub moveto (425) show % 6041 500 sub -4019 100 sub moveto (450) show 3156 400 sub -2344 100 sub moveto (475) show 723 250 sub -1054 250 sub moveto (500) show 1510 200 sub -464 150 add moveto (525) show 2214 200 sub -230 100 add moveto (550) show 2841 200 sub -139 100 add moveto (575) show 3475 200 sub -120 100 add moveto (600) show % 3878 200 sub -75 100 add moveto (625) show % 4042 200 sub 0 100 add moveto (650) show % 4088 200 sub 0 100 add moveto (675) show 4102 050 add 0 100 sub moveto (700) show 4224 050 add -1226 000 sub moveto (500c,E) show 4427 010 sub -1723 100 add moveto (525c,E) show % 4630 100 add -2056 100 sub moveto (550c,E) show % 2872 050 add -1148 000 sub moveto (D65 ) show -400 -3200 translate %ENDE: 3 } if %xchart4=2 xchart4 3 eq {%xchart4=3 600 3200 translate 0 400 moveto 4400 0 rlineto stroke 0 400 moveto 0 -3500 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten TBS 0 350 moveto 0 100 rlineto stroke 800 350 moveto 0 100 rlineto stroke 1600 350 moveto 0 100 rlineto stroke 2400 350 moveto 0 100 rlineto stroke 3200 350 moveto 0 100 rlineto stroke 4000 350 moveto 0 100 rlineto stroke -250 500 moveto (-0,6) show 650 500 moveto (0,0) show 1450 500 moveto (0,6) show 2250 500 moveto (1,2) show 3050 500 moveto (1,8) show 3850 500 moveto (2,4) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 -800 moveto 100 0 rlineto stroke -50 -1600 moveto 100 0 rlineto stroke -50 -2400 moveto 100 0 rlineto stroke -50 -3200 moveto 100 0 rlineto stroke -450 -100 moveto ( 0,0) show -450 -900 moveto (-0,6) show -450 -1700 moveto (-1,2) show -450 -2500 moveto (-1,8) show TBIK -450 -2900 moveto (b") show TBS -120 -125 rmoveto (s) show 120 125 rmoveto TBIK 4050 200 moveto (a") show TBS -120 -125 rmoveto (s) show 120 125 rmoveto TBIK -600 -3200 translate %1000 02 **************************************** %ANF PROZSPEP.FOR: MULYA= 1333 BEO=02 a"b" LABJND 1985 IXY0: 700 3200 700 800 add 3200 translate 3789 -3170 moveto 3789 -3170 3789 -3170 3788 -3170 curveto 3787 -3170 3779 -3166 3757 -3155 curveto 3724 -3138 3673 -3113 3603 -3079 curveto 3514 -3037 3394 -2982 3239 -2915 curveto 3028 -2826 2734 -2704 2265 -2508 curveto 1626 -2234 957 -1880 645 -1481 curveto 507 -1078 443 -720 417 -455 curveto 411 -308 419 -223 437 -171 curveto 464 -144 496 -130 533 -121 curveto 573 -115 616 -111 664 -108 curveto 721 -107 787 -105 867 -105 curveto 963 -104 1081 -104 1227 -104 curveto 1397 -104 1561 -104 1716 -104 curveto 1858 -104 1981 -104 2090 -104 curveto 2180 -104 2254 -104 2313 -104 curveto 2360 -103 2397 -103 2429 -103 curveto 2455 -103 2476 -103 2491 -103 curveto 2503 -103 2512 -103 2517 -103 curveto 2522 -103 2526 -103 2530 -103 curveto 2533 -103 2535 -103 2536 -103 curveto 2536 -103 2537 -103 2556 -214 curveto 2623 -700 2668 -1007 2700 -1196 curveto 2723 -1324 2742 -1416 2756 -1488 curveto 2772 -1560 2791 -1636 2811 -1717 curveto 2837 -1813 2873 -1933 2929 -2093 curveto 3019 -2313 3211 -2648 3788 -3169 curveto stroke 1 setgray 3789 -3170 30 0 360 arc fill % 400 3757 -3155 30 0 360 arc fill % 425 3394 -2982 30 0 360 arc fill % 450 1626 -2234 30 0 360 arc fill % 475 417 -455 30 0 360 arc fill % 500 496 -130 30 0 360 arc fill % 525 721 -107 30 0 360 arc fill % 550 1227 -104 30 0 360 arc fill % 575 1981 -104 30 0 360 arc fill % 600 2360 -103 30 0 360 arc fill % 625 2491 -103 30 0 360 arc fill % 650 2526 -103 30 0 360 arc fill % 675 2536 -103 30 0 360 arc fill % 700 2623 -700 30 0 360 arc fill %500c 2756 -1488 30 0 360 arc fill %525c 2873 -1933 30 0 360 arc fill %550c 0 setgray 3789 -3170 30 0 360 arc stroke % 400 3757 -3155 30 0 360 arc stroke % 425 3394 -2982 30 0 360 arc stroke % 450 1626 -2234 30 0 360 arc stroke % 475 417 -455 30 0 360 arc stroke % 500 496 -130 30 0 360 arc stroke % 525 721 -107 30 0 360 arc stroke % 550 1227 -104 30 0 360 arc stroke % 575 1981 -104 30 0 360 arc stroke % 600 2360 -103 30 0 360 arc stroke % 625 2491 -103 30 0 360 arc stroke % 650 2526 -103 30 0 360 arc stroke % 675 2536 -103 30 0 360 arc stroke % 700 2623 -700 30 0 360 arc stroke %500c 2756 -1488 30 0 360 arc stroke %525c 2873 -1933 30 0 360 arc stroke %550c 1266 -580 30 0 360 arc fill %D65 0 setgray TBIS 3789 200 sub -3170 200 add moveto (400) show % 3757 600 sub -3155 100 sub moveto (425) show % 3394 600 sub -2982 100 sub moveto (450) show 1626 050 sub -2234 150 add moveto (475) show 417 430 sub -455 100 sub moveto (500) show 496 400 sub -130 50 add moveto (525) show 721 200 sub -107 100 add moveto (550) show 1227 200 sub -104 100 add moveto (575) show 1981 200 sub -104 100 add moveto (600) show % 2360 200 sub -103 100 add moveto (625) show % 2491 200 sub -103 100 add moveto (650) show % 2526 200 sub -103 100 add moveto (675) show 2536 100 add -103 moveto (700) show 2623 100 add -700 100 sub moveto (500c) show 2756 100 add -1488 100 sub moveto (525c) show % 2873 100 add -1933 100 sub moveto (550c) show % 1266 100 add -580 100 sub moveto (D65 ) show 700 800 add neg -3200 translate %ENDE: 3 } if %xchart4=3 xchart4 4 ge xchart4 7 le and {%4>=xchart4<=7 3500 2000 translate %axis and scales 0 0 0 1 setcmyk_olvcolor -2250 0 moveto 3950 0 rlineto stroke 0 -1880 moveto 0 3600 rlineto stroke 1700 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 /xt10x 5 array def /yt10x 5 array def xchart4 4 eq {%xchart4=4 /xt10x [(-40) ( ) ( ) ( ) ( 40)] def /yt10x [(-40) ( ) ( ) ( ) (40)] def } if %xchart4=3 xchart4 5 ge xchart4 7 le and {%5>=xchart4<=7 /xt10x [(-120) ( ) ( ) ( ) ( 120)] def /yt10x [(-120) ( ) ( ) ( ) (120)] def } if %4>=xchart4<=6 0 0 0 1 setcmyk_olvcolor 0 1 4 {/i exch def %i=0,4 x-axis -1600 i 800 mul add -75 moveto 0 150 rlineto stroke -1800 i 800 mul add -250 moveto TBS xt10x i get show i 4 eq {-1600 i 800 mul add 0 moveto xchart4 4 eq { %xchart4=4 000 150 rmoveto TBIM (A) show TL } if %xchart4=4 xchart4 5 eq { %xchart4=5 -50 150 rmoveto TBIM (a*) show TL } if %xchart4=5 xchart4 6 eq { %xchart4=6 -350 150 rmoveto TBIM (a*) show -40 -50 rmoveto TBL (D65) show 0 50 rmoveto TL } if %xchart4=6 xchart4 7 eq { %xchart4=7 -50 150 rmoveto TBIM (A*) show TL } if %xchart4=7 } if } for %i=0,4 0 1 4 {/i exch def %i=0,4 y-axis -75 -1600 i 800 mul add moveto 150 0 rlineto stroke 100 -1600 i 800 mul add 100 sub moveto TBS yt10x i get show i 4 eq {0 -1600 i 800 mul add moveto xchart4 4 eq { %xchart4=4 -250 150 rmoveto TBIM (B) show TL } if %xchart4=4 xchart4 5 eq { %xchart4=5 -400 150 rmoveto TBIM (b*) show TL } if %xchart4=5 xchart4 6 eq { %xchart4=6 -750 150 rmoveto TBIM (b*) show -40 -50 rmoveto TBL (D65) show 0 50 rmoveto TL } if %xchart4=6 xchart4 7 eq { %xchart4=7 -300 150 rmoveto TBIM (B*) show TL } if %xchart4=7 } if } for %i=0,4 -3500 -2000 translate } if %4>=xchart4<=7 %*********************************************************** /icolor 9 array def %Rm %Ym %Gm %Cm %Bm %Mm %Go %Mo %W /icolor [20 10 06 00 30 26 06 26 40] def /imshow {0 -50 rmoveto TBL (m) show 0 50 rmoveto TBIS} def %************************************************* xchart4 0 eq {%xchart4=0 %only for (x,y) /fakt 4000 def 600 400 translate %for scala and graphic 0 1 39 {/i exch def %i=0,39 XANi i get fakt mul YANi i get fakt mul i 0 eq {moveto} if i 1 ge i 38 le and {lineto} if i 39 eq {lineto closepath stroke} if } for %i=0,39 XANW fakt mul YANW fakt mul 90 0 360 arc stroke XANW fakt mul 200 sub YANW fakt mul 250 sub moveto TBS TELi xchartl get show TBIS 0 1 2 {/j exch def %j=0,2 j 0 eq {/i 0 def} if %Cm-Rm j 1 eq {/i 6 def} if %Gm-Mm j 2 eq {/i 10 def} if %Ym-Bm /SUM Xi i get Yi i get add Zi i get add 0.0001 add def /AnY Xi i get SUM div fakt mul def /BnY Yi i get SUM div fakt mul def j 0 eq {AnY 350 sub BnY 050 sub moveto (C) show imshow 1 0 0 0 setcmykcolor} if %Cm j 1 eq {AnY 400 sub BnY 050 sub moveto (G) show imshow 1 0 1 0 setcmykcolor} if %Gm j 2 eq {AnY 100 sub BnY 250 sub moveto (Y) show imshow 0 0 1 0 setcmykcolor} if %Ym newpath AnY BnY 90 0 360 arc fill 0 setgray newpath AnY BnY 90 0 360 arc stroke /SUM XK Xi i get sub YK Yi i get sub add ZK Zi i get sub add 0.0001 add def /AnY XK Xi i get sub SUM div fakt mul def /BnY YK Yi i get sub SUM div fakt mul def j 0 eq {AnY 100 sub BnY 250 sub moveto (R) show imshow 0 1 1 0 setcmykcolor} if %Rm j 1 eq {AnY 150 add BnY 050 sub moveto (M) show imshow 0 1 0 0 setcmykcolor} if %Mm j 2 eq {AnY 100 add BnY 100 add moveto (B) show imshow 1 1 0 0 setcmykcolor} if %Bm newpath AnY BnY 90 0 360 arc fill 0 setgray newpath AnY BnY 90 0 360 arc stroke } for %j=0,2 -600 -400 translate %for scala and grafic } if %xchart4=0 xchart4 1 eq {%xchart4=1 %only for (a,b) /fakt 1000 def /a2 XW YW 0.0001 add div def /b2 ZW YW 0.0001 add div -0.4 mul def 1300 3200 translate %for grafic 0 1 39 {/i exch def %i=0,39 Xi i get Yi i get 0.0001 add div fakt mul %a Zi i get Yi i get 0.0001 add div fakt mul %b 0.4 mul neg i 0 eq {moveto} if i 1 ge i 38 le and {lineto} if i 39 eq {lineto closepath stroke} if } for %i=0,39 XW YW 0.0001 add div fakt mul ZW YW 0.0001 add div fakt mul 0.4 mul neg 90 0 360 arc stroke XW YW 0.0001 add div fakt mul 200 sub ZW YW 0.0001 add div fakt mul 0.4 mul neg 250 sub moveto TBS TELi xchartl get show TBIS 0 1 2 {/j exch def %j=0,2 j 0 eq {/i 0 def} if %Cm-Rm j 1 eq {/i 6 def} if %Gm-Mm j 2 eq {/i 10 def} if %Ym-Bm /AnY Xi i get Yi i get 0.0001 add div fakt mul def /BnY Zi i get Yi i get 0.0001 add div fakt mul 0.4 mul neg def j 0 eq {AnY 350 sub BnY 050 sub moveto (C) show imshow 1 0 0 0 setcmykcolor} if %Cm j 1 eq {AnY 300 sub BnY 150 sub moveto (G) show imshow 1 0 1 0 setcmykcolor} if %Gm j 2 eq {AnY 100 sub BnY 250 sub moveto (Y) show imshow 0 0 1 0 setcmykcolor} if %Ym newpath AnY BnY 90 0 360 arc fill 0 setgray newpath AnY BnY 90 0 360 arc stroke /AnY XK Xi i get sub YK Yi i get sub 0.0001 add div fakt mul def /BnY ZK Zi i get sub YK Yi i get sub 0.0001 add div fakt mul 0.4 mul neg def j 0 eq {AnY 100 add BnY 200 sub moveto (R) show imshow 0 1 1 0 setcmykcolor} if %Rm j 1 eq {AnY 100 add BnY 050 sub moveto (M) show imshow 0 1 0 0 setcmykcolor} if %Mm j 2 eq {AnY 100 sub BnY 200 add moveto (B) show imshow 1 1 0 0 setcmykcolor} if %Bm newpath AnY BnY 90 0 360 arc fill 0 setgray newpath AnY BnY 90 0 360 arc stroke } for %j=0,2 -1300 -3200 translate %for grafic } if %xchart4=1 xchart4 2 eq {%xchart4=2 %only for (a',b') /D13 1 3 div def /fakt 13333 def /a2 XW YW 0.0001 add div D13 exp 0.2191 mul def /b2 ZW YW 0.0001 add div D13 exp -0.08376 mul def 200 3200 translate %for graphic 0 1 39 {/i exch def %i=0,39 Xi i get Yi i get 0.0001 add div %a' D13 exp 0.2191 mul fakt mul Zi i get Yi i get 0.0001 add div %b' D13 exp -0.08376 mul fakt mul i 0 eq {moveto} if i 1 ge i 38 le and {lineto} if i 39 eq {lineto closepath stroke} if } for %i=0,39 XW YW 0.0001 add div %a' D13 exp 0.2191 mul fakt mul ZW YW 0.0001 add div %b' D13 exp -0.08376 mul fakt mul 90 0 360 arc stroke XW YW 0.0001 add div %a' D13 exp 0.2191 mul fakt mul 200 sub ZW YW 0.0001 add div %b' D13 exp -0.08376 mul fakt mul 250 sub moveto TBS TELi xchartl get show TBIS 0 1 2 {/j exch def %j=0,2 j 0 eq {/i 0 def} if %Cm-Rm j 1 eq {/i 6 def} if %Gm-Mm j 2 eq {/i 10 def} if %Ym-Bm /AnY Xi i get Yi i get 0.0001 add div %a' D13 exp 0.2191 mul fakt mul def /BnY Zi i get Yi i get 0.0001 add div %b' D13 exp -0.08376 mul fakt mul def j 0 eq {AnY 350 sub BnY 050 sub moveto (C) show imshow 1 0 0 0 setcmykcolor} if %Cm j 1 eq {AnY 350 sub BnY 050 sub moveto (G) show imshow 1 0 1 0 setcmykcolor} if %Gm j 2 eq {AnY 100 sub BnY 250 sub moveto (Y) show imshow 0 0 1 0 setcmykcolor} if %Ym newpath AnY BnY 90 0 360 arc fill 0 setgray newpath AnY BnY 90 0 360 arc stroke /AnY XK Xi i get sub YK Yi i get sub 0.0001 add div %a' D13 exp 0.2191 mul fakt mul def /BnY ZK Zi i get sub YK Yi i get sub 0.0001 add div %b' D13 exp -0.08376 mul fakt mul def j 0 eq {AnY 100 add BnY 000 add moveto (R) show imshow 0 1 1 0 setcmykcolor} if %Rm j 1 eq {AnY 100 add BnY 050 sub moveto (M) show imshow 0 1 0 0 setcmykcolor} if %Mm j 2 eq {AnY 050 add BnY 150 add moveto (B) show imshow 1 1 0 0 setcmykcolor} if %Bm newpath AnY BnY 90 0 360 arc fill 0 setgray newpath AnY BnY 90 0 360 arc stroke } for %j=0,2 -200 -3200 translate %for graphic } if %xchart4=2 xchart4 3 eq {%xchart4=3 %only for (a",b") %100 3800 moveto TIS ((a",b") (LAB 1977)) show /fakt 1333 def /XD65 95.04 def /YD65 100.00 def /ZD65 108.89 def /aD65 XD65 YD65 0.0001 add div def /bD65 ZD65 YD65 0.0001 add div -0.4 mul def /a2 aD65 def /b2 bD65 def 700 800 add 3200 translate %for grafic 0 1 39 {/i exch def %i=0,39 /a Xi i get Yi i get 0.0001 add div def /an XK YK 0.0001 add div def /b Zi i get Yi i get 0.0001 add div 0.4 mul neg def /bn ZK YK 0.0001 add div 0.4 mul neg def /a" an a an sub 1 a an sub abs 0.5 mul add div add def /b" bn b bn sub 1 b bn sub abs 0.5 mul add div add def a" fakt mul b" fakt mul /a"n an def /b"n bn def i 0 eq {moveto} if i 1 ge i 38 le and {lineto} if i 39 eq {lineto closepath stroke} if } for %i=0,39 a"n fakt mul b"n fakt mul 90 0 360 arc stroke a"n fakt mul 200 sub b"n fakt mul 250 sub moveto TBS TELi xchartl get show TBIS 0 1 2 {/j exch def %j=0,2 j 0 eq {/i 0 def} if %Cm-Rm j 1 eq {/i 6 def} if %Gm-Mm j 2 eq {/i 10 def} if %Ym-Bm /a Xi i get Yi i get 0.0001 add div def /an XK YK 0.0001 add div def /b Zi i get Yi i get 0.0001 add div 0.4 mul neg def /bn ZK YK 0.0001 add div 0.4 mul neg def /a" an a an sub 1 a an sub abs 0.5 mul add div add def /b" bn b bn sub 1 b bn sub abs 0.5 mul add div add def a" fakt mul b" fakt mul /a"n an def /b"n bn def /AnY a" fakt mul def /BnY b" fakt mul def j 0 eq {AnY 350 sub BnY 050 sub moveto (C) show imshow 1 0 0 0 setcmykcolor} if %Cm j 1 eq {AnY 050 add BnY 200 sub moveto (G) show imshow 1 0 1 0 setcmykcolor} if %Gm j 2 eq {AnY 050 sub BnY 250 sub moveto (Y) show imshow 0 0 1 0 setcmykcolor} if %Ym newpath AnY BnY 90 0 360 arc fill 0 setgray newpath AnY BnY 90 0 360 arc stroke /a XK Xi i get sub YK Yi i get sub 0.0001 add div def /an XK YK 0.0001 add div def /b ZK Zi i get sub YK Yi i get sub 0.0001 add div 0.4 mul neg def /bn ZK YK 0.0001 add div 0.4 mul neg def /a" an a an sub 1 a an sub abs 0.5 mul add div add def /b" bn b bn sub 1 b bn sub abs 0.5 mul add div add def a" fakt mul b" fakt mul /a"n an def /b"n bn def /AnY a" fakt mul def /BnY b" fakt mul def j 0 eq {AnY 100 add BnY 200 sub moveto (R) show imshow 0 1 1 0 setcmykcolor} if %Rm j 1 eq {AnY 100 add BnY 050 sub moveto (M) show imshow 0 1 0 0 setcmykcolor} if %Mm j 2 eq {AnY 050 add BnY 150 add moveto (B) show imshow 1 1 0 0 setcmykcolor} if %Bm newpath AnY BnY 90 0 360 arc fill 0 setgray newpath AnY BnY 90 0 360 arc stroke } for %j=0,2 700 800 add neg -3200 translate %for graphic } if %xchart4=3 xchart4 4 eq {%xchart4=4 %only for (A,B) /fakt 40 def /a2 1.00 def /b2 -0.4 def 3500 2000 translate %for text and grafic -3400 1800 moveto TBIS (XYZ) show TBL (w) show TBS (=) show XK cvsshow5 (, ) show YK cvsshow5 (, ) show ZK cvsshow2 -3400 1550 moveto TBIS (A) show TBS ( = \050) show TBIS (a) show TBS ( - ) show TBIS (a) show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (\051 ) show TBIS (Y) show -3400 1300 moveto TBIS (B) show TBS ( = \050) show TBIS (b) show TBS ( - ) show TBIS (b) show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (\051 ) show TBIS (Y) show -3400 1050 moveto TBIS (a) show TBS ( = ) show TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( [) show TBIS (x/y) show TBS (]) show -3400 800 moveto TBIS (b) show TBS ( = ) show TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( [) show TBIS (z/y) show TBS (]) show -3400 550 moveto TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( = 1) show -3400 300 moveto TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( = -0,4) show -3400 050 moveto TBIS (n) show TBS ( = ) show TELi xchartl get show 0 1 39 {/i exch def %i=0,39 Xi i get Yi i get 0.0001 add div %(a-an)Y XK YK 0.0001 add div sub Yi i get mul fakt mul Zi i get Yi i get 0.0001 add div %(b-bn)Y ZK YK 0.0001 add div sub 0.4 mul neg Yi i get mul fakt mul i 0 eq {moveto} if i 1 ge i 38 le and {lineto} if i 39 eq {lineto closepath stroke} if } for %i=0,39 XW YW 0.0001 add div %(a-an)YW XK YK 0.0001 add div sub YW mul fakt mul ZW YW 0.0001 add div %(b-an)YW ZK YK 0.0001 add div sub 0.4 mul neg YW mul fakt mul 90 0 360 arc stroke 0 080 add 0 080 add moveto TBS TELi xchartl get show TBIS 0 1 2 {/j exch def %j=0,2 j 0 eq {/i 0 def} if %Cm-Rm j 1 eq {/i 6 def} if %Gm-Mm j 2 eq {/i 10 def} if %Ym-Bm /AnY Xi i get Yi i get 0.0001 add div %(a-an)Y XK YK 0.0001 add div sub Yi i get mul fakt mul def /BnY Zi i get Yi i get 0.0001 add div %(b-bn)Y ZK YK 0.0001 add div sub 0.4 mul neg Yi i get mul fakt mul def j 0 eq {AnY 100 add BnY 000 add moveto (C) show imshow 1 0 0 0 setcmykcolor} if %Cm j 1 eq {AnY 100 add BnY 000 add moveto (G) show imshow 1 0 1 0 setcmykcolor} if %Gm j 2 eq {AnY 100 sub BnY 300 sub moveto (Y) show imshow 0 0 1 0 setcmykcolor} if %Ym newpath AnY BnY 90 0 360 arc fill 0 setgray newpath AnY BnY 90 0 360 arc stroke /AnY XK Xi i get sub YK Yi i get sub 0.0001 add div %(a-an)Y XK YK 0.0001 add div sub YK Yi i get sub mul fakt mul def /BnY ZK Zi i get sub YK Yi i get sub 0.0001 add div %(b-bn)Y ZK YK 0.0001 add div sub 0.4 mul neg YK Yi i get sub mul fakt mul def j 0 eq {AnY 100 add BnY 000 add moveto (R) show imshow 0 1 1 0 setcmykcolor} if %Rm j 1 eq {AnY 450 sub BnY 100 sub moveto (M) show imshow 0 1 0 0 setcmykcolor} if %Mm j 2 eq {AnY 100 sub BnY 200 add moveto (B) show imshow 1 1 0 0 setcmykcolor} if %Bm newpath AnY BnY 90 0 360 arc fill 0 setgray newpath AnY BnY 90 0 360 arc stroke } for %j=0,2 } if %xchart4=4 xchart4 5 eq {%xchart4=5 %only for (a*,b*) /D13 1 3 div def /fakt 40 3 div def /a2 1 XW div D13 exp def /b2 1 ZW div D13 exp -0.4 mul def 3500 2000 translate %for text and grafic -3400 1800 moveto TBIS (XYZ) show TBL (w) show TBS (=) show XK cvsshow5 (, ) show YK cvsshow5 (, ) show ZK cvsshow2 -3400 1550 moveto TBIS (a*) show TBS ( = 500 \050) show TBIS (a') show TBS ( - ) show TBIS (a') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (\051 ) show TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 1300 moveto TBIS (b*) show TBS ( = 500 \050) show TBIS (b') show TBS ( - ) show TBIS (b') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (\051 ) show TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 1050 moveto TBIS (a) show TBS ( = ) show TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( [) show TBIS (x/y) show TBS (]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 800 moveto TBIS (b) show TBS ( = ) show TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( [) show TBIS (z/y) show TBS (]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 550 moveto TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS (=[1/) show TBIS (X) show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto TBS (=) show a2 cvsshow4 -3400 300 moveto TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS (=-[1/) show TBIS (Z) show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto TBS (=) show b2 cvsshow5 -3400 050 moveto TBIS (n) show TBS ( = ) show TELi xchartl get show 0 1 39 {/i exch def %i=0,39 Xi i get Yi i get 0.0001 add div %500(a'-a'n)Y**(1/3) D13 exp a2 mul %a'= a2 (x/y)**(1/3) XK YK 0.0001 add div D13 exp a2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul Zi i get Yi i get 0.0001 add div %500(b'-b'n)Y**(1/3) D13 exp b2 mul %b' = b2 (z/y)**(1/3) ZK YK 0.0001 add div D13 exp b2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul i 0 eq {moveto} if i 1 ge i 38 le and {lineto} if i 39 eq {lineto closepath stroke} if } for %i=0,39 XW YW 0.0001 add div D13 exp a2 mul XK YK 0.0001 add div D13 exp a2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul ZW YW 0.0001 add div D13 exp b2 mul ZK YK 0.0001 add div D13 exp b2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul 90 0 360 arc stroke XW YW 0.0001 add div D13 exp a2 mul XK YK 0.0001 add div D13 exp a2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul 200 sub ZW YW 0.0001 add div D13 exp b2 mul ZK YK 0.0001 add div D13 exp b2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul 250 sub moveto TBS TELi xchartl get show TBIS 0 1 2 {/j exch def %j=0,2 j 0 eq {/i 0 def} if %Cm-Rm j 1 eq {/i 6 def} if %Gm-Mm j 2 eq {/i 10 def} if %Ym-Bm /AnY Xi i get Yi i get 0.0001 add div %500(a'-a'n)Y**(1/3) D13 exp a2 mul %a'= a2 (x/y)**(1/3) XK YK 0.0001 add div D13 exp a2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def /BnY Zi i get Yi i get 0.0001 add div %500(b'-b'n)Y**(1/3) D13 exp b2 mul %b'= b2 (x/y)**(1/3) ZK YK 0.0001 add div D13 exp b2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def j 0 eq {AnY 100 add BnY 000 add moveto (C) show imshow 1 0 0 0 setcmykcolor} if %Cm j 1 eq {AnY 100 add BnY 000 add moveto (G) show imshow 1 0 1 0 setcmykcolor} if %Gm j 2 eq {AnY 100 add BnY 250 sub moveto (Y) show imshow 0 0 1 0 setcmykcolor} if %Ym newpath AnY BnY 90 0 360 arc fill 0 setgray newpath AnY BnY 90 0 360 arc stroke /AnY XK Xi i get sub YK Yi i get sub 0.0001 add div D13 exp a2 mul XK YK 0.0001 add div D13 exp a2 mul sub YK Yi i get sub 0.0001 add D13 exp mul fakt mul 500 mul def /BnY ZK Zi i get sub YK Yi i get sub 0.0001 add div D13 exp b2 mul ZK YK 0.0001 add div D13 exp b2 mul sub YK Yi i get sub 0.0001 add D13 exp mul fakt mul 500 mul def j 0 eq {AnY 100 add BnY 000 add moveto (R) show imshow 0 1 1 0 setcmykcolor} if %Rm j 1 eq {AnY 450 sub BnY 100 sub moveto (M) show imshow 0 1 0 0 setcmykcolor} if %Mm j 2 eq {AnY 200 sub BnY 200 add moveto (B) show imshow 1 1 0 0 setcmykcolor} if %Bm newpath AnY BnY 90 0 360 arc fill 0 setgray newpath AnY BnY 90 0 360 arc stroke } for %j=0,2 -3500 -2000 translate %for text and grafic } if %xchart4=5 xchart4 6 eq {%xchart4=6 %only for (a*,b*) with const. for D65 /D13 1 3 div def /fakt 40 3 div def /a2 0.2191 def /b2 -0.08376 def 3500 2000 translate %for text and grafic -3400 1800 moveto TBIS (XYZ) show TBL (w) show TBS (=) show XK cvsshow5 (, ) show YK cvsshow5 (, ) show ZK cvsshow2 -3400 1550 moveto TBIS (a*) show TBS ( = 500 \050) show TBIS (a') show TBS ( - ) show TBIS (a') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (\051 ) show TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 1300 moveto TBIS (b*) show TBS ( = 500 \050) show TBIS (b') show TBS ( - ) show TBIS (b') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (\051 ) show TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 1050 moveto TBIS (a') show TBS ( = ) show TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( [) show TBIS (x/y) show TBS (]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 800 moveto TBIS (b') show TBS ( = ) show TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( [) show TBIS (z/y) show TBS (]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 550 moveto TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS (=[1/) show TBIS (X) show 0 -50 rmoveto TBL (D65) show 0 50 rmoveto TBS (]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto TBS (=) show a2 cvsshow4 -3400 300 moveto TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS (=-[1/) show TBIS (Z) show 0 -50 rmoveto TBL (D65) show 0 50 rmoveto TBS (]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto TBS (=) show b2 cvsshow5 -3400 050 moveto TBIS (n) show TBS ( = ) show TELi xchartl get show 0 1 39 {/i exch def %i=0,39 Xi i get Yi i get 0.0001 add div %500(a'-a'n)Y**(1/3) D13 exp a2 mul %a'= a2 (x/y)**(1/3) XK YK 0.0001 add div D13 exp a2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul Zi i get Yi i get 0.0001 add div %500(b'-b'n)Y**(1/3) D13 exp b2 mul %b'= b2 (z/y)**(1/3) ZK YK 0.0001 add div D13 exp b2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul i 0 eq {moveto} if i 1 ge i 38 le and {lineto} if i 39 eq {lineto closepath stroke} if } for %i=0,39 XW YW 0.0001 add div D13 exp a2 mul XK YK 0.0001 add div D13 exp a2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul ZW YW 0.0001 add div D13 exp b2 mul ZK YK 0.0001 add div D13 exp b2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul 90 0 360 arc stroke XW YW 0.0001 add div %500(a'-a'n)Y**(1/3) D13 exp a2 mul %a'= a2 (x/y)**(1/3) XK YK 0.0001 add div D13 exp a2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul 080 add ZW YW 0.0001 add div %500(b'-b'n)Y**(1/3) D13 exp b2 mul %a'= a2 (x/y)**(1/3) ZK YK 0.0001 add div D13 exp b2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul 080 add moveto TBS TELi xchartl get show TBIS 0 1 2 {/j exch def %j=0,2 j 0 eq {/i 0 def} if %Cm-Rm j 1 eq {/i 6 def} if %Gm-Mm j 2 eq {/i 10 def} if %Ym-Bm /AnY Xi i get Yi i get 0.0001 add div D13 exp a2 mul XK YK 0.0001 add div D13 exp a2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def /BnY Zi i get Yi i get 0.0001 add div D13 exp b2 mul ZK YK 0.0001 add div D13 exp b2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def j 0 eq {AnY 100 add BnY 000 add moveto (C) show imshow 1 0 0 0 setcmykcolor} if %Cm j 1 eq {AnY 100 add BnY 000 add moveto (G) show imshow 1 0 1 0 setcmykcolor} if %Gm j 2 eq {AnY 100 add BnY 250 sub moveto (Y) show imshow 0 0 1 0 setcmykcolor} if %Ym newpath AnY BnY 90 0 360 arc fill 0 setgray newpath AnY BnY 90 0 360 arc stroke /AnY XK Xi i get sub YK Yi i get sub 0.0001 add div D13 exp a2 mul XK YK 0.0001 add div D13 exp a2 mul sub YK Yi i get sub 0.0001 add D13 exp mul fakt mul 500 mul def /BnY ZK Zi i get sub YK Yi i get sub 0.0001 add div D13 exp b2 mul ZK YK 0.0001 add div D13 exp b2 mul sub YK Yi i get sub 0.0001 add D13 exp mul fakt mul 500 mul def j 0 eq {AnY 100 add BnY 000 add moveto (R) show imshow 0 1 1 0 setcmykcolor} if %Rm j 1 eq {AnY 450 sub BnY 100 sub moveto (M) show imshow 0 1 0 0 setcmykcolor} if %Mm j 2 eq {AnY 200 sub BnY 200 add moveto (B) show imshow 1 1 0 0 setcmykcolor} if %Bm newpath AnY BnY 90 0 360 arc fill 0 setgray newpath AnY BnY 90 0 360 arc stroke } for %j=0,2 -3500 -2000 translate %for text and grafic } if %xchart4=6 xchart4 7 eq {%xchart4=7 %only for (a*,b*)D65 /D13 1 3 div def /D11 1 def /D16 1 6 div def /fakt 40 3 div def /a2 1 15 div def /b2 1 12 div neg def 3500 2000 translate %for text and grafic -3400 1800 moveto TBIS (XYZ) show TBL (w) show TBS (=) show XK cvsshow5 (, ) show YK cvsshow5 (, ) show ZK cvsshow2 -3400 1550 moveto TBIS (a*) show TBS ( = 500 \050) show TBIS (a') show TBS ( - ) show TBIS (a') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (\051 ) show TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 1300 moveto TBIS (b*) show TBS ( = 500 \050) show TBIS (b') show TBS ( - ) show TBIS (b') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (\051 ) show TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 1050 moveto TBIS (a) show TBS ( = ) show TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( [) show TBIS (x/y) show TBS ( + 1]) show -3400 800 moveto TBIS (b) show TBS ( = ) show TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( [) show TBIS (z/y) show TBS ( + 1/6 ]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto TBS -3400 550 moveto TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( = 1/15 = ) show a2 cvsshow5 -3400 300 moveto TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( = -1/12 = ) show b2 cvsshow5 -3400 050 moveto TBIS (n) show TBS ( = ) show TELi xchartl get show 0 1 39 {/i exch def %i=0,39 Xi i get Yi i get 0.0001 add div %500(a'-a'n)Y**(1/3) D11 add a2 mul %a'=(x/y+1)/15 XK YK 0.0001 add div D11 add a2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul Zi i get Yi i get 0.0001 add div %500(b'-b'n)Y**(1/3) D16 add D13 exp b2 mul %b'=-[(z/y +1/6)**(1/3)]/12 ZK YK 0.0001 add div D16 add D13 exp b2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul i 0 eq {moveto} if i 1 ge i 38 le and {lineto} if i 39 eq {lineto closepath stroke} if } for %i=0,39 XW YW 0.0001 add div D11 add a2 mul XK YK 0.0001 add div D11 add a2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul ZW YW 0.0001 add div D16 add D13 exp b2 mul ZK YK 0.0001 add div D16 add D13 exp b2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul 90 0 360 arc stroke XW YW 0.0001 add div D11 add a2 mul XK YK 0.0001 add div D11 add a2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul 080 add ZW YW 0.0001 add div D16 add D13 exp b2 mul ZK YK 0.0001 add div D16 add D13 exp b2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul 080 add moveto TBS TELi xchartl get show TBIS 0 1 2 {/j exch def %j=0,2 j 0 eq {/i 0 def} if %Cm-Rm j 1 eq {/i 6 def} if %Gm-Mm j 2 eq {/i 10 def} if %Ym-Bm /AnY Xi i get Yi i get 0.0001 add div %500(a'-a'n)Y**(1/3) D11 add a2 mul %a'=(x/y+1)/15 XK YK 0.0001 add div D11 add a2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def /BnY Zi i get Yi i get 0.0001 add div %500(b'-b'n)Y**(1/3) D16 add D13 exp b2 mul %b'=-[(z/y +1/6)**(1/3)]/12 ZK YK 0.0001 add div D16 add D13 exp b2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def j 0 eq {AnY 100 add BnY 000 add moveto (C) show imshow 1 0 0 0 setcmykcolor} if %Cm j 1 eq {AnY 100 add BnY 000 add moveto (G) show imshow 1 0 1 0 setcmykcolor} if %Gm j 2 eq {AnY 000 add BnY 250 sub moveto (Y) show imshow 0 0 1 0 setcmykcolor} if %Ym newpath AnY BnY 90 0 360 arc fill 0 setgray newpath AnY BnY 90 0 360 arc stroke /AnY XK Xi i get sub YK Yi i get sub 0.0001 add div D11 add a2 mul XK YK 0.0001 add div D11 add a2 mul sub YK Yi i get sub 0.0001 add D13 exp mul fakt mul 500 mul def /BnY ZK Zi i get sub YK Yi i get sub 0.0001 add div D16 add D13 exp b2 mul ZK YK 0.0001 add div D16 add D13 exp b2 mul sub YK Yi i get sub 0.0001 add D13 exp mul fakt mul 500 mul def j 0 eq {AnY 100 add BnY 000 add moveto (R) show imshow 0 1 1 0 setcmykcolor} if %Rm j 1 eq {AnY 450 sub BnY 100 sub moveto (M) show imshow 0 1 0 0 setcmykcolor} if %Mm j 2 eq {AnY 200 sub BnY 200 add moveto (B) show imshow 1 1 0 0 setcmykcolor} if %Bm newpath AnY BnY 90 0 360 arc fill 0 setgray newpath AnY BnY 90 0 360 arc stroke } for %j=0,2 -3500 -2000 translate %for text and grafic } if %xchart4=7 showpage grestore %} for %xchartl=0,7 } for %xchart4=0,7 %} for %xcolorl=0,1 %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 25 %line 469 %!PS-Adobe-3.0 EPSF-3.0 TE011-1N %%BoundingBox: 70 83 228 206 %START PDFDE011.EPS /pdfmark11 where {pop} {userdict /pdfmark11 /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/TE01/) /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:2013090112000) /ModDate (D:2013090112000) /DOCINFO pdfmark11 [ /View [ /FitB ] /DOCVIEW pdfmark11 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /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 /Courier findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Courier-ISOL1 exch definefont pop /Courier-Oblique findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierI-ISOL1 exch definefont pop /Courier-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierB-ISOL1 exch definefont pop /Courier-BoldOblique findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierBI-ISOL1 exch definefont pop /TG {350 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TL {160 /Times-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIL {160 /TimesI-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBL {160 /TimesB-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIL {160 /TimesBI-ISOL1 FS} bind def /SG {350 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SK {240 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SL {160 /Symbol FS} bind def %%EndProlog gsave %lanindL2.EPS START 20000505 /lanind 0 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showea {1 lanind le {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 1 def /lanind2 1 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 0 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 8 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % colorm 0 eq deintp 0 eq and {/Txx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def} if %colorm=1, deintp=1 xchart xchart3 lt {/Txx (-) def} if %always independent of intended output gsave %LANINDL2 END /cvishow {cvi 6 string cvs show ( ) show} def /cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show ( ) show} def /cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show ( ) show} def /cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show ( ) show} def /cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show ( ) show} def /cvsshow5 {100000 mul cvi 0.00001 mul 9 string cvs show ( ) show} def /SD65 80 array def %380 bis 775 mit deltalambda=05 /SD50 80 array def %380 bis 775 mit deltalambda=05 /SP40 80 array def %380 bis 775 mit deltalambda=05 /SA00 80 array def %380 bis 775 mit deltalambda=05 /SE00 80 array def %380 bis 775 mit deltalambda=05 /SC00 80 array def %380 bis 775 mit deltalambda=05 /SP00 80 array def %380 bis 775 mit deltalambda=05 /SQ00 80 array def %380 bis 775 mit deltalambda=05 /SDAK 80 array def %380 bis 775 mit deltalambda=05 /RA 80 array def %380 bis 770 nm /F2 240 array def %3 x 80 Daten fuer Bereich 380 bis 770nm /F2N 240 array def %normiert auf Y=100 fuer D65 und 10nm /F10 240 array def %3 x 80 Daten fuer Bereich 380 bis 770nm %C %C LITERATURQUELLEN LICHTARTEN %C SA,SC,SD65, CIE-DOKUMENT NR.15 FARBMESSUNG, 1971 %C TABELLE 1.1.1, SEITE 81 %C SD55,SD75, CIE-DOKUMENT NR.15 FARBMESSUNG, 1971 %C TABELLE 1.1.4, SEITE 85 %C LINEAR INTERPOLIERT VON 5 ZU 5NM %C SG,SP,SXE, DIN 5033, BLATT 7 ,SEITE 8-9 %C AUSGABE 1966 /SD65 %80 data 5 nm [50.0 52.3 54.6 68.7 82.8 87.1 91.5 92.5 93.4 90.1 86.7 95.8 104.9 110.9 117.0 117.4 117.8 116.3 114.9 115.4 115.9 112.4 108.8 109.1 109.4 108.6 107.8 106.3 104.8 106.2 107.7 106.0 104.4 104.2 104.0 102.0 100.0 98.2 96.3 96.1 95.8 92.2 88.7 89.3 90.0 89.8 89.6 88.6 87.7 85.5 83.3 83.5 83.7 81.9 80.0 80.1 80.2 81.2 82.3 80.3 78.3 74.0 69.7 70.7 71.6 73.0 74.3 68.0 61.6 65.7 69.9 72.5 75.1 69.3 63.6 55.0 46.4 56.6 66.8 65.1] def /SD50 %80 data 5 nm CIE 15.3, Seite 30; aus JE540-1N.PS [24.5 27.2 29.9 39.6 49.3 52.9 56.5 58.3 60.0 58.9 57.8 66.3 74.8 81.0 87.2 88.9 90.6 91.0 91.4 93.2 95.1 93.5 92.0 93.8 95.7 96.2 96.6 96.8 97.1 99.6 102.1 101.4 100.8 101.5 102.3 101.2 100.0 98.9 97.7 98.3 98.9 96.2 93.5 95.6 97.7 98.5 99.3 99.2 99.0 97.4 95.7 97.3 98.9 97.3 95.7 96.9 98.2 100.6 103.0 101.1 99.1 93.3 87.4 89.5 91.6 92.2 92.9 84.9 76.9 81.7 86.5 89.5 92.6 85.4 78.2 68.0 57.7 70.3 82.9 0.0] def %0.0 not used /SA00 %80 data 5 nm CIE 15.3 Seite 30; aus JE540-1N.PS [9.80 10.90 12.09 13.35 14.71 16.15 17.68 19.29 20.99 22.79 24.67 26.64 28.70 30.85 33.09 35.41 37.81 40.30 42.87 45.52 48.24 51.04 53.91 56.85 59.86 62.93 66.06 69.25 72.50 75.79 79.13 82.52 85.95 89.41 92.91 96.44 100.00 103.58 107.18 110.80 114.44 118.08 121.73 125.39 129.04 132.70 136.35 139.99 143.62 147.24 150.84 154.42 157.98 161.52 165.03 168.51 171.96 175.38 178.77 182.12 185.43 188.70 191.93 195.12 198.26 201.36 204.41 207.41 210.36 213.27 216.12 218.92 221.67 224.36 227.00 229.59 232.12 234.59 237.01 239.37 0.0] def %0.0 not used % AUS BILDPLA.FOR aus vrbam/wrpos:KRPROG.FOR, 5987-6023 5.10.92 %C PROGRAMM ZUR BERECHNUNG DER RELATIVEN SPEKTRALEN STRAHLUNGSVERTEI- %C LUNG EINES HOHLRAUMSTRAHLERS ALS FUNKTION DER WELLENLAENGE LAMDA %C BEI GEGEBENER TEMPERATUR T %C VERWENDETE VARIABLE %C T TEMPERATUR %C C2 PLANCKSCHE KONSTANTE (=1.4388 CM K (1967)) %C LAMDA(I) WELLENLAENGE %C S(I) STRAHLUNGSVERTEILUNG DES HOHLRAUMSTRAHLERS %C %C LITERATUR OFFIZIELLE EMPFEHLUNGEN DER CIE,DEUTSCHE VERSION, %C CA. 1969, SEITE 21 UND TABELLE 1.1.1 %C %SDP4 80 array def %380 bis 775 mit deltalambda=05 % DO 50 I=1,54 % 50 S(I)=100. % 1*(560./FLOAT(LAMDA(I)))**5 % 2*(EXP(C2/(560.*10.**(-7)*T))-1.) % 3/(EXP(C2/(FLOAT(LAMDA(I))*10.**(-7)*T))-1.) %new CIE 15.3:2004, Eq. (3.1) page 2 %S(I) = [100{560/lambda}**5] [exp{(c2*10**7)/(TNC*560 )} - 1] % /[exp{(c2*10**7)/(TNC*lambda)} - 1] % exp = e {...} = 2.71 {...} %/TNC 2848 def %NLA /TNC 4000 def /EE 2.718281 def %e=mac pocket calculator /C2 1.4350000 10 7 exp mul def /lamd 80 array def 0 1 79 {%i=0,79 /i exch def /lambda 380 i 5 mul add def lamd i lambda put /E1 560 lambda div 5 exp def /E4 C2 TNC 560 mul div def /E5 C2 TNC lambda mul div def /E6 EE E4 exp def /E7 EE E5 exp def SP40 i E1 100 mul E6 1 sub E7 1 sub div mul put } for %i=0,79 /xex 10 2 exp def /yex EE 2 exp def /SE00 %80 data 5 nm [100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0] def %0.0 not used /SC00 %80 data 5 nm [ 33.00 39.92 47.40 55.17 63.30 71.81 80.60 89.53 98.10 105.80 112.40 117.75 121.50 123.45 124.00 123.60 123.10 123.30 123.80 124.09 123.90 122.92 120.70 116.90 112.10 106.98 102.30 98.81 96.90 96.78 98.00 99.94 102.10 103.95 105.20 105.67 105.30 104.11 102.30 100.15 97.80 95.43 93.20 91.22 89.70 88.83 88.40 88.19 88.10 88.06 88.00 87.86 87.80 87.99 88.20 88.20 87.90 87.22 86.30 85.30 84.00 82.21 80.20 78.24 76.30 74.36 72.40 70.40 68.30 66.30 64.40 62.80 61.50 60.20 59.20 58.50 58.10 58.00 58.20 58.50 ] def %0.0 not used 0 1 79 {/i exch def %i=0,79 /lamda 380 i 5 mul add def SP00 i SE00 i get lamda 560 div mul put SQ00 i SE00 i get 1120 lamda sub 560 div mul put } for %i=0,79 %C LITERATURQUELLEN SPEKTRALWERTE %C F2 CIE-DOKUMENT NR.15 FARBMESSUNG, 1971 %C TABELLE 2.1, SEITE 93-102 /F2 %3x80 data [.001368 .002236 .004243 .007650 .01431 .02319 .04351 .07763 .1344 .2148 .2839 .3285 .3483 .3481 .3362 .3187 .2908 .2511 .1954 .1421 .09564 .05795 .03201 .01470 .0049 .0024 .0093 .0291 .06327 .1096 .1655 .2257 .2904 .3597 .4334 .5121 .5945 .6784 .7621 .8425 .9163 .9786 1.0263 1.0567 1.0622 1.0456 1.0026 .9384 .8544 .7514 .6424 .5419 .4479 .3608 .2835 .2187 .1649 .1212 .0874 .0636 .04677 .03290 .02270 .01584 .01136 .00811 .00579 .004109 .002899 .002049 .001440 .0009999 .0006901 .000476 .0003323 .0002348 .0001662 .0001174 .00008308 .00005871 .000039 .000064 .00012 .000217 .000396 .00064 .00121 .00218 .004 .0073 .0116 .01684 .023 .0298 .0380 .048 .06 .0739 .09098 .1126 .139 .1693 .208 .2586 .323 .4073 .503 .6082 .71 .7932 .862 .9149 .954 .9803 .995 1.0 .995 .9786 .952 .9154 .870 .8163 .757 .6949 .631 .5668 .503 .4412 .381 .321 .265 .217 .175 .1382 .107 .0816 .061 .04458 .032 .0232 .017 .01192 .00821 .005723 .004102 .002929 .002091 .001484 .001047 .00074 .00052 .0003611 .0002492 .0001719 .00012 .0000848 .00006 .0000424 .00003 .0000212 .00645 .01055 .02005 .03621 .06785 .1102 .2074 .3713 .6456 1.0391 1.3856 1.623 1.7471 1.7826 1.7721 1.7441 1.6692 1.5281 1.2876 1.0419 .8130 .6162 .4652 .3533 .2720 .2123 .1582 .1117 .07825 .05725 .04216 .02984 .0203 .0134 .00875 .00575 .0039 .00275 .0021 .0018 .00165 .0014 .0011 .0010 .0008 .0006 .00034 .00024 .00019 .0001 .00005 .00003 .00002 .00001 % 26*0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %10 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %20 0.0 0.0 0.0 0.0 0.0 0.0 %26 ] def /F10 %3x80 data [.00016 .0006624 .002362 .007242 .01911 .0434 .08474 .1406 .2045 .2647 .3147 .3577 .3837 .3867 .3707 .343 .3023 .2541 .1956 .1323 .08051 .04107 .01617 .005132 .003816 .01544 .03746 .07136 .1177 .173 .2365 .3042 .3768 .4516 .5298 .6161 .7052 .7938 .8787 .9512 1.0142 1.0743 1.1185 1.1343 1.124 1.0891 1.0305 .9507 .8563 .7549 .6475 .5351 .4316 .3437 .2683 .2043 .1526 .1122 .08126 .05793 .04085 .02862 .019941 .01384 .0100 .006605 .004552 .003145 .002175 .001506 .001045 .0007274 .0005083 .0003564 .000251 .0001777 .0001264 .00009015 .00006453 .00004634 .00001736 .00007156 .0002534 .0007685 .002004 .004509 .008756 .01446 .02139 .0295 .03868 .0496 .06208 .0747 .08946 .1063 .1282 .1528 .1852 .2199 .2536 .2977 .3391 .3954 .4608 .5314 .6067 .6857 .7618 .8233 .8752 .9238 .962 .9822 .9918 .9991 .9973 .9824 .9555 .9152 .8689 .8256 .7774 .7203 .6583 .5939 .528 .4618 .3981 .3395 .2835 .2282 .1798 .1402 .1076 .08119 .06028 .0441 .0318 .0226 .0159 .01113 .007749 .0053751 .0037177 .002565 .001768 .001222 .0008462 .0005864 .0004074 .000284 .0001987 .0001395 .00009843 .00006982 .00004974 .00003554 .00002549 .00001834 .0007048 .002928 .01048 .03234 .08601 .1971 .3894 .6568 .9725 1.2825 1.5535 1.7985 1.9673 2.0273 1.9948 1.9007 1.7454 1.5549 1.3176 1.0302 .7721 .5701 .4152 .3024 .2185 .1592 .112 .08225 .06071 .04305 .03045 .02058 .01368 .007918 .003988 .001091 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %10 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %20 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %30 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %40 0.0 0.0 0.0 0.0 %44 ] def %calculation of transformation data /FARBE 27 array def /FARBE [(R) (m) ( 561_770) %00 (Y) (m) ( 495_770) %01 (G) (m) ( 475_573) %02 (C) (m) ( 380_561) %03 (B) (m) ( 380_495) %04 (M) (m) ( 573_475) %05 (N) (0) ( 380_770) %06 (W) (0) ( 380_770) %07 (W) (1) ( 380_770) %08 ] def %/FARBE [(R) (m) ( 565_770) %00 % (Y) (m) ( 495_770) %01 % (G) (m) ( 475_575) %02 % (C) (m) ( 380_565) %03 % (B) (m) ( 380_495) %04 % (M) (m) ( 575_475) %05 % (N) (0) ( 380_770) %06 % (W) (0) ( 380_770) %07 % (W) (1) ( 380_770) %08 % ] def %calculation of transformation data /FARBE 27 array def /FARBE [(R) (d,sRGB) (x=0,64) %00 () () (y=0,33) %01 (G) (d,sRGB) (x=0,30) %02 () () (y=0,60) %03 (B) (d,SRGB) (x=0,18) %04 () () (y=0,06) %05 (N) (0) () %06 (W) (0) () %07 (W) (1) ( 380_770) %08 ] def /xcolorl xcolor def %0 1 1 {/xcolorl exch def %xcolorl=0,1 xcolorl 1 eq {0 1 239 {/i exch def %i=0,239 F2 i F10 i get put } for %i=0,239 } if /YKSUM 0 def %For CIE Illuminant E 0 1 79 {/i exch def %i=0,1,79 /YKSUM YKSUM F2 80 i add get add def } for %i=0,1,79 /F2N 240 array def 0 1 79 {/i exch def %i=0,1,79 F2N 00 i add F2 00 i add get YKSUM div 100 mul put F2N 80 i add F2 80 i add get YKSUM div 100 mul put F2N 160 i add F2 160 i add get YKSUM div 100 mul put } for %i=0,1,79 /FXN 80 array def %FXN 0 = F2N imax /FYN 80 array def /FZN 80 array def %defines FXN, FYN, FZN 0 to 79 0 1 79 {/i exch def %i=0,79 FXN i F2N 000 i add get put FYN i F2N 080 i add get put FZN i F2N 160 i add get put } for %i=0,79 %special wavelength range with complementary colours for E? /FXD 63 array def /FYD 63 array def /FZD 63 array def /DOW 63 array def 00 1 60 {/i exch def %i=0,60 %range 400..700nm FXD i FXN 005 i add get put FYD i FYN 005 i add get put FZD i FZN 005 i add get put DOW i 400 i 5 mul add put %range 400 to 700 } for %i=0,60 %for interpolation FXD 61 FXD 60 get put FYD 61 FYD 60 get put FZD 61 FZD 60 get put FXD 62 FXD 60 get put FYD 62 FYD 60 get put FZD 62 FZD 60 get put /FAD 63 array def /FBD 63 array def /FCD 63 array def /xdel 1045 def /ydel 395 def /x0 500 def /TELi 8 array def /TELi [(D65) (D50) (P40) (A00) (E00) (C00) (P00) (Q00)] def %8 illuminants /Xi 79 array def %79 spectral or max 6 device colour + 4 elementary colours /Yi 79 array def /Zi 79 array def /XANi 79 array def /YANi 79 array def /ZANi 79 array def 0 1 0 {/xchart4 exch def %xchart4=0,7 /xchartl xchart def %0 1 7 {/xchartl exch def %xchartl=0,7 %/K 0 def %for normalization 1 /K 1 def %for normalization 0,886 gsave 5 /Times-ISOL1 FS /cvishow {cvi 6 string cvs show} def 75 85 moveto lanind cvishow (-) show colorm cvishow deintp cvishow xcolorl cvishow xchart cvishow pchart cvishow colsep cvishow (-L) show pmetam cvishow 5 /Times-ISOL1 FS 180 85 moveto (SE791-1N/TE011-) show xchart4 1 add cvishow xchart 0 ge {(N) show} if (_) show xchartl 1 add cvishow %xchart 0 eq {(N) show} % {deintp colorm 2 mul add cvishow} ifelse 72 90 translate 0.010 MM dup scale 25 setlinewidth 0 0 0 0 setcmyk_olvcolor 0 0 moveto 5400 0 rlineto 0 4000 rlineto 5400 neg 0 rlineto closepath fill 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath clip 0 0 0 1 setcmyk_olvcolor 0 0 moveto 5400 0 rlineto 0 4000 rlineto 5400 neg 0 rlineto closepath stroke %calculation of XW,YW,ZW for illuminant D65, D50, ... 0 1 79 {/i exch def %i=0,79 SDAK i xchartl 0 eq {SD65 i get} if xchartl 1 eq {SD50 i get} if xchartl 2 eq {SP40 i get} if xchartl 3 eq {SA00 i get} if xchartl 4 eq {SE00 i get} if xchartl 5 eq {SC00 i get} if xchartl 6 eq {SP00 i get} if xchartl 7 eq {SQ00 i get} if put } for %i=0,79 /YKSUM 0 def 0 1 79 {/i exch def %i=0,1,79 /YKSUM YKSUM SDAK i get F2 80 i add get mul add def } for %i=0,1,79 0 1 79 {/i exch def %i=0,1,79 F2N 00 i add SDAK i get F2 00 i add get mul YKSUM div 100 mul put F2N 80 i add SDAK i get F2 80 i add get mul YKSUM div 100 mul put F2N 160 i add SDAK i get F2 160 i add get mul YKSUM div 100 mul put } for %i=0,1,79 %XW,YW,ZW for white /XW 0 def /YW 0 def /ZW 0 def 0 1 079 {/i exch def %i=0,79 /XW XW F2N 00 i add get add def /YW YW F2N 80 i add get add def /ZW ZW F2N 160 i add get add def } for %i=0,79 /SUMW XW YW add ZW add def %for D65, D50, P40, A00, E00 /XANW XW SUMW div def /YANW YW SUMW div def /ZANW ZW SUMW div def /AANW XW YW 0.0001 add div def /BANW ZW YW 0.0001 add div 0.4 mul neg def K 0 eq {%K=0 /XK XW def /YK YW def /ZK ZW def }%K=0 {%K=1 /XK XW 0.8859 mul def /YK YW 0.8859 mul def /ZK ZW 0.8859 mul def } ifelse %K=1 /SUMK XK YK add ZK add def %for D65, D50, P40, A00, E00 /XANK XK SUMK div def /YANK YK SUMK div def /ZANK ZK SUMK div def /XANR 0.64 def /YANR 0.33 def /XANG 0.30 def /YANG 0.60 def /XANB 0.15 def /YANB 0.06 def /ZANR 1. XANR sub YANR sub def /ZANG 1. XANG sub YANG sub def /ZANB 1. XANB sub YANB sub def %/ZANW 1. XANW sub YANW sub def %see above %calculation of spectral curves /YR 100 def /YG 100 def /YB 100 def /YW 100 def /SUM YR YANR div def /XR XANR SUM mul def /ZR ZANR SUM mul def /SUM YG YANG div def /XG XANG SUM mul def /ZG ZANG SUM mul def /SUM YB YANB div def /XB XANB SUM mul def /ZB ZANB SUM mul def %/SUM YW YANW div def %see above %/XW XANW SUM mul def %/ZW ZANW SUM mul def /XN XW def /YN YW def /ZN ZW def /D XR YG mul ZB mul XG YB mul ZR mul add XB YR mul ZG mul add ZR YG mul XB mul sub ZG YB mul XR mul sub ZB YR mul XG mul sub def /D1 XW YG mul ZB mul XG YB mul ZW mul add XB YW mul ZG mul add ZW YG mul XB mul sub ZG YB mul XW mul sub ZB YW mul XG mul sub def /D2 XR YW mul ZB mul XW YB mul ZR mul add XB YR mul ZW mul add ZR YW mul XB mul sub ZW YB mul XR mul sub ZB YR mul XW mul sub def /D3 XR YG mul ZW mul XG YW mul ZR mul add XW YR mul ZG mul add ZR YG mul XW mul sub ZG YW mul XR mul sub ZW YR mul XG mul sub def /AR D1 D div def /AG D2 D div def /AB D3 D div def /XRN AR XR mul def /XGN AG XG mul def /XBN AB XB mul def /YRN AR YR mul def /YGN AG YG mul def /YBN AB YB mul def /ZRN AR ZR mul def /ZGN AG ZG mul def /ZBN AB ZB mul def /XWN XRN XGN add XBN add def /YWN YRN YGN add YBN add def /ZWN ZRN ZGN add ZBN add def /SUM XWN YWN add ZWN add def /XANWN XWN SUM 0.0001 add div def /YANWN YWN SUM 0.0001 add div def /ZANWN ZWN SUM 0.0001 add div def 0 1 8 {/i exch def %i=0,8 i 0 eq {Xi i XRN put %Rd Yi i YRN put Zi i ZRN put} if i 1 eq {Xi i XRN XGN add put %Yd Yi i YRN YGN add put Zi i ZRN ZGN add put} if i 2 eq {Xi i XGN put %Gd Yi i YGN put Zi i ZGN put} if i 3 eq {Xi i XGN XBN add put %Cd Yi i YGN YBN add put Zi i ZGN ZBN add put} if i 4 eq {Xi i XBN put %Bd Yi i YBN put Zi i ZBN put} if i 5 eq {Xi i XBN XRN add put %Md Yi i YBN YRN add put Zi i ZBN ZRN add put} if i 6 eq {Xi i XW 0.01 mul put %N Yi i YW 0.01 mul put Zi i ZW 0.01 mul put} if i 7 eq {Xi i XW put %W Yi i YW put Zi i ZW put} if i 8 eq {Xi i XW put %W Yi i YW put Zi i ZW put} if } for %i=0,8 K 1 eq {%K=1 0 1 7 {/L exch def %L=0,7 only 0 to 7! Xi L Xi L get 0.8859 mul put Yi L Yi L get 0.8859 mul put Zi L Zi L get 0.8859 mul put } for %L=0,7 } if %K=1 0 1 7 {/i exch def %i=0,7 /SUM Xi i get Yi i get add Zi i get add def XANi i Xi i get SUM 0.0001 add div put YANi i Yi i get SUM 0.0001 add div put } for %i=0,7 /xtexti 96 array def /ytexti 96 array def /xtexti [ %T00 T10 T20 T30 T40 T41 T50 T51 T60 T61 T70 T71 %0 1 2 3 4 5 6 7 8 9 10 11 1800 1800 1800 2800 2800 4400 2800 4400 2800 4400 2800 4000 %0 0600 0600 0600 0600 0600 2200 0600 2200 0600 2200 0600 1800 %1 0700 0700 0700 0700 0700 2300 0700 2300 0700 2300 0700 1900 %2 0700 0700 0700 0700 0700 2300 0700 2300 0700 2300 0700 1900 %3 0100 0100 0100 0100 0100 1700 0100 1700 0100 1700 0100 1300 %4 0100 0100 0100 0100 0100 1700 0100 1700 0100 1700 0100 1300 %5 0100 0100 0100 0100 0100 1700 0100 1700 0100 1700 0100 1300 %6 0100 0100 0100 0100 0100 1700 0100 1700 0100 1700 0100 1300 %7 ] def /ytexti [ 3800 3580 3360 3140 2920 2920 2700 2700 2480 2480 2260 2260 %0 0500 0280 0060 1380 1160 1160 0940 0940 0720 0720 0000 0000 %1 0500 0280 0060 1380 1160 1160 0940 0940 0720 0720 0000 0000 %2 0500 0280 0060 1380 1160 1160 0940 0940 0720 0720 0000 0000 %3 0500 0280 0060 1380 1160 1160 0940 0940 0720 0720 0000 0000 %4 0500 0280 0060 1380 1160 1160 0940 0940 0720 0720 0000 0000 %5 0500 0280 0060 1380 1160 1160 0940 0940 0720 0720 0000 0000 %6 0500 0280 0060 1380 1160 1160 0940 0940 0720 0720 0000 0000 %7 ] def 0 0 0 1 setcmyk_olvcolor /xchart12 xchart4 12 mul def TBS xchart4 1 ge { %xchart4 >=1 xtexti xchart12 3 add get ytexti xchart12 3 add get 220 add moveto xchart4 1 eq {(LABCab 77) show} if xchart4 2 eq {(CIELAB 76) show} if xchart4 3 eq {(LABJNDS 87) show} if xchart4 4 eq {(LABCab 85) show} if xchart4 5 eq {(CIELAB 76) show} if xchart4 6 eq {(CIELAB D65) show} if xchart4 7 eq {(LABHNU1 79) show} if } if %xchart4 >=1 xtexti xchart12 3 add get ytexti xchart12 3 add get moveto TBS (Name und Farbart) showde %0TE011-7 00581 (Name and chromaticity) showen %1TE011-7 00581 (Nombre y cromaticidad) showes %2TE011-7 00581 (Nom et chromaticit\351) showfr %3TE011-7 00581 (Nome e chromaticit\341) showit %4TE011-7 00581 (Name and chromaticity) showjp %5TE011-7 00581 xtexti xchart12 4 add get ytexti xchart12 4 add get moveto TBIS FARBE 0 get show TBL 0 -40 rmoveto FARBE 1 get show 150 40 rmoveto TBIS FARBE 2 get show xtexti xchart12 5 add get ytexti xchart12 5 add get moveto TBIS FARBE 3 get show TBL 0 -40 rmoveto FARBE 4 get show 0 40 rmoveto TBIS FARBE 5 get show xtexti xchart12 6 add get ytexti xchart12 6 add get moveto TBIS FARBE 6 get show TBL 0 -40 rmoveto FARBE 7 get show 150 40 rmoveto TBIS FARBE 8 get show xtexti xchart12 7 add get ytexti xchart12 7 add get moveto TBIS FARBE 9 get show TBL 0 -40 rmoveto FARBE 10 get show 0 40 rmoveto TBIS FARBE 11 get show xtexti xchart12 8 add get ytexti xchart12 8 add get moveto TBIS FARBE 12 get show TBL 0 -40 rmoveto FARBE 13 get show 150 40 rmoveto TBIS FARBE 14 get show xtexti xchart12 9 add get ytexti xchart12 9 add get moveto TBIS FARBE 15 get show TBL 0 -40 rmoveto FARBE 16 get show 0 40 rmoveto TBIS FARBE 17 get show %xtexti xchart12 10 add get ytexti xchart12 10 add get moveto %TBIS FARBE 18 get show %TBL 0 -40 rmoveto FARBE 19 get show 0 40 rmoveto %TBIS FARBE 20 get show %xtexti xchart12 11 add get ytexti xchart12 11 add get moveto %TBIS FARBE 21 get show %TBL 0 -40 rmoveto FARBE 22 get show 0 40 rmoveto %TBIS FARBE 23 get show TBS 0 0 0 1 setcmyk_olvcolor xtexti xchart12 0 add get ytexti xchart12 0 add get moveto (Grund\255 und Mischfarben) showde %0TE011-7 02581 (Basic and mixture colours) showen %1TE011-7 02581 (Colores b\341sicos y mezcla del espacio) showes %2TE011-7 02581 (couleurs base et m\351lange) showfr %3TE011-7 02581 (colori di basic e miscuglio) showit %4TE011-7 02581 (Basic and mixture colours) showjp %5TE011-7 02581 TBIS (, Y) show TBL 0 -60 rmoveto (W) show 0 60 rmoveto TBS K 0 eq {(=100) show}{(=88,6) show} ifelse xtexti xchart12 1 add get ytexti xchart12 1 add get moveto (des) showde %0TE011-7 03581 (of the) showen %1TE011-7 03581 (de color) showes %2TE011-7 03581 (du) showfr %3TE011-7 03581 (del) showit %4TE011-7 03581 (of the) showjp %5TE011-7 03581 TBIS ( sRGB) show TBS (\255Farbenraums f\374r ) showde %0TE011-7 04581 ( colour space for ) showen %1TE011-7 04581 ( bajo ) showes %2TE011-7 04581 (l'espace de couleur pour ) showfr %3TE011-7 04581 ( spazio di colore per ) showit %4TE011-7 04581 ( colour space for ) showjp %5TE011-7 04581 TBS TELi xchartl get show xtexti xchart12 2 add get ytexti xchart12 2 add get moveto xchart4 0 eq {%xchart4=0 (in der Normfarbtafel) showde %0TE011-7 04581 (in the chromaticity diagram) showen %1TE011-7 04581 (en el diagrama de chromaticidad) showes %2TE011-7 04581 (dans le diagramme de chromaticit\351) showfr %3TE011-7 04581 (nel diagramma di cromaticit\340) showit %4TE011-7 04581 (in the chromaticity diagram) showjp %5TE011-7 04581 TBIS ( (x, y)) show } if %xchart4=0 xchart4 1 eq {%xchart4=1 (in der Farbtafel) showde %0TE011-7 05581 (in the chromaticity diagram) showen %1TE011-7 05581 (en el diagrama de chromaticidad) showes %2TE011-7 05581 (dans le diagramme de chromaticit\351) showfr %3TE011-7 05581 (nel diagramma di cromaticit\340) showit %4TE011-7 05581 (in the chromaticity diagram) showjp %5TE011-7 05581 TBIS ( (a, b)) show } if %xchart4=1 xchart4 2 eq {%xchart4=2 (in der Farbarbtafel) showde %0TE011-7 06581 (in the chromaticity diagram) showen %1TE011-7 06581 (en el diagrama de chromaticidad) showes %2TE011-7 06581 (dans le diagramme de chromaticit\351) showfr %3TE011-7 06581 (nel diagramma di cromaticit\340) showit %4TE011-7 06581 (in the chromaticity diagram) showjp %5TE011-7 06581 TBIS ( (a', b')) show } if %xchart4=2 xchart4 3 eq {%xchart4=3 (in der Farbarbtafel) showde %0TE011-7 07581 (in the chromaticity diagram) showen %1TE011-7 07581 (en el diagrama de chromaticidad) showes %2TE011-7 07581 (dans le diagramme de chromaticit\351) showfr %3TE011-7 07581 (nel diagramma di cromaticit\340) showit %4TE011-7 07581 (in the chromaticity diagram) showjp %5TE011-7 07581 TBIS ( (a", b")) show } if %xchart4=3 xchart4 4 eq {%xchart4=4 (in Buntwertdiagramm) showde %0TE011-7 08581 (in chromatic value diagram) showen %1TE011-7 08581 (en el diagrama valor crom\341tico) showes %2TE011-7 08581 (dans la valeur chromatique le diagramme) showfr %3TE011-7 08581 (nel diagramma di valore cromatico) showit %4TE011-7 08581 (in chromatic value diagram) showjp %5TE011-7 08581 TBIS ( (A, B)) show } if %xchart4=4 xchart4 5 eq {%xchart4=5 (in Buntheitsdiagram) showde %0TE011-7 09581 (in CIELAB diagram) showen %1TE011-7 09581 (en el diagrama CIELAB) showes %2TE011-7 09581 (dans le diagramme de CIELAB) showfr %3TE011-7 09581 (nel diagramma di CIELAB) showit %4TE011-7 09581 (in CIELAB diagram) showjp %5TE011-7 09581 TBIS ( (a*, b*)) show } if %xchart4=5 xchart4 6 eq {%xchart4=6 (in Buntheitsdiagram) showde %0TE011-7 10581 (in chroma diagram) showen %1TE011-7 10581 (en el diagrama croma) showes %2TE011-7 10581 (dans le diagramme de chroma) showfr %3TE011-7 10581 (nel diagramma di chroma) showit %4TE011-7 10581 (in chroma diagram) showjp %5TE011-7 10581 TBIS ( \050a*) show 0 -50 rmoveto TBL (D65) show 0 50 rmoveto TBS (, ) show TBIS (b*) show 0 -50 rmoveto TBL (D65) show 0 50 rmoveto TBS (\051) show } if %xchart4=6 xchart4 7 eq {%xchart4=7 (in Buntheitsdiagram) showde %0TE011-7 11581 (in chroma diagram) showen %1TE011-7 11581 (en el diagrama croma) showes %2TE011-7 11581 (dans le diagramme de chroma) showfr %3TE011-7 11581 (nel diagramma di chroma) showit %4TE011-7 11581 (in chroma diagram) showjp %5TE011-7 11581 TBIS ( (A*, B*)) show } if %xchart4=7 xchart4 0 eq {%xchart4=0 600 400 translate 0 0 moveto 4000 0 rlineto stroke 0 0 moveto 0 3200 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten TBS 0 -50 moveto 0 100 rlineto stroke 800 -50 moveto 0 100 rlineto stroke 1600 -50 moveto 0 100 rlineto stroke 2400 -50 moveto 0 100 rlineto stroke 3200 -50 moveto 0 100 rlineto stroke 4000 -50 moveto 0 100 rlineto stroke -100 -300 moveto (0,0) show 700 -300 moveto (0,2) show 1500 -300 moveto (0,4) show 2300 -300 moveto (0,6) show 3100 -300 moveto (0,8) show 3900 -300 moveto (1,0) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 800 moveto 100 0 rlineto stroke -50 1600 moveto 100 0 rlineto stroke -50 2400 moveto 100 0 rlineto stroke -50 3200 moveto 100 0 rlineto stroke -450 -80 moveto (0,0) show -450 720 moveto (0,2) show -450 1520 moveto (0,4) show -450 2320 moveto (0,6) show -450 3120 moveto (0,8) show TIM -300 2800 moveto (y) show TIM 4200 150 moveto (x) show TBIS 2600 150 moveto (CIE 1931) show -600 -400 translate %1000 02 01 16 01 .00 .0020 ******************** %ANF PROZSPEP3.FOR: MULYA= 4000 BEO=02 xy-Farbtafel IXY0: 600 400 600 400 translate 693 19 moveto 693 19 692 19 690 19 curveto 688 19 685 20 681 23 curveto 675 27 667 34 657 43 curveto 644 55 626 70 603 90 curveto 575 118 542 159 496 231 curveto 438 347 365 530 274 802 curveto 181 1179 93 1650 32 2153 curveto 15 2619 55 3000 155 3248 curveto 297 3335 456 3304 618 3223 curveto 771 3126 918 3017 1063 2897 curveto 1206 2769 1349 2635 1492 2497 curveto 1634 2358 1776 2218 1915 2080 curveto 2049 1946 2179 1817 2300 1696 curveto 2411 1585 2508 1489 2592 1405 curveto 2663 1336 2720 1278 2765 1233 curveto 2802 1197 2831 1168 2856 1143 curveto 2876 1123 2892 1107 2903 1096 curveto 2913 1086 2919 1080 2924 1075 curveto 2927 1072 2930 1069 2933 1066 curveto 2936 1063 2937 1062 2938 1061 curveto 2938 1061 2939 1060 2744 971 curveto 2261 748 2040 643 1908 582 curveto 1819 541 1758 512 1708 490 curveto 1660 468 1612 445 1558 420 curveto 1495 391 1419 356 1320 309 curveto 1184 247 986 155 693 19 curveto stroke 0 0 0 1 setcmyk_olvcolor 693 19 30 0 360 arc fill % 400 681 23 30 0 360 arc fill % 425 626 70 30 0 360 arc fill % 450 438 347 30 0 360 arc fill % 475 32 2153 30 0 360 arc fill % 500 456 3304 30 0 360 arc fill % 525 1206 2769 30 0 360 arc fill % 550 1915 2080 30 0 360 arc fill % 575 2508 1489 30 0 360 arc fill % 600 2802 1197 30 0 360 arc fill % 625 2903 1096 30 0 360 arc fill % 650 2930 1069 30 0 360 arc fill % 675 2938 1061 30 0 360 arc fill % 700 2261 748 30 0 360 arc fill %500c 1708 490 30 0 360 arc fill %525c 1419 356 30 0 360 arc fill %550c 0 0 0 1 setcmyk_olvcolor 693 19 30 0 360 arc stroke % 400 681 23 30 0 360 arc stroke % 425 626 70 30 0 360 arc stroke % 450 438 347 30 0 360 arc stroke % 475 32 2153 30 0 360 arc stroke % 500 456 3304 30 0 360 arc stroke % 525 1206 2769 30 0 360 arc stroke % 550 1915 2080 30 0 360 arc stroke % 575 2508 1489 30 0 360 arc stroke % 600 2802 1197 30 0 360 arc stroke % 625 2903 1096 30 0 360 arc stroke % 650 2930 1069 30 0 360 arc stroke % 675 2938 1061 30 0 360 arc stroke % 700 2261 748 30 0 360 arc stroke %500c 1708 490 30 0 360 arc stroke %525c 1419 356 30 0 360 arc stroke %550c % 1250 1316 30 0 360 arc fill %D65 0 0 0 1 setcmyk_olvcolor TBIS 693 375 sub 19 250 sub moveto (400) show % 681 500 sub 23 100 sub moveto (425) show % 626 500 sub 70 100 sub moveto (450) show 438 350 sub 347 200 sub moveto (475) show 32 450 sub 2153 100 sub moveto (500) show 456 100 add 3304 000 add moveto (525) show 1206 100 add 2769 000 add moveto (550) show 1915 080 sub 2080 100 add moveto (575) show 2508 100 add 1489 000 add moveto (600) show 2802 100 add 1197 100 add moveto (625) show % 2903 200 sub 1096 100 add moveto (650) show % 2930 200 sub 1069 100 add moveto (675) show 2938 100 add 1061 100 sub moveto (700) show 2261 100 add 748 200 sub moveto (500c,E) show 1708 100 add 490 200 sub moveto (525c,E) show 1419 000 add 356 250 sub moveto (550c,E) show % 1250 100 add 1316 100 sub moveto (D65 ) show -600 -400 translate %ENDE: 1 } if %xchart4=0 xchart4 1 eq {%xchart4=1 500 3200 translate 0 400 moveto 4000 0 rlineto stroke 0 400 moveto 0 -3600 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten TBS 0 350 moveto 0 100 rlineto stroke 800 350 moveto 0 100 rlineto stroke 1600 350 moveto 0 100 rlineto stroke 2400 350 moveto 0 100 rlineto stroke 3200 350 moveto 0 100 rlineto stroke 4000 350 moveto 0 100 rlineto stroke -150 500 moveto (-0,8) show 650 500 moveto (0,0) show 1450 500 moveto (0,8) show 2250 500 moveto (1,6) show 3050 500 moveto (2,4) show 3850 500 moveto (3,2) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 -800 moveto 100 0 rlineto stroke -50 -1600 moveto 100 0 rlineto stroke -50 -2400 moveto 100 0 rlineto stroke -50 -3200 moveto 100 0 rlineto stroke -450 -100 moveto ( 0,0) show -450 -900 moveto (-0,8) show -450 -1700 moveto (-1,6) show %-450 -2500 moveto (-2,4) show -175 -3050 moveto 90 rotate TBIK (b) show TBK (=-0,40) show TBIK (z/y) show -90 rotate 3650 100 moveto TBIK (a=x/y) show -500 -3200 translate %1000 02 01 16 01-.03**************************************** %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 1300 3200 translate % 36136 -68535 moveto % 36136 -68535 36234 -68875 35958 -68561 curveto % 35610 -68128 33600 -64560 29424 -56936 curveto % 24474 -47779 19507 -38551 15143 -30384 curveto % 11681 -23927 8847 -18653 6639 -14534 curveto % 4846 -11128 3397 -8271 2147 -5661 curveto 1261 -3701 moveto 1261 -3701 688 -2339 342 -1455 curveto 153 -894 56 -546 15 -336 curveto 5 -208 18 -125 47 -73 curveto 89 -44 138 -28 191 -19 curveto 246 -13 304 -8 366 -5 curveto 435 -3 512 -2 597 -1 curveto 693 -1 800 0 920 0 curveto 1053 0 1198 0 1355 0 curveto 1520 0 1683 0 1844 0 curveto 1993 0 2126 0 2242 0 curveto 2340 0 2424 0 2497 0 curveto 2559 0 2610 0 2649 0 curveto 2680 0 2703 0 2718 0 curveto 2731 0 2741 0 2751 0 curveto 2760 0 2764 0 2767 0 curveto 2769 0 2770 0 2824 -116 curveto 3023 -529 3168 -817 3275 -1036 curveto 3357 -1209 3430 -1349 3482 -1469 curveto 3545 -1597 3622 -1746 3704 -1922 curveto 3817 -2156 3983 -2496 4262 -3058 curveto % 4786 -4149 6341 -7346 35775 -67850 curveto stroke 0 0 0 1 setcmyk_olvcolor % 36136 -68535 30 0 360 arc fill % 400 % 29424 -56936 30 0 360 arc fill % 425 % 8847 -18653 30 0 360 arc fill % 450 1261 -3701 30 0 360 arc fill % 475 15 -336 30 0 360 arc fill % 500 138 -28 30 0 360 arc fill % 525 435 -3 30 0 360 arc fill % 550 920 0 30 0 360 arc fill % 575 1683 0 30 0 360 arc fill % 600 2340 0 30 0 360 arc fill % 625 2649 0 30 0 360 arc fill % 650 2741 0 30 0 360 arc fill % 675 2769 0 30 0 360 arc fill % 700 3023 -529 30 0 360 arc fill %500c 3482 -1469 30 0 360 arc fill %525c 3983 -2496 30 0 360 arc fill %550c 0 0 0 1 setcmyk_olvcolor % 36136 -68535 30 0 360 arc stroke % 400 % 29424 -56936 30 0 360 arc stroke % 425 % 8847 -18653 30 0 360 arc stroke % 450 1261 -3701 30 0 360 arc stroke % 475 15 -336 30 0 360 arc stroke % 500 138 -28 30 0 360 arc stroke % 525 435 -3 30 0 360 arc stroke % 550 920 0 30 0 360 arc stroke % 575 1683 0 30 0 360 arc stroke % 600 2340 0 30 0 360 arc stroke % 625 2649 0 30 0 360 arc stroke % 650 2741 0 30 0 360 arc stroke % 675 2769 0 30 0 360 arc stroke % 700 3023 -529 30 0 360 arc stroke %500c 3482 -1469 30 0 360 arc stroke %525c 3983 -2496 30 0 360 arc stroke %550c % 950 -435 30 0 360 arc fill %D65 0 0 0 1 setcmyk_olvcolor TBIS % 36136 500 sub -68535 100 sub moveto (400) show % 29424 500 sub -56936 100 sub moveto (425) show % 8847 500 sub -18653 100 sub moveto (450) show % 1261 500 sub -3701 100 sub moveto (475) show 15 400 sub -336 100 sub moveto (500) show % 138 200 sub -28 100 add moveto (525) show 435 200 sub -3 100 add moveto (550) show % 920 200 sub 0 100 add moveto (575) show 1683 200 sub 0 100 add moveto (600) show 2340 200 sub 0 100 add moveto (625) show % 2649 200 sub 0 100 add moveto (650) show % 2741 200 sub 0 100 add moveto (675) show 2769 100 add 0 150 sub moveto (700) show 3023 100 add -529 100 sub moveto (500c,E) show 3482 800 sub -1469 050 sub moveto (525c,E) show % 3983 500 sub -2496 100 sub moveto (550c,E) show % 950 100 add -435 100 sub moveto (D65 ) show -1300 -3200 translate %ENDE: 2 } if %xchart4=1 xchart4 2 eq {%xchart4=2 600 3200 translate 0 400 moveto 4400 0 rlineto stroke 0 400 moveto 0 -3600 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten TBS 000 350 moveto 0 100 rlineto stroke 0800 350 moveto 0 100 rlineto stroke 1600 350 moveto 0 100 rlineto stroke 2400 350 moveto 0 100 rlineto stroke 3200 350 moveto 0 100 rlineto stroke 4000 350 moveto 0 100 rlineto stroke -200 500 moveto (0,00) show 600 500 moveto (0,06) show 1400 500 moveto (0,12) show 2200 500 moveto (0,18) show 3000 500 moveto (0,24) show 3800 500 moveto (0,30) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 -800 moveto 100 0 rlineto stroke -50 -1600 moveto 100 0 rlineto stroke -50 -2400 moveto 100 0 rlineto stroke -50 -3200 moveto 100 0 rlineto stroke -575 -100 moveto ( 0,00) show -575 -900 moveto (-0,06) show -575 -1700 moveto (-0,12) show -575 -2500 moveto (-0,18) show TIM -380 -1300 moveto (b') show 4300 250 moveto (a') show -600 -3200 translate %1000 02 01 16 01 .00 .0020 ******************** %ANF PROZSPEP3.FOR: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 400 3200 translate 9657 -6202 moveto 9657 -6202 9666 -6212 9642 -6203 curveto 9610 -6190 9426 -6080 9018 -5830 curveto 8481 -5499 7863 -5120 7227 -4729 curveto 6628 -4367 6041 -4019 5490 -3698 curveto 4943 -3383 4391 -3065 3769 -2701 curveto 3156 -2344 2578 -2012 2043 -1717 curveto 1565 -1460 1123 -1239 723 -1054 curveto 527 -898 772 -759 1060 -634 curveto 1304 -535 1510 -464 1685 -408 curveto 1832 -356 1965 -309 2091 -267 curveto 2214 -230 2337 -200 2460 -176 curveto 2585 -157 2712 -145 2841 -139 curveto 2972 -138 3103 -133 3233 -126 curveto 3359 -126 3475 -120 3582 -113 curveto 3676 -98 3756 -91 3823 -88 curveto 3878 -75 3924 -64 3963 -57 curveto 3995 -54 4022 -46 4042 0 curveto 4057 0 4069 0 4077 0 curveto 4083 0 4088 0 4093 0 curveto 4097 0 4100 0 4101 0 curveto 4102 0 4103 0 4129 -740 curveto 4224 -1226 4290 -1417 4338 -1533 curveto 4374 -1614 4405 -1674 4427 -1723 curveto 4454 -1771 4486 -1825 4520 -1884 curveto 4565 -1958 4630 -2056 4736 -2200 curveto 4923 -2435 5407 -2946 9625 -6181 curveto stroke 0 0 0 1 setcmyk_olvcolor 9657 -6202 30 0 360 arc fill % 400 9018 -5830 30 0 360 arc fill % 425 6041 -4019 30 0 360 arc fill % 450 3156 -2344 30 0 360 arc fill % 475 723 -1054 30 0 360 arc fill % 500 1510 -464 30 0 360 arc fill % 525 2214 -230 30 0 360 arc fill % 550 2841 -139 30 0 360 arc fill % 575 3475 -120 30 0 360 arc fill % 600 3878 -75 30 0 360 arc fill % 625 4042 0 30 0 360 arc fill % 650 4088 0 30 0 360 arc fill % 675 4102 0 30 0 360 arc fill % 700 4224 -1226 30 0 360 arc fill %500c 4427 -1723 30 0 360 arc fill %525c 4630 -2056 30 0 360 arc fill %550c 0 0 0 1 setcmyk_olvcolor 9657 -6202 30 0 360 arc stroke % 400 9018 -5830 30 0 360 arc stroke % 425 6041 -4019 30 0 360 arc stroke % 450 3156 -2344 30 0 360 arc stroke % 475 723 -1054 30 0 360 arc stroke % 500 1510 -464 30 0 360 arc stroke % 525 2214 -230 30 0 360 arc stroke % 550 2841 -139 30 0 360 arc stroke % 575 3475 -120 30 0 360 arc stroke % 600 3878 -75 30 0 360 arc stroke % 625 4042 0 30 0 360 arc stroke % 650 4088 0 30 0 360 arc stroke % 675 4102 0 30 0 360 arc stroke % 700 4224 -1226 30 0 360 arc stroke %500c 4427 -1723 30 0 360 arc stroke %525c 4630 -2056 30 0 360 arc stroke %550c % 2872 -1148 30 0 360 arc fill %D65 0 0 0 1 setcmyk_olvcolor TBIS % 9657 500 sub -6202 100 sub moveto (400) show % 9018 500 sub -5830 100 sub moveto (425) show % 6041 500 sub -4019 100 sub moveto (450) show 3156 400 sub -2344 100 sub moveto (475) show 723 250 sub -1054 250 sub moveto (500) show 1510 200 sub -464 150 add moveto (525) show 2214 200 sub -230 100 add moveto (550) show 2841 200 sub -139 100 add moveto (575) show 3475 200 sub -120 100 add moveto (600) show % 3878 200 sub -75 100 add moveto (625) show % 4042 200 sub 0 100 add moveto (650) show % 4088 200 sub 0 100 add moveto (675) show 4102 050 add 0 100 sub moveto (700) show 4224 050 add -1226 000 sub moveto (500c,E) show 4427 010 sub -1723 100 add moveto (525c,E) show % 4630 100 add -2056 100 sub moveto (550c,E) show % 2872 050 add -1148 000 sub moveto (D65 ) show -400 -3200 translate %ENDE: 3 } if %xchart4=2 xchart4 3 eq {%xchart4=3 600 3200 translate 0 400 moveto 4400 0 rlineto stroke 0 400 moveto 0 -3500 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten TBS 0 350 moveto 0 100 rlineto stroke 800 350 moveto 0 100 rlineto stroke 1600 350 moveto 0 100 rlineto stroke 2400 350 moveto 0 100 rlineto stroke 3200 350 moveto 0 100 rlineto stroke 4000 350 moveto 0 100 rlineto stroke -250 500 moveto (-0,6) show 650 500 moveto (0,0) show 1450 500 moveto (0,6) show 2250 500 moveto (1,2) show 3050 500 moveto (1,8) show 3850 500 moveto (2,4) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 -800 moveto 100 0 rlineto stroke -50 -1600 moveto 100 0 rlineto stroke -50 -2400 moveto 100 0 rlineto stroke -50 -3200 moveto 100 0 rlineto stroke -450 -100 moveto ( 0,0) show -450 -900 moveto (-0,6) show -450 -1700 moveto (-1,2) show -450 -2500 moveto (-1,8) show TBIK -450 -2900 moveto (b") show TBS -120 -125 rmoveto (s) show 120 125 rmoveto TBIK 4050 200 moveto (a") show TBS -120 -125 rmoveto (s) show 120 125 rmoveto TBIK -600 -3200 translate %1000 02 **************************************** %ANF PROZSPEP.FOR: MULYA= 1333 BEO=02 a"b" LABJND 1985 IXY0: 700 3200 700 800 add 3200 translate 3789 -3170 moveto 3789 -3170 3789 -3170 3788 -3170 curveto 3787 -3170 3779 -3166 3757 -3155 curveto 3724 -3138 3673 -3113 3603 -3079 curveto 3514 -3037 3394 -2982 3239 -2915 curveto 3028 -2826 2734 -2704 2265 -2508 curveto 1626 -2234 957 -1880 645 -1481 curveto 507 -1078 443 -720 417 -455 curveto 411 -308 419 -223 437 -171 curveto 464 -144 496 -130 533 -121 curveto 573 -115 616 -111 664 -108 curveto 721 -107 787 -105 867 -105 curveto 963 -104 1081 -104 1227 -104 curveto 1397 -104 1561 -104 1716 -104 curveto 1858 -104 1981 -104 2090 -104 curveto 2180 -104 2254 -104 2313 -104 curveto 2360 -103 2397 -103 2429 -103 curveto 2455 -103 2476 -103 2491 -103 curveto 2503 -103 2512 -103 2517 -103 curveto 2522 -103 2526 -103 2530 -103 curveto 2533 -103 2535 -103 2536 -103 curveto 2536 -103 2537 -103 2556 -214 curveto 2623 -700 2668 -1007 2700 -1196 curveto 2723 -1324 2742 -1416 2756 -1488 curveto 2772 -1560 2791 -1636 2811 -1717 curveto 2837 -1813 2873 -1933 2929 -2093 curveto 3019 -2313 3211 -2648 3788 -3169 curveto stroke 1 setgray 3789 -3170 30 0 360 arc fill % 400 3757 -3155 30 0 360 arc fill % 425 3394 -2982 30 0 360 arc fill % 450 1626 -2234 30 0 360 arc fill % 475 417 -455 30 0 360 arc fill % 500 496 -130 30 0 360 arc fill % 525 721 -107 30 0 360 arc fill % 550 1227 -104 30 0 360 arc fill % 575 1981 -104 30 0 360 arc fill % 600 2360 -103 30 0 360 arc fill % 625 2491 -103 30 0 360 arc fill % 650 2526 -103 30 0 360 arc fill % 675 2536 -103 30 0 360 arc fill % 700 2623 -700 30 0 360 arc fill %500c 2756 -1488 30 0 360 arc fill %525c 2873 -1933 30 0 360 arc fill %550c 0 setgray 3789 -3170 30 0 360 arc stroke % 400 3757 -3155 30 0 360 arc stroke % 425 3394 -2982 30 0 360 arc stroke % 450 1626 -2234 30 0 360 arc stroke % 475 417 -455 30 0 360 arc stroke % 500 496 -130 30 0 360 arc stroke % 525 721 -107 30 0 360 arc stroke % 550 1227 -104 30 0 360 arc stroke % 575 1981 -104 30 0 360 arc stroke % 600 2360 -103 30 0 360 arc stroke % 625 2491 -103 30 0 360 arc stroke % 650 2526 -103 30 0 360 arc stroke % 675 2536 -103 30 0 360 arc stroke % 700 2623 -700 30 0 360 arc stroke %500c 2756 -1488 30 0 360 arc stroke %525c 2873 -1933 30 0 360 arc stroke %550c 1266 -580 30 0 360 arc fill %D65 0 setgray TBIS 3789 200 sub -3170 200 add moveto (400) show % 3757 600 sub -3155 100 sub moveto (425) show % 3394 600 sub -2982 100 sub moveto (450) show 1626 050 sub -2234 150 add moveto (475) show 417 430 sub -455 100 sub moveto (500) show 496 400 sub -130 50 add moveto (525) show 721 200 sub -107 100 add moveto (550) show 1227 200 sub -104 100 add moveto (575) show 1981 200 sub -104 100 add moveto (600) show % 2360 200 sub -103 100 add moveto (625) show % 2491 200 sub -103 100 add moveto (650) show % 2526 200 sub -103 100 add moveto (675) show 2536 100 add -103 moveto (700) show 2623 100 add -700 100 sub moveto (500c) show 2756 100 add -1488 100 sub moveto (525c) show % 2873 100 add -1933 100 sub moveto (550c) show % 1266 100 add -580 100 sub moveto (D65 ) show 700 800 add neg -3200 translate %ENDE: 3 } if %xchart4=3 xchart4 4 ge xchart4 7 le and {%4>=xchart4<=7 3500 2000 translate %axis and scales 0 0 0 1 setcmyk_olvcolor -2250 0 moveto 3950 0 rlineto stroke 0 -1880 moveto 0 3600 rlineto stroke 1700 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 /xt10x 5 array def /yt10x 5 array def xchart4 4 eq {%xchart4=4 /xt10x [(-40) ( ) ( ) ( ) ( 40)] def /yt10x [(-40) ( ) ( ) ( ) (40)] def } if %xchart4=3 xchart4 5 ge xchart4 7 le and {%5>=xchart4<=7 /xt10x [(-120) ( ) ( ) ( ) ( 120)] def /yt10x [(-120) ( ) ( ) ( ) (120)] def } if %4>=xchart4<=6 0 0 0 1 setcmyk_olvcolor 0 1 4 {/i exch def %i=0,4 x-axis -1600 i 800 mul add -75 moveto 0 150 rlineto stroke -1800 i 800 mul add -250 moveto TBS xt10x i get show i 4 eq {-1600 i 800 mul add 0 moveto xchart4 4 eq { %xchart4=4 000 150 rmoveto TBIM (A) show TL } if %xchart4=4 xchart4 5 eq { %xchart4=5 -50 150 rmoveto TBIM (a*) show TL } if %xchart4=5 xchart4 6 eq { %xchart4=6 -350 150 rmoveto TBIM (a*) show -40 -50 rmoveto TBL (D65) show 0 50 rmoveto TL } if %xchart4=6 xchart4 7 eq { %xchart4=7 -50 150 rmoveto TBIM (A*) show TL } if %xchart4=7 } if } for %i=0,4 0 1 4 {/i exch def %i=0,4 y-axis -75 -1600 i 800 mul add moveto 150 0 rlineto stroke 100 -1600 i 800 mul add 100 sub moveto TBS yt10x i get show i 4 eq {0 -1600 i 800 mul add moveto xchart4 4 eq { %xchart4=4 -250 150 rmoveto TBIM (B) show TL } if %xchart4=4 xchart4 5 eq { %xchart4=5 -400 150 rmoveto TBIM (b*) show TL } if %xchart4=5 xchart4 6 eq { %xchart4=6 -750 150 rmoveto TBIM (b*) show -40 -50 rmoveto TBL (D65) show 0 50 rmoveto TL } if %xchart4=6 xchart4 7 eq { %xchart4=7 -300 150 rmoveto TBIM (B*) show TL } if %xchart4=7 } if } for %i=0,4 -3500 -2000 translate } if %4>=xchart4<=7 %******************************************************* %actual data /imshow {0 -50 rmoveto TBL (d) show 0 50 rmoveto TBIS} def /ioshow {0 -50 rmoveto TBL (o) show 0 50 rmoveto TBIS} def %************************************************* xchart4 0 eq {%xchart4=0 %only for (x,y) /fakt 4000 def 600 400 translate %for scala and graphic 0 1 05 {/i exch def %i=0,39 XANi i get fakt mul YANi i get fakt mul i 0 eq {moveto} if i 1 ge i 04 le and {lineto} if i 05 eq {lineto closepath stroke} if } for %i=0,39 XANW fakt mul YANW fakt mul 90 0 360 arc stroke XANW fakt mul 200 sub YANW fakt mul 250 sub moveto TBS TELi xchartl get show TBIS 0 1 5 {/i exch def %i=0,5 /SUM Xi i get Yi i get add Zi i get add 0.0001 add def /AnY Xi i get SUM div fakt mul def /BnY Yi i get SUM div fakt mul def i 0 eq {AnY 100 sub BnY 250 sub moveto (R) show imshow 0 1 1 0 setcmykcolor} if %Rm i 1 eq {AnY 100 sub BnY 250 sub moveto (Y) show imshow 0 0 1 0 setcmykcolor} if %Ym i 2 eq {AnY 400 sub BnY 150 sub moveto (G) show imshow 1 0 1 0 setcmykcolor} if %Gm i 3 eq {AnY 400 sub BnY 050 sub moveto (C) show imshow 1 0 0 0 setcmykcolor} if %Cm i 4 eq {AnY 000 add BnY 200 add moveto (B) show imshow 1 1 0 0 setcmykcolor} if %Bm i 5 eq {AnY 150 add BnY 050 sub moveto (M) show imshow 0 1 0 0 setcmykcolor} if %Mm newpath AnY BnY 90 0 360 arc fill 0 setgray newpath AnY BnY 90 0 360 arc stroke } for %i=0,5 -600 -400 translate %for scala and grafic } if %xchart4=0 xchart4 1 eq {%xchart4=1 %only for (a,b) /fakt 1000 def /a2 XW YW 0.0001 add div def /b2 ZW YW 0.0001 add div -0.4 mul def 1300 3200 translate %for grafic 0 1 05 {/i exch def %i=0,39 Xi i get Yi i get 0.0001 add div fakt mul %a Zi i get Yi i get 0.0001 add div fakt mul %b 0.4 mul neg i 0 eq {moveto} if i 1 ge i 04 le and {lineto} if i 05 eq {lineto closepath stroke} if } for %i=0,39 XW YW 0.0001 add div fakt mul ZW YW 0.0001 add div fakt mul 0.4 mul neg 90 0 360 arc stroke XW YW 0.0001 add div fakt mul 200 sub ZW YW 0.0001 add div fakt mul 0.4 mul neg 250 sub moveto TBS TELi xchartl get show TBIS 0 1 5 {/i exch def %i=0,5 /AnY Xi i get Yi i get 0.0001 add div fakt mul def /BnY Zi i get Yi i get 0.0001 add div fakt mul 0.4 mul neg def i 0 eq {AnY 150 add BnY 250 sub moveto (R) show imshow 0 1 1 0 setcmykcolor} if %Rm i 1 eq {AnY 100 sub BnY 250 sub moveto (Y) show imshow 0 0 1 0 setcmykcolor} if %Ym i 2 eq {AnY 400 sub BnY 250 sub moveto (G) show imshow 1 0 1 0 setcmykcolor} if %Gm i 3 eq {AnY 400 sub BnY 050 sub moveto (C) show imshow 1 0 0 0 setcmykcolor} if %Cm i 4 eq {AnY 000 add BnY 200 add moveto (B) show imshow 1 1 0 0 setcmykcolor} if %Bm i 5 eq {AnY 150 add BnY 050 sub moveto (M) show imshow 0 1 0 0 setcmykcolor} if %Mm newpath AnY BnY 90 0 360 arc fill 0 setgray newpath AnY BnY 90 0 360 arc stroke } for %i=0,5 -1300 -3200 translate %for grafic } if %xchart4=1 xchart4 2 eq {%xchart4=2 %only for (a',b') /D13 1 3 div def /fakt 13333 def /a2 XW YW 0.0001 add div D13 exp 0.2191 mul def /b2 ZW YW 0.0001 add div D13 exp -0.08376 mul def 200 3200 translate %for graphic 0 1 05 {/i exch def %i=0,39 Xi i get Yi i get 0.0001 add div %a' D13 exp 0.2191 mul fakt mul Zi i get Yi i get 0.0001 add div %b' D13 exp -0.08376 mul fakt mul i 0 eq {moveto} if i 1 ge i 04 le and {lineto} if i 05 eq {lineto closepath stroke} if } for %i=0,39 XW YW 0.0001 add div %a' D13 exp 0.2191 mul fakt mul ZW YW 0.0001 add div %b' D13 exp -0.08376 mul fakt mul 90 0 360 arc stroke XW YW 0.0001 add div %a' D13 exp 0.2191 mul fakt mul 200 sub ZW YW 0.0001 add div %b' D13 exp -0.08376 mul fakt mul 250 sub moveto TBS TELi xchartl get show TBIS 0 1 5 {/i exch def %i=0,5 /AnY Xi i get Yi i get 0.0001 add div %a' D13 exp 0.2191 mul fakt mul def /BnY Zi i get Yi i get 0.0001 add div %b' D13 exp -0.08376 mul fakt mul def i 0 eq {AnY 150 add BnY 250 sub moveto (R) show imshow 0 1 1 0 setcmykcolor} if %Rm i 1 eq {AnY 100 sub BnY 250 sub moveto (Y) show imshow 0 0 1 0 setcmykcolor} if %Ym i 2 eq {AnY 400 sub BnY 150 sub moveto (G) show imshow 1 0 1 0 setcmykcolor} if %Gm i 3 eq {AnY 400 sub BnY 050 sub moveto (C) show imshow 1 0 0 0 setcmykcolor} if %Cm i 4 eq {AnY 000 add BnY 200 add moveto (B) show imshow 1 1 0 0 setcmykcolor} if %Bm i 5 eq {AnY 150 add BnY 050 sub moveto (M) show imshow 0 1 0 0 setcmykcolor} if %Mm newpath AnY BnY 90 0 360 arc fill 0 setgray newpath AnY BnY 90 0 360 arc stroke } for %i=0,5 -200 -3200 translate %for graphic } if %xchart4=2 xchart4 3 eq {%xchart4=3 %only for (a",b") %100 3800 moveto TIS ((a",b") (LAB 1977)) show /fakt 1333 def /XD65 95.04 def /YD65 100.00 def /ZD65 108.89 def /aD65 XD65 YD65 0.0001 add div def /bD65 ZD65 YD65 0.0001 add div -0.4 mul def /a2 aD65 def /b2 bD65 def 700 800 add 3200 translate %for grafic 0 1 05 {/i exch def %i=0,39 /a Xi i get Yi i get 0.0001 add div def /an XK YK 0.0001 add div def /b Zi i get Yi i get 0.0001 add div 0.4 mul neg def /bn ZK YK 0.0001 add div 0.4 mul neg def /a" an a an sub 1 a an sub abs 0.5 mul add div add def /b" bn b bn sub 1 b bn sub abs 0.5 mul add div add def a" fakt mul b" fakt mul /a"n an def /b"n bn def i 0 eq {moveto} if i 1 ge i 04 le and {lineto} if i 05 eq {lineto closepath stroke} if } for %i=0,39 a"n fakt mul b"n fakt mul 90 0 360 arc stroke a"n fakt mul 200 sub b"n fakt mul 250 sub moveto TBS TELi xchartl get show TBIS 0 1 5 {/i exch def %i=0,5 /a Xi i get Yi i get 0.0001 add div def /an XK YK 0.0001 add div def /b Zi i get Yi i get 0.0001 add div 0.4 mul neg def /bn ZK YK 0.0001 add div 0.4 mul neg def /a" an a an sub 1 a an sub abs 0.5 mul add div add def /b" bn b bn sub 1 b bn sub abs 0.5 mul add div add def a" fakt mul b" fakt mul /a"n an def /b"n bn def /AnY a" fakt mul def /BnY b" fakt mul def i 0 eq {AnY 150 add BnY 250 sub moveto (R) show imshow 0 1 1 0 setcmykcolor} if %Rm i 1 eq {AnY 100 sub BnY 250 sub moveto (Y) show imshow 0 0 1 0 setcmykcolor} if %Ym i 2 eq {AnY 400 sub BnY 250 sub moveto (G) show imshow 1 0 1 0 setcmykcolor} if %Gm i 3 eq {AnY 400 sub BnY 050 sub moveto (C) show imshow 1 0 0 0 setcmykcolor} if %Cm i 4 eq {AnY 000 add BnY 200 add moveto (B) show imshow 1 1 0 0 setcmykcolor} if %Bm i 5 eq {AnY 150 add BnY 050 sub moveto (M) show imshow 0 1 0 0 setcmykcolor} if %Mm newpath AnY BnY 90 0 360 arc fill 0 setgray newpath AnY BnY 90 0 360 arc stroke } for %i=0,5 700 800 add neg -3200 translate %for graphic } if %xchart4=3 xchart4 4 eq {%xchart4=4 %only for (A,B) /fakt 40 def /a2 1.00 def /b2 -0.4 def 3500 2000 translate %for text and grafic -3400 1800 moveto TBIS (XYZ) show TBL (w) show TBS (=) show XK cvsshow5 (, ) show YK cvsshow5 (, ) show ZK cvsshow2 -3400 1550 moveto TBIS (A) show TBS ( = \050) show TBIS (a) show TBS ( - ) show TBIS (a) show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (\051 ) show TBIS (Y) show -3400 1300 moveto TBIS (B) show TBS ( = \050) show TBIS (b) show TBS ( - ) show TBIS (b) show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (\051 ) show TBIS (Y) show -3400 1050 moveto TBIS (a) show TBS ( = ) show TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( [) show TBIS (x/y) show TBS (]) show -3400 800 moveto TBIS (b) show TBS ( = ) show TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( [) show TBIS (z/y) show TBS (]) show -3400 550 moveto TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( = 1) show -3400 300 moveto TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( = -0,4) show -3400 050 moveto TBIS (n) show TBS ( = ) show TELi xchartl get show 0 1 05 {/i exch def %i=0,39 Xi i get Yi i get 0.0001 add div %(a-an)Y XK YK 0.0001 add div sub Yi i get mul fakt mul Zi i get Yi i get 0.0001 add div %(b-bn)Y ZK YK 0.0001 add div sub 0.4 mul neg Yi i get mul fakt mul i 0 eq {moveto} if i 1 ge i 04 le and {lineto} if i 05 eq {lineto closepath stroke} if } for %i=0,39 XW YW 0.0001 add div %(a-an)YW XK YK 0.0001 add div sub YW mul fakt mul ZW YW 0.0001 add div %(b-an)YW ZK YK 0.0001 add div sub 0.4 mul neg YW mul fakt mul 90 0 360 arc stroke 0 080 add 0 080 add moveto TBS TELi xchartl get show TBIS 0 1 5 {/i exch def %i=0,5 /AnY Xi i get Yi i get 0.0001 add div %(a-an)Y XK YK 0.0001 add div sub Yi i get mul fakt mul def /BnY Zi i get Yi i get 0.0001 add div %(b-bn)Y ZK YK 0.0001 add div sub 0.4 mul neg Yi i get mul fakt mul def i 0 eq {AnY 150 add BnY 250 sub moveto (R) show imshow 0 1 1 0 setcmykcolor} if %Rm i 1 eq {AnY 100 sub BnY 250 sub moveto (Y) show imshow 0 0 1 0 setcmykcolor} if %Ym i 2 eq {AnY 400 sub BnY 150 sub moveto (G) show imshow 1 0 1 0 setcmykcolor} if %Gm i 3 eq {AnY 400 sub BnY 050 sub moveto (C) show imshow 1 0 0 0 setcmykcolor} if %Cm i 4 eq {AnY 000 add BnY 200 add moveto (B) show imshow 1 1 0 0 setcmykcolor} if %Bm i 5 eq {AnY 150 add BnY 050 sub moveto (M) show imshow 0 1 0 0 setcmykcolor} if %Mm newpath AnY BnY 90 0 360 arc fill 0 setgray newpath AnY BnY 90 0 360 arc stroke } for %i=0,5 } if %xchart4=4 xchart4 5 eq {%xchart4=5 %only for (a*,b*) /D13 1 3 div def /fakt 40 3 div def /a2 1 XW div D13 exp def /b2 1 ZW div D13 exp -0.4 mul def 3500 2000 translate %for text and grafic -3400 1800 moveto TBIS (XYZ) show TBL (w) show TBS (=) show XK cvsshow5 (, ) show YK cvsshow5 (, ) show ZK cvsshow2 -3400 1550 moveto TBIS (a*) show TBS ( = 500 \050) show TBIS (a') show TBS ( - ) show TBIS (a') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (\051 ) show TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 1300 moveto TBIS (b*) show TBS ( = 500 \050) show TBIS (b') show TBS ( - ) show TBIS (b') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (\051 ) show TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 1050 moveto TBIS (a) show TBS ( = ) show TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( [) show TBIS (x/y) show TBS (]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 800 moveto TBIS (b) show TBS ( = ) show TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( [) show TBIS (z/y) show TBS (]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 550 moveto TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS (=[1/) show TBIS (X) show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto TBS (=) show a2 cvsshow4 -3400 300 moveto TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS (=-[1/) show TBIS (Z) show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto TBS (=) show b2 cvsshow5 -3400 050 moveto TBIS (n) show TBS ( = ) show TELi xchartl get show 0 1 05 {/i exch def %i=0,39 Xi i get Yi i get 0.0001 add div %500(a'-a'n)Y**(1/3) D13 exp a2 mul %a'= a2 (x/y)**(1/3) XK YK 0.0001 add div D13 exp a2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul Zi i get Yi i get 0.0001 add div %500(b'-b'n)Y**(1/3) D13 exp b2 mul %b' = b2 (z/y)**(1/3) ZK YK 0.0001 add div D13 exp b2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul i 0 eq {moveto} if i 1 ge i 04 le and {lineto} if i 05 eq {lineto closepath stroke} if } for %i=0,39 XW YW 0.0001 add div D13 exp a2 mul XK YK 0.0001 add div D13 exp a2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul ZW YW 0.0001 add div D13 exp b2 mul ZK YK 0.0001 add div D13 exp b2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul 90 0 360 arc stroke /xshift [0100 -100 -450 150 -100 0150 0150 -450 0080 0000] def /yshift [-100 200 -100 -100 -350 -100 -000 -100 0080 0000] def /colori [(R) (Y) (G) (C) (B) (M) (G) (M) (D65) ( )] def colori 8 TELi xchartl get put XW YW 0.0001 add div D13 exp a2 mul XK YK 0.0001 add div D13 exp a2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul 080 add ZW YW 0.0001 add div D13 exp b2 mul ZK YK 0.0001 add div D13 exp b2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul 080 add moveto TBS TELi xchartl get show TBIS 0 1 5 {/i exch def %i=0,5 /AnY Xi i get Yi i get 0.0001 add div %500(a'-a'n)Y**(1/3) D13 exp a2 mul %a'= a2 (x/y)**(1/3) XK YK 0.0001 add div D13 exp a2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def /BnY Zi i get Yi i get 0.0001 add div %500(b'-b'n)Y**(1/3) D13 exp b2 mul %b'= b2 (x/y)**(1/3) ZK YK 0.0001 add div D13 exp b2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def i 0 eq {AnY 150 add BnY 250 sub moveto (R) show imshow 0 1 1 0 setcmykcolor} if %Rm i 1 eq {AnY 100 sub BnY 250 sub moveto (Y) show imshow 0 0 1 0 setcmykcolor} if %Ym i 2 eq {AnY 400 sub BnY 150 sub moveto (G) show imshow 1 0 1 0 setcmykcolor} if %Gm i 3 eq {AnY 400 sub BnY 050 sub moveto (C) show imshow 1 0 0 0 setcmykcolor} if %Cm i 4 eq {AnY 000 add BnY 200 add moveto (B) show imshow 1 1 0 0 setcmykcolor} if %Bm i 5 eq {AnY 150 add BnY 050 sub moveto (M) show imshow 0 1 0 0 setcmykcolor} if %Mm newpath AnY BnY 90 0 360 arc fill 0 setgray newpath AnY BnY 90 0 360 arc stroke } for %i=0,5 -3500 -2000 translate %for text and grafic } if %xchart4=5 xchart4 6 eq {%xchart4=6 %only for (a*,b*) with const. for D65 /D13 1 3 div def /fakt 40 3 div def /a2 0.2191 def /b2 -0.08376 def 3500 2000 translate %for text and grafic -3400 1800 moveto TBIS (XYZ) show TBL (w) show TBS (=) show XK cvsshow5 (, ) show YK cvsshow5 (, ) show ZK cvsshow2 -3400 1550 moveto TBIS (a*) show TBS ( = 500 \050) show TBIS (a') show TBS ( - ) show TBIS (a') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (\051 ) show TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 1300 moveto TBIS (b*) show TBS ( = 500 \050) show TBIS (b') show TBS ( - ) show TBIS (b') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (\051 ) show TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 1050 moveto TBIS (a') show TBS ( = ) show TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( [) show TBIS (x/y) show TBS (]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 800 moveto TBIS (b') show TBS ( = ) show TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( [) show TBIS (z/y) show TBS (]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 550 moveto TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS (=[1/) show TBIS (X) show 0 -50 rmoveto TBL (D65) show 0 50 rmoveto TBS (]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto TBS (=) show a2 cvsshow4 -3400 300 moveto TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS (=-[1/) show TBIS (Z) show 0 -50 rmoveto TBL (D65) show 0 50 rmoveto TBS (]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto TBS (=) show b2 cvsshow5 -3400 050 moveto TBIS (n) show TBS ( = ) show TELi xchartl get show 0 1 05 {/i exch def %i=0,39 Xi i get Yi i get 0.0001 add div %500(a'-a'n)Y**(1/3) D13 exp a2 mul %a'= a2 (x/y)**(1/3) XK YK 0.0001 add div D13 exp a2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul Zi i get Yi i get 0.0001 add div %500(b'-b'n)Y**(1/3) D13 exp b2 mul %b'= b2 (z/y)**(1/3) ZK YK 0.0001 add div D13 exp b2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul i 0 eq {moveto} if i 1 ge i 04 le and {lineto} if i 05 eq {lineto closepath stroke} if } for %i=0,39 XW YW 0.0001 add div D13 exp a2 mul XK YK 0.0001 add div D13 exp a2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul ZW YW 0.0001 add div D13 exp b2 mul ZK YK 0.0001 add div D13 exp b2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul 90 0 360 arc stroke XW YW 0.0001 add div %500(a'-a'n)Y**(1/3) D13 exp a2 mul %a'= a2 (x/y)**(1/3) XK YK 0.0001 add div D13 exp a2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul 080 add ZW YW 0.0001 add div %500(b'-b'n)Y**(1/3) D13 exp b2 mul %a'= a2 (x/y)**(1/3) ZK YK 0.0001 add div D13 exp b2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul 080 add moveto TBS TELi xchartl get show TBIS 0 1 5 {/i exch def %i=0,5 /AnY Xi i get Yi i get 0.0001 add div D13 exp a2 mul XK YK 0.0001 add div D13 exp a2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def /BnY Zi i get Yi i get 0.0001 add div D13 exp b2 mul ZK YK 0.0001 add div D13 exp b2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def i 0 eq {AnY 150 add BnY 250 sub moveto (R) show imshow 0 1 1 0 setcmykcolor} if %Rm i 1 eq {AnY 100 sub BnY 250 sub moveto (Y) show imshow 0 0 1 0 setcmykcolor} if %Ym i 2 eq {AnY 400 sub BnY 150 sub moveto (G) show imshow 1 0 1 0 setcmykcolor} if %Gm i 3 eq {AnY 400 sub BnY 050 sub moveto (C) show imshow 1 0 0 0 setcmykcolor} if %Cm i 4 eq {AnY 000 add BnY 200 add moveto (B) show imshow 1 1 0 0 setcmykcolor} if %Bm i 5 eq {AnY 150 add BnY 050 sub moveto (M) show imshow 0 1 0 0 setcmykcolor} if %Mm newpath AnY BnY 90 0 360 arc fill 0 setgray newpath AnY BnY 90 0 360 arc stroke } for %i=0,5 -3500 -2000 translate %for text and grafic } if %xchart4=6 xchart4 7 eq {%xchart4=7 %only for (a*,b*)D65 /D13 1 3 div def /D11 1 def /D16 1 6 div def /fakt 40 3 div def /a2 1 15 div def /b2 1 12 div neg def 3500 2000 translate %for text and grafic -3400 1800 moveto TBIS (XYZ) show TBL (w) show TBS (=) show XK cvsshow5 (, ) show YK cvsshow5 (, ) show ZK cvsshow2 -3400 1550 moveto TBIS (a*) show TBS ( = 500 \050) show TBIS (a') show TBS ( - ) show TBIS (a') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (\051 ) show TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 1300 moveto TBIS (b*) show TBS ( = 500 \050) show TBIS (b') show TBS ( - ) show TBIS (b') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (\051 ) show TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 1050 moveto TBIS (a) show TBS ( = ) show TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( [) show TBIS (x/y) show TBS ( + 1]) show -3400 800 moveto TBIS (b) show TBS ( = ) show TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( [) show TBIS (z/y) show TBS ( + 1/6 ]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto TBS -3400 550 moveto TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( = 1/15 = ) show a2 cvsshow5 -3400 300 moveto TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( = -1/12 = ) show b2 cvsshow5 -3400 050 moveto TBIS (n) show TBS ( = ) show TELi xchartl get show 0 1 05 {/i exch def %i=0,39 Xi i get Yi i get 0.0001 add div %500(a'-a'n)Y**(1/3) D11 add a2 mul %a'=(x/y+1)/15 XK YK 0.0001 add div D11 add a2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul Zi i get Yi i get 0.0001 add div %500(b'-b'n)Y**(1/3) D16 add D13 exp b2 mul %b'=-[(z/y +1/6)**(1/3)]/12 ZK YK 0.0001 add div D16 add D13 exp b2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul i 0 eq {moveto} if i 1 ge i 04 le and {lineto} if i 05 eq {lineto closepath stroke} if } for %i=0,39 XW YW 0.0001 add div D11 add a2 mul XK YK 0.0001 add div D11 add a2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul ZW YW 0.0001 add div D16 add D13 exp b2 mul ZK YK 0.0001 add div D16 add D13 exp b2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul 90 0 360 arc stroke XW YW 0.0001 add div D11 add a2 mul XK YK 0.0001 add div D11 add a2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul 080 add ZW YW 0.0001 add div D16 add D13 exp b2 mul ZK YK 0.0001 add div D16 add D13 exp b2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul 080 add moveto TBS TELi xchartl get show TBIS 0 1 5 {/i exch def %i=0,5 /AnY Xi i get Yi i get 0.0001 add div %500(a'-a'n)Y**(1/3) D11 add a2 mul %a'=(x/y+1)/15 XK YK 0.0001 add div D11 add a2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def /BnY Zi i get Yi i get 0.0001 add div %500(b'-b'n)Y**(1/3) D16 add D13 exp b2 mul %b'=-[(z/y +1/6)**(1/3)]/12 ZK YK 0.0001 add div D16 add D13 exp b2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def i 0 eq {AnY 150 add BnY 250 sub moveto (R) show imshow 0 1 1 0 setcmykcolor} if %Rm i 1 eq {AnY 100 sub BnY 250 sub moveto (Y) show imshow 0 0 1 0 setcmykcolor} if %Ym i 2 eq {AnY 400 sub BnY 150 sub moveto (G) show imshow 1 0 1 0 setcmykcolor} if %Gm i 3 eq {AnY 400 sub BnY 050 sub moveto (C) show imshow 1 0 0 0 setcmykcolor} if %Cm i 4 eq {AnY 000 add BnY 200 add moveto (B) show imshow 1 1 0 0 setcmykcolor} if %Bm i 5 eq {AnY 400 sub BnY 050 sub moveto (M) show imshow 0 1 0 0 setcmykcolor} if %Mm newpath AnY BnY 90 0 360 arc fill 0 setgray newpath AnY BnY 90 0 360 arc stroke } for %i=0,5 -3500 -2000 translate %for text and grafic } if %xchart4=7 showpage grestore %} for %xchartl=0,7 } for %xchart4=0,7 %} for %xcolorl=0,1 %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 26 %line 479 %!PS-Adobe-3.0 EPSF-3.0 TE011-1N %%BoundingBox: 70 83 228 206 %START PDFDE011.EPS /pdfmark11 where {pop} {userdict /pdfmark11 /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/TE01/) /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:2013090112000) /ModDate (D:2013090112000) /DOCINFO pdfmark11 [ /View [ /FitB ] /DOCVIEW pdfmark11 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /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 /Courier findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Courier-ISOL1 exch definefont pop /Courier-Oblique findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierI-ISOL1 exch definefont pop /Courier-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierB-ISOL1 exch definefont pop /Courier-BoldOblique findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierBI-ISOL1 exch definefont pop /TG {350 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TL {160 /Times-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIL {160 /TimesI-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBL {160 /TimesB-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIL {160 /TimesBI-ISOL1 FS} bind def /SG {350 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SK {240 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SL {160 /Symbol FS} bind def %%EndProlog gsave %lanindL2.EPS START 20000505 /lanind 0 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showea {1 lanind le {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 1 def /lanind2 1 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 0 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 8 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % colorm 0 eq deintp 0 eq and {/Txx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def} if %colorm=1, deintp=1 xchart xchart3 lt {/Txx (-) def} if %always independent of intended output gsave %LANINDL2 END /cvishow {cvi 6 string cvs show ( ) show} def /cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show ( ) show} def /cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show ( ) show} def /cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show ( ) show} def /cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show ( ) show} def /cvsshow5 {100000 mul cvi 0.00001 mul 9 string cvs show ( ) show} def /SD65 80 array def %380 bis 775 mit deltalambda=05 /SD50 80 array def %380 bis 775 mit deltalambda=05 /SP40 80 array def %380 bis 775 mit deltalambda=05 /SA00 80 array def %380 bis 775 mit deltalambda=05 /SE00 80 array def %380 bis 775 mit deltalambda=05 /SC00 80 array def %380 bis 775 mit deltalambda=05 /SP00 80 array def %380 bis 775 mit deltalambda=05 /SQ00 80 array def %380 bis 775 mit deltalambda=05 /SDAK 80 array def %380 bis 775 mit deltalambda=05 /RA 80 array def %380 bis 770 nm /F2 240 array def %3 x 80 Daten fuer Bereich 380 bis 770nm /F2N 240 array def %normiert auf Y=100 fuer D65 und 10nm /F10 240 array def %3 x 80 Daten fuer Bereich 380 bis 770nm %C %C LITERATURQUELLEN LICHTARTEN %C SA,SC,SD65, CIE-DOKUMENT NR.15 FARBMESSUNG, 1971 %C TABELLE 1.1.1, SEITE 81 %C SD55,SD75, CIE-DOKUMENT NR.15 FARBMESSUNG, 1971 %C TABELLE 1.1.4, SEITE 85 %C LINEAR INTERPOLIERT VON 5 ZU 5NM %C SG,SP,SXE, DIN 5033, BLATT 7 ,SEITE 8-9 %C AUSGABE 1966 /SD65 %80 data 5 nm [50.0 52.3 54.6 68.7 82.8 87.1 91.5 92.5 93.4 90.1 86.7 95.8 104.9 110.9 117.0 117.4 117.8 116.3 114.9 115.4 115.9 112.4 108.8 109.1 109.4 108.6 107.8 106.3 104.8 106.2 107.7 106.0 104.4 104.2 104.0 102.0 100.0 98.2 96.3 96.1 95.8 92.2 88.7 89.3 90.0 89.8 89.6 88.6 87.7 85.5 83.3 83.5 83.7 81.9 80.0 80.1 80.2 81.2 82.3 80.3 78.3 74.0 69.7 70.7 71.6 73.0 74.3 68.0 61.6 65.7 69.9 72.5 75.1 69.3 63.6 55.0 46.4 56.6 66.8 65.1] def /SD50 %80 data 5 nm CIE 15.3, Seite 30; aus JE540-1N.PS [24.5 27.2 29.9 39.6 49.3 52.9 56.5 58.3 60.0 58.9 57.8 66.3 74.8 81.0 87.2 88.9 90.6 91.0 91.4 93.2 95.1 93.5 92.0 93.8 95.7 96.2 96.6 96.8 97.1 99.6 102.1 101.4 100.8 101.5 102.3 101.2 100.0 98.9 97.7 98.3 98.9 96.2 93.5 95.6 97.7 98.5 99.3 99.2 99.0 97.4 95.7 97.3 98.9 97.3 95.7 96.9 98.2 100.6 103.0 101.1 99.1 93.3 87.4 89.5 91.6 92.2 92.9 84.9 76.9 81.7 86.5 89.5 92.6 85.4 78.2 68.0 57.7 70.3 82.9 0.0] def %0.0 not used /SA00 %80 data 5 nm CIE 15.3 Seite 30; aus JE540-1N.PS [9.80 10.90 12.09 13.35 14.71 16.15 17.68 19.29 20.99 22.79 24.67 26.64 28.70 30.85 33.09 35.41 37.81 40.30 42.87 45.52 48.24 51.04 53.91 56.85 59.86 62.93 66.06 69.25 72.50 75.79 79.13 82.52 85.95 89.41 92.91 96.44 100.00 103.58 107.18 110.80 114.44 118.08 121.73 125.39 129.04 132.70 136.35 139.99 143.62 147.24 150.84 154.42 157.98 161.52 165.03 168.51 171.96 175.38 178.77 182.12 185.43 188.70 191.93 195.12 198.26 201.36 204.41 207.41 210.36 213.27 216.12 218.92 221.67 224.36 227.00 229.59 232.12 234.59 237.01 239.37 0.0] def %0.0 not used % AUS BILDPLA.FOR aus vrbam/wrpos:KRPROG.FOR, 5987-6023 5.10.92 %C PROGRAMM ZUR BERECHNUNG DER RELATIVEN SPEKTRALEN STRAHLUNGSVERTEI- %C LUNG EINES HOHLRAUMSTRAHLERS ALS FUNKTION DER WELLENLAENGE LAMDA %C BEI GEGEBENER TEMPERATUR T %C VERWENDETE VARIABLE %C T TEMPERATUR %C C2 PLANCKSCHE KONSTANTE (=1.4388 CM K (1967)) %C LAMDA(I) WELLENLAENGE %C S(I) STRAHLUNGSVERTEILUNG DES HOHLRAUMSTRAHLERS %C %C LITERATUR OFFIZIELLE EMPFEHLUNGEN DER CIE,DEUTSCHE VERSION, %C CA. 1969, SEITE 21 UND TABELLE 1.1.1 %C %SDP4 80 array def %380 bis 775 mit deltalambda=05 % DO 50 I=1,54 % 50 S(I)=100. % 1*(560./FLOAT(LAMDA(I)))**5 % 2*(EXP(C2/(560.*10.**(-7)*T))-1.) % 3/(EXP(C2/(FLOAT(LAMDA(I))*10.**(-7)*T))-1.) %new CIE 15.3:2004, Eq. (3.1) page 2 %S(I) = [100{560/lambda}**5] [exp{(c2*10**7)/(TNC*560 )} - 1] % /[exp{(c2*10**7)/(TNC*lambda)} - 1] % exp = e {...} = 2.71 {...} %/TNC 2848 def %NLA /TNC 4000 def /EE 2.718281 def %e=mac pocket calculator /C2 1.4350000 10 7 exp mul def /lamd 80 array def 0 1 79 {%i=0,79 /i exch def /lambda 380 i 5 mul add def lamd i lambda put /E1 560 lambda div 5 exp def /E4 C2 TNC 560 mul div def /E5 C2 TNC lambda mul div def /E6 EE E4 exp def /E7 EE E5 exp def SP40 i E1 100 mul E6 1 sub E7 1 sub div mul put } for %i=0,79 /xex 10 2 exp def /yex EE 2 exp def /SE00 %80 data 5 nm [100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0] def %0.0 not used /SC00 %80 data 5 nm [ 33.00 39.92 47.40 55.17 63.30 71.81 80.60 89.53 98.10 105.80 112.40 117.75 121.50 123.45 124.00 123.60 123.10 123.30 123.80 124.09 123.90 122.92 120.70 116.90 112.10 106.98 102.30 98.81 96.90 96.78 98.00 99.94 102.10 103.95 105.20 105.67 105.30 104.11 102.30 100.15 97.80 95.43 93.20 91.22 89.70 88.83 88.40 88.19 88.10 88.06 88.00 87.86 87.80 87.99 88.20 88.20 87.90 87.22 86.30 85.30 84.00 82.21 80.20 78.24 76.30 74.36 72.40 70.40 68.30 66.30 64.40 62.80 61.50 60.20 59.20 58.50 58.10 58.00 58.20 58.50 ] def %0.0 not used 0 1 79 {/i exch def %i=0,79 /lamda 380 i 5 mul add def SP00 i SE00 i get lamda 560 div mul put SQ00 i SE00 i get 1120 lamda sub 560 div mul put } for %i=0,79 %C LITERATURQUELLEN SPEKTRALWERTE %C F2 CIE-DOKUMENT NR.15 FARBMESSUNG, 1971 %C TABELLE 2.1, SEITE 93-102 /F2 %3x80 data [.001368 .002236 .004243 .007650 .01431 .02319 .04351 .07763 .1344 .2148 .2839 .3285 .3483 .3481 .3362 .3187 .2908 .2511 .1954 .1421 .09564 .05795 .03201 .01470 .0049 .0024 .0093 .0291 .06327 .1096 .1655 .2257 .2904 .3597 .4334 .5121 .5945 .6784 .7621 .8425 .9163 .9786 1.0263 1.0567 1.0622 1.0456 1.0026 .9384 .8544 .7514 .6424 .5419 .4479 .3608 .2835 .2187 .1649 .1212 .0874 .0636 .04677 .03290 .02270 .01584 .01136 .00811 .00579 .004109 .002899 .002049 .001440 .0009999 .0006901 .000476 .0003323 .0002348 .0001662 .0001174 .00008308 .00005871 .000039 .000064 .00012 .000217 .000396 .00064 .00121 .00218 .004 .0073 .0116 .01684 .023 .0298 .0380 .048 .06 .0739 .09098 .1126 .139 .1693 .208 .2586 .323 .4073 .503 .6082 .71 .7932 .862 .9149 .954 .9803 .995 1.0 .995 .9786 .952 .9154 .870 .8163 .757 .6949 .631 .5668 .503 .4412 .381 .321 .265 .217 .175 .1382 .107 .0816 .061 .04458 .032 .0232 .017 .01192 .00821 .005723 .004102 .002929 .002091 .001484 .001047 .00074 .00052 .0003611 .0002492 .0001719 .00012 .0000848 .00006 .0000424 .00003 .0000212 .00645 .01055 .02005 .03621 .06785 .1102 .2074 .3713 .6456 1.0391 1.3856 1.623 1.7471 1.7826 1.7721 1.7441 1.6692 1.5281 1.2876 1.0419 .8130 .6162 .4652 .3533 .2720 .2123 .1582 .1117 .07825 .05725 .04216 .02984 .0203 .0134 .00875 .00575 .0039 .00275 .0021 .0018 .00165 .0014 .0011 .0010 .0008 .0006 .00034 .00024 .00019 .0001 .00005 .00003 .00002 .00001 % 26*0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %10 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %20 0.0 0.0 0.0 0.0 0.0 0.0 %26 ] def /F10 %3x80 data [.00016 .0006624 .002362 .007242 .01911 .0434 .08474 .1406 .2045 .2647 .3147 .3577 .3837 .3867 .3707 .343 .3023 .2541 .1956 .1323 .08051 .04107 .01617 .005132 .003816 .01544 .03746 .07136 .1177 .173 .2365 .3042 .3768 .4516 .5298 .6161 .7052 .7938 .8787 .9512 1.0142 1.0743 1.1185 1.1343 1.124 1.0891 1.0305 .9507 .8563 .7549 .6475 .5351 .4316 .3437 .2683 .2043 .1526 .1122 .08126 .05793 .04085 .02862 .019941 .01384 .0100 .006605 .004552 .003145 .002175 .001506 .001045 .0007274 .0005083 .0003564 .000251 .0001777 .0001264 .00009015 .00006453 .00004634 .00001736 .00007156 .0002534 .0007685 .002004 .004509 .008756 .01446 .02139 .0295 .03868 .0496 .06208 .0747 .08946 .1063 .1282 .1528 .1852 .2199 .2536 .2977 .3391 .3954 .4608 .5314 .6067 .6857 .7618 .8233 .8752 .9238 .962 .9822 .9918 .9991 .9973 .9824 .9555 .9152 .8689 .8256 .7774 .7203 .6583 .5939 .528 .4618 .3981 .3395 .2835 .2282 .1798 .1402 .1076 .08119 .06028 .0441 .0318 .0226 .0159 .01113 .007749 .0053751 .0037177 .002565 .001768 .001222 .0008462 .0005864 .0004074 .000284 .0001987 .0001395 .00009843 .00006982 .00004974 .00003554 .00002549 .00001834 .0007048 .002928 .01048 .03234 .08601 .1971 .3894 .6568 .9725 1.2825 1.5535 1.7985 1.9673 2.0273 1.9948 1.9007 1.7454 1.5549 1.3176 1.0302 .7721 .5701 .4152 .3024 .2185 .1592 .112 .08225 .06071 .04305 .03045 .02058 .01368 .007918 .003988 .001091 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %10 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %20 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %30 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %40 0.0 0.0 0.0 0.0 %44 ] def %calculation of transformation data /FARBE 27 array def /FARBE [(R) (m) ( 561_770) %00 (Y) (m) ( 495_770) %01 (G) (m) ( 475_573) %02 (C) (m) ( 380_561) %03 (B) (m) ( 380_495) %04 (M) (m) ( 573_475) %05 (N) (0) ( 380_770) %06 (W) (0) ( 380_770) %07 (W) (1) ( 380_770) %08 ] def %/FARBE [(R) (m) ( 565_770) %00 % (Y) (m) ( 495_770) %01 % (G) (m) ( 475_575) %02 % (C) (m) ( 380_565) %03 % (B) (m) ( 380_495) %04 % (M) (m) ( 575_475) %05 % (N) (0) ( 380_770) %06 % (W) (0) ( 380_770) %07 % (W) (1) ( 380_770) %08 % ] def %calculation of transformation data /FARBE 27 array def /FARBE [(R) (d,sRGB) (x=0,64) %00 () () (y=0,33) %01 (G) (d,sRGB) (x=0,30) %02 () () (y=0,60) %03 (B) (d,SRGB) (x=0,18) %04 () () (y=0,06) %05 (N) (0) () %06 (W) (0) () %07 (W) (1) ( 380_770) %08 ] def /xcolorl xcolor def %0 1 1 {/xcolorl exch def %xcolorl=0,1 xcolorl 1 eq {0 1 239 {/i exch def %i=0,239 F2 i F10 i get put } for %i=0,239 } if /YKSUM 0 def %For CIE Illuminant E 0 1 79 {/i exch def %i=0,1,79 /YKSUM YKSUM F2 80 i add get add def } for %i=0,1,79 /F2N 240 array def 0 1 79 {/i exch def %i=0,1,79 F2N 00 i add F2 00 i add get YKSUM div 100 mul put F2N 80 i add F2 80 i add get YKSUM div 100 mul put F2N 160 i add F2 160 i add get YKSUM div 100 mul put } for %i=0,1,79 /FXN 80 array def %FXN 0 = F2N imax /FYN 80 array def /FZN 80 array def %defines FXN, FYN, FZN 0 to 79 0 1 79 {/i exch def %i=0,79 FXN i F2N 000 i add get put FYN i F2N 080 i add get put FZN i F2N 160 i add get put } for %i=0,79 %special wavelength range with complementary colours for E? /FXD 63 array def /FYD 63 array def /FZD 63 array def /DOW 63 array def 00 1 60 {/i exch def %i=0,60 %range 400..700nm FXD i FXN 005 i add get put FYD i FYN 005 i add get put FZD i FZN 005 i add get put DOW i 400 i 5 mul add put %range 400 to 700 } for %i=0,60 %for interpolation FXD 61 FXD 60 get put FYD 61 FYD 60 get put FZD 61 FZD 60 get put FXD 62 FXD 60 get put FYD 62 FYD 60 get put FZD 62 FZD 60 get put /FAD 63 array def /FBD 63 array def /FCD 63 array def /xdel 1045 def /ydel 395 def /x0 500 def /TELi 8 array def /TELi [(D65) (D50) (P40) (A00) (E00) (C00) (P00) (Q00)] def %8 illuminants /Xi 79 array def %79 spectral or max 6 device colour + 4 elementary colours /Yi 79 array def %+3 achromatic colours /Zi 79 array def /XANi 79 array def /YANi 79 array def /ZANi 79 array def 0 1 0 {/xchart4 exch def %xchart4=0,7 /xchartl xchart def %0 1 7 {/xchartl exch def %xchartl=0,7 %/K 0 def %for normalization 1 /K 1 def %for normalization 0,886 gsave 5 /Times-ISOL1 FS /cvishow {cvi 6 string cvs show} def 75 85 moveto lanind cvishow (-) show colorm cvishow deintp cvishow xcolorl cvishow xchart cvishow pchart cvishow colsep cvishow (-L) show pmetam cvishow 5 /Times-ISOL1 FS 180 85 moveto (SE811-1N/TE011-) show xchart4 1 add cvishow xchart 0 ge {(N) show} if (_) show xchart 1 add cvishow %xchart 0 eq {(N) show} % {deintp colorm 2 mul add cvishow} ifelse 72 90 translate 0.010 MM dup scale 25 setlinewidth 0 0 0 0 setcmyk_olvcolor 0 0 moveto 5400 0 rlineto 0 4000 rlineto 5400 neg 0 rlineto closepath fill 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath clip 0 0 0 1 setcmyk_olvcolor 0 0 moveto 5400 0 rlineto 0 4000 rlineto 5400 neg 0 rlineto closepath stroke %calculation of XW,YW,ZW for illuminant D65, D50, ... 0 1 79 {/i exch def %i=0,79 SDAK i xchartl 0 eq {SD65 i get} if xchartl 1 eq {SD50 i get} if xchartl 2 eq {SP40 i get} if xchartl 3 eq {SA00 i get} if xchartl 4 eq {SE00 i get} if xchartl 5 eq {SC00 i get} if xchartl 6 eq {SP00 i get} if xchartl 7 eq {SQ00 i get} if put } for %i=0,79 /YKSUM 0 def 0 1 79 {/i exch def %i=0,1,79 /YKSUM YKSUM SDAK i get F2 80 i add get mul add def } for %i=0,1,79 0 1 79 {/i exch def %i=0,1,79 F2N 00 i add SDAK i get F2 00 i add get mul YKSUM div 100 mul put F2N 80 i add SDAK i get F2 80 i add get mul YKSUM div 100 mul put F2N 160 i add SDAK i get F2 160 i add get mul YKSUM div 100 mul put } for %i=0,1,79 %XW,YW,ZW for white /XW 0 def /YW 0 def /ZW 0 def 0 1 079 {/i exch def %i=0,79 /XW XW F2N 00 i add get add def /YW YW F2N 80 i add get add def /ZW ZW F2N 160 i add get add def } for %i=0,79 /SUMW XW YW add ZW add def %for D65, D50, P40, A00, E00 /XANW XW SUMW div def /YANW YW SUMW div def /ZANW ZW SUMW div def /AANW XW YW 0.0001 add div def /BANW ZW YW 0.0001 add div 0.4 mul neg def K 0 eq {%K=0 /XK XW def /YK YW def /ZK ZW def }%K=0 {%K=1 /XK XW 0.8859 mul def /YK YW 0.8859 mul def /ZK ZW 0.8859 mul def } ifelse %K=1 /SUMK XK YK add ZK add def %for D65, D50, P40, A00, E00 /XANK XK SUMK div def /YANK YK SUMK div def /ZANK ZK SUMK div def /XANR 0.64 def /YANR 0.33 def /XANG 0.30 def /YANG 0.60 def /XANB 0.15 def /YANB 0.06 def /ZANR 1. XANR sub YANR sub def /ZANG 1. XANG sub YANG sub def /ZANB 1. XANB sub YANB sub def %/ZANW 1. XANW sub YANW sub def %see above %calculation of spectral curves /YR 100 def /YG 100 def /YB 100 def /YW 100 def /SUM YR YANR div def /XR XANR SUM mul def /ZR ZANR SUM mul def /SUM YG YANG div def /XG XANG SUM mul def /ZG ZANG SUM mul def /SUM YB YANB div def /XB XANB SUM mul def /ZB ZANB SUM mul def %/SUM YW YANW div def %see above %/XW XANW SUM mul def %/ZW ZANW SUM mul def /XN XW def /YN YW def /ZN ZW def /D XR YG mul ZB mul XG YB mul ZR mul add XB YR mul ZG mul add ZR YG mul XB mul sub ZG YB mul XR mul sub ZB YR mul XG mul sub def /D1 XW YG mul ZB mul XG YB mul ZW mul add XB YW mul ZG mul add ZW YG mul XB mul sub ZG YB mul XW mul sub ZB YW mul XG mul sub def /D2 XR YW mul ZB mul XW YB mul ZR mul add XB YR mul ZW mul add ZR YW mul XB mul sub ZW YB mul XR mul sub ZB YR mul XW mul sub def /D3 XR YG mul ZW mul XG YW mul ZR mul add XW YR mul ZG mul add ZR YG mul XW mul sub ZG YW mul XR mul sub ZW YR mul XG mul sub def /AR D1 D div def /AG D2 D div def /AB D3 D div def /XRN AR XR mul def /XGN AG XG mul def /XBN AB XB mul def /YRN AR YR mul def /YGN AG YG mul def /YBN AB YB mul def /ZRN AR ZR mul def /ZGN AG ZG mul def /ZBN AB ZB mul def /XWN XRN XGN add XBN add def /YWN YRN YGN add YBN add def /ZWN ZRN ZGN add ZBN add def /SUM XWN YWN add ZWN add def /XANWN XWN SUM 0.0001 add div def /YANWN YWN SUM 0.0001 add div def /ZANWN ZWN SUM 0.0001 add div def 0 1 12 {/i exch def %i=0,12 i 0 eq {Xi i XRN put %Rd Yi i YRN put Zi i ZRN put} if i 1 eq {Xi i XRN XGN add put %Yd Yi i YRN YGN add put Zi i ZRN ZGN add put} if i 2 eq {Xi i XGN put %Gd Yi i YGN put Zi i ZGN put} if i 3 eq {Xi i XGN XBN add put %Cd Yi i YGN YBN add put Zi i ZGN ZBN add put} if i 4 eq {Xi i XBN put %Bd Yi i YBN put Zi i ZBN put} if i 5 eq {Xi i XBN XRN add put %Md Yi i YBN YRN add put Zi i ZBN ZRN add put} if i 6 eq {Xi i XRN put %Re Yi i YRN put Zi i ZRN put} if i 7 eq {Xi i XRN XGN add put %Ye Yi i YRN YGN add put Zi i ZRN ZGN add put} if i 8 eq {Xi i XGN put %Ge Yi i YGN put Zi i ZGN put} if i 9 eq {Xi i XBN put %Be Yi i YBN put Zi i ZBN put} if i 10 eq {Xi i XW 0.01 mul put %N Yi i YW 0.01 mul put Zi i ZW 0.01 mul put} if i 11 eq {Xi i XW put %W Yi i YW put Zi i ZW put} if i 12 eq {Xi i XW put %W Yi i YW put Zi i ZW put} if } for %i=0,12 %************************************************************************ /prog_rgb_dyF_LAB*'dyF {%BEG prog_rgb_dyF_LAB*'dyF /R01000 r_dyF 1000 mul def /G01000 g_dyF 1000 mul def /B01000 b_dyF 1000 mul def R01000 0.04045 le %equations of IEC 61966-2-1:2003 {/RsRGB R01000 12.92 div def} {/RsRGB R01000 0.001 mul 0.055 add 1.055 div 2.4 exp def} ifelse G01000 0.04045 le {/GsRGB G01000 12.92 div def} {/GsRGB G01000 0.001 mul 0.055 add 1.055 div 2.4 exp def} ifelse B01000 0.04045 le {/BsRGB B01000 12.92 div def} {/BsRGB B01000 0.001 mul 0.055 add 1.055 div 2.4 exp def} ifelse /X*'dyF 0.4124 RsRGB mul 0.3576 GsRGB mul add 0.1805 BsRGB mul add 88.59 mul def /Y*'dyF 0.2126 RsRGB mul 0.7152 GsRGB mul add 0.0722 BsRGB mul add 88.59 mul def /Z*'dyF 0.0193 RsRGB mul 0.1192 GsRGB mul add 0.9505 BsRGB mul add 88.59 mul def % achromatic (D65) colours /XLWD65100 95.04 def /YLWD65100 100.00 def /ZLWD65100 108.88 def /XQ X*'dyF XLWD65100 div def /YQ Y*'dyF YLWD65100 div def /ZQ Z*'dyF ZLWD65100 div def XQ 0 lt {/XQ 0.00000001 def} if YQ 0 lt {/YQ 0.00000001 def} if ZQ 0 lt {/ZQ 0.00000001 def} if /L*'dyF YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse def /a*'dyF XQ 0.008856 lt {7.787 XQ mul 16 116 div add} {XQ 0.33333333 exp} ifelse YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse sub 500 mul def /b*'dyF YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add} {ZQ 0.33333333 exp} ifelse sub 200 mul def /C*'dyF a*'dyF dup mul b*'dyF dup mul add 0.0001 add sqrt def /h*'dyF b*'dyF a*'dyF 0.0001 add atan def } bind def %END prog_rgb_dyF_LAB*'dyF %****************************************************************** %Data of elementary colours according to PE52L0NP.PS/PDF, Pange 7/22 % re ge be L* a* b* C* hab %Re 1.000 0.000 0.263 50.9 78.3 37.3 86.7 25.4 %Ye 1.000 0.856 0.000 83.7 -3.4 84.5 84.5 92.3 %Ge 0.000 1.000 0.706 85.1 -64.6 20.7 67.9 162.2 %Be 0.000 0.609 1.000 59.2 1.7 -56.6 56.6 271.7 %W 1.000 1.000 1.000 95.4 0.0 0.0 0.0 0.0 /RGBe [1.000 0.000 0.263 %Re 1.000 0.856 0.000 %Ye 0.000 1.000 0.706 %Ge 0.000 0.609 1.000 %Be 1.000 1.000 1.000 %W ] def %change of XYZi (i=6,9) 0 1 3 {/i exch def %i=0,3 /r_dyF RGBe i 3 mul 0 add get def /g_dyF RGBe i 3 mul 1 add get def /b_dyF RGBe i 3 mul 2 add get def prog_rgb_dyF_LAB*'dyF Xi 6 i add X*'dyF put Yi 6 i add Y*'dyF put Zi 6 i add Z*'dyF put } for K 1 eq {%K=1 0 1 7 {/L exch def %L=0,7 only 0 to 7! Xi L Xi L get 0.8859 mul put Yi L Yi L get 0.8859 mul put Zi L Zi L get 0.8859 mul put } for %L=0,7 } if %K=1 0 1 7 {/i exch def %i=0,7 /SUM Xi i get Yi i get add Zi i get add def XANi i Xi i get SUM 0.0001 add div put YANi i Yi i get SUM 0.0001 add div put } for %i=0,7 /xtexti 96 array def /ytexti 96 array def /xtexti [ %T00 T10 T20 T30 T40 T41 T50 T51 T60 T61 T70 T71 %0 1 2 3 4 5 6 7 8 9 10 11 1800 1800 1800 2800 2800 4400 2800 4400 2800 4400 2800 4000 %0 0600 0600 0600 0600 0600 2200 0600 2200 0600 2200 0600 1800 %1 0700 0700 0700 0700 0700 2300 0700 2300 0700 2300 0700 1900 %2 0700 0700 0700 0700 0700 2300 0700 2300 0700 2300 0700 1900 %3 0100 0100 0100 0100 0100 1700 0100 1700 0100 1700 0100 1300 %4 0100 0100 0100 0100 0100 1700 0100 1700 0100 1700 0100 1300 %5 0100 0100 0100 0100 0100 1700 0100 1700 0100 1700 0100 1300 %6 0100 0100 0100 0100 0100 1700 0100 1700 0100 1700 0100 1300 %7 ] def /ytexti [ 3800 3580 3360 3140 2920 2920 2700 2700 2480 2480 2260 2260 %0 0500 0280 0060 1380 1160 1160 0940 0940 0720 0720 0000 0000 %1 0500 0280 0060 1380 1160 1160 0940 0940 0720 0720 0000 0000 %2 0500 0280 0060 1380 1160 1160 0940 0940 0720 0720 0000 0000 %3 0500 0280 0060 1380 1160 1160 0940 0940 0720 0720 0000 0000 %4 0500 0280 0060 1380 1160 1160 0940 0940 0720 0720 0000 0000 %5 0500 0280 0060 1380 1160 1160 0940 0940 0720 0720 0000 0000 %6 0500 0280 0060 1380 1160 1160 0940 0940 0720 0720 0000 0000 %7 ] def 0 0 0 1 setcmyk_olvcolor /xchart12 xchart4 12 mul def TBS xchart4 1 ge { %xchart4 >=1 xtexti xchart12 3 add get ytexti xchart12 3 add get 220 add moveto xchart4 1 eq {(LABCab 77) show} if xchart4 2 eq {(CIELAB 76) show} if xchart4 3 eq {(LABJNDS 87) show} if xchart4 4 eq {(LABCab 85) show} if xchart4 5 eq {(CIELAB 76) show} if xchart4 6 eq {(CIELAB D65) show} if xchart4 7 eq {(LABHNU1 79) show} if } if %xchart4 >=1 xtexti xchart12 3 add get ytexti xchart12 3 add get moveto TBS (Name und Farbart) showde %0TE011-7 00581 (Name and chromaticity) showen %1TE011-7 00581 (Nombre y cromaticidad) showes %2TE011-7 00581 (Nom et chromaticit\351) showfr %3TE011-7 00581 (Nome e chromaticit\341) showit %4TE011-7 00581 (Name and chromaticity) showjp %5TE011-7 00581 xtexti xchart12 4 add get ytexti xchart12 4 add get moveto TBIS FARBE 0 get show TBL 0 -40 rmoveto FARBE 1 get show 150 40 rmoveto TBIS FARBE 2 get show xtexti xchart12 5 add get ytexti xchart12 5 add get moveto TBIS FARBE 3 get show TBL 0 -40 rmoveto FARBE 4 get show 0 40 rmoveto TBIS FARBE 5 get show xtexti xchart12 6 add get ytexti xchart12 6 add get moveto TBIS FARBE 6 get show TBL 0 -40 rmoveto FARBE 7 get show 150 40 rmoveto TBIS FARBE 8 get show xtexti xchart12 7 add get ytexti xchart12 7 add get moveto TBIS FARBE 9 get show TBL 0 -40 rmoveto FARBE 10 get show 0 40 rmoveto TBIS FARBE 11 get show xtexti xchart12 8 add get ytexti xchart12 8 add get moveto TBIS FARBE 12 get show TBL 0 -40 rmoveto FARBE 13 get show 150 40 rmoveto TBIS FARBE 14 get show xtexti xchart12 9 add get ytexti xchart12 9 add get moveto TBIS FARBE 15 get show TBL 0 -40 rmoveto FARBE 16 get show 0 40 rmoveto TBIS FARBE 17 get show %xtexti xchart12 10 add get ytexti xchart12 10 add get moveto %TBIS FARBE 18 get show %TBL 0 -40 rmoveto FARBE 19 get show 0 40 rmoveto %TBIS FARBE 20 get show %xtexti xchart12 11 add get ytexti xchart12 11 add get moveto %TBIS FARBE 21 get show %TBL 0 -40 rmoveto FARBE 22 get show 0 40 rmoveto %TBIS FARBE 23 get show TBS 0 0 0 1 setcmyk_olvcolor xtexti xchart12 0 add get ytexti xchart12 0 add get moveto (Ger\344te\255 & Elementarfarben) showde %0TE011-7 02581 (Device and elementary colours) showen %1TE011-7 02581 (Colores de dispositivo y elementales) showes %2TE011-7 02581 (couleurs d'appareil et \351l\351mentaires) showfr %3TE011-7 02581 (colori dispositivo e colori elementari) showit %4TE011-7 02581 (Device and elementary colours) showjp %5TE011-7 02581 TBIS (, Y) show TBL 0 -60 rmoveto (W) show 0 60 rmoveto TBS K 0 eq {(=100) show}{(=88,6) show} ifelse xtexti xchart12 1 add get ytexti xchart12 1 add get moveto (des) showde %0TE011-7 03581 (of the) showen %1TE011-7 03581 (de color) showes %2TE011-7 03581 (du) showfr %3TE011-7 03581 (del) showit %4TE011-7 03581 (of the) showjp %5TE011-7 03581 TBIS ( sRGB) show TBS (\255Farbenraums f\374r ) showde %0TE011-7 04581 ( colour space for ) showen %1TE011-7 04581 ( bajo ) showes %2TE011-7 04581 (l'espace de couleur pour ) showfr %3TE011-7 04581 ( spazio di colore per ) showit %4TE011-7 04581 ( colour space for ) showjp %5TE011-7 04581 TBS TELi xchartl get show xtexti xchart12 2 add get ytexti xchart12 2 add get moveto xchart4 0 eq {%xchart4=0 (in der Normfarbtafel) showde %0TE011-7 04581 (in the chromaticity diagram) showen %1TE011-7 04581 (en el diagrama de chromaticidad) showes %2TE011-7 04581 (dans le diagramme de chromaticit\351) showfr %3TE011-7 04581 (nel diagramma di cromaticit\340) showit %4TE011-7 04581 (in the chromaticity diagram) showjp %5TE011-7 04581 TBIS ( (x, y)) show } if %xchart4=0 xchart4 1 eq {%xchart4=1 (in der Farbtafel) showde %0TE011-7 05581 (in the chromaticity diagram) showen %1TE011-7 05581 (en el diagrama de chromaticidad) showes %2TE011-7 05581 (dans le diagramme de chromaticit\351) showfr %3TE011-7 05581 (nel diagramma di cromaticit\340) showit %4TE011-7 05581 (in the chromaticity diagram) showjp %5TE011-7 05581 TBIS ( (a, b)) show } if %xchart4=1 xchart4 2 eq {%xchart4=2 (in der Farbarbtafel) showde %0TE011-7 06581 (in the chromaticity diagram) showen %1TE011-7 06581 (en el diagrama de chromaticidad) showes %2TE011-7 06581 (dans le diagramme de chromaticit\351) showfr %3TE011-7 06581 (nel diagramma di cromaticit\340) showit %4TE011-7 06581 (in the chromaticity diagram) showjp %5TE011-7 06581 TBIS ( (a', b')) show } if %xchart4=2 xchart4 3 eq {%xchart4=3 (in der Farbarbtafel) showde %0TE011-7 07581 (in the chromaticity diagram) showen %1TE011-7 07581 (en el diagrama de chromaticidad) showes %2TE011-7 07581 (dans le diagramme de chromaticit\351) showfr %3TE011-7 07581 (nel diagramma di cromaticit\340) showit %4TE011-7 07581 (in the chromaticity diagram) showjp %5TE011-7 07581 TBIS ( (a", b")) show } if %xchart4=3 xchart4 4 eq {%xchart4=4 (in Buntwertdiagramm) showde %0TE011-7 08581 (in chromatic value diagram) showen %1TE011-7 08581 (en el diagrama valor crom\341tico) showes %2TE011-7 08581 (dans la valeur chromatique le diagramme) showfr %3TE011-7 08581 (nel diagramma di valore cromatico) showit %4TE011-7 08581 (in chromatic value diagram) showjp %5TE011-7 08581 TBIS ( (A, B)) show } if %xchart4=4 xchart4 5 eq {%xchart4=5 (in Buntheitsdiagram) showde %0TE011-7 09581 (in CIELAB diagram) showen %1TE011-7 09581 (en el diagrama CIELAB) showes %2TE011-7 09581 (dans le diagramme de CIELAB) showfr %3TE011-7 09581 (nel diagramma di CIELAB) showit %4TE011-7 09581 (in CIELAB diagram) showjp %5TE011-7 09581 TBIS ( (a*, b*)) show } if %xchart4=5 xchart4 6 eq {%xchart4=6 (in Buntheitsdiagram) showde %0TE011-7 10581 (in chroma diagram) showen %1TE011-7 10581 (en el diagrama croma) showes %2TE011-7 10581 (dans le diagramme de chroma) showfr %3TE011-7 10581 (nel diagramma di chroma) showit %4TE011-7 10581 (in chroma diagram) showjp %5TE011-7 10581 TBIS ( \050a*) show 0 -50 rmoveto TBL (D65) show 0 50 rmoveto TBS (, ) show TBIS (b*) show 0 -50 rmoveto TBL (D65) show 0 50 rmoveto TBS (\051) show } if %xchart4=6 xchart4 7 eq {%xchart4=7 (in Buntheitsdiagram) showde %0TE011-7 11581 (in chroma diagram) showen %1TE011-7 11581 (en el diagrama croma) showes %2TE011-7 11581 (dans le diagramme de chroma) showfr %3TE011-7 11581 (nel diagramma di chroma) showit %4TE011-7 11581 (in chroma diagram) showjp %5TE011-7 11581 TBIS ( (A*, B*)) show } if %xchart4=7 xchart4 0 eq {%xchart4=0 600 400 translate 0 0 moveto 4000 0 rlineto stroke 0 0 moveto 0 3200 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten TBS 0 -50 moveto 0 100 rlineto stroke 800 -50 moveto 0 100 rlineto stroke 1600 -50 moveto 0 100 rlineto stroke 2400 -50 moveto 0 100 rlineto stroke 3200 -50 moveto 0 100 rlineto stroke 4000 -50 moveto 0 100 rlineto stroke -100 -300 moveto (0,0) show 700 -300 moveto (0,2) show 1500 -300 moveto (0,4) show 2300 -300 moveto (0,6) show 3100 -300 moveto (0,8) show 3900 -300 moveto (1,0) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 800 moveto 100 0 rlineto stroke -50 1600 moveto 100 0 rlineto stroke -50 2400 moveto 100 0 rlineto stroke -50 3200 moveto 100 0 rlineto stroke -450 -80 moveto (0,0) show -450 720 moveto (0,2) show -450 1520 moveto (0,4) show -450 2320 moveto (0,6) show -450 3120 moveto (0,8) show TIM -300 2800 moveto (y) show TIM 4200 150 moveto (x) show TBIS 2600 150 moveto (CIE 1931) show -600 -400 translate %1000 02 01 16 01 .00 .0020 ******************** %ANF PROZSPEP3.FOR: MULYA= 4000 BEO=02 xy-Farbtafel IXY0: 600 400 600 400 translate 693 19 moveto 693 19 692 19 690 19 curveto 688 19 685 20 681 23 curveto 675 27 667 34 657 43 curveto 644 55 626 70 603 90 curveto 575 118 542 159 496 231 curveto 438 347 365 530 274 802 curveto 181 1179 93 1650 32 2153 curveto 15 2619 55 3000 155 3248 curveto 297 3335 456 3304 618 3223 curveto 771 3126 918 3017 1063 2897 curveto 1206 2769 1349 2635 1492 2497 curveto 1634 2358 1776 2218 1915 2080 curveto 2049 1946 2179 1817 2300 1696 curveto 2411 1585 2508 1489 2592 1405 curveto 2663 1336 2720 1278 2765 1233 curveto 2802 1197 2831 1168 2856 1143 curveto 2876 1123 2892 1107 2903 1096 curveto 2913 1086 2919 1080 2924 1075 curveto 2927 1072 2930 1069 2933 1066 curveto 2936 1063 2937 1062 2938 1061 curveto 2938 1061 2939 1060 2744 971 curveto 2261 748 2040 643 1908 582 curveto 1819 541 1758 512 1708 490 curveto 1660 468 1612 445 1558 420 curveto 1495 391 1419 356 1320 309 curveto 1184 247 986 155 693 19 curveto stroke 0 0 0 1 setcmyk_olvcolor 693 19 30 0 360 arc fill % 400 681 23 30 0 360 arc fill % 425 626 70 30 0 360 arc fill % 450 438 347 30 0 360 arc fill % 475 32 2153 30 0 360 arc fill % 500 456 3304 30 0 360 arc fill % 525 1206 2769 30 0 360 arc fill % 550 1915 2080 30 0 360 arc fill % 575 2508 1489 30 0 360 arc fill % 600 2802 1197 30 0 360 arc fill % 625 2903 1096 30 0 360 arc fill % 650 2930 1069 30 0 360 arc fill % 675 2938 1061 30 0 360 arc fill % 700 2261 748 30 0 360 arc fill %500c 1708 490 30 0 360 arc fill %525c 1419 356 30 0 360 arc fill %550c 0 0 0 1 setcmyk_olvcolor 693 19 30 0 360 arc stroke % 400 681 23 30 0 360 arc stroke % 425 626 70 30 0 360 arc stroke % 450 438 347 30 0 360 arc stroke % 475 32 2153 30 0 360 arc stroke % 500 456 3304 30 0 360 arc stroke % 525 1206 2769 30 0 360 arc stroke % 550 1915 2080 30 0 360 arc stroke % 575 2508 1489 30 0 360 arc stroke % 600 2802 1197 30 0 360 arc stroke % 625 2903 1096 30 0 360 arc stroke % 650 2930 1069 30 0 360 arc stroke % 675 2938 1061 30 0 360 arc stroke % 700 2261 748 30 0 360 arc stroke %500c 1708 490 30 0 360 arc stroke %525c 1419 356 30 0 360 arc stroke %550c % 1250 1316 30 0 360 arc fill %D65 0 0 0 1 setcmyk_olvcolor TBIS 693 375 sub 19 250 sub moveto (400) show % 681 500 sub 23 100 sub moveto (425) show % 626 500 sub 70 100 sub moveto (450) show 438 350 sub 347 200 sub moveto (475) show 32 450 sub 2153 100 sub moveto (500) show 456 100 add 3304 000 add moveto (525) show 1206 100 add 2769 000 add moveto (550) show 1915 080 sub 2080 100 add moveto (575) show 2508 100 add 1489 000 add moveto (600) show 2802 100 add 1197 100 add moveto (625) show % 2903 200 sub 1096 100 add moveto (650) show % 2930 200 sub 1069 100 add moveto (675) show 2938 100 add 1061 100 sub moveto (700) show 2261 100 add 748 200 sub moveto (500c,E) show 1708 100 add 490 200 sub moveto (525c,E) show 1419 000 add 356 250 sub moveto (550c,E) show % 1250 100 add 1316 100 sub moveto (D65 ) show -600 -400 translate %ENDE: 1 } if %xchart4=0 xchart4 1 eq {%xchart4=1 500 3200 translate 0 400 moveto 4000 0 rlineto stroke 0 400 moveto 0 -3600 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten TBS 0 350 moveto 0 100 rlineto stroke 800 350 moveto 0 100 rlineto stroke 1600 350 moveto 0 100 rlineto stroke 2400 350 moveto 0 100 rlineto stroke 3200 350 moveto 0 100 rlineto stroke 4000 350 moveto 0 100 rlineto stroke -150 500 moveto (-0,8) show 650 500 moveto (0,0) show 1450 500 moveto (0,8) show 2250 500 moveto (1,6) show 3050 500 moveto (2,4) show 3850 500 moveto (3,2) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 -800 moveto 100 0 rlineto stroke -50 -1600 moveto 100 0 rlineto stroke -50 -2400 moveto 100 0 rlineto stroke -50 -3200 moveto 100 0 rlineto stroke -450 -100 moveto ( 0,0) show -450 -900 moveto (-0,8) show -450 -1700 moveto (-1,6) show %-450 -2500 moveto (-2,4) show -175 -3050 moveto 90 rotate TBIK (b) show TBK (=-0,40) show TBIK (z/y) show -90 rotate 3650 100 moveto TBIK (a=x/y) show -500 -3200 translate %1000 02 01 16 01-.03**************************************** %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 1300 3200 translate % 36136 -68535 moveto % 36136 -68535 36234 -68875 35958 -68561 curveto % 35610 -68128 33600 -64560 29424 -56936 curveto % 24474 -47779 19507 -38551 15143 -30384 curveto % 11681 -23927 8847 -18653 6639 -14534 curveto % 4846 -11128 3397 -8271 2147 -5661 curveto 1261 -3701 moveto 1261 -3701 688 -2339 342 -1455 curveto 153 -894 56 -546 15 -336 curveto 5 -208 18 -125 47 -73 curveto 89 -44 138 -28 191 -19 curveto 246 -13 304 -8 366 -5 curveto 435 -3 512 -2 597 -1 curveto 693 -1 800 0 920 0 curveto 1053 0 1198 0 1355 0 curveto 1520 0 1683 0 1844 0 curveto 1993 0 2126 0 2242 0 curveto 2340 0 2424 0 2497 0 curveto 2559 0 2610 0 2649 0 curveto 2680 0 2703 0 2718 0 curveto 2731 0 2741 0 2751 0 curveto 2760 0 2764 0 2767 0 curveto 2769 0 2770 0 2824 -116 curveto 3023 -529 3168 -817 3275 -1036 curveto 3357 -1209 3430 -1349 3482 -1469 curveto 3545 -1597 3622 -1746 3704 -1922 curveto 3817 -2156 3983 -2496 4262 -3058 curveto % 4786 -4149 6341 -7346 35775 -67850 curveto stroke 0 0 0 1 setcmyk_olvcolor % 36136 -68535 30 0 360 arc fill % 400 % 29424 -56936 30 0 360 arc fill % 425 % 8847 -18653 30 0 360 arc fill % 450 1261 -3701 30 0 360 arc fill % 475 15 -336 30 0 360 arc fill % 500 138 -28 30 0 360 arc fill % 525 435 -3 30 0 360 arc fill % 550 920 0 30 0 360 arc fill % 575 1683 0 30 0 360 arc fill % 600 2340 0 30 0 360 arc fill % 625 2649 0 30 0 360 arc fill % 650 2741 0 30 0 360 arc fill % 675 2769 0 30 0 360 arc fill % 700 3023 -529 30 0 360 arc fill %500c 3482 -1469 30 0 360 arc fill %525c 3983 -2496 30 0 360 arc fill %550c 0 0 0 1 setcmyk_olvcolor % 36136 -68535 30 0 360 arc stroke % 400 % 29424 -56936 30 0 360 arc stroke % 425 % 8847 -18653 30 0 360 arc stroke % 450 1261 -3701 30 0 360 arc stroke % 475 15 -336 30 0 360 arc stroke % 500 138 -28 30 0 360 arc stroke % 525 435 -3 30 0 360 arc stroke % 550 920 0 30 0 360 arc stroke % 575 1683 0 30 0 360 arc stroke % 600 2340 0 30 0 360 arc stroke % 625 2649 0 30 0 360 arc stroke % 650 2741 0 30 0 360 arc stroke % 675 2769 0 30 0 360 arc stroke % 700 3023 -529 30 0 360 arc stroke %500c 3482 -1469 30 0 360 arc stroke %525c 3983 -2496 30 0 360 arc stroke %550c % 950 -435 30 0 360 arc fill %D65 0 0 0 1 setcmyk_olvcolor TBIS % 36136 500 sub -68535 100 sub moveto (400) show % 29424 500 sub -56936 100 sub moveto (425) show % 8847 500 sub -18653 100 sub moveto (450) show % 1261 500 sub -3701 100 sub moveto (475) show 15 400 sub -336 100 sub moveto (500) show % 138 200 sub -28 100 add moveto (525) show 435 200 sub -3 100 add moveto (550) show % 920 200 sub 0 100 add moveto (575) show 1683 200 sub 0 100 add moveto (600) show 2340 200 sub 0 100 add moveto (625) show % 2649 200 sub 0 100 add moveto (650) show % 2741 200 sub 0 100 add moveto (675) show 2769 100 add 0 150 sub moveto (700) show 3023 100 add -529 100 sub moveto (500c,E) show 3482 800 sub -1469 050 sub moveto (525c,E) show % 3983 500 sub -2496 100 sub moveto (550c,E) show % 950 100 add -435 100 sub moveto (D65 ) show -1300 -3200 translate %ENDE: 2 } if %xchart4=1 xchart4 2 eq {%xchart4=2 600 3200 translate 0 400 moveto 4400 0 rlineto stroke 0 400 moveto 0 -3600 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten TBS 000 350 moveto 0 100 rlineto stroke 0800 350 moveto 0 100 rlineto stroke 1600 350 moveto 0 100 rlineto stroke 2400 350 moveto 0 100 rlineto stroke 3200 350 moveto 0 100 rlineto stroke 4000 350 moveto 0 100 rlineto stroke -200 500 moveto (0,00) show 600 500 moveto (0,06) show 1400 500 moveto (0,12) show 2200 500 moveto (0,18) show 3000 500 moveto (0,24) show 3800 500 moveto (0,30) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 -800 moveto 100 0 rlineto stroke -50 -1600 moveto 100 0 rlineto stroke -50 -2400 moveto 100 0 rlineto stroke -50 -3200 moveto 100 0 rlineto stroke -575 -100 moveto ( 0,00) show -575 -900 moveto (-0,06) show -575 -1700 moveto (-0,12) show -575 -2500 moveto (-0,18) show TIM -380 -1300 moveto (b') show 4300 250 moveto (a') show -600 -3200 translate %1000 02 01 16 01 .00 .0020 ******************** %ANF PROZSPEP3.FOR: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 400 3200 translate 9657 -6202 moveto 9657 -6202 9666 -6212 9642 -6203 curveto 9610 -6190 9426 -6080 9018 -5830 curveto 8481 -5499 7863 -5120 7227 -4729 curveto 6628 -4367 6041 -4019 5490 -3698 curveto 4943 -3383 4391 -3065 3769 -2701 curveto 3156 -2344 2578 -2012 2043 -1717 curveto 1565 -1460 1123 -1239 723 -1054 curveto 527 -898 772 -759 1060 -634 curveto 1304 -535 1510 -464 1685 -408 curveto 1832 -356 1965 -309 2091 -267 curveto 2214 -230 2337 -200 2460 -176 curveto 2585 -157 2712 -145 2841 -139 curveto 2972 -138 3103 -133 3233 -126 curveto 3359 -126 3475 -120 3582 -113 curveto 3676 -98 3756 -91 3823 -88 curveto 3878 -75 3924 -64 3963 -57 curveto 3995 -54 4022 -46 4042 0 curveto 4057 0 4069 0 4077 0 curveto 4083 0 4088 0 4093 0 curveto 4097 0 4100 0 4101 0 curveto 4102 0 4103 0 4129 -740 curveto 4224 -1226 4290 -1417 4338 -1533 curveto 4374 -1614 4405 -1674 4427 -1723 curveto 4454 -1771 4486 -1825 4520 -1884 curveto 4565 -1958 4630 -2056 4736 -2200 curveto 4923 -2435 5407 -2946 9625 -6181 curveto stroke 0 0 0 1 setcmyk_olvcolor 9657 -6202 30 0 360 arc fill % 400 9018 -5830 30 0 360 arc fill % 425 6041 -4019 30 0 360 arc fill % 450 3156 -2344 30 0 360 arc fill % 475 723 -1054 30 0 360 arc fill % 500 1510 -464 30 0 360 arc fill % 525 2214 -230 30 0 360 arc fill % 550 2841 -139 30 0 360 arc fill % 575 3475 -120 30 0 360 arc fill % 600 3878 -75 30 0 360 arc fill % 625 4042 0 30 0 360 arc fill % 650 4088 0 30 0 360 arc fill % 675 4102 0 30 0 360 arc fill % 700 4224 -1226 30 0 360 arc fill %500c 4427 -1723 30 0 360 arc fill %525c 4630 -2056 30 0 360 arc fill %550c 0 0 0 1 setcmyk_olvcolor 9657 -6202 30 0 360 arc stroke % 400 9018 -5830 30 0 360 arc stroke % 425 6041 -4019 30 0 360 arc stroke % 450 3156 -2344 30 0 360 arc stroke % 475 723 -1054 30 0 360 arc stroke % 500 1510 -464 30 0 360 arc stroke % 525 2214 -230 30 0 360 arc stroke % 550 2841 -139 30 0 360 arc stroke % 575 3475 -120 30 0 360 arc stroke % 600 3878 -75 30 0 360 arc stroke % 625 4042 0 30 0 360 arc stroke % 650 4088 0 30 0 360 arc stroke % 675 4102 0 30 0 360 arc stroke % 700 4224 -1226 30 0 360 arc stroke %500c 4427 -1723 30 0 360 arc stroke %525c 4630 -2056 30 0 360 arc stroke %550c % 2872 -1148 30 0 360 arc fill %D65 0 0 0 1 setcmyk_olvcolor TBIS % 9657 500 sub -6202 100 sub moveto (400) show % 9018 500 sub -5830 100 sub moveto (425) show % 6041 500 sub -4019 100 sub moveto (450) show 3156 400 sub -2344 100 sub moveto (475) show 723 250 sub -1054 250 sub moveto (500) show 1510 200 sub -464 150 add moveto (525) show 2214 200 sub -230 100 add moveto (550) show 2841 200 sub -139 100 add moveto (575) show 3475 200 sub -120 100 add moveto (600) show % 3878 200 sub -75 100 add moveto (625) show % 4042 200 sub 0 100 add moveto (650) show % 4088 200 sub 0 100 add moveto (675) show 4102 050 add 0 100 sub moveto (700) show 4224 050 add -1226 000 sub moveto (500c,E) show 4427 010 sub -1723 100 add moveto (525c,E) show % 4630 100 add -2056 100 sub moveto (550c,E) show % 2872 050 add -1148 000 sub moveto (D65 ) show -400 -3200 translate %ENDE: 3 } if %xchart4=2 xchart4 3 eq {%xchart4=3 600 3200 translate 0 400 moveto 4400 0 rlineto stroke 0 400 moveto 0 -3500 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten TBS 0 350 moveto 0 100 rlineto stroke 800 350 moveto 0 100 rlineto stroke 1600 350 moveto 0 100 rlineto stroke 2400 350 moveto 0 100 rlineto stroke 3200 350 moveto 0 100 rlineto stroke 4000 350 moveto 0 100 rlineto stroke -250 500 moveto (-0,6) show 650 500 moveto (0,0) show 1450 500 moveto (0,6) show 2250 500 moveto (1,2) show 3050 500 moveto (1,8) show 3850 500 moveto (2,4) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 -800 moveto 100 0 rlineto stroke -50 -1600 moveto 100 0 rlineto stroke -50 -2400 moveto 100 0 rlineto stroke -50 -3200 moveto 100 0 rlineto stroke -450 -100 moveto ( 0,0) show -450 -900 moveto (-0,6) show -450 -1700 moveto (-1,2) show -450 -2500 moveto (-1,8) show TBIK -450 -2900 moveto (b") show TBS -120 -125 rmoveto (s) show 120 125 rmoveto TBIK 4050 200 moveto (a") show TBS -120 -125 rmoveto (s) show 120 125 rmoveto TBIK -600 -3200 translate %1000 02 **************************************** %ANF PROZSPEP.FOR: MULYA= 1333 BEO=02 a"b" LABJND 1985 IXY0: 700 3200 700 800 add 3200 translate 3789 -3170 moveto 3789 -3170 3789 -3170 3788 -3170 curveto 3787 -3170 3779 -3166 3757 -3155 curveto 3724 -3138 3673 -3113 3603 -3079 curveto 3514 -3037 3394 -2982 3239 -2915 curveto 3028 -2826 2734 -2704 2265 -2508 curveto 1626 -2234 957 -1880 645 -1481 curveto 507 -1078 443 -720 417 -455 curveto 411 -308 419 -223 437 -171 curveto 464 -144 496 -130 533 -121 curveto 573 -115 616 -111 664 -108 curveto 721 -107 787 -105 867 -105 curveto 963 -104 1081 -104 1227 -104 curveto 1397 -104 1561 -104 1716 -104 curveto 1858 -104 1981 -104 2090 -104 curveto 2180 -104 2254 -104 2313 -104 curveto 2360 -103 2397 -103 2429 -103 curveto 2455 -103 2476 -103 2491 -103 curveto 2503 -103 2512 -103 2517 -103 curveto 2522 -103 2526 -103 2530 -103 curveto 2533 -103 2535 -103 2536 -103 curveto 2536 -103 2537 -103 2556 -214 curveto 2623 -700 2668 -1007 2700 -1196 curveto 2723 -1324 2742 -1416 2756 -1488 curveto 2772 -1560 2791 -1636 2811 -1717 curveto 2837 -1813 2873 -1933 2929 -2093 curveto 3019 -2313 3211 -2648 3788 -3169 curveto stroke 1 setgray 3789 -3170 30 0 360 arc fill % 400 3757 -3155 30 0 360 arc fill % 425 3394 -2982 30 0 360 arc fill % 450 1626 -2234 30 0 360 arc fill % 475 417 -455 30 0 360 arc fill % 500 496 -130 30 0 360 arc fill % 525 721 -107 30 0 360 arc fill % 550 1227 -104 30 0 360 arc fill % 575 1981 -104 30 0 360 arc fill % 600 2360 -103 30 0 360 arc fill % 625 2491 -103 30 0 360 arc fill % 650 2526 -103 30 0 360 arc fill % 675 2536 -103 30 0 360 arc fill % 700 2623 -700 30 0 360 arc fill %500c 2756 -1488 30 0 360 arc fill %525c 2873 -1933 30 0 360 arc fill %550c 0 setgray 3789 -3170 30 0 360 arc stroke % 400 3757 -3155 30 0 360 arc stroke % 425 3394 -2982 30 0 360 arc stroke % 450 1626 -2234 30 0 360 arc stroke % 475 417 -455 30 0 360 arc stroke % 500 496 -130 30 0 360 arc stroke % 525 721 -107 30 0 360 arc stroke % 550 1227 -104 30 0 360 arc stroke % 575 1981 -104 30 0 360 arc stroke % 600 2360 -103 30 0 360 arc stroke % 625 2491 -103 30 0 360 arc stroke % 650 2526 -103 30 0 360 arc stroke % 675 2536 -103 30 0 360 arc stroke % 700 2623 -700 30 0 360 arc stroke %500c 2756 -1488 30 0 360 arc stroke %525c 2873 -1933 30 0 360 arc stroke %550c 1266 -580 30 0 360 arc fill %D65 0 setgray TBIS 3789 200 sub -3170 200 add moveto (400) show % 3757 600 sub -3155 100 sub moveto (425) show % 3394 600 sub -2982 100 sub moveto (450) show 1626 050 sub -2234 150 add moveto (475) show 417 430 sub -455 100 sub moveto (500) show 496 400 sub -130 50 add moveto (525) show 721 200 sub -107 100 add moveto (550) show 1227 200 sub -104 100 add moveto (575) show 1981 200 sub -104 100 add moveto (600) show % 2360 200 sub -103 100 add moveto (625) show % 2491 200 sub -103 100 add moveto (650) show % 2526 200 sub -103 100 add moveto (675) show 2536 100 add -103 moveto (700) show 2623 100 add -700 100 sub moveto (500c) show 2756 100 add -1488 100 sub moveto (525c) show % 2873 100 add -1933 100 sub moveto (550c) show % 1266 100 add -580 100 sub moveto (D65 ) show 700 800 add neg -3200 translate %ENDE: 3 } if %xchart4=3 xchart4 4 ge xchart4 7 le and {%4>=xchart4<=7 3500 2000 translate %axis and scales 0 0 0 1 setcmyk_olvcolor -2250 0 moveto 3950 0 rlineto stroke 0 -1880 moveto 0 3600 rlineto stroke 1700 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 /xt10x 5 array def /yt10x 5 array def xchart4 4 eq {%xchart4=4 /xt10x [(-40) ( ) ( ) ( ) ( 40)] def /yt10x [(-40) ( ) ( ) ( ) (40)] def } if %xchart4=3 xchart4 5 ge xchart4 7 le and {%5>=xchart4<=7 /xt10x [(-120) ( ) ( ) ( ) ( 120)] def /yt10x [(-120) ( ) ( ) ( ) (120)] def } if %4>=xchart4<=6 0 0 0 1 setcmyk_olvcolor 0 1 4 {/i exch def %i=0,4 x-axis -1600 i 800 mul add -75 moveto 0 150 rlineto stroke -1800 i 800 mul add -250 moveto TBS xt10x i get show i 4 eq {-1600 i 800 mul add 0 moveto xchart4 4 eq { %xchart4=4 000 150 rmoveto TBIM (A) show TL } if %xchart4=4 xchart4 5 eq { %xchart4=5 -50 150 rmoveto TBIM (a*) show TL } if %xchart4=5 xchart4 6 eq { %xchart4=6 -350 150 rmoveto TBIM (a*) show -40 -50 rmoveto TBL (D65) show 0 50 rmoveto TL } if %xchart4=6 xchart4 7 eq { %xchart4=7 -50 150 rmoveto TBIM (A*) show TL } if %xchart4=7 } if } for %i=0,4 0 1 4 {/i exch def %i=0,4 y-axis -75 -1600 i 800 mul add moveto 150 0 rlineto stroke 100 -1600 i 800 mul add 100 sub moveto TBS yt10x i get show i 4 eq {0 -1600 i 800 mul add moveto xchart4 4 eq { %xchart4=4 -250 150 rmoveto TBIM (B) show TL } if %xchart4=4 xchart4 5 eq { %xchart4=5 -400 150 rmoveto TBIM (b*) show TL } if %xchart4=5 xchart4 6 eq { %xchart4=6 -750 150 rmoveto TBIM (b*) show -40 -50 rmoveto TBL (D65) show 0 50 rmoveto TL } if %xchart4=6 xchart4 7 eq { %xchart4=7 -300 150 rmoveto TBIM (B*) show TL } if %xchart4=7 } if } for %i=0,4 -3500 -2000 translate } if %4>=xchart4<=7 %******************************************************* %actual data /imshow {0 -50 rmoveto TBL (d) show 0 50 rmoveto TBIS} def /ioshow {0 -50 rmoveto TBL (e) show 0 50 rmoveto TBIS} def %************************************************* xchart4 0 eq {%xchart4=0 %only for (x,y) /fakt 4000 def 600 400 translate %for scala and graphic 0 1 05 {/i exch def %i=0,39 XANi i get fakt mul YANi i get fakt mul i 0 eq {moveto} if i 1 ge i 04 le and {lineto} if i 05 eq {lineto closepath stroke} if } for %i=0,39 XANW fakt mul YANW fakt mul 90 0 360 arc stroke XANW fakt mul 200 sub YANW fakt mul 250 sub moveto TBS TELi xchartl get show TBIS 0 1 9 {/i exch def %i=0,9 /SUM Xi i get Yi i get add Zi i get add 0.0001 add def /AnY Xi i get SUM div fakt mul def /BnY Yi i get SUM div fakt mul def i 0 eq {AnY 100 sub BnY 250 sub moveto (R) show imshow 0 1 1 0 setcmykcolor} if %Rm i 1 eq {AnY 150 sub BnY 250 sub moveto (Y) show imshow 0 0 1 0 setcmykcolor} if %Ym i 2 eq {AnY 350 sub BnY 150 sub moveto (G) show imshow 1 0 1 0 setcmykcolor} if %Gm i 3 eq {AnY 350 sub BnY 050 sub moveto (C) show imshow 1 0 0 0 setcmykcolor} if %Cm i 4 eq {AnY 000 add BnY 200 add moveto (B) show imshow 1 1 0 0 setcmykcolor} if %Bm i 5 eq {AnY 150 add BnY 050 sub moveto (M) show imshow 0 1 0 0 setcmykcolor} if %Mm i 6 eq {AnY 100 sub BnY 250 sub moveto (R) show ioshow 0 1 1 0 setcmykcolor} if %Rm i 7 eq {AnY 000 add BnY 250 sub moveto (Y) show ioshow 0 0 1 0 setcmykcolor} if %Ym i 8 eq {AnY 350 sub BnY 050 sub moveto (G) show ioshow 1 0 1 0 setcmykcolor} if %Gm i 9 eq {AnY 400 sub BnY 050 sub moveto (B) show ioshow 1 1 0 0 setcmykcolor} if %Bm newpath AnY BnY i 5 le {50}{90} ifelse 0 360 arc fill 0 setgray newpath AnY BnY i 5 le {50}{90} ifelse 0 360 arc stroke } for %i=0,9 -600 -400 translate %for scala and grafic } if %xchart4=0 xchart4 1 eq {%xchart4=1 %only for (a,b) /fakt 1000 def /a2 XW YW 0.0001 add div def /b2 ZW YW 0.0001 add div -0.4 mul def 1300 3200 translate %for grafic 0 1 05 {/i exch def %i=0,39 Xi i get Yi i get 0.0001 add div fakt mul %a Zi i get Yi i get 0.0001 add div fakt mul %b 0.4 mul neg i 0 eq {moveto} if i 1 ge i 04 le and {lineto} if i 05 eq {lineto closepath stroke} if } for %i=0,39 XW YW 0.0001 add div fakt mul ZW YW 0.0001 add div fakt mul 0.4 mul neg 90 0 360 arc stroke XW YW 0.0001 add div fakt mul 200 sub ZW YW 0.0001 add div fakt mul 0.4 mul neg 250 sub moveto TBS TELi xchartl get show TBIS 0 1 9 {/i exch def %i=0,9 /AnY Xi i get Yi i get 0.0001 add div fakt mul def /BnY Zi i get Yi i get 0.0001 add div fakt mul 0.4 mul neg def i 0 eq {AnY 150 add BnY 250 sub moveto (R) show imshow 0 1 1 0 setcmykcolor} if %Rm i 1 eq {AnY 100 sub BnY 250 sub moveto (Y) show imshow 0 0 1 0 setcmykcolor} if %Ym i 2 eq {AnY 400 sub BnY 250 sub moveto (G) show imshow 1 0 1 0 setcmykcolor} if %Gm i 3 eq {AnY 400 sub BnY 050 sub moveto (C) show imshow 1 0 0 0 setcmykcolor} if %Cm i 4 eq {AnY 000 add BnY 200 add moveto (B) show imshow 1 1 0 0 setcmykcolor} if %Bm i 5 eq {AnY 150 add BnY 050 sub moveto (M) show imshow 0 1 0 0 setcmykcolor} if %Mm i 6 eq {AnY 100 sub BnY 250 sub moveto (R) show ioshow 0 1 1 0 setcmykcolor} if %Rm i 7 eq {AnY 000 add BnY 250 sub moveto (Y) show ioshow 0 0 1 0 setcmykcolor} if %Ym i 8 eq {AnY 350 sub BnY 050 sub moveto (G) show ioshow 1 0 1 0 setcmykcolor} if %Gm i 9 eq {AnY 400 sub BnY 050 sub moveto (B) show ioshow 1 1 0 0 setcmykcolor} if %Bm newpath AnY BnY i 5 le {50}{90} ifelse 0 360 arc fill 0 setgray newpath AnY BnY i 5 le {50}{90} ifelse 0 360 arc stroke } for %i=0,9 -1300 -3200 translate %for grafic } if %xchart4=1 xchart4 2 eq {%xchart4=2 %only for (a',b') /D13 1 3 div def /fakt 13333 def /a2 XW YW 0.0001 add div D13 exp 0.2191 mul def /b2 ZW YW 0.0001 add div D13 exp -0.08376 mul def 200 3200 translate %for graphic 0 1 05 {/i exch def %i=0,39 Xi i get Yi i get 0.0001 add div %a' D13 exp 0.2191 mul fakt mul Zi i get Yi i get 0.0001 add div %b' D13 exp -0.08376 mul fakt mul i 0 eq {moveto} if i 1 ge i 04 le and {lineto} if i 05 eq {lineto closepath stroke} if } for %i=0,39 XW YW 0.0001 add div %a' D13 exp 0.2191 mul fakt mul ZW YW 0.0001 add div %b' D13 exp -0.08376 mul fakt mul 90 0 360 arc stroke XW YW 0.0001 add div %a' D13 exp 0.2191 mul fakt mul 200 sub ZW YW 0.0001 add div %b' D13 exp -0.08376 mul fakt mul 250 sub moveto TBS TELi xchartl get show TBIS 0 1 9 {/i exch def %i=0,9 /AnY Xi i get Yi i get 0.0001 add div %a' D13 exp 0.2191 mul fakt mul def /BnY Zi i get Yi i get 0.0001 add div %b' D13 exp -0.08376 mul fakt mul def i 0 eq {AnY 150 add BnY 250 sub moveto (R) show imshow 0 1 1 0 setcmykcolor} if %Rm i 1 eq {AnY 100 sub BnY 250 sub moveto (Y) show imshow 0 0 1 0 setcmykcolor} if %Ym i 2 eq {AnY 400 sub BnY 150 sub moveto (G) show imshow 1 0 1 0 setcmykcolor} if %Gm i 3 eq {AnY 400 sub BnY 050 sub moveto (C) show imshow 1 0 0 0 setcmykcolor} if %Cm i 4 eq {AnY 000 add BnY 200 add moveto (B) show imshow 1 1 0 0 setcmykcolor} if %Bm i 5 eq {AnY 150 add BnY 050 sub moveto (M) show imshow 0 1 0 0 setcmykcolor} if %Mm i 6 eq {AnY 100 sub BnY 250 sub moveto (R) show ioshow 0 1 1 0 setcmykcolor} if %Rm i 7 eq {AnY 000 add BnY 250 sub moveto (Y) show ioshow 0 0 1 0 setcmykcolor} if %Ym i 8 eq {AnY 350 sub BnY 050 sub moveto (G) show ioshow 1 0 1 0 setcmykcolor} if %Gm i 9 eq {AnY 400 sub BnY 050 sub moveto (B) show ioshow 1 1 0 0 setcmykcolor} if %Bm newpath AnY BnY i 5 le {50}{90} ifelse 0 360 arc fill 0 setgray newpath AnY BnY i 5 le {50}{90} ifelse 0 360 arc stroke } for %i=0,9 -200 -3200 translate %for graphic } if %xchart4=2 xchart4 3 eq {%xchart4=3 %only for (a",b") %100 3800 moveto TIS ((a",b") (LAB 1977)) show /fakt 1333 def /XD65 95.04 def /YD65 100.00 def /ZD65 108.89 def /aD65 XD65 YD65 0.0001 add div def /bD65 ZD65 YD65 0.0001 add div -0.4 mul def /a2 aD65 def /b2 bD65 def 700 800 add 3200 translate %for grafic 0 1 05 {/i exch def %i=0,39 /a Xi i get Yi i get 0.0001 add div def /an XK YK 0.0001 add div def /b Zi i get Yi i get 0.0001 add div 0.4 mul neg def /bn ZK YK 0.0001 add div 0.4 mul neg def /a" an a an sub 1 a an sub abs 0.5 mul add div add def /b" bn b bn sub 1 b bn sub abs 0.5 mul add div add def a" fakt mul b" fakt mul /a"n an def /b"n bn def i 0 eq {moveto} if i 1 ge i 04 le and {lineto} if i 05 eq {lineto closepath stroke} if } for %i=0,39 a"n fakt mul b"n fakt mul 90 0 360 arc stroke a"n fakt mul 200 sub b"n fakt mul 250 sub moveto TBS TELi xchartl get show TBIS 0 1 9 {/i exch def %i=0,9 /a Xi i get Yi i get 0.0001 add div def /an XK YK 0.0001 add div def /b Zi i get Yi i get 0.0001 add div 0.4 mul neg def /bn ZK YK 0.0001 add div 0.4 mul neg def /a" an a an sub 1 a an sub abs 0.5 mul add div add def /b" bn b bn sub 1 b bn sub abs 0.5 mul add div add def a" fakt mul b" fakt mul /a"n an def /b"n bn def /AnY a" fakt mul def /BnY b" fakt mul def i 0 eq {AnY 150 add BnY 250 sub moveto (R) show imshow 0 1 1 0 setcmykcolor} if %Rm i 1 eq {AnY 100 sub BnY 250 sub moveto (Y) show imshow 0 0 1 0 setcmykcolor} if %Ym i 2 eq {AnY 400 sub BnY 250 sub moveto (G) show imshow 1 0 1 0 setcmykcolor} if %Gm i 3 eq {AnY 400 sub BnY 050 sub moveto (C) show imshow 1 0 0 0 setcmykcolor} if %Cm i 4 eq {AnY 000 add BnY 200 add moveto (B) show imshow 1 1 0 0 setcmykcolor} if %Bm i 5 eq {AnY 150 add BnY 050 sub moveto (M) show imshow 0 1 0 0 setcmykcolor} if %Mm i 6 eq {AnY 100 sub BnY 250 sub moveto (R) show ioshow 0 1 1 0 setcmykcolor} if %Rm i 7 eq {AnY 000 add BnY 250 sub moveto (Y) show ioshow 0 0 1 0 setcmykcolor} if %Ym i 8 eq {AnY 350 sub BnY 050 sub moveto (G) show ioshow 1 0 1 0 setcmykcolor} if %Gm i 9 eq {AnY 400 sub BnY 050 sub moveto (B) show ioshow 1 1 0 0 setcmykcolor} if %Bm newpath AnY BnY i 5 le {50}{90} ifelse 0 360 arc fill 0 setgray newpath AnY BnY i 5 le {50}{90} ifelse 0 360 arc stroke } for %i=0,9 700 800 add neg -3200 translate %for graphic } if %xchart4=3 xchart4 4 eq {%xchart4=4 %only for (A,B) /fakt 40 def /a2 1.00 def /b2 -0.4 def 3500 2000 translate %for text and grafic -3400 1800 moveto TBIS (XYZ) show TBL (w) show TBS (=) show XK cvsshow5 (, ) show YK cvsshow5 (, ) show ZK cvsshow2 -3400 1550 moveto TBIS (A) show TBS ( = \050) show TBIS (a) show TBS ( - ) show TBIS (a) show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (\051 ) show TBIS (Y) show -3400 1300 moveto TBIS (B) show TBS ( = \050) show TBIS (b) show TBS ( - ) show TBIS (b) show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (\051 ) show TBIS (Y) show -3400 1050 moveto TBIS (a) show TBS ( = ) show TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( [) show TBIS (x/y) show TBS (]) show -3400 800 moveto TBIS (b) show TBS ( = ) show TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( [) show TBIS (z/y) show TBS (]) show -3400 550 moveto TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( = 1) show -3400 300 moveto TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( = -0,4) show -3400 050 moveto TBIS (n) show TBS ( = ) show TELi xchartl get show 0 1 05 {/i exch def %i=0,39 Xi i get Yi i get 0.0001 add div %(a-an)Y XK YK 0.0001 add div sub Yi i get mul fakt mul Zi i get Yi i get 0.0001 add div %(b-bn)Y ZK YK 0.0001 add div sub 0.4 mul neg Yi i get mul fakt mul i 0 eq {moveto} if i 1 ge i 04 le and {lineto} if i 05 eq {lineto closepath stroke} if } for %i=0,39 XW YW 0.0001 add div %(a-an)YW XK YK 0.0001 add div sub YW mul fakt mul ZW YW 0.0001 add div %(b-an)YW ZK YK 0.0001 add div sub 0.4 mul neg YW mul fakt mul 90 0 360 arc stroke 0 080 add 0 080 add moveto TBS TELi xchartl get show TBIS 0 1 9 {/i exch def %i=0,9 /AnY Xi i get Yi i get 0.0001 add div %(a-an)Y XK YK 0.0001 add div sub Yi i get mul fakt mul def /BnY Zi i get Yi i get 0.0001 add div %(b-bn)Y ZK YK 0.0001 add div sub 0.4 mul neg Yi i get mul fakt mul def i 0 eq {AnY 150 add BnY 250 sub moveto (R) show imshow 0 1 1 0 setcmykcolor} if %Rm i 1 eq {AnY 100 sub BnY 250 sub moveto (Y) show imshow 0 0 1 0 setcmykcolor} if %Ym i 2 eq {AnY 400 sub BnY 150 sub moveto (G) show imshow 1 0 1 0 setcmykcolor} if %Gm i 3 eq {AnY 400 sub BnY 050 sub moveto (C) show imshow 1 0 0 0 setcmykcolor} if %Cm i 4 eq {AnY 000 add BnY 200 add moveto (B) show imshow 1 1 0 0 setcmykcolor} if %Bm i 5 eq {AnY 150 add BnY 050 sub moveto (M) show imshow 0 1 0 0 setcmykcolor} if %Mm i 6 eq {AnY 100 sub BnY 250 sub moveto (R) show ioshow 0 1 1 0 setcmykcolor} if %Rm i 7 eq {AnY 000 add BnY 250 sub moveto (Y) show ioshow 0 0 1 0 setcmykcolor} if %Ym i 8 eq {AnY 350 sub BnY 050 sub moveto (G) show ioshow 1 0 1 0 setcmykcolor} if %Gm i 9 eq {AnY 400 sub BnY 050 sub moveto (B) show ioshow 1 1 0 0 setcmykcolor} if %Bm newpath AnY BnY i 5 le {50}{90} ifelse 0 360 arc fill 0 setgray newpath AnY BnY i 5 le {50}{90} ifelse 0 360 arc stroke } for %i=0,9 } if %xchart4=4 xchart4 5 eq {%xchart4=5 %only for (a*,b*) /D13 1 3 div def /fakt 40 3 div def /a2 1 XW div D13 exp def /b2 1 ZW div D13 exp -0.4 mul def 3500 2000 translate %for text and grafic -3400 1800 moveto TBIS (XYZ) show TBL (w) show TBS (=) show XK cvsshow5 (, ) show YK cvsshow5 (, ) show ZK cvsshow2 -3400 1550 moveto TBIS (a*) show TBS ( = 500 \050) show TBIS (a') show TBS ( - ) show TBIS (a') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (\051 ) show TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 1300 moveto TBIS (b*) show TBS ( = 500 \050) show TBIS (b') show TBS ( - ) show TBIS (b') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (\051 ) show TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 1050 moveto TBIS (a) show TBS ( = ) show TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( [) show TBIS (x/y) show TBS (]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 800 moveto TBIS (b) show TBS ( = ) show TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( [) show TBIS (z/y) show TBS (]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 550 moveto TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS (=[1/) show TBIS (X) show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto TBS (=) show a2 cvsshow4 -3400 300 moveto TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS (=-[1/) show TBIS (Z) show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto TBS (=) show b2 cvsshow5 -3400 050 moveto TBIS (n) show TBS ( = ) show TELi xchartl get show 0 1 05 {/i exch def %i=0,39 Xi i get Yi i get 0.0001 add div %500(a'-a'n)Y**(1/3) D13 exp a2 mul %a'= a2 (x/y)**(1/3) XK YK 0.0001 add div D13 exp a2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul Zi i get Yi i get 0.0001 add div %500(b'-b'n)Y**(1/3) D13 exp b2 mul %b' = b2 (z/y)**(1/3) ZK YK 0.0001 add div D13 exp b2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul i 0 eq {moveto} if i 1 ge i 04 le and {lineto} if i 05 eq {lineto closepath stroke} if } for %i=0,39 XW YW 0.0001 add div D13 exp a2 mul XK YK 0.0001 add div D13 exp a2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul ZW YW 0.0001 add div D13 exp b2 mul ZK YK 0.0001 add div D13 exp b2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul 90 0 360 arc stroke XW YW 0.0001 add div D13 exp a2 mul XK YK 0.0001 add div D13 exp a2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul 080 add ZW YW 0.0001 add div D13 exp b2 mul ZK YK 0.0001 add div D13 exp b2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul 080 add moveto TBS TELi xchartl get show TBIS 0 1 9 {/i exch def %i=0,9 /AnY Xi i get Yi i get 0.0001 add div %500(a'-a'n)Y**(1/3) D13 exp a2 mul %a'= a2 (x/y)**(1/3) XK YK 0.0001 add div D13 exp a2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def /BnY Zi i get Yi i get 0.0001 add div %500(b'-b'n)Y**(1/3) D13 exp b2 mul %b'= b2 (x/y)**(1/3) ZK YK 0.0001 add div D13 exp b2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def i 0 eq {AnY 150 add BnY 250 sub moveto (R) show imshow 0 1 1 0 setcmykcolor} if %Rm i 1 eq {AnY 100 sub BnY 250 sub moveto (Y) show imshow 0 0 1 0 setcmykcolor} if %Ym i 2 eq {AnY 400 sub BnY 150 sub moveto (G) show imshow 1 0 1 0 setcmykcolor} if %Gm i 3 eq {AnY 400 sub BnY 050 sub moveto (C) show imshow 1 0 0 0 setcmykcolor} if %Cm i 4 eq {AnY 000 add BnY 200 add moveto (B) show imshow 1 1 0 0 setcmykcolor} if %Bm i 5 eq {AnY 150 add BnY 050 sub moveto (M) show imshow 0 1 0 0 setcmykcolor} if %Mm i 6 eq {AnY 100 sub BnY 250 sub moveto (R) show ioshow 0 1 1 0 setcmykcolor} if %Rm i 7 eq {AnY 000 add BnY 250 sub moveto (Y) show ioshow 0 0 1 0 setcmykcolor} if %Ym i 8 eq {AnY 350 sub BnY 050 sub moveto (G) show ioshow 1 0 1 0 setcmykcolor} if %Gm i 9 eq {AnY 400 sub BnY 050 sub moveto (B) show ioshow 1 1 0 0 setcmykcolor} if %Bm newpath AnY BnY i 5 le {50}{90} ifelse 0 360 arc fill 0 setgray newpath AnY BnY i 5 le {50}{90} ifelse 0 360 arc stroke } for %i=0,9 -3500 -2000 translate %for text and grafic } if %xchart4=5 xchart4 6 eq {%xchart4=6 %only for (a*,b*) with const. for D65 /D13 1 3 div def /fakt 40 3 div def /a2 0.2191 def /b2 -0.08376 def 3500 2000 translate %for text and grafic -3400 1800 moveto TBIS (XYZ) show TBL (w) show TBS (=) show XK cvsshow5 (, ) show YK cvsshow5 (, ) show ZK cvsshow2 -3400 1550 moveto TBIS (a*) show TBS ( = 500 \050) show TBIS (a') show TBS ( - ) show TBIS (a') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (\051 ) show TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 1300 moveto TBIS (b*) show TBS ( = 500 \050) show TBIS (b') show TBS ( - ) show TBIS (b') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (\051 ) show TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 1050 moveto TBIS (a') show TBS ( = ) show TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( [) show TBIS (x/y) show TBS (]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 800 moveto TBIS (b') show TBS ( = ) show TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( [) show TBIS (z/y) show TBS (]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 550 moveto TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS (=[1/) show TBIS (X) show 0 -50 rmoveto TBL (D65) show 0 50 rmoveto TBS (]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto TBS (=) show a2 cvsshow4 -3400 300 moveto TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS (=-[1/) show TBIS (Z) show 0 -50 rmoveto TBL (D65) show 0 50 rmoveto TBS (]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto TBS (=) show b2 cvsshow5 -3400 050 moveto TBIS (n) show TBS ( = ) show TELi xchartl get show 0 1 05 {/i exch def %i=0,39 Xi i get Yi i get 0.0001 add div %500(a'-a'n)Y**(1/3) D13 exp a2 mul %a'= a2 (x/y)**(1/3) XK YK 0.0001 add div D13 exp a2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul Zi i get Yi i get 0.0001 add div %500(b'-b'n)Y**(1/3) D13 exp b2 mul %b'= b2 (z/y)**(1/3) ZK YK 0.0001 add div D13 exp b2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul i 0 eq {moveto} if i 1 ge i 04 le and {lineto} if i 05 eq {lineto closepath stroke} if } for %i=0,39 XW YW 0.0001 add div D13 exp a2 mul XK YK 0.0001 add div D13 exp a2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul ZW YW 0.0001 add div D13 exp b2 mul ZK YK 0.0001 add div D13 exp b2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul 90 0 360 arc stroke XW YW 0.0001 add div %500(a'-a'n)Y**(1/3) D13 exp a2 mul %a'= a2 (x/y)**(1/3) XK YK 0.0001 add div D13 exp a2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul 080 add ZW YW 0.0001 add div %500(b'-b'n)Y**(1/3) D13 exp b2 mul %a'= a2 (x/y)**(1/3) ZK YK 0.0001 add div D13 exp b2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul 080 add moveto TBS TELi xchartl get show TBIS 0 1 9 {/i exch def %i=0,9 /AnY Xi i get Yi i get 0.0001 add div D13 exp a2 mul XK YK 0.0001 add div D13 exp a2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def /BnY Zi i get Yi i get 0.0001 add div D13 exp b2 mul ZK YK 0.0001 add div D13 exp b2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def i 0 eq {AnY 150 add BnY 250 sub moveto (R) show imshow 0 1 1 0 setcmykcolor} if %Rm i 1 eq {AnY 100 sub BnY 250 sub moveto (Y) show imshow 0 0 1 0 setcmykcolor} if %Ym i 2 eq {AnY 400 sub BnY 150 sub moveto (G) show imshow 1 0 1 0 setcmykcolor} if %Gm i 3 eq {AnY 400 sub BnY 050 sub moveto (C) show imshow 1 0 0 0 setcmykcolor} if %Cm i 4 eq {AnY 000 add BnY 200 add moveto (B) show imshow 1 1 0 0 setcmykcolor} if %Bm i 5 eq {AnY 150 add BnY 050 sub moveto (M) show imshow 0 1 0 0 setcmykcolor} if %Mm i 6 eq {AnY 100 sub BnY 250 sub moveto (R) show ioshow 0 1 1 0 setcmykcolor} if %Rm i 7 eq {AnY 000 add BnY 250 sub moveto (Y) show ioshow 0 0 1 0 setcmykcolor} if %Ym i 8 eq {AnY 350 sub BnY 050 sub moveto (G) show ioshow 1 0 1 0 setcmykcolor} if %Gm i 9 eq {AnY 400 sub BnY 050 sub moveto (B) show ioshow 1 1 0 0 setcmykcolor} if %Bm newpath AnY BnY i 5 le {50}{90} ifelse 0 360 arc fill 0 setgray newpath AnY BnY i 5 le {50}{90} ifelse 0 360 arc stroke } for %i=0,9 -3500 -2000 translate %for text and grafic } if %xchart4=6 xchart4 7 eq {%xchart4=7 %only for (a*,b*)D65 /D13 1 3 div def /D11 1 def /D16 1 6 div def /fakt 40 3 div def /a2 1 15 div def /b2 1 12 div neg def 3500 2000 translate %for text and grafic -3400 1800 moveto TBIS (XYZ) show TBL (w) show TBS (=) show XK cvsshow5 (, ) show YK cvsshow5 (, ) show ZK cvsshow2 -3400 1550 moveto TBIS (a*) show TBS ( = 500 \050) show TBIS (a') show TBS ( - ) show TBIS (a') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (\051 ) show TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 1300 moveto TBIS (b*) show TBS ( = 500 \050) show TBIS (b') show TBS ( - ) show TBIS (b') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (\051 ) show TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 1050 moveto TBIS (a) show TBS ( = ) show TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( [) show TBIS (x/y) show TBS ( + 1]) show -3400 800 moveto TBIS (b) show TBS ( = ) show TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( [) show TBIS (z/y) show TBS ( + 1/6 ]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto TBS -3400 550 moveto TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( = 1/15 = ) show a2 cvsshow5 -3400 300 moveto TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( = -1/12 = ) show b2 cvsshow5 -3400 050 moveto TBIS (n) show TBS ( = ) show TELi xchartl get show 0 1 05 {/i exch def %i=0,39 Xi i get Yi i get 0.0001 add div %500(a'-a'n)Y**(1/3) D11 add a2 mul %a'=(x/y+1)/15 XK YK 0.0001 add div D11 add a2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul Zi i get Yi i get 0.0001 add div %500(b'-b'n)Y**(1/3) D16 add D13 exp b2 mul %b'=-[(z/y +1/6)**(1/3)]/12 ZK YK 0.0001 add div D16 add D13 exp b2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul i 0 eq {moveto} if i 1 ge i 04 le and {lineto} if i 05 eq {lineto closepath stroke} if } for %i=0,39 XW YW 0.0001 add div D11 add a2 mul XK YK 0.0001 add div D11 add a2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul ZW YW 0.0001 add div D16 add D13 exp b2 mul ZK YK 0.0001 add div D16 add D13 exp b2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul 90 0 360 arc stroke XW YW 0.0001 add div D11 add a2 mul XK YK 0.0001 add div D11 add a2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul 080 add ZW YW 0.0001 add div D16 add D13 exp b2 mul ZK YK 0.0001 add div D16 add D13 exp b2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul 080 add moveto TBS TELi xchartl get show TBIS 0 1 9 {/i exch def %i=0,9 /AnY Xi i get Yi i get 0.0001 add div %500(a'-a'n)Y**(1/3) D11 add a2 mul %a'=(x/y+1)/15 XK YK 0.0001 add div D11 add a2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def /BnY Zi i get Yi i get 0.0001 add div %500(b'-b'n)Y**(1/3) D16 add D13 exp b2 mul %b'=-[(z/y +1/6)**(1/3)]/12 ZK YK 0.0001 add div D16 add D13 exp b2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def i 0 eq {AnY 150 add BnY 250 sub moveto (R) show imshow 0 1 1 0 setcmykcolor} if %Rm i 1 eq {AnY 100 sub BnY 250 sub moveto (Y) show imshow 0 0 1 0 setcmykcolor} if %Ym i 2 eq {AnY 400 sub BnY 150 sub moveto (G) show imshow 1 0 1 0 setcmykcolor} if %Gm i 3 eq {AnY 400 sub BnY 050 sub moveto (C) show imshow 1 0 0 0 setcmykcolor} if %Cm i 4 eq {AnY 000 add BnY 200 add moveto (B) show imshow 1 1 0 0 setcmykcolor} if %Bm i 5 eq {AnY 400 sub BnY 050 sub moveto (M) show imshow 0 1 0 0 setcmykcolor} if %Mm i 6 eq {AnY 100 sub BnY 250 sub moveto (R) show ioshow 0 1 1 0 setcmykcolor} if %Rm i 7 eq {AnY 000 add BnY 250 sub moveto (Y) show ioshow 0 0 1 0 setcmykcolor} if %Ym i 8 eq {AnY 350 sub BnY 050 sub moveto (G) show ioshow 1 0 1 0 setcmykcolor} if %Gm i 9 eq {AnY 400 sub BnY 050 sub moveto (B) show ioshow 1 1 0 0 setcmykcolor} if %Bm newpath AnY BnY i 5 le {50}{90} ifelse 0 360 arc fill 0 setgray newpath AnY BnY i 5 le {50}{90} ifelse 0 360 arc stroke } for %i=0,9 -3500 -2000 translate %for text and grafic } if %xchart4=7 showpage grestore %} for %xchartl=0,7 } for %xchart4=0,7 %} for %xcolorl=0,1 %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 020 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 27 %line 489 %!PS-Adobe-3.0 EPSF-3.0 TE011-1N %%BoundingBox: 70 83 228 206 %START PDFDE011.EPS /pdfmark11 where {pop} {userdict /pdfmark11 /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/TE01/) /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:2013090112000) /ModDate (D:2013090112000) /DOCINFO pdfmark11 [ /View [ /FitB ] /DOCVIEW pdfmark11 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /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 /Courier findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Courier-ISOL1 exch definefont pop /Courier-Oblique findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierI-ISOL1 exch definefont pop /Courier-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierB-ISOL1 exch definefont pop /Courier-BoldOblique findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierBI-ISOL1 exch definefont pop /TG {350 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TL {160 /Times-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIL {160 /TimesI-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBL {160 /TimesB-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIL {160 /TimesBI-ISOL1 FS} bind def /SG {350 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SK {240 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SL {160 /Symbol FS} bind def %%EndProlog gsave %lanindL2.EPS START 20000505 /lanind 0 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showea {1 lanind le {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 1 def /lanind2 1 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 0 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 8 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % colorm 0 eq deintp 0 eq and {/Txx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def} if %colorm=1, deintp=1 xchart xchart3 lt {/Txx (-) def} if %always independent of intended output gsave %LANINDL2 END /cvishow {cvi 6 string cvs show ( ) show} def /cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show ( ) show} def /cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show ( ) show} def /cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show ( ) show} def /cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show ( ) show} def /cvsshow5 {100000 mul cvi 0.00001 mul 9 string cvs show ( ) show} def /SD65 80 array def %380 bis 775 mit deltalambda=05 /SD50 80 array def %380 bis 775 mit deltalambda=05 /SP40 80 array def %380 bis 775 mit deltalambda=05 /SA00 80 array def %380 bis 775 mit deltalambda=05 /SE00 80 array def %380 bis 775 mit deltalambda=05 /SC00 80 array def %380 bis 775 mit deltalambda=05 /SP00 80 array def %380 bis 775 mit deltalambda=05 /SQ00 80 array def %380 bis 775 mit deltalambda=05 /SDAK 80 array def %380 bis 775 mit deltalambda=05 /RA 80 array def %380 bis 770 nm /F2 240 array def %3 x 80 Daten fuer Bereich 380 bis 770nm /F2N 240 array def %normiert auf Y=100 fuer D65 und 10nm /F10 240 array def %3 x 80 Daten fuer Bereich 380 bis 770nm %C %C LITERATURQUELLEN LICHTARTEN %C SA,SC,SD65, CIE-DOKUMENT NR.15 FARBMESSUNG, 1971 %C TABELLE 1.1.1, SEITE 81 %C SD55,SD75, CIE-DOKUMENT NR.15 FARBMESSUNG, 1971 %C TABELLE 1.1.4, SEITE 85 %C LINEAR INTERPOLIERT VON 5 ZU 5NM %C SG,SP,SXE, DIN 5033, BLATT 7 ,SEITE 8-9 %C AUSGABE 1966 /SD65 %80 data 5 nm [50.0 52.3 54.6 68.7 82.8 87.1 91.5 92.5 93.4 90.1 86.7 95.8 104.9 110.9 117.0 117.4 117.8 116.3 114.9 115.4 115.9 112.4 108.8 109.1 109.4 108.6 107.8 106.3 104.8 106.2 107.7 106.0 104.4 104.2 104.0 102.0 100.0 98.2 96.3 96.1 95.8 92.2 88.7 89.3 90.0 89.8 89.6 88.6 87.7 85.5 83.3 83.5 83.7 81.9 80.0 80.1 80.2 81.2 82.3 80.3 78.3 74.0 69.7 70.7 71.6 73.0 74.3 68.0 61.6 65.7 69.9 72.5 75.1 69.3 63.6 55.0 46.4 56.6 66.8 65.1] def /SD50 %80 data 5 nm CIE 15.3, Seite 30; aus JE540-1N.PS [24.5 27.2 29.9 39.6 49.3 52.9 56.5 58.3 60.0 58.9 57.8 66.3 74.8 81.0 87.2 88.9 90.6 91.0 91.4 93.2 95.1 93.5 92.0 93.8 95.7 96.2 96.6 96.8 97.1 99.6 102.1 101.4 100.8 101.5 102.3 101.2 100.0 98.9 97.7 98.3 98.9 96.2 93.5 95.6 97.7 98.5 99.3 99.2 99.0 97.4 95.7 97.3 98.9 97.3 95.7 96.9 98.2 100.6 103.0 101.1 99.1 93.3 87.4 89.5 91.6 92.2 92.9 84.9 76.9 81.7 86.5 89.5 92.6 85.4 78.2 68.0 57.7 70.3 82.9 0.0] def %0.0 not used /SA00 %80 data 5 nm CIE 15.3 Seite 30; aus JE540-1N.PS [9.80 10.90 12.09 13.35 14.71 16.15 17.68 19.29 20.99 22.79 24.67 26.64 28.70 30.85 33.09 35.41 37.81 40.30 42.87 45.52 48.24 51.04 53.91 56.85 59.86 62.93 66.06 69.25 72.50 75.79 79.13 82.52 85.95 89.41 92.91 96.44 100.00 103.58 107.18 110.80 114.44 118.08 121.73 125.39 129.04 132.70 136.35 139.99 143.62 147.24 150.84 154.42 157.98 161.52 165.03 168.51 171.96 175.38 178.77 182.12 185.43 188.70 191.93 195.12 198.26 201.36 204.41 207.41 210.36 213.27 216.12 218.92 221.67 224.36 227.00 229.59 232.12 234.59 237.01 239.37 0.0] def %0.0 not used % AUS BILDPLA.FOR aus vrbam/wrpos:KRPROG.FOR, 5987-6023 5.10.92 %C PROGRAMM ZUR BERECHNUNG DER RELATIVEN SPEKTRALEN STRAHLUNGSVERTEI- %C LUNG EINES HOHLRAUMSTRAHLERS ALS FUNKTION DER WELLENLAENGE LAMDA %C BEI GEGEBENER TEMPERATUR T %C VERWENDETE VARIABLE %C T TEMPERATUR %C C2 PLANCKSCHE KONSTANTE (=1.4388 CM K (1967)) %C LAMDA(I) WELLENLAENGE %C S(I) STRAHLUNGSVERTEILUNG DES HOHLRAUMSTRAHLERS %C %C LITERATUR OFFIZIELLE EMPFEHLUNGEN DER CIE,DEUTSCHE VERSION, %C CA. 1969, SEITE 21 UND TABELLE 1.1.1 %C %SDP4 80 array def %380 bis 775 mit deltalambda=05 % DO 50 I=1,54 % 50 S(I)=100. % 1*(560./FLOAT(LAMDA(I)))**5 % 2*(EXP(C2/(560.*10.**(-7)*T))-1.) % 3/(EXP(C2/(FLOAT(LAMDA(I))*10.**(-7)*T))-1.) %new CIE 15.3:2004, Eq. (3.1) page 2 %S(I) = [100{560/lambda}**5] [exp{(c2*10**7)/(TNC*560 )} - 1] % /[exp{(c2*10**7)/(TNC*lambda)} - 1] % exp = e {...} = 2.71 {...} %/TNC 2848 def %NLA /TNC 4000 def /EE 2.718281 def %e=mac pocket calculator /C2 1.4350000 10 7 exp mul def /lamd 80 array def 0 1 79 {%i=0,79 /i exch def /lambda 380 i 5 mul add def lamd i lambda put /E1 560 lambda div 5 exp def /E4 C2 TNC 560 mul div def /E5 C2 TNC lambda mul div def /E6 EE E4 exp def /E7 EE E5 exp def SP40 i E1 100 mul E6 1 sub E7 1 sub div mul put } for %i=0,79 /xex 10 2 exp def /yex EE 2 exp def /SE00 %80 data 5 nm [100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0] def %0.0 not used /SC00 %80 data 5 nm [ 33.00 39.92 47.40 55.17 63.30 71.81 80.60 89.53 98.10 105.80 112.40 117.75 121.50 123.45 124.00 123.60 123.10 123.30 123.80 124.09 123.90 122.92 120.70 116.90 112.10 106.98 102.30 98.81 96.90 96.78 98.00 99.94 102.10 103.95 105.20 105.67 105.30 104.11 102.30 100.15 97.80 95.43 93.20 91.22 89.70 88.83 88.40 88.19 88.10 88.06 88.00 87.86 87.80 87.99 88.20 88.20 87.90 87.22 86.30 85.30 84.00 82.21 80.20 78.24 76.30 74.36 72.40 70.40 68.30 66.30 64.40 62.80 61.50 60.20 59.20 58.50 58.10 58.00 58.20 58.50 ] def %0.0 not used 0 1 79 {/i exch def %i=0,79 /lamda 380 i 5 mul add def SP00 i SE00 i get lamda 560 div mul put SQ00 i SE00 i get 1120 lamda sub 560 div mul put } for %i=0,79 %C LITERATURQUELLEN SPEKTRALWERTE %C F2 CIE-DOKUMENT NR.15 FARBMESSUNG, 1971 %C TABELLE 2.1, SEITE 93-102 /F2 %3x80 data [.001368 .002236 .004243 .007650 .01431 .02319 .04351 .07763 .1344 .2148 .2839 .3285 .3483 .3481 .3362 .3187 .2908 .2511 .1954 .1421 .09564 .05795 .03201 .01470 .0049 .0024 .0093 .0291 .06327 .1096 .1655 .2257 .2904 .3597 .4334 .5121 .5945 .6784 .7621 .8425 .9163 .9786 1.0263 1.0567 1.0622 1.0456 1.0026 .9384 .8544 .7514 .6424 .5419 .4479 .3608 .2835 .2187 .1649 .1212 .0874 .0636 .04677 .03290 .02270 .01584 .01136 .00811 .00579 .004109 .002899 .002049 .001440 .0009999 .0006901 .000476 .0003323 .0002348 .0001662 .0001174 .00008308 .00005871 .000039 .000064 .00012 .000217 .000396 .00064 .00121 .00218 .004 .0073 .0116 .01684 .023 .0298 .0380 .048 .06 .0739 .09098 .1126 .139 .1693 .208 .2586 .323 .4073 .503 .6082 .71 .7932 .862 .9149 .954 .9803 .995 1.0 .995 .9786 .952 .9154 .870 .8163 .757 .6949 .631 .5668 .503 .4412 .381 .321 .265 .217 .175 .1382 .107 .0816 .061 .04458 .032 .0232 .017 .01192 .00821 .005723 .004102 .002929 .002091 .001484 .001047 .00074 .00052 .0003611 .0002492 .0001719 .00012 .0000848 .00006 .0000424 .00003 .0000212 .00645 .01055 .02005 .03621 .06785 .1102 .2074 .3713 .6456 1.0391 1.3856 1.623 1.7471 1.7826 1.7721 1.7441 1.6692 1.5281 1.2876 1.0419 .8130 .6162 .4652 .3533 .2720 .2123 .1582 .1117 .07825 .05725 .04216 .02984 .0203 .0134 .00875 .00575 .0039 .00275 .0021 .0018 .00165 .0014 .0011 .0010 .0008 .0006 .00034 .00024 .00019 .0001 .00005 .00003 .00002 .00001 % 26*0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %10 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %20 0.0 0.0 0.0 0.0 0.0 0.0 %26 ] def /F10 %3x80 data [.00016 .0006624 .002362 .007242 .01911 .0434 .08474 .1406 .2045 .2647 .3147 .3577 .3837 .3867 .3707 .343 .3023 .2541 .1956 .1323 .08051 .04107 .01617 .005132 .003816 .01544 .03746 .07136 .1177 .173 .2365 .3042 .3768 .4516 .5298 .6161 .7052 .7938 .8787 .9512 1.0142 1.0743 1.1185 1.1343 1.124 1.0891 1.0305 .9507 .8563 .7549 .6475 .5351 .4316 .3437 .2683 .2043 .1526 .1122 .08126 .05793 .04085 .02862 .019941 .01384 .0100 .006605 .004552 .003145 .002175 .001506 .001045 .0007274 .0005083 .0003564 .000251 .0001777 .0001264 .00009015 .00006453 .00004634 .00001736 .00007156 .0002534 .0007685 .002004 .004509 .008756 .01446 .02139 .0295 .03868 .0496 .06208 .0747 .08946 .1063 .1282 .1528 .1852 .2199 .2536 .2977 .3391 .3954 .4608 .5314 .6067 .6857 .7618 .8233 .8752 .9238 .962 .9822 .9918 .9991 .9973 .9824 .9555 .9152 .8689 .8256 .7774 .7203 .6583 .5939 .528 .4618 .3981 .3395 .2835 .2282 .1798 .1402 .1076 .08119 .06028 .0441 .0318 .0226 .0159 .01113 .007749 .0053751 .0037177 .002565 .001768 .001222 .0008462 .0005864 .0004074 .000284 .0001987 .0001395 .00009843 .00006982 .00004974 .00003554 .00002549 .00001834 .0007048 .002928 .01048 .03234 .08601 .1971 .3894 .6568 .9725 1.2825 1.5535 1.7985 1.9673 2.0273 1.9948 1.9007 1.7454 1.5549 1.3176 1.0302 .7721 .5701 .4152 .3024 .2185 .1592 .112 .08225 .06071 .04305 .03045 .02058 .01368 .007918 .003988 .001091 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %10 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %20 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %30 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %40 0.0 0.0 0.0 0.0 %44 ] def %calculation of transformation data %/FARBE 27 array def %/FARBE [(R) (m) ( 561_770) %00 % (Y) (m) ( 495_770) %01 % (G) (m) ( 475_573) %02 % (C) (m) ( 380_561) %03 % (B) (m) ( 380_495) %04 % (M) (m) ( 573_475) %05 % (N) (0) ( 380_770) %06 % (W) (0) ( 380_770) %07 % (W) (1) ( 380_770) %08 % ] def %/FARBE [(R) (m) ( 565_770) %00 % (Y) (m) ( 495_770) %01 % (G) (m) ( 475_575) %02 % (C) (m) ( 380_565) %03 % (B) (m) ( 380_495) %04 % (M) (m) ( 575_475) %05 % (N) (0) ( 380_770) %06 % (W) (0) ( 380_770) %07 % (W) (1) ( 380_770) %08 % ] def %calculation of transformation data /FARBE 27 array def /FARBE [(R) (d,RECS) ( ) %( 648) %00 (Y) (d,RECS) ( ) %( 720) %01 (G) (d,RECS) ( ) %( 072) %02 (C) (d,RECS) ( ) %( 080) %03 (B) (d,RECS) ( ) %( 008) %04 (M) (d,RECS) ( ) %( 656) %05 (R) (e,RECS) ( ) %06 (Y) (e,RECS) ( ) %07 (G) (e,RECS) ( ) %08 (B) (e,RECS) ( ) %09 (N) (d,RECS) ( ) %10 (W) (d,RECS) ( ) %11 (W) (1) ( 380_770) %12 ] def /xcolorl xcolor def %0 1 1 {/xcolorl exch def %xcolorl=0,1 xcolorl 1 eq {0 1 239 {/i exch def %i=0,239 F2 i F10 i get put } for %i=0,239 } if /xshift 10 array def %max 6 device + 2 device N+W /yshift 10 array def /colori 10 array def /RX10 468 array def %13x36=468 /RX10[ %r00y M512 S19 648%from KE070-7.EPS index 0..35 %380 %390 %400 %410 %420 %430 %440 %450 %460 %470 %480 %490 %500 %510 %520 %530 %540 %550 1110 0895 0672 0519 0431 0395 0385 0395 0433 0421 0392 0456 0606 0671 0579 0491 0463 0412 %560 %570 %580 %590 %600 %610 %620 %630 %640 %650 %660 %670 %680 %690 %700 %710 %720 %730 0326 0282 0480 1941 4745 6921 8006 8456 8646 8741 8794 8804 8816 8818 8836 8854 8852 8874 %y00g M0720 a19 720 1993 1705 1317 0970 0727 0618 0565 0610 0776 0906 1011 1568 3114 5449 7302 8087 8387 8536 8599 8661 8685 8726 8735 8758 8792 8817 8847 8877 8899 8892 8889 8884 8895 8908 8899 8915 %g00c M216 I01 072 0586 0806 0856 0747 0604 0542 0528 0579 0734 0851 0942 1424 2726 4389 5085 4680 3882 2955 2037 1380 1018 0844 0722 0642 0632 0650 0686 0789 0945 1042 1014 0933 0800 0699 0765 1042 %c00b M224 I09 080 1582 2651 3877 4873 5337 5910 6677 7266 7480 7542 7489 7330 7054 6601 5932 5055 4105 3100 2123 1420 1036 0855 0729 0652 0647 0670 0712 0820 0979 1075 1048 0964 0828 0731 0804 1092 %b00m M008 A09 008 0732 1175 1580 1894 2061 2295 2574 2672 2486 2167 1826 1515 1225 0932 0661 0491 0392 0279 0177 0153 0200 0356 0504 0526 0535 0551 0579 0662 0794 0877 0854 0785 0670 0588 0643 0880 %m00r M504 S27 656 2669 2489 2334 2317 2373 2494 2614 2569 2322 1965 1613 1307 1041 0783 0566 0458 0434 0381 0301 0279 0498 1945 4711 6865 7948 8404 8598 8697 8753 8768 8780 8789 8807 8829 8828 8845 %r00j %from KE070-7.EPS index 0..35 %380 %390 %400 %410 %420 %430 %440 %450 %460 %470 %480 %490 %500 %510 %520 %530 %540 %550 0134 0112 0088 0073 0064 0061 0060 0061 0063 0059 0053 0057 0068 0070 0059 0050 0047 0042 %560 %570 %580 %590 %600 %610 %620 %630 %640 %650 %660 %670 %680 %690 %700 %710 %720 %730 0033 0029 0049 0196 0476 0693 0801 0846 0865 0874 0880 0881 0882 0882 0884 0886 0886 0887 %j00g=J 0193 0164 0126 0093 0070 0060 0055 0059 0075 0086 0095 0146 0285 0487 0638 0698 0721 0730 0728 0728 0741 0789 0837 0863 0876 0882 0886 0890 0892 0891 0891 0891 0892 0894 0893 0894 %g00b=G 0076 0107 0125 0121 0109 0105 0107 0116 0135 0149 0158 0208 0331 0476 0525 0476 0394 0300 0207 0141 0104 0086 0074 0066 0065 0067 0070 0081 0097 0107 0104 0096 0082 0072 0079 0107 %b00r=B 0100 0164 0232 0283 0309 0342 0384 0407 0398 0374 0344 0313 0281 0243 0201 0164 0133 0098 0063 0042 0038 0049 0058 0057 0057 0059 0062 0072 0086 0095 0092 0085 0072 0063 0070 0095 %n000 0000 A01 000 0260 0282 0289 0299 0312 0318 0332 0337 0350 0355 0363 0368 0370 0370 0365 0356 0347 0340 0334 0334 0336 0340 0348 0358 0372 0386 0402 0422 0442 0464 0487 0516 0546 0576 0607 0635 %w000 0729 a27 729 7322 7764 8029 8251 8412 8557 8685 8784 8877 8919 8957 9002 9036 9061 9094 9087 9096 9094 9076 9103 9089 9090 9082 9096 9124 9142 9170 9196 9214 9207 9200 9197 9203 9219 9207 9223 %w100 0729 7322 7764 8029 8251 8412 8557 8685 8784 8877 8919 8957 9002 9036 9061 9094 9087 9096 9094 9076 9103 9089 9090 9082 9096 9124 9142 9170 9196 9214 9207 9200 9197 9203 9219 9207 9223 ] def /RX05 80 array def %1x80 /RX05 [ %(%W1(r=1,000) 10 380_770) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 ] def /RX0 1040 array def %13*80 0 1 11 {/j exch def %j=0,11 12 Test colours /j36 36 j mul def /j80 80 j mul def 0 1 39 {/i exch def %i=0,39 /i2 i 2 mul def RX0 j80 i2 add i 34 le {RX10 j36 i add get j 5 le {0.1 mul} if cvi put} {RX10 j36 35 add get j 5 le {0.1 mul} if cvi put} ifelse RX0 j80 i2 add 1 add i 34 le {RX10 j36 i add get RX10 j36 i add 1 add get add 0.5 mul j 5 le {0.1 mul} if cvi put } { RX10 j36 35 add get j 5 le {0.1 mul} if cvi put } ifelse } for %i=0,39 } for %j=0,8 960 1 1039 {/i exch def %i=960,1039 RX0 i RX05 i 960 sub get put } for /YKSUM 0 def %For CIE Illuminant E 0 1 79 {/i exch def %i=0,1,79 /YKSUM YKSUM F2 80 i add get add def } for %i=0,1,79 /F2N 240 array def 0 1 79 {/i exch def %i=0,1,79 F2N 00 i add F2 00 i add get YKSUM div 100 mul put F2N 80 i add F2 80 i add get YKSUM div 100 mul put F2N 160 i add F2 160 i add get YKSUM div 100 mul put } for %i=0,1,79 /FXN 80 array def %FXN 0 = F2N imax /FYN 80 array def /FZN 80 array def %defines FXN, FYN, FZN 0 to 79 0 1 79 {/i exch def %i=0,79 FXN i F2N 000 i add get put FYN i F2N 080 i add get put FZN i F2N 160 i add get put } for %i=0,79 %special wavelength range with complementary colours for E? /FXD 63 array def /FYD 63 array def /FZD 63 array def /DOW 63 array def 00 1 60 {/i exch def %i=0,60 %range 400..700nm FXD i FXN 005 i add get put FYD i FYN 005 i add get put FZD i FZN 005 i add get put DOW i 400 i 5 mul add put %range 400 to 700 } for %i=0,60 %for interpolation FXD 61 FXD 60 get put FYD 61 FYD 60 get put FZD 61 FZD 60 get put FXD 62 FXD 60 get put FYD 62 FYD 60 get put FZD 62 FZD 60 get put /FAD 63 array def /FBD 63 array def /FCD 63 array def 20 setlinewidth /xdel 1030 def /ydel 310 def /x0 600 def /TELi 8 array def /TELi [(D65) (D50) (P40) (A00) (E00) (C00) (P00) (Q00)] def %8 illuminants /Xi 79 array def %79 spectral or max 6 device colour + 4 elementary colours /Yi 79 array def %or max 6 device + 4 elementary + 3 achromatic colours /Zi 79 array def /XANi 79 array def /YANi 79 array def /ZANi 79 array def 0 1 0 {/xchart4 exch def %xchart4=0,7 /xchartl xchart def %0 1 7 {/xchartl exch def %xchartl=0,7 /K 0 def %for normalization 1, always for surface colours %/K 1 def %for normalization 0,886 gsave 5 /Times-ISOL1 FS /cvishow {cvi 6 string cvs show} def 75 85 moveto lanind cvishow (-) show colorm cvishow deintp cvishow xcolorl cvishow xchart cvishow pchart cvishow colsep cvishow (-L) show pmetam cvishow 5 /Times-ISOL1 FS 170 85 moveto (SE821-1N/TE011-) show xchart4 1 add cvishow xchart 0 ge {(N) show} if (_) show xchart 1 add cvishow %xchart 0 eq {(X) show} % {deintp colorm 2 mul add cvishow} ifelse 72 90 translate 0.010 MM dup scale 25 setlinewidth 0 0 0 0 setcmyk_olvcolor 0 0 moveto 5400 0 rlineto 0 4000 rlineto 5400 neg 0 rlineto closepath fill 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath clip 0 0 0 1 setcmyk_olvcolor 0 0 moveto 5400 0 rlineto 0 4000 rlineto 5400 neg 0 rlineto closepath stroke 0 1 79 {/i exch def %i=0,79 SDAK i xchartl 0 eq {SD65 i get} if xchartl 1 eq {SD50 i get} if xchartl 2 eq {SP40 i get} if xchartl 3 eq {SA00 i get} if xchartl 4 eq {SE00 i get} if xchartl 5 eq {SC00 i get} if xchartl 6 eq {SP00 i get} if xchartl 7 eq {SQ00 i get} if put } for %i=0,79 %STOP /YKSUM 0 def 0 1 79 {/i exch def %i=0,1,79 /YKSUM YKSUM SDAK i get F2 80 i add get mul add def } for %i=0,1,79 0 1 79 {/i exch def %i=0,1,79 F2N 00 i add SDAK i get F2 00 i add get mul YKSUM div 100 mul put F2N 80 i add SDAK i get F2 80 i add get mul YKSUM div 100 mul put F2N 160 i add SDAK i get F2 160 i add get mul YKSUM div 100 mul put } for %i=0,1,79 %STOP %XW,YW,ZW for white /XW 0 def /YW 0 def /ZW 0 def 0 1 079 {/i exch def %i=0,79 /XW XW F2N 00 i add get add def /YW YW F2N 80 i add get add def /ZW ZW F2N 160 i add get add def } for %i=0,79 /SUMW XW YW add ZW add def %for D65, D50, P40, A00, E00 /XANW XW SUMW div def /YANW YW SUMW div def /ZANW ZW SUMW div def /AANW XW YW 0.0001 add div def /BANW ZW YW 0.0001 add div 0.4 mul neg def %calculation of Xi,Yi,Zi for illuminant D65, D50, ... 0 1 11 {/k exch def %k=0,11 %12 Reflections /kx k 80 mul def 0 1 79 {/i exch def %i=0,79 RA i RX0 kx i add get 1000 div put } for %i=0,79 /X 0 def /Y 0 def /Z 0 def 0 1 079 {/i exch def %i=0,79 /X X F2N 00 i add get RA i get mul add def /Y Y F2N 80 i add get RA i get mul add def /Z Z F2N 160 i add get RA i get mul add def } for %i=0,79 Xi k X put Yi k Y put Zi k Z put /SUM X Y add Z add def XANi k X SUM 0.0001 add div put YANi k Y SUM 0.0001 add div put ZANi k Z SUM 0.0001 add div put } for %k=0,12 Xi 12 XW put Yi 12 YW put Zi 12 ZW put XANi 12 XANW put YANi 12 YANW put ZANi 12 ZANW put /XK Xi 11 get def /YK Yi 11 get def /ZK Zi 11 get def /XANK XANi 11 get def /YANK YANi 11 get def /ZANK ZANi 11 get def K 1 eq {%K=1 0 1 7 {/L exch def %L=0,7 only 0 to 7! Xi L Xi L get 0.8859 mul put Yi L Yi L get 0.8859 mul put Zi L Zi L get 0.8859 mul put } for %L=0,7 } if %K=1 /xtexti 96 array def /ytexti 96 array def /xtexti [ %T00 T10 T20 T30 T40 T41 T50 T51 T60 T61 T70 T71 %0 1 2 3 4 5 6 7 8 9 10 11 1800 1800 1800 2800 2800 4400 2800 4400 2800 4400 2800 4000 %0 0600 0600 0600 0600 0600 2200 0600 2200 0600 2200 0600 1800 %1 0700 0700 0700 0700 0700 2300 0700 2300 0700 2300 0700 1900 %2 0700 0700 0700 0700 0700 2300 0700 2300 0700 2300 0700 1900 %3 0100 0100 0100 0100 0100 1700 0100 1700 0100 1700 0100 1300 %4 0100 0100 0100 0100 0100 1700 0100 1700 0100 1700 0100 1300 %5 0100 0100 0100 0100 0100 1700 0100 1700 0100 1700 0100 1300 %6 0100 0100 0100 0100 0100 1700 0100 1700 0100 1700 0100 1300 %7 ] def /ytexti [ 3800 3580 3360 3140 2920 2920 2700 2700 2480 2480 2260 2260 %0 0500 0280 0060 1380 1160 1160 0940 0940 0720 0720 0000 0000 %1 0500 0280 0060 1380 1160 1160 0940 0940 0720 0720 0000 0000 %2 0500 0280 0060 1380 1160 1160 0940 0940 0720 0720 0000 0000 %3 0500 0280 0060 1380 1160 1160 0940 0940 0720 0720 0000 0000 %4 0500 0280 0060 1380 1160 1160 0940 0940 0720 0720 0000 0000 %5 0500 0280 0060 1380 1160 1160 0940 0940 0720 0720 0000 0000 %6 0500 0280 0060 1380 1160 1160 0940 0940 0720 0720 0000 0000 %7 ] def 0 0 0 1 setcmyk_olvcolor /xchart12 xchart4 12 mul def TBS xchart4 1 ge { %xchart4 >=1 xtexti xchart12 3 add get ytexti xchart12 3 add get 220 add moveto xchart4 1 eq {(LABCab 77) show} if xchart4 2 eq {(CIELAB 76) show} if xchart4 3 eq {(LABJNDS 87) show} if xchart4 4 eq {(LABCab 85) show} if xchart4 5 eq {(CIELAB 76) show} if xchart4 6 eq {(CIELAB D65) show} if xchart4 7 eq {(LABHNU1 79) show} if } if %xchart4 >=1 xtexti xchart12 3 add get ytexti xchart12 3 add get moveto TBS (Name der Ger\374tefarbe) showde %0TE011-7 02581 (Name of the device colour) showen %1TE011-7 02581 (Nombre de la colore de dispositivo) showes %2TE011-7 02581 (Nom de la couleur d'appareil) showfr %3TE011-7 02581 (Nome de la colori dispositivo) showit %4TE011-7 02581 (Name of the device colours) showjp %5TE011-7 02581 xtexti xchart12 4 add get ytexti xchart12 4 add get moveto TBIS FARBE 0 get show TBL 0 -40 rmoveto FARBE 1 get show 150 40 rmoveto TBIS FARBE 2 get show xtexti xchart12 5 add get ytexti xchart12 5 add get moveto TBIS FARBE 3 get show TBL 0 -40 rmoveto FARBE 4 get show 0 40 rmoveto TBIS FARBE 5 get show xtexti xchart12 6 add get ytexti xchart12 6 add get moveto TBIS FARBE 6 get show TBL 0 -40 rmoveto FARBE 7 get show 150 40 rmoveto TBIS FARBE 8 get show xtexti xchart12 7 add get ytexti xchart12 7 add get moveto TBIS FARBE 9 get show TBL 0 -40 rmoveto FARBE 10 get show 0 40 rmoveto TBIS FARBE 11 get show xtexti xchart12 8 add get ytexti xchart12 8 add get moveto TBIS FARBE 12 get show TBL 0 -40 rmoveto FARBE 13 get show 150 40 rmoveto TBIS FARBE 14 get show xtexti xchart12 9 add get ytexti xchart12 9 add get moveto TBIS FARBE 15 get show TBL 0 -40 rmoveto FARBE 16 get show 0 40 rmoveto TBIS FARBE 17 get show %xtexti xchart12 10 add get ytexti xchart12 10 add get moveto %TBIS FARBE 18 get show %TBL 0 -40 rmoveto FARBE 19 get show 0 40 rmoveto %TBIS FARBE 20 get show %xtexti xchart12 11 add get ytexti xchart12 11 add get moveto %TBIS FARBE 21 get show %TBL 0 -40 rmoveto FARBE 22 get show 0 40 rmoveto %TBIS FARBE 23 get show TBS 0 0 0 1 setcmyk_olvcolor xtexti xchart12 0 add get ytexti xchart12 0 add get moveto xtexti xchart12 0 add get ytexti xchart12 0 add get moveto (Ger\344te\255 & Elementarfarben) showde %0TE011-7 02581 (Device and elementary colours) showen %1TE011-7 02581 (Colores de dispositivo y elementales) showes %2TE011-7 02581 (couleurs d'appareil et \351l\351mentaires) showfr %3TE011-7 02581 (colori dispositivo e colori elementari) showit %4TE011-7 02581 (Device and elementary colours) showjp %5TE011-7 02581 TBIS (, Y) show TBL 0 -60 rmoveto (W) show 0 60 rmoveto TBS K 0 eq {(=100) show}{(=88,6) show} ifelse xtexti xchart12 1 add get ytexti xchart12 1 add get moveto (des) showde %0TE011-7 03581 (of the) showen %1TE011-7 03581 (de color) showes %2TE011-7 03581 (du) showfr %3TE011-7 03581 (del) showit %4TE011-7 03581 (of the) showjp %5TE011-7 03581 TBIS ( offset) show TBS (\255Farbenraums f\374r ) showde %0TE011-7 04581 ( colour space for ) showen %1TE011-7 04581 ( bajo ) showes %2TE011-7 04581 (l'espace de couleur pour ) showfr %3TE011-7 04581 ( spazio di colore per ) showit %4TE011-7 04581 ( colour space for ) showjp %5TE011-7 04581 TBS TELi xchartl get show xtexti xchart12 2 add get ytexti xchart12 2 add get moveto xchart4 0 eq {%xchart4=0 (in der Normfarbtafel) showde %0TE011-7 04581 (in the chromaticity diagram) showen %1TE011-7 04581 (en el diagrama de chromaticidad) showes %2TE011-7 04581 (dans le diagramme de chromaticit\351) showfr %3TE011-7 04581 (nel diagramma di cromaticit\340) showit %4TE011-7 04581 (in the chromaticity diagram) showjp %5TE011-7 04581 TBIS ( (x, y)) show } if %xchart4=0 xchart4 1 eq {%xchart4=1 (in der Farbtafel) showde %0TE011-7 05581 (in the chromaticity diagram) showen %1TE011-7 05581 (en el diagrama de chromaticidad) showes %2TE011-7 05581 (dans le diagramme de chromaticit\351) showfr %3TE011-7 05581 (nel diagramma di cromaticit\340) showit %4TE011-7 05581 (in the chromaticity diagram) showjp %5TE011-7 05581 TBIS ( (a, b)) show } if %xchart4=1 xchart4 2 eq {%xchart4=2 (in der Farbarbtafel) showde %0TE011-7 06581 (in the chromaticity diagram) showen %1TE011-7 06581 (en el diagrama de chromaticidad) showes %2TE011-7 06581 (dans le diagramme de chromaticit\351) showfr %3TE011-7 06581 (nel diagramma di cromaticit\340) showit %4TE011-7 06581 (in the chromaticity diagram) showjp %5TE011-7 06581 TBIS ( (a', b')) show } if %xchart4=2 xchart4 3 eq {%xchart4=3 (in der Farbarbtafel) showde %0TE011-7 07581 (in the chromaticity diagram) showen %1TE011-7 07581 (en el diagrama de chromaticidad) showes %2TE011-7 07581 (dans le diagramme de chromaticit\351) showfr %3TE011-7 07581 (nel diagramma di cromaticit\340) showit %4TE011-7 07581 (in the chromaticity diagram) showjp %5TE011-7 07581 TBIS ( (a", b")) show } if %xchart4=3 xchart4 4 eq {%xchart4=4 (in Buntwertdiagramm) showde %0TE011-7 08581 (in chromatic value diagram) showen %1TE011-7 08581 (en el diagrama valor crom\341tico) showes %2TE011-7 08581 (dans la valeur chromatique le diagramme) showfr %3TE011-7 08581 (nel diagramma di valore cromatico) showit %4TE011-7 08581 (in chromatic value diagram) showjp %5TE011-7 08581 TBIS ( (A, B)) show } if %xchart4=4 xchart4 5 eq {%xchart4=5 (in Buntheitsdiagram) showde %0TE011-7 09581 (in CIELAB diagram) showen %1TE011-7 09581 (en el diagrama CIELAB) showes %2TE011-7 09581 (dans le diagramme de CIELAB) showfr %3TE011-7 09581 (nel diagramma di CIELAB) showit %4TE011-7 09581 (in CIELAB diagram) showjp %5TE011-7 09581 TBIS ( (a*, b*)) show } if %xchart4=5 xchart4 6 eq {%xchart4=6 (in Buntheitsdiagram) showde %0TE011-7 10581 (in chroma diagram) showen %1TE011-7 10581 (en el diagrama croma) showes %2TE011-7 10581 (dans le diagramme de chroma) showfr %3TE011-7 10581 (nel diagramma di chroma) showit %4TE011-7 10581 (in chroma diagram) showjp %5TE011-7 10581 TBIS ( \050a*) show 0 -50 rmoveto TBL (D65) show 0 50 rmoveto TBS (, ) show TBIS (b*) show 0 -50 rmoveto TBL (D65) show 0 50 rmoveto TBS (\051) show } if %xchart4=6 xchart4 7 eq {%xchart4=7 (in Buntheitsdiagram) showde %0TE011-7 11581 (in chroma diagram) showen %1TE011-7 11581 (en el diagrama croma) showes %2TE011-7 11581 (dans le diagramme de chroma) showfr %3TE011-7 11581 (nel diagramma di chroma) showit %4TE011-7 11581 (in chroma diagram) showjp %5TE011-7 11581 TBIS ( (A*, B*)) show } if %xchart4=7 xchart4 0 eq {%xchart4=0 600 400 translate 0 0 moveto 4000 0 rlineto stroke 0 0 moveto 0 3200 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten TBS 0 -50 moveto 0 100 rlineto stroke 800 -50 moveto 0 100 rlineto stroke 1600 -50 moveto 0 100 rlineto stroke 2400 -50 moveto 0 100 rlineto stroke 3200 -50 moveto 0 100 rlineto stroke 4000 -50 moveto 0 100 rlineto stroke -100 -300 moveto (0,0) show 700 -300 moveto (0,2) show 1500 -300 moveto (0,4) show 2300 -300 moveto (0,6) show 3100 -300 moveto (0,8) show 3900 -300 moveto (1,0) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 800 moveto 100 0 rlineto stroke -50 1600 moveto 100 0 rlineto stroke -50 2400 moveto 100 0 rlineto stroke -50 3200 moveto 100 0 rlineto stroke -450 -80 moveto (0,0) show -450 720 moveto (0,2) show -450 1520 moveto (0,4) show -450 2320 moveto (0,6) show -450 3120 moveto (0,8) show TIM -300 2800 moveto (y) show TIM 4200 150 moveto (x) show TBIS 2600 150 moveto (CIE 1931) show -600 -400 translate %1000 02 01 16 01 .00 .0020 ******************** %ANF PROZSPEP3.FOR: MULYA= 4000 BEO=02 xy-Farbtafel IXY0: 600 400 600 400 translate 693 19 moveto 693 19 692 19 690 19 curveto 688 19 685 20 681 23 curveto 675 27 667 34 657 43 curveto 644 55 626 70 603 90 curveto 575 118 542 159 496 231 curveto 438 347 365 530 274 802 curveto 181 1179 93 1650 32 2153 curveto 15 2619 55 3000 155 3248 curveto 297 3335 456 3304 618 3223 curveto 771 3126 918 3017 1063 2897 curveto 1206 2769 1349 2635 1492 2497 curveto 1634 2358 1776 2218 1915 2080 curveto 2049 1946 2179 1817 2300 1696 curveto 2411 1585 2508 1489 2592 1405 curveto 2663 1336 2720 1278 2765 1233 curveto 2802 1197 2831 1168 2856 1143 curveto 2876 1123 2892 1107 2903 1096 curveto 2913 1086 2919 1080 2924 1075 curveto 2927 1072 2930 1069 2933 1066 curveto 2936 1063 2937 1062 2938 1061 curveto 2938 1061 2939 1060 2744 971 curveto 2261 748 2040 643 1908 582 curveto 1819 541 1758 512 1708 490 curveto 1660 468 1612 445 1558 420 curveto 1495 391 1419 356 1320 309 curveto 1184 247 986 155 693 19 curveto stroke 0 0 0 1 setcmyk_olvcolor 693 19 30 0 360 arc fill % 400 681 23 30 0 360 arc fill % 425 626 70 30 0 360 arc fill % 450 438 347 30 0 360 arc fill % 475 32 2153 30 0 360 arc fill % 500 456 3304 30 0 360 arc fill % 525 1206 2769 30 0 360 arc fill % 550 1915 2080 30 0 360 arc fill % 575 2508 1489 30 0 360 arc fill % 600 2802 1197 30 0 360 arc fill % 625 2903 1096 30 0 360 arc fill % 650 2930 1069 30 0 360 arc fill % 675 2938 1061 30 0 360 arc fill % 700 2261 748 30 0 360 arc fill %500c 1708 490 30 0 360 arc fill %525c 1419 356 30 0 360 arc fill %550c 0 0 0 1 setcmyk_olvcolor 693 19 30 0 360 arc stroke % 400 681 23 30 0 360 arc stroke % 425 626 70 30 0 360 arc stroke % 450 438 347 30 0 360 arc stroke % 475 32 2153 30 0 360 arc stroke % 500 456 3304 30 0 360 arc stroke % 525 1206 2769 30 0 360 arc stroke % 550 1915 2080 30 0 360 arc stroke % 575 2508 1489 30 0 360 arc stroke % 600 2802 1197 30 0 360 arc stroke % 625 2903 1096 30 0 360 arc stroke % 650 2930 1069 30 0 360 arc stroke % 675 2938 1061 30 0 360 arc stroke % 700 2261 748 30 0 360 arc stroke %500c 1708 490 30 0 360 arc stroke %525c 1419 356 30 0 360 arc stroke %550c % 1250 1316 30 0 360 arc fill %D65 0 0 0 1 setcmyk_olvcolor TBIS 693 375 sub 19 250 sub moveto (400) show % 681 500 sub 23 100 sub moveto (425) show % 626 500 sub 70 100 sub moveto (450) show 438 350 sub 347 200 sub moveto (475) show 32 450 sub 2153 100 sub moveto (500) show 456 100 add 3304 000 add moveto (525) show 1206 100 add 2769 000 add moveto (550) show 1915 080 sub 2080 100 add moveto (575) show 2508 100 add 1489 000 add moveto (600) show 2802 100 add 1197 100 add moveto (625) show % 2903 200 sub 1096 100 add moveto (650) show % 2930 200 sub 1069 100 add moveto (675) show 2938 100 add 1061 100 sub moveto (700) show 2261 100 add 748 200 sub moveto (500c,E) show 1708 100 add 490 200 sub moveto (525c,E) show 1419 000 add 356 250 sub moveto (550c,E) show % 1250 100 add 1316 100 sub moveto (D65 ) show -600 -400 translate %ENDE: 1 } if %xchart4=0 xchart4 1 eq {%xchart4=1 500 3200 translate 0 400 moveto 4000 0 rlineto stroke 0 400 moveto 0 -3600 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten TBS 0 350 moveto 0 100 rlineto stroke 800 350 moveto 0 100 rlineto stroke 1600 350 moveto 0 100 rlineto stroke 2400 350 moveto 0 100 rlineto stroke 3200 350 moveto 0 100 rlineto stroke 4000 350 moveto 0 100 rlineto stroke -150 500 moveto (-0,8) show 650 500 moveto (0,0) show 1450 500 moveto (0,8) show 2250 500 moveto (1,6) show 3050 500 moveto (2,4) show 3850 500 moveto (3,2) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 -800 moveto 100 0 rlineto stroke -50 -1600 moveto 100 0 rlineto stroke -50 -2400 moveto 100 0 rlineto stroke -50 -3200 moveto 100 0 rlineto stroke -450 -100 moveto ( 0,0) show -450 -900 moveto (-0,8) show -450 -1700 moveto (-1,6) show %-450 -2500 moveto (-2,4) show -175 -3050 moveto 90 rotate TBIK (b) show TBK (=-0,40) show TBIK (z/y) show -90 rotate 3650 100 moveto TBIK (a=x/y) show -500 -3200 translate %1000 02 01 16 01-.03**************************************** %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 1300 3200 translate % 36136 -68535 moveto % 36136 -68535 36234 -68875 35958 -68561 curveto % 35610 -68128 33600 -64560 29424 -56936 curveto % 24474 -47779 19507 -38551 15143 -30384 curveto % 11681 -23927 8847 -18653 6639 -14534 curveto % 4846 -11128 3397 -8271 2147 -5661 curveto 1261 -3701 moveto 1261 -3701 688 -2339 342 -1455 curveto 153 -894 56 -546 15 -336 curveto 5 -208 18 -125 47 -73 curveto 89 -44 138 -28 191 -19 curveto 246 -13 304 -8 366 -5 curveto 435 -3 512 -2 597 -1 curveto 693 -1 800 0 920 0 curveto 1053 0 1198 0 1355 0 curveto 1520 0 1683 0 1844 0 curveto 1993 0 2126 0 2242 0 curveto 2340 0 2424 0 2497 0 curveto 2559 0 2610 0 2649 0 curveto 2680 0 2703 0 2718 0 curveto 2731 0 2741 0 2751 0 curveto 2760 0 2764 0 2767 0 curveto 2769 0 2770 0 2824 -116 curveto 3023 -529 3168 -817 3275 -1036 curveto 3357 -1209 3430 -1349 3482 -1469 curveto 3545 -1597 3622 -1746 3704 -1922 curveto 3817 -2156 3983 -2496 4262 -3058 curveto % 4786 -4149 6341 -7346 35775 -67850 curveto stroke 0 0 0 1 setcmyk_olvcolor % 36136 -68535 30 0 360 arc fill % 400 % 29424 -56936 30 0 360 arc fill % 425 % 8847 -18653 30 0 360 arc fill % 450 1261 -3701 30 0 360 arc fill % 475 15 -336 30 0 360 arc fill % 500 138 -28 30 0 360 arc fill % 525 435 -3 30 0 360 arc fill % 550 920 0 30 0 360 arc fill % 575 1683 0 30 0 360 arc fill % 600 2340 0 30 0 360 arc fill % 625 2649 0 30 0 360 arc fill % 650 2741 0 30 0 360 arc fill % 675 2769 0 30 0 360 arc fill % 700 3023 -529 30 0 360 arc fill %500c 3482 -1469 30 0 360 arc fill %525c 3983 -2496 30 0 360 arc fill %550c 0 0 0 1 setcmyk_olvcolor % 36136 -68535 30 0 360 arc stroke % 400 % 29424 -56936 30 0 360 arc stroke % 425 % 8847 -18653 30 0 360 arc stroke % 450 1261 -3701 30 0 360 arc stroke % 475 15 -336 30 0 360 arc stroke % 500 138 -28 30 0 360 arc stroke % 525 435 -3 30 0 360 arc stroke % 550 920 0 30 0 360 arc stroke % 575 1683 0 30 0 360 arc stroke % 600 2340 0 30 0 360 arc stroke % 625 2649 0 30 0 360 arc stroke % 650 2741 0 30 0 360 arc stroke % 675 2769 0 30 0 360 arc stroke % 700 3023 -529 30 0 360 arc stroke %500c 3482 -1469 30 0 360 arc stroke %525c 3983 -2496 30 0 360 arc stroke %550c % 950 -435 30 0 360 arc fill %D65 0 0 0 1 setcmyk_olvcolor TBIS % 36136 500 sub -68535 100 sub moveto (400) show % 29424 500 sub -56936 100 sub moveto (425) show % 8847 500 sub -18653 100 sub moveto (450) show % 1261 500 sub -3701 100 sub moveto (475) show 15 400 sub -336 100 sub moveto (500) show % 138 200 sub -28 100 add moveto (525) show 435 200 sub -3 100 add moveto (550) show % 920 200 sub 0 100 add moveto (575) show 1683 200 sub 0 100 add moveto (600) show 2340 200 sub 0 100 add moveto (625) show % 2649 200 sub 0 100 add moveto (650) show % 2741 200 sub 0 100 add moveto (675) show 2769 100 add 0 150 sub moveto (700) show 3023 100 add -529 100 sub moveto (500c,E) show 3482 800 sub -1469 050 sub moveto (525c,E) show % 3983 500 sub -2496 100 sub moveto (550c,E) show % 950 100 add -435 100 sub moveto (D65 ) show -1300 -3200 translate %ENDE: 2 } if %xchart4=1 xchart4 2 eq {%xchart4=2 600 3200 translate 0 400 moveto 4400 0 rlineto stroke 0 400 moveto 0 -3600 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten TBS 000 350 moveto 0 100 rlineto stroke 0800 350 moveto 0 100 rlineto stroke 1600 350 moveto 0 100 rlineto stroke 2400 350 moveto 0 100 rlineto stroke 3200 350 moveto 0 100 rlineto stroke 4000 350 moveto 0 100 rlineto stroke -200 500 moveto (0,00) show 600 500 moveto (0,06) show 1400 500 moveto (0,12) show 2200 500 moveto (0,18) show 3000 500 moveto (0,24) show 3800 500 moveto (0,30) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 -800 moveto 100 0 rlineto stroke -50 -1600 moveto 100 0 rlineto stroke -50 -2400 moveto 100 0 rlineto stroke -50 -3200 moveto 100 0 rlineto stroke -575 -100 moveto ( 0,00) show -575 -900 moveto (-0,06) show -575 -1700 moveto (-0,12) show -575 -2500 moveto (-0,18) show TIM -380 -1300 moveto (b') show 4300 250 moveto (a') show -600 -3200 translate %1000 02 01 16 01 .00 .0020 ******************** %ANF PROZSPEP3.FOR: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 400 3200 translate 9657 -6202 moveto 9657 -6202 9666 -6212 9642 -6203 curveto 9610 -6190 9426 -6080 9018 -5830 curveto 8481 -5499 7863 -5120 7227 -4729 curveto 6628 -4367 6041 -4019 5490 -3698 curveto 4943 -3383 4391 -3065 3769 -2701 curveto 3156 -2344 2578 -2012 2043 -1717 curveto 1565 -1460 1123 -1239 723 -1054 curveto 527 -898 772 -759 1060 -634 curveto 1304 -535 1510 -464 1685 -408 curveto 1832 -356 1965 -309 2091 -267 curveto 2214 -230 2337 -200 2460 -176 curveto 2585 -157 2712 -145 2841 -139 curveto 2972 -138 3103 -133 3233 -126 curveto 3359 -126 3475 -120 3582 -113 curveto 3676 -98 3756 -91 3823 -88 curveto 3878 -75 3924 -64 3963 -57 curveto 3995 -54 4022 -46 4042 0 curveto 4057 0 4069 0 4077 0 curveto 4083 0 4088 0 4093 0 curveto 4097 0 4100 0 4101 0 curveto 4102 0 4103 0 4129 -740 curveto 4224 -1226 4290 -1417 4338 -1533 curveto 4374 -1614 4405 -1674 4427 -1723 curveto 4454 -1771 4486 -1825 4520 -1884 curveto 4565 -1958 4630 -2056 4736 -2200 curveto 4923 -2435 5407 -2946 9625 -6181 curveto stroke 0 0 0 1 setcmyk_olvcolor 9657 -6202 30 0 360 arc fill % 400 9018 -5830 30 0 360 arc fill % 425 6041 -4019 30 0 360 arc fill % 450 3156 -2344 30 0 360 arc fill % 475 723 -1054 30 0 360 arc fill % 500 1510 -464 30 0 360 arc fill % 525 2214 -230 30 0 360 arc fill % 550 2841 -139 30 0 360 arc fill % 575 3475 -120 30 0 360 arc fill % 600 3878 -75 30 0 360 arc fill % 625 4042 0 30 0 360 arc fill % 650 4088 0 30 0 360 arc fill % 675 4102 0 30 0 360 arc fill % 700 4224 -1226 30 0 360 arc fill %500c 4427 -1723 30 0 360 arc fill %525c 4630 -2056 30 0 360 arc fill %550c 0 0 0 1 setcmyk_olvcolor 9657 -6202 30 0 360 arc stroke % 400 9018 -5830 30 0 360 arc stroke % 425 6041 -4019 30 0 360 arc stroke % 450 3156 -2344 30 0 360 arc stroke % 475 723 -1054 30 0 360 arc stroke % 500 1510 -464 30 0 360 arc stroke % 525 2214 -230 30 0 360 arc stroke % 550 2841 -139 30 0 360 arc stroke % 575 3475 -120 30 0 360 arc stroke % 600 3878 -75 30 0 360 arc stroke % 625 4042 0 30 0 360 arc stroke % 650 4088 0 30 0 360 arc stroke % 675 4102 0 30 0 360 arc stroke % 700 4224 -1226 30 0 360 arc stroke %500c 4427 -1723 30 0 360 arc stroke %525c 4630 -2056 30 0 360 arc stroke %550c % 2872 -1148 30 0 360 arc fill %D65 0 0 0 1 setcmyk_olvcolor TBIS % 9657 500 sub -6202 100 sub moveto (400) show % 9018 500 sub -5830 100 sub moveto (425) show % 6041 500 sub -4019 100 sub moveto (450) show 3156 400 sub -2344 100 sub moveto (475) show 723 250 sub -1054 250 sub moveto (500) show 1510 200 sub -464 150 add moveto (525) show 2214 200 sub -230 100 add moveto (550) show 2841 200 sub -139 100 add moveto (575) show 3475 200 sub -120 100 add moveto (600) show % 3878 200 sub -75 100 add moveto (625) show % 4042 200 sub 0 100 add moveto (650) show % 4088 200 sub 0 100 add moveto (675) show 4102 050 add 0 100 sub moveto (700) show 4224 050 add -1226 000 sub moveto (500c,E) show 4427 010 sub -1723 100 add moveto (525c,E) show % 4630 100 add -2056 100 sub moveto (550c,E) show % 2872 050 add -1148 000 sub moveto (D65 ) show -400 -3200 translate %ENDE: 3 } if %xchart4=2 xchart4 3 eq {%xchart4=3 600 3200 translate 0 400 moveto 4400 0 rlineto stroke 0 400 moveto 0 -3500 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten TBS 0 350 moveto 0 100 rlineto stroke 800 350 moveto 0 100 rlineto stroke 1600 350 moveto 0 100 rlineto stroke 2400 350 moveto 0 100 rlineto stroke 3200 350 moveto 0 100 rlineto stroke 4000 350 moveto 0 100 rlineto stroke -250 500 moveto (-0,6) show 650 500 moveto (0,0) show 1450 500 moveto (0,6) show 2250 500 moveto (1,2) show 3050 500 moveto (1,8) show 3850 500 moveto (2,4) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 -800 moveto 100 0 rlineto stroke -50 -1600 moveto 100 0 rlineto stroke -50 -2400 moveto 100 0 rlineto stroke -50 -3200 moveto 100 0 rlineto stroke -450 -100 moveto ( 0,0) show -450 -900 moveto (-0,6) show -450 -1700 moveto (-1,2) show -450 -2500 moveto (-1,8) show TBIK -450 -2900 moveto (b") show TBS -120 -125 rmoveto (s) show 120 125 rmoveto TBIK 4050 200 moveto (a") show TBS -120 -125 rmoveto (s) show 120 125 rmoveto TBIK -600 -3200 translate %1000 02 **************************************** %ANF PROZSPEP.FOR: MULYA= 1333 BEO=02 a"b" LABJND 1985 IXY0: 700 3200 700 800 add 3200 translate 3789 -3170 moveto 3789 -3170 3789 -3170 3788 -3170 curveto 3787 -3170 3779 -3166 3757 -3155 curveto 3724 -3138 3673 -3113 3603 -3079 curveto 3514 -3037 3394 -2982 3239 -2915 curveto 3028 -2826 2734 -2704 2265 -2508 curveto 1626 -2234 957 -1880 645 -1481 curveto 507 -1078 443 -720 417 -455 curveto 411 -308 419 -223 437 -171 curveto 464 -144 496 -130 533 -121 curveto 573 -115 616 -111 664 -108 curveto 721 -107 787 -105 867 -105 curveto 963 -104 1081 -104 1227 -104 curveto 1397 -104 1561 -104 1716 -104 curveto 1858 -104 1981 -104 2090 -104 curveto 2180 -104 2254 -104 2313 -104 curveto 2360 -103 2397 -103 2429 -103 curveto 2455 -103 2476 -103 2491 -103 curveto 2503 -103 2512 -103 2517 -103 curveto 2522 -103 2526 -103 2530 -103 curveto 2533 -103 2535 -103 2536 -103 curveto 2536 -103 2537 -103 2556 -214 curveto 2623 -700 2668 -1007 2700 -1196 curveto 2723 -1324 2742 -1416 2756 -1488 curveto 2772 -1560 2791 -1636 2811 -1717 curveto 2837 -1813 2873 -1933 2929 -2093 curveto 3019 -2313 3211 -2648 3788 -3169 curveto stroke 1 setgray 3789 -3170 30 0 360 arc fill % 400 3757 -3155 30 0 360 arc fill % 425 3394 -2982 30 0 360 arc fill % 450 1626 -2234 30 0 360 arc fill % 475 417 -455 30 0 360 arc fill % 500 496 -130 30 0 360 arc fill % 525 721 -107 30 0 360 arc fill % 550 1227 -104 30 0 360 arc fill % 575 1981 -104 30 0 360 arc fill % 600 2360 -103 30 0 360 arc fill % 625 2491 -103 30 0 360 arc fill % 650 2526 -103 30 0 360 arc fill % 675 2536 -103 30 0 360 arc fill % 700 2623 -700 30 0 360 arc fill %500c 2756 -1488 30 0 360 arc fill %525c 2873 -1933 30 0 360 arc fill %550c 0 setgray 3789 -3170 30 0 360 arc stroke % 400 3757 -3155 30 0 360 arc stroke % 425 3394 -2982 30 0 360 arc stroke % 450 1626 -2234 30 0 360 arc stroke % 475 417 -455 30 0 360 arc stroke % 500 496 -130 30 0 360 arc stroke % 525 721 -107 30 0 360 arc stroke % 550 1227 -104 30 0 360 arc stroke % 575 1981 -104 30 0 360 arc stroke % 600 2360 -103 30 0 360 arc stroke % 625 2491 -103 30 0 360 arc stroke % 650 2526 -103 30 0 360 arc stroke % 675 2536 -103 30 0 360 arc stroke % 700 2623 -700 30 0 360 arc stroke %500c 2756 -1488 30 0 360 arc stroke %525c 2873 -1933 30 0 360 arc stroke %550c 1266 -580 30 0 360 arc fill %D65 0 setgray TBIS 3789 200 sub -3170 200 add moveto (400) show % 3757 600 sub -3155 100 sub moveto (425) show % 3394 600 sub -2982 100 sub moveto (450) show 1626 050 sub -2234 150 add moveto (475) show 417 430 sub -455 100 sub moveto (500) show 496 400 sub -130 50 add moveto (525) show 721 200 sub -107 100 add moveto (550) show 1227 200 sub -104 100 add moveto (575) show 1981 200 sub -104 100 add moveto (600) show % 2360 200 sub -103 100 add moveto (625) show % 2491 200 sub -103 100 add moveto (650) show % 2526 200 sub -103 100 add moveto (675) show 2536 100 add -103 moveto (700) show 2623 100 add -700 100 sub moveto (500c) show 2756 100 add -1488 100 sub moveto (525c) show % 2873 100 add -1933 100 sub moveto (550c) show % 1266 100 add -580 100 sub moveto (D65 ) show 700 800 add neg -3200 translate %ENDE: 3 } if %xchart4=3 xchart4 4 ge xchart4 7 le and {%4>=xchart4<=7 3500 2000 translate %axis and scales 0 0 0 1 setcmyk_olvcolor -2250 0 moveto 3950 0 rlineto stroke 0 -1880 moveto 0 3600 rlineto stroke 1700 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 /xt10x 5 array def /yt10x 5 array def xchart4 4 eq {%xchart4=4 /xt10x [(-40) ( ) ( ) ( ) ( 40)] def /yt10x [(-40) ( ) ( ) ( ) (40)] def } if %xchart4=3 xchart4 5 ge xchart4 7 le and {%5>=xchart4<=7 /xt10x [(-120) ( ) ( ) ( ) ( 120)] def /yt10x [(-120) ( ) ( ) ( ) (120)] def } if %4>=xchart4<=6 0 0 0 1 setcmyk_olvcolor 0 1 4 {/i exch def %i=0,4 x-axis -1600 i 800 mul add -75 moveto 0 150 rlineto stroke -1800 i 800 mul add -250 moveto TBS xt10x i get show i 4 eq {-1600 i 800 mul add 0 moveto xchart4 4 eq { %xchart4=4 000 150 rmoveto TBIM (A) show TL } if %xchart4=4 xchart4 5 eq { %xchart4=5 -50 150 rmoveto TBIM (a*) show TL } if %xchart4=5 xchart4 6 eq { %xchart4=6 -350 150 rmoveto TBIM (a*) show -40 -50 rmoveto TBL (D65) show 0 50 rmoveto TL } if %xchart4=6 xchart4 7 eq { %xchart4=7 -50 150 rmoveto TBIM (A*) show TL } if %xchart4=7 } if } for %i=0,4 0 1 4 {/i exch def %i=0,4 y-axis -75 -1600 i 800 mul add moveto 150 0 rlineto stroke 100 -1600 i 800 mul add 100 sub moveto TBS yt10x i get show i 4 eq {0 -1600 i 800 mul add moveto xchart4 4 eq { %xchart4=4 -250 150 rmoveto TBIM (B) show TL } if %xchart4=4 xchart4 5 eq { %xchart4=5 -400 150 rmoveto TBIM (b*) show TL } if %xchart4=5 xchart4 6 eq { %xchart4=6 -750 150 rmoveto TBIM (b*) show -40 -50 rmoveto TBL (D65) show 0 50 rmoveto TL } if %xchart4=6 xchart4 7 eq { %xchart4=7 -300 150 rmoveto TBIM (B*) show TL } if %xchart4=7 } if } for %i=0,4 -3500 -2000 translate } if %4>=xchart4<=7 %******************************************************* %actual data /imshow {0 -50 rmoveto TBL (d) show 0 50 rmoveto TBIS} def /ioshow {0 -50 rmoveto TBL (e) show 0 50 rmoveto TBIS} def %/ie 0 def %only device colours /ie 1 def %with elementary colours %************************************************* xchart4 0 eq {%xchart4=0 %only for (x,y) /fakt 4000 def 600 400 translate %for scala and graphic 0 1 05 {/i exch def %i=0,39 XANi i get fakt mul YANi i get fakt mul i 0 eq {moveto} if i 1 ge i 04 le and {lineto} if i 05 eq {lineto closepath stroke} if } for %i=0,39 ie 1 eq {%ie=1 0 1 05 {/i exch def %i=0,39 XANW fakt mul YANW fakt mul moveto XANi i get fakt mul YANi i get fakt mul lineto stroke } for %i=0,39 } if %ie=1 XANW fakt mul YANW fakt mul 90 0 360 arc stroke XANW fakt mul 200 sub YANW fakt mul 250 sub moveto %TBS TELi xchartl get show TBIS 0 1 9 {/i exch def %i=0,9 /SUM Xi i get Yi i get add Zi i get add 0.0001 add def /AnY Xi i get SUM div fakt mul def /BnY Yi i get SUM div fakt mul def i 0 eq {AnY 100 sub BnY 250 sub moveto %(R) show imshow 0 1 1 0 setcmykcolor} if %Rm i 1 eq {AnY 100 sub BnY 250 sub moveto %(Y) show imshow 0 0 1 0 setcmykcolor} if %Ym i 2 eq {AnY 350 sub BnY 150 sub moveto %(G) show imshow 1 0 1 0 setcmykcolor} if %Gm i 3 eq {AnY 350 sub BnY 050 sub moveto %(C) show imshow 1 0 0 0 setcmykcolor} if %Cm i 4 eq {AnY 000 add BnY 200 add moveto %(B) show imshow 1 1 0 0 setcmykcolor} if %Bm i 5 eq {AnY 150 add BnY 050 sub moveto %(M) show imshow 0 1 0 0 setcmykcolor} if %Mm ie 1 eq {%ie=1 i 6 eq {AnY 100 sub BnY 250 sub moveto (R) show ioshow 0 1 1 0 setcmykcolor} if %Rm i 7 eq {AnY 100 sub BnY 250 sub moveto (Y) show ioshow 0 0 1 0 setcmykcolor} if %Ym i 8 eq {AnY 350 sub BnY 050 sub moveto (G) show ioshow 1 0 1 0 setcmykcolor} if %Gm i 9 eq {AnY 350 sub BnY 050 add moveto (B) show ioshow 1 1 0 0 setcmykcolor} if %Bm } if %ie=1 newpath AnY BnY i 5 le {50}{90} ifelse 0 360 arc fill 0 setgray newpath AnY BnY i 5 le {50}{90} ifelse 0 360 arc stroke } for %i=0,9 -600 -400 translate %for scala and grafic } if %xchart4=0 xchart4 1 eq {%xchart4=1 %only for (a,b) /fakt 1000 def /a2 XW YW 0.0001 add div def /b2 ZW YW 0.0001 add div -0.4 mul def 1300 3200 translate %for grafic 0 1 05 {/i exch def %i=0,39 Xi i get Yi i get 0.0001 add div fakt mul %a Zi i get Yi i get 0.0001 add div fakt mul %b 0.4 mul neg i 0 eq {moveto} if i 1 ge i 04 le and {lineto} if i 05 eq {lineto closepath stroke} if } for %i=0,39 ie 1 eq {%ie=1 0 1 05 {/i exch def %i=0,39 XW YW 0.0001 add div fakt mul ZW YW 0.0001 add div fakt mul 0.4 mul neg moveto Xi i get Yi i get 0.0001 add div fakt mul %a Zi i get Yi i get 0.0001 add div fakt mul %b 0.4 mul neg lineto stroke } for %i=0,39 } if %ie=1 XW YW 0.0001 add div fakt mul ZW YW 0.0001 add div fakt mul 0.4 mul neg i 5 le {50}{90} ifelse 0 360 arc stroke XW YW 0.0001 add div fakt mul 200 sub ZW YW 0.0001 add div fakt mul 0.4 mul neg 250 sub moveto %TBS TELi xchartl get show TBIS 0 1 9 {/i exch def %i=0,9 /AnY Xi i get Yi i get 0.0001 add div fakt mul def /BnY Zi i get Yi i get 0.0001 add div fakt mul 0.4 mul neg def i 0 eq {AnY 150 add BnY 100 sub moveto %(R) show imshow 0 1 1 0 setcmykcolor} if %Rm i 1 eq {AnY 100 sub BnY 200 add moveto %(Y) show imshow 0 0 1 0 setcmykcolor} if %Ym i 2 eq {AnY 350 sub BnY 250 sub moveto %(G) show imshow 1 0 1 0 setcmykcolor} if %Gm i 3 eq {AnY 350 sub BnY 050 sub moveto %(C) show imshow 1 0 0 0 setcmykcolor} if %Cm i 4 eq {AnY 150 add BnY 050 sub moveto %(B) show imshow 1 1 0 0 setcmykcolor} if %Bm i 5 eq {AnY 150 add BnY 050 sub moveto %(M) show imshow 0 1 0 0 setcmykcolor} if %Mm ie 1 eq {%ie=1 i 6 eq {AnY 150 add BnY 100 sub moveto (R) show imshow 0 1 1 0 setcmykcolor} if %Rm i 7 eq {AnY 050 sub BnY 150 add moveto (Y) show imshow 0 0 1 0 setcmykcolor} if %Ym i 8 eq {AnY 350 sub BnY 050 sub moveto (G) show imshow 1 0 1 0 setcmykcolor} if %Gm i 9 eq {AnY 350 sub BnY 050 add moveto (B) show imshow 1 1 0 0 setcmykcolor} if %Bm } if %ie=1 newpath AnY BnY i 5 le {50}{90} ifelse 0 360 arc fill 0 setgray newpath AnY BnY i 5 le {50}{90} ifelse 0 360 arc stroke } for %i=0,9 -1300 -3200 translate %for grafic } if %xchart4=1 xchart4 2 eq {%xchart4=2 %only for (a',b') /D13 1 3 div def /fakt 13333 def /a2 XW YW 0.0001 add div D13 exp 0.2191 mul def /b2 ZW YW 0.0001 add div D13 exp -0.08376 mul def 200 3200 translate %for graphic 0 1 05 {/i exch def %i=0,39 Xi i get Yi i get 0.0001 add div %a' D13 exp 0.2191 mul fakt mul Zi i get Yi i get 0.0001 add div %b' D13 exp -0.08376 mul fakt mul i 0 eq {moveto} if i 1 ge i 04 le and {lineto} if i 05 eq {lineto closepath stroke} if } for %i=0,39 ie 1 eq {%ie=1 0 1 05 {/i exch def %i=0,39 XW YW 0.0001 add div %a' D13 exp 0.2191 mul fakt mul ZW YW 0.0001 add div %b' D13 exp -0.08376 mul fakt mul moveto Xi i get Yi i get 0.0001 add div %a' D13 exp 0.2191 mul fakt mul Zi i get Yi i get 0.0001 add div %b' D13 exp -0.08376 mul fakt mul lineto stroke } for %i=0,39 } if %ie=1 XW YW 0.0001 add div %a' D13 exp 0.2191 mul fakt mul ZW YW 0.0001 add div %b' D13 exp -0.08376 mul fakt mul i 5 le {50}{90} ifelse 0 360 arc stroke XW YW 0.0001 add div %a' D13 exp 0.2191 mul fakt mul 200 sub ZW YW 0.0001 add div %b' D13 exp -0.08376 mul fakt mul 250 sub moveto %TBS TELi xchartl get show TBIS 0 1 9 {/i exch def %i=0,9 /AnY Xi i get Yi i get 0.0001 add div %a' D13 exp 0.2191 mul fakt mul def /BnY Zi i get Yi i get 0.0001 add div %b' D13 exp -0.08376 mul fakt mul def i 0 eq {AnY 150 add BnY 100 sub moveto %(R) show imshow 0 1 1 0 setcmykcolor} if %Rm i 1 eq {AnY 100 sub BnY 200 add moveto %(Y) show imshow 0 0 1 0 setcmykcolor} if %Ym i 2 eq {AnY 350 sub BnY 150 sub moveto %(G) show imshow 1 0 1 0 setcmykcolor} if %Gm i 3 eq {AnY 350 sub BnY 050 sub moveto %(C) show imshow 1 0 0 0 setcmykcolor} if %Cm i 4 eq {AnY 150 add BnY 050 sub moveto %(B) show imshow 1 1 0 0 setcmykcolor} if %Bm i 5 eq {AnY 150 add BnY 050 sub moveto %(M) show imshow 0 1 0 0 setcmykcolor} if %Mm ie 1 eq {%ie=1 i 6 eq {AnY 150 add BnY 050 sub moveto (R) show ioshow 0 1 1 0 setcmykcolor} if %Rm i 7 eq {AnY 050 sub BnY 150 add moveto (Y) show ioshow 0 0 1 0 setcmykcolor} if %Ym i 8 eq {AnY 350 sub BnY 050 sub moveto (G) show ioshow 1 0 1 0 setcmykcolor} if %Gm i 9 eq {AnY 050 sub BnY 250 sub moveto (B) show ioshow 1 1 0 0 setcmykcolor} if %Bm } if %ie=1 newpath AnY BnY i 5 le {50}{90} ifelse 0 360 arc fill 0 setgray newpath AnY BnY i 5 le {50}{90} ifelse 0 360 arc stroke } for %i=0,9 -200 -3200 translate %for graphic } if %xchart4=2 xchart4 3 eq {%xchart4=3 %only for (a",b") %100 3800 moveto TIS ((a",b") (LAB 1977)) show /fakt 1333 def /XD65 95.04 def /YD65 100.00 def /ZD65 108.89 def /aD65 XD65 YD65 0.0001 add div def /bD65 ZD65 YD65 0.0001 add div -0.4 mul def /a2 aD65 def /b2 bD65 def 700 800 add 3200 translate %for grafic 0 1 05 {/i exch def %i=0,39 /a Xi i get Yi i get 0.0001 add div def /an XK YK 0.0001 add div def /b Zi i get Yi i get 0.0001 add div 0.4 mul neg def /bn ZK YK 0.0001 add div 0.4 mul neg def /a" an a an sub 1 a an sub abs 0.5 mul add div add def /b" bn b bn sub 1 b bn sub abs 0.5 mul add div add def a" fakt mul b" fakt mul /a"n an def /b"n bn def i 0 eq {moveto} if i 1 ge i 04 le and {lineto} if i 05 eq {lineto closepath stroke} if } for %i=0,39 ie 1 eq {%ie=1 0 1 05 {/i exch def %i=0,39 /a Xi i get Yi i get 0.0001 add div def /an XK YK 0.0001 add div def /b Zi i get Yi i get 0.0001 add div 0.4 mul neg def /bn ZK YK 0.0001 add div 0.4 mul neg def an fakt mul bn fakt mul moveto /a" an a an sub 1 a an sub abs 0.5 mul add div add def /b" bn b bn sub 1 b bn sub abs 0.5 mul add div add def a" fakt mul b" fakt mul /a"n an def /b"n bn def lineto stroke } for %i=0,39 } if %ie=1 a"n fakt mul b"n fakt mul i 5 le {50}{90} ifelse 0 360 arc stroke a"n fakt mul 200 sub b"n fakt mul 250 sub moveto %TBS TELi xchartl get show TBIS 0 1 9 {/i exch def %i=0,9 /a Xi i get Yi i get 0.0001 add div def /an XK YK 0.0001 add div def /b Zi i get Yi i get 0.0001 add div 0.4 mul neg def /bn ZK YK 0.0001 add div 0.4 mul neg def /a" an a an sub 1 a an sub abs 0.5 mul add div add def /b" bn b bn sub 1 b bn sub abs 0.5 mul add div add def a" fakt mul b" fakt mul /a"n an def /b"n bn def /AnY a" fakt mul def /BnY b" fakt mul def i 0 eq {AnY 150 add BnY 100 sub moveto %(R) show imshow 0 1 1 0 setcmykcolor} if %Rm i 1 eq {AnY 100 sub BnY 250 sub moveto %(Y) show imshow 0 0 1 0 setcmykcolor} if %Ym i 2 eq {AnY 350 sub BnY 250 sub moveto %(G) show imshow 1 0 1 0 setcmykcolor} if %Gm i 3 eq {AnY 350 sub BnY 050 sub moveto %(C) show imshow 1 0 0 0 setcmykcolor} if %Cm i 4 eq {AnY 150 add BnY 050 sub moveto %(B) show imshow 1 1 0 0 setcmykcolor} if %Bm i 5 eq {AnY 150 add BnY 050 sub moveto %(M) show imshow 0 1 0 0 setcmykcolor} if %Mm ie 1 eq {%ie=1 i 6 eq {AnY 150 add BnY 150 sub moveto (R) show ioshow 0 1 1 0 setcmykcolor} if %Rm i 7 eq {AnY 100 sub BnY 250 sub moveto (Y) show ioshow 0 0 1 0 setcmykcolor} if %Ym i 8 eq {AnY 300 sub BnY 250 sub moveto (G) show ioshow 1 0 1 0 setcmykcolor} if %Gm i 9 eq {AnY 050 sub BnY 150 add moveto (B) show ioshow 1 1 0 0 setcmykcolor} if %Bm } if %ie=1 newpath AnY BnY i 5 le {50}{90} ifelse 0 360 arc fill 0 setgray newpath AnY BnY i 5 le {50}{90} ifelse 0 360 arc stroke } for %i=0,9 700 800 add neg -3200 translate %for graphic } if %xchart4=3 xchart4 4 eq {%xchart4=4 %only for (A,B) /fakt 40 def /a2 1.00 def /b2 -0.4 def 3500 2000 translate %for text and grafic -3400 1800 moveto TBIS (XYZ) show TBL (w) show TBS (=) show XK cvsshow5 (, ) show YK cvsshow5 (, ) show ZK cvsshow2 -3400 1550 moveto TBIS (A) show TBS ( = \050) show TBIS (a) show TBS ( - ) show TBIS (a) show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (\051 ) show TBIS (Y) show -3400 1300 moveto TBIS (B) show TBS ( = \050) show TBIS (b) show TBS ( - ) show TBIS (b) show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (\051 ) show TBIS (Y) show -3400 1050 moveto TBIS (a) show TBS ( = ) show TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( [) show TBIS (x/y) show TBS (]) show -3400 800 moveto TBIS (b) show TBS ( = ) show TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( [) show TBIS (z/y) show TBS (]) show -3400 550 moveto TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( = 1) show -3400 300 moveto TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( = -0,4) show -3400 050 moveto TBIS (n) show TBS ( = ) show TELi xchartl get show 0 1 05 {/i exch def %i=0,39 Xi i get Yi i get 0.0001 add div %(a-an)Y XK YK 0.0001 add div sub Yi i get mul fakt mul Zi i get Yi i get 0.0001 add div %(b-bn)Y ZK YK 0.0001 add div sub 0.4 mul neg Yi i get mul fakt mul i 0 eq {moveto} if i 1 ge i 04 le and {lineto} if i 05 eq {lineto closepath stroke} if } for %i=0,39 ie 1 eq {%ie=1 0 1 05 {/i exch def %i=0,39 0 0 moveto Xi i get Yi i get 0.0001 add div %(a-an)Y XK YK 0.0001 add div sub Yi i get mul fakt mul Zi i get Yi i get 0.0001 add div %(b-bn)Y ZK YK 0.0001 add div sub 0.4 mul neg Yi i get mul fakt mul lineto stroke } for %i=0,39 } if %ie=1 XW YW 0.0001 add div %(a-an)YW XK YK 0.0001 add div sub YW mul fakt mul ZW YW 0.0001 add div %(b-an)YW ZK YK 0.0001 add div sub 0.4 mul neg YW mul fakt mul i 5 le {50}{90} ifelse 0 360 arc stroke 0 080 add 0 080 add moveto %TBS TELi xchartl get show TBIS 0 1 9 {/i exch def %i=0,9 /AnY Xi i get Yi i get 0.0001 add div %(a-an)Y XK YK 0.0001 add div sub Yi i get mul fakt mul def /BnY Zi i get Yi i get 0.0001 add div %(b-bn)Y ZK YK 0.0001 add div sub 0.4 mul neg Yi i get mul fakt mul def i 0 eq {AnY 150 add BnY 050 sub moveto %(R) show imshow 0 1 1 0 setcmykcolor} if %Rm i 1 eq {AnY 100 sub BnY 200 add moveto %(Y) show imshow 0 0 1 0 setcmykcolor} if %Ym i 2 eq {AnY 350 sub BnY 150 sub moveto %(G) show imshow 1 0 1 0 setcmykcolor} if %Gm i 3 eq {AnY 350 sub BnY 050 sub moveto %(C) show imshow 1 0 0 0 setcmykcolor} if %Cm i 4 eq {AnY 050 sub BnY 250 sub moveto %(B) show imshow 1 1 0 0 setcmykcolor} if %Bm i 5 eq {AnY 150 add BnY 100 sub moveto %(M) show imshow 0 1 0 0 setcmykcolor} if %Mm ie 1 eq {%ie=1 i 6 eq {AnY 150 add BnY 150 sub moveto (R) show ioshow 0 1 1 0 setcmykcolor} if %Rm i 7 eq {AnY 100 sub BnY 150 add moveto (Y) show ioshow 0 0 1 0 setcmykcolor} if %Ym i 8 eq {AnY 300 sub BnY 000 add moveto (G) show ioshow 1 0 1 0 setcmykcolor} if %Gm i 9 eq {AnY 000 add BnY 250 sub moveto (B) show ioshow 1 1 0 0 setcmykcolor} if %Bm } if %ie=1 newpath AnY BnY i 5 le {50}{90} ifelse 0 360 arc fill 0 setgray newpath AnY BnY i 5 le {50}{90} ifelse 0 360 arc stroke } for %i=0,9 } if %xchart4=4 xchart4 5 eq {%xchart4=5 %only for (a*,b*) /D13 1 3 div def /fakt 40 3 div def /a2 1 XW div D13 exp def /b2 1 ZW div D13 exp -0.4 mul def 3500 2000 translate %for text and grafic -3400 1800 moveto TBIS (XYZ) show TBL (w) show TBS (=) show XK cvsshow5 (, ) show YK cvsshow5 (, ) show ZK cvsshow2 -3400 1550 moveto TBIS (a*) show TBS ( = 500 \050) show TBIS (a') show TBS ( - ) show TBIS (a') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (\051 ) show TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 1300 moveto TBIS (b*) show TBS ( = 500 \050) show TBIS (b') show TBS ( - ) show TBIS (b') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (\051 ) show TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 1050 moveto TBIS (a) show TBS ( = ) show TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( [) show TBIS (x/y) show TBS (]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 800 moveto TBIS (b) show TBS ( = ) show TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( [) show TBIS (z/y) show TBS (]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 550 moveto TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS (=[1/) show TBIS (X) show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto TBS (=) show a2 cvsshow4 -3400 300 moveto TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS (=-[1/) show TBIS (Z) show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto TBS (=) show b2 cvsshow5 -3400 050 moveto TBIS (n) show TBS ( = ) show TELi xchartl get show 0 1 05 {/i exch def %i=0,39 Xi i get Yi i get 0.0001 add div %500(a'-a'n)Y**(1/3) D13 exp a2 mul %a'= a2 (x/y)**(1/3) XK YK 0.0001 add div D13 exp a2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul Zi i get Yi i get 0.0001 add div %500(b'-b'n)Y**(1/3) D13 exp b2 mul %b' = b2 (z/y)**(1/3) ZK YK 0.0001 add div D13 exp b2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul i 0 eq {moveto} if i 1 ge i 04 le and {lineto} if i 05 eq {lineto closepath stroke} if } for %i=0,39 ie 1 eq {%ie=1 0 1 05 {/i exch def %i=0,39 0 0 moveto Xi i get Yi i get 0.0001 add div %500(a'-a'n)Y**(1/3) D13 exp a2 mul %a'= a2 (x/y)**(1/3) XK YK 0.0001 add div D13 exp a2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul Zi i get Yi i get 0.0001 add div %500(b'-b'n)Y**(1/3) D13 exp b2 mul %b' = b2 (z/y)**(1/3) ZK YK 0.0001 add div D13 exp b2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul lineto stroke } for %i=0,39 } if %ie=1 XW YW 0.0001 add div D13 exp a2 mul XK YK 0.0001 add div D13 exp a2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul ZW YW 0.0001 add div D13 exp b2 mul ZK YK 0.0001 add div D13 exp b2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul i 5 le {50}{90} ifelse 0 360 arc stroke XW YW 0.0001 add div D13 exp a2 mul XK YK 0.0001 add div D13 exp a2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul 080 add ZW YW 0.0001 add div D13 exp b2 mul ZK YK 0.0001 add div D13 exp b2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul 080 add moveto %TBS TELi xchartl get show TBIS 0 1 9 {/i exch def %i=0,9 /AnY Xi i get Yi i get 0.0001 add div %500(a'-a'n)Y**(1/3) D13 exp a2 mul %a'= a2 (x/y)**(1/3) XK YK 0.0001 add div D13 exp a2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def /BnY Zi i get Yi i get 0.0001 add div %500(b'-b'n)Y**(1/3) D13 exp b2 mul %b'= b2 (x/y)**(1/3) ZK YK 0.0001 add div D13 exp b2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def i 0 eq {AnY 150 add BnY 050 sub moveto %(R) show imshow 0 1 1 0 setcmykcolor} if %Rm i 1 eq {AnY 100 sub BnY 200 add moveto %(Y) show imshow 0 0 1 0 setcmykcolor} if %Ym i 2 eq {AnY 350 sub BnY 050 sub moveto %(G) show imshow 1 0 1 0 setcmykcolor} if %Gm i 3 eq {AnY 350 sub BnY 050 sub moveto %(C) show imshow 1 0 0 0 setcmykcolor} if %Cm i 4 eq {AnY 050 sub BnY 250 sub moveto %(B) show imshow 1 1 0 0 setcmykcolor} if %Bm i 5 eq {AnY 150 add BnY 100 sub moveto %(M) show imshow 0 1 0 0 setcmykcolor} if %Mm ie 1 eq {%ie=1 i 6 eq {AnY 150 add BnY 050 sub moveto (R) show ioshow 0 1 1 0 setcmykcolor} if %Rm i 7 eq {AnY 050 sub BnY 150 add moveto (Y) show ioshow 0 0 1 0 setcmykcolor} if %Ym i 8 eq {AnY 350 sub BnY 150 sub moveto (G) show ioshow 1 0 1 0 setcmykcolor} if %Gm i 9 eq {AnY 100 add BnY 250 sub moveto (B) show ioshow 1 1 0 0 setcmykcolor} if %Bm } if %ie=1 newpath AnY BnY i 5 le {50}{90} ifelse 0 360 arc fill 0 setgray newpath AnY BnY i 5 le {50}{90} ifelse 0 360 arc stroke } for %i=0,9 -3500 -2000 translate %for text and grafic } if %xchart4=5 xchart4 6 eq {%xchart4=6 %only for (a*,b*) with const. for D65 /D13 1 3 div def /fakt 40 3 div def /a2 0.2191 def /b2 -0.08376 def 3500 2000 translate %for text and grafic -3400 1800 moveto TBIS (XYZ) show TBL (w) show TBS (=) show XK cvsshow5 (, ) show YK cvsshow5 (, ) show ZK cvsshow2 -3400 1550 moveto TBIS (a*) show TBS ( = 500 \050) show TBIS (a') show TBS ( - ) show TBIS (a') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (\051 ) show TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 1300 moveto TBIS (b*) show TBS ( = 500 \050) show TBIS (b') show TBS ( - ) show TBIS (b') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (\051 ) show TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 1050 moveto TBIS (a') show TBS ( = ) show TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( [) show TBIS (x/y) show TBS (]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 800 moveto TBIS (b') show TBS ( = ) show TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( [) show TBIS (z/y) show TBS (]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 550 moveto TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS (=[1/) show TBIS (X) show 0 -50 rmoveto TBL (D65) show 0 50 rmoveto TBS (]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto TBS (=) show a2 cvsshow4 -3400 300 moveto TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS (=-[1/) show TBIS (Z) show 0 -50 rmoveto TBL (D65) show 0 50 rmoveto TBS (]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto TBS (=) show b2 cvsshow5 -3400 050 moveto TBIS (n) show TBS ( = ) show TELi xchartl get show 0 1 05 {/i exch def %i=0,39 Xi i get Yi i get 0.0001 add div %500(a'-a'n)Y**(1/3) D13 exp a2 mul %a'= a2 (x/y)**(1/3) XK YK 0.0001 add div D13 exp a2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul Zi i get Yi i get 0.0001 add div %500(b'-b'n)Y**(1/3) D13 exp b2 mul %b'= b2 (z/y)**(1/3) ZK YK 0.0001 add div D13 exp b2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul i 0 eq {moveto} if i 1 ge i 04 le and {lineto} if i 05 eq {lineto closepath stroke} if } for %i=0,39 ie 1 eq {%ie=1 0 1 05 {/i exch def %i=0,39 0 0 moveto Xi i get Yi i get 0.0001 add div %500(a'-a'n)Y**(1/3) D13 exp a2 mul %a'= a2 (x/y)**(1/3) XK YK 0.0001 add div D13 exp a2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul Zi i get Yi i get 0.0001 add div %500(b'-b'n)Y**(1/3) D13 exp b2 mul %b'= b2 (z/y)**(1/3) ZK YK 0.0001 add div D13 exp b2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul lineto stroke } for %i=0,39 } if %ie=1 XW YW 0.0001 add div D13 exp a2 mul XK YK 0.0001 add div D13 exp a2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul ZW YW 0.0001 add div D13 exp b2 mul ZK YK 0.0001 add div D13 exp b2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul i 5 le {50}{90} ifelse 0 360 arc stroke XW YW 0.0001 add div %500(a'-a'n)Y**(1/3) D13 exp a2 mul %a'= a2 (x/y)**(1/3) XK YK 0.0001 add div D13 exp a2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul 080 add ZW YW 0.0001 add div %500(b'-b'n)Y**(1/3) D13 exp b2 mul %a'= a2 (x/y)**(1/3) ZK YK 0.0001 add div D13 exp b2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul 080 add moveto %TBS TELi xchartl get show TBIS 0 1 9 {/i exch def %i=0,9 /AnY Xi i get Yi i get 0.0001 add div D13 exp a2 mul XK YK 0.0001 add div D13 exp a2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def /BnY Zi i get Yi i get 0.0001 add div D13 exp b2 mul ZK YK 0.0001 add div D13 exp b2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def i 0 eq {AnY 150 add BnY 050 sub moveto %(R) show imshow 0 1 1 0 setcmykcolor} if %Rm i 1 eq {AnY 100 sub BnY 200 add moveto %(Y) show imshow 0 0 1 0 setcmykcolor} if %Ym i 2 eq {AnY 350 sub BnY 150 sub moveto %(G) show imshow 1 0 1 0 setcmykcolor} if %Gm i 3 eq {AnY 350 sub BnY 050 sub moveto %(C) show imshow 1 0 0 0 setcmykcolor} if %Cm i 4 eq {AnY 050 sub BnY 250 sub moveto %(B) show imshow 1 1 0 0 setcmykcolor} if %Bm i 5 eq {AnY 150 add BnY 100 sub moveto %(M) show imshow 0 1 0 0 setcmykcolor} if %Mm ie 1 eq {%ie=1 i 6 eq {AnY 150 add BnY 050 sub moveto (R) show ioshow 0 1 1 0 setcmykcolor} if %Rm i 7 eq {AnY 100 sub BnY 150 add moveto (Y) show ioshow 0 0 1 0 setcmykcolor} if %Ym i 8 eq {AnY 350 sub BnY 050 sub moveto (G) show ioshow 1 0 1 0 setcmykcolor} if %Gm i 9 eq {AnY 000 add BnY 250 sub moveto (B) show ioshow 1 1 0 0 setcmykcolor} if %Bm } if %ie=1 newpath AnY BnY i 5 le {50}{90} ifelse 0 360 arc fill 0 setgray newpath AnY BnY i 5 le {50}{90} ifelse 0 360 arc stroke } for %i=0,9 -3500 -2000 translate %for text and grafic } if %xchart4=6 xchart4 7 eq {%xchart4=7 %only for (a*,b*)D65 /D13 1 3 div def /D11 1 def /D16 1 6 div def /fakt 40 3 div def /a2 1 15 div def /b2 1 12 div neg def 3500 2000 translate %for text and grafic -3400 1800 moveto TBIS (XYZ) show TBL (w) show TBS (=) show XK cvsshow5 (, ) show YK cvsshow5 (, ) show ZK cvsshow2 -3400 1550 moveto TBIS (a*) show TBS ( = 500 \050) show TBIS (a') show TBS ( - ) show TBIS (a') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (\051 ) show TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 1300 moveto TBIS (b*) show TBS ( = 500 \050) show TBIS (b') show TBS ( - ) show TBIS (b') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (\051 ) show TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 1050 moveto TBIS (a) show TBS ( = ) show TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( [) show TBIS (x/y) show TBS ( + 1]) show -3400 800 moveto TBIS (b) show TBS ( = ) show TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( [) show TBIS (z/y) show TBS ( + 1/6 ]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto TBS -3400 550 moveto TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( = 1/15 = ) show a2 cvsshow5 -3400 300 moveto TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( = -1/12 = ) show b2 cvsshow5 -3400 050 moveto TBIS (n) show TBS ( = ) show TELi xchartl get show 0 1 05 {/i exch def %i=0,39 Xi i get Yi i get 0.0001 add div %500(a'-a'n)Y**(1/3) D11 add a2 mul %a'=(x/y+1)/15 XK YK 0.0001 add div D11 add a2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul Zi i get Yi i get 0.0001 add div %500(b'-b'n)Y**(1/3) D16 add D13 exp b2 mul %b'=-[(z/y +1/6)**(1/3)]/12 ZK YK 0.0001 add div D16 add D13 exp b2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul i 0 eq {moveto} if i 1 ge i 04 le and {lineto} if i 05 eq {lineto closepath stroke} if } for %i=0,39 ie 1 eq {%ie=1 0 1 05 {/i exch def %i=0,39 0 0 moveto Xi i get Yi i get 0.0001 add div %500(a'-a'n)Y**(1/3) D11 add a2 mul %a'=(x/y+1)/15 XK YK 0.0001 add div D11 add a2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul Zi i get Yi i get 0.0001 add div %500(b'-b'n)Y**(1/3) D16 add D13 exp b2 mul %b'=-[(z/y +1/6)**(1/3)]/12 ZK YK 0.0001 add div D16 add D13 exp b2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul lineto stroke } for %i=0,39 } if %ie=1 XW YW 0.0001 add div D11 add a2 mul XK YK 0.0001 add div D11 add a2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul ZW YW 0.0001 add div D16 add D13 exp b2 mul ZK YK 0.0001 add div D16 add D13 exp b2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul i 5 le {50}{90} ifelse 0 360 arc stroke XW YW 0.0001 add div D11 add a2 mul XK YK 0.0001 add div D11 add a2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul 080 add ZW YW 0.0001 add div D16 add D13 exp b2 mul ZK YK 0.0001 add div D16 add D13 exp b2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul 080 add moveto %TBS TELi xchartl get show TBIS 0 1 09 {/i exch def %i=0,9 /AnY Xi i get Yi i get 0.0001 add div %500(a'-a'n)Y**(1/3) D11 add a2 mul %a'=(x/y+1)/15 XK YK 0.0001 add div D11 add a2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def /BnY Zi i get Yi i get 0.0001 add div %500(b'-b'n)Y**(1/3) D16 add D13 exp b2 mul %b'=-[(z/y +1/6)**(1/3)]/12 ZK YK 0.0001 add div D16 add D13 exp b2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def i 0 eq {AnY 150 add BnY 100 sub moveto %(R) show imshow 0 1 1 0 setcmykcolor} if %Rm i 1 eq {AnY 100 sub BnY 250 add moveto %(Y) show imshow 0 0 1 0 setcmykcolor} if %Ym i 2 eq {AnY 350 sub BnY 150 sub moveto %(G) show imshow 1 0 1 0 setcmykcolor} if %Gm i 3 eq {AnY 350 sub BnY 050 sub moveto %(C) show imshow 1 0 0 0 setcmykcolor} if %Cm i 4 eq {AnY 050 sub BnY 250 sub moveto %(B) show imshow 1 1 0 0 setcmykcolor} if %Bm i 5 eq {AnY 150 add BnY 100 sub moveto %(M) show imshow 0 1 0 0 setcmykcolor} if %Mm ie 1 eq {%ie=1 i 6 eq {AnY 150 add BnY 050 sub moveto (R) show ioshow 0 1 1 0 setcmykcolor} if %Rm i 7 eq {AnY 100 sub BnY 150 add moveto (Y) show ioshow 0 0 1 0 setcmykcolor} if %Ym i 8 eq {AnY 350 sub BnY 050 sub moveto (G) show ioshow 1 0 1 0 setcmykcolor} if %Gm i 9 eq {AnY 000 add BnY 250 sub moveto (B) show ioshow 1 1 0 0 setcmykcolor} if %Bm } if %ie=1 newpath AnY BnY i 5 le {50}{90} ifelse 0 360 arc fill 0 setgray newpath AnY BnY i 5 le {50}{90} ifelse 0 360 arc stroke } for %i=0,9 -3500 -2000 translate %for text and grafic } if %xchart4=7 showpage grestore %} for %xchartl=0,7 } for %xchart4=0,7 %} for %xcolorl=0,1 %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 020 MM translate 12 /Times-ISOL1 FS -9 MM -7 MM moveto ( ) show 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 28 %line 499 %!PS-Adobe-3.0 EPSF-3.0 TE011-1N %%BoundingBox: 70 83 228 206 %START PDFDE011.EPS /pdfmark11 where {pop} {userdict /pdfmark11 /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/TE01/) /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:2013090112000) /ModDate (D:2013090112000) /DOCINFO pdfmark11 [ /View [ /FitB ] /DOCVIEW pdfmark11 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /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 /Courier findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Courier-ISOL1 exch definefont pop /Courier-Oblique findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierI-ISOL1 exch definefont pop /Courier-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierB-ISOL1 exch definefont pop /Courier-BoldOblique findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierBI-ISOL1 exch definefont pop /TG {350 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TL {160 /Times-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIL {160 /TimesI-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBL {160 /TimesB-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIL {160 /TimesBI-ISOL1 FS} bind def /SG {350 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SK {240 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SL {160 /Symbol FS} bind def %%EndProlog gsave %lanindL2.EPS START 20000505 /lanind 0 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showea {1 lanind le {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 1 def /lanind2 1 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 0 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 8 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % colorm 0 eq deintp 0 eq and {/Txx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def} if %colorm=1, deintp=1 xchart xchart3 lt {/Txx (-) def} if %always independent of intended output gsave %LANINDL2 END /cvishow {cvi 6 string cvs show ( ) show} def /cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show ( ) show} def /cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show ( ) show} def /cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show ( ) show} def /cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show ( ) show} def /cvsshow5 {100000 mul cvi 0.00001 mul 9 string cvs show ( ) show} def /SD65 80 array def %380 bis 775 mit deltalambda=05 /SD50 80 array def %380 bis 775 mit deltalambda=05 /SP40 80 array def %380 bis 775 mit deltalambda=05 /SA00 80 array def %380 bis 775 mit deltalambda=05 /SE00 80 array def %380 bis 775 mit deltalambda=05 /SC00 80 array def %380 bis 775 mit deltalambda=05 /SP00 80 array def %380 bis 775 mit deltalambda=05 /SQ00 80 array def %380 bis 775 mit deltalambda=05 /SDAK 80 array def %380 bis 775 mit deltalambda=05 /RA 80 array def %380 bis 770 nm /F2 240 array def %3 x 80 Daten fuer Bereich 380 bis 770nm /F2N 240 array def %normiert auf Y=100 fuer D65 und 10nm /F10 240 array def %3 x 80 Daten fuer Bereich 380 bis 770nm %C %C LITERATURQUELLEN LICHTARTEN %C SA,SC,SD65, CIE-DOKUMENT NR.15 FARBMESSUNG, 1971 %C TABELLE 1.1.1, SEITE 81 %C SD55,SD75, CIE-DOKUMENT NR.15 FARBMESSUNG, 1971 %C TABELLE 1.1.4, SEITE 85 %C LINEAR INTERPOLIERT VON 5 ZU 5NM %C SG,SP,SXE, DIN 5033, BLATT 7 ,SEITE 8-9 %C AUSGABE 1966 /SD65 %80 data 5 nm [50.0 52.3 54.6 68.7 82.8 87.1 91.5 92.5 93.4 90.1 86.7 95.8 104.9 110.9 117.0 117.4 117.8 116.3 114.9 115.4 115.9 112.4 108.8 109.1 109.4 108.6 107.8 106.3 104.8 106.2 107.7 106.0 104.4 104.2 104.0 102.0 100.0 98.2 96.3 96.1 95.8 92.2 88.7 89.3 90.0 89.8 89.6 88.6 87.7 85.5 83.3 83.5 83.7 81.9 80.0 80.1 80.2 81.2 82.3 80.3 78.3 74.0 69.7 70.7 71.6 73.0 74.3 68.0 61.6 65.7 69.9 72.5 75.1 69.3 63.6 55.0 46.4 56.6 66.8 65.1] def /SD50 %80 data 5 nm CIE 15.3, Seite 30; aus JE540-1N.PS [24.5 27.2 29.9 39.6 49.3 52.9 56.5 58.3 60.0 58.9 57.8 66.3 74.8 81.0 87.2 88.9 90.6 91.0 91.4 93.2 95.1 93.5 92.0 93.8 95.7 96.2 96.6 96.8 97.1 99.6 102.1 101.4 100.8 101.5 102.3 101.2 100.0 98.9 97.7 98.3 98.9 96.2 93.5 95.6 97.7 98.5 99.3 99.2 99.0 97.4 95.7 97.3 98.9 97.3 95.7 96.9 98.2 100.6 103.0 101.1 99.1 93.3 87.4 89.5 91.6 92.2 92.9 84.9 76.9 81.7 86.5 89.5 92.6 85.4 78.2 68.0 57.7 70.3 82.9 0.0] def %0.0 not used /SA00 %80 data 5 nm CIE 15.3 Seite 30; aus JE540-1N.PS [9.80 10.90 12.09 13.35 14.71 16.15 17.68 19.29 20.99 22.79 24.67 26.64 28.70 30.85 33.09 35.41 37.81 40.30 42.87 45.52 48.24 51.04 53.91 56.85 59.86 62.93 66.06 69.25 72.50 75.79 79.13 82.52 85.95 89.41 92.91 96.44 100.00 103.58 107.18 110.80 114.44 118.08 121.73 125.39 129.04 132.70 136.35 139.99 143.62 147.24 150.84 154.42 157.98 161.52 165.03 168.51 171.96 175.38 178.77 182.12 185.43 188.70 191.93 195.12 198.26 201.36 204.41 207.41 210.36 213.27 216.12 218.92 221.67 224.36 227.00 229.59 232.12 234.59 237.01 239.37 0.0] def %0.0 not used % AUS BILDPLA.FOR aus vrbam/wrpos:KRPROG.FOR, 5987-6023 5.10.92 %C PROGRAMM ZUR BERECHNUNG DER RELATIVEN SPEKTRALEN STRAHLUNGSVERTEI- %C LUNG EINES HOHLRAUMSTRAHLERS ALS FUNKTION DER WELLENLAENGE LAMDA %C BEI GEGEBENER TEMPERATUR T %C VERWENDETE VARIABLE %C T TEMPERATUR %C C2 PLANCKSCHE KONSTANTE (=1.4388 CM K (1967)) %C LAMDA(I) WELLENLAENGE %C S(I) STRAHLUNGSVERTEILUNG DES HOHLRAUMSTRAHLERS %C %C LITERATUR OFFIZIELLE EMPFEHLUNGEN DER CIE,DEUTSCHE VERSION, %C CA. 1969, SEITE 21 UND TABELLE 1.1.1 %C %SDP4 80 array def %380 bis 775 mit deltalambda=05 % DO 50 I=1,54 % 50 S(I)=100. % 1*(560./FLOAT(LAMDA(I)))**5 % 2*(EXP(C2/(560.*10.**(-7)*T))-1.) % 3/(EXP(C2/(FLOAT(LAMDA(I))*10.**(-7)*T))-1.) %new CIE 15.3:2004, Eq. (3.1) page 2 %S(I) = [100{560/lambda}**5] [exp{(c2*10**7)/(TNC*560 )} - 1] % /[exp{(c2*10**7)/(TNC*lambda)} - 1] % exp = e {...} = 2.71 {...} %/TNC 2848 def %NLA /TNC 4000 def /EE 2.718281 def %e=mac pocket calculator /C2 1.4350000 10 7 exp mul def /lamd 80 array def 0 1 79 {%i=0,79 /i exch def /lambda 380 i 5 mul add def lamd i lambda put /E1 560 lambda div 5 exp def /E4 C2 TNC 560 mul div def /E5 C2 TNC lambda mul div def /E6 EE E4 exp def /E7 EE E5 exp def SP40 i E1 100 mul E6 1 sub E7 1 sub div mul put } for %i=0,79 /xex 10 2 exp def /yex EE 2 exp def /SE00 %80 data 5 nm [100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0] def %0.0 not used /SC00 %80 data 5 nm [ 33.00 39.92 47.40 55.17 63.30 71.81 80.60 89.53 98.10 105.80 112.40 117.75 121.50 123.45 124.00 123.60 123.10 123.30 123.80 124.09 123.90 122.92 120.70 116.90 112.10 106.98 102.30 98.81 96.90 96.78 98.00 99.94 102.10 103.95 105.20 105.67 105.30 104.11 102.30 100.15 97.80 95.43 93.20 91.22 89.70 88.83 88.40 88.19 88.10 88.06 88.00 87.86 87.80 87.99 88.20 88.20 87.90 87.22 86.30 85.30 84.00 82.21 80.20 78.24 76.30 74.36 72.40 70.40 68.30 66.30 64.40 62.80 61.50 60.20 59.20 58.50 58.10 58.00 58.20 58.50 ] def %0.0 not used 0 1 79 {/i exch def %i=0,79 /lamda 380 i 5 mul add def SP00 i SE00 i get lamda 560 div mul put SQ00 i SE00 i get 1120 lamda sub 560 div mul put } for %i=0,79 %C LITERATURQUELLEN SPEKTRALWERTE %C F2 CIE-DOKUMENT NR.15 FARBMESSUNG, 1971 %C TABELLE 2.1, SEITE 93-102 /F2 %3x80 data [.001368 .002236 .004243 .007650 .01431 .02319 .04351 .07763 .1344 .2148 .2839 .3285 .3483 .3481 .3362 .3187 .2908 .2511 .1954 .1421 .09564 .05795 .03201 .01470 .0049 .0024 .0093 .0291 .06327 .1096 .1655 .2257 .2904 .3597 .4334 .5121 .5945 .6784 .7621 .8425 .9163 .9786 1.0263 1.0567 1.0622 1.0456 1.0026 .9384 .8544 .7514 .6424 .5419 .4479 .3608 .2835 .2187 .1649 .1212 .0874 .0636 .04677 .03290 .02270 .01584 .01136 .00811 .00579 .004109 .002899 .002049 .001440 .0009999 .0006901 .000476 .0003323 .0002348 .0001662 .0001174 .00008308 .00005871 .000039 .000064 .00012 .000217 .000396 .00064 .00121 .00218 .004 .0073 .0116 .01684 .023 .0298 .0380 .048 .06 .0739 .09098 .1126 .139 .1693 .208 .2586 .323 .4073 .503 .6082 .71 .7932 .862 .9149 .954 .9803 .995 1.0 .995 .9786 .952 .9154 .870 .8163 .757 .6949 .631 .5668 .503 .4412 .381 .321 .265 .217 .175 .1382 .107 .0816 .061 .04458 .032 .0232 .017 .01192 .00821 .005723 .004102 .002929 .002091 .001484 .001047 .00074 .00052 .0003611 .0002492 .0001719 .00012 .0000848 .00006 .0000424 .00003 .0000212 .00645 .01055 .02005 .03621 .06785 .1102 .2074 .3713 .6456 1.0391 1.3856 1.623 1.7471 1.7826 1.7721 1.7441 1.6692 1.5281 1.2876 1.0419 .8130 .6162 .4652 .3533 .2720 .2123 .1582 .1117 .07825 .05725 .04216 .02984 .0203 .0134 .00875 .00575 .0039 .00275 .0021 .0018 .00165 .0014 .0011 .0010 .0008 .0006 .00034 .00024 .00019 .0001 .00005 .00003 .00002 .00001 % 26*0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %10 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %20 0.0 0.0 0.0 0.0 0.0 0.0 %26 ] def /F10 %3x80 data [.00016 .0006624 .002362 .007242 .01911 .0434 .08474 .1406 .2045 .2647 .3147 .3577 .3837 .3867 .3707 .343 .3023 .2541 .1956 .1323 .08051 .04107 .01617 .005132 .003816 .01544 .03746 .07136 .1177 .173 .2365 .3042 .3768 .4516 .5298 .6161 .7052 .7938 .8787 .9512 1.0142 1.0743 1.1185 1.1343 1.124 1.0891 1.0305 .9507 .8563 .7549 .6475 .5351 .4316 .3437 .2683 .2043 .1526 .1122 .08126 .05793 .04085 .02862 .019941 .01384 .0100 .006605 .004552 .003145 .002175 .001506 .001045 .0007274 .0005083 .0003564 .000251 .0001777 .0001264 .00009015 .00006453 .00004634 .00001736 .00007156 .0002534 .0007685 .002004 .004509 .008756 .01446 .02139 .0295 .03868 .0496 .06208 .0747 .08946 .1063 .1282 .1528 .1852 .2199 .2536 .2977 .3391 .3954 .4608 .5314 .6067 .6857 .7618 .8233 .8752 .9238 .962 .9822 .9918 .9991 .9973 .9824 .9555 .9152 .8689 .8256 .7774 .7203 .6583 .5939 .528 .4618 .3981 .3395 .2835 .2282 .1798 .1402 .1076 .08119 .06028 .0441 .0318 .0226 .0159 .01113 .007749 .0053751 .0037177 .002565 .001768 .001222 .0008462 .0005864 .0004074 .000284 .0001987 .0001395 .00009843 .00006982 .00004974 .00003554 .00002549 .00001834 .0007048 .002928 .01048 .03234 .08601 .1971 .3894 .6568 .9725 1.2825 1.5535 1.7985 1.9673 2.0273 1.9948 1.9007 1.7454 1.5549 1.3176 1.0302 .7721 .5701 .4152 .3024 .2185 .1592 .112 .08225 .06071 .04305 .03045 .02058 .01368 .007918 .003988 .001091 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %10 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %20 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %30 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %40 0.0 0.0 0.0 0.0 %44 ] def %calculation of transformation data %/FARBE 27 array def %/FARBE [(R) (m) ( 561_770) %00 % (Y) (m) ( 495_770) %01 % (G) (m) ( 475_573) %02 % (C) (m) ( 380_561) %03 % (B) (m) ( 380_495) %04 % (M) (m) ( 573_475) %05 % (N) (0) ( 380_770) %06 % (W) (0) ( 380_770) %07 % (W) (1) ( 380_770) %08 % ] def %/FARBE [(R) (m) ( 565_770) %00 % (Y) (m) ( 495_770) %01 % (G) (m) ( 475_575) %02 % (C) (m) ( 380_565) %03 % (B) (m) ( 380_495) %04 % (M) (m) ( 575_475) %05 % (N) (0) ( 380_770) %06 % (W) (0) ( 380_770) %07 % (W) (1) ( 380_770) %08 % ] def %calculation of transformation data /FARBE 27 array def /FARBE [(R) (d,RECS) ( ) %( 648) %00 (Y) (d,RECS) ( ) %( 720) %01 (G) (d,RECS) ( ) %( 072) %02 (C) (d,RECS) ( ) %( 080) %03 (B) (d,RECS) ( ) %( 008) %04 (M) (d,RECS) ( ) %( 656) %05 (R) (e,RECS) ( ) %06 (Y) (e,RECS) ( ) %07 (G) (e,RECS) ( ) %08 (B) (e,RECS) ( ) %09 (N) (d,RECS) ( ) %10 (W) (d,RECS) ( ) %11 (W) (1) ( 380_770) %12 ] def /xcolorl xcolor def %0 1 1 {/xcolorl exch def %xcolorl=0,1 xcolorl 1 eq {0 1 239 {/i exch def %i=0,239 F2 i F10 i get put } for %i=0,239 } if /xshift 10 array def %max 6 device + 2 device N+W /yshift 10 array def /colori 10 array def /RX10 468 array def %13x36=468 /RX10[ %r00y M512 S19 648%from KE070-7.EPS index 0..35 %380 %390 %400 %410 %420 %430 %440 %450 %460 %470 %480 %490 %500 %510 %520 %530 %540 %550 1110 0895 0672 0519 0431 0395 0385 0395 0433 0421 0392 0456 0606 0671 0579 0491 0463 0412 %560 %570 %580 %590 %600 %610 %620 %630 %640 %650 %660 %670 %680 %690 %700 %710 %720 %730 0326 0282 0480 1941 4745 6921 8006 8456 8646 8741 8794 8804 8816 8818 8836 8854 8852 8874 %y00g M0720 a19 720 1993 1705 1317 0970 0727 0618 0565 0610 0776 0906 1011 1568 3114 5449 7302 8087 8387 8536 8599 8661 8685 8726 8735 8758 8792 8817 8847 8877 8899 8892 8889 8884 8895 8908 8899 8915 %g00c M216 I01 072 0586 0806 0856 0747 0604 0542 0528 0579 0734 0851 0942 1424 2726 4389 5085 4680 3882 2955 2037 1380 1018 0844 0722 0642 0632 0650 0686 0789 0945 1042 1014 0933 0800 0699 0765 1042 %c00b M224 I09 080 1582 2651 3877 4873 5337 5910 6677 7266 7480 7542 7489 7330 7054 6601 5932 5055 4105 3100 2123 1420 1036 0855 0729 0652 0647 0670 0712 0820 0979 1075 1048 0964 0828 0731 0804 1092 %b00m M008 A09 008 0732 1175 1580 1894 2061 2295 2574 2672 2486 2167 1826 1515 1225 0932 0661 0491 0392 0279 0177 0153 0200 0356 0504 0526 0535 0551 0579 0662 0794 0877 0854 0785 0670 0588 0643 0880 %m00r M504 S27 656 2669 2489 2334 2317 2373 2494 2614 2569 2322 1965 1613 1307 1041 0783 0566 0458 0434 0381 0301 0279 0498 1945 4711 6865 7948 8404 8598 8697 8753 8768 8780 8789 8807 8829 8828 8845 %r00j %from KE070-7.EPS index 0..35 %380 %390 %400 %410 %420 %430 %440 %450 %460 %470 %480 %490 %500 %510 %520 %530 %540 %550 0134 0112 0088 0073 0064 0061 0060 0061 0063 0059 0053 0057 0068 0070 0059 0050 0047 0042 %560 %570 %580 %590 %600 %610 %620 %630 %640 %650 %660 %670 %680 %690 %700 %710 %720 %730 0033 0029 0049 0196 0476 0693 0801 0846 0865 0874 0880 0881 0882 0882 0884 0886 0886 0887 %j00g=J 0193 0164 0126 0093 0070 0060 0055 0059 0075 0086 0095 0146 0285 0487 0638 0698 0721 0730 0728 0728 0741 0789 0837 0863 0876 0882 0886 0890 0892 0891 0891 0891 0892 0894 0893 0894 %g00b=G 0076 0107 0125 0121 0109 0105 0107 0116 0135 0149 0158 0208 0331 0476 0525 0476 0394 0300 0207 0141 0104 0086 0074 0066 0065 0067 0070 0081 0097 0107 0104 0096 0082 0072 0079 0107 %b00r=B 0100 0164 0232 0283 0309 0342 0384 0407 0398 0374 0344 0313 0281 0243 0201 0164 0133 0098 0063 0042 0038 0049 0058 0057 0057 0059 0062 0072 0086 0095 0092 0085 0072 0063 0070 0095 %n000 0000 A01 000 0260 0282 0289 0299 0312 0318 0332 0337 0350 0355 0363 0368 0370 0370 0365 0356 0347 0340 0334 0334 0336 0340 0348 0358 0372 0386 0402 0422 0442 0464 0487 0516 0546 0576 0607 0635 %w000 0729 a27 729 7322 7764 8029 8251 8412 8557 8685 8784 8877 8919 8957 9002 9036 9061 9094 9087 9096 9094 9076 9103 9089 9090 9082 9096 9124 9142 9170 9196 9214 9207 9200 9197 9203 9219 9207 9223 %w100 0729 7322 7764 8029 8251 8412 8557 8685 8784 8877 8919 8957 9002 9036 9061 9094 9087 9096 9094 9076 9103 9089 9090 9082 9096 9124 9142 9170 9196 9214 9207 9200 9197 9203 9219 9207 9223 ] def /RX05 80 array def %1x80 /RX05 [ %(%W1(r=1,000) 10 380_770) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 ] def /RX0 1040 array def %13*80 0 1 11 {/j exch def %j=0,11 12 Test colours /j36 36 j mul def /j80 80 j mul def 0 1 39 {/i exch def %i=0,39 /i2 i 2 mul def RX0 j80 i2 add i 34 le {RX10 j36 i add get j 5 le {0.1 mul} if cvi put} {RX10 j36 35 add get j 5 le {0.1 mul} if cvi put} ifelse RX0 j80 i2 add 1 add i 34 le {RX10 j36 i add get RX10 j36 i add 1 add get add 0.5 mul j 5 le {0.1 mul} if cvi put } { RX10 j36 35 add get j 5 le {0.1 mul} if cvi put } ifelse } for %i=0,39 } for %j=0,8 960 1 1039 {/i exch def %i=960,1039 RX0 i RX05 i 960 sub get put } for /YKSUM 0 def %For CIE Illuminant E 0 1 79 {/i exch def %i=0,1,79 /YKSUM YKSUM F2 80 i add get add def } for %i=0,1,79 /F2N 240 array def 0 1 79 {/i exch def %i=0,1,79 F2N 00 i add F2 00 i add get YKSUM div 100 mul put F2N 80 i add F2 80 i add get YKSUM div 100 mul put F2N 160 i add F2 160 i add get YKSUM div 100 mul put } for %i=0,1,79 /FXN 80 array def %FXN 0 = F2N imax /FYN 80 array def /FZN 80 array def %defines FXN, FYN, FZN 0 to 79 0 1 79 {/i exch def %i=0,79 FXN i F2N 000 i add get put FYN i F2N 080 i add get put FZN i F2N 160 i add get put } for %i=0,79 %special wavelength range with complementary colours for E? /FXD 63 array def /FYD 63 array def /FZD 63 array def /DOW 63 array def 00 1 60 {/i exch def %i=0,60 %range 400..700nm FXD i FXN 005 i add get put FYD i FYN 005 i add get put FZD i FZN 005 i add get put DOW i 400 i 5 mul add put %range 400 to 700 } for %i=0,60 %for interpolation FXD 61 FXD 60 get put FYD 61 FYD 60 get put FZD 61 FZD 60 get put FXD 62 FXD 60 get put FYD 62 FYD 60 get put FZD 62 FZD 60 get put /FAD 63 array def /FBD 63 array def /FCD 63 array def 20 setlinewidth /xdel 1030 def /ydel 310 def /x0 600 def /TELi 8 array def /TELi [(D65) (D50) (P40) (A00) (E00) (C00) (P00) (Q00)] def %8 illuminants /Xi 79 array def %79 spectral or max 6 device colour + 4 elementary colours /Yi 79 array def %or max 6 device + 4 elementary + 3 achromatic colours /Zi 79 array def /XANi 79 array def /YANi 79 array def /ZANi 79 array def 0 1 0 {/xchart4 exch def %xchart4=0,7 /xchartl xchart def %0 1 7 {/xchartl exch def %xchartl=0,7 %/K 0 def %for normalization 1, always for surface colours /K 1 def %for normalization 0,886 gsave 5 /Times-ISOL1 FS /cvishow {cvi 6 string cvs show} def 75 85 moveto lanind cvishow (-) show colorm cvishow deintp cvishow xcolorl cvishow xchart cvishow pchart cvishow colsep cvishow (-L) show pmetam cvishow 5 /Times-ISOL1 FS 170 85 moveto (SE821-1N/TE011-) show xchart4 1 add cvishow xchart 0 ge {(N) show} if (_) show xchart 1 add cvishow %xchart 0 eq {(X) show} % {deintp colorm 2 mul add cvishow} ifelse 72 90 translate 0.010 MM dup scale 25 setlinewidth 0 0 0 0 setcmyk_olvcolor 0 0 moveto 5400 0 rlineto 0 4000 rlineto 5400 neg 0 rlineto closepath fill 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath clip 0 0 0 1 setcmyk_olvcolor 0 0 moveto 5400 0 rlineto 0 4000 rlineto 5400 neg 0 rlineto closepath stroke 0 1 79 {/i exch def %i=0,79 SDAK i xchartl 0 eq {SD65 i get} if xchartl 1 eq {SD50 i get} if xchartl 2 eq {SP40 i get} if xchartl 3 eq {SA00 i get} if xchartl 4 eq {SE00 i get} if xchartl 5 eq {SC00 i get} if xchartl 6 eq {SP00 i get} if xchartl 7 eq {SQ00 i get} if put } for %i=0,79 %STOP /YKSUM 0 def 0 1 79 {/i exch def %i=0,1,79 /YKSUM YKSUM SDAK i get F2 80 i add get mul add def } for %i=0,1,79 0 1 79 {/i exch def %i=0,1,79 F2N 00 i add SDAK i get F2 00 i add get mul YKSUM div 100 mul put F2N 80 i add SDAK i get F2 80 i add get mul YKSUM div 100 mul put F2N 160 i add SDAK i get F2 160 i add get mul YKSUM div 100 mul put } for %i=0,1,79 %STOP %XW,YW,ZW for white /XW 0 def /YW 0 def /ZW 0 def 0 1 079 {/i exch def %i=0,79 /XW XW F2N 00 i add get add def /YW YW F2N 80 i add get add def /ZW ZW F2N 160 i add get add def } for %i=0,79 /SUMW XW YW add ZW add def %for D65, D50, P40, A00, E00 /XANW XW SUMW div def /YANW YW SUMW div def /ZANW ZW SUMW div def /AANW XW YW 0.0001 add div def /BANW ZW YW 0.0001 add div 0.4 mul neg def %calculation of Xi,Yi,Zi for illuminant D65, D50, ... 0 1 11 {/k exch def %k=0,11 %12 Reflections /kx k 80 mul def 0 1 79 {/i exch def %i=0,79 RA i RX0 kx i add get 1000 div put } for %i=0,79 /X 0 def /Y 0 def /Z 0 def 0 1 079 {/i exch def %i=0,79 /X X F2N 00 i add get RA i get mul add def /Y Y F2N 80 i add get RA i get mul add def /Z Z F2N 160 i add get RA i get mul add def } for %i=0,79 Xi k X put Yi k Y put Zi k Z put /SUM X Y add Z add def XANi k X SUM 0.0001 add div put YANi k Y SUM 0.0001 add div put ZANi k Z SUM 0.0001 add div put } for %k=0,12 Xi 12 XW put Yi 12 YW put Zi 12 ZW put XANi 12 XANW put YANi 12 YANW put ZANi 12 ZANW put /XK Xi 11 get def /YK Yi 11 get def /ZK Zi 11 get def /XANK XANi 11 get def /YANK YANi 11 get def /ZANK ZANi 11 get def K 1 eq {%K=1 0 1 7 {/L exch def %L=0,7 only 0 to 7! Xi L Xi L get 0.8859 mul put Yi L Yi L get 0.8859 mul put Zi L Zi L get 0.8859 mul put } for %L=0,7 } if %K=1 /xtexti 96 array def /ytexti 96 array def /xtexti [ %T00 T10 T20 T30 T40 T41 T50 T51 T60 T61 T70 T71 %0 1 2 3 4 5 6 7 8 9 10 11 1800 1800 1800 2800 2800 4400 2800 4400 2800 4400 2800 4000 %0 0600 0600 0600 0600 0600 2200 0600 2200 0600 2200 0600 1800 %1 0700 0700 0700 0700 0700 2300 0700 2300 0700 2300 0700 1900 %2 0700 0700 0700 0700 0700 2300 0700 2300 0700 2300 0700 1900 %3 0100 0100 0100 0100 0100 1700 0100 1700 0100 1700 0100 1300 %4 0100 0100 0100 0100 0100 1700 0100 1700 0100 1700 0100 1300 %5 0100 0100 0100 0100 0100 1700 0100 1700 0100 1700 0100 1300 %6 0100 0100 0100 0100 0100 1700 0100 1700 0100 1700 0100 1300 %7 ] def /ytexti [ 3800 3580 3360 3140 2920 2920 2700 2700 2480 2480 2260 2260 %0 0500 0280 0060 1380 1160 1160 0940 0940 0720 0720 0000 0000 %1 0500 0280 0060 1380 1160 1160 0940 0940 0720 0720 0000 0000 %2 0500 0280 0060 1380 1160 1160 0940 0940 0720 0720 0000 0000 %3 0500 0280 0060 1380 1160 1160 0940 0940 0720 0720 0000 0000 %4 0500 0280 0060 1380 1160 1160 0940 0940 0720 0720 0000 0000 %5 0500 0280 0060 1380 1160 1160 0940 0940 0720 0720 0000 0000 %6 0500 0280 0060 1380 1160 1160 0940 0940 0720 0720 0000 0000 %7 ] def 0 0 0 1 setcmyk_olvcolor /xchart12 xchart4 12 mul def TBS xchart4 1 ge { %xchart4 >=1 xtexti xchart12 3 add get ytexti xchart12 3 add get 220 add moveto xchart4 1 eq {(LABCab 77) show} if xchart4 2 eq {(CIELAB 76) show} if xchart4 3 eq {(LABJNDS 87) show} if xchart4 4 eq {(LABCab 85) show} if xchart4 5 eq {(CIELAB 76) show} if xchart4 6 eq {(CIELAB D65) show} if xchart4 7 eq {(LABHNU1 79) show} if } if %xchart4 >=1 xtexti xchart12 3 add get ytexti xchart12 3 add get moveto TBS (Name der Ger\374tefarbe) showde %0TE011-7 02581 (Name of the device colour) showen %1TE011-7 02581 (Nombre de la colore de dispositivo) showes %2TE011-7 02581 (Nom de la couleur d'appareil) showfr %3TE011-7 02581 (Nome de la colori dispositivo) showit %4TE011-7 02581 (Name of the device colours) showjp %5TE011-7 02581 xtexti xchart12 4 add get ytexti xchart12 4 add get moveto TBIS FARBE 0 get show TBL 0 -40 rmoveto FARBE 1 get show 150 40 rmoveto TBIS FARBE 2 get show xtexti xchart12 5 add get ytexti xchart12 5 add get moveto TBIS FARBE 3 get show TBL 0 -40 rmoveto FARBE 4 get show 0 40 rmoveto TBIS FARBE 5 get show xtexti xchart12 6 add get ytexti xchart12 6 add get moveto TBIS FARBE 6 get show TBL 0 -40 rmoveto FARBE 7 get show 150 40 rmoveto TBIS FARBE 8 get show xtexti xchart12 7 add get ytexti xchart12 7 add get moveto TBIS FARBE 9 get show TBL 0 -40 rmoveto FARBE 10 get show 0 40 rmoveto TBIS FARBE 11 get show xtexti xchart12 8 add get ytexti xchart12 8 add get moveto TBIS FARBE 12 get show TBL 0 -40 rmoveto FARBE 13 get show 150 40 rmoveto TBIS FARBE 14 get show xtexti xchart12 9 add get ytexti xchart12 9 add get moveto TBIS FARBE 15 get show TBL 0 -40 rmoveto FARBE 16 get show 0 40 rmoveto TBIS FARBE 17 get show %xtexti xchart12 10 add get ytexti xchart12 10 add get moveto %TBIS FARBE 18 get show %TBL 0 -40 rmoveto FARBE 19 get show 0 40 rmoveto %TBIS FARBE 20 get show %xtexti xchart12 11 add get ytexti xchart12 11 add get moveto %TBIS FARBE 21 get show %TBL 0 -40 rmoveto FARBE 22 get show 0 40 rmoveto %TBIS FARBE 23 get show TBS 0 0 0 1 setcmyk_olvcolor xtexti xchart12 0 add get ytexti xchart12 0 add get moveto xtexti xchart12 0 add get ytexti xchart12 0 add get moveto (Ger\344te\255 & Elementarfarben) showde %0TE011-7 02581 (Device and elementary colours) showen %1TE011-7 02581 (Colores de dispositivo y elementales) showes %2TE011-7 02581 (couleurs d'appareil et \351l\351mentaires) showfr %3TE011-7 02581 (colori dispositivo e colori elementari) showit %4TE011-7 02581 (Device and elementary colours) showjp %5TE011-7 02581 TBIS (, Y) show TBL 0 -60 rmoveto (W) show 0 60 rmoveto TBS K 0 eq {(=100) show}{(=88,6) show} ifelse xtexti xchart12 1 add get ytexti xchart12 1 add get moveto (des) showde %0TE011-7 03581 (of the) showen %1TE011-7 03581 (de color) showes %2TE011-7 03581 (du) showfr %3TE011-7 03581 (del) showit %4TE011-7 03581 (of the) showjp %5TE011-7 03581 TBIS ( offset) show TBS (\255Farbenraums f\374r ) showde %0TE011-7 04581 ( colour space for ) showen %1TE011-7 04581 ( bajo ) showes %2TE011-7 04581 (l'espace de couleur pour ) showfr %3TE011-7 04581 ( spazio di colore per ) showit %4TE011-7 04581 ( colour space for ) showjp %5TE011-7 04581 TBS TELi xchartl get show xtexti xchart12 2 add get ytexti xchart12 2 add get moveto xchart4 0 eq {%xchart4=0 (in der Normfarbtafel) showde %0TE011-7 04581 (in the chromaticity diagram) showen %1TE011-7 04581 (en el diagrama de chromaticidad) showes %2TE011-7 04581 (dans le diagramme de chromaticit\351) showfr %3TE011-7 04581 (nel diagramma di cromaticit\340) showit %4TE011-7 04581 (in the chromaticity diagram) showjp %5TE011-7 04581 TBIS ( (x, y)) show } if %xchart4=0 xchart4 1 eq {%xchart4=1 (in der Farbtafel) showde %0TE011-7 05581 (in the chromaticity diagram) showen %1TE011-7 05581 (en el diagrama de chromaticidad) showes %2TE011-7 05581 (dans le diagramme de chromaticit\351) showfr %3TE011-7 05581 (nel diagramma di cromaticit\340) showit %4TE011-7 05581 (in the chromaticity diagram) showjp %5TE011-7 05581 TBIS ( (a, b)) show } if %xchart4=1 xchart4 2 eq {%xchart4=2 (in der Farbarbtafel) showde %0TE011-7 06581 (in the chromaticity diagram) showen %1TE011-7 06581 (en el diagrama de chromaticidad) showes %2TE011-7 06581 (dans le diagramme de chromaticit\351) showfr %3TE011-7 06581 (nel diagramma di cromaticit\340) showit %4TE011-7 06581 (in the chromaticity diagram) showjp %5TE011-7 06581 TBIS ( (a', b')) show } if %xchart4=2 xchart4 3 eq {%xchart4=3 (in der Farbarbtafel) showde %0TE011-7 07581 (in the chromaticity diagram) showen %1TE011-7 07581 (en el diagrama de chromaticidad) showes %2TE011-7 07581 (dans le diagramme de chromaticit\351) showfr %3TE011-7 07581 (nel diagramma di cromaticit\340) showit %4TE011-7 07581 (in the chromaticity diagram) showjp %5TE011-7 07581 TBIS ( (a", b")) show } if %xchart4=3 xchart4 4 eq {%xchart4=4 (in Buntwertdiagramm) showde %0TE011-7 08581 (in chromatic value diagram) showen %1TE011-7 08581 (en el diagrama valor crom\341tico) showes %2TE011-7 08581 (dans la valeur chromatique le diagramme) showfr %3TE011-7 08581 (nel diagramma di valore cromatico) showit %4TE011-7 08581 (in chromatic value diagram) showjp %5TE011-7 08581 TBIS ( (A, B)) show } if %xchart4=4 xchart4 5 eq {%xchart4=5 (in Buntheitsdiagram) showde %0TE011-7 09581 (in CIELAB diagram) showen %1TE011-7 09581 (en el diagrama CIELAB) showes %2TE011-7 09581 (dans le diagramme de CIELAB) showfr %3TE011-7 09581 (nel diagramma di CIELAB) showit %4TE011-7 09581 (in CIELAB diagram) showjp %5TE011-7 09581 TBIS ( (a*, b*)) show } if %xchart4=5 xchart4 6 eq {%xchart4=6 (in Buntheitsdiagram) showde %0TE011-7 10581 (in chroma diagram) showen %1TE011-7 10581 (en el diagrama croma) showes %2TE011-7 10581 (dans le diagramme de chroma) showfr %3TE011-7 10581 (nel diagramma di chroma) showit %4TE011-7 10581 (in chroma diagram) showjp %5TE011-7 10581 TBIS ( \050a*) show 0 -50 rmoveto TBL (D65) show 0 50 rmoveto TBS (, ) show TBIS (b*) show 0 -50 rmoveto TBL (D65) show 0 50 rmoveto TBS (\051) show } if %xchart4=6 xchart4 7 eq {%xchart4=7 (in Buntheitsdiagram) showde %0TE011-7 11581 (in chroma diagram) showen %1TE011-7 11581 (en el diagrama croma) showes %2TE011-7 11581 (dans le diagramme de chroma) showfr %3TE011-7 11581 (nel diagramma di chroma) showit %4TE011-7 11581 (in chroma diagram) showjp %5TE011-7 11581 TBIS ( (A*, B*)) show } if %xchart4=7 xchart4 0 eq {%xchart4=0 600 400 translate 0 0 moveto 4000 0 rlineto stroke 0 0 moveto 0 3200 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten TBS 0 -50 moveto 0 100 rlineto stroke 800 -50 moveto 0 100 rlineto stroke 1600 -50 moveto 0 100 rlineto stroke 2400 -50 moveto 0 100 rlineto stroke 3200 -50 moveto 0 100 rlineto stroke 4000 -50 moveto 0 100 rlineto stroke -100 -300 moveto (0,0) show 700 -300 moveto (0,2) show 1500 -300 moveto (0,4) show 2300 -300 moveto (0,6) show 3100 -300 moveto (0,8) show 3900 -300 moveto (1,0) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 800 moveto 100 0 rlineto stroke -50 1600 moveto 100 0 rlineto stroke -50 2400 moveto 100 0 rlineto stroke -50 3200 moveto 100 0 rlineto stroke -450 -80 moveto (0,0) show -450 720 moveto (0,2) show -450 1520 moveto (0,4) show -450 2320 moveto (0,6) show -450 3120 moveto (0,8) show TIM -300 2800 moveto (y) show TIM 4200 150 moveto (x) show TBIS 2600 150 moveto (CIE 1931) show -600 -400 translate %1000 02 01 16 01 .00 .0020 ******************** %ANF PROZSPEP3.FOR: MULYA= 4000 BEO=02 xy-Farbtafel IXY0: 600 400 600 400 translate 693 19 moveto 693 19 692 19 690 19 curveto 688 19 685 20 681 23 curveto 675 27 667 34 657 43 curveto 644 55 626 70 603 90 curveto 575 118 542 159 496 231 curveto 438 347 365 530 274 802 curveto 181 1179 93 1650 32 2153 curveto 15 2619 55 3000 155 3248 curveto 297 3335 456 3304 618 3223 curveto 771 3126 918 3017 1063 2897 curveto 1206 2769 1349 2635 1492 2497 curveto 1634 2358 1776 2218 1915 2080 curveto 2049 1946 2179 1817 2300 1696 curveto 2411 1585 2508 1489 2592 1405 curveto 2663 1336 2720 1278 2765 1233 curveto 2802 1197 2831 1168 2856 1143 curveto 2876 1123 2892 1107 2903 1096 curveto 2913 1086 2919 1080 2924 1075 curveto 2927 1072 2930 1069 2933 1066 curveto 2936 1063 2937 1062 2938 1061 curveto 2938 1061 2939 1060 2744 971 curveto 2261 748 2040 643 1908 582 curveto 1819 541 1758 512 1708 490 curveto 1660 468 1612 445 1558 420 curveto 1495 391 1419 356 1320 309 curveto 1184 247 986 155 693 19 curveto stroke 0 0 0 1 setcmyk_olvcolor 693 19 30 0 360 arc fill % 400 681 23 30 0 360 arc fill % 425 626 70 30 0 360 arc fill % 450 438 347 30 0 360 arc fill % 475 32 2153 30 0 360 arc fill % 500 456 3304 30 0 360 arc fill % 525 1206 2769 30 0 360 arc fill % 550 1915 2080 30 0 360 arc fill % 575 2508 1489 30 0 360 arc fill % 600 2802 1197 30 0 360 arc fill % 625 2903 1096 30 0 360 arc fill % 650 2930 1069 30 0 360 arc fill % 675 2938 1061 30 0 360 arc fill % 700 2261 748 30 0 360 arc fill %500c 1708 490 30 0 360 arc fill %525c 1419 356 30 0 360 arc fill %550c 0 0 0 1 setcmyk_olvcolor 693 19 30 0 360 arc stroke % 400 681 23 30 0 360 arc stroke % 425 626 70 30 0 360 arc stroke % 450 438 347 30 0 360 arc stroke % 475 32 2153 30 0 360 arc stroke % 500 456 3304 30 0 360 arc stroke % 525 1206 2769 30 0 360 arc stroke % 550 1915 2080 30 0 360 arc stroke % 575 2508 1489 30 0 360 arc stroke % 600 2802 1197 30 0 360 arc stroke % 625 2903 1096 30 0 360 arc stroke % 650 2930 1069 30 0 360 arc stroke % 675 2938 1061 30 0 360 arc stroke % 700 2261 748 30 0 360 arc stroke %500c 1708 490 30 0 360 arc stroke %525c 1419 356 30 0 360 arc stroke %550c % 1250 1316 30 0 360 arc fill %D65 0 0 0 1 setcmyk_olvcolor TBIS 693 375 sub 19 250 sub moveto (400) show % 681 500 sub 23 100 sub moveto (425) show % 626 500 sub 70 100 sub moveto (450) show 438 350 sub 347 200 sub moveto (475) show 32 450 sub 2153 100 sub moveto (500) show 456 100 add 3304 000 add moveto (525) show 1206 100 add 2769 000 add moveto (550) show 1915 080 sub 2080 100 add moveto (575) show 2508 100 add 1489 000 add moveto (600) show 2802 100 add 1197 100 add moveto (625) show % 2903 200 sub 1096 100 add moveto (650) show % 2930 200 sub 1069 100 add moveto (675) show 2938 100 add 1061 100 sub moveto (700) show 2261 100 add 748 200 sub moveto (500c,E) show 1708 100 add 490 200 sub moveto (525c,E) show 1419 000 add 356 250 sub moveto (550c,E) show % 1250 100 add 1316 100 sub moveto (D65 ) show -600 -400 translate %ENDE: 1 } if %xchart4=0 xchart4 1 eq {%xchart4=1 500 3200 translate 0 400 moveto 4000 0 rlineto stroke 0 400 moveto 0 -3600 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten TBS 0 350 moveto 0 100 rlineto stroke 800 350 moveto 0 100 rlineto stroke 1600 350 moveto 0 100 rlineto stroke 2400 350 moveto 0 100 rlineto stroke 3200 350 moveto 0 100 rlineto stroke 4000 350 moveto 0 100 rlineto stroke -150 500 moveto (-0,8) show 650 500 moveto (0,0) show 1450 500 moveto (0,8) show 2250 500 moveto (1,6) show 3050 500 moveto (2,4) show 3850 500 moveto (3,2) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 -800 moveto 100 0 rlineto stroke -50 -1600 moveto 100 0 rlineto stroke -50 -2400 moveto 100 0 rlineto stroke -50 -3200 moveto 100 0 rlineto stroke -450 -100 moveto ( 0,0) show -450 -900 moveto (-0,8) show -450 -1700 moveto (-1,6) show %-450 -2500 moveto (-2,4) show -175 -3050 moveto 90 rotate TBIK (b) show TBK (=-0,40) show TBIK (z/y) show -90 rotate 3650 100 moveto TBIK (a=x/y) show -500 -3200 translate %1000 02 01 16 01-.03**************************************** %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 1300 3200 translate % 36136 -68535 moveto % 36136 -68535 36234 -68875 35958 -68561 curveto % 35610 -68128 33600 -64560 29424 -56936 curveto % 24474 -47779 19507 -38551 15143 -30384 curveto % 11681 -23927 8847 -18653 6639 -14534 curveto % 4846 -11128 3397 -8271 2147 -5661 curveto 1261 -3701 moveto 1261 -3701 688 -2339 342 -1455 curveto 153 -894 56 -546 15 -336 curveto 5 -208 18 -125 47 -73 curveto 89 -44 138 -28 191 -19 curveto 246 -13 304 -8 366 -5 curveto 435 -3 512 -2 597 -1 curveto 693 -1 800 0 920 0 curveto 1053 0 1198 0 1355 0 curveto 1520 0 1683 0 1844 0 curveto 1993 0 2126 0 2242 0 curveto 2340 0 2424 0 2497 0 curveto 2559 0 2610 0 2649 0 curveto 2680 0 2703 0 2718 0 curveto 2731 0 2741 0 2751 0 curveto 2760 0 2764 0 2767 0 curveto 2769 0 2770 0 2824 -116 curveto 3023 -529 3168 -817 3275 -1036 curveto 3357 -1209 3430 -1349 3482 -1469 curveto 3545 -1597 3622 -1746 3704 -1922 curveto 3817 -2156 3983 -2496 4262 -3058 curveto % 4786 -4149 6341 -7346 35775 -67850 curveto stroke 0 0 0 1 setcmyk_olvcolor % 36136 -68535 30 0 360 arc fill % 400 % 29424 -56936 30 0 360 arc fill % 425 % 8847 -18653 30 0 360 arc fill % 450 1261 -3701 30 0 360 arc fill % 475 15 -336 30 0 360 arc fill % 500 138 -28 30 0 360 arc fill % 525 435 -3 30 0 360 arc fill % 550 920 0 30 0 360 arc fill % 575 1683 0 30 0 360 arc fill % 600 2340 0 30 0 360 arc fill % 625 2649 0 30 0 360 arc fill % 650 2741 0 30 0 360 arc fill % 675 2769 0 30 0 360 arc fill % 700 3023 -529 30 0 360 arc fill %500c 3482 -1469 30 0 360 arc fill %525c 3983 -2496 30 0 360 arc fill %550c 0 0 0 1 setcmyk_olvcolor % 36136 -68535 30 0 360 arc stroke % 400 % 29424 -56936 30 0 360 arc stroke % 425 % 8847 -18653 30 0 360 arc stroke % 450 1261 -3701 30 0 360 arc stroke % 475 15 -336 30 0 360 arc stroke % 500 138 -28 30 0 360 arc stroke % 525 435 -3 30 0 360 arc stroke % 550 920 0 30 0 360 arc stroke % 575 1683 0 30 0 360 arc stroke % 600 2340 0 30 0 360 arc stroke % 625 2649 0 30 0 360 arc stroke % 650 2741 0 30 0 360 arc stroke % 675 2769 0 30 0 360 arc stroke % 700 3023 -529 30 0 360 arc stroke %500c 3482 -1469 30 0 360 arc stroke %525c 3983 -2496 30 0 360 arc stroke %550c % 950 -435 30 0 360 arc fill %D65 0 0 0 1 setcmyk_olvcolor TBIS % 36136 500 sub -68535 100 sub moveto (400) show % 29424 500 sub -56936 100 sub moveto (425) show % 8847 500 sub -18653 100 sub moveto (450) show % 1261 500 sub -3701 100 sub moveto (475) show 15 400 sub -336 100 sub moveto (500) show % 138 200 sub -28 100 add moveto (525) show 435 200 sub -3 100 add moveto (550) show % 920 200 sub 0 100 add moveto (575) show 1683 200 sub 0 100 add moveto (600) show 2340 200 sub 0 100 add moveto (625) show % 2649 200 sub 0 100 add moveto (650) show % 2741 200 sub 0 100 add moveto (675) show 2769 100 add 0 150 sub moveto (700) show 3023 100 add -529 100 sub moveto (500c,E) show 3482 800 sub -1469 050 sub moveto (525c,E) show % 3983 500 sub -2496 100 sub moveto (550c,E) show % 950 100 add -435 100 sub moveto (D65 ) show -1300 -3200 translate %ENDE: 2 } if %xchart4=1 xchart4 2 eq {%xchart4=2 600 3200 translate 0 400 moveto 4400 0 rlineto stroke 0 400 moveto 0 -3600 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten TBS 000 350 moveto 0 100 rlineto stroke 0800 350 moveto 0 100 rlineto stroke 1600 350 moveto 0 100 rlineto stroke 2400 350 moveto 0 100 rlineto stroke 3200 350 moveto 0 100 rlineto stroke 4000 350 moveto 0 100 rlineto stroke -200 500 moveto (0,00) show 600 500 moveto (0,06) show 1400 500 moveto (0,12) show 2200 500 moveto (0,18) show 3000 500 moveto (0,24) show 3800 500 moveto (0,30) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 -800 moveto 100 0 rlineto stroke -50 -1600 moveto 100 0 rlineto stroke -50 -2400 moveto 100 0 rlineto stroke -50 -3200 moveto 100 0 rlineto stroke -575 -100 moveto ( 0,00) show -575 -900 moveto (-0,06) show -575 -1700 moveto (-0,12) show -575 -2500 moveto (-0,18) show TIM -380 -1300 moveto (b') show 4300 250 moveto (a') show -600 -3200 translate %1000 02 01 16 01 .00 .0020 ******************** %ANF PROZSPEP3.FOR: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 400 3200 translate 9657 -6202 moveto 9657 -6202 9666 -6212 9642 -6203 curveto 9610 -6190 9426 -6080 9018 -5830 curveto 8481 -5499 7863 -5120 7227 -4729 curveto 6628 -4367 6041 -4019 5490 -3698 curveto 4943 -3383 4391 -3065 3769 -2701 curveto 3156 -2344 2578 -2012 2043 -1717 curveto 1565 -1460 1123 -1239 723 -1054 curveto 527 -898 772 -759 1060 -634 curveto 1304 -535 1510 -464 1685 -408 curveto 1832 -356 1965 -309 2091 -267 curveto 2214 -230 2337 -200 2460 -176 curveto 2585 -157 2712 -145 2841 -139 curveto 2972 -138 3103 -133 3233 -126 curveto 3359 -126 3475 -120 3582 -113 curveto 3676 -98 3756 -91 3823 -88 curveto 3878 -75 3924 -64 3963 -57 curveto 3995 -54 4022 -46 4042 0 curveto 4057 0 4069 0 4077 0 curveto 4083 0 4088 0 4093 0 curveto 4097 0 4100 0 4101 0 curveto 4102 0 4103 0 4129 -740 curveto 4224 -1226 4290 -1417 4338 -1533 curveto 4374 -1614 4405 -1674 4427 -1723 curveto 4454 -1771 4486 -1825 4520 -1884 curveto 4565 -1958 4630 -2056 4736 -2200 curveto 4923 -2435 5407 -2946 9625 -6181 curveto stroke 0 0 0 1 setcmyk_olvcolor 9657 -6202 30 0 360 arc fill % 400 9018 -5830 30 0 360 arc fill % 425 6041 -4019 30 0 360 arc fill % 450 3156 -2344 30 0 360 arc fill % 475 723 -1054 30 0 360 arc fill % 500 1510 -464 30 0 360 arc fill % 525 2214 -230 30 0 360 arc fill % 550 2841 -139 30 0 360 arc fill % 575 3475 -120 30 0 360 arc fill % 600 3878 -75 30 0 360 arc fill % 625 4042 0 30 0 360 arc fill % 650 4088 0 30 0 360 arc fill % 675 4102 0 30 0 360 arc fill % 700 4224 -1226 30 0 360 arc fill %500c 4427 -1723 30 0 360 arc fill %525c 4630 -2056 30 0 360 arc fill %550c 0 0 0 1 setcmyk_olvcolor 9657 -6202 30 0 360 arc stroke % 400 9018 -5830 30 0 360 arc stroke % 425 6041 -4019 30 0 360 arc stroke % 450 3156 -2344 30 0 360 arc stroke % 475 723 -1054 30 0 360 arc stroke % 500 1510 -464 30 0 360 arc stroke % 525 2214 -230 30 0 360 arc stroke % 550 2841 -139 30 0 360 arc stroke % 575 3475 -120 30 0 360 arc stroke % 600 3878 -75 30 0 360 arc stroke % 625 4042 0 30 0 360 arc stroke % 650 4088 0 30 0 360 arc stroke % 675 4102 0 30 0 360 arc stroke % 700 4224 -1226 30 0 360 arc stroke %500c 4427 -1723 30 0 360 arc stroke %525c 4630 -2056 30 0 360 arc stroke %550c % 2872 -1148 30 0 360 arc fill %D65 0 0 0 1 setcmyk_olvcolor TBIS % 9657 500 sub -6202 100 sub moveto (400) show % 9018 500 sub -5830 100 sub moveto (425) show % 6041 500 sub -4019 100 sub moveto (450) show 3156 400 sub -2344 100 sub moveto (475) show 723 250 sub -1054 250 sub moveto (500) show 1510 200 sub -464 150 add moveto (525) show 2214 200 sub -230 100 add moveto (550) show 2841 200 sub -139 100 add moveto (575) show 3475 200 sub -120 100 add moveto (600) show % 3878 200 sub -75 100 add moveto (625) show % 4042 200 sub 0 100 add moveto (650) show % 4088 200 sub 0 100 add moveto (675) show 4102 050 add 0 100 sub moveto (700) show 4224 050 add -1226 000 sub moveto (500c,E) show 4427 010 sub -1723 100 add moveto (525c,E) show % 4630 100 add -2056 100 sub moveto (550c,E) show % 2872 050 add -1148 000 sub moveto (D65 ) show -400 -3200 translate %ENDE: 3 } if %xchart4=2 xchart4 3 eq {%xchart4=3 600 3200 translate 0 400 moveto 4400 0 rlineto stroke 0 400 moveto 0 -3500 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten TBS 0 350 moveto 0 100 rlineto stroke 800 350 moveto 0 100 rlineto stroke 1600 350 moveto 0 100 rlineto stroke 2400 350 moveto 0 100 rlineto stroke 3200 350 moveto 0 100 rlineto stroke 4000 350 moveto 0 100 rlineto stroke -250 500 moveto (-0,6) show 650 500 moveto (0,0) show 1450 500 moveto (0,6) show 2250 500 moveto (1,2) show 3050 500 moveto (1,8) show 3850 500 moveto (2,4) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 -800 moveto 100 0 rlineto stroke -50 -1600 moveto 100 0 rlineto stroke -50 -2400 moveto 100 0 rlineto stroke -50 -3200 moveto 100 0 rlineto stroke -450 -100 moveto ( 0,0) show -450 -900 moveto (-0,6) show -450 -1700 moveto (-1,2) show -450 -2500 moveto (-1,8) show TBIK -450 -2900 moveto (b") show TBS -120 -125 rmoveto (s) show 120 125 rmoveto TBIK 4050 200 moveto (a") show TBS -120 -125 rmoveto (s) show 120 125 rmoveto TBIK -600 -3200 translate %1000 02 **************************************** %ANF PROZSPEP.FOR: MULYA= 1333 BEO=02 a"b" LABJND 1985 IXY0: 700 3200 700 800 add 3200 translate 3789 -3170 moveto 3789 -3170 3789 -3170 3788 -3170 curveto 3787 -3170 3779 -3166 3757 -3155 curveto 3724 -3138 3673 -3113 3603 -3079 curveto 3514 -3037 3394 -2982 3239 -2915 curveto 3028 -2826 2734 -2704 2265 -2508 curveto 1626 -2234 957 -1880 645 -1481 curveto 507 -1078 443 -720 417 -455 curveto 411 -308 419 -223 437 -171 curveto 464 -144 496 -130 533 -121 curveto 573 -115 616 -111 664 -108 curveto 721 -107 787 -105 867 -105 curveto 963 -104 1081 -104 1227 -104 curveto 1397 -104 1561 -104 1716 -104 curveto 1858 -104 1981 -104 2090 -104 curveto 2180 -104 2254 -104 2313 -104 curveto 2360 -103 2397 -103 2429 -103 curveto 2455 -103 2476 -103 2491 -103 curveto 2503 -103 2512 -103 2517 -103 curveto 2522 -103 2526 -103 2530 -103 curveto 2533 -103 2535 -103 2536 -103 curveto 2536 -103 2537 -103 2556 -214 curveto 2623 -700 2668 -1007 2700 -1196 curveto 2723 -1324 2742 -1416 2756 -1488 curveto 2772 -1560 2791 -1636 2811 -1717 curveto 2837 -1813 2873 -1933 2929 -2093 curveto 3019 -2313 3211 -2648 3788 -3169 curveto stroke 1 setgray 3789 -3170 30 0 360 arc fill % 400 3757 -3155 30 0 360 arc fill % 425 3394 -2982 30 0 360 arc fill % 450 1626 -2234 30 0 360 arc fill % 475 417 -455 30 0 360 arc fill % 500 496 -130 30 0 360 arc fill % 525 721 -107 30 0 360 arc fill % 550 1227 -104 30 0 360 arc fill % 575 1981 -104 30 0 360 arc fill % 600 2360 -103 30 0 360 arc fill % 625 2491 -103 30 0 360 arc fill % 650 2526 -103 30 0 360 arc fill % 675 2536 -103 30 0 360 arc fill % 700 2623 -700 30 0 360 arc fill %500c 2756 -1488 30 0 360 arc fill %525c 2873 -1933 30 0 360 arc fill %550c 0 setgray 3789 -3170 30 0 360 arc stroke % 400 3757 -3155 30 0 360 arc stroke % 425 3394 -2982 30 0 360 arc stroke % 450 1626 -2234 30 0 360 arc stroke % 475 417 -455 30 0 360 arc stroke % 500 496 -130 30 0 360 arc stroke % 525 721 -107 30 0 360 arc stroke % 550 1227 -104 30 0 360 arc stroke % 575 1981 -104 30 0 360 arc stroke % 600 2360 -103 30 0 360 arc stroke % 625 2491 -103 30 0 360 arc stroke % 650 2526 -103 30 0 360 arc stroke % 675 2536 -103 30 0 360 arc stroke % 700 2623 -700 30 0 360 arc stroke %500c 2756 -1488 30 0 360 arc stroke %525c 2873 -1933 30 0 360 arc stroke %550c 1266 -580 30 0 360 arc fill %D65 0 setgray TBIS 3789 200 sub -3170 200 add moveto (400) show % 3757 600 sub -3155 100 sub moveto (425) show % 3394 600 sub -2982 100 sub moveto (450) show 1626 050 sub -2234 150 add moveto (475) show 417 430 sub -455 100 sub moveto (500) show 496 400 sub -130 50 add moveto (525) show 721 200 sub -107 100 add moveto (550) show 1227 200 sub -104 100 add moveto (575) show 1981 200 sub -104 100 add moveto (600) show % 2360 200 sub -103 100 add moveto (625) show % 2491 200 sub -103 100 add moveto (650) show % 2526 200 sub -103 100 add moveto (675) show 2536 100 add -103 moveto (700) show 2623 100 add -700 100 sub moveto (500c) show 2756 100 add -1488 100 sub moveto (525c) show % 2873 100 add -1933 100 sub moveto (550c) show % 1266 100 add -580 100 sub moveto (D65 ) show 700 800 add neg -3200 translate %ENDE: 3 } if %xchart4=3 xchart4 4 ge xchart4 7 le and {%4>=xchart4<=7 3500 2000 translate %axis and scales 0 0 0 1 setcmyk_olvcolor -2250 0 moveto 3950 0 rlineto stroke 0 -1880 moveto 0 3600 rlineto stroke 1700 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 /xt10x 5 array def /yt10x 5 array def xchart4 4 eq {%xchart4=4 /xt10x [(-40) ( ) ( ) ( ) ( 40)] def /yt10x [(-40) ( ) ( ) ( ) (40)] def } if %xchart4=3 xchart4 5 ge xchart4 7 le and {%5>=xchart4<=7 /xt10x [(-120) ( ) ( ) ( ) ( 120)] def /yt10x [(-120) ( ) ( ) ( ) (120)] def } if %4>=xchart4<=6 0 0 0 1 setcmyk_olvcolor 0 1 4 {/i exch def %i=0,4 x-axis -1600 i 800 mul add -75 moveto 0 150 rlineto stroke -1800 i 800 mul add -250 moveto TBS xt10x i get show i 4 eq {-1600 i 800 mul add 0 moveto xchart4 4 eq { %xchart4=4 000 150 rmoveto TBIM (A) show TL } if %xchart4=4 xchart4 5 eq { %xchart4=5 -50 150 rmoveto TBIM (a*) show TL } if %xchart4=5 xchart4 6 eq { %xchart4=6 -350 150 rmoveto TBIM (a*) show -40 -50 rmoveto TBL (D65) show 0 50 rmoveto TL } if %xchart4=6 xchart4 7 eq { %xchart4=7 -50 150 rmoveto TBIM (A*) show TL } if %xchart4=7 } if } for %i=0,4 0 1 4 {/i exch def %i=0,4 y-axis -75 -1600 i 800 mul add moveto 150 0 rlineto stroke 100 -1600 i 800 mul add 100 sub moveto TBS yt10x i get show i 4 eq {0 -1600 i 800 mul add moveto xchart4 4 eq { %xchart4=4 -250 150 rmoveto TBIM (B) show TL } if %xchart4=4 xchart4 5 eq { %xchart4=5 -400 150 rmoveto TBIM (b*) show TL } if %xchart4=5 xchart4 6 eq { %xchart4=6 -750 150 rmoveto TBIM (b*) show -40 -50 rmoveto TBL (D65) show 0 50 rmoveto TL } if %xchart4=6 xchart4 7 eq { %xchart4=7 -300 150 rmoveto TBIM (B*) show TL } if %xchart4=7 } if } for %i=0,4 -3500 -2000 translate } if %4>=xchart4<=7 %******************************************************* %actual data /imshow {0 -50 rmoveto TBL (d) show 0 50 rmoveto TBIS} def /ioshow {0 -50 rmoveto TBL (e) show 0 50 rmoveto TBIS} def %/ie 0 def %only device colours /ie 1 def %with elementary colours %************************************************* xchart4 0 eq {%xchart4=0 %only for (x,y) /fakt 4000 def 600 400 translate %for scala and graphic 0 1 05 {/i exch def %i=0,39 XANi i get fakt mul YANi i get fakt mul i 0 eq {moveto} if i 1 ge i 04 le and {lineto} if i 05 eq {lineto closepath stroke} if } for %i=0,39 ie 1 eq {%ie=1 0 1 05 {/i exch def %i=0,39 XANW fakt mul YANW fakt mul moveto XANi i get fakt mul YANi i get fakt mul lineto stroke } for %i=0,39 } if %ie=1 XANW fakt mul YANW fakt mul 90 0 360 arc stroke XANW fakt mul 200 sub YANW fakt mul 250 sub moveto %TBS TELi xchartl get show TBIS 0 1 9 {/i exch def %i=0,9 /SUM Xi i get Yi i get add Zi i get add 0.0001 add def /AnY Xi i get SUM div fakt mul def /BnY Yi i get SUM div fakt mul def i 0 eq {AnY 100 sub BnY 250 sub moveto %(R) show imshow 0 1 1 0 setcmykcolor} if %Rm i 1 eq {AnY 100 sub BnY 250 sub moveto %(Y) show imshow 0 0 1 0 setcmykcolor} if %Ym i 2 eq {AnY 350 sub BnY 150 sub moveto %(G) show imshow 1 0 1 0 setcmykcolor} if %Gm i 3 eq {AnY 350 sub BnY 050 sub moveto %(C) show imshow 1 0 0 0 setcmykcolor} if %Cm i 4 eq {AnY 000 add BnY 200 add moveto %(B) show imshow 1 1 0 0 setcmykcolor} if %Bm i 5 eq {AnY 150 add BnY 050 sub moveto %(M) show imshow 0 1 0 0 setcmykcolor} if %Mm ie 1 eq {%ie=1 i 6 eq {AnY 100 sub BnY 250 sub moveto (R) show ioshow 0 1 1 0 setcmykcolor} if %Rm i 7 eq {AnY 100 sub BnY 250 sub moveto (Y) show ioshow 0 0 1 0 setcmykcolor} if %Ym i 8 eq {AnY 350 sub BnY 050 sub moveto (G) show ioshow 1 0 1 0 setcmykcolor} if %Gm i 9 eq {AnY 350 sub BnY 050 add moveto (B) show ioshow 1 1 0 0 setcmykcolor} if %Bm } if %ie=1 newpath AnY BnY i 5 le {50}{90} ifelse 0 360 arc fill 0 setgray newpath AnY BnY i 5 le {50}{90} ifelse 0 360 arc stroke } for %i=0,9 -600 -400 translate %for scala and grafic } if %xchart4=0 xchart4 1 eq {%xchart4=1 %only for (a,b) /fakt 1000 def /a2 XW YW 0.0001 add div def /b2 ZW YW 0.0001 add div -0.4 mul def 1300 3200 translate %for grafic 0 1 05 {/i exch def %i=0,39 Xi i get Yi i get 0.0001 add div fakt mul %a Zi i get Yi i get 0.0001 add div fakt mul %b 0.4 mul neg i 0 eq {moveto} if i 1 ge i 04 le and {lineto} if i 05 eq {lineto closepath stroke} if } for %i=0,39 ie 1 eq {%ie=1 0 1 05 {/i exch def %i=0,39 XW YW 0.0001 add div fakt mul ZW YW 0.0001 add div fakt mul 0.4 mul neg moveto Xi i get Yi i get 0.0001 add div fakt mul %a Zi i get Yi i get 0.0001 add div fakt mul %b 0.4 mul neg lineto stroke } for %i=0,39 } if %ie=1 XW YW 0.0001 add div fakt mul ZW YW 0.0001 add div fakt mul 0.4 mul neg i 5 le {50}{90} ifelse 0 360 arc stroke XW YW 0.0001 add div fakt mul 200 sub ZW YW 0.0001 add div fakt mul 0.4 mul neg 250 sub moveto %TBS TELi xchartl get show TBIS 0 1 9 {/i exch def %i=0,9 /AnY Xi i get Yi i get 0.0001 add div fakt mul def /BnY Zi i get Yi i get 0.0001 add div fakt mul 0.4 mul neg def i 0 eq {AnY 150 add BnY 100 sub moveto %(R) show imshow 0 1 1 0 setcmykcolor} if %Rm i 1 eq {AnY 100 sub BnY 200 add moveto %(Y) show imshow 0 0 1 0 setcmykcolor} if %Ym i 2 eq {AnY 350 sub BnY 250 sub moveto %(G) show imshow 1 0 1 0 setcmykcolor} if %Gm i 3 eq {AnY 350 sub BnY 050 sub moveto %(C) show imshow 1 0 0 0 setcmykcolor} if %Cm i 4 eq {AnY 150 add BnY 050 sub moveto %(B) show imshow 1 1 0 0 setcmykcolor} if %Bm i 5 eq {AnY 150 add BnY 050 sub moveto %(M) show imshow 0 1 0 0 setcmykcolor} if %Mm ie 1 eq {%ie=1 i 6 eq {AnY 150 add BnY 100 sub moveto (R) show imshow 0 1 1 0 setcmykcolor} if %Rm i 7 eq {AnY 050 sub BnY 150 add moveto (Y) show imshow 0 0 1 0 setcmykcolor} if %Ym i 8 eq {AnY 350 sub BnY 050 sub moveto (G) show imshow 1 0 1 0 setcmykcolor} if %Gm i 9 eq {AnY 350 sub BnY 050 add moveto (B) show imshow 1 1 0 0 setcmykcolor} if %Bm } if %ie=1 newpath AnY BnY i 5 le {50}{90} ifelse 0 360 arc fill 0 setgray newpath AnY BnY i 5 le {50}{90} ifelse 0 360 arc stroke } for %i=0,9 -1300 -3200 translate %for grafic } if %xchart4=1 xchart4 2 eq {%xchart4=2 %only for (a',b') /D13 1 3 div def /fakt 13333 def /a2 XW YW 0.0001 add div D13 exp 0.2191 mul def /b2 ZW YW 0.0001 add div D13 exp -0.08376 mul def 200 3200 translate %for graphic 0 1 05 {/i exch def %i=0,39 Xi i get Yi i get 0.0001 add div %a' D13 exp 0.2191 mul fakt mul Zi i get Yi i get 0.0001 add div %b' D13 exp -0.08376 mul fakt mul i 0 eq {moveto} if i 1 ge i 04 le and {lineto} if i 05 eq {lineto closepath stroke} if } for %i=0,39 ie 1 eq {%ie=1 0 1 05 {/i exch def %i=0,39 XW YW 0.0001 add div %a' D13 exp 0.2191 mul fakt mul ZW YW 0.0001 add div %b' D13 exp -0.08376 mul fakt mul moveto Xi i get Yi i get 0.0001 add div %a' D13 exp 0.2191 mul fakt mul Zi i get Yi i get 0.0001 add div %b' D13 exp -0.08376 mul fakt mul lineto stroke } for %i=0,39 } if %ie=1 XW YW 0.0001 add div %a' D13 exp 0.2191 mul fakt mul ZW YW 0.0001 add div %b' D13 exp -0.08376 mul fakt mul i 5 le {50}{90} ifelse 0 360 arc stroke XW YW 0.0001 add div %a' D13 exp 0.2191 mul fakt mul 200 sub ZW YW 0.0001 add div %b' D13 exp -0.08376 mul fakt mul 250 sub moveto %TBS TELi xchartl get show TBIS 0 1 9 {/i exch def %i=0,9 /AnY Xi i get Yi i get 0.0001 add div %a' D13 exp 0.2191 mul fakt mul def /BnY Zi i get Yi i get 0.0001 add div %b' D13 exp -0.08376 mul fakt mul def i 0 eq {AnY 150 add BnY 100 sub moveto %(R) show imshow 0 1 1 0 setcmykcolor} if %Rm i 1 eq {AnY 100 sub BnY 200 add moveto %(Y) show imshow 0 0 1 0 setcmykcolor} if %Ym i 2 eq {AnY 350 sub BnY 150 sub moveto %(G) show imshow 1 0 1 0 setcmykcolor} if %Gm i 3 eq {AnY 350 sub BnY 050 sub moveto %(C) show imshow 1 0 0 0 setcmykcolor} if %Cm i 4 eq {AnY 150 add BnY 050 sub moveto %(B) show imshow 1 1 0 0 setcmykcolor} if %Bm i 5 eq {AnY 150 add BnY 050 sub moveto %(M) show imshow 0 1 0 0 setcmykcolor} if %Mm ie 1 eq {%ie=1 i 6 eq {AnY 150 add BnY 050 sub moveto (R) show ioshow 0 1 1 0 setcmykcolor} if %Rm i 7 eq {AnY 050 sub BnY 150 add moveto (Y) show ioshow 0 0 1 0 setcmykcolor} if %Ym i 8 eq {AnY 350 sub BnY 050 sub moveto (G) show ioshow 1 0 1 0 setcmykcolor} if %Gm i 9 eq {AnY 050 sub BnY 250 sub moveto (B) show ioshow 1 1 0 0 setcmykcolor} if %Bm } if %ie=1 newpath AnY BnY i 5 le {50}{90} ifelse 0 360 arc fill 0 setgray newpath AnY BnY i 5 le {50}{90} ifelse 0 360 arc stroke } for %i=0,9 -200 -3200 translate %for graphic } if %xchart4=2 xchart4 3 eq {%xchart4=3 %only for (a",b") %100 3800 moveto TIS ((a",b") (LAB 1977)) show /fakt 1333 def /XD65 95.04 def /YD65 100.00 def /ZD65 108.89 def /aD65 XD65 YD65 0.0001 add div def /bD65 ZD65 YD65 0.0001 add div -0.4 mul def /a2 aD65 def /b2 bD65 def 700 800 add 3200 translate %for grafic 0 1 05 {/i exch def %i=0,39 /a Xi i get Yi i get 0.0001 add div def /an XK YK 0.0001 add div def /b Zi i get Yi i get 0.0001 add div 0.4 mul neg def /bn ZK YK 0.0001 add div 0.4 mul neg def /a" an a an sub 1 a an sub abs 0.5 mul add div add def /b" bn b bn sub 1 b bn sub abs 0.5 mul add div add def a" fakt mul b" fakt mul /a"n an def /b"n bn def i 0 eq {moveto} if i 1 ge i 04 le and {lineto} if i 05 eq {lineto closepath stroke} if } for %i=0,39 ie 1 eq {%ie=1 0 1 05 {/i exch def %i=0,39 /a Xi i get Yi i get 0.0001 add div def /an XK YK 0.0001 add div def /b Zi i get Yi i get 0.0001 add div 0.4 mul neg def /bn ZK YK 0.0001 add div 0.4 mul neg def an fakt mul bn fakt mul moveto /a" an a an sub 1 a an sub abs 0.5 mul add div add def /b" bn b bn sub 1 b bn sub abs 0.5 mul add div add def a" fakt mul b" fakt mul /a"n an def /b"n bn def lineto stroke } for %i=0,39 } if %ie=1 a"n fakt mul b"n fakt mul i 5 le {50}{90} ifelse 0 360 arc stroke a"n fakt mul 200 sub b"n fakt mul 250 sub moveto %TBS TELi xchartl get show TBIS 0 1 9 {/i exch def %i=0,9 /a Xi i get Yi i get 0.0001 add div def /an XK YK 0.0001 add div def /b Zi i get Yi i get 0.0001 add div 0.4 mul neg def /bn ZK YK 0.0001 add div 0.4 mul neg def /a" an a an sub 1 a an sub abs 0.5 mul add div add def /b" bn b bn sub 1 b bn sub abs 0.5 mul add div add def a" fakt mul b" fakt mul /a"n an def /b"n bn def /AnY a" fakt mul def /BnY b" fakt mul def i 0 eq {AnY 150 add BnY 100 sub moveto %(R) show imshow 0 1 1 0 setcmykcolor} if %Rm i 1 eq {AnY 100 sub BnY 250 sub moveto %(Y) show imshow 0 0 1 0 setcmykcolor} if %Ym i 2 eq {AnY 350 sub BnY 250 sub moveto %(G) show imshow 1 0 1 0 setcmykcolor} if %Gm i 3 eq {AnY 350 sub BnY 050 sub moveto %(C) show imshow 1 0 0 0 setcmykcolor} if %Cm i 4 eq {AnY 150 add BnY 050 sub moveto %(B) show imshow 1 1 0 0 setcmykcolor} if %Bm i 5 eq {AnY 150 add BnY 050 sub moveto %(M) show imshow 0 1 0 0 setcmykcolor} if %Mm ie 1 eq {%ie=1 i 6 eq {AnY 150 add BnY 150 sub moveto (R) show ioshow 0 1 1 0 setcmykcolor} if %Rm i 7 eq {AnY 100 sub BnY 250 sub moveto (Y) show ioshow 0 0 1 0 setcmykcolor} if %Ym i 8 eq {AnY 300 sub BnY 250 sub moveto (G) show ioshow 1 0 1 0 setcmykcolor} if %Gm i 9 eq {AnY 050 sub BnY 150 add moveto (B) show ioshow 1 1 0 0 setcmykcolor} if %Bm } if %ie=1 newpath AnY BnY i 5 le {50}{90} ifelse 0 360 arc fill 0 setgray newpath AnY BnY i 5 le {50}{90} ifelse 0 360 arc stroke } for %i=0,9 700 800 add neg -3200 translate %for graphic } if %xchart4=3 xchart4 4 eq {%xchart4=4 %only for (A,B) /fakt 40 def /a2 1.00 def /b2 -0.4 def 3500 2000 translate %for text and grafic -3400 1800 moveto TBIS (XYZ) show TBL (w) show TBS (=) show XK cvsshow5 (, ) show YK cvsshow5 (, ) show ZK cvsshow2 -3400 1550 moveto TBIS (A) show TBS ( = \050) show TBIS (a) show TBS ( - ) show TBIS (a) show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (\051 ) show TBIS (Y) show -3400 1300 moveto TBIS (B) show TBS ( = \050) show TBIS (b) show TBS ( - ) show TBIS (b) show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (\051 ) show TBIS (Y) show -3400 1050 moveto TBIS (a) show TBS ( = ) show TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( [) show TBIS (x/y) show TBS (]) show -3400 800 moveto TBIS (b) show TBS ( = ) show TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( [) show TBIS (z/y) show TBS (]) show -3400 550 moveto TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( = 1) show -3400 300 moveto TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( = -0,4) show -3400 050 moveto TBIS (n) show TBS ( = ) show TELi xchartl get show 0 1 05 {/i exch def %i=0,39 Xi i get Yi i get 0.0001 add div %(a-an)Y XK YK 0.0001 add div sub Yi i get mul fakt mul Zi i get Yi i get 0.0001 add div %(b-bn)Y ZK YK 0.0001 add div sub 0.4 mul neg Yi i get mul fakt mul i 0 eq {moveto} if i 1 ge i 04 le and {lineto} if i 05 eq {lineto closepath stroke} if } for %i=0,39 ie 1 eq {%ie=1 0 1 05 {/i exch def %i=0,39 0 0 moveto Xi i get Yi i get 0.0001 add div %(a-an)Y XK YK 0.0001 add div sub Yi i get mul fakt mul Zi i get Yi i get 0.0001 add div %(b-bn)Y ZK YK 0.0001 add div sub 0.4 mul neg Yi i get mul fakt mul lineto stroke } for %i=0,39 } if %ie=1 XW YW 0.0001 add div %(a-an)YW XK YK 0.0001 add div sub YW mul fakt mul ZW YW 0.0001 add div %(b-an)YW ZK YK 0.0001 add div sub 0.4 mul neg YW mul fakt mul i 5 le {50}{90} ifelse 0 360 arc stroke 0 080 add 0 080 add moveto %TBS TELi xchartl get show TBIS 0 1 9 {/i exch def %i=0,9 /AnY Xi i get Yi i get 0.0001 add div %(a-an)Y XK YK 0.0001 add div sub Yi i get mul fakt mul def /BnY Zi i get Yi i get 0.0001 add div %(b-bn)Y ZK YK 0.0001 add div sub 0.4 mul neg Yi i get mul fakt mul def i 0 eq {AnY 150 add BnY 050 sub moveto %(R) show imshow 0 1 1 0 setcmykcolor} if %Rm i 1 eq {AnY 100 sub BnY 200 add moveto %(Y) show imshow 0 0 1 0 setcmykcolor} if %Ym i 2 eq {AnY 350 sub BnY 150 sub moveto %(G) show imshow 1 0 1 0 setcmykcolor} if %Gm i 3 eq {AnY 350 sub BnY 050 sub moveto %(C) show imshow 1 0 0 0 setcmykcolor} if %Cm i 4 eq {AnY 050 sub BnY 250 sub moveto %(B) show imshow 1 1 0 0 setcmykcolor} if %Bm i 5 eq {AnY 150 add BnY 100 sub moveto %(M) show imshow 0 1 0 0 setcmykcolor} if %Mm ie 1 eq {%ie=1 i 6 eq {AnY 150 add BnY 150 sub moveto (R) show ioshow 0 1 1 0 setcmykcolor} if %Rm i 7 eq {AnY 100 sub BnY 150 add moveto (Y) show ioshow 0 0 1 0 setcmykcolor} if %Ym i 8 eq {AnY 300 sub BnY 000 add moveto (G) show ioshow 1 0 1 0 setcmykcolor} if %Gm i 9 eq {AnY 000 add BnY 250 sub moveto (B) show ioshow 1 1 0 0 setcmykcolor} if %Bm } if %ie=1 newpath AnY BnY i 5 le {50}{90} ifelse 0 360 arc fill 0 setgray newpath AnY BnY i 5 le {50}{90} ifelse 0 360 arc stroke } for %i=0,9 } if %xchart4=4 xchart4 5 eq {%xchart4=5 %only for (a*,b*) /D13 1 3 div def /fakt 40 3 div def /a2 1 XW div D13 exp def /b2 1 ZW div D13 exp -0.4 mul def 3500 2000 translate %for text and grafic -3400 1800 moveto TBIS (XYZ) show TBL (w) show TBS (=) show XK cvsshow5 (, ) show YK cvsshow5 (, ) show ZK cvsshow2 -3400 1550 moveto TBIS (a*) show TBS ( = 500 \050) show TBIS (a') show TBS ( - ) show TBIS (a') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (\051 ) show TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 1300 moveto TBIS (b*) show TBS ( = 500 \050) show TBIS (b') show TBS ( - ) show TBIS (b') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (\051 ) show TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 1050 moveto TBIS (a) show TBS ( = ) show TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( [) show TBIS (x/y) show TBS (]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 800 moveto TBIS (b) show TBS ( = ) show TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( [) show TBIS (z/y) show TBS (]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 550 moveto TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS (=[1/) show TBIS (X) show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto TBS (=) show a2 cvsshow4 -3400 300 moveto TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS (=-[1/) show TBIS (Z) show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto TBS (=) show b2 cvsshow5 -3400 050 moveto TBIS (n) show TBS ( = ) show TELi xchartl get show 0 1 05 {/i exch def %i=0,39 Xi i get Yi i get 0.0001 add div %500(a'-a'n)Y**(1/3) D13 exp a2 mul %a'= a2 (x/y)**(1/3) XK YK 0.0001 add div D13 exp a2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul Zi i get Yi i get 0.0001 add div %500(b'-b'n)Y**(1/3) D13 exp b2 mul %b' = b2 (z/y)**(1/3) ZK YK 0.0001 add div D13 exp b2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul i 0 eq {moveto} if i 1 ge i 04 le and {lineto} if i 05 eq {lineto closepath stroke} if } for %i=0,39 ie 1 eq {%ie=1 0 1 05 {/i exch def %i=0,39 0 0 moveto Xi i get Yi i get 0.0001 add div %500(a'-a'n)Y**(1/3) D13 exp a2 mul %a'= a2 (x/y)**(1/3) XK YK 0.0001 add div D13 exp a2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul Zi i get Yi i get 0.0001 add div %500(b'-b'n)Y**(1/3) D13 exp b2 mul %b' = b2 (z/y)**(1/3) ZK YK 0.0001 add div D13 exp b2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul lineto stroke } for %i=0,39 } if %ie=1 XW YW 0.0001 add div D13 exp a2 mul XK YK 0.0001 add div D13 exp a2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul ZW YW 0.0001 add div D13 exp b2 mul ZK YK 0.0001 add div D13 exp b2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul i 5 le {50}{90} ifelse 0 360 arc stroke XW YW 0.0001 add div D13 exp a2 mul XK YK 0.0001 add div D13 exp a2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul 080 add ZW YW 0.0001 add div D13 exp b2 mul ZK YK 0.0001 add div D13 exp b2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul 080 add moveto %TBS TELi xchartl get show TBIS 0 1 9 {/i exch def %i=0,9 /AnY Xi i get Yi i get 0.0001 add div %500(a'-a'n)Y**(1/3) D13 exp a2 mul %a'= a2 (x/y)**(1/3) XK YK 0.0001 add div D13 exp a2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def /BnY Zi i get Yi i get 0.0001 add div %500(b'-b'n)Y**(1/3) D13 exp b2 mul %b'= b2 (x/y)**(1/3) ZK YK 0.0001 add div D13 exp b2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def i 0 eq {AnY 150 add BnY 050 sub moveto %(R) show imshow 0 1 1 0 setcmykcolor} if %Rm i 1 eq {AnY 100 sub BnY 200 add moveto %(Y) show imshow 0 0 1 0 setcmykcolor} if %Ym i 2 eq {AnY 350 sub BnY 050 sub moveto %(G) show imshow 1 0 1 0 setcmykcolor} if %Gm i 3 eq {AnY 350 sub BnY 050 sub moveto %(C) show imshow 1 0 0 0 setcmykcolor} if %Cm i 4 eq {AnY 050 sub BnY 250 sub moveto %(B) show imshow 1 1 0 0 setcmykcolor} if %Bm i 5 eq {AnY 150 add BnY 100 sub moveto %(M) show imshow 0 1 0 0 setcmykcolor} if %Mm ie 1 eq {%ie=1 i 6 eq {AnY 150 add BnY 050 sub moveto (R) show ioshow 0 1 1 0 setcmykcolor} if %Rm i 7 eq {AnY 050 sub BnY 150 add moveto (Y) show ioshow 0 0 1 0 setcmykcolor} if %Ym i 8 eq {AnY 350 sub BnY 150 sub moveto (G) show ioshow 1 0 1 0 setcmykcolor} if %Gm i 9 eq {AnY 100 add BnY 250 sub moveto (B) show ioshow 1 1 0 0 setcmykcolor} if %Bm } if %ie=1 newpath AnY BnY i 5 le {50}{90} ifelse 0 360 arc fill 0 setgray newpath AnY BnY i 5 le {50}{90} ifelse 0 360 arc stroke } for %i=0,9 -3500 -2000 translate %for text and grafic } if %xchart4=5 xchart4 6 eq {%xchart4=6 %only for (a*,b*) with const. for D65 /D13 1 3 div def /fakt 40 3 div def /a2 0.2191 def /b2 -0.08376 def 3500 2000 translate %for text and grafic -3400 1800 moveto TBIS (XYZ) show TBL (w) show TBS (=) show XK cvsshow5 (, ) show YK cvsshow5 (, ) show ZK cvsshow2 -3400 1550 moveto TBIS (a*) show TBS ( = 500 \050) show TBIS (a') show TBS ( - ) show TBIS (a') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (\051 ) show TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 1300 moveto TBIS (b*) show TBS ( = 500 \050) show TBIS (b') show TBS ( - ) show TBIS (b') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (\051 ) show TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 1050 moveto TBIS (a') show TBS ( = ) show TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( [) show TBIS (x/y) show TBS (]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 800 moveto TBIS (b') show TBS ( = ) show TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( [) show TBIS (z/y) show TBS (]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 550 moveto TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS (=[1/) show TBIS (X) show 0 -50 rmoveto TBL (D65) show 0 50 rmoveto TBS (]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto TBS (=) show a2 cvsshow4 -3400 300 moveto TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS (=-[1/) show TBIS (Z) show 0 -50 rmoveto TBL (D65) show 0 50 rmoveto TBS (]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto TBS (=) show b2 cvsshow5 -3400 050 moveto TBIS (n) show TBS ( = ) show TELi xchartl get show 0 1 05 {/i exch def %i=0,39 Xi i get Yi i get 0.0001 add div %500(a'-a'n)Y**(1/3) D13 exp a2 mul %a'= a2 (x/y)**(1/3) XK YK 0.0001 add div D13 exp a2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul Zi i get Yi i get 0.0001 add div %500(b'-b'n)Y**(1/3) D13 exp b2 mul %b'= b2 (z/y)**(1/3) ZK YK 0.0001 add div D13 exp b2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul i 0 eq {moveto} if i 1 ge i 04 le and {lineto} if i 05 eq {lineto closepath stroke} if } for %i=0,39 ie 1 eq {%ie=1 0 1 05 {/i exch def %i=0,39 0 0 moveto Xi i get Yi i get 0.0001 add div %500(a'-a'n)Y**(1/3) D13 exp a2 mul %a'= a2 (x/y)**(1/3) XK YK 0.0001 add div D13 exp a2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul Zi i get Yi i get 0.0001 add div %500(b'-b'n)Y**(1/3) D13 exp b2 mul %b'= b2 (z/y)**(1/3) ZK YK 0.0001 add div D13 exp b2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul lineto stroke } for %i=0,39 } if %ie=1 XW YW 0.0001 add div D13 exp a2 mul XK YK 0.0001 add div D13 exp a2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul ZW YW 0.0001 add div D13 exp b2 mul ZK YK 0.0001 add div D13 exp b2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul i 5 le {50}{90} ifelse 0 360 arc stroke XW YW 0.0001 add div %500(a'-a'n)Y**(1/3) D13 exp a2 mul %a'= a2 (x/y)**(1/3) XK YK 0.0001 add div D13 exp a2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul 080 add ZW YW 0.0001 add div %500(b'-b'n)Y**(1/3) D13 exp b2 mul %a'= a2 (x/y)**(1/3) ZK YK 0.0001 add div D13 exp b2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul 080 add moveto %TBS TELi xchartl get show TBIS 0 1 9 {/i exch def %i=0,9 /AnY Xi i get Yi i get 0.0001 add div D13 exp a2 mul XK YK 0.0001 add div D13 exp a2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def /BnY Zi i get Yi i get 0.0001 add div D13 exp b2 mul ZK YK 0.0001 add div D13 exp b2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def i 0 eq {AnY 150 add BnY 050 sub moveto %(R) show imshow 0 1 1 0 setcmykcolor} if %Rm i 1 eq {AnY 100 sub BnY 200 add moveto %(Y) show imshow 0 0 1 0 setcmykcolor} if %Ym i 2 eq {AnY 350 sub BnY 150 sub moveto %(G) show imshow 1 0 1 0 setcmykcolor} if %Gm i 3 eq {AnY 350 sub BnY 050 sub moveto %(C) show imshow 1 0 0 0 setcmykcolor} if %Cm i 4 eq {AnY 050 sub BnY 250 sub moveto %(B) show imshow 1 1 0 0 setcmykcolor} if %Bm i 5 eq {AnY 150 add BnY 100 sub moveto %(M) show imshow 0 1 0 0 setcmykcolor} if %Mm ie 1 eq {%ie=1 i 6 eq {AnY 150 add BnY 050 sub moveto (R) show ioshow 0 1 1 0 setcmykcolor} if %Rm i 7 eq {AnY 100 sub BnY 150 add moveto (Y) show ioshow 0 0 1 0 setcmykcolor} if %Ym i 8 eq {AnY 350 sub BnY 050 sub moveto (G) show ioshow 1 0 1 0 setcmykcolor} if %Gm i 9 eq {AnY 000 add BnY 250 sub moveto (B) show ioshow 1 1 0 0 setcmykcolor} if %Bm } if %ie=1 newpath AnY BnY i 5 le {50}{90} ifelse 0 360 arc fill 0 setgray newpath AnY BnY i 5 le {50}{90} ifelse 0 360 arc stroke } for %i=0,9 -3500 -2000 translate %for text and grafic } if %xchart4=6 xchart4 7 eq {%xchart4=7 %only for (a*,b*)D65 /D13 1 3 div def /D11 1 def /D16 1 6 div def /fakt 40 3 div def /a2 1 15 div def /b2 1 12 div neg def 3500 2000 translate %for text and grafic -3400 1800 moveto TBIS (XYZ) show TBL (w) show TBS (=) show XK cvsshow5 (, ) show YK cvsshow5 (, ) show ZK cvsshow2 -3400 1550 moveto TBIS (a*) show TBS ( = 500 \050) show TBIS (a') show TBS ( - ) show TBIS (a') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (\051 ) show TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 1300 moveto TBIS (b*) show TBS ( = 500 \050) show TBIS (b') show TBS ( - ) show TBIS (b') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto TBS (\051 ) show TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto -3400 1050 moveto TBIS (a) show TBS ( = ) show TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( [) show TBIS (x/y) show TBS ( + 1]) show -3400 800 moveto TBIS (b) show TBS ( = ) show TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( [) show TBIS (z/y) show TBS ( + 1/6 ]) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto TBS -3400 550 moveto TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( = 1/15 = ) show a2 cvsshow5 -3400 300 moveto TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto TBS ( = -1/12 = ) show b2 cvsshow5 -3400 050 moveto TBIS (n) show TBS ( = ) show TELi xchartl get show 0 1 05 {/i exch def %i=0,39 Xi i get Yi i get 0.0001 add div %500(a'-a'n)Y**(1/3) D11 add a2 mul %a'=(x/y+1)/15 XK YK 0.0001 add div D11 add a2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul Zi i get Yi i get 0.0001 add div %500(b'-b'n)Y**(1/3) D16 add D13 exp b2 mul %b'=-[(z/y +1/6)**(1/3)]/12 ZK YK 0.0001 add div D16 add D13 exp b2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul i 0 eq {moveto} if i 1 ge i 04 le and {lineto} if i 05 eq {lineto closepath stroke} if } for %i=0,39 ie 1 eq {%ie=1 0 1 05 {/i exch def %i=0,39 0 0 moveto Xi i get Yi i get 0.0001 add div %500(a'-a'n)Y**(1/3) D11 add a2 mul %a'=(x/y+1)/15 XK YK 0.0001 add div D11 add a2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul Zi i get Yi i get 0.0001 add div %500(b'-b'n)Y**(1/3) D16 add D13 exp b2 mul %b'=-[(z/y +1/6)**(1/3)]/12 ZK YK 0.0001 add div D16 add D13 exp b2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul lineto stroke } for %i=0,39 } if %ie=1 XW YW 0.0001 add div D11 add a2 mul XK YK 0.0001 add div D11 add a2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul ZW YW 0.0001 add div D16 add D13 exp b2 mul ZK YK 0.0001 add div D16 add D13 exp b2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul i 5 le {50}{90} ifelse 0 360 arc stroke XW YW 0.0001 add div D11 add a2 mul XK YK 0.0001 add div D11 add a2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul 080 add ZW YW 0.0001 add div D16 add D13 exp b2 mul ZK YK 0.0001 add div D16 add D13 exp b2 mul sub YW 0.0001 add D13 exp mul fakt mul 500 mul 080 add moveto %TBS TELi xchartl get show TBIS 0 1 09 {/i exch def %i=0,9 /AnY Xi i get Yi i get 0.0001 add div %500(a'-a'n)Y**(1/3) D11 add a2 mul %a'=(x/y+1)/15 XK YK 0.0001 add div D11 add a2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def /BnY Zi i get Yi i get 0.0001 add div %500(b'-b'n)Y**(1/3) D16 add D13 exp b2 mul %b'=-[(z/y +1/6)**(1/3)]/12 ZK YK 0.0001 add div D16 add D13 exp b2 mul sub Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def i 0 eq {AnY 150 add BnY 100 sub moveto %(R) show imshow 0 1 1 0 setcmykcolor} if %Rm i 1 eq {AnY 100 sub BnY 250 add moveto %(Y) show imshow 0 0 1 0 setcmykcolor} if %Ym i 2 eq {AnY 350 sub BnY 150 sub moveto %(G) show imshow 1 0 1 0 setcmykcolor} if %Gm i 3 eq {AnY 350 sub BnY 050 sub moveto %(C) show imshow 1 0 0 0 setcmykcolor} if %Cm i 4 eq {AnY 050 sub BnY 250 sub moveto %(B) show imshow 1 1 0 0 setcmykcolor} if %Bm i 5 eq {AnY 150 add BnY 100 sub moveto %(M) show imshow 0 1 0 0 setcmykcolor} if %Mm ie 1 eq {%ie=1 i 6 eq {AnY 150 add BnY 050 sub moveto (R) show ioshow 0 1 1 0 setcmykcolor} if %Rm i 7 eq {AnY 100 sub BnY 150 add moveto (Y) show ioshow 0 0 1 0 setcmykcolor} if %Ym i 8 eq {AnY 350 sub BnY 050 sub moveto (G) show ioshow 1 0 1 0 setcmykcolor} if %Gm i 9 eq {AnY 000 add BnY 250 sub moveto (B) show ioshow 1 1 0 0 setcmykcolor} if %Bm } if %ie=1 newpath AnY BnY i 5 le {50}{90} ifelse 0 360 arc fill 0 setgray newpath AnY BnY i 5 le {50}{90} ifelse 0 360 arc stroke } for %i=0,9 -3500 -2000 translate %for text and grafic } if %xchart4=7 showpage grestore %} for %xchartl=0,7 } for %xchart4=0,7 %} for %xcolorl=0,1 %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 080 MM add 008 MM translate %80 MM Breite von TestStreifen 10 /Times-ISOL1 FS 53 MM 1 MM moveto () show 1 1 scale -77 21 MM sub -91 translate %%BeginDocument: Bild 29 Teststreifen Ueberlaenge %line 509 %%EndDocument EndEPSF grestore gsave BeginEPSF -0.0 MM -0.0 MM translate %xy-Verschiebung Rechteckrahmen nach innen% %%BeginDocument: Bild 30 %Rechteckrahmen %line 519 %!PS-Adobe-3.0 EPSF-3.0 Frame arround with Internet text DG02 20070101 %%BoundingBox: 0 0 598 845 %%EndProlog gsave /lanind 1 def /lantex [(G) (E) (S) (N) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showea {1 lanind le {show} {pop} ifelse} bind def /lanind1 01 def /lanind2 01 def /lanindd 01 def /colorm1 00 def /colorm2 00 def /colormd 01 def /deintp1 00 def /deintp2 00 def /deintpd 01 def /xcolor1 03 def /xcolor2 03 def /xcolord 01 def /xchart1 00 def /xchart2 00 def /xchartd 01 def /pchart1 00 def /pchart2 00 def /pchartd 01 def /colsep1 00 def /colsep2 00 def /colsepd 01 def /pmetam1 00 def /pmetam2 00 def /pmetamd 01 def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} if /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} if /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} if /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} if /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 1 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} if /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} if /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} if /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % /GSS$ where {pop /LSS$ GSS$ def} {/LSS$ (1) def} ifelse /GSC$ where {pop /LSC$ GSC$ def} {/LSC$ (N) def} ifelse /GSX$ where {pop /LSX$ GSX$ def} {/LSX$ (0) def} ifelse /GSY$ where {pop /LSY$ GSY$ def} {/LSY$ (0) def} ifelse /GEX$ where {pop /LEX$ GEX$ def} {/LEX$ (P.PS./PDF) def} ifelse /GEY$ where {pop /LEY$ GEY$ def} {/LEY$ (P.DAT) def} ifelse /IMES 0 def /i*ptrsc 0 def gsave 0 setgray 1.0 1.0 scale 0.0 MM 0.0 MM translate 0.15 MM setlinewidth /x 20 array def /y 20 array def /d 20 array def /x [000 296 296 000 002 294 294 002 005 291 291 005 %speziell 006 290 290 006 008 288 288 008 ] def /y [000 000 210 210 002 002 208 208 005 005 205 205 %speziell 006 006 204 204 008 008 202 202 ] def /d [060 017 -60 -17 058 015 -58 -15 056 013 -56 -13 054 011 -54 -11 052 009 -52 -09 ] def colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1 xchart 0 eq {/Txx (-) def /Fxx (-) def} if xchart 1 ge {%xchart>=1 /i0 12 def /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def 2.5 MM /Times-ISOL1 FS x i0 get MM 40 MM add y i0 get MM 1 MM sub moveto lanind cvishow (-) show colorm cvishow deintp cvishow xcolor cvishow xchart cvishow pchart cvishow colsep cvishow (-F) show pmetam cvishow } if %xchart>=1 /xt 1 def xchart 1 eq {/xt 1 def} if xt 0 eq {%xt=0,1 ifelse /i0 12 def /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def 2.5 MM /Times-ISOL1 FS x i0 get MM 110 MM add y i0 get MM 1 MM sub moveto (http://130.149.60.45/~farbmetrik/TE01/TE01) show colorm cvishow deintp cvishow colorm 0 eq {(N) show} {(F) show} ifelse (P.PDF & ) show (http://130.149.60.45/~farbmetrik/TE01/TE01) show colorm cvishow deintp cvishow colorm 0 eq {(N) show} {(F) show} ifelse (P.TXT & ) show (http://130.149.60.45/~farbmetrik/TE01/TE01.HTM) show } %xt=0 { %xt=1 /xlu 017 MM def /ylu 017 MM def /xro 279 MM def /yro 193 MM def /xlo 017 MM def /ylo 193 MM def /xru 279 MM def /yru 017 MM def xlu 8 MM sub ylu moveto 16 MM 0 rlineto stroke xlu ylu 8 MM sub moveto 0 16 MM rlineto stroke xro 8 MM add yro moveto -16 MM 0 rlineto stroke xro yro 8 MM add moveto 0 -16 MM rlineto stroke xru 8 MM sub yru moveto 16 MM 0 rlineto stroke xru yru 8 MM sub moveto 0 16 MM rlineto stroke xlo 8 MM add ylo moveto -16 MM 0 rlineto stroke xlo ylo 8 MM add moveto 0 -16 MM rlineto stroke 1 2 7 {/i exch def %Zentrierkreise xlu ylu i MM 0 360 arc stroke xro yro i MM 0 360 arc stroke xru yru i MM 0 360 arc stroke xlo ylo i MM 0 360 arc stroke } for %i 12 4 16 {/i exch def /i0 i def %i=0,16 %0 4 16 {/i exch def /i0 i def %i=0,16 /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def i 16 eq {0.30 MM setlinewidth} {0.15 MM setlinewidth} ifelse 0 setgray x i0 get MM y i0 get MM moveto x i1 get MM y i1 get MM lineto x i2 get MM y i2 get MM lineto x i3 get MM y i3 get MM lineto x i0 get MM y i0 get MM lineto stroke i 16 eq {6 /Times-ISOL1 FS /x00 67 def /xdif 32 def /y0o 202.3 def /y0u 6.3 def /x0l 6.1 def /x0r 288 def /y00 22 def /ydif 32 def x00 xdif 0 mul add MM y0o MM moveto (V) show x00 xdif 0 mul add MM y0u MM moveto (C) show x00 xdif 1 mul add MM y0o MM moveto (L) show x00 xdif 1 mul add MM y0u MM moveto (M) show x00 xdif 2 mul add MM y0o MM moveto (O) show x00 xdif 2 mul add MM y0u MM moveto (Y) show x00 xdif 3 mul add MM y0o MM moveto (Y) show x00 xdif 3 mul add MM y0u MM moveto (O) show x00 xdif 4 mul add MM y0o MM moveto (M) show x00 xdif 4 mul add MM y0u MM moveto (L) show x00 xdif 5 mul add MM y0o MM moveto (C) show x00 xdif 5 mul add MM y0u MM moveto (V) show x0l MM y00 ydif 0 mul add MM moveto (V) show x0r MM y00 ydif 0 mul add MM moveto (C) show x0l MM y00 ydif 1 mul add MM moveto (L) show x0r MM y00 ydif 1 mul add MM moveto (M) show x0l MM y00 ydif 2 mul add MM moveto (O) show x0r MM y00 ydif 2 mul add MM moveto (Y) show x0l MM y00 ydif 3 mul add MM moveto (Y) show x0r MM y00 ydif 3 mul add MM moveto (O) show x0l MM y00 ydif 4 mul add MM moveto (M) show x0r MM y00 ydif 4 mul add MM moveto (L) show x0l MM y00 ydif 5 mul add MM moveto (C) show x0r MM y00 ydif 5 mul add MM moveto (V) show } if } for %i=0,16 0 1 10 {/j0 exch def /j1 j0 1 add def %j0 j0 0 eq {tzccmy0* setcmykcolor} if j0 1 eq {0 setgray} if j0 2 eq {tzmcmy0* setcmykcolor} if j0 3 eq {0 setgray} if j0 4 eq {tzycmy0* setcmykcolor} if j0 5 eq {0 setgray} if j0 6 eq {tzocmy0* setcmykcolor} if j0 7 eq {0 setgray} if j0 8 eq {tzlcmy0* setcmykcolor} if j0 9 eq {0 setgray} if j0 10 eq {tzvcmy0* setcmykcolor} if 12 4 16 {/i exch def /i0 i def %i=0,16 %0 4 16 {/i exch def /i0 i def %i=0,16 /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def i 16 eq {0.30 MM setlinewidth} {0.15 MM setlinewidth} ifelse x i0 get d i0 get add 16 j0 mul add MM y i0 get MM moveto x i0 get d i0 get add 16 j1 mul add MM y i0 get MM lineto stroke x i1 get MM y i1 get d i1 get add 16 j0 mul add MM moveto x i1 get MM y i1 get d i1 get add 16 j1 mul add MM lineto stroke x i2 get d i2 get add 16 j0 mul sub MM y i2 get MM moveto x i2 get d i2 get add 16 j1 mul sub MM y i2 get MM lineto stroke x i3 get MM y i3 get d i3 get add 16 j0 mul sub MM moveto x i3 get MM y i3 get d i3 get add 16 j1 mul sub MM lineto stroke } for %i=0,16 } for %j0 0.15 MM setlinewidth /s 7 MM def /s1 8 MM def /s5 36 MM def 16 1 20 {/j exch def /j0 j 16 sub def %j=16,20 /ix0 xlu 8 MM add j0 7 MM mul add def /iy0 ylu 8 MM sub def 0 1 3 {/ij exch def %ij=0,3 ij 0 eq {/ix0 xlu 8 MM add j0 7 MM mul add def /iy0 ylu 8 MM sub def} if ij 1 eq {/ix0 xru 43 MM sub j0 7 MM mul add def /iy0 yru 8 MM sub def} if ij 2 eq {/ix0 xlo 8 MM add j0 7 MM mul add def /iy0 ylo 1 MM add def} if ij 3 eq {/ix0 xro 43 MM sub j0 7 MM mul add def /iy0 yro 1 MM add def} if i*ptrsc 0 eq i*ptrsc 2 eq or {%i*ptrsc=0,2 cmy0* setcmykcolor j 16 eq {tzan j get dup dup 0 setcmykcolor ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if tzan j get dup dup 0 setcmykcolor ix0 iy0 s s rec fill } if %i*ptrsc=0,2 i*ptrsc 1 eq i*ptrsc 3 eq or {%i*ptrsc=1,3 www* setrgbcolor j 16 eq {1 tzan j get 1 sub dup dup setrgbcolor %N ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if 1 tzan j get sub dup dup setrgbcolor %N ix0 iy0 s s rec fill } if %i*ptrsc=1,3 i*ptrsc 4 eq i*ptrsc 5 eq or {%i*ptrsc=4,5 [/CIEBasedABC << %Farbraum und Grenzen fuer D65 /RangeABC [0 100 -128 127 -128 127] /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] /MatrixABC [1 1 1 1 0 0 0 0 -1] /DecodeLMN [{dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind] /WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65 >>] setcolorspace j 16 eq {tznLAB* 0 get tzwLAB* 0 get tznLAB* 0 get sub 0.25 j0 mul mul add tznLAB* 1 get tzwLAB* 1 get tznLAB* 1 get sub 0.25 j0 mul mul add tznLAB* 2 get tzwLAB* 2 get tznLAB* 2 get sub 0.25 j0 mul mul add setcolor %N ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if tznLAB* 0 get tzwLAB* 0 get tznLAB* 0 get sub 0.25 j0 mul mul add tznLAB* 1 get tzwLAB* 1 get tznLAB* 1 get sub 0.25 j0 mul mul add tznLAB* 2 get tzwLAB* 2 get tznLAB* 2 get sub 0.25 j0 mul mul add setcolor %N ix0 iy0 s s rec fill } if %i*ptrsc=4,5 i*ptrsc 6 eq {%i*ptrsc=6 000n* setcmykcolor j 16 eq {0 0 0 tzan j get setcmykcolor ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if 0 0 0 tzan j get setcmykcolor ix0 iy0 s s rec fill } if %i*ptrsc=6 i*ptrsc 7 eq {%i*ptrsc=7 w* setgray j 16 eq {1 tzan j get sub setgray ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if 1 tzan j get sub setgray ix0 iy0 s s rec fill } if %i*ptrsc=7 } for %ij=0,3 } for %j=16,20 0 setgray 018 MM 008.2 MM moveto 6 /Times-Roman FS (-8) show 018 MM 006.2 MM moveto 6 /Times-Roman FS (-6) show 276 MM 008.2 MM moveto 6 /Times-Roman FS (-8) show 276 MM 006.2 MM moveto 6 /Times-Roman FS (-6) show 018 MM 202.2 MM moveto 6 /Times-Roman FS (-8) show 018 MM 204.2 MM moveto 6 /Times-Roman FS (-6) show 276 MM 202.2 MM moveto 6 /Times-Roman FS (-8) show 276 MM 204.2 MM moveto 6 /Times-Roman FS (-6) show 0 setgray 12 /Times-ISOL1 FS 61 MM 13.5 MM moveto (TUB\255Pr\374fvorlage TE01; ) showde %0TE01X-Y 0000# (TUB\255test chart TE01; ) showen %1TE01X-Y 0000# (gr\341fico TUB\255TE01; ) showes %2TE01X-Y 0000# (TUB\255test graphique TE01; ) showfr %3TE01X-Y 0000# (grafico TUB\255TE01; ) showit %4TE01X-Y 0000# (TUB\255test chart TE01; ) showjp %5TE01X-Y 0000# xchart4 0 eq {%xchart4=0 (Farbensehen und farbmetrik ) showde %0TE01X-Y 0100# (colour vision and colorimetry ) showea %1TE01X-Y 0100# } if %xchart4=0 xchart4 1 eq {() show} if xchart4 2 eq {() show} if 61 MM 09.5 MM moveto 12 /Times-ISOL1 FS xchart4 0 eq {%xchart4=0 12 /Times-ISOL1 FS (Zapfensignale als Funktion von Leuchtdichte L und ) showde %0TE01X-Y 0200# (cone signals as function of luminance L and ) showea %1TE01X-Y 0200# 12 /Symbol FS (l) show 12 /Times-ISOL1 FS } if %xchart4=0 xchart4 1 eq { 12 /Times-ISOL1 FS (Chromatische Pr\374fvorlage) showde %0TE01X-Y 0300# (chromatic test chart) showen %1TE01X-Y 0300# (test crom\341tico gr\341fico) showes %2TE01X-Y 0300# (chromatic graphique de test) showfr %3TE01X-Y 0300# (prova cromatica grafico) showit %4TE01X-Y 0300# (chromatic test chart) showjp %5TE01X-Y 0300# 12 /TimesI-ISOL1 FS ( RGB) show } if xchart4 2 eq { 12 /Times-ISOL1 FS (Chromatische Pr\374fvorlage) showde %0TE01X-Y 0400# (chromatic test chart) showen %1TE01X-Y 0400# (test crom\341tico gr\341fico) showes %2TE01X-Y 0400# (chromatic graphique de test) showfr %3TE01X-Y 0400# (prova cromatica grafico) showit %4TE01X-Y 0400# (chromatic test chart) showjp %5TE01X-Y 0400# 12 /TimesI-ISOL1 FS ( CMY) show } if xchart 1 ge {%xchart>=1 12 /Times-ISOL1 FS (, 3D=) show colorm cvishow (, de=) show deintp cvishow 12 /TimesI-ISOL1 FS xchart5f 0 eq {(, sRGB) show} if xchart5f 1 eq {(, cmyk) show} if xchart5f 2 eq {(, cmy0) show} if xchart5f 3 eq {(, cmyk) show} if colorm 1 eq {(*) show} if } if %xchart>=1 12 /Times-ISOL1 FS 165 MM 13 MM moveto (Eingabe: ) showde %0TE01X-Y 0500# (input: ) showen %1TE01X-Y 0500# (entrada: ) showes %2TE01X-Y 0500# (entr\351e: ) showfr %3TE01X-Y 0500# (immettere: ) showit %4TE01X-Y 0500# (input: ) showjp %5TE01X-Y 0500# 12 /TimesI-ISOL1 FS (w/rgb/cmyk -> ) show xchart xchart3 lt {(w/rgb/cmyk) show } if xchart xchart3 ge {%xchart>=xchart3 (rgb) show } if %xchart>=xchart3 10 /Times-ISOL1 FS 0 -2 rmoveto Txx show 0 2 rmoveto 12 /Times-ISOL1 FS 12 /Times-ISOL1 FS 165 MM 9 MM moveto (Ausgabe: ) showde %0TE01X-Y 0600# (output: ) showen %1TE01X-Y 0600# (salida: ) showes %2TE01X-Y 0600# (sortie: ) showfr %3TE01X-Y 0600# (uscita: ) showit %4TE01X-Y 0600# (output: ) showjp %5TE01X-Y 0600# %colorm=0,1! 12 /Times-ISOL1 FS xchart 0 eq {%xchart=0,#0 12 /Times-ISOL1 FS (keine \304nderung) showde %0TE01X-Y 0700# (no change) showen %1TE01X-Y 0700# (ning\372n cambio) showes %2TE01X-Y 0700# (aucun changement) showfr %3TE01X-Y 0700# (nessun cambiamento) showit %4TE01X-Y 0700# (no change compared) showjp %5TE01X-Y 0700# }%xchart=0 {%xchart#0 12 /Times-ISOL1 FS colorm 0 eq {%colorm=0 (Transfer nach ) showde %0TE01X-Y 0800# (transfer to ) showen %1TE01X-Y 0800# (transfiera a ) showes %2TE01X-Y 0800# (transf\351rer \340 ) showfr %3TE01X-Y 0800# (trasferire a ) showit %4TE01X-Y 0800# (transfer to ) showjp %5TE01X-Y 0800# }%colorm=0 {%colorm=1 (3D\255Linearisierung ) showde %0TE01X-Y 0900# (3D\255linearization to ) showen %1TE01X-Y 0900# (3D\255linealizaci\363n a ) showes %2TE01X-Y 0900# (linearisation 3D selon ) showfr %3TE01X-Y 0900# (3D\255linearizzazione a ) showit %4TE01X-Y 0900# (3D\255linearization to ) showjp %5TE01X-Y 0900# } ifelse %colorm=1 12 /TimesI-ISOL1 FS xchart5f 0 eq {(rgb) show} if xchart5f 1 eq {(cmyk) show} if xchart5f 2 eq {(cmy0) show} if xchart5f 3 eq {(cmyk) show} if colorm 1 eq {(*) show} if 10 /Times-ISOL1 FS 0 -2 rmoveto Txx show 0 2 rmoveto 12 /Times-ISOL1 FS } ifelse %xchart=0,#0 %0 setgray %end white and unvisible 12 /Times-ISOL1 FS 62 MM 198.5 MM moveto (http://130.149.60.45/~farbmetrik/TE01/TE01L) show (0) show LSC$ show LEX$ show %1 setgray %start white and unvisible (; ) show xchart 0 eq { (Start\255Ausgabe) showde %0TE01X-Y 1000# (start output) showen %1TE01X-Y 1000# (comience salida) showes %2TE01X-Y 1000# (sortie de production) showfr %3TE01X-Y 1000# (cominciare l'uscita) showit %4TE01X-Y 1000# (start output) showjp %5TE01X-Y 1000# } if LSC$ (C) eq { (Start\255Ausgabe) showde %0TE01X-Y 1100# (start output) showen %1TE01X-Y 1100# (comience salida) showes %2TE01X-Y 1100# (sortie de production) showfr %3TE01X-Y 1100# (cominciare l'uscita) showit %4TE01X-Y 1100# (start output) showjp %5TE01X-Y 1100# } if xchart 1 ge {%xchart>=1 colorm 0 eq {%colorm=0,1 (Transfer Ausgabe) showde %0TE01X-Y 1200# (transfer output) showen %1TE01X-Y 1200# (salida de transferencia) showes %2TE01X-Y 1200# (sortie de transfert) showfr %3TE01X-Y 1200# (uscita di trasferimento) showit %4TE01X-Y 1200# (transfer output) showjp %5TE01X-Y 1200# }%colorm=0 {%colorm=1 (3D\255Linearisierung) showde %0TE01X-Y 1300# (3D\255linearization) showen %1TE01X-Y 1300# (3D\255linealizaci\363n) showes %2TE01X-Y 1300# (linearisation 3D) showfr %3TE01X-Y 1300# (3D\255linearizzzazione) showit %4TE01X-Y 1300# (3D\255linearization) showjp %5TE01X-Y 1300# } ifelse %colorm=0,1 } if %xchart>=1 62 MM 194 MM moveto LSC$ (N) eq LSC$ (C) eq or { (N: Keine 3D\255Linearisierung (OL) ) showde %0TE01X-Y 1400# (N: no 3D\255linearization (OL) ) showen %1TE01X-Y 1400# (N: ninguna 3D\255linealizaci\363n (OL) ) showes %2TE01X-Y 1400# (N: aucun linearisation 3D (OL) ) showfr %3TE01X-Y 1400# (N: nessun 3D\255linearizzazione (OL) ) showit %4TE01X-Y 1400# (N: no 3D\255linearization (OL) ) showjp %5TE01X-Y 1400# (in Datei (F) oder PS\255Startup (S)) showde %0TE01X-Y 1500# (in file (F) or PS\255startup (S)) showen %1TE01X-Y 1500# (en archivo (F) o PS\255startup (S)) showes %2TE01X-Y 1500# (dans fichier (F) ou PS\255startup (S)) showfr %3TE01X-Y 1500# (nel file (F) o PS\255startup (S)) showit %4TE01X-Y 1500# (in file (F) or PS\255startup (S)) showjp %5TE01X-Y 1500# } {LSC$ show (: ) show (3D\255Linearisierung) showde %0TE01X-Y 1600# (3D\255linearization) showen %1TE01X-Y 1600# (3D\255linealizaci\363n) showes %2TE01X-Y 1600# (linearisation 3D) showfr %3TE01X-Y 1600# (3D\255linearizzzazione) showit %4TE01X-Y 1600# (3D\255linearization) showjp %5TE01X-Y 1600# ( TE01/TE01L) show LSS$ show LSX$ show (0) show LSC$ show LEY$ show } ifelse LSC$ (F) eq { ( in Datei (F)) showde %0TE01X-Y 1700# ( in file (F)) showen %1TE01X-Y 1700# ( en archivo (F)) showes %2TE01X-Y 1700# ( dans fichier (F)) showfr %3TE01X-Y 1700# ( nel file (F)) showit %4TE01X-Y 1700# ( in file (F)) showjp %5TE01X-Y 1700# } if LSC$ (S) eq { ( im Distiller Startup (S) Directory) showde %0TE01X-Y 1800# ( in Distiller Startup (S) Directory) showen %1TE01X-Y 1800# ( en el Distiller Startup (S) Directory) showes %2TE01X-Y 1800# ( dans le Distiller Startup (S) Directory) showfr %3TE01X-Y 1800# ( nel Distiller Startup (S) Directory) showit %4TE01X-Y 1800# ( in Distiller Startup (S) Directory) showjp %5TE01X-Y 1800# } if LSC$ (D) eq { ( in PS\255Device (D)) showde %0TE01X-Y 1900# ( in PS\255device (D)) showen %1TE01X-Y 1900# ( en el PS\255device (D)) showes %2TE01X-Y 1900# ( dans l'appareil PS (D)) showfr %3TE01X-Y 1900# ( nel PS\255dispositivo (D)) showit %4TE01X-Y 1900# ( in PS\255Device (D)) showjp %5TE01X-Y 1900# } if LSC$ (T) eq { ( im Distiller Startup (S) Directory) showde %0TE01X-Y 2000# ( in Distiller Startup (S) Directory) showen %1TE01X-Y 2000# ( en el Distiller Startup (S) Directory) showes %2TE01X-Y 2000# ( dans le Distiller Startup (S) Directory) showfr %3TE01X-Y 2000# ( nel Distiller Startup (S) Directory) showit %4TE01X-Y 2000# ( in Distiller Startup (S) Directory) showjp %5TE01X-Y 2000# } if LSC$ (E) eq { ( in PS\255Device (D)) showde %0TE01X-Y 2100# ( in PS\255device (D)) showen %1TE01X-Y 2100# ( en el PS\255device (D)) showes %2TE01X-Y 2100# ( dans appareil PS (D)) showfr %3TE01X-Y 2100# ( nel PS\255dispositivo (D)) showit %4TE01X-Y 2100# ( in PS\255Device (D)) showjp %5TE01X-Y 2100# } if %0 setgray %end white and unvisible (, Seite ) showde %0TE01X-Y 2200# (, page ) showen %1TE01X-Y 2200# (, p\341gina ) showes %2TE01X-Y 2200# (, page ) showfr %3TE01X-Y 2200# (, pagina ) showit %4TE01X-Y 2200# (, page ) showjp %5TE01X-Y 2200# xchart 1 add cvishow (/) show xchartm cvishow 16 MM 185 MM moveto -90 rotate (Siehe \344hnliche Dateien: ) showde %0TE01X-Y 2300# (see similar files: ) showen %1TE01X-Y 2300# (vea archivos semejantes: ) showes %2TE01X-Y 2300# (voir des fichiers similaires: ) showfr %3TE01X-Y 2300# (vedere dei file simili: ) showit %4TE01X-Y 2300# (see similar files: ) showjp %5TE01X-Y 2300# (http://130.149.60.45/~farbmetrik/TE01/TE01.HTM) show %(0) show %LSC$ show LEX$ show 90 rotate 12 MM 185 MM moveto -90 rotate (Technische Information: ) showde %0TE01X-Y 2400# (technical information: ) showen %1TE01X-Y 2400# (informaci\363n t\351cnica: ) showes %2TE01X-Y 2400# (informations techniques: ) showfr %3TE01X-Y 2400# (informazioni tecniche: ) showit %4TE01X-Y 2400# (technical information: ) showjp %5TE01X-Y 2400# (http://www.ps.bam.de) show ( oder ) showde %0TE01X-Y 2500# ( or ) showen %1TE01X-Y 2500# ( o ) showes %2TE01X-Y 2500# ( ou ) showfr %3TE01X-Y 2500# ( o ) showit %4TE01X-Y 2500# ( or ) showjp %5TE01X-Y 2500# (http://130.149.60.45/~farbmetrik) show 90 rotate 281 MM 185 MM moveto -90 rotate (TUB\255Registrierung: 20130201\255TE01/TE01L) showde %0TE01X-Y 2600# (TUB registration: 20130201\255TE01/TE01L) showen %1TE01X-Y 2600# (TUB matr\355cula: 20130201\255TE01/TE01L) showes %2TE01X-Y 2600# (TUB enregistrement: 20130201\255TE01/TE01L) showfr %3TE01X-Y 2600# (TUB iscrizione: 20130201\255TE01/TE01L) showit %4TE01X-Y 2600# (TUB registration: 20130201\255TE01/TE01L) showjp %5TE01X-Y 2600# (0) show LSC$ show LEX$ show 90 rotate 281 MM 74 MM moveto -90 rotate (TUB\255Material: Code=rha4ta) showde %0TE01X-Y 2700# (TUB material: code=rha4ta) showen %1TE01X-Y 2700# (TUB material: code=rha4ta) showes %2TE01X-Y 2700# (TUB mat\351riel: code=rha4ta) showfr %3TE01X-Y 2700# (TUB materiale: code=rha4ta) showit %4TE01X-Y 2700# (TUB material: code=rha4ta) showjp %5TE01X-Y 2700# 90 rotate 277 MM 185 MM moveto -90 rotate /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def ( Anwendung f\374r Messung ) showde %0TE01X-Y 2800# ( application for measurement ) showen %1TE01X-Y 2800# ( aplicaci\363n para la medida ) showes %2TE01X-Y 2800# ( application pour la mesure ) showfr %3TE01X-Y 2800# ( la domanda per la misura ) showit %4TE01X-Y 2800# ( application for measurement ) showjp %5TE01X-Y 2800# xchart5f 0 eq {%xchart5f=0 (von Display-Ausgabe) showde %0TE01X-Y 2900# (of display output) showen %1TE01X-Y 2900# (de display output) showes %2TE01X-Y 2900# (de sortie sur \350cran) showfr %3TE01X-Y 2900# (di stampa di display) showit %4TE01X-Y 2900# (of display output) showjp %5TE01X-Y 2900# } if %xchart5f=0 xchart5f 1 eq xchart5f 2 eq or {%xchart5f=1,2 (von Offsetdruck\255Ausgabe) showde %0TE01X-Y 3000# (of offset print output) showen %1TE01X-Y 3000# (salida en la impressi\363n offset) showes %2TE01X-Y 3000# (des sorties sur offset) showfr %3TE01X-Y 3000# (uscita nella stampa di offset) showit %4TE01X-Y 3000# (of offset print output) showjp %5TE01X-Y 3000# } if %xchart5f=1,2 xchart5f 3 eq {%xchart5f=3 (von Laserdrucker\255Ausgabe) showde %0TE01X-Y 3100# (of laser printer output) showen %1TE01X-Y 3100# (salida de impresora l\341ser) showes %2TE01X-Y 3100# (des sorties sur imprimante laser) showfr %3TE01X-Y 3100# (di uscita della stampante laser) showit %4TE01X-Y 3100# (of laser printer output) showjp %5TE01X-Y 3100# } if %xchart5f=3 xchart 1 ge {%xchart>=1 xchart5f 0 eq {%xchart5f=0 (, keine Separation) showde %0TE01X-Y 3200# (, no separation) showen %1TE01X-Y 3200# (, ninguna separaci\363n) showes %2TE01X-Y 3200# (, aucune s\351paration) showfr %3TE01X-Y 3200# (, nessuna separazione) showit %4TE01X-Y 3200# (, no separation) showjp %5TE01X-Y 3200# } if %chart5f=0 xchart5f 1 ge {%xchart5f>=1 (, Separation) showde %0TE01X-Y 3300# (, separation) showen %1TE01X-Y 3300# (, separaci\363n) showes %2TE01X-Y 3300# (, s\351paration) showfr %3TE01X-Y 3300# (, separazione) showit %4TE01X-Y 3300# (, separation) showjp %5TE01X-Y 3300# xchart5f 1 eq xchart5f 3 eq or {(cmyn6) show} if xchart5f 2 eq {(cmy0) show} if colorm 1 eq {(*) show} if colsep 0 eq {( (CMYK))}{( (CMY0))} ifelse show } if %xchart5f>=1 } if %xchart>=1 IMES 1 eq LSC$ (N) ne and { %IMES=1 (, Yr=) show Yre cvsshow1 (, XYZ) show } if %IMES=1 90 rotate /i0 8 def /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def 0.30 MM setlinewidth 0 setgray x i0 get MM y i0 get MM moveto x i1 get MM y i1 get MM lineto x i2 get MM y i2 get MM lineto x i3 get MM y i3 get MM lineto x i0 get MM y i0 get MM lineto stroke %/xlu1 013 MM def /ylu1 010 MM def %/xro1 283 MM def /yro1 200 MM def %/xlo1 013 MM def /ylo1 200 MM def %/xru1 283 MM def /yru1 010 MM def %xlu1 4 MM sub ylu1 moveto 8 MM 0 rlineto stroke %xlu1 ylu1 4 MM sub moveto 0 8 MM rlineto stroke %xro1 4 MM add yro1 moveto -8 MM 0 rlineto stroke %xro1 yro1 4 MM add moveto 0 -8 MM rlineto stroke %xru1 4 MM sub yru1 moveto 8 MM 0 rlineto stroke %xru1 yru1 4 MM sub moveto 0 8 MM rlineto stroke %xlo1 4 MM add ylo1 moveto -8 MM 0 rlineto stroke %xlo1 ylo1 4 MM add moveto 0 -8 MM rlineto stroke } ifelse %xt=1 grestore gsave %********************************************************** %%Trailer %%EndDocument EndEPSF grestore gsave showpage grestore %} for %colsepf=0,1 %} for %pchartf=0,0 %} for %xchartf=0,1 %} for %xcolorf=3,3 %} for %deintpf=0,1 %} for %colormf=0,1 %} for %lanindf=0,0 %%Trailer