%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/get8/Y10M00np.ps6 20230615
%%BoundingBox: 14 08 828 584
/pdfmark where {pop} {userdict /pdfmark /cleartomark load put} ifelse
/languagelevel where {pop languagelevel} {1} ifelse
2 lt { userdict (<<) cvn ([) cvn load put
userdict (>>) cvn (]) cvn load put} if
[/Title (PostScript pictures: http://farbe.li.tu-berlin.de/get8/get8.HTM)
/Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1)
/Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.45/~farbmetrik)
/Keywords (image reproduction, colour devices)
/Creator (klaus.richter@mac.com)
/CreationDate (D:2023061512000)
/ModDate (D:2023061512000)
/DOCINFO pdfmark
[ /View [ /Fit ]
/DOCVIEW pdfmark
%Y10M00np.ps6
%line 20******************************************************
%BEG get8/OUTLIN10.PS Emty 20210418
%END get8/OUTLIN10.PS Emty 20210418
%BEG get8/OUTLIN1X.PS 20210418
%EMPTY
%END get8/OUTLIN1X.PS 20210418
%BEG get8/OUTLIN1Y2.PS Emty 20210418
%END get8/OUTLIN1Y2.PS Emty 20210418
/BeginEPSF {% def % Prepare for EPS file
/b4_Inc_state save def % Save state for cleanup
/dict_count countdictstack def
/op_count count 1 sub def % Count objects on op stack
userdict begin % Make userdict current dict
/showpage {} def
0 setgray 0 setlinecap
1 setlinewidth 0 setlinejoin
10 setmiterlimit [] 0 setdash newpath
/languagelevel where % If level not equal to 1 then
{pop languagelevel where % If level not equal to 1 then
1 ne
{false setstrokeadjust false setoverprint
} if
} if
} bind def
/EndEPSF {% def % End for EPS file
count op_count sub {pop} repeat
countdictstack dict_count sub {end} repeat % Clean up dict stack
b4_Inc_state restore
} bind def
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def /str {8 string } bind def
/languagelevel where {pop languagelevel} {1} ifelse
/PSL12 exch def
/dictende {counttomark 2 idiv dup dict begin {def}
repeat pop currentdict end} bind def
% !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I
/Times-Roman findfont dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/Times-ISOL1 exch definefont pop
/Times-Italic findfont dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/TimesI-ISOL1 exch definefont pop
/Times-Bold findfont dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/TimesB-ISOL1 exch definefont pop
/Times-BoldItalic findfont dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/TimesBI-ISOL1 exch definefont pop
/TK {250 /Times-ISOL1 FS} bind def
/TM {300 /Times-ISOL1 FS} bind def
/TG {350 /Times-ISOL1 FS} bind def
/TIK {250 /TimesI-ISOL1 FS} bind def
/TIM {300 /TimesI-ISOL1 FS} bind def
/TIG {350 /TimesI-ISOL1 FS} bind def
/TBK {250 /TimesB-ISOL1 FS} bind def
/TBM {300 /TimesB-ISOL1 FS} bind def
/TBG {350 /TimesB-ISOL1 FS} bind def
/TBIK {250 /TimesBI-ISOL1 FS} bind def
/TBIM {300 /TimesBI-ISOL1 FS} bind def
/TBIG {350 /TimesBI-ISOL1 FS} bind def
%ANFA CMYKDEF
%CMYKDEA0 (A0=Standard-Drucker-CMYKDEF) 15.3.97
/tzac [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533
0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000
1.000 0.750 0.500 0.250 0.000] def
/tzam [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533
0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000
1.000 0.750 0.500 0.250 0.000] def
/tzay [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533
0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000
1.000 0.750 0.500 0.250 0.000] def
/tzan [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533
0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000
1.000 0.750 0.500 0.250 0.000] def
/tza0 [0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 0.000 0.000 0.000] def
/tza1 [1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000
1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000
1.000 1.000 1.000 1.000 1.000] def
%ENDE CMYKD
/rec %x, y width heigth
{/heigth exch def /width exch def
moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto
closepath } bind def
/colrecfiLAB* %x y width heigth LAB*
{ setcolor rec fill} bind def
/colrecstLAB* %x y width heigth LAB*
{ setcolor rec stroke} bind def
/colrecficmyn* %x y width heigth cmy0* or 000n*
{ setcmykcolor rec fill} bind def
/colrecstcmyn* %x y width heigth cmy0* or 000n*
{ setcmykcolor rec stroke} bind def
/colrecfiw* %x y width heigth w*
{ setgray rec fill} bind def
/colrecstw* %x y width heigth w*
{ setgray rec stroke} bind def
/colrecfiolv* %x y width heigth olv*
{ setrgbcolor rec fill} bind def
/colrecstolv* %x y width heigth olv*
{ setrgbcolor rec stroke} bind def
/tzocmy0* {0.0 1.0 1.0 0.0} bind def %Reproduction colours
/tzlcmy0* {1.0 0.0 1.0 0.0} bind def %cmyn* setcmykcolor
/tzvcmy0* {1.0 1.0 0.0 0.0} bind def
/tzccmy0* {1.0 0.0 0.0 0.0} bind def
/tzmcmy0* {0.0 1.0 0.0 0.0} bind def
/tzycmy0* {0.0 0.0 1.0 0.0} bind def
/tzoolv* {1.0 0.0 0.0} bind def %Reproduction colours
/tzlolv* {0.0 1.0 0.0} bind def %olv* setrgbcolor
/tzvolv* {0.0 0.0 1.0} bind def
/tzcolv* {0.0 1.0 1.0} bind def
/tzmolv* {1.0 0.0 1.0} bind def
/tzyolv* {1.0 1.0 0.0} bind def
/tzoLAB* [53.34 72.46 50.66] def %Reproduction colours
/tzlLAB* [84.93 -79.83 74.80] def %LAB* setcolor
/tzvLAB* [32.20 24.88 -37.89] def
/tzcLAB* [88.10 -44.88 -13.36] def
/tzmLAB* [59.66 90.32 -19.65] def
/tzyLAB* [93.76 -20.24 85.93] def
/tzncmy0* {1.00 1.00 1.00 0.00} bind def %grey series
/tzdcmy0* {0.75 0.75 0.75 0.00} bind def %cmy0* setcmykcolor
/tzzcmy0* {0.50 0.50 0.50 0.00} bind def
/tzhcmy0* {0.25 0.25 0.25 0.00} bind def
/tzwcmy0* {0.00 0.00 0.00 0.00} bind def
/tzn000n* {0.00 0.00 0.00 1.00} bind def %grey series 000n*
/tzd000n* {0.00 0.00 0.00 0.75} bind def %000n* setcmykcolor
/tzz000n* {0.00 0.00 0.00 0.50} bind def
/tzh000n* {0.00 0.00 0.00 0.25} bind def
/tzw000n* {0.00 0.00 0.00 0.00} bind def
/tznw* {0.00} bind def %grey series
/tzdw* {0.25} bind def %w* setgray
/tzzw* {0.50} bind def
/tzhw* {0.75} bind def
/tzww* {1.00} bind def
/tznolv* {0.00 0.00 0.00} bind def %grey series
/tzdolv* {0.25 0.25 0.25} bind def %olv* setrgbcolor
/tzzolv* {0.50 0.50 0.50} bind def
/tzholv* {0.75 0.75 0.75} bind def
/tzwolv* {1.00 1.00 1.00} bind def
/tznLAB* [18.01 0.00 0.00] def %grey series
/tzdLAB* [37.36 0.00 0.00] def %LAB* setcolor
/tzzLAB* [56.71 0.00 0.00] def
/tzhLAB* [76.06 0.00 0.00] def
/tzwLAB* [95.41 0.00 0.00] def
/tfn {0 setgray} bind def /tfw {1 setgray} bind def
/tfb {0 0.5 1 setrgbcolor} bind def
/A4quer {598 0 translate 90 rotate} def
/cvishow {cvi 6 string cvs show} def
/cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def
/cvsshow2 {100 mul cvi 0.01 mul 7 string cvs show} def
/cvsshow3 {1000 mul cvi 0.001 mul 7 string cvs show} def
%%EndProlog
%***********************************************************
%%BeginPageSetup
/#copies 1 def
%A4querF
1.0 1.0 scale
/pgsave save def
%%EndPageSetup
/SS$ [(g) (e) (s) (f) (i) (j) (m)] def
/SC$ [(n) (f) (s) (d) (t) (e) (c)] def
/SX$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (a) (b) (c) (d) (e) (f)] def
/SY$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (a) (b) (c) (d) (e) (f)] def
% 0 1 2 3 4 5
% 6 7 8
/EX$ [(a.txt /.ps) (b.bmp /.ps) (g.gif /.ps) (h.htm /.ps) (i.htm /.ps)
(j.jpe /.ps) (p.pdf /.ps) (t.tif /.ps)] def
/EY$ [(a.dat) (b.dat) (g.dat) (h.dat) (i.dat) (j.dat)
(p.dat) (t.dat)] def
%*******************************************************************
/lanind1f 01 def /lanind2f 01 def /laninddf 01 def /lanindmf 01 def
/colorm1f 00 def /colorm2f 00 def /colormdf 01 def /colormmf 01 def
/deintp1f 00 def /deintp2f 00 def /deintpdf 01 def /deintpmf 01 def
/xcolor1f 00 def /xcolor2f 00 def /xcolordf 01 def /xcolormf 01 def %2/10degree
/xchart1f 00 def /xchart2f 00 def /xchartdf 01 def /xchartmf 01 def
/xchart3f 01 def /xchart4f 00 def /xchart5f 00 def
/pchart1f 00 def /pchart2f 00 def /pchartdf 01 def /pchartmf 01 def %=3:sRGB,Lr
/colsep1f 00 def /colsep2f 00 def /colsepdf 01 def /colsepmf 01 def
/pmetam1f 00 def /pmetam2f 00 def /pmetamdf 01 def /pmetammf 01 def
%/lanindf lanind1f def %
/lanindf lanind1f def %lanind1f laninddf lanind2f {/lanindf exch def
%/colormf colorm1f def %
/colormf colorm1f def %colorm1f colormdf colorm2f {/colormf exch def
%/deintpf deintp1f def %
/deintpf deintp1f def %deintp1f deintpdf deintp2f {/deintpf exch def
%/xcolorf xcolor1f def %
/xcolorf xcolor1f def %xcolor1f xcolordf xcolor2f {/xcolorf exch def
%/xchartf xchart1f def %
xchart1f xchartdf xchart2f {/xchartf exch def
%/pchartf pchart1f def %
/pchartf pchart1f def %/pchartf pchart1f def %pchart1f pchartdf pchart2f {/pchartf exch def
%/colsepf colsep1f def %
/colsepf colsep1f def %colsep1f colsepdf colsep2f {/colsepf exch def
/lanind lanindf def
/colorm colormf def
/deintp deintpf def
/xcolor xcolorf def
/xchart xchartf def /xchartm xchart2f xchart1f sub 1 add def
/xchart3 xchart3f def /xchart4 xchart4f def
/pchart pchartf def
/colsep colsepf def
%/pmetamf pmetam1f def %
/pmetamf pmetam1f def %pmetam1f pmetamdf pmetam2f {/pmetamf exch def
/pmetam pmetamf def
%*************************************************************
%/setgray {sfgray} bind def
%/setrgbcolor {sfrgbcolor} bind def
%/setcmykcolor {sfcmykcolor} bind def
%72 90 translate
%0.01 MM dup scale
%0 0 moveto 24600 0 rlineto 0 17220 rlineto
% -24600 0 rlineto closepath stroke
%000 -240 moveto
%240 /Times-ISOL1 FS
%lanindf cvishow (-) show
%colormf cvishow
%deintpf cvishow
%xcolorf cvishow
%xchartf cvishow
%pchartf cvishow
%colsepf cvishow (-F) show pmetamf cvishow
%grestore
gsave
/GSS$ SS$ lanind get def
/GSC$ SC$ colorm get def
/GSX$ SX$ xcolor xcolor 16 idiv 16 mul sub get def
/GSY$ SY$ xchart xchart 16 idiv 16 mul sub get def
/GEX$ EX$ 6 get def
/GEY$ EY$ 6 get def
%01
%02
%03
%04
%05
%06
%07
%08
%09
%10
/12RN {12 /Times-Roman FS} bind def /10RN {10 /Times-Roman FS} bind def
/12RI {12 /Times-Italic FS} bind def /10RI {10 /Times-Italic FS} bind def
/12RB {12 /Times-Bold FS} bind def /10RB {10 /Times-Bold FS} bind def
/12RBI {12 /Times-BoldItalic FS} bind def /10RBI {10 /Times-BoldItalic FS} bind def
/12TN {12 /Times-ISOL1 FS} bind def /10TN {10 /Times-ISOL1 FS} bind def
/12TI {12 /TimesI-ISOL1 FS} bind def /10TI {10 /TimesI-ISOL1 FS} bind def
/12TB {12 /TimesB-ISOL1 FS} bind def /10TB {10 /TimesB-ISOL1 FS} bind def
/12TBI {12 /TimesBI-ISOL1 FS} bind def /10TBI {10 /TimesBI-ISOL1 FS} bind def
%gsave
BeginEPSF
28 MM 197 MM translate
10 /Times-ISOL1 FS 53 MM 1 MM moveto 1 1 scale -77 -91 translate
%%BeginDocument: Bild 10
%line 329
%%EndDocument
EndEPSF grestore gsave
/SHSl 1 def /SHAl 0 def
BeginEPSF
28 SHSl sub MM 152 MM translate
10 /Times-ISOL1 FS 53 MM 1 MM moveto 1 1 scale -77 -91 translate
%%BeginDocument: Bild 11
%line 339
%!PS-Adobe-3.0 EPSF-3.0 get80-1N
%%BoundingBox: 70 85 246 206
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave
/ioutx 0 def
ioutx 1 eq {%ioutx=1
4 /Times-Roman FS
72 86 moveto
(get80-1N) show
72 90 translate
0.01 MM dup scale
20 setlinewidth
/xwidth 6100 def
/ywidth 4000 def
1 setgray
0 0 moveto xwidth 0 rlineto 0 ywidth rlineto
xwidth neg 0 rlineto closepath fill
0 setgray
0 0 moveto xwidth 0 rlineto 0 ywidth rlineto
xwidth neg 0 rlineto closepath stroke
} if %ioutx=1
grestore
showpage
%%Trailer
%%EndDocument
EndEPSF grestore gsave
BeginEPSF
86 SHAl add MM 152 MM translate
10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate
%%BeginDocument: Bild 12
%line 349
%!PS-Adobe-3.0 EPSF-3.0 get80-2N
%%BoundingBox: 70 85 246 206
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave
/ioutx 0 def
ioutx 1 eq {%ioutx=1
4 /Times-Roman FS
72 86 moveto
(get80-2N) show
72 90 translate
0.01 MM dup scale
20 setlinewidth
/xwidth 6100 def
/ywidth 4000 def
1 setgray
0 0 moveto xwidth 0 rlineto 0 ywidth rlineto
xwidth neg 0 rlineto closepath fill
0 setgray
0 0 moveto xwidth 0 rlineto 0 ywidth rlineto
xwidth neg 0 rlineto closepath stroke
} if %ioutx=1
grestore
showpage
%%Trailer
%%EndDocument
EndEPSF grestore gsave
BeginEPSF
28 SHSl sub MM 108 MM 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 get80-3N
%%BoundingBox: 70 85 246 206
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave
/ioutx 0 def
ioutx 1 eq {%ioutx=1
4 /Times-Roman FS
72 86 moveto
(get80-3N) show
72 90 translate
0.01 MM dup scale
20 setlinewidth
/xwidth 6100 def
/ywidth 4000 def
1 setgray
0 0 moveto xwidth 0 rlineto 0 ywidth rlineto
xwidth neg 0 rlineto closepath fill
0 setgray
0 0 moveto xwidth 0 rlineto 0 ywidth rlineto
xwidth neg 0 rlineto closepath stroke
} if %ioutx=1
grestore
showpage
%%Trailer
%%EndDocument
EndEPSF grestore gsave
BeginEPSF
86 SHAl add MM 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 get80-4N
%%BoundingBox: 70 85 246 206
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave
/ioutx 0 def
ioutx 1 eq {%ioutx=1
4 /Times-Roman FS
72 86 moveto
(get80-4N) show
72 90 translate
0.01 MM dup scale
20 setlinewidth
/xwidth 6100 def
/ywidth 4000 def
1 setgray
0 0 moveto xwidth 0 rlineto 0 ywidth rlineto
xwidth neg 0 rlineto closepath fill
0 setgray
0 0 moveto xwidth 0 rlineto 0 ywidth rlineto
xwidth neg 0 rlineto closepath stroke
} if %ioutx=1
grestore
showpage
%%Trailer
%%EndDocument
EndEPSF grestore gsave
BeginEPSF
28 SHSl sub MM 064 MM translate
10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate
%%BeginDocument: Bild 15
%line 379
%!PS-Adobe-3.0 EPSF-3.0 get80-5N
%%BoundingBox: 70 85 246 206
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave
/ioutx 0 def
ioutx 1 eq {%ioutx=1
4 /Times-Roman FS
72 86 moveto
(get80-5N) show
72 90 translate
0.01 MM dup scale
20 setlinewidth
/xwidth 6100 def
/ywidth 4000 def
1 setgray
0 0 moveto xwidth 0 rlineto 0 ywidth rlineto
xwidth neg 0 rlineto closepath fill
0 setgray
0 0 moveto xwidth 0 rlineto 0 ywidth rlineto
xwidth neg 0 rlineto closepath stroke
} if %ioutx=1
grestore
showpage
%%Trailer
%%EndDocument
EndEPSF grestore gsave
BeginEPSF
86 SHAl add MM 064 MM translate
10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate
%%BeginDocument: Bild 16
%line 389
%!PS-Adobe-3.0 EPSF-3.0 get80-6N
%%BoundingBox: 70 85 246 206
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave
/ioutx 0 def
ioutx 1 eq {%ioutx=1
4 /Times-Roman FS
72 86 moveto
(get80-6N) show
72 90 translate
0.01 MM dup scale
20 setlinewidth
/xwidth 6100 def
/ywidth 4000 def
1 setgray
0 0 moveto xwidth 0 rlineto 0 ywidth rlineto
xwidth neg 0 rlineto closepath fill
0 setgray
0 0 moveto xwidth 0 rlineto 0 ywidth rlineto
xwidth neg 0 rlineto closepath stroke
} if %ioutx=1
grestore
showpage
%%Trailer
%%EndDocument
EndEPSF grestore gsave
BeginEPSF
/xc1 16 def /yc1 12 def /xt 1 def xchart 1 eq {/xt 1 def} if
28 SHSl sub MM 20 MM translate
10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate
%%BeginDocument: Bild 17
%line 399
%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/get8/get80-7n 20240901
%%BoundingBox: 70 80 775 579
%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: farbe.li.tu-berlin.de/get8/get8.htm)
/Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1)
/Subject (goto: http://farbe.li.tu-berlin.de or http://farbe.li.tu-berlin.de)
/Keywords (image reproduction, colour devices)
/Creator (klaus.richter@mac.com)
/CreationDate (D:2024090112000)
/ModDate (D:2024090112000)
/DOCINFO pdfmark07
[ /View [ /Fit ]
/DOCVIEW pdfmark07
%END PDFDE011
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def /str {8 string } bind def
/A4querL {598 0 translate 90 rotate} def
/languagelevel where {pop languagelevel} {1} ifelse
/PSL12 exch def
/dictende {counttomark 2 idiv dup dict begin {def}
repeat pop currentdict end} bind def
/Times-Roman findfont dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse } forall
/Encoding ISOLatin1Encoding def
currentdict end
/Times-ISOL1 exch definefont pop
/Times-Italic findfont dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse } forall
/Encoding ISOLatin1Encoding def
currentdict end
/TimesI-ISOL1 exch definefont pop
/Times-Bold findfont dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse } forall
/Encoding ISOLatin1Encoding def
currentdict end
/TimesB-ISOL1 exch definefont pop
/Times-BoldItalic findfont dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse } forall
/Encoding ISOLatin1Encoding def
currentdict end
/TimesBI-ISOL1 exch definefont pop
/Courier findfont dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/Courier-ISOL1 exch definefont pop
/Courier-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
/tgv {0 0 1 setrgbcolor} 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
/colrecfi %x y width heigth c m y k
{setcmykcolor rec fill} bind def
/colrecst %x y width heigth c m y k
{setcmykcolor rec stroke} bind def
/cviht {dup 0 ge {0.49 add}{0.49 sub} ifelse cvi} def
/cvishow {dup 0 ge {0.5 add} {0.5 sub} ifelse
cvi 6 string cvs show} def
/cvsshow1 {dup 0 ge {0.05 add} {0.05 sub} ifelse
10 mul cvi 0.1 mul 7 string cvs show} def
/cvsshow2 {dup 0 ge {0.005 add} {0.005 sub} ifelse
100 mul cvi 0.01 mul 7 string cvs show} def
/cvsshow3 {dup 0 ge {0.0005 add} {0.0005 sub} ifelse
1000 mul cvi 0.001 mul 7 string cvs show} def
%/cvishow {cvi 6 string cvs show} def
%/cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show ( ) show} def
%/cvsshow2 {100 mul cvi 0.01 mul 7 string cvs show ( ) show} def
%/cvsshow3 {1000 mul cvi 0.001 mul 7 string cvs show ( ) show} def
/cvsshow1g {/nxx exch def %example nxx=99.1/99.0
nxx 10 mul cvi /nxi exch def %nxi=991/990
nxi 10 idiv /nxa exch def %nxa=99
nxi nxa 10 mul sub /nxb exch def %nxb=1/0
nxa cvishow (,) show %nxa=99
nxb cvishow %nxb=1/0
} def
/cvsshow2g {/nxx exch def %example nxx=99.12/99,02/99,00
nxx 100 mul cvi /nxi exch def %nxi=9912/9902/00
nxi 100 idiv /nxa exch def %nxa=99
nxi nxa 100 mul sub /nxb exch def %nxb=12/02/00
nxa cvishow (,) show %nxb=99,
nxb 10 ge {nxb cvishow} if %nxb=12
nxb 1 ge
nxb 9 le and {(0) show nxb cvishow} if %nxb=02
nxb 0 eq {(00) show} if %nxb=00
} def
/cvsshow3g {/nxx exch def %example nxx=99.123/99.012/99.001/99.000
nxx 1000 mul cvi /nxi exch def %nxi=99123/99012/99001/99000
nxi 1000 idiv /nxa exch def %nxa=99
nxi nxa 1000 mul sub /nxb exch def %nxb=123/012/001/000
nxa cvishow (,) show %nxb=99,
nxb 100 ge {nxb cvishow} if %nxb=123/012/001/000
nxb 10 ge
nxb 99 le and {(0) show nxb cvishow} if %nxb=012
nxb 1 ge
nxb 9 le and {(00) show nxb cvishow} if %nxb=001
nxb 0 eq {(000) show} if %nxb=000
} def
%*******************************************************************
%%EndProlog
gsave
/lanind 1 def
/lantex [(G) (E) (S) (F) (I) (J) (M)] def
/showde {0 lanind eq {show} {pop} ifelse} bind def
/showen {1 lanind eq {show} {pop} ifelse} bind def
/showfr {2 lanind eq {show} {pop} ifelse} bind def
/showes {3 lanind eq {show} {pop} ifelse} bind def
/showit {4 lanind eq {show} {pop} ifelse} bind def
/showjp {5 lanind eq {show} {pop} ifelse} bind def
/showea {1 lanind le {show} {pop} ifelse} bind def
/showm {6 lanind eq {show} {pop} ifelse} bind 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
/lanind1 1 def /lanind2 1 def /lanindd 01 def /lanindm 01 def
/colorm1 00 def /colorm2 00 def /colormd 01 def /colormm 01 def
/deintp1 00 def /deintp2 00 def /deintpd 01 def /deintpm 01 def
/xcolor1 00 def /xcolor2 00 def /xcolord 01 def /xcolorm 01 def
/xchart1 07 def /xchart2 07 def /xchartd 01 def /xchartm 01 def
/pchart1 00 def /pchart2 00 def /pchartd 01 def /pchartm 03 def
/colsep1 00 def /colsep2 00 def /colsepd 01 def /colsepm 01 def
/pmetam1 00 def /pmetam2 00 def /pmetamd 01 def /pmetamm 01 def
/xchart3 00 def %free
/xchart4 00 def %test charts ISO/IEC 3, 2, 4; CIE R8-09 G, O, H
/xchart5 00 def %free
/lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def
/lanindd laninddf def /lanindm lanindmf def} if
/colormf where {pop /colorm1 colormf def /colorm2 colormf def
/colormd colormdf def /colormm colormmf def} if
/deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def
/deintpd deintpdf def /deintpm deintpmf def} if
/xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def
/xcolord xcolordf def /xcolorm xcolormf def} if
/xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def
/xchartd xchartdf def /xchartm xchartmf def} if
/xchart3f where {pop /xchart3 xchart3f def} if
/xchart4f where {pop /xchart4 xchart4f def} if
/xchart5f where {pop /xchart5 xchart5f def} if
/pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def
/pchartd pchartdf def /pchartm pchartmf def} if
/colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def
/colsepd colsepdf def /colsepm colsepmf def} if
/pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def
/pmetamd pmetamdf def /pmetamm pmetamf def} if
/lanind lanind1 def %
/colorm colorm1 def %
/deintp deintp1 def %
/xcolor xcolor1 def %
/xchart xchart1 def %
/pchart pchart1 def %
/colsep colsep1 def %
/pmetam pmetam1 def %
/GSS$ where {pop /LSS$ GSS$ def}
{/LSS$ (1) def} ifelse
/GSC$ where {pop /LSC$ GSC$ def}
{/LSC$ (N) def} ifelse
/GSX$ where {pop /LSX$ GSX$ def}
{/LSX$ (0) def} ifelse
/GSY$ where {pop /LSY$ GSY$ def}
{/LSY$ (0) def} ifelse
/GEX$ where {pop /LEX$ GEX$ def}
{/LEX$ (P.PS./PDF) def} ifelse
/GEY$ where {pop /LEY$ GEY$ def}
{/LEY$ (P.DAT) def} ifelse
/IMES where {pop %/IMES IMES def
}
{/IMES 0 def} ifelse
%A4querL
/xcharx 0 def %fix page 1 of test chart
/colorml colorm def
%0 1 1 {/colorml exch def %colorml=0,1
/xcolorl xcolor def
%0 1 3 {/xcolorl exch def %xcolorl=0,3
/xchartl xchart def
%0 1 7 {/xchartl exch def %xchartl=0,7
/pchartl pchart def
%0 1 2 {/pchartl exch def %pchartl=0,2
colorml 0 eq deintp 0 eq and {/TxS () def /Txx (dd) def /Fxx (d) def} if
colorml 0 eq deintp 1 eq and {/TxS () def /Txx (de) def /Fxx (e) def} if
colorml 1 eq deintp 0 eq and {/TxS () def /Txx (dd) def /Fxx (d) def} if
colorml 1 eq deintp 1 eq and {/TxS () def /Txx (de) def /Fxx (e) def} if
%xchart 0 eq {/Txx (-) def /Fxx (-) def} if
%gsave
%STOP1
%pchartl 0 eq {%pchartl=0 Y10-7n_AL49_JSO_1P1S.EPS
/TK {200 /Times-ISOL1 FS} bind def
/TS {200 /Times-ISOL1 FS} bind def
%***********************************************************************************
72 90 translate
%gsave
0.01 MM dup scale
20 setlinewidth
0 0 24600 17100 0.0 0.0 0.0 0.0 colrecfi %area white grey
0 0 24600 17100 0.0 0.0 0.0 1.0 colrecst %Rahmen Schwarz
TK
0 setgray
/xbtex0 1 def
xbtex0 1 eq {%xbtex0=1
120 3 mul /Times-ISOL1 FS
%050 -100 moveto
050 -300 moveto
(get80-7n) show %(n) show %n
%xchart 1 add cvishow
} if %xbtex0=1
/indexSi 16 def %default S=start
%BEG special definitions of Global File (GF) gamma & xyreh_1024
/GammaSi 21 array def
/GammaSi %rel. gamma according to ISO 9241-306:2018
%0 1 2 3 4 5 6 7
[0.475 0.550 0.625 0.700 0.775 0.849 0.924 1.000
%8 9 10 11 12 13 14 15
1.000 1.081 1.176 1.290 1.428 1.600 1.818 2.105
%16 17 18 19 20
2.000 0.500 1.500 0.666 1.000] def
/GammaS GammaSi indexSi get def
/kchartl 0 def
/xchartl xchart def
0 1 00 {/kchartl exch def %kchartl=0,01
/ktrans 12480 kchartl mul def
7 1 07 {/xchartl exch def %xchartl=0,07
/xchart 7 def %for GammaS change
20 setlinewidth
xchartl 0 eq { 100 ktrans add 13000 translate} if
xchartl 1 eq { 6150 ktrans add 13000 translate} if
xchartl 2 eq { 100 ktrans add 08740 translate} if
xchartl 3 eq { 6150 ktrans add 08740 translate} if
xchartl 4 eq { 100 ktrans add 04480 translate} if
xchartl 5 eq { 6150 ktrans add 04480 translate} if
xchartl 6 eq { 600 ktrans add 00770 translate} if
xchartl 7 eq { 600 ktrans add 00770 translate} if
4.0 dup scale
0 setgray
120 /Times-ISOL1 FS
050 -100 moveto
(get80-7n) show
%kchartl 0 eq {(get80-) show}{(get81-) show} ifelse
%xchartl 1 add cvishow
%(A) show %A
/ioutg 1 def
ioutg 1 eq {%ioutg=1
/kheigh 120 def
/kheigk 100 def
/TIKN {kheigh /Times-ISOL1 FS} bind def
/TIKI {kheigh /TimesI-ISOL1 FS} bind def
/RIKN {kheigh /Times-Roman FS} bind def
/TIKK {kheigk /Times-ISOL1 FS} bind def
TIKN
(, Gammawerte: ) showde
(, gamma values: ) showen
TIKI
(g) show
TIKK 0 -25 rmoveto (rel) show 0 25 rmoveto
TIKN
(=) show GammaS cvsshow3g (, ) show
TIKI
(g) show
TIKK 0 -25 rmoveto (IEC_sRGB) show 0 25 rmoveto
TIKN
(=2,4) show (, ) show
TIKI
(g) show
TIKK 0 -25 rmoveto (a) show 0 25 rmoveto
TIKN
(=) show
2.4 GammaS mul cvsshow3g (, ) show
%TIKI
%(g) show
%0 -25 rmoveto TIKK (P) show 0 25 rmoveto
%TIKN
%(=) show
%GammaS cvsshow3g (, ) show
%TIKI
%(C) show
%/xchartP xchart 1 add def
%TIKK 0 -25 rmoveto (YP) show xchartP cvishow 0 25 rmoveto
%xchartP 8 ge {%xchartP>=8
% TIKN (=) show
% TIKI (C) show
% TIKK 0 -25 rmoveto (YN) show 8 xchartP 8 sub sub
% cvishow 0 25 rmoveto
% } if %xchartP>=8
TIKI (rgb* & w*) show
TIKN
(\255Daten, 1080 Farben) showde
( data, 1080 colours) showen
} if %ioutg=1
30 setlinewidth
[ ] 0 setdash
%0.0 0.0 0.0 0.5 setcmykcolor
1 1 0 setrgbcolor
0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
closepath fill
0 setgray
150 /Times-ISOL1 FS
gsave %start because of clip
0.084 MM dup scale
40 setlinewidth
/ymax1 16900 def
/xmax1 24600 def
0.5 GammaS exp setgray
0 0 moveto xmax1 0 rlineto 0 ymax1 rlineto xmax1 neg 0 rlineto
closepath fill
0 GammaS exp setgray
0 0 moveto xmax1 0 rlineto 0 ymax1 rlineto xmax1 neg 0 rlineto
closepath stroke
/fakt 1 def
/iyt 32 fakt mul def %text size
/iyd 35 fakt mul def %line difference
xcharx 1 le {%xcharx<=1
} if %xcharx<=1
/xs 900 3 div 2 mul def /ys xs def /d2 xs 2 div def /d8 xs 8 div def
/xmin 650 3 div 2.2 mul def
/ymax 15800 def
%xcharx 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
/xd 900 3 div 2 mul def /yd 900 3 div 2 mul def
/xsd xs xd sub 0.5 mul def
/ysd xs xd sub 0.5 mul def
/xd2 xd 0.50 mul def
/xd4 xd 0.25 mul def
20 setlinewidth
500 3 div 2 mul /Times-ISOL1 FS
1 setgray
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
%( # ) show
0 setgray
/RGB*R0 1080 array def
/RGB*G0 1080 array def
/RGB*B0 1080 array def
/rgbcmyk 10000 array def %8640=8*1080: n rgb, cmyk
/n00 -1 def
TS
/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
/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
RGB*R0 n1079 r put
RGB*G0 n1079 g put
RGB*B0 n1079 b put
xcharx 0 eq {%xcharx=0
r GammaS exp g GammaS exp b GammaS exp setrgbcolor
xa ya xd dup rec fill
1 r GammaS exp sub
1 g GammaS exp sub
1 b GammaS exp sub 0 setcmykcolor
xa xd4 add ya xd4 add xd2 dup rec fill
} if %xcharx=0
xcharx 1 eq {%xcharx=1
r GammaS exp g GammaS exp b GammaS exp setrgbcolor
xa ya xd dup rec fill
} if %xcharx=1
} 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
/xcharxj 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
xcharxj 0 eq {/r argb def /g brgb def /b brgb def} if
xcharxj 1 eq {/r argb def /g argb def /b brgb def} if
xcharxj 2 eq {/r brgb def /g argb def /b brgb def} if
xcharxj 3 eq {/r brgb def /g argb def /b argb def} if
xcharxj 4 eq {/r brgb def /g brgb def /b argb def} if
xcharxj 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
xcharx 0 eq {%xcharx=0
r GammaS exp g GammaS exp b GammaS exp setrgbcolor
xa ya xd dup rec fill
1 r GammaS exp sub
1 g GammaS exp sub
1 b GammaS exp sub 0 setcmykcolor
xa xd4 add ya xd4 add xd2 dup rec fill
} if %xcharx=0
xcharx 1 eq {%xcharx=1
r GammaS exp g GammaS exp b GammaS exp setrgbcolor
xa ya xd dup rec fill
} if %xcharx=1
} 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
xcharx 0 eq {%xcharx=0
l 0 eq {0 0 0 1 r GammaS exp sub setcmykcolor} if
l 1 eq {r GammaS exp setgray} if
l 2 eq {1 r GammaS exp sub
1 g GammaS exp sub
1 b GammaS exp sub 0 setcmykcolor} if
l 3 eq {r GammaS exp g GammaS exp b GammaS exp setrgbcolor} if
xa ya xd dup rec fill
1 r GammaS exp sub
1 g GammaS exp sub
1 b GammaS exp sub 0 setcmykcolor
xa xd4 add ya xd4 add xd2 dup rec fill
} if %xcharx=0
xcharx 1 eq {%xcharx=1
r GammaS exp g GammaS exp b GammaS exp setrgbcolor
xa ya xd dup rec fill
} if %xcharx=1
} for %j=0,jmax
} for %l=0,lmax
} for %k=0,kmax
%basic colours 1072 - 1080
/basrgb 24 array def
/basrgb
[0 0 0 1 1 1
1 0 0 0 1 1
1 1 0 0 0 1
0 1 0 1 0 1
] def
/n1079 1071 def
0 1 07 {/i exch def %i=0,7
/n1079 n1079 1 add def
/i3 i 3 mul def
/xadd 36 xs mul def
/yadd 25 xs mul def
i 0 eq {/l 0 def /j 0 def /j1$ (k) def /i1 26 def} if
i 1 eq {/l 0 def /j 1 def /j1$ (k) def /i1 27 def} if
i 2 eq {/l 1 def /j 0 def /j1$ (l) def /i1 26 def} if
i 3 eq {/l 1 def /j 1 def /j1$ (l) def /i1 27 def} if
i 4 eq {/l 2 def /j 0 def /j1$ (m) def /i1 26 def} if
i 5 eq {/l 2 def /j 1 def /j1$ (m) def /i1 27 def} if
i 6 eq {/l 3 def /j 0 def /j1$ (n) def /i1 26 def} if
i 7 eq {/l 3 def /j 1 def /j1$ (n) def /i1 27 def} if
/xa xmin xs l mul add xadd add xsd add def
/ya ymax xs j mul sub yadd sub ysd add def
/r basrgb i3 get def
/g basrgb i3 1 add get def
/b basrgb i3 2 add get def
xcharx 0 eq {%xcharx=0
r GammaS exp g GammaS exp b GammaS exp setrgbcolor
xa ya xd dup rec fill
1 r GammaS exp sub
1 g GammaS exp sub
1 b GammaS exp sub 0 setcmykcolor
xa xd4 add ya xd4 add xd2 dup rec fill
} if %xcharx=0
xcharx 1 eq {%xcharx=1
r GammaS exp g GammaS exp b GammaS exp setrgbcolor
xa ya xd dup rec fill
} if %xcharx=1
} for %i=0,7
xchart 4 eq
xchart 7 eq or {%xchart=4 or 7
150 setlinewidth
1 GammaS exp 0 0 setrgbcolor
/xtransr 0100 def
/ytransr 0650 def
/xwdtr 24600 xtransr 2 mul add def
/ywdtr ymax1 ytransr add xtransr add def
xchart 4 eq {[400] 400 setdash} if
xtransr neg ytransr neg moveto xwdtr 0 rlineto 0 ywdtr rlineto xwdtr neg 0 rlineto
closepath stroke
xchart 4 eq {[ ] 0 setdash} if
} if %xchart=4 or 7
grestore %end because of clip
xchartl 0 eq { 100 ktrans add neg 13000 neg translate} if
xchartl 1 eq { 6150 ktrans add neg 13000 neg translate} if
xchartl 2 eq { 100 ktrans add neg 08740 neg translate} if
xchartl 3 eq { 6150 ktrans add neg 08740 neg translate} if
xchartl 4 eq { 100 ktrans add neg 04480 neg translate} if
xchartl 5 eq { 6150 ktrans add neg 04480 neg translate} if
xchartl 6 eq { 600 ktrans add neg 00620 neg translate} if
xchartl 7 eq { 600 ktrans add neg 00620 neg translate} if
} for %xchartl=0,07
} for %kchartl=0,01
showpage
grestore
%} for %output with langind end
%%Trailer
%%EndDocument
EndEPSF grestore gsave
BeginEPSF
86 SHAl add MM 020 MM translate
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 get80-8N
%%BoundingBox: 70 85 246 206
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave
/ioutx 0 def
ioutx 1 eq {%ioutx=1
4 /Times-Roman FS
72 86 moveto
(get80-8N) show
72 90 translate
0.01 MM dup scale
20 setlinewidth
/xwidth 6100 def
/ywidth 4000 def
1 setgray
0 0 moveto xwidth 0 rlineto 0 ywidth rlineto
xwidth neg 0 rlineto closepath fill
0 setgray
0 0 moveto xwidth 0 rlineto 0 ywidth rlineto
xwidth neg 0 rlineto closepath stroke
} if %ioutx=1
grestore
showpage
%%Trailer
%%EndDocument
EndEPSF grestore gsave
BeginEPSF
161 MM 197 MM translate
10 /Times-ISOL1 FS 1 1 scale -77 -91 translate
%%BeginDocument: Bild 12
%line 419
%%EndDocument
EndEPSF grestore gsave
/SHSr 9 def /SHAr -5 def
BeginEPSF
161 SHSr sub 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 get81-1N
%%BoundingBox: 70 85 246 206
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave
/ioutx 0 def
ioutx 1 eq {%ioutx=1
4 /Times-Roman FS
72 86 moveto
(get81-1N) show
72 90 translate
0.01 MM dup scale
20 setlinewidth
/xwidth 6100 def
/ywidth 4000 def
1 setgray
0 0 moveto xwidth 0 rlineto 0 ywidth rlineto
xwidth neg 0 rlineto closepath fill
0 setgray
0 0 moveto xwidth 0 rlineto 0 ywidth rlineto
xwidth neg 0 rlineto closepath stroke
} if %ioutx=1
grestore
showpage
%%Trailer
%%EndDocument
EndEPSF grestore gsave
BeginEPSF
219 SHAr add 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 get81-2N
%%BoundingBox: 70 85 246 206
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave
/ioutx 0 def
ioutx 1 eq {%ioutx=1
4 /Times-Roman FS
72 86 moveto
(get81-2N) show
72 90 translate
0.01 MM dup scale
20 setlinewidth
/xwidth 6100 def
/ywidth 4000 def
1 setgray
0 0 moveto xwidth 0 rlineto 0 ywidth rlineto
xwidth neg 0 rlineto closepath fill
0 setgray
0 0 moveto xwidth 0 rlineto 0 ywidth rlineto
xwidth neg 0 rlineto closepath stroke
} if %ioutx=1
grestore
showpage
%%Trailer
%%EndDocument
EndEPSF grestore gsave
BeginEPSF
161 SHSr sub 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 get81-3N
%%BoundingBox: 70 85 246 206
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave
/ioutx 0 def
ioutx 1 eq {%ioutx=1
4 /Times-Roman FS
72 86 moveto
(get81-3N) show
72 90 translate
0.01 MM dup scale
20 setlinewidth
/xwidth 6100 def
/ywidth 4000 def
1 setgray
0 0 moveto xwidth 0 rlineto 0 ywidth rlineto
xwidth neg 0 rlineto closepath fill
0 setgray
0 0 moveto xwidth 0 rlineto 0 ywidth rlineto
xwidth neg 0 rlineto closepath stroke
} if %ioutx=1
grestore
showpage
%%Trailer
%%EndDocument
EndEPSF grestore gsave
BeginEPSF
219 SHAr add 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 get81-4N
%%BoundingBox: 70 85 246 206
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave
/ioutx 0 def
ioutx 1 eq {%ioutx=1
4 /Times-Roman FS
72 86 moveto
(get81-4N) show
72 90 translate
0.01 MM dup scale
20 setlinewidth
/xwidth 6100 def
/ywidth 4000 def
1 setgray
0 0 moveto xwidth 0 rlineto 0 ywidth rlineto
xwidth neg 0 rlineto closepath fill
0 setgray
0 0 moveto xwidth 0 rlineto 0 ywidth rlineto
xwidth neg 0 rlineto closepath stroke
} if %ioutx=1
grestore
showpage
%%Trailer
%%EndDocument
EndEPSF grestore gsave
BeginEPSF
161 SHSr sub 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 get81-5N
%%BoundingBox: 70 85 246 206
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave
/ioutx 0 def
ioutx 1 eq {%ioutx=1
4 /Times-Roman FS
72 86 moveto
(get81-5N) show
72 90 translate
0.01 MM dup scale
20 setlinewidth
/xwidth 6100 def
/ywidth 4000 def
1 setgray
0 0 moveto xwidth 0 rlineto 0 ywidth rlineto
xwidth neg 0 rlineto closepath fill
0 setgray
0 0 moveto xwidth 0 rlineto 0 ywidth rlineto
xwidth neg 0 rlineto closepath stroke
} if %ioutx=1
grestore
showpage
%%Trailer
%%EndDocument
EndEPSF grestore gsave
BeginEPSF
219 SHAr add 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 get81-6N
%%BoundingBox: 70 85 246 206
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave
/ioutx 0 def
ioutx 1 eq {%ioutx=1
4 /Times-Roman FS
72 86 moveto
(get81-6N) show
72 90 translate
0.01 MM dup scale
20 setlinewidth
/xwidth 6100 def
/ywidth 4000 def
1 setgray
0 0 moveto xwidth 0 rlineto 0 ywidth rlineto
xwidth neg 0 rlineto closepath fill
0 setgray
0 0 moveto xwidth 0 rlineto 0 ywidth rlineto
xwidth neg 0 rlineto closepath stroke
} if %ioutx=1
grestore
showpage
%%Trailer
%%EndDocument
EndEPSF grestore gsave
BeginEPSF
161 SHSr sub 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 get81-7N
%%BoundingBox: 70 85 246 206
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave
/ioutx 0 def
ioutx 1 eq {%ioutx=1
4 /Times-Roman FS
72 86 moveto
(get81-7N) show
72 90 translate
0.01 MM dup scale
20 setlinewidth
/xwidth 6100 def
/ywidth 4000 def
1 setgray
0 0 moveto xwidth 0 rlineto 0 ywidth rlineto
xwidth neg 0 rlineto closepath fill
0 setgray
0 0 moveto xwidth 0 rlineto 0 ywidth rlineto
xwidth neg 0 rlineto closepath stroke
} if %ioutx=1
grestore
showpage
%%Trailer
%%EndDocument
EndEPSF grestore gsave
BeginEPSF
219 SHAr add MM 020 MM translate
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 get81-8N
%%BoundingBox: 70 85 246 206
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave
/ioutx 0 def
ioutx 1 eq {%ioutx=1
4 /Times-Roman FS
72 86 moveto
(get81-8N) show
72 90 translate
0.01 MM dup scale
20 setlinewidth
/xwidth 6100 def
/ywidth 4000 def
1 setgray
0 0 moveto xwidth 0 rlineto 0 ywidth rlineto
xwidth neg 0 rlineto closepath fill
0 setgray
0 0 moveto xwidth 0 rlineto 0 ywidth rlineto
xwidth neg 0 rlineto closepath stroke
} if %ioutx=1
grestore
showpage
%%Trailer
%%EndDocument
EndEPSF grestore gsave
BeginEPSF
219 MM 080 MM add 008 MM translate %80 MM Breite von TestStreifen
10 /Times-ISOL1 FS 53 MM 1 MM moveto () show 1 1 scale -77 21 MM sub -91 translate
%%BeginDocument: Bild 29 Teststreifen Ueberlaenge
%line 509
%%EndDocument
EndEPSF grestore gsave
BeginEPSF
-0.0 MM -0.0 MM translate %xy-Verschiebung Rechteckrahmen nach innen%
%%BeginDocument: Bild 30 %Rechteckrahmen
%line 519
%!PS-Adobe-3.0 EPSF-3.0 Frame arround with Internet text DG02 20070101
%%BoundingBox: 0 0 598 845
%%EndProlog
gsave
/lanind 1 def
/lantex [(G) (E) (S) (N) (I) (J) (M)] def
/showde {0 lanind eq {show} {pop} ifelse} bind def
/showen {1 lanind eq {show} {pop} ifelse} bind def
/showes {2 lanind eq {show} {pop} ifelse} bind def
/showfr {3 lanind eq {show} {pop} ifelse} bind def
/showit {4 lanind eq {show} {pop} ifelse} bind def
/showjp {5 lanind eq {show} {pop} ifelse} bind def
/showea {1 lanind le {show} {pop} ifelse} bind def
/lanind1 01 def /lanind2 01 def /lanindd 01 def
/colorm1 00 def /colorm2 00 def /colormd 01 def
/deintp1 00 def /deintp2 00 def /deintpd 01 def
/xcolor1 03 def /xcolor2 03 def /xcolord 01 def
/xchart1 00 def /xchart2 00 def /xchartd 01 def
/pchart1 00 def /pchart2 00 def /pchartd 01 def
/colsep1 00 def /colsep2 00 def /colsepd 01 def
/pmetam1 00 def /pmetam2 00 def /pmetamd 01 def
/lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def
/lanindd laninddf def} if
/colormf where {pop /colorm1 colormf def /colorm2 colormf def
/colormd colormdf def} if
/deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def
/deintpd deintpdf def} if
/xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def
/xcolord xcolordf def} if
/xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def
/xchartd xchartdf def
/xchartm xchart2f xchart1f sub 1 add def}
{/xchartm 1 def} ifelse
/xchart3f where {pop /xchart3 xchart3f def}
{/xchart3 1 def} ifelse
/xchart4f where {pop /xchart4 xchart4f def}
{/xchart4 0 def} ifelse
/pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def
/pchartd pchartdf def} if
/colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def
/colsepd colsepdf def} if
/pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def
/pmetamd pmetamdf def} if
/lanind lanind1 def %
/colorm colorm1 def %
/deintp deintp1 def %
/xcolor xcolor1 def %
/xchart xchart1 def %
/pchart pchart1 def %
/colsep colsep1 def %
/pmetam pmetam1 def %
/GSS$ where {pop /LSS$ GSS$ def}
{/LSS$ (1) def} ifelse
/GSC$ where {pop /LSC$ GSC$ def}
{/LSC$ (n) def} ifelse
/GSX$ where {pop /LSX$ GSX$ def}
{/LSX$ (0) def} ifelse
/GSY$ where {pop /LSY$ GSY$ def}
{/LSY$ (0) def} ifelse
/GEX$ where {pop /LEX$ GEX$ def}
{/LEX$ (p.ps./pdf) def} ifelse
/GEY$ where {pop /LEY$ GEY$ def}
{/LEY$ (p.dat) def} ifelse
/IMES 0 def
/i*ptrsc 0 def
gsave
0 setgray
1.0 1.0 scale
0.0 MM -1.0 MM translate %shift up
0.15 MM setlinewidth
/x 20 array def
/y 20 array def
/d 20 array def
/x [000 296 296 000 002 294 294 002 005 291 291 005 %speziell
006 290 290 006 008 288 288 008 ] def
/y [000 000 210 210 002 002 208 208 005 005 205 205 %speziell
006 006 204 204 008 008 202 202 ] def
/d [060 017 -60 -17 058 015 -58 -15 056 013 -56 -13
054 011 -54 -11 052 009 -52 -09 ] def
colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0
colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1
colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0
colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1
xchart 0 eq {/Txx (-) def /Fxx (-) def} if
xchart 1 ge {%xchart>=1
/i0 12 def
/i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def
2.5 MM /Times-ISOL1 FS
x i0 get MM 40 MM add y i0 get MM 1 MM sub moveto
lanind cvishow (-) show
colorm cvishow
deintp cvishow
xcolor cvishow
xchart cvishow
pchart cvishow
colsep cvishow (-F) show pmetam cvishow
} if %xchart>=1
/xt 1 def
xchart 1 eq {/xt 1 def} if
xt 0 eq {%xt=0,1 ifelse
/i0 12 def
/i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def
2.5 MM /Times-Roman FS
x i0 get MM 110 MM add y i0 get MM 1 MM sub moveto
tfb (http://farbe.li.tu-berlin.de//get8/get8) show
colorm cvishow deintp cvishow
colorm 0 eq {(n) show} {(f) show} ifelse (p.pdf & ) show
(http://farbe.li.tu-berlin.de//get8/get8) show
colorm cvishow deintp cvishow
colorm 0 eq {(n) show} {(f) show} ifelse (p.txt & ) show
(http://farbe.li.tu-berlin.de//get8/get8.HTM) show
tfn 2.5 MM /Times-ISOL1 FS
} %xt=0
{ %xt=1
/xlu 017 MM def /ylu 017 MM def
/xro 279 MM def /yro 193 MM def
/xlo 017 MM def /ylo 193 MM def
/xru 279 MM def /yru 017 MM def
/xmo xlo xro xlo sub 0.5 mul add def
/ymo yro 1 MM sub def
xmo 1 MM sub ymo moveto 2 MM 0 rlineto stroke
xmo ymo 1 MM sub moveto 0 1 MM rlineto stroke
xlu 8 MM sub ylu moveto 16 MM 0 rlineto stroke
xlu ylu 8 MM sub moveto 0 16 MM rlineto stroke
xro 8 MM add yro moveto -16 MM 0 rlineto stroke
xro yro 8 MM add moveto 0 -16 MM rlineto stroke
xru 8 MM sub yru moveto 16 MM 0 rlineto stroke
xru yru 8 MM sub moveto 0 16 MM rlineto stroke
xlo 8 MM add ylo moveto -16 MM 0 rlineto stroke
xlo ylo 8 MM add moveto 0 -16 MM rlineto stroke
1 2 7 {/i exch def %Zentrierkreise
xlu ylu i MM 0 360 arc stroke
xro yro i MM 0 360 arc stroke
xru yru i MM 0 360 arc stroke
xlo ylo i MM 0 360 arc stroke
} for %i
12 4 16 {/i exch def /i0 i def %i=0,16
%0 4 16 {/i exch def /i0 i def %i=0,16
/i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def
i 16 eq {0.30 MM setlinewidth} {0.15 MM setlinewidth} ifelse
0 setgray
x i0 get MM y i0 get MM moveto x i1 get MM y i1 get MM lineto
x i2 get MM y i2 get MM lineto x i3 get MM y i3 get MM lineto
x i0 get MM y i0 get MM lineto stroke
i 16 eq {6 /Times-ISOL1 FS
/x00 67 def /xdif 32 def /y0o 202.3 def /y0u 6.3 def
/x0l 6.1 def /x0r 288 def /y00 22 def /ydif 32 def
x00 xdif 0 mul add MM y0o MM moveto (V) show
x00 xdif 0 mul add MM y0u MM moveto (C) show
x00 xdif 1 mul add MM y0o MM moveto (L) show
x00 xdif 1 mul add MM y0u MM moveto (M) show
x00 xdif 2 mul add MM y0o MM moveto (O) show
x00 xdif 2 mul add MM y0u MM moveto (Y) show
x00 xdif 3 mul add MM y0o MM moveto (Y) show
x00 xdif 3 mul add MM y0u MM moveto (O) show
x00 xdif 4 mul add MM y0o MM moveto (M) show
x00 xdif 4 mul add MM y0u MM moveto (L) show
x00 xdif 5 mul add MM y0o MM moveto (C) show
x00 xdif 5 mul add MM y0u MM moveto (V) show
x0l MM y00 ydif 0 mul add MM moveto (V) show
x0r MM y00 ydif 0 mul add MM moveto (C) show
x0l MM y00 ydif 1 mul add MM moveto (L) show
x0r MM y00 ydif 1 mul add MM moveto (M) show
x0l MM y00 ydif 2 mul add MM moveto (O) show
x0r MM y00 ydif 2 mul add MM moveto (Y) show
x0l MM y00 ydif 3 mul add MM moveto (Y) show
x0r MM y00 ydif 3 mul add MM moveto (O) show
x0l MM y00 ydif 4 mul add MM moveto (M) show
x0r MM y00 ydif 4 mul add MM moveto (L) show
x0l MM y00 ydif 5 mul add MM moveto (C) show
x0r MM y00 ydif 5 mul add MM moveto (V) show
} if
} for %i=0,16
0 1 10 {/j0 exch def /j1 j0 1 add def %j0
j0 0 eq {tzccmy0* setcmykcolor} if
j0 1 eq {0 setgray} if
j0 2 eq {tzmcmy0* setcmykcolor} if
j0 3 eq {0 setgray} if
j0 4 eq {tzycmy0* setcmykcolor} if
j0 5 eq {0 setgray} if
j0 6 eq {tzocmy0* setcmykcolor} if
j0 7 eq {0 setgray} if
j0 8 eq {tzlcmy0* setcmykcolor} if
j0 9 eq {0 setgray} if
j0 10 eq {tzvcmy0* setcmykcolor} if
12 4 16 {/i exch def /i0 i def %i=0,16
%0 4 16 {/i exch def /i0 i def %i=0,16
/i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def
i 16 eq {0.30 MM setlinewidth} {0.15 MM setlinewidth} ifelse
x i0 get d i0 get add 16 j0 mul add MM y i0 get MM moveto
x i0 get d i0 get add 16 j1 mul add MM y i0 get MM lineto stroke
x i1 get MM y i1 get d i1 get add 16 j0 mul add MM moveto
x i1 get MM y i1 get d i1 get add 16 j1 mul add MM lineto stroke
x i2 get d i2 get add 16 j0 mul sub MM y i2 get MM moveto
x i2 get d i2 get add 16 j1 mul sub MM y i2 get MM lineto stroke
x i3 get MM y i3 get d i3 get add 16 j0 mul sub MM moveto
x i3 get MM y i3 get d i3 get add 16 j1 mul sub MM lineto stroke
} for %i=0,16
} for %j0
0.15 MM setlinewidth
/s 7 MM def /s1 8 MM def /s5 36 MM def
16 1 20 {/j exch def /j0 j 16 sub def %j=16,20
/ix0 xlu 8 MM add j0 7 MM mul add def /iy0 ylu 8 MM sub def
0 1 3 {/ij exch def %ij=0,3
ij 0 eq {/ix0 xlu 8 MM add j0 7 MM mul add def /iy0 ylu 8 MM sub def} if
ij 1 eq {/ix0 xru 43 MM sub j0 7 MM mul add def /iy0 yru 8 MM sub def} if
ij 2 eq {/ix0 xlo 8 MM add j0 7 MM mul add def /iy0 ylo 1 MM add def} if
ij 3 eq {/ix0 xro 43 MM sub j0 7 MM mul add def /iy0 yro 1 MM add def} if
i*ptrsc 0 eq i*ptrsc 2 eq or {%i*ptrsc=0,2 cmy0* setcmykcolor
j 16 eq {tzan j get dup dup 0 setcmykcolor
ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if
tzan j get dup dup 0 setcmykcolor
ix0 iy0 s s rec fill
} if %i*ptrsc=0,2
i*ptrsc 1 eq i*ptrsc 3 eq or {%i*ptrsc=1,3 www* setrgbcolor
j 16 eq {1 tzan j get 1 sub dup dup setrgbcolor %N
ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if
1 tzan j get sub dup dup setrgbcolor %N
ix0 iy0 s s rec fill
} if %i*ptrsc=1,3
i*ptrsc 4 eq i*ptrsc 5 eq or {%i*ptrsc=4,5
[/CIEBasedABC << %Farbraum und Grenzen fuer D65
/RangeABC [0 100 -128 127 -128 127]
/DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind]
/MatrixABC [1 1 1 1 0 0 0 0 -1]
/DecodeLMN
[{dup 6 29 div ge {dup dup mul mul}
{4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind
{dup 6 29 div ge {dup dup mul mul}
{4 29 div sub 108 841 div mul} ifelse} bind
{dup 6 29 div ge {dup dup mul mul}
{4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind]
/WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65
>>] setcolorspace
j 16 eq {tznLAB* 0 get tzwLAB* 0 get tznLAB* 0 get sub 0.25 j0 mul mul add
tznLAB* 1 get tzwLAB* 1 get tznLAB* 1 get sub 0.25 j0 mul mul add
tznLAB* 2 get tzwLAB* 2 get tznLAB* 2 get sub 0.25 j0 mul mul add
setcolor %N
ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if
tznLAB* 0 get tzwLAB* 0 get tznLAB* 0 get sub 0.25 j0 mul mul add
tznLAB* 1 get tzwLAB* 1 get tznLAB* 1 get sub 0.25 j0 mul mul add
tznLAB* 2 get tzwLAB* 2 get tznLAB* 2 get sub 0.25 j0 mul mul add
setcolor %N
ix0 iy0 s s rec fill
} if %i*ptrsc=4,5
i*ptrsc 6 eq {%i*ptrsc=6 000n* setcmykcolor
j 16 eq {0 0 0 tzan j get setcmykcolor
ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if
0 0 0 tzan j get setcmykcolor
ix0 iy0 s s rec fill
} if %i*ptrsc=6
i*ptrsc 7 eq {%i*ptrsc=7 w* setgray
j 16 eq {1 tzan j get sub setgray
ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if
1 tzan j get sub setgray
ix0 iy0 s s rec fill
} if %i*ptrsc=7
} for %ij=0,3
} for %j=16,20
0 setgray
018 MM 008.2 MM moveto 6 /Times-Roman FS (-8) show
018 MM 006.2 MM moveto 6 /Times-Roman FS (-6) show
276 MM 008.2 MM moveto 6 /Times-Roman FS (-8) show
276 MM 006.2 MM moveto 6 /Times-Roman FS (-6) show
018 MM 202.2 MM moveto 6 /Times-Roman FS (-8) show
018 MM 204.2 MM moveto 6 /Times-Roman FS (-6) show
276 MM 202.2 MM moveto 6 /Times-Roman FS (-8) show
276 MM 204.2 MM moveto 6 /Times-Roman FS (-6) show
/10TIN {10 /Times-ISOL1 FS} def
/10TRN {10 /Times-Roman FS} def
/12TIN {12 /Times-ISOL1 FS} def
/12TRN {12 /Times-Roman FS} def
/10TII {10 /TimesI-ISOL1 FS} def
/10TRI {10 /Times-Italic FS} def
/12TII {12 /TimesI-ISOL1 FS} def
/12TRI {12 /Times-Italic FS} def
/10TIB {10 /TimesB-ISOL1 FS} def
/10TRB {10 /Times-Bold FS} def
/12TIB {12 /TimesB-ISOL1 FS} def
/12TRB {12 /Times-Bold FS} def
/10TIBI {10 /TimesBI-ISOL1 FS} def
/10TRBI {10 /Times-BoldItalic FS} def
/12TIBI {12 /TimesBI-ISOL1 FS} def
/12TRBI {12 /Times-BoldItalic FS} def
/12SIN {12 /Symbol FS} def
%special
/10TIN_10 {10TIN 0 -2 rmoveto
xcolor 1 eq {(10) show} if 0 2 rmoveto} def
/10TINK10 {10TIN 0 -2 rmoveto
xcolor 1 eq {(,10) show} if 0 2 rmoveto} def
/TELi0 8 array def
/TELi1 8 array def
/TELi 8 array def
/TELi0 [(P60) (P55) (P50) (P45) (P40) (P35) (P30) (P25)] def %7 illumin.
/TELi1 [(D65) (D50) (P40) (A00) (E00) (C00) (P00) (Q00)] def %7 illumin.
/xchart8 1 def %xchart8=0: Pxx, xchart8=1: Dxx
0 1 7 {/i exch def %i=0,7
xchart8 0 eq {%xchart8=0
TELi i TELi0 i get put
}%xchart8=0
{%xchart8=1
TELi i TELi1 i get put
} ifelse %xchart8=1
} for %i=0,7
%xchart41 for relative gamma:
%0:1,000, 1:0,775, 2:15g_div 3:1g=1,000, 4:15e=1,000
%5:15e=0,1000, 6:15e=0,775, 7:1g YT
/xchart41 1 def
/xchart4t 0 def
0 setgray
12TIN
61 MM 13.5 MM moveto
(TUB\255Pr\374fvorlage get8; ) showde %0get8X-Y 0000#
(TUB\255test chart get8; ) showen %1get8X-Y 0000#
(gr\341fico TUB\255get8; ) showes %2get8X-Y 0000#
(TUB\255test graphique get8; ) showfr %3get8X-Y 0000#
(grafico TUB\255get8; ) showit %4get8X-Y 0000#
(TUB\255test chart get8; ) showjp %5get8X-Y 0000#
(Pr\374fvorlagen mit 9stufigen Farbserien f\374r ) showde
(Test charts with 9 step colour series for ) showen
(linearisierte Displayausgabe) showde
(ergonomic linearized display output) showen
61 MM 09.5 MM moveto
12TIN
(Gamma\255Optimierung f\374r 15 Display\255Reflexionen nach ) showde
(Gamma optimization for 15 ambient display reflections according to ) showen
(ISO 9241\255306; ) show
xchart41 0 eq
xchart41 1 eq or
xchart41 3 eq or
xchart41 5 eq or {12SIN (g) show 10TIN 0 -2 rmoveto (rel) show 0 2 rmoveto
xchart41 0 eq {12TIN (=1,000) show} if
xchart41 1 eq {12TIN (=0,775) show} if
xchart41 3 eq {12TIN (=1,000) show} if
xchart41 5 eq {12TIN (=0,775) show} if
% ( (right)) showen
% ( (rechts)) showde
} if
xchart41 2 eq {12TIN (15 different ) showen
(15 verschiedene ) showde
12SIN (g) show 10TIN 0 -2 rmoveto (rel) show 0 2 rmoveto
} if
xchart41 4 eq {12TIN (15 equal ) showen
(15 gleiche ) showde
12SIN (g) show 10TIN 0 -2 rmoveto (rel) show 0 2 rmoveto
12TIN (=1,000) show
} if
xchart41 6 eq {12TIN (15 equal ) showen
(15 gleiche ) showde
12SIN (g) show 10TIN 0 -2 rmoveto (rel) show 0 2 rmoveto
12TIN (=0,775) show
} if
xchart41 7 eq {12TIN (Yellow colour tint) showen
(gelber Farbstich) showde
} if
%xchart 1 ge {%xchart>=1
%12TIN
%(, 3D=) show colorm cvishow
%(, de=) show deintp cvishow
%12TII
%xchart5f 0 eq {(, sRGB) show} if
%xchart5f 1 eq {(, cmyk) show} if
%xchart5f 2 eq {(, cmy0) show} if
%xchart5f 3 eq {(, cmyk) show} if
%colorm 1 eq {(*) show} if
%} if %xchart>=1
%12TIN
%188 MM 13.5 MM moveto
%(Eingabe: ) showde %0get8X-Y 0500#
%(input: ) showen %1get8X-Y 0500#
%(entrada: ) showes %2get8X-Y 0500#
%(entr\351e: ) showfr %3get8X-Y 0500#
%(immettere: ) showit %4get8X-Y 0500#
%(input: ) showjp %5get8X-Y 0500#
%12TII
%(rgb/cmy0/000k/n) show
%xchart41 0 eq {( (No 1MR)) show}
% {(->rgb ) show
% ((1MR)) show} ifelse
%xchart xchart3 lt {(w/rgb/cmyk) show
% } if
%xchart xchart3 ge {%xchart>=xchart3
% (rgb) show
% } if %xchart>=xchart3
%10 /Times-ISOL1 FS
%0 -2 rmoveto Txx show 0 2 rmoveto
%12TIN
%12TIN
%184 MM 9.5 MM moveto
%(Ausgabe: ) showde %0get8X-Y 0600#
%(output: ) showen %1get8X-Y 0600#
%(salida: ) showes %2get8X-Y 0600#
%(sortie: ) showfr %3get8X-Y 0600#
%(uscita: ) showit %4get8X-Y 0600#
%(output: ) showjp %5get8X-Y 0600#
%colorm=0,1!
%12TIN
%xchart 0 eq {%xchart=0,#0
%xchart41 0 eq {12TIN
% (no change) showen
% (keine \304nderung) showde}
% {12TIN
% (change of gamma ) showen
% (\304nderung Gamma ) showde
% 12TII
% (g) show
% 10TIN
% 0 -2 rmoveto (P) show 0 2 rmoveto} ifelse
%12TIN
%(rechts) showde %0get8X-Y 0700#
%(right) showea %1get8X-Y 0700#
%(ning\372n cambio) showes %2get8X-Y 0700#
%(aucun changement) showfr %3get8X-Y 0700#
%(nessun cambiamento) showit %4get8X-Y 0700#
%(no change compared) showjp %5get8X-Y 0700#
% }%xchart=0
% {%xchart#0
% 12TIN
% colorm 0 eq {%colorm=0
%(Transfer nach ) showde %0get8X-Y 0800#
%(transfer to ) showen %1get8X-Y 0800#
%(transfiera a ) showes %2get8X-Y 0800#
%(transf\351rer \340 ) showfr %3get8X-Y 0800#
%(trasferire a ) showit %4get8X-Y 0800#
%(transfer to ) showjp %5get8X-Y 0800#
% }%colorm=0
% {%colorm=1
%(3D\255Linearisierung ) showde %0get8X-Y 0900#
%(3D\255linearization to ) showen %1get8X-Y 0900#
%(3D\255linealizaci\363n a ) showes %2get8X-Y 0900#
%(linearisation 3D selon ) showfr %3get8X-Y 0900#
%(3D\255linearizzazione a ) showit %4get8X-Y 0900#
%(3D\255linearization to ) showjp %5get8X-Y 0900#
% } ifelse %colorm=1
%12TII
%xchart5f 0 eq {(rgb) show} if
%xchart5f 1 eq {(cmyk) show} if
%xchart5f 2 eq {(cmy0) show} if
%xchart5f 3 eq {(cmyk) show} if
%colorm 1 eq {(*) show} if
%10 /Times-ISOL1 FS
%0 -2 rmoveto Txx show 0 2 rmoveto
%12TIN
%} ifelse %xchart=0,#0
%0 setgray %end white and unvisible
%12TIN
62 MM 198.5 MM moveto
12TRN tfb (http://farbe.li.tu-berlin.de/get8/get8l) show 12TIN
(0) show %
LSC$ show LEX$ show tfn
xchart41 4 le {(; only vector graphic VG) showen
(; nur Vektorgrafik VG) showde} if
% {(; VG with ISO\255PG image) showen
% (; VG mit ISO\255PG\255Bild) showde} ifelse
%1 setgray %start white and unvisible
(; ) show
%xchart 0 eq {
(Start\255Ausgabe) showde %0get8X-Y 1000#
(start output) showen %1get8X-Y 1000#
(comience salida) showes %2get8X-Y 1000#
(sortie de production) showfr %3get8X-Y 1000#
(cominciare l'uscita) showit %4get8X-Y 1000#
(start output) showjp %5get8X-Y 1000#
% } if
%LSC$ (C) eq {
%(Start\255Ausgabe) showde %0get8X-Y 1100#
%(start output) showen %1get8X-Y 1100#
%(comience salida) showes %2get8X-Y 1100#
%(sortie de production) showfr %3get8X-Y 1100#
%(cominciare l'uscita) showit %4get8X-Y 1100#
(start output) showjp %5get8X-Y 1100#
% } if
%xchart 1 ge {%xchart>=1
%colorm 0 eq {%colorm=0,1
%(Transfer Ausgabe) showde %0get8X-Y 1200#
%(transfer output) showen %1get8X-Y 1200#
%(salida de transferencia) showes %2get8X-Y 1200#
%(sortie de transfert) showfr %3get8X-Y 1200#
%(uscita di trasferimento) showit %4get8X-Y 1200#
%(transfer output) showjp %5get8X-Y 1200#
% }%colorm=0
% {%colorm=1
%(3D\255Linearisierung) showde %0get8X-Y 1300#
%(3D\255linearization) showen %1get8X-Y 1300#
%(3D\255linealizaci\363n) showes %2get8X-Y 1300#
%(linearisation 3D) showfr %3get8X-Y 1300#
%(3D\255linearizzzazione) showit %4get8X-Y 1300#
%(3D\255linearization) showjp %5get8X-Y 1300#
% } ifelse %colorm=0,1
% } if %xchart>=1
62 MM 194 MM moveto
%LSC$ (N) eq LSC$ (C) eq or {
%(N: Keine 3D\255Linearisierung (OL) ) showde %0get8X-Y 1400#
%(N: no 3D\255linearization (OL) ) showen %1get8X-Y 1400#
%(N: ninguna 3D\255linealizaci\363n (OL) ) showes %2get8X-Y 1400#
%(N: aucun linearisation 3D (OL) ) showfr %3get8X-Y 1400#
%(N: nessun 3D\255linearizzazione (OL) ) showit %4get8X-Y 1400#
%(N: no 3D\255linearization (OL) ) showjp %5get8X-Y 1400#
%(in Datei (F) oder PS\255Startup (S)) showde %0get8X-Y 1500#
%(in file (F) or PS\255startup (S)) showen %1get8X-Y 1500#
%(en archivo (F) o PS\255startup (S)) showes %2get8X-Y 1500#
%(dans fichier (F) ou PS\255startup (S)) showfr %3get8X-Y 1500#
%(nel file (F) o PS\255startup (S)) showit %4get8X-Y 1500#
%(in file (F) or PS\255startup (S)) showjp %5get8X-Y 1500#
% }
% {LSC$ show (: ) show
%(3D\255Linearisierung) showde %0get8X-Y 1600#
%(3D\255linearization) showen %1get8X-Y 1600#
%(3D\255linealizaci\363n) showes %2get8X-Y 1600#
%(linearisation 3D) showfr %3get8X-Y 1600#
%(3D\255linearizzzazione) showit %4get8X-Y 1600#
%(3D\255linearization) showjp %5get8X-Y 1600#
%( get8/get8l) show
%LSS$ show LSX$ show (0) show %
%LSC$ show LEY$ show
% } ifelse
%LSC$ (F) eq {
%( in Datei (F)) showde %0get8X-Y 1700#
%( in file (F)) showen %1get8X-Y 1700#
%( en archivo (F)) showes %2get8X-Y 1700#
%( dans fichier (F)) showfr %3get8X-Y 1700#
%( nel file (F)) showit %4get8X-Y 1700#
%( in file (F)) showjp %5get8X-Y 1700#
% } if
%LSC$ (S) eq {
%( im Distiller Startup (S) Directory) showde %0get8X-Y 1800#
%( in Distiller Startup (S) Directory) showen %1get8X-Y 1800#
%( en el Distiller Startup (S) Directory) showes %2get8X-Y 1800#
%( dans le Distiller Startup (S) Directory) showfr %3get8X-Y 1800#
%( nel Distiller Startup (S) Directory) showit %4get8X-Y 1800#
%( in Distiller Startup (S) Directory) showjp %5get8X-Y 1800#
% } if
%LSC$ (D) eq {
%( in PS\255Device (D)) showde %0get8X-Y 1900#
%( in PS\255device (D)) showen %1get8X-Y 1900#
%( en el PS\255device (D)) showes %2get8X-Y 1900#
%( dans l'appareil PS (D)) showfr %3get8X-Y 1900#
%( nel PS\255dispositivo (D)) showit %4get8X-Y 1900#
%( in PS\255Device (D)) showjp %5get8X-Y 1900#
% } if
%LSC$ (T) eq {
%( im Distiller Startup (S) Directory) showde %0get8X-Y 2000#
%( in Distiller Startup (S) Directory) showen %1get8X-Y 2000#
%( en el Distiller Startup (S) Directory) showes %2get8X-Y 2000#
%( dans le Distiller Startup (S) Directory) showfr %3get8X-Y 2000#
%( nel Distiller Startup (S) Directory) showit %4get8X-Y 2000#
%( in Distiller Startup (S) Directory) showjp %5get8X-Y 2000#
% } if
%LSC$ (E) eq {
%( in PS\255Device (D)) showde %0get8X-Y 2100#
%( in PS\255device (D)) showen %1get8X-Y 2100#
%( en el PS\255device (D)) showes %2get8X-Y 2100#
%( dans appareil PS (D)) showfr %3get8X-Y 2100#
%( nel PS\255dispositivo (D)) showit %4get8X-Y 2100#
%( in PS\255Device (D)) showjp %5get8X-Y 2100#
% } if
%0 setgray %end white and unvisible
(compare TUB\255test chart for ) showen
(vergleiche TUB\255Pr\374tvorlage f\374r ) showde
xchart4t 0 eq {%xchart4t=0
12SIN (g) show 10TIN 0 -2 rmoveto (rel) show 0 2 rmoveto
12TIN (=1,000, ) show
12TRN tfb (http://color.li.tu-berlin.de/eem5/eem5l0np.pdf) showen
(http://farbe.li.tu-berlin.de/egm5/egm5l0np.pdf) showde tfn 12TIN
} if %xchart4t=0
xchart4t 1 eq {%xchart4t=1
12TIN (15 different ) showen
(15 verschiedene ) showde
12SIN (g) show 10TIN 0 -2 rmoveto (rel) show 0 2 rmoveto
12TIN (, ) show
12TRN tfb (http://color.li.tu-berlin.de/eem4/eem4l0np.pdf) showen
(http://farbe.li.tu-berlin.de/egm4/egm4l0np.pdf) showde tfn 12TIN
} if %xchart4t=1
xchart4t 2 eq {%xchart4t=2
12SIN (g) show 10TIN 0 -2 rmoveto (rel) show 0 2 rmoveto
12TIN (=0,775, ) show
12TRN tfb (http://color.li.tu-berlin.de/eem6/eem6l0np.pdf) showen
(http://farbe.li.tu-berlin.de/egm6/egm6l0np.pdf) showde tfn 12TIN
} if %xchart4t=0
12TIN
(, Seite ) showde %0get8X-Y 2200#
(, page ) showen %1get8X-Y 2200#
(, p\341gina ) showes %2get8X-Y 2200#
(, page ) showfr %3get8X-Y 2200#
(, pagina ) showit %4get8X-Y 2200#
(, page ) showjp %5get8X-Y 2200#
xchart 1 add cvishow (/) show
xchartm cvishow
16 MM 185 MM moveto
-90 rotate
%(Siehe \344hnliche Dateien: ) showde %0get8X-Y 2300#
%(see similar files: ) showen %1get8X-Y 2300#
%(vea archivos semejantes: ) showes %2get8X-Y 2300#
%(voir des fichiers similaires: ) showfr %3get8X-Y 2300#
%(vedere dei file simili: ) showit %4get8X-Y 2300#
%(see similar files: ) showjp %5get8X-Y 2300#
(Gammasoftware und Links zu ISO\255Pr\374fvorlagen ) showde
(see gamma software and links to ISO\255test charts ) showen
12TRN tfb (http://color.li.tu-berlin.de/eem1/eem1l0np.pdf) showen
(http://farbe.li.tu-berlin.de/egm1/egm1l0np.pdf) showde tfn 12TIN
%(0) show %
%LSC$ show LEX$ show
90 rotate
12 MM 185 MM moveto
-90 rotate
(Technische Information: ) showde %0get8X-Y 2400#
(technical information: ) showen %1get8X-Y 2400#
(informaci\363n t\351cnica: ) showes %2get8X-Y 2400#
(informations techniques: ) showfr %3get8X-Y 2400#
(informazioni tecniche: ) showit %4get8X-Y 2400#
(technical information: ) showjp %5get8X-Y 2400#
12TRN tfb (http://farbe.li.tu-berlin.de) show tfn 12TIN
( oder ) showde %0get8X-Y 2500#
( or ) showen %1get8X-Y 2500#
( o ) showes %2get8X-Y 2500#
( ou ) showfr %3get8X-Y 2500#
( o ) showit %4get8X-Y 2500#
( or ) showjp %5get8X-Y 2500#
12TRN tfb (http://color.li.tu-berlin.de) show tfn 12TIN
90 rotate
281 MM 185 MM moveto
-90 rotate
(TUB\255Registrierung: 20230615\255get8/get8l) showde %0get8X-Y 2600#
(TUB registration: 20230615\255get8/get8l) showen %1get8X-Y 2600#
(TUB matr\355cula: 20230615\255get8/get8l) showes %2get8X-Y 2600#
(TUB enregistrement: 20230615\255get8/get8l) showfr %3get8X-Y 2600#
(TUB iscrizione: 20230615\255get8/get8l) showit %4get8X-Y 2600#
(TUB registration: 20230615\255get8/get8l) showjp %5get8X-Y 2600#
(0) show %
LSC$ show LEX$ show
90 rotate
281 MM 74 MM moveto
-90 rotate
(TUB\255Material: Code=rha4ta) showde %0get8X-Y 2700#
(TUB material: code=rha4ta) showen %1get8X-Y 2700#
(TUB material: code=rha4ta) showes %2get8X-Y 2700#
(TUB mat\351riel: code=rha4ta) showfr %3get8X-Y 2700#
(TUB materiale: code=rha4ta) showit %4get8X-Y 2700#
(TUB material: code=rha4ta) showjp %5get8X-Y 2700#
90 rotate
277 MM 185 MM moveto
-90 rotate
/cvishow {cvi 6 string cvs show} def
/cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def
( Anwendung f\374r Beurteilung und Messung ) showde %0get8X-Y 2800#
( application for evaluation and measurement ) showen %1get8X-Y 2800#
( aplicaci\363n para la medida ) showes %2get8X-Y 2800#
( application pour la mesure ) showfr %3get8X-Y 2800#
( la domanda per la misura ) showit %4get8X-Y 2800#
( application for measurement ) showjp %5get8X-Y 2800#
xchart5f 0 eq {%xchart5f=0
(von Display\255 oder Druck\255Ausgabe) showde %0get8X-Y 2900#
(of display or print output) showen %1get8X-Y 2900#
(de display output) showes %2get8X-Y 2900#
(de sortie sur \350cran) showfr %3get8X-Y 2900#
(di stampa di display) showit %4get8X-Y 2900#
(of display output) showjp %5get8X-Y 2900#
} if %xchart5f=0
xchart5f 1 eq xchart5f 2 eq or {%xchart5f=1,2
(von Offsetdruck\255Ausgabe) showde %0get8X-Y 3000#
(of offset print output) showen %1get8X-Y 3000#
(salida en la impressi\363n offset) showes %2get8X-Y 3000#
(des sorties sur offset) showfr %3get8X-Y 3000#
(uscita nella stampa di offset) showit %4get8X-Y 3000#
(of offset print output) showjp %5get8X-Y 3000#
} if %xchart5f=1,2
xchart5f 3 eq {%xchart5f=3
(von Laserdrucker\255Ausgabe) showde %0get8X-Y 3100#
(of laser printer output) showen %1get8X-Y 3100#
(salida de impresora l\341ser) showes %2get8X-Y 3100#
(des sorties sur imprimante laser) showfr %3get8X-Y 3100#
(di uscita della stampante laser) showit %4get8X-Y 3100#
(of laser printer output) showjp %5get8X-Y 3100#
} if %xchart5f=3
%xchart 1 ge {%xchart>=1
%xchart5f 0 eq {%xchart5f=0
%(, keine Separation) showde %0get8X-Y 3200#
%(, no separation) showen %1get8X-Y 3200#
%(, ninguna separaci\363n) showes %2get8X-Y 3200#
%(, aucune s\351paration) showfr %3get8X-Y 3200#
%(, nessuna separazione) showit %4get8X-Y 3200#
%(, no separation) showjp %5get8X-Y 3200#
%} if %chart5f=0
%xchart5f 1 ge {%xchart5f>=1
%(, Separation) showde %0get8X-Y 3300#
%(, separation) showen %1get8X-Y 3300#
%(, separaci\363n) showes %2get8X-Y 3300#
%(, s\351paration) showfr %3get8X-Y 3300#
%(, separazione) showit %4get8X-Y 3300#
%(, separation) showjp %5get8X-Y 3300#
%xchart5f 1 eq xchart5f 3 eq or {(cmyn6) show} if
%xchart5f 2 eq {(cmy0) show} if
%colorm 1 eq {(*) show} if
%colsep 0 eq {( (CMYK))}{( (CMY0))} ifelse show
%} if %xchart5f>=1
%
% } if %xchart>=1
IMES 1 eq LSC$ (N) ne and { %IMES=1
(, Yr=) show Yre cvsshow1 (, XYZ) show
} if %IMES=1
90 rotate
/i0 8 def
/i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def
0.30 MM setlinewidth
0 setgray
x i0 get MM y i0 get MM moveto x i1 get MM y i1 get MM lineto
x i2 get MM y i2 get MM lineto x i3 get MM y i3 get MM lineto
x i0 get MM y i0 get MM lineto stroke
%/xlu1 013 MM def /ylu1 010 MM def
%/xro1 283 MM def /yro1 200 MM def
%/xlo1 013 MM def /ylo1 200 MM def
%/xru1 283 MM def /yru1 010 MM def
%xlu1 4 MM sub ylu1 moveto 8 MM 0 rlineto stroke
%xlu1 ylu1 4 MM sub moveto 0 8 MM rlineto stroke
%xro1 4 MM add yro1 moveto -8 MM 0 rlineto stroke
%xro1 yro1 4 MM add moveto 0 -8 MM rlineto stroke
%xru1 4 MM sub yru1 moveto 8 MM 0 rlineto stroke
%xru1 yru1 4 MM sub moveto 0 8 MM rlineto stroke
%xlo1 4 MM add ylo1 moveto -8 MM 0 rlineto stroke
%xlo1 ylo1 4 MM add moveto 0 -8 MM rlineto stroke
} ifelse %xt=1
grestore
gsave
%**********************************************************
%%Trailer
%%EndDocument
EndEPSF grestore gsave
showpage
grestore
%} for %colsepf=0,1
%} for %pchartf=0,0
} for %xchartf=0,0
%} for %xcolorf=0,1
%} for %deintpf=0,1
%} for %colormf=0,1
%} for %lanindf=0,0
%%Trailer