%!PS-Adobe-3.0 EPSF-3.0 AGB31-7N.EPS
%%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-7N) show

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

ix1  iy0 moveto
(File transfer VG\255PDF of AEB31-3N to PG\255eps of ) nshowea
(AEB30-4N) nshowea
(Dateitransfer VG\255PDF von AGB31-3N nach PG\255eps von ) nshowde
(AGB30-4N) nshowde

0 iy0 100 sub moveto xwidth 0 rlineto stroke

ix1  iy0 300 sub moveto
(Software: ) nshowea
(Software: ) nshowde
(GraphicConcerter V5.2 (2010) included in Mac OSX V10.6.8.) kshowea
(GraphicConcerter V5.2 (2010) enthalten in Mac OSX V10.6.8.) kshowde

ix1  iy0 500 sub moveto
(Download of V11 (2020) with equal output, see ) nshowea
(Download von V11 (2020) mit gleicher Ausgabe: ) nshowde
(http://www.lemkesoft.com.) kshow


/PSTEXT 100 array def
/PSTEXT
[
(01 %!PS-Adobe-3.0 EPSF-3.0)
(02 %%Creator: GraphicConverter V5.2.2 X)
(03 %%Title: AEB31-3N.eps)
(04 %%CreationDate: 2020-03-14)
(05 %%Pages: 1)
(06 %%BoundingBox: 0 0 168 120)
(07 %%EndComments)
(08 %%BeginProlog)
(09 /readstring {)
(10  currentfile exch readhexstring pop)
(11 } bind def)
(12 /rpicstr 350 string def)
(13 /gpicstr 350 string def)
(14 /bpicstr 350 string def)
(15 %%EndProlog)
(16 %%Page: 1 1)
(17 gsave)
(18 0 0 translate)
(19 168 120 scale)
(20 350 252 8)
(21 [ 350 0 0 -252 0 252 ])
(22 { rpicstr readstring })
(23 { gpicstr readstring })
(24 { bpicstr readstring })
(25 true 3)
(26 colorimage)
(27 fffffffffffffffffffff)
(28 ...)
(29 %about 6600 lines deleted here)
(30 ...)
(31 fffffffffffff)
(32 grestore)
(33 showpage)
(34 %%EOF)
] def

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

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

/iy1 900 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 06:  the original ) nshowea
(Zeile 06: Die Original\255) nshowde
CSS
(%%BoundingBox 70 85 238 206 ) show
(is not used.) nshowea
(wird nicht benutzt.) nshowde

ix1 iy1 iyd 2 mul sub moveto
(line 18:  The original shift of the cero point ) nshowea
(Zeile 18: Die Original\255Nullpunktsverschiebung ) nshowde
(is not used.) showea
(ist nicht benutzt.) showde

ix1 650 add iy1 iyd 3 mul sub moveto
(For all the original data see AEB31-4N.) kshowea
(F\374r alle Originaldaten, siehe AGB31-4N.) kshowde

ix1 iy1 iyd 4.2 mul sub moveto
(lines 27 to 31: only a few of the about 6600 lines are listed here.) nshowea
(Zeilen 27 bis 31: Nur wenige der 6600 Zeilen sind hier gelistet.) nshowde
                
%************************************************************************************************

showpage
grestore


%%Trailer