%!PS-Adobe-3.0 EPSF-3.0 AGB31-4N
%%BoundingBox: 70 85 228 335

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

/TISSS {150 /TimesI-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

/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

/cvi001 {/xi exch def
         /xia xi abs 0.5 add cvi def
         xia    0 ge xia    9 le     {(0) show} if
         xia cvishow
         } bind def

%%EndProlog

/lanind 0 def
/lantex [(G) (E) (S) (N) (I) (J) (M)] def
/showde {0 lanind eq {show} {pop} ifelse} bind def
/showen {1 lanind eq {show} {pop} ifelse} bind def
/showes {2 lanind eq {show} {pop} ifelse} bind def
/showfr {3 lanind eq {show} {pop} ifelse} bind def
/showit {4 lanind eq {show} {pop} ifelse} bind def
/showjp {5 lanind eq {show} {pop} ifelse} bind def
/showea {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
/colormf where {pop /colorm1 colormf def /colorm2 colormf def
                    /colormd colormdf def}
               {/colorm1 0 def} ifelse
/deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def
                    /deintpd deintpdf def}
               {/deintp1 0 def} ifelse
/xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def
                    /xcolord xcolordf def}
               {/xcolor1 0 def} ifelse
/xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def
                    /xchartd xchartdf def
                    /xchartm xchart2f xchart1f sub 1 add def}
               {/xchart1 0 def /xchartm 1 def} ifelse
/xchart3f where {pop /xchart3 xchart3f def}
                {/xchart3 0 def} ifelse
/xchart4f where {pop /xchart4 xchart4f def}
                {/xchart4 0 def} ifelse
/pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def
                    /pchartd pchartdf def}
               {/pchart1 3 def} ifelse
/colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def
                    /colsepd colsepdf def}
               {/colsep1 0 def} ifelse
/pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def
                    /pmetamd pmetamdf def}
               {/pmetam1 0 def} ifelse

%either defaul values for xchart=0 or values for xchart=1
/lanind lanind1 def %
/colorm colorm1 def %
/deintp deintp1 def %
/xcolor xcolor1 def %
/xchart xchart1 def %
/pchart pchart1 def %
/colsep colsep1 def %
/pmetam pmetam1 def %

