%!PS-Adobe-3.0 EPSF-3.0 www.ps.bam.de/DG02/10F/F10GS4(A/P).(TXT/PS/PDF) 20011020 %%BoundingBox: 14 08 584 828 /pdfmark where {pop} {userdict /pdfmark /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put } if [ /Title (PostScript pictures: www.ps.bam.de/DG02/DG02.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: www.ps.bam.de or http://o2.ps.bam.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@bam.de) /CreationDate (D:2001102012000) /ModDate (D:2001102012000) /DOCINFO pdfmark [ /View [ /Fit ] /DOCVIEW pdfmark %BEG MF10GS4.PS % 0 1 2 3 4 % 5 6 7 /EX$ [(A.PS/.TXT) (B.PS/.BMP) (G.PS/.GIF) (H.PS/.HTM) (I.PS/.HTM) (J.PS/.JPE) (P.PS/.PDF) (T.PS/.TIF) ] def /GEX$ EX$ 0 get def %BEG MF10GS1P.DAT Measurement of file F10GS1P.PDF /CFilenameS1 (www.ps.bam.de/DG02/10F/F10GS1) def %File name measured in step S1 /CDeviceS1 (Device: (F); ) def %Device name and file measured /CMeasS1 (Meas.: F10GS1) def %File name measured in step S1 /CDateS1 (Date: M010203) def %Date of calculation/measurement /inputarrayS1 [0 17 34 51 68 85 102 119 136 153 170 187 204 221 238 255] bind def /outputarrayS1 [%ouptut series F...0 (Black to White) = 32 colours 5.6 10.4 15.4 20.4 25.4 30.4 35.4 40.4 50.4 56.4 65.4 70.6 80.6 84.5 88.5 92.8 5.6 10.4 15.4 20.4 25.4 30.4 35.4 40.4 50.4 56.4 65.4 70.6 80.6 84.5 88.5 92.8 ] bind def %ouptut series F...0 /L*NgS1 outputarrayS1 0 get outputarrayS1 16 get add 0.5 mul 0.01 add def /L*WgS1 outputarrayS1 15 get outputarrayS1 31 get add 0.5 mul 0.01 sub def %/L*NgS1 18.01 def /L*WgS1 95.41 def /L*NS1 L*NgS1 def /L*WS1 L*WgS1 def %END MF10GS1P.DAT %BEG MF10GS2P.DAT Measurement of file F10GS2P.PDF /CFilenameS2 (www.ps.bam.de/DG02/10F/F10GS2) def %File name measured in step S2 /CDeviceS2 (Device: (F); ) def %Device name and file measured /CMeasS2 (Meas.: F10GS2) def %File name measured in step S2 /CDateS2 (Date: M010203) def %Date of calculation/measurement /inputarrayS2 [0 17 34 51 68 85 102 119 136 153 170 187 204 221 238 255] bind def /outputarrayS2 [%ouptut series F...0 (Black to White) = 32 colours 14.44 19.53 24.43 29.38 34.34 39.33 44.40 49.68 54.58 59.56 64.30 69.78 75.14 80.32 85.80 91.41 14.44 19.53 24.43 29.38 34.34 39.33 44.40 49.68 54.58 59.56 64.30 69.78 75.14 80.32 85.80 91.41 ] bind def %ouptut series F...0 /L*NgS2 outputarrayS2 0 get outputarrayS2 16 get add 0.5 mul 0.01 add def /L*WgS2 outputarrayS2 15 get outputarrayS2 31 get add 0.5 mul 0.01 sub def /L*NgS2 14.01 def /L*WgS2 91.41 def %/L*NS2 L*NgS2 def /L*WS2 L*WgS2 def %END MF10GS2P.DAT /lanind 0 def %referrence data for equidistant colour series %colour names N,W,C,M,Y,O,L,V see ISO 15775 %last number of name indicates test chart number /LABN101 [01 10.00 0.00 0.00] def %LABN101 ISO/IEC 15775:1999, Table L.1 /LABW941 [02 94.00 0.00 0.00] def %LABW941 ISO/IEC 15775:1999, Table L.1 /LABC002 [03 58.62 -30.63 -42.75] def %LABC002 ISO 2846-1:1997, Table D.3 /LABM002 [04 48.13 75.20 -6.80] def %LABM002 ISO 2846-1:1997, Table D.3 /LABY002 [05 90.37 -11.16 96.17] def %LABY002 ISO 2846-1:1997, Table D.3 /LABN183 [06 18.01 0.50 -0.47] def %LABN183 ISO 2846-1:1997, Table D.3 /LABW953 [07 95.41 -0.99 4.76] def %LABW953 ISO 2846-1:1997, Table D.3 /LABO004 [08 47.94 65.31 52.07] def %LABO004 ISO/IEC 15775:1999, Table 1 /LABL004 [09 50.90 -62.97 36.71] def %LABL004 ISO/IEC 15775:1999, Table 1 /LABV004 [10 25.72 31.45 -44.36] def %LABV004 ISO/IEC 15775:1999, Table 1 /LABN075 [11 07.00 0.00 0.00] def %LABN075 ISO/IEC 15775:1999, Table L.2 /LABW915 [12 91.00 0.00 0.00] def %LABN915 ISO/IEC 15775:1999, Table L.2 /LABN157 [13 15.01 0.00 0.00] def %LABN157 offset contrast range=18.01-3 /LABW917 [14 92.41 0.00 0.00] def %LABN917 offset contrast range=95.41-3 %LABREFX for full colour (N,C,M,Y,O,L,V) and LABREFW for white material /LABREFX [06 18.01 0.00 0.00] def %only L*N ISO 2846-1:1997, Table D.3 /LABREFW [07 95.41 0.00 0.00] def %only L*W ISO 2846-1:1997, Table D.3 %END MF10GSX.PS End Measurement data of file in step S1 and step S2 for the device (A) /BeginEPSF { % def % Prepare for EPS file /b4_Inc_state save def % Save state for cleanup /dict_count countdictstack def /op_count count 1 sub def % Count objects on op stack userdict begin % Make userdict current dict /showpage {} def 0 setgray 0 setlinecap 1 setlinewidth 0 setlinejoin 10 setmiterlimit [] 0 setdash newpath /languagelevel where % If level not equal to 1 then {pop languagelevel where % If level not equal to 1 then 1 ne {false setstrokeadjust false setoverprint } if } if } bind def /EndEPSF { % def count op_count sub {pop} repeat countdictstack dict_count sub {end} repeat % Clean up dict stack b4_Inc_state restore } bind def /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def % !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /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 /proz1 {pop} bind def /proz2 {sqrt} bind def /setgc {pop pop pop 1 exch sub setgray} bind def /setgm {pop pop 1 exch sub setgray pop} bind def /setgy {pop 1 exch sub setgray pop pop} bind def /setgn {1 exch sub setgray pop pop pop} bind def /setgf {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def 0 ccolor eq 0 mcolor eq and 0 ycolor eq and {1 ncolor sub setgray} {1 ccolor sub 0.71 mul 1 mcolor sub 0.22 mul add 1 ycolor sub 0.07 mul add setgray} ifelse } bind def /setsc {075 135 {proz1} setscreen } bind def /setsm {075 090 {proz1} setscreen } bind def /setsy {075 000 {proz1} setscreen } bind def /setsn {075 045 {proz1} setscreen } bind def /setsf {075 135 {proz1} 075 090 {proz1} 075 000 {proz1} 075 045 {proz1} setcolorscreen } bind def /setcmykcolorf {setcmykcolor setsf} bind def %fuer PSL1/2-Farbgeraet %ANFA HALBTON /Halbt { %wrbie:HALBTOA0.eps } 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 %ANFA SETCMYK /setcmyknew { %Ersatz setcolornew durch setcmykcolor1 ausz 1 eq {setgc half 0 eq {setsc} if} if %C ausz 2 eq {setgm half 0 eq {setsm} if} if %M ausz 3 eq {setgy half 0 eq {setsy} if} if %Y ausz 4 eq {pop pop pop /ccolor exch def ccolor 0 0 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgc setsc} %PSL1-SW-Geraet ifelse } if %Cbunt ausz 5 eq {pop pop /mcolor exch def pop 0 mcolor 0 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgm setsm} %PSL1-SW-Geraet ifelse } if %Mbunt ausz 6 eq {pop /ycolor exch def pop pop 0 0 ycolor 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgy setsy} %PSL1-SW-Geraet ifelse } if %Ybunt ausz 7 eq {setgn half 0 eq {setsn} if} if %N ausz 8 ge { /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgf setsn} %PSL1-SW-Geraet ifelse } if %bei ausz=8: Farb- oder SW-Ausdruck je nach Drucker } bind def /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfi %x y width heigth c m y n {setcmyknew rec fill} bind def /colrecst %x y width heigth c m y n {setcmyknew rec stroke} bind def /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tza {1.0 1.0 1.0 1.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmyknew} bind def /tfl {tzl setcmyknew} bind def /tfv {tzv setcmyknew} bind def /tfc {tzc setcmyknew} bind def /tfm {tzm setcmyknew} bind def /tfy {tzy setcmyknew} bind def /tfa {tzy setcmyknew} bind def /tfn {tzn setcmyknew} bind def /tfd {tzd setcmyknew} bind def /tfz {tzz setcmyknew} bind def /tfh {tzh setcmyknew} bind def /tfw {tzw setcmyknew} bind def /tfr {tzr setcmyknew} bind def /tfg {tzg setcmyknew} bind def /tfb {tzb setcmyknew} bind def /tfj {tzj setcmyknew} bind def /tfrz {tzrz setcmyknew} bind def /tfgz {tzgz setcmyknew} bind def /tfbz {tzbz setcmyknew} bind def /tfjz {tzjz setcmyknew} bind def %ANFA OUTLINO0 951204 /pixf 1.0 def /ueg {1.6 pixf mul} bind def /uek {0.8 pixf mul} bind def /ues {0.7 pixf mul} bind def /pxd uek def /pyd uek def /pxwd ueg def /pywd ueg def /outxshowf {show} bind def /outxshow {show} bind def /SK {250 16.67 div 1 sub pixf mul /Symbol FS} bind def /SM {300 16.67 div 1 sub pixf mul /Symbol FS} bind def /SG {350 16.67 div 1 sub pixf mul /Symbol FS} bind def /outSK {250 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSM {300 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSG {350 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outshowf {setcmyknew show} bind def /outrecfi { %x y width heigth c m y k setcmyknew rec fill} bind def /outrecfi4 { %x y width heigth c m y k outrecfi} bind def /outrecfi3 { %x y width heigth c m y k outrecfi} bind def /outrecfi2 { %x y width heigth c m y k outrecfi} bind def /outlinetos { %px py c m y k setcmyknew lineto stroke} bind def /outstroke { %px1 py1 curveto ... curveto c m y k setcmyknew stroke} bind def /A4quer {598 0 translate 90 rotate} def %0 %1 %2 %3 %4 /cvishow {cvi 10 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 10 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 10 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 10 string cvs show} def /tzank [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def %%EndProlog %%BeginPageSetup /#copies 1 def A4quer 1.0 1.0 scale /pgsave save def %%EndPageSetup 0.5 MM 0.5 MM translate %Verschiebung nach oben und links fuer Belichter gsave BeginEPSF 28 MM 197 MM translate 10 /Times-ISOL1 FS 1 1 scale -77 -91 translate %%BeginDocument: Bild 10 %Zeile 310 %%EndDocument EndEPSF grestore gsave BeginEPSF 28 MM 153 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 11 %Zeile 320 %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 153 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 12 %Zeile 330 %%EndDocument EndEPSF grestore gsave BeginEPSF 28 MM 109 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 13 %!PS-Adobe-3.0 EPSF-3.0 www.ps.bam.de/DG02/10F/F10GS4(A/P).(TXT/PS/PDF) %%BoundingBox: 60 80 390 330 %START PDFDE011.EPS /pdfmark where {pop} {userdict /pdfmark /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: www.ps.bam.de/DG02/DG02.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: www.ps.bam.de or http://o2.ps.bam.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@bam.de) /CreationDate (D:2001102012000) /ModDate (D:2001102012000) /DOCINFO pdfmark [ /View [ /FitB ] /DOCVIEW pdfmark %END PDFDE011 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /A4quer {595 0 translate 90 rotate} def /TMS {100 /Times-Roman FS} bind def /TGS {150 /Times-Roman FS} bind def /nshow {110 /Times-Roman FS show} def /bshow {110 /Times-Bold FS show} def /gshow {150 /Times-Bold FS show} def /bishow {110 /Times-BoldItalic FS show} def /ishow { 90 /Times-Bold FS show} def /sshow {110 /Symbol FS show} def /lanind 0 def /lantex [(G) (E) (S) (F) (I) (J)] def /nshowde {0 lanind eq {nshow} {pop} ifelse} bind def /bshowde {0 lanind eq {bshow} {pop} ifelse} bind def /gshowde {0 lanind eq {gshow} {pop} ifelse} bind def /bishowde {0 lanind eq {bishow} {pop} ifelse} bind def /ishowde {0 lanind eq {ishow} {pop} ifelse} bind def /sshowde {0 lanind eq {sshow} {pop} ifelse} bind def /nshowen {1 lanind eq {nshow} {pop} ifelse} bind def /bshowen {1 lanind eq {bshow} {pop} ifelse} bind def /gshowen {1 lanind eq {gshow} {pop} ifelse} bind def /bishowen {1 lanind eq {bishow} {pop} ifelse} bind def /ishowen {1 lanind eq {ishow} {pop} ifelse} bind def /sshowen {1 lanind eq {sshow} {pop} ifelse} bind def %%EndProlog gsave %%Page: 1 1 6 /Times-Roman FS 72 83 moveto CDeviceS1 show CMeasS1 show GEX$ show (; ) show CDateS1 show 245 83 moveto CFilenameS1 show GEX$ show 72 90 translate /cvishow {0.5 add cvi %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 10 string cvs show} def /cvsshow0 {10 mul 0.5 add cvi 0.1 mul 10 string cvs show} def /cvsshow1 {10 mul 0.5 add cvi 0.1 mul %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 10 string cvs show} def /cvsshow2 {100 mul 0.5 add cvi 0.01 mul %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 10 string cvs show} def /cvsshow3 {1000 mul 0.5 add cvi 0.001 mul 10 string cvs show} def TMS %/ausz 8 def /half 3 def Halbt %Farbauszug 1=C, 2=M, 3=Y, 7=N, 8=F 0.01 MM 2.0 mul dup scale 15 setlinewidth /outputarrayS1m 16 array def 0 1 15 {/i exch def %i=0,15 outputarrayS1m i outputarrayS1 i get outputarrayS1 i 16 add get add 0.5 mul put } for %i=0,15 /outL*var 0 def 0 1 15 {/i exch def %i=0,1,15 /out1 {outputarrayS1 i get} bind def /out2 {outputarrayS1 i get} bind def /outm {outputarrayS1m i get} bind def /outL*var outL*var out1 outm sub 2 exp out2 outm sub 2 exp add add def outputarrayS1 i outm put } for %i=0,1,15 /outL*var outL*var 16 div def /LABREFX [06 18.01 0.00 0.00] def %only L*N ISO 2846-1:1997, Table D.3 /LABREFW [07 95.41 0.00 0.00] def %only L*W ISO 2846-1:1997, Table D.3 LABREFX 1 outputarrayS1m 0 get put LABREFW 1 outputarrayS1m 15 get put %LABREFX 1 18.01 put %LABREFW 1 95.41 put /LABO1NJ 1 def /LABOUT 84 array def %Mean Output (16 colours + 5 colours interpolated) 0 1 15 {/i exch def %i=0,1,15 /i40 i 4 mul def LABOUT i40 i put LABOUT i40 1 add outputarrayS1m i get put LABOUT i40 2 add 0 put LABOUT i40 3 add 0 put } for %i=0,1,15 /LAB*refi 84 array def %aktuelle Referenzwerte (ref=Referenz) i. Ausgabe /LAB*ini 84 array def %Zielwerte (in=Input) i. Ausgabe /LAB*outi 84 array def %Messwerte (out=Output) i. Ausgabe /LAB*ouci 84 array def %Messwerte (ouc=Output centered) i. Ausgabe /tfn { } bind def /k5x 5 array def %N,C,M,Y, max. 5 Reihen, k=0, ..., 4 /k5w 5 array def %W /k5c 5 array def %c=colour /k5s 5 array def %Serien-/Einzel-Linearisierung /kln 21 array def %LAB=0 for N /klw 21 array def %LAB=100 for W /km 1 def /k5x [ 0 16 0 0] def %hier 2 Reihen, k=0 und 1 /k5w [15 20 0 0] def /k5c [ 1 1 0 0] def %N=colour /k5s [ 1 1 0 0] def %Serien-/Einzel-Linearisierung /kln [ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0] def %LAB=0 for N /klw [ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1] def %LAB=100 for W /i1315 15 def %13 oder 15 Buntstufen /i1416 i1315 1 add def %14 oder 16 Buntstufen /isum i1416 5 add def /ikor 1 def 0 1 20 {/i exch def /i4 i 4 mul def %i=0,20 i 15 le {/imul i 15 div def} {/imul i 16 sub 4 div def} ifelse 0 1 3 {/j exch def /i4j i4 j add def LAB*refi i4j LABREFX j get LABREFW j get LABREFX j get sub imul mul add put LAB*outi i4j i 15 le {LABOUT i4j get} if i 16 eq {LABOUT 0 4 mul j add get} if i 17 eq {LABOUT 3 4 mul j add get dup LABOUT 4 4 mul j add get exch sub 0.75 mul add} if i 18 eq {LABOUT 7 4 mul j add get LABOUT 8 4 mul j add get add 0.5 mul} if i 19 eq {LABOUT 11 4 mul j add get dup LABOUT 12 4 mul j add get exch sub 0.25 mul add} if i 20 eq {LABOUT 15 4 mul j add get} if put %LAB*outi } for %j=0,3 } for %i=0,20 1 setgray 20 20 moveto 5400 0 rlineto 0 4000 rlineto %relatives Bildfeld 54 x 40mm -5400 0 rlineto closepath fill 0 setgray 20 20 moveto 5400 0 rlineto 0 4000 rlineto %relatives Bildfeld 54 x 40mm -5400 0 rlineto closepath stroke /x0 0 def /y0 3700 def /yd 170 def /xpos 17 array def /xtex 17 array def /xpos [ 100 300 600 900 %i, LAB*refi(ikor) 1250 1550 1850 %LAB*outi(ikor) 2200 2500 2800 %dLABTO(ikor,ikor), dE* 3150 3500 3850 % 4200 4500 4800 5100] def % /xtex [(i) (LAB*ref) ( ) ( ) (LAB*out) ( ) ( ) (LAB*out/c-ref) ( ) ( ) ( E*) () ( ) ( ) ( ) ( ) ( )] def 0 1 16 { /j exch def xpos j get x0 add 100 add y0 yd add moveto xtex j get show } for %j=0,1,...,16 100 /Symbol FS % xpos 7 get x0 add 100 add y0 yd add moveto (D) show xpos 10 get x0 add 100 add y0 yd add moveto (D) show 100 /Times-Roman FS /sumdL* 0 def /sumda* 0 def /sumdb* 0 def /sumdE* 0 def /sumdNL* 0 def /sumdNa* 0 def /sumdNb* 0 def /sumdNE* 0 def /sumdBL* 0 def /sumdBa* 0 def /sumdBb* 0 def /sumdBE* 0 def /sumdRL* 0 def /sumdFL* 0 def 0 1 km {/k exch def %Anzahl Farbreihen, z.B. 16- und 5-stufig /k4 k 4 mul def /ix k5x k get def /iw k5w k get def /ic k5c k get def ix 1 iw {/i exch def /i4 i 4 mul def /i1 i4 1 add def /i2 i4 2 add def /i3 i4 3 add def /yposi {y0 yd i mul sub moveto} def ix 0 eq {% keine Zentrierung LAB*outi /ix1 ix 4 mul 1 add def /iw1 iw 4 mul 1 add def 0 1 15 {/n exch def /n4 n 4 mul def /n1 n4 1 add def %n LAB*ouci n1 LAB*outi n1 get put } for %n } if %Zentrierung ix 16 eq {% Zentrierung LAB*outi /ix1 ix 4 mul 1 add def /iw1 iw 4 mul 1 add def /ZENT LAB*outi ix1 get LAB*refi ix1 get sub LAB*refi iw1 get LAB*outi iw1 get sub sub 0.5 mul def 16 1 20 {/n exch def /n4 n 4 mul def /n1 n4 1 add def %n LAB*ouci n1 LAB*outi n1 get ZENT sub put } for %n } if %Zentrierung 0 1 11 {/j exch def %17 Positionen x0 xpos j get add yposi j 0 eq {i 1 add cvishow } if j 1 eq {LAB*refi i1 get cvsshow2} if j 2 eq {LAB*refi i2 get cvsshow2} if j 3 eq {LAB*refi i3 get cvsshow2} if LABO1NJ 1 eq { %Differenzen oder Messwerte falls vorh. j 4 eq {LAB*outi i1 get cvsshow2} if j 5 eq {LAB*outi i2 get cvsshow2} if j 6 eq {LAB*outi i3 get cvsshow2} if j 7 eq {LAB*ouci i1 get dup LAB*refi i1 get sub cvsshow2 LAB*refi i1 get sub abs /sumdL* exch sumdL* add def} if %j=7 j 8 eq {LAB*outi i2 get dup LAB*refi i2 get sub cvsshow2 LAB*refi i2 get sub abs /sumda* exch sumda* add def} if %j=8 j 9 eq {LAB*outi i3 get dup LAB*refi i3 get sub cvsshow2 LAB*refi i3 get sub abs /sumdb* exch sumdb* add def} if %j=9 j 10 eq {LAB*ouci i1 get LAB*refi i1 get sub dup mul LAB*outi i2 get LAB*refi i2 get sub dup mul add LAB*outi i3 get LAB*refi i3 get sub dup mul add 0.0001 add sqrt dup cvsshow2 /sumdE* exch sumdE* add def} if %j=10 i i1416 lt {%14 oder 16 Stufen j 10 eq {LAB*ouci i1 get LAB*refi i1 get sub dup mul LAB*outi i2 get LAB*refi i2 get sub dup mul add LAB*outi i3 get LAB*refi i3 get sub dup mul add 0.0001 add sqrt /sumdBE* exch sumdBE* add def} if %j=11 } if %14 oder 16 Stufen i 16 ge {%5 Unbunt=Noir j 10 eq {LAB*ouci i1 get LAB*refi i1 get sub dup mul LAB*outi i2 get LAB*refi i2 get sub dup mul add LAB*outi i3 get LAB*refi i3 get sub dup mul add 0.0001 add sqrt /sumdNE* exch sumdNE* add def} if %j=11 } if %5 Unbunt=Noir j 10 eq { %j=10 Regularity i 16 eq {/L1 LAB*ouci i1 get def} if %i=16 i 17 eq {/L2 LAB*ouci i1 get def} if %i=17 i 18 eq {/L3 LAB*ouci i1 get def} if %i=18 i 19 eq {/L4 LAB*ouci i1 get def} if %i=19 i 20 eq {/L5 LAB*ouci i1 get def} if %i=20 } if %j=10 Regularity } if %Differenzen oder Messwerte 110 /Times-Bold FS LABO1NJ 1 eq %{ %Summen 11 j eq and {%j=11 i 00 eq { (Kennzeichnung nach) gshowde (Specification according to) gshowen x0 xpos j get add y0 yd add moveto (Start-Ausgabe S1) gshowde (Start output S1) gshowen} if %i=0 i 01 eq {(ISO/IEC 15775 Anhang G) gshowde (ISO/IEC 15775 Annex G) gshowen} if %i=1 i 02 eq {(und DIN 33866-1 Anhang G) gshowde (and DIN 33866-1 Annex G) gshowen} if %i=2 i 03 eq {(nur ) bshowde (only ) bshowen (L*-) bishow (Helligkeit benutzt) bshowde (lightness used) bshowen} if %i=2 i 04 eq {(D) sshow (L*) bishow ( = ) bshow LABREFW 1 get cvsshow2 ( - ) show LABREFX 1 get cvsshow2 } if %i=2 i 05 eq {(Gleichmaessigkeit) bshowde (Regularity) bshowen} if %i=5 i 08 eq {(Helligkeitsumfang rel. zu Offset) bshowde (Lightness gamut rel. to offset) bshowen} if %i=8 i 11 eq {(D) sshow (L*-) bishow (Grauvariation) bshowde (gray variation) bshowen} if %i=11 i 12 eq {(v*) bishow ( = ) bshow outL*var cvsshow3} if i1315 15 eq { %i1315=15 i 14 eq {(Mittlerer Helligkeitsabstand (16 Stufen)) bshowde (Mean lightness difference (16 steps)) bshowen} if %i=14 } %i1315=15 { %i1315=13 i 12 eq {(Mittlerer Helligkeitsabstand (14 Stufen)) bshowde (Mean lightness difference (14 steps)) bshowen} if %i=12 } ifelse %i1315=13 i i1315 eq {(D) sshow (E*) bishow 0 -20 rmoveto (CIELAB) ishow 0 20 rmoveto ( = ) bshow sumdBE* i1416 div cvsshow1} if %i=13 i 19 eq {(Mittlerer Helligkeitsabstand (5 Stufen)) bshowde (Mean lightness difference (5 steps)) bshowen} if i%=18 i 20 eq {(D) sshow (L*) bishow 0 -20 rmoveto (CIELAB) ishow 0 20 rmoveto ( = ) bshow sumdNE* 05 div cvsshow1} if %i=20 } if %j=11 and LABO*NJ an ikor TMS } for %j=0,11 } for %i=ix,iw } for %k=0,km LABO1NJ 1 eq { %Summen Messwerte vorhanden 110 /Times-Bold FS /j 1 def x0 xpos j get add 1500 add y0 yd 21 mul sub moveto (Mittlerer Farbwiedergabe-Index:) bshowde (Mean colour reproduction index:) bshowen /j 11 def x0 xpos j get add y0 yd 21 mul sub moveto (R*) bishow 0 -20 rmoveto (ab,m) ishow 0 20 rmoveto ( = ) bshow 100 sumdBE* isum div sumdNE* isum div add 4.6 mul sub cvishow x0 xpos j get add y0 yd 06 mul sub moveto ( g* ) bishow (= ) bshow /DD1 L2 L1 sub abs def /DD2 L3 L2 sub abs def /DD3 L4 L3 sub abs def /DD4 L5 L4 sub abs def DD1 DD2 le {/DMIN1 DD1 def} {/DMIN1 DD2 def} ifelse DD3 DD4 le {/DMIN2 DD3 def} {/DMIN2 DD4 def} ifelse DMIN1 DMIN2 le {/DMIN DMIN1 def} {/DMIN DMIN2 def} ifelse DD1 DD2 ge {/DMAX1 DD1 def} {/DMAX1 DD2 def} ifelse DD3 DD4 ge {/DMAX2 DD3 def} {/DMAX2 DD4 def} ifelse DMAX1 DMAX2 ge {/DMAX DMAX1 def} {/DMAX DMAX2 def} ifelse DMIN DMAX div 100 mul cvsshow1 x0 xpos j get add y0 yd 09 mul sub moveto ( f* ) bishow (= ) bshow L5 L1 sub 77.40 div 100 mul cvsshow1 TMS } if %Summen grestore showpage %%TRAILER grestore showpage %%TRAILER %Zeile 340 %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 109 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 14 %Zeile 350 %%EndDocument EndEPSF grestore gsave BeginEPSF 28 MM 065 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 15 %Zeile 360 %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 065 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 16 %Zeile 370 %%EndDocument EndEPSF grestore gsave BeginEPSF 28 MM 021 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 17 %!PS-Adobe-3.0 EPSF-3.0 Bild 21 ANF %%BoundingBox: 70 80 370 420 %old %%BoundingBox: 70 80 228 198 /FS {findfont exch scalefont setfont} bind def %%EndProlog gsave /picstr 48 string def 6 /Times-Roman FS 72 83 moveto CDeviceS1 show CMeasS1 show GEX$ show (; ) show CDateS1 show 245 83 moveto CFilenameS1 show GEX$ show 72 90 translate /pixf 16.67 def 0.1667 pixf div MM 2 mul dup scale /ausz 8 def /half 0 def Halbt %Farbauszug 1=C, 2=M, 3=Y, 7=N, 8=F 15 setlinewidth %ANFA ZEICDEF %ZEICA02 tfw 0 0 moveto 5400 0 rlineto 0 4000 rlineto %relatives Bildfeld 54 x 40mm -5400 0 rlineto closepath fill tfn 0 0 moveto 5400 0 rlineto 0 4000 rlineto %relatives Bildfeld 54 x 40mm -5400 0 rlineto closepath stroke tfn 100 /Times-ISOL1 FS 0800 0400 translate %Nullpunkt Zeichnung 0 0 moveto 4000 0 rlineto stroke 0 0 moveto 0 3200 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten 150 /TimesI-ISOL1 FS 0 -50 moveto 0 100 rlineto stroke 800 -50 moveto 0 100 rlineto stroke 1600 -50 moveto 0 100 rlineto stroke 2400 -50 moveto 0 100 rlineto stroke 3200 -50 moveto 0 100 rlineto stroke 4000 -50 moveto 0 100 rlineto stroke -300 -300 moveto (N 0,0) show 700 -300 moveto (0,25) show 1500 -300 moveto (0,50) show 2300 -300 moveto (0,75) show 3100 -300 moveto (1,00 W) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 800 moveto 100 0 rlineto stroke -50 1600 moveto 100 0 rlineto stroke -50 2400 moveto 100 0 rlineto stroke -50 3200 moveto 100 0 rlineto stroke -530 -60 moveto (N 0,00) show -350 740 moveto (0,25) show -350 1540 moveto (0,50) show -350 2340 moveto (0,75) show -530 3140 moveto (W 1,00) show 150 /TimesI-ISOL1 FS -700 2850 moveto (w*output) show 3000 250 moveto (w*input) show /difinp inputarrayS1 15 get inputarrayS1 0 get sub def /outputarrayS1m 16 array def 0 1 15 {/i exch def %i=0,15 outputarrayS1m i outputarrayS1 i get outputarrayS1 i 16 add get add 0.5 mul put } for %i=0,15 /difout outputarrayS1m 15 get outputarrayS1m 0 get sub def tfn 0 0 moveto 3200 3200 lineto stroke [100] 0 setdash 0 3200 0.133 mul moveto 3200 3200 3200 0.0333 mul add lineto stroke 0 3200 0.133 mul neg moveto 3200 3200 3200 0.0333 mul sub lineto stroke /ik 0 def ik 0 eq {%16 steps tfo [100] 0 setdash 0 1 15 {/i exch def /xw inputarrayS1 i get inputarrayS1 0 get sub difinp div def /yw outputarrayS1m i get outputarrayS1m 0 get sub difout div def xw 3200 mul yw 3200 mul i 0 eq { moveto} {lineto} ifelse } for stroke %i } if %16 steps ik 1 eq {%5 steps tfl 16 1 20 {/i exch def i 16 eq {/input inputarrayS1 0 get def /output outputarrayS1m 0 get def } if i 17 eq {/input inputarrayS1 3 get 0.25 mul inputarrayS1 4 get 0.75 mul add def /output outputarrayS1m 3 get 0.25 mul outputarrayS1m 4 get 0.75 mul add def } if i 18 eq {/input inputarrayS1 7 get inputarrayS1 8 get add 0.5 mul def /output outputarrayS1m 7 get outputarrayS1m 8 get add 0.5 mul def } if i 19 eq {/input inputarrayS1 11 get 0.75 mul inputarrayS1 12 get 0.25 mul add def /output outputarrayS1m 11 get 0.75 mul outputarrayS1m 12 get 0.25 mul add def } if i 20 eq {/input inputarrayS1 15 get def /output outputarrayS1m 15 get def } if /xw input inputarrayS1 0 get sub difinp div def /yw output outputarrayS1m 0 get sub difout div def xw 3200 mul yw 3200 mul i 16 eq { moveto} {lineto} ifelse } for stroke %i } if %5steps tfn 150 /Times-ISOL1 FS -400 3350 moveto lanind 0 eq {(Startausgabe der Datei: ) show} if lanind 1 eq {(Start output of file: ) show} if CFilenameS1 show GEX$ show 300 2900 moveto CDeviceS1 show 300 2700 moveto CMeasS1 show GEX$ show (; ) show 300 2500 moveto CDateS1 show -0800 -0400 translate %Nullpunkt Zeichnung %ZEICA02 %ENDE ZEICDEF grestore showpage %Zeile 380 %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 021 MM translate 12 /Times-ISOL1 FS -9 MM -7 MM moveto ( ) show 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 18 %Zeile 390 %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 197 MM translate 10 /Times-ISOL1 FS 1 1 scale -77 -91 translate %%BeginDocument: Bild 12 %Zeile 400 %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 153 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 21 %Zeile 410 %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 153 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 22 %Zeile 420 %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 109 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 23 %Zeile 430 %!PS-Adobe-3.0 EPSF-3.0 www.ps.bam.de/DG02/10F/F10GS4(A/P).(TXT/PS/PDF) %%BoundingBox: 60 80 390 330 %START PDFDE011.EPS /pdfmark where {pop} {userdict /pdfmark /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: www.ps.bam.de/DG02/DG02.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: www.ps.bam.de or http://o2.ps.bam.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@bam.de) /CreationDate (D:2001102012000) /ModDate (D:2001102012000) /DOCINFO pdfmark [ /View [ /FitB ] /DOCVIEW pdfmark %END PDFDE011 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /A4quer {595 0 translate 90 rotate} def /TMS {100 /Times-Roman FS} bind def /TGS {150 /Times-Roman FS} bind def /nshow {110 /Times-Roman FS show} def /bshow {110 /Times-Bold FS show} def /gshow {150 /Times-Bold FS show} def /bishow {110 /Times-BoldItalic FS show} def /ishow { 90 /Times-Bold FS show} def /sshow {110 /Symbol FS show} def /lanind 0 def /lantex [(G) (E) (S) (F) (I) (J)] def /nshowde {0 lanind eq {nshow} {pop} ifelse} bind def /bshowde {0 lanind eq {bshow} {pop} ifelse} bind def /gshowde {0 lanind eq {gshow} {pop} ifelse} bind def /bishowde {0 lanind eq {bishow} {pop} ifelse} bind def /ishowde {0 lanind eq {ishow} {pop} ifelse} bind def /sshowde {0 lanind eq {sshow} {pop} ifelse} bind def /nshowen {1 lanind eq {nshow} {pop} ifelse} bind def /bshowen {1 lanind eq {bshow} {pop} ifelse} bind def /gshowen {1 lanind eq {gshow} {pop} ifelse} bind def /bishowen {1 lanind eq {bishow} {pop} ifelse} bind def /ishowen {1 lanind eq {ishow} {pop} ifelse} bind def /sshowen {1 lanind eq {sshow} {pop} ifelse} bind def %%EndProlog gsave %%Page: 1 1 6 /Times-Roman FS 72 83 moveto CDeviceS2 show CMeasS2 show GEX$ show (; ) show CDateS2 show 245 83 moveto CFilenameS2 show GEX$ show 72 90 translate /cvishow {0.5 add cvi %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 10 string cvs show} def /cvsshow0 {10 mul 0.5 add cvi 0.1 mul 10 string cvs show} def /cvsshow1 {10 mul 0.5 add cvi 0.1 mul %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 10 string cvs show} def /cvsshow2 {100 mul 0.5 add cvi 0.01 mul %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 10 string cvs show} def /cvsshow3 {1000 mul 0.5 add cvi 0.001 mul 10 string cvs show} def TMS %/ausz 8 def /half 3 def Halbt %Farbauszug 1=C, 2=M, 3=Y, 7=N, 8=F 0.01 MM 2.0 mul dup scale 15 setlinewidth /outputarrayS2m 16 array def 0 1 15 {/i exch def %i=0,15 outputarrayS2m i outputarrayS2 i get outputarrayS2 i 16 add get add 0.5 mul put } for %i=0,15 /outL*var 0 def 0 1 15 {/i exch def %i=0,1,15 /out1 {outputarrayS2 i get} bind def /out2 {outputarrayS2 i get} bind def /outm {outputarrayS2m i get} bind def /outL*var outL*var out1 outm sub 2 exp out2 outm sub 2 exp add add def outputarrayS2 i outm put } for %i=0,1,15 /outL*var outL*var 16 div def /LABREFX [06 18.01 0.00 0.00] def %only L*N ISO 2846-1:1997, Table D.3 /LABREFW [07 95.41 0.00 0.00] def %only L*W ISO 2846-1:1997, Table D.3 LABREFX 1 outputarrayS2m 0 get put LABREFW 1 outputarrayS2m 15 get put %LABREFX 1 18.01 put %LABREFW 1 95.41 put /LABO1NJ 1 def /LABOUT 84 array def %Mean Output (16 colours + 5 colours interpolated) 0 1 15 {/i exch def %i=0,1,15 /i40 i 4 mul def LABOUT i40 i put LABOUT i40 1 add outputarrayS2m i get put LABOUT i40 2 add 0 put LABOUT i40 3 add 0 put } for %i=0,1,15 /LAB*refi 84 array def %aktuelle Referenzwerte (ref=Referenz) i. Ausgabe /LAB*ini 84 array def %Zielwerte (in=Input) i. Ausgabe /LAB*outi 84 array def %Messwerte (out=Output) i. Ausgabe /LAB*ouci 84 array def %Messwerte (ouc=Output centered) i. Ausgabe /tfn { } bind def /k5x 5 array def %N,C,M,Y, max. 5 Reihen, k=0, ..., 4 /k5w 5 array def %W /k5c 5 array def %c=colour /k5s 5 array def %Serien-/Einzel-Linearisierung /kln 21 array def %LAB=0 for N /klw 21 array def %LAB=100 for W /km 1 def /k5x [ 0 16 0 0] def %hier 2 Reihen, k=0 und 1 /k5w [15 20 0 0] def /k5c [ 1 1 0 0] def %N=colour /k5s [ 1 1 0 0] def %Serien-/Einzel-Linearisierung /kln [ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0] def %LAB=0 for N /klw [ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1] def %LAB=100 for W /i1315 15 def %13 oder 15 Buntstufen /i1416 i1315 1 add def %14 oder 16 Buntstufen /isum i1416 5 add def /ikor 1 def 0 1 20 {/i exch def /i4 i 4 mul def %i=0,20 i 15 le {/imul i 15 div def} {/imul i 16 sub 4 div def} ifelse 0 1 3 {/j exch def /i4j i4 j add def LAB*refi i4j LABREFX j get LABREFW j get LABREFX j get sub imul mul add put LAB*outi i4j i 15 le {LABOUT i4j get} if i 16 eq {LABOUT 0 4 mul j add get} if i 17 eq {LABOUT 3 4 mul j add get dup LABOUT 4 4 mul j add get exch sub 0.75 mul add} if i 18 eq {LABOUT 7 4 mul j add get LABOUT 8 4 mul j add get add 0.5 mul} if i 19 eq {LABOUT 11 4 mul j add get dup LABOUT 12 4 mul j add get exch sub 0.25 mul add} if i 20 eq {LABOUT 15 4 mul j add get} if put %LAB*outi } for %j=0,3 } for %i=0,20 1 setgray 20 20 moveto 5400 0 rlineto 0 4000 rlineto %relatives Bildfeld 54 x 40mm -5400 0 rlineto closepath fill 0 setgray 20 20 moveto 5400 0 rlineto 0 4000 rlineto %relatives Bildfeld 54 x 40mm -5400 0 rlineto closepath stroke /x0 0 def /y0 3700 def /yd 170 def /xpos 17 array def /xtex 17 array def /xpos [ 100 300 600 900 %i, LAB*refi(ikor) 1250 1550 1850 %LAB*outi(ikor) 2200 2500 2800 %dLABTO(ikor,ikor), dE* 3150 3500 3850 % 4200 4500 4800 5100] def % /xtex [(i) (LAB*ref) ( ) ( ) (LAB*out) ( ) ( ) (LAB*out/c-ref) ( ) ( ) ( E*) () ( ) ( ) ( ) ( ) ( )] def 0 1 16 { /j exch def xpos j get x0 add 100 add y0 yd add moveto xtex j get show } for %j=0,1,...,16 100 /Symbol FS % xpos 7 get x0 add 100 add y0 yd add moveto (D) show xpos 10 get x0 add 100 add y0 yd add moveto (D) show 100 /Times-Roman FS /sumdL* 0 def /sumda* 0 def /sumdb* 0 def /sumdE* 0 def /sumdNL* 0 def /sumdNa* 0 def /sumdNb* 0 def /sumdNE* 0 def /sumdBL* 0 def /sumdBa* 0 def /sumdBb* 0 def /sumdBE* 0 def /sumdRL* 0 def /sumdFL* 0 def 0 1 km {/k exch def %Anzahl Farbreihen, z.B. 16- und 5-stufig /k4 k 4 mul def /ix k5x k get def /iw k5w k get def /ic k5c k get def ix 1 iw {/i exch def /i4 i 4 mul def /i1 i4 1 add def /i2 i4 2 add def /i3 i4 3 add def /yposi {y0 yd i mul sub moveto} def ix 0 eq {% keine Zentrierung LAB*outi /ix1 ix 4 mul 1 add def /iw1 iw 4 mul 1 add def 0 1 15 {/n exch def /n4 n 4 mul def /n1 n4 1 add def %n LAB*ouci n1 LAB*outi n1 get put } for %n } if %Zentrierung ix 16 eq {% Zentrierung LAB*outi /ix1 ix 4 mul 1 add def /iw1 iw 4 mul 1 add def /ZENT LAB*outi ix1 get LAB*refi ix1 get sub LAB*refi iw1 get LAB*outi iw1 get sub sub 0.5 mul def 16 1 20 {/n exch def /n4 n 4 mul def /n1 n4 1 add def %n LAB*ouci n1 LAB*outi n1 get ZENT sub put } for %n } if %Zentrierung 0 1 11 {/j exch def %17 Positionen x0 xpos j get add yposi j 0 eq {i 1 add cvishow } if j 1 eq {LAB*refi i1 get cvsshow2} if j 2 eq {LAB*refi i2 get cvsshow2} if j 3 eq {LAB*refi i3 get cvsshow2} if LABO1NJ 1 eq { %Differenzen oder Messwerte falls vorh. j 4 eq {LAB*outi i1 get cvsshow2} if j 5 eq {LAB*outi i2 get cvsshow2} if j 6 eq {LAB*outi i3 get cvsshow2} if j 7 eq {LAB*ouci i1 get dup LAB*refi i1 get sub cvsshow2 LAB*refi i1 get sub abs /sumdL* exch sumdL* add def} if %j=7 j 8 eq {LAB*outi i2 get dup LAB*refi i2 get sub cvsshow2 LAB*refi i2 get sub abs /sumda* exch sumda* add def} if %j=8 j 9 eq {LAB*outi i3 get dup LAB*refi i3 get sub cvsshow2 LAB*refi i3 get sub abs /sumdb* exch sumdb* add def} if %j=9 j 10 eq {LAB*ouci i1 get LAB*refi i1 get sub dup mul LAB*outi i2 get LAB*refi i2 get sub dup mul add LAB*outi i3 get LAB*refi i3 get sub dup mul add 0.0001 add sqrt dup cvsshow2 /sumdE* exch sumdE* add def} if %j=10 i i1416 lt {%14 oder 16 Stufen j 10 eq {LAB*ouci i1 get LAB*refi i1 get sub dup mul LAB*outi i2 get LAB*refi i2 get sub dup mul add LAB*outi i3 get LAB*refi i3 get sub dup mul add 0.0001 add sqrt /sumdBE* exch sumdBE* add def} if %j=11 } if %14 oder 16 Stufen i 16 ge {%5 Unbunt=Noir j 10 eq {LAB*ouci i1 get LAB*refi i1 get sub dup mul LAB*outi i2 get LAB*refi i2 get sub dup mul add LAB*outi i3 get LAB*refi i3 get sub dup mul add 0.0001 add sqrt /sumdNE* exch sumdNE* add def} if %j=11 } if %5 Unbunt=Noir j 10 eq { %j=10 Regularity i 16 eq {/L1 LAB*ouci i1 get def} if %i=16 i 17 eq {/L2 LAB*ouci i1 get def} if %i=17 i 18 eq {/L3 LAB*ouci i1 get def} if %i=18 i 19 eq {/L4 LAB*ouci i1 get def} if %i=19 i 20 eq {/L5 LAB*ouci i1 get def} if %i=20 } if %j=10 Regularity } if %Differenzen oder Messwerte 110 /Times-Bold FS LABO1NJ 1 eq %{ %Summen 11 j eq and {%j=11 i 00 eq { (Kennzeichnung nach) gshowde (Specification according to) gshowen x0 xpos j get add y0 yd add moveto (Linearisierte Ausgabe S2) gshowde (Linearized output S2) gshowen} if %i=0 i 01 eq {(ISO/IEC 15775 Anhang G) gshowde (ISO/IEC 15775 Annex G) gshowen} if %i=1 i 02 eq {(und DIN 33866-1 Anhang G) gshowde (and DIN 33866-1 Annex G) gshowen} if %i=2 i 03 eq {(nur ) bshowde (only ) bshowen (L*-) bishow (Helligkeit benutzt) bshowde (lightness used) bshowen} if %i=2 i 04 eq {(D) sshow (L*) bishow ( = ) bshow LABREFW 1 get cvsshow2 ( - ) show LABREFX 1 get cvsshow2 } if %i=2 i 05 eq {(Gleichmaessigkeit) bshowde (Regularity) bshowen} if %i=5 i 08 eq {(Helligkeitsumfang rel. zu Offset) bshowde (Lightness gamut rel. to offset) bshowen} if %i=8 i 11 eq {(D) sshow (L*-) bishow (Grauvariation) bshowde (gray variation) bshowen} if %i=11 i 12 eq {(v*) bishow ( = ) bshow outL*var cvsshow3} if i1315 15 eq { %i1315=15 i 14 eq {(Mittlerer Helligkeitsabstand (16 Stufen)) bshowde (Mean lightness difference (16 steps)) bshowen} if %i=14 } %i1315=15 { %i1315=13 i 12 eq {(Mittlerer Helligkeitsabstand (14 Stufen)) bshowde (Mean lightness difference (14 steps)) bshowen} if %i=12 } ifelse %i1315=13 i i1315 eq {(D) sshow (E*) bishow 0 -20 rmoveto (CIELAB) ishow 0 20 rmoveto ( = ) bshow sumdBE* i1416 div cvsshow1} if %i=13 i 19 eq {(Mittlerer Helligkeitsabstand (5 Stufen)) bshowde (Mean lightness difference (5 steps)) bshowen} if i%=18 i 20 eq {(D) sshow (L*) bishow 0 -20 rmoveto (CIELAB) ishow 0 20 rmoveto ( = ) bshow sumdNE* 05 div cvsshow1} if %i=20 } if %j=11 and LABO*NJ an ikor TMS } for %j=0,11 } for %i=ix,iw } for %k=0,km LABO1NJ 1 eq { %Summen Messwerte vorhanden 110 /Times-Bold FS /j 1 def x0 xpos j get add 1500 add y0 yd 21 mul sub moveto (Mittlerer Farbwiedergabe-Index:) bshowde (Mean colour reproduction index:) bshowen /j 11 def x0 xpos j get add y0 yd 21 mul sub moveto (R*) bishow 0 -20 rmoveto (ab,m) ishow 0 20 rmoveto ( = ) bshow 100 sumdBE* isum div sumdNE* isum div add 4.6 mul sub cvishow x0 xpos j get add y0 yd 06 mul sub moveto ( g* ) bishow (= ) bshow /DD1 L2 L1 sub abs def /DD2 L3 L2 sub abs def /DD3 L4 L3 sub abs def /DD4 L5 L4 sub abs def DD1 DD2 le {/DMIN1 DD1 def} {/DMIN1 DD2 def} ifelse DD3 DD4 le {/DMIN2 DD3 def} {/DMIN2 DD4 def} ifelse DMIN1 DMIN2 le {/DMIN DMIN1 def} {/DMIN DMIN2 def} ifelse DD1 DD2 ge {/DMAX1 DD1 def} {/DMAX1 DD2 def} ifelse DD3 DD4 ge {/DMAX2 DD3 def} {/DMAX2 DD4 def} ifelse DMAX1 DMAX2 ge {/DMAX DMAX1 def} {/DMAX DMAX2 def} ifelse DMIN DMAX div 100 mul cvsshow1 x0 xpos j get add y0 yd 09 mul sub moveto ( f* ) bishow (= ) bshow L5 L1 sub 77.40 div 100 mul cvsshow1 TMS } if %Summen grestore showpage %%TRAILER %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 109 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 24 %Zeile 440 %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 065 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 25 %Zeile 450 %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 065 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 26 %Zeile 460 %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 021 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 27 %!PS-Adobe-3.0 EPSF-3.0 Bild 21 ANF %%BoundingBox: 70 80 370 420 %old %%BoundingBox: 70 80 228 198 /FS {findfont exch scalefont setfont} bind def %%EndProlog gsave /picstr 48 string def 6 /Times-Roman FS 6 /Times-Roman FS 72 83 moveto CDeviceS2 show CMeasS2 show GEX$ show (; ) show CDateS2 show 245 83 moveto CFilenameS2 show GEX$ show 72 90 translate /pixf 16.67 def 0.1667 pixf div MM 2 mul dup scale /ausz 8 def /half 0 def Halbt %Farbauszug 1=C, 2=M, 3=Y, 7=N, 8=F 15 setlinewidth %ANFA ZEICDEF %ZEICA02 tfw 0 0 moveto 5400 0 rlineto 0 4000 rlineto %relatives Bildfeld 54 x 40mm -5400 0 rlineto closepath fill tfn 0 0 moveto 5400 0 rlineto 0 4000 rlineto %relatives Bildfeld 54 x 40mm -5400 0 rlineto closepath stroke tfn 100 /Times-ISOL1 FS 0800 0400 translate %Nullpunkt Zeichnung 0 0 moveto 4000 0 rlineto stroke 0 0 moveto 0 3200 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten 150 /TimesI-ISOL1 FS 0 -50 moveto 0 100 rlineto stroke 800 -50 moveto 0 100 rlineto stroke 1600 -50 moveto 0 100 rlineto stroke 2400 -50 moveto 0 100 rlineto stroke 3200 -50 moveto 0 100 rlineto stroke 4000 -50 moveto 0 100 rlineto stroke -300 -300 moveto (N 0,0) show 700 -300 moveto (0,25) show 1500 -300 moveto (0,50) show 2300 -300 moveto (0,75) show 3100 -300 moveto (1,00 W) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 800 moveto 100 0 rlineto stroke -50 1600 moveto 100 0 rlineto stroke -50 2400 moveto 100 0 rlineto stroke -50 3200 moveto 100 0 rlineto stroke -530 -60 moveto (N 0,00) show -350 740 moveto (0,25) show -350 1540 moveto (0,50) show -350 2340 moveto (0,75) show -530 3140 moveto (W 1,00) show 150 /TimesI-ISOL1 FS -700 2850 moveto (w*output) show 2600 250 moveto (w*input + ) show lanind 0 eq {(Linearisierung) show} if lanind 1 eq {(linearization) show} if /outputarrayS2m 16 array def 0 1 15 {/i exch def %i=0,15 outputarrayS2m i outputarrayS2 i get outputarrayS2 i 16 add get add 0.5 mul put } for %i=0,15 /difinp inputarrayS2 15 get inputarrayS2 0 get sub def /difout outputarrayS2m 15 get outputarrayS2m 0 get sub def tfn 0 0 moveto 3200 3200 lineto stroke [100] 0 setdash 0 3200 0.133 mul moveto 3200 3200 3200 0.0333 mul add lineto stroke 0 3200 0.133 mul neg moveto 3200 3200 3200 0.0333 mul sub lineto stroke /ik 0 def ik 0 eq {%16 steps tfo [100] 0 setdash 0 1 15 {/i exch def /xw inputarrayS2 i get inputarrayS2 0 get sub difinp div def /yw outputarrayS2m i get outputarrayS2m 0 get sub difout div def xw 3200 mul yw 3200 mul i 0 eq { moveto} {lineto} ifelse } for stroke %i } if %16 steps ik 1 eq {%5 steps tfl 16 1 20 {/i exch def i 16 eq {/input inputarrayS2 0 get def /output outputarrayS2m 0 get def } if i 17 eq {/input inputarrayS2 3 get 0.25 mul inputarrayS2 4 get 0.75 mul add def /output outputarrayS2m 3 get 0.25 mul outputarrayS2m 4 get 0.75 mul add def } if i 18 eq {/input inputarrayS2 7 get inputarrayS2 8 get add 0.5 mul def /output outputarrayS2m 7 get outputarrayS2m 8 get add 0.5 mul def } if i 19 eq {/input inputarrayS2 11 get 0.75 mul inputarrayS2 12 get 0.25 mul add def /output outputarrayS2m 11 get 0.75 mul outputarrayS2m 12 get 0.25 mul add def } if i 20 eq {/input inputarrayS2 15 get def /output outputarrayS2m 15 get def } if /xw input inputarrayS2 0 get sub difinp div def /yw output outputarrayS2m 0 get sub difout div def xw 3200 mul yw 3200 mul i 16 eq { moveto} {lineto} ifelse } for stroke %i } if %5steps tfn 150 /Times-ISOL1 FS -400 3350 moveto lanind 0 eq {(Linearisierte Ausgabe der Datei: ) show} if lanind 1 eq {(Linearized output of file: ) show} if CFilenameS1 show GEX$ show 300 2900 moveto CDeviceS2 show 300 2700 moveto CMeasS2 show GEX$ show (; ) show 300 2500 moveto CDateS2 show -0800 -0400 translate %Nullpunkt Zeichnung %ZEICA02 %ENDE ZEICDEF grestore showpage %Zeile 470 %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 021 MM translate 12 /Times-ISOL1 FS -9 MM -7 MM moveto ( ) show 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 28 %Zeile 480 %%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 %!PS-Adobe-2.0, D1REPS:bbeld-00.eps Rechteckrahmen Dummy 10.12.96 %%BoundingBox: 0 0 595 840 %%EndProlog %Dummy kein Rechteckrahmen showpage %%Trailer %Zeile 490 %%EndDocument EndEPSF grestore gsave BeginEPSF -0.5 MM -0.5 MM translate %xy-Verschiebung Rechteckrahmen nach innen % %%BeginDocument: Bild 30 %Rechteckrahmen %!PS-Adobe-2.0, D1REPS:bbeqr-NF.EPS Rechteckrahmen mit Internet-Text, 15.6.98 %%BoundingBox: 0 0 598 845 %Special !! /setgc {setcmykcolor} bind def /setgm {setcmykcolor} bind def /setgy {setcmykcolor} bind def /setgn {setcmykcolor} bind def /setgf {setcmykcolor} bind def %/setgc {pop pop pop 1 exch sub setgray} bind def %/setgm {pop pop 1 exch sub setgray pop} bind def %/setgy {pop 1 exch sub setgray pop pop} bind def %/setgn {1 exch sub setgray pop pop pop} bind def %/setgf {/ncolor exch def /ycolor exch def % /mcolor exch def /ccolor exch def % 0 ccolor eq 0 mcolor eq and 0 ycolor eq and {1 ncolor sub setgray} % {1 ccolor sub 0.71 mul % 1 mcolor sub 0.22 mul add % 1 ycolor sub 0.07 mul add setgray} ifelse % } bind def %ANFA SETCMYK /setcmyknew { %Ersatz setcolornew durch setcmykcolor1 ausz 1 eq {setgc half 0 eq {setsc} if} if %C ausz 2 eq {setgm half 0 eq {setsm} if} if %M ausz 3 eq {setgy half 0 eq {setsy} if} if %Y ausz 4 eq {pop pop pop /ccolor exch def ccolor 0 0 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgc setsc} %PSL1-SW-Geraet ifelse } if %Cbunt ausz 5 eq {pop pop /mcolor exch def pop 0 mcolor 0 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgm setsm} %PSL1-SW-Geraet ifelse } if %Mbunt ausz 6 eq {pop /ycolor exch def pop pop 0 0 ycolor 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgy setsy} %PSL1-SW-Geraet ifelse } if %Ybunt ausz 7 eq {setgn half 0 eq {setsn} if} if %N ausz 8 ge { /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgf setsn} %PSL1-SW-Geraet ifelse } if %bei ausz=8: Farb- oder SW-Ausdruck je nach Drucker } bind def %%EndProlog %!A4quer gsave /ausz 7 def /half 3 def Halbt 1.0 1.0 1.0 1.0 setcmyknew 1.0 1.0 scale 0.5 MM 0.5 MM translate 0.15 MM setlinewidth /lanind 0 def /lantex [(G) (E) (S) (N) (I) (J)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /x 20 array def /y 20 array def /d 20 array def /x [000 296 296 000 002 294 294 002 004 292 292 004 006 290 290 006 008 288 288 008 ] def /y [000 000 210 210 002 002 208 208 004 004 206 206 006 006 204 204 008 008 202 202 ] def /d [060 017 -60 -17 058 015 -58 -15 056 013 -56 -13 054 011 -54 -11 052 009 -52 -09 ] def /xlu 017 MM def /ylu 017 MM def /xro 279 MM def /yro 193 MM def /xlo 017 MM def /ylo 193 MM def /xru 279 MM def /yru 017 MM def xlu 8 MM sub ylu moveto 16 MM 0 rlineto stroke xlu ylu 8 MM sub moveto 0 58 MM rlineto stroke xro 8 MM add yro moveto -58 MM 0 rlineto stroke xro yro 8 MM add moveto 0 -58 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 tfn 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 (F) show x00 xdif 3 mul add MM y0o MM moveto (F) 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 (F) show x0l MM y00 ydif 3 mul add MM moveto (F) 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 {tfc} if j0 1 eq {tfn} if j0 2 eq {tfm} if j0 3 eq {tfn} if j0 4 eq {tfy} if j0 5 eq {tfn} if j0 6 eq {tfo} if j0 7 eq {tfn} if j0 8 eq {tfl} if j0 9 eq {tfn} if j0 10 eq {tfv} 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 /ix0 xlu 8 MM add j0 7 MM mul add def /iy0 ylu 8 MM sub def j 16 eq {ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 0.0 0.0 0.0 tzank j get outrecfi} if ix0 iy0 s s 0.0 0.0 0.0 tzank j get outrecfi /ix0 xru 43 MM sub j0 7 MM mul add def /iy0 yru 8 MM sub def j 16 eq {ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 0.0 0.0 0.0 tzank j get outrecfi} if ix0 iy0 s s 0.0 0.0 0.0 tzank j get outrecfi /ix0 xlo 8 MM add j0 7 MM mul add def /iy0 ylo 1 MM add def j 16 eq {ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 0.0 0.0 0.0 tzank j get outrecfi} if ix0 iy0 s s 0.0 0.0 0.0 tzank j get outrecfi /ix0 xro 43 MM sub j0 7 MM mul add def /iy0 yro 1 MM add def j 16 eq {ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 0.0 0.0 0.0 tzank j get outrecfi} if ix0 iy0 s s 0.0 0.0 0.0 tzank j get outrecfi %j 20 eq {tfn ix0 s add iy0 moveto 0 s rlineto stroke} if } for %j tfn %mitte %000 MM 105 MM moveto 08 MM 00 MM rlineto stroke %296 MM 105 MM moveto -8 MM 00 MM rlineto stroke %148 MM 000 MM moveto 00 MM 08 MM rlineto stroke %148 MM 210 MM moveto 00 MM -8 MM rlineto stroke tfn %rows %050 MM 000 MM moveto 00 MM 08 MM rlineto stroke %246 MM 000 MM moveto 00 MM 08 MM rlineto stroke %050 MM 210 MM moveto 00 MM -08 MM rlineto stroke %246 MM 210 MM moveto 00 MM -08 MM rlineto stroke %000 MM 050 MM moveto 08 MM 00 MM rlineto stroke %000 MM 160 MM moveto 08 MM 00 MM rlineto stroke %296 MM 050 MM moveto -08 MM 00 MM rlineto stroke %296 MM 160 MM moveto -08 MM 00 MM rlineto stroke %050 MM 000 MM moveto -08 MM 08 MM rlineto stroke %246 MM 000 MM moveto -08 MM 08 MM rlineto stroke %050 MM 210 MM moveto -08 MM -08 MM rlineto stroke %246 MM 210 MM moveto -08 MM -08 MM rlineto stroke %000 MM 050 MM moveto 08 MM -08 MM rlineto stroke %000 MM 160 MM moveto 08 MM -08 MM rlineto stroke %296 MM 050 MM moveto -08 MM -08 MM rlineto stroke %296 MM 160 MM moveto -08 MM -08 MM rlineto stroke %050 MM 000 MM moveto 08 MM 08 MM rlineto stroke %246 MM 000 MM moveto 08 MM 08 MM rlineto stroke %050 MM 210 MM moveto 08 MM -08 MM rlineto stroke %246 MM 210 MM moveto 08 MM -08 MM rlineto stroke %000 MM 050 MM moveto 08 MM 08 MM rlineto stroke %000 MM 160 MM moveto 08 MM 08 MM rlineto stroke %296 MM 050 MM moveto -08 MM 08 MM rlineto stroke %296 MM 160 MM moveto -08 MM 08 MM rlineto stroke 018 MM 008.2 MM moveto 6 /Times-Roman FS (-8) show 018 MM 006.2 MM moveto 6 /Times-Roman FS (-6) show %018 MM 004.2 MM moveto 6 /Times-Roman FS (-4) show %018 MM 002.2 MM moveto 6 /Times-Roman FS (-2) 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 %276 MM 004.2 MM moveto 6 /Times-Roman FS (-4) show %276 MM 002.2 MM moveto 6 /Times-Roman FS (-2) 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 %018 MM 206.2 MM moveto 6 /Times-Roman FS (-4) show %018 MM 208.2 MM moveto 6 /Times-Roman FS (-2) 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 %276 MM 206.2 MM moveto 6 /Times-Roman FS (-4) show %276 MM 208.2 MM moveto 6 /Times-Roman FS (-2) show tfn 12 /Times-ISOL1 FS 62 MM 12 MM moveto (Ausgabe\255Linearisierung von 16 Graustufen nach) showde (Output linearization of 16 grey steps according to) showen (Output linearization of 16 grey steps according to) showes (Output linearization of 16 grey steps according to) showfr (Output linearization of 16 grey steps according to) showit (Output linearization of 16 grey steps according to) showjp ( ISO/IEC 15775; PS operator w* setgray) show 62 MM 197 MM moveto (http://www.ps.bam.de/DG02/10F/F10GS4) show GEX$ show (; ) show (Start und linearisierte Ausgabe) showde (Start and linearized output) showen (Start and linearized output) showes (Start and linearized output) showfr (Start and linearized output) showit (Start and linearized output) showjp (Start and linearized output) showm 12 MM 185 MM moveto -90 rotate (Technische Informationen: ) showde (Technical information: ) showen (Informaci\363n t\351cnica en: ) showes (Technical information: ) showfr (Technical information: ) showit (Technical information: ) showjp (Technical information: ) showm (http://o2.ps.bam.de) show 90 rotate 12 MM 103 MM moveto -90 rotate (Bilddatei\255Version 1.6, 20011020\25533870\255D10) showde (Image file version 1.6, 20011020\25533870\255D10) showen (Image file version 1.6, 20011020\25533870\255D10) showes (Image file version 1.6, 20011020\25533870\255D10) showfr (Image file version 1.6, 20011020\25533870\255D10) showit (Image file version 1.6, 20011020\25533870\255D10) showjp (Image file version 1.6, 20011020\25533870\255D10) showm 90 rotate 281 MM 185 MM moveto -90 rotate (BAM\255Registrierung: 20011020\25510) showde (BAM registration: 20011020\25533870\255D10) showen (BAM registration: 20011020\25533870\255D10) showes (BAM registration: 20011020\25533870\255D10) showfr (BAM registration: 20011020\25533870\255D10) showit (BAM registration: 20011020\25533870\255D10) showjp (BAM registration: 20011020\25533870\255D10) showm 90 rotate 281 MM 103 MM moveto -90 rotate (BAM\255Referenz\255Material: Code=rha4ra\255D10) showde (BAM\255Reference material: code=rha4ra\255D10) showen (BAM\255Reference material: code=rha4ra\255D10) showes (BAM\255Reference material: code=rha4ra\255D10) showfr (BAM\255Reference material: code=rha4ra\255D10) showit (BAM\255Reference material: code=rha4ra\255D10) showjp (BAM\255Reference material: code=rha4ra\255D10) showm 90 rotate grestore showpage %%Trailer %Zeile 500 %%EndDocument EndEPSF grestore gsave showpage %%Trailer