%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/AE05/AE05L00XX.PS 20190201 %%BoundingBox: 14 08 828 584 /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: http://farbe.li.tu-berlin.de/AE05/AE05.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de, http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2019020112000) /ModDate (D:20190201112000) /DOCINFO pdfmark [ /View [ /FitB ] /DOCVIEW pdfmark %line20 %BEG AE05/OUTLIN10.PS Output Linearization linear (OL) rgb*->rgb'* 20160301 %Early Binding: needed for colour separation %/sgcmykcolor {setcmykcolor} bind def %/sggray {setgray} bind def %/sgrgbcolor {setrgbcolor} bind def %FILE PREPARED FOR MIXED MODE, e. g. input ORS18 and output TLS00 %/IMES 0 def %0=LAB* used, no reflection factor necessary /IMES 1 def /Yre 2.52 def %1=XYZ measurement and standard device reflection %/i*ptrsc 0 def %LAB* setcolor to cmy0* / 000n* setcmykcolor /i*ptrsc 1 def %LAB* setcolor to olv* setrgbcolor / w* setgray %/i*ptrsc 2 def %LAB* setcolor to cmy0* / nnn0* setcmykcolor %/i*ptrsc 3 def %LAB* setcolor to olv* / www* setrgbcolor %/i*ptrsc 4 def %LAB* setcolor to lab* setcolor %/i*ptrsc 5 def %LAB* setcolor to LAB* setcolor %/i*ptrsc 6 def %LAB* setcolor to 000n* setcmykcolor %/i*ptrsc 7 def %LAB* setcolor to w* setgray %/ISIN*ioG 0 def %default input for Offset Reflective System (ORS18/FRS09) %/ISOU*ioG 0 def %default output dto. /ISIN*ioG 1 def %input for Television Luminous System (TLS00) /ISOU*ioG 1 def %output dto. %/ISIN*ioG 2 def %input for Device Reflective measurement system (FRS09) %/ISOU*ioG 2 def %output dto. %/ISIN*ioG 3 def %input for Television Luminous Reflection System (TLS18) %/ISOU*ioG 3 def %output dto. %/ISIN*ioG 4 def %input for Natural Luminous System (NLS00) %/ISOU*ioG 4 def %output dto. %/ISIN*ioG 5 def %input for Natural Reflective System (NRS11) %/ISOU*ioG 5 def %output dto. %/ISIN*ioG 6 def %input for Standard Reflective System (CIE18) %/ISOU*ioG 6 def %output dto. %/ISIN*ioG 7 def %input for Standard Reflective System (TLS70) %/ISOU*ioG 7 def %output dto. /iLAB 0 def %/colormg 0 def %END AE05/OUTLIN10.PS Output Linearization linear (OL) rgb*->rgb'* 20160301 %BEG AE05/OUTLIN1X.PS 20110801 %EMPTY %END AE05/OUTLIN1X.PS 20110801 %BEG AE05/OUTLIN1Y2.PS Emty 20101101 %END AE05/OUTLIN1Y2.PS Emty 20101101 /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 /A4querF {598 0 translate 90 rotate} 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 /tzrcmy0* {0.0 1.0 1.0 0.0} bind def %Reproduction colours /tzgcmy0* {1.0 0.0 1.0 0.0} bind def %cmyn* setcmykcolor /tzbcmy0* {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 /tzrolv* {1.0 0.0 0.0} bind def %Reproduction colours /tzgolv* {0.0 1.0 0.0} bind def %olv* setrgbcolor /tzbolv* {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 /tzrLAB* [53.34 72.46 50.66] def %Reproduction colours /tzgLAB* [84.93 -79.83 74.80] def %LAB* setcolor /tzbLAB* [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 /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 7 string cvs show} def %%EndProlog %%BeginPageSetup /#copies 1 def %A4querF 1.0 1.0 scale /pgsave save def %%EndPageSetup /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.TXT /.PS) (B.BMP /.PS) (G.GIF /.PS) (H.HTM /.PS) (I.HTM /.PS) (J.JPE /.PS) (P.PDF /.PS) (T.TIF /.PS)] def /EY$ [(A.DAT) (B.DAT) (G.DAT) (H.DAT) (I.DAT) (J.DAT) (P.DAT) (T.DAT)] def %defaut values /lanind1f 01 def /lanind2f 01 def /laninddf 01 def /lanindmf 01 def /colorm1f 00 def /colorm2f 00 def /colormdf 01 def /colormmf 01 def /deintp1f 00 def /deintp2f 00 def /deintpdf 01 def /deintpmf 01 def /xcolor1f 03 def /xcolor2f 03 def /xcolordf 01 def /xcolormf 01 def /xchart1f 00 def /xchart2f 00 def /xchartdf 01 def /xchartmf 01 def /pchart1f 00 def /pchart2f 00 def /pchartdf 01 def /pchartmf 03 def /colsep1f 00 def /colsep2f 00 def /colsepdf 01 def /colsepmf 01 def /pmetam1f 00 def /pmetam2f 00 def /pmetamdf 01 def /pmetammf 01 def /xchart3f 00 def %free /xchart4f 00 def %test charts ISO/IEC 3, 2, 4; G, O, H, H /xchart5f 00 def %free %psosible change of default values /lanindg where {pop /lanind1f lanindg def /lanind2f lanindg def /laninddf laninddg def /lanindmf lanindmg def} if /colormg where {pop /colorm1f colormg def /colorm2f colormg def /colormdf colormdg def /colormmf colormmg def} if /deintpg where {pop /deintp1f deintpg def /deintp2f deintpg def /deintpdf deintpdg def /deintpmf deintpmg def} if /xcolorg where {pop /xcolor1f xcolorg def /xcolor2f xcolorg def /xcolordf xcolordg def /xcolormf xcolormg def} if /xchartg where {pop /xchart1f xchartg def /xchart2f xchartg def /xchartdf xchartdg def /xchartmf xchartmg def} if /pchartg where {pop /pchart1f pchartg def /pchart2f pchartg def /pchartdf pchartdg def /pchartmf pchartmg def} if /colsepg where {pop /colsep1f colsepg def /colsep2f colsepg def /colsepdf colsepdg def /colsepmf colsepmg def} if /pmetamg where {pop /pmetam1f pmetamg def /pmetam2f pmetamg def /pmetamdf pmetamdg def /pmetammf pmetammg def} if /xchart3g where {pop /xchart3f xchart3g def} if /xchart4g where {pop /xchart4f xchart4g def} if /xchart5g where {pop /xchart5f xchart5g def} if %/lanindf lanind1f def % /lanindf lanind1f def %lanind1f laninddf lanind2f {/lanindf exch def %/colormf colorm1f def % /colormf colorm1f def %colorm1f colormdf colorm2f {/colormf exch def %/deintpf deintp1f def % /deintpf deintp1f def %deintp1f deintpdf deintp2f {/deintpf exch def %/xcolorf xcolor1f def % /xcolorf xcolor1f def %xcolor1f xcolordf xcolor2f {/xcolorf exch def %/xchartf xchart1f def % xchart1f xchartdf xchart2f {/xchartf exch def %/pchartf pchart1f def % pchart1f pchartdf pchart2f {/pchartf exch def %/colsepf colsep1f def % /colsepf colsep1f def %colsep1f colsepdf colsep2f {/colsepf exch def %/pmetamf pmetam1f def % /pmetamf pmetam1f def %pmetam1f pmetamdf pmetam2f {/pmetamf exch def /lanind lanindf def /colorm colormf def /deintp deintpf def /xcolor xcolorf def /xchart xchartf def /pchart pchartf def /colsep colsepf def /pmetam pmetamf def /xchart3 xchart3f def /xchart4 xchart4f def /xchart5 xchart5f def %************************************************************* %/setgray {sfgray} bind def %/setrgbcolor {sfrgbcolor} bind def %/setcmykcolor {sfcmykcolor} bind def %********************************************************* /GSS$ SS$ lanind get def /GSC$ SC$ colorm get def /GSX$ SX$ xcolor xcolor 16 idiv 16 mul sub get def /GSY$ SY$ xchart xchart 16 idiv 16 mul sub get def /GEX$ EX$ 6 get def /GEY$ EY$ 6 get def %01 %02 %03 %04 %05 %06 %07 %08 %09 %10 %/xchartg where { } {1MR-0000F} ifelse gsave BeginEPSF 28 MM 197 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto 1 1 scale -77 -91 translate %%BeginDocument: Bild 10 %line 329 %%EndDocument EndEPSF grestore gsave BeginEPSF 28 MM 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto 1 1 scale -77 -91 translate %%BeginDocument: Bild 11 %line 339 %!PS-Adobe-3.0 EPSF-3.0 AE050-1, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (AE050-1,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 12 %line 349 %!PS-Adobe-3.0 EPSF-3.0 AE050-2, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (AE050-2,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 28 MM 2 MM sub 108 MM 23.0 MM add translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 13 %line 359 %!PS-Adobe-3.0 EPSF-3.0 AE050-3N %%BoundingBox: 70 82 785 270 %START PDFDE011.EPS /pdfmark03 where {pop} {userdict /pdfmark03 /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: http://farbe.li.tu-berlin.de/AE05/AE05.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2016040112000) /ModDate (D:20160401112000) /DOCINFO pdfmark03 [ /View [ /FitB ] /DOCVIEW pdfmark03 %END PDFDE011 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /A4querL {598 0 translate 90 rotate} def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse } forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse } forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse } forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse } forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /Courier findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Courier-ISOL1 exch definefont pop /Courier-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierB-ISOL1 exch definefont pop /TS {200 /Times-ISOL1 FS} bind def /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {300 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /CS {200 /Courier-ISOL1 FS} bind def /CK {250 /Courier-ISOL1 FS} bind def /CM {300 /Courier-ISOL1 FS} bind def /CG {350 /Courier-ISOL1 FS} bind def /CBS {200 /CourierB-ISOL1 FS} bind def /CBK {250 /CourierB-ISOL1 FS} bind def /CBM {300 /CourierB-ISOL1 FS} bind def /CBG {350 /CourierB-ISOL1 FS} bind def %***************************************************************************** /tznw* {0.00} bind def %grey series /tzdw* {0.25} bind def /tzzw* {0.50} bind def /tzhw* {0.75} bind def /tzww* {1.00} bind def /tfnw* {tznw* setgray} def /tfww* {tzww* setgray} def /tfn {0 setgray} bind def /tfw {1 setgray} bind def /trn {0.0 0.0 0.0} def %Reproduktionsfarben NZW /trz {0.5 0.5 0.5} def /trw {1.0 1.0 1.0} def /tgn {trn setrgbcolor} def /tgz {trz setrgbcolor} def /tgw {trw setrgbcolor} def %********************************************************** /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /rem %x0, y0 width heigth {/heigth exch def /width exch def /y0 exch def /x0 exch def x0 width 0.5 mul add y0 heigth 0.5 mul add moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def %********************************************************** /proc_16rec1 {%BEG proc_16rec1 %requires 0<=iout<=1 %requires deintp=0,1 15 setlinewidth tfw 0 0 moveto 24800 0 rlineto 0 6250 rlineto -24800 0 rlineto closepath fill tfn 0 0 moveto 24800 0 rlineto 0 6250 rlineto -24800 0 rlineto closepath stroke /iout 0 def tfn TK 100 -230 moveto iout 0 eq {(AE050-3, ) show} {(AE050-5, ) show} ifelse (Bild ) showde (picture ) showen (Fig. ) showes (Fig. ) showfr (Fig. ) showit (Figur ) showjp iout 0 eq {(A1) show} {(A2) show} ifelse (W) show Txx show (: ) show TIK (PS) show TK (\255Operator:) showde ( operator:) showen ( operator:) showes ( op\351rateur :) showfr ( operator:) showit ( operator:) showjp TIK xcolor 0 eq {( 000n setcmykcolor) show} if xcolor 1 eq {( w setgray) show} if xcolor 2 eq {( nnn0 setcmykcolor) show} if xcolor 3 eq {( www setrgbcolor) show} if TK %%%%%%%%%%% oberer Schriftzug %%%%%%%%%%%%%%%% tfn /x0 100 def /y0 5000 def /yd 300 def iout 0 eq {%iout=0,1 TBG x0 y0 0800 add moveto (This test chart is designed for a luminance test ) show (according to ISO 9241-306, ) show (and for the usual use of displays in offices: ) show x0 y0 0450 add moveto (If possible the luminance (brightness) ) show (of the white screen shall be adjusted visually to about 142 cd/m) show TBM 0 50 rmoveto (2) show 0 -50 rmoveto TM (.) show TM x0 y0 yd 0 mul sub moveto (The luminance of this upper white rectangle ) show (shall be covered by a white cardboard (no light goes thru) ) show (and shall be visually equal to the lower white display rectangle ) show (at the work place.) show x0 y0 yd 1 mul sub moveto (Remarks: ) show x0 y0 yd 2 mul sub moveto (Usually this upper white cardboard looks more yellowish. ) show (Still try to adjust the luminance of this upper and the lower rectangle ) show (by minimizing the luminance contrast.) show x0 y0 yd 3 mul sub moveto (For any other viewing situation visual fatique is reduced, ) show ( if equal luminance is adjusted for the white cardboard ) show (and of the white display.) show } %iout=0 {%iout=1 /y0 5900 def TM x0 y0 yd 0 mul sub moveto (Use the display "luminance (brightness)" bottom of the display to equal ) show (the luminance of this lower and the ) show (upper white rectangle (covered with a white cardboard).) show x0 y0 yd 1 mul sub moveto (If possible, measure the luminance of this lower display white ) show (with a luminance meter. Is the value arround 142 cd/m) show TK 0 40 rmoveto (2) show 0 -40 rmoveto TM (?) show x0 y0 yd 2 mul sub moveto (If possible, measure the illuminance of this lower display white ) show (with a lux meter. Is the value arround 500 lux?) show x0 y0 yd 3 mul sub moveto (If no measurement is possible, asume that the display luminance is ) show (142 cd/m) show TK 0 40 rmoveto (2) show 0 -40 rmoveto TM (.) show x0 y0 yd 4 mul sub moveto (Remarks:) show x0 y0 yd 5 mul sub moveto (The luminance ) show (142 cd/m) show TK 0 40 rmoveto (2) show 0 -40 rmoveto TM ( corresponds to a display illuminance of 500 lux ) show (by the usual reflection of 90% of the white cardboard.) show x0 y0 yd 6 mul sub moveto (The room illuminance 500 lux is asumed according to ISO 8995-1.) show ( In bright daylight the illuminance may be up to ten times higher.) show } ifelse %iout=0,1 } def %END proc_16rec1 %********************************************************* /cviht {dup 0 ge {0.49 add}{0.49 sub} ifelse cvi} def /cvishow {dup 0 ge {0.5 add} {0.5 sub} ifelse cvi 6 string cvs show} def /cvsshow1 {dup 0 ge {0.05 add} {0.05 sub} ifelse 10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {dup 0 ge {0.005 add} {0.005 sub} ifelse 100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {dup 0 ge {0.0005 add} {0.0005 sub} ifelse 1000 mul cvi 0.001 mul 7 string cvs show} def /A4quer {598 0 tl 90 rotate} def %%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 /showea {1 lanind le {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def %default values /lanind1 01 def /lanind2 01 def /lanindd 01 def /lanindm 01 def /colorm1 00 def /colorm2 00 def /colormd 01 def /colormm 01 def /deintp1 00 def /deintp2 00 def /deintpd 01 def /deintpm 01 def /xcolor1 03 def /xcolor2 03 def /xcolord 01 def /xcolorm 01 def /xchart1 00 def /xchart2 00 def /xchartd 01 def /xchartm 01 def /pchart1 02 def /pchart2 02 def /pchartd 01 def /pchartm 01 def /colsep1 00 def /colsep2 00 def /colsepd 01 def /colsepm 01 def /pmetam1 00 def /pmetam2 00 def /pmetamd 01 def /pmetamm 01 def /xchart3 00 def /xchart4 00 def /xchart5 00 def %usual change of default values /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def /lanindm lanindmf def} if /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def /colormm colormmf def} if /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def /deintpm deintpmf def} if /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def /xcolorm xcolormf def} if /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchartmf def} if /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def /pchartm pchartmf def} if /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def /colsepm colsepmf def} if /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def /pmetamm pmetammf def} if /xchart3f where {pop /xchart3 xchart3f def} if /xchart4f where {pop /xchart4 xchart4f def} if /xchart5f where {pop /xchart5 xchart5f def} if /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % /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 /colorml colorm def %0 1 1 {/colorml exch def %colorml=0,1 /xcolorl xcolor def %0 1 3 {/xcolorl exch def %xcolorl=0,3 /xchartl xchart def %0 1 7 {/xchartl exch def %xchartl=0,7 /pchartl pchart def %0 1 2 {/pchartl exch def %pchartl=0,2 colorml 0 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if colorml 0 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if colorml 1 eq deintp 0 eq and {/Txx (*dd) def /Fxx (d) def} if colorml 1 eq deintp 1 eq and {/Txx (*de) def /Fxx (e) def} if %xchart 0 eq {/Txx (-) def /Fxx (-) def} if gsave xcolorl 0 eq {/tfnx* {0 0 0 1 setcmykcolor} def /tfwx* {0 0 0 0 setcmykcolor} def /colrecfix* {setcmykcolor rec fill} bind def /colrecstx* {setcmykcolor rec stroke} bind def } if xcolorl 1 eq {/tfnx* {0 setgray} def /tfwx* {1 setgray} def /colrecfix* {setgray rec fill} bind def /colrecstx* {setgray rec stroke} bind def } if xcolorl 2 eq {/tfnx* {1 1 1 0 setcmykcolor} def /tfwx* {0 0 0 0 setcmykcolor} def /colrecfix* {setcmykcolor rec fill} bind def /colrecstx* {setcmykcolor rec stroke} bind def } if xcolorl 3 eq {/tfnx* {0 0 0 setrgbcolor} def /tfwx* {1 1 1 setrgbcolor} def /colrecfix* {setrgbcolor rec fill} bind def /colrecstx* {setrgbcolor rec stroke} bind def } if 68 90 translate 0.01 MM dup scale 0 setgray 15 setlinewidth /iout 3 def /INW 0 def 200 0 translate proc_16rec1 %********************************************************** showpage grestore %} for %pchartl=0,2 %} for %xchartl=0,7 %} for %xcolorl=0,3 %} for %colorml=0,1 %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 14 %line 369 %!PS-Adobe-3.0 EPSF-3.0 AE050-4, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (AE050-4,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 28 MM 2 MM sub 064 MM 0.5 MM add translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 15 %line 379 %!PS-Adobe-3.0 EPSF-3.0 AE050-5N %%BoundingBox: 70 82 785 270 %START PDFDE011.EPS /pdfmark05 where {pop} {userdict /pdfmark05 /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: http://farbe.li.tu-berlin.de/AE05/AE05.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2016040112000) /ModDate (D:20160401112000) /DOCINFO pdfmark05 [ /View [ /FitB ] /DOCVIEW pdfmark05 %END PDFDE011 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /A4querL {598 0 translate 90 rotate} def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse } forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse } forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse } forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse } forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /Courier findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Courier-ISOL1 exch definefont pop /Courier-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierB-ISOL1 exch definefont pop /TS {200 /Times-ISOL1 FS} bind def /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {300 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /CS {200 /Courier-ISOL1 FS} bind def /CK {250 /Courier-ISOL1 FS} bind def /CM {300 /Courier-ISOL1 FS} bind def /CG {350 /Courier-ISOL1 FS} bind def /CBS {200 /CourierB-ISOL1 FS} bind def /CBK {250 /CourierB-ISOL1 FS} bind def /CBM {300 /CourierB-ISOL1 FS} bind def /CBG {350 /CourierB-ISOL1 FS} bind def %***************************************************************************** /tznw* {0.00} bind def %grey series /tzdw* {0.25} bind def /tzzw* {0.50} bind def /tzhw* {0.75} bind def /tzww* {1.00} bind def /tfnw* {tznw* setgray} def /tfww* {tzww* setgray} def /tfn {0 setgray} bind def /tfw {1 setgray} bind def /trn {0.0 0.0 0.0} def %Reproduktionsfarben NZW /trz {0.5 0.5 0.5} def /trw {1.0 1.0 1.0} def /tgn {trn setrgbcolor} def /tgz {trz setrgbcolor} def /tgw {trw setrgbcolor} def %********************************************************** /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /rem %x0, y0 width heigth {/heigth exch def /width exch def /y0 exch def /x0 exch def x0 width 0.5 mul add y0 heigth 0.5 mul add moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def %********************************************************** /proc_16rec1 {%BEG proc_16rec1 %requires 0<=iout<=1 %requires deintp=0,1 15 setlinewidth tfw 0 0 moveto 24800 0 rlineto 0 6250 rlineto -24800 0 rlineto closepath fill tfn 0 0 moveto 24800 0 rlineto 0 6250 rlineto -24800 0 rlineto closepath stroke /iout 1 def tfn TK 100 -230 moveto iout 0 eq {(AE050-5, ) show} {(AE050-5, ) show} ifelse (Bild ) showde (picture ) showen (Fig. ) showes (Fig. ) showfr (Fig. ) showit (Figur ) showjp iout 0 eq {(A1) show} {(A2) show} ifelse (W) show Txx show (: ) show TIK (PS) show TK (\255Operator:) showde ( operator:) showen ( operator:) showes ( op\351rateur :) showfr ( operator:) showit ( operator:) showjp TIK xcolor 0 eq {( 000n setcmykcolor) show} if xcolor 1 eq {( w setgray) show} if xcolor 2 eq {( nnn0 setcmykcolor) show} if xcolor 3 eq {( www setrgbcolor) show} if TK %%%%%%%%%%% oberer Schriftzug %%%%%%%%%%%%%%%% tfn /x0 100 def /y0 5000 def /yd 300 def iout 0 eq {%iout=0,1 TBG x0 y0 0800 add moveto (This test chart is designed for a luminance test ) show (according to ISO 9241-306, ) show (and for the usual use of displays in offices: ) show x0 y0 0450 add moveto (If possible the luminance (brightness) ) show (of the white screen shall be adjusted visually to about 142 cd/m) show TBM 0 50 rmoveto (2) show 0 -50 rmoveto TM (.) show TM x0 y0 yd 0 mul sub moveto (The luminance of this upper white rectangle ) show (shall be covered by a white cardboard (no light goes thru) ) show (and shall be visually equal to the lower white display rectangle ) show (at the work place.) show x0 y0 yd 1 mul sub moveto (Remarks: ) show x0 y0 yd 2 mul sub moveto (Usually this upper white cardboard looks more yellowish. ) show (Still try to adjust the luminance of this upper and the lower rectangle ) show (by minimizing the luminance contrast.) show x0 y0 yd 3 mul sub moveto (For any other viewing situation visual fatique is reduced, ) show ( if equal luminance is adjusted for the white cardboard ) show (and of the white display.) show } %iout=0 {%iout=1 /y0 5900 def TM x0 y0 yd 0 mul sub moveto (Use the display "luminance (brightness)" bottom of the display to equal ) show (the luminance of this lower and the ) show (upper white rectangle (covered with a white cardboard).) show x0 y0 yd 1 mul sub moveto (If possible, measure the luminance of this lower display white ) show (with a luminance meter. Is the value arround 142 cd/m) show TK 0 40 rmoveto (2) show 0 -40 rmoveto TM (?) show x0 y0 yd 2 mul sub moveto (If possible, measure the illuminance of this lower display white ) show (with a lux meter. Is the value arround 500 lux?) show x0 y0 yd 3 mul sub moveto (If no measurement is possible, asume that the display luminance is ) show (142 cd/m) show TK 0 40 rmoveto (2) show 0 -40 rmoveto TM (.) show x0 y0 yd 4 mul sub moveto (Remarks:) show x0 y0 yd 5 mul sub moveto (The luminance ) show (142 cd/m) show TK 0 40 rmoveto (2) show 0 -40 rmoveto TM ( corresponds to a display illuminance of 500 lux ) show (by the usual reflection of 90% of the white cardboard.) show x0 y0 yd 6 mul sub moveto (The room illuminance 500 lux is asumed according to ISO 8995-1.) show ( In bright daylight the illuminance may be up to ten times higher.) show } ifelse %iout=0,1 } def %END proc_16rec1 %********************************************************* /cviht {dup 0 ge {0.49 add}{0.49 sub} ifelse cvi} def /cvishow {dup 0 ge {0.5 add} {0.5 sub} ifelse cvi 6 string cvs show} def /cvsshow1 {dup 0 ge {0.05 add} {0.05 sub} ifelse 10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {dup 0 ge {0.005 add} {0.005 sub} ifelse 100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {dup 0 ge {0.0005 add} {0.0005 sub} ifelse 1000 mul cvi 0.001 mul 7 string cvs show} def /A4quer {598 0 tl 90 rotate} def %%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 /showea {1 lanind le {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def %default values /lanind1 01 def /lanind2 01 def /lanindd 01 def /lanindm 01 def /colorm1 00 def /colorm2 00 def /colormd 01 def /colormm 01 def /deintp1 00 def /deintp2 00 def /deintpd 01 def /deintpm 01 def /xcolor1 03 def /xcolor2 03 def /xcolord 01 def /xcolorm 01 def /xchart1 00 def /xchart2 00 def /xchartd 01 def /xchartm 01 def /pchart1 02 def /pchart2 02 def /pchartd 01 def /pchartm 01 def /colsep1 00 def /colsep2 00 def /colsepd 01 def /colsepm 01 def /pmetam1 00 def /pmetam2 00 def /pmetamd 01 def /pmetamm 01 def /xchart3 00 def /xchart4 00 def /xchart5 00 def %usual change of default values /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def /lanindm lanindmf def} if /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def /colormm colormmf def} if /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def /deintpm deintpmf def} if /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def /xcolorm xcolormf def} if /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchartmf def} if /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def /pchartm pchartmf def} if /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def /colsepm colsepmf def} if /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def /pmetamm pmetammf def} if /xchart3f where {pop /xchart3 xchart3f def} if /xchart4f where {pop /xchart4 xchart4f def} if /xchart5f where {pop /xchart5 xchart5f def} if /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % /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 /colorml colorm def %0 1 1 {/colorml exch def %colorml=0,1 /xcolorl xcolor def %0 1 3 {/xcolorl exch def %xcolorl=0,3 /xchartl xchart def %0 1 7 {/xchartl exch def %xchartl=0,7 /pchartl pchart def %0 1 2 {/pchartl exch def %pchartl=0,2 colorml 0 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if colorml 0 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if colorml 1 eq deintp 0 eq and {/Txx (*dd) def /Fxx (d) def} if colorml 1 eq deintp 1 eq and {/Txx (*de) def /Fxx (e) def} if %xchart 0 eq {/Txx (-) def /Fxx (-) def} if gsave xcolorl 0 eq {/tfnx* {0 0 0 1 setcmykcolor} def /tfwx* {0 0 0 0 setcmykcolor} def /colrecfix* {setcmykcolor rec fill} bind def /colrecstx* {setcmykcolor rec stroke} bind def } if xcolorl 1 eq {/tfnx* {0 setgray} def /tfwx* {1 setgray} def /colrecfix* {setgray rec fill} bind def /colrecstx* {setgray rec stroke} bind def } if xcolorl 2 eq {/tfnx* {1 1 1 0 setcmykcolor} def /tfwx* {0 0 0 0 setcmykcolor} def /colrecfix* {setcmykcolor rec fill} bind def /colrecstx* {setcmykcolor rec stroke} bind def } if xcolorl 3 eq {/tfnx* {0 0 0 setrgbcolor} def /tfwx* {1 1 1 setrgbcolor} def /colrecfix* {setrgbcolor rec fill} bind def /colrecstx* {setrgbcolor rec stroke} bind def } if 68 90 translate 0.01 MM dup scale 0 setgray 15 setlinewidth /iout 3 def /INW 0 def 200 0 translate proc_16rec1 %********************************************************** showpage grestore %} for %pchartl=0,2 %} for %xchartl=0,7 %} for %xcolorl=0,3 %} for %colorml=0,1 %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 16 %line 389 %!PS-Adobe-3.0 EPSF-3.0 AE050-6, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (AE050-6,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 28 MM 2 MM sub 021 MM 0.5 MM sub translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 17 %line 399 %!PS-Adobe-3.0 EPSF-3.0 AE050-7N %%BoundingBox: 70 82 785 206 %START PDFDE011.EPS /pdfmark07 where {pop} {userdict /pdfmark07 /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: http://farbe.li.tu-berlin.de/AE05/AE05.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2016040112000) /ModDate (D:20160401112000) /DOCINFO pdfmark07 [ /View [ /FitB ] /DOCVIEW pdfmark07 %END PDFDE011 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /A4querL {598 0 translate 90 rotate} def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse } forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse } forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse } forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse } forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /Courier findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Courier-ISOL1 exch definefont pop /Courier-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierB-ISOL1 exch definefont pop /TS {200 /Times-ISOL1 FS} bind def /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {300 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /CS {200 /Courier-ISOL1 FS} bind def /CK {250 /Courier-ISOL1 FS} bind def /CM {300 /Courier-ISOL1 FS} bind def /CG {350 /Courier-ISOL1 FS} bind def /CBS {200 /CourierB-ISOL1 FS} bind def /CBK {250 /CourierB-ISOL1 FS} bind def /CBM {300 /CourierB-ISOL1 FS} bind def /CBG {350 /CourierB-ISOL1 FS} bind def %***************************************************************************** %ANFA /tzNW [0.000 0.067 0.132 0.200 0.267 0.333 0.400 0.467 0.533 0.600 0.667 0.733 0.800 0.867 0.933 1.000 0.000 0.250 0.500 0.750 1.000] def /tzWN [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 /tzZW [0.500 0.533 0.567 0.600 0.633 0.667 0.700 0.733 0.767 0.800 0.833 0.867 0.900 0.933 0.967 1.000 0.500 0.625 0.750 0.875 1.000] def /tzWZ [1.000 0.967 0.933 0.900 0.867 0.833 0.800 0.767 0.733 0.700 0.667 0.633 0.600 0.567 0.533 0.500 1.000 0.875 0.750 0.625 0.500] def /tzNZ [0.000 0.033 0.067 0.100 0.133 0.167 0.200 0.233 0.267 0.300 0.333 0.367 0.400 0.433 0.467 0.500 0.000 0.125 0.250 0.375 0.500] def /tzZN [0.500 0.467 0.433 0.400 0.367 0.333 0.300 0.267 0.233 0.200 0.167 0.133 0.100 0.067 0.033 0.000 0.500 0.375 0.250 0.125 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 /tzaccmyw0l 64 array def /tzamcmyw0l 64 array def /tzaycmyw0l 64 array def /tzancmyw0l 64 array def /tzbocmyw0l 64 array def /tzblcmyw0l 64 array def /tzbvcmyw0l 64 array def /tzbncmyw0l 64 array def /tzaccmyw0l [ %Ccmyw0l01.dat 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 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 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 0.000 0.000 0.000 0.000 0.000 0.000 ] def /tzamcmyw0l [ %Mcmyw0l01.dat 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 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 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 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 ] def /tzaycmyw0l [ %Ycmyw0l01.dat 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 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 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 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 /tzancmyw0l [ %Ncmyw0l01.dat 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 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 0.000 0.000 0.000 0.000 0.000 0.000 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 ] def /tzbocmyw0l [ %Ocmyw0l01.dat 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 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.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 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 /tzblcmyw0l [ %Lcmyw0l01.dat 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 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 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 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 /tzbvcmyw0l [ %Vcmyw0l01.dat 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.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 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 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 ] def /tzbncmyw0l [ %CMYcmyw0l01.dat 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.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.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 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 /colrecfiw* %x y width heigth w* { 1.0 exp setgray rec fill} bind def /colrecstw* %x y width heigth w* { 1.0 exp setgray rec stroke} bind def /tznw* {0.00} bind def %grey series /tzdw* {0.25} bind def /tzzw* {0.50} bind def /tzhw* {0.75} bind def /tzww* {1.00} bind def /tfnw* {tznw* setgray} def /tfww* {tzww* setgray} def /tfn {0 setgray} bind def /tfw {1 setgray} bind def /cvishow {0.5 add cvi dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 6 string cvs show} def /cvsshow0 {10 mul 0.5 add cvi 0.1 mul 6 string cvs show} def /cvsshow1 {10 mul 0.5 add cvi 0.1 mul dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 6 string cvs show} def /cvsshow2 {100 mul 0.5 add cvi 0.01 mul dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 6 string cvs show} def /cvsshow3 {1000 mul 0.5 add cvi 0.001 mul 6 string cvs show} def %END CM_S0LCMYS.DAT Linearization Method (LM) LOCAL (L) cmyolvnw*S DATA 20010401 %*********************************************************************************** /proc_rosetten {%BEG procedure rosetten %requires 0<=iout<=1 %requires deintp=0,1 /tfzw* {tzancmyw0l 07 48 add get 0.5000 mul tzancmyw0l 08 48 add get 0.5000 mul add 1 exch sub 1.0 exp setgray} bind def 15 setlinewidth tfnw* 0 0 moveto 6000 0 rlineto 0 4000 rlineto -6000 0 rlineto closepath fill 0 0 moveto 12000 0 rlineto 0 8400 rlineto -12000 0 rlineto closepath stroke tfnw* TK 100 -230 moveto (AE050-3, ) show (Bild ) showde (picture ) showen (Fig. ) showes (Fig. ) showfr (Fig. ) showit (Figur ) showjp iout 3 ge {(A1) show}{(C1) show} ifelse (W) show Txx show (: ) show TK (Element A: Radialgitter ) showde (Element A: radial gratings ) showen (Elemento A: rejillas radial ) showes (\311l\351ment A: \351toile de Siemens ) showfr (Elemento A: reticoli radiali ) showit (Element A: Radielt gitter ) showjp TIK (N-W, W-N, N-Z ) show TK (und ) showde (and ) showen (y ) showes (et ) showfr (i ) showit (og ) showjp TIK (W-Z) show TK (; ) show TIK (PS) show TK (\255Operator:) showde ( operator:) showen ( operator:) showes ( op\351rateur :) showfr ( operator:) showit ( operator:) showjp TIK xcolor 0 eq {( 000n setcmykcolor) show} if xcolor 1 eq {( w setgray) show} if xcolor 2 eq {( nnn0 setcmykcolor) show} if xcolor 3 eq {( www setrgbcolor) show} if TK %/ausz 7 def /half 0 def %Halbt %Farbauszug 1=C, 2=M, 3=Y, 7=N, 8=F 15 setlinewidth %neuer Rastermittelpunkt und Nullpunkt 3000 2100 translate %Zeichnen der Rosette C, Radius 1,8 cm, Zentralgrau tfzw* newpath 0 0 0500 0 360 arc closepath stroke newpath 0 0 1000 0 360 arc closepath stroke newpath 0 0 1500 0 360 arc closepath stroke 0 10 350 {newpath 0 0 moveto 0 0 1800 4 -1 roll dup 5 add arc closepath fill} for tfww* 25 setlinewidth newpath 0 0 0300 0 360 arc closepath stroke -3000 -2100 translate TBK tfww* 1300 0100 moveto (Radialgitter (Siemenssterne)) showde (radial gratings (Siemens\255stars)) showen (rejillas radial (Siemens estrellas)) showes (\351toile de Siemens) showfr (reticoli radiali (Siemens stelle)) showit (radielt gitter (Siemens-stjerner)) showjp TBIK ( N-Z) show TBK TBM 3000 550 add 2100 moveto (10) show 3000 1050 add 2100 moveto (20) show 3000 1550 add 2100 moveto (30) show 0000 4400 translate /tfzw* {tzancmyw0l 07 48 add get 0.5000 mul tzancmyw0l 08 48 add get 0.5000 mul add 1 exch sub 1.0 exp setgray} bind def tfnw* 0 0 moveto 6000 0 rlineto 0 4000 rlineto -6000 0 rlineto closepath fill 0 0 moveto 6000 0 rlineto 0 4000 rlineto -6000 0 rlineto closepath stroke %neuer Rastermittelpunkt und Nullpunkt 3000 2100 translate %Zeichnen der Rosette C, Radius 1,8 cm, Zentralgrau tfww* newpath 0 0 0500 0 360 arc closepath stroke newpath 0 0 1000 0 360 arc closepath stroke newpath 0 0 1500 0 360 arc closepath stroke 0 10 350 {newpath 0 0 moveto 0 0 1800 4 -1 roll dup 5 add arc closepath fill} for tfnw* 25 setlinewidth newpath 0 0 0300 0 360 arc closepath stroke -3000 -2100 translate TBK tfww* 1300 0100 moveto (Radialgitter (Siemenssterne)) showde (radial gratings (Siemens\255stars)) showen (rejillas radial (Siemens estrellas)) showes (\351toile de Siemens) showfr (reticoli radiali (Siemens stelle)) showit (radielt gitter (Siemens-stjerner)) showjp TBIK ( N-W) show TBK TBM tfzw* 3000 550 add 2100 moveto (10) show 3000 1050 add 2100 moveto (20) show 3000 1550 add 2100 moveto (30) show -0000 -4400 translate 6000 4400 translate /tfzw* {tzancmyw0l 07 48 add get 0.5000 mul tzancmyw0l 08 48 add get 0.5000 mul add 1 exch sub 1.0 exp setgray} bind def %neuer Rastermittelpunkt und Nullpunkt 3000 2100 translate %Zeichnen der Rosette C, Radius 1,8 cm, Zentralgrau tfnw* newpath 0 0 0500 0 360 arc closepath stroke newpath 0 0 1000 0 360 arc closepath stroke newpath 0 0 1500 0 360 arc closepath stroke 0 10 350 {newpath 0 0 moveto 0 0 1800 4 -1 roll dup 5 add arc closepath fill} for tfww* 25 setlinewidth newpath 0 0 0300 0 360 arc closepath stroke -3000 -2100 translate TBK tfnw* 1300 0100 moveto (Radialgitter (Siemenssterne)) showde (radial gratings (Siemens\255stars)) showen (rejillas radial (Siemens estrellas)) showes (\351toile de Siemens) showfr (reticoli radiali (Siemens stelle)) showit (radielt gitter (Siemens-stjerner)) showjp TBIK ( W-N) show TBK TBM tfzw* 3000 550 add 2100 moveto (10) show 3000 1050 add 2100 moveto (20) show 3000 1550 add 2100 moveto (30) show -6000 -4400 translate 6000 0000 translate /tfzw* {tzancmyw0l 07 48 add get 0.5000 mul tzancmyw0l 08 48 add get 0.5000 mul add 1 exch sub 1.0 exp setgray} bind def %tfww* %0 0 moveto 6000 0 rlineto 0 4000 rlineto % -6000 0 rlineto closepath fill %neuer Rastermittelpunkt und Nullpunkt 3000 2100 translate %Zeichnen der Rosette C, Radius 1,8 cm, Zentralgrau tfzw* newpath 0 0 0500 0 360 arc closepath stroke newpath 0 0 1000 0 360 arc closepath stroke newpath 0 0 1500 0 360 arc closepath stroke 0 10 350 {newpath 0 0 moveto 0 0 1800 4 -1 roll dup 5 add arc closepath fill} for tfnw* 25 setlinewidth newpath 0 0 0300 0 360 arc closepath stroke -3000 -2100 translate TBK tfnw* 1300 0100 moveto (Radialgitter (Siemenssterne)) showde (radial gratings (Siemens\255stars)) showen (rejillas radial (Siemens estrellas)) showes (\351toile de Siemens) showfr (reticoli radiali (Siemens stelle)) showit (radielt gitter (Siemens-stjerner)) showjp TBIK ( W-Z) show TBK TBM 3000 550 add 2100 moveto (10) show 3000 1050 add 2100 moveto (20) show 3000 1550 add 2100 moveto (30) show -6000 -0000 translate } def %END proc_rosetten %********************************************************** /proc_05step {%BEG proc_05step %requires 0<=iout<=1 %requires deintp=0,1 /tfzw* {tzancmyw0l 07 48 add get 0.5000 mul tzancmyw0l 08 48 add get 0.5000 mul add 1 exch sub 1.0 exp setgray} bind def 15 setlinewidth tfzw* 0 0 moveto 12000 0 rlineto 0 4000 rlineto -12000 0 rlineto closepath fill tfnw* 0 0 moveto 12000 0 rlineto 0 4000 rlineto -12000 0 rlineto closepath stroke tfnw* TK 100 -230 moveto (AE050-5, ) show (Bild ) showde (picture ) showen (Fig. ) showes (Fig. ) showfr (Fig. ) showit (Figur ) showjp iout 3 ge {(A2) show}{(C2) show} ifelse (W) show Txx show (: ) show (Element B: 5 visuell gleichabst\344ndige ) showde (Element B: 5 visual equidistant ) showen (Elemento B: 5 equidistante ) showes (\311l\351ment B: 5 paliers de gris ) showfr (Elemento B: 5 equidistante ) showit (Element B: 5 visuelle ekvidistante ) showjp TIK (L*) show TK (\255Graustufen) showde (\255grey steps) showen ( pasos de gris) showes ( \350quidistante) showfr ( grigio passi) showit (\255gr\345trinn) showjp TIK ( + N0 + W1) show TK (; ) show TIK (PS) show TK (\255Operator:) showde ( operator:) showen ( operator:) showes ( op\351rateur :) showfr ( operator:) showit ( operator:) showjp TIK xcolor 0 eq {( 000n setcmykcolor) show} if xcolor 1 eq {( w setgray) show} if xcolor 2 eq {( nnn0 setcmykcolor) show} if xcolor 3 eq {( www setrgbcolor) show} if TK 15 setlinewidth /L*Nl 18.01 def %standard lightness black /L*Wl 95.41 def %standard lightness white /L*ND where {pop /L*Nl L*ND def} if /L*WD where {pop /L*Wl L*WD def} if /L*Dl L*Wl L*Nl sub def %range between white and black %%%%%%%%%%% oberer Schriftzug %%%%%%%%%%%%%%%% tfww* 80 3650 moveto TBIG (L*/Y) show -50 -50 rmoveto TBK colorm 0 eq { (Eingabe) showde %0AE05X-Y 0100# (input) showen %1AE05X-Y 0100# (entrada) showes %2AE05X-Y 0100# (entr\351e) showfr %3AE05X-Y 0100# (immettere) showit %4AE05X-Y 0100# (input) showjp %5AE05X-Y 0100# } if colorm 0 ne { (intended) showen (vorgesehen) showde (pretenden) showes (destin\361) showfr (destinati) showit (intendert) showjp } if 100 3200 moveto TBIK ((absolut)) showde ((absolute)) showen ((absoluta)) showes ((absolu)) showfr ((absoluta)) showit ((absolutt)) showjp 100 1200 moveto TBIG (w*=l*) show -150 -100 rmoveto TBIK (CIELAB, r) show 100 800 moveto TBIK ((relativ)) showde ((relative)) showen ((relativa)) showes ((relative)) showfr ((relativo)) showit ((relativ)) showjp 900 450 moveto TBIG (w*) show -150 -50 rmoveto TBK (Eingabe) showde %0AE05X-Y 0500# (input) showen %1AE05X-Y 0500# (entrada) showes %2AE05X-Y 0500# (entr\351e) showfr %3AE05X-Y 0500# (immettere) showit %4AE05X-Y 0500# (input) showjp %5AE05X-Y 0500# colorm 0 ne {900 100 moveto TBIG (w*) show -050 -50 rmoveto TBK (Ausgabe) showde %0AE05X-Y 0600# (output) showen %1AE05X-Y 0600# (salida) showes %2AE05X-Y 0600# (sortie) showfr %3AE05X-Y 0600# (uscita) showit %4AE05X-Y 0600# (output) showjp %5AE05X-Y 0600# } if 2200 600 translate %untere Reihe um +200, +200 verschoben bei dx=1000 von 1400 tfnw* /ntu [(0,000) (0,067) (0,133) (0,200) (0,267) (0,333) (0,400) (0,467) (0,533) (0,600) (0,667) (0,733) (0,800) (0,867) (0,933) (1,000) (0,000) (0,250) (0,500) (0,750) (1,000)] def /nto [18.01 23.17 28.33 33.49 38.65 43.81 48.97 54.13 59.29 64.45 69.61 74.77 79.93 85.09 90.25 95.41 18.01 37.36 56.71 76.06 95.41] def /nty [ 2.52 3.85 5.58 7.77 10.46 13.71 17.57 22.10 27.34 33.36 40.20 47.91 56.56 66.18 76.84 88.59 2.52 9.73 24.63 49.98 88.59] def /n* [(F) (E) (D) (C) (B) (A) (9) (8) (7) (6) (5) (4) (3) (2) (1) (0) (F) (B) (7) (3) (0)] def /cvs1 {0.05 add 10 mul cvi 0.1 mul 7 string cvs} def /cvs3 {0.0005 add 1000 mul cvi 0.001 mul 7 string cvs} def /ntu2 21 array def /DecodeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind def /MTLoutaS0 21 array def /MTLoutaS1 21 array def /MTLoutaS2 21 array def /MTLoutaS0g where {pop 0 1 20 {/i exch def MTLoutaS0 i MTLoutaS0g i get put} for} {/MTLoutaS0 [18.0 23.2 28.3 33.5 38.6 43.8 49.0 54.1 59.3 64.4 69.6 74.8 79.9 85.1 90.2 95.4 18.0 37.3 56.7 76.0 95.4] def } ifelse /MTLoutaS1g where {pop 16 1 20 {/i exch def i 16 eq {MTLoutaS1 i MTLoutaS1g 0 get put} if i 17 eq {MTLoutaS1 i MTLoutaS1g 3 get 0.25 mul MTLoutaS1g 4 get 0.75 mul add put} if i 18 eq {MTLoutaS1 i MTLoutaS1g 7 get 0.50 mul MTLoutaS1g 8 get 0.50 mul add put} if i 19 eq {MTLoutaS1 i MTLoutaS1g 11 get 0.75 mul MTLoutaS1g 12 get 0.25 mul add put} if i 20 eq {MTLoutaS1 i MTLoutaS1g 15 get put} if } for} {16 1 20 {/i exch def MTLoutaS1 i MTLoutaS0 i get put} for } ifelse /MTLoutaS2g where {pop 16 1 20 {/i exch def i 16 eq {MTLoutaS2 i MTLoutaS2g 0 get put} if i 17 eq {MTLoutaS2 i MTLoutaS2g 3 get 0.25 mul MTLoutaS2g 4 get 0.75 mul add put} if i 18 eq {MTLoutaS2 i MTLoutaS2g 7 get 0.50 mul MTLoutaS2g 8 get 0.50 mul add put} if i 19 eq {MTLoutaS2 i MTLoutaS2g 11 get 0.75 mul MTLoutaS2g 12 get 0.25 mul add put} if i 20 eq {MTLoutaS2 i MTLoutaS2g 15 get put} if } for} {16 1 20 {/i exch def MTLoutaS2 i MTLoutaS1 i get put} for } ifelse 16 1 20 {/i exch def %i=16,20 colorm 0 eq {nto i i 16 sub 4 div MTLoutaS0 20 get MTLoutaS0 16 get sub mul MTLoutaS0 16 get add put /Y* {MTLoutaS0 i get 16 add 116 div} bind def } {nto i i 16 sub 4 div MTLoutaS1 20 get MTLoutaS1 16 get sub mul MTLoutaS1 16 get add put /Y* {MTLoutaS1 i get 16 add 116 div} bind def } ifelse nty i Y* DecodeXYZ* 100.00 mul put } for %i=0,15 16 1 20 {/i exch def %i=16,20 ntu2 i MTLoutaS2 i get MTLoutaS2 16 get sub MTLoutaS2 20 get MTLoutaS2 16 get sub div put } for %i=16,20 TBM tfww* /iy0 0 def 0 1 06 {/j exch def /ix0 j 1400 mul def ix0 100 add iy0 250 sub moveto j 4 le {ntu 16 j add get show colorm 0 ne xcolor 1 eq and {ix0 100 add iy0 500 sub moveto ntu2 16 j add get cvs3 show} if } if 5 j eq {-150 0 rmoveto TBIM (N) show 0 -50 rmoveto TBIK (0) show 50 50 rmoveto TBIM ((min.)) show 100 0 rmoveto } if 6 j eq {-150 0 rmoveto TBIM (W) show 0 -50 rmoveto TBIK (1) show 50 50 rmoveto TBIM ((max.)) show 100 0 rmoveto } if } for %j TBM tfww* /iy0 3050 def 0 1 06 {/j exch def /ix0 100 j 1400 mul add def ix0 200 sub iy0 moveto j 4 le {nto 16 j add get cvs1 show (/) show xcolor 0 eq {nty 16 j add get cvs1 show} {colorm 0 ne {MTLoutaS2 16 j add get cvs1 show} {nty 16 j add get cvs1 show} ifelse } ifelse } if 5 j eq {-150 0 rmoveto TBIM (N) show 0 -50 rmoveto TBIK (0) show 50 50 rmoveto TBIM ((min.)) show 100 0 rmoveto} if 6 j eq {-150 0 rmoveto TBIM (W) show 0 -50 rmoveto TBIK (1) show 50 50 rmoveto TBIM ((max.)) show 100 0 rmoveto} if } for %j TBG tfnw* /iy0 0 def /s 1000 def 0 1 06 {/j exch def /ix0 j 1400 mul def ix0 iy0 s s 1 j eq {tzancmyw0l 03 48 add get 0.2500 mul tzancmyw0l 04 48 add get 0.7500 mul add} if 2 j eq {tzancmyw0l 07 48 add get 0.5000 mul tzancmyw0l 08 48 add get 0.5000 mul add} if 3 j eq {tzancmyw0l 11 48 add get 0.7500 mul tzancmyw0l 12 48 add get 0.2500 mul add} if 0 j eq 5 j eq or {tzancmyw0l 0 48 add get} if 4 j eq 6 j eq or {tzancmyw0l 15 48 add get} if 1 exch sub colrecfiw* j 2 eq { %white arround mean grey ix0 iy0 s s 1.0 colrecstw*} if } for %j /s 1400 def /iy0 1500 def 0 1 06 {/j exch def /ix0 j 1400 mul 200 sub def ix0 iy0 s s 1 j eq {tzancmyw0l 03 48 add get 0.2500 mul tzancmyw0l 04 48 add get 0.7500 mul add} if 2 j eq {tzancmyw0l 07 48 add get 0.5000 mul tzancmyw0l 08 48 add get 0.5000 mul add} if 3 j eq {tzancmyw0l 11 48 add get 0.7500 mul tzancmyw0l 12 48 add get 0.2500 mul add} if 0 j eq 5 j eq or {tzancmyw0l 0 48 add get} if 4 j eq 6 j eq or {tzancmyw0l 15 48 add get} if 1 exch sub colrecfiw* } for %j %/s 0700 def /iy0 1850 def % 0 1 06 {/j exch def % /ix0 j 1400 mul 200 sub 350 add def % ix0 iy0 s s % 1 j eq {tzancmyw0l 03 48 add get 0.2500 mul % tzancmyw0l 04 48 add get 0.7500 mul add} if % 2 j eq {tzancmyw0l 07 48 add get 0.5000 mul % tzancmyw0l 08 48 add get 0.5000 mul add} if % 3 j eq {tzancmyw0l 11 48 add get 0.7500 mul % tzancmyw0l 12 48 add get 0.2500 mul add} if % 0 j eq 5 j eq or {tzancmyw0l 0 48 add get} if % 4 j eq 6 j eq or {tzancmyw0l 15 48 add get} if % dup dup 0 % 0 0 0 0 % setcmykcolor rec fill % } for %j -2200 -600 translate } def %END proc_05step %********************************************************** /proc_16step {%BEG proc_16step %requires 0<=iout<=1 %requires deintp=0,1 /tfzw* {tzancmyw0l 07 48 add get 0.5000 mul tzancmyw0l 08 48 add get 0.5000 mul add 1 exch sub 1.0 exp setgray} bind def 15 setlinewidth tfzw* 0 0 moveto 24800 0 rlineto 0 4000 rlineto -24800 0 rlineto closepath fill tfnw* 0 0 moveto 24800 0 rlineto 0 4000 rlineto -24800 0 rlineto closepath stroke tfnw* TK 100 -230 moveto (AE050-3, ) show (Bild ) showde (picture ) showen (Fig. ) showes (Fig. ) showfr (Fig. ) showit (Figur ) showjp iout 3 ge {(A3) show}{(C3) show} ifelse (W) show Txx show (: ) show (Element C: 16 visuell gleichabst\344ndige ) showde (Element C: 16 visual equidistant ) showen (Elemento C: 16 equidistante ) showes (\311l\351ment C: 16 paliers de gris ) showfr (Elemento C: 16 equidistante ) showit (Element C: 16 visuelle ekvidistante ) showjp TIK (L*) show TK (\255Graustufen) showde (\255grey steps) showen ( pasos de gris) showes ( \350quidistante) showfr ( grigio passi) showit (\255gr\345trinn) showjp TK (; ) show TIK (PS) show TK (\255Operator:) showde ( operator:) showen ( operator:) showes ( op\351rateur :) showfr ( operator:) showit ( operator:) showjp TIK xcolor 0 eq {( 000n setcmykcolor) show} if xcolor 1 eq {( w setgray) show} if xcolor 2 eq {( nnn0 setcmykcolor) show} if xcolor 3 eq {( www setrgbcolor) show} if TK /cvs0 {cvi 7 string cvs} def 15 setlinewidth /L*Nl 18.01 def %standard lightness black /L*Wl 95.41 def %standard lightness white /L*ND where {pop /L*Nl L*ND def} if /L*WD where {pop /L*Wl L*WD def} if /L*Dl L*Wl L*Nl sub def %range between white and black %%%%%%%%%%% oberer Schriftzug %%%%%%%%%%%%%%%% tfww* 100 3650 moveto TBIG (L*/Y) show -50 -50 rmoveto TBK colorm 0 eq { (Eingabe) showde %0AE05X-Y 0100# (input) showen %1AE05X-Y 0100# (entrada) showes %2AE05X-Y 0100# (entr\351e) showfr %3AE05X-Y 0100# (immettere) showit %4AE05X-Y 0100# (input) showjp %5AE05X-Y 0100# 50 50 rmoveto} if colorm 0 ne { (intended) showen (vorgesehen) showde (pretenden) showes (destin\361) showfr (destinati) showit (intendert) showjp 50 50 rmoveto} if 100 3200 moveto TBIK ((absolut)) showde ((absolute)) showen ((absoluta)) showes ((absolu)) showfr ((absoluta)) showit ((absolutt)) showjp 100 1950 moveto TBK (Nr. und) showde (No. and) showen (NO y) showes (No et) showfr (N. e) showit (Nr. og) showjp 100 1650 moveto TBK (Hex\255Code) showde (Hex code) showen (c\363digo Hex) showes (code Hex) showfr (codige Hex) showit (Hex\255code) showjp 100 1200 moveto TBIG (w*=l*) show -150 -100 rmoveto TBIK (CIELAB, r) show 100 800 moveto TBIK ((relativ)) showde ((relative)) showen ((relativa)) showes ((relative)) showfr ((relativo)) showit ((relativ)) showjp 900 450 moveto TBIG (w*) show -150 -50 rmoveto TBK (Eingabe) showde %0AE05X-Y 0500# (input) showen %1AE05X-Y 0500# (entrada) showes %2AE05X-Y 0500# (entr\351e) showfr %3AE05X-Y 0500# (immettere) showit %4AE05X-Y 0500# (input) showjp %5AE05X-Y 0500# colorm 0 ne {900 100 moveto TBIG (w*) show -050 -50 rmoveto TBK (Ausgabe) showde %0AE05X-Y 0600# (output) showen %1AE05X-Y 0600# (salida) showes %2AE05X-Y 0600# (sortie) showfr %3AE05X-Y 0600# (uscita) showit %4AE05X-Y 0600# (output) showjp %5AE05X-Y 0600# } if 2200 600 translate %untere Reihe um +200, +200 verschoben bei dx=1000 von 1400 tfnw* /ntu [(0,000) (0,067) (0,133) (0,200) (0,267) (0,333) (0,400) (0,467) (0,533) (0,600) (0,667) (0,733) (0,800) (0,867) (0,933) (1,000) (0,000) (0,250) (0,500) (0,750) (1,000)] def /nto [18.01 23.17 28.33 33.49 38.65 43.81 48.97 54.13 59.29 64.45 69.61 74.77 79.93 85.09 90.25 95.41 18.01 37.36 56.71 76.06 95.41] def /nty [ 2.52 3.85 5.58 7.77 10.46 13.71 17.57 22.10 27.34 33.36 40.20 47.91 56.56 66.18 76.84 88.59 2.52 9.73 24.63 49.98 88.59] def /n* [(00;F) (01;E) (02;D) (03;C) (04;B) (05;A) (06;9) (07;8) (08;7) (09;6) (10;5) (11;4) (12;3) (13;2) (14;1) (15;0) (00;F) (01;B) (02;7) (03;3) (04;0)] def /cvs1 {0.05 add 10 mul cvi 0.1 mul 7 string cvs} def /cvs3 {0.0005 add 1000 mul cvi 0.001 mul 7 string cvs} def /ntu2 16 array def /DecodeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind def /MTLoutaS0 16 array def /MTLoutaS1 16 array def /MTLoutaS2 16 array def /MTLoutaS0g where {pop 0 1 15 {/i exch def MTLoutaS0 i MTLoutaS0g i get put} for} {/MTLoutaS0 [18.0 23.2 28.3 33.5 38.6 43.8 49.0 54.1 59.3 64.4 69.6 74.8 79.9 85.1 90.2 95.4] def } ifelse /MTLoutaS1g where {pop 0 1 15 {/i exch def MTLoutaS1 i MTLoutaS1g i get put} for} {0 1 15 {/i exch def MTLoutaS1 i MTLoutaS0 i get put} for } ifelse /MTLoutaS2g where {pop 0 1 15 {/i exch def MTLoutaS2 i MTLoutaS2g i get put} for} {0 1 15 {/i exch def MTLoutaS2 i MTLoutaS1 i get put} for } ifelse 0 1 15 {/i exch def %i=0,15 colorm 0 eq {nto i i 0 sub 15 div MTLoutaS0 15 get MTLoutaS0 0 get sub mul MTLoutaS0 0 get add put /Y* {nto i get 16 add 116 div} bind def } {nto i i 0 sub 15 div MTLoutaS1 15 get MTLoutaS1 0 get sub mul MTLoutaS1 0 get add put /Y* {nto i get 16 add 116 div} bind def } ifelse nty i Y* DecodeXYZ* 100.00 mul put } for %i=0,15 0 1 15 {/i exch def %i=0,15 ntu2 i MTLoutaS2 i get MTLoutaS2 0 get sub MTLoutaS2 15 get MTLoutaS2 0 get sub div put } for %i=0,15 TBM tfww* /iy0 0 def 0 1 15 {/j exch def /ix0 j 1400 mul def ix0 100 add iy0 250 sub moveto ntu j get show colorm 0 ne xcolor 1 eq and {ix0 100 add iy0 500 sub moveto ntu2 j get cvs3 show } if } for %j /iy0 3050 def 0 1 15 {/j exch def /ix0 300 j 1400 mul add def ix0 400 sub iy0 moveto nto j get cvs1 show (/) show xcolor 0 eq {nty j get cvs1 show} {colorm 0 ne {MTLoutaS2 j get cvs1 show} {nty j get cvs1 show} ifelse } ifelse } for %j TBG tfnw* /iy0 0 def 0 1 15 {/j exch def /ix0 400 j 1400 mul add def ix0 300 sub iy0 1150 add moveto n* j get show } for %j /s 1000 def 0 1 15 {/j exch def /ix0 j 1400 mul def ix0 iy0 s s tzancmyw0l j 48 add get 1 exch sub colrecfiw* j 7 eq j 8 eq or { %white arround mean grey ix0 iy0 s s 1.0 colrecstw*} if } for %j /s 1400 def /iy0 1500 def 0 1 15 {/j exch def /ix0 j 1400 mul 200 sub def ix0 iy0 s s tzancmyw0l j 48 add get 1 exch sub colrecfiw* } for %j %/s 0700 def /iy0 1850 def % 0 1 15 {/j exch def % /ix0 j 1400 mul 200 sub 350 add def % ix0 iy0 s s % tzancmyw0l j 48 add get dup dup 0 % 0 0 0 0 % setcmykcolor rec fill % } for %j -2200 -600 translate } def %END proc_16step %********************************************************** /proc_Landolt { %BEG proc_Landolt %requires 0<=iout<=1 %requires deintp=0,1 15 setlinewidth tfww* 0 0 moveto 12000 0 rlineto 0 4000 rlineto -12000 0 rlineto closepath fill tfnw* 0 0 moveto 12000 0 rlineto 0 4000 rlineto -12000 0 rlineto closepath stroke tfnw* TK 100 -230 moveto (AE051-1, ) show (Bild ) showde (picture ) showen (Fig. ) showes (Fig. ) showfr (Fig. ) showit (Figur ) showjp iout 3 ge {(A4) show}{(C4) show} ifelse (W) show Txx show (: ) show (Element D: Landoltringe ) showde (Element D: Landolt\255rings ) showen (Elemento D: anillos de Landolt ) showes (\311l\351ment D: anneaux Landolt ) showfr (Elemento D: anelli di Landolt ) showit (Element D: Landoltringer ) showjp TIK (W\255N) show TK (; ) show TIK (PS) show TK (\255Operator:) showde ( operator:) showen ( operator:) showes ( op\351rateur :) showfr ( operator:) showit ( operator:) showjp TIK xcolor 0 eq {( 000n setcmykcolor) show} if xcolor 1 eq {( w setgray) show} if xcolor 2 eq {( nnn0 setcmykcolor) show} if xcolor 3 eq {( www setrgbcolor) show} if TK TBIK 200 3500 moveto (Umfeldstufe) showde (background step) showen (paso fondo) showes (\351chelonnement du) showfr (lo sfondo passo) showit (omfelt-trinn) showjp 200 3200 moveto (Hex\255Code) showde (Hex code) showen (C\363digo Hexadecimal) showes (font code hex) showfr (codice esadecimale) showit (Hex\255code) showjp TBK 4100 50 moveto (Landoltringe ) showde (Landolt\255rings ) showen (anillos de Landolt ) showes (anneaux Landolt ) showfr (anelli di Landolt ) showit (Landoltringer ) showjp TBIK (W-N) show 8200 3500 moveto (Ringstufe) showde (ring step) showen (paso del anillo) showes (\351chelonnement) showfr (anello passo) showit (ring-trinn) showjp 8200 3200 moveto (Hex\255Code) showde (Hex code) showen (C\363digo Hexadecimal) showes (anneau de Landolt) showfr (codice esadecimale) showit (Hex\255code) showjp 8900 50 moveto (Code: Umfeld-Ring) showde (code: background-ring) showen (c\363digo: fondo-paso del anillo) showes (code: fond anneaux) showfr (codice: sfondo passo-anello) showit (kode: omfelt-ring) showjp TBM /nll [(F) (8) (2) (E) (7) (0)] def 0 1 5 {/j exch def /iy0 500 j 600 mul add def 2150 iy0 moveto nll j get show } for %j /nr [(D) (6) (0) (F) (8) (1)] def 0 1 5 {/j exch def /iy0 500 j 600 mul add def 7800 iy0 moveto nr j get show } for %j /nc [(F-D) (8-6) (2-0) (E-F) (7-8) (0-1)] def 0 1 5 {/j exch def /iy0 500 j 600 mul add def 10050 iy0 moveto nc j get show } for %j /ar 80 def ar setlinewidth /ak [4 3 2 8 7 1 5 6 8 5 3 7 2 1 4 6 6 3 5 4 3 7 2 8 4 1 6 7 8 2 3 5 1 5 4 8 7 2 3 6 8 1 7 6 2 5 4 3] def /nl [0 7 13 1 8 15] def %+2, -1 0 1 07 {/j exch def /ix0 2700 j 600 mul add def 0 1 05 {/l exch def /iy0 0300 l 600 mul add def /k l 8 mul j add def /i1 nl l get def /ixd 600 def ix0 iy0 ixd ixd tzancmyw0l i1 48 add get 1 exch sub colrecfiw* l 2 le {/i1 nl l get 2 add def} {/i1 nl l get 1 sub def} ifelse tzancmyw0l i1 48 add get 1 exch sub 1.0 exp setgray ix0 300 add iy0 300 add ar 2.5 mul 0 360 arc closepath fill /i1 nl l get def tzancmyw0l i1 48 add get 1 exch sub 1.0 exp setgray ix0 300 add iy0 300 add ar 1.5 mul 0 360 arc closepath fill /i1 nl l get def tzancmyw0l i1 48 add get 1 exch sub 1.0 exp setgray ix0 300 add iy0 300 add moveto /m ak k get exec def m 1 eq {ar 2.6 mul 0 rlineto closepath stroke} if %0 m 2 eq {ar 2.6 mul 45 sin mul ar 2.6 mul 45 cos mul rlineto closepath stroke} if %45 m 3 eq {0 ar 2.6 mul rlineto closepath stroke} if %90 m 4 eq {ar 2.6 mul 135 sin mul ar 2.6 mul 135 cos mul rlineto closepath stroke} if %135 m 5 eq {ar 2.6 mul neg 0 rlineto closepath stroke} if %0 m 6 eq {ar 2.6 mul 235 sin mul ar 2.6 mul 235 cos mul rlineto closepath stroke} if %45 m 7 eq {0 ar 2.6 mul neg rlineto closepath stroke} if %0 m 8 eq {ar 2.6 mul 315 sin mul ar 2.6 mul 315 cos mul rlineto closepath stroke} if %45 } for %l } for %j } def %END proc_Landolt %********************************************************** /proc_Line45 { %BEG proc_Line45 %requires 0<=iout<=1 %requires deintp=0,1 15 setlinewidth tfww* 0 0 moveto 12000 0 rlineto 0 4000 rlineto -12000 0 rlineto closepath fill tfnw* 0 0 moveto 12000 0 rlineto 0 4000 rlineto -12000 0 rlineto closepath stroke tfnw* TK 100 -230 moveto (AE051-3, ) show (Bild ) showde (picture ) showen (Fig. ) showes (Fig. ) showfr (Fig. ) showit (Figur ) showjp iout 3 ge {(A5) show}{(C5) show} ifelse (W) show Txx show (: ) show (Element E: Linienraster unter 45\260 (oder 135\260)) showde (Element E: Line raster under 45\260 (or 135\260)) showen (Elemento E: Trama linea menores de 45\260 (o 135\260) grados) showes (\311l\351ment E: trame lin\351aire \340 45\260 (ou 135\260)) showfr (Elemento E: Linea raster a 45\260 (o 135\260) gradi) showit (Element E: Linjeraster med 45\260 (eller 135\260)) showjp TK (; ) show TIK (PS) show TK (\255Operator:) showde ( operator:) showen ( operator:) showes ( op\351rateur :) showfr ( operator:) showit ( operator:) showjp TIK xcolor 0 eq {( 000n setcmykcolor) show} if xcolor 1 eq {( w setgray) show} if xcolor 2 eq {( nnn0 setcmykcolor) show} if xcolor 3 eq {( www setrgbcolor) show} if TK % 0,01 * (72/25,4) = 0,02834 Zoll = 0,01 MM % 72 / 3600 = 2 / 100 Zoll = 0,02 Zoll = 0,00705555 mm %/FAKT {0.01 72 mul 25.4 div 72 3600 div div} def %(0,01 * 72 / 25.4)/(72/3600) = (0.01/25.4)/(1/3600) = (0.01*3600)/25.4 % = 36/25.4 = 1.4173228 /FAKT {36 25.4 div mul} def /FAKC {36 25.4 div} def %72 3600 div FAKT dup scale %Belichtereinheit = 25.4 mm / 3600 = 0,0070555555 mm %PostScript-Einheit =(72/3600) = 2 / 100 = 0.02 %bisherige Einheit 0.01 * 72 / 25.4 = 0,0283464 = 3/100 Zoll %bisherige Einheit 0.01 / 25.4 = 0,0003937 %MM -> DPI = 0,0283464 / 0.07055 = (25.4/3600) / (72/25.4) = 2 / 100 = 0,02 /TEKx {200 /Times-ISOL1 FS} bind def %/ausz 8 def /half 0 def %Halbt %Farbauszug 1=C, 2=M, 3=Y, 7=N, 8=F 15 setlinewidth %kleinste Linienbreite TBK 4300 100 moveto (Rasterweite in ) showde (line raster diameter in ) showen (de di\341metro r\341ster in ) showes (largeur de trame in ) showfr (diametro linea raster in ) showit (rasterbredde i ) showjp TBIK (lpi) show /ntl [( 15) ( 30) ( 60) (120)] def /ntp [(\050+1\051) (\050+2\051) (\050+4\051) (\050+8\051)] def /ntr [( 30) ( 60) (120) (240)] def /ntu [(15) (16) (17) (18) (19) (20) (21) (22) (23) (24) (25) (26) (27) (28) (29) (30)] def /nto [(120) (128) (136) (144) (152) (160) (168) (176) (184) (192) (200) (208) (216) (224) (232) (240)] def TBM tfnw* 0 1 4 {/l exch def /iy0 850 l 600 mul add def 500 iy0 moveto 10800 0 rlineto closepath stroke } for %l 0 3 3 {/l exch def /iy0 l 600 mul def 0 1 15 {/j exch def /ix0 1150 j 600 mul add def l 0 eq {ix0 150 add iy0 450 add moveto ntu j get show} if l 3 eq {ix0 050 add iy0 1600 add moveto nto j get show} if l 0 eq {ix0 iy0 400 add moveto 0 3300 rlineto closepath stroke} if l 0 eq j 15 eq and {ix0 600 add iy0 400 add FAKT moveto 0 3300 rlineto closepath stroke} if } for %j } for %l tfnw* 0 1 03 {/l exch def /iy0 850 l 600 mul add def TBK 600 iy0 100 add moveto ntp l get show TBM 500 iy0 350 add moveto ntl l get show 10900 iy0 150 add moveto ntr l get show tfnw* %Achtung N-Raster /ixd 600 def 0 1 15 {/j exch def /ix0 1150 j 600 mul add def TEKx l 0 eq {/ixjF0 3600 30 j 1 mul add div def /kmax 8 def /x ix0 def %BEG special 45 degree /y iy0 def /width ixd def /height ixd def gsave newpath x y moveto width 0 rlineto 0 height rlineto width neg 0 rlineto closepath clip newpath %END special 45 degree kmax neg 2 kmax {/k exch def /ixjF ixjF0 def /ixjFk ixjF k 2 sub mul def /ixjFk1 ixjFk ixjF add def ixjFk 600 lt { ix0 ixjFk add iy0 moveto ixjF 000 rlineto ixd dup rlineto ixjF neg 000 rlineto closepath fill } if %ixjFk < 600 } for %k grestore %special 45 degree } if l 1 eq {/ixjF0 3600 60 j 2 mul add div def /kmax 16 def /x ix0 def %BEG special 45 degree /y iy0 def /width ixd def /height ixd def gsave newpath x y moveto width 0 rlineto 0 height rlineto width neg 0 rlineto closepath clip newpath %END special 45 degree kmax neg 2 kmax {/k exch def /ixjF ixjF0 def /ixjFk ixjF k mul def /ixjFk1 ixjFk ixjF add def ixjFk 600 lt { ix0 ixjFk add iy0 moveto ixjF 000 rlineto ixd dup rlineto ixjF neg 000 rlineto closepath fill } if %ixjFk < 600 FAKT } for %k grestore %special 45 degree } if l 2 eq {/ixjF0 3600 120 j 4 mul add div def /kmax 32 def /x ix0 def %BEG special 45 degree /y iy0 def /width ixd def /height ixd def gsave newpath x y moveto width 0 rlineto 0 height rlineto width neg 0 rlineto closepath clip newpath %END special 45 degree kmax neg 2 kmax {/k exch def /ixjF ixjF0 def /ixjFk ixjF k mul def /ixjFk1 ixjFk ixjF add def ixjFk 600 lt { ix0 ixjFk add iy0 moveto ixjF 000 rlineto ixd dup rlineto ixjF neg 000 rlineto closepath fill } if %ixjFk < 600 FAKT } for %k grestore %special 45 degree } if l 3 eq {/ixjF0 3600 240 j 8 mul add div def /kmax 64 def /x ix0 def %BEG special 45 degree /y iy0 def /width ixd def /height ixd def gsave newpath x y moveto width 0 rlineto 0 height rlineto width neg 0 rlineto closepath clip newpath %END special 45 degree kmax neg 2 kmax {/k exch def /ixjF ixjF0 def /ixjFk ixjF k mul def /ixjFk1 ixjFk ixjF add def ixjFk 600 lt { ix0 ixjFk add iy0 moveto ixjF 000 rlineto ixd dup rlineto ixjF neg 000 rlineto closepath fill } if %ixjFk < 600 FAKT } for %k grestore %special 45 degree } if } for %j tfnw* } for %l } def %END proc_Line45 %********************************************************** /proc_Line90 { %BEG proc_Line90 %requires 0<=iout<=1 %requires deintp=0,1 15 setlinewidth tfww* 0 0 moveto 12000 0 rlineto 0 4000 rlineto -12000 0 rlineto closepath fill tfnw* 0 0 moveto 12000 0 rlineto 0 4000 rlineto -12000 0 rlineto closepath stroke tfnw* TK 100 -230 moveto (AE051-5, ) show (Bild ) showde (picture ) showen (Fig. ) showes (Fig. ) showfr (Fig. ) showit (Figur ) showjp iout 3 ge {(A6) show}{(C6) show} ifelse (W) show Txx show (: ) show (Element F: Linienraster unter 90\260 (oder 0\260)) showde (Element F: Line raster under 90\260 (or 0\260)) showen (Elemento F: Trama linea menores de 90\260 (o 0\260) grados) showes (\311l\351ment F: trame lin\351aire \340 90\260 (ou 0\260)) showfr (Elemento F: Linea raster a 90\260 (o 180\260) gradi) showit (Element F: Linjeraster med 90\260 (eller 0\260)) showjp TK (; ) show TIK (PS) show TK (\255Operator:) showde ( operator:) showen ( operator:) showes ( op\351rateur :) showfr ( operator:) showit ( operator:) showjp TIK xcolor 0 eq {( 000n setcmykcolor) show} if xcolor 1 eq {( w setgray) show} if xcolor 2 eq {( nnn0 setcmykcolor) show} if xcolor 3 eq {( www setrgbcolor) show} if TK % 0,01 * (72/25,4) = 0,02834 Zoll = 0,01 MM % 72 / 3600 = 2 / 100 Zoll = 0,02 Zoll = 0,00705555 mm %/FAKT {0.01 72 mul 25.4 div 72 3600 div div} def %(0,01 * 72 / 25.4)/(72/3600) = (0.01/25.4)/(1/3600) = (0.01*3600)/25.4 % = 36/25.4 = 1.4173228 /FAKT {36 25.4 div mul} def /FAKC {36 25.4 div} def %72 3600 div FAKT dup scale %Belichtereinheit = 25.4 mm / 3600 = 0,0070555555 mm %PostScript-Einheit =(72/3600) = 2 / 100 = 0.02 %bisherige Einheit 0.01 * 72 / 25.4 = 0,0283464 = 3/100 Zoll %bisherige Einheit 0.01 / 25.4 = 0,0003937 %MM -> DPI = 0,0283464 / 0.07055 = (25.4/3600) / (72/25.4) = 2 / 100 = 0,02 /TEKx {200 /Times-ISOL1 FS} bind def %/ausz 8 def /half 0 def %Halbt %Farbauszug 1=C, 2=M, 3=Y, 7=N, 8=F 15 setlinewidth %kleinste Linienbreite TBK 4300 100 moveto (Rasterweite in ) showde (line raster diameter in ) showen (de di\341metro r\341ster in ) showes (largeur de trame in ) showfr (diametro linea raster in ) showit (rasterbredde i ) showjp TBIK (lpi) show /ntl [( 15) ( 30) ( 60) (120)] def /ntp [(\050+1\051) (\050+2\051) (\050+4\051) (\050+8\051)] def /ntr [( 30) ( 60) (120) (240)] def /ntu [(15) (16) (17) (18) (19) (20) (21) (22) (23) (24) (25) (26) (27) (28) (29) (30)] def /nto [(120) (128) (136) (144) (152) (160) (168) (176) (184) (192) (200) (208) (216) (224) (232) (240)] def TBM tfnw* 0 1 4 {/l exch def /iy0 850 l 600 mul add def 500 iy0 moveto 10800 0 rlineto closepath stroke } for %l 0 3 3 {/l exch def /iy0 l 600 mul def 0 1 15 {/j exch def /ix0 1150 j 600 mul add def l 0 eq {ix0 150 add iy0 450 add moveto ntu j get show} if l 3 eq {ix0 050 add iy0 1600 add moveto nto j get show} if l 0 eq {ix0 iy0 400 add moveto 0 3300 rlineto closepath stroke} if l 0 eq j 15 eq and {ix0 600 add iy0 400 add FAKT moveto 0 3300 rlineto closepath stroke} if } for %j } for %l tfnw* 0 1 03 {/l exch def /iy0 850 l 600 mul add def TBK 600 iy0 100 add moveto ntp l get show TBM 500 iy0 350 add moveto ntl l get show 10900 iy0 150 add moveto ntr l get show /ixd 600 def 0 1 15 {/j exch def /ix0 1150 j 600 mul add def TEKx l 0 eq {/ixjF0 3600 30 j 1 mul add div def /kmax 8 def 0 2 kmax {/k exch def /ixjF ixjF0 def /ixjFk ixjF k mul def /ixjFk1 ixjFk ixjF add def ixjFk 600 lt { ix0 ixjFk add iy0 moveto ixjF 000 rlineto 000 ixd rlineto ixjF neg 000 rlineto closepath fill } if %ixjFk < 600 } for %k } if l 1 eq {/ixjF0 3600 60 j 2 mul add div def /kmax 16 def 0 2 kmax {/k exch def /ixjF ixjF0 def /ixjFk ixjF k mul def /ixjFk1 ixjFk ixjF add def ixjFk 600 lt { ix0 ixjFk add iy0 moveto ixjF 000 rlineto 000 ixd rlineto ixjF neg 000 rlineto closepath fill } if %ixjFk < 600 FAKT } for %k } if l 2 eq {/ixjF0 3600 120 j 4 mul add div def /kmax 32 def 0 2 kmax {/k exch def /ixjF ixjF0 def /ixjFk ixjF k mul def /ixjFk1 ixjFk ixjF add def ixjFk 600 lt { ix0 ixjFk add iy0 moveto ixjF 000 rlineto 000 ixd rlineto ixjF neg 000 rlineto closepath fill } if %ixjFk < 600 FAKT } for %k } if l 3 eq {/ixjF0 3600 240 j 8 mul add div def /kmax 64 def 0 2 kmax {/k exch def /ixjF ixjF0 def /ixjFk ixjF k mul def /ixjFk1 ixjFk ixjF add def ixjFk 600 lt { ix0 ixjFk add iy0 moveto ixjF 000 rlineto 000 ixd rlineto ixjF neg 000 rlineto closepath fill } if %ixjFk < 600 FAKT } for %k } if } for %j tfnw* } for %l } def %END proc_Line90 %********************************************************** /trn {0.0 0.0 0.0} def %Reproduktionsfarben NZW /trz {0.5 0.5 0.5} def /trw {1.0 1.0 1.0} def /tgn {trn setrgbcolor} def /tgz {trz setrgbcolor} def /tgw {trw setrgbcolor} def %********************************************************** /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /rem %x0, y0 width heigth {/heigth exch def /width exch def /y0 exch def /x0 exch def x0 width 0.5 mul add y0 heigth 0.5 mul add moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /cviht {dup 0 ge {0.49 add}{0.49 sub} ifelse cvi} def /cvishow {dup 0 ge {0.5 add} {0.5 sub} ifelse cvi 6 string cvs show} def /cvsshow1 {dup 0 ge {0.05 add} {0.05 sub} ifelse 10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {dup 0 ge {0.005 add} {0.005 sub} ifelse 100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {dup 0 ge {0.0005 add} {0.0005 sub} ifelse 1000 mul cvi 0.001 mul 7 string cvs show} def /A4quer {598 0 tl 90 rotate} def %%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 /showea {1 lanind le {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def %default values /lanind1 01 def /lanind2 01 def /lanindd 01 def /lanindm 01 def /colorm1 00 def /colorm2 00 def /colormd 01 def /colormm 01 def /deintp1 00 def /deintp2 00 def /deintpd 01 def /deintpm 01 def /xcolor1 03 def /xcolor2 03 def /xcolord 01 def /xcolorm 01 def /xchart1 00 def /xchart2 00 def /xchartd 01 def /xchartm 01 def /pchart1 02 def /pchart2 02 def /pchartd 01 def /pchartm 01 def /colsep1 00 def /colsep2 00 def /colsepd 01 def /colsepm 01 def /pmetam1 00 def /pmetam2 00 def /pmetamd 01 def /pmetamm 01 def /xchart3 00 def /xchart4 00 def /xchart5 00 def %usual change of default values /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def /lanindm lanindmf def} if /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def /colormm colormmf def} if /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def /deintpm deintpmf def} if /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def /xcolorm xcolormf def} if /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchartmf def} if /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def /pchartm pchartmf def} if /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def /colsepm colsepmf def} if /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def /pmetamm pmetammf def} if /xchart3f where {pop /xchart3 xchart3f def} if /xchart4f where {pop /xchart4 xchart4f def} if /xchart5f where {pop /xchart5 xchart5f def} if /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % /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 /colorml colorm def %0 1 1 {/colorml exch def %colorml=0,1 /xcolorl xcolor def %0 1 3 {/xcolorl exch def %xcolorl=0,3 /xchartl xchart def %0 1 7 {/xchartl exch def %xchartl=0,7 /pchartl pchart def %0 1 2 {/pchartl exch def %pchartl=0,2 colorml 0 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if colorml 0 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if colorml 1 eq deintp 0 eq and {/Txx (*dd) def /Fxx (d) def} if colorml 1 eq deintp 1 eq and {/Txx (*de) def /Fxx (e) def} if %xchart 0 eq {/Txx (-) def /Fxx (-) def} if gsave xcolorl 0 eq {/tfnx* {0 0 0 1 setcmykcolor} def /tfwx* {0 0 0 0 setcmykcolor} def /colrecfix* {setcmykcolor rec fill} bind def /colrecstx* {setcmykcolor rec stroke} bind def } if xcolorl 1 eq {/tfnx* {0 setgray} def /tfwx* {1 setgray} def /colrecfix* {setgray rec fill} bind def /colrecstx* {setgray rec stroke} bind def } if xcolorl 2 eq {/tfnx* {1 1 1 0 setcmykcolor} def /tfwx* {0 0 0 0 setcmykcolor} def /colrecfix* {setcmykcolor rec fill} bind def /colrecstx* {setcmykcolor rec stroke} bind def } if xcolorl 3 eq {/tfnx* {0 0 0 setrgbcolor} def /tfwx* {1 1 1 setrgbcolor} def /colrecfix* {setrgbcolor rec fill} bind def /colrecstx* {setrgbcolor rec stroke} bind def } if 68 90 translate 0.01 MM dup scale 0 setgray 15 setlinewidth /iout 3 def /INW 0 def 200 0 translate proc_16step %********************************************************** showpage grestore %} for %pchartl=0,2 %} for %xchartl=0,7 %} for %xcolorl=0,3 %} for %colorml=0,1 %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 020 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 %line 409 %!PS-Adobe-3.0 EPSF-3.0 AE050-8, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (AE050-8,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 197 MM translate 10 /Times-ISOL1 FS 1 1 scale -77 -91 translate %%BeginDocument: Bild 12 %line 419 %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 8 MM sub 152 MM 0.5 MM add translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 21 %line 429 %!PS-Adobe-3.0 EPSF-3.0 AE051-1, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (AE051-1,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 22 %line 439 %!PS-Adobe-3.0 EPSF-3.0 AE051-2, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (AE051-2,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 8 MM sub 108 MM 1 MM add translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 23 %line 449 %!PS-Adobe-3.0 EPSF-3.0 AE051-3, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (AE051-3,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 24 %line 459 %!PS-Adobe-3.0 EPSF-3.0 AE051-4, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (AE051-4,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 8 MM sub 064 MM 1 MM add translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 25 %line 469 %!PS-Adobe-3.0 EPSF-3.0 AE051-5, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (AE051-5,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 26 %line 479 %!PS-Adobe-3.0 EPSF-3.0 AE051-6, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (AE051-6,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 8 MM sub 020 MM 1 MM add translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 27 %line 489 %!PS-Adobe-3.0 EPSF-3.0 AE051-7, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (AE051-7,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 020 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 %line 499 %!PS-Adobe-3.0 EPSF-3.0 AE051-8, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (AE051-8,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%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 %line 509 %%EndDocument EndEPSF grestore gsave BeginEPSF -0.0 MM -0.0 MM translate %xy-Verschiebung Rechteckrahmen nach innen% %%BeginDocument: Bild 30 %Rechteckrahmen %line 519 %!PS-Adobe-3.0 EPSF-3.0 Frame arround with Internet text DG02 20190101 %%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 /showea {1 lanind le {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def %default values /lanind1 01 def /lanind2 01 def /lanindd 01 def /lanindm 01 def /colorm1 00 def /colorm2 00 def /colormd 01 def /colormm 01 def /deintp1 00 def /deintp2 00 def /deintpd 01 def /deintpm 01 def /xcolor1 03 def /xcolor2 03 def /xcolord 01 def /xcolorm 01 def /xchart1 00 def /xchart2 00 def /xchartd 01 def /xchartm 01 def /pchart1 00 def /pchart2 02 def /pchartd 01 def /pchartm 03 def /colsep1 00 def /colsep2 00 def /colsepd 01 def /colsepm 01 def /pmetam1 00 def /pmetam2 00 def /pmetamd 01 def /pmetamm 01 def /xchart3 00 def /xchart4 00 def /xchart5 00 def %usual change of default values /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def /lanindm lanindmf def} if /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def /colormm colormmf def} if /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def /deintpm deintpmf def} if /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def /xcolorm xcolormf def} if /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchartmf def} if /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def /pchartm pchartmf def} if /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def /colsepm colsepmf def} if /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def /pmetamm pmetammf def} if /xchart3f where {pop /xchart3 xchart3f def} if /xchart4f where {pop /xchart4 xchart4f def} if /xchart5f where {pop /xchart5 xchart5f def} if /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % /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 /ISRL*ioG where {pop}{/ISRL*ioG 0 def} ifelse /ISIN*ioG where {pop}{/ISIN*ioG 0 def} ifelse /ISOU*ioG where {pop}{/ISOU*ioG 0 def} ifelse %pchart 0 eq {%beg if pchart=0 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 005 291 291 005 %speziell 006 290 290 006 008 288 288 008 ] def /y [000 000 210 210 002 002 208 208 005 005 205 205 %speziell 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 16 MM rlineto stroke xro 8 MM add yro moveto -16 MM 0 rlineto stroke xro yro 8 MM add moveto 0 -16 MM rlineto stroke xru 8 MM sub yru moveto 16 MM 0 rlineto stroke xru yru 8 MM sub moveto 0 16 MM rlineto stroke xlo 8 MM add ylo moveto -16 MM 0 rlineto stroke xlo ylo 8 MM add moveto 0 -16 MM rlineto stroke 1 2 7 {/i exch def %Zentrierkreise xlu ylu i MM 0 360 arc stroke xro yro i MM 0 360 arc stroke xru yru i MM 0 360 arc stroke xlo ylo i MM 0 360 arc stroke } for %i 12 4 16 {/i exch def /i0 i def %i=0,16 %0 4 16 {/i exch def /i0 i def %i=0,16 /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def i 16 eq {0.30 MM setlinewidth} {0.15 MM setlinewidth} ifelse 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 16 eq {6 /Times-ISOL1 FS /x00 67 def /xdif 32 def /y0o 202.3 def /y0u 6.3 def /x0l 6.1 def /x0r 288 def /y00 22 def /ydif 32 def x00 xdif 0 mul add MM y0o MM moveto (V) show x00 xdif 0 mul add MM y0u MM moveto (C) show x00 xdif 1 mul add MM y0o MM moveto (L) show x00 xdif 1 mul add MM y0u MM moveto (M) show x00 xdif 2 mul add MM y0o MM moveto (O) show x00 xdif 2 mul add MM y0u MM moveto (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 {tzrcmy0* setcmykcolor} if j0 7 eq {0 setgray} if j0 8 eq {tzgcmy0* setcmykcolor} if j0 9 eq {0 setgray} if j0 10 eq {tzbcmy0* setcmykcolor} if 12 4 16 {/i exch def /i0 i def %i=0,16 %0 4 16 {/i exch def /i0 i def %i=0,16 /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def i 16 eq {0.30 MM setlinewidth} {0.15 MM setlinewidth} ifelse x i0 get d i0 get add 16 j0 mul add MM y i0 get MM moveto x i0 get d i0 get add 16 j1 mul add MM y i0 get MM lineto stroke x i1 get MM y i1 get d i1 get add 16 j0 mul add MM moveto x i1 get MM y i1 get d i1 get add 16 j1 mul add MM lineto stroke x i2 get d i2 get add 16 j0 mul sub MM y i2 get MM moveto x i2 get d i2 get add 16 j1 mul sub MM y i2 get MM lineto stroke x i3 get MM y i3 get d i3 get add 16 j0 mul sub MM moveto x i3 get MM y i3 get d i3 get add 16 j1 mul sub MM lineto stroke } for %i=0,16 } for %j0 0.15 MM setlinewidth /s 7 MM def /s1 8 MM def /s5 36 MM def 16 1 20 {/j exch def /j0 j 16 sub def %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 {/ng tzan j get def ng ng ng 0 setcmykcolor ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if /ng tzan j get def ng ng ng 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 {/wg 1 tzan j get sub def wg wg wg setrgbcolor ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if /wg 1 tzan j get sub def wg wg wg setrgbcolor 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 {/ng tzan j get def 0 0 0 ng setcmykcolor ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if /ng tzan j get def 0 0 0 ng setcmykcolor ix0 iy0 s s rec fill } if %i*ptrsc=6 i*ptrsc 7 eq {%i*ptrsc=7 w* setgray j 16 eq {/wg 1 tzan j get sub def wg setgray ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if /wg 1 tzan j get sub def wg 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 018 MM 006.2 MM moveto 6 /Times-Roman FS (-6) show 276 MM 008.2 MM moveto 6 /Times-Roman FS (-8) show 276 MM 006.2 MM moveto 6 /Times-Roman FS (-6) show 018 MM 202.2 MM moveto 6 /Times-Roman FS (-8) show 018 MM 204.2 MM moveto 6 /Times-Roman FS (-6) show 276 MM 202.2 MM moveto 6 /Times-Roman FS (-8) show 276 MM 204.2 MM moveto 6 /Times-Roman FS (-6) show 0 setgray 12 /Times-ISOL1 FS 61 MM 13.5 MM moveto pchart 0 eq {() show} if pchart 1 eq {%pchart=1 (Vorduck A: ) showde (Form A: ) showea } if %pchart=1 pchart 2 eq {%pchart=2 (Ein\255/Ausgabe: ) showde (Input\255output: ) showea } if %pchart=2 (Pr\374fvorlage AE05) showde %0AE05X-Y 0100# (Test chart AE05) showen %1AE05X-Y 0100# (Gr\341fico AE05) showes %2AE05X-Y 0100# (Graphique AE05) showfr %3AE05X-Y 0100# (Grafico AE05) showit %4AE05X-Y 0100# (Pr\370veplansje AE05) showjp %5AE05X-Y 0100# ((ISO 9241\255306)) show xchart4 0 eq {( & 3(ISO/IEC 15775)) show} if xchart4 1 eq {( & 4(ISO/IEC 15775)) show} if xchart4 2 eq {( & 2(ISO/IEC 15775)) show} if xchart4 3 eq {( & H (DIN 33872\2555/OE76)) show} if xchart4 4 eq {( & G (TUB GE20)) show} if xchart4 5 eq {( & O (TUB GE00)) show} if xchart4 6 eq {( & H (TUB PE80)) show} if /Ycont 8 array def /Ycont [(88,9:0,31) (88,9:0,62) (88,9:1,25) (88,9:2,5) (88,9:5) (88,9:10) (88,9:20) (88,9:40)] def /Yrang 8 array def /Yrang [(0,0 to <0,46) (0,46 to <0,93) (0,93 to <1,87) (1,87 to <3,75) (3,75 to <7,5) (7,5 to <15) (15 to <30) (30 to <60)] def 61 MM 09.5 MM moveto pchart 1 le {%pchart<=1 xchart4 0 eq { 12 /Times-ISOL1 FS (Visueller Test: Display\255Leuchtdichte ) showde %0AE05X-Y 0200# (visual test of display luminance ) showen %1AE05X-Y 0200# (und Gleichheit von 4 Grauskalen) showde (and equality of four grey scales) showen (test acrom\341tico gr\341fico) showes %2AE05X-Y 0200# (achromatic graphique de test) showfr %3AE05X-Y 0200# (Tavola dei colori acromatici) showit %4AE05X-Y 0200# (akromatisk pr\370veplansje) showjp %5AE05X-Y 0200# %12 /TimesI-ISOL1 FS %( N) show } if xchart4 1 eq { 12 /Times-ISOL1 FS (Chromatische Pr\374fvorlage) showde %0AE05X-Y 0300# (chromatic test chart) showen %1AE05X-Y 0300# (test crom\341tico gr\341fico) showes %2AE05X-Y 0300# (chromatic graphique de test) showfr %3AE05X-Y 0300# (Tavola dei colori cromatici) showit %4AE05X-Y 0300# (kromatisk pr\370veplansje) showjp %5AE05X-Y 0300# 12 /TimesI-ISOL1 FS ( RGB) show } if xchart4 2 eq { 12 /Times-ISOL1 FS (Chromatische Pr\374fvorlage) showde %0AE05X-Y 0400# (chromatic test chart) showen %1AE05X-Y 0400# (test crom\341tico gr\341fico) showes %2AE05X-Y 0400# (chromatic graphique de test) showfr %3AE05X-Y 0400# (Tavola dei colori cromatici) showit %4AE05X-Y 0 (kromatisk pr\370veplansje) showjp %5AE05X-Y 0400# 12 /TimesI-ISOL1 FS ( CMYK) show } if xchart4 3 eq {%xchart4=3 (20stufiger Elementar-Bunttonkreis) showde (20 step elementary hue circle) showen (c\355rculo de tono, 20 pasos) showes %2AE05X-Y 0500# (cercle de teinte, 20 \351tapes) showfr %3AE05X-Y 0500# (cerchio delle tinte a 20 passi) showit %4AE05X-Y 0500# (20\255trinns fargetonesirkel) showjp %5AE05X-Y 0500# (; ) show (Pr\374fvorlage nach DIN 33872) showde %0AE05X-Y 0400# (Test chart according to DIN 33872) showen %1AE05X-Y 0400# (gr\341fico seg\372n a DIN 33872) showes %2AE05X-Y 0400# (graphique conforme \340 DIN 33872) showfr %3AE05X-Y 0400# (grafico conformemente a DIN 33872) showit %4AE05X-Y 0400# (pr\370veplansje inf\370lge DIN 33872) showjp %5AE05X-Y 0400# } if %xchart4=3 xchart4 4 eq {%xchart4=4 (1080 Normfarben) showde %0AE05X-Y 0200# (1080 standard colours) showen %1AE05X-Y 0200# (1080 colores del est\341ndar) showes %2AE05X-Y 0200# (1080 couleur de norme) showfr %3AE05X-Y 0200# (1080 colori standard) showit %4AE05X-Y 0200# (1080 standard farger) showjp %5AE05X-Y 0200# (; ) show (Pr\374fvorlage nach R8-09) showde %0AE05X-Y 0400# (Test chart according to R8-09) showen %1AE05X-Y 0400# (gr\341fico seg\372n a R8-09) showes %2AE05X-Y 0400# (graphique conforme \340 R8-09) showfr %3AE05X-Y 0400# (grafico conformemente a R8-09) showit %4AE05X-Y 0400# (pr\370veplansje inf\370lge R8-09) showjp %5AE05X-Y 0400# } if %xchart4=4 xchart4 5 eq {%xchart4=5 (12 Bunttonserien mit 9x9 Stufen) showde (12 hue series with 9x9 scales) showea (12 Bunttonebenen) showde (12 hue planes) showen (12 tonos) showes %2AE05X-Y 0500# (12 teintes) showfr %3AE05X-Y 0500# (12 tintes) showit %4AE05X-Y 0500# (12 fargetone) showjp %5AE05X-Y 0500# (; ) show (16 visuell gleichabst\344ndige ) showde (16 visual equidistant ) showen (16 equidistante ) showes (16 paliers de gris ) showfr (16 equidistante ) showit (16 visuelle ekvidistante ) showjp 12 /TimesI-ISOL1 FS (L*) show 12 /Times-ISOL1 FS (\255Graustufen) showde (\255grey steps) showen ( pasos de gris) showes ( \350quidistante) showfr ( grigio passi) showit (\255gr\345trinn) showjp } if %xchart4=5 xchart4 6 eq {%xchart4=6 (16stufiger Elementar-Bunttonkreis) showde (16 step elementary hue circle) showen (c\355rculo de tono, 16 pasos) showes %2AE05X-Y 0500# (cercle de teinte, 16 \351tapes) showfr %3AE05X-Y 0500# (cerchio delle tinte a 16 passi) showit %4AE05X-Y 0500# (16\255trinns fargetonesirkel) showjp %5AE05X-Y 0500# } if %xchart4=6 } if %pchart<=1 pchart 2 eq {%pchart=2 (Gesehener) showde (Viewing) showea 12 /TimesI-ISOL1 FS ( Y) show 12 /Times-ISOL1 FS (\255Kontrast ) showde ( contrast ) showea 12 /TimesI-ISOL1 FS (Y) show 10 /Times-ISOL1 FS 0 -2 rmoveto (W) show 0 2 rmoveto 12 /TimesI-ISOL1 FS (:) show (Y) show 10 /Times-ISOL1 FS 0 -2 rmoveto (N) show 0 2 rmoveto 12 /Times-ISOL1 FS (=) show Ycont xchart xchartd idiv get show (; ) show 12 /TimesI-ISOL1 FS (Y) show 10 /Times-ISOL1 FS 0 -2 rmoveto (N) show 0 2 rmoveto 12 /Times-ISOL1 FS (\255range ) showea (\255Bereich ) showde Yrang xchart xchartd idiv get show } if %pchart=2 12 /Times-ISOL1 FS 180 MM 13.5 MM moveto (Eingabe: ) showde %0AE05X-Y 0800# (input: ) showen %1AE05X-Y 0800# (entrada: ) showes %2AE05X-Y 0800# (entr\351e : ) showfr %3AE05X-Y 0800# (Input: ) showit %4AE05X-Y 0800# (input: ) showjp %5AE05X-Y 0800# 12 /TimesI-ISOL1 FS (rgb/cmy0/000n/w set...) show 12 /Times-ISOL1 FS 180 MM 9.5 MM moveto (Ausgabe: ) showde %0AE05X-Y 0900# (output: ) showen %1AE05X-Y 0900# (salida: ) showes %2AE05X-Y 0900# (sortie : ) showfr %3AE05X-Y 0900# (Output: ) showit %4AE05X-Y 0900# (output: ) showjp %5AE05X-Y 0900# 12 /TimesI-ISOL1 FS %(->rgb) show %10 /Times-ISOL1 FS 0 -2 rmoveto %colorm 1 eq {(*) show} if %deintp 0 eq {(dd) show} {(de) show} ifelse %0 2 rmoveto %12 /TimesI-ISOL1 FS ( setrgbcolor) show xcolor 0 eq {%xcolor=0 12 /TimesI-ISOL1 FS (000n) show 10 /Times-ISOL1 FS 0 -2 rmoveto deintp 0 eq {(d) show} {(e) show} ifelse 0 2 rmoveto 12 /TimesI-ISOL1 FS ( setcymkcolor) show } if %xcolor=0 xcolor 1 eq {%xcolor=1 12 /TimesI-ISOL1 FS (w) show 10 /Times-ISOL1 FS 0 -2 rmoveto deintp 0 eq {(d) show} {(e) show} ifelse 0 2 rmoveto 12 /TimesI-ISOL1 FS ( setgray) show } if %xcolor=1 xcolor 2 eq {%xcolor=2 12 /TimesI-ISOL1 FS (nnn0) show 10 /Times-ISOL1 FS 0 -2 rmoveto deintp 0 eq {(d) show} {(e) show} ifelse 0 2 rmoveto 12 /TimesI-ISOL1 FS ( setcymkcolor) show } if %xcolor=2 xcolor 3 eq {%xcolor=3 12 /TimesI-ISOL1 FS (www) show 10 /Times-ISOL1 FS 0 -2 rmoveto deintp 0 eq {(d) show} {(e) show} ifelse 0 2 rmoveto 12 /TimesI-ISOL1 FS ( setrgbcolor) show } if %xcolor=3 %LSC$ (N) eq { %(keine \334nderung) showde %0AE05X-Y 1000# %(no change) showen %1AE05X-Y 1000# %(ning\372n cambio) showes %2AE05X-Y 1000# %(aucun changement) showfr %3AE05X-Y 1000# %(nessun cambiamento) showit %4AE05X-Y 1000# %(ingen endring) showjp %5AE05X-Y 1000# % } if %1 setgray %start white and unvisible LSC$ (S) eq { (Startup (S) data dependend) showea (Startup(S)Daten abh\344ngig) showde } if %LSC$ (F) eq {12 /TimesI-ISOL1 FS (g) show % 10 /TimesI-ISOL1 FS % 0 -2 rmoveto (P) show 0 2 rmoveto % 12 /Times-ISOL1 FS (=) show % /xchartN xchart 8 idiv def % /xchartP xchart xchart 8 idiv 8 mul sub def % /gammaNl 1 2.4 xchartN 0.18 mul sub 2.4 div div def % /gammaPl 2.4 xchartP 0.18 mul sub 2.4 div def % gammaPl cvsshow2 (; ) show % 12 /TimesI-ISOL1 FS (g) show % 10 /TimesI-ISOL1 FS % 0 -2 rmoveto (N) show 0 2 rmoveto % 12 /Times-ISOL1 FS (=) show % gammaNl cvsshow2 % } if 12 /Times-ISOL1 FS 62 MM 198.5 MM moveto (http://farbe.li.tu\255berlin.de/AE05/AE05) show /xchartg where {pop (F0N) show (X) show % (.PDF /.PS) show} {(L0N) show LSC$ show LEX$ show % (.PDF /.PS) show } ifelse %1 setgray %start white and unvisible (; ) show LSC$ (N) eq { (Start\255Ausgabe) showde %0AE05X-Y 1300# (start output) showen %1AE05X-Y 1300# (comience salida) showes %2AE05X-Y 1300# (sortie de production) showfr %3AE05X-Y 1300# (inizio dell'output) showit %4AE05X-Y 1300# (start output) showjp %5AE05X-Y 1300# } if LSC$ (C) eq { (Start\255Ausgabe) showde %0AE05X-Y 1300# (start output) showen %1AE05X-Y 1300# (comience salida) showes %2AE05X-Y 1300# (sortie de production) showfr %3AE05X-Y 1300# (inizio dell'output) showit %4AE05X-Y 1300# (start output) showjp %5AE05X-Y 1300# } if LSC$ (F) eq { (3D\255Linearisierung) showde %0AE05X-Y 1600# (3D\255linearization) showen %1AE05X-Y 1600# (3D\255linealizaci\363n) showes %2AE05X-Y 1600# (lin\351arisation 3D) showfr %3AE05X-Y 1600# (linearizzazione 3D) showit %4AE05X-Y 1600# (3D\255linearisering) showjp %5AE05X-Y 1600# } if (, Seite ) showde %0AE05X-Y 2500# (, page ) showen %1AE05X-Y 2500# (, p\341gina ) showes %2AE05X-Y 2500# (, p\341ge ) showfr %3AE05X-Y 2500# (, pagine ) showit %4AE05X-Y 2500# (, side ) showjp %5AE05X-Y 2500# xchart xchartd idiv pchartm mul pchart add 1 add cvishow (/) show xchartm xchartd idiv pchartm mul cvishow 62 MM 194 MM moveto LSC$ (N) eq LSC$ (C) eq or { (N: Keine 3D\255Linearisierung (OL) ) showde %0AE05X-Y 1700# (N: no 3D\255linearization (OL) ) showen %1AE05X-Y 1700# (N: ninguna 3D\255linealizaci\363n (OL) ) showes %2AE05X-Y 1700# (N: aucune linearisation 3D (OL) ) showfr %3AE05X-Y 1700# (N: nessuna linearizzazione 3D (OL) ) showit %4AE05X-Y 1700# (N: ingen 3D\255linearisering (OL) ) showjp %5AE05X-Y 1700# (in Datei (F) oder PS\255Startup (S)) showde %0AE05X-Y 1800# (in file (F) or PS\255startup (S)) showen %1AE05X-Y 1800# (en archivo (F) o PS\255startup (S)) showes %2AE05X-Y 1800# (dans fichier (F) ou PS\255startup (S)) showfr %3AE05X-Y 1800# (nel file (F) o PS\255startup (S)) showit %4AE05X-Y 1800# (i fil (F) eller PS\255startup (S)) showjp %5AE05X-Y 1800# } {LSC$ show (: ) show (3D\255Linearisierung) showde %0AE05X-Y 1900# (3D\255linearization) showen %1AE05X-Y 1900# (3D\255linealizaci\363n) showes %2AE05X-Y 1900# (lin\351arisation 3D) showfr %3AE05X-Y 1900# (linearizzazione 3D) showit %4AE05X-Y 1900# (3D\255linearisering) showjp %5AE05X-Y 1900# ( AE05/AE05L) show /xchartg where {pop (F0N) show (X) show % (.PDF /.PS) show} {(L0N) show LSC$ show LEX$ show % (.PDF /.PS) show } ifelse } ifelse LSC$ (F) eq { ( in Datei (F)) showde %0AE05X-Y 2000# ( in file (F)) showen %1AE05X-Y 2000# ( en archivo (F)) showes %2AE05X-Y 2000# ( dans fichier (F)) showfr %3AE05X-Y 2000# ( nel file (F)) showit %4AE05X-Y 2000# ( i fil (F)) showjp %5AE05X-Y 2000# } if LSC$ (S) eq { ( im Distiller Startup (S) Directory) showde %0AE05X-Y 2100# ( in Distiller Startup (S) Directory) showen %1AE05X-Y 2100# ( en el Distiller Startup (S) Directory) showes %2AE05X-Y 2100# ( dans le Distiller Startup (S) Directory) showfr %3AE05X-Y 2100# ( nel Distiller Startup (S) Directory) showit %4AE05X-Y 2100# ( i Distiller Startup (S) Directory) showjp %5AE05X-Y 2100# } if LSC$ (D) eq { ( in PS\255Device (D)) showde %0AE05X-Y 2200# ( in PS\255device (D)) showen %1AE05X-Y 2200# ( en el PS\255device (D)) showes %2AE05X-Y 2200# ( dans l'appareil PS (D)) showfr %3AE05X-Y 2200# ( nel PS\255dispositivo (D)) showit %4AE05X-Y 2200# ( i PS\255Device (D)) showjp %5AE05X-Y 2200# } if LSC$ (T) eq { ( im Distiller Startup (S) Directory) showde %0AE05X-Y 2300# ( in Distiller Startup (S) Directory) showen %1AE05X-Y 2300# ( en el Distiller Startup (S) Directory) showes %2AE05X-Y 2300# ( dans le Distiller Startup (S) Directory) showfr %3AE05X-Y 2300# ( nel Distiller Startup (S) Directory) showit %4AE05X-Y 2300# ( i Distiller Startup (S) Directory) showjp %5AE05X-Y 2300# } if LSC$ (E) eq { ( in PS\255Device (D)) showde %0AE05X-Y 2400# ( in PS\255device (D)) showen %1AE05X-Y 2400# ( en el PS\255device (D)) showes %2AE05X-Y 2400# ( dans l'appareil PS (D)) showfr %3AE05X-Y 2400# ( nel PS\255dispositivo (D)) showit %4AE05X-Y 2400# ( i PS\255Device (D)) showjp %5AE05X-Y 2400# } if %0 setgray %end white and unvisible 16 MM 185 MM moveto -90 rotate (Siehe \344hnliche Dateien: ) showde %0AE05X-Y 2600# (see similar files: ) showen %1AE05X-Y 2600# (vea archivos semejantes: ) showes %2AE05X-Y 2600# (voir fichiers similaires: ) showfr %3AE05X-Y 2600# (vedi file simili: ) showit %4AE05X-Y 2600# (se lignende filer: ) showjp %5AE05X-Y 2600# (http://farbe.li.tu\255berlin.de/AE05/AE05.HTM) show %(0) show %LSC$ show LEX$ show 90 rotate 12 MM 185 MM moveto -90 rotate (Technische Information: ) showde %0AE05X-Y 2700# (technical information: ) showen %1AE05X-Y 2700# (informaci\363n t\351cnica: ) showes %2AE05X-Y 2700# (informations techniques: ) showfr %3AE05X-Y 2700# (informazioni tecniche: ) showit %4AE05X-Y 2700# (teknisk informasjon: ) showjp %5AE05X-Y 2700# (http://www.ps.bam.de) show ( oder ) showde %0AE05X-Y 2800# ( or ) showen %1AE05X-Y 2800# ( o ) showes %2AE05X-Y 2800# ( ou ) showfr %3AE05X-Y 2800# ( o ) showit %4AE05X-Y 2800# ( eller ) showjp %5AE05X-Y 2800# (http://130.149.60.45/~farbmetrik) show 90 rotate % 12 MM 90 MM moveto %-90 rotate %(Version 2.1, io=1,) show %LSC$ (N) eq {(1) show} if %LSC$ (S) eq {(1?) show} if %LSC$ (D) eq {(1?) show} if %LSC$ (F) eq {i*ptrsc cvishow % IMES 0 eq {(, CIELAB) show} % {(, CIEXYZ) show} ifelse % } if % 90 rotate 281 MM 185 MM moveto -90 rotate (TUB\255Registrierung: 20190101\255AE05/AE05L) showde %0AE05X-Y 2900# (TUB registration: 20190101\255AE05/AE05L) showen %1AE05X-Y 2900# (TUB matr\355cula: 20190101\255AE05/AE05L) showes %2AE05X-Y 2900# (TUB enregistrement: 20190101\255AE05/AE05L) showfr %3AE05X-Y 2900# (iscrizione TUB: 20190101\255AE05/AE05L) showit %4AE05X-Y 2900# (TUB registrering: 20190101\255AE05/AE05L) showjp %5AE05X-Y 2900# (0) show LSC$ show LEX$ show 90 rotate 281 MM 74 MM moveto -90 rotate (TUB\255Material: Code=rha4ta) showde %0AE05X-Y 3000# (TUB material: code=rha4ta) showen %1AE05X-Y 3000# (TUB material: code=rha4ta) showes %2AE05X-Y 3000# (TUB mat\351riel: code=rha4ta) showfr %3AE05X-Y 3000# (TUB materiale: code=rha4ta) showit %4AE05X-Y 3000# (TUB\255materiell: code=rha4ta) showjp %5AE05X-Y 3000# 90 rotate 277 MM 185 MM moveto -90 rotate /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def ( Anwendung f\374r Messung und Beurteilung ) showde %0AE05X-Y 3100# ( application for measurement and evaluation ) showen %1AE05X-Y 3100# ( aplicación para la medición y evaluatión ) showes ( application de mesure et d'évaluation ) showfr %3AE05X-Y 3100# ( Applicatione di misurazione e valutazione ) showit %4AE05X-Y 3100# ( Søknad om måling og evaluering ) showjp %5AE05X-Y 3100# xchart5f 0 eq {%xchart5f=0 (von Display\255 und Druck\255Ausgabe) showde %0AE05X-Y 3200# (of display and print output) showen %1AE05X-Y 3200# (de salida de display y de impresión) showes %2AE05X-Y 3200# (de sortie d'affichage et d'impression) showfr %3AE05X-Y 3200# (di display et output di stampa) showit %4AE05X-Y 3200# (av display og utskriftsutgang) showjp %5AE05X-Y 3200# } if %xchart5f=0 xchart5f 1 eq xchart5f 2 eq or {%xchart5f=1,2 (von Offsetdruck\255Ausgabe) showde %0AE05X-Y 3300# (of offset print output) showen %1AE05X-Y 3300# (salida en la impressi\363n offset) showes %2AE05X-Y 3300# (des sorties sur offset) showfr %3AE05X-Y 3300# (output nella stampa di offset) showit %4AE05X-Y 3300# (av offsettrykk output) showjp %5AE05X-Y 3300# } if %xchart5f=1,2 xchart5f 3 eq {%xchart5f=3 (von Laserdrucker\255Ausgabe) showde %0AE05X-Y 3400# (of laser printer output) showen %1AE05X-Y 3400# (salida de impresora l\341ser) showes %2AE05X-Y 3400# (des sorties sur imprimante laser) showfr %3AE05X-Y 3400# (output della stampante laser) showit %4AE05X-Y 3400# (av laserprinter output) showjp %5AE05X-Y 3400# } if %xchart5f=3 %IMES 1 eq LSC$ (N) ne and { %IMES=1 % (, Yr=) show Yre cvsshow1 (, XYZ) show % } if %IMES=1 90 rotate /i0 8 def /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def 0.30 MM setlinewidth 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 %} if %end if pchart=0 %/xlu1 013 MM def /ylu1 010 MM def %/xro1 283 MM def /yro1 200 MM def %/xlo1 013 MM def /ylo1 200 MM def %/xru1 283 MM def /yru1 010 MM def %xlu1 4 MM sub ylu1 moveto 8 MM 0 rlineto stroke %xlu1 ylu1 4 MM sub moveto 0 8 MM rlineto stroke %xro1 4 MM add yro1 moveto -8 MM 0 rlineto stroke %xro1 yro1 4 MM add moveto 0 -8 MM rlineto stroke %xru1 4 MM sub yru1 moveto 8 MM 0 rlineto stroke %xru1 yru1 4 MM sub moveto 0 8 MM rlineto stroke %xlo1 4 MM add ylo1 moveto -8 MM 0 rlineto stroke %xlo1 ylo1 4 MM add moveto 0 -8 MM rlineto stroke %%Trailer %%EndDocument EndEPSF grestore gsave showpage grestore %} for %colsepf=0,1 } for %pchartf=0,2 } for %xchartf=0,7 %} for %xcolorf=3,3 %} for %deintpf=0,1 %} for %colormf=0,1 %} for %lanindf=0,0 %%Trailer