%!PS-Adobe-3.0 EPSF-3.0 www.ps.bam.de/DE02/10A/A02ES3RP.PS/.PDF 20021001 %%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/DE02/DE02.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:2002100112000) /ModDate (D:2002100112000) /DOCINFO pdfmark [ /View [ /Fit ] /DOCVIEW pdfmark %change scount2 from 1 to 10 for 10 series /scount1 1 def /scount2 10 def %BEG A02E00NP.PS /SS$ [(G) (E) (S) (F) (I) (J) (M)] def /SC$ [(N) (F) (S) (D) (T) (E) (C) (R)] 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$ 7 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 1 def /MTLinparrS1 [0 17 34 51 68 85 102 119 136 153 170 187 204 221 238 255] bind def /MTLinparrS2 [0 17 34 51 68 85 102 119 136 153 170 187 204 221 238 255] bind def %BEG START output: S101 /CFilenameS101g %START output of step S101g (www.ps.bam.de/DE02/10A/A02ES1N) def %Link file name for data /CDeviceS101g (Geraet: unbekannt; ) def %Device name /CMeasS101g (Messung: DE02/10A/A02E07N) def %File name measured in step S101g /CDateS101g (Datum: M2002-10-01) def %Date of calculation/measurement /MTLoutarrS101g 32 array def %theoretical linear L* output S101g: %replace the following 32 MTLoutarrS101g output data by the 32 real output data of output S101g /MTLoutarrS101g [%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 %END START output: S101g %BEG Linearized output: S201 /CFilenameS201g (www.ps.bam.de/DE02/10A/A02E00F) def %File name measured in step S201g /CDeviceS201g CDeviceS101g def %Device name and file measured /CMeasS201g (Messung: DE02/10A/A02E07F) def %File name measured in step S201g /CDateS201g (Datum: M2002-10-01) def %Date of calculation/measurement /MTLoutarrS201g 32 array def /MTLoutarrS201g [%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 %END Linearized output: S201g %BEG Linearized output: S202g /CFilenameS202g (www.ps.bam.de/DE02/10A/A02ES2F) def %File name measured in step S202g /CDeviceS202g CDeviceS101g def %Device name and file measured /CMeasS202g (Messung: DE02/10A/A02E07F) def %File name measured in step S202g /CDateS202g (Datum: M2002-10-01) def %Date of calculation/measurement /MTLoutarrS202g 32 array def /MTLoutarrS202g [%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 %END Linearized output: S202g %BEG Linearized output: S203g /CFilenameS203g (www.ps.bam.de/DE02/10A/A02ES2F) def %File name measured in step S203g /CDeviceS203g CDeviceS101g def %Device name and file measured /CMeasS203g (Messung: DE02/10A/A02E07F) def %File name measured in step S203g /CDateS203g (Datum: M2002-10-01) def %Date of calculation/measurement /MTLoutarrS203g 32 array def /MTLoutarrS203g [%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 %END Linearized output: S203g %BEG Linearized output: S204g /CFilenameS204g (www.ps.bam.de/DE02/10A/A02ES2F) def %File name measured in step S204g /CDeviceS204g CDeviceS101g def %Device name and file measured /CMeasS204g (Messung: DE02/10A/A02E07F) def %File name measured in step S204g /CDateS204g (Datum: M2002-10-01) def %Date of calculation/measurement /MTLoutarrS204g 32 array def /MTLoutarrS204g [%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 %END Linearized output: S204g %BEG Linearized output: S205g /CFilenameS205g (www.ps.bam.de/DE02/10A/A02ES2F) def %File name measured in step S205g /CDeviceS205g CDeviceS101g def %Device name and file measured /CMeasS205g (Messung: DE02/10A/A02E07F) def %File name measured in step S205g /CDateS205g (Datum: M2002-10-01) def %Date of calculation/measurement /MTLoutarrS205g 32 array def /MTLoutarrS205g [%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 %END Linearized output: S205g %BEG Linearized output: S206g /CFilenameS206g (www.ps.bam.de/DE02/10A/A02ES2F) def %File name measured in step S206g /CDeviceS206g CDeviceS101g def %Device name and file measured /CMeasS206g (Messung: DE02/10A/A02E07F) def %File name measured in step S206g /CDateS206g (Datum: M2002-10-01) def %Date of calculation/measurement /MTLoutarrS206g 32 array def /MTLoutarrS206g [%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 %END Linearized output: S206g %BEG Linearized output: S207g /CFilenameS207g (www.ps.bam.de/DE02/10A/A02ES2F) def %File name measured in step S207g /CDeviceS207g CDeviceS101g def %Device name and file measured /CMeasS207g (Messung: DE02/10A/A02E07F) def %File name measured in step S207g /CDateS207g (Datum: M2002-10-01) def %Date of calculation/measurement /MTLoutarrS207g 32 array def /MTLoutarrS207g [%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 %END Linearized output: S207g %BEG Linearized output: S208g /CFilenameS208g (www.ps.bam.de/DE02/10A/A02ES2F) def %File name measured in step S208g /CDeviceS208g CDeviceS101g def %Device name and file measured /CMeasS208g (Messung: DE02/10A/A02E07F) def %File name measured in step S208g /CDateS208g (Datum: M2002-10-01) def %Date of calculation/measurement /MTLoutarrS208g 32 array def /MTLoutarrS208g [%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 %END Linearized output: S208g %BEG Linearized output: S209g /CFilenameS209g (www.ps.bam.de/DE02/10A/A02ES2F) def %File name measured in step S209g /CDeviceS209g CDeviceS101g def %Device name and file measured /CMeasS209g (Messung: DE02/10A/A02E07F) def %File name measured in step S209g /CDateS209g (Datum: M2002-10-01) def %Date of calculation/measurement /MTLoutarrS209g 32 array def /MTLoutarrS209g [%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 %END Linearized output: S209g %BEG Linearized output: S210g /CFilenameS210g (www.ps.bam.de/DE02/10A/A02ES2F) def %File name measured in step S210g /CDeviceS210g CDeviceS101g def %Device name and file measured /CMeasS210g (Messung: DE02/10A/A02E07F) def %File name measured in step S210g /CDateS210g (Datum: M2002-10-01) def %Date of calculation/measurement /MTLoutarrS210g 32 array def /MTLoutarrS210g [%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 %END Linearized output: S210g %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 /MTLoutarrS2g 32 array def /CDeviceS1g CDeviceS101g def /CMeasS1g CMeasS101g def /CDateS1g CDateS101g def /CFilenameS1g CFilenameS101g def scount1 1 scount2 {/scount exch def %s=serie, e. g. 1,1,5 scount 1 eq {%scount=1 /MTLoutarrS201g where {pop 0 1 31 {/MTLi exch def MTLoutarrS2g MTLi MTLoutarrS201g MTLi get put } for } if /CFilenameS201g where {pop /CFilenameS2g CFilenameS201g def} if /CDeviceS201g where {pop /CDeviceS2g CDeviceS201g def} if /CMeasS201g where {pop /CMeasS2g CMeasS201g def} if /CDateS201g where {pop /CDateS2g CDateS201g def} if } if %scount=1 scount 2 eq {%scount=2 /MTLoutarrS202g where {pop 0 1 31 {/MTLi exch def MTLoutarrS2g MTLi MTLoutarrS202g MTLi get put } for } if /CFilenameS202g where {pop /CFilenameS2g CFilenameS202g def} if /CDeviceS202g where {pop /CDeviceS2g CDeviceS202g def} if /CMeasS202g where {pop /CMeasS2g CMeasS202g def} if /CDateS202g where {pop /CDateS2g CDateS202g def} if } if %scount=2 scount 3 eq {%scount=3 /MTLoutarrS203g where {pop 0 1 31 {/MTLi exch def MTLoutarrS2g MTLi MTLoutarrS203g MTLi get put } for } if /CFilenameS203g where {pop /CFilenameS2g CFilenameS203g def} if /CDeviceS203g where {pop /CDeviceS2g CDeviceS203g def} if /CMeasS203g where {pop /CMeasS2g CMeasS203g def} if /CDateS203g where {pop /CDateS2g CDateS203g def} if } if %scount=3 scount 4 eq {%scount=4 /MTLoutarrS204g where {pop 0 1 31 {/MTLi exch def MTLoutarrS2g MTLi MTLoutarrS204g MTLi get put } for } if /CFilenameS204g where {pop /CFilenameS2g CFilenameS204g def} if /CDeviceS204g where {pop /CDeviceS2g CDeviceS204g def} if /CMeasS204g where {pop /CMeasS2g CMeasS204g def} if /CDateS204g where {pop /CDateS2g CDateS204g def} if } if %scount=4 scount 5 eq {%scount=5 /MTLoutarrS205g where {pop 0 1 31 {/MTLi exch def MTLoutarrS2g MTLi MTLoutarrS205g MTLi get put } for } if /CFilenameS205g where {pop /CFilenameS2g CFilenameS205g def} if /CDeviceS205g where {pop /CDeviceS2g CDeviceS205g def} if /CMeasS205g where {pop /CMeasS2g CMeasS205g def} if /CDateS205g where {pop /CDateS2g CDateS205g def} if } if %scount=5 scount 6 eq {%scount=6 /MTLoutarrS206g where {pop 0 1 31 {/MTLi exch def MTLoutarrS2g MTLi MTLoutarrS206g MTLi get put } for } if /CFilenameS206g where {pop /CFilenameS2g CFilenameS206g def} if /CDeviceS206g where {pop /CDeviceS2g CDeviceS206g def} if /CMeasS206g where {pop /CMeasS2g CMeasS206g def} if /CDateS206g where {pop /CDateS2g CDateS206g def} if } if %scount=6 scount 7 eq {%scount=7 /MTLoutarrS207g where {pop 0 1 31 {/MTLi exch def MTLoutarrS2g MTLi MTLoutarrS207g MTLi get put } for } if /CFilenameS207g where {pop /CFilenameS2g CFilenameS207g def} if /CDeviceS207g where {pop /CDeviceS2g CDeviceS207g def} if /CMeasS207g where {pop /CMeasS2g CMeasS207g def} if /CDateS207g where {pop /CDateS2g CDateS207g def} if } if %scount=7 scount 8 eq {%scount=8 /MTLoutarrS208g where {pop 0 1 31 {/MTLi exch def MTLoutarrS2g MTLi MTLoutarrS208g MTLi get put } for } if /CFilenameS208g where {pop /CFilenameS2g CFilenameS208g def} if /CDeviceS208g where {pop /CDeviceS2g CDeviceS208g def} if /CMeasS208g where {pop /CMeasS2g CMeasS208g def} if /CDateS208g where {pop /CDateS2g CDateS208g def} if } if %scount=8 scount 9 eq {%scount=9 /MTLoutarrS209g where {pop 0 1 31 {/MTLi exch def MTLoutarrS2g MTLi MTLoutarrS209g MTLi get put } for } if /CFilenameS209g where {pop /CFilenameS2g CFilenameS209g def} if /CDeviceS209g where {pop /CDeviceS2g CDeviceS209g def} if /CMeasS209g where {pop /CMeasS2g CMeasS209g def} if /CDateS209g where {pop /CDateS2g CDateS209g def} if } if %scount=9 scount 10 eq {%scount=10 /MTLoutarrS210g where {pop 0 1 31 {/MTLi exch def MTLoutarrS2g MTLi MTLoutarrS210g MTLi get put } for } if /CFilenameS210g where {pop /CFilenameS2g CFilenameS210g def} if /CDeviceS210g where {pop /CDeviceS2g CDeviceS210g def} if /CMeasS210g where {pop /CMeasS2g CMeasS210g def} if /CDateS210g where {pop /CDateS2g CDateS210g def} if } if %scount=10 /L*NgS2 MTLoutarrS2g 0 get MTLoutarrS2g 16 get add 0.5 mul 0.01 add def /L*WgS2 MTLoutarrS2g 15 get MTLoutarrS2g 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/DE02/10A/A02E07NP.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/DE02/DE02.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:2002100112000) /ModDate (D:2002100112000) /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 CMeasS1g show GEX$ show (; ) show CDeviceS1g show (; ) show CDateS1g 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 /MTLoutarrS101gm 16 array def 0 1 15 {/i exch def %i=0,15 MTLoutarrS101gm i MTLoutarrS101g i get MTLoutarrS101g 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 {MTLoutarrS101g i get} bind def /out2 {MTLoutarrS101g i get} bind def /outm {MTLoutarrS101gm i get} bind def /outL*var outL*var out1 outm sub 2 exp out2 outm sub 2 exp add add def MTLoutarrS101g 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 MTLoutarrS101gm 0 get put LABREFW 1 MTLoutarrS101gm 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 MTLoutarrS101gm 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 CMeasS1g show GEX$ show (; ) show CDeviceS1g show (; ) show CDateS1g 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 MTLinparrS1 15 get MTLinparrS1 0 get sub def /MTLoutarrS101gm 16 array def 0 1 15 {/i exch def %i=0,15 MTLoutarrS101gm i MTLoutarrS101g i get MTLoutarrS101g i 16 add get add 0.5 mul put } for %i=0,15 /difout MTLoutarrS101gm 15 get MTLoutarrS101gm 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 MTLinparrS1 i get MTLinparrS1 0 get sub difinp div def /yw MTLoutarrS101gm i get MTLoutarrS101gm 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 MTLinparrS1 0 get def /output MTLoutarrS101gm 0 get def } if i 17 eq {/input MTLinparrS1 3 get 0.25 mul MTLinparrS1 4 get 0.75 mul add def /output MTLoutarrS101gm 3 get 0.25 mul MTLoutarrS101gm 4 get 0.75 mul add def } if i 18 eq {/input MTLinparrS1 7 get MTLinparrS1 8 get add 0.5 mul def /output MTLoutarrS101gm 7 get MTLoutarrS101gm 8 get add 0.5 mul def } if i 19 eq {/input MTLinparrS1 11 get 0.75 mul MTLinparrS1 12 get 0.25 mul add def /output MTLoutarrS101gm 11 get 0.75 mul MTLoutarrS101gm 12 get 0.25 mul add def } if i 20 eq {/input MTLinparrS1 15 get def /output MTLoutarrS101gm 15 get def } if /xw input MTLinparrS1 0 get sub difinp div def /yw output MTLoutarrS101gm 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 CFilenameS1g show GEX$ show 300 3100 moveto CMeasS1g show GEX$ show 300 2900 moveto CDeviceS1g show 300 2700 moveto CDateS1g 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/DE02/10A/A02E07NP.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/DE02/DE02.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:2002100112000) /ModDate (D:2002100112000) /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 CMeasS2g show GEX$ show (; ) show CDeviceS2g show (; ) show CDateS2g 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 /MTLoutarrS2gm 16 array def 0 1 15 {/i exch def %i=0,15 MTLoutarrS2gm i MTLoutarrS2g i get MTLoutarrS2g 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 {MTLoutarrS2g i get} bind def /out2 {MTLoutarrS2g i get} bind def /outm {MTLoutarrS2gm i get} bind def /outL*var outL*var out1 outm sub 2 exp out2 outm sub 2 exp add add def MTLoutarrS2g 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 MTLoutarrS2gm 0 get put LABREFW 1 MTLoutarrS2gm 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 MTLoutarrS2gm 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 CMeasS2g show GEX$ show (; ) show CDeviceS2g show (; ) show CDateS2g 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 /MTLoutarrS2gm 16 array def 0 1 15 {/i exch def %i=0,15 MTLoutarrS2gm i MTLoutarrS2g i get MTLoutarrS2g i 16 add get add 0.5 mul put } for %i=0,15 /difinp MTLinparrS2 15 get MTLinparrS2 0 get sub def /difout MTLoutarrS2gm 15 get MTLoutarrS2gm 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 MTLinparrS2 i get MTLinparrS2 0 get sub difinp div def /yw MTLoutarrS2gm i get MTLoutarrS2gm 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 MTLinparrS2 0 get def /output MTLoutarrS2gm 0 get def } if i 17 eq {/input MTLinparrS2 3 get 0.25 mul MTLinparrS2 4 get 0.75 mul add def /output MTLoutarrS2gm 3 get 0.25 mul MTLoutarrS2gm 4 get 0.75 mul add def } if i 18 eq {/input MTLinparrS2 7 get MTLinparrS2 8 get add 0.5 mul def /output MTLoutarrS2gm 7 get MTLoutarrS2gm 8 get add 0.5 mul def } if i 19 eq {/input MTLinparrS2 11 get 0.75 mul MTLinparrS2 12 get 0.25 mul add def /output MTLoutarrS2gm 11 get 0.75 mul MTLoutarrS2gm 12 get 0.25 mul add def } if i 20 eq {/input MTLinparrS2 15 get def /output MTLoutarrS2gm 15 get def } if /xw input MTLinparrS2 0 get sub difinp div def /yw output MTLoutarrS2gm 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 CFilenameS2g show GEX$ show 300 3100 moveto CMeasS2g show GEX$ show 300 2900 moveto CDeviceS2g show 300 2700 moveto CDateS2g 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 DE02 20021001 %%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 13 MM moveto (Ausgabe\255Linearisierung von) showde (Output linearization of 16 grey) showen (Output linearization of 16 grey) showes (Output linearization of 16 grey) showfr (Output linearization of 16 grey) showit (Output linearization of 16 grey) showjp 61 MM 09 MM moveto (16 Graustufen nach DIN 33870) showde (steps according to DIN 33870) showen (steps according to DIN 33870) showes (steps according to DIN 33870) showfr (steps according to DIN 33870) showit (steps according to DIN 33870) showjp 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 (w* setgray) show 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/DE02/10A/A02ES3RP.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/DE02/10A/A02ES2FP.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 16 MM 185 MM moveto -90 rotate (Aehnliche Dateien siehe ) showde (Similar files see: ) showen (Similar files see: ) showes (Similar files see: ) showfr (Similar files see: ) showit (Similar files see: ) showjp (Similar files see: ) showm (http://www.ps.bam.de) show (/DG02/DG02A.HTM) showde (/DE02/DE02A.HTM) showen (/DE02/DE02A.HTM) showes (/DE02/DE02A.HTM) showfr (/DE02/DE02A.HTM) showit (/DE02/DE02A.HTM) showjp (/DE02/DE02A.HTM) showm 90 rotate 12 MM 103 MM moveto -90 rotate (Bilddatei\255Version 2.0, 20021001\255DG02) showde (Image file version 2.0, 20021001\255DE02) showen (Image file version 2.0, 20021001\255DE02) showes (Image file version 2.0, 20021001\255DE02) showfr (Image file version 2.0, 20021001\255DE02) showit (Image file version 2.0, 20021001\255DE02) showjp (Image file version 2.0, 20021001\255DE02) showm 90 rotate 281 MM 185 MM moveto -90 rotate (BAM\255Registrierung: 20021001\255DG02/10A/A02) showde (BAM registration: 20021001\255DE02/10A/A02) showen (BAM registration: 20021001\255DE02/10A/A02) showes (BAM registration: 20021001\255DE02/10A/A02) showfr (BAM registration: 20021001\255DE02/10A/A02) showit (BAM registration: 20021001\255DE02/10A/A02) showjp (BAM registration: 20021001\255DE02/10A/A02) showm LSS$ show (S3) 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 146 MM 13 MM moveto CDeviceS2g showde CDeviceS2g showen CDeviceS2g showes CDeviceS2g showfr CDeviceS2g showit CDeviceS2g showjp CDeviceS2g showm 146 MM 9 MM moveto CDateS2g showde CDateS2g showen CDateS2g showes CDateS2g showfr CDateS2g showit CDateS2g showjp CDateS2g showm 120 MM 13 MM moveto lanindg 0 eq {(Stufen: ) show}{(Steps: ) show} ifelse 120 MM 09 MM moveto (S1 ) show lanindg 0 eq {(und ) show}{(and ) show} ifelse scount 9 le {(S20) show scount cvishow} {(S2) show scount cvishow} ifelse %%Trailer %%EndDocument EndEPSF grestore gsave showpage grestore %Zeile 500 } for %scount=serie 1,5 %%Trailer