colorm 0 eq deintp 0 eq and {/Txx (d) def  /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 xchart3 lt {/Txx (-) def /Fxx (-) def} if

gsave
%lanindL2 END

/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

/nshow {iyd /Times-ISOL1 FS show} def
/nishow {-30 -50 rmoveto iyd 50 sub /Times-ISOL1 FS show 30 50 rmoveto} def
/nishow0 {-30 -50 rmoveto iyd 50 sub /Times-ISOL1 FS show 00 50 rmoveto} def
/nishowx {-00 -50 rmoveto iyd 50 sub /Times-ISOL1 FS show 00 50 rmoveto} def
/kshow {iyd /TimesI-ISOL1 FS show} def
/bshow {iyd /TimesB-ISOL1 FS show} def
/jshow {iyd /TimesBI-ISOL1 FS show} def
/ishow {-30 -50 rmoveto iyd 50 sub /TimesB-ISOL1 FS show 30 50 rmoveto} def
/ishow0 {-30 -50 rmoveto iyd 50 sub /TimesB-ISOL1 FS show 00 50 rmoveto} def
/eshow { 00 110 rmoveto iyd 50 sub /TimesB-ISOL1 FS show 00 -110 rmoveto} def
/neshow { 00 110 rmoveto iyd 50 sub /Times-ISOL1 FS show 00 -110 rmoveto} def
/neshowx { 00 70 rmoveto iyd 50 sub /Times-ISOL1 FS show 00 -70 rmoveto} def

/nshowde {0 lanind eq {nshow} {pop} ifelse} bind def
/nshowen {1 lanind eq {nshow} {pop} ifelse} bind def
/nishowde {0 lanind eq {nishow} {pop} ifelse} bind def
/nishowen {1 lanind eq {nishow} {pop} ifelse} bind def
/kshowde {0 lanind eq {kshow} {pop} ifelse} bind def
/kshowen {1 lanind eq {kshow} {pop} ifelse} bind def
/bshowde {0 lanind eq {bshow} {pop} ifelse} bind def
/bshowen {1 lanind eq {bshow} {pop} ifelse} bind def
/jshowde {0 lanind eq {jshow} {pop} ifelse} bind def
/jshowen {1 lanind eq {jshow} {pop} ifelse} bind def
/ishowde {0 lanind eq {ishow} {pop} ifelse} bind def
/ishowen {1 lanind eq {ishow} {pop} ifelse} bind def

/nshowea {1 lanind le {nshow} {pop} ifelse} bind def
/nishowea {1 lanind le {nishow} {pop} ifelse} bind def
/kshowea {1 lanind le {kshow} {pop} ifelse} bind def
/nshowea {1 lanind le {nshow} {pop} ifelse} bind def
/kshowea {1 lanind le {kshow} {pop} ifelse} bind def
/ishowea {1 lanind le {ishow} {pop} ifelse} bind def

gsave

72 90 translate

0.01 MM dup scale

15 setlinewidth

gsave
/xwidth 5450 def
/ywidth 8500 def
15 setlinewidth
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

TSSS
0 setgray
100 -110 moveto
(AGB31-4N) show

%******************************************************************
/ix1   20 def %1
/iyd  170 def %line difference
/iy0 8310 def %header

ix1  iy0 moveto
(Main content of the two coded VG\255PS files ) nshowea
(Hauptinhalt der beiden handcodierten VG\255PS\255Dateien ) nshowde
(AEB31-(1/3)N) nshowea
(AGB31-(1/3)N) nshowde

0 iy0 100 sub moveto xwidth 0 rlineto stroke

ix1  iy0 300 sub moveto
(Reference: ) nshowea
(Literatur: ) nshowde
(Adobe Systems: PostScript Language Reference Manual, see) kshow

ix1  iy0 500 sub moveto
(http://www.adobe.com/jp/print/postscript/pdfs/PLRM.pdf) kshow

/PSTEXT 100 array def
/PSTEXT
[
(01 %!PS-Adobe-3.0 EPSF-3.0 AEB31-1N)
(02 %%BoundingBox: 70 85 238 206)
(03 ...)
(04 /FFM_setrgbcolor {setrgbcolor} bind def)
(05 /1MR-0000 {%BEG procedure 1MR-0000)
(06 %Transfer setgray and setcymkcolor to FFM_setrgbcolor)
(07 ...)
(08 } def %END procedure 1MR-0000)
(09)
(10 /iproc1MR 0 def %31-1N: 0 def, 31-3N: 1 def)
(11 %/1MR-0000G where {pop 1MR-0000G}{1MR-0000F} ifelse)
(12 iproc1MR 1 eq {1MR-0000} if)
(13 ...)
(14 73 86.5 moveto (AEB31-1N, ) show)
(15 iproc1MR 0 eq {(No 1MR) show}{(1MR) show} ifelse)
(16 72 90 translate)
(17 0.00237 MM dup scale)
(18 ...)
(19 0 setgray)
(20 0 0  moveto 24600 0 rlineto 0 16900 rlineto)
(21            -24600 0 rlineto closepath stroke)
(22 ...)
(23 /xa 600 def /ya 600 def)
(24 /xd 600 def /xd2 300 def /xd4 150 def)
(25 r g b setrgbcolor)
(26 xa ya xd dup rec fill)
(27 1 r sub 1 g sub 1 b sub 0 setcmykcolor)
(28 xa xd4 add ya xd4 add xd2 dup rec fill)
(29 ...)
(30 showpage)
(31 %%EOF)
] def

/CSS {160 /Courier-Bold FS} bind def
CSS

0 1 30 {/i exch def %i=0,30
ix1 iy0 190 i 1 add mul sub 600 sub moveto PSTEXT i get show
} for %i=0,30

/iy1 1500 def %cero line lower text

ix1 iy1 iyd 0 mul sub moveto (Remarks:) nshowea (Erl\344uterungen:) nshowde

ix1 iy1 iyd 1 mul sub moveto
(line 02: Definition of the original ) nshowea
(Zeile 02: Definition der Original\255) nshowde
CSS
(%%BoundingBox 70 85 238 206.) show

ix1 iy1 iyd 2 mul sub moveto
(line 04 to 08: Definition of the procedure 1MR, compare ) nshowea
(Zeile 04 bis 08: Definition der Prozedur 1MR, vergleiche ) nshowde
(AEB30-1N.) showea
(AGB30-1N.) showde

ix1 iy1 iyd 3 mul sub moveto
(line 10 to 12: Use of 1MR for ) nshowea
(Zeile 10\25512: Benutzung von 1MR f\374r  ) nshowde
CSS
(/iproc1MR 1 def.) show

ix1 iy1 iyd 4 mul sub moveto
(line 16:  The original shift of the cero point is ) nshowea
(Zeile 16: Die Original\255Nullpunktsverschiebung ist ) nshowde
CSS
(72 90 translate.) show

ix1 iy1 iyd 5 mul sub moveto
(line 14 to 15: The text output is below the cero point of the rectangle.) nshowea
(Zeile 14\25515: Die Textausgabe ist unter dem Recktecknullpunkt.) nshowde

ix1 iy1 iyd 6 mul sub moveto
(line 20 to 21: Draw of the rectangle in mm reduced by a factor 0,237.) nshowea
(Zeile 20\25521: Zeichnen des Rechtecks in mm reduziert um den Faktor 0,237.) nshowde

ix1 iy1 iyd 7 mul sub moveto
(line 23 mto 26: Fill of large squares with colours by ) nshowea
(Zeile 23\25526. F\374lle gro\337e Quadrate mit Farben von ) nshowde
CSS
(rgb setrgbcolor.) show

ix1 iy1 iyd 8 mul sub moveto
(line 27 to 28: Fill small squares with colours by ) nshowea
(Zeile 27\25528. F\374lle kleine Quadrate mit Farben von ) nshowde
CSS
(cmyk setcmykcolor.) show

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

showpage
grestore


%%Trailer