%!PS-Adobe-3.0 EPSF-3.0 http://o2.ps.bam.de/INFDE06/8620/L8620EFA.PS/TXT 2001/01/20 %%BoundingBox: 0 0 595 842 %old %%BoundingBox: 14 08 584 828 %%Creator: K. Richter, BAM und TU Berlin 1998.09.01 %%+Copyright (c) DIN Deutsches Institut fuer Normung e.V. % Bezugsquelle Druck-Original: / Order of original print: % siehe / contact www.din.de und / and www.din.de/33866 % weitere technischen Informationen: / additional technical % informations: www.bam.de und / and http://o2.ps.bam.de % PostScript(PS)/PDF-Internet-Version 1.4, 2000 % % Mit freundlicher Genehmigung des VDE-Verlags Berlin Offenbach % konnten Bilder (Siemenssterne, CIE-Testfarben, RGB- und LAB- % Blumenmotiv) im PostScript- (PS-) und PDF-Programmcode fuer % Normungszwecke verwendet werden. Der PS-Code ist entnommen von % der CD-ROM zum Buch: K. Richter: Computergrafik und Farbmetrik: % Farbsysteme, PostScript, geraeteunabhaengige CIE-Farben % VDE-Verlag, Berlin, 1996, ISBN 3-8007-1775-1 mit 500 Bildern. % % With friendly permission of VDE-Verlag Berlin Offenbach it is % allowed to use pictures (Siemens-stars, CIE-test colours, RGB- % and LAB-flower motif) in PostScript- (PS-) and PDF-program code % for standardization purposes. The PS-code is taken from % the CD-ROM of the book: K. Richter: Computergrafik und Farbmetrik: % Farbsysteme, PostScript, geraeteunabhaengige CIE-Farben % VDE-Verlag, Berlin, 1996, ISBN 3-8007-1775-1 with 500 pictures. % % Rahmen geeignet fuer bis zu 16 EPS-Bilder (54 mm x 40 mm) auf DINA4 % Frame usefull for up to 16 EPS-Pictures (54 mm x 40 mm) on DINA4 % EPS-Funktionen aus PSL2-Handbuch /EPS-functions from PSL2-handbook /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 % File: www.ps.bam.de/INFDE06/86X0/CMYN*TRANS.PS (X=2,3,4,5,6) 2001-01-19 % % End-user startup PostScript job file % To be included in file or used with Adobe Acrobat Distiller 3.0 or 4.0 /sggray {setgray} bind def /sgrgbcolor {setrgbcolor} bind def /sgcmykcolor {setcmykcolor} bind def /sgtransfer {settransfer} bind def /sgcolortransfer {setcolortransfer} bind def %p=positive, n=negative change with lightness for rgb and cmyn /prozp {0.5 exp} bind def /transp {prozp} bind def /prozn {2.0 exp} bind def /transn {prozn} bind def /setgray {transp sggray} def /setcmykcolor {/ncolor exch transn def /ycolor exch transn def /mcolor exch transn def /ccolor exch transn def ccolor mcolor ycolor ncolor sgcmykcolor} def /setrgbcolor {/bcolor exch transp def /gcolor exch transp def /rcolor exch transp def rcolor gcolor bcolor sgrgbcolor} def /settransfer {/ntransfer exch def {ntransfer transp} sgtransfer} def /setcolortransfer {/ntransfer exch def /ytransfer exch def /mtransfer exch def /ctransfer exch def {ctransfer transp} {mtransfer transp} {ytransfer transp} {ntransfer transp} sgcolortransfer} def %Trailer /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def % !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {300 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /proz1 {pop} bind def /proz2 {sqrt} bind def /setgc {pop pop pop 1 exch sub setgray} bind def /setgm {pop pop 1 exch sub setgray pop} bind def /setgy {pop 1 exch sub setgray pop pop} bind def /setgn {1 exch sub setgray pop pop pop} bind def /setgf {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def 0 ccolor eq 0 mcolor eq and 0 ycolor eq and {1 ncolor sub setgray} {1 ccolor sub 0.71 mul 1 mcolor sub 0.22 mul add 1 ycolor sub 0.07 mul add setgray} ifelse } bind def /setsc {075 135 {proz1} setscreen } bind def /setsm {075 090 {proz1} setscreen } bind def /setsy {075 000 {proz1} setscreen } bind def /setsn {075 045 {proz1} setscreen } bind def /setsf {075 135 {proz1} 075 090 {proz1} 075 000 {proz1} 075 045 {proz1} setcolorscreen } bind def /setcmykcolorf {setcmykcolor setsf} bind def %fuer PSL1/2-Farbgeraet %ANFA HALBTON /Halbt { %wrbie:HALBTOA0.eps } bind def %ANFA CMYKDEF %CMYKDEA0 (A0=Standard-Drucker-CMYKDEF) 15.3.97 /tzac [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzam [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzay [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzan [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tza0 [0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000] def /tza1 [1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000] def %ENDE CMYKD %ANFA SETCMYK /setcmyknew { %Ersatz setcolornew durch setcmykcolor1 ausz 1 eq {setgc half 0 eq {setsc} if} if %C ausz 2 eq {setgm half 0 eq {setsm} if} if %M ausz 3 eq {setgy half 0 eq {setsy} if} if %Y ausz 4 eq {pop pop pop /ccolor exch def ccolor 0 0 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgc setsc} %PSL1-SW-Geraet ifelse } if %Cbunt ausz 5 eq {pop pop /mcolor exch def pop 0 mcolor 0 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgm setsm} %PSL1-SW-Geraet ifelse } if %Mbunt ausz 6 eq {pop /ycolor exch def pop pop 0 0 ycolor 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgy setsy} %PSL1-SW-Geraet ifelse } if %Ybunt ausz 7 eq {setgn half 0 eq {setsn} if} if %N ausz 8 ge { /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgf setsn} %PSL1-SW-Geraet ifelse } if %bei ausz=8: Farb- oder SW-Ausdruck je nach Drucker } bind def /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfi %x y width heigth c m y n {setcmyknew rec fill} bind def /colrecst %x y width heigth c m y n {setcmyknew rec stroke} bind def /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tza {1.0 1.0 1.0 1.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmyknew} bind def /tfl {tzl setcmyknew} bind def /tfv {tzv setcmyknew} bind def /tfc {tzc setcmyknew} bind def /tfm {tzm setcmyknew} bind def /tfy {tzy setcmyknew} bind def /tfa {tzy setcmyknew} bind def /tfn {tzn setcmyknew} bind def /tfd {tzd setcmyknew} bind def /tfz {tzz setcmyknew} bind def /tfh {tzh setcmyknew} bind def /tfw {tzw setcmyknew} bind def /tfr {tzr setcmyknew} bind def /tfg {tzg setcmyknew} bind def /tfb {tzb setcmyknew} bind def /tfj {tzj setcmyknew} bind def /tfrz {tzrz setcmyknew} bind def /tfgz {tzgz setcmyknew} bind def /tfbz {tzbz setcmyknew} bind def /tfjz {tzjz setcmyknew} bind def %ANFA OUTLINO0 951204 /pixf 1.0 def /ueg {1.6 pixf mul} bind def /uek {0.8 pixf mul} bind def /ues {0.7 pixf mul} bind def /pxd uek def /pyd uek def /pxwd ueg def /pywd ueg def /outxshowf {show} bind def /outxshow {show} bind def /SK {250 16.67 div 1 sub pixf mul /Symbol FS} bind def /SM {300 16.67 div 1 sub pixf mul /Symbol FS} bind def /SG {350 16.67 div 1 sub pixf mul /Symbol FS} bind def /outSK {250 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSM {300 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSG {350 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outshowf {setcmyknew show} bind def /outrecfi { %x y width heigth c m y k setcmyknew rec fill} bind def /outrecfi4 { %x y width heigth c m y k outrecfi} bind def /outrecfi3 { %x y width heigth c m y k outrecfi} bind def /outrecfi2 { %x y width heigth c m y k outrecfi} bind def /outlinetos { %px py c m y k setcmyknew lineto stroke} bind def /outstroke { %px1 py1 curveto ... curveto c m y k setcmyknew stroke} bind def /A4quer {598 0 translate 90 rotate} def %0 %1 %%EndProlog %%BeginPageSetup /#copies 1 def A4quer 1.0 1.0 scale /pgsave save def %%EndPageSetup 0.5 MM 0.5 MM translate %Verschiebung nach oben und links fuer Belichter gsave /SS$ [(G) (E) (S) (F) (I) (J) (M)] 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 9 10 11 /EX$ [(FA.PS/.TXT) (FB.PS/.BMP) (FG.PS/.GIF) (FH.PS/.HTM) (FI.PS/.HTM) (FJ.PS/.JPE) (FP.PS/.PDF) (FT.PS/.TIF) (FSA.PS/.PDF) (FSP.PS/.PDF) (FDA.PS/.PDF) (FDP.PS/.PDF)] def /lanindg1 1 def /lanindg2 1 def /xcolorg1 0 def /xcolorg2 0 def /xchartg1 0 def /xchartg2 0 def %lanindg1 1 lanindg2 {/lanindg exch def %out with lanindg begin %xcolorg1 1 xcolorg2 {/xcolorg exch def %out with xcolorg begin %xchartg1 1 xchartg2 {/xchartg exch def %out with xchartg begin /lanindg lanindg1 def /xcolorg xcolorg1 def /xchartg xchartg1 def /GSS$ SS$ lanindg get def /GSX$ SX$ xcolorg get def /GSY$ SY$ xchartg get def /GEX$ EX$ 0 get def gsave BeginEPSF 28 MM 197 MM translate 10 /Times-ISOL1 FS 1 1 scale -77 -91 translate %%BeginDocument: Bild 10 %Zeile 310 %%EndDocument EndEPSF grestore gsave BeginEPSF 28 MM 153 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 11 %Zeile 320 %!PS-Adobe-3.0 EPSF-3.0 1x1 E8620-1N.EPS %%BoundingBox: 60 80 226 206 %START PDFDE011.EPS /pdfmark where {pop} {userdict /pdfmark /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: 1x1 E8620-1) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://o2.ps.bam.de or www.ps.bam.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@bam.de) /CreationDate (D:2000010512000) /ModDate (D:2000010512000) /DOCINFO pdfmark [ /View [ /FitB ] /DOCVIEW pdfmark %END PDFDE011 %%Creator: K. Richter, BAM und TU Berlin, 2000.01.04 %%+Copyright (c) 1996 VDE-Verlag Berlin Offenbach % !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 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /TK {250 16.67 div /Times-ISOL1 FS} bind def /TM {300 16.67 div /Times-ISOL1 FS} bind def /TG {350 16.67 div /Times-ISOL1 FS} bind def /TIK {250 16.67 div /TimesI-ISOL1 FS} bind def /TIM {300 16.67 div /TimesI-ISOL1 FS} bind def /TIG {350 16.67 div /TimesI-ISOL1 FS} bind def /TBK {250 16.67 div /TimesB-ISOL1 FS} bind def /TBM {300 16.67 div /TimesB-ISOL1 FS} bind def /TBG {350 16.67 div /TimesB-ISOL1 FS} bind def /TBIK {250 16.67 div /TimesBI-ISOL1 FS} bind def /TBIM {300 16.67 div /TimesBI-ISOL1 FS} bind def /TBIG {350 16.67 div /TimesBI-ISOL1 FS} bind def /proz1 {pop} bind def /proz2 {sqrt} bind def /setgc {pop pop pop 1 exch sub setgray} bind def /setgm {pop pop 1 exch sub setgray pop} bind def /setgy {pop 1 exch sub setgray pop pop} bind def /setgn {1 exch sub setgray pop pop pop} bind def /setgf {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def 0 ccolor eq 0 mcolor eq and 0 ycolor eq and {1 ncolor sub setgray} {1 ccolor sub 0.71 mul 1 mcolor sub 0.22 mul add 1 ycolor sub 0.07 mul add setgray} ifelse } bind def /setsc {075 135 {proz1} setscreen } bind def /setsm {075 090 {proz1} setscreen } bind def /setsy {075 000 {proz1} setscreen } bind def /setsn {075 045 {proz1} setscreen } bind def /setsf {075 135 {proz1} 075 090 {proz1} 075 000 {proz1} 075 045 {proz1} setcolorscreen } bind def /setcmykcolorf {setcmykcolor setsf} bind def %fuer PSL1/2-Farbgeraet %ANFA HALBTON /Halbt { %wrbie:HALBTOA0.eps } bind def %ANFA SETCMYK /setcmyknew { %Ersatz setcolornew durch setcmykcolor1 ausz 1 eq {setgc half 0 eq {setsc} if} if %C ausz 2 eq {setgm half 0 eq {setsm} if} if %M ausz 3 eq {setgy half 0 eq {setsy} if} if %Y ausz 4 eq {pop pop pop /ccolor exch def ccolor 0 0 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgc setsc} %PSL1-SW-Geraet ifelse } if %Cbunt ausz 5 eq {pop pop /mcolor exch def pop 0 mcolor 0 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgm setsm} %PSL1-SW-Geraet ifelse } if %Mbunt ausz 6 eq {pop /ycolor exch def pop pop 0 0 ycolor 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgy setsy} %PSL1-SW-Geraet ifelse } if %Ybunt ausz 7 eq {setgn half 0 eq {setsn} if} if %N ausz 8 ge { /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgf setsn} %PSL1-SW-Geraet ifelse } if %bei ausz=8: Farb- oder SW-Ausdruck je nach Drucker } bind def /fcolors %CMY 32 no. 0 to 31; hue circe row [{1.00 1.00 1.00 0.00} {0.00 1.00 1.00 0.00} {0.00 0.00 1.00 0.00} {1.00 0.00 1.00 0.00} {1.00 0.00 0.00 0.00} {1.00 1.00 0.00 0.00} {0.00 1.00 0.00 0.00} {0.00 0.00 0.00 0.00} {0.50 0.50 0.50 0.00} {0.50 1.00 1.00 0.00} {0.50 0.50 1.00 0.00} {1.00 0.50 1.00 0.00} {1.00 0.50 0.50 0.00} {1.00 1.00 0.50 0.00} {0.50 1.00 0.50 0.00} {0.00 1.00 0.50 0.00} {0.75 0.75 0.75 0.00} {0.00 0.50 0.50 0.00} {0.00 0.00 0.50 0.00} {0.50 0.00 0.50 0.00} {0.50 0.00 0.00 0.00} {0.50 0.50 0.00 0.00} {0.00 0.50 0.00 0.00} {1.00 0.50 0.00 0.00} {0.25 0.25 0.25 0.00} {0.00 0.50 1.00 0.00} {0.50 0.00 1.00 0.00} {1.00 0.00 0.50 0.00} {1.00 0.50 0.00 0.00} {0.50 1.00 0.00 0.00} {0.00 1.00 0.50 0.00} {1.00 0.00 0.50 0.00} ] def /fak 0.5 def /Far %Farbkreis-Reihenfolge [ 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %R 16 17 18 19 20 21 22 23 %B 24 25 26 27 28 29 30 31 %G ] def /cFar %Kompensativ-Farbkreis-Reihenfolge [ 8 4 5 6 1 2 3 0 0 20 21 22 17 18 19 31 %G 24 12 13 14 9 10 11 2 %J 16 28 29 30 25 26 27 15 %R ] def /Btx %Farbkreis- -> %Btx-Reihenfolge [ 0 1 3 2 5 6 4 7 8 9 11 10 13 14 12 15 %R 16 17 19 18 21 22 20 23 %B 24 25 26 27 28 29 30 31 %G ] def /cBtx %Farbkreis- -> %Kompensativ-Btx-Reihenfolge [ 7 4 6 5 2 3 1 0 8 20 22 21 18 19 17 31 %G 24 12 14 13 10 11 9 2 %J 16 25 26 27 28 29 30 15 %R ] def /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfi %x y width heigth c m y k {setcmyknew rec fill} bind def /colrecst %x y width heigth c m y k {setcmyknew rec stroke} bind def /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmyknew} bind def /tfl {tzl setcmyknew} bind def /tfv {tzv setcmyknew} bind def /tfc {tzc setcmyknew} bind def /tfm {tzm setcmyknew} bind def /tfy {tzy setcmyknew} bind def /tfn {tzn setcmyknew} bind def /tfd {tzd setcmyknew} bind def /tfz {tzz setcmyknew} bind def /tfh {tzh setcmyknew} bind def /tfw {tzw setcmyknew} bind def /tfr {tzr setcmyknew} bind def /tfg {tzg setcmyknew} bind def /tfb {tzb setcmyknew} bind def /tfj {tzj setcmyknew} bind def /tfrz {tzrz setcmyknew} bind def /tfgz {tzgz setcmyknew} bind def /tfbz {tzbz setcmyknew} bind def /tfjz {tzjz setcmyknew} bind def %ANFA OUTLIN00 951204 /pixf 1.0 def /ueg 1 pixf mul def /uek 1 pixf mul def /ues 1 pixf mul def /pxd uek def /pyd uek def /pxwd ueg def /pywd ueg def /pss ues def /outxshowf {show} bind def /outxshow {show} bind def /outSK {250 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSM {300 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSG {350 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outshowf {setcmyknew show} bind def /outrecfi { %x y width heigth c m y k setcmyknew rec fill} bind def /outrecfi4 { %x y width heigth c m y k outrecfi} bind def /outrecfi3 { %x y width heigth c m y k outrecfi} bind def /outrecfi2 { %x y width heigth c m y k outrecfi} bind def /outlinetos { %px py c m y k setcmyknew lineto stroke} bind def /outstroke { %px1 py1 curveto ... curveto c m y k setcmyknew stroke} bind def %%EndProlog gsave %LANINDL2 START 20000505 /lanind 0 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /popde {0 lanind ne {pop} if} bind def /popen {1 lanind ne {pop} if} bind def /popes {2 lanind ne {pop} if} bind def /popfr {3 lanind ne {pop} if} bind def /popit {4 lanind ne {pop} if} bind def /popjp {5 lanind ne {pop} if} bind def /popm {6 lanind ne {pop} if} bind def /popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def /popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def /popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def /popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def /popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def /popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def /popxm {/n exch def 6 lanind ne {n {pop} repeat} if} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave %LANINDL2 END %{proz2} settransfer 8 /Times-Roman FS 72 83 moveto ( E8620-1, ) show 8 /Times-ISOL1 FS (Digitaldaten D8/8bit SGcode) popde %08620-1 1 (Digital data D8/8bit SGcode) popen %18620-1 1 (Digital data D8/8bit SGcode) popes %28620-1 1 (Digital data D8/8bit SGcode) popfr %38620-1 1 (Digital data D8/8bit SGcode) popit %48620-1 1 (Digital data D8/8bit SGcode) popjp %58620-1 1 show 8 /TimesI-ISOL1 FS ( CMY*) show 72 90 translate /pixf 1.0 def 0.1667 pixf div MM dup scale /ausz 8 def /half 0 def Halbt %Farbauszug 1=C, 2=M, 3=Y, 7=N, 8=F %/setcmyknew {/n exch def /y exch def /m exch def /c exch def % 1 c sub 1 m sub 1 y sub setrgbcolor} def 0 0 320 240 0.0 0.0 0.0 0.0 colrecfi %rectangle W 0.0 0.0 0.0 1.0 setcmyknew %text N 0 0 moveto 320 0 rlineto 0 240 rlineto -320 0 rlineto closepath stroke TBIG %Schrift Times-Bold-Gross-Italic 02 223 moveto (N\255W: ) show TBG %Schrift Times-Bold-Gross (D8CMY*s/z, d8cmy*s/z) show 45 103 moveto (unbunte Hauptfarben) showde %08620-1 2 (achromatic basic colors) showen %18620-1 2 (Colores acrom\341ticos b\341sicos) showes %28620-1 2 (achromatic basic colors) showfr %38620-1 2 (achromatic basic colors) showit %48620-1 2 (achromatic basic colors) showjp %58620-1 2 /iln 1 def /j 0 def /iy 180 def /solvfcols %Sonder-Farbkreis-Reihenfolge Nr. 0 bis 5; %N&W [ (111*) (222*) (555*) (999*) (DDD*) (EEE*) ] def /scolors %CMYN 5 Sonder-Testfarben Nr. 0 bis 5; Farbkreis-Reihenfolge %NN [ {0.0 0.0 0.0 0.923} {0.0 0.0 0.0 0.870} {0.0 0.0 0.0 0.630} {0.0 0.0 0.0 0.333} {0.0 0.0 0.0 0.130} {0.0 0.0 0.0 0.067}] def /tBtxz %textBtx-Reihenfolge [(0) (1) (2) (3) (4) (5) (6) (7) (0) (0) () (8) () (7) () ()] def /tFarb %textFar-Reihenfolge [(N) (O) (Y) (L) (C) (V) (M) (W) (Z) (N) (D) (Z) (H) (W) () () ] def %output as integer and 0 to 3 digits /cvishow {0.5 add cvi %new980310 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 %new980310 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 %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 6 string cvs show} def /cvsshow3 {dup 1000 mul 0.1 add round cvi 0.001 mul 6 string cvs show (, ) show x 20 add y moveto 1000 mul 500 sub 0.1 add round cvi 0.001 mul 8 string cvs show } def /temp 12 string def /arrow {x 6 sub y moveto (->) show} bind def /r4outh {%begin 4bit round print hex 15 mul 0.26 sub round cvi dup 10 temp cvrs show (, ) show 16 temp cvrs show } bind def %end 4bit round print /r4outd {%begin decimal 0..1 print cvsshow3 } bind def %end 4bit round print /r8outh {%begin 8bit round print hex 255 mul 0.26 sub round cvi dup 10 temp cvrs show ( / ) show dup 16 le {(0) show} if 16 temp cvrs show } bind def %end 8bit round print /r8outd {%begin decimal 0..1 print cvsshow3 } bind def %end 8bit round print /N4outh {%begin printpout dec, hex 4 bit 0.77 mul 0.05 add r4outh } bind def %end printpout dec, hex 4 bit /n4outh {%begin printpout dec, hex 4 bit r4outh } bind def %end printpout dec, hex 4 bit /N4outd {%begin printpout dec, hex 4 bit 0.77 mul 0.05 add r4outd } bind def %end printpout dec, hex 4 bit /n4outd {%begin printpout dec, hex 4 bit r4outd } bind def %end printpout dec, hex 4 bit /N6outh {%begin printpout dec, hex 6 bit 0.77 mul 0.05 add 0.5 sub 0.25 mul 0.5 add r8outh } bind def %end printpout dec, hex 6 bit /n6outh {%begin printpout dec, hex 6 bit 0.5 sub 0.25 mul 0.5 add r8outh } bind def %end printpout dec, hex 6 bit /N6outd {%begin printpout dec, hex 6 bit 0.77 mul 0.05 add 0.5 sub 0.25 mul 0.5 add r8outd } bind def %end printpout dec, hex 6 bit /n6outd {%begin printpout dec, hex 6 bit 0.5 sub 0.25 mul 0.5 add r8outd } bind def %end printpout dec, hex 6 bit /N7outh {%begin printpout dec, hex 7 bit 0.77 mul 0.05 add 0.5 sub 0.50 mul 0.5 add r8outh } bind def %end printpout dec, hex 7 bit /n7outh {%begin printpout dec, hex 7 bit 0.5 sub 0.50 mul 0.5 add r8outh } bind def %end printpout dec, hex 7 bit /N7outd {%begin printpout dec, hex 7 bit 0.77 mul 0.05 add 0.5 sub 0.50 mul 0.5 add r8outd } bind def %end printpout dec, hex 7 bit /n7outd {%begin printpout dec, hex 7 bit 0.5 sub 0.50 mul 0.5 add r8outd } bind def %end printpout dec, hex 7 bit /N8outh {%begin printpout dec, hex 8 bit 0.77 mul 0.05 add r8outh } bind def %end printpout dec, hex 8 bit /n8outh {%begin printpout dec, hex 8 bit r8outh } bind def %end printpout dec, hex 8 bit /N8outd {%begin printpout dec, hex 8 bit 0.77 mul 0.05 add r8outd } bind def %end printpout dec, hex 8 bit /n8outd {%begin printpout dec, hex 8 bit r8outd } bind def %end printpout dec, hex 8 bit /nc100out {%begin printpout dec, hex CIE 100 steps 0.5 sub 100 255 div mul 0.5 add r8outd } bind def %end printpout dec, hex CIE 100 steps /Nc100out {%begin printpout dec, hex CIE 100 steps 0.77 mul 0.05 add 0.5 sub 100 255 div mul 0.5 add r8outd } bind def %end printpout dec, hex CIE 100 steps /nc077out {%begin printpout dec, hex CIE 077 steps 0.5 sub 077 255 div mul 0.5 add r8outd } bind def %end printpout dec, hex CIE 077 steps /Nc077out {%begin printpout dec, hex CIE 077 steps 0.77 mul 0.05 add 0.5 sub 077 255 div mul 0.5 add r8outd } bind def %end printpout dec, hex CIE 077 steps /TBKK {200 16.67 div /Times-Bold FS} bind def /TBKL {100 16.67 div /Times-Bold FS} bind def /j 0 def 1 1 6 {/i exch def TBM i j 8 mul add /k exch def -08 i 48 mul add 17 add /ix exch def 183 j 120 mul sub /iy exch def 0.0 0.0 0.0 1.0 setcmyknew %text N TBIK i 1 eq { ix 15 sub iy 25 add moveto (D8CMY*tod8cmy* setcmy*color) show TBKL ix 55 sub iy 18 add moveto (Type / range:) show ix 55 sub iy 12 add moveto (D8CMY*s/z) show ix 53 sub iy 6 add moveto ( 0.050...0.820) show ix 53 sub iy 0 sub moveto (-0.450...0.320) show ix 55 sub iy 6 sub moveto (d8cmy*s/z:) show ix 53 sub iy 12 sub moveto ( 0.000...1.000) show ix 53 sub iy 19 sub moveto (-0.500...0.500) show ix 55 sub iy 26 sub moveto (D8C*s/z) show ix 55 sub iy 40 sub moveto (D8M*s/z) show ix 55 sub iy 54 sub moveto (D8Y*s/z) show ix 55 sub iy 32 sub moveto (d8c*s/z) show ix 55 sub iy 46 sub moveto (d8m*s/z) show ix 55 sub iy 60 sub moveto (d8y*s/z) show } if TBKL /ku Far k get exec def iln 0 ne {%begin olv or cmy dec and hex fcolors ku get exec /n8 exch def /y8 exch def /m8 exch def /c8 exch def /x ix 18 sub def /y iy 26 sub def x y moveto c8 N8outd /x ix 18 sub def /y iy 40 sub def x y moveto y8 N8outd /x ix 18 sub def /y iy 54 sub def x y moveto m8 N8outd /x ix 18 sub def /y iy 32 sub def arrow x y moveto c8 n8outd /x ix 18 sub def /y iy 46 sub def arrow x y moveto y8 n8outd /x ix 18 sub def /y iy 60 sub def arrow x y moveto m8 n8outd } if %end out olv or cmy dec and hex ix 19 sub iy 19 sub 39 39 fcolors ku get exec outrecfi4 %Farbe-Fuellen je nach Auszug TBIG /kuc cFar k get exec def j 0 eq {ix 7 sub iy 5 sub moveto tFarb i get exec fcolors kuc get exec outshowf} if } for %schleife i /scolors %CMY 5 Sonder-Testfarben Nr. 0 bis 4; Farbkreis-Reihenfolge %NN [ {1.00 1.00 1.00 0.00} {0.75 0.75 0.75 0.00} {0.50 0.50 0.50 0.00} {0.25 0.25 0.25 0.00} {0.00 0.00 0.00 0.00} ] def /iy 063 def 0 1 4 {/i exch def 0.0 0.0 0.0 1.0 setcmyknew %text N TBIK 15 i 1 add 48 mul add 17 add /ix exch def i 0 eq { ix 15 sub iy 25 add moveto (D8CMY*tod8cmy* setcmy*color) show TBKL ix 77 sub iy 18 add moveto (Type / range:) show ix 77 sub iy 12 add moveto (D8CMY*s/z) show ix 75 sub iy 6 add moveto ( 0.050...0.820) show ix 75 sub iy 0 sub moveto (-0.450...0.320) show ix 77 sub iy 6 sub moveto (d8cmy*s/z:) show ix 75 sub iy 12 sub moveto ( 0.000...1.000) show ix 75 sub iy 19 sub moveto (-0.500...0.500) show ix 77 sub iy 26 sub moveto (D8C*s/z) show ix 77 sub iy 40 sub moveto (D8M*s/z) show ix 77 sub iy 54 sub moveto (D8Y*s/z) show ix 77 sub iy 32 sub moveto (d8c*s/z) show ix 77 sub iy 46 sub moveto (d8m*s/z) show ix 77 sub iy 60 sub moveto (d8y*s/z) show } if TBKL iln 0 ne {%begin olv or cmy dec and hex scolors i get exec /n8 exch def /y8 exch def /m8 exch def /c8 exch def /x ix 18 sub def /y iy 26 sub def x y moveto c8 N8outd /x ix 18 sub def /y iy 40 sub def x y moveto m8 N8outd /x ix 18 sub def /y iy 54 sub def x y moveto y8 N8outd /x ix 18 sub def /y iy 32 sub def arrow x y moveto c8 n8outd /x ix 18 sub def /y iy 46 sub def arrow x y moveto m8 n8outd /x ix 18 sub def /y iy 60 sub def arrow x y moveto y8 n8outd } if %end out olv or cmy dec and hex TBIG ix 19 sub iy 19 sub 39 39 scolors i get exec outrecfi4 %Farbe-Fuellen je nach Auszug /kuc cFar 9 i add get exec def ix 06 sub iy 5 sub moveto i 3 lt {fcolors 07 get exec} {fcolors 00 get exec} ifelse setcmyknew tFarb 9 i add get exec dup stringwidth pop 15 exch sub 0.5 mul 0 rmoveto show 4 i eq {ix 19 sub iy 19 sub moveto 39 0 rlineto 0 39 rlineto -39 0 rlineto closepath 0.0 0.0 0.0 1.0 setcmyknew stroke %edge N } if } for %schleife i showpage grestore } for %output with langind end %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 153 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 12 %Zeile 330 %!PS-Adobe-3.0 EPSF-3.0 1x1 E8620-2N.EPS %%BoundingBox: 60 80 226 206 %START PDFDE011.EPS /pdfmark where {pop} {userdict /pdfmark /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: 1x1 E8620-2) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://o2.ps.bam.de or www.ps.bam.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@bam.de) /CreationDate (D:2000010512000) /ModDate (D:2000010512000) /DOCINFO pdfmark [ /View [ /FitB ] /DOCVIEW pdfmark %END PDFDE011 %%Creator: K. Richter, BAM und TU Berlin, 2000.01.04 %%+Copyright (c) 1996 VDE-Verlag Berlin Offenbach % !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 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /TK {250 16.67 div /Times-ISOL1 FS} bind def /TM {300 16.67 div /Times-ISOL1 FS} bind def /TG {350 16.67 div /Times-ISOL1 FS} bind def /TIK {250 16.67 div /TimesI-ISOL1 FS} bind def /TIM {300 16.67 div /TimesI-ISOL1 FS} bind def /TIG {350 16.67 div /TimesI-ISOL1 FS} bind def /TBK {250 16.67 div /TimesB-ISOL1 FS} bind def /TBM {300 16.67 div /TimesB-ISOL1 FS} bind def /TBG {350 16.67 div /TimesB-ISOL1 FS} bind def /TBIK {250 16.67 div /TimesBI-ISOL1 FS} bind def /TBIM {300 16.67 div /TimesBI-ISOL1 FS} bind def /TBIG {350 16.67 div /TimesBI-ISOL1 FS} bind def /proz1 {pop} bind def /proz2 {sqrt} bind def /setgc {pop pop pop 1 exch sub setgray} bind def /setgm {pop pop 1 exch sub setgray pop} bind def /setgy {pop 1 exch sub setgray pop pop} bind def /setgn {1 exch sub setgray pop pop pop} bind def /setgf {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def 0 ccolor eq 0 mcolor eq and 0 ycolor eq and {1 ncolor sub setgray} {1 ccolor sub 0.71 mul 1 mcolor sub 0.22 mul add 1 ycolor sub 0.07 mul add setgray} ifelse } bind def /setsc {075 135 {proz1} setscreen } bind def /setsm {075 090 {proz1} setscreen } bind def /setsy {075 000 {proz1} setscreen } bind def /setsn {075 045 {proz1} setscreen } bind def /setsf {075 135 {proz1} 075 090 {proz1} 075 000 {proz1} 075 045 {proz1} setcolorscreen } bind def /setcmykcolorf {setcmykcolor setsf} bind def %fuer PSL1/2-Farbgeraet %ANFA HALBTON /Halbt { %wrbie:HALBTOA0.eps } bind def %ANFA SETCMYK /setcmyknew { %Ersatz setcolornew durch setcmykcolor1 ausz 1 eq {setgc half 0 eq {setsc} if} if %C ausz 2 eq {setgm half 0 eq {setsm} if} if %M ausz 3 eq {setgy half 0 eq {setsy} if} if %Y ausz 4 eq {pop pop pop /ccolor exch def ccolor 0 0 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgc setsc} %PSL1-SW-Geraet ifelse } if %Cbunt ausz 5 eq {pop pop /mcolor exch def pop 0 mcolor 0 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgm setsm} %PSL1-SW-Geraet ifelse } if %Mbunt ausz 6 eq {pop /ycolor exch def pop pop 0 0 ycolor 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgy setsy} %PSL1-SW-Geraet ifelse } if %Ybunt ausz 7 eq {setgn half 0 eq {setsn} if} if %N ausz 8 ge { /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgf setsn} %PSL1-SW-Geraet ifelse } if %bei ausz=8: Farb- oder SW-Ausdruck je nach Drucker } bind def /fcolors %CMY 32 no. 0 to 31; hue circe row [{1.00 1.00 1.00 0.00} {0.00 1.00 1.00 0.00} {0.00 0.00 1.00 0.00} {1.00 0.00 1.00 0.00} {1.00 0.00 0.00 0.00} {1.00 1.00 0.00 0.00} {0.00 1.00 0.00 0.00} {0.00 0.00 0.00 0.00} {0.50 0.50 0.50 0.00} {0.50 1.00 1.00 0.00} {0.50 0.50 1.00 0.00} {1.00 0.50 1.00 0.00} {1.00 0.50 0.50 0.00} {1.00 1.00 0.50 0.00} {0.50 1.00 0.50 0.00} {0.00 1.00 0.50 0.00} {0.75 0.75 0.75 0.00} {0.00 0.50 0.50 0.00} {0.00 0.00 0.50 0.00} {0.50 0.00 0.50 0.00} {0.50 0.00 0.00 0.00} {0.50 0.50 0.00 0.00} {0.00 0.50 0.00 0.00} {1.00 0.50 0.00 0.00} {0.25 0.25 0.25 0.00} {0.00 0.50 1.00 0.00} {0.50 0.00 1.00 0.00} {1.00 0.00 0.50 0.00} {1.00 0.50 0.00 0.00} {0.50 1.00 0.00 0.00} {0.00 1.00 0.50 0.00} {1.00 0.00 0.50 0.00} ] def /fak 0.5 def /Far %Farbkreis-Reihenfolge [ 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %R 16 17 18 19 20 21 22 23 %B 24 25 26 27 28 29 30 31 %G ] def /cFar %Kompensativ-Farbkreis-Reihenfolge [ 8 4 5 6 1 2 3 0 0 20 21 22 17 18 19 31 %G 24 12 13 14 9 10 11 2 %J 16 28 29 30 25 26 27 15 %R ] def /Btx %Farbkreis- -> %Btx-Reihenfolge [ 0 1 3 2 5 6 4 7 8 9 11 10 13 14 12 15 %R 16 17 19 18 21 22 20 23 %B 24 25 26 27 28 29 30 31 %G ] def /cBtx %Farbkreis- -> %Kompensativ-Btx-Reihenfolge [ 7 4 6 5 2 3 1 0 8 20 22 21 18 19 17 31 %G 24 12 14 13 10 11 9 2 %J 16 25 26 27 28 29 30 15 %R ] def /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfi %x y width heigth c m y k {setcmyknew rec fill} bind def /colrecst %x y width heigth c m y k {setcmyknew rec stroke} bind def /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmyknew} bind def /tfl {tzl setcmyknew} bind def /tfv {tzv setcmyknew} bind def /tfc {tzc setcmyknew} bind def /tfm {tzm setcmyknew} bind def /tfy {tzy setcmyknew} bind def /tfn {tzn setcmyknew} bind def /tfd {tzd setcmyknew} bind def /tfz {tzz setcmyknew} bind def /tfh {tzh setcmyknew} bind def /tfw {tzw setcmyknew} bind def /tfr {tzr setcmyknew} bind def /tfg {tzg setcmyknew} bind def /tfb {tzb setcmyknew} bind def /tfj {tzj setcmyknew} bind def /tfrz {tzrz setcmyknew} bind def /tfgz {tzgz setcmyknew} bind def /tfbz {tzbz setcmyknew} bind def /tfjz {tzjz setcmyknew} bind def %ANFA OUTLIN00 951204 /pixf 1.0 def /ueg 1 pixf mul def /uek 1 pixf mul def /ues 1 pixf mul def /pxd uek def /pyd uek def /pxwd ueg def /pywd ueg def /pss ues def /outxshowf {show} bind def /outxshow {show} bind def /outSK {250 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSM {300 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSG {350 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outshowf {setcmyknew show} bind def /outrecfi { %x y width heigth c m y k setcmyknew rec fill} bind def /outrecfi4 { %x y width heigth c m y k outrecfi} bind def /outrecfi3 { %x y width heigth c m y k outrecfi} bind def /outrecfi2 { %x y width heigth c m y k outrecfi} bind def /outlinetos { %px py c m y k setcmyknew lineto stroke} bind def /outstroke { %px1 py1 curveto ... curveto c m y k setcmyknew stroke} bind def %%EndProlog gsave %LANINDL2 START 20000505 /lanind 0 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /popde {0 lanind ne {pop} if} bind def /popen {1 lanind ne {pop} if} bind def /popes {2 lanind ne {pop} if} bind def /popfr {3 lanind ne {pop} if} bind def /popit {4 lanind ne {pop} if} bind def /popjp {5 lanind ne {pop} if} bind def /popm {6 lanind ne {pop} if} bind def /popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def /popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def /popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def /popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def /popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def /popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def /popxm {/n exch def 6 lanind ne {n {pop} repeat} if} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave %LANINDL2 END %{proz2} settransfer 8 /Times-Roman FS 72 83 moveto ( E8620-2, ) show 8 /Times-ISOL1 FS (Digitaldaten D8/8bit SGcode) popde %08620-2 1 (Digital data D8/8bit SGcode) popen %18620-2 1 (Digital data D8/8bit SGcode) popes %28620-2 1 (Digital data D8/8bit SGcode) popfr %38620-2 1 (Digital data D8/8bit SGcode) popit %48620-2 1 (Digital data D8/8bit SGcode) popjp %58620-2 1 show 8 /TimesI-ISOL1 FS ( CMY*) show 72 90 translate /pixf 1.0 def 0.1667 pixf div MM dup scale /ausz 8 def /half 0 def Halbt %Farbauszug 1=C, 2=M, 3=Y, 7=N, 8=F %/setcmyknew {/n exch def /y exch def /m exch def /c exch def % 1 c sub 1 m sub 1 y sub setrgbcolor} def 0 0 320 240 0.0 0.0 0.0 0.0 colrecfi %rectangle W 0.0 0.0 0.0 1.0 setcmyknew %text N 0 0 moveto 320 0 rlineto 0 240 rlineto -320 0 rlineto closepath stroke TBIG %Schrift Times-Bold-Gross-Italic 02 223 moveto (N\255W: ) show TBG %Schrift Times-Bold-Gross (D8CMY*s/z, d8cmy*i/h) show 45 103 moveto (unbunte Hauptfarben) showde %08620-2 2 (achromatic basic colors) showen %18620-2 2 (Colores acrom\341ticos b\341sicos) showes %28620-2 2 (achromatic basic colors) showfr %38620-2 2 (achromatic basic colors) showit %48620-2 2 (achromatic basic colors) showjp %58620-2 2 /iln 1 def /j 0 def /iy 180 def /solvfcols %Sonder-Farbkreis-Reihenfolge Nr. 0 bis 5; %N&W [ (111*) (222*) (555*) (999*) (DDD*) (EEE*) ] def /scolors %CMYN 5 Sonder-Testfarben Nr. 0 bis 5; Farbkreis-Reihenfolge %NN [ {0.0 0.0 0.0 0.923} {0.0 0.0 0.0 0.870} {0.0 0.0 0.0 0.630} {0.0 0.0 0.0 0.333} {0.0 0.0 0.0 0.130} {0.0 0.0 0.0 0.067}] def /tBtxz %textBtx-Reihenfolge [(0) (1) (2) (3) (4) (5) (6) (7) (0) (0) () (8) () (7) () ()] def /tFarb %textFar-Reihenfolge [(N) (O) (Y) (L) (C) (V) (M) (W) (Z) (N) (D) (Z) (H) (W) () () ] def %output as integer and 0 to 3 digits /cvishow {0.5 add cvi %new980310 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 %new980310 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 %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 6 string cvs show} def /cvsshow3 {dup 1000 mul 0.1 add round cvi 0.001 mul 6 string cvs show (, ) show x 20 add y moveto 1000 mul 500 sub 0.1 add round cvi 0.001 mul 8 string cvs show } def /temp 12 string def /arrow {x 6 sub y moveto (->) show} bind def /r4outh {%begin 4bit round print hex 15 mul 0.26 sub round cvi dup 10 temp cvrs show (, ) show 16 temp cvrs show } bind def %end 4bit round print /r4outd {%begin decimal 0..1 print cvsshow3 } bind def %end 4bit round print /r8outh {%begin 8bit round print hex 255 mul 0.26 sub round cvi dup 10 temp cvrs show ( / ) show dup 16 le {(0) show} if 16 temp cvrs show } bind def %end 8bit round print /r8outd {%begin decimal 0..1 print cvsshow3 } bind def %end 8bit round print /N4outh {%begin printpout dec, hex 4 bit 0.77 mul 0.05 add r4outh } bind def %end printpout dec, hex 4 bit /n4outh {%begin printpout dec, hex 4 bit r4outh } bind def %end printpout dec, hex 4 bit /N4outd {%begin printpout dec, hex 4 bit 0.77 mul 0.05 add r4outd } bind def %end printpout dec, hex 4 bit /n4outd {%begin printpout dec, hex 4 bit r4outd } bind def %end printpout dec, hex 4 bit /N6outh {%begin printpout dec, hex 6 bit 0.77 mul 0.05 add 0.5 sub 0.25 mul 0.5 add r8outh } bind def %end printpout dec, hex 6 bit /n6outh {%begin printpout dec, hex 6 bit 0.5 sub 0.25 mul 0.5 add r8outh } bind def %end printpout dec, hex 6 bit /N6outd {%begin printpout dec, hex 6 bit 0.77 mul 0.05 add 0.5 sub 0.25 mul 0.5 add r8outd } bind def %end printpout dec, hex 6 bit /n6outd {%begin printpout dec, hex 6 bit 0.5 sub 0.25 mul 0.5 add r8outd } bind def %end printpout dec, hex 6 bit /N7outh {%begin printpout dec, hex 7 bit 0.77 mul 0.05 add 0.5 sub 0.50 mul 0.5 add r8outh } bind def %end printpout dec, hex 7 bit /n7outh {%begin printpout dec, hex 7 bit 0.5 sub 0.50 mul 0.5 add r8outh } bind def %end printpout dec, hex 7 bit /N7outd {%begin printpout dec, hex 7 bit 0.77 mul 0.05 add 0.5 sub 0.50 mul 0.5 add r8outd } bind def %end printpout dec, hex 7 bit /n7outd {%begin printpout dec, hex 7 bit 0.5 sub 0.50 mul 0.5 add r8outd } bind def %end printpout dec, hex 7 bit /N8outh {%begin printpout dec, hex 8 bit 0.77 mul 0.05 add r8outh } bind def %end printpout dec, hex 8 bit /n8outh {%begin printpout dec, hex 8 bit r8outh } bind def %end printpout dec, hex 8 bit /N8outd {%begin printpout dec, hex 8 bit 0.77 mul 0.05 add r8outd } bind def %end printpout dec, hex 8 bit /n8outd {%begin printpout dec, hex 8 bit r8outd } bind def %end printpout dec, hex 8 bit /nc100out {%begin printpout dec, hex CIE 100 steps 0.5 sub 100 255 div mul 0.5 add r8outd } bind def %end printpout dec, hex CIE 100 steps /Nc100out {%begin printpout dec, hex CIE 100 steps 0.77 mul 0.05 add 0.5 sub 100 255 div mul 0.5 add r8outd } bind def %end printpout dec, hex CIE 100 steps /nc077out {%begin printpout dec, hex CIE 077 steps 0.5 sub 077 255 div mul 0.5 add r8outd } bind def %end printpout dec, hex CIE 077 steps /Nc077out {%begin printpout dec, hex CIE 077 steps 0.77 mul 0.05 add 0.5 sub 077 255 div mul 0.5 add r8outd } bind def %end printpout dec, hex CIE 077 steps /TBKK {200 16.67 div /Times-Bold FS} bind def /TBKL {100 16.67 div /Times-Bold FS} bind def /j 0 def 1 1 6 {/i exch def TBM i j 8 mul add /k exch def -08 i 48 mul add 17 add /ix exch def 183 j 120 mul sub /iy exch def 0.0 0.0 0.0 1.0 setcmyknew %text N TBIK i 1 eq { ix 15 sub iy 25 add moveto (D8CMY*tod8cmy* setcmy*color) show TBKL ix 55 sub iy 18 add moveto (Type / range:) show ix 55 sub iy 12 add moveto (D8CMY*s/z) show ix 53 sub iy 6 add moveto ( 0.050...0.820) show ix 53 sub iy 0 sub moveto (-0.450...0.320) show ix 55 sub iy 6 sub moveto (d8cmy*i/h:) show ix 53 sub iy 12 sub moveto (0...255) show ix 53 sub iy 19 sub moveto (00...FF) show ix 55 sub iy 26 sub moveto (D8C*s/z) show ix 55 sub iy 40 sub moveto (D8M*s/z) show ix 55 sub iy 54 sub moveto (D8Y*s/z) show ix 55 sub iy 32 sub moveto (d8c*i/h) show ix 55 sub iy 46 sub moveto (d8m*i/h) show ix 55 sub iy 60 sub moveto (d8y*i/h) show } if TBKL /ku Far k get exec def iln 0 ne {%begin olv or cmy dec and hex fcolors ku get exec /n8 exch def /y8 exch def /m8 exch def /c8 exch def /x ix 18 sub def /y iy 26 sub def x y moveto c8 N8outd /x ix 18 sub def /y iy 40 sub def x y moveto y8 N8outd /x ix 18 sub def /y iy 54 sub def x y moveto m8 N8outd /x ix 18 sub def /y iy 32 sub def arrow x y moveto c8 n8outh /x ix 18 sub def /y iy 46 sub def arrow x y moveto y8 n8outh /x ix 18 sub def /y iy 60 sub def arrow x y moveto m8 n8outh } if %end out olv or cmy dec and hex ix 19 sub iy 19 sub 39 39 fcolors ku get exec outrecfi4 %Farbe-Fuellen je nach Auszug TBIG /kuc cFar k get exec def j 0 eq {ix 7 sub iy 5 sub moveto tFarb i get exec fcolors kuc get exec outshowf} if } for %schleife i /scolors %CMY 5 Sonder-Testfarben Nr. 0 bis 4; Farbkreis-Reihenfolge %NN [ {1.00 1.00 1.00 0.00} {0.75 0.75 0.75 0.00} {0.50 0.50 0.50 0.00} {0.25 0.25 0.25 0.00} {0.00 0.00 0.00 0.00} ] def /iy 063 def 0 1 4 {/i exch def 0.0 0.0 0.0 1.0 setcmyknew %text N TBIK 15 i 1 add 48 mul add 17 add /ix exch def i 0 eq { ix 15 sub iy 25 add moveto (D8CMY*tod8cmy* setcmy*color) show TBKL ix 77 sub iy 18 add moveto (Type / range:) show ix 77 sub iy 12 add moveto (D8CMY*s/z) show ix 75 sub iy 6 add moveto ( 0.050...0.820) show ix 75 sub iy 0 sub moveto (-0.450...0.320) show ix 77 sub iy 6 sub moveto (d8cmy*i/h:) show ix 75 sub iy 12 sub moveto (0...255) show ix 75 sub iy 19 sub moveto (00...FF) show ix 77 sub iy 26 sub moveto (D8C*s/z) show ix 77 sub iy 40 sub moveto (D8M*s/z) show ix 77 sub iy 54 sub moveto (D8Y*s/z) show ix 77 sub iy 32 sub moveto (d8c*i/h) show ix 77 sub iy 46 sub moveto (d8m*i/h) show ix 77 sub iy 60 sub moveto (d8y*i/h) show } if TBKL iln 0 ne {%begin olv or cmy dec and hex scolors i get exec /n8 exch def /y8 exch def /m8 exch def /c8 exch def /x ix 18 sub def /y iy 26 sub def x y moveto c8 N8outd /x ix 18 sub def /y iy 40 sub def x y moveto m8 N8outd /x ix 18 sub def /y iy 54 sub def x y moveto y8 N8outd /x ix 18 sub def /y iy 32 sub def arrow x y moveto c8 n8outh /x ix 18 sub def /y iy 46 sub def arrow x y moveto m8 n8outh /x ix 18 sub def /y iy 60 sub def arrow x y moveto y8 n8outh } if %end out olv or cmy dec and hex TBIG ix 19 sub iy 19 sub 39 39 scolors i get exec outrecfi4 %Farbe-Fuellen je nach Auszug /kuc cFar 9 i add get exec def ix 06 sub iy 5 sub moveto i 3 lt {fcolors 07 get exec} {fcolors 00 get exec} ifelse setcmyknew tFarb 9 i add get exec dup stringwidth pop 15 exch sub 0.5 mul 0 rmoveto show 4 i eq {ix 19 sub iy 19 sub moveto 39 0 rlineto 0 39 rlineto -39 0 rlineto closepath 0.0 0.0 0.0 1.0 setcmyknew stroke %edge N } if } for %schleife i showpage grestore } for %output with langind end %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 28 MM 109 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 13 %Zeile 340 %!PS-Adobe-3.0 EPSF-3.0 1x1 E8620-3N.EPS %%BoundingBox: 60 80 226 206 %START PDFDE011.EPS /pdfmark where {pop} {userdict /pdfmark /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: 1x1 E8620-3) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://o2.ps.bam.de or www.ps.bam.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@bam.de) /CreationDate (D:2000010512000) /ModDate (D:2000010512000) /DOCINFO pdfmark [ /View [ /FitB ] /DOCVIEW pdfmark %END PDFDE011 %%Creator: K. Richter, BAM und TU Berlin, 2000.01.04 %%+Copyright (c) 1996 VDE-Verlag Berlin Offenbach % !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 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /TK {250 16.67 div /Times-ISOL1 FS} bind def /TM {300 16.67 div /Times-ISOL1 FS} bind def /TG {350 16.67 div /Times-ISOL1 FS} bind def /TIK {250 16.67 div /TimesI-ISOL1 FS} bind def /TIM {300 16.67 div /TimesI-ISOL1 FS} bind def /TIG {350 16.67 div /TimesI-ISOL1 FS} bind def /TBK {250 16.67 div /TimesB-ISOL1 FS} bind def /TBM {300 16.67 div /TimesB-ISOL1 FS} bind def /TBG {350 16.67 div /TimesB-ISOL1 FS} bind def /TBIK {250 16.67 div /TimesBI-ISOL1 FS} bind def /TBIM {300 16.67 div /TimesBI-ISOL1 FS} bind def /TBIG {350 16.67 div /TimesBI-ISOL1 FS} bind def /proz1 {pop} bind def /proz2 {sqrt} bind def /setgc {pop pop pop 1 exch sub setgray} bind def /setgm {pop pop 1 exch sub setgray pop} bind def /setgy {pop 1 exch sub setgray pop pop} bind def /setgn {1 exch sub setgray pop pop pop} bind def /setgf {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def 0 ccolor eq 0 mcolor eq and 0 ycolor eq and {1 ncolor sub setgray} {1 ccolor sub 0.71 mul 1 mcolor sub 0.22 mul add 1 ycolor sub 0.07 mul add setgray} ifelse } bind def /setsc {075 135 {proz1} setscreen } bind def /setsm {075 090 {proz1} setscreen } bind def /setsy {075 000 {proz1} setscreen } bind def /setsn {075 045 {proz1} setscreen } bind def /setsf {075 135 {proz1} 075 090 {proz1} 075 000 {proz1} 075 045 {proz1} setcolorscreen } bind def /setcmykcolorf {setcmykcolor setsf} bind def %fuer PSL1/2-Farbgeraet %ANFA HALBTON /Halbt { %wrbie:HALBTOA0.eps } bind def %ANFA SETCMYK /setcmyknew { %Ersatz setcolornew durch setcmykcolor1 ausz 1 eq {setgc half 0 eq {setsc} if} if %C ausz 2 eq {setgm half 0 eq {setsm} if} if %M ausz 3 eq {setgy half 0 eq {setsy} if} if %Y ausz 4 eq {pop pop pop /ccolor exch def ccolor 0 0 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgc setsc} %PSL1-SW-Geraet ifelse } if %Cbunt ausz 5 eq {pop pop /mcolor exch def pop 0 mcolor 0 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgm setsm} %PSL1-SW-Geraet ifelse } if %Mbunt ausz 6 eq {pop /ycolor exch def pop pop 0 0 ycolor 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgy setsy} %PSL1-SW-Geraet ifelse } if %Ybunt ausz 7 eq {setgn half 0 eq {setsn} if} if %N ausz 8 ge { /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgf setsn} %PSL1-SW-Geraet ifelse } if %bei ausz=8: Farb- oder SW-Ausdruck je nach Drucker } bind def /fcolors %CMY 32 no. 0 to 31; hue circe row [{1.00 1.00 1.00 0.00} {0.00 1.00 1.00 0.00} {0.00 0.00 1.00 0.00} {1.00 0.00 1.00 0.00} {1.00 0.00 0.00 0.00} {1.00 1.00 0.00 0.00} {0.00 1.00 0.00 0.00} {0.00 0.00 0.00 0.00} {0.50 0.50 0.50 0.00} {0.50 1.00 1.00 0.00} {0.50 0.50 1.00 0.00} {1.00 0.50 1.00 0.00} {1.00 0.50 0.50 0.00} {1.00 1.00 0.50 0.00} {0.50 1.00 0.50 0.00} {0.00 1.00 0.50 0.00} {0.75 0.75 0.75 0.00} {0.00 0.50 0.50 0.00} {0.00 0.00 0.50 0.00} {0.50 0.00 0.50 0.00} {0.50 0.00 0.00 0.00} {0.50 0.50 0.00 0.00} {0.00 0.50 0.00 0.00} {1.00 0.50 0.00 0.00} {0.25 0.25 0.25 0.00} {0.00 0.50 1.00 0.00} {0.50 0.00 1.00 0.00} {1.00 0.00 0.50 0.00} {1.00 0.50 0.00 0.00} {0.50 1.00 0.00 0.00} {0.00 1.00 0.50 0.00} {1.00 0.00 0.50 0.00} ] def /fak 0.5 def /Far %Farbkreis-Reihenfolge [ 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %R 16 17 18 19 20 21 22 23 %B 24 25 26 27 28 29 30 31 %G ] def /cFar %Kompensativ-Farbkreis-Reihenfolge [ 8 4 5 6 1 2 3 0 0 20 21 22 17 18 19 31 %G 24 12 13 14 9 10 11 2 %J 16 28 29 30 25 26 27 15 %R ] def /Btx %Farbkreis- -> %Btx-Reihenfolge [ 0 1 3 2 5 6 4 7 8 9 11 10 13 14 12 15 %R 16 17 19 18 21 22 20 23 %B 24 25 26 27 28 29 30 31 %G ] def /cBtx %Farbkreis- -> %Kompensativ-Btx-Reihenfolge [ 7 4 6 5 2 3 1 0 8 20 22 21 18 19 17 31 %G 24 12 14 13 10 11 9 2 %J 16 25 26 27 28 29 30 15 %R ] def /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfi %x y width heigth c m y k {setcmyknew rec fill} bind def /colrecst %x y width heigth c m y k {setcmyknew rec stroke} bind def /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmyknew} bind def /tfl {tzl setcmyknew} bind def /tfv {tzv setcmyknew} bind def /tfc {tzc setcmyknew} bind def /tfm {tzm setcmyknew} bind def /tfy {tzy setcmyknew} bind def /tfn {tzn setcmyknew} bind def /tfd {tzd setcmyknew} bind def /tfz {tzz setcmyknew} bind def /tfh {tzh setcmyknew} bind def /tfw {tzw setcmyknew} bind def /tfr {tzr setcmyknew} bind def /tfg {tzg setcmyknew} bind def /tfb {tzb setcmyknew} bind def /tfj {tzj setcmyknew} bind def /tfrz {tzrz setcmyknew} bind def /tfgz {tzgz setcmyknew} bind def /tfbz {tzbz setcmyknew} bind def /tfjz {tzjz setcmyknew} bind def %ANFA OUTLIN00 951204 /pixf 1.0 def /ueg 1 pixf mul def /uek 1 pixf mul def /ues 1 pixf mul def /pxd uek def /pyd uek def /pxwd ueg def /pywd ueg def /pss ues def /outxshowf {show} bind def /outxshow {show} bind def /outSK {250 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSM {300 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSG {350 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outshowf {setcmyknew show} bind def /outrecfi { %x y width heigth c m y k setcmyknew rec fill} bind def /outrecfi4 { %x y width heigth c m y k outrecfi} bind def /outrecfi3 { %x y width heigth c m y k outrecfi} bind def /outrecfi2 { %x y width heigth c m y k outrecfi} bind def /outlinetos { %px py c m y k setcmyknew lineto stroke} bind def /outstroke { %px1 py1 curveto ... curveto c m y k setcmyknew stroke} bind def %%EndProlog gsave %LANINDL2 START 20000505 /lanind 0 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /popde {0 lanind ne {pop} if} bind def /popen {1 lanind ne {pop} if} bind def /popes {2 lanind ne {pop} if} bind def /popfr {3 lanind ne {pop} if} bind def /popit {4 lanind ne {pop} if} bind def /popjp {5 lanind ne {pop} if} bind def /popm {6 lanind ne {pop} if} bind def /popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def /popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def /popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def /popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def /popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def /popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def /popxm {/n exch def 6 lanind ne {n {pop} repeat} if} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave %LANINDL2 END %{proz2} settransfer 8 /Times-Roman FS 72 83 moveto ( E8620-3, ) show 8 /Times-ISOL1 FS (Digitaldaten D7/8bit MGcode) popde %08620-3 1 (Digital data D7/8bit MGcode) popen %18620-3 1 (Digital data D7/8bit MGcode) popes %28620-3 1 (Digital data D7/8bit MGcode) popfr %38620-3 1 (Digital data D7/8bit MGcode) popit %48620-3 1 (Digital data D7/8bit MGcode) popjp %58620-3 1 show 8 /TimesI-ISOL1 FS ( CMY*) show 72 90 translate /pixf 1.0 def 0.1667 pixf div MM dup scale /ausz 8 def /half 0 def Halbt %Farbauszug 1=C, 2=M, 3=Y, 7=N, 8=F %/setcmyknew {/n exch def /y exch def /m exch def /c exch def % 1 c sub 1 m sub 1 y sub setrgbcolor} def 0 0 320 240 0.0 0.0 0.0 0.0 colrecfi %rectangle W 0.0 0.0 0.0 1.0 setcmyknew %text N 0 0 moveto 320 0 rlineto 0 240 rlineto -320 0 rlineto closepath stroke TBIG %Schrift Times-Bold-Gross-Italic 02 223 moveto (N\255W: ) show TBG %Schrift Times-Bold-Gross (D7CMY*s/z, d8cmy*s/z) show 45 103 moveto (unbunte Hauptfarben) showde %08620-3 2 (achromatic basic colors) showen %18620-3 2 (Colores acrom\341ticos b\341sicos) showes %28620-3 2 (achromatic basic colors) showfr %38620-3 2 (achromatic basic colors) showit %48620-3 2 (achromatic basic colors) showjp %58620-3 2 /iln 1 def /j 0 def /iy 180 def /solvfcols %Sonder-Farbkreis-Reihenfolge Nr. 0 bis 5; %N&W [ (111*) (222*) (555*) (999*) (DDD*) (EEE*) ] def /scolors %CMYN 5 Sonder-Testfarben Nr. 0 bis 5; Farbkreis-Reihenfolge %NN [ {0.0 0.0 0.0 0.923} {0.0 0.0 0.0 0.870} {0.0 0.0 0.0 0.630} {0.0 0.0 0.0 0.333} {0.0 0.0 0.0 0.130} {0.0 0.0 0.0 0.067}] def /tBtxz %textBtx-Reihenfolge [(0) (1) (2) (3) (4) (5) (6) (7) (0) (0) () (8) () (7) () ()] def /tFarb %textFar-Reihenfolge [(N) (O) (Y) (L) (C) (V) (M) (W) (Z) (N) (D) (Z) (H) (W) () () ] def %output as integer and 0 to 3 digits /cvishow {0.5 add cvi %new980310 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 %new980310 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 %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 6 string cvs show} def /cvsshow3 {dup 1000 mul 0.1 add round cvi 0.001 mul 6 string cvs show (, ) show x 20 add y moveto 1000 mul 500 sub 0.1 add round cvi 0.001 mul 8 string cvs show } def /temp 12 string def /arrow {x 6 sub y moveto (->) show} bind def /r4outh {%begin 4bit round print hex 15 mul 0.26 sub round cvi dup 10 temp cvrs show (, ) show 16 temp cvrs show } bind def %end 4bit round print /r4outd {%begin decimal 0..1 print cvsshow3 } bind def %end 4bit round print /r8outh {%begin 8bit round print hex 255 mul 0.26 sub round cvi dup 10 temp cvrs show ( / ) show dup 16 le {(0) show} if 16 temp cvrs show } bind def %end 8bit round print /r8outd {%begin decimal 0..1 print cvsshow3 } bind def %end 8bit round print /N4outh {%begin printpout dec, hex 4 bit 0.77 mul 0.05 add r4outh } bind def %end printpout dec, hex 4 bit /n4outh {%begin printpout dec, hex 4 bit r4outh } bind def %end printpout dec, hex 4 bit /N4outd {%begin printpout dec, hex 4 bit 0.77 mul 0.05 add r4outd } bind def %end printpout dec, hex 4 bit /n4outd {%begin printpout dec, hex 4 bit r4outd } bind def %end printpout dec, hex 4 bit /N6outh {%begin printpout dec, hex 6 bit 0.77 mul 0.05 add 0.5 sub 0.25 mul 0.5 add r8outh } bind def %end printpout dec, hex 6 bit /n6outh {%begin printpout dec, hex 6 bit 0.5 sub 0.25 mul 0.5 add r8outh } bind def %end printpout dec, hex 6 bit /N6outd {%begin printpout dec, hex 6 bit 0.77 mul 0.05 add 0.5 sub 0.25 mul 0.5 add r8outd } bind def %end printpout dec, hex 6 bit /n6outd {%begin printpout dec, hex 6 bit 0.5 sub 0.25 mul 0.5 add r8outd } bind def %end printpout dec, hex 6 bit /N7outh {%begin printpout dec, hex 7 bit 0.77 mul 0.05 add 0.5 sub 0.50 mul 0.5 add r8outh } bind def %end printpout dec, hex 7 bit /n7outh {%begin printpout dec, hex 7 bit 0.5 sub 0.50 mul 0.5 add r8outh } bind def %end printpout dec, hex 7 bit /N7outd {%begin printpout dec, hex 7 bit 0.77 mul 0.05 add 0.5 sub 0.50 mul 0.5 add r8outd } bind def %end printpout dec, hex 7 bit /n7outd {%begin printpout dec, hex 7 bit 0.5 sub 0.50 mul 0.5 add r8outd } bind def %end printpout dec, hex 7 bit /N8outh {%begin printpout dec, hex 8 bit 0.77 mul 0.05 add r8outh } bind def %end printpout dec, hex 8 bit /n8outh {%begin printpout dec, hex 8 bit r8outh } bind def %end printpout dec, hex 8 bit /N8outd {%begin printpout dec, hex 8 bit 0.77 mul 0.05 add r8outd } bind def %end printpout dec, hex 8 bit /n8outd {%begin printpout dec, hex 8 bit r8outd } bind def %end printpout dec, hex 8 bit /nc100out {%begin printpout dec, hex CIE 100 steps 0.5 sub 100 255 div mul 0.5 add r8outd } bind def %end printpout dec, hex CIE 100 steps /Nc100out {%begin printpout dec, hex CIE 100 steps 0.77 mul 0.05 add 0.5 sub 100 255 div mul 0.5 add r8outd } bind def %end printpout dec, hex CIE 100 steps /nc077out {%begin printpout dec, hex CIE 077 steps 0.5 sub 077 255 div mul 0.5 add r8outd } bind def %end printpout dec, hex CIE 077 steps /Nc077out {%begin printpout dec, hex CIE 077 steps 0.77 mul 0.05 add 0.5 sub 077 255 div mul 0.5 add r8outd } bind def %end printpout dec, hex CIE 077 steps /TBKK {200 16.67 div /Times-Bold FS} bind def /TBKL {100 16.67 div /Times-Bold FS} bind def /j 0 def 1 1 6 {/i exch def TBM i j 8 mul add /k exch def -08 i 48 mul add 17 add /ix exch def 183 j 120 mul sub /iy exch def 0.0 0.0 0.0 1.0 setcmyknew %text N TBIK i 1 eq { ix 15 sub iy 25 add moveto (D7CMY*tod8cmy* setcmy*color) show TBKL ix 55 sub iy 18 add moveto (Type / range:) show ix 55 sub iy 12 add moveto (D7CMY*s/z) show ix 53 sub iy 6 add moveto ( 0.275...0.660) show ix 53 sub iy 0 sub moveto (-0.225...0.160) show ix 55 sub iy 6 sub moveto (d8cmy*s/z:) show ix 53 sub iy 12 sub moveto ( 0.000...1.000) show ix 53 sub iy 19 sub moveto (-0.500...0.500) show ix 55 sub iy 26 sub moveto (D7C*s/z) show ix 55 sub iy 40 sub moveto (D7M*s/z) show ix 55 sub iy 54 sub moveto (D7Y*s/z) show ix 55 sub iy 32 sub moveto (d8c*s/z) show ix 55 sub iy 46 sub moveto (d8m*s/z) show ix 55 sub iy 60 sub moveto (d8y*s/z) show } if TBKL /ku Far k get exec def iln 0 ne {%begin olv or cmy dec and hex fcolors ku get exec /n8 exch def /y8 exch def /m8 exch def /c8 exch def /x ix 18 sub def /y iy 26 sub def x y moveto c8 N7outd /x ix 18 sub def /y iy 40 sub def x y moveto y8 N7outd /x ix 18 sub def /y iy 54 sub def x y moveto m8 N7outd /x ix 18 sub def /y iy 32 sub def arrow x y moveto c8 n8outd /x ix 18 sub def /y iy 46 sub def arrow x y moveto y8 n8outd /x ix 18 sub def /y iy 60 sub def arrow x y moveto m8 n8outd } if %end out olv or cmy dec and hex ix 19 sub iy 19 sub 39 39 fcolors ku get exec outrecfi4 %Farbe-Fuellen je nach Auszug TBIG /kuc cFar k get exec def j 0 eq {ix 7 sub iy 5 sub moveto tFarb i get exec fcolors kuc get exec outshowf} if } for %schleife i /scolors %CMY 5 Sonder-Testfarben Nr. 0 bis 4; Farbkreis-Reihenfolge %NN [ {1.00 1.00 1.00 0.00} {0.75 0.75 0.75 0.00} {0.50 0.50 0.50 0.00} {0.25 0.25 0.25 0.00} {0.00 0.00 0.00 0.00} ] def /iy 063 def 0 1 4 {/i exch def 0.0 0.0 0.0 1.0 setcmyknew %text N TBIK 15 i 1 add 48 mul add 17 add /ix exch def i 0 eq { ix 15 sub iy 25 add moveto (D7CMY*tod8cmy* setcmy*color) show TBKL ix 77 sub iy 18 add moveto (Type / range:) show ix 77 sub iy 12 add moveto (D7CMY*s/z) show ix 75 sub iy 6 add moveto ( 0.275...0.660) show ix 75 sub iy 0 sub moveto (-0.225...0.160) show ix 77 sub iy 6 sub moveto (d8cmy*s/z:) show ix 75 sub iy 12 sub moveto ( 0.000...1.000) show ix 75 sub iy 19 sub moveto (-0.500...0.500) show ix 77 sub iy 26 sub moveto (D7C*s/z) show ix 77 sub iy 40 sub moveto (D7M*s/z) show ix 77 sub iy 54 sub moveto (D7Y*s/z) show ix 77 sub iy 32 sub moveto (d8c*s/z) show ix 77 sub iy 46 sub moveto (d8m*s/z) show ix 77 sub iy 60 sub moveto (d8y*s/z) show } if TBKL iln 0 ne {%begin olv or cmy dec and hex scolors i get exec /n8 exch def /y8 exch def /m8 exch def /c8 exch def /x ix 18 sub def /y iy 26 sub def x y moveto c8 N7outd /x ix 18 sub def /y iy 40 sub def x y moveto m8 N7outd /x ix 18 sub def /y iy 54 sub def x y moveto y8 N7outd /x ix 18 sub def /y iy 32 sub def arrow x y moveto c8 n8outd /x ix 18 sub def /y iy 46 sub def arrow x y moveto m8 n8outd /x ix 18 sub def /y iy 60 sub def arrow x y moveto y8 n8outd } if %end out olv or cmy dec and hex TBIG ix 19 sub iy 19 sub 39 39 scolors i get exec outrecfi4 %Farbe-Fuellen je nach Auszug /kuc cFar 9 i add get exec def ix 06 sub iy 5 sub moveto i 3 lt {fcolors 07 get exec} {fcolors 00 get exec} ifelse setcmyknew tFarb 9 i add get exec dup stringwidth pop 15 exch sub 0.5 mul 0 rmoveto show 4 i eq {ix 19 sub iy 19 sub moveto 39 0 rlineto 0 39 rlineto -39 0 rlineto closepath 0.0 0.0 0.0 1.0 setcmyknew stroke %edge N } if } for %schleife i showpage grestore } for %output with langind end %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 109 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 14 %Zeile 350 %!PS-Adobe-3.0 EPSF-3.0 1x1 E8620-4N.EPS %%BoundingBox: 60 80 226 206 %START PDFDE011.EPS /pdfmark where {pop} {userdict /pdfmark /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: 1x1 E8620-4) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://o2.ps.bam.de or www.ps.bam.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@bam.de) /CreationDate (D:2000010512000) /ModDate (D:2000010512000) /DOCINFO pdfmark [ /View [ /FitB ] /DOCVIEW pdfmark %END PDFDE011 %%Creator: K. Richter, BAM und TU Berlin, 2000.01.04 %%+Copyright (c) 1996 VDE-Verlag Berlin Offenbach % !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 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /TK {250 16.67 div /Times-ISOL1 FS} bind def /TM {300 16.67 div /Times-ISOL1 FS} bind def /TG {350 16.67 div /Times-ISOL1 FS} bind def /TIK {250 16.67 div /TimesI-ISOL1 FS} bind def /TIM {300 16.67 div /TimesI-ISOL1 FS} bind def /TIG {350 16.67 div /TimesI-ISOL1 FS} bind def /TBK {250 16.67 div /TimesB-ISOL1 FS} bind def /TBM {300 16.67 div /TimesB-ISOL1 FS} bind def /TBG {350 16.67 div /TimesB-ISOL1 FS} bind def /TBIK {250 16.67 div /TimesBI-ISOL1 FS} bind def /TBIM {300 16.67 div /TimesBI-ISOL1 FS} bind def /TBIG {350 16.67 div /TimesBI-ISOL1 FS} bind def /proz1 {pop} bind def /proz2 {sqrt} bind def /setgc {pop pop pop 1 exch sub setgray} bind def /setgm {pop pop 1 exch sub setgray pop} bind def /setgy {pop 1 exch sub setgray pop pop} bind def /setgn {1 exch sub setgray pop pop pop} bind def /setgf {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def 0 ccolor eq 0 mcolor eq and 0 ycolor eq and {1 ncolor sub setgray} {1 ccolor sub 0.71 mul 1 mcolor sub 0.22 mul add 1 ycolor sub 0.07 mul add setgray} ifelse } bind def /setsc {075 135 {proz1} setscreen } bind def /setsm {075 090 {proz1} setscreen } bind def /setsy {075 000 {proz1} setscreen } bind def /setsn {075 045 {proz1} setscreen } bind def /setsf {075 135 {proz1} 075 090 {proz1} 075 000 {proz1} 075 045 {proz1} setcolorscreen } bind def /setcmykcolorf {setcmykcolor setsf} bind def %fuer PSL1/2-Farbgeraet %ANFA HALBTON /Halbt { %wrbie:HALBTOA0.eps } bind def %ANFA SETCMYK /setcmyknew { %Ersatz setcolornew durch setcmykcolor1 ausz 1 eq {setgc half 0 eq {setsc} if} if %C ausz 2 eq {setgm half 0 eq {setsm} if} if %M ausz 3 eq {setgy half 0 eq {setsy} if} if %Y ausz 4 eq {pop pop pop /ccolor exch def ccolor 0 0 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgc setsc} %PSL1-SW-Geraet ifelse } if %Cbunt ausz 5 eq {pop pop /mcolor exch def pop 0 mcolor 0 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgm setsm} %PSL1-SW-Geraet ifelse } if %Mbunt ausz 6 eq {pop /ycolor exch def pop pop 0 0 ycolor 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgy setsy} %PSL1-SW-Geraet ifelse } if %Ybunt ausz 7 eq {setgn half 0 eq {setsn} if} if %N ausz 8 ge { /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgf setsn} %PSL1-SW-Geraet ifelse } if %bei ausz=8: Farb- oder SW-Ausdruck je nach Drucker } bind def /fcolors %CMY 32 no. 0 to 31; hue circe row [{1.00 1.00 1.00 0.00} {0.00 1.00 1.00 0.00} {0.00 0.00 1.00 0.00} {1.00 0.00 1.00 0.00} {1.00 0.00 0.00 0.00} {1.00 1.00 0.00 0.00} {0.00 1.00 0.00 0.00} {0.00 0.00 0.00 0.00} {0.50 0.50 0.50 0.00} {0.50 1.00 1.00 0.00} {0.50 0.50 1.00 0.00} {1.00 0.50 1.00 0.00} {1.00 0.50 0.50 0.00} {1.00 1.00 0.50 0.00} {0.50 1.00 0.50 0.00} {0.00 1.00 0.50 0.00} {0.75 0.75 0.75 0.00} {0.00 0.50 0.50 0.00} {0.00 0.00 0.50 0.00} {0.50 0.00 0.50 0.00} {0.50 0.00 0.00 0.00} {0.50 0.50 0.00 0.00} {0.00 0.50 0.00 0.00} {1.00 0.50 0.00 0.00} {0.25 0.25 0.25 0.00} {0.00 0.50 1.00 0.00} {0.50 0.00 1.00 0.00} {1.00 0.00 0.50 0.00} {1.00 0.50 0.00 0.00} {0.50 1.00 0.00 0.00} {0.00 1.00 0.50 0.00} {1.00 0.00 0.50 0.00} ] def /fak 0.5 def /Far %Farbkreis-Reihenfolge [ 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %R 16 17 18 19 20 21 22 23 %B 24 25 26 27 28 29 30 31 %G ] def /cFar %Kompensativ-Farbkreis-Reihenfolge [ 8 4 5 6 1 2 3 0 0 20 21 22 17 18 19 31 %G 24 12 13 14 9 10 11 2 %J 16 28 29 30 25 26 27 15 %R ] def /Btx %Farbkreis- -> %Btx-Reihenfolge [ 0 1 3 2 5 6 4 7 8 9 11 10 13 14 12 15 %R 16 17 19 18 21 22 20 23 %B 24 25 26 27 28 29 30 31 %G ] def /cBtx %Farbkreis- -> %Kompensativ-Btx-Reihenfolge [ 7 4 6 5 2 3 1 0 8 20 22 21 18 19 17 31 %G 24 12 14 13 10 11 9 2 %J 16 25 26 27 28 29 30 15 %R ] def /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfi %x y width heigth c m y k {setcmyknew rec fill} bind def /colrecst %x y width heigth c m y k {setcmyknew rec stroke} bind def /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmyknew} bind def /tfl {tzl setcmyknew} bind def /tfv {tzv setcmyknew} bind def /tfc {tzc setcmyknew} bind def /tfm {tzm setcmyknew} bind def /tfy {tzy setcmyknew} bind def /tfn {tzn setcmyknew} bind def /tfd {tzd setcmyknew} bind def /tfz {tzz setcmyknew} bind def /tfh {tzh setcmyknew} bind def /tfw {tzw setcmyknew} bind def /tfr {tzr setcmyknew} bind def /tfg {tzg setcmyknew} bind def /tfb {tzb setcmyknew} bind def /tfj {tzj setcmyknew} bind def /tfrz {tzrz setcmyknew} bind def /tfgz {tzgz setcmyknew} bind def /tfbz {tzbz setcmyknew} bind def /tfjz {tzjz setcmyknew} bind def %ANFA OUTLIN00 951204 /pixf 1.0 def /ueg 1 pixf mul def /uek 1 pixf mul def /ues 1 pixf mul def /pxd uek def /pyd uek def /pxwd ueg def /pywd ueg def /pss ues def /outxshowf {show} bind def /outxshow {show} bind def /outSK {250 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSM {300 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSG {350 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outshowf {setcmyknew show} bind def /outrecfi { %x y width heigth c m y k setcmyknew rec fill} bind def /outrecfi4 { %x y width heigth c m y k outrecfi} bind def /outrecfi3 { %x y width heigth c m y k outrecfi} bind def /outrecfi2 { %x y width heigth c m y k outrecfi} bind def /outlinetos { %px py c m y k setcmyknew lineto stroke} bind def /outstroke { %px1 py1 curveto ... curveto c m y k setcmyknew stroke} bind def %%EndProlog gsave %LANINDL2 START 20000505 /lanind 0 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /popde {0 lanind ne {pop} if} bind def /popen {1 lanind ne {pop} if} bind def /popes {2 lanind ne {pop} if} bind def /popfr {3 lanind ne {pop} if} bind def /popit {4 lanind ne {pop} if} bind def /popjp {5 lanind ne {pop} if} bind def /popm {6 lanind ne {pop} if} bind def /popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def /popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def /popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def /popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def /popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def /popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def /popxm {/n exch def 6 lanind ne {n {pop} repeat} if} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave %LANINDL2 END %{proz2} settransfer 8 /Times-Roman FS 72 83 moveto ( E8620-4, ) show 8 /Times-ISOL1 FS (Digitaldaten D7/8bit MGcode) popde %08620-4 1 (Digital data D7/8bit MGcode) popen %18620-4 1 (Digital data D7/8bit MGcode) popes %28620-4 1 (Digital data D7/8bit MGcode) popfr %38620-4 1 (Digital data D7/8bit MGcode) popit %48620-4 1 (Digital data D7/8bit MGcode) popjp %58620-4 1 show 8 /TimesI-ISOL1 FS ( CMY*) show 72 90 translate /pixf 1.0 def 0.1667 pixf div MM dup scale /ausz 8 def /half 0 def Halbt %Farbauszug 1=C, 2=M, 3=Y, 7=N, 8=F %/setcmyknew {/n exch def /y exch def /m exch def /c exch def % 1 c sub 1 m sub 1 y sub setrgbcolor} def 0 0 320 240 0.0 0.0 0.0 0.0 colrecfi %rectangle W 0.0 0.0 0.0 1.0 setcmyknew %text N 0 0 moveto 320 0 rlineto 0 240 rlineto -320 0 rlineto closepath stroke TBIG %Schrift Times-Bold-Gross-Italic 02 223 moveto (N\255W: ) show TBG %Schrift Times-Bold-Gross (D7CMY*s/z, d8cmy*i/h) show 45 103 moveto (unbunte Hauptfarben) showde %08620-4 2 (achromatic basic colors) showen %18620-4 2 (Colores acrom\341ticos b\341sicos) showes %28620-4 2 (achromatic basic colors) showfr %38620-4 2 (achromatic basic colors) showit %48620-4 2 (achromatic basic colors) showjp %58620-4 2 /iln 1 def /j 0 def /iy 180 def /solvfcols %Sonder-Farbkreis-Reihenfolge Nr. 0 bis 5; %N&W [ (111*) (222*) (555*) (999*) (DDD*) (EEE*) ] def /scolors %CMYN 5 Sonder-Testfarben Nr. 0 bis 5; Farbkreis-Reihenfolge %NN [ {0.0 0.0 0.0 0.923} {0.0 0.0 0.0 0.870} {0.0 0.0 0.0 0.630} {0.0 0.0 0.0 0.333} {0.0 0.0 0.0 0.130} {0.0 0.0 0.0 0.067}] def /tBtxz %textBtx-Reihenfolge [(0) (1) (2) (3) (4) (5) (6) (7) (0) (0) () (8) () (7) () ()] def /tFarb %textFar-Reihenfolge [(N) (O) (Y) (L) (C) (V) (M) (W) (Z) (N) (D) (Z) (H) (W) () () ] def %output as integer and 0 to 3 digits /cvishow {0.5 add cvi %new980310 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 %new980310 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 %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 6 string cvs show} def /cvsshow3 {dup 1000 mul 0.1 add round cvi 0.001 mul 6 string cvs show (, ) show x 20 add y moveto 1000 mul 500 sub 0.1 add round cvi 0.001 mul 8 string cvs show } def /temp 12 string def /arrow {x 6 sub y moveto (->) show} bind def /r4outh {%begin 4bit round print hex 15 mul 0.26 sub round cvi dup 10 temp cvrs show (, ) show 16 temp cvrs show } bind def %end 4bit round print /r4outd {%begin decimal 0..1 print cvsshow3 } bind def %end 4bit round print /r8outh {%begin 8bit round print hex 255 mul 0.26 sub round cvi dup 10 temp cvrs show ( / ) show dup 16 le {(0) show} if 16 temp cvrs show } bind def %end 8bit round print /r8outd {%begin decimal 0..1 print cvsshow3 } bind def %end 8bit round print /N4outh {%begin printpout dec, hex 4 bit 0.77 mul 0.05 add r4outh } bind def %end printpout dec, hex 4 bit /n4outh {%begin printpout dec, hex 4 bit r4outh } bind def %end printpout dec, hex 4 bit /N4outd {%begin printpout dec, hex 4 bit 0.77 mul 0.05 add r4outd } bind def %end printpout dec, hex 4 bit /n4outd {%begin printpout dec, hex 4 bit r4outd } bind def %end printpout dec, hex 4 bit /N6outh {%begin printpout dec, hex 6 bit 0.77 mul 0.05 add 0.5 sub 0.25 mul 0.5 add r8outh } bind def %end printpout dec, hex 6 bit /n6outh {%begin printpout dec, hex 6 bit 0.5 sub 0.25 mul 0.5 add r8outh } bind def %end printpout dec, hex 6 bit /N6outd {%begin printpout dec, hex 6 bit 0.77 mul 0.05 add 0.5 sub 0.25 mul 0.5 add r8outd } bind def %end printpout dec, hex 6 bit /n6outd {%begin printpout dec, hex 6 bit 0.5 sub 0.25 mul 0.5 add r8outd } bind def %end printpout dec, hex 6 bit /N7outh {%begin printpout dec, hex 7 bit 0.77 mul 0.05 add 0.5 sub 0.50 mul 0.5 add r8outh } bind def %end printpout dec, hex 7 bit /n7outh {%begin printpout dec, hex 7 bit 0.5 sub 0.50 mul 0.5 add r8outh } bind def %end printpout dec, hex 7 bit /N7outd {%begin printpout dec, hex 7 bit 0.77 mul 0.05 add 0.5 sub 0.50 mul 0.5 add r8outd } bind def %end printpout dec, hex 7 bit /n7outd {%begin printpout dec, hex 7 bit 0.5 sub 0.50 mul 0.5 add r8outd } bind def %end printpout dec, hex 7 bit /N8outh {%begin printpout dec, hex 8 bit 0.77 mul 0.05 add r8outh } bind def %end printpout dec, hex 8 bit /n8outh {%begin printpout dec, hex 8 bit r8outh } bind def %end printpout dec, hex 8 bit /N8outd {%begin printpout dec, hex 8 bit 0.77 mul 0.05 add r8outd } bind def %end printpout dec, hex 8 bit /n8outd {%begin printpout dec, hex 8 bit r8outd } bind def %end printpout dec, hex 8 bit /nc100out {%begin printpout dec, hex CIE 100 steps 0.5 sub 100 255 div mul 0.5 add r8outd } bind def %end printpout dec, hex CIE 100 steps /Nc100out {%begin printpout dec, hex CIE 100 steps 0.77 mul 0.05 add 0.5 sub 100 255 div mul 0.5 add r8outd } bind def %end printpout dec, hex CIE 100 steps /nc077out {%begin printpout dec, hex CIE 077 steps 0.5 sub 077 255 div mul 0.5 add r8outd } bind def %end printpout dec, hex CIE 077 steps /Nc077out {%begin printpout dec, hex CIE 077 steps 0.77 mul 0.05 add 0.5 sub 077 255 div mul 0.5 add r8outd } bind def %end printpout dec, hex CIE 077 steps /TBKK {200 16.67 div /Times-Bold FS} bind def /TBKL {100 16.67 div /Times-Bold FS} bind def /j 0 def 1 1 6 {/i exch def TBM i j 8 mul add /k exch def -08 i 48 mul add 17 add /ix exch def 183 j 120 mul sub /iy exch def 0.0 0.0 0.0 1.0 setcmyknew %text N TBIK i 1 eq { ix 15 sub iy 25 add moveto (D7CMY*tod8cmy* setcmy*color) show TBKL ix 55 sub iy 18 add moveto (Type / range:) show ix 55 sub iy 12 add moveto (D7CMY*s/z) show ix 53 sub iy 6 add moveto ( 0.275...0.660) show ix 53 sub iy 0 sub moveto (-0.225...0.160) show ix 55 sub iy 6 sub moveto (d8cmy*i/h:) show ix 53 sub iy 12 sub moveto (0...255) show ix 53 sub iy 19 sub moveto (00...FF) show ix 55 sub iy 26 sub moveto (D7C*s/z) show ix 55 sub iy 40 sub moveto (D7M*s/z) show ix 55 sub iy 54 sub moveto (D7Y*s/z) show ix 55 sub iy 32 sub moveto (d8c*i/h) show ix 55 sub iy 46 sub moveto (d8m*i/h) show ix 55 sub iy 60 sub moveto (d8y*i/h) show } if TBKL /ku Far k get exec def iln 0 ne {%begin olv or cmy dec and hex fcolors ku get exec /n8 exch def /y8 exch def /m8 exch def /c8 exch def /x ix 18 sub def /y iy 26 sub def x y moveto c8 N7outd /x ix 18 sub def /y iy 40 sub def x y moveto y8 N7outd /x ix 18 sub def /y iy 54 sub def x y moveto m8 N7outd /x ix 18 sub def /y iy 32 sub def arrow x y moveto c8 n8outh /x ix 18 sub def /y iy 46 sub def arrow x y moveto y8 n8outh /x ix 18 sub def /y iy 60 sub def arrow x y moveto m8 n8outh } if %end out olv or cmy dec and hex ix 19 sub iy 19 sub 39 39 fcolors ku get exec outrecfi4 %Farbe-Fuellen je nach Auszug TBIG /kuc cFar k get exec def j 0 eq {ix 7 sub iy 5 sub moveto tFarb i get exec fcolors kuc get exec outshowf} if } for %schleife i /scolors %CMY 5 Sonder-Testfarben Nr. 0 bis 4; Farbkreis-Reihenfolge %NN [ {1.00 1.00 1.00 0.00} {0.75 0.75 0.75 0.00} {0.50 0.50 0.50 0.00} {0.25 0.25 0.25 0.00} {0.00 0.00 0.00 0.00} ] def /iy 063 def 0 1 4 {/i exch def 0.0 0.0 0.0 1.0 setcmyknew %text N TBIK 15 i 1 add 48 mul add 17 add /ix exch def i 0 eq { ix 15 sub iy 25 add moveto (D7CMY*tod8cmy* setcmy*color) show TBKL ix 77 sub iy 18 add moveto (Type / range:) show ix 77 sub iy 12 add moveto (D7CMY*s/z) show ix 75 sub iy 6 add moveto ( 0.275...0.660) show ix 75 sub iy 0 sub moveto (-0.225...0.160) show ix 77 sub iy 6 sub moveto (d8cmy*i/h:) show ix 75 sub iy 12 sub moveto (0...255) show ix 75 sub iy 19 sub moveto (00...FF) show ix 77 sub iy 26 sub moveto (D7C*s/z) show ix 77 sub iy 40 sub moveto (D7M*s/z) show ix 77 sub iy 54 sub moveto (D7Y*s/z) show ix 77 sub iy 32 sub moveto (d8c*i/h) show ix 77 sub iy 46 sub moveto (d8m*i/h) show ix 77 sub iy 60 sub moveto (d8y*i/h) show } if TBKL iln 0 ne {%begin olv or cmy dec and hex scolors i get exec /n8 exch def /y8 exch def /m8 exch def /c8 exch def /x ix 18 sub def /y iy 26 sub def x y moveto c8 N7outd /x ix 18 sub def /y iy 40 sub def x y moveto m8 N7outd /x ix 18 sub def /y iy 54 sub def x y moveto y8 N7outd /x ix 18 sub def /y iy 32 sub def arrow x y moveto c8 n8outh /x ix 18 sub def /y iy 46 sub def arrow x y moveto m8 n8outh /x ix 18 sub def /y iy 60 sub def arrow x y moveto y8 n8outh } if %end out olv or cmy dec and hex TBIG ix 19 sub iy 19 sub 39 39 scolors i get exec outrecfi4 %Farbe-Fuellen je nach Auszug /kuc cFar 9 i add get exec def ix 06 sub iy 5 sub moveto i 3 lt {fcolors 07 get exec} {fcolors 00 get exec} ifelse setcmyknew tFarb 9 i add get exec dup stringwidth pop 15 exch sub 0.5 mul 0 rmoveto show 4 i eq {ix 19 sub iy 19 sub moveto 39 0 rlineto 0 39 rlineto -39 0 rlineto closepath 0.0 0.0 0.0 1.0 setcmyknew stroke %edge N } if } for %schleife i showpage grestore } for %output with langind end %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 28 MM 065 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 15 %Zeile 360 %!PS-Adobe-3.0 EPSF-3.0 1x1 E8620-5N.EPS %%BoundingBox: 60 80 226 206 %START PDFDE011.EPS /pdfmark where {pop} {userdict /pdfmark /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: 1x1 E8620-5) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://o2.ps.bam.de or www.ps.bam.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@bam.de) /CreationDate (D:2000010512000) /ModDate (D:2000010512000) /DOCINFO pdfmark [ /View [ /FitB ] /DOCVIEW pdfmark %END PDFDE011 %%Creator: K. Richter, BAM und TU Berlin, 2000.01.04 %%+Copyright (c) 1996 VDE-Verlag Berlin Offenbach % !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 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /TK {250 16.67 div /Times-ISOL1 FS} bind def /TM {300 16.67 div /Times-ISOL1 FS} bind def /TG {350 16.67 div /Times-ISOL1 FS} bind def /TIK {250 16.67 div /TimesI-ISOL1 FS} bind def /TIM {300 16.67 div /TimesI-ISOL1 FS} bind def /TIG {350 16.67 div /TimesI-ISOL1 FS} bind def /TBK {250 16.67 div /TimesB-ISOL1 FS} bind def /TBM {300 16.67 div /TimesB-ISOL1 FS} bind def /TBG {350 16.67 div /TimesB-ISOL1 FS} bind def /TBIK {250 16.67 div /TimesBI-ISOL1 FS} bind def /TBIM {300 16.67 div /TimesBI-ISOL1 FS} bind def /TBIG {350 16.67 div /TimesBI-ISOL1 FS} bind def /proz1 {pop} bind def /proz2 {sqrt} bind def /setgc {pop pop pop 1 exch sub setgray} bind def /setgm {pop pop 1 exch sub setgray pop} bind def /setgy {pop 1 exch sub setgray pop pop} bind def /setgn {1 exch sub setgray pop pop pop} bind def /setgf {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def 0 ccolor eq 0 mcolor eq and 0 ycolor eq and {1 ncolor sub setgray} {1 ccolor sub 0.71 mul 1 mcolor sub 0.22 mul add 1 ycolor sub 0.07 mul add setgray} ifelse } bind def /setsc {075 135 {proz1} setscreen } bind def /setsm {075 090 {proz1} setscreen } bind def /setsy {075 000 {proz1} setscreen } bind def /setsn {075 045 {proz1} setscreen } bind def /setsf {075 135 {proz1} 075 090 {proz1} 075 000 {proz1} 075 045 {proz1} setcolorscreen } bind def /setcmykcolorf {setcmykcolor setsf} bind def %fuer PSL1/2-Farbgeraet %ANFA HALBTON /Halbt { %wrbie:HALBTOA0.eps } bind def %ANFA SETCMYK /setcmyknew { %Ersatz setcolornew durch setcmykcolor1 ausz 1 eq {setgc half 0 eq {setsc} if} if %C ausz 2 eq {setgm half 0 eq {setsm} if} if %M ausz 3 eq {setgy half 0 eq {setsy} if} if %Y ausz 4 eq {pop pop pop /ccolor exch def ccolor 0 0 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgc setsc} %PSL1-SW-Geraet ifelse } if %Cbunt ausz 5 eq {pop pop /mcolor exch def pop 0 mcolor 0 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgm setsm} %PSL1-SW-Geraet ifelse } if %Mbunt ausz 6 eq {pop /ycolor exch def pop pop 0 0 ycolor 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgy setsy} %PSL1-SW-Geraet ifelse } if %Ybunt ausz 7 eq {setgn half 0 eq {setsn} if} if %N ausz 8 ge { /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgf setsn} %PSL1-SW-Geraet ifelse } if %bei ausz=8: Farb- oder SW-Ausdruck je nach Drucker } bind def /fcolors %CMY 32 no. 0 to 31; hue circe row [{1.00 1.00 1.00 0.00} {0.00 1.00 1.00 0.00} {0.00 0.00 1.00 0.00} {1.00 0.00 1.00 0.00} {1.00 0.00 0.00 0.00} {1.00 1.00 0.00 0.00} {0.00 1.00 0.00 0.00} {0.00 0.00 0.00 0.00} {0.50 0.50 0.50 0.00} {0.50 1.00 1.00 0.00} {0.50 0.50 1.00 0.00} {1.00 0.50 1.00 0.00} {1.00 0.50 0.50 0.00} {1.00 1.00 0.50 0.00} {0.50 1.00 0.50 0.00} {0.00 1.00 0.50 0.00} {0.75 0.75 0.75 0.00} {0.00 0.50 0.50 0.00} {0.00 0.00 0.50 0.00} {0.50 0.00 0.50 0.00} {0.50 0.00 0.00 0.00} {0.50 0.50 0.00 0.00} {0.00 0.50 0.00 0.00} {1.00 0.50 0.00 0.00} {0.25 0.25 0.25 0.00} {0.00 0.50 1.00 0.00} {0.50 0.00 1.00 0.00} {1.00 0.00 0.50 0.00} {1.00 0.50 0.00 0.00} {0.50 1.00 0.00 0.00} {0.00 1.00 0.50 0.00} {1.00 0.00 0.50 0.00} ] def /fak 0.5 def /Far %Farbkreis-Reihenfolge [ 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %R 16 17 18 19 20 21 22 23 %B 24 25 26 27 28 29 30 31 %G ] def /cFar %Kompensativ-Farbkreis-Reihenfolge [ 8 4 5 6 1 2 3 0 0 20 21 22 17 18 19 31 %G 24 12 13 14 9 10 11 2 %J 16 28 29 30 25 26 27 15 %R ] def /Btx %Farbkreis- -> %Btx-Reihenfolge [ 0 1 3 2 5 6 4 7 8 9 11 10 13 14 12 15 %R 16 17 19 18 21 22 20 23 %B 24 25 26 27 28 29 30 31 %G ] def /cBtx %Farbkreis- -> %Kompensativ-Btx-Reihenfolge [ 7 4 6 5 2 3 1 0 8 20 22 21 18 19 17 31 %G 24 12 14 13 10 11 9 2 %J 16 25 26 27 28 29 30 15 %R ] def /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfi %x y width heigth c m y k {setcmyknew rec fill} bind def /colrecst %x y width heigth c m y k {setcmyknew rec stroke} bind def /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmyknew} bind def /tfl {tzl setcmyknew} bind def /tfv {tzv setcmyknew} bind def /tfc {tzc setcmyknew} bind def /tfm {tzm setcmyknew} bind def /tfy {tzy setcmyknew} bind def /tfn {tzn setcmyknew} bind def /tfd {tzd setcmyknew} bind def /tfz {tzz setcmyknew} bind def /tfh {tzh setcmyknew} bind def /tfw {tzw setcmyknew} bind def /tfr {tzr setcmyknew} bind def /tfg {tzg setcmyknew} bind def /tfb {tzb setcmyknew} bind def /tfj {tzj setcmyknew} bind def /tfrz {tzrz setcmyknew} bind def /tfgz {tzgz setcmyknew} bind def /tfbz {tzbz setcmyknew} bind def /tfjz {tzjz setcmyknew} bind def %ANFA OUTLIN00 951204 /pixf 1.0 def /ueg 1 pixf mul def /uek 1 pixf mul def /ues 1 pixf mul def /pxd uek def /pyd uek def /pxwd ueg def /pywd ueg def /pss ues def /outxshowf {show} bind def /outxshow {show} bind def /outSK {250 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSM {300 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSG {350 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outshowf {setcmyknew show} bind def /outrecfi { %x y width heigth c m y k setcmyknew rec fill} bind def /outrecfi4 { %x y width heigth c m y k outrecfi} bind def /outrecfi3 { %x y width heigth c m y k outrecfi} bind def /outrecfi2 { %x y width heigth c m y k outrecfi} bind def /outlinetos { %px py c m y k setcmyknew lineto stroke} bind def /outstroke { %px1 py1 curveto ... curveto c m y k setcmyknew stroke} bind def %%EndProlog gsave %LANINDL2 START 20000505 /lanind 0 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /popde {0 lanind ne {pop} if} bind def /popen {1 lanind ne {pop} if} bind def /popes {2 lanind ne {pop} if} bind def /popfr {3 lanind ne {pop} if} bind def /popit {4 lanind ne {pop} if} bind def /popjp {5 lanind ne {pop} if} bind def /popm {6 lanind ne {pop} if} bind def /popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def /popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def /popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def /popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def /popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def /popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def /popxm {/n exch def 6 lanind ne {n {pop} repeat} if} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave %LANINDL2 END %{proz2} settransfer 8 /Times-Roman FS 72 83 moveto ( E8620-5, ) show 8 /Times-ISOL1 FS (Digitaldaten D6/8bit WGcode) popde %08620-5 1 (Digital data D6/8bit WGcode) popen %18620-5 1 (Digital data D6/8bit WGcode) popes %28620-5 1 (Digital data D6/8bit WGcode) popfr %38620-5 1 (Digital data D6/8bit WGcode) popit %48620-5 1 (Digital data D6/8bit WGcode) popjp %58620-5 1 show 8 /TimesI-ISOL1 FS ( CMY*) show 72 90 translate /pixf 1.0 def 0.1667 pixf div MM dup scale /ausz 8 def /half 0 def Halbt %Farbauszug 1=C, 2=M, 3=Y, 7=N, 8=F %/setcmyknew {/n exch def /y exch def /m exch def /c exch def % 1 c sub 1 m sub 1 y sub setrgbcolor} def 0 0 320 240 0.0 0.0 0.0 0.0 colrecfi %rectangle W 0.0 0.0 0.0 1.0 setcmyknew %text N 0 0 moveto 320 0 rlineto 0 240 rlineto -320 0 rlineto closepath stroke TBIG %Schrift Times-Bold-Gross-Italic 02 223 moveto (N\255W: ) show TBG %Schrift Times-Bold-Gross (D6CMY*s/z, d8cmy*s/c) show 45 103 moveto (unbunte Hauptfarben) showde %08620-5 2 (achromatic basic colors) showen %18620-5 2 (Colores acrom\341ticos b\341sicos) showes %28620-5 2 (achromatic basic colors) showfr %38620-5 2 (achromatic basic colors) showit %48620-5 2 (achromatic basic colors) showjp %58620-5 2 /iln 1 def /j 0 def /iy 180 def /solvfcols %Sonder-Farbkreis-Reihenfolge Nr. 0 bis 5; %N&W [ (111*) (222*) (555*) (999*) (DDD*) (EEE*) ] def /scolors %CMYN 5 Sonder-Testfarben Nr. 0 bis 5; Farbkreis-Reihenfolge %NN [ {0.0 0.0 0.0 0.923} {0.0 0.0 0.0 0.870} {0.0 0.0 0.0 0.630} {0.0 0.0 0.0 0.333} {0.0 0.0 0.0 0.130} {0.0 0.0 0.0 0.067}] def /tBtxz %textBtx-Reihenfolge [(0) (1) (2) (3) (4) (5) (6) (7) (0) (0) () (8) () (7) () ()] def /tFarb %textFar-Reihenfolge [(N) (O) (Y) (L) (C) (V) (M) (W) (Z) (N) (D) (Z) (H) (W) () () ] def %output as integer and 0 to 3 digits /cvishow {0.5 add cvi %new980310 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 %new980310 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 %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 6 string cvs show} def /cvsshow3 {dup 1000 mul 0.1 add round cvi 0.001 mul 6 string cvs show (, ) show x 20 add y moveto 1000 mul 500 sub 0.1 add round cvi 0.001 mul 8 string cvs show } def /temp 12 string def /arrow {x 6 sub y moveto (->) show} bind def /r4outh {%begin 4bit round print hex 15 mul 0.26 sub round cvi dup 10 temp cvrs show (, ) show 16 temp cvrs show } bind def %end 4bit round print /r4outd {%begin decimal 0..1 print cvsshow3 } bind def %end 4bit round print /r8outh {%begin 8bit round print hex 255 mul 0.26 sub round cvi dup 10 temp cvrs show ( / ) show dup 16 le {(0) show} if 16 temp cvrs show } bind def %end 8bit round print /r8outd {%begin decimal 0..1 print cvsshow3 } bind def %end 8bit round print /N4outh {%begin printpout dec, hex 4 bit 0.77 mul 0.05 add r4outh } bind def %end printpout dec, hex 4 bit /n4outh {%begin printpout dec, hex 4 bit r4outh } bind def %end printpout dec, hex 4 bit /N4outd {%begin printpout dec, hex 4 bit 0.77 mul 0.05 add r4outd } bind def %end printpout dec, hex 4 bit /n4outd {%begin printpout dec, hex 4 bit r4outd } bind def %end printpout dec, hex 4 bit /N6outh {%begin printpout dec, hex 6 bit 0.77 mul 0.05 add 0.5 sub 0.25 mul 0.5 add r8outh } bind def %end printpout dec, hex 6 bit /n6outh {%begin printpout dec, hex 6 bit 0.5 sub 0.25 mul 0.5 add r8outh } bind def %end printpout dec, hex 6 bit /N6outd {%begin printpout dec, hex 6 bit 0.77 mul 0.05 add 0.5 sub 0.25 mul 0.5 add r8outd } bind def %end printpout dec, hex 6 bit /n6outd {%begin printpout dec, hex 6 bit 0.5 sub 0.25 mul 0.5 add r8outd } bind def %end printpout dec, hex 6 bit /N7outh {%begin printpout dec, hex 7 bit 0.77 mul 0.05 add 0.5 sub 0.50 mul 0.5 add r8outh } bind def %end printpout dec, hex 7 bit /n7outh {%begin printpout dec, hex 7 bit 0.5 sub 0.50 mul 0.5 add r8outh } bind def %end printpout dec, hex 7 bit /N7outd {%begin printpout dec, hex 7 bit 0.77 mul 0.05 add 0.5 sub 0.50 mul 0.5 add r8outd } bind def %end printpout dec, hex 7 bit /n7outd {%begin printpout dec, hex 7 bit 0.5 sub 0.50 mul 0.5 add r8outd } bind def %end printpout dec, hex 7 bit /N8outh {%begin printpout dec, hex 8 bit 0.77 mul 0.05 add r8outh } bind def %end printpout dec, hex 8 bit /n8outh {%begin printpout dec, hex 8 bit r8outh } bind def %end printpout dec, hex 8 bit /N8outd {%begin printpout dec, hex 8 bit 0.77 mul 0.05 add r8outd } bind def %end printpout dec, hex 8 bit /n8outd {%begin printpout dec, hex 8 bit r8outd } bind def %end printpout dec, hex 8 bit /nc100out {%begin printpout dec, hex CIE 100 steps 0.5 sub 100 255 div mul 0.5 add r8outd } bind def %end printpout dec, hex CIE 100 steps /Nc100out {%begin printpout dec, hex CIE 100 steps 0.77 mul 0.05 add 0.5 sub 100 255 div mul 0.5 add r8outd } bind def %end printpout dec, hex CIE 100 steps /nc077out {%begin printpout dec, hex CIE 077 steps 0.5 sub 077 255 div mul 0.5 add r8outd } bind def %end printpout dec, hex CIE 077 steps /Nc077out {%begin printpout dec, hex CIE 077 steps 0.77 mul 0.05 add 0.5 sub 077 255 div mul 0.5 add r8outd } bind def %end printpout dec, hex CIE 077 steps /TBKK {200 16.67 div /Times-Bold FS} bind def /TBKL {100 16.67 div /Times-Bold FS} bind def /j 0 def 1 1 6 {/i exch def TBM i j 8 mul add /k exch def -08 i 48 mul add 17 add /ix exch def 183 j 120 mul sub /iy exch def 0.0 0.0 0.0 1.0 setcmyknew %text N TBIK i 1 eq { ix 15 sub iy 25 add moveto (D6CMY*tod8cmy* setcmy*color) show TBKL ix 55 sub iy 18 add moveto (Type / range:) show ix 55 sub iy 12 add moveto (D6CMY*s/z) show ix 53 sub iy 6 add moveto ( 0.388...0.580) show ix 53 sub iy 0 sub moveto (-0.112...0.080) show ix 55 sub iy 6 sub moveto (d8cmy*s/z:) show ix 53 sub iy 12 sub moveto ( 0.000...1.000) show ix 53 sub iy 19 sub moveto (-0.500...0.500) show ix 55 sub iy 26 sub moveto (D6C*s/z) show ix 55 sub iy 40 sub moveto (D6M*s/z) show ix 55 sub iy 54 sub moveto (D6Y*s/z) show ix 55 sub iy 32 sub moveto (d8c*s/z) show ix 55 sub iy 46 sub moveto (d8m*s/z) show ix 55 sub iy 60 sub moveto (d8y*s/z) show } if TBKL /ku Far k get exec def iln 0 ne {%begin olv or cmy dec and hex fcolors ku get exec /n8 exch def /y8 exch def /m8 exch def /c8 exch def /x ix 18 sub def /y iy 26 sub def x y moveto c8 N6outd /x ix 18 sub def /y iy 40 sub def x y moveto y8 N6outd /x ix 18 sub def /y iy 54 sub def x y moveto m8 N6outd /x ix 18 sub def /y iy 32 sub def arrow x y moveto c8 n8outd /x ix 18 sub def /y iy 46 sub def arrow x y moveto y8 n8outd /x ix 18 sub def /y iy 60 sub def arrow x y moveto m8 n8outd } if %end out olv or cmy dec and hex ix 19 sub iy 19 sub 39 39 fcolors ku get exec outrecfi4 %Farbe-Fuellen je nach Auszug TBIG /kuc cFar k get exec def j 0 eq {ix 7 sub iy 5 sub moveto tFarb i get exec fcolors kuc get exec outshowf} if } for %schleife i /scolors %CMY 5 Sonder-Testfarben Nr. 0 bis 4; Farbkreis-Reihenfolge %NN [ {1.00 1.00 1.00 0.00} {0.75 0.75 0.75 0.00} {0.50 0.50 0.50 0.00} {0.25 0.25 0.25 0.00} {0.00 0.00 0.00 0.00} ] def /iy 063 def 0 1 4 {/i exch def 0.0 0.0 0.0 1.0 setcmyknew %text N TBIK 15 i 1 add 48 mul add 17 add /ix exch def i 0 eq { ix 15 sub iy 25 add moveto (D6CMY*tod8cmy* setcmy*color) show TBKL ix 77 sub iy 18 add moveto (Type / range:) show ix 77 sub iy 12 add moveto (D6CMY*s/z) show ix 75 sub iy 6 add moveto ( 0.388...0.580) show ix 75 sub iy 0 sub moveto (-0.112...0.080) show ix 77 sub iy 6 sub moveto (d8cmy*s/z:) show ix 75 sub iy 12 sub moveto ( 0.000...1.000) show ix 75 sub iy 19 sub moveto (-0.500...0.500) show ix 77 sub iy 26 sub moveto (D6C*s/z) show ix 77 sub iy 40 sub moveto (D6M*s/z) show ix 77 sub iy 54 sub moveto (D6Y*s/z) show ix 77 sub iy 32 sub moveto (d8c*s/z) show ix 77 sub iy 46 sub moveto (d8m*s/z) show ix 77 sub iy 60 sub moveto (d8y*s/z) show } if TBKL iln 0 ne {%begin olv or cmy dec and hex scolors i get exec /n8 exch def /y8 exch def /m8 exch def /c8 exch def /x ix 18 sub def /y iy 26 sub def x y moveto c8 N6outd /x ix 18 sub def /y iy 40 sub def x y moveto m8 N6outd /x ix 18 sub def /y iy 54 sub def x y moveto y8 N6outd /x ix 18 sub def /y iy 32 sub def arrow x y moveto c8 n8outd /x ix 18 sub def /y iy 46 sub def arrow x y moveto m8 n8outd /x ix 18 sub def /y iy 60 sub def arrow x y moveto y8 n8outd } if %end out olv or cmy dec and hex TBIG ix 19 sub iy 19 sub 39 39 scolors i get exec outrecfi4 %Farbe-Fuellen je nach Auszug /kuc cFar 9 i add get exec def ix 06 sub iy 5 sub moveto i 3 lt {fcolors 07 get exec} {fcolors 00 get exec} ifelse setcmyknew tFarb 9 i add get exec dup stringwidth pop 15 exch sub 0.5 mul 0 rmoveto show 4 i eq {ix 19 sub iy 19 sub moveto 39 0 rlineto 0 39 rlineto -39 0 rlineto closepath 0.0 0.0 0.0 1.0 setcmyknew stroke %edge N } if } for %schleife i showpage grestore } for %output with langind end %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 065 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 16 %Zeile 370 %!PS-Adobe-3.0 EPSF-3.0 1x1 E8620-6N.EPS %%BoundingBox: 60 80 226 206 %START PDFDE011.EPS /pdfmark where {pop} {userdict /pdfmark /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: 1x1 E8620-6) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://o2.ps.bam.de or www.ps.bam.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@bam.de) /CreationDate (D:2000010512000) /ModDate (D:2000010512000) /DOCINFO pdfmark [ /View [ /FitB ] /DOCVIEW pdfmark %END PDFDE011 %%Creator: K. Richter, BAM und TU Berlin, 2000.01.04 %%+Copyright (c) 1996 VDE-Verlag Berlin Offenbach % !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 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /TK {250 16.67 div /Times-ISOL1 FS} bind def /TM {300 16.67 div /Times-ISOL1 FS} bind def /TG {350 16.67 div /Times-ISOL1 FS} bind def /TIK {250 16.67 div /TimesI-ISOL1 FS} bind def /TIM {300 16.67 div /TimesI-ISOL1 FS} bind def /TIG {350 16.67 div /TimesI-ISOL1 FS} bind def /TBK {250 16.67 div /TimesB-ISOL1 FS} bind def /TBM {300 16.67 div /TimesB-ISOL1 FS} bind def /TBG {350 16.67 div /TimesB-ISOL1 FS} bind def /TBIK {250 16.67 div /TimesBI-ISOL1 FS} bind def /TBIM {300 16.67 div /TimesBI-ISOL1 FS} bind def /TBIG {350 16.67 div /TimesBI-ISOL1 FS} bind def /proz1 {pop} bind def /proz2 {sqrt} bind def /setgc {pop pop pop 1 exch sub setgray} bind def /setgm {pop pop 1 exch sub setgray pop} bind def /setgy {pop 1 exch sub setgray pop pop} bind def /setgn {1 exch sub setgray pop pop pop} bind def /setgf {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def 0 ccolor eq 0 mcolor eq and 0 ycolor eq and {1 ncolor sub setgray} {1 ccolor sub 0.71 mul 1 mcolor sub 0.22 mul add 1 ycolor sub 0.07 mul add setgray} ifelse } bind def /setsc {075 135 {proz1} setscreen } bind def /setsm {075 090 {proz1} setscreen } bind def /setsy {075 000 {proz1} setscreen } bind def /setsn {075 045 {proz1} setscreen } bind def /setsf {075 135 {proz1} 075 090 {proz1} 075 000 {proz1} 075 045 {proz1} setcolorscreen } bind def /setcmykcolorf {setcmykcolor setsf} bind def %fuer PSL1/2-Farbgeraet %ANFA HALBTON /Halbt { %wrbie:HALBTOA0.eps } bind def %ANFA SETCMYK /setcmyknew { %Ersatz setcolornew durch setcmykcolor1 ausz 1 eq {setgc half 0 eq {setsc} if} if %C ausz 2 eq {setgm half 0 eq {setsm} if} if %M ausz 3 eq {setgy half 0 eq {setsy} if} if %Y ausz 4 eq {pop pop pop /ccolor exch def ccolor 0 0 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgc setsc} %PSL1-SW-Geraet ifelse } if %Cbunt ausz 5 eq {pop pop /mcolor exch def pop 0 mcolor 0 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgm setsm} %PSL1-SW-Geraet ifelse } if %Mbunt ausz 6 eq {pop /ycolor exch def pop pop 0 0 ycolor 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgy setsy} %PSL1-SW-Geraet ifelse } if %Ybunt ausz 7 eq {setgn half 0 eq {setsn} if} if %N ausz 8 ge { /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgf setsn} %PSL1-SW-Geraet ifelse } if %bei ausz=8: Farb- oder SW-Ausdruck je nach Drucker } bind def /fcolors %CMY 32 no. 0 to 31; hue circe row [{1.00 1.00 1.00 0.00} {0.00 1.00 1.00 0.00} {0.00 0.00 1.00 0.00} {1.00 0.00 1.00 0.00} {1.00 0.00 0.00 0.00} {1.00 1.00 0.00 0.00} {0.00 1.00 0.00 0.00} {0.00 0.00 0.00 0.00} {0.50 0.50 0.50 0.00} {0.50 1.00 1.00 0.00} {0.50 0.50 1.00 0.00} {1.00 0.50 1.00 0.00} {1.00 0.50 0.50 0.00} {1.00 1.00 0.50 0.00} {0.50 1.00 0.50 0.00} {0.00 1.00 0.50 0.00} {0.75 0.75 0.75 0.00} {0.00 0.50 0.50 0.00} {0.00 0.00 0.50 0.00} {0.50 0.00 0.50 0.00} {0.50 0.00 0.00 0.00} {0.50 0.50 0.00 0.00} {0.00 0.50 0.00 0.00} {1.00 0.50 0.00 0.00} {0.25 0.25 0.25 0.00} {0.00 0.50 1.00 0.00} {0.50 0.00 1.00 0.00} {1.00 0.00 0.50 0.00} {1.00 0.50 0.00 0.00} {0.50 1.00 0.00 0.00} {0.00 1.00 0.50 0.00} {1.00 0.00 0.50 0.00} ] def /fak 0.5 def /Far %Farbkreis-Reihenfolge [ 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %R 16 17 18 19 20 21 22 23 %B 24 25 26 27 28 29 30 31 %G ] def /cFar %Kompensativ-Farbkreis-Reihenfolge [ 8 4 5 6 1 2 3 0 0 20 21 22 17 18 19 31 %G 24 12 13 14 9 10 11 2 %J 16 28 29 30 25 26 27 15 %R ] def /Btx %Farbkreis- -> %Btx-Reihenfolge [ 0 1 3 2 5 6 4 7 8 9 11 10 13 14 12 15 %R 16 17 19 18 21 22 20 23 %B 24 25 26 27 28 29 30 31 %G ] def /cBtx %Farbkreis- -> %Kompensativ-Btx-Reihenfolge [ 7 4 6 5 2 3 1 0 8 20 22 21 18 19 17 31 %G 24 12 14 13 10 11 9 2 %J 16 25 26 27 28 29 30 15 %R ] def /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfi %x y width heigth c m y k {setcmyknew rec fill} bind def /colrecst %x y width heigth c m y k {setcmyknew rec stroke} bind def /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmyknew} bind def /tfl {tzl setcmyknew} bind def /tfv {tzv setcmyknew} bind def /tfc {tzc setcmyknew} bind def /tfm {tzm setcmyknew} bind def /tfy {tzy setcmyknew} bind def /tfn {tzn setcmyknew} bind def /tfd {tzd setcmyknew} bind def /tfz {tzz setcmyknew} bind def /tfh {tzh setcmyknew} bind def /tfw {tzw setcmyknew} bind def /tfr {tzr setcmyknew} bind def /tfg {tzg setcmyknew} bind def /tfb {tzb setcmyknew} bind def /tfj {tzj setcmyknew} bind def /tfrz {tzrz setcmyknew} bind def /tfgz {tzgz setcmyknew} bind def /tfbz {tzbz setcmyknew} bind def /tfjz {tzjz setcmyknew} bind def %ANFA OUTLIN00 951204 /pixf 1.0 def /ueg 1 pixf mul def /uek 1 pixf mul def /ues 1 pixf mul def /pxd uek def /pyd uek def /pxwd ueg def /pywd ueg def /pss ues def /outxshowf {show} bind def /outxshow {show} bind def /outSK {250 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSM {300 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSG {350 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outshowf {setcmyknew show} bind def /outrecfi { %x y width heigth c m y k setcmyknew rec fill} bind def /outrecfi4 { %x y width heigth c m y k outrecfi} bind def /outrecfi3 { %x y width heigth c m y k outrecfi} bind def /outrecfi2 { %x y width heigth c m y k outrecfi} bind def /outlinetos { %px py c m y k setcmyknew lineto stroke} bind def /outstroke { %px1 py1 curveto ... curveto c m y k setcmyknew stroke} bind def %%EndProlog gsave %LANINDL2 START 20000505 /lanind 0 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /popde {0 lanind ne {pop} if} bind def /popen {1 lanind ne {pop} if} bind def /popes {2 lanind ne {pop} if} bind def /popfr {3 lanind ne {pop} if} bind def /popit {4 lanind ne {pop} if} bind def /popjp {5 lanind ne {pop} if} bind def /popm {6 lanind ne {pop} if} bind def /popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def /popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def /popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def /popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def /popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def /popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def /popxm {/n exch def 6 lanind ne {n {pop} repeat} if} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave %LANINDL2 END %{proz2} settransfer 8 /Times-Roman FS 72 83 moveto ( E8620-6, ) show 8 /Times-ISOL1 FS (Digitaldaten D6/8bit WGcode) popde %08620-6 1 (Digital data D6/8bit WGcode) popen %18620-6 1 (Digital data D6/8bit WGcode) popes %28620-6 1 (Digital data D6/8bit WGcode) popfr %38620-6 1 (Digital data D6/8bit WGcode) popit %48620-6 1 (Digital data D6/8bit WGcode) popjp %58620-6 1 show 8 /TimesI-ISOL1 FS ( CMY*) show 72 90 translate /pixf 1.0 def 0.1667 pixf div MM dup scale /ausz 8 def /half 0 def Halbt %Farbauszug 1=C, 2=M, 3=Y, 7=N, 8=F %/setcmyknew {/n exch def /y exch def /m exch def /c exch def % 1 c sub 1 m sub 1 y sub setrgbcolor} def 0 0 320 240 0.0 0.0 0.0 0.0 colrecfi %rectangle W 0.0 0.0 0.0 1.0 setcmyknew %text N 0 0 moveto 320 0 rlineto 0 240 rlineto -320 0 rlineto closepath stroke TBIG %Schrift Times-Bold-Gross-Italic 02 223 moveto (N\255W: ) show TBG %Schrift Times-Bold-Gross (D6CMY*s/z, d8cmy*i/h) show 45 103 moveto (unbunte Hauptfarben) showde %08620-6 2 (achromatic basic colors) showen %18620-6 2 (Colores acrom\341ticos b\341sicos) showes %28620-6 2 (achromatic basic colors) showfr %38620-6 2 (achromatic basic colors) showit %48620-6 2 (achromatic basic colors) showjp %58620-6 2 /iln 1 def /j 0 def /iy 180 def /solvfcols %Sonder-Farbkreis-Reihenfolge Nr. 0 bis 5; %N&W [ (111*) (222*) (555*) (999*) (DDD*) (EEE*) ] def /scolors %CMYN 5 Sonder-Testfarben Nr. 0 bis 5; Farbkreis-Reihenfolge %NN [ {0.0 0.0 0.0 0.923} {0.0 0.0 0.0 0.870} {0.0 0.0 0.0 0.630} {0.0 0.0 0.0 0.333} {0.0 0.0 0.0 0.130} {0.0 0.0 0.0 0.067}] def /tBtxz %textBtx-Reihenfolge [(0) (1) (2) (3) (4) (5) (6) (7) (0) (0) () (8) () (7) () ()] def /tFarb %textFar-Reihenfolge [(N) (O) (Y) (L) (C) (V) (M) (W) (Z) (N) (D) (Z) (H) (W) () () ] def %output as integer and 0 to 3 digits /cvishow {0.5 add cvi %new980310 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 %new980310 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 %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 6 string cvs show} def /cvsshow3 {dup 1000 mul 0.1 add round cvi 0.001 mul 6 string cvs show (, ) show x 20 add y moveto 1000 mul 500 sub 0.1 add round cvi 0.001 mul 8 string cvs show } def /temp 12 string def /arrow {x 6 sub y moveto (->) show} bind def /r4outh {%begin 4bit round print hex 15 mul 0.26 sub round cvi dup 10 temp cvrs show (, ) show 16 temp cvrs show } bind def %end 4bit round print /r4outd {%begin decimal 0..1 print cvsshow3 } bind def %end 4bit round print /r8outh {%begin 8bit round print hex 255 mul 0.26 sub round cvi dup 10 temp cvrs show ( / ) show dup 16 le {(0) show} if 16 temp cvrs show } bind def %end 8bit round print /r8outd {%begin decimal 0..1 print cvsshow3 } bind def %end 8bit round print /N4outh {%begin printpout dec, hex 4 bit 0.77 mul 0.05 add r4outh } bind def %end printpout dec, hex 4 bit /n4outh {%begin printpout dec, hex 4 bit r4outh } bind def %end printpout dec, hex 4 bit /N4outd {%begin printpout dec, hex 4 bit 0.77 mul 0.05 add r4outd } bind def %end printpout dec, hex 4 bit /n4outd {%begin printpout dec, hex 4 bit r4outd } bind def %end printpout dec, hex 4 bit /N6outh {%begin printpout dec, hex 6 bit 0.77 mul 0.05 add 0.5 sub 0.25 mul 0.5 add r8outh } bind def %end printpout dec, hex 6 bit /n6outh {%begin printpout dec, hex 6 bit 0.5 sub 0.25 mul 0.5 add r8outh } bind def %end printpout dec, hex 6 bit /N6outd {%begin printpout dec, hex 6 bit 0.77 mul 0.05 add 0.5 sub 0.25 mul 0.5 add r8outd } bind def %end printpout dec, hex 6 bit /n6outd {%begin printpout dec, hex 6 bit 0.5 sub 0.25 mul 0.5 add r8outd } bind def %end printpout dec, hex 6 bit /N7outh {%begin printpout dec, hex 7 bit 0.77 mul 0.05 add 0.5 sub 0.50 mul 0.5 add r8outh } bind def %end printpout dec, hex 7 bit /n7outh {%begin printpout dec, hex 7 bit 0.5 sub 0.50 mul 0.5 add r8outh } bind def %end printpout dec, hex 7 bit /N7outd {%begin printpout dec, hex 7 bit 0.77 mul 0.05 add 0.5 sub 0.50 mul 0.5 add r8outd } bind def %end printpout dec, hex 7 bit /n7outd {%begin printpout dec, hex 7 bit 0.5 sub 0.50 mul 0.5 add r8outd } bind def %end printpout dec, hex 7 bit /N8outh {%begin printpout dec, hex 8 bit 0.77 mul 0.05 add r8outh } bind def %end printpout dec, hex 8 bit /n8outh {%begin printpout dec, hex 8 bit r8outh } bind def %end printpout dec, hex 8 bit /N8outd {%begin printpout dec, hex 8 bit 0.77 mul 0.05 add r8outd } bind def %end printpout dec, hex 8 bit /n8outd {%begin printpout dec, hex 8 bit r8outd } bind def %end printpout dec, hex 8 bit /nc100out {%begin printpout dec, hex CIE 100 steps 0.5 sub 100 255 div mul 0.5 add r8outd } bind def %end printpout dec, hex CIE 100 steps /Nc100out {%begin printpout dec, hex CIE 100 steps 0.77 mul 0.05 add 0.5 sub 100 255 div mul 0.5 add r8outd } bind def %end printpout dec, hex CIE 100 steps /nc077out {%begin printpout dec, hex CIE 077 steps 0.5 sub 077 255 div mul 0.5 add r8outd } bind def %end printpout dec, hex CIE 077 steps /Nc077out {%begin printpout dec, hex CIE 077 steps 0.77 mul 0.05 add 0.5 sub 077 255 div mul 0.5 add r8outd } bind def %end printpout dec, hex CIE 077 steps /TBKK {200 16.67 div /Times-Bold FS} bind def /TBKL {100 16.67 div /Times-Bold FS} bind def /j 0 def 1 1 6 {/i exch def TBM i j 8 mul add /k exch def -08 i 48 mul add 17 add /ix exch def 183 j 120 mul sub /iy exch def 0.0 0.0 0.0 1.0 setcmyknew %text N TBIK i 1 eq { ix 15 sub iy 25 add moveto (D6CMY*tod8cmy* setcmy*color) show TBKL ix 55 sub iy 18 add moveto (Type / range:) show ix 55 sub iy 12 add moveto (D6CMY*s/z) show ix 53 sub iy 6 add moveto ( 0.388...0.580) show ix 53 sub iy 0 sub moveto (-0.112...0.080) show ix 55 sub iy 6 sub moveto (d8cmy*i/h:) show ix 53 sub iy 12 sub moveto (0...255) show ix 53 sub iy 19 sub moveto (00...FF) show ix 55 sub iy 26 sub moveto (D6C*s/z) show ix 55 sub iy 40 sub moveto (D6M*s/z) show ix 55 sub iy 54 sub moveto (D6Y*s/z) show ix 55 sub iy 32 sub moveto (d8c*i/h) show ix 55 sub iy 46 sub moveto (d8m*i/h) show ix 55 sub iy 60 sub moveto (d8y*i/h) show } if TBKL /ku Far k get exec def iln 0 ne {%begin olv or cmy dec and hex fcolors ku get exec /n8 exch def /y8 exch def /m8 exch def /c8 exch def /x ix 18 sub def /y iy 26 sub def x y moveto c8 N6outd /x ix 18 sub def /y iy 40 sub def x y moveto y8 N6outd /x ix 18 sub def /y iy 54 sub def x y moveto m8 N6outd /x ix 18 sub def /y iy 32 sub def arrow x y moveto c8 n8outh /x ix 18 sub def /y iy 46 sub def arrow x y moveto y8 n8outh /x ix 18 sub def /y iy 60 sub def arrow x y moveto m8 n8outh } if %end out olv or cmy dec and hex ix 19 sub iy 19 sub 39 39 fcolors ku get exec outrecfi4 %Farbe-Fuellen je nach Auszug TBIG /kuc cFar k get exec def j 0 eq {ix 7 sub iy 5 sub moveto tFarb i get exec fcolors kuc get exec outshowf} if } for %schleife i /scolors %CMY 5 Sonder-Testfarben Nr. 0 bis 4; Farbkreis-Reihenfolge %NN [ {1.00 1.00 1.00 0.00} {0.75 0.75 0.75 0.00} {0.50 0.50 0.50 0.00} {0.25 0.25 0.25 0.00} {0.00 0.00 0.00 0.00} ] def /iy 063 def 0 1 4 {/i exch def 0.0 0.0 0.0 1.0 setcmyknew %text N TBIK 15 i 1 add 48 mul add 17 add /ix exch def i 0 eq { ix 15 sub iy 25 add moveto (D6CMY*tod8cmy* setcmy*color) show TBKL ix 77 sub iy 18 add moveto (Type / range:) show ix 77 sub iy 12 add moveto (D6CMY*s/z) show ix 75 sub iy 6 add moveto ( 0.388...0.580) show ix 75 sub iy 0 sub moveto (-0.112...0.080) show ix 77 sub iy 6 sub moveto (d8cmy*i/h:) show ix 75 sub iy 12 sub moveto (0...255) show ix 75 sub iy 19 sub moveto (00...FF) show ix 77 sub iy 26 sub moveto (D6C*s/z) show ix 77 sub iy 40 sub moveto (D6M*s/z) show ix 77 sub iy 54 sub moveto (D6Y*s/z) show ix 77 sub iy 32 sub moveto (d8c*i/h) show ix 77 sub iy 46 sub moveto (d8m*i/h) show ix 77 sub iy 60 sub moveto (d8y*i/h) show } if TBKL iln 0 ne {%begin olv or cmy dec and hex scolors i get exec /n8 exch def /y8 exch def /m8 exch def /c8 exch def /x ix 18 sub def /y iy 26 sub def x y moveto c8 N6outd /x ix 18 sub def /y iy 40 sub def x y moveto m8 N6outd /x ix 18 sub def /y iy 54 sub def x y moveto y8 N6outd /x ix 18 sub def /y iy 32 sub def arrow x y moveto c8 n8outh /x ix 18 sub def /y iy 46 sub def arrow x y moveto m8 n8outh /x ix 18 sub def /y iy 60 sub def arrow x y moveto y8 n8outh } if %end out olv or cmy dec and hex TBIG ix 19 sub iy 19 sub 39 39 scolors i get exec outrecfi4 %Farbe-Fuellen je nach Auszug /kuc cFar 9 i add get exec def ix 06 sub iy 5 sub moveto i 3 lt {fcolors 07 get exec} {fcolors 00 get exec} ifelse setcmyknew tFarb 9 i add get exec dup stringwidth pop 15 exch sub 0.5 mul 0 rmoveto show 4 i eq {ix 19 sub iy 19 sub moveto 39 0 rlineto 0 39 rlineto -39 0 rlineto closepath 0.0 0.0 0.0 1.0 setcmyknew stroke %edge N } if } for %schleife i showpage grestore } for %output with langind end %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 28 MM 021 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 17 %Zeile 380 %!PS-Adobe-3.0 EPSF-3.0 1x1 E8620-7N.EPS %%BoundingBox: 60 80 226 206 %START PDFDE011.EPS /pdfmark where {pop} {userdict /pdfmark /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: 1x1 E8620-7) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://o2.ps.bam.de or www.ps.bam.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@bam.de) /CreationDate (D:2000010512000) /ModDate (D:2000010512000) /DOCINFO pdfmark [ /View [ /FitB ] /DOCVIEW pdfmark %END PDFDE011 %%Creator: K. Richter, BAM und TU Berlin, 2000.01.04 %%+Copyright (c) 1996 VDE-Verlag Berlin Offenbach % !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 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /TK {250 16.67 div /Times-ISOL1 FS} bind def /TM {300 16.67 div /Times-ISOL1 FS} bind def /TG {350 16.67 div /Times-ISOL1 FS} bind def /TIK {250 16.67 div /TimesI-ISOL1 FS} bind def /TIM {300 16.67 div /TimesI-ISOL1 FS} bind def /TIG {350 16.67 div /TimesI-ISOL1 FS} bind def /TBK {250 16.67 div /TimesB-ISOL1 FS} bind def /TBM {300 16.67 div /TimesB-ISOL1 FS} bind def /TBG {350 16.67 div /TimesB-ISOL1 FS} bind def /TBIK {250 16.67 div /TimesBI-ISOL1 FS} bind def /TBIM {300 16.67 div /TimesBI-ISOL1 FS} bind def /TBIG {350 16.67 div /TimesBI-ISOL1 FS} bind def /proz1 {pop} bind def /proz2 {sqrt} bind def /setgc {pop pop pop 1 exch sub setgray} bind def /setgm {pop pop 1 exch sub setgray pop} bind def /setgy {pop 1 exch sub setgray pop pop} bind def /setgn {1 exch sub setgray pop pop pop} bind def /setgf {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def 0 ccolor eq 0 mcolor eq and 0 ycolor eq and {1 ncolor sub setgray} {1 ccolor sub 0.71 mul 1 mcolor sub 0.22 mul add 1 ycolor sub 0.07 mul add setgray} ifelse } bind def /setsc {075 135 {proz1} setscreen } bind def /setsm {075 090 {proz1} setscreen } bind def /setsy {075 000 {proz1} setscreen } bind def /setsn {075 045 {proz1} setscreen } bind def /setsf {075 135 {proz1} 075 090 {proz1} 075 000 {proz1} 075 045 {proz1} setcolorscreen } bind def /setcmykcolorf {setcmykcolor setsf} bind def %fuer PSL1/2-Farbgeraet %ANFA HALBTON /Halbt { %wrbie:HALBTOA0.eps } bind def %ANFA SETCMYK /setcmyknew { %Ersatz setcolornew durch setcmykcolor1 ausz 1 eq {setgc half 0 eq {setsc} if} if %C ausz 2 eq {setgm half 0 eq {setsm} if} if %M ausz 3 eq {setgy half 0 eq {setsy} if} if %Y ausz 4 eq {pop pop pop /ccolor exch def ccolor 0 0 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgc setsc} %PSL1-SW-Geraet ifelse } if %Cbunt ausz 5 eq {pop pop /mcolor exch def pop 0 mcolor 0 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgm setsm} %PSL1-SW-Geraet ifelse } if %Mbunt ausz 6 eq {pop /ycolor exch def pop pop 0 0 ycolor 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgy setsy} %PSL1-SW-Geraet ifelse } if %Ybunt ausz 7 eq {setgn half 0 eq {setsn} if} if %N ausz 8 ge { /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgf setsn} %PSL1-SW-Geraet ifelse } if %bei ausz=8: Farb- oder SW-Ausdruck je nach Drucker } bind def /fcolors %CMY 32 no. 0 to 31; hue circe row [{1.00 1.00 1.00 0.00} {0.00 1.00 1.00 0.00} {0.00 0.00 1.00 0.00} {1.00 0.00 1.00 0.00} {1.00 0.00 0.00 0.00} {1.00 1.00 0.00 0.00} {0.00 1.00 0.00 0.00} {0.00 0.00 0.00 0.00} {0.50 0.50 0.50 0.00} {0.50 1.00 1.00 0.00} {0.50 0.50 1.00 0.00} {1.00 0.50 1.00 0.00} {1.00 0.50 0.50 0.00} {1.00 1.00 0.50 0.00} {0.50 1.00 0.50 0.00} {0.00 1.00 0.50 0.00} {0.75 0.75 0.75 0.00} {0.00 0.50 0.50 0.00} {0.00 0.00 0.50 0.00} {0.50 0.00 0.50 0.00} {0.50 0.00 0.00 0.00} {0.50 0.50 0.00 0.00} {0.00 0.50 0.00 0.00} {1.00 0.50 0.00 0.00} {0.25 0.25 0.25 0.00} {0.00 0.50 1.00 0.00} {0.50 0.00 1.00 0.00} {1.00 0.00 0.50 0.00} {1.00 0.50 0.00 0.00} {0.50 1.00 0.00 0.00} {0.00 1.00 0.50 0.00} {1.00 0.00 0.50 0.00} ] def /fak 0.5 def /Far %Farbkreis-Reihenfolge [ 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %R 16 17 18 19 20 21 22 23 %B 24 25 26 27 28 29 30 31 %G ] def /cFar %Kompensativ-Farbkreis-Reihenfolge [ 8 4 5 6 1 2 3 0 0 20 21 22 17 18 19 31 %G 24 12 13 14 9 10 11 2 %J 16 28 29 30 25 26 27 15 %R ] def /Btx %Farbkreis- -> %Btx-Reihenfolge [ 0 1 3 2 5 6 4 7 8 9 11 10 13 14 12 15 %R 16 17 19 18 21 22 20 23 %B 24 25 26 27 28 29 30 31 %G ] def /cBtx %Farbkreis- -> %Kompensativ-Btx-Reihenfolge [ 7 4 6 5 2 3 1 0 8 20 22 21 18 19 17 31 %G 24 12 14 13 10 11 9 2 %J 16 25 26 27 28 29 30 15 %R ] def /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfi %x y width heigth c m y k {setcmyknew rec fill} bind def /colrecst %x y width heigth c m y k {setcmyknew rec stroke} bind def /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmyknew} bind def /tfl {tzl setcmyknew} bind def /tfv {tzv setcmyknew} bind def /tfc {tzc setcmyknew} bind def /tfm {tzm setcmyknew} bind def /tfy {tzy setcmyknew} bind def /tfn {tzn setcmyknew} bind def /tfd {tzd setcmyknew} bind def /tfz {tzz setcmyknew} bind def /tfh {tzh setcmyknew} bind def /tfw {tzw setcmyknew} bind def /tfr {tzr setcmyknew} bind def /tfg {tzg setcmyknew} bind def /tfb {tzb setcmyknew} bind def /tfj {tzj setcmyknew} bind def /tfrz {tzrz setcmyknew} bind def /tfgz {tzgz setcmyknew} bind def /tfbz {tzbz setcmyknew} bind def /tfjz {tzjz setcmyknew} bind def %ANFA OUTLIN00 951204 /pixf 1.0 def /ueg 1 pixf mul def /uek 1 pixf mul def /ues 1 pixf mul def /pxd uek def /pyd uek def /pxwd ueg def /pywd ueg def /pss ues def /outxshowf {show} bind def /outxshow {show} bind def /outSK {250 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSM {300 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSG {350 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outshowf {setcmyknew show} bind def /outrecfi { %x y width heigth c m y k setcmyknew rec fill} bind def /outrecfi4 { %x y width heigth c m y k outrecfi} bind def /outrecfi3 { %x y width heigth c m y k outrecfi} bind def /outrecfi2 { %x y width heigth c m y k outrecfi} bind def /outlinetos { %px py c m y k setcmyknew lineto stroke} bind def /outstroke { %px1 py1 curveto ... curveto c m y k setcmyknew stroke} bind def %%EndProlog gsave %LANINDL2 START 20000505 /lanind 0 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /popde {0 lanind ne {pop} if} bind def /popen {1 lanind ne {pop} if} bind def /popes {2 lanind ne {pop} if} bind def /popfr {3 lanind ne {pop} if} bind def /popit {4 lanind ne {pop} if} bind def /popjp {5 lanind ne {pop} if} bind def /popm {6 lanind ne {pop} if} bind def /popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def /popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def /popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def /popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def /popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def /popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def /popxm {/n exch def 6 lanind ne {n {pop} repeat} if} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave %LANINDL2 END %{proz2} settransfer 8 /Times-Roman FS 72 83 moveto ( E8620-7, ) show 8 /Times-ISOL1 FS (Digitaldaten D8/8bit SGcode) popde %08620-7 1 (Digital data D8/8bit SGcode) popen %18620-7 1 (Digital data D8/8bit SGcode) popes %28620-7 1 (Digital data D8/8bit SGcode) popfr %38620-7 1 (Digital data D8/8bit SGcode) popit %48620-7 1 (Digital data D8/8bit SGcode) popjp %58620-7 1 show 8 /TimesI-ISOL1 FS ( CMY*) show 72 90 translate /pixf 1.0 def 0.1667 pixf div MM dup scale /ausz 8 def /half 0 def Halbt %Farbauszug 1=C, 2=M, 3=Y, 7=N, 8=F %/setcmyknew {/n exch def /y exch def /m exch def /c exch def % 1 c sub 1 m sub 1 y sub setrgbcolor} def 0 0 320 240 0.0 0.0 0.0 0.0 colrecfi %rectangle W 0.0 0.0 0.0 1.0 setcmyknew %text N 0 0 moveto 320 0 rlineto 0 240 rlineto -320 0 rlineto closepath stroke TBIG %Schrift Times-Bold-Gross-Italic 02 223 moveto (N\255W: ) show TBG %Schrift Times-Bold-Gross (d8cmy*s/z, D8CMY*s/z) show 45 103 moveto (unbunte Hauptfarben) showde %08620-7 2 (achromatic basic colors) showen %18620-7 2 (Colores acrom\341ticos b\341sicos) showes %28620-7 2 (achromatic basic colors) showfr %38620-7 2 (achromatic basic colors) showit %48620-7 2 (achromatic basic colors) showjp %58620-7 2 /iln 1 def /j 0 def /iy 180 def /solvfcols %Sonder-Farbkreis-Reihenfolge Nr. 0 bis 5; %N&W [ (111*) (222*) (555*) (999*) (DDD*) (EEE*) ] def /scolors %CMYN 5 Sonder-Testfarben Nr. 0 bis 5; Farbkreis-Reihenfolge %NN [ {0.0 0.0 0.0 0.923} {0.0 0.0 0.0 0.870} {0.0 0.0 0.0 0.630} {0.0 0.0 0.0 0.333} {0.0 0.0 0.0 0.130} {0.0 0.0 0.0 0.067}] def /tBtxz %textBtx-Reihenfolge [(0) (1) (2) (3) (4) (5) (6) (7) (0) (0) () (8) () (7) () ()] def /tFarb %textFar-Reihenfolge [(N) (O) (Y) (L) (C) (V) (M) (W) (Z) (N) (D) (Z) (H) (W) () () ] def %output as integer and 0 to 3 digits /cvishow {0.5 add cvi %new980310 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 %new980310 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 %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 6 string cvs show} def /cvsshow3 {dup 1000 mul 0.1 add round cvi 0.001 mul 6 string cvs show (, ) show x 20 add y moveto 1000 mul 500 sub 0.1 add round cvi 0.001 mul 8 string cvs show } def /temp 12 string def /arrow {x 6 sub y moveto (->) show} bind def /r4outh {%begin 4bit round print hex 15 mul 0.26 sub round cvi dup 10 temp cvrs show (, ) show 16 temp cvrs show } bind def %end 4bit round print /r4outd {%begin decimal 0..1 print cvsshow3 } bind def %end 4bit round print /r8outh {%begin 8bit round print hex 255 mul 0.26 sub round cvi dup 10 temp cvrs show ( / ) show dup 16 le {(0) show} if 16 temp cvrs show } bind def %end 8bit round print /r8outd {%begin decimal 0..1 print cvsshow3 } bind def %end 8bit round print /N4outh {%begin printpout dec, hex 4 bit 0.77 mul 0.05 add r4outh } bind def %end printpout dec, hex 4 bit /n4outh {%begin printpout dec, hex 4 bit r4outh } bind def %end printpout dec, hex 4 bit /N4outd {%begin printpout dec, hex 4 bit 0.77 mul 0.05 add r4outd } bind def %end printpout dec, hex 4 bit /n4outd {%begin printpout dec, hex 4 bit r4outd } bind def %end printpout dec, hex 4 bit /N6outh {%begin printpout dec, hex 6 bit 0.77 mul 0.05 add 0.5 sub 0.25 mul 0.5 add r8outh } bind def %end printpout dec, hex 6 bit /n6outh {%begin printpout dec, hex 6 bit 0.5 sub 0.25 mul 0.5 add r8outh } bind def %end printpout dec, hex 6 bit /N6outd {%begin printpout dec, hex 6 bit 0.77 mul 0.05 add 0.5 sub 0.25 mul 0.5 add r8outd } bind def %end printpout dec, hex 6 bit /n6outd {%begin printpout dec, hex 6 bit 0.5 sub 0.25 mul 0.5 add r8outd } bind def %end printpout dec, hex 6 bit /N7outh {%begin printpout dec, hex 7 bit 0.77 mul 0.05 add 0.5 sub 0.50 mul 0.5 add r8outh } bind def %end printpout dec, hex 7 bit /n7outh {%begin printpout dec, hex 7 bit 0.5 sub 0.50 mul 0.5 add r8outh } bind def %end printpout dec, hex 7 bit /N7outd {%begin printpout dec, hex 7 bit 0.77 mul 0.05 add 0.5 sub 0.50 mul 0.5 add r8outd } bind def %end printpout dec, hex 7 bit /n7outd {%begin printpout dec, hex 7 bit 0.5 sub 0.50 mul 0.5 add r8outd } bind def %end printpout dec, hex 7 bit /N8outh {%begin printpout dec, hex 8 bit 0.77 mul 0.05 add r8outh } bind def %end printpout dec, hex 8 bit /n8outh {%begin printpout dec, hex 8 bit r8outh } bind def %end printpout dec, hex 8 bit /N8outd {%begin printpout dec, hex 8 bit 0.77 mul 0.05 add r8outd } bind def %end printpout dec, hex 8 bit /n8outd {%begin printpout dec, hex 8 bit r8outd } bind def %end printpout dec, hex 8 bit /nc100out {%begin printpout dec, hex CIE 100 steps 0.5 sub 100 255 div mul 0.5 add r8outd } bind def %end printpout dec, hex CIE 100 steps /Nc100out {%begin printpout dec, hex CIE 100 steps 0.77 mul 0.05 add 0.5 sub 100 255 div mul 0.5 add r8outd } bind def %end printpout dec, hex CIE 100 steps /nc077out {%begin printpout dec, hex CIE 077 steps 0.5 sub 077 255 div mul 0.5 add r8outd } bind def %end printpout dec, hex CIE 077 steps /Nc077out {%begin printpout dec, hex CIE 077 steps 0.77 mul 0.05 add 0.5 sub 077 255 div mul 0.5 add r8outd } bind def %end printpout dec, hex CIE 077 steps /TBKK {200 16.67 div /Times-Bold FS} bind def /TBKL {100 16.67 div /Times-Bold FS} bind def /j 0 def 1 1 6 {/i exch def TBM i j 8 mul add /k exch def -08 i 48 mul add 17 add /ix exch def 183 j 120 mul sub /iy exch def 0.0 0.0 0.0 1.0 setcmyknew %text N TBIK i 1 eq { ix 15 sub iy 25 add moveto (setcmy*color) show TBKL ix 55 sub iy 18 add moveto (Type / range:) show ix 55 sub iy 12 add moveto (d8cmy*s/z) show ix 53 sub iy 6 add moveto ( 0.000...1.000) show ix 53 sub iy 0 sub moveto (-0.500...0.500) show ix 55 sub iy 6 sub moveto (D8CMY*s/z:) show ix 53 sub iy 12 sub moveto ( 0.050...0.820) show ix 53 sub iy 19 sub moveto (-0.450...0.320) show ix 55 sub iy 26 sub moveto (d8c*s/z) show ix 55 sub iy 40 sub moveto (d8m*s/z) show ix 55 sub iy 54 sub moveto (d8y*s/z) show ix 55 sub iy 32 sub moveto (D8C*s/z) show ix 55 sub iy 46 sub moveto (D8M*s/z) show ix 55 sub iy 60 sub moveto (D8Y*s/z) show } if TBKL /ku Far k get exec def iln 0 ne {%begin olv or cmy dec and hex fcolors ku get exec /n8 exch def /y8 exch def /m8 exch def /c8 exch def /x ix 18 sub def /y iy 26 sub def x y moveto c8 n8outd /x ix 18 sub def /y iy 40 sub def x y moveto y8 n8outd /x ix 18 sub def /y iy 54 sub def x y moveto m8 n8outd /x ix 18 sub def /y iy 32 sub def arrow x y moveto c8 N8outd /x ix 18 sub def /y iy 46 sub def arrow x y moveto y8 N8outd /x ix 18 sub def /y iy 60 sub def arrow x y moveto m8 N8outd } if %end out olv or cmy dec and hex ix 19 sub iy 19 sub 39 39 fcolors ku get exec outrecfi4 %Farbe-Fuellen je nach Auszug TBIG /kuc cFar k get exec def j 0 eq {ix 7 sub iy 5 sub moveto tFarb i get exec fcolors kuc get exec outshowf} if } for %schleife i /scolors %CMY 5 Sonder-Testfarben Nr. 0 bis 4; Farbkreis-Reihenfolge %NN [ {1.00 1.00 1.00 0.00} {0.75 0.75 0.75 0.00} {0.50 0.50 0.50 0.00} {0.25 0.25 0.25 0.00} {0.00 0.00 0.00 0.00} ] def /iy 063 def 0 1 4 {/i exch def 0.0 0.0 0.0 1.0 setcmyknew %text N TBIK 15 i 1 add 48 mul add 17 add /ix exch def i 0 eq { ix 15 sub iy 25 add moveto (setcmy*color) show TBKL ix 77 sub iy 18 add moveto (Type / range:) show ix 77 sub iy 12 add moveto (d8cmy*s/z) show ix 75 sub iy 6 add moveto ( 0.000...1.000) show ix 75 sub iy 0 sub moveto (-0.500...0.500) show ix 77 sub iy 6 sub moveto (D8CMY*s/z:) show ix 75 sub iy 12 sub moveto ( 0.050...0.820) show ix 75 sub iy 19 sub moveto (-0.450...0.320) show ix 77 sub iy 26 sub moveto (d8c*s/z) show ix 77 sub iy 40 sub moveto (d8m*s/z) show ix 77 sub iy 54 sub moveto (d8y*s/z) show ix 77 sub iy 32 sub moveto (D8C*s/z) show ix 77 sub iy 46 sub moveto (D8M*s/z) show ix 77 sub iy 60 sub moveto (D8Y*s/z) show } if TBKL iln 0 ne {%begin olv or cmy dec and hex scolors i get exec /n8 exch def /y8 exch def /m8 exch def /c8 exch def /x ix 18 sub def /y iy 26 sub def x y moveto c8 n8outd /x ix 18 sub def /y iy 40 sub def x y moveto m8 n8outd /x ix 18 sub def /y iy 54 sub def x y moveto y8 n8outd /x ix 18 sub def /y iy 32 sub def arrow x y moveto c8 N8outd /x ix 18 sub def /y iy 46 sub def arrow x y moveto m8 N8outd /x ix 18 sub def /y iy 60 sub def arrow x y moveto y8 N8outd } if %end out olv or cmy dec and hex TBIG ix 19 sub iy 19 sub 39 39 scolors i get exec outrecfi4 %Farbe-Fuellen je nach Auszug /kuc cFar 9 i add get exec def ix 06 sub iy 5 sub moveto i 3 lt {fcolors 07 get exec} {fcolors 00 get exec} ifelse setcmyknew tFarb 9 i add get exec dup stringwidth pop 15 exch sub 0.5 mul 0 rmoveto show 4 i eq {ix 19 sub iy 19 sub moveto 39 0 rlineto 0 39 rlineto -39 0 rlineto closepath 0.0 0.0 0.0 1.0 setcmyknew stroke %edge N } if } for %schleife i showpage grestore } for %output with langind end %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 021 MM translate 12 /Times-ISOL1 FS -9 MM -7 MM moveto ( ) show 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 18 %Zeile 390 %!PS-Adobe-3.0 EPSF-3.0 1x1 E8620-8N.EPS %%BoundingBox: 60 80 226 206 %START PDFDE011.EPS /pdfmark where {pop} {userdict /pdfmark /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: 1x1 E8620-8) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://o2.ps.bam.de or www.ps.bam.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@bam.de) /CreationDate (D:2000010512000) /ModDate (D:2000010512000) /DOCINFO pdfmark [ /View [ /FitB ] /DOCVIEW pdfmark %END PDFDE011 %%Creator: K. Richter, BAM und TU Berlin, 2000.01.04 %%+Copyright (c) 1996 VDE-Verlag Berlin Offenbach % !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 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /TK {250 16.67 div /Times-ISOL1 FS} bind def /TM {300 16.67 div /Times-ISOL1 FS} bind def /TG {350 16.67 div /Times-ISOL1 FS} bind def /TIK {250 16.67 div /TimesI-ISOL1 FS} bind def /TIM {300 16.67 div /TimesI-ISOL1 FS} bind def /TIG {350 16.67 div /TimesI-ISOL1 FS} bind def /TBK {250 16.67 div /TimesB-ISOL1 FS} bind def /TBM {300 16.67 div /TimesB-ISOL1 FS} bind def /TBG {350 16.67 div /TimesB-ISOL1 FS} bind def /TBIK {250 16.67 div /TimesBI-ISOL1 FS} bind def /TBIM {300 16.67 div /TimesBI-ISOL1 FS} bind def /TBIG {350 16.67 div /TimesBI-ISOL1 FS} bind def /proz1 {pop} bind def /proz2 {sqrt} bind def /setgc {pop pop pop 1 exch sub setgray} bind def /setgm {pop pop 1 exch sub setgray pop} bind def /setgy {pop 1 exch sub setgray pop pop} bind def /setgn {1 exch sub setgray pop pop pop} bind def /setgf {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def 0 ccolor eq 0 mcolor eq and 0 ycolor eq and {1 ncolor sub setgray} {1 ccolor sub 0.71 mul 1 mcolor sub 0.22 mul add 1 ycolor sub 0.07 mul add setgray} ifelse } bind def /setsc {075 135 {proz1} setscreen } bind def /setsm {075 090 {proz1} setscreen } bind def /setsy {075 000 {proz1} setscreen } bind def /setsn {075 045 {proz1} setscreen } bind def /setsf {075 135 {proz1} 075 090 {proz1} 075 000 {proz1} 075 045 {proz1} setcolorscreen } bind def /setcmykcolorf {setcmykcolor setsf} bind def %fuer PSL1/2-Farbgeraet %ANFA HALBTON /Halbt { %wrbie:HALBTOA0.eps } bind def %ANFA SETCMYK /setcmyknew { %Ersatz setcolornew durch setcmykcolor1 ausz 1 eq {setgc half 0 eq {setsc} if} if %C ausz 2 eq {setgm half 0 eq {setsm} if} if %M ausz 3 eq {setgy half 0 eq {setsy} if} if %Y ausz 4 eq {pop pop pop /ccolor exch def ccolor 0 0 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgc setsc} %PSL1-SW-Geraet ifelse } if %Cbunt ausz 5 eq {pop pop /mcolor exch def pop 0 mcolor 0 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgm setsm} %PSL1-SW-Geraet ifelse } if %Mbunt ausz 6 eq {pop /ycolor exch def pop pop 0 0 ycolor 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgy setsy} %PSL1-SW-Geraet ifelse } if %Ybunt ausz 7 eq {setgn half 0 eq {setsn} if} if %N ausz 8 ge { /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgf setsn} %PSL1-SW-Geraet ifelse } if %bei ausz=8: Farb- oder SW-Ausdruck je nach Drucker } bind def /fcolors %CMY 32 no. 0 to 31; hue circe row [{1.00 1.00 1.00 0.00} {0.00 1.00 1.00 0.00} {0.00 0.00 1.00 0.00} {1.00 0.00 1.00 0.00} {1.00 0.00 0.00 0.00} {1.00 1.00 0.00 0.00} {0.00 1.00 0.00 0.00} {0.00 0.00 0.00 0.00} {0.50 0.50 0.50 0.00} {0.50 1.00 1.00 0.00} {0.50 0.50 1.00 0.00} {1.00 0.50 1.00 0.00} {1.00 0.50 0.50 0.00} {1.00 1.00 0.50 0.00} {0.50 1.00 0.50 0.00} {0.00 1.00 0.50 0.00} {0.75 0.75 0.75 0.00} {0.00 0.50 0.50 0.00} {0.00 0.00 0.50 0.00} {0.50 0.00 0.50 0.00} {0.50 0.00 0.00 0.00} {0.50 0.50 0.00 0.00} {0.00 0.50 0.00 0.00} {1.00 0.50 0.00 0.00} {0.25 0.25 0.25 0.00} {0.00 0.50 1.00 0.00} {0.50 0.00 1.00 0.00} {1.00 0.00 0.50 0.00} {1.00 0.50 0.00 0.00} {0.50 1.00 0.00 0.00} {0.00 1.00 0.50 0.00} {1.00 0.00 0.50 0.00} ] def /fak 0.5 def /Far %Farbkreis-Reihenfolge [ 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %R 16 17 18 19 20 21 22 23 %B 24 25 26 27 28 29 30 31 %G ] def /cFar %Kompensativ-Farbkreis-Reihenfolge [ 8 4 5 6 1 2 3 0 0 20 21 22 17 18 19 31 %G 24 12 13 14 9 10 11 2 %J 16 28 29 30 25 26 27 15 %R ] def /Btx %Farbkreis- -> %Btx-Reihenfolge [ 0 1 3 2 5 6 4 7 8 9 11 10 13 14 12 15 %R 16 17 19 18 21 22 20 23 %B 24 25 26 27 28 29 30 31 %G ] def /cBtx %Farbkreis- -> %Kompensativ-Btx-Reihenfolge [ 7 4 6 5 2 3 1 0 8 20 22 21 18 19 17 31 %G 24 12 14 13 10 11 9 2 %J 16 25 26 27 28 29 30 15 %R ] def /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfi %x y width heigth c m y k {setcmyknew rec fill} bind def /colrecst %x y width heigth c m y k {setcmyknew rec stroke} bind def /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmyknew} bind def /tfl {tzl setcmyknew} bind def /tfv {tzv setcmyknew} bind def /tfc {tzc setcmyknew} bind def /tfm {tzm setcmyknew} bind def /tfy {tzy setcmyknew} bind def /tfn {tzn setcmyknew} bind def /tfd {tzd setcmyknew} bind def /tfz {tzz setcmyknew} bind def /tfh {tzh setcmyknew} bind def /tfw {tzw setcmyknew} bind def /tfr {tzr setcmyknew} bind def /tfg {tzg setcmyknew} bind def /tfb {tzb setcmyknew} bind def /tfj {tzj setcmyknew} bind def /tfrz {tzrz setcmyknew} bind def /tfgz {tzgz setcmyknew} bind def /tfbz {tzbz setcmyknew} bind def /tfjz {tzjz setcmyknew} bind def %ANFA OUTLIN00 951204 /pixf 1.0 def /ueg 1 pixf mul def /uek 1 pixf mul def /ues 1 pixf mul def /pxd uek def /pyd uek def /pxwd ueg def /pywd ueg def /pss ues def /outxshowf {show} bind def /outxshow {show} bind def /outSK {250 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSM {300 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSG {350 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outshowf {setcmyknew show} bind def /outrecfi { %x y width heigth c m y k setcmyknew rec fill} bind def /outrecfi4 { %x y width heigth c m y k outrecfi} bind def /outrecfi3 { %x y width heigth c m y k outrecfi} bind def /outrecfi2 { %x y width heigth c m y k outrecfi} bind def /outlinetos { %px py c m y k setcmyknew lineto stroke} bind def /outstroke { %px1 py1 curveto ... curveto c m y k setcmyknew stroke} bind def %%EndProlog gsave %LANINDL2 START 20000505 /lanind 0 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /popde {0 lanind ne {pop} if} bind def /popen {1 lanind ne {pop} if} bind def /popes {2 lanind ne {pop} if} bind def /popfr {3 lanind ne {pop} if} bind def /popit {4 lanind ne {pop} if} bind def /popjp {5 lanind ne {pop} if} bind def /popm {6 lanind ne {pop} if} bind def /popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def /popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def /popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def /popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def /popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def /popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def /popxm {/n exch def 6 lanind ne {n {pop} repeat} if} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave %LANINDL2 END %{proz2} settransfer 8 /Times-Roman FS 72 83 moveto ( E8620-8, ) show 8 /Times-ISOL1 FS (Digitaldaten D8/8bit SGcode) popde %08620-8 1 (Digital data D8/8bit SGcode) popen %18620-8 1 (Digital data D8/8bit SGcode) popes %28620-8 1 (Digital data D8/8bit SGcode) popfr %38620-8 1 (Digital data D8/8bit SGcode) popit %48620-8 1 (Digital data D8/8bit SGcode) popjp %58620-8 1 show 8 /TimesI-ISOL1 FS ( CMY*) show 72 90 translate /pixf 1.0 def 0.1667 pixf div MM dup scale /ausz 8 def /half 0 def Halbt %Farbauszug 1=C, 2=M, 3=Y, 7=N, 8=F %/setcmyknew {/n exch def /y exch def /m exch def /c exch def % 1 c sub 1 m sub 1 y sub setrgbcolor} def 0 0 320 240 0.0 0.0 0.0 0.0 colrecfi %rectangle W 0.0 0.0 0.0 1.0 setcmyknew %text N 0 0 moveto 320 0 rlineto 0 240 rlineto -320 0 rlineto closepath stroke TBIG %Schrift Times-Bold-Gross-Italic 02 223 moveto (N\255W: ) show TBG %Schrift Times-Bold-Gross (d8cmy*s/z, D8CMY*i/h) show 45 103 moveto (unbunte Hauptfarben) showde %08620-8 2 (achromatic basic colors) showen %18620-8 2 (Colores acrom\341ticos b\341sicos) showes %28620-8 2 (achromatic basic colors) showfr %38620-8 2 (achromatic basic colors) showit %48620-8 2 (achromatic basic colors) showjp %58620-8 2 /iln 1 def /j 0 def /iy 180 def /solvfcols %Sonder-Farbkreis-Reihenfolge Nr. 0 bis 5; %N&W [ (111*) (222*) (555*) (999*) (DDD*) (EEE*) ] def /scolors %CMYN 5 Sonder-Testfarben Nr. 0 bis 5; Farbkreis-Reihenfolge %NN [ {0.0 0.0 0.0 0.923} {0.0 0.0 0.0 0.870} {0.0 0.0 0.0 0.630} {0.0 0.0 0.0 0.333} {0.0 0.0 0.0 0.130} {0.0 0.0 0.0 0.067}] def /tBtxz %textBtx-Reihenfolge [(0) (1) (2) (3) (4) (5) (6) (7) (0) (0) () (8) () (7) () ()] def /tFarb %textFar-Reihenfolge [(N) (O) (Y) (L) (C) (V) (M) (W) (Z) (N) (D) (Z) (H) (W) () () ] def %output as integer and 0 to 3 digits /cvishow {0.5 add cvi %new980310 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 %new980310 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 %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 6 string cvs show} def /cvsshow3 {dup 1000 mul 0.1 add round cvi 0.001 mul 6 string cvs show (, ) show x 20 add y moveto 1000 mul 500 sub 0.1 add round cvi 0.001 mul 8 string cvs show } def /temp 12 string def /arrow {x 6 sub y moveto (->) show} bind def /r4outh {%begin 4bit round print hex 15 mul 0.26 sub round cvi dup 10 temp cvrs show (, ) show 16 temp cvrs show } bind def %end 4bit round print /r4outd {%begin decimal 0..1 print cvsshow3 } bind def %end 4bit round print /r8outh {%begin 8bit round print hex 255 mul 0.26 sub round cvi dup 10 temp cvrs show ( / ) show dup 16 le {(0) show} if 16 temp cvrs show } bind def %end 8bit round print /r8outd {%begin decimal 0..1 print cvsshow3 } bind def %end 8bit round print /N4outh {%begin printpout dec, hex 4 bit 0.77 mul 0.05 add r4outh } bind def %end printpout dec, hex 4 bit /n4outh {%begin printpout dec, hex 4 bit r4outh } bind def %end printpout dec, hex 4 bit /N4outd {%begin printpout dec, hex 4 bit 0.77 mul 0.05 add r4outd } bind def %end printpout dec, hex 4 bit /n4outd {%begin printpout dec, hex 4 bit r4outd } bind def %end printpout dec, hex 4 bit /N6outh {%begin printpout dec, hex 6 bit 0.77 mul 0.05 add 0.5 sub 0.25 mul 0.5 add r8outh } bind def %end printpout dec, hex 6 bit /n6outh {%begin printpout dec, hex 6 bit 0.5 sub 0.25 mul 0.5 add r8outh } bind def %end printpout dec, hex 6 bit /N6outd {%begin printpout dec, hex 6 bit 0.77 mul 0.05 add 0.5 sub 0.25 mul 0.5 add r8outd } bind def %end printpout dec, hex 6 bit /n6outd {%begin printpout dec, hex 6 bit 0.5 sub 0.25 mul 0.5 add r8outd } bind def %end printpout dec, hex 6 bit /N7outh {%begin printpout dec, hex 7 bit 0.77 mul 0.05 add 0.5 sub 0.50 mul 0.5 add r8outh } bind def %end printpout dec, hex 7 bit /n7outh {%begin printpout dec, hex 7 bit 0.5 sub 0.50 mul 0.5 add r8outh } bind def %end printpout dec, hex 7 bit /N7outd {%begin printpout dec, hex 7 bit 0.77 mul 0.05 add 0.5 sub 0.50 mul 0.5 add r8outd } bind def %end printpout dec, hex 7 bit /n7outd {%begin printpout dec, hex 7 bit 0.5 sub 0.50 mul 0.5 add r8outd } bind def %end printpout dec, hex 7 bit /N8outh {%begin printpout dec, hex 8 bit 0.77 mul 0.05 add r8outh } bind def %end printpout dec, hex 8 bit /n8outh {%begin printpout dec, hex 8 bit r8outh } bind def %end printpout dec, hex 8 bit /N8outd {%begin printpout dec, hex 8 bit 0.77 mul 0.05 add r8outd } bind def %end printpout dec, hex 8 bit /n8outd {%begin printpout dec, hex 8 bit r8outd } bind def %end printpout dec, hex 8 bit /nc100out {%begin printpout dec, hex CIE 100 steps 0.5 sub 100 255 div mul 0.5 add r8outd } bind def %end printpout dec, hex CIE 100 steps /Nc100out {%begin printpout dec, hex CIE 100 steps 0.77 mul 0.05 add 0.5 sub 100 255 div mul 0.5 add r8outd } bind def %end printpout dec, hex CIE 100 steps /nc077out {%begin printpout dec, hex CIE 077 steps 0.5 sub 077 255 div mul 0.5 add r8outd } bind def %end printpout dec, hex CIE 077 steps /Nc077out {%begin printpout dec, hex CIE 077 steps 0.77 mul 0.05 add 0.5 sub 077 255 div mul 0.5 add r8outd } bind def %end printpout dec, hex CIE 077 steps /TBKK {200 16.67 div /Times-Bold FS} bind def /TBKL {100 16.67 div /Times-Bold FS} bind def /j 0 def 1 1 6 {/i exch def TBM i j 8 mul add /k exch def -08 i 48 mul add 17 add /ix exch def 183 j 120 mul sub /iy exch def 0.0 0.0 0.0 1.0 setcmyknew %text N TBIK i 1 eq { ix 15 sub iy 25 add moveto (setcmy*color) show TBKL ix 55 sub iy 18 add moveto (Type / range:) show ix 55 sub iy 12 add moveto (d8cmy*s/z) show ix 53 sub iy 6 add moveto ( 0.000...1.000) show ix 53 sub iy 0 sub moveto (-0.500...0.500) show ix 55 sub iy 6 sub moveto (D8CMY*i/h:) show ix 53 sub iy 12 sub moveto (12...209) show ix 53 sub iy 19 sub moveto (0C...D1) show ix 55 sub iy 26 sub moveto (d8c*s/z) show ix 55 sub iy 40 sub moveto (d8m*s/z) show ix 55 sub iy 54 sub moveto (d8y*s/z) show ix 55 sub iy 32 sub moveto (D8C*i/h) show ix 55 sub iy 46 sub moveto (D8M*i/h) show ix 55 sub iy 60 sub moveto (D8Y*i/h) show } if TBKL /ku Far k get exec def iln 0 ne {%begin olv or cmy dec and hex fcolors ku get exec /n8 exch def /y8 exch def /m8 exch def /c8 exch def /x ix 18 sub def /y iy 26 sub def x y moveto c8 n8outd /x ix 18 sub def /y iy 40 sub def x y moveto y8 n8outd /x ix 18 sub def /y iy 54 sub def x y moveto m8 n8outd /x ix 18 sub def /y iy 32 sub def arrow x y moveto c8 N8outh /x ix 18 sub def /y iy 46 sub def arrow x y moveto y8 N8outh /x ix 18 sub def /y iy 60 sub def arrow x y moveto m8 N8outh } if %end out olv or cmy dec and hex ix 19 sub iy 19 sub 39 39 fcolors ku get exec outrecfi4 %Farbe-Fuellen je nach Auszug TBIG /kuc cFar k get exec def j 0 eq {ix 7 sub iy 5 sub moveto tFarb i get exec fcolors kuc get exec outshowf} if } for %schleife i /scolors %CMY 5 Sonder-Testfarben Nr. 0 bis 4; Farbkreis-Reihenfolge %NN [ {1.00 1.00 1.00 0.00} {0.75 0.75 0.75 0.00} {0.50 0.50 0.50 0.00} {0.25 0.25 0.25 0.00} {0.00 0.00 0.00 0.00} ] def /iy 063 def 0 1 4 {/i exch def 0.0 0.0 0.0 1.0 setcmyknew %text N TBIK 15 i 1 add 48 mul add 17 add /ix exch def i 0 eq { ix 15 sub iy 25 add moveto (setcmy*color) show TBKL ix 77 sub iy 18 add moveto (Type / range:) show ix 77 sub iy 12 add moveto (d8cmy*s/z) show ix 75 sub iy 6 add moveto ( 0.000...1.000) show ix 75 sub iy 0 sub moveto (-0.500...0.500) show ix 77 sub iy 6 sub moveto (D8CMY*i/h:) show ix 75 sub iy 12 sub moveto (12...209) show ix 75 sub iy 19 sub moveto (0C...D1) show ix 77 sub iy 26 sub moveto (d8c*s/z) show ix 77 sub iy 40 sub moveto (d8m*s/z) show ix 77 sub iy 54 sub moveto (d8y*s/z) show ix 77 sub iy 32 sub moveto (D8C*i/h) show ix 77 sub iy 46 sub moveto (D8M*i/h) show ix 77 sub iy 60 sub moveto (D8Y*i/h) show } if TBKL iln 0 ne {%begin olv or cmy dec and hex scolors i get exec /n8 exch def /y8 exch def /m8 exch def /c8 exch def /x ix 18 sub def /y iy 26 sub def x y moveto c8 n8outd /x ix 18 sub def /y iy 40 sub def x y moveto m8 n8outd /x ix 18 sub def /y iy 54 sub def x y moveto y8 n8outd /x ix 18 sub def /y iy 32 sub def arrow x y moveto c8 N8outh /x ix 18 sub def /y iy 46 sub def arrow x y moveto m8 N8outh /x ix 18 sub def /y iy 60 sub def arrow x y moveto y8 N8outh } if %end out olv or cmy dec and hex TBIG ix 19 sub iy 19 sub 39 39 scolors i get exec outrecfi4 %Farbe-Fuellen je nach Auszug /kuc cFar 9 i add get exec def ix 06 sub iy 5 sub moveto i 3 lt {fcolors 07 get exec} {fcolors 00 get exec} ifelse setcmyknew tFarb 9 i add get exec dup stringwidth pop 15 exch sub 0.5 mul 0 rmoveto show 4 i eq {ix 19 sub iy 19 sub moveto 39 0 rlineto 0 39 rlineto -39 0 rlineto closepath 0.0 0.0 0.0 1.0 setcmyknew stroke %edge N } if } for %schleife i showpage grestore } for %output with langind end %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 197 MM translate 10 /Times-ISOL1 FS 1 1 scale -77 -91 translate %%BeginDocument: Bild 12 %Zeile 400 %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 153 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 21 %Zeile 410 %!PS-Adobe-3.0 EPSF-3.0 1x1 E8620-1N.EPS %%BoundingBox: 60 80 226 206 %START PDFDE011.EPS /pdfmark where {pop} {userdict /pdfmark /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: 1x1 E8620-1) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://o2.ps.bam.de or www.ps.bam.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@bam.de) /CreationDate (D:2000010512000) /ModDate (D:2000010512000) /DOCINFO pdfmark [ /View [ /FitB ] /DOCVIEW pdfmark %END PDFDE011 %%Creator: K. Richter, BAM und TU Berlin, 2000.01.04 %%+Copyright (c) 1996 VDE-Verlag Berlin Offenbach % !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 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /TK {250 16.67 div /Times-ISOL1 FS} bind def /TM {300 16.67 div /Times-ISOL1 FS} bind def /TG {350 16.67 div /Times-ISOL1 FS} bind def /TIK {250 16.67 div /TimesI-ISOL1 FS} bind def /TIM {300 16.67 div /TimesI-ISOL1 FS} bind def /TIG {350 16.67 div /TimesI-ISOL1 FS} bind def /TBK {250 16.67 div /TimesB-ISOL1 FS} bind def /TBM {300 16.67 div /TimesB-ISOL1 FS} bind def /TBG {350 16.67 div /TimesB-ISOL1 FS} bind def /TBIK {250 16.67 div /TimesBI-ISOL1 FS} bind def /TBIM {300 16.67 div /TimesBI-ISOL1 FS} bind def /TBIG {350 16.67 div /TimesBI-ISOL1 FS} bind def /proz1 {pop} bind def /proz2 {sqrt} bind def /setgc {pop pop pop 1 exch sub setgray} bind def /setgm {pop pop 1 exch sub setgray pop} bind def /setgy {pop 1 exch sub setgray pop pop} bind def /setgn {1 exch sub setgray pop pop pop} bind def /setgf {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def 0 ccolor eq 0 mcolor eq and 0 ycolor eq and {1 ncolor sub setgray} {1 ccolor sub 0.71 mul 1 mcolor sub 0.22 mul add 1 ycolor sub 0.07 mul add setgray} ifelse } bind def /setsc {075 135 {proz1} setscreen } bind def /setsm {075 090 {proz1} setscreen } bind def /setsy {075 000 {proz1} setscreen } bind def /setsn {075 045 {proz1} setscreen } bind def /setsf {075 135 {proz1} 075 090 {proz1} 075 000 {proz1} 075 045 {proz1} setcolorscreen } bind def /setcmykcolorf {setcmykcolor setsf} bind def %fuer PSL1/2-Farbgeraet %ANFA HALBTON /Halbt { %wrbie:HALBTOA0.eps } bind def %ANFA SETCMYK /setcmyknew { %Ersatz setcolornew durch setcmykcolor1 ausz 1 eq {setgc half 0 eq {setsc} if} if %C ausz 2 eq {setgm half 0 eq {setsm} if} if %M ausz 3 eq {setgy half 0 eq {setsy} if} if %Y ausz 4 eq {pop pop pop /ccolor exch def ccolor 0 0 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgc setsc} %PSL1-SW-Geraet ifelse } if %Cbunt ausz 5 eq {pop pop /mcolor exch def pop 0 mcolor 0 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgm setsm} %PSL1-SW-Geraet ifelse } if %Mbunt ausz 6 eq {pop /ycolor exch def pop pop 0 0 ycolor 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgy setsy} %PSL1-SW-Geraet ifelse } if %Ybunt ausz 7 eq {setgn half 0 eq {setsn} if} if %N ausz 8 ge { /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgf setsn} %PSL1-SW-Geraet ifelse } if %bei ausz=8: Farb- oder SW-Ausdruck je nach Drucker } bind def /fcolors %CMY 32 no. 0 to 31; hue circe row [{1.00 1.00 1.00 0.00} {0.00 1.00 1.00 0.00} {0.00 0.00 1.00 0.00} {1.00 0.00 1.00 0.00} {1.00 0.00 0.00 0.00} {1.00 1.00 0.00 0.00} {0.00 1.00 0.00 0.00} {0.00 0.00 0.00 0.00} {0.50 0.50 0.50 0.00} {0.50 1.00 1.00 0.00} {0.50 0.50 1.00 0.00} {1.00 0.50 1.00 0.00} {1.00 0.50 0.50 0.00} {1.00 1.00 0.50 0.00} {0.50 1.00 0.50 0.00} {0.00 1.00 0.50 0.00} {0.75 0.75 0.75 0.00} {0.00 0.50 0.50 0.00} {0.00 0.00 0.50 0.00} {0.50 0.00 0.50 0.00} {0.50 0.00 0.00 0.00} {0.50 0.50 0.00 0.00} {0.00 0.50 0.00 0.00} {1.00 0.50 0.00 0.00} {0.25 0.25 0.25 0.00} {0.00 0.50 1.00 0.00} {0.50 0.00 1.00 0.00} {1.00 0.00 0.50 0.00} {1.00 0.50 0.00 0.00} {0.50 1.00 0.00 0.00} {0.00 1.00 0.50 0.00} {1.00 0.00 0.50 0.00} ] def /fak 0.5 def /Far %Farbkreis-Reihenfolge [ 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %R 16 17 18 19 20 21 22 23 %B 24 25 26 27 28 29 30 31 %G ] def /cFar %Kompensativ-Farbkreis-Reihenfolge [ 8 4 5 6 1 2 3 0 0 20 21 22 17 18 19 31 %G 24 12 13 14 9 10 11 2 %J 16 28 29 30 25 26 27 15 %R ] def /Btx %Farbkreis- -> %Btx-Reihenfolge [ 0 1 3 2 5 6 4 7 8 9 11 10 13 14 12 15 %R 16 17 19 18 21 22 20 23 %B 24 25 26 27 28 29 30 31 %G ] def /cBtx %Farbkreis- -> %Kompensativ-Btx-Reihenfolge [ 7 4 6 5 2 3 1 0 8 20 22 21 18 19 17 31 %G 24 12 14 13 10 11 9 2 %J 16 25 26 27 28 29 30 15 %R ] def /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfi %x y width heigth c m y k {setcmyknew rec fill} bind def /colrecst %x y width heigth c m y k {setcmyknew rec stroke} bind def /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmyknew} bind def /tfl {tzl setcmyknew} bind def /tfv {tzv setcmyknew} bind def /tfc {tzc setcmyknew} bind def /tfm {tzm setcmyknew} bind def /tfy {tzy setcmyknew} bind def /tfn {tzn setcmyknew} bind def /tfd {tzd setcmyknew} bind def /tfz {tzz setcmyknew} bind def /tfh {tzh setcmyknew} bind def /tfw {tzw setcmyknew} bind def /tfr {tzr setcmyknew} bind def /tfg {tzg setcmyknew} bind def /tfb {tzb setcmyknew} bind def /tfj {tzj setcmyknew} bind def /tfrz {tzrz setcmyknew} bind def /tfgz {tzgz setcmyknew} bind def /tfbz {tzbz setcmyknew} bind def /tfjz {tzjz setcmyknew} bind def %ANFA OUTLIN00 951204 /pixf 1.0 def /ueg 1 pixf mul def /uek 1 pixf mul def /ues 1 pixf mul def /pxd uek def /pyd uek def /pxwd ueg def /pywd ueg def /pss ues def /outxshowf {show} bind def /outxshow {show} bind def /outSK {250 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSM {300 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSG {350 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outshowf {setcmyknew show} bind def /outrecfi { %x y width heigth c m y k setcmyknew rec fill} bind def /outrecfi4 { %x y width heigth c m y k outrecfi} bind def /outrecfi3 { %x y width heigth c m y k outrecfi} bind def /outrecfi2 { %x y width heigth c m y k outrecfi} bind def /outlinetos { %px py c m y k setcmyknew lineto stroke} bind def /outstroke { %px1 py1 curveto ... curveto c m y k setcmyknew stroke} bind def %%EndProlog gsave %LANINDL2 START 20000505 /lanind 0 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /popde {0 lanind ne {pop} if} bind def /popen {1 lanind ne {pop} if} bind def /popes {2 lanind ne {pop} if} bind def /popfr {3 lanind ne {pop} if} bind def /popit {4 lanind ne {pop} if} bind def /popjp {5 lanind ne {pop} if} bind def /popm {6 lanind ne {pop} if} bind def /popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def /popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def /popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def /popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def /popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def /popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def /popxm {/n exch def 6 lanind ne {n {pop} repeat} if} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave %LANINDL2 END %{proz2} settransfer 8 /Times-Roman FS 72 83 moveto ( E8620-1, ) show 8 /Times-ISOL1 FS (Digitaldaten D8/8bit SGcode) popde %08620-1 1 (Digital data D8/8bit SGcode) popen %18620-1 1 (Digital data D8/8bit SGcode) popes %28620-1 1 (Digital data D8/8bit SGcode) popfr %38620-1 1 (Digital data D8/8bit SGcode) popit %48620-1 1 (Digital data D8/8bit SGcode) popjp %58620-1 1 show 8 /TimesI-ISOL1 FS ( CMY*) show 72 90 translate /pixf 1.0 def 0.1667 pixf div MM dup scale /ausz 8 def /half 0 def Halbt %Farbauszug 1=C, 2=M, 3=Y, 7=N, 8=F %/setcmyknew {/n exch def /y exch def /m exch def /c exch def % 1 c sub 1 m sub 1 y sub setrgbcolor} def 0 0 320 240 0.0 0.0 0.0 0.0 colrecfi %rectangle W 0.0 0.0 0.0 1.0 setcmyknew %text N 0 0 moveto 320 0 rlineto 0 240 rlineto -320 0 rlineto closepath stroke TBIG %Schrift Times-Bold-Gross-Italic 02 223 moveto (N\255W: ) show TBG %Schrift Times-Bold-Gross (D8CMY*s/z, D8CMY*i/h) show 45 103 moveto (unbunte Hauptfarben) showde %08620-1 2 (achromatic basic colors) showen %18620-1 2 (Colores acrom\341ticos b\341sicos) showes %28620-1 2 (achromatic basic colors) showfr %38620-1 2 (achromatic basic colors) showit %48620-1 2 (achromatic basic colors) showjp %58620-1 2 /iln 1 def /j 0 def /iy 180 def /solvfcols %Sonder-Farbkreis-Reihenfolge Nr. 0 bis 5; %N&W [ (111*) (222*) (555*) (999*) (DDD*) (EEE*) ] def /scolors %CMYN 5 Sonder-Testfarben Nr. 0 bis 5; Farbkreis-Reihenfolge %NN [ {0.0 0.0 0.0 0.923} {0.0 0.0 0.0 0.870} {0.0 0.0 0.0 0.630} {0.0 0.0 0.0 0.333} {0.0 0.0 0.0 0.130} {0.0 0.0 0.0 0.067}] def /tBtxz %textBtx-Reihenfolge [(0) (1) (2) (3) (4) (5) (6) (7) (0) (0) () (8) () (7) () ()] def /tFarb %textFar-Reihenfolge [(N) (O) (Y) (L) (C) (V) (M) (W) (Z) (N) (D) (Z) (H) (W) () () ] def %output as integer and 0 to 3 digits /cvishow {0.5 add cvi %new980310 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 %new980310 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 %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 6 string cvs show} def /cvsshow3 {dup 1000 mul 0.1 add round cvi 0.001 mul 6 string cvs show (, ) show x 20 add y moveto 1000 mul 500 sub 0.1 add round cvi 0.001 mul 8 string cvs show } def /temp 12 string def /arrow {x 6 sub y moveto (->) show} bind def /r4outh {%begin 4bit round print hex 15 mul 0.26 sub round cvi dup 10 temp cvrs show (, ) show 16 temp cvrs show } bind def %end 4bit round print /r4outd {%begin decimal 0..1 print cvsshow3 } bind def %end 4bit round print /r8outh {%begin 8bit round print hex 255 mul 0.26 sub round cvi dup 10 temp cvrs show ( / ) show dup 16 le {(0) show} if 16 temp cvrs show } bind def %end 8bit round print /r8outd {%begin decimal 0..1 print cvsshow3 } bind def %end 8bit round print /N4outh {%begin printpout dec, hex 4 bit 0.77 mul 0.05 add r4outh } bind def %end printpout dec, hex 4 bit /n4outh {%begin printpout dec, hex 4 bit r4outh } bind def %end printpout dec, hex 4 bit /N4outd {%begin printpout dec, hex 4 bit 0.77 mul 0.05 add r4outd } bind def %end printpout dec, hex 4 bit /n4outd {%begin printpout dec, hex 4 bit r4outd } bind def %end printpout dec, hex 4 bit /N6outh {%begin printpout dec, hex 6 bit 0.77 mul 0.05 add 0.5 sub 0.25 mul 0.5 add r8outh } bind def %end printpout dec, hex 6 bit /n6outh {%begin printpout dec, hex 6 bit 0.5 sub 0.25 mul 0.5 add r8outh } bind def %end printpout dec, hex 6 bit /N6outd {%begin printpout dec, hex 6 bit 0.77 mul 0.05 add 0.5 sub 0.25 mul 0.5 add r8outd } bind def %end printpout dec, hex 6 bit /n6outd {%begin printpout dec, hex 6 bit 0.5 sub 0.25 mul 0.5 add r8outd } bind def %end printpout dec, hex 6 bit /N7outh {%begin printpout dec, hex 7 bit 0.77 mul 0.05 add 0.5 sub 0.50 mul 0.5 add r8outh } bind def %end printpout dec, hex 7 bit /n7outh {%begin printpout dec, hex 7 bit 0.5 sub 0.50 mul 0.5 add r8outh } bind def %end printpout dec, hex 7 bit /N7outd {%begin printpout dec, hex 7 bit 0.77 mul 0.05 add 0.5 sub 0.50 mul 0.5 add r8outd } bind def %end printpout dec, hex 7 bit /n7outd {%begin printpout dec, hex 7 bit 0.5 sub 0.50 mul 0.5 add r8outd } bind def %end printpout dec, hex 7 bit /N8outh {%begin printpout dec, hex 8 bit 0.77 mul 0.05 add r8outh } bind def %end printpout dec, hex 8 bit /n8outh {%begin printpout dec, hex 8 bit r8outh } bind def %end printpout dec, hex 8 bit /N8outd {%begin printpout dec, hex 8 bit 0.77 mul 0.05 add r8outd } bind def %end printpout dec, hex 8 bit /n8outd {%begin printpout dec, hex 8 bit r8outd } bind def %end printpout dec, hex 8 bit /nc100out {%begin printpout dec, hex CIE 100 steps 0.5 sub 100 255 div mul 0.5 add r8outd } bind def %end printpout dec, hex CIE 100 steps /Nc100out {%begin printpout dec, hex CIE 100 steps 0.77 mul 0.05 add 0.5 sub 100 255 div mul 0.5 add r8outd } bind def %end printpout dec, hex CIE 100 steps /nc077out {%begin printpout dec, hex CIE 077 steps 0.5 sub 077 255 div mul 0.5 add r8outd } bind def %end printpout dec, hex CIE 077 steps /Nc077out {%begin printpout dec, hex CIE 077 steps 0.77 mul 0.05 add 0.5 sub 077 255 div mul 0.5 add r8outd } bind def %end printpout dec, hex CIE 077 steps /TBKK {200 16.67 div /Times-Bold FS} bind def /TBKL {100 16.67 div /Times-Bold FS} bind def /j 0 def 1 1 6 {/i exch def TBM i j 8 mul add /k exch def -08 i 48 mul add 17 add /ix exch def 183 j 120 mul sub /iy exch def 0.0 0.0 0.0 1.0 setcmyknew %text N TBIK i 1 eq { ix 15 sub iy 25 add moveto (D8CMY*tod8cmy* setcmy*color) show TBKL ix 55 sub iy 18 add moveto (Type / range:) show ix 55 sub iy 12 add moveto (D8CMY*s/z) show ix 53 sub iy 6 add moveto ( 0.050...0.820) show ix 53 sub iy 0 sub moveto (-0.450...0.320) show ix 55 sub iy 6 sub moveto (D8CMY*i/h:) show ix 53 sub iy 12 sub moveto (0C...D1) show ix 53 sub iy 19 sub moveto (12...209) show ix 55 sub iy 26 sub moveto (D8C*s/z) show ix 55 sub iy 40 sub moveto (D8M*s/z) show ix 55 sub iy 54 sub moveto (D8Y*s/z) show ix 55 sub iy 32 sub moveto (D8C*i/h) show ix 55 sub iy 46 sub moveto (D8M*i/h) show ix 55 sub iy 60 sub moveto (D8Y*i/h) show } if TBKL /ku Far k get exec def iln 0 ne {%begin olv or cmy dec and hex fcolors ku get exec /n8 exch def /y8 exch def /m8 exch def /c8 exch def /x ix 18 sub def /y iy 26 sub def x y moveto c8 N8outd /x ix 18 sub def /y iy 40 sub def x y moveto y8 N8outd /x ix 18 sub def /y iy 54 sub def x y moveto m8 N8outd /x ix 18 sub def /y iy 32 sub def x y moveto c8 N8outh /x ix 18 sub def /y iy 46 sub def x y moveto y8 N8outh /x ix 18 sub def /y iy 60 sub def x y moveto m8 N8outh } if %end out olv or cmy dec and hex ix 19 sub iy 19 sub 39 39 fcolors ku get exec outrecfi4 %Farbe-Fuellen je nach Auszug TBIG /kuc cFar k get exec def j 0 eq {ix 7 sub iy 5 sub moveto tFarb i get exec fcolors kuc get exec outshowf} if } for %schleife i /scolors %CMY 5 Sonder-Testfarben Nr. 0 bis 4; Farbkreis-Reihenfolge %NN [ {1.00 1.00 1.00 0.00} {0.75 0.75 0.75 0.00} {0.50 0.50 0.50 0.00} {0.25 0.25 0.25 0.00} {0.00 0.00 0.00 0.00} ] def /iy 063 def 0 1 4 {/i exch def 0.0 0.0 0.0 1.0 setcmyknew %text N TBIK 15 i 1 add 48 mul add 17 add /ix exch def i 0 eq { ix 15 sub iy 25 add moveto (D8CMY*tod8cmy* setcmy*color) show TBKL ix 77 sub iy 18 add moveto (Type / range:) show ix 77 sub iy 12 add moveto (D8CMY*s/z) show ix 75 sub iy 6 add moveto ( 0.050...0.820) show ix 75 sub iy 0 sub moveto (-0.450...0.320) show ix 77 sub iy 6 sub moveto (D8CMY*i/h:) show ix 75 sub iy 12 sub moveto (0C...D1) show ix 75 sub iy 19 sub moveto (12...209) show ix 77 sub iy 26 sub moveto (D8C*s/z) show ix 77 sub iy 40 sub moveto (D8M*s/z) show ix 77 sub iy 54 sub moveto (D8Y*s/z) show ix 77 sub iy 32 sub moveto (D8C*i/h) show ix 77 sub iy 46 sub moveto (D8M*i/h) show ix 77 sub iy 60 sub moveto (D8Y*i/h) show } if TBKL iln 0 ne {%begin olv or cmy dec and hex scolors i get exec /n8 exch def /y8 exch def /m8 exch def /c8 exch def /x ix 18 sub def /y iy 26 sub def x y moveto c8 N8outd /x ix 18 sub def /y iy 40 sub def x y moveto m8 N8outd /x ix 18 sub def /y iy 54 sub def x y moveto y8 N8outd /x ix 18 sub def /y iy 32 sub def x y moveto c8 N8outh /x ix 18 sub def /y iy 46 sub def x y moveto m8 N8outh /x ix 18 sub def /y iy 60 sub def x y moveto y8 N8outh } if %end out olv or cmy dec and hex TBIG ix 19 sub iy 19 sub 39 39 scolors i get exec outrecfi4 %Farbe-Fuellen je nach Auszug /kuc cFar 9 i add get exec def ix 06 sub iy 5 sub moveto i 3 lt {fcolors 07 get exec} {fcolors 00 get exec} ifelse setcmyknew tFarb 9 i add get exec dup stringwidth pop 15 exch sub 0.5 mul 0 rmoveto show 4 i eq {ix 19 sub iy 19 sub moveto 39 0 rlineto 0 39 rlineto -39 0 rlineto closepath 0.0 0.0 0.0 1.0 setcmyknew stroke %edge N } if } for %schleife i showpage grestore } for %output with langind end %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 153 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 22 %Zeile 420 %!PS-Adobe-3.0 EPSF-3.0 1x1 E8620-2N.EPS %%BoundingBox: 60 80 226 206 %START PDFDE011.EPS /pdfmark where {pop} {userdict /pdfmark /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: 1x1 E8620-2) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://o2.ps.bam.de or www.ps.bam.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@bam.de) /CreationDate (D:2000010512000) /ModDate (D:2000010512000) /DOCINFO pdfmark [ /View [ /FitB ] /DOCVIEW pdfmark %END PDFDE011 %%Creator: K. Richter, BAM und TU Berlin, 2000.01.04 %%+Copyright (c) 1996 VDE-Verlag Berlin Offenbach % !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 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /TK {250 16.67 div /Times-ISOL1 FS} bind def /TM {300 16.67 div /Times-ISOL1 FS} bind def /TG {350 16.67 div /Times-ISOL1 FS} bind def /TIK {250 16.67 div /TimesI-ISOL1 FS} bind def /TIM {300 16.67 div /TimesI-ISOL1 FS} bind def /TIG {350 16.67 div /TimesI-ISOL1 FS} bind def /TBK {250 16.67 div /TimesB-ISOL1 FS} bind def /TBM {300 16.67 div /TimesB-ISOL1 FS} bind def /TBG {350 16.67 div /TimesB-ISOL1 FS} bind def /TBIK {250 16.67 div /TimesBI-ISOL1 FS} bind def /TBIM {300 16.67 div /TimesBI-ISOL1 FS} bind def /TBIG {350 16.67 div /TimesBI-ISOL1 FS} bind def /proz1 {pop} bind def /proz2 {sqrt} bind def /setgc {pop pop pop 1 exch sub setgray} bind def /setgm {pop pop 1 exch sub setgray pop} bind def /setgy {pop 1 exch sub setgray pop pop} bind def /setgn {1 exch sub setgray pop pop pop} bind def /setgf {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def 0 ccolor eq 0 mcolor eq and 0 ycolor eq and {1 ncolor sub setgray} {1 ccolor sub 0.71 mul 1 mcolor sub 0.22 mul add 1 ycolor sub 0.07 mul add setgray} ifelse } bind def /setsc {075 135 {proz1} setscreen } bind def /setsm {075 090 {proz1} setscreen } bind def /setsy {075 000 {proz1} setscreen } bind def /setsn {075 045 {proz1} setscreen } bind def /setsf {075 135 {proz1} 075 090 {proz1} 075 000 {proz1} 075 045 {proz1} setcolorscreen } bind def /setcmykcolorf {setcmykcolor setsf} bind def %fuer PSL1/2-Farbgeraet %ANFA HALBTON /Halbt { %wrbie:HALBTOA0.eps } bind def %ANFA SETCMYK /setcmyknew { %Ersatz setcolornew durch setcmykcolor1 ausz 1 eq {setgc half 0 eq {setsc} if} if %C ausz 2 eq {setgm half 0 eq {setsm} if} if %M ausz 3 eq {setgy half 0 eq {setsy} if} if %Y ausz 4 eq {pop pop pop /ccolor exch def ccolor 0 0 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgc setsc} %PSL1-SW-Geraet ifelse } if %Cbunt ausz 5 eq {pop pop /mcolor exch def pop 0 mcolor 0 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgm setsm} %PSL1-SW-Geraet ifelse } if %Mbunt ausz 6 eq {pop /ycolor exch def pop pop 0 0 ycolor 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgy setsy} %PSL1-SW-Geraet ifelse } if %Ybunt ausz 7 eq {setgn half 0 eq {setsn} if} if %N ausz 8 ge { /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgf setsn} %PSL1-SW-Geraet ifelse } if %bei ausz=8: Farb- oder SW-Ausdruck je nach Drucker } bind def /fcolors %CMY 32 no. 0 to 31; hue circe row [{1.00 1.00 1.00 0.00} {0.00 1.00 1.00 0.00} {0.00 0.00 1.00 0.00} {1.00 0.00 1.00 0.00} {1.00 0.00 0.00 0.00} {1.00 1.00 0.00 0.00} {0.00 1.00 0.00 0.00} {0.00 0.00 0.00 0.00} {0.50 0.50 0.50 0.00} {0.50 1.00 1.00 0.00} {0.50 0.50 1.00 0.00} {1.00 0.50 1.00 0.00} {1.00 0.50 0.50 0.00} {1.00 1.00 0.50 0.00} {0.50 1.00 0.50 0.00} {0.00 1.00 0.50 0.00} {0.75 0.75 0.75 0.00} {0.00 0.50 0.50 0.00} {0.00 0.00 0.50 0.00} {0.50 0.00 0.50 0.00} {0.50 0.00 0.00 0.00} {0.50 0.50 0.00 0.00} {0.00 0.50 0.00 0.00} {1.00 0.50 0.00 0.00} {0.25 0.25 0.25 0.00} {0.00 0.50 1.00 0.00} {0.50 0.00 1.00 0.00} {1.00 0.00 0.50 0.00} {1.00 0.50 0.00 0.00} {0.50 1.00 0.00 0.00} {0.00 1.00 0.50 0.00} {1.00 0.00 0.50 0.00} ] def /fak 0.5 def /Far %Farbkreis-Reihenfolge [ 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %R 16 17 18 19 20 21 22 23 %B 24 25 26 27 28 29 30 31 %G ] def /cFar %Kompensativ-Farbkreis-Reihenfolge [ 8 4 5 6 1 2 3 0 0 20 21 22 17 18 19 31 %G 24 12 13 14 9 10 11 2 %J 16 28 29 30 25 26 27 15 %R ] def /Btx %Farbkreis- -> %Btx-Reihenfolge [ 0 1 3 2 5 6 4 7 8 9 11 10 13 14 12 15 %R 16 17 19 18 21 22 20 23 %B 24 25 26 27 28 29 30 31 %G ] def /cBtx %Farbkreis- -> %Kompensativ-Btx-Reihenfolge [ 7 4 6 5 2 3 1 0 8 20 22 21 18 19 17 31 %G 24 12 14 13 10 11 9 2 %J 16 25 26 27 28 29 30 15 %R ] def /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfi %x y width heigth c m y k {setcmyknew rec fill} bind def /colrecst %x y width heigth c m y k {setcmyknew rec stroke} bind def /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmyknew} bind def /tfl {tzl setcmyknew} bind def /tfv {tzv setcmyknew} bind def /tfc {tzc setcmyknew} bind def /tfm {tzm setcmyknew} bind def /tfy {tzy setcmyknew} bind def /tfn {tzn setcmyknew} bind def /tfd {tzd setcmyknew} bind def /tfz {tzz setcmyknew} bind def /tfh {tzh setcmyknew} bind def /tfw {tzw setcmyknew} bind def /tfr {tzr setcmyknew} bind def /tfg {tzg setcmyknew} bind def /tfb {tzb setcmyknew} bind def /tfj {tzj setcmyknew} bind def /tfrz {tzrz setcmyknew} bind def /tfgz {tzgz setcmyknew} bind def /tfbz {tzbz setcmyknew} bind def /tfjz {tzjz setcmyknew} bind def %ANFA OUTLIN00 951204 /pixf 1.0 def /ueg 1 pixf mul def /uek 1 pixf mul def /ues 1 pixf mul def /pxd uek def /pyd uek def /pxwd ueg def /pywd ueg def /pss ues def /outxshowf {show} bind def /outxshow {show} bind def /outSK {250 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSM {300 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSG {350 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outshowf {setcmyknew show} bind def /outrecfi { %x y width heigth c m y k setcmyknew rec fill} bind def /outrecfi4 { %x y width heigth c m y k outrecfi} bind def /outrecfi3 { %x y width heigth c m y k outrecfi} bind def /outrecfi2 { %x y width heigth c m y k outrecfi} bind def /outlinetos { %px py c m y k setcmyknew lineto stroke} bind def /outstroke { %px1 py1 curveto ... curveto c m y k setcmyknew stroke} bind def %%EndProlog gsave %LANINDL2 START 20000505 /lanind 0 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /popde {0 lanind ne {pop} if} bind def /popen {1 lanind ne {pop} if} bind def /popes {2 lanind ne {pop} if} bind def /popfr {3 lanind ne {pop} if} bind def /popit {4 lanind ne {pop} if} bind def /popjp {5 lanind ne {pop} if} bind def /popm {6 lanind ne {pop} if} bind def /popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def /popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def /popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def /popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def /popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def /popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def /popxm {/n exch def 6 lanind ne {n {pop} repeat} if} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave %LANINDL2 END %{proz2} settransfer 8 /Times-Roman FS 72 83 moveto ( E8620-2, ) show 8 /Times-ISOL1 FS (Digitaldaten D8/8bit SGcode) popde %08620-2 1 (Digital data D8/8bit SGcode) popen %18620-2 1 (Digital data D8/8bit SGcode) popes %28620-2 1 (Digital data D8/8bit SGcode) popfr %38620-2 1 (Digital data D8/8bit SGcode) popit %48620-2 1 (Digital data D8/8bit SGcode) popjp %58620-2 1 show 8 /TimesI-ISOL1 FS ( CMY*) show 72 90 translate /pixf 1.0 def 0.1667 pixf div MM dup scale /ausz 8 def /half 0 def Halbt %Farbauszug 1=C, 2=M, 3=Y, 7=N, 8=F %/setcmyknew {/n exch def /y exch def /m exch def /c exch def % 1 c sub 1 m sub 1 y sub setrgbcolor} def 0 0 320 240 0.0 0.0 0.0 0.0 colrecfi %rectangle W 0.0 0.0 0.0 1.0 setcmyknew %text N 0 0 moveto 320 0 rlineto 0 240 rlineto -320 0 rlineto closepath stroke TBIG %Schrift Times-Bold-Gross-Italic 02 223 moveto (N\255W: ) show TBG %Schrift Times-Bold-Gross (D8CMY*s/z, d8cmy*i/h) show 45 103 moveto (unbunte Hauptfarben) showde %08620-2 2 (achromatic basic colors) showen %18620-2 2 (Colores acrom\341ticos b\341sicos) showes %28620-2 2 (achromatic basic colors) showfr %38620-2 2 (achromatic basic colors) showit %48620-2 2 (achromatic basic colors) showjp %58620-2 2 /iln 1 def /j 0 def /iy 180 def /solvfcols %Sonder-Farbkreis-Reihenfolge Nr. 0 bis 5; %N&W [ (111*) (222*) (555*) (999*) (DDD*) (EEE*) ] def /scolors %CMYN 5 Sonder-Testfarben Nr. 0 bis 5; Farbkreis-Reihenfolge %NN [ {0.0 0.0 0.0 0.923} {0.0 0.0 0.0 0.870} {0.0 0.0 0.0 0.630} {0.0 0.0 0.0 0.333} {0.0 0.0 0.0 0.130} {0.0 0.0 0.0 0.067}] def /tBtxz %textBtx-Reihenfolge [(0) (1) (2) (3) (4) (5) (6) (7) (0) (0) () (8) () (7) () ()] def /tFarb %textFar-Reihenfolge [(N) (O) (Y) (L) (C) (V) (M) (W) (Z) (N) (D) (Z) (H) (W) () () ] def %output as integer and 0 to 3 digits /cvishow {0.5 add cvi %new980310 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 %new980310 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 %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 6 string cvs show} def /cvsshow3 {dup 1000 mul 0.1 add round cvi 0.001 mul 6 string cvs show (, ) show x 20 add y moveto 1000 mul 500 sub 0.1 add round cvi 0.001 mul 8 string cvs show } def /temp 12 string def /arrow {x 6 sub y moveto (->) show} bind def /r4outh {%begin 4bit round print hex 15 mul 0.26 sub round cvi dup 10 temp cvrs show (, ) show 16 temp cvrs show } bind def %end 4bit round print /r4outd {%begin decimal 0..1 print cvsshow3 } bind def %end 4bit round print /r8outh {%begin 8bit round print hex 255 mul 0.26 sub round cvi dup 10 temp cvrs show ( / ) show dup 16 le {(0) show} if 16 temp cvrs show } bind def %end 8bit round print /r8outd {%begin decimal 0..1 print cvsshow3 } bind def %end 8bit round print /N4outh {%begin printpout dec, hex 4 bit 0.77 mul 0.05 add r4outh } bind def %end printpout dec, hex 4 bit /n4outh {%begin printpout dec, hex 4 bit r4outh } bind def %end printpout dec, hex 4 bit /N4outd {%begin printpout dec, hex 4 bit 0.77 mul 0.05 add r4outd } bind def %end printpout dec, hex 4 bit /n4outd {%begin printpout dec, hex 4 bit r4outd } bind def %end printpout dec, hex 4 bit /N6outh {%begin printpout dec, hex 6 bit 0.77 mul 0.05 add 0.5 sub 0.25 mul 0.5 add r8outh } bind def %end printpout dec, hex 6 bit /n6outh {%begin printpout dec, hex 6 bit 0.5 sub 0.25 mul 0.5 add r8outh } bind def %end printpout dec, hex 6 bit /N6outd {%begin printpout dec, hex 6 bit 0.77 mul 0.05 add 0.5 sub 0.25 mul 0.5 add r8outd } bind def %end printpout dec, hex 6 bit /n6outd {%begin printpout dec, hex 6 bit 0.5 sub 0.25 mul 0.5 add r8outd } bind def %end printpout dec, hex 6 bit /N7outh {%begin printpout dec, hex 7 bit 0.77 mul 0.05 add 0.5 sub 0.50 mul 0.5 add r8outh } bind def %end printpout dec, hex 7 bit /n7outh {%begin printpout dec, hex 7 bit 0.5 sub 0.50 mul 0.5 add r8outh } bind def %end printpout dec, hex 7 bit /N7outd {%begin printpout dec, hex 7 bit 0.77 mul 0.05 add 0.5 sub 0.50 mul 0.5 add r8outd } bind def %end printpout dec, hex 7 bit /n7outd {%begin printpout dec, hex 7 bit 0.5 sub 0.50 mul 0.5 add r8outd } bind def %end printpout dec, hex 7 bit /N8outh {%begin printpout dec, hex 8 bit 0.77 mul 0.05 add r8outh } bind def %end printpout dec, hex 8 bit /n8outh {%begin printpout dec, hex 8 bit r8outh } bind def %end printpout dec, hex 8 bit /N8outd {%begin printpout dec, hex 8 bit 0.77 mul 0.05 add r8outd } bind def %end printpout dec, hex 8 bit /n8outd {%begin printpout dec, hex 8 bit r8outd } bind def %end printpout dec, hex 8 bit /nc100out {%begin printpout dec, hex CIE 100 steps 0.5 sub 100 255 div mul 0.5 add r8outd } bind def %end printpout dec, hex CIE 100 steps /Nc100out {%begin printpout dec, hex CIE 100 steps 0.77 mul 0.05 add 0.5 sub 100 255 div mul 0.5 add r8outd } bind def %end printpout dec, hex CIE 100 steps /nc077out {%begin printpout dec, hex CIE 077 steps 0.5 sub 077 255 div mul 0.5 add r8outd } bind def %end printpout dec, hex CIE 077 steps /Nc077out {%begin printpout dec, hex CIE 077 steps 0.77 mul 0.05 add 0.5 sub 077 255 div mul 0.5 add r8outd } bind def %end printpout dec, hex CIE 077 steps /TBKK {200 16.67 div /Times-Bold FS} bind def /TBKL {100 16.67 div /Times-Bold FS} bind def /j 0 def 1 1 6 {/i exch def TBM i j 8 mul add /k exch def -08 i 48 mul add 17 add /ix exch def 183 j 120 mul sub /iy exch def 0.0 0.0 0.0 1.0 setcmyknew %text N TBIK i 1 eq { ix 15 sub iy 25 add moveto (D8CMY*tod8cmy* setcmy*color) show TBKL ix 55 sub iy 18 add moveto (Type / range:) show ix 55 sub iy 12 add moveto (D8CMY*s/z) show ix 53 sub iy 6 add moveto ( 0.050...0.820) show ix 53 sub iy 0 sub moveto (-0.450...0.320) show ix 55 sub iy 6 sub moveto (d8cmy*i/h:) show ix 53 sub iy 12 sub moveto (0...255) show ix 53 sub iy 19 sub moveto (00...FF) show ix 55 sub iy 26 sub moveto (D8C*s/z) show ix 55 sub iy 40 sub moveto (D8M*s/z) show ix 55 sub iy 54 sub moveto (D8Y*s/z) show ix 55 sub iy 32 sub moveto (d8c*i/h) show ix 55 sub iy 46 sub moveto (d8m*i/h) show ix 55 sub iy 60 sub moveto (d8y*i/h) show } if TBKL /ku Far k get exec def iln 0 ne {%begin olv or cmy dec and hex fcolors ku get exec /n8 exch def /y8 exch def /m8 exch def /c8 exch def /x ix 18 sub def /y iy 26 sub def x y moveto c8 N8outd /x ix 18 sub def /y iy 40 sub def x y moveto y8 N8outd /x ix 18 sub def /y iy 54 sub def x y moveto m8 N8outd /x ix 18 sub def /y iy 32 sub def arrow x y moveto c8 n8outh /x ix 18 sub def /y iy 46 sub def arrow x y moveto y8 n8outh /x ix 18 sub def /y iy 60 sub def arrow x y moveto m8 n8outh } if %end out olv or cmy dec and hex ix 19 sub iy 19 sub 39 39 fcolors ku get exec outrecfi4 %Farbe-Fuellen je nach Auszug TBIG /kuc cFar k get exec def j 0 eq {ix 7 sub iy 5 sub moveto tFarb i get exec fcolors kuc get exec outshowf} if } for %schleife i /scolors %CMY 5 Sonder-Testfarben Nr. 0 bis 4; Farbkreis-Reihenfolge %NN [ {1.00 1.00 1.00 0.00} {0.75 0.75 0.75 0.00} {0.50 0.50 0.50 0.00} {0.25 0.25 0.25 0.00} {0.00 0.00 0.00 0.00} ] def /iy 063 def 0 1 4 {/i exch def 0.0 0.0 0.0 1.0 setcmyknew %text N TBIK 15 i 1 add 48 mul add 17 add /ix exch def i 0 eq { ix 15 sub iy 25 add moveto (D8CMY*tod8cmy* setcmy*color) show TBKL ix 77 sub iy 18 add moveto (Type / range:) show ix 77 sub iy 12 add moveto (D8CMY*s/z) show ix 75 sub iy 6 add moveto ( 0.050...0.820) show ix 75 sub iy 0 sub moveto (-0.450...0.320) show ix 77 sub iy 6 sub moveto (d8cmy*i/h:) show ix 75 sub iy 12 sub moveto (0...255) show ix 75 sub iy 19 sub moveto (00...FF) show ix 77 sub iy 26 sub moveto (D8C*s/z) show ix 77 sub iy 40 sub moveto (D8M*s/z) show ix 77 sub iy 54 sub moveto (D8Y*s/z) show ix 77 sub iy 32 sub moveto (d8c*i/h) show ix 77 sub iy 46 sub moveto (d8m*i/h) show ix 77 sub iy 60 sub moveto (d8y*i/h) show } if TBKL iln 0 ne {%begin olv or cmy dec and hex scolors i get exec /n8 exch def /y8 exch def /m8 exch def /c8 exch def /x ix 18 sub def /y iy 26 sub def x y moveto c8 N8outd /x ix 18 sub def /y iy 40 sub def x y moveto m8 N8outd /x ix 18 sub def /y iy 54 sub def x y moveto y8 N8outd /x ix 18 sub def /y iy 32 sub def arrow x y moveto c8 n8outh /x ix 18 sub def /y iy 46 sub def arrow x y moveto m8 n8outh /x ix 18 sub def /y iy 60 sub def arrow x y moveto y8 n8outh } if %end out olv or cmy dec and hex TBIG ix 19 sub iy 19 sub 39 39 scolors i get exec outrecfi4 %Farbe-Fuellen je nach Auszug /kuc cFar 9 i add get exec def ix 06 sub iy 5 sub moveto i 3 lt {fcolors 07 get exec} {fcolors 00 get exec} ifelse setcmyknew tFarb 9 i add get exec dup stringwidth pop 15 exch sub 0.5 mul 0 rmoveto show 4 i eq {ix 19 sub iy 19 sub moveto 39 0 rlineto 0 39 rlineto -39 0 rlineto closepath 0.0 0.0 0.0 1.0 setcmyknew stroke %edge N } if } for %schleife i showpage grestore } for %output with langind end %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 109 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 23 %Zeile 430 %!PS-Adobe-3.0 EPSF-3.0 1x1 E8620-3N.EPS %%BoundingBox: 60 80 226 206 %START PDFDE011.EPS /pdfmark where {pop} {userdict /pdfmark /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: 1x1 E8620-3) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://o2.ps.bam.de or www.ps.bam.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@bam.de) /CreationDate (D:2000010512000) /ModDate (D:2000010512000) /DOCINFO pdfmark [ /View [ /FitB ] /DOCVIEW pdfmark %END PDFDE011 %%Creator: K. Richter, BAM und TU Berlin, 2000.01.04 %%+Copyright (c) 1996 VDE-Verlag Berlin Offenbach % !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 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /TK {250 16.67 div /Times-ISOL1 FS} bind def /TM {300 16.67 div /Times-ISOL1 FS} bind def /TG {350 16.67 div /Times-ISOL1 FS} bind def /TIK {250 16.67 div /TimesI-ISOL1 FS} bind def /TIM {300 16.67 div /TimesI-ISOL1 FS} bind def /TIG {350 16.67 div /TimesI-ISOL1 FS} bind def /TBK {250 16.67 div /TimesB-ISOL1 FS} bind def /TBM {300 16.67 div /TimesB-ISOL1 FS} bind def /TBG {350 16.67 div /TimesB-ISOL1 FS} bind def /TBIK {250 16.67 div /TimesBI-ISOL1 FS} bind def /TBIM {300 16.67 div /TimesBI-ISOL1 FS} bind def /TBIG {350 16.67 div /TimesBI-ISOL1 FS} bind def /proz1 {pop} bind def /proz2 {sqrt} bind def /setgc {pop pop pop 1 exch sub setgray} bind def /setgm {pop pop 1 exch sub setgray pop} bind def /setgy {pop 1 exch sub setgray pop pop} bind def /setgn {1 exch sub setgray pop pop pop} bind def /setgf {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def 0 ccolor eq 0 mcolor eq and 0 ycolor eq and {1 ncolor sub setgray} {1 ccolor sub 0.71 mul 1 mcolor sub 0.22 mul add 1 ycolor sub 0.07 mul add setgray} ifelse } bind def /setsc {075 135 {proz1} setscreen } bind def /setsm {075 090 {proz1} setscreen } bind def /setsy {075 000 {proz1} setscreen } bind def /setsn {075 045 {proz1} setscreen } bind def /setsf {075 135 {proz1} 075 090 {proz1} 075 000 {proz1} 075 045 {proz1} setcolorscreen } bind def /setcmykcolorf {setcmykcolor setsf} bind def %fuer PSL1/2-Farbgeraet %ANFA HALBTON /Halbt { %wrbie:HALBTOA0.eps } bind def %ANFA SETCMYK /setcmyknew { %Ersatz setcolornew durch setcmykcolor1 ausz 1 eq {setgc half 0 eq {setsc} if} if %C ausz 2 eq {setgm half 0 eq {setsm} if} if %M ausz 3 eq {setgy half 0 eq {setsy} if} if %Y ausz 4 eq {pop pop pop /ccolor exch def ccolor 0 0 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgc setsc} %PSL1-SW-Geraet ifelse } if %Cbunt ausz 5 eq {pop pop /mcolor exch def pop 0 mcolor 0 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgm setsm} %PSL1-SW-Geraet ifelse } if %Mbunt ausz 6 eq {pop /ycolor exch def pop pop 0 0 ycolor 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgy setsy} %PSL1-SW-Geraet ifelse } if %Ybunt ausz 7 eq {setgn half 0 eq {setsn} if} if %N ausz 8 ge { /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgf setsn} %PSL1-SW-Geraet ifelse } if %bei ausz=8: Farb- oder SW-Ausdruck je nach Drucker } bind def /fcolors %CMY 32 no. 0 to 31; hue circe row [{1.00 1.00 1.00 0.00} {0.00 1.00 1.00 0.00} {0.00 0.00 1.00 0.00} {1.00 0.00 1.00 0.00} {1.00 0.00 0.00 0.00} {1.00 1.00 0.00 0.00} {0.00 1.00 0.00 0.00} {0.00 0.00 0.00 0.00} {0.50 0.50 0.50 0.00} {0.50 1.00 1.00 0.00} {0.50 0.50 1.00 0.00} {1.00 0.50 1.00 0.00} {1.00 0.50 0.50 0.00} {1.00 1.00 0.50 0.00} {0.50 1.00 0.50 0.00} {0.00 1.00 0.50 0.00} {0.75 0.75 0.75 0.00} {0.00 0.50 0.50 0.00} {0.00 0.00 0.50 0.00} {0.50 0.00 0.50 0.00} {0.50 0.00 0.00 0.00} {0.50 0.50 0.00 0.00} {0.00 0.50 0.00 0.00} {1.00 0.50 0.00 0.00} {0.25 0.25 0.25 0.00} {0.00 0.50 1.00 0.00} {0.50 0.00 1.00 0.00} {1.00 0.00 0.50 0.00} {1.00 0.50 0.00 0.00} {0.50 1.00 0.00 0.00} {0.00 1.00 0.50 0.00} {1.00 0.00 0.50 0.00} ] def /fak 0.5 def /Far %Farbkreis-Reihenfolge [ 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %R 16 17 18 19 20 21 22 23 %B 24 25 26 27 28 29 30 31 %G ] def /cFar %Kompensativ-Farbkreis-Reihenfolge [ 8 4 5 6 1 2 3 0 0 20 21 22 17 18 19 31 %G 24 12 13 14 9 10 11 2 %J 16 28 29 30 25 26 27 15 %R ] def /Btx %Farbkreis- -> %Btx-Reihenfolge [ 0 1 3 2 5 6 4 7 8 9 11 10 13 14 12 15 %R 16 17 19 18 21 22 20 23 %B 24 25 26 27 28 29 30 31 %G ] def /cBtx %Farbkreis- -> %Kompensativ-Btx-Reihenfolge [ 7 4 6 5 2 3 1 0 8 20 22 21 18 19 17 31 %G 24 12 14 13 10 11 9 2 %J 16 25 26 27 28 29 30 15 %R ] def /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfi %x y width heigth c m y k {setcmyknew rec fill} bind def /colrecst %x y width heigth c m y k {setcmyknew rec stroke} bind def /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmyknew} bind def /tfl {tzl setcmyknew} bind def /tfv {tzv setcmyknew} bind def /tfc {tzc setcmyknew} bind def /tfm {tzm setcmyknew} bind def /tfy {tzy setcmyknew} bind def /tfn {tzn setcmyknew} bind def /tfd {tzd setcmyknew} bind def /tfz {tzz setcmyknew} bind def /tfh {tzh setcmyknew} bind def /tfw {tzw setcmyknew} bind def /tfr {tzr setcmyknew} bind def /tfg {tzg setcmyknew} bind def /tfb {tzb setcmyknew} bind def /tfj {tzj setcmyknew} bind def /tfrz {tzrz setcmyknew} bind def /tfgz {tzgz setcmyknew} bind def /tfbz {tzbz setcmyknew} bind def /tfjz {tzjz setcmyknew} bind def %ANFA OUTLIN00 951204 /pixf 1.0 def /ueg 1 pixf mul def /uek 1 pixf mul def /ues 1 pixf mul def /pxd uek def /pyd uek def /pxwd ueg def /pywd ueg def /pss ues def /outxshowf {show} bind def /outxshow {show} bind def /outSK {250 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSM {300 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSG {350 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outshowf {setcmyknew show} bind def /outrecfi { %x y width heigth c m y k setcmyknew rec fill} bind def /outrecfi4 { %x y width heigth c m y k outrecfi} bind def /outrecfi3 { %x y width heigth c m y k outrecfi} bind def /outrecfi2 { %x y width heigth c m y k outrecfi} bind def /outlinetos { %px py c m y k setcmyknew lineto stroke} bind def /outstroke { %px1 py1 curveto ... curveto c m y k setcmyknew stroke} bind def %%EndProlog gsave %LANINDL2 START 20000505 /lanind 0 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /popde {0 lanind ne {pop} if} bind def /popen {1 lanind ne {pop} if} bind def /popes {2 lanind ne {pop} if} bind def /popfr {3 lanind ne {pop} if} bind def /popit {4 lanind ne {pop} if} bind def /popjp {5 lanind ne {pop} if} bind def /popm {6 lanind ne {pop} if} bind def /popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def /popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def /popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def /popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def /popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def /popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def /popxm {/n exch def 6 lanind ne {n {pop} repeat} if} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave %LANINDL2 END %{proz2} settransfer 8 /Times-Roman FS 72 83 moveto ( E8620-3, ) show 8 /Times-ISOL1 FS (Digitaldaten D7/8bit MGcode) popde %08620-3 1 (Digital data D7/8bit MGcode) popen %18620-3 1 (Digital data D7/8bit MGcode) popes %28620-3 1 (Digital data D7/8bit MGcode) popfr %38620-3 1 (Digital data D7/8bit MGcode) popit %48620-3 1 (Digital data D7/8bit MGcode) popjp %58620-3 1 show 8 /TimesI-ISOL1 FS ( CMY*) show 72 90 translate /pixf 1.0 def 0.1667 pixf div MM dup scale /ausz 8 def /half 0 def Halbt %Farbauszug 1=C, 2=M, 3=Y, 7=N, 8=F %/setcmyknew {/n exch def /y exch def /m exch def /c exch def % 1 c sub 1 m sub 1 y sub setrgbcolor} def 0 0 320 240 0.0 0.0 0.0 0.0 colrecfi %rectangle W 0.0 0.0 0.0 1.0 setcmyknew %text N 0 0 moveto 320 0 rlineto 0 240 rlineto -320 0 rlineto closepath stroke TBIG %Schrift Times-Bold-Gross-Italic 02 223 moveto (N\255W: ) show TBG %Schrift Times-Bold-Gross (D7CMY*s/z, D7CMY*i/h) show 45 103 moveto (unbunte Hauptfarben) showde %08620-3 2 (achromatic basic colors) showen %18620-3 2 (Colores acrom\341ticos b\341sicos) showes %28620-3 2 (achromatic basic colors) showfr %38620-3 2 (achromatic basic colors) showit %48620-3 2 (achromatic basic colors) showjp %58620-3 2 /iln 1 def /j 0 def /iy 180 def /solvfcols %Sonder-Farbkreis-Reihenfolge Nr. 0 bis 5; %N&W [ (111*) (222*) (555*) (999*) (DDD*) (EEE*) ] def /scolors %CMYN 5 Sonder-Testfarben Nr. 0 bis 5; Farbkreis-Reihenfolge %NN [ {0.0 0.0 0.0 0.923} {0.0 0.0 0.0 0.870} {0.0 0.0 0.0 0.630} {0.0 0.0 0.0 0.333} {0.0 0.0 0.0 0.130} {0.0 0.0 0.0 0.067}] def /tBtxz %textBtx-Reihenfolge [(0) (1) (2) (3) (4) (5) (6) (7) (0) (0) () (8) () (7) () ()] def /tFarb %textFar-Reihenfolge [(N) (O) (Y) (L) (C) (V) (M) (W) (Z) (N) (D) (Z) (H) (W) () () ] def %output as integer and 0 to 3 digits /cvishow {0.5 add cvi %new980310 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 %new980310 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 %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 6 string cvs show} def /cvsshow3 {dup 1000 mul 0.1 add round cvi 0.001 mul 6 string cvs show (, ) show x 20 add y moveto 1000 mul 500 sub 0.1 add round cvi 0.001 mul 8 string cvs show } def /temp 12 string def /arrow {x 6 sub y moveto (->) show} bind def /r4outh {%begin 4bit round print hex 15 mul 0.26 sub round cvi dup 10 temp cvrs show (, ) show 16 temp cvrs show } bind def %end 4bit round print /r4outd {%begin decimal 0..1 print cvsshow3 } bind def %end 4bit round print /r8outh {%begin 8bit round print hex 255 mul 0.26 sub round cvi dup 10 temp cvrs show ( / ) show dup 16 le {(0) show} if 16 temp cvrs show } bind def %end 8bit round print /r8outd {%begin decimal 0..1 print cvsshow3 } bind def %end 8bit round print /N4outh {%begin printpout dec, hex 4 bit 0.77 mul 0.05 add r4outh } bind def %end printpout dec, hex 4 bit /n4outh {%begin printpout dec, hex 4 bit r4outh } bind def %end printpout dec, hex 4 bit /N4outd {%begin printpout dec, hex 4 bit 0.77 mul 0.05 add r4outd } bind def %end printpout dec, hex 4 bit /n4outd {%begin printpout dec, hex 4 bit r4outd } bind def %end printpout dec, hex 4 bit /N6outh {%begin printpout dec, hex 6 bit 0.77 mul 0.05 add 0.5 sub 0.25 mul 0.5 add r8outh } bind def %end printpout dec, hex 6 bit /n6outh {%begin printpout dec, hex 6 bit 0.5 sub 0.25 mul 0.5 add r8outh } bind def %end printpout dec, hex 6 bit /N6outd {%begin printpout dec, hex 6 bit 0.77 mul 0.05 add 0.5 sub 0.25 mul 0.5 add r8outd } bind def %end printpout dec, hex 6 bit /n6outd {%begin printpout dec, hex 6 bit 0.5 sub 0.25 mul 0.5 add r8outd } bind def %end printpout dec, hex 6 bit /N7outh {%begin printpout dec, hex 7 bit 0.77 mul 0.05 add 0.5 sub 0.50 mul 0.5 add r8outh } bind def %end printpout dec, hex 7 bit /n7outh {%begin printpout dec, hex 7 bit 0.5 sub 0.50 mul 0.5 add r8outh } bind def %end printpout dec, hex 7 bit /N7outd {%begin printpout dec, hex 7 bit 0.77 mul 0.05 add 0.5 sub 0.50 mul 0.5 add r8outd } bind def %end printpout dec, hex 7 bit /n7outd {%begin printpout dec, hex 7 bit 0.5 sub 0.50 mul 0.5 add r8outd } bind def %end printpout dec, hex 7 bit /N8outh {%begin printpout dec, hex 8 bit 0.77 mul 0.05 add r8outh } bind def %end printpout dec, hex 8 bit /n8outh {%begin printpout dec, hex 8 bit r8outh } bind def %end printpout dec, hex 8 bit /N8outd {%begin printpout dec, hex 8 bit 0.77 mul 0.05 add r8outd } bind def %end printpout dec, hex 8 bit /n8outd {%begin printpout dec, hex 8 bit r8outd } bind def %end printpout dec, hex 8 bit /nc100out {%begin printpout dec, hex CIE 100 steps 0.5 sub 100 255 div mul 0.5 add r8outd } bind def %end printpout dec, hex CIE 100 steps /Nc100out {%begin printpout dec, hex CIE 100 steps 0.77 mul 0.05 add 0.5 sub 100 255 div mul 0.5 add r8outd } bind def %end printpout dec, hex CIE 100 steps /nc077out {%begin printpout dec, hex CIE 077 steps 0.5 sub 077 255 div mul 0.5 add r8outd } bind def %end printpout dec, hex CIE 077 steps /Nc077out {%begin printpout dec, hex CIE 077 steps 0.77 mul 0.05 add 0.5 sub 077 255 div mul 0.5 add r8outd } bind def %end printpout dec, hex CIE 077 steps /TBKK {200 16.67 div /Times-Bold FS} bind def /TBKL {100 16.67 div /Times-Bold FS} bind def /j 0 def 1 1 6 {/i exch def TBM i j 8 mul add /k exch def -08 i 48 mul add 17 add /ix exch def 183 j 120 mul sub /iy exch def 0.0 0.0 0.0 1.0 setcmyknew %text N TBIK i 1 eq { ix 15 sub iy 25 add moveto (D7CMY*tod8cmy* setcmy*color) show TBKL ix 55 sub iy 18 add moveto (Type / range:) show ix 55 sub iy 12 add moveto (D7CMY*s/z) show ix 53 sub iy 6 add moveto ( 0.275...0.660) show ix 53 sub iy 0 sub moveto (-0.225...0.160) show ix 55 sub iy 6 sub moveto (D7CMY*i/h:) show ix 53 sub iy 12 sub moveto (70...168) show ix 53 sub iy 19 sub moveto (46...A8) show ix 55 sub iy 26 sub moveto (D7C*s/z) show ix 55 sub iy 40 sub moveto (D7M*s/z) show ix 55 sub iy 54 sub moveto (D7Y*s/z) show ix 55 sub iy 32 sub moveto (D7C*i/h) show ix 55 sub iy 46 sub moveto (D7M*i/h) show ix 55 sub iy 60 sub moveto (D7Y*i/h) show } if TBKL /ku Far k get exec def iln 0 ne {%begin olv or cmy dec and hex fcolors ku get exec /n8 exch def /y8 exch def /m8 exch def /c8 exch def /x ix 18 sub def /y iy 26 sub def x y moveto c8 N7outd /x ix 18 sub def /y iy 40 sub def x y moveto y8 N7outd /x ix 18 sub def /y iy 54 sub def x y moveto m8 N7outd /x ix 18 sub def /y iy 32 sub def x y moveto c8 N7outh /x ix 18 sub def /y iy 46 sub def x y moveto y8 N7outh /x ix 18 sub def /y iy 60 sub def x y moveto m8 N7outh } if %end out olv or cmy dec and hex ix 19 sub iy 19 sub 39 39 fcolors ku get exec outrecfi4 %Farbe-Fuellen je nach Auszug TBIG /kuc cFar k get exec def j 0 eq {ix 7 sub iy 5 sub moveto tFarb i get exec fcolors kuc get exec outshowf} if } for %schleife i /scolors %CMY 5 Sonder-Testfarben Nr. 0 bis 4; Farbkreis-Reihenfolge %NN [ {1.00 1.00 1.00 0.00} {0.75 0.75 0.75 0.00} {0.50 0.50 0.50 0.00} {0.25 0.25 0.25 0.00} {0.00 0.00 0.00 0.00} ] def /iy 063 def 0 1 4 {/i exch def 0.0 0.0 0.0 1.0 setcmyknew %text N TBIK 15 i 1 add 48 mul add 17 add /ix exch def i 0 eq { ix 15 sub iy 25 add moveto (D7CMY*tod8cmy* setcmy*color) show TBKL ix 77 sub iy 18 add moveto (Type / range:) show ix 77 sub iy 12 add moveto (D7CMY*s/z) show ix 75 sub iy 6 add moveto ( 0.275...0.660) show ix 75 sub iy 0 sub moveto (-0.225...0.160) show ix 77 sub iy 6 sub moveto (D7CMY*i/h:) show ix 75 sub iy 12 sub moveto (70...168) show ix 75 sub iy 19 sub moveto (46...A8) show ix 77 sub iy 26 sub moveto (D7C*s/z) show ix 77 sub iy 40 sub moveto (D7M*s/z) show ix 77 sub iy 54 sub moveto (D7Y*s/z) show ix 77 sub iy 32 sub moveto (D7C*i/h) show ix 77 sub iy 46 sub moveto (D7M*i/h) show ix 77 sub iy 60 sub moveto (D7Y*i/h) show } if TBKL iln 0 ne {%begin olv or cmy dec and hex scolors i get exec /n8 exch def /y8 exch def /m8 exch def /c8 exch def /x ix 18 sub def /y iy 26 sub def x y moveto c8 N7outd /x ix 18 sub def /y iy 40 sub def x y moveto m8 N7outd /x ix 18 sub def /y iy 54 sub def x y moveto y8 N7outd /x ix 18 sub def /y iy 32 sub def x y moveto c8 N7outh /x ix 18 sub def /y iy 46 sub def x y moveto m8 N7outh /x ix 18 sub def /y iy 60 sub def x y moveto y8 N7outh } if %end out olv or cmy dec and hex TBIG ix 19 sub iy 19 sub 39 39 scolors i get exec outrecfi4 %Farbe-Fuellen je nach Auszug /kuc cFar 9 i add get exec def ix 06 sub iy 5 sub moveto i 3 lt {fcolors 07 get exec} {fcolors 00 get exec} ifelse setcmyknew tFarb 9 i add get exec dup stringwidth pop 15 exch sub 0.5 mul 0 rmoveto show 4 i eq {ix 19 sub iy 19 sub moveto 39 0 rlineto 0 39 rlineto -39 0 rlineto closepath 0.0 0.0 0.0 1.0 setcmyknew stroke %edge N } if } for %schleife i showpage grestore } for %output with langind end %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 109 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 24 %Zeile 440 %!PS-Adobe-3.0 EPSF-3.0 1x1 E8620-4N.EPS %%BoundingBox: 60 80 226 206 %START PDFDE011.EPS /pdfmark where {pop} {userdict /pdfmark /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: 1x1 E8620-4) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://o2.ps.bam.de or www.ps.bam.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@bam.de) /CreationDate (D:2000010512000) /ModDate (D:2000010512000) /DOCINFO pdfmark [ /View [ /FitB ] /DOCVIEW pdfmark %END PDFDE011 %%Creator: K. Richter, BAM und TU Berlin, 2000.01.04 %%+Copyright (c) 1996 VDE-Verlag Berlin Offenbach % !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 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /TK {250 16.67 div /Times-ISOL1 FS} bind def /TM {300 16.67 div /Times-ISOL1 FS} bind def /TG {350 16.67 div /Times-ISOL1 FS} bind def /TIK {250 16.67 div /TimesI-ISOL1 FS} bind def /TIM {300 16.67 div /TimesI-ISOL1 FS} bind def /TIG {350 16.67 div /TimesI-ISOL1 FS} bind def /TBK {250 16.67 div /TimesB-ISOL1 FS} bind def /TBM {300 16.67 div /TimesB-ISOL1 FS} bind def /TBG {350 16.67 div /TimesB-ISOL1 FS} bind def /TBIK {250 16.67 div /TimesBI-ISOL1 FS} bind def /TBIM {300 16.67 div /TimesBI-ISOL1 FS} bind def /TBIG {350 16.67 div /TimesBI-ISOL1 FS} bind def /proz1 {pop} bind def /proz2 {sqrt} bind def /setgc {pop pop pop 1 exch sub setgray} bind def /setgm {pop pop 1 exch sub setgray pop} bind def /setgy {pop 1 exch sub setgray pop pop} bind def /setgn {1 exch sub setgray pop pop pop} bind def /setgf {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def 0 ccolor eq 0 mcolor eq and 0 ycolor eq and {1 ncolor sub setgray} {1 ccolor sub 0.71 mul 1 mcolor sub 0.22 mul add 1 ycolor sub 0.07 mul add setgray} ifelse } bind def /setsc {075 135 {proz1} setscreen } bind def /setsm {075 090 {proz1} setscreen } bind def /setsy {075 000 {proz1} setscreen } bind def /setsn {075 045 {proz1} setscreen } bind def /setsf {075 135 {proz1} 075 090 {proz1} 075 000 {proz1} 075 045 {proz1} setcolorscreen } bind def /setcmykcolorf {setcmykcolor setsf} bind def %fuer PSL1/2-Farbgeraet %ANFA HALBTON /Halbt { %wrbie:HALBTOA0.eps } bind def %ANFA SETCMYK /setcmyknew { %Ersatz setcolornew durch setcmykcolor1 ausz 1 eq {setgc half 0 eq {setsc} if} if %C ausz 2 eq {setgm half 0 eq {setsm} if} if %M ausz 3 eq {setgy half 0 eq {setsy} if} if %Y ausz 4 eq {pop pop pop /ccolor exch def ccolor 0 0 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgc setsc} %PSL1-SW-Geraet ifelse } if %Cbunt ausz 5 eq {pop pop /mcolor exch def pop 0 mcolor 0 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgm setsm} %PSL1-SW-Geraet ifelse } if %Mbunt ausz 6 eq {pop /ycolor exch def pop pop 0 0 ycolor 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgy setsy} %PSL1-SW-Geraet ifelse } if %Ybunt ausz 7 eq {setgn half 0 eq {setsn} if} if %N ausz 8 ge { /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgf setsn} %PSL1-SW-Geraet ifelse } if %bei ausz=8: Farb- oder SW-Ausdruck je nach Drucker } bind def /fcolors %CMY 32 no. 0 to 31; hue circe row [{1.00 1.00 1.00 0.00} {0.00 1.00 1.00 0.00} {0.00 0.00 1.00 0.00} {1.00 0.00 1.00 0.00} {1.00 0.00 0.00 0.00} {1.00 1.00 0.00 0.00} {0.00 1.00 0.00 0.00} {0.00 0.00 0.00 0.00} {0.50 0.50 0.50 0.00} {0.50 1.00 1.00 0.00} {0.50 0.50 1.00 0.00} {1.00 0.50 1.00 0.00} {1.00 0.50 0.50 0.00} {1.00 1.00 0.50 0.00} {0.50 1.00 0.50 0.00} {0.00 1.00 0.50 0.00} {0.75 0.75 0.75 0.00} {0.00 0.50 0.50 0.00} {0.00 0.00 0.50 0.00} {0.50 0.00 0.50 0.00} {0.50 0.00 0.00 0.00} {0.50 0.50 0.00 0.00} {0.00 0.50 0.00 0.00} {1.00 0.50 0.00 0.00} {0.25 0.25 0.25 0.00} {0.00 0.50 1.00 0.00} {0.50 0.00 1.00 0.00} {1.00 0.00 0.50 0.00} {1.00 0.50 0.00 0.00} {0.50 1.00 0.00 0.00} {0.00 1.00 0.50 0.00} {1.00 0.00 0.50 0.00} ] def /fak 0.5 def /Far %Farbkreis-Reihenfolge [ 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %R 16 17 18 19 20 21 22 23 %B 24 25 26 27 28 29 30 31 %G ] def /cFar %Kompensativ-Farbkreis-Reihenfolge [ 8 4 5 6 1 2 3 0 0 20 21 22 17 18 19 31 %G 24 12 13 14 9 10 11 2 %J 16 28 29 30 25 26 27 15 %R ] def /Btx %Farbkreis- -> %Btx-Reihenfolge [ 0 1 3 2 5 6 4 7 8 9 11 10 13 14 12 15 %R 16 17 19 18 21 22 20 23 %B 24 25 26 27 28 29 30 31 %G ] def /cBtx %Farbkreis- -> %Kompensativ-Btx-Reihenfolge [ 7 4 6 5 2 3 1 0 8 20 22 21 18 19 17 31 %G 24 12 14 13 10 11 9 2 %J 16 25 26 27 28 29 30 15 %R ] def /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfi %x y width heigth c m y k {setcmyknew rec fill} bind def /colrecst %x y width heigth c m y k {setcmyknew rec stroke} bind def /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmyknew} bind def /tfl {tzl setcmyknew} bind def /tfv {tzv setcmyknew} bind def /tfc {tzc setcmyknew} bind def /tfm {tzm setcmyknew} bind def /tfy {tzy setcmyknew} bind def /tfn {tzn setcmyknew} bind def /tfd {tzd setcmyknew} bind def /tfz {tzz setcmyknew} bind def /tfh {tzh setcmyknew} bind def /tfw {tzw setcmyknew} bind def /tfr {tzr setcmyknew} bind def /tfg {tzg setcmyknew} bind def /tfb {tzb setcmyknew} bind def /tfj {tzj setcmyknew} bind def /tfrz {tzrz setcmyknew} bind def /tfgz {tzgz setcmyknew} bind def /tfbz {tzbz setcmyknew} bind def /tfjz {tzjz setcmyknew} bind def %ANFA OUTLIN00 951204 /pixf 1.0 def /ueg 1 pixf mul def /uek 1 pixf mul def /ues 1 pixf mul def /pxd uek def /pyd uek def /pxwd ueg def /pywd ueg def /pss ues def /outxshowf {show} bind def /outxshow {show} bind def /outSK {250 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSM {300 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSG {350 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outshowf {setcmyknew show} bind def /outrecfi { %x y width heigth c m y k setcmyknew rec fill} bind def /outrecfi4 { %x y width heigth c m y k outrecfi} bind def /outrecfi3 { %x y width heigth c m y k outrecfi} bind def /outrecfi2 { %x y width heigth c m y k outrecfi} bind def /outlinetos { %px py c m y k setcmyknew lineto stroke} bind def /outstroke { %px1 py1 curveto ... curveto c m y k setcmyknew stroke} bind def %%EndProlog gsave %LANINDL2 START 20000505 /lanind 0 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /popde {0 lanind ne {pop} if} bind def /popen {1 lanind ne {pop} if} bind def /popes {2 lanind ne {pop} if} bind def /popfr {3 lanind ne {pop} if} bind def /popit {4 lanind ne {pop} if} bind def /popjp {5 lanind ne {pop} if} bind def /popm {6 lanind ne {pop} if} bind def /popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def /popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def /popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def /popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def /popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def /popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def /popxm {/n exch def 6 lanind ne {n {pop} repeat} if} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave %LANINDL2 END %{proz2} settransfer 8 /Times-Roman FS 72 83 moveto ( E8620-4, ) show 8 /Times-ISOL1 FS (Digitaldaten D7/8bit MGcode) popde %08620-4 1 (Digital data D7/8bit MGcode) popen %18620-4 1 (Digital data D7/8bit MGcode) popes %28620-4 1 (Digital data D7/8bit MGcode) popfr %38620-4 1 (Digital data D7/8bit MGcode) popit %48620-4 1 (Digital data D7/8bit MGcode) popjp %58620-4 1 show 8 /TimesI-ISOL1 FS ( CMY*) show 72 90 translate /pixf 1.0 def 0.1667 pixf div MM dup scale /ausz 8 def /half 0 def Halbt %Farbauszug 1=C, 2=M, 3=Y, 7=N, 8=F %/setcmyknew {/n exch def /y exch def /m exch def /c exch def % 1 c sub 1 m sub 1 y sub setrgbcolor} def 0 0 320 240 0.0 0.0 0.0 0.0 colrecfi %rectangle W 0.0 0.0 0.0 1.0 setcmyknew %text N 0 0 moveto 320 0 rlineto 0 240 rlineto -320 0 rlineto closepath stroke TBIG %Schrift Times-Bold-Gross-Italic 02 223 moveto (N\255W: ) show TBG %Schrift Times-Bold-Gross (D7CMY*s/z, D8CMY*i/h) show 45 103 moveto (unbunte Hauptfarben) showde %08620-4 2 (achromatic basic colors) showen %18620-4 2 (Colores acrom\341ticos b\341sicos) showes %28620-4 2 (achromatic basic colors) showfr %38620-4 2 (achromatic basic colors) showit %48620-4 2 (achromatic basic colors) showjp %58620-4 2 /iln 1 def /j 0 def /iy 180 def /solvfcols %Sonder-Farbkreis-Reihenfolge Nr. 0 bis 5; %N&W [ (111*) (222*) (555*) (999*) (DDD*) (EEE*) ] def /scolors %CMYN 5 Sonder-Testfarben Nr. 0 bis 5; Farbkreis-Reihenfolge %NN [ {0.0 0.0 0.0 0.923} {0.0 0.0 0.0 0.870} {0.0 0.0 0.0 0.630} {0.0 0.0 0.0 0.333} {0.0 0.0 0.0 0.130} {0.0 0.0 0.0 0.067}] def /tBtxz %textBtx-Reihenfolge [(0) (1) (2) (3) (4) (5) (6) (7) (0) (0) () (8) () (7) () ()] def /tFarb %textFar-Reihenfolge [(N) (O) (Y) (L) (C) (V) (M) (W) (Z) (N) (D) (Z) (H) (W) () () ] def %output as integer and 0 to 3 digits /cvishow {0.5 add cvi %new980310 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 %new980310 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 %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 6 string cvs show} def /cvsshow3 {dup 1000 mul 0.1 add round cvi 0.001 mul 6 string cvs show (, ) show x 20 add y moveto 1000 mul 500 sub 0.1 add round cvi 0.001 mul 8 string cvs show } def /temp 12 string def /arrow {x 6 sub y moveto (->) show} bind def /r4outh {%begin 4bit round print hex 15 mul 0.26 sub round cvi dup 10 temp cvrs show (, ) show 16 temp cvrs show } bind def %end 4bit round print /r4outd {%begin decimal 0..1 print cvsshow3 } bind def %end 4bit round print /r8outh {%begin 8bit round print hex 255 mul 0.26 sub round cvi dup 10 temp cvrs show ( / ) show dup 16 le {(0) show} if 16 temp cvrs show } bind def %end 8bit round print /r8outd {%begin decimal 0..1 print cvsshow3 } bind def %end 8bit round print /N4outh {%begin printpout dec, hex 4 bit 0.77 mul 0.05 add r4outh } bind def %end printpout dec, hex 4 bit /n4outh {%begin printpout dec, hex 4 bit r4outh } bind def %end printpout dec, hex 4 bit /N4outd {%begin printpout dec, hex 4 bit 0.77 mul 0.05 add r4outd } bind def %end printpout dec, hex 4 bit /n4outd {%begin printpout dec, hex 4 bit r4outd } bind def %end printpout dec, hex 4 bit /N6outh {%begin printpout dec, hex 6 bit 0.77 mul 0.05 add 0.5 sub 0.25 mul 0.5 add r8outh } bind def %end printpout dec, hex 6 bit /n6outh {%begin printpout dec, hex 6 bit 0.5 sub 0.25 mul 0.5 add r8outh } bind def %end printpout dec, hex 6 bit /N6outd {%begin printpout dec, hex 6 bit 0.77 mul 0.05 add 0.5 sub 0.25 mul 0.5 add r8outd } bind def %end printpout dec, hex 6 bit /n6outd {%begin printpout dec, hex 6 bit 0.5 sub 0.25 mul 0.5 add r8outd } bind def %end printpout dec, hex 6 bit /N7outh {%begin printpout dec, hex 7 bit 0.77 mul 0.05 add 0.5 sub 0.50 mul 0.5 add r8outh } bind def %end printpout dec, hex 7 bit /n7outh {%begin printpout dec, hex 7 bit 0.5 sub 0.50 mul 0.5 add r8outh } bind def %end printpout dec, hex 7 bit /N7outd {%begin printpout dec, hex 7 bit 0.77 mul 0.05 add 0.5 sub 0.50 mul 0.5 add r8outd } bind def %end printpout dec, hex 7 bit /n7outd {%begin printpout dec, hex 7 bit 0.5 sub 0.50 mul 0.5 add r8outd } bind def %end printpout dec, hex 7 bit /N8outh {%begin printpout dec, hex 8 bit 0.77 mul 0.05 add r8outh } bind def %end printpout dec, hex 8 bit /n8outh {%begin printpout dec, hex 8 bit r8outh } bind def %end printpout dec, hex 8 bit /N8outd {%begin printpout dec, hex 8 bit 0.77 mul 0.05 add r8outd } bind def %end printpout dec, hex 8 bit /n8outd {%begin printpout dec, hex 8 bit r8outd } bind def %end printpout dec, hex 8 bit /nc100out {%begin printpout dec, hex CIE 100 steps 0.5 sub 100 255 div mul 0.5 add r8outd } bind def %end printpout dec, hex CIE 100 steps /Nc100out {%begin printpout dec, hex CIE 100 steps 0.77 mul 0.05 add 0.5 sub 100 255 div mul 0.5 add r8outd } bind def %end printpout dec, hex CIE 100 steps /nc077out {%begin printpout dec, hex CIE 077 steps 0.5 sub 077 255 div mul 0.5 add r8outd } bind def %end printpout dec, hex CIE 077 steps /Nc077out {%begin printpout dec, hex CIE 077 steps 0.77 mul 0.05 add 0.5 sub 077 255 div mul 0.5 add r8outd } bind def %end printpout dec, hex CIE 077 steps /TBKK {200 16.67 div /Times-Bold FS} bind def /TBKL {100 16.67 div /Times-Bold FS} bind def /j 0 def 1 1 6 {/i exch def TBM i j 8 mul add /k exch def -08 i 48 mul add 17 add /ix exch def 183 j 120 mul sub /iy exch def 0.0 0.0 0.0 1.0 setcmyknew %text N TBIK i 1 eq { ix 15 sub iy 25 add moveto (D7CMY*tod8cmy* setcmy*color) show TBKL ix 55 sub iy 18 add moveto (Type / range:) show ix 55 sub iy 12 add moveto (D7CMY*s/z) show ix 53 sub iy 6 add moveto ( 0.275...0.660) show ix 53 sub iy 0 sub moveto (-0.225...0.160) show ix 55 sub iy 6 sub moveto (D8CMY*i/h:) show ix 53 sub iy 12 sub moveto (12...209) show ix 53 sub iy 19 sub moveto (0C...D1) show ix 55 sub iy 26 sub moveto (D7C*s/z) show ix 55 sub iy 40 sub moveto (D7M*s/z) show ix 55 sub iy 54 sub moveto (D7Y*s/z) show ix 55 sub iy 32 sub moveto (D8C*i/h) show ix 55 sub iy 46 sub moveto (D8M*i/h) show ix 55 sub iy 60 sub moveto (D8Y*i/h) show } if TBKL /ku Far k get exec def iln 0 ne {%begin olv or cmy dec and hex fcolors ku get exec /n8 exch def /y8 exch def /m8 exch def /c8 exch def /x ix 18 sub def /y iy 26 sub def x y moveto c8 N7outd /x ix 18 sub def /y iy 40 sub def x y moveto y8 N7outd /x ix 18 sub def /y iy 54 sub def x y moveto m8 N7outd /x ix 18 sub def /y iy 32 sub def x y moveto c8 N8outh /x ix 18 sub def /y iy 46 sub def x y moveto y8 N8outh /x ix 18 sub def /y iy 60 sub def x y moveto m8 N8outh } if %end out olv or cmy dec and hex ix 19 sub iy 19 sub 39 39 fcolors ku get exec outrecfi4 %Farbe-Fuellen je nach Auszug TBIG /kuc cFar k get exec def j 0 eq {ix 7 sub iy 5 sub moveto tFarb i get exec fcolors kuc get exec outshowf} if } for %schleife i /scolors %CMY 5 Sonder-Testfarben Nr. 0 bis 4; Farbkreis-Reihenfolge %NN [ {1.00 1.00 1.00 0.00} {0.75 0.75 0.75 0.00} {0.50 0.50 0.50 0.00} {0.25 0.25 0.25 0.00} {0.00 0.00 0.00 0.00} ] def /iy 063 def 0 1 4 {/i exch def 0.0 0.0 0.0 1.0 setcmyknew %text N TBIK 15 i 1 add 48 mul add 17 add /ix exch def i 0 eq { ix 15 sub iy 25 add moveto (D7CMY*tod8cmy* setcmy*color) show TBKL ix 77 sub iy 18 add moveto (Type / range:) show ix 77 sub iy 12 add moveto (D7CMY*s/z) show ix 75 sub iy 6 add moveto ( 0.275...0.660) show ix 75 sub iy 0 sub moveto (-0.225...0.160) show ix 77 sub iy 6 sub moveto (D8CMY*i/h:) show ix 75 sub iy 12 sub moveto (12...209) show ix 75 sub iy 19 sub moveto (0C...D1) show ix 77 sub iy 26 sub moveto (D7C*s/z) show ix 77 sub iy 40 sub moveto (D7M*s/z) show ix 77 sub iy 54 sub moveto (D7Y*s/z) show ix 77 sub iy 32 sub moveto (D8C*i/h) show ix 77 sub iy 46 sub moveto (D8M*i/h) show ix 77 sub iy 60 sub moveto (D8Y*i/h) show } if TBKL iln 0 ne {%begin olv or cmy dec and hex scolors i get exec /n8 exch def /y8 exch def /m8 exch def /c8 exch def /x ix 18 sub def /y iy 26 sub def x y moveto c8 N7outd /x ix 18 sub def /y iy 40 sub def x y moveto m8 N7outd /x ix 18 sub def /y iy 54 sub def x y moveto y8 N7outd /x ix 18 sub def /y iy 32 sub def x y moveto c8 N8outh /x ix 18 sub def /y iy 46 sub def x y moveto m8 N8outh /x ix 18 sub def /y iy 60 sub def x y moveto y8 N8outh } if %end out olv or cmy dec and hex TBIG ix 19 sub iy 19 sub 39 39 scolors i get exec outrecfi4 %Farbe-Fuellen je nach Auszug /kuc cFar 9 i add get exec def ix 06 sub iy 5 sub moveto i 3 lt {fcolors 07 get exec} {fcolors 00 get exec} ifelse setcmyknew tFarb 9 i add get exec dup stringwidth pop 15 exch sub 0.5 mul 0 rmoveto show 4 i eq {ix 19 sub iy 19 sub moveto 39 0 rlineto 0 39 rlineto -39 0 rlineto closepath 0.0 0.0 0.0 1.0 setcmyknew stroke %edge N } if } for %schleife i showpage grestore } for %output with langind end %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 065 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 25 %Zeile 450 %!PS-Adobe-3.0 EPSF-3.0 1x1 E8620-5N.EPS %%BoundingBox: 60 80 226 206 %START PDFDE011.EPS /pdfmark where {pop} {userdict /pdfmark /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: 1x1 E8620-5) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://o2.ps.bam.de or www.ps.bam.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@bam.de) /CreationDate (D:2000010512000) /ModDate (D:2000010512000) /DOCINFO pdfmark [ /View [ /FitB ] /DOCVIEW pdfmark %END PDFDE011 %%Creator: K. Richter, BAM und TU Berlin, 2000.01.04 %%+Copyright (c) 1996 VDE-Verlag Berlin Offenbach % !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 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /TK {250 16.67 div /Times-ISOL1 FS} bind def /TM {300 16.67 div /Times-ISOL1 FS} bind def /TG {350 16.67 div /Times-ISOL1 FS} bind def /TIK {250 16.67 div /TimesI-ISOL1 FS} bind def /TIM {300 16.67 div /TimesI-ISOL1 FS} bind def /TIG {350 16.67 div /TimesI-ISOL1 FS} bind def /TBK {250 16.67 div /TimesB-ISOL1 FS} bind def /TBM {300 16.67 div /TimesB-ISOL1 FS} bind def /TBG {350 16.67 div /TimesB-ISOL1 FS} bind def /TBIK {250 16.67 div /TimesBI-ISOL1 FS} bind def /TBIM {300 16.67 div /TimesBI-ISOL1 FS} bind def /TBIG {350 16.67 div /TimesBI-ISOL1 FS} bind def /proz1 {pop} bind def /proz2 {sqrt} bind def /setgc {pop pop pop 1 exch sub setgray} bind def /setgm {pop pop 1 exch sub setgray pop} bind def /setgy {pop 1 exch sub setgray pop pop} bind def /setgn {1 exch sub setgray pop pop pop} bind def /setgf {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def 0 ccolor eq 0 mcolor eq and 0 ycolor eq and {1 ncolor sub setgray} {1 ccolor sub 0.71 mul 1 mcolor sub 0.22 mul add 1 ycolor sub 0.07 mul add setgray} ifelse } bind def /setsc {075 135 {proz1} setscreen } bind def /setsm {075 090 {proz1} setscreen } bind def /setsy {075 000 {proz1} setscreen } bind def /setsn {075 045 {proz1} setscreen } bind def /setsf {075 135 {proz1} 075 090 {proz1} 075 000 {proz1} 075 045 {proz1} setcolorscreen } bind def /setcmykcolorf {setcmykcolor setsf} bind def %fuer PSL1/2-Farbgeraet %ANFA HALBTON /Halbt { %wrbie:HALBTOA0.eps } bind def %ANFA SETCMYK /setcmyknew { %Ersatz setcolornew durch setcmykcolor1 ausz 1 eq {setgc half 0 eq {setsc} if} if %C ausz 2 eq {setgm half 0 eq {setsm} if} if %M ausz 3 eq {setgy half 0 eq {setsy} if} if %Y ausz 4 eq {pop pop pop /ccolor exch def ccolor 0 0 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgc setsc} %PSL1-SW-Geraet ifelse } if %Cbunt ausz 5 eq {pop pop /mcolor exch def pop 0 mcolor 0 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgm setsm} %PSL1-SW-Geraet ifelse } if %Mbunt ausz 6 eq {pop /ycolor exch def pop pop 0 0 ycolor 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgy setsy} %PSL1-SW-Geraet ifelse } if %Ybunt ausz 7 eq {setgn half 0 eq {setsn} if} if %N ausz 8 ge { /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgf setsn} %PSL1-SW-Geraet ifelse } if %bei ausz=8: Farb- oder SW-Ausdruck je nach Drucker } bind def /fcolors %CMY 32 no. 0 to 31; hue circe row [{1.00 1.00 1.00 0.00} {0.00 1.00 1.00 0.00} {0.00 0.00 1.00 0.00} {1.00 0.00 1.00 0.00} {1.00 0.00 0.00 0.00} {1.00 1.00 0.00 0.00} {0.00 1.00 0.00 0.00} {0.00 0.00 0.00 0.00} {0.50 0.50 0.50 0.00} {0.50 1.00 1.00 0.00} {0.50 0.50 1.00 0.00} {1.00 0.50 1.00 0.00} {1.00 0.50 0.50 0.00} {1.00 1.00 0.50 0.00} {0.50 1.00 0.50 0.00} {0.00 1.00 0.50 0.00} {0.75 0.75 0.75 0.00} {0.00 0.50 0.50 0.00} {0.00 0.00 0.50 0.00} {0.50 0.00 0.50 0.00} {0.50 0.00 0.00 0.00} {0.50 0.50 0.00 0.00} {0.00 0.50 0.00 0.00} {1.00 0.50 0.00 0.00} {0.25 0.25 0.25 0.00} {0.00 0.50 1.00 0.00} {0.50 0.00 1.00 0.00} {1.00 0.00 0.50 0.00} {1.00 0.50 0.00 0.00} {0.50 1.00 0.00 0.00} {0.00 1.00 0.50 0.00} {1.00 0.00 0.50 0.00} ] def /fak 0.5 def /Far %Farbkreis-Reihenfolge [ 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %R 16 17 18 19 20 21 22 23 %B 24 25 26 27 28 29 30 31 %G ] def /cFar %Kompensativ-Farbkreis-Reihenfolge [ 8 4 5 6 1 2 3 0 0 20 21 22 17 18 19 31 %G 24 12 13 14 9 10 11 2 %J 16 28 29 30 25 26 27 15 %R ] def /Btx %Farbkreis- -> %Btx-Reihenfolge [ 0 1 3 2 5 6 4 7 8 9 11 10 13 14 12 15 %R 16 17 19 18 21 22 20 23 %B 24 25 26 27 28 29 30 31 %G ] def /cBtx %Farbkreis- -> %Kompensativ-Btx-Reihenfolge [ 7 4 6 5 2 3 1 0 8 20 22 21 18 19 17 31 %G 24 12 14 13 10 11 9 2 %J 16 25 26 27 28 29 30 15 %R ] def /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfi %x y width heigth c m y k {setcmyknew rec fill} bind def /colrecst %x y width heigth c m y k {setcmyknew rec stroke} bind def /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmyknew} bind def /tfl {tzl setcmyknew} bind def /tfv {tzv setcmyknew} bind def /tfc {tzc setcmyknew} bind def /tfm {tzm setcmyknew} bind def /tfy {tzy setcmyknew} bind def /tfn {tzn setcmyknew} bind def /tfd {tzd setcmyknew} bind def /tfz {tzz setcmyknew} bind def /tfh {tzh setcmyknew} bind def /tfw {tzw setcmyknew} bind def /tfr {tzr setcmyknew} bind def /tfg {tzg setcmyknew} bind def /tfb {tzb setcmyknew} bind def /tfj {tzj setcmyknew} bind def /tfrz {tzrz setcmyknew} bind def /tfgz {tzgz setcmyknew} bind def /tfbz {tzbz setcmyknew} bind def /tfjz {tzjz setcmyknew} bind def %ANFA OUTLIN00 951204 /pixf 1.0 def /ueg 1 pixf mul def /uek 1 pixf mul def /ues 1 pixf mul def /pxd uek def /pyd uek def /pxwd ueg def /pywd ueg def /pss ues def /outxshowf {show} bind def /outxshow {show} bind def /outSK {250 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSM {300 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSG {350 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outshowf {setcmyknew show} bind def /outrecfi { %x y width heigth c m y k setcmyknew rec fill} bind def /outrecfi4 { %x y width heigth c m y k outrecfi} bind def /outrecfi3 { %x y width heigth c m y k outrecfi} bind def /outrecfi2 { %x y width heigth c m y k outrecfi} bind def /outlinetos { %px py c m y k setcmyknew lineto stroke} bind def /outstroke { %px1 py1 curveto ... curveto c m y k setcmyknew stroke} bind def %%EndProlog gsave %LANINDL2 START 20000505 /lanind 0 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /popde {0 lanind ne {pop} if} bind def /popen {1 lanind ne {pop} if} bind def /popes {2 lanind ne {pop} if} bind def /popfr {3 lanind ne {pop} if} bind def /popit {4 lanind ne {pop} if} bind def /popjp {5 lanind ne {pop} if} bind def /popm {6 lanind ne {pop} if} bind def /popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def /popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def /popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def /popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def /popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def /popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def /popxm {/n exch def 6 lanind ne {n {pop} repeat} if} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave %LANINDL2 END %{proz2} settransfer 8 /Times-Roman FS 72 83 moveto ( E8620-5, ) show 8 /Times-ISOL1 FS (Digitaldaten D6/8bit WGcode) popde %08620-5 1 (Digital data D6/8bit WGcode) popen %18620-5 1 (Digital data D6/8bit WGcode) popes %28620-5 1 (Digital data D6/8bit WGcode) popfr %38620-5 1 (Digital data D6/8bit WGcode) popit %48620-5 1 (Digital data D6/8bit WGcode) popjp %58620-5 1 show 8 /TimesI-ISOL1 FS ( CMY*) show 72 90 translate /pixf 1.0 def 0.1667 pixf div MM dup scale /ausz 8 def /half 0 def Halbt %Farbauszug 1=C, 2=M, 3=Y, 7=N, 8=F %/setcmyknew {/n exch def /y exch def /m exch def /c exch def % 1 c sub 1 m sub 1 y sub setrgbcolor} def 0 0 320 240 0.0 0.0 0.0 0.0 colrecfi %rectangle W 0.0 0.0 0.0 1.0 setcmyknew %text N 0 0 moveto 320 0 rlineto 0 240 rlineto -320 0 rlineto closepath stroke TBIG %Schrift Times-Bold-Gross-Italic 02 223 moveto (N\255W: ) show TBG %Schrift Times-Bold-Gross (D6CMY*s/z, D6CMY*i/h) show 45 103 moveto (unbunte Hauptfarben) showde %08620-5 2 (achromatic basic colors) showen %18620-5 2 (Colores acrom\341ticos b\341sicos) showes %28620-5 2 (achromatic basic colors) showfr %38620-5 2 (achromatic basic colors) showit %48620-5 2 (achromatic basic colors) showjp %58620-5 2 /iln 1 def /j 0 def /iy 180 def /solvfcols %Sonder-Farbkreis-Reihenfolge Nr. 0 bis 5; %N&W [ (111*) (222*) (555*) (999*) (DDD*) (EEE*) ] def /scolors %CMYN 5 Sonder-Testfarben Nr. 0 bis 5; Farbkreis-Reihenfolge %NN [ {0.0 0.0 0.0 0.923} {0.0 0.0 0.0 0.870} {0.0 0.0 0.0 0.630} {0.0 0.0 0.0 0.333} {0.0 0.0 0.0 0.130} {0.0 0.0 0.0 0.067}] def /tBtxz %textBtx-Reihenfolge [(0) (1) (2) (3) (4) (5) (6) (7) (0) (0) () (8) () (7) () ()] def /tFarb %textFar-Reihenfolge [(N) (O) (Y) (L) (C) (V) (M) (W) (Z) (N) (D) (Z) (H) (W) () () ] def %output as integer and 0 to 3 digits /cvishow {0.5 add cvi %new980310 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 %new980310 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 %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 6 string cvs show} def /cvsshow3 {dup 1000 mul 0.1 add round cvi 0.001 mul 6 string cvs show (, ) show x 20 add y moveto 1000 mul 500 sub 0.1 add round cvi 0.001 mul 8 string cvs show } def /temp 12 string def /arrow {x 6 sub y moveto (->) show} bind def /r4outh {%begin 4bit round print hex 15 mul 0.26 sub round cvi dup 10 temp cvrs show (, ) show 16 temp cvrs show } bind def %end 4bit round print /r4outd {%begin decimal 0..1 print cvsshow3 } bind def %end 4bit round print /r8outh {%begin 8bit round print hex 255 mul 0.26 sub round cvi dup 10 temp cvrs show ( / ) show dup 16 le {(0) show} if 16 temp cvrs show } bind def %end 8bit round print /r8outd {%begin decimal 0..1 print cvsshow3 } bind def %end 8bit round print /N4outh {%begin printpout dec, hex 4 bit 0.77 mul 0.05 add r4outh } bind def %end printpout dec, hex 4 bit /n4outh {%begin printpout dec, hex 4 bit r4outh } bind def %end printpout dec, hex 4 bit /N4outd {%begin printpout dec, hex 4 bit 0.77 mul 0.05 add r4outd } bind def %end printpout dec, hex 4 bit /n4outd {%begin printpout dec, hex 4 bit r4outd } bind def %end printpout dec, hex 4 bit /N6outh {%begin printpout dec, hex 6 bit 0.77 mul 0.05 add 0.5 sub 0.25 mul 0.5 add r8outh } bind def %end printpout dec, hex 6 bit /n6outh {%begin printpout dec, hex 6 bit 0.5 sub 0.25 mul 0.5 add r8outh } bind def %end printpout dec, hex 6 bit /N6outd {%begin printpout dec, hex 6 bit 0.77 mul 0.05 add 0.5 sub 0.25 mul 0.5 add r8outd } bind def %end printpout dec, hex 6 bit /n6outd {%begin printpout dec, hex 6 bit 0.5 sub 0.25 mul 0.5 add r8outd } bind def %end printpout dec, hex 6 bit /N7outh {%begin printpout dec, hex 7 bit 0.77 mul 0.05 add 0.5 sub 0.50 mul 0.5 add r8outh } bind def %end printpout dec, hex 7 bit /n7outh {%begin printpout dec, hex 7 bit 0.5 sub 0.50 mul 0.5 add r8outh } bind def %end printpout dec, hex 7 bit /N7outd {%begin printpout dec, hex 7 bit 0.77 mul 0.05 add 0.5 sub 0.50 mul 0.5 add r8outd } bind def %end printpout dec, hex 7 bit /n7outd {%begin printpout dec, hex 7 bit 0.5 sub 0.50 mul 0.5 add r8outd } bind def %end printpout dec, hex 7 bit /N8outh {%begin printpout dec, hex 8 bit 0.77 mul 0.05 add r8outh } bind def %end printpout dec, hex 8 bit /n8outh {%begin printpout dec, hex 8 bit r8outh } bind def %end printpout dec, hex 8 bit /N8outd {%begin printpout dec, hex 8 bit 0.77 mul 0.05 add r8outd } bind def %end printpout dec, hex 8 bit /n8outd {%begin printpout dec, hex 8 bit r8outd } bind def %end printpout dec, hex 8 bit /nc100out {%begin printpout dec, hex CIE 100 steps 0.5 sub 100 255 div mul 0.5 add r8outd } bind def %end printpout dec, hex CIE 100 steps /Nc100out {%begin printpout dec, hex CIE 100 steps 0.77 mul 0.05 add 0.5 sub 100 255 div mul 0.5 add r8outd } bind def %end printpout dec, hex CIE 100 steps /nc077out {%begin printpout dec, hex CIE 077 steps 0.5 sub 077 255 div mul 0.5 add r8outd } bind def %end printpout dec, hex CIE 077 steps /Nc077out {%begin printpout dec, hex CIE 077 steps 0.77 mul 0.05 add 0.5 sub 077 255 div mul 0.5 add r8outd } bind def %end printpout dec, hex CIE 077 steps /TBKK {200 16.67 div /Times-Bold FS} bind def /TBKL {100 16.67 div /Times-Bold FS} bind def /j 0 def 1 1 6 {/i exch def TBM i j 8 mul add /k exch def -08 i 48 mul add 17 add /ix exch def 183 j 120 mul sub /iy exch def 0.0 0.0 0.0 1.0 setcmyknew %text N TBIK i 1 eq { ix 15 sub iy 25 add moveto (D6CMY*tod8cmy* setcmy*color) show TBKL ix 55 sub iy 18 add moveto (Type / range:) show ix 55 sub iy 12 add moveto (D6CMY*s/z) show ix 53 sub iy 6 add moveto ( 0.388...0.580) show ix 53 sub iy 0 sub moveto (-0.112...0.080) show ix 55 sub iy 6 sub moveto (D6CMY*i/h:) show ix 53 sub iy 12 sub moveto (99...148) show ix 53 sub iy 19 sub moveto (63...94) show ix 55 sub iy 26 sub moveto (D6C*s/z) show ix 55 sub iy 40 sub moveto (D6M*s/z) show ix 55 sub iy 54 sub moveto (D6Y*s/z) show ix 55 sub iy 32 sub moveto (D6C*i/h) show ix 55 sub iy 46 sub moveto (D6M*i/h) show ix 55 sub iy 60 sub moveto (D6Y*i/h) show } if TBKL /ku Far k get exec def iln 0 ne {%begin olv or cmy dec and hex fcolors ku get exec /n8 exch def /y8 exch def /m8 exch def /c8 exch def /x ix 18 sub def /y iy 26 sub def x y moveto c8 N6outd /x ix 18 sub def /y iy 40 sub def x y moveto y8 N6outd /x ix 18 sub def /y iy 54 sub def x y moveto m8 N6outd /x ix 18 sub def /y iy 32 sub def x y moveto c8 N6outh /x ix 18 sub def /y iy 46 sub def x y moveto y8 N6outh /x ix 18 sub def /y iy 60 sub def x y moveto m8 N6outh } if %end out olv or cmy dec and hex ix 19 sub iy 19 sub 39 39 fcolors ku get exec outrecfi4 %Farbe-Fuellen je nach Auszug TBIG /kuc cFar k get exec def j 0 eq {ix 7 sub iy 5 sub moveto tFarb i get exec fcolors kuc get exec outshowf} if } for %schleife i /scolors %CMY 5 Sonder-Testfarben Nr. 0 bis 4; Farbkreis-Reihenfolge %NN [ {1.00 1.00 1.00 0.00} {0.75 0.75 0.75 0.00} {0.50 0.50 0.50 0.00} {0.25 0.25 0.25 0.00} {0.00 0.00 0.00 0.00} ] def /iy 063 def 0 1 4 {/i exch def 0.0 0.0 0.0 1.0 setcmyknew %text N TBIK 15 i 1 add 48 mul add 17 add /ix exch def i 0 eq { ix 15 sub iy 25 add moveto (D6CMY*tod8cmy* setcmy*color) show TBKL ix 77 sub iy 18 add moveto (Type / range:) show ix 77 sub iy 12 add moveto (D6CMY*s/z) show ix 75 sub iy 6 add moveto ( 0.388...0.580) show ix 75 sub iy 0 sub moveto (-0.112...0.080) show ix 77 sub iy 6 sub moveto (D6CMY*i/h:) show ix 75 sub iy 12 sub moveto (99...148) show ix 75 sub iy 19 sub moveto (63...94) show ix 77 sub iy 26 sub moveto (D6C*s/z) show ix 77 sub iy 40 sub moveto (D6M*s/z) show ix 77 sub iy 54 sub moveto (D6Y*s/z) show ix 77 sub iy 32 sub moveto (D6C*i/h) show ix 77 sub iy 46 sub moveto (D6M*i/h) show ix 77 sub iy 60 sub moveto (D6Y*i/h) show } if TBKL iln 0 ne {%begin olv or cmy dec and hex scolors i get exec /n8 exch def /y8 exch def /m8 exch def /c8 exch def /x ix 18 sub def /y iy 26 sub def x y moveto c8 N6outd /x ix 18 sub def /y iy 40 sub def x y moveto m8 N6outd /x ix 18 sub def /y iy 54 sub def x y moveto y8 N6outd /x ix 18 sub def /y iy 32 sub def x y moveto c8 N6outh /x ix 18 sub def /y iy 46 sub def x y moveto m8 N6outh /x ix 18 sub def /y iy 60 sub def x y moveto y8 N6outh } if %end out olv or cmy dec and hex TBIG ix 19 sub iy 19 sub 39 39 scolors i get exec outrecfi4 %Farbe-Fuellen je nach Auszug /kuc cFar 9 i add get exec def ix 06 sub iy 5 sub moveto i 3 lt {fcolors 07 get exec} {fcolors 00 get exec} ifelse setcmyknew tFarb 9 i add get exec dup stringwidth pop 15 exch sub 0.5 mul 0 rmoveto show 4 i eq {ix 19 sub iy 19 sub moveto 39 0 rlineto 0 39 rlineto -39 0 rlineto closepath 0.0 0.0 0.0 1.0 setcmyknew stroke %edge N } if } for %schleife i showpage grestore } for %output with langind end %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 065 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 26 %Zeile 460 %!PS-Adobe-3.0 EPSF-3.0 1x1 E8620-6N.EPS %%BoundingBox: 60 80 226 206 %START PDFDE011.EPS /pdfmark where {pop} {userdict /pdfmark /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: 1x1 E8620-6) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://o2.ps.bam.de or www.ps.bam.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@bam.de) /CreationDate (D:2000010512000) /ModDate (D:2000010512000) /DOCINFO pdfmark [ /View [ /FitB ] /DOCVIEW pdfmark %END PDFDE011 %%Creator: K. Richter, BAM und TU Berlin, 2000.01.04 %%+Copyright (c) 1996 VDE-Verlag Berlin Offenbach % !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 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /TK {250 16.67 div /Times-ISOL1 FS} bind def /TM {300 16.67 div /Times-ISOL1 FS} bind def /TG {350 16.67 div /Times-ISOL1 FS} bind def /TIK {250 16.67 div /TimesI-ISOL1 FS} bind def /TIM {300 16.67 div /TimesI-ISOL1 FS} bind def /TIG {350 16.67 div /TimesI-ISOL1 FS} bind def /TBK {250 16.67 div /TimesB-ISOL1 FS} bind def /TBM {300 16.67 div /TimesB-ISOL1 FS} bind def /TBG {350 16.67 div /TimesB-ISOL1 FS} bind def /TBIK {250 16.67 div /TimesBI-ISOL1 FS} bind def /TBIM {300 16.67 div /TimesBI-ISOL1 FS} bind def /TBIG {350 16.67 div /TimesBI-ISOL1 FS} bind def /proz1 {pop} bind def /proz2 {sqrt} bind def /setgc {pop pop pop 1 exch sub setgray} bind def /setgm {pop pop 1 exch sub setgray pop} bind def /setgy {pop 1 exch sub setgray pop pop} bind def /setgn {1 exch sub setgray pop pop pop} bind def /setgf {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def 0 ccolor eq 0 mcolor eq and 0 ycolor eq and {1 ncolor sub setgray} {1 ccolor sub 0.71 mul 1 mcolor sub 0.22 mul add 1 ycolor sub 0.07 mul add setgray} ifelse } bind def /setsc {075 135 {proz1} setscreen } bind def /setsm {075 090 {proz1} setscreen } bind def /setsy {075 000 {proz1} setscreen } bind def /setsn {075 045 {proz1} setscreen } bind def /setsf {075 135 {proz1} 075 090 {proz1} 075 000 {proz1} 075 045 {proz1} setcolorscreen } bind def /setcmykcolorf {setcmykcolor setsf} bind def %fuer PSL1/2-Farbgeraet %ANFA HALBTON /Halbt { %wrbie:HALBTOA0.eps } bind def %ANFA SETCMYK /setcmyknew { %Ersatz setcolornew durch setcmykcolor1 ausz 1 eq {setgc half 0 eq {setsc} if} if %C ausz 2 eq {setgm half 0 eq {setsm} if} if %M ausz 3 eq {setgy half 0 eq {setsy} if} if %Y ausz 4 eq {pop pop pop /ccolor exch def ccolor 0 0 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgc setsc} %PSL1-SW-Geraet ifelse } if %Cbunt ausz 5 eq {pop pop /mcolor exch def pop 0 mcolor 0 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgm setsm} %PSL1-SW-Geraet ifelse } if %Mbunt ausz 6 eq {pop /ycolor exch def pop pop 0 0 ycolor 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgy setsy} %PSL1-SW-Geraet ifelse } if %Ybunt ausz 7 eq {setgn half 0 eq {setsn} if} if %N ausz 8 ge { /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgf setsn} %PSL1-SW-Geraet ifelse } if %bei ausz=8: Farb- oder SW-Ausdruck je nach Drucker } bind def /fcolors %CMY 32 no. 0 to 31; hue circe row [{1.00 1.00 1.00 0.00} {0.00 1.00 1.00 0.00} {0.00 0.00 1.00 0.00} {1.00 0.00 1.00 0.00} {1.00 0.00 0.00 0.00} {1.00 1.00 0.00 0.00} {0.00 1.00 0.00 0.00} {0.00 0.00 0.00 0.00} {0.50 0.50 0.50 0.00} {0.50 1.00 1.00 0.00} {0.50 0.50 1.00 0.00} {1.00 0.50 1.00 0.00} {1.00 0.50 0.50 0.00} {1.00 1.00 0.50 0.00} {0.50 1.00 0.50 0.00} {0.00 1.00 0.50 0.00} {0.75 0.75 0.75 0.00} {0.00 0.50 0.50 0.00} {0.00 0.00 0.50 0.00} {0.50 0.00 0.50 0.00} {0.50 0.00 0.00 0.00} {0.50 0.50 0.00 0.00} {0.00 0.50 0.00 0.00} {1.00 0.50 0.00 0.00} {0.25 0.25 0.25 0.00} {0.00 0.50 1.00 0.00} {0.50 0.00 1.00 0.00} {1.00 0.00 0.50 0.00} {1.00 0.50 0.00 0.00} {0.50 1.00 0.00 0.00} {0.00 1.00 0.50 0.00} {1.00 0.00 0.50 0.00} ] def /fak 0.5 def /Far %Farbkreis-Reihenfolge [ 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %R 16 17 18 19 20 21 22 23 %B 24 25 26 27 28 29 30 31 %G ] def /cFar %Kompensativ-Farbkreis-Reihenfolge [ 8 4 5 6 1 2 3 0 0 20 21 22 17 18 19 31 %G 24 12 13 14 9 10 11 2 %J 16 28 29 30 25 26 27 15 %R ] def /Btx %Farbkreis- -> %Btx-Reihenfolge [ 0 1 3 2 5 6 4 7 8 9 11 10 13 14 12 15 %R 16 17 19 18 21 22 20 23 %B 24 25 26 27 28 29 30 31 %G ] def /cBtx %Farbkreis- -> %Kompensativ-Btx-Reihenfolge [ 7 4 6 5 2 3 1 0 8 20 22 21 18 19 17 31 %G 24 12 14 13 10 11 9 2 %J 16 25 26 27 28 29 30 15 %R ] def /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfi %x y width heigth c m y k {setcmyknew rec fill} bind def /colrecst %x y width heigth c m y k {setcmyknew rec stroke} bind def /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmyknew} bind def /tfl {tzl setcmyknew} bind def /tfv {tzv setcmyknew} bind def /tfc {tzc setcmyknew} bind def /tfm {tzm setcmyknew} bind def /tfy {tzy setcmyknew} bind def /tfn {tzn setcmyknew} bind def /tfd {tzd setcmyknew} bind def /tfz {tzz setcmyknew} bind def /tfh {tzh setcmyknew} bind def /tfw {tzw setcmyknew} bind def /tfr {tzr setcmyknew} bind def /tfg {tzg setcmyknew} bind def /tfb {tzb setcmyknew} bind def /tfj {tzj setcmyknew} bind def /tfrz {tzrz setcmyknew} bind def /tfgz {tzgz setcmyknew} bind def /tfbz {tzbz setcmyknew} bind def /tfjz {tzjz setcmyknew} bind def %ANFA OUTLIN00 951204 /pixf 1.0 def /ueg 1 pixf mul def /uek 1 pixf mul def /ues 1 pixf mul def /pxd uek def /pyd uek def /pxwd ueg def /pywd ueg def /pss ues def /outxshowf {show} bind def /outxshow {show} bind def /outSK {250 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSM {300 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSG {350 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outshowf {setcmyknew show} bind def /outrecfi { %x y width heigth c m y k setcmyknew rec fill} bind def /outrecfi4 { %x y width heigth c m y k outrecfi} bind def /outrecfi3 { %x y width heigth c m y k outrecfi} bind def /outrecfi2 { %x y width heigth c m y k outrecfi} bind def /outlinetos { %px py c m y k setcmyknew lineto stroke} bind def /outstroke { %px1 py1 curveto ... curveto c m y k setcmyknew stroke} bind def %%EndProlog gsave %LANINDL2 START 20000505 /lanind 0 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /popde {0 lanind ne {pop} if} bind def /popen {1 lanind ne {pop} if} bind def /popes {2 lanind ne {pop} if} bind def /popfr {3 lanind ne {pop} if} bind def /popit {4 lanind ne {pop} if} bind def /popjp {5 lanind ne {pop} if} bind def /popm {6 lanind ne {pop} if} bind def /popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def /popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def /popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def /popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def /popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def /popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def /popxm {/n exch def 6 lanind ne {n {pop} repeat} if} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave %LANINDL2 END %{proz2} settransfer 8 /Times-Roman FS 72 83 moveto ( E8620-6, ) show 8 /Times-ISOL1 FS (Digitaldaten D6/8bit WGcode) popde %08620-6 1 (Digital data D6/8bit WGcode) popen %18620-6 1 (Digital data D6/8bit WGcode) popes %28620-6 1 (Digital data D6/8bit WGcode) popfr %38620-6 1 (Digital data D6/8bit WGcode) popit %48620-6 1 (Digital data D6/8bit WGcode) popjp %58620-6 1 show 8 /TimesI-ISOL1 FS ( CMY*) show 72 90 translate /pixf 1.0 def 0.1667 pixf div MM dup scale /ausz 8 def /half 0 def Halbt %Farbauszug 1=C, 2=M, 3=Y, 7=N, 8=F %/setcmyknew {/n exch def /y exch def /m exch def /c exch def % 1 c sub 1 m sub 1 y sub setrgbcolor} def 0 0 320 240 0.0 0.0 0.0 0.0 colrecfi %rectangle W 0.0 0.0 0.0 1.0 setcmyknew %text N 0 0 moveto 320 0 rlineto 0 240 rlineto -320 0 rlineto closepath stroke TBIG %Schrift Times-Bold-Gross-Italic 02 223 moveto (N\255W: ) show TBG %Schrift Times-Bold-Gross (D6CMY*s/z, d8cmy*i/h) show 45 103 moveto (unbunte Hauptfarben) showde %08620-6 2 (achromatic basic colors) showen %18620-6 2 (Colores acrom\341ticos b\341sicos) showes %28620-6 2 (achromatic basic colors) showfr %38620-6 2 (achromatic basic colors) showit %48620-6 2 (achromatic basic colors) showjp %58620-6 2 /iln 1 def /j 0 def /iy 180 def /solvfcols %Sonder-Farbkreis-Reihenfolge Nr. 0 bis 5; %N&W [ (111*) (222*) (555*) (999*) (DDD*) (EEE*) ] def /scolors %CMYN 5 Sonder-Testfarben Nr. 0 bis 5; Farbkreis-Reihenfolge %NN [ {0.0 0.0 0.0 0.923} {0.0 0.0 0.0 0.870} {0.0 0.0 0.0 0.630} {0.0 0.0 0.0 0.333} {0.0 0.0 0.0 0.130} {0.0 0.0 0.0 0.067}] def /tBtxz %textBtx-Reihenfolge [(0) (1) (2) (3) (4) (5) (6) (7) (0) (0) () (8) () (7) () ()] def /tFarb %textFar-Reihenfolge [(N) (O) (Y) (L) (C) (V) (M) (W) (Z) (N) (D) (Z) (H) (W) () () ] def %output as integer and 0 to 3 digits /cvishow {0.5 add cvi %new980310 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 %new980310 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 %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 6 string cvs show} def /cvsshow3 {dup 1000 mul 0.1 add round cvi 0.001 mul 6 string cvs show (, ) show x 20 add y moveto 1000 mul 500 sub 0.1 add round cvi 0.001 mul 8 string cvs show } def /temp 12 string def /arrow {x 6 sub y moveto (->) show} bind def /r4outh {%begin 4bit round print hex 15 mul 0.26 sub round cvi dup 10 temp cvrs show (, ) show 16 temp cvrs show } bind def %end 4bit round print /r4outd {%begin decimal 0..1 print cvsshow3 } bind def %end 4bit round print /r8outh {%begin 8bit round print hex 255 mul 0.26 sub round cvi dup 10 temp cvrs show ( / ) show dup 16 le {(0) show} if 16 temp cvrs show } bind def %end 8bit round print /r8outd {%begin decimal 0..1 print cvsshow3 } bind def %end 8bit round print /N4outh {%begin printpout dec, hex 4 bit 0.77 mul 0.05 add r4outh } bind def %end printpout dec, hex 4 bit /n4outh {%begin printpout dec, hex 4 bit r4outh } bind def %end printpout dec, hex 4 bit /N4outd {%begin printpout dec, hex 4 bit 0.77 mul 0.05 add r4outd } bind def %end printpout dec, hex 4 bit /n4outd {%begin printpout dec, hex 4 bit r4outd } bind def %end printpout dec, hex 4 bit /N6outh {%begin printpout dec, hex 6 bit 0.77 mul 0.05 add 0.5 sub 0.25 mul 0.5 add r8outh } bind def %end printpout dec, hex 6 bit /n6outh {%begin printpout dec, hex 6 bit 0.5 sub 0.25 mul 0.5 add r8outh } bind def %end printpout dec, hex 6 bit /N6outd {%begin printpout dec, hex 6 bit 0.77 mul 0.05 add 0.5 sub 0.25 mul 0.5 add r8outd } bind def %end printpout dec, hex 6 bit /n6outd {%begin printpout dec, hex 6 bit 0.5 sub 0.25 mul 0.5 add r8outd } bind def %end printpout dec, hex 6 bit /N7outh {%begin printpout dec, hex 7 bit 0.77 mul 0.05 add 0.5 sub 0.50 mul 0.5 add r8outh } bind def %end printpout dec, hex 7 bit /n7outh {%begin printpout dec, hex 7 bit 0.5 sub 0.50 mul 0.5 add r8outh } bind def %end printpout dec, hex 7 bit /N7outd {%begin printpout dec, hex 7 bit 0.77 mul 0.05 add 0.5 sub 0.50 mul 0.5 add r8outd } bind def %end printpout dec, hex 7 bit /n7outd {%begin printpout dec, hex 7 bit 0.5 sub 0.50 mul 0.5 add r8outd } bind def %end printpout dec, hex 7 bit /N8outh {%begin printpout dec, hex 8 bit 0.77 mul 0.05 add r8outh } bind def %end printpout dec, hex 8 bit /n8outh {%begin printpout dec, hex 8 bit r8outh } bind def %end printpout dec, hex 8 bit /N8outd {%begin printpout dec, hex 8 bit 0.77 mul 0.05 add r8outd } bind def %end printpout dec, hex 8 bit /n8outd {%begin printpout dec, hex 8 bit r8outd } bind def %end printpout dec, hex 8 bit /nc100out {%begin printpout dec, hex CIE 100 steps 0.5 sub 100 255 div mul 0.5 add r8outd } bind def %end printpout dec, hex CIE 100 steps /Nc100out {%begin printpout dec, hex CIE 100 steps 0.77 mul 0.05 add 0.5 sub 100 255 div mul 0.5 add r8outd } bind def %end printpout dec, hex CIE 100 steps /nc077out {%begin printpout dec, hex CIE 077 steps 0.5 sub 077 255 div mul 0.5 add r8outd } bind def %end printpout dec, hex CIE 077 steps /Nc077out {%begin printpout dec, hex CIE 077 steps 0.77 mul 0.05 add 0.5 sub 077 255 div mul 0.5 add r8outd } bind def %end printpout dec, hex CIE 077 steps /TBKK {200 16.67 div /Times-Bold FS} bind def /TBKL {100 16.67 div /Times-Bold FS} bind def /j 0 def 1 1 6 {/i exch def TBM i j 8 mul add /k exch def -08 i 48 mul add 17 add /ix exch def 183 j 120 mul sub /iy exch def 0.0 0.0 0.0 1.0 setcmyknew %text N TBIK i 1 eq { ix 15 sub iy 25 add moveto (D6CMY*tod8cmy* setcmy*color) show TBKL ix 55 sub iy 18 add moveto (Type / range:) show ix 55 sub iy 12 add moveto (D6CMY*s/z) show ix 53 sub iy 6 add moveto ( 0.388...0.580) show ix 53 sub iy 0 sub moveto (-0.112...0.080) show ix 55 sub iy 6 sub moveto (d8cmy*i/h:) show ix 53 sub iy 12 sub moveto (0...255) show ix 53 sub iy 19 sub moveto (00...FF) show ix 55 sub iy 26 sub moveto (D6C*s/z) show ix 55 sub iy 40 sub moveto (D6M*s/z) show ix 55 sub iy 54 sub moveto (D6Y*s/z) show ix 55 sub iy 32 sub moveto (d8c*i/h) show ix 55 sub iy 46 sub moveto (d8m*i/h) show ix 55 sub iy 60 sub moveto (d8y*i/h) show } if TBKL /ku Far k get exec def iln 0 ne {%begin olv or cmy dec and hex fcolors ku get exec /n8 exch def /y8 exch def /m8 exch def /c8 exch def /x ix 18 sub def /y iy 26 sub def x y moveto c8 N6outd /x ix 18 sub def /y iy 40 sub def x y moveto y8 N6outd /x ix 18 sub def /y iy 54 sub def x y moveto m8 N6outd /x ix 18 sub def /y iy 32 sub def arrow x y moveto c8 n8outh /x ix 18 sub def /y iy 46 sub def arrow x y moveto y8 n8outh /x ix 18 sub def /y iy 60 sub def arrow x y moveto m8 n8outh } if %end out olv or cmy dec and hex ix 19 sub iy 19 sub 39 39 fcolors ku get exec outrecfi4 %Farbe-Fuellen je nach Auszug TBIG /kuc cFar k get exec def j 0 eq {ix 7 sub iy 5 sub moveto tFarb i get exec fcolors kuc get exec outshowf} if } for %schleife i /scolors %CMY 5 Sonder-Testfarben Nr. 0 bis 4; Farbkreis-Reihenfolge %NN [ {1.00 1.00 1.00 0.00} {0.75 0.75 0.75 0.00} {0.50 0.50 0.50 0.00} {0.25 0.25 0.25 0.00} {0.00 0.00 0.00 0.00} ] def /iy 063 def 0 1 4 {/i exch def 0.0 0.0 0.0 1.0 setcmyknew %text N TBIK 15 i 1 add 48 mul add 17 add /ix exch def i 0 eq { ix 15 sub iy 25 add moveto (D6CMY*tod8cmy* setcmy*color) show TBKL ix 77 sub iy 18 add moveto (Type / range:) show ix 77 sub iy 12 add moveto (D6CMY*s/z) show ix 75 sub iy 6 add moveto ( 0.388...0.580) show ix 75 sub iy 0 sub moveto (-0.112...0.080) show ix 77 sub iy 6 sub moveto (d8cmy*i/h:) show ix 75 sub iy 12 sub moveto (0...255) show ix 75 sub iy 19 sub moveto (00...FF) show ix 77 sub iy 26 sub moveto (D6C*s/z) show ix 77 sub iy 40 sub moveto (D6M*s/z) show ix 77 sub iy 54 sub moveto (D6Y*s/z) show ix 77 sub iy 32 sub moveto (d8c*i/h) show ix 77 sub iy 46 sub moveto (d8m*i/h) show ix 77 sub iy 60 sub moveto (d8y*i/h) show } if TBKL iln 0 ne {%begin olv or cmy dec and hex scolors i get exec /n8 exch def /y8 exch def /m8 exch def /c8 exch def /x ix 18 sub def /y iy 26 sub def x y moveto c8 N6outd /x ix 18 sub def /y iy 40 sub def x y moveto m8 N6outd /x ix 18 sub def /y iy 54 sub def x y moveto y8 N6outd /x ix 18 sub def /y iy 32 sub def arrow x y moveto c8 n8outh /x ix 18 sub def /y iy 46 sub def arrow x y moveto m8 n8outh /x ix 18 sub def /y iy 60 sub def arrow x y moveto y8 n8outh } if %end out olv or cmy dec and hex TBIG ix 19 sub iy 19 sub 39 39 scolors i get exec outrecfi4 %Farbe-Fuellen je nach Auszug /kuc cFar 9 i add get exec def ix 06 sub iy 5 sub moveto i 3 lt {fcolors 07 get exec} {fcolors 00 get exec} ifelse setcmyknew tFarb 9 i add get exec dup stringwidth pop 15 exch sub 0.5 mul 0 rmoveto show 4 i eq {ix 19 sub iy 19 sub moveto 39 0 rlineto 0 39 rlineto -39 0 rlineto closepath 0.0 0.0 0.0 1.0 setcmyknew stroke %edge N } if } for %schleife i showpage grestore } for %output with langind end %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 021 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 27 %Zeile 470 %!PS-Adobe-3.0 EPSF-3.0 1x1 E8620-7N.EPS %%BoundingBox: 60 80 226 206 %START PDFDE011.EPS /pdfmark where {pop} {userdict /pdfmark /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: 1x1 E8620-7) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://o2.ps.bam.de or www.ps.bam.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@bam.de) /CreationDate (D:2000010512000) /ModDate (D:2000010512000) /DOCINFO pdfmark [ /View [ /FitB ] /DOCVIEW pdfmark %END PDFDE011 %%Creator: K. Richter, BAM und TU Berlin, 2000.01.04 %%+Copyright (c) 1996 VDE-Verlag Berlin Offenbach % !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 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /TK {250 16.67 div /Times-ISOL1 FS} bind def /TM {300 16.67 div /Times-ISOL1 FS} bind def /TG {350 16.67 div /Times-ISOL1 FS} bind def /TIK {250 16.67 div /TimesI-ISOL1 FS} bind def /TIM {300 16.67 div /TimesI-ISOL1 FS} bind def /TIG {350 16.67 div /TimesI-ISOL1 FS} bind def /TBK {250 16.67 div /TimesB-ISOL1 FS} bind def /TBM {300 16.67 div /TimesB-ISOL1 FS} bind def /TBG {350 16.67 div /TimesB-ISOL1 FS} bind def /TBIK {250 16.67 div /TimesBI-ISOL1 FS} bind def /TBIM {300 16.67 div /TimesBI-ISOL1 FS} bind def /TBIG {350 16.67 div /TimesBI-ISOL1 FS} bind def /proz1 {pop} bind def /proz2 {sqrt} bind def /setgc {pop pop pop 1 exch sub setgray} bind def /setgm {pop pop 1 exch sub setgray pop} bind def /setgy {pop 1 exch sub setgray pop pop} bind def /setgn {1 exch sub setgray pop pop pop} bind def /setgf {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def 0 ccolor eq 0 mcolor eq and 0 ycolor eq and {1 ncolor sub setgray} {1 ccolor sub 0.71 mul 1 mcolor sub 0.22 mul add 1 ycolor sub 0.07 mul add setgray} ifelse } bind def /setsc {075 135 {proz1} setscreen } bind def /setsm {075 090 {proz1} setscreen } bind def /setsy {075 000 {proz1} setscreen } bind def /setsn {075 045 {proz1} setscreen } bind def /setsf {075 135 {proz1} 075 090 {proz1} 075 000 {proz1} 075 045 {proz1} setcolorscreen } bind def /setcmykcolorf {setcmykcolor setsf} bind def %fuer PSL1/2-Farbgeraet %ANFA HALBTON /Halbt { %wrbie:HALBTOA0.eps } bind def %ANFA SETCMYK /setcmyknew { %Ersatz setcolornew durch setcmykcolor1 ausz 1 eq {setgc half 0 eq {setsc} if} if %C ausz 2 eq {setgm half 0 eq {setsm} if} if %M ausz 3 eq {setgy half 0 eq {setsy} if} if %Y ausz 4 eq {pop pop pop /ccolor exch def ccolor 0 0 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgc setsc} %PSL1-SW-Geraet ifelse } if %Cbunt ausz 5 eq {pop pop /mcolor exch def pop 0 mcolor 0 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgm setsm} %PSL1-SW-Geraet ifelse } if %Mbunt ausz 6 eq {pop /ycolor exch def pop pop 0 0 ycolor 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgy setsy} %PSL1-SW-Geraet ifelse } if %Ybunt ausz 7 eq {setgn half 0 eq {setsn} if} if %N ausz 8 ge { /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgf setsn} %PSL1-SW-Geraet ifelse } if %bei ausz=8: Farb- oder SW-Ausdruck je nach Drucker } bind def /fcolors %CMY 32 no. 0 to 31; hue circe row [{1.00 1.00 1.00 0.00} {0.00 1.00 1.00 0.00} {0.00 0.00 1.00 0.00} {1.00 0.00 1.00 0.00} {1.00 0.00 0.00 0.00} {1.00 1.00 0.00 0.00} {0.00 1.00 0.00 0.00} {0.00 0.00 0.00 0.00} {0.50 0.50 0.50 0.00} {0.50 1.00 1.00 0.00} {0.50 0.50 1.00 0.00} {1.00 0.50 1.00 0.00} {1.00 0.50 0.50 0.00} {1.00 1.00 0.50 0.00} {0.50 1.00 0.50 0.00} {0.00 1.00 0.50 0.00} {0.75 0.75 0.75 0.00} {0.00 0.50 0.50 0.00} {0.00 0.00 0.50 0.00} {0.50 0.00 0.50 0.00} {0.50 0.00 0.00 0.00} {0.50 0.50 0.00 0.00} {0.00 0.50 0.00 0.00} {1.00 0.50 0.00 0.00} {0.25 0.25 0.25 0.00} {0.00 0.50 1.00 0.00} {0.50 0.00 1.00 0.00} {1.00 0.00 0.50 0.00} {1.00 0.50 0.00 0.00} {0.50 1.00 0.00 0.00} {0.00 1.00 0.50 0.00} {1.00 0.00 0.50 0.00} ] def /fak 0.5 def /Far %Farbkreis-Reihenfolge [ 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %R 16 17 18 19 20 21 22 23 %B 24 25 26 27 28 29 30 31 %G ] def /cFar %Kompensativ-Farbkreis-Reihenfolge [ 8 4 5 6 1 2 3 0 0 20 21 22 17 18 19 31 %G 24 12 13 14 9 10 11 2 %J 16 28 29 30 25 26 27 15 %R ] def /Btx %Farbkreis- -> %Btx-Reihenfolge [ 0 1 3 2 5 6 4 7 8 9 11 10 13 14 12 15 %R 16 17 19 18 21 22 20 23 %B 24 25 26 27 28 29 30 31 %G ] def /cBtx %Farbkreis- -> %Kompensativ-Btx-Reihenfolge [ 7 4 6 5 2 3 1 0 8 20 22 21 18 19 17 31 %G 24 12 14 13 10 11 9 2 %J 16 25 26 27 28 29 30 15 %R ] def /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfi %x y width heigth c m y k {setcmyknew rec fill} bind def /colrecst %x y width heigth c m y k {setcmyknew rec stroke} bind def /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmyknew} bind def /tfl {tzl setcmyknew} bind def /tfv {tzv setcmyknew} bind def /tfc {tzc setcmyknew} bind def /tfm {tzm setcmyknew} bind def /tfy {tzy setcmyknew} bind def /tfn {tzn setcmyknew} bind def /tfd {tzd setcmyknew} bind def /tfz {tzz setcmyknew} bind def /tfh {tzh setcmyknew} bind def /tfw {tzw setcmyknew} bind def /tfr {tzr setcmyknew} bind def /tfg {tzg setcmyknew} bind def /tfb {tzb setcmyknew} bind def /tfj {tzj setcmyknew} bind def /tfrz {tzrz setcmyknew} bind def /tfgz {tzgz setcmyknew} bind def /tfbz {tzbz setcmyknew} bind def /tfjz {tzjz setcmyknew} bind def %ANFA OUTLIN00 951204 /pixf 1.0 def /ueg 1 pixf mul def /uek 1 pixf mul def /ues 1 pixf mul def /pxd uek def /pyd uek def /pxwd ueg def /pywd ueg def /pss ues def /outxshowf {show} bind def /outxshow {show} bind def /outSK {250 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSM {300 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSG {350 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outshowf {setcmyknew show} bind def /outrecfi { %x y width heigth c m y k setcmyknew rec fill} bind def /outrecfi4 { %x y width heigth c m y k outrecfi} bind def /outrecfi3 { %x y width heigth c m y k outrecfi} bind def /outrecfi2 { %x y width heigth c m y k outrecfi} bind def /outlinetos { %px py c m y k setcmyknew lineto stroke} bind def /outstroke { %px1 py1 curveto ... curveto c m y k setcmyknew stroke} bind def %%EndProlog gsave %LANINDL2 START 20000505 /lanind 0 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /popde {0 lanind ne {pop} if} bind def /popen {1 lanind ne {pop} if} bind def /popes {2 lanind ne {pop} if} bind def /popfr {3 lanind ne {pop} if} bind def /popit {4 lanind ne {pop} if} bind def /popjp {5 lanind ne {pop} if} bind def /popm {6 lanind ne {pop} if} bind def /popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def /popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def /popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def /popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def /popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def /popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def /popxm {/n exch def 6 lanind ne {n {pop} repeat} if} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave %LANINDL2 END %{proz2} settransfer 8 /Times-Roman FS 72 83 moveto ( E8620-7, ) show 8 /Times-ISOL1 FS (Digitaldaten D8/8bit SGcode) popde %08620-7 1 (Digital data D8/8bit SGcode) popen %18620-7 1 (Digital data D8/8bit SGcode) popes %28620-7 1 (Digital data D8/8bit SGcode) popfr %38620-7 1 (Digital data D8/8bit SGcode) popit %48620-7 1 (Digital data D8/8bit SGcode) popjp %58620-7 1 show 8 /TimesI-ISOL1 FS ( CMY*) show 72 90 translate /pixf 1.0 def 0.1667 pixf div MM dup scale /ausz 8 def /half 0 def Halbt %Farbauszug 1=C, 2=M, 3=Y, 7=N, 8=F %/setcmyknew {/n exch def /y exch def /m exch def /c exch def % 1 c sub 1 m sub 1 y sub setrgbcolor} def 0 0 320 240 0.0 0.0 0.0 0.0 colrecfi %rectangle W 0.0 0.0 0.0 1.0 setcmyknew %text N 0 0 moveto 320 0 rlineto 0 240 rlineto -320 0 rlineto closepath stroke TBIG %Schrift Times-Bold-Gross-Italic 02 223 moveto (N\255W: ) show TBG %Schrift Times-Bold-Gross (D8CMY*i/h, d8cmy*s/z) show 45 103 moveto (unbunte Hauptfarben) showde %08620-7 2 (achromatic basic colors) showen %18620-7 2 (Colores acrom\341ticos b\341sicos) showes %28620-7 2 (achromatic basic colors) showfr %38620-7 2 (achromatic basic colors) showit %48620-7 2 (achromatic basic colors) showjp %58620-7 2 /iln 1 def /j 0 def /iy 180 def /solvfcols %Sonder-Farbkreis-Reihenfolge Nr. 0 bis 5; %N&W [ (111*) (222*) (555*) (999*) (DDD*) (EEE*) ] def /scolors %CMYN 5 Sonder-Testfarben Nr. 0 bis 5; Farbkreis-Reihenfolge %NN [ {0.0 0.0 0.0 0.923} {0.0 0.0 0.0 0.870} {0.0 0.0 0.0 0.630} {0.0 0.0 0.0 0.333} {0.0 0.0 0.0 0.130} {0.0 0.0 0.0 0.067}] def /tBtxz %textBtx-Reihenfolge [(0) (1) (2) (3) (4) (5) (6) (7) (0) (0) () (8) () (7) () ()] def /tFarb %textFar-Reihenfolge [(N) (O) (Y) (L) (C) (V) (M) (W) (Z) (N) (D) (Z) (H) (W) () () ] def %output as integer and 0 to 3 digits /cvishow {0.5 add cvi %new980310 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 %new980310 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 %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 6 string cvs show} def /cvsshow3 {dup 1000 mul 0.1 add round cvi 0.001 mul 6 string cvs show (, ) show x 20 add y moveto 1000 mul 500 sub 0.1 add round cvi 0.001 mul 8 string cvs show } def /temp 12 string def /arrow {x 6 sub y moveto (->) show} bind def /r4outh {%begin 4bit round print hex 15 mul 0.26 sub round cvi dup 10 temp cvrs show (, ) show 16 temp cvrs show } bind def %end 4bit round print /r4outd {%begin decimal 0..1 print cvsshow3 } bind def %end 4bit round print /r8outh {%begin 8bit round print hex 255 mul 0.26 sub round cvi dup 10 temp cvrs show ( / ) show dup 16 le {(0) show} if 16 temp cvrs show } bind def %end 8bit round print /r8outd {%begin decimal 0..1 print cvsshow3 } bind def %end 8bit round print /N4outh {%begin printpout dec, hex 4 bit 0.77 mul 0.05 add r4outh } bind def %end printpout dec, hex 4 bit /n4outh {%begin printpout dec, hex 4 bit r4outh } bind def %end printpout dec, hex 4 bit /N4outd {%begin printpout dec, hex 4 bit 0.77 mul 0.05 add r4outd } bind def %end printpout dec, hex 4 bit /n4outd {%begin printpout dec, hex 4 bit r4outd } bind def %end printpout dec, hex 4 bit /N6outh {%begin printpout dec, hex 6 bit 0.77 mul 0.05 add 0.5 sub 0.25 mul 0.5 add r8outh } bind def %end printpout dec, hex 6 bit /n6outh {%begin printpout dec, hex 6 bit 0.5 sub 0.25 mul 0.5 add r8outh } bind def %end printpout dec, hex 6 bit /N6outd {%begin printpout dec, hex 6 bit 0.77 mul 0.05 add 0.5 sub 0.25 mul 0.5 add r8outd } bind def %end printpout dec, hex 6 bit /n6outd {%begin printpout dec, hex 6 bit 0.5 sub 0.25 mul 0.5 add r8outd } bind def %end printpout dec, hex 6 bit /N7outh {%begin printpout dec, hex 7 bit 0.77 mul 0.05 add 0.5 sub 0.50 mul 0.5 add r8outh } bind def %end printpout dec, hex 7 bit /n7outh {%begin printpout dec, hex 7 bit 0.5 sub 0.50 mul 0.5 add r8outh } bind def %end printpout dec, hex 7 bit /N7outd {%begin printpout dec, hex 7 bit 0.77 mul 0.05 add 0.5 sub 0.50 mul 0.5 add r8outd } bind def %end printpout dec, hex 7 bit /n7outd {%begin printpout dec, hex 7 bit 0.5 sub 0.50 mul 0.5 add r8outd } bind def %end printpout dec, hex 7 bit /N8outh {%begin printpout dec, hex 8 bit 0.77 mul 0.05 add r8outh } bind def %end printpout dec, hex 8 bit /n8outh {%begin printpout dec, hex 8 bit r8outh } bind def %end printpout dec, hex 8 bit /N8outd {%begin printpout dec, hex 8 bit 0.77 mul 0.05 add r8outd } bind def %end printpout dec, hex 8 bit /n8outd {%begin printpout dec, hex 8 bit r8outd } bind def %end printpout dec, hex 8 bit /nc100out {%begin printpout dec, hex CIE 100 steps 0.5 sub 100 255 div mul 0.5 add r8outd } bind def %end printpout dec, hex CIE 100 steps /Nc100out {%begin printpout dec, hex CIE 100 steps 0.77 mul 0.05 add 0.5 sub 100 255 div mul 0.5 add r8outd } bind def %end printpout dec, hex CIE 100 steps /nc077out {%begin printpout dec, hex CIE 077 steps 0.5 sub 077 255 div mul 0.5 add r8outd } bind def %end printpout dec, hex CIE 077 steps /Nc077out {%begin printpout dec, hex CIE 077 steps 0.77 mul 0.05 add 0.5 sub 077 255 div mul 0.5 add r8outd } bind def %end printpout dec, hex CIE 077 steps /TBKK {200 16.67 div /Times-Bold FS} bind def /TBKL {100 16.67 div /Times-Bold FS} bind def /j 0 def 1 1 6 {/i exch def TBM i j 8 mul add /k exch def -08 i 48 mul add 17 add /ix exch def 183 j 120 mul sub /iy exch def 0.0 0.0 0.0 1.0 setcmyknew %text N TBIK i 1 eq { ix 15 sub iy 25 add moveto (D8CMY*tod8cmy* setcmy*color) show TBKL ix 55 sub iy 18 add moveto (Type / range:) show ix 55 sub iy 12 add moveto (D8CMY*i/h) show ix 53 sub iy 6 add moveto (12...209) show ix 53 sub iy 0 sub moveto (0C...D1) show ix 55 sub iy 6 sub moveto (d8cmy*s/z:) show ix 53 sub iy 12 sub moveto ( 0.000...1.000) show ix 53 sub iy 19 sub moveto (-0.500...0.500) show ix 55 sub iy 26 sub moveto (D8C*i/h) show ix 55 sub iy 40 sub moveto (D8M*i/h) show ix 55 sub iy 54 sub moveto (D8Y*i/h) show ix 55 sub iy 32 sub moveto (d8c*s/z) show ix 55 sub iy 46 sub moveto (d8m*s/z) show ix 55 sub iy 60 sub moveto (d8y*s/z) show } if TBKL /ku Far k get exec def iln 0 ne {%begin olv or cmy dec and hex fcolors ku get exec /n8 exch def /y8 exch def /m8 exch def /c8 exch def /x ix 18 sub def /y iy 26 sub def x y moveto c8 N8outh /x ix 18 sub def /y iy 40 sub def x y moveto y8 N8outh /x ix 18 sub def /y iy 54 sub def x y moveto m8 N8outh /x ix 18 sub def /y iy 32 sub def arrow x y moveto c8 n8outd /x ix 18 sub def /y iy 46 sub def arrow x y moveto y8 n8outd /x ix 18 sub def /y iy 60 sub def arrow x y moveto m8 n8outd } if %end out olv or cmy dec and hex ix 19 sub iy 19 sub 39 39 fcolors ku get exec outrecfi4 %Farbe-Fuellen je nach Auszug TBIG /kuc cFar k get exec def j 0 eq {ix 7 sub iy 5 sub moveto tFarb i get exec fcolors kuc get exec outshowf} if } for %schleife i /scolors %CMY 5 Sonder-Testfarben Nr. 0 bis 4; Farbkreis-Reihenfolge %NN [ {1.00 1.00 1.00 0.00} {0.75 0.75 0.75 0.00} {0.50 0.50 0.50 0.00} {0.25 0.25 0.25 0.00} {0.00 0.00 0.00 0.00} ] def /iy 063 def 0 1 4 {/i exch def 0.0 0.0 0.0 1.0 setcmyknew %text N TBIK 15 i 1 add 48 mul add 17 add /ix exch def i 0 eq { ix 15 sub iy 25 add moveto (D8CMY*tod8cmy* setcmy*color) show TBKL ix 77 sub iy 18 add moveto (Type / range:) show ix 77 sub iy 12 add moveto (D8CMY*i/h) show ix 75 sub iy 6 add moveto (12...209) show ix 75 sub iy 0 sub moveto (0C...D1) show ix 77 sub iy 6 sub moveto (d8cmy*s/z:) show ix 75 sub iy 12 sub moveto ( 0.000...1.000) show ix 75 sub iy 19 sub moveto (-0.500...0.500) show ix 77 sub iy 26 sub moveto (D8C*i/h) show ix 77 sub iy 40 sub moveto (D8M*i/h) show ix 77 sub iy 54 sub moveto (D8Y*i/h) show ix 77 sub iy 32 sub moveto (d8c*s/z) show ix 77 sub iy 46 sub moveto (d8m*s/z) show ix 77 sub iy 60 sub moveto (d8y*s/z) show } if TBKL iln 0 ne {%begin olv or cmy dec and hex scolors i get exec /n8 exch def /y8 exch def /m8 exch def /c8 exch def /x ix 18 sub def /y iy 26 sub def x y moveto c8 N8outh /x ix 18 sub def /y iy 40 sub def x y moveto m8 N8outh /x ix 18 sub def /y iy 54 sub def x y moveto y8 N8outh /x ix 18 sub def /y iy 32 sub def arrow x y moveto c8 n8outd /x ix 18 sub def /y iy 46 sub def arrow x y moveto m8 n8outd /x ix 18 sub def /y iy 60 sub def arrow x y moveto y8 n8outd } if %end out olv or cmy dec and hex TBIG ix 19 sub iy 19 sub 39 39 scolors i get exec outrecfi4 %Farbe-Fuellen je nach Auszug /kuc cFar 9 i add get exec def ix 06 sub iy 5 sub moveto i 3 lt {fcolors 07 get exec} {fcolors 00 get exec} ifelse setcmyknew tFarb 9 i add get exec dup stringwidth pop 15 exch sub 0.5 mul 0 rmoveto show 4 i eq {ix 19 sub iy 19 sub moveto 39 0 rlineto 0 39 rlineto -39 0 rlineto closepath 0.0 0.0 0.0 1.0 setcmyknew stroke %edge N } if } for %schleife i showpage grestore } for %output with langind end %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 021 MM translate 12 /Times-ISOL1 FS -9 MM -7 MM moveto ( ) show 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 28 %Zeile 480 %!PS-Adobe-3.0 EPSF-3.0 1x1 E8620-8N.EPS %%BoundingBox: 60 80 226 206 %START PDFDE011.EPS /pdfmark where {pop} {userdict /pdfmark /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: 1x1 E8620-8) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://o2.ps.bam.de or www.ps.bam.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@bam.de) /CreationDate (D:2000010512000) /ModDate (D:2000010512000) /DOCINFO pdfmark [ /View [ /FitB ] /DOCVIEW pdfmark %END PDFDE011 %%Creator: K. Richter, BAM und TU Berlin, 2000.01.04 %%+Copyright (c) 1996 VDE-Verlag Berlin Offenbach % !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 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /TK {250 16.67 div /Times-ISOL1 FS} bind def /TM {300 16.67 div /Times-ISOL1 FS} bind def /TG {350 16.67 div /Times-ISOL1 FS} bind def /TIK {250 16.67 div /TimesI-ISOL1 FS} bind def /TIM {300 16.67 div /TimesI-ISOL1 FS} bind def /TIG {350 16.67 div /TimesI-ISOL1 FS} bind def /TBK {250 16.67 div /TimesB-ISOL1 FS} bind def /TBM {300 16.67 div /TimesB-ISOL1 FS} bind def /TBG {350 16.67 div /TimesB-ISOL1 FS} bind def /TBIK {250 16.67 div /TimesBI-ISOL1 FS} bind def /TBIM {300 16.67 div /TimesBI-ISOL1 FS} bind def /TBIG {350 16.67 div /TimesBI-ISOL1 FS} bind def /proz1 {pop} bind def /proz2 {sqrt} bind def /setgc {pop pop pop 1 exch sub setgray} bind def /setgm {pop pop 1 exch sub setgray pop} bind def /setgy {pop 1 exch sub setgray pop pop} bind def /setgn {1 exch sub setgray pop pop pop} bind def /setgf {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def 0 ccolor eq 0 mcolor eq and 0 ycolor eq and {1 ncolor sub setgray} {1 ccolor sub 0.71 mul 1 mcolor sub 0.22 mul add 1 ycolor sub 0.07 mul add setgray} ifelse } bind def /setsc {075 135 {proz1} setscreen } bind def /setsm {075 090 {proz1} setscreen } bind def /setsy {075 000 {proz1} setscreen } bind def /setsn {075 045 {proz1} setscreen } bind def /setsf {075 135 {proz1} 075 090 {proz1} 075 000 {proz1} 075 045 {proz1} setcolorscreen } bind def /setcmykcolorf {setcmykcolor setsf} bind def %fuer PSL1/2-Farbgeraet %ANFA HALBTON /Halbt { %wrbie:HALBTOA0.eps } bind def %ANFA SETCMYK /setcmyknew { %Ersatz setcolornew durch setcmykcolor1 ausz 1 eq {setgc half 0 eq {setsc} if} if %C ausz 2 eq {setgm half 0 eq {setsm} if} if %M ausz 3 eq {setgy half 0 eq {setsy} if} if %Y ausz 4 eq {pop pop pop /ccolor exch def ccolor 0 0 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgc setsc} %PSL1-SW-Geraet ifelse } if %Cbunt ausz 5 eq {pop pop /mcolor exch def pop 0 mcolor 0 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgm setsm} %PSL1-SW-Geraet ifelse } if %Mbunt ausz 6 eq {pop /ycolor exch def pop pop 0 0 ycolor 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgy setsy} %PSL1-SW-Geraet ifelse } if %Ybunt ausz 7 eq {setgn half 0 eq {setsn} if} if %N ausz 8 ge { /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgf setsn} %PSL1-SW-Geraet ifelse } if %bei ausz=8: Farb- oder SW-Ausdruck je nach Drucker } bind def /fcolors %CMY 32 no. 0 to 31; hue circe row [{1.00 1.00 1.00 0.00} {0.00 1.00 1.00 0.00} {0.00 0.00 1.00 0.00} {1.00 0.00 1.00 0.00} {1.00 0.00 0.00 0.00} {1.00 1.00 0.00 0.00} {0.00 1.00 0.00 0.00} {0.00 0.00 0.00 0.00} {0.50 0.50 0.50 0.00} {0.50 1.00 1.00 0.00} {0.50 0.50 1.00 0.00} {1.00 0.50 1.00 0.00} {1.00 0.50 0.50 0.00} {1.00 1.00 0.50 0.00} {0.50 1.00 0.50 0.00} {0.00 1.00 0.50 0.00} {0.75 0.75 0.75 0.00} {0.00 0.50 0.50 0.00} {0.00 0.00 0.50 0.00} {0.50 0.00 0.50 0.00} {0.50 0.00 0.00 0.00} {0.50 0.50 0.00 0.00} {0.00 0.50 0.00 0.00} {1.00 0.50 0.00 0.00} {0.25 0.25 0.25 0.00} {0.00 0.50 1.00 0.00} {0.50 0.00 1.00 0.00} {1.00 0.00 0.50 0.00} {1.00 0.50 0.00 0.00} {0.50 1.00 0.00 0.00} {0.00 1.00 0.50 0.00} {1.00 0.00 0.50 0.00} ] def /fak 0.5 def /Far %Farbkreis-Reihenfolge [ 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %R 16 17 18 19 20 21 22 23 %B 24 25 26 27 28 29 30 31 %G ] def /cFar %Kompensativ-Farbkreis-Reihenfolge [ 8 4 5 6 1 2 3 0 0 20 21 22 17 18 19 31 %G 24 12 13 14 9 10 11 2 %J 16 28 29 30 25 26 27 15 %R ] def /Btx %Farbkreis- -> %Btx-Reihenfolge [ 0 1 3 2 5 6 4 7 8 9 11 10 13 14 12 15 %R 16 17 19 18 21 22 20 23 %B 24 25 26 27 28 29 30 31 %G ] def /cBtx %Farbkreis- -> %Kompensativ-Btx-Reihenfolge [ 7 4 6 5 2 3 1 0 8 20 22 21 18 19 17 31 %G 24 12 14 13 10 11 9 2 %J 16 25 26 27 28 29 30 15 %R ] def /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfi %x y width heigth c m y k {setcmyknew rec fill} bind def /colrecst %x y width heigth c m y k {setcmyknew rec stroke} bind def /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmyknew} bind def /tfl {tzl setcmyknew} bind def /tfv {tzv setcmyknew} bind def /tfc {tzc setcmyknew} bind def /tfm {tzm setcmyknew} bind def /tfy {tzy setcmyknew} bind def /tfn {tzn setcmyknew} bind def /tfd {tzd setcmyknew} bind def /tfz {tzz setcmyknew} bind def /tfh {tzh setcmyknew} bind def /tfw {tzw setcmyknew} bind def /tfr {tzr setcmyknew} bind def /tfg {tzg setcmyknew} bind def /tfb {tzb setcmyknew} bind def /tfj {tzj setcmyknew} bind def /tfrz {tzrz setcmyknew} bind def /tfgz {tzgz setcmyknew} bind def /tfbz {tzbz setcmyknew} bind def /tfjz {tzjz setcmyknew} bind def %ANFA OUTLIN00 951204 /pixf 1.0 def /ueg 1 pixf mul def /uek 1 pixf mul def /ues 1 pixf mul def /pxd uek def /pyd uek def /pxwd ueg def /pywd ueg def /pss ues def /outxshowf {show} bind def /outxshow {show} bind def /outSK {250 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSM {300 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSG {350 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outshowf {setcmyknew show} bind def /outrecfi { %x y width heigth c m y k setcmyknew rec fill} bind def /outrecfi4 { %x y width heigth c m y k outrecfi} bind def /outrecfi3 { %x y width heigth c m y k outrecfi} bind def /outrecfi2 { %x y width heigth c m y k outrecfi} bind def /outlinetos { %px py c m y k setcmyknew lineto stroke} bind def /outstroke { %px1 py1 curveto ... curveto c m y k setcmyknew stroke} bind def %%EndProlog gsave %LANINDL2 START 20000505 /lanind 0 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /popde {0 lanind ne {pop} if} bind def /popen {1 lanind ne {pop} if} bind def /popes {2 lanind ne {pop} if} bind def /popfr {3 lanind ne {pop} if} bind def /popit {4 lanind ne {pop} if} bind def /popjp {5 lanind ne {pop} if} bind def /popm {6 lanind ne {pop} if} bind def /popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def /popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def /popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def /popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def /popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def /popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def /popxm {/n exch def 6 lanind ne {n {pop} repeat} if} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave %LANINDL2 END %{proz2} settransfer 8 /Times-Roman FS 72 83 moveto ( E8620-8, ) show 8 /Times-ISOL1 FS (Digitaldaten D8/8bit SGcode) popde %08620-8 1 (Digital data D8/8bit SGcode) popen %18620-8 1 (Digital data D8/8bit SGcode) popes %28620-8 1 (Digital data D8/8bit SGcode) popfr %38620-8 1 (Digital data D8/8bit SGcode) popit %48620-8 1 (Digital data D8/8bit SGcode) popjp %58620-8 1 show 8 /TimesI-ISOL1 FS ( CMY*) show 72 90 translate /pixf 1.0 def 0.1667 pixf div MM dup scale /ausz 8 def /half 0 def Halbt %Farbauszug 1=C, 2=M, 3=Y, 7=N, 8=F %/setcmyknew {/n exch def /y exch def /m exch def /c exch def % 1 c sub 1 m sub 1 y sub setrgbcolor} def 0 0 320 240 0.0 0.0 0.0 0.0 colrecfi %rectangle W 0.0 0.0 0.0 1.0 setcmyknew %text N 0 0 moveto 320 0 rlineto 0 240 rlineto -320 0 rlineto closepath stroke TBIG %Schrift Times-Bold-Gross-Italic 02 223 moveto (N\255W: ) show TBG %Schrift Times-Bold-Gross (D8CMY*i/h, d8cmy*i/h) show 45 103 moveto (unbunte Hauptfarben) showde %08620-8 2 (achromatic basic colors) showen %18620-8 2 (Colores acrom\341ticos b\341sicos) showes %28620-8 2 (achromatic basic colors) showfr %38620-8 2 (achromatic basic colors) showit %48620-8 2 (achromatic basic colors) showjp %58620-8 2 /iln 1 def /j 0 def /iy 180 def /solvfcols %Sonder-Farbkreis-Reihenfolge Nr. 0 bis 5; %N&W [ (111*) (222*) (555*) (999*) (DDD*) (EEE*) ] def /scolors %CMYN 5 Sonder-Testfarben Nr. 0 bis 5; Farbkreis-Reihenfolge %NN [ {0.0 0.0 0.0 0.923} {0.0 0.0 0.0 0.870} {0.0 0.0 0.0 0.630} {0.0 0.0 0.0 0.333} {0.0 0.0 0.0 0.130} {0.0 0.0 0.0 0.067}] def /tBtxz %textBtx-Reihenfolge [(0) (1) (2) (3) (4) (5) (6) (7) (0) (0) () (8) () (7) () ()] def /tFarb %textFar-Reihenfolge [(N) (O) (Y) (L) (C) (V) (M) (W) (Z) (N) (D) (Z) (H) (W) () () ] def %output as integer and 0 to 3 digits /cvishow {0.5 add cvi %new980310 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 %new980310 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 %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 6 string cvs show} def /cvsshow3 {dup 1000 mul 0.1 add round cvi 0.001 mul 6 string cvs show (, ) show x 20 add y moveto 1000 mul 500 sub 0.1 add round cvi 0.001 mul 8 string cvs show } def /temp 12 string def /arrow {x 6 sub y moveto (->) show} bind def /r4outh {%begin 4bit round print hex 15 mul 0.26 sub round cvi dup 10 temp cvrs show (, ) show 16 temp cvrs show } bind def %end 4bit round print /r4outd {%begin decimal 0..1 print cvsshow3 } bind def %end 4bit round print /r8outh {%begin 8bit round print hex 255 mul 0.26 sub round cvi dup 10 temp cvrs show ( / ) show dup 16 le {(0) show} if 16 temp cvrs show } bind def %end 8bit round print /r8outd {%begin decimal 0..1 print cvsshow3 } bind def %end 8bit round print /N4outh {%begin printpout dec, hex 4 bit 0.77 mul 0.05 add r4outh } bind def %end printpout dec, hex 4 bit /n4outh {%begin printpout dec, hex 4 bit r4outh } bind def %end printpout dec, hex 4 bit /N4outd {%begin printpout dec, hex 4 bit 0.77 mul 0.05 add r4outd } bind def %end printpout dec, hex 4 bit /n4outd {%begin printpout dec, hex 4 bit r4outd } bind def %end printpout dec, hex 4 bit /N6outh {%begin printpout dec, hex 6 bit 0.77 mul 0.05 add 0.5 sub 0.25 mul 0.5 add r8outh } bind def %end printpout dec, hex 6 bit /n6outh {%begin printpout dec, hex 6 bit 0.5 sub 0.25 mul 0.5 add r8outh } bind def %end printpout dec, hex 6 bit /N6outd {%begin printpout dec, hex 6 bit 0.77 mul 0.05 add 0.5 sub 0.25 mul 0.5 add r8outd } bind def %end printpout dec, hex 6 bit /n6outd {%begin printpout dec, hex 6 bit 0.5 sub 0.25 mul 0.5 add r8outd } bind def %end printpout dec, hex 6 bit /N7outh {%begin printpout dec, hex 7 bit 0.77 mul 0.05 add 0.5 sub 0.50 mul 0.5 add r8outh } bind def %end printpout dec, hex 7 bit /n7outh {%begin printpout dec, hex 7 bit 0.5 sub 0.50 mul 0.5 add r8outh } bind def %end printpout dec, hex 7 bit /N7outd {%begin printpout dec, hex 7 bit 0.77 mul 0.05 add 0.5 sub 0.50 mul 0.5 add r8outd } bind def %end printpout dec, hex 7 bit /n7outd {%begin printpout dec, hex 7 bit 0.5 sub 0.50 mul 0.5 add r8outd } bind def %end printpout dec, hex 7 bit /N8outh {%begin printpout dec, hex 8 bit 0.77 mul 0.05 add r8outh } bind def %end printpout dec, hex 8 bit /n8outh {%begin printpout dec, hex 8 bit r8outh } bind def %end printpout dec, hex 8 bit /N8outd {%begin printpout dec, hex 8 bit 0.77 mul 0.05 add r8outd } bind def %end printpout dec, hex 8 bit /n8outd {%begin printpout dec, hex 8 bit r8outd } bind def %end printpout dec, hex 8 bit /nc100out {%begin printpout dec, hex CIE 100 steps 0.5 sub 100 255 div mul 0.5 add r8outd } bind def %end printpout dec, hex CIE 100 steps /Nc100out {%begin printpout dec, hex CIE 100 steps 0.77 mul 0.05 add 0.5 sub 100 255 div mul 0.5 add r8outd } bind def %end printpout dec, hex CIE 100 steps /nc077out {%begin printpout dec, hex CIE 077 steps 0.5 sub 077 255 div mul 0.5 add r8outd } bind def %end printpout dec, hex CIE 077 steps /Nc077out {%begin printpout dec, hex CIE 077 steps 0.77 mul 0.05 add 0.5 sub 077 255 div mul 0.5 add r8outd } bind def %end printpout dec, hex CIE 077 steps /TBKK {200 16.67 div /Times-Bold FS} bind def /TBKL {100 16.67 div /Times-Bold FS} bind def /j 0 def 1 1 6 {/i exch def TBM i j 8 mul add /k exch def -08 i 48 mul add 17 add /ix exch def 183 j 120 mul sub /iy exch def 0.0 0.0 0.0 1.0 setcmyknew %text N TBIK i 1 eq { ix 15 sub iy 25 add moveto (D8CMY*tod8cmy* setcmy*color) show TBKL ix 55 sub iy 18 add moveto (Type / range:) show ix 55 sub iy 12 add moveto (D8CMY*i/h) show ix 53 sub iy 6 add moveto (12...209) show ix 53 sub iy 0 sub moveto (0C...D1) show ix 55 sub iy 6 sub moveto (d8cmy*i/h:) show ix 53 sub iy 12 sub moveto (0...255) show ix 53 sub iy 19 sub moveto (00...FF) show ix 55 sub iy 26 sub moveto (D8C*i/h) show ix 55 sub iy 40 sub moveto (D8M*i/h) show ix 55 sub iy 54 sub moveto (D8Y*i/h) show ix 55 sub iy 32 sub moveto (d8c*i/h) show ix 55 sub iy 46 sub moveto (d8m*i/h) show ix 55 sub iy 60 sub moveto (d8y*i/h) show } if TBKL /ku Far k get exec def iln 0 ne {%begin olv or cmy dec and hex fcolors ku get exec /n8 exch def /y8 exch def /m8 exch def /c8 exch def /x ix 18 sub def /y iy 26 sub def x y moveto c8 N8outh /x ix 18 sub def /y iy 40 sub def x y moveto y8 N8outh /x ix 18 sub def /y iy 54 sub def x y moveto m8 N8outh /x ix 18 sub def /y iy 32 sub def arrow x y moveto c8 n8outh /x ix 18 sub def /y iy 46 sub def arrow x y moveto y8 n8outh /x ix 18 sub def /y iy 60 sub def arrow x y moveto m8 n8outh } if %end out olv or cmy dec and hex ix 19 sub iy 19 sub 39 39 fcolors ku get exec outrecfi4 %Farbe-Fuellen je nach Auszug TBIG /kuc cFar k get exec def j 0 eq {ix 7 sub iy 5 sub moveto tFarb i get exec fcolors kuc get exec outshowf} if } for %schleife i /scolors %CMY 5 Sonder-Testfarben Nr. 0 bis 4; Farbkreis-Reihenfolge %NN [ {1.00 1.00 1.00 0.00} {0.75 0.75 0.75 0.00} {0.50 0.50 0.50 0.00} {0.25 0.25 0.25 0.00} {0.00 0.00 0.00 0.00} ] def /iy 063 def 0 1 4 {/i exch def 0.0 0.0 0.0 1.0 setcmyknew %text N TBIK 15 i 1 add 48 mul add 17 add /ix exch def i 0 eq { ix 15 sub iy 25 add moveto (D8CMY*tod8cmy* setcmy*color) show TBKL ix 77 sub iy 18 add moveto (Type / range:) show ix 77 sub iy 12 add moveto (D8CMY*i/h) show ix 75 sub iy 6 add moveto (12...209) show ix 75 sub iy 0 sub moveto (0C...D1) show ix 77 sub iy 6 sub moveto (d8cmy*i/h:) show ix 75 sub iy 12 sub moveto (0...255) show ix 75 sub iy 19 sub moveto (00...FF) show ix 77 sub iy 26 sub moveto (D8C*i/h) show ix 77 sub iy 40 sub moveto (D8M*i/h) show ix 77 sub iy 54 sub moveto (D8Y*i/h) show ix 77 sub iy 32 sub moveto (d8c*i/h) show ix 77 sub iy 46 sub moveto (d8m*i/h) show ix 77 sub iy 60 sub moveto (d8y*i/h) show } if TBKL iln 0 ne {%begin olv or cmy dec and hex scolors i get exec /n8 exch def /y8 exch def /m8 exch def /c8 exch def /x ix 18 sub def /y iy 26 sub def x y moveto c8 N8outh /x ix 18 sub def /y iy 40 sub def x y moveto m8 N8outh /x ix 18 sub def /y iy 54 sub def x y moveto y8 N8outh /x ix 18 sub def /y iy 32 sub def arrow x y moveto c8 n8outh /x ix 18 sub def /y iy 46 sub def arrow x y moveto m8 n8outh /x ix 18 sub def /y iy 60 sub def arrow x y moveto y8 n8outh } if %end out olv or cmy dec and hex TBIG ix 19 sub iy 19 sub 39 39 scolors i get exec outrecfi4 %Farbe-Fuellen je nach Auszug /kuc cFar 9 i add get exec def ix 06 sub iy 5 sub moveto i 3 lt {fcolors 07 get exec} {fcolors 00 get exec} ifelse setcmyknew tFarb 9 i add get exec dup stringwidth pop 15 exch sub 0.5 mul 0 rmoveto show 4 i eq {ix 19 sub iy 19 sub moveto 39 0 rlineto 0 39 rlineto -39 0 rlineto closepath 0.0 0.0 0.0 1.0 setcmyknew stroke %edge N } if } for %schleife i showpage grestore } for %output with langind end %%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 %Zeile 490 %!PS-Adobe-2.0, D1REPS:bbeld-00.eps Rechteckrahmen Dummy 10.12.96 %%BoundingBox: 0 0 595 840 %%EndProlog %Dummy kein Rechteckrahmen showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF -0.5 MM -0.5 MM translate %xy-Verschiebung Rechteckrahmen nach innen % %%BeginDocument: Bild 30 %Rechteckrahmen %Zeile 500 %!PS-Adobe-3.0 EPSF-3.0 BVMQR-FF.EPS mit (4/8)XY(P/M) 12.05.2000 %%BoundingBox: 14 08 828 584 % !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 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %d2:[rr.p6f]COLOR03.EPS /proz1 {pop} bind def /proz2 {sqrt} bind def /setgc {setcmykcolor} bind def /setgm {setcmykcolor} bind def /setgy {setcmykcolor} bind def /setgn {setcmykcolor} bind def /setgf {setcmykcolor} bind def %/setgc {pop pop pop 1 exch sub setgray} bind def %/setgm {pop pop 1 exch sub setgray pop} bind def %/setgy {pop 1 exch sub setgray pop pop} bind def %/setgn {1 exch sub setgray pop pop pop} bind def %/setgf {/ncolor exch def /ycolor exch def % /mcolor exch def /ccolor exch def % 0 ccolor eq 0 mcolor eq and 0 ycolor eq and {1 ncolor sub setgray} % {1 ccolor sub 0.71 mul % 1 mcolor sub 0.22 mul add % 1 ycolor sub 0.07 mul add setgray} ifelse % } bind def /setsc {075 135 {proz1} setscreen } bind def /setsm {075 090 {proz1} setscreen } bind def /setsy {075 000 {proz1} setscreen } bind def /setsn {075 045 {proz1} setscreen } bind def /setsf {075 135 {proz1} 075 090 {proz1} 075 000 {proz1} 075 045 {proz1} setcolorscreen } bind def /setcmykcolorf {setcmykcolor setsf} bind def %fuer PSL1/2-Farbgeraet %ANFA HALBTON /Halbt { %wrbie:HALBTOA0.eps } bind def %ANFA CMYKDEF %CMYKDEA0 (A0=Standard-Drucker-CMYKDEF) 15.3.97 /tzac [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzam [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzay [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzan [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tza0 [0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000] def /tza1 [1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000] def %ENDE CMYKD %ANFA SETCMYK /setcmyknew { %Ersatz setcolornew durch setcmykcolor1 ausz 1 eq {setgc half 0 eq {setsc} if} if %C ausz 2 eq {setgm half 0 eq {setsm} if} if %M ausz 3 eq {setgy half 0 eq {setsy} if} if %Y ausz 4 eq {pop pop pop /ccolor exch def ccolor 0 0 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgc setsc} %PSL1-SW-Geraet ifelse } if %Cbunt ausz 5 eq {pop pop /mcolor exch def pop 0 mcolor 0 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgm setsm} %PSL1-SW-Geraet ifelse } if %Mbunt ausz 6 eq {pop /ycolor exch def pop pop 0 0 ycolor 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgy setsy} %PSL1-SW-Geraet ifelse } if %Ybunt ausz 7 eq {setgn half 0 eq {setsn} if} if %N ausz 8 ge { /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgf setsn} %PSL1-SW-Geraet ifelse } if %bei ausz=8: Farb- oder SW-Ausdruck je nach Drucker } bind def /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfi %x y width heigth c m y n {setcmyknew rec fill} bind def /colrecst %x y width heigth c m y n {setcmyknew rec stroke} bind def /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tfo {tzo setcmyknew} bind def /tfl {tzl setcmyknew} bind def /tfv {tzv setcmyknew} bind def /tfc {tzc setcmyknew} bind def /tfm {tzm setcmyknew} bind def /tfy {tzy setcmyknew} bind def /tfn {tzn setcmyknew} bind def /tfd {tzd setcmyknew} bind def /tfz {tzz setcmyknew} bind def /tfh {tzh setcmyknew} bind def /tfw {tzw setcmyknew} bind def %ANFA OUTLINO0 951204 /pixf 1.0 def /ueg {1.6 pixf mul} bind def /uek {0.8 pixf mul} bind def /ues {0.7 pixf mul} bind def /pxd uek def /pyd uek def /pxwd ueg def /pywd ueg def /outxshowf {show} bind def /outxshow {show} bind def /SK {250 16.67 div 1 sub pixf mul /Symbol FS} bind def /SM {300 16.67 div 1 sub pixf mul /Symbol FS} bind def /SG {350 16.67 div 1 sub pixf mul /Symbol FS} bind def /outSK {250 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSM {300 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSG {350 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outshowf {setcmyknew show} bind def /outrecfi { %x y width heigth c m y k setcmyknew rec fill} bind def /outrecfi4 { %x y width heigth c m y k outrecfi} bind def /outrecfi3 { %x y width heigth c m y k outrecfi} bind def /outrecfi2 { %x y width heigth c m y k outrecfi} bind def /outlinetos { %px py c m y k setcmyknew lineto stroke} bind def /outstroke { %px1 py1 curveto ... curveto c m y k setcmyknew stroke} bind def /A4quer {598 0 translate 90 rotate} def %%EndProlog %!A4quer gsave %LANINDL1 START 20000105 /lanind 0 def /lantex [(G) (E) (S) (F) (I) (J)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /popde {0 lanind ne {pop} if} bind def /popen {1 lanind ne {pop} if} bind def /popes {2 lanind ne {pop} if} bind def /popfr {3 lanind ne {pop} if} bind def /popit {4 lanind ne {pop} if} bind def /popjp {5 lanind ne {pop} if} bind def /popm {6 lanind ne {pop} if} bind def /popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def /popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def /popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def /popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def /popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def /popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def /popxm {/n exch def 6 lanind ne {n {pop} repeat} if} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 0 def /lanind2 6 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage /GSS$ where {pop /LSS$ GSS$ def} {/LSS$ (1) def} ifelse /GSX$ where {pop /LSX$ GSX$ def} {/LSX$ (3) def} ifelse /GSY$ where {pop /LSY$ GSY$ def} {/LSY$ (0) def} ifelse /GEX$ where {pop /LEX$ GEX$ def} {/LEX$ (.PDF) def} ifelse gsave %LANINDL1 END /ausz 7 def /half 3 def Halbt 1.0 1.0 1.0 1.0 setcmyknew 1.0 1.0 scale 0.5 MM 0.5 MM translate 0.15 MM setlinewidth /x 20 array def /y 20 array def /d 20 array def /x [000 296 296 000 002 294 294 002 004 292 292 004 006 290 290 006 008 288 288 008 ] def /y [000 000 210 210 002 002 208 208 004 004 206 206 006 006 204 204 008 008 202 202 ] def /d [060 017 -60 -17 058 015 -58 -15 056 013 -56 -13 054 011 -54 -11 052 009 -52 -09 ] def /xlu 017 MM def /ylu 017 MM def /xro 279 MM def /yro 193 MM def /xlo 017 MM def /ylo 193 MM def /xru 279 MM def /yru 017 MM def 12 4 16 {/i exch def /i0 i def %i=0,16 %0 4 16 {/i exch def /i0 i def %i=0,16 /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def i 16 eq {0.30 MM setlinewidth} {0.15 MM setlinewidth} ifelse tfn x i0 get MM y i0 get MM moveto x i1 get MM y i1 get MM lineto x i2 get MM y i2 get MM lineto x i3 get MM y i3 get MM lineto x i0 get MM y i0 get MM lineto stroke i 16 eq {6 /Times-ISOL1 FS /x00 67 def /xdif 32 def /y0o 202.3 def /y0u 6.3 def /x0l 6.1 def /x0r 288 def /y00 22 def /ydif 32 def x00 xdif 0 mul add MM y0o MM moveto (V) show x00 xdif 0 mul add MM y0u MM moveto (C) show x00 xdif 1 mul add MM y0o MM moveto (L) show x00 xdif 1 mul add MM y0u MM moveto (M) show x00 xdif 2 mul add MM y0o MM moveto (O) show x00 xdif 2 mul add MM y0u MM moveto (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 {tfc} if j0 1 eq {tfn} if j0 2 eq {tfm} if j0 3 eq {tfn} if j0 4 eq {tfy} if j0 5 eq {tfn} if j0 6 eq {tfo} if j0 7 eq {tfn} if j0 8 eq {tfl} if j0 9 eq {tfn} if j0 10 eq {tfv} if 12 4 16 {/i exch def /i0 i def %i=0,16 %0 4 16 {/i exch def /i0 i def %i=0,16 /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def i 16 eq {0.30 MM setlinewidth} {0.15 MM setlinewidth} ifelse x i0 get d i0 get add 16 j0 mul add MM y i0 get MM moveto x i0 get d i0 get add 16 j1 mul add MM y i0 get MM lineto stroke x i1 get MM y i1 get d i1 get add 16 j0 mul add MM moveto x i1 get MM y i1 get d i1 get add 16 j1 mul add MM lineto stroke x i2 get d i2 get add 16 j0 mul sub MM y i2 get MM moveto x i2 get d i2 get add 16 j1 mul sub MM y i2 get MM lineto stroke x i3 get MM y i3 get d i3 get add 16 j0 mul sub MM moveto x i3 get MM y i3 get d i3 get add 16 j1 mul sub MM lineto stroke } for %i=0,16 } for %j0 0.15 MM setlinewidth /s 7 MM def /s1 8 MM def /s5 36 MM def 16 1 20 {/j exch def /j0 j 16 sub def /ix0 xlu 8 MM add j0 7 MM mul add def /iy0 ylu 8 MM sub def j 16 eq {ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 0.0 0.0 tzan j get 0.0 outrecfi} if ix0 iy0 s s 0.0 0.0 tzan j get 0.0 outrecfi /ix0 xru 43 MM sub j0 7 MM mul add def /iy0 yru 8 MM sub def j 16 eq {ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 0.0 0.0 0.0 tzan j get outrecfi} if ix0 iy0 s s 0.0 0.0 0.0 tzan j get outrecfi /ix0 xlo 8 MM add j0 7 MM mul add def /iy0 ylo 1 MM add def j 16 eq {ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 tzan j get 0.0 0.0 0.0 outrecfi} if ix0 iy0 s s tzan j get 0.0 0.0 0.0 outrecfi /ix0 xro 43 MM sub j0 7 MM mul add def /iy0 yro 1 MM add def j 16 eq {ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 0.0 tzan j get 0.0 0.0 outrecfi} if ix0 iy0 s s 0.0 tzan j get 0.0 0.0 outrecfi %j 20 eq {tfn ix0 s add iy0 moveto 0 s rlineto stroke} if } for %j tfn xlu 8 MM sub ylu moveto 16 MM 0 rlineto stroke xlu ylu 8 MM sub moveto 0 58 MM rlineto stroke xro 8 MM add yro moveto -58 MM 0 rlineto stroke xro yro 8 MM add moveto 0 -58 MM rlineto stroke xru 8 MM sub yru moveto 16 MM 0 rlineto stroke xru yru 8 MM sub moveto 0 16 MM rlineto stroke xlo 8 MM add ylo moveto -16 MM 0 rlineto stroke xlo ylo 8 MM add moveto 0 -16 MM rlineto stroke 1 2 7 {/i exch def %Zentrierkreise xlu ylu i MM 0 360 arc stroke xro yro i MM 0 360 arc stroke xru yru i MM 0 360 arc stroke xlo ylo i MM 0 360 arc stroke } for %i tfn %mitte %000 MM 105 MM moveto 08 MM 00 MM rlineto stroke %296 MM 105 MM moveto -8 MM 00 MM rlineto stroke %148 MM 000 MM moveto 00 MM 08 MM rlineto stroke %148 MM 210 MM moveto 00 MM -8 MM rlineto stroke tfn %rows %050 MM 000 MM moveto 00 MM 08 MM rlineto stroke %246 MM 000 MM moveto 00 MM 08 MM rlineto stroke %050 MM 210 MM moveto 00 MM -08 MM rlineto stroke %246 MM 210 MM moveto 00 MM -08 MM rlineto stroke %000 MM 050 MM moveto 08 MM 00 MM rlineto stroke %000 MM 160 MM moveto 08 MM 00 MM rlineto stroke %296 MM 050 MM moveto -08 MM 00 MM rlineto stroke %296 MM 160 MM moveto -08 MM 00 MM rlineto stroke %050 MM 000 MM moveto -08 MM 08 MM rlineto stroke %246 MM 000 MM moveto -08 MM 08 MM rlineto stroke %050 MM 210 MM moveto -08 MM -08 MM rlineto stroke %246 MM 210 MM moveto -08 MM -08 MM rlineto stroke %000 MM 050 MM moveto 08 MM -08 MM rlineto stroke %000 MM 160 MM moveto 08 MM -08 MM rlineto stroke %296 MM 050 MM moveto -08 MM -08 MM rlineto stroke %296 MM 160 MM moveto -08 MM -08 MM rlineto stroke %050 MM 000 MM moveto 08 MM 08 MM rlineto stroke %246 MM 000 MM moveto 08 MM 08 MM rlineto stroke %050 MM 210 MM moveto 08 MM -08 MM rlineto stroke %246 MM 210 MM moveto 08 MM -08 MM rlineto stroke %000 MM 050 MM moveto 08 MM 08 MM rlineto stroke %000 MM 160 MM moveto 08 MM 08 MM rlineto stroke %296 MM 050 MM moveto -08 MM 08 MM rlineto stroke %296 MM 160 MM moveto -08 MM 08 MM rlineto stroke 6 /Times-Roman FS 018 MM 008.2 MM moveto (-8) show 018 MM 006.2 MM moveto (-6) show %018 MM 004.2 MM moveto (-4) show %018 MM 002.2 MM moveto (-2) show 276 MM 008.2 MM moveto (-8) show 276 MM 006.2 MM moveto (-6) show %276 MM 004.2 MM moveto (-4) show %276 MM 002.2 MM moveto (-2) show 018 MM 202.2 MM moveto (-8) show 018 MM 204.2 MM moveto (-6) show %018 MM 206.2 MM moveto (-4) show %018 MM 208.2 MM moveto (-2) show 276 MM 202.2 MM moveto (-8) show 276 MM 204.2 MM moveto (-6) show %276 MM 206.2 MM moveto (-4) show %276 MM 208.2 MM moveto (-2) show tfn 12 /Times-ISOL1 FS 62 MM 12 MM moveto (Pr\374fvorlage Nr. ) showde (Test chart no. ) showen (Test chart no. ) showes (Test chart no. ) showfr (Test chart no. ) showit (Test chart no. ) showjp (Test chart no. ) showm LSX$ show LSY$ show ( fuer Farbmanagement: ) showde ( for Colour Management: ) showen ( for Colour Management: ) showes ( for Colour Management: ) showfr ( for Colour Management: ) showit ( for Colour Management: ) showjp ( for Colour Management: ) showm (Basis-Koordinaten + Quadratwurzel-Transfer) showde (Basic coordinates + square root transfer) showen (Basic coordinates + square root transfer) showes (Basic coordinates + square root transfer) showfr (Basic coordinates + square root transfer) showit (Basic coordinates + square root transfer) showjp (Basic coordinates + square root transfer) showm %12 /TimesI-ISOL1 FS %(: CMYOLVNW*) show 12 /Times-ISOL1 FS 12 MM 186 MM moveto -90 rotate (Technische Informationen: ) showde (Technical information: ) showen (Informaci\363n t\351cnica en: ) showes (Technical information: ) showfr (Technical information: ) showit (Technical information: ) showjp (Technical information: ) showm (http://o2.ps.bam.de) show 90 rotate 12 MM 105 MM moveto -90 rotate (Bilddatei\255Version 1.4, 20010101, D8620) showde (Image file version 1.4, 20010101, D8620) showen (Image file version 1.4, 20010101, D8620) showes (Image file version 1.4, 20010101, D8620) showfr (Image file version 1.4, 20010101, D8620) showit (Image file version 1.4, 20010101, D8620) showjp (Image file version 1.4, 20010101, D8620) showm LSS$ show LSX$ show LSY$ show 90 rotate 281 MM 186 MM moveto -90 rotate (BAM\255Registrierung: 20010101\2558620) showde (BAM registration: 20010101\255D8620) showen (BAM registration: 20010101\255D8620) showes (BAM registration: 20010101\255D8620) showfr (BAM registration: 20010101\255D8620) showit (BAM registration: 20010101\255D8620) showjp (BAM registration: 20010101\255D8620) showm LSS$ show LSX$ show LSY$ show 90 rotate 281 MM 112 MM moveto -90 rotate (BAM\255Referenz\255Material: Code=rha4ra\255D8620) showde (BAM\255Reference material: code=rha4ra\255D8620) showen (BAM\255Reference material: code=rha4ra\255D8620) showes (BAM\255Reference material: code=rha4ra\255D8620) showfr (BAM\255Reference material: code=rha4ra\255D8620) showit (BAM\255Reference material: code=rha4ra\255D8620) showjp (BAM\255Reference material: code=rha4ra\255D8620) showm LSS$ show LSX$ show LSY$ show 90 rotate 61 MM 196 MM moveto (www.ps.bam.de/INFD) show LSS$ show (06/8620/L8620) show LSS$ show %LSX$ show LSY$ show LEX$ show (; Farbmanagement: cmyn* transfer) showde (; Colour Management: cmyn* transfer) showen (; Colour Management: cmyn* transfer) showes (; Colour Management: cmyn* transfer) showfr (; Colour Management: cmyn* transfer) showit (; Colour Management: cmyn* transfer) showjp (; Colour Management: cmyn* transfer) showm showpage grestore } for %output with langind end %%Trailer %%EndDocument EndEPSF grestore gsave showpage grestore %} for %outlanguage with lanindg end %%Trailer