%!PS-Adobe-3.0 EPSF-3.0 IE410-7A %%BoundingBox: 70 82 850 630 %START PDFDE011.EPS /pdfmark07 where {pop} {userdict /pdfmark07 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: Image Technology) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.445/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2009090112000) /ModDate (D:2009090112000) /DOCINFO pdfmark07 [ /View [ /FitB ] /DOCVIEW pdfmark07 %END PDFDE011 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /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 %%EndProlog gsave /lanind 0 def /lantex [(G) (E) (S) (N) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /colormg where {pop /colorm1 colormg def /colorm2 colormg def} {/colorm1 0 def /colorm2 0 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage /colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage /xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage /xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage /GSS$ where {pop /LSS$ GSS$ def} {/LSS$ (1) def} ifelse /GSC$ where {pop /LSC$ GSC$ def} {/LSC$ (N) def} ifelse /GSX$ where {pop /LSX$ GSX$ def} {/LSX$ (0) def} ifelse /GSY$ where {pop /LSY$ GSY$ def} {/LSY$ (0) def} ifelse /GEX$ where {pop /LEX$ GEX$ def} {/LEX$ (P.PS./PDF) def} ifelse /GEY$ where {pop /LEY$ GEY$ def} {/LEY$ (P.DAT) def} ifelse /IMES where {pop %/IMES IMES def } {/IMES 0 def} ifelse /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 7 string cvs show} def /nr1 [(01) (02) (03) (04) (05) (06) (07) (08) (09) (10) (11) (12) (13) (14) (15) (16) (17) (18) (19) (20)] def /tx1 [(A) (B) (C) (D) (E) (F) (G) (H) (I) (J) (K) (L) (M) (N) (O) (P) (Q) (R) (S) (T) (U) (V) (W) (X) (Y) (Z) (a)] def /xchartg where {pop /xchart xchartg def} {/xchart 0 def} ifelse /colormg where {pop /colorm colormg def} {/colorm 0 def} ifelse /ISIN*ioG where {pop /ISIN*ioL ISIN*ioG def} {/ISIN*ioL 0 def} ifelse /ISOU*ioG where {pop /ISOU*ioL ISOU*ioG def} {/ISOU*ioL 0 def} ifelse /ISRL*ioL 1 def /IMODE 0 def 72 90 translate 00 1 02 {/xchart exch def %xchart=0,02 /ISIN*ioL 0 def % 0 1 7 {/ISIN*ioL exch def %BEG ISIN*ioL=0,7 /ISOU*ioL 0 def % 0 1 7 {/ISOU*ioL exch def %BEG ISOU*ioL=0,7 gsave /xs 900 def /ys xs def /d2 xs 2 div def /d8 xs 8 div def 8 /Times-ISOL1 FS xchart 0 eq {2} {20} ifelse -7 moveto (IE410-7) show colorm 0 eq {(A, ) show} {(F, ) show} ifelse (Test chart with 24x17=408 colours) showen (Pr\374fvorlage mit 24x17=408 Farben)showde ( and digital equidistant 17 step colour scales;) showen (; digital gleichabst\344ndige 17\255stufige Farbreihen;) showde ( compare ISO/IEC 15775:1999;) showen ( vergleiche ISO/IEC 15775:1999;) showde ( rgb\255Farbdaten, Mustergr\366\337e und graues Layout:) showde ( rgb colour data, patch size and grey layout:) showen xchart 0 eq {( 8mm x 8mm, 247mm x 170mm) show} if xchart 1 ge {( 8,8mm x 8,8mm, 273mm x 187mm) show} if (, Page ) showen (, Seite ) showde xchart 1 add cvishow (/3) show xchart 0 eq {0.010 MM dup scale} if xchart 1 ge {0.011 MM dup scale} if /ymax 15500 def /xmin 650 def /xd 800 def /yd 800 def /xsd xs xd sub 0.5 mul def /ysd xs xd sub 0.5 mul def 0.5 dup dup setrgbcolor 0 0 moveto 25000 0 rlineto 0 17000 rlineto 25000 neg 0 rlineto closepath fill 20 setlinewidth 500 /Times-ISOL1 FS 0 0 0 setrgbcolor 1 1 17 {/i exch def %i=1,17 /x xs 0.1 mul def /y 18.0 ys mul ys i mul sub def x y moveto nr1 i 1 sub get show } for %i=1,17 1 1 27 {/i exch def %i=1,27 /x xs i mul 000 add def /y 18.35 ys mul def x y moveto tx1 i 1 sub get show } for %i=1,27 /TKK2 {200 /Times-ISOL1 FS} bind def TKK2 %7xwrgb 17steps /lmax 6 def /n 0 def 0 1 lmax {/l exch def %beg l=0,lmax /xadd 0 def /yadd xs 0.5 mul def 0 1 16 {/j exch def %j=0,16 /n n 1 add def /j1 j def /j1$ tx1 l get def /i1 j 1 add def /argb j 16 div def l 0 eq {/r 1 def /g argb def /b argb def} if l 1 eq {/r 1 def /g 1 def /b argb def} if l 2 eq {/r argb def /g 1 def /b argb def} if l 3 eq {/r argb def /g 1 def /b 1 def } if l 4 eq {/r argb def /g argb def /b 1 def } if l 5 eq {/r 1 def /g argb def /b 1 def } if l 6 eq {/r argb def /g argb def /b argb def} if /xa xmin xs l mul add xadd add xsd add def /ya ymax xs j mul sub yadd sub ysd add def xchart 1 le {r g b setrgbcolor} {1 1 1 setrgbcolor} ifelse xa ya xd dup rec fill j 0 eq {r g b setrgbcolor xa ya xs 1.0 mul add xd xd 0.5 mul rec fill} if j 16 eq {r g b setrgbcolor xa ya xs sub xd 0.5 mul add xd xd 0.5 mul rec fill} if xchart 2 eq {0 0 0 setrgbcolor xa 20 add ya 625 add moveto n 9 le {(00) show} if n 10 ge n 99 le and {(0) show} if n cvishow ( ) show j1$ show i1 9 le {(0) show} if i1 cvishow xa 20 add ya 425 add moveto r cvsshow3 xa 20 add ya 225 add moveto g cvsshow3 xa 20 add ya 025 add moveto b cvsshow3 } if %BEG only for test output with transfer olv*oldnew (xchart=2) /io*old 0 def /o*old where {/pop /io*old 1 def} if xchart 3 eq io*old 1 eq and { /o*old1 r def /l*old1 g def /v*old1 b def r g b setrgbcolor /o*new1 o*new def /l*new1 l*new def /v*new1 v*new def 0 0 0 setrgbcolor xa 20 add ya 625 add moveto n 9 le {(00) show} if n 10 ge n 99 le and {(0) show} if n cvishow ( ) show j1$ show i1 9 le {(0) show} if i1 cvishow xa 20 add ya 425 add moveto o*new1 cvsshow3 xa 20 add ya 225 add moveto l*new1 cvsshow3 xa 20 add ya 025 add moveto v*new1 cvsshow3 } if %END only for test output with transfer olv*oldnew (xchart=2) } for %j=0,16 } for %end l=0,lmax %7xnrgb 16steps /lmax 6 def 0 1 lmax {/l exch def %beg l=0,lmax /xadd 7 xs mul def /yadd xs 0.5 mul def 0 1 16 {/j exch def %j=0,16 /n n 1 add def /j1 j def /j1$ tx1 l 7 add get def /i1 j 1 add def /argb j 16 div def l 0 eq {/r argb def /g 0 def /b 0 def } if l 1 eq {/r argb def /g argb def /b 0 def } if l 2 eq {/r 0 def /g argb def /b 0 def } if l 3 eq {/r 0 def /g argb def /b argb def} if l 4 eq {/r 0 def /g 0 def /b argb def} if l 5 eq {/r argb def /g 0 def /b argb def} if l 6 eq {/r argb def /g argb def /b argb def} if %r for setgray /xa xmin xs l mul add xadd add xsd add def /ya ymax xs j mul sub yadd sub ysd add def xchart 1 le {r g b setrgbcolor} {1 1 1 setrgbcolor} ifelse l 6 eq xchart 1 lt and {r setgray} if % l 6 eq xchart 1 gt and {1 setgray} if xa ya xd dup rec fill j 0 eq {r g b setrgbcolor xa ya xs 1.0 mul add xd xd 0.5 mul rec fill} if j 16 eq {r g b setrgbcolor xa ya xs sub xd 0.5 mul add xd xd 0.5 mul rec fill} if xchart 2 ge {0 0 0 setrgbcolor xa 20 add ya 625 add moveto n 9 le {(00) show} if n 10 ge n 99 le and {(0) show} if n cvishow ( ) show j1$ show i1 9 le {(0) show} if i1 cvishow l 5 le {xa 20 add ya 425 add moveto r cvsshow3 xa 20 add ya 225 add moveto g cvsshow3 xa 20 add ya 025 add moveto b cvsshow3 } if l 6 eq {xa 20 add ya 425 add moveto (w*=) show r cvsshow3 xa 20 add ya 225 add moveto (w*) show xa 20 add ya 025 add moveto (setgray) show } if } if } for %j=0,16 } for %end l=0,lmax %3xnrgb 17 steps O-C, Y-V, L-M /lmax 2 def 0 1 lmax {/l exch def %beg l=0,lmax /xadd 14 xs mul def /yadd xs 0.5 mul def 0 1 16 {/j exch def %j=0,16 /n n 1 add def /j1 j def /j1$ tx1 l 14 add get def /i1 j 1 add def /alpha j 16 div def l 0 eq {/r 1 1 alpha sub mul def /g alpha def /b alpha def } if l 1 eq {/r 1 1 alpha sub mul def /g 1 1 alpha sub mul def /b alpha def } if l 2 eq {/r alpha def /g 1 1 alpha sub mul def /b alpha def } if /xa xmin xs l mul add xadd add xsd add def /ya ymax xs j mul sub yadd sub ysd add def xchart 1 le {r g b setrgbcolor} {1 1 1 setrgbcolor} ifelse xa ya xd dup rec fill j 0 eq {r g b setrgbcolor xa ya xs 1.0 mul add xd xd 0.5 mul rec fill} if j 16 eq {r g b setrgbcolor xa ya xs sub xd 0.5 mul add xd xd 0.5 mul rec fill} if xchart 2 ge {0 0 0 setrgbcolor xa 20 add ya 625 add moveto n 9 le {(00) show} if n 10 ge n 99 le and {(0) show} if n cvishow ( ) show j1$ show i1 9 le {(0) show} if i1 cvishow xa 20 add ya 425 add moveto r cvsshow3 xa 20 add ya 225 add moveto g cvsshow3 xa 20 add ya 025 add moveto b cvsshow3} if } for %j=0,16 } for %end l=0,lmax %16 step symmetric hue circle with 17 colours /rgbhue [ 1.00 0.00 0.00 1.00 0.25 0.00 1.00 0.50 0.00 1.00 0.75 0.00 1.00 1.00 0.00 0.75 1.00 0.00 0.50 1.00 0.00 0.25 1.00 0.00 0.00 1.00 0.00 0.00 1.00 0.50 0.00 1.00 1.00 0.00 0.50 1.00 0.00 0.00 1.00 0.50 0.00 1.00 1.00 0.00 1.00 1.00 0.00 0.50 1.00 0.00 0.00] def %3xnrgb 17 step hue circle /lmax 2 def 0 1 lmax {/l exch def %beg l=0,lmax /xadd 17 xs mul def /yadd xs 0.5 mul def 0 1 16 {/j exch def %j=0,16 /n n 1 add def /j1 j def /j1$ tx1 l 17 add get def /i1 j 1 add def /argb j 16 div def /j30 j 3 mul def /j31 j30 1 add def /j32 j30 2 add def /r1 rgbhue j30 get def /g1 rgbhue j31 get def /b1 rgbhue j32 get def l 0 eq {/r r1 def /g g1 def /b b1 def} if l 1 eq {/r r1 0.5 mul def /g g1 0.5 mul def /b b1 0.5 mul def } if l 2 eq {/r r1 1 r1 sub 0.5 mul add def /g g1 1 g1 sub 0.5 mul add def /b b1 1 b1 sub 0.5 mul add def } if /xa xmin xs l mul add xadd add xsd add def /ya ymax xs j mul sub yadd sub ysd add def xchart 1 le {r g b setrgbcolor} {1 1 1 setrgbcolor} ifelse xa ya xd dup rec fill j 0 eq {r g b setrgbcolor xa ya xs 1.0 mul add xd xd 0.5 mul rec fill} if j 16 eq {r g b setrgbcolor xa ya xs sub xd 0.5 mul add xd xd 0.5 mul rec fill} if xchart 2 ge {0 0 0 setrgbcolor xa 20 add ya 625 add moveto n 9 le {(00) show} if n 10 ge n 99 le and {(0) show} if n cvishow ( ) show j1$ show i1 9 le {(0) show} if i1 cvishow xa 20 add ya 425 add moveto r cvsshow3 xa 20 add ya 225 add moveto g cvsshow3 xa 20 add ya 025 add moveto b cvsshow3} if } for %j=0,16 } for %end l=0,lmax %7xgrey series 17steps /lmax 3 def 0 1 lmax {/l exch def %beg l=0,lmax /xadd 20 xs mul def /yadd xs 0.5 mul def 0 1 16 {/j exch def %j=0,16 /n n 1 add def /j1 j def /j1$ tx1 l 20 add get def /i1 j 1 add def /argb j 16 div def /w*r argb def /w*g argb def /w*b argb def /xa xmin xs l mul add xadd add xsd add def /ya ymax xs j mul sub yadd sub ysd add def xchart 1 le {l 0 eq {0 0 0 1 w*r sub setcmykcolor} if l 1 eq {w*r setgray} if l 2 eq {1 w*r sub 1 w*g sub 1 w*b sub 0 setcmykcolor} if l 3 eq {w*r w*g w*b setrgbcolor} if } {0 0 0 0 setcmykcolor} ifelse xa ya xd dup rec fill j 0 eq {l 0 eq {0 0 0 1 setcmykcolor} if l 1 eq {0 setgray} if l 2 eq {1 1 1 0 setcmykcolor} if l 3 eq {0 0 0 setrgbcolor} if xa ya xs 1.0 mul add xd xd 0.5 mul rec fill} if j 16 eq {l 0 eq {0 0 0 0 setcmykcolor} if l 1 eq {1 setgray} if l 2 eq {0 0 0 0 setcmykcolor} if l 3 eq {1 1 1 setrgbcolor} if xa ya xs sub xd 0.5 mul add xd xd 0.5 mul rec fill} if xchart 2 ge {1 1 1 0 setcmykcolor xa 20 add ya 625 add moveto n 9 le {(00) show} if n 10 ge n 99 le and {(0) show} if n cvishow ( ) show j1$ show i1 9 le {(0) show} if i1 cvishow l 0 eq {xa 20 add ya 425 add moveto (n*=) show 1 w*r sub cvsshow3 xa 20 add ya 225 add moveto (000n*) show xa 20 add ya 025 add moveto (setcmyk) show } if l 1 eq {xa 20 add ya 425 add moveto (w*=) show w*r cvsshow3 xa 20 add ya 225 add moveto (w*) show xa 20 add ya 025 add moveto (setgray) show } if l 2 eq {xa 20 add ya 425 add moveto (n*=) show 1 w*r sub cvsshow3 xa 20 add ya 225 add moveto (nnn0*) show xa 20 add ya 025 add moveto (setcmyk) show } if l 3 eq {xa 20 add ya 425 add moveto (w*=) show w*r cvsshow3 xa 20 add ya 225 add moveto (www*) show xa 20 add ya 025 add moveto (setrgb) show } if } if } for %j=0,16 } for %end l=0,lmax xchart 1 ge {%xchart>=1 40 setlinewidth /ytmin ymax xs 17 mul sub def /ytmax ymax xs 01 mul add def 1 0 0 setrgbcolor %xchart=2 xmin xs 07 mul add ytmin 100 sub moveto xmin xs 07 mul add ytmax 100 add lineto stroke xmin xs 14 mul add ytmin 100 sub moveto xmin xs 14 mul add ytmax 100 add lineto stroke xmin xs 17 mul add ytmin 100 sub moveto xmin xs 17 mul add ytmax 100 add lineto stroke xmin xs 20 mul add ytmin 100 sub moveto xmin xs 20 mul add ytmax 100 add lineto stroke } if %xchart>=1 showpage grestore } for %xchart=0,2 %%Trailer