%!PS-Adobe-3.0 EPSF-3.0 fgl9F0NA.PS/FNIX_FRAME_DEH.PS, OK0X_FRAME_DH 240301
%%BoundingBox: 0 0 842 595
/pdfmarkF where {pop} {userdict /pdfmarkF /cleartomark load put} ifelse
/languagelevel where {pop languagelevel} {1} ifelse
2 lt { userdict (<<) cvn ([) cvn load put
userdict (>>) cvn (]) cvn load put
} if
[/Title (PostScript pictures: http://farbe.li.tu-berlin.de/fgl9/fgl9.htm)
/Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1)
/Subject (goto: http://farbe.li.tu-berlin.de or http://color.li.tu-berlin.de)
/Keywords (image reproduction, colour devices)
/Creator (klaus.richter@mac.com)
/CreationDate (D:2024030112000)
/ModDate (D:20240301112000)
/DOCINFO pdfmarkF
[ /View [ /Fit ]
/DOCVIEW pdfmarkF
%line 20
%Early definition of FF_LM_setgrayF0 identical to former setgray
/FF_LM_setgrayF0 {setgray} bind def
/FF_LM_setrgbcolorF0 {setrgbcolor} bind def
/FF_LM_setcmykcolorF0 {setcmykcolor} bind def
/FF_LM_transferF0 {settransfer} bind def
/FF_LM_colortransferF0 {setcolortransfer} bind def
/FF_LM_xchart_gammaF {/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
/gammaF 2.4 xchartP 0.18 mul sub 2.4 div
1 2.4 xchartN 0.18 mul sub 2.4 div div mul def
gammaF exp
} def
/FF_LM_setrgbcolorF {%FF_LM_setrgbcolorF
/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_gammaF def
/FF_LM_g1F FF_LM_g0L FF_LM_xchart_gammaF def
/FF_LM_b1F FF_LM_b0L FF_LM_xchart_gammaF def
FF_LM_r1F FF_LM_g1F FF_LM_b1F
FF_LM_setrgbcolorF0
} def %FF_LM_setrgbcolorF
/FF_LM_transferF {{FF_LM_xchart_gammaF} FF_LM_transferF0} def
/FF_LM_colortransferF {{FF_LM_xchart_gammaF} {FF_LM_xchart_gammaF}
{FF_LM_xchart_gammaF} FF_LM_colortransferF0} def
%line 56 %BEG INCLUDE TRANSFERS
%BEG 1MR-0000F.TXT ************************************2011-10-01
/1MR-0000F {%BEG procedure 1MR-0000F
%1MR-Transform of setgray and setcmykcolor to FF_LM_de_setrgbcolorF
%Three procedures and use of the procedure FF_LM_de_setrgbcolorF of main FF
/setgray {%BEG procedure setgrayF
dup dup FF_LM_de_setrgbcolorF
%STOPs
} def %END procedure setgrayF
/setcmykcolor {%BEG procedure setcmykcolorF
/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 {1 FF_LM_c sub 1 FF_LM_m sub
1 FF_LM_y sub FF_LM_de_setrgbcolorF}
{1 FF_LM_k sub dup dup FF_LM_de_setrgbcolorF} ifelse
%STOPc
} def %END procedure setcmykcolorF
/setrgbcolor {%BEG procedure setrgbcolorF
/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_setrgbcolorF
%STOPr
} def %BEG procedure setrgbcolorF
/settransfer {FF_LM_transferF} def
/setcolortransfer {FF_LM_colortransferF} def
} def %END procedure 1MR-0000F
%END 1MR-0000F.TXT ************************************2011-10-01
%BEG 'OK0X'SEP-0000.TXT *********************************2011-04-01
%******************************************************************
%Empty: No color separation
%******************************************************************
%END 'OK0X'SEP-0000.TXT *********************************2011-04-01
%BEG 'OK0X'DEH-000E.TXT *********************************2011-10-01
/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_XYZ729 { %BEG procedure RGB0_to_XYZ729
%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 1080 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_XYZ729
%***********************************************************
/LAB*e 35 array def %7x5=35
/LAB*e[39.92 58.74 27.99 0.0 0.0 % 00_04 R CIE No.09 elementary colours in LAB, D65
81.26 -2.89 71.56 0.0 0.0 % 05_09 J CIE No.10
52.23 -42.42 13.60 0.0 0.0 % 10_14 G CIE No.11
0.0 0.0 0.0 0.0 0.0 % 15_19 Cgb
30.57 1.41 -46.47 0.0 0.0 % 20_24 B CIE No.12
0.0 0.0 0.0 0.0 0.0 % 25_29 Mbr
39.92 58.74 27.99 0.0 0.0 % 30_34 R+360 CIE No.09 elementary colours in LAB, D65
] def
/LAB*He_Hs { %BEG procedure LAB*He_Hs
%calculation of CIELAB data of elementary colours
%elemenatry colour data of colour RJGB of CIE R1-47:2009 used
%requires /LAB*e 35 array def %7x5=35
%requires /LAB*e data of CIE R1-47
0 1 5 {/j exch def %j=0,5
j 0 eq {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
} if
j 1 eq {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
} if
j 2 eq {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
} if
j 4 eq {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
} if
} for %j=0,5
3 1 4 {/i exch def %i=3,4 30_34 R+360
LAB*e i 30 add LAB*e i get put
i 4 eq {LAB*e i 30 add LAB*e i get 360 add put} if
} for %i=3,4
3 2 5 {/i exch def %i=3,5,2 Cgb+Cbr
i 3 eq {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*
} if
i 5 eq {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 30 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*
} if
} for %i=3,5,2
/LAB*He 7 array def
0 1 6 {/i exch def %i=0,5
LAB*He i LAB*e i 5 mul 4 add get put
} for %i=0,5
/LAB*Hs 7 array def
/LAB*Hs [30. 90. 150. 210. 270. 330. 390.] def
} bind def %END procedure LAB*He_Hs
%******************************************************************
/habsi 361 array def
/habei 361 array def
/hab*sM_to_hab*eM { %BEG Procedure hab*sM_to_hab*eM
%transfer from hue angle hab*s of standard colours to hab*e of elementary colours
%360 integer hue angles used
%360 steps used for the range 0 <= hab*s <= 360
%requires /habsi 361 array def
%requires /habei 361 array def
0 1 359 {/i exch def %i=0,359
/habs i def
habsi i i put
%alpha = [habs - LAB*Hs(h)]/[LAB*Hs(n+1) - LAB*Hs(n)]
% = [habs - LAB*Hs(h)]/60
%habe = alpha [LAB*He(n+1) - LAB*He(n)] + LAB*He(n)
i 000 ge i 029 le and {/ipan0 5 def /ipan1 6 def
/habs habs 360 add def} if
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
/alpha {habs LAB*Hs ipan0 get sub 60 div} bind def
/habe {LAB*He ipan1 get LAB*He ipan0 get sub alpha mul
LAB*He ipan0 get add} bind def
habe 360 ge {/habe habe 360 sub def} if
habei i habe round cvi put
} for %i=0,359
habsi 360 360 put
habei 360 habei 0 get put
} bind def %END hab*sM_to_hab*eM
%******************************************************************
/r*d361Mi 361 array def
/g*d361Mi 361 array def
/b*d361Mi 361 array def
/hab*sM_to_rgb*d361Mi { %BEG Procedure hab*sM_to_rgb*d361Mi
%transfer from hue angle hab*s of standard colours to rgb* data of elementary colours hab*e
%360 integer hue angles used
%360 steps used for the range 0 <= hab*s <= 360
%requires /habsi 361 array def
% /habei 361 array def
% /rgb*d361Mi 361 array def
0 1 359 {/i exch def %i=0,359
i 000 ge i 029 le and {r*d361Mi i 1.00 put %Mbr_R, part 2
g*d361Mi i 0.00 put
b*d361Mi i 1.00 i 30 add 60 div sub put} if
i 030 ge i 089 le and {r*d361Mi i 1.00 put %R_J
g*d361Mi i 0.00 i 30 sub 60 div add put
b*d361Mi i 0.00 put} if
i 090 ge i 149 le and {r*d361Mi i 1.00 i 90 sub 60 div sub put %J_G
g*d361Mi i 1.00 put
b*d361Mi i 0.00 put} if
i 150 ge i 209 le and {r*d361Mi i 0.00 put %G_Cgb
g*d361Mi i 1.00 put
b*d361Mi i 0.00 i 150 sub 60 div add put} if
i 210 ge i 269 le and {r*d361Mi i 0.00 put %Cgb_B
g*d361Mi i 1.00 i 210 sub 60 div sub put
b*d361Mi i 1.00 put} if
i 270 ge i 329 le and {r*d361Mi i 0.00 i 270 sub 60 div add put %B_Mbr
g*d361Mi i 0.00 put
b*d361Mi i 1.00 put} if
i 330 ge i 359 le and {r*d361Mi i 1.00 put %Mbr_R, part 1
g*d361Mi i 0.00 put
b*d361Mi i 1.00 i 330 sub 60 div sub put} if
} for %i=0,359
r*d361Mi 360 r*d361Mi 0 get put
g*d361Mi 360 g*d361Mi 0 get put
b*d361Mi 360 b*d361Mi 0 get put
} bind def %END hab*sM_to_rgb*d361Mi
%******************************************************************
/XIEi 361 array def
/x361i 361 array def
/r*e361Mi 361 array def
/g*e361Mi 361 array def
/b*e361Mi 361 array def
/LAB*L361Mi 361 array def
/LAB*a361Mi 361 array def
/LAB*b361Mi 361 array def
/LAB*C361Mi 361 array def
/LAB*h361Mi 361 array def
/LAB*x50M_to_LAB*x361Mi_rgb*x361Mi { %BEG Procedure LAB*x50M_to_LAB*x361Mi_rgb*x361Mi
%transfer from measured CIELAB data of a 48 step hue circle
%to a 360 step integer hue circle
%360 steps used for the range 0 <= LAb*50hM <= 360
%requires /LAB*x50M 50 array def (x=L,a,b,C,h) defined in LAB729a_to_LAB*x50M
%requires /rgb*d50M 50 array def defined allways as table
%both defined in LAB729a_to_LAB*x50M
%requires /LAB*x361M 361 array def (x=L,a,b,C,h)
%requires /rgb*e361Mi 361 array def
/hmin LAB*h50M 0 get def
/hmax LAB*h50M 48 get def
/hmini LAB*h50M 0 get cvi def
/hmaxi LAB*h50M 48 get cvi def
0 1 360 {/i0 exch def %i=0,360 %default
/i1 i0 1 add def
/XIE -1 def
LAB*L361Mi i0 -1 put
LAB*C361Mi i0 -1 put
LAB*h361Mi i0 -1 put
LAB*a361Mi i0 -1 put
LAB*b361Mi i0 -1 put
r*e361Mi i0 -1 put
g*e361Mi i0 -1 put
b*e361Mi i0 -1 put
XIEi i0 -1 put
x361i i0 -1 put
} for %i=0,360
hmini 1 hmaxi {/i0 exch def %i=36,300
0 1 48 {/ix0 exch def %ix0=0,48
/ix1 ix0 1 add def
i0 LAB*h50M ix0 get sub 0 ge
i0 LAB*h50M ix1 get sub 0 lt and {
/im i0 def
i0 360 ge {/im i0 360 sub def} if
XIEi im i0 LAB*h50M ix0 get sub
LAB*h50M ix1 get LAB*h50M ix0 get sub div put
/XIE XIEi im get def
LAB*L361Mi im LAB*L50M ix0 get
LAB*L50M ix1 get LAB*L50M ix0 get sub XIE mul add put
LAB*C361Mi im LAB*C50M ix0 get
LAB*C50M ix1 get LAB*C50M ix0 get sub XIE mul add put
LAB*h361Mi im LAB*h50M ix0 get
LAB*h50M ix1 get LAB*h50M ix0 get sub XIE mul add
dup 360 ge {360 sub} if put
LAB*a361Mi im LAB*C361Mi im get LAB*h361Mi im get cos mul put
LAB*b361Mi im LAB*C361Mi im get LAB*h361Mi im get sin mul put
r*e361Mi im r*d50M ix0 get
r*d50M ix1 get r*d50M ix0 get sub XIE mul add put
g*e361Mi im g*d50M ix0 get
g*d50M ix1 get g*d50M ix0 get sub XIE mul add put
b*e361Mi im b*d50M ix0 get
b*d50M ix1 get b*d50M ix0 get sub XIE mul add put
ix0 00 ge ix0 07 le and {x361i im 0 put} if
ix0 08 ge ix0 15 le and {x361i im 1 put} if
ix0 16 ge ix0 23 le and {x361i im 2 put} if
ix0 24 ge ix0 31 le and {x361i im 3 put} if
ix0 32 ge ix0 39 le and {x361i im 4 put} if
ix0 40 ge ix0 47 le and {x361i im 5 put} if
exit
} if
} for %ix0=0,48
} for %i=36,300
LAB*L361Mi 360 LAB*L361Mi 0 get put
LAB*a361Mi 360 LAB*a361Mi 0 get put
LAB*b361Mi 360 LAB*b361Mi 0 get put
LAB*C361Mi 360 LAB*C361Mi 0 get put
LAB*h361Mi 360 LAB*h361Mi 0 get 360 add put
r*e361Mi 360 r*e361Mi 0 get put
g*e361Mi 360 g*e361Mi 0 get put
b*e361Mi 360 b*e361Mi 0 get put
XIEi 360 XIEi 0 get put
x361i 360 x361i 0 get put
} bind def %END LAB*x50M_to_LAB*x361Mi_rgb*x361Mi
%******************************************************************
/LAB*L50M 50 array def
/LAB*a50M 50 array def
/LAB*b50M 50 array def
/LAB*C50M 50 array def
/LAB*h50M 50 array def
/LAB729a_to_LAB*x50M { %BEG Procedure LAB729a_to_LAB*x50M
%selection of a 48 step hue circle of maximum chroma
%out of measured CIELAB data of 9x9x9=729 colours
%requires /LAB*x50M 50 array def
%requires /LAB729a 729 array def
%defined in /xchartj_XYZ729_LAB729a
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*L50M ja L729a jx get put
LAB*a50M ja a729a jx get put
LAB*b50M ja b729a jx get put
LAB*C50M ja LAB*a50M ja get dup mul
LAB*b50M ja get dup mul add sqrt put
LAB*h50M ja LAB*b50M ja get
LAB*a50M ja get 0.0001 add atan put
xtonj 5 eq LAB*h50M ja get 90 le and
{LAB*h50M ja LAB*h50M ja get 360 add put} if
} for %j=0,7
} for %xtonj=0,5
LAB*L50M 48 LAB*L50M 0 get put
LAB*a50M 48 LAB*a50M 0 get put
LAB*b50M 48 LAB*b50M 0 get put
LAB*C50M 48 LAB*C50M 0 get put
LAB*h50M 48 LAB*h50M 0 get 360 add put
LAB*L50M 49 LAB*L50M 1 get put
LAB*a50M 49 LAB*a50M 1 get put
LAB*b50M 49 LAB*b50M 1 get put
LAB*C50M 49 LAB*C50M 1 get put
LAB*h50M 49 LAB*h50M 1 get 360 add put
} bind def %END LAB729a_to_LAB*x50M
%************************************************************************
/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
/X729 729 array def
/Y729 729 array def
/Z729 729 array def
/L729 729 array def %not adapted
/a729 729 array def
/b729 729 array def
/L729a 729 array def %adapted
/a729a 729 array def
/b729a 729 array 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_XYZ729_LAB729a { %BEG Procedure xchartj_LAB729a
%transfer from XYZ729 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
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
L729 i Lrc089 i get put
a729 i arc089 i get put
b729 i brc089 i get put
X729 i Xrc089 i get put
Y729 i Yrc089 i get put
Z729 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
L729 i Lra089 i get put
a729 i ara089 i get put
b729 i bra089 i get put
X729 i Xra089 i get put
Y729 i Yra089 i get put
Z729 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
L729 i Lna089 i get put
a729 i ana089 i get put
b729 i bna089 i get put
X729 i Xna089 i get put
Y729 i Yna089 i get put
Z729 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
L729 i Lla089 i get put
a729 i ala089 i get put
b729 i bla089 i get put
X729 i Xla089 i get put
Y729 i Yla089 i get put
Z729 i Zla089 i get put
} for %i=0,IM1
} if %xchartj=3,4,5,6,7,8,9,10 (8x)
%Adaptation
/L*Nio L729 000 get def
/A*Nio a729 000 get def
/B*Nio b729 000 get def
/L*Wio L729 728 get def
/A*Wio a729 728 get def
/B*Wio b729 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
L729a j L729 j get put
/l*CIE L729 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
a729a j a729 j get A*Nio sub a*s sub put
b729a j b729 j get B*Nio sub b*s sub put
} for %j=0,728
xchartj 0 eq {/Xprint 0 def /FileData (LAB*rc) def} if
xchartj 1 eq {/Xprint 1 def /FileData (LAB*ra) def} if
xchartj 2 eq {/Xprint 1 def /FileData (LAB*na) def} if
xchartj 3 eq {/Xprint 1 def /FileData (LAB*la0) def} if
xchartj 4 eq {/Xprint 1 def /FileData (LAB*la1) def} if
xchartj 5 eq {/Xprint 1 def /FileData (LAB*la2) def} if
xchartj 6 eq {/Xprint 1 def /FileData (LAB*la3) def} if
xchartj 7 eq {/Xprint 1 def /FileData (LAB*la4) def} if
xchartj 8 eq {/Xprint 1 def /FileData (LAB*la5) def} if
xchartj 9 eq {/Xprint 1 def /FileData (LAB*la6) def} if
xchartj 10 eq {/Xprint 1 def /FileData (LAB*la7) def} if
} bind def %END xchartj_XYZ729_LAB729a
%************************************************************************
/FF_LM_de_setrgbcolorF {%BEG procedure FF_LM_de_setrgbcolorF
%transfer of device to elementary colors
%requires /habsi 361 array def
%defined in hab*sM_to_hab*eM
%requires /habei 361 array def
%defined in hab*sM_to_hab*eM
%requires /rgb*e361Mi 361 array def
%defined in LAB*x50M_to_LAB*x361Mi_rgb*x361Mi
/FFM_bs exch def
/FFM_gs exch def
/FFM_rs exch def
%test grey or color
FFM_rs FFM_gs sub abs 0.002 le
FFM_gs FFM_bs sub abs 0.002 le and
{%grey or color
/r*d FFM_rs def
/g*d FFM_gs def
/b*d FFM_bs def
/i*d r*d def
/c*d 0 def
/r*eM 1 def
/g*eM 1 def
/b*eM 1 def
/r*eF r*d def
/g*eF g*d def
/b*eF b*d def
}
{%color
/hsi FFM_rs 030 sin mul
FFM_gs 150 sin mul add
FFM_bs 270 sin mul add %y_e
FFM_rs 030 cos mul
FFM_gs 150 cos mul add %x_e
0.0001 add atan 0.5 add cvi def
/hei habei hsi get def
/r*d FFM_rs def
/g*d FFM_gs def
/b*d FFM_bs def
%calculation of i* and c* of colour F
/maxd r*d def
maxd g*d lt {/maxd g*d def} if
maxd b*d lt {/maxd b*d def} if
/mind r*d def
mind g*d gt {/mind g*d def} if
mind b*d gt {/mind b*d def} if
/i*d maxd def
/c*d maxd mind sub def
%calculation of rgb*e
/r*eM r*e361Mi hei get def
/g*eM g*e361Mi hei get def
/b*eM b*e361Mi hei get def
/heM r*eM 030 sin mul
g*eM 150 sin mul add
b*eM 270 sin mul add %y_e
r*eM 030 cos mul
g*eM 150 cos mul add %x_e
0.0001 add atan def
%calculation of rgb*eF of colour F
c*d 1 eq {%c*d=1,#1
/r*eF r*eM def
/g*eF g*eM def
/b*eF b*eM def}
{%c*d#1
heM 030 ge
heM 090 lt and {%r>g>b
/r*eF r*eM i*d mul def
/g*eF g*eM 1 g*eM sub
1 c*d sub mul add i*d mul def
/b*eF b*eM 1 add c*d sub i*d mul def} if
heM 090 ge
heM 150 lt and {%g>r>b
/r*eF r*eM 1 r*eM sub
1 c*d sub mul add i*d mul def
/g*eF g*eM i*d mul def
/b*eF b*eM 1 add c*d sub i*d mul def} if
heM 150 ge
heM 210 lt and {%g>b>r
/r*eF r*eM 1 add c*d sub i*d mul def
/g*eF g*eM i*d mul def
/b*eF b*eM 1 b*eM sub
1 c*d sub mul add i*d mul def} if
heM 210 ge
heM 270 lt and {%b>g>r
/r*eF r*eM 1 add c*d sub i*d mul def
/g*eF g*eM 1 g*eM sub
1 c*d sub mul add i*d mul def
/b*eF b*eM i*d mul def} if
heM 270 ge
heM 330 lt and {%b>r>g
/r*eF r*eM 1 r*eM sub
1 c*d sub mul add i*d mul def
/g*eF g*eM 1 add c*d sub i*d mul def
/b*eF b*eM i*d mul def} if
heM 330 ge
heM 360 lt and
heM 000 ge
heM 030 lt and or {%r>b>g
/r*eF r*eM i*d mul def
/g*eF g*eM 1 add c*d sub i*d mul def
/b*eF b*eM 1 b*eM sub
1 c*d sub mul add i*d mul def} if
} ifelse %c*d=1,#1
%STOP2
} ifelse %grey or color
r*eF g*eF b*eF
FF_LM_setrgbcolorF
} bind def %END procedure FF_LM_de_setrgbcolorF.TXT
%END 'OK0X'DEH-000E.TXT ************************************2011-04-01
%END INCLUDE TRANSFERS
%***********************************************************************************
%0 room to include more PS-Code
%1
%2
%3
%4
%5
%6
%7
%8
%9
%0
%1
%2
%3
%4
%5
%6
%7
%8
%9
%0
%1
%2
%3
%4
%5
/BeginEPSFF {% def % Prepare for EPS file Global (G)
/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
/EndEPSFF {% def % End for EPS file Global (G)
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
/A4querF {598 0 translate 90 rotate} 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
%***********************************************************
/r*d50M 50 array def
/r*d50M [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
] def
/g*d50M 50 array def
/g*d50M [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
] def
/b*d50M 50 array def
/b*d50M [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
] 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
/DecodeXYZ* {dup 6 29 div ge {dup dup mul mul}
{4 29 div sub 108 841 div mul} ifelse} bind 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
%***********************************************************
/proc_framef { %BEG proc_framef(_DEH)
/MX {0.33 mul} def /10MXN {10 MX /Times-ISOL1 FS} def
/12MXN {12 MX /Times-ISOL1 FS} def /12MXI {12 MX /TimesI-ISOL1 FS} def
/lanind 1 def
/lantex [(G) (E) (S) (N) (I) (J) (M)] def
/showde {0 lanindf eq {show} {pop} ifelse} bind def
/showen {1 lanindf eq {show} {pop} ifelse} bind def
/showes {2 lanindf eq {show} {pop} ifelse} bind def
/showfr {3 lanindf eq {show} {pop} ifelse} bind def
/showit {4 lanindf eq {show} {pop} ifelse} bind def
/showjp {5 lanindf eq {show} {pop} ifelse} bind def
/showea {6 lanindf eq {show} {pop} ifelse} bind def
0 setgray
0.15 setlinewidth
/xframe1 003 def
/xframe2 292 def
/yframe1 001 def
/yframe2 207 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
/xtextf 1 def
xtextf 1 eq {%xtextf=1
xframe1 yframe1 moveto
xframe2 0 rlineto
0 yframe2 rlineto
xframe2 neg 0 rlineto
closepath stroke
4.5 1.8 moveto 12MXN
(fgl9/fgl9) show (l0n) show (a.pdf /.ps) show
(, Page ) showen (, Seite ) showde
xchartf xchartdf idiv pchartf20m 1 add mul
pchartf pchartf10 sub 1 add add cvishow (/) show
xchartf20m xchartdf idiv 1 add pchartf20m 1 add mul cvishow (, ) show
colormf 0 eq {(No FF_LM) showen
(kein FF_LM) showde
012 MX /Times-ISOL1 FS}
{(FF_LM: ) show 12MXI
xcolorf0 0 eq {(000n) show} if xcolorf0 1 eq {(w) show} if
xcolorf0 2 eq {(cmy0) show} if xcolorf0 3 eq {(rgb) show} if
xcolorf0 4 eq {(cmy0/rgb) show} if xcolorf0 5 eq {(all) show} if
(->rgb) show
10MXN 0 -1 rmoveto (de) show 0 1 rmoveto 12MXN (; 1MR, DEH) show
} ifelse
/CYi [((288:1)) ((144:1)) ((72:1)) ((36:1)) ((18:1))
((9:1)) ((4,5:1)) ((2,25:1))] def
138 1.8 moveto
12MXI (C) show 10MXN 0 -0.5 rmoveto (Y) show
xchartdf 1 eq {8 xchartf sub}
{(N) show 8 xchartf xchartdf idiv sub} ifelse
cvishow 0 0.5 rmoveto
12MXN ( ) show CYi xchartf xchartdf idiv get show (:) show
12MXI ( g) show
10MXN 0 -0.5 rmoveto (P) show 0 0.5 rmoveto 12MXN (=) show
/xchartNf xchartf 8 idiv def
/xchartPf xchartf xchartf 8 idiv 8 mul sub def
colormf 0 eq {%colormf=0,1
(1.0; ) show}
{2.4 xchartPf 0.18 mul sub 2.4 div cvsshow2 (; ) show
} ifelse %colormf=0,1
12MXI (g) show
10MXN 0 -0.5 rmoveto (N) show 0 0.5 rmoveto
12MXN (=) show
colormf 0 eq {%colormf=0,1
(1.0; ) show}
{1 2.4 xchartNf 0.18 mul sub 2.4 div div cvsshow2
} ifelse %colormf=0,1
190 1.8 moveto
(http://farbe.li.tu-berlin.de/fgl9/fgl9) show (f1p) show pchartf cvishow %
(.pdf /.ps) show
%(0) show
%(n) show LEX$ show
} if %xtextf=1
} def %END proc_framef(_DEH)
%***********************************************************************************
%***********************************************************************************
%%EndProlog
%%BeginPageSetup
/#copies 1 def
%A4quer
1.0 1.0 scale
/pgsave save def
%%EndPageSetup
0.0 MM 0.0 MM translate %Verschiebung nach oben und links fuer Belichter
gsave
/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) (s.pdf /.ps) (l.pdf /.ps)] def
/EY$ [(a.dat) (b.dat) (g.dat) (h.dat) (i.dat)
(j.dat) (p.dat) (t.dat) (s.dat) (l.dat)] def
%line 1190 *******************************************************************
/colormf10 01 def /colormf20 01 def /colormf20m colormf20 def /colormdf 1 def
/xcolorf10 03 def /xcolorf20 03 def /xcolorf20m xcolorf20 def /xcolordf 1 def
/xchartf10 00 def /xchartf20 07 def /xchartf20m 07 def /xchartdf 1 def
/pchartf10 01 def /pchartf20 01 def /pchartf20m 00 def /pchartdf 1 def
/lanindf1 0 def /lanindf2 0 def /xcolorf0 05 def
/lanindf lanindf1 def %no loops 0=German, 1=english
%/colormf colormf10 def
colormf10 colormdf colormf20 {/colormf exch def
%BEG for colormf=colormf10,colormdf,colormf20
%/xcolorf xcolorf10 def
xcolorf10 xcolordf xcolorf20 {/xcolorf exch def
%BEG for xcolorf=xcolorf10,xcolordf,xcolorf20
%/xchartf xchartf10 def
xchartf10 xchartdf xchartf20 {/xchartf exch def
%BEG for xchartf=xchartf10,xchartdf,xchartf20
%/pchartf pchartf10 def
pchartf10 pchartdf pchartf20 {/pchartf exch def
%BEG for pchartf=pchartf10,pchartdf,pchartf20
/xchartj 3 def %sRGB, Lr=0%
gsave
/colorm colormf def
/xcolor xcolorf def
/xchart xchartf def
/pchart pchartf def
/GSS$ SS$ lanindf get def
/GSC$ SC$ colormf get def
/GSX$ SX$ xcolorf xcolorf 16 idiv 16 mul sub get def
/GSY$ SY$ xchartf xchartf 16 idiv 16 mul sub get def %special
/GEX$ EX$ 0 get def
/GEY$ EY$ 0 get def
%line 1229 %BEG INCLUDE FAD
%BEG FAD-0001.TXT*************************************************2011-03-01
%BEG only for colormf=1
%default values
/hei -1 def /heM -1 def
colormf 1 eq {%colormf=1
RGB0_to_XYZ729
%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.
%for use of 1-minus relation (1MR)
%for interpretation of device colours d as elemetary colours e
xchartj_XYZ729_LAB729a
LAB*He_Hs
LAB729a_to_LAB*x50M
hab*sM_to_hab*eM
hab*sM_to_rgb*d361Mi
LAB*x50M_to_LAB*x361Mi_rgb*x361Mi
1MR-0000F %uses subprocedure FF_LM_de_setrgbcolor
%transfers device colours d to elementary colours e
} if %colormf=1
%END only for colormf=1
%END FAD-0001.TXT********************************************2011-03-01
%END INCLUDE FAD
1 MM dup scale
proc_framef %includes no showpage
%showpage %proc_framef
grestore
gsave
BeginEPSFF
0 MM 3 MM translate %Image transfer in FRAME
%%BeginDocument:
%line 1269 %BEG INCLUDE TEST FILE at line 1270
%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/fgl9/fgl9l00XX.PS 20240301
%%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: http://farbe.li.tu-berlin.de/fgl9/fgl9.htm)
/Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1)
/Subject (goto: http://farbe.li.tu-berlin.de or http://color.li.tu-berlin.de)
/Keywords (image reproduction, colour devices)
/Creator (klaus.richter@mac.com)
/CreationDate (D:2024030112000)
/ModDate (D:20240301112000)
/DOCINFO pdfmark
[ /View [ /FitB ]
/DOCVIEW pdfmark
%Y10g00na.ps6
%line 20******************************************************
%BEG fgl9/OUTLIN10.PS Emty 20210418
%END fgl9/OUTLIN10.PS Emty 20210418
%BEG fgl9/OUTLIN1X.PS 20210418
%EMPTY
%END fgl9/OUTLIN1X.PS 20210418
%BEG fgl9/OUTLIN1Y2.PS Emty 20210418
%END fgl9/OUTLIN1Y2.PS Emty 20210418
/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
/tfbs {0 0.5 1 setrgbcolor} bind def
/tfy {1 1 0 setrgbcolor} bind def
/tfg {0 1 0 setrgbcolor} bind def
/tfr {1 0 0 setrgbcolor} bind def
/tfb {0 0 1 setrgbcolor} 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
%BEG 19 lines comment or new PS operators possible
%01
%02
%03
%04
%END 19 lines comment or new PS operators possible
%%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
%*******************************************************************
/lanindg1 0 def /lanindg2 0 def /lanindg lanindg1 def
/colormg10 0 def /colormg20 0 def /colormgd 1 def %only colormg=0 allowed
/xcolorg10 3 def /xcolorg20 3 def /xcolorgd 1 def
/xchartg10 0 def /xchartg20 0 def /xchartgd 1 def
/pchartg10 0 def /pchartg20 2 def /pchartgd 1 def
/colormi where {pop /colorm10 colormi10 def /colorm20 colormi20 def
/colormd colormid def}
{/colorm10 colormg10 def /colorm20 colormg20 def
/colormd colormgd def} ifelse
/xcolori where {pop /xcolor10 xcolori10 def /xcolor20 xcolori20 def
/xcolord xcolorid def}
{/xcolor10 xcolorg10 def /xcolor20 xcolorg20 def
/xcolord xcolorgd def} ifelse
/xcharti where {pop /xchart10 xcharti10 def /xchart20 xcharti20 def
/xchartd xchartid def}
{/xchart10 xchartg10 def /xchart20 xchartg20 def
/xchartd xchartgd def} ifelse
/pcharti where {pop /pchart10 pcharti10 def /pchart20 pcharti20 def
/pchartd pchartid def}
{/pchart10 pchartg10 def /pchart20 pchartg20 def
/pchartd pchartgd def} ifelse
/colormf where {pop /colorm10 colormf def /colorm20 colormf def
/colormd colormdf def} if
/xcolorf where {pop /xcolor10 xcolorf def /xcolor20 xcolorf def
/xcolord xcolordf def} if
/xchartf where {pop /xchart10 xchartf def /xchart20 xchartf def
/xchartgd xchartdf def /xchartd xchartdf def} if
/pchartf where {pop /pchart10 pchartf def /pchart20 pchartf def
/pchartgd pchartdf def /pchartd pchartdf def} if
/colormg colorm10 def %colorm10 colormd colorm20 {/colormg exch def
/xcolorg xcolor10 def %xcolor10 xcolord xcolor20 {/xcolorg exch def
/xchartg xchart10 def %xchart10 xchartd xchart20 {/xchartg exch def
/pchartg 1 def %pchart10 pchartd pchart20 {/pchartg exch def
colormg 1 eq {/colormf where {pop 1MR-0000F} {1MR-0000I} ifelse} if
/lanind lanindg def
/colorm colormg def
/xcolor xcolorg def
/xchart xchartg def
/pchart pchartg def
/GSS$ SS$ lanind get def
/GSC$ SC$ colorm get def
/GSX$ SX$ xcolor get def
/GSY$ SY$ pchart get def
/GEX$ EX$ 0 get def
/GEY$ EY$ 0 get def
/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
/Ufield 1 def
pchart 0 eq {%pchart=0
Ufield 0 eq {1.0 dup dup setrgbcolor} if %W
Ufield 1 eq {0.5 dup dup setrgbcolor} if %U
xlu 09 MM sub ylu 11 MM sub moveto
xru 09 MM add yru 11 MM sub lineto
xru 09 MM add yro 07 MM add lineto
xlu 09 MM sub yro 07 MM add lineto closepath fill
}if %pchart=0
%01
%02
%03
%04
%05
%06
%07
%08
%09
%10
%11
%12
%13
%14
%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
/SHSl 2 def /SHAl 2 def
BeginEPSF
28 SHSl sub 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 fgl90-1N
%%BoundingBox: 70 85 246 206
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave
/ioutx 0 def
ioutx 1 eq {%ioutx=1
4 /Times-Roman FS
72 86 moveto
(fgl90-1N) show
72 90 translate
0.01 MM dup scale
20 setlinewidth
/xwidth 6100 def
/ywidth 4000 def
1 setgray
0 0 moveto xwidth 0 rlineto 0 ywidth rlineto
xwidth neg 0 rlineto closepath fill
0 setgray
0 0 moveto xwidth 0 rlineto 0 ywidth rlineto
xwidth neg 0 rlineto closepath stroke
} if %ioutx=1
grestore
showpage
%%Trailer
%%EndDocument
EndEPSF grestore gsave
BeginEPSF
86 SHAl add 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 fgl90-2N
%%BoundingBox: 70 85 246 206
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave
/ioutx 0 def
ioutx 1 eq {%ioutx=1
4 /Times-Roman FS
72 86 moveto
(fgl90-2N) show
72 90 translate
0.01 MM dup scale
20 setlinewidth
/xwidth 6100 def
/ywidth 4000 def
1 setgray
0 0 moveto xwidth 0 rlineto 0 ywidth rlineto
xwidth neg 0 rlineto closepath fill
0 setgray
0 0 moveto xwidth 0 rlineto 0 ywidth rlineto
xwidth neg 0 rlineto closepath stroke
} if %ioutx=1
grestore
showpage
%%Trailer
%%EndDocument
EndEPSF grestore gsave
BeginEPSF
28 SHSl sub MM 108 MM pchart 2 eq {30 MM sub} if 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 fgl90-3N,
%%BoundingBox: 70 90 226 206
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave
8 /Times-Roman FS
72 83 moveto
%!2 (fgl90-3N,) show
72 90 translate
%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke
grestore
showpage
%%Trailer
%%EndDocument
EndEPSF grestore gsave
BeginEPSF
86 SHAl add 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 fgl90-4N
%%BoundingBox: 70 85 246 206
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave
/ioutx 0 def
ioutx 1 eq {%ioutx=1
4 /Times-Roman FS
72 86 moveto
(fgl90-4N) show
72 90 translate
0.01 MM dup scale
20 setlinewidth
/xwidth 6100 def
/ywidth 4000 def
1 setgray
0 0 moveto xwidth 0 rlineto 0 ywidth rlineto
xwidth neg 0 rlineto closepath fill
0 setgray
0 0 moveto xwidth 0 rlineto 0 ywidth rlineto
xwidth neg 0 rlineto closepath stroke
} if %ioutx=1
grestore
showpage
%%Trailer
%%EndDocument
EndEPSF grestore gsave
BeginEPSF
28 SHSl sub 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 fgl90-5N
%%BoundingBox: 70 85 246 206
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave
/ioutx 0 def
ioutx 1 eq {%ioutx=1
4 /Times-Roman FS
72 86 moveto
(fgl90-5N) show
72 90 translate
0.01 MM dup scale
20 setlinewidth
/xwidth 6100 def
/ywidth 4000 def
1 setgray
0 0 moveto xwidth 0 rlineto 0 ywidth rlineto
xwidth neg 0 rlineto closepath fill
0 setgray
0 0 moveto xwidth 0 rlineto 0 ywidth rlineto
xwidth neg 0 rlineto closepath stroke
} if %ioutx=1
grestore
showpage
%%Trailer
%%EndDocument
EndEPSF grestore gsave
BeginEPSF
86 SHAl add 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 fgl90-6N
%%BoundingBox: 70 85 246 206
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave
/ioutx 0 def
ioutx 1 eq {%ioutx=1
4 /Times-Roman FS
72 86 moveto
(fgl90-6N) show
72 90 translate
0.01 MM dup scale
20 setlinewidth
/xwidth 6100 def
/ywidth 4000 def
1 setgray
0 0 moveto xwidth 0 rlineto 0 ywidth rlineto
xwidth neg 0 rlineto closepath fill
0 setgray
0 0 moveto xwidth 0 rlineto 0 ywidth rlineto
xwidth neg 0 rlineto closepath stroke
} if %ioutx=1
grestore
showpage
%%Trailer
%%EndDocument
EndEPSF grestore gsave
BeginEPSF
/xc1 16 def /yc1 12 def /xt 1 def xchart 1 eq {/xt 1 def} if
28 SHSl sub MM 20 MM 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 fgl90-7N
%%BoundingBox: 70 82 780 575
%START PDFDE011.EPS
/pdfmark07 where {pop} {userdict /pdfmark07 /cleartomark load put} ifelse
/languagelevel where {pop languagelevel} {1} ifelse
2 lt { userdict (<<) cvn ([) cvn load put
userdict (>>) cvn (]) cvn load put} if
[ /Title (PostScript pictures: Image Technology)
/Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1)
/Subject (goto: http://farbe.li.tu-berlin.de or http://color.li.tu-berlin.de)
/Keywords (image reproduction, colour devices)
/Creator (klaus.richter@mac.com)
/CreationDate (D:2011030112000)
/ModDate (D:2011030112000)
/DOCINFO pdfmark07
[ /View [ /FitB ]
/DOCVIEW pdfmark07
%END PDFDE011
/halfg where {pop /half halfg def} {/half 0 def} ifelse
/VisTol*ioL 1.00 def
%Early Binding: needed for colour separation
/setcmykcolorL {setcmykcolor} bind def
/setgrayL {setgray} bind def
/setrgbcolorL {setrgbcolor} bind def
%/setcmykcolorG where {pop /setcmykcolorL setcmykcolorG def} if
%/setgrayG where {pop /setgrayL setgrayG def} if
%/setrgbcolorG where {pop /setrgbcolorL setcmykcolorG def} if
/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-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
/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
/CBKK {200 /CourierB-ISOL1 FS} bind def
/CBK {250 /CourierB-ISOL1 FS} bind def
/CBM {300 /CourierB-ISOL1 FS} bind def
/CBG {350 /CourierB-ISOL1 FS} bind def
/CBKKK {160 /CourierB-ISOL1 FS} bind def
/rec %x, y width heigth
{/heigth exch def /width exch def
moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto
closepath } bind def
/rem %x0, y0 width heigth
{/heigth exch def /width exch def /y0 exch def /x0 exch def
x0 width 0.5 mul add y0 heigth 0.5 mul add moveto
width 0 rlineto 0 heigth rlineto width neg 0 rlineto
closepath } bind def
%%EndProlog
/lanind 0 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 {6 lanind eq {show} {pop} ifelse} bind def
/lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def}
{/lanind1 0 def /lanind2 0 def} ifelse
/colormg where {pop /colorm1 colormg def /colorm2 colormg def}
{/colorm1 0 def /colorm2 0 def} ifelse
/xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def}
{/xcolor1 3 def /xcolor2 3 def} ifelse
/xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def
/xchartd xchartgd def}
{/xchart1 0 def /xchart2 0 def /xchartd 1 def} ifelse
/pchartg where {pop /pchart1 pchartg def /pchart2 pchartg def
/pchartd pchartgd def}
{/pchart1 1 def /pchart2 1 def /pchartd 1 def} ifelse
/colormf where {pop /colorm1 colormf def /colorm2 colormf def
/colormd colormdf def} if
/xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def
/xcolord xcolordf def} if
/xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def
/xchartgd xchartdf def /xchartd xchartdf def} if
/pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def
/pchartgd pchartdf def /pchartd pchartdf def} if
/lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage
/colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage
/xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage
/xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage
/pchart pchart1 def %pchart1 1 pchart2 {/pchart exch def %output showpage
/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 where {pop %/IMES IMES def
}
{/IMES 0 def} ifelse
/colorml colorm def
%0 1 1 {/colorml exch def %colorml=0,1
/xcolorl xcolor def
%0 1 3 {/xcolorl exch def %xcolorl=0,3
/xchartl xchart def
%0 1 7 {/xchartl exch def %xchartl=0,7
/pchartl pchart def
%0 1 2 {/pchartl exch def %pchartl=0,2
gsave
xcolorl 0 eq {/tfnx* {0 0 0 1 setcmykcolor} def
/tfwx* {0 0 0 0 setcmykcolor} def
/colrecfix* {setcmykcolor rec fill} bind def
/colrecstx* {setcmykcolor rec stroke} bind def
} if
xcolorl 1 eq {/tfnx* {0 setgray} def
/tfwx* {1 setgray} def
/colrecfix* {setgray rec fill} bind def
/colrecstx* {setgray rec stroke} bind def
} if
xcolorl 2 eq {/tfnx* {1 1 1 0 setcmykcolor} def
/tfwx* {0 0 0 0 setcmykcolor} def
/colrecfix* {setcmykcolor rec fill} bind def
/colrecstx* {setcmykcolor rec stroke} bind def
} if
xcolorl 3 eq {/tfnx* {0 0 0 setrgbcolor} def
/tfwx* {1 1 1 setrgbcolor} def
/colrecfix* {setrgbcolor rec fill} bind def
/colrecstx* {setrgbcolor rec stroke} bind def
} if
pchartl 1 eq {%pchartl=1
/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
/cvishow255 {dup 99 le {(0) show} if
dup 9 le {(0) show} if
cvishow ( ) show} def
/n1079show {n1079 9 le {(000) show} if
n1079 10 ge n1079 99 le and {(00) show} if
n1079 100 ge n1079 999 le and {(0) show} if
n1079 cvishow
} def
/nr1 27 array def
/tx1 52 array def
/nr1 [(01) (02) (03) (04) (05) (06) (07) (08) (09) (10)
(11) (12) (13) (14) (15) (16) (17) (18) (19) (20)
(21) (22) (23) (24) (25) (26) (27)] def
/tx1 [(A) (B) (C) (D) (E) (F) (G) (H) (I) (J)
(K) (L) (M) (N) (O) (P) (Q) (R) (S) (T)
(U) (V) (W) (X) (Y) (Z) (a) (b) (c) (d)
(e) (f) (g) (h) (i) (j) (k) (l) (m) (n)
(o) (p) (q) (r) (s) (t) (u) (v) (w) (x)
(y) (z)] def
72 90 translate
/xs 900 3 div 2 mul def /ys xs def /d2 xs 2 div def /d8 xs 8 div def
7 /Times-ISOL1 FS
0 0 0 setrgbcolor
2 -6 moveto
(fgl90-70, ) show
(Page ) showen (Seite ) showde
xchart 2 mul pchart 1 add cvishow (/16, ) show
(Test chart G with 40x27=1080 colours) showen
(Pr\374fvorlage G mit 40x27=1080 Farben) showde
(; digital equidistant 9 or 16 step colour scales;) showen
(; digital gleichabst\344ndige 9 oder 16stufige Farbreihen;) showde
( Farbdaten in Spalte (A-n):) showde
( Colour data in column (A-n):) showen
7 /Times-ISOL1 FS
colorm 0 eq {%colorm=0
pchart 0 eq {( rgb + cmy0 (A_j + k26_n27)) show
(, 000n (k), w (l), nnn0 (m), www (n)) show} if
pchart 1 eq {( rgb (A_j + k26_n27)) show
(, 000n (k), w (l), nnn0 (m), www (n)) show} if
}%colorm=0
{%colorm=1
pchart 0 eq {( rgb'* (A_n)) show} if
pchart 1 eq {( rgb'* (A_j + k26_n27)) show
(, 000n'* (k), w'* (l), nnn0'* (m), www'* (n)) show} if
}ifelse %colorm=1
7 /Times-ISOL1 FS
(, colorm = ) show colorm cvishow
(, xchart = ) show xchart cvishow
(, pchart = ) show pchart cvishow
%/xchartg where {pop /faktg xchartg 1 ge {1.10} {1.00} ifelse def}
% {/faktg 1.10 def} ifelse
0.01 MM dup scale
/xmin 650 3 div 2.2 mul def
/ymax 15800 def
pchart 0 eq {/xd 800 3 div 2 mul def /yd 800 3 div 2 mul def}
{/xd 900 3 div 2 mul def /yd 900 3 div 2 mul def} ifelse
/xsd xs xd sub 0.5 mul def
/ysd xs xd sub 0.5 mul def
/o'*Fa 0.5 def /l'*Fa 0.5 def /v'*Fa 0.5 def
/c*x 1 o'*Fa sub def /m*x 1 l'*Fa sub def /y*x 1 v'*Fa sub def /n*x 0 def
o'*Fa l'*Fa v'*Fa setrgbcolor
0 0 moveto 24900 0 rlineto 0 17000 rlineto
24900 neg 0 rlineto closepath fill
20 setlinewidth
500 3 div 2 mul /Times-ISOL1 FS
0 0 0 setrgbcolor
1 1 27 {/i exch def %i=1,27
/x xs 0.15 mul def
/y 27.6 ys mul ys i mul sub def
x y moveto nr1 i 1 sub get show
} for %i=1,27
1 1 40 {/i exch def %i=1,36
/x xs i mul 000 add def
/y 27.5 ys mul def
x y moveto tx1 i 1 sub get show
} for %i=1,36
/IMODE 0 def %input rgb for output LAB*
%row no.1 and 2: 9xrgb
/imax 08 def
/jmax 08 def
/kmax 08 def
/TKK2 {200 3 div 2 mul /Times-ISOL1 FS} bind def
TKK2
0 1 kmax {/k exch def %beg k=0,08
/k0 k 3 idiv def
/k1 k k0 3 mul sub def
/xadd k1 xs 9 mul mul def
/yadd k0 xs 9 mul mul def
0 1 jmax {/j exch def %beg j=0,jmax
0 1 imax {/i exch def %beg i=0,imax
/n1079 i j 9 mul add k 81 mul add def
/j1 j k1 9 mul add def
/j1$ tx1 j1 get def
/i1 i 1 add k0 9 mul add def
/xa xmin j xs mul add xadd add xsd add def
/ya ymax i ys mul sub yadd sub ysd add def
/r k kmax div def /g j jmax div def /b i imax div def
colorm 0 eq {%colorm=0,1
/o'*Faa r def %for standard output
/l'*Faa g def
/v'*Faa b def
}
{r g b setrgbcolor %special default instead of 000n, w, cmyn, rgb
/o'*Faa r FF_LM_xchart_gammaF def %r*eF def
/l'*Faa g FF_LM_xchart_gammaF def %g*eF def
/v'*Faa b FF_LM_xchart_gammaF def %b*eF def
} ifelse %colorm=0,1
pchart 1 eq {%pchart=1 or #1
1 1 1 setrgbcolor
xa ya xd dup rec fill
} %pchart=1
{%pchart=0
o'*Faa l'*Faa v'*Faa setrgbcolor
xa ya xd dup rec fill
1 o'*Faa sub
1 l'*Faa sub
1 v'*Faa sub 0 setcmykcolor
xa xd 0.25 mul add ya xd 0.25 mul add xd 0.5 mul dup rec fill
} ifelse %pchart=0
pchart 1 eq {0 0 0 setrgbcolor
xa ya 460 add moveto n1079show ( ) show
j1$ show
i1 9 le {(0) show} if
i1 cvishow
xa ya 320 add moveto o'*Faa cvsshow3
xa ya 180 add moveto l'*Faa cvsshow3
xa ya 040 add moveto v'*Faa cvsshow3
} if
} for %end i=0,jmax
} for %end j=0,jmax
} for %end k=0,kmax
%3x rgbcmy
/id 1 8 div def
/rijn 81 array def %for intermediate storage
/gijn 81 array def /bijn 81 array def
/lmax 1 def
/n1079 728 def
0 1 lmax {/l exch def %beg k=0,kmax
/xadd 3 xs 9 mul mul def
/yadd l 1 add ys 9 mul mul def
%for intermediate storage of l=0,lmax
0 1 01 {/jchart exch def %jchart=0,1
/xchartj l jchart 3 mul add def
0 1 08 {/j exch def %j=0,7
/im 8 j sub def
jchart 1 im {/i exch def %i=0,8
/ia 1 id j mul sub def
/argb ia def /brgb ia i id mul sub def
xchartj 0 eq {/r argb def /g brgb def /b brgb def} if
xchartj 1 eq {/r argb def /g argb def /b brgb def} if
xchartj 2 eq {/r brgb def /g argb def /b brgb def} if
xchartj 3 eq {/r brgb def /g argb def /b brgb def} if %L instead of C
xchartj 4 eq {/r brgb def /g brgb def /b argb def} if
xchartj 5 eq {/r argb def /g brgb def /b argb def} if
jchart 0 eq {/in i j add def /jn j def}
{/in j def /jn i j add def} ifelse
rijn in 9 mul jn add r put
gijn in 9 mul jn add g put
bijn in 9 mul jn add b put
} for %i=0,7
} for %j=0,8
} for %jchart=0,1
%for output of l=0,lmax
0 1 08 {/j exch def %j=0,8
0 1 08 {/i exch def %i=0,8
/n1079 n1079 1 add def
/r rijn i j 9 mul add get def
/g gijn i j 9 mul add get def
/b bijn i j 9 mul add get def
/xa xmin xs j mul add xadd add xsd add def
/ya ymax xs i mul sub yadd sub ysd add def
colorm 0 eq {%colorm=0,1
/o'*Faa r def %for standard output
/l'*Faa g def
/v'*Faa b def
}
{r g b setrgbcolor %special default instead of 000n, w, cmyn, rgb
/o'*Faa r FF_LM_xchart_gammaF def %r*eF def
/l'*Faa g FF_LM_xchart_gammaF def %g*eF def
/v'*Faa b FF_LM_xchart_gammaF def %b*eF def
} ifelse %colorm=0,1
pchart 1 eq {%pchart=1 or #1
1 1 1 setrgbcolor
xa ya xd dup rec fill
}%pchart=1
{%pchart=0
o'*Faa l'*Faa v'*Faa setrgbcolor
xa ya xd dup rec fill
1 o'*Faa sub
1 l'*Faa sub
1 v'*Faa sub 0 setcmykcolor
xa xd 0.25 mul add ya xd 0.25 mul add xd 0.5 mul dup rec fill
} ifelse %pchart=0
pchart 1 eq {0 0 0 setrgbcolor
xa ya 460 add moveto n1079show ( ) show
j1$ show
i1 9 le {(0) show} if
i1 cvishow
xa ya 320 add moveto o'*Faa cvsshow3
xa ya 180 add moveto l'*Faa cvsshow3
xa ya 040 add moveto v'*Faa cvsshow3
} if
} for %i=0,7
} for %j=0,8
} for %end l=0,lmax
%6wrgbcmy
/n1079 971 def
/lmax 03 def %4 rows with geys
/kmax 1 def %9 or 16 steps
1 1 kmax {/k exch def %
k 0 eq {/jmax 08 def} {/jmax 15 def} ifelse
0 1 lmax {/l exch def %beg l=0,lmax
/xadd 36 l add xs mul def
/yadd k 9 xs mul mul def
/j1 l 36 add def
/j1$ tx1 j1 get def
0 1 jmax {/j exch def %j=0,08
/n1079 n1079 1 add def
/i1 j k 9 mul add 1 add def %9 steps, 16 steps
/argb j jmax div def
/xa xmin xadd add xsd add def
/ya ymax xs j mul sub yadd sub ysd add def
/r argb def /g argb def /b argb def
colorm 0 eq {%colorm=0,1
/o'*Faa r def %for standard output
/l'*Faa g def
/v'*Faa b def
}
{r g b setrgbcolor %special default instead of 000n, w, cmyn, rgb
/o'*Faa r FF_LM_xchart_gammaF def %r*eF def
/l'*Faa g FF_LM_xchart_gammaF def %g*eF def
/v'*Faa b FF_LM_xchart_gammaF def %b*eF def
} ifelse %colorm=0,1
pchart 1 eq {%pchart=1 or #1
1 1 1 setrgbcolor
xa ya xd dup rec fill
} %pchart=1
{%pchart=0
o'*Faa l'*Faa v'*Faa setrgbcolor
xa ya xd dup rec fill
l 0 eq {0 0 0 1 argb sub setcmykcolor} if
l 1 eq {argb setgray} if
l 2 eq {1 argb sub dup dup 0 setcmykcolor} if
l 3 eq {argb dup dup setrgbcolor} if
xa ya xd dup rec fill
} ifelse %pchart=0
pchart 1 eq {%pchart =1
0 0 0 setrgbcolor
xa ya 460 add moveto n1079show ( ) show
j1$ show
i1 9 le {(0) show} if
i1 cvishow
colorm 0 eq {%colorm=0,1
xa ya 320 add moveto
l 0 eq l 2 eq or {(n*=) show 1 argb sub cvsshow3} if
l 1 eq l 3 eq or {(w*=) show argb cvsshow3} if
xa ya 180 add moveto
l 0 eq {(000n*) show} if
l 1 eq {(w*) show} if
l 2 eq {(nnn0*) show} if
l 3 eq {(www*) show} if
xa ya 040 add moveto
l 0 eq {(setcmyk) show} if
l 1 eq {(setgray) show} if
l 2 eq {(setcmyk) show} if
l 3 eq {(setrgb) show} if
}%colorm=0
{%colorm=1
xa ya 320 add moveto o'*Faa cvsshow3
xa ya 180 add moveto l'*Faa cvsshow3
xa ya 040 add moveto v'*Faa cvsshow3
} ifelse %colorm=0,1
} if %pchart =1
} for %j=0,jmax
} for %l=0,lmax
} for %k=0,kmax
%basic colours 1072 - 1080
/basrgb 24 array def
/basrgb
[0 0 0 1 1 1
1 0 0 0 1 1
1 1 0 0 0 1
0 1 0 1 0 1
] def
/n1079 1071 def
0 1 07 {/i exch def %i=0,7
/n1079 n1079 1 add def
/i3 i 3 mul def
/xadd 36 xs mul def
/yadd 25 xs mul def
i 0 eq {/l 0 def /j 0 def /j1$ (k) def /i1 26 def} if
i 1 eq {/l 0 def /j 1 def /j1$ (k) def /i1 27 def} if
i 2 eq {/l 1 def /j 0 def /j1$ (l) def /i1 26 def} if
i 3 eq {/l 1 def /j 1 def /j1$ (l) def /i1 27 def} if
i 4 eq {/l 2 def /j 0 def /j1$ (m) def /i1 26 def} if
i 5 eq {/l 2 def /j 1 def /j1$ (m) def /i1 27 def} if
i 6 eq {/l 3 def /j 0 def /j1$ (n) def /i1 26 def} if
i 7 eq {/l 3 def /j 1 def /j1$ (n) def /i1 27 def} if
/xa xmin xs l mul add xadd add xsd add def
/ya ymax xs j mul sub yadd sub ysd add def
/r basrgb i3 get def
/g basrgb i3 1 add get def
/b basrgb i3 2 add get def
colorm 0 eq {%colorm=0,1
/o'*Faa r def %for standard output
/l'*Faa g def
/v'*Faa b def
}
{r g b setrgbcolor %special default instead of 000n, w, cmyn, rgb
/o'*Faa r FF_LM_xchart_gammaF def %r*eF def
/l'*Faa g FF_LM_xchart_gammaF def %g*eF def
/v'*Faa b FF_LM_xchart_gammaF def %b*eF def
} ifelse %colorm=0,1
pchart 1 eq {%pchart=1 or #1
1 1 1 setrgbcolor
xa ya xd dup rec fill
} %pchart=1
{%pchart=0
o'*Faa l'*Faa v'*Faa setrgbcolor
xa ya xd dup rec fill
1 o'*Faa sub
1 l'*Faa sub
1 v'*Faa sub 0 setcmykcolor
xa xd 0.25 mul add ya xd 0.25 mul add xd 0.5 mul dup rec fill
} ifelse %pchart=0
pchart 1 eq {0 0 0 setrgbcolor
xa ya 460 add moveto n1079show ( ) show
j1$ show
i1 9 le {(0) show} if
i1 cvishow
xa ya 320 add moveto o'*Faa cvsshow3
xa ya 180 add moveto l'*Faa cvsshow3
xa ya 040 add moveto v'*Faa cvsshow3
} if
} for %i=0,7
pchart 1 eq {%pchart=1
40 setlinewidth
xmin 30 sub xsd add 09 xs mul add ysd moveto 0 17000 ysd sub rlineto stroke
xmin 30 sub xsd add 18 xs mul add ysd moveto 0 17000 rlineto stroke
xmin 30 sub xsd add 27 xs mul add ysd moveto 0 17000 rlineto stroke
xmin 30 sub xsd add 36 xs mul add ysd moveto 0 17000 rlineto stroke
0 16370 09 ys mul sub moveto 24500 00 ys mul sub 0 rlineto stroke
0 16370 18 ys mul sub moveto 24500 04 ys mul sub 0 rlineto stroke
xmin 30 sub xsd add 36 xs mul add
16370 25 ys mul sub moveto 04 ys mul 0 rlineto stroke
}if %pchart=1
} if %pchartl=1
showpage
grestore
%} for %pchartl=0,2
%} for %xchartl=0,7
%} for %xcolorl=0,3
%} for %colorml=0,1
%%Trailer
%%EndDocument
EndEPSF grestore gsave
BeginEPSF 86 SHAl add 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 18
%line 409
%!PS-Adobe-3.0 EPSF-3.0 fgl90-8N
%%BoundingBox: 70 85 246 206
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave
/ioutx 0 def
ioutx 1 eq {%ioutx=1
4 /Times-Roman FS
72 86 moveto
(fgl90-8N) show
72 90 translate
0.01 MM dup scale
20 setlinewidth
/xwidth 6100 def
/ywidth 4000 def
1 setgray
0 0 moveto xwidth 0 rlineto 0 ywidth rlineto
xwidth neg 0 rlineto closepath fill
0 setgray
0 0 moveto xwidth 0 rlineto 0 ywidth rlineto
xwidth neg 0 rlineto closepath stroke
} if %ioutx=1
grestore
showpage
%%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
/SHSr 2 MM def /SHAr 2 MM def
BeginEPSF
161 MM 06 MM sub SHSr sub 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 fgl91-1N
%%BoundingBox: 70 85 246 206
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave
/ioutx 0 def
ioutx 1 eq {%ioutx=1
4 /Times-Roman FS
72 86 moveto
(fgl91-1N) show
72 90 translate
0.01 MM dup scale
20 setlinewidth
/xwidth 6100 def
/ywidth 4000 def
1 setgray
0 0 moveto xwidth 0 rlineto 0 ywidth rlineto
xwidth neg 0 rlineto closepath fill
0 setgray
0 0 moveto xwidth 0 rlineto 0 ywidth rlineto
xwidth neg 0 rlineto closepath stroke
} if %ioutx=1
grestore
showpage
%%Trailer
%%EndDocument
EndEPSF grestore gsave
BeginEPSF
219 MM 06 MM sub SHAr add 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 fgl91-2N
%%BoundingBox: 70 85 246 206
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave
/ioutx 0 def
ioutx 1 eq {%ioutx=1
4 /Times-Roman FS
72 86 moveto
(fgl91-2N) show
72 90 translate
0.01 MM dup scale
20 setlinewidth
/xwidth 6100 def
/ywidth 4000 def
1 setgray
0 0 moveto xwidth 0 rlineto 0 ywidth rlineto
xwidth neg 0 rlineto closepath fill
0 setgray
0 0 moveto xwidth 0 rlineto 0 ywidth rlineto
xwidth neg 0 rlineto closepath stroke
} if %ioutx=1
grestore
showpage
%%Trailer
%%EndDocument
EndEPSF grestore gsave
BeginEPSF
161 MM 06 MM sub SHSr sub 108 MM pchart 2 eq {30 MM sub} if 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 fgl91-3N,
%%BoundingBox: 70 90 226 206
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave
8 /Times-Roman FS
72 83 moveto
%!2 (fgl91-3N,) show
72 90 translate
%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke
grestore
showpage
%%Trailer
%%EndDocument
EndEPSF grestore gsave
BeginEPSF
219 MM 06 MM sub SHAr add 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 fgl91-4N
%%BoundingBox: 70 85 246 206
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave
/ioutx 0 def
ioutx 1 eq {%ioutx=1
4 /Times-Roman FS
72 86 moveto
(fgl91-4N) show
72 90 translate
0.01 MM dup scale
20 setlinewidth
/xwidth 6100 def
/ywidth 4000 def
1 setgray
0 0 moveto xwidth 0 rlineto 0 ywidth rlineto
xwidth neg 0 rlineto closepath fill
0 setgray
0 0 moveto xwidth 0 rlineto 0 ywidth rlineto
xwidth neg 0 rlineto closepath stroke
} if %ioutx=1
grestore
showpage
%%Trailer
%%EndDocument
EndEPSF grestore gsave
BeginEPSF
161 MM 06 MM sub SHSr sub 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 fgl91-5N
%%BoundingBox: 70 85 246 206
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave
/ioutx 0 def
ioutx 1 eq {%ioutx=1
4 /Times-Roman FS
72 86 moveto
(fgl91-5N) show
72 90 translate
0.01 MM dup scale
20 setlinewidth
/xwidth 6100 def
/ywidth 4000 def
1 setgray
0 0 moveto xwidth 0 rlineto 0 ywidth rlineto
xwidth neg 0 rlineto closepath fill
0 setgray
0 0 moveto xwidth 0 rlineto 0 ywidth rlineto
xwidth neg 0 rlineto closepath stroke
} if %ioutx=1
grestore
showpage
%%Trailer
%%EndDocument
EndEPSF grestore gsave
BeginEPSF
219 MM 06 MM sub SHAr add 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 fgl91-6N
%%BoundingBox: 70 85 246 206
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave
/ioutx 0 def
ioutx 1 eq {%ioutx=1
4 /Times-Roman FS
72 86 moveto
(fgl91-6N) show
72 90 translate
0.01 MM dup scale
20 setlinewidth
/xwidth 6100 def
/ywidth 4000 def
1 setgray
0 0 moveto xwidth 0 rlineto 0 ywidth rlineto
xwidth neg 0 rlineto closepath fill
0 setgray
0 0 moveto xwidth 0 rlineto 0 ywidth rlineto
xwidth neg 0 rlineto closepath stroke
} if %ioutx=1
grestore
showpage
%%Trailer
%%EndDocument
EndEPSF grestore gsave
BeginEPSF
161 MM 06 MM sub SHSr sub 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 fgl91-7N,
%%BoundingBox: 70 90 226 206
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave
8 /Times-Roman FS
72 83 moveto
%!2 (fgl91-7N,) show
72 90 translate
%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke
grestore
showpage
%%Trailer
%%EndDocument
EndEPSF grestore gsave
BeginEPSF
219 MM 06 MM sub SHAr add 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 fgl91-8N
%%BoundingBox: 70 85 246 206
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave
/ioutx 0 def
ioutx 1 eq {%ioutx=1
4 /Times-Roman FS
72 86 moveto
(fgl91-8N) show
72 90 translate
0.01 MM dup scale
20 setlinewidth
/xwidth 6100 def
/ywidth 4000 def
1 setgray
0 0 moveto xwidth 0 rlineto 0 ywidth rlineto
xwidth neg 0 rlineto closepath fill
0 setgray
0 0 moveto xwidth 0 rlineto 0 ywidth rlineto
xwidth neg 0 rlineto closepath stroke
} if %ioutx=1
grestore
showpage
%%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 20240301
%%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
/lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def}
{/lanind1 0 def /lanind2 0 def} ifelse
/colormg where {pop /colorm1 colormg def /colorm2 colormg def}
{/colorm1 0 def /colorm2 0 def} ifelse
/xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def}
{/xcolor1 0 def /xcolor2 0 def} ifelse
/xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def
/xchartd xchartgd def}
{/xchart1 0 def /xchart2 0 def /xchartd 1 def} ifelse
/pchartg where {pop /pchart1 pchartg def /pchart2 pchartg def
/pchartd pchartgd def}
{/pchart1 0 def /pchart2 0 def /pchartd 1 def} ifelse
/colormf where {pop /colorm1 colormf def /colorm2 colormf def
/colormd colormdf def} if
/xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def
/xcolord xcolordf def} if
/xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def
/xchartgd xchartdf def /xchartd xchartdf def} if
/pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def
/pchartgd pchartdf def /pchartd pchartdf def} if
/lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage
/colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage
/xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage
/xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage
/pchart pchart1 def %pchart1 1 pchart2 {/pchart exch def %output showpage
/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 where {pop %/IMES IMES def
}
{/IMES 0 def} ifelse
/i*ptrsc where {pop %/i*ptrsc i*ptrsc def
}
{/i*ptrsc 0 def} ifelse
/ISRL*ioG where {pop}{/ISRL*ioG 0 def} ifelse
/ISIN*ioG where {pop}{/ISIN*ioG 0 def} ifelse
/ISOU*ioG where {pop}{/ISOU*ioG 0 def} ifelse
gsave
%pchart 0 eq {%beg if pchart=0
0 setgray
1.0 1.0 scale
0.0 MM -2.0 MM translate %page shift down
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
/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
/xmo xlo xro xlo sub 0.5 mul add def
/ymo yro 1 MM sub def
xmo 1 MM sub ymo moveto 2 MM 0 rlineto stroke
xmo ymo 1 MM sub moveto 0 1 MM rlineto stroke
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
/10TIN {10 /Times-ISOL1 FS} def
/10TRN {10 /Times-Roman FS} def
/12TIN {12 /Times-ISOL1 FS} def
/12TRN {12 /Times-Roman FS} def
/10TII {10 /TimesI-ISOL1 FS} def
/10TRI {10 /Times-Italic FS} def
/12TII {12 /TimesI-ISOL1 FS} def
/12TRI {12 /Times-Italic FS} def
/10TIB {10 /TimesB-ISOL1 FS} def
/10TRB {10 /Times-Bold FS} def
/12TIB {12 /TimesB-ISOL1 FS} def
/12TRB {12 /Times-Bold FS} def
/10TIBI {10 /TimesBI-ISOL1 FS} def
/10TRBI {10 /Times-BoldItalic FS} def
/12TIBI {12 /TimesBI-ISOL1 FS} def
/12TRBI {12 /Times-BoldItalic FS} def
/12RN {12 /Times-Roman FS} bind def /10RN {10 /Times-Roman FS} bind def
/12RI {12 /Times-Italic FS} bind def /10RI {10 /Times-Italic FS} bind def
/12RB {12 /Times-Bold FS} bind def /10RB {10 /Times-Bold FS} bind def
/12RBI {12 /Times-BoldItalic FS} bind def /10RBI {10 /Times-BoldItalic FS} bind def
/12TN {12 /Times-ISOL1 FS} bind def /10TN {10 /Times-ISOL1 FS} bind def
/12TI {12 /TimesI-ISOL1 FS} bind def /10TI {10 /TimesI-ISOL1 FS} bind def
/12TB {12 /TimesB-ISOL1 FS} bind def /10TB {10 /TimesB-ISOL1 FS} bind def
/12TBI {12 /TimesBI-ISOL1 FS} bind def /10TBI {10 /TimesBI-ISOL1 FS} bind def
%special
/10TIN_10 {10TIN 0 -2 rmoveto
xcolor 1 eq {(10) show} if 0 2 rmoveto} def
/10TINK10 {10TIN 0 -2 rmoveto
xcolor 1 eq {(,10) show} if 0 2 rmoveto} def
/10SN {10 /Symbol FS} def
/12SN {12 /Symbol FS} def
/TELi0 8 array def
/TELi1 8 array def
/TELi 8 array def
/TELi0 [(P65) (P60) (P55) (P50) (P45) (P40) (P35) (P30)] def %7 illumin.
/TELi1 [(D65) (D50) (P40) (A00) (E00) (C00) (P00) (Q00)] def %7 illumin.
/xchart8 0 def %xchart8=0: Pxx, xchart8=1: Dxx
0 1 7 {/i exch def %i=0,7
xchart8 0 eq {%xchart8=0
TELi i TELi0 i get put
}%xchart8=0
{%xchart8=1
TELi i TELi1 i get put
} ifelse %xchart8=1
} for %i=0,7
0 setgray
12TIN
61 MM 13.5 MM moveto
(TUB\255Pr\374fvorlage fgl9; ) showde
(TUB\255test chart fgl9; ) showen
(gr\341fico TUB\255fgl9; ) showes
(TUB\255test graphique fgl9; ) showfr
(grafico TUB\255fgl9; ) showit
(TUB\255test chart fgl9; ) showjp
pchart 0 eq {%pchart=0
0 setgray
(fgl9: Test chart ul_e10 with 40x27=1080 colours) showen
(fgl9: Pr\374fvorlage 2g_di mit 40x27=1080 Farben) showde
} if %pchart=0
pchart 1 eq {%pchart=1 %no output
(fgl9: Test chart ul_e10 with 40x27=1080 colours) showen
(fgl9: Pr\374fvorlage 2g_di mit 40x27=1080 Farben) showde
} if %pchart=1
pchart 2 eq {%pchart=2
(fgl9: Ein\255Ausgabe\255Beziehung nach ISO 9241\255306) showde
(fgl9: In\255output relation according to ISO 9241\255306) showen
} if %pchart=2
/DEH 1 def
colorm 0 eq {(; DH) show}
{DEH 0 eq {(; 1MR, DH) show}
{(; 1MR, DEH) show} ifelse} ifelse
/Ycont 8 array def
/Ycont [(88,9:0,31)
(88,9:0,62)
(88,9:1,25)
(88,9:2,5)
(88,9:5)
(88,9:10)
(88,9:20)
(88,9:40)] def
/Yrang 8 array def
/Yrang [(0,0 to <0,46)
(0,46 to <0,93)
(0,93 to <1,87)
(1,87 to <3,75)
(3,75 to <7,5)
(7,5 to <15)
(15 to <30)
(30 to <60)] def
61 MM 09.5 MM moveto
12TIN
pchart 0 eq {%pchart=0
(Digital equidistant 9 or 16 step colour scales) showen
(Digital gleichabst\344ndige 9 oder 16stufige Farbreihen) showde
} if %pchart=0
pchart 1 eq {%pchart=1 %no output
(Digital equidistant 9 or 16 step colour scales) showen
(Digital gleichabst\344ndige 9 oder 16stufige Farbreihen) showde
} if %pchart=1
pchart 2 eq {%pchart=2
(Gesehener) showde (Viewing) showen
12TIN
( Y) show
12TIN
(\255Kontrast ) showde ( contrast ) showen
12TIN
(Y) show
10TIN 0 -2 rmoveto (W) show 0 2 rmoveto
12TIN (:) show (Y) show
10TIN 0 -2 rmoveto (N) show 0 2 rmoveto
12TIN
(=) show
Ycont xchart xchartd idiv get show
(; ) show
12TIN (Y) show
10TIN 0 -2 rmoveto (N) show 0 2 rmoveto
12TIN
( range ) showen (\255Bereich ) showde
Yrang xchart xchartd idiv get show
} if %pchart=2
/Uimage 1 def
/GammaR 0 def
Uimage 0 eq {%Uimage=0
(, L\255HDR) showen
(, L\255HDR) showde
} if %Uimage=0
Uimage 1 eq {%Uimage=1
(, D\255HDR) showen
(, D\255HDR) showde
} if %Uimage=1
(; ) show 12SN (g) show 10TIN 0 -2 rmoveto (R) show 0 2 rmoveto
12TIN
GammaR 0 eq {%GammaR
/Gamfak 1 def
(=1,0) show
} if %GammaR
GammaR 1 eq {%GammaR
/Gamfak 0.9 def
(=0,9) showen
} if %GammaR
GammaR 2 eq {%GammaR
/Gamfak 0.8 def
(=0,8) show
} if %GammaR
12TIN
203 MM 13.5 MM moveto
12TIN
(000n/w/cmy0/rgb ) show
207 MM 9.5 MM moveto
12TIN
(->rgb*) show
10TIN -1 -2 rmoveto
colorm 0 eq {(d) show}
{DEH 0 eq {(d) show} {(de) show} ifelse} ifelse
0 2 rmoveto
(, ) show
colorm cvishow xcolor cvishow
xchartd 1 eq {xchart cvishow}
{xchart xchart 8 idiv 8 mul sub cvishow} ifelse
(\255) show pchart cvishow (: ) show
LSC$ (N) eq {
(no change) showen
(keine \304nderung) showde
} if
%1 setgray %start white and unvisible
LSC$ (S) eq {
(Startup (S) data dependend) showen
(Startup(S)Daten abh\344ngig) showde
} if
LSC$ (F) eq {12TIN (g) show
10TIN
0 -2 rmoveto (P) show 0 2 rmoveto
12TIN (=) show
/xchartN xchart 8 idiv def
/xchartP xchart xchart 8 idiv 8 mul sub def
/gammaNl 1 2.4 xchartN 0.18 mul sub 2.4 div div def
/gammaPl 2.4 xchartP 0.18 mul sub 2.4 div def
gammaPl cvsshow2 (; ) show
12TIN (g) show
10TIN
0 -2 rmoveto (N) show 0 2 rmoveto
12TIN (=) show
gammaNl cvsshow2
} if
62 MM 198.5 MM moveto
12RN tfbs (http://farbe.li.tu-berlin.de/fgl9/fgl9l) show 12TN
(0) show %
LSC$ show LEX$ show tfn
(; only vector graphic VG) showen
(; nur Vektorgrafik VG) showde
%1 setgray %start white and unvisible
(; ) show
xchart 0 eq {
(Start\255Ausgabe) showde
(start output) showen
(comience salida) showes
(sortie de production) showfr
(cominciare l'uscita) showit
(start output) showjp
} if
62 MM 194 MM moveto
(Siehe separate Bilder dieser Seite: ) showde
(see separate images of this page: ) showen
(vea archivos semejantes: ) showes
(voir des fichiers similaires: ) showfr
(vedere dei file simili: ) showit
(see similar files: ) showjp
12RN tfbs (http://farbe.li.tu-berlin.de/fgl9/fgl9.htm) show tfn 12TN
19 MM 185 MM moveto
-90 rotate
(Siehe \344hnliche Dateien der ganzen Serie: ) showde
(see similar files of the whole serie: ) showen
(vea archivos semejantes: ) showes
(voir des fichiers similaires de serie: ) showfr
(vedere dei file simili: ) showit
(see similar files: ) showjp
12RN tfbs (http://farbe.li.tu-berlin.de/fgls.htm) show tfn 12TN
90 rotate
15 MM 185 MM moveto
-90 rotate
(Technische Information: ) showde
(technical information: ) showen
(informaci\363n t\351cnica: ) showes
(informations techniques: ) showfr
(informazioni tecniche: ) showit
(technical information: ) showjp
12RN tfbs (http://farbe.li.tu-berlin.de/A/33872E.html) show tfn 12TN
90 rotate
11 MM 185 MM moveto
-90 rotate
(oder ) showde
(or ) showen
(o ) showes
(ou ) showfr
(o ) showit
(or ) showjp
12RN tfbs (http://standards.iso.org/iso/9241/306/ed-2/index.html) show
tfn 12TN
90 rotate
281 MM 185 MM moveto
-90 rotate
(TUB\255Registrierung: 20240301\255fgl9/fgl9l) showde
(TUB registration: 20240301\255fgl9/fgl9l) showen
(TUB matr\355cula: 20240301\255fgl9/fgl9l) showes
(TUB enregistrement: 20240301\255fgl9/fgl9l) showfr
(TUB iscrizione: 20240301\255fgl9/fgl9l) showit
(TUB registration: 20240301\255fgl9/fgl9l) showjp
(0) show %
LSC$ show LEX$ show
90 rotate
281 MM 74 MM moveto
-90 rotate
(TUB\255Material: Code=rha4ta) showde
(TUB material: code=rha4ta) showen
(TUB material: code=rha4ta) showes
(TUB mat\351riel: code=rha4ta) showfr
(TUB materiale: code=rha4ta) showit
(TUB material: code=rha4ta) showjp
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 Beurteilung und Messung ) showde
( application for evaluation and measurement ) showen
( aplicaci\363n para la medida ) showes
( application pour la mesure ) showfr
( la domanda per la misura ) showit
( application for measurement ) showjp
(von Display\255 oder Druck\255Ausgabe) showde
(of display or print output) showen
(de display output) showes
(de sortie sur \350cran) showfr
(di stampa di display) showit
(of display output) showjp
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
grestore
gsave
%**********************************************************
%%Trailer
%%EndDocument
EndEPSF grestore gsave
showpage
grestore
%} for %end for pchartg=pchartg1,pchartg2
%} for %end for xchartg=xchartg1,xchartg2
%} for %end for xcolorg=xcolorg1,xcolorg2
%} for %end for colormg=colormg1,colormg2
%%Trailer
%END INCLUDE TEST FILE at line 1270
%%EndDocument
EndEPSFF grestore gsave
showpage
grestore
} for %END for pchartf=pchartf10,pchartdf,pchartf20
} for %END for xchartf=xchartf10,xchartdf,xchartf20
} for %END for xcolorf=xcolorf10,xcolordf,xcolorf20
} for %END for colormf=colormf10,colormdf,colormf20
%%Trailer