%!PS-Adobe-3.0 EPSF-3.0 YK21L2NA.PS 20110301
%%BoundingBox: 0 0 595 842
/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: www.ps.bam.de/DM10/DM10.HTM)
/Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1)
/Subject (goto: http://www.ps.bam.de or http://130.149.60.445/~farbmetrik)
/Keywords (image reproduction, colour devices)
/Creator (klaus.richter@me.com)
/CreationDate (D:2011030112000)
/ModDate (D:2011030112000)
/DOCINFO pdfmarkf
[ /View [ /Fit ]
/DOCVIEW pdfmarkf
%line 20
%Early definition of MTLsetgray identical to former setgray
/FFM_setgray {setgray} bind def
/FFM_setrgbcolor {setrgbcolor} bind def
/FFM_setcmykcolor {setcmykcolor} bind def
/BeginEPSFG {% 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
/EndEPSFG {% 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
/cvishowb {cvi 6 string cvs show ( ) show} def
/cvsshow1b {10 mul cvi 0.1 mul 7 string cvs show ( ) show} def
/cvsshow2b {100 mul cvi 0.01 mul 7 string cvs show ( ) show} def
/cvsshow3b {1000 mul cvi 0.001 mul 7 string cvs show ( ) show} def
/cvsshow1r {0.05 add 10 mul cvi 0.1 mul 7 string cvs show} def
/cvsshow2r {0.005 add 100 mul cvi 0.01 mul 7 string cvs show} def
/cvsshow3r {0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show} def
/cvsshow1br {0.05 add 10 mul cvi 0.1 mul 7 string cvs show ( ) show} def
/cvsshow2br {0.005 add 100 mul cvi 0.01 mul 7 string cvs show ( ) show} def
/cvsshow3br {0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show ( ) show} def
/cvi100 {100 mul cvi /xi exch def
xi 0 lt {/vorz -1 def} {/vorz 1 def} ifelse
/xia xi abs def
vorz -1 eq {(\255) show} {(0) show} ifelse
xia 0 ge xia 9 le {(0000) show} if
xia 10 ge xia 99 le and {(000) show} if
xia 100 ge xia 999 le and {(00) show} if
xia 1000 ge xia 9999 le and {(0) show} if
xia cvishow
} bind def
%***********************************************************
%line169
%BEG 1MR-0001.TXT ************************************2011-03-01
/1MR-0001 {%BEG procedure 1MR-0001
%1MR-Transform of setgray and setcmykcolor to FFM_setrgbcolor=standard setrgbcolor
%Three procedures and use for a new subprocedure procedures FFM_de_setrgbcolor
%FFM_de_setrgbcolor: Transfer (T) of device (D) to elementary (E) hues
/setgray {%BEG procedure setgray
dup dup FFM_de_setrgbcolor
%STOPs
} def %END procedure setgray
/setcmykcolor {%BEG procedure setcmykcolor
/FFM_k exch def /FFM_y exch def /FFM_m exch def /FFM_c exch def
FFM_k 0 eq {1 FFM_c sub 1 FFM_m sub 1 FFM_y sub FFM_de_setrgbcolor}
{1 FFM_k sub dup dup FFM_de_setrgbcolor} ifelse
%STOPc
} def %END procedure setcmykcolor
/setrgbcolor {%BEG procedure setrgbcolor
/FFM_b exch def
/FFM_g exch def
/FFM_r exch def
FFM_r FFM_g FFM_b
FFM_de_setrgbcolor
%STOPr
} def %BEG procedure setrgbcolor
} def %END procedure 1MR-0001
%END 1MR-0001.TXT ************************************2011-03-01
%BEG 'OK0X'DEH-0000.TXT *********************************2011-04-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 /xcharti_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
/xcharti_XYZ729_LAB729a { %BEG Procedure xcharti_LAB729a
%transfer from XYZ729 data to LAB729a CIELAB data for 9x9x9=729 colours
%requires 0<= xcharti <=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
xcharti 2 le {/il 0 def}
{/il xcharti 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
xcharti 2 ge {%xcharti>=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
xcharti 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
xcharti 0 eq {%xcharti=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 %xcharti=0 (1x)
xcharti 1 eq {%xcharti=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 %xcharti=1 (1x)
xcharti 2 eq {%xcharti=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 %xcharti=2 (1x)
xcharti 3 ge {%xcharti=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 %xcharti=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
xcharti 0 eq {/Xprint 0 def /FileData (LAB*rc) def} if
xcharti 1 eq {/Xprint 1 def /FileData (LAB*ra) def} if
xcharti 2 eq {/Xprint 1 def /FileData (LAB*na) def} if
xcharti 3 eq {/Xprint 1 def /FileData (LAB*la0) def} if
xcharti 4 eq {/Xprint 1 def /FileData (LAB*la1) def} if
xcharti 5 eq {/Xprint 1 def /FileData (LAB*la2) def} if
xcharti 6 eq {/Xprint 1 def /FileData (LAB*la3) def} if
xcharti 7 eq {/Xprint 1 def /FileData (LAB*la4) def} if
xcharti 8 eq {/Xprint 1 def /FileData (LAB*la5) def} if
xcharti 9 eq {/Xprint 1 def /FileData (LAB*la6) def} if
xcharti 10 eq {/Xprint 1 def /FileData (LAB*la7) def} if
} bind def %END xcharti_XYZ729_LAB729a
%************************************************************************
/FFM_de_setrgbcolor {%BEG procedure FFM_de_setrgbcolor
%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 {x%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
FFM_setrgbcolor
} bind def %END procedure FFM_de_setrgbcolor.TXT
%END 'OK0X'DEH-0000.TXT ************************************2011-04-01
%BEG 'OK0X'SEP-0002.TXT *********************************2011-04-01
%*********************************************************************
/trans_rgb3*_cmyn5*ioF {%BEG Procedure trans_rgb3*_cmyn5*ioF
%assumes input of olv*, 'zm60'CMYN559LT.PS
o* 0 le {/o* 0.0000 def} if
l* 0 le {/l* 0.0000 def} if
v* 0 le {/v* 0.0000 def} if
o* 1 ge {/o* 1.0000 def} if
l* 1 ge {/l* 1.0000 def} if
v* 1 ge {/v* 1.0000 def} if
/ok* o* def /lk* l* def /vk* v* def
/tdel 0 def
vk* lk* ge lk* ok* ge and tdel 0 eq and % v* >= l* >= o* equal y* <= m* <= c*
%sector C-V of C-M, C>=M: i*p=0
{/n*n 1 vk* sub def
/w*w ok* def
/m*w lk* def
/tdel 1 def
/isec 3 def
} if % v* >= l* >= o*
vk* ok* ge ok* lk* ge and tdel 0 eq and % v* >= o* >= l* equal y* <= c* <= m*
%sector V-M of C-M, M>=C: i*p=1
{/n*n 1 vk* sub def
/w*w lk* def
/m*w ok* def
/tdel 1 def
/isec 4 def
} if % v* >= o* >= l*
ok* vk* ge vk* lk* ge and tdel 0 eq and % o* >= v* >= l* equal c* <= y* <= m*
%sector M-O of M-Y, M>=Y: i*p=2
{/n*n 1 ok* sub def
/w*w lk* def
/m*w vk* def
/tdel 1 def
/isec 5 def
} if % o* >= v* >= l*
ok* lk* ge lk* vk* ge and tdel 0 eq and % o* >= l* >= v* equal c* <= m* <= y*
%sector O-Y of M-Y, Y>=M: i*p=3
{/n*n 1 ok* sub def
/w*w vk* def
/m*w lk* def
/tdel 1 def
/isec 0 def
} if % o* >= l* >= v*
lk* ok* ge ok* vk* ge and tdel 0 eq and % l* >= o* >= v* equal m* <= c* <= y*
%sector Y-L of Y-C, Y>=C: i*p=4
{/n*n 1 lk* sub def
/w*w vk* def
/m*w ok* def
/tdel 1 def
/isec 1 def
} if % l* >= o* >= v*
lk* vk* ge vk* ok* ge and tdel 0 eq and % l* >= v* >= o* equal m* <= y* <= c*
%sector L-C of Y-C, C>=Y: i*p=5
{/n*n 1 lk* sub def
/w*w ok* def
/m*w vk* def
/tdel 1 def
/isec 2 def
} if % l* >= v* >= o*
%achromatic
%W: ok*, lk*, vk* = 1.00
1.0 ok* sub abs 0.001 le
1.0 lk* sub abs 0.001 le and
1.0 vk* sub abs 0.001 le and %W special case
{/n*n 0 def /w*w 1 def /m*w 1 def %W
/isec 6 def
} if
%N: ok*, lk*, vk* <= 0.001
ok* abs 0.001 le
lk* abs 0.001 le and
vk* abs 0.001 le and %N special case
{/n*n 1 def /w*w 0 def /m*w 0 def %N
/isec 6 def
} if
%Achromatic
ok* lk* sub abs 0.001 le
lk* vk* sub abs 0.001 le and %Achromatic special case
{/n*n 1 ok* sub def /w*w ok* def /m*w ok* def %grey
/isec 6 def
} if
/lab*wFa w*w def
/lab*nFa n*n def
/lab*cFa 1 n*n sub w*w sub def
/argb 1 lab*nFa sub def
/brgb m*w def
/crgb lab*wFa def
/c* lab*cFa def
/lab*tFa 1 lab*nFa sub lab*cFa 0.5 mul sub def
isec 6 eq {%BEG isec=6 achromatic
/o*1 1 def
/l*1 1 def
/v*1 1 def
}%END isec=6 achromatic
{%BEG isec#6 chromatic
/o*1 ok* argb 0.000001 add div def
/l*1 lk* argb 0.000001 add div def
/v*1 vk* argb 0.000001 add div def
} ifelse %END isec#6
/c3*Fa 1 o*1 sub def
/m3*Fa 1 l*1 sub def
/y3*Fa 1 v*1 sub def
/c4*Fa c3*Fa def %at least one of cmy will be cero
/m4*Fa m3*Fa def
/y4*Fa y3*Fa def
/n4*Fa lab*nFa def %cmyn5*
/o4*Fa 1 c4*Fa sub def
/l4*Fa 1 m4*Fa sub def
/v4*Fa 1 y4*Fa sub def
/i4*Fa 1 n4*Fa sub def
} bind def %END Procedure trans_rgb3*_cmyn5*ioF 'zm60'CMYN559LT.PS
%*********************************************************************
%END 'OK0X'SEP-0002.TXT *********************************2011-04-01
%%EndProlog
%%BeginPageSetup
/#copies 1 def
A4querF
1.0 1.0 scale %F
/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)] def
/EY$ [(A.DAT) (B.DAT) (G.DAT) (H.DAT) (I.DAT) (J.DAT)
(P.DAT) (T.DAT)] def
/lanind10f 0 def /lanind20f 00 def
/colorm10f 0 def /colorm20f 01 def
/xcolor10f 0 def /xcolor20f 00 def
/xchart10f 0 def /xchart20f 00 def
/lanindf lanind10f def
/xcolorf xcolor10f def
/TSYSIO (sRGB) def
gsave
colorm10f 1 colorm20f {/colormf exch def %colorm10f,colorm20f
gsave
%line 209
xchart10f 1 xchart20f {/xchartf exch def %xchart10f,xchart20f
/xcharti 3 def %sRGB, Lr=0%
/GSS$ SS$ lanindf get def
/GSC$ SC$ colormf get def
/GSX$ SX$ xcolorf get def
/GSY$ SY$ xchartf get def
/GEX$ EX$ 6 get def
/GEY$ EY$ 6 get def
gsave
%line 229
%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
xcharti_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-0001 %uses subprocedure FFM_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
BeginEPSFG
028 MM 01 MM add
020 MM 15 MM add translate %special
10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate
%%BeginDocument: Bild 17
%line 239
%!PS-Adobe-3.0 EPSF-3.0 xxx/LG88/LG88L0XX.PS 20110301
%%BoundingBox: 14 08 828 584
/pdfmark where {pop} {userdict /pdfmark /cleartomark load put} ifelse
/languagelevel where {pop languagelevel} {1} ifelse
2 lt { userdict (<<) cvn ([) cvn load put
userdict (>>) cvn (]) cvn load put
} if
[ /Title (PostScript pictures: www.ps.bam.de/LG88/LG88.HTM)
/Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1)
/Subject (goto: http://www.ps.bam.de or http://130.149.60.445/~farbmetrik)
/Keywords (image reproduction, colour devices)
/Creator (klaus.richter@mac.com)
/CreationDate (D:2011030112000)
/ModDate (D:2011030112000)
/DOCINFO pdfmark
[ /View [ /Fit ]
/DOCVIEW pdfmark
%BEG LG88/OUTLIN10.PS Output Linearization (OL) olv*->olv'* 20110301
%Early Binding: needed for colour separation
%/sgcmykcolor {setcmykcolor} bind def
%/sggray {setgray} bind def
%/sgrgbcolor {setrgbcolor} bind def
%FILE PREPARED FOR MIXED MODE, e. g. input ORS18 and output TLS00
/IMES 0 def %0=LAB* used, no reflection factor necessary
%/IMES 1 def /Yre 2.52 def %1=XYZ measurement and standard device reflection
%/i*ptrsc 0 def %LAB* setcolor to cmy0* / 000n* setcmykcolor
/i*ptrsc 1 def %LAB* setcolor to olv* setrgbcolor / w* setgray
%/i*ptrsc 2 def %LAB* setcolor to cmy0* / nnn0* setcmykcolor
%/i*ptrsc 3 def %LAB* setcolor to olv* / www* setrgbcolor
%/i*ptrsc 4 def %LAB* setcolor to lab* setcolor
%/i*ptrsc 5 def %LAB* setcolor to LAB* setcolor
%/i*ptrsc 6 def %LAB* setcolor to 000n* setcmykcolor
%/i*ptrsc 7 def %LAB* setcolor to w* setgray
/ISIN*ioG 0 def %default input for Offset Reflective System (ORS18/FRS09)
/ISOU*ioG 0 def %default output dto.
%/ISIN*ioG 1 def %input for Television Luminous System (TLS00)
%/ISOU*ioG 1 def %output dto.
%/ISIN*ioG 2 def %input for Device Reflective measurement system (FRS09)
%/ISOU*ioG 2 def %output dto.
%/ISIN*ioG 3 def %input for Television Luminous Reflection System (TLS18)
%/ISOU*ioG 3 def %output dto.
%/ISIN*ioG 4 def %input for Natural Luminous System (NLS00)
%/ISOU*ioG 4 def %output dto.
%/ISIN*ioG 5 def %input for Natural Reflective System (NRS11)
%/ISOU*ioG 5 def %output dto.
%/ISIN*ioG 6 def %input for Standard Reflective System (CIE18)
%/ISOU*ioG 6 def %output dto.
%/ISIN*ioG 7 def %input for Standard Reflective System (TLS70)
%/ISOU*ioG 7 def %output dto.
/iLAB 0 def /colormg 0 def
%END LG88/OUTLIN10.PS Output Linearization (OL) olv*->olv'* 20110301
%BEG LG88/OUTLIN1X.PS 20110301
%EMPTY
%END LG88/OUTLIN1X.PS 20110301
/CFilenameS1g %START output of step S1g
(LG88L0N) def %Link file name for data
/CDateS1g (2009-09-01, Name) def %Date of calculation, Tester
/CDeviceS1g (unknown ) def %Device name
/CMeasS1g (LG88/LG88L0N) def %File name measured in step S1g
%change scount2g from 2 to 10 for 10 series
%change pcount2g from 8 to 240 for 240 pages of each series
/scount1g 1 def /scount2g 1 def /scountg 1 def
/pcount1g 1 def /pcount2g 1 def /pcountg 1 def
/xchart1g 0 def /xchart2g 1 def /xchartg 0 def
/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
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
/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
%ANFA CMYKDEF
%CMYKDEA0 (A0=Standard-Drucker-CMYKDEF) 15.3.97
/tzac [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533
0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000
1.000 0.750 0.500 0.250 0.000] def
/tzam [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533
0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000
1.000 0.750 0.500 0.250 0.000] def
/tzay [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533
0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000
1.000 0.750 0.500 0.250 0.000] def
/tzan [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533
0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000
1.000 0.750 0.500 0.250 0.000] def
/tza0 [0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 0.000 0.000 0.000] def
/tza1 [1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000
1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000
1.000 1.000 1.000 1.000 1.000] def
%ENDE CMYKD
/rec %x, y width heigth
{/heigth exch def /width exch def
moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto
closepath } bind def
/colrecfiLAB* %x y width heigth LAB*
{ setcolor rec fill} bind def
/colrecstLAB* %x y width heigth LAB*
{ setcolor rec stroke} bind def
/colrecficmyn* %x y width heigth cmy0* or 000n*
{ setcmykcolor rec fill} bind def
/colrecstcmyn* %x y width heigth cmy0* or 000n*
{ setcmykcolor rec stroke} bind def
/colrecfiw* %x y width heigth w*
{ setgray rec fill} bind def
/colrecstw* %x y width heigth w*
{ setgray rec stroke} bind def
/colrecfiolv* %x y width heigth olv*
{ setrgbcolor rec fill} bind def
/colrecstolv* %x y width heigth olv*
{ setrgbcolor rec stroke} bind def
/tzocmy0* {0.0 1.0 1.0 0.0} bind def %Reproduction colours
/tzlcmy0* {1.0 0.0 1.0 0.0} bind def %cmyn* setcmykcolor
/tzvcmy0* {1.0 1.0 0.0 0.0} bind def
/tzccmy0* {1.0 0.0 0.0 0.0} bind def
/tzmcmy0* {0.0 1.0 0.0 0.0} bind def
/tzycmy0* {0.0 0.0 1.0 0.0} bind def
/tzoolv* {1.0 0.0 0.0} bind def %Reproduction colours
/tzlolv* {0.0 1.0 0.0} bind def %olv* setrgbcolor
/tzvolv* {0.0 0.0 1.0} bind def
/tzcolv* {0.0 1.0 1.0} bind def
/tzmolv* {1.0 0.0 1.0} bind def
/tzyolv* {1.0 1.0 0.0} bind def
/tzoLAB* [53.34 72.46 50.66] def %Reproduction colours
/tzlLAB* [84.93 -79.83 74.80] def %LAB* setcolor
/tzvLAB* [32.20 24.88 -37.89] def
/tzcLAB* [88.10 -44.88 -13.36] def
/tzmLAB* [59.66 90.32 -19.65] def
/tzyLAB* [93.76 -20.24 85.93] def
/tzncmy0* {1.00 1.00 1.00 0.00} bind def %grey series
/tzdcmy0* {0.75 0.75 0.75 0.00} bind def %cmy0* setcmykcolor
/tzzcmy0* {0.50 0.50 0.50 0.00} bind def
/tzhcmy0* {0.25 0.25 0.25 0.00} bind def
/tzwcmy0* {0.00 0.00 0.00 0.00} bind def
/tzn000n* {0.00 0.00 0.00 1.00} bind def %grey series 000n*
/tzd000n* {0.00 0.00 0.00 0.75} bind def %000n* setcmykcolor
/tzz000n* {0.00 0.00 0.00 0.50} bind def
/tzh000n* {0.00 0.00 0.00 0.25} bind def
/tzw000n* {0.00 0.00 0.00 0.00} bind def
/tznw* {0.00} bind def %grey series
/tzdw* {0.25} bind def %w* setgray
/tzzw* {0.50} bind def
/tzhw* {0.75} bind def
/tzww* {1.00} bind def
/tznolv* {0.00 0.00 0.00} bind def %grey series
/tzdolv* {0.25 0.25 0.25} bind def %olv* setrgbcolor
/tzzolv* {0.50 0.50 0.50} bind def
/tzholv* {0.75 0.75 0.75} bind def
/tzwolv* {1.00 1.00 1.00} bind def
/tznLAB* [18.01 0.00 0.00] def %grey series
/tzdLAB* [37.36 0.00 0.00] def %LAB* setcolor
/tzzLAB* [56.71 0.00 0.00] def
/tzhLAB* [76.06 0.00 0.00] def
/tzwLAB* [95.41 0.00 0.00] def
/tfn {0 setgray} bind def
/tfw {1 setgray} bind def
/A4quer {598 0 translate 90 rotate} def
%0
%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
/tzank [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
/LAB*TE
[(ORS18) (TLS00) (FRS06) (TSL18) (NLS00) (NLS18) (SRS18) (TLS70)
(TLS00) (TLS06) (TLS11) (TLS18) (TLS27) (TLS38) (TLS52) (TLS70)
(OLS00) (OLS06) (OLS11) (OLS18) (OLS27) (OLS38) (OLS52) (OLS70)] def
%BEG 61 lines comment or new PS operators possible
%1
%2
%3
%%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)%max 32
(G) (H) (I) (J) (K) (L) (M) (N) (O) (P) (Q) (R) (S) (T) (U) (V)] def
/SY$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)%max 32
(G) (H) (I) (J) (K) (L) (M) (N) (O) (P) (Q) (R) (S) (T) (U) (V)] 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
/colormg1 0 def /colormg2 0 def
/xcolorg1 0 def /xcolorg2 0 def
/xchartg1 0 def /xchartg2 0 def
/lanindg lanindg1 def %no loops
/colormg colormg1 def
/xcolorg xcolorg1 def
/xchartg xchartg1 def
/pcount2x pcount2g xchart2g sub 2 add def
%scount1g 1 scount2g {/scountg exch def %s=serie, e. g. 1,1,10
%pcount1g 1 pcount2x {/pcountg exch def %p=page, e. g. 1,1,250
/xchart10 0 def /xchart20 10 def /xchart20m xchart20 def
%pcountg pcount1g eq {/xchart10 0 def /xchart20 0 def}
% {/xchart10 1 def /xchart20 1 def} ifelse
%pcountg pcount2x eq {/xchart10 2 def /xchart20 9 def} if
/xchartf where {pop /xchart10 xchartf def /xchart20 xchartf def
/xchart20m xchart20f def} if
/xchartg 0 def %xchart10 1 xchart20 {/xchartg exch def
/ausz 8 def
/colorm colormg def /xchart xchartg def /xchartg0 0 def
%needs Definition of xcharti, is only in OUTLIN1X.PS
%2 MM /Times-Roman FS
%274 MM 82 MM moveto -90 rotate (/LG88/ ) show (Form: ) show
%xchartg 1 add cvi 6 string cvs show (/) show
%xchart2g 1 add cvi 6 string cvs show (,) show 90 rotate
%274 MM 65 MM moveto -90 rotate (Serie: ) show
%scountg cvi 6 string cvs show (/) show
%scount2g cvi 6 string cvs show (,) show 90 rotate
%274 MM 55 MM moveto -90 rotate
%lanindg 0 eq {(Seite: )}{(Page: )} ifelse show
%pcountg xchartg xchart10 sub add cvi 6 string cvs show 90 rotate
%274 MM 45 MM moveto
%-90 rotate
%lanindg 0 eq {(Seitenz\344hlung )}{(Page: count: )} ifelse show
%scountg 1 sub pcount2g mul pcountg add
%pcountg pcount2x eq {xchartg add pcount1g pcount2x ne {2 sub } if} if
%cvi 6 string cvs show
%90 rotate
/GSS$ SS$ lanindg get def
/GSC$ SC$ colormg get def
/GSX$ SX$ xcolorg xcolorg 16 idiv 16 mul sub get def
/GSY$ SY$ xchartg xchartg 16 idiv 16 mul sub get def %special
/GEX$ EX$ 0 get def
/GEY$ EY$ 0 get def
%gsave
BeginEPSF
28 MM 197 MM translate
10 /Times-ISOL1 FS 53 MM 1 MM moveto 1 1 scale -77 -91 translate
%%BeginDocument: Bild 10
%line 329
%%EndDocument
EndEPSF grestore gsave
BeginEPSF
28 MM 152 MM translate
10 /Times-ISOL1 FS 53 MM 1 MM moveto 1 1 scale -77 -91 translate
%%BeginDocument: Bild 11
%line 339
%!PS-Adobe-3.0 EPSF-3.0 LG880-1,
%%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 (LG880-1,) 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 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 LG880-2,
%%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 (LG880-2,) 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
28 MM 108 MM translate
10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate
%%BeginDocument: Bild 13
%line 359
%!PS-Adobe-3.0 EPSF-3.0 LG880-3,
%%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 (LG880-3,) 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 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 LG880-4,
%%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 (LG880-4,) 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
28 MM 064 MM translate
10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate
%%BeginDocument: Bild 15
%line 379
%!PS-Adobe-3.0 EPSF-3.0 LG880-5,
%%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 (LG880-5,) 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 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 LG880-6,
%%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 (LG880-6,) 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
28 MM xchartg 0 eq {-1}{-13} ifelse MM add
20 MM xchartg 0 eq { 0}{-08} ifelse MM add 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 LG880-7N
%%BoundingBox: 70 82 842 622
%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://www.ps.bam.de or http://130.149.60.445/~farbmetrik)
/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
%*********************************************************************
/setcmyknewL { %Ersatz setcolornewL durch setgray
ausz 4 eq {pop pop pop /ccolor exch def
1 ccolor sub setgrayL} if %C-unbunt
ausz 5 eq {pop pop /mcolor exch def pop
1 mcolor sub setgrayL} if %M-unbunt
ausz 6 eq {pop /ycolor exch def pop pop
1 ycolor sub setgrayL} if %Y-unbunt
ausz 7 eq {/ncolor exch def pop pop pop
1 ncolor sub setgrayL} if %N-unbunt
ausz 8 eq {setcmykcolorL} if %F-bunt
} bind def
%END Procedure setcmyknewL
%*********************************************************************
%%EndProlog
gsave
/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
/showm {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 0 def /xcolor2 0 def} ifelse
/xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def}
{/xchart1 0 def /xchart2 0 def} ifelse
/lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage
/colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage
/xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage
/xchart xchart1 def %xchart1 1 xchart2 {/xchart 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
/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
/xchartg where {pop /xchartx xchartg def} {/xchartx 0 def} ifelse
72 90 translate
/xchartk xchartx def
/colorm 0 def
/colormf where {pop /colorm colormf def} if
%0 1 10 {/xchartk exch def %xchartk=0,10
xchartk 0 eq {/ausz 8 def /xchartt (A) def} if
xchartk 1 eq {/ausz 8 def /xchartt (F) def} if
xchartk 2 eq {/ausz 8 def /xchartt (F) def} if
xchartk 3 eq {/ausz 8 def /xchartt (F) def} if
xchartk 4 eq {/ausz 8 def /xchartt (F) def} if
xchartk 5 eq {/ausz 8 def /xchartt (F) def} if
xchartk 6 eq {/ausz 8 def /xchartt (F) def} if
xchartk 7 eq {/ausz 4 def /xchartt (C) def} if
xchartk 8 ge {/ausz 5 def /xchartt (M) def} if
xchartk 9 eq {/ausz 6 def /xchartt (Y) def} if
xchartk 10 ge {/ausz 7 def /xchartt (N) def} if
gsave
/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
12 -6 moveto
(LG880-7) show
(N, ) show xchartk 1 add cvishow (/11, ) 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
8 /TimesB-ISOL1 FS
colorm 0 eq {%colorm=0
xchartk 0 eq {( rgb + cmy0 (A_j + k26_n27)) show
(, 000n (k), w (l), nnn0 (m), www (n)) show} if
xchartk 1 eq {( rgb (A_j + k26_n27)) show
(, 000n (k), w (l), nnn0 (m), www (n)) show} if
xchartk 2 eq {( rgb (A_n)) show} if
xchartk 3 eq {( rgb (A_n)) show} if
xchartk 4 eq {( rgb[8bit] (A_n)) show} if
xchartk 5 eq {( cmy0 (A_n)) show} if
xchartk 6 eq {( cmy0 (A_n)) show} if
xchartk 7 eq {( c (A_n)) show} if
xchartk 8 eq {( m (A_n)) show} if
xchartk 9 eq {( y (A_n)) show} if
xchartk 10 eq {( n (A_n)) show} if
}%colorm=0
{%colorm=1
xchartk 0 eq {( rgb'* (A_n)) show} if
xchartk 1 eq {( rgb'* (A_j + k26_n27)) show
(, 000n'* (k), w'* (l), nnn0'* (m), www'* (n)) show} if
xchartk 2 eq {( rgb'* (A_n)) show} if
xchartk 3 eq {( rgb'* (A_n)) show} if
xchartk 4 eq {( rgb'*[8bit] (A_n)) show} if
xchartk 5 eq {( cmyn'* (A_n)) show} if
xchartk 6 eq {( cmyn'* (A_n)) show} if
xchartk 7 eq {( c'* (A_n)) show} if
xchartk 8 eq {( m'* (A_n)) show} if
xchartk 9 eq {( y'* (A_n)) show} if
xchartk 10 eq {( n'* (A_n)) show} if
}ifelse %colorm=1
(, colorm = ) show colorm cvishow
(, separation = ) show xchartt show
colorm 1 eq {(, cmyn5*) show} if
/xchartg where {pop /faktg xchartg 1 ge {1.10} {1.00} ifelse def}
{/faktg 1.10 def} ifelse
0.01 MM faktg mul dup scale
/xmin 650 3 div 2.2 mul def
/ymax 15800 def
xchartk 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 24500 0 rlineto 0 17000 rlineto
24500 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*eF def
/l'*Faa g*eF def
/v'*Faa b*eF def
} ifelse %colorm=0,1
xchartk 1 eq
xchartk 3 eq or
xchartk 4 eq or {%xchartk=1,3,4 or #1,3,4
1 1 1 setrgbcolor
xa ya xd dup rec fill} %xchartk=1,3,4,6
{%xchartk=0,2,5,6,7,8,9,10
xchartk 4 le {%xchartk<=4,>5 %only 0,2
o'*Faa l'*Faa v'*Faa setrgbcolor
xa ya xd dup rec fill
} %only 0,2
{ %only 5,6,7,8,9,10
colorm 0 eq {%colorm=0,1
1 o'*Faa sub
1 l'*Faa sub
1 v'*Faa sub 0 setcmyknewL
xa ya xd dup rec fill
}
{%input olv*=olv'*Faa
%output cmyn4*Fa
/o* o'*Faa def
/l* l'*Faa def
/v* v'*Faa def
trans_rgb3*_cmyn5*ioF
c4*Fa m4*Fa y4*Fa n4*Fa setcmyknewL
xa ya xd dup rec fill
} ifelse %colorm=0,1
} ifelse %xchartk<=4,>5
xchartk 0 eq {%xchartk=0
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
} if %xchartk=0
xchartk 6 eq {%xchartk=6
1 1 1 setrgbcolor
xa ya xd dup rec fill
} if %xchartk=6
} ifelse %xchartk=1,3,4 or =0,2,5,6,7,8,9,10
xchartk 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
xchartk 2 eq {%xchartk=2
o'*Faa l'*Faa v'*Faa setrgbcolor
xa ya xd dup rec fill
} if %xchartk=2
xchartk 3 eq {%xchartk=3
0 0 0 setrgbcolor
CBKK
xa ya 450 add moveto o'*Faa cvsshow2
xa ya 290 add moveto l'*Faa cvsshow2
xa ya 150 add moveto v'*Faa cvsshow2
xa ya 010 add moveto CBKKK (%) show n1079show (#) show
TKK2
} if %xchartk=3
xchartk 4 eq {%xchartk=4
0 0 0 setrgbcolor
CBKK
xa ya 450 add moveto o'*Faa 255 mul cvishow255
xa ya 290 add moveto l'*Faa 255 mul cvishow255
xa ya 150 add moveto v'*Faa 255 mul cvishow255
xa ya 010 add moveto CBKKK (%) show n1079show (#) show
TKK2
} if %xchartk=4
xchartk 6 eq {%xchartk=6
0 0 0 setrgbcolor
xa ya 450 add moveto colorm 0 eq {1 o'*Faa sub}{c4*Fa} ifelse cvsshow2
xa ya 290 add moveto colorm 0 eq {1 l'*Faa sub}{m4*Fa} ifelse cvsshow2
xa ya 150 add moveto colorm 0 eq {1 v'*Faa sub}{y4*Fa} ifelse cvsshow2
xa ya 010 add moveto colorm 0 eq {0 }{n4*Fa} ifelse cvsshow2
TKK2
} if %xchartk=6
} 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 2 def
/n1079 728 def
0 1 lmax {/l exch def %beg k=0,kmax
/xadd 3 xs 9 mul mul def
/yadd l 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 argb def} if
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*eF def
/l'*Faa g*eF def
/v'*Faa b*eF def
} ifelse %colorm=0,1
xchartk 1 eq
xchartk 3 eq or
xchartk 4 eq or {%xchartk=1,3,4 or #1,3,4
1 1 1 setrgbcolor
xa ya xd dup rec fill} %xchartk=1,3,4,6
{%xchartk=0,2,5,6,7,8,9,10
xchartk 4 le {%xchartk<=4,>5 %only 0,2
o'*Faa l'*Faa v'*Faa setrgbcolor
xa ya xd dup rec fill
} %only 0,2
{ %only 5,6,7,8,9,10
colorm 0 eq {%colorm=0,1
1 o'*Faa sub
1 l'*Faa sub
1 v'*Faa sub 0 setcmyknewL
xa ya xd dup rec fill
}
{%input olv*=olv'*Faa
%output cmyn4*Fa
/o* o'*Faa def
/l* l'*Faa def
/v* v'*Faa def
trans_rgb3*_cmyn5*ioF
c4*Fa m4*Fa y4*Fa n4*Fa setcmyknewL
xa ya xd dup rec fill
} ifelse %colorm=0,1
} ifelse %xchartk<=4,>5
xchartk 0 eq {%xchartk=0
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
} if %xchartk=0
xchartk 6 eq {%xchartk=6
1 1 1 setrgbcolor
xa ya xd dup rec fill
} if %xchartk=6
} ifelse %xchartk=1,3,4 or =0,2,5,6,7,8,9,10
xchartk 1 eq {%xchartk=1
0 0 0 setrgbcolor
/i1 i 1 add l 9 mul add def
/j1 j 27 add def
/j1$ tx1 j1 get def
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 %xchartk=1
xchartk 2 eq {%xchartk=2
o'*Faa l'*Faa v'*Faa setrgbcolor
xa ya xd dup rec fill
} if %xchartk=2
xchartk 3 eq {%xchartk=3
0 0 0 setrgbcolor
CBKK
xa ya 450 add moveto o'*Faa cvsshow2
xa ya 290 add moveto l'*Faa cvsshow2
xa ya 150 add moveto v'*Faa cvsshow2
xa ya 010 add moveto CBKKK (%) show n1079show (#) show
TKK2
} if %xchartk=3
xchartk 4 eq {%xchartk=4
0 0 0 setrgbcolor
CBKK
xa ya 450 add moveto o'*Faa 255 mul cvishow255
xa ya 290 add moveto l'*Faa 255 mul cvishow255
xa ya 150 add moveto v'*Faa 255 mul cvishow255
xa ya 010 add moveto CBKKK (%) show n1079show (#) show
TKK2
} if %xchartk=4
xchartk 6 eq {%xchartk=6
0 0 0 setrgbcolor
CBKK
xa ya 450 add moveto colorm 0 eq {1 o'*Faa sub}{c4*Fa} ifelse cvsshow2
xa ya 290 add moveto colorm 0 eq {1 l'*Faa sub}{m4*Fa} ifelse cvsshow2
xa ya 150 add moveto colorm 0 eq {1 v'*Faa sub}{y4*Fa} ifelse cvsshow2
xa ya 010 add moveto colorm 0 eq {0 }{n4*Fa} ifelse cvsshow2
TKK2
} if %xchartk=6
} 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
0 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*eF def
/l'*Faa g*eF def
/v'*Faa b*eF def
} ifelse %colorm=0,1
xchartk 1 eq
xchartk 3 eq or
xchartk 4 eq or {%xchartk=1,3,4 or #1,3,4
1 1 1 setrgbcolor
xa ya xd dup rec fill} %xchartk=1,3,4,6
{%xchartk=0,2,5,6,7,8,9,10
xchartk 4 le {%xchartk<=4,>5 %only 0,2
o'*Faa l'*Faa v'*Faa setrgbcolor
xa ya xd dup rec fill
} %only 0,2
{ %only 5,6,7,8,9,10
colorm 0 eq {%colorm=0,1
1 o'*Faa sub
1 l'*Faa sub
1 v'*Faa sub 0 setcmyknewL
xa ya xd dup rec fill
}
{%input olv*=olv'*Faa
%output cmyn4*Fa
/o* o'*Faa def
/l* l'*Faa def
/v* v'*Faa def
trans_rgb3*_cmyn5*ioF
c4*Fa m4*Fa y4*Fa n4*Fa setcmyknewL
xa ya xd dup rec fill
} ifelse %colorm=0,1
} ifelse %xchartk<=4,>5
xchartk 0 eq {%xchartk=0
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
} if %xchartk=0
xchartk 6 eq {%xchartk=6
1 1 1 setrgbcolor
xa ya xd dup rec fill
} if %xchartk=6
} ifelse %xchartk=1,3,4 or =0,2,5,6,7,8,9,10
xchartk 1 eq {%xchartk =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 %xchartk =1
xchartk 2 eq {%xchartk=2
o'*Faa l'*Faa v'*Faa setrgbcolor
xa ya xd dup rec fill
} if %xchartk=2
xchartk 3 eq {%xchartk=3
0 0 0 setrgbcolor
CBKK
xa ya 450 add moveto o'*Faa cvsshow2
xa ya 290 add moveto l'*Faa cvsshow2
xa ya 150 add moveto v'*Faa cvsshow2
xa ya 010 add moveto CBKKK (%) show n1079show (#) show
TKK2
} if %xchartk=3
xchartk 4 eq {%xchartk=4
0 0 0 setrgbcolor
CBKK
xa ya 450 add moveto o'*Faa 255 mul cvishow255
xa ya 290 add moveto l'*Faa 255 mul cvishow255
xa ya 150 add moveto v'*Faa 255 mul cvishow255
xa ya 010 add moveto CBKKK (%) show n1079show (#) show
TKK2
} if %xchartk=4
xchartk 6 eq {%xchartk=6
0 0 0 setrgbcolor
CBKK
xa ya 450 add moveto colorm 0 eq {1 o'*Faa sub}{c4*Fa} ifelse cvsshow2
xa ya 290 add moveto colorm 0 eq {1 l'*Faa sub}{m4*Fa} ifelse cvsshow2
xa ya 150 add moveto colorm 0 eq {1 v'*Faa sub}{y4*Fa} ifelse cvsshow2
xa ya 010 add moveto colorm 0 eq {0 }{n4*Fa} ifelse cvsshow2
TKK2
} if %xchartk=6
} 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*eF def
/l'*Faa g*eF def
/v'*Faa b*eF def
} ifelse %colorm=0,1
xchartk 1 eq
xchartk 3 eq or
xchartk 4 eq or {%xchartk=1,3,4 or #1,3,4
1 1 1 setrgbcolor
xa ya xd dup rec fill} %xchartk=1,3,4,6
{%xchartk=0,2,5,6,7,8,9,10
xchartk 4 le {%xchartk<=4,>5 %only 0,2
o'*Faa l'*Faa v'*Faa setrgbcolor
xa ya xd dup rec fill
} %only 0,2
{ %only 5,6,7,8,9,10
colorm 0 eq {%colorm=0,1
1 o'*Faa sub
1 l'*Faa sub
1 v'*Faa sub 0 setcmyknewL
xa ya xd dup rec fill
}
{%input olv*=olv'*Faa
%output cmyn4*Fa
/o* o'*Faa def
/l* l'*Faa def
/v* v'*Faa def
trans_rgb3*_cmyn5*ioF
c4*Fa m4*Fa y4*Fa n4*Fa setcmyknewL
xa ya xd dup rec fill
} ifelse %colorm=0,1
} ifelse %xchartk<=4,>5
xchartk 0 eq {%xchartk=0
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
} if %xchartk=0
xchartk 6 eq {%xchartk=6
1 1 1 setrgbcolor
xa ya xd dup rec fill
} if %xchartk=6
} ifelse %xchartk=1,3,4 or =0,2,5,6,7,8,9,10
xchartk 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
xchartk 2 eq {%xchartk=2
o'*Faa l'*Faa v'*Faa setrgbcolor
xa ya xd dup rec fill
} if %xchartk=2
xchartk 3 eq {%xchartk=3
0 0 0 setrgbcolor
CBKK
xa ya 450 add moveto o'*Faa cvsshow2
xa ya 290 add moveto l'*Faa cvsshow2
xa ya 150 add moveto v'*Faa cvsshow2
xa ya 010 add moveto CBKKK (%) show n1079show (#) show
TKK2
} if %xchartk=3
xchartk 4 eq {%xchartk=4
0 0 0 setrgbcolor
CBKK
xa ya 450 add moveto o'*Faa 255 mul cvishow255
xa ya 290 add moveto l'*Faa 255 mul cvishow255
xa ya 150 add moveto v'*Faa 255 mul cvishow255
xa ya 010 add moveto CBKKK (%) show n1079show (#) show
TKK2
} if %xchartk=4
xchartk 6 eq {%xchartk=6
0 0 0 setrgbcolor
CBKK
xa ya 450 add moveto colorm 0 eq {1 o'*Faa sub}{c4*Fa} ifelse cvsshow2
xa ya 290 add moveto colorm 0 eq {1 l'*Faa sub}{m4*Fa} ifelse cvsshow2
xa ya 150 add moveto colorm 0 eq {1 v'*Faa sub}{y4*Fa} ifelse cvsshow2
xa ya 010 add moveto colorm 0 eq {0 }{n4*Fa} ifelse cvsshow2
TKK2
} if %xchartk=6
} for %i=0,7
xchartk 1 eq
xchartk 3 eq or
xchartk 4 eq or
xchartk 6 eq or {%xchartk=1,3,4,6
40 setlinewidth
xchartk 4 le {1 0 0 setrgbcolor}
{0 1 1 0 setcmykcolor} ifelse
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 %xchartk=1,3,4,6
showpage
grestore
%} for %xchartk=0,10
%%Trailer
%%EndDocument
EndEPSF grestore gsave
BeginEPSF 86 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 LG880-8,
%%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 (LG880-8,) 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
161 MM 197 MM translate
10 /Times-ISOL1 FS 1 1 scale -77 -91 translate
%%BeginDocument: Bild 12
%line 419
%%EndDocument
EndEPSF grestore gsave
BeginEPSF
161 MM 152 MM translate
10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate
%%BeginDocument: Bild 21
%line 429
%!PS-Adobe-3.0 EPSF-3.0 LG881-1,
%%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 (LG881-1,) 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 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 LG881-2,
%%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 (LG881-2,) 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
161 MM 108 MM translate
10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate
%%BeginDocument: Bild 23
%line 449
%!PS-Adobe-3.0 EPSF-3.0 LG881-3,
%%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 (LG881-3,) 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 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 LG881-4,
%%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 (LG881-4,) 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
161 MM 064 MM translate
10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate
%%BeginDocument: Bild 25
%line 469
%!PS-Adobe-3.0 EPSF-3.0 LG881-5,
%%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 (LG881-5,) 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 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 LG881-6,
%%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 (LG881-6,) 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
161 MM 020 MM translate
10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate
%%BeginDocument: Bild 27
%line 489
%!PS-Adobe-3.0 EPSF-3.0 LG881-7,
%%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 (LG881-7,) 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 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 LG881-8,
%%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 (LG881-8,) 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 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 LG88 20110301
%%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
/showm {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 0 def /xcolor2 0 def} ifelse
/xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def}
{/xchart1 0 def /xchart2 0 def} ifelse
/lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage
/colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage
/xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage
/xchart xchart1 def %xchart1 1 xchart2 {/xchart 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
gsave
/xchartg where {pop /xchart xchartg def} {/xchart 0 def} ifelse
/scountg where {pop /scount scountg def} {/scount 1 def} ifelse
xchart 0 eq {%beg if xchart=0
0 setgray
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
/xlu 017 MM def /ylu 017 MM def
/xro 279 MM def /yro 193 MM def
/xlo 017 MM def /ylo 193 MM def
/xru 279 MM def /yru 017 MM def
xlu 8 MM sub ylu moveto 16 MM 0 rlineto stroke
xlu ylu 8 MM sub moveto 0 16 MM rlineto stroke
xro 8 MM add yro moveto -16 MM 0 rlineto stroke
xro yro 8 MM add moveto 0 -16 MM rlineto stroke
xru 8 MM sub yru moveto 16 MM 0 rlineto stroke
xru yru 8 MM sub moveto 0 16 MM rlineto stroke
xlo 8 MM add ylo moveto -16 MM 0 rlineto stroke
xlo ylo 8 MM add moveto 0 -16 MM rlineto stroke
1 2 7 {/i exch def %Zentrierkreise
xlu ylu i MM 0 360 arc stroke
xro yro i MM 0 360 arc stroke
xru yru i MM 0 360 arc stroke
xlo ylo i MM 0 360 arc stroke
} for %i
12 4 16 {/i exch def /i0 i def %i=0,16
%0 4 16 {/i exch def /i0 i def %i=0,16
/i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def
i 16 eq {0.30 MM setlinewidth} {0.15 MM setlinewidth} ifelse
0 setgray
x i0 get MM y i0 get MM moveto x i1 get MM y i1 get MM lineto
x i2 get MM y i2 get MM lineto x i3 get MM y i3 get MM lineto
x i0 get MM y i0 get MM lineto stroke
i 16 eq {6 /Times-ISOL1 FS
/x00 67 def /xdif 32 def /y0o 202.3 def /y0u 6.3 def
/x0l 6.1 def /x0r 288 def /y00 22 def /ydif 32 def
x00 xdif 0 mul add MM y0o MM moveto (V) show
x00 xdif 0 mul add MM y0u MM moveto (C) show
x00 xdif 1 mul add MM y0o MM moveto (L) show
x00 xdif 1 mul add MM y0u MM moveto (M) show
x00 xdif 2 mul add MM y0o MM moveto (O) show
x00 xdif 2 mul add MM y0u MM moveto (Y) show
x00 xdif 3 mul add MM y0o MM moveto (Y) show
x00 xdif 3 mul add MM y0u MM moveto (O) show
x00 xdif 4 mul add MM y0o MM moveto (M) show
x00 xdif 4 mul add MM y0u MM moveto (L) show
x00 xdif 5 mul add MM y0o MM moveto (C) show
x00 xdif 5 mul add MM y0u MM moveto (V) show
x0l MM y00 ydif 0 mul add MM moveto (V) show
x0r MM y00 ydif 0 mul add MM moveto (C) show
x0l MM y00 ydif 1 mul add MM moveto (L) show
x0r MM y00 ydif 1 mul add MM moveto (M) show
x0l MM y00 ydif 2 mul add MM moveto (O) show
x0r MM y00 ydif 2 mul add MM moveto (Y) show
x0l MM y00 ydif 3 mul add MM moveto (Y) show
x0r MM y00 ydif 3 mul add MM moveto (O) show
x0l MM y00 ydif 4 mul add MM moveto (M) show
x0r MM y00 ydif 4 mul add MM moveto (L) show
x0l MM y00 ydif 5 mul add MM moveto (C) show
x0r MM y00 ydif 5 mul add MM moveto (V) show
} if
} for %i=0,16
0 1 10 {/j0 exch def /j1 j0 1 add def %j0
j0 0 eq {tzccmy0* setcmykcolor} if
j0 1 eq {0 setgray} if
j0 2 eq {tzmcmy0* setcmykcolor} if
j0 3 eq {0 setgray} if
j0 4 eq {tzycmy0* setcmykcolor} if
j0 5 eq {0 setgray} if
j0 6 eq {tzocmy0* setcmykcolor} if
j0 7 eq {0 setgray} if
j0 8 eq {tzlcmy0* setcmykcolor} if
j0 9 eq {0 setgray} if
j0 10 eq {tzvcmy0* setcmykcolor} if
12 4 16 {/i exch def /i0 i def %i=0,16
%0 4 16 {/i exch def /i0 i def %i=0,16
/i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def
i 16 eq {0.30 MM setlinewidth} {0.15 MM setlinewidth} ifelse
x i0 get d i0 get add 16 j0 mul add MM y i0 get MM moveto
x i0 get d i0 get add 16 j1 mul add MM y i0 get MM lineto stroke
x i1 get MM y i1 get d i1 get add 16 j0 mul add MM moveto
x i1 get MM y i1 get d i1 get add 16 j1 mul add MM lineto stroke
x i2 get d i2 get add 16 j0 mul sub MM y i2 get MM moveto
x i2 get d i2 get add 16 j1 mul sub MM y i2 get MM lineto stroke
x i3 get MM y i3 get d i3 get add 16 j0 mul sub MM moveto
x i3 get MM y i3 get d i3 get add 16 j1 mul sub MM lineto stroke
} for %i=0,16
} for %j0
0.15 MM setlinewidth
/s 7 MM def /s1 8 MM def /s5 36 MM def
16 1 20 {/j exch def /j0 j 16 sub def %j=16,20
/ix0 xlu 8 MM add j0 7 MM mul add def /iy0 ylu 8 MM sub def
0 1 3 {/ij exch def %ij=0,3
ij 0 eq {/ix0 xlu 8 MM add j0 7 MM mul add def /iy0 ylu 8 MM sub def} if
ij 1 eq {/ix0 xru 43 MM sub j0 7 MM mul add def /iy0 yru 8 MM sub def} if
ij 2 eq {/ix0 xlo 8 MM add j0 7 MM mul add def /iy0 ylo 1 MM add def} if
ij 3 eq {/ix0 xro 43 MM sub j0 7 MM mul add def /iy0 yro 1 MM add def} if
i*ptrsc 0 eq i*ptrsc 2 eq or {%i*ptrsc=0,2 cmy0* setcmykcolor
j 16 eq {tzan j get dup dup 0 setcmykcolor
ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if
tzan j get dup dup 0 setcmykcolor
ix0 iy0 s s rec fill
} if %i*ptrsc=0,2
i*ptrsc 1 eq i*ptrsc 3 eq or {%i*ptrsc=1,3 www* setrgbcolor
j 16 eq {1 tzan j get 1 sub dup dup setrgbcolor %N
ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if
1 tzan j get sub dup dup setrgbcolor %N
ix0 iy0 s s rec fill
} if %i*ptrsc=1,3
i*ptrsc 4 eq i*ptrsc 5 eq or {%i*ptrsc=4,5
[/CIEBasedABC << %Farbraum und Grenzen fuer D65
/RangeABC [0 100 -128 127 -128 127]
/DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind]
/MatrixABC [1 1 1 1 0 0 0 0 -1]
/DecodeLMN
[{dup 6 29 div ge {dup dup mul mul}
{4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind
{dup 6 29 div ge {dup dup mul mul}
{4 29 div sub 108 841 div mul} ifelse} bind
{dup 6 29 div ge {dup dup mul mul}
{4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind]
/WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65
>>] setcolorspace
j 16 eq {tznLAB* 0 get tzwLAB* 0 get tznLAB* 0 get sub 0.25 j0 mul mul add
tznLAB* 1 get tzwLAB* 1 get tznLAB* 1 get sub 0.25 j0 mul mul add
tznLAB* 2 get tzwLAB* 2 get tznLAB* 2 get sub 0.25 j0 mul mul add
setcolor %N
ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if
tznLAB* 0 get tzwLAB* 0 get tznLAB* 0 get sub 0.25 j0 mul mul add
tznLAB* 1 get tzwLAB* 1 get tznLAB* 1 get sub 0.25 j0 mul mul add
tznLAB* 2 get tzwLAB* 2 get tznLAB* 2 get sub 0.25 j0 mul mul add
setcolor %N
ix0 iy0 s s rec fill
} if %i*ptrsc=4,5
i*ptrsc 6 eq {%i*ptrsc=6 000n* setcmykcolor
j 16 eq {0 0 0 tzan j get setcmykcolor
ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if
0 0 0 tzan j get setcmykcolor
ix0 iy0 s s rec fill
} if %i*ptrsc=6
i*ptrsc 7 eq {%i*ptrsc=7 w* setgray
j 16 eq {1 tzan j get sub setgray
ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if
1 tzan j get sub setgray
ix0 iy0 s s rec fill
} if %i*ptrsc=7
} for %ij=0,3
} for %j=16,20
0 setgray
018 MM 008.2 MM moveto 6 /Times-Roman FS (-8) show
018 MM 006.2 MM moveto 6 /Times-Roman FS (-6) show
276 MM 008.2 MM moveto 6 /Times-Roman FS (-8) show
276 MM 006.2 MM moveto 6 /Times-Roman FS (-6) show
018 MM 202.2 MM moveto 6 /Times-Roman FS (-8) show
018 MM 204.2 MM moveto 6 /Times-Roman FS (-6) show
276 MM 202.2 MM moveto 6 /Times-Roman FS (-8) show
276 MM 204.2 MM moveto 6 /Times-Roman FS (-6) show
0 setgray
12 /Times-ISOL1 FS
61 MM 09 MM moveto
(40x27=1080 Farben zur Messung:) showde
(40x27=1080 colours for Measurement:) showen
12 /TimesI-ISOL1 FS
xchart 2 le {( rgb/000n/w/nnn0/www) show}
{( rgb setrgbcolor) show} ifelse
12 /Times-ISOL1 FS
61 MM 13 MM moveto
(TUB\255Pr\374fvorlage LG88; Farbmetrik\255System G) showde
(TUB\255test chart LG88; Colorimetric system G) showen
(, Page ) showen
(, Seite ) showde
xchart 1 add cvishow (/) show xchart20m 1 add cvishow
165 MM 13 MM moveto
( input: ) showen
(Eingabe: ) showde
12 /TimesI-ISOL1 FS
(rgb/000n/w/nnn0/www) show
12 /Times-ISOL1 FS
165 MM 9 MM moveto
( output: ) showen
(Ausgabe: ) showde
LSC$ (N) eq {%LSC$=N
12 /Times-ISOL1 FS
xchart 1 le {(no change compared to input) showen
(keine Eingabe\344nderung) showde}
{12 /TimesI-ISOL1 FS (->rgb setrgbcolor) show
12 /Times-ISOL1 FS} ifelse
} if %LSC$=N
%1 setgray %start white and unvisible
LSC$ (S) eq {
(Startup (S) data dependend) show
} if
LSC$ (F) eq {
12 /Times-Italic FS
i*ptrsc 0 eq {(cmy0* / 000n* setcmykcolor) show} if
i*ptrsc 1 eq {(olv* setrgbcolor / w* setgray) show} if
i*ptrsc 2 eq {(cmy0* / nnn0* setcmykcolor) show} if
i*ptrsc 3 eq {(olv* / www* setrgbcolor) show} if
i*ptrsc 4 eq {(lab* setcolor) show} if
i*ptrsc 5 eq {(LAB* setcolor) show} if
i*ptrsc 6 eq {(000n* setcmykcolor) show} if
i*ptrsc 7 eq {(w* setgray) show} if
} if
%0 setgray %end white and unvisible
12 /Times-ISOL1 FS
62 MM 198.5 MM moveto
(http://130.149.60.45/~farbmetrik/LG88/LG88L) show
(0) show
LSC$ show LEX$ show
%1 setgray %start white and unvisible
(; ) show
LSC$ (N) eq {
(Start\255Ausgabe) showde
(start output) showen
(start output) showes
(start output) showfr
(start output) showit
(start output) showjp
(start output) showm
} if
LSC$ (C) eq {
(Start\255Ausgabe) showde
(start output) showen
(start output) showes
(start output) showfr
(start output) showit
(start output) showjp
(start output) showm
} if
LSC$ (F) eq {
(Linearisierte\255Ausgabe) showde
(linearized output) showen
(linearized output) showes
(linearized output) showfr
(linearized output) showit
(linearized output) showjp
(linearized output) showm
} if
62 MM 194 MM moveto
LSC$ (N) eq LSC$ (C) eq or {
(N: Keine Ausgabe\255Linearisierung (OL) in Datei (F), Startup (S), Ger\344t (D)) showde
(N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showen
(N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showes
(N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showfr
(N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showit
(N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showjp
(N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showm
}
{LSC$ show (: ) show
(Ausgabe\255Linearisierung (OL\255Daten) ) showde
(Output Linearization (OL) data ) showen
(Output Linearization (OL) data ) showes
(Output Linearization (OL) data ) showfr
(Output Linearization (OL) data ) showit
(Output Linearization (OL) data ) showjp
(Output Linearization (OL) data ) showm
(LG88/LG88L) show
LSS$ show LSX$ show (0) show
LSC$ show LEY$ show
} ifelse
LSC$ (F) eq {
( in der Datei (F)) showde
( in File (F)) showen
( in File (F)) showes
( in File (F)) showfr
( in File (F)) showit
( in File (F)) showjp
( in File (F)) showm
} if
LSC$ (S) eq {
( im Distiller Startup (S) Directory) showde
( in Distiller Startup (S) Directory) showen
( in Distiller Startup (S) Directory) showes
( in Distiller Startup (S) Directory) showfr
( in Distiller Startup (S) Directory) showit
( in Distiller Startup (S) Directory) showjp
( in Distiller Startup (S) Directory) showm
} if
LSC$ (D) eq {
( in PostScript Device (D)) showde
( in PostScript Device (D)) showen
( in PostScript Device (D)) showes
( in PostScript Device (D)) showfr
( in PostScript Device (D)) showit
( in PostScript Device (D)) showjp
( in PostScript Device (D)) showm
} if
LSC$ (T) eq {
( von Distiller Startup (S) Directory) showde
( of Distiller Startup (S) Directory) showen
( of Distiller Startup (S) Directory) showes
( of Distiller Startup (S) Directory) showfr
( of Distiller Startup (S) Directory) showit
( of Distiller Startup (S) Directory) showjp
( of Distiller Startup (S) Directory) showm
} if
LSC$ (E) eq {
( von PostScript Device (D)) showde
( of PostScript Device (D)) showen
( of PostScript Device (D)) showes
( of PostScript Device (D)) showfr
( of PostScript Device (D)) showit
( of PostScript Device (D)) showjp
( of PostScript Device (D)) showm
} if
%0 setgray %end white and unvisible
16 MM 185 MM moveto
-90 rotate
(Siehe Original/Kopie: ) showde
(See original or copy: ) showen
(http://web.me.com/klaus.richter/LG88/LG88L) show
(0) show
LSC$ show LEX$ show
90 rotate
12 MM 185 MM moveto
-90 rotate
(Technische Information: ) showde
(Technical information: ) showen
(http://www.ps.bam.de) show
( or ) showen ( oder ) showde
(http://130.149.60.45/~farbmetrik) show
90 rotate
281 MM 185 MM moveto
-90 rotate
(TUB\255Registrierung: 20110301\255LG88/LG88L) showde
(TUB registration: 20110301\255LG88/LG88L) showen
(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
90 rotate
277 MM 185 MM moveto
-90 rotate
/cvishow {cvi 6 string cvs show} def
/cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def
( Anwendung f\374r Messung von Drucker- oder Monitorsystemen) showde
( application for measurement of printer or monitor systems) showen
( application for measurement of printer or monitor systems) showes
( application for measurement of printer or monitor systems) showfr
( application for measurement of printer or monitor systems) showit
( application for measurement of printer or monitor systems) showjp
( application for measurement of printer or monitor systems) showm
IMES 1 eq LSC$ (N) ne and { %IMES=1
(, Yr=) show Yre cvsshow1 (, XYZ) show
} if %IMES=1
90 rotate
/i0 8 def
/i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def
0.30 MM setlinewidth
0 setgray
x i0 get MM y i0 get MM moveto x i1 get MM y i1 get MM lineto
x i2 get MM y i2 get MM lineto x i3 get MM y i3 get MM lineto
x i0 get MM y i0 get MM lineto stroke
} if %end if xchart=0
/xlu1 013 MM def /ylu1 010 MM def
/xro1 283 MM def /yro1 200 MM def
/xlo1 013 MM def /ylo1 200 MM def
/xru1 283 MM def /yru1 010 MM def
xlu1 4 MM sub ylu1 moveto 8 MM 0 rlineto stroke
xlu1 ylu1 4 MM sub moveto 0 8 MM rlineto stroke
xro1 4 MM add yro1 moveto -8 MM 0 rlineto stroke
xro1 yro1 4 MM add moveto 0 -8 MM rlineto stroke
xru1 4 MM sub yru1 moveto 8 MM 0 rlineto stroke
xru1 yru1 4 MM sub moveto 0 8 MM rlineto stroke
xlo1 4 MM add ylo1 moveto -8 MM 0 rlineto stroke
xlo1 ylo1 4 MM add moveto 0 -8 MM rlineto stroke
%} for %output with xchart end
%} for %output with colorm end
%} for %output with xcolor end
%} for %output with lanind end
%%Trailer
%%EndDocument
EndEPSF grestore gsave
showpage
grestore
%} for %end for xchartg=xchartg1,xchartg2
%} for %end for pcountg=pcountg1,pcount2g
%} for %end for scountg=scountg1,scount2g
%%Trailer
%%EndDocument
EndEPSFG grestore gsave
grestore %new
BeginEPSFG
%line 158
%!PS-Adobe-3.0 EPSF-3.0 Frame arround with Internet text DG02 20080301
%%BoundingBox: 0 0 598 845
%%EndProlog
gsave
/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
/showm {6 lanindf eq {show} {pop} ifelse} bind def
/lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def}
{/lanind1 0 def /lanind2 0 def} ifelse
/colormf where {pop /colorm1 colormf def /colorm2 colormf def}
{/colorm1 0 def /colorm2 0 def} ifelse
/xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def}
{/xcolor1 0 def /xcolor2 0 def} ifelse
/xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def}
{/xchart1 0 def /xchart2 0 def} ifelse
/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
gsave
0 setgray
1.0 MM dup scale
0.0 MM 0.0 MM translate
0.15 MM setlinewidth
/xframe1 003 def
/xframe2 292 def
/yframe1 002 def
/yframe2 206 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
04 /Times-ISOL1 FS
1.5 MM 1.5 MM moveto
(~/LG88/LG88L0NA.PDF /.PS) showde
(~/LE88/LE88L0NA.PDF /.PS) showen
(, Page ) showen
(, Seite ) showde
xchartf 1 add colormf xchart20f 1 add mul add cvishow (/) show
xchart20f 1 add 2 mul cvishow (, ) show
colormf 0 eq {(No FF_CM: rgb->olv*) showen
(kein FF_CM: rgb->olv*) showde}
{(rgb->rgb*; 1MR-0001, DES-0000, FAD-0001) showen
(rgb->rgb*; 1MR-0001, DES-0000, FAD-0001) showde} ifelse
68 MM 1.5 MM moveto
(http://130.149.60.45/~farbmetrik/OE23/OE23P2NA.PDF /.PS) showen
(http://130.149.60.45/~farbmetrik/OG23/OG23P2NA.PDF /.PS) showde
%(0) show
%(N) show LEX$ show
} if %xtextf=1
%%Trailer
%%EndDocument
EndEPSFG grestore gsave
showpage
grestore
} for %end for xchartf=xchart10f,xchart20f
grestore
} for %end for colormf=colorm10f,colorm20f
%%Trailer