%!PS-Adobe-3.0 EPSF-3.0 AGF01-3N
%%BoundingBox: 70 85 238 206

%START PDFDE011.EPS
/pdfmark13 where {pop} {userdict /pdfmark13 /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/AGF0/AGF0.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:2020030112000)
 /ModDate (D:2020030112000)
/DOCINFO pdfmark13
[ /View [ /Fit ]
/DOCVIEW pdfmark13
%END  PDFDE011

/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

/TSSS {120 /Times-ISOL1 FS} bind def
/TSS {150 /Times-ISOL1 FS} bind def
/TS {200 /Times-ISOL1 FS} bind def
/TK {250 /Times-ISOL1 FS} bind def
/TM {300 /Times-ISOL1 FS} bind def
/TG {350 /Times-ISOL1 FS} bind def

/TISS {150 /TimesI-ISOL1 FS} bind def
/TIS {200 /TimesI-ISOL1 FS} bind def
/TIK {250 /TimesI-ISOL1 FS} bind def
/TIM {300 /TimesI-ISOL1 FS} bind def
/TIG {350 /TimesI-ISOL1 FS} bind def

/TBSS {150 /TimesB-ISOL1 FS} bind def
/TBS {200 /TimesB-ISOL1 FS} bind def
/TBK {250 /TimesB-ISOL1 FS} bind def
/TBM {300 /TimesB-ISOL1 FS} bind def
/TBG {350 /TimesB-ISOL1 FS} bind def

/TBISS {150 /TimesBI-ISOL1 FS} bind def
/TBIS {200 /TimesBI-ISOL1 FS} bind def
/TBIK {250 /TimesBI-ISOL1 FS} bind def
/TBIM {300 /TimesBI-ISOL1 FS} bind def
/TBIG {350 /TimesBI-ISOL1 FS} bind def

/TYSSS {120 /Symbol FS} bind def
/TYSS {150 /Symbol FS} bind def
/TYS {200 /Symbol FS} bind def
/TYK {250 /Symbol FS} bind def
/TYM {300 /Symbol FS} bind def
/TYG {350 /Symbol FS} 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

/lanind 0 def
/lantex [(G) (E) (S) (N) (I) (J) (M)] def
/showde {0 lanind eq {show} {pop} ifelse} bind def
/showen {1 lanind eq {show} {pop} ifelse} bind def
/showes {2 lanind eq {show} {pop} ifelse} bind def
/showfr {3 lanind eq {show} {pop} ifelse} bind def
/showit {4 lanind eq {show} {pop} ifelse} bind def
/showjp {5 lanind eq {show} {pop} ifelse} bind def
/showea {1 lanind le {show} {pop} ifelse} bind def
 
/lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def
                    /lanindd laninddf def}
               {/lanind1 0 def /lanind2 0 def} ifelse
/xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def
                    /xchartd xchartdf def
                    /xchartm xchart2f xchart1f sub 1 add def}
               {/xchart1 0 def /xchartm 1 def} ifelse

%either defaul values for xchart=0 or values for xchart=1
/lanind lanind1 def %
/xchart xchart1 def %

%%EndProlog
gsave

4 /Times-Roman FS
73 86 moveto
(AGF01-3N) show

72 90 translate

0.01 MM 0.01 MM scale
30 setlinewidth
/xwidth 24600 0.237 mul def
/ywidth 16900 0.237 mul def
0 0  moveto xwidth 0 rlineto 0 ywidth rlineto 
        xwidth neg 0 rlineto closepath stroke

%************************************************************************************************
/ix1   50 def %1

/iyd 250 def
/iy0 3750 def
/iy1 3300 def
/iy2 iy1 iyd 1 mul sub def
/iy3 iy1 iyd 2 mul sub def
/iy4 iy1 iyd 3 mul sub def
/iy5 iy1 iyd 4 mul sub def
/iy6 iy1 iyd 5 mul sub def
/iy7 iy1 iyd 6 mul sub def
/iy8 iy1 iyd 7 mul sub def
/iy9 iy1 iyd 8 mul sub 100 sub def
/iy10 iy1 iyd 9 mul sub 100 sub def
/iy11 iy1 iyd 10 mul sub 100 sub def
/iy12 iy1 iyd 11 mul sub 100 sub def
/iy13 iy1 iyd 12 mul sub 100 sub def

ix1 iy0 moveto
TBK
(Output test of colour devices at the work places) showea
(Ausgabepr\374fung von Farbger\344ten an Arbeitspl\344tzen) showde

0 iy0 100 sub moveto xwidth 0 rlineto stroke

ix1  iy1 100 add moveto
TBS
(The visual colours change by the software and:) showea
(Die visuellen Farben \344ndern sich mit der Software und:) showde

ix1 80 add iy2 100 add moveto
TS
(on displays with the reflection of the room light.) showea
(auf Displays mit der Reflexion des Raumlichtes,) showde

ix1 80 add iy3 100 add moveto
TS
(in print with the printer driver and the workflow.) showea
(im Druck mit dem Druckertreiber und Workflow.) showde

ix1 iy4 moveto
TS
(The luminance contrast ratio between White W and Black N determine,) showea
(Das Leuchtdichteverh\344ltnis von Wei\337 W und Schwarz N bestimmen,) showde

ix1 iy5 moveto
TS
(if the 9 gray steps between N and W appear equally spaced.) showea
(ob die 9 Graustufen zwischen N und W gleich gestuft erscheinen.) showde

ix1 iy6 moveto
TBS
(Equal spacing shall apear for the intended device output:) showea
(Gleichabst\344ndige Stufung soll f\374r die Ger\344teausgabe erscheinen:) showde

ix1 80 add iy7 moveto
TS
(on displays for the output within the broken red rectangle.) showea
(auf Displays f\374r Ausgabe innerhalb vom gestrichelten roten Rechteck.) showde

ix1 80 add iy8 moveto
TS
(in print for the output within the continuous red rectangle.) showea
(im Druck f\374r Ausgabe innerhalb vom kontinuierlichen roten Rechteck.) showde

ix1 iy9 moveto
TBS
(If this is NOT the case, then determine visually with the next page) showea
(Ist dies NICHT der Fall, dann bestimme visuell mit n\344chster Seite) showde

ix1 iy10 moveto
TBS
(the ISO\255contrast step which gives the intended result.) showea
(die ISO\255Kontraststufe welche das gew\374nschte Ergebnis erzielt.) showde

ix1 iy11 moveto
TS
(You may ask the device manufacturer for software solutions.) showea
(Sie k\366nnen den Ger\344tehersteller nach Softwarel\366sungen fragen.) showde

ix1 iy12 moveto
TS
(You may change the PDF\255file gamma to produce the intended result.) showea
(Sie k\366nnen das PDF\255Datei\255Gamma f\374r das Ziel \344ndern.) showde

ix1 iy13 moveto
TS
(Different gamma\255change methods in VG or ) showea
(PG graphics are available.) showea
(Gamma\255\304nderungsmethoden in VG\255 oder ) showde
(PG\255Grafik sind verf\374gbar.) showde

%************************************************************************************************

grestore

showpage
%%Trailer