%!PS-Adobe-3.0 EPSF-3.0 www.ps.bam.de/DG22/10X/X22G00SY.PS(.PDF) 20020818 %%BoundingBox: 14 08 828 524 /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/DG22/DG22.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:2002081012000) /ModDate (D:2002081012000) /DOCINFO pdfmark [ /View [ /Fit ] /DOCVIEW pdfmark %change scount2 from 1 to 5 for 5 series /scount1 1 def /scount2 5 def %BEG X22G00NP.PS /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.PS/.TXT) (B.PS/.BMP) (G.PS/.GIF) (H.PS/.HTM) (I.PS/.HTM) (J.PS/.JPE) (P.PS/.PDF) (T.PS/.TIF)] def /EY$ [(A.DAT) (B.DAT) (G.DAT) (H.DAT) (I.DAT) (J.DAT) (P.DAT) (T.DAT)] def /GSS$ SS$ 0 get def /GSC$ SC$ 2 get def /GSX$ SX$ 0 get def /GSY$ SY$ 0 get def /GEX$ EX$ 6 get def /GEY$ EY$ 6 get def /i*ptrsc 7 def /lanindg 0 def %BEG MX22G07NP.DAT Measurement of file X22G07NP.PDF /CFilenameS1 (www.ps.bam.de/DG22/10X/X22M07N) def %File name measured in step S1 /CDeviceS1 (Device: X; ) def %Device name and file measured /CMeasS1 (Meas.: X22G07N) def %File name measured in step S1 /CDateS1 (Date: M20020801) 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 32 array def /outputarrayS1 [%ouptut series F...0 (Black to White) = 32 colours 12.80 13.24 13.63 19.19 26.83 34.12 40.27 44.95 50.75 55.23 60.02 70.35 76.19 83.60 88.87 96.39 12.80 13.24 13.63 19.19 26.83 34.12 40.27 44.95 50.75 55.23 60.02 70.35 76.19 83.60 88.87 96.39 ] bind def %ouptut series F...0 /MTLoutarrS1g where {pop 0 1 31 {/MTLi exch def outputarrayS1 MTLi MTLoutarrS1g MTLi get put } for } if /CFilenameS1g where {pop /CFilenameS1 CFilenameS1g def} if /CDeviceS1g where {pop /CDeviceS1 CDeviceS1g def} if /CMeasS1g where {pop /CMeasS1 CMeasS1g def} if /CDateS1g where {pop /CDateS1 CDateS1g def} if /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 MX22G07NP.DAT %BEG MX22G07SP.DAT Measurement of file X22G07SP.PDF /CFilenameS2 (www.ps.bam.de/DG22/10X/X22M07S) def %File name measured in step S1 /CDeviceS2 (Device: X; ) def %Device name and file measured /CMeasS2 (Meas.: X22G07S) def %File name measured in step S1 /CDateS2 (Date: M20020801) 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 32 array def /outputarrayS2 [%ouptut series F...0 (Black to White) = 32 colours 15.09 19.38 24.96 32.31 36.41 41.21 47.38 53.37 59.19 61.58 66.43 73.62 79.59 86.49 90.40 96.07 15.09 19.38 24.96 32.31 36.41 41.21 47.38 53.37 59.19 61.58 66.43 73.62 79.59 86.49 90.40 96.07 ] bind def %ouptut series F...0 /MTLoutarrS2g where {pop 0 1 31 {/MTLi exch def outputarrayS2 MTLi MTLoutarrS2g MTLi get put } for } if /CFilenameS2g where {pop /CFilenameS2 CFilenameS2g def} if /CDeviceS2g where {pop /CDeviceS2 CDeviceS2g def} if /CMeasS2g where {pop /CMeasS2 CMeasS2g def} if /CDateS2g where {pop /CDateS2 CDateS2g def} if /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 18.01 def /L*WgS2 95.41 def /L*NS2 L*NgS2 def /L*WS2 L*WgS2 def %END MX22G07SP.DAT %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 MX10GSX.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 %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 /tfo {1.0 0.0 0.0 setrgbcolor} bind def /tfl {0.0 1.0 0.0 setrgbcolor} 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 scount1 1 scount2 {/scount exch def %s=serie, e. g. 1,1,5 scount 1 eq {%scount=1 /MTLoutarrS2g where {pop 0 1 31 {/MTLi exch def outputarrayS2 MTLi MTLoutarrS2g MTLi get put } for } if /CFilenameS2g where {pop /CFilenameS2 CFilenameS2g def} if /CDeviceS2g where {pop /CDeviceS2 CDeviceS2g def} if /CMeasS2g where {pop /CMeasS2 CMeasS2g def} if /CDateS2g where {pop /CDateS2 CDateS2g def} if } if %scount=1 scount 2 eq {%scount=2 /MTLoutarrS2g02 where {pop 0 1 31 {/MTLi exch def outputarrayS2 MTLi MTLoutarrS2g02 MTLi get put } for } if /CFilenameS2g02 where {pop /CFilenameS2 CFilenameS2g02 def} if /CDeviceS2g02 where {pop /CDeviceS2 CDeviceS2g02 def} if /CMeasS2g02 where {pop /CMeasS2 CMeasS2g02 def} if /CDateS2g02 where {pop /CDateS2 CDateS2g02 def} if } if %scount=2 scount 3 eq {%scount=3 /MTLoutarrS2g03 where {pop 0 1 31 {/MTLi exch def outputarrayS2 MTLi MTLoutarrS2g03 MTLi get put } for } if /CFilenameS2g03 where {pop /CFilenameS2 CFilenameS2g03 def} if /CDeviceS2g03 where {pop /CDeviceS2 CDeviceS2g03 def} if /CMeasS2g03 where {pop /CMeasS2 CMeasS2g03 def} if /CDateS2g03 where {pop /CDateS2 CDateS2g03 def} if } if %scount=3 scount 4 eq {%scount=4 /MTLoutarrS2g04 where {pop 0 1 31 {/MTLi exch def outputarrayS2 MTLi MTLoutarrS2g04 MTLi get put } for } if /CFilenameS2g04 where {pop /CFilenameS2 CFilenameS2g04 def} if /CDeviceS2g04 where {pop /CDeviceS2 CDeviceS2g04 def} if /CMeasS2g04 where {pop /CMeasS2 CMeasS2g04 def} if /CDateS2g04 where {pop /CDateS2 CDateS2g04 def} if } if %scount=4 scount 5 eq {%scount=5 /MTLoutarrS2g05 where {pop 0 1 31 {/MTLi exch def outputarrayS2 MTLi MTLoutarrS2g05 MTLi get put } for } if /CFilenameS2g05 where {pop /CFilenameS2 CFilenameS2g05 def} if /CDeviceS2g05 where {pop /CDeviceS2 CDeviceS2g05 def} if /CMeasS2g05 where {pop /CMeasS2 CMeasS2g05 def} if /CDateS2g05 where {pop /CDateS2 CDateS2g05 def} if } if %scount=5 /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 18.01 def /L*WgS2 95.41 def /L*NS2 L*NgS2 def /L*WS2 L*WgS2 def 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/DG22/10X/X22G07NP.PDF %%BoundingBox: 60 80 390 330 %START PDFDG011.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/DG22/DG22.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:2002080112000) /ModDate (D:2002080112000) /DOCINFO pdfmark [ /View [ /FitB ] /DOCVIEW pdfmark %END PDFDG011 /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 lanindg 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 CMeasS1 show GEX$ show (; ) show CDeviceS1 show (; ) show CDateS1 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 /lanind lanindg def 6 /Times-Roman FS 72 83 moveto CMeasS1 show GEX$ show (; ) show CDeviceS1 show (; ) show CDateS1 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 3100 moveto CMeasS1 show GEX$ show 300 2900 moveto CDeviceS1 show 300 2700 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/DG22/10X/X22G07NP.PDF %%BoundingBox: 60 80 390 330 %START PDFDG011.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/DG22/DG22.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:2002080112000) /ModDate (D:2002080112000) /DOCINFO pdfmark [ /View [ /FitB ] /DOCVIEW pdfmark %END PDFDG011 /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 lanindg 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 CMeasS2 show GEX$ show (; ) show CDeviceS2 show (; ) show CDateS2 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 /lanind lanindg def 6 /Times-Roman FS 72 83 moveto CMeasS2 show GEX$ show (; ) show CDeviceS2 show (; ) show CDateS2 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 3100 moveto CMeasS2 show GEX$ show 300 2900 moveto CDeviceS2 show 300 2700 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-3.0 EPSF-3.0 Frame arround with Internet text DG22 20020801 %%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 /showm {6 lanind eq {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /colormg where {pop /colorm1 colormg def /colorm2 colormg def} {/colorm1 0 def /colorm2 0 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 1 def /xchart2 1 def} ifelse /lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage /colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage /xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage /xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage /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 /i*ptrsc where {pop %/i*ptrsc i*ptrsc def } {/i*ptrsc 0 def} ifelse gsave 0 setgray 1.0 1.0 scale 0.0 MM 0.0 MM translate 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 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 16 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 18 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 16 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 276 MM 008.2 MM moveto 6 /Times-Roman FS (-8) show %018 MM 202.2 MM moveto 6 /Times-Roman FS (-8) show %276 MM 202.2 MM moveto 6 /Times-Roman FS (-8) show 12 /Times-ISOL1 FS 61 MM 11 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 146 MM 13 MM moveto ( ISO/IEC 15775 und) showde ( ISO/IEC 15775 and) showen ( ISO/IEC 15775 and) showes ( ISO/IEC 15775 and) showfr ( ISO/IEC 15775 and) showit ( ISO/IEC 15775 and) showjp ( ISO/IEC 15775 and) showm 146 MM 9 MM moveto ( DIN 33866\255X) showde ( DIN 33866\255X) showen ( DIN 33866\255X) showes ( DIN 33866\255X) showfr ( DIN 33866\255X) showit ( DIN 33866\255X) showjp ( DIN 33866\255X) showm (; ) show 189 MM 13 MM moveto (input: ) show 12 /Times-Italic FS (w* setgray) show 12 /Times-ISOL1 FS 189 MM 9 MM moveto (output: ) show 12 /Times-Italic FS LSC$ (N) eq { (w* setgray) show } if LSC$ (F) eq LSC$ (S) eq or { i*ptrsc 0 eq {(cmy0* / 000n* setcmykcolor) show} if i*ptrsc 1 eq {(olv* setrgbcolor / w* setgray) show} if i*ptrsc 2 eq {(cmy0* / nnn0* setcmykcolor) show} if i*ptrsc 3 eq {(olv* / www* setrgbcolor) show} if i*ptrsc 4 eq {(lab* setcolor) show} if i*ptrsc 5 eq {(LAB* setcolor) show} if i*ptrsc 6 eq {(000n* setcmykcolor) show} if i*ptrsc 7 eq {(w* setgray) show} if } if 12 /Times-ISOL1 FS 62 MM 198.5 MM moveto (http://) show (www.ps.bam.de/DG22/10X/X22G00SP.PS) 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 LSC$ (N) eq { (Start\255Ausgabe und ohne OL: ) showde (start output and no OL) showen (start output and no OL) showes (start output and no OL) showfr (start output and no OL) showit (start output and no OL) showjp (start output and no OL) showm } if LSC$ (C) eq { (Start\255Ausgabe und ohne OL) showde (start output and no OL) showen (start output and no OL) showes (start output and no OL) showfr (start output and no OL) showit (start output and no OL) showjp (start output and no OL) showm } if LSC$ (F) eq { (Linearisierte\255Ausgabe mit OL) showde (linearized output with OL) showen (linearized output with OL) showes (linearized output with OL) showfr (linearized output with OL) showit (linearized output with OL) showjp (linearized output with OL) showm } if 62 MM 194 MM moveto LSC$ (N) eq LSC$ (C) eq or { (N: Keine Ausgabe\255Linearisierung (OL) in Datei (F), Startup (S), Ger\344t (D)) showde (N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showen (N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showes (N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showfr (N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showit (N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showjp (N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showm } { (Ausgabe\255Linearisierung mit ) showde (Output Linearization with ) showen (Output Linearization with ) showes (Output Linearization with ) showfr (Output Linearization with ) showit (Output Linearization with ) showjp (Output Linearization with ) showm (www.ps.bam.de/DG22/10L/L22G00SP.PS) show } ifelse LSC$ (F) eq { ( in der Datei (F)) showde ( in File (F)) showen ( in File (F)) showes ( in File (F)) showfr ( in File (F)) showit ( in File (F)) showjp ( in File (F)) showm } if LSC$ (S) eq { ( im Distiller Startup (S)) showde ( in Distiller Startup (S)) showen ( in Distiller Startup (S)) showes ( in Distiller Startup (S)) showfr ( in Distiller Startup (S)) showit ( in Distiller Startup (S)) showjp ( in Distiller Startup (S)) showm } if LSC$ (D) eq { ( in PostScript Device (D)) showde ( in PostScript Device (D)) showen ( in PostScript Device (D)) showes ( in PostScript Device (D)) showfr ( in PostScript Device (D)) showit ( in PostScript Device (D)) showjp ( in PostScript Device (D)) showm } if LSC$ (T) eq { ( von Distiller Startup (S)) showde ( of Distiller Startup (S)) showen ( of Distiller Startup (S)) showes ( of Distiller Startup (S)) showfr ( of Distiller Startup (S)) showit ( of Distiller Startup (S)) showjp ( of Distiller Startup (S)) showm } if LSC$ (E) eq { ( von PostScript Device (D)) showde ( of PostScript Device (D)) showen ( of PostScript Device (D)) showes ( of PostScript Device (D)) showfr ( of PostScript Device (D)) showit ( of PostScript Device (D)) showjp ( of PostScript Device (D)) showm } if 12 MM 185 MM moveto -90 rotate (Information, Bestellung: ) showde (Information and Order: ) showen (Informaci\363n t\351cnica en: ) showes (Information and Order: ) showfr (Information and Order: ) showit (Information and Order: ) showjp (Information and Order: ) showm (http://www.ps.bam.de) show 90 rotate 12 MM 103 MM moveto -90 rotate (Bilddatei\255Version 1.9, 20020801\255DG22) showde (Image file version 1.9, 20020801\255DG22) showen (Image file version 1.9, 20020801\255DG22) showes (Image file version 1.9, 20020801\255DG22) showfr (Image file version 1.9, 20020801\255DG22) showit (Image file version 1.9, 20020801\255DG22) showjp (Image file version 1.9, 20020801\255DG22) showm 90 rotate 281 MM 185 MM moveto -90 rotate (BAM\255Registrierung: 20020801\255DG22/10X/X22) showde (BAM registration: 20020801\255DG22/10X/X22) showen (BAM registration: 20020801\255DG22/10X/X22) showes (BAM registration: 20020801\255DG22/10X/X22) showfr (BAM registration: 20020801\255DG22/10X/X22) showit (BAM registration: 20020801\255DG22/10X/X22) showjp (BAM registration: 20020801\255DG22/10X/X22) showm LSS$ show LSX$ show LSY$ show LSC$ show LEX$ show 90 rotate 281 MM 74 MM moveto -90 rotate (BAM\255Material: Code=rha4ta) showde (BAM material: code=rha4ta) showen (BAM material: code=rha4ta) showes (BAM material: code=rha4ta) showfr (BAM material: code=rha4ta) showit (BAM material: code=rha4ta) showjp (BAM material: code=rha4ta) showm 90 rotate showpage %grestore %} for %output with xchart end %} for %output with colorm end %} for %output with xcolor end %} for %output with lanind end %%Trailer %%EndDocument EndEPSF grestore gsave showpage grestore %Zeile 500 } for %scount=serie 1,5 %%Trailer