%!PS-Adobe-3.0 EPSF-3.0 OE700-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:2011080112000) /ModDate (D:2011080112000) /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 /TKK {200 /Times-ISOL1 FS} bind def /TK {250 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIKK {200 /TimesI-ISOL1 FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBKK {200 /TimesB-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIK {200 /TimesBI-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} 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 %%EndProlog gsave %LANINDL2.EPS 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 /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 3 def /xcolor2 3 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def /xchartd xchartgd def} {/xchart1 0 def /xchart2 7 def /xchartd 1 def} ifelse /pchartg where {pop /pchart1 pchartg def /pchart2 pchartg def /pchartd pchartgd def} {/pchart1 0 def /pchart2 2 def /pchartd 1 def} ifelse /lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage /colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage /xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage /xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage /pchart pchart1 def %pchart1 1 pchart2 {/pchart 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 /colorml colorm def %0 1 1 {/colorml exch def %colorml=0,1 /xcolorl xcolor def %0 1 3 {/xcolorl exch def %xcolorl=0,3 /xchartl xchart def 0 1 7 {/xchartl exch def %xchartl=0,7 /pchartl pchart def 0 1 2 {/pchartl exch def %xchartl=0,2 gsave xcolorl 0 eq {/tfnx* {0 0 0 1 setcmykcolor} def /tfwx* {0 0 0 0 setcmykcolor} def /colrecfix* {setcmykcolor rec fill} bind def /colrecstx* {setcmykcolor rec stroke} bind def } if xcolorl 1 eq {/tfnx* {0 setgray} def /tfwx* {1 setgray} def /colrecfix* {setgray rec fill} bind def /colrecstx* {setgray rec stroke} bind def } if xcolorl 2 eq {/tfnx* {1 1 1 0 setcmykcolor} def /tfwx* {0 0 0 0 setcmykcolor} def /colrecfix* {setcmykcolor rec fill} bind def /colrecstx* {setcmykcolor rec stroke} bind def } if xcolorl 3 eq {/tfnx* {0 0 0 setrgbcolor} def /tfwx* {1 1 1 setrgbcolor} def /colrecfix* {setrgbcolor rec fill} bind def /colrecstx* {setrgbcolor rec stroke} bind def } if /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 /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 0 def /IMODE 0 def pchartl 1 le {%pchartl=0,1 72 90 translate /ISIN*ioL 0 def /ISOU*ioL 0 def /xs 900 def /ys xs def /d2 xs 2 div def /d8 xs 8 div def 8 /Times-ISOL1 FS 2 -7 moveto (OE700-7A) show (\255) show colorml cvishow xcolorl cvishow xchartd 1 eq {xchartl cvishow} {xchartl xchartd idiv cvishow} ifelse (\255) show pchartl cvishow (: ) show (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 pchartl 0 eq { ( 8mm x 8mm, 247mm x 170mm) show } if pchartl 1 eq {( 8,8mm x 8,8mm, 273mm x 187mm) show} if (, Page ) showen (, Seite ) showde pchartl 1 add cvishow (/3) show pchartl 0 eq {0.010 MM dup scale } {0.011 MM dup scale -1300 -800 translate } ifelse /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 pchartl 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 pchartl 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 (pchart=2) /io*old 0 def /o*old where {/pop /io*old 1 def} if pchartl 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 (pchart=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 pchartl 1 le {r g b setrgbcolor} {1 1 1 setrgbcolor} ifelse l 6 eq pchartl 1 lt and {r setgray} if % l 6 eq pchartl 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 pchartl 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 pchartl 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 pchartl 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 pchartl 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 pchartl 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 pchartl 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 pchartl 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 pchartl 1 eq {%pchartl=1 40 setlinewidth /ytmin ymax xs 17 mul sub def /ytmax ymax xs 01 mul add def 1 0 0 setrgbcolor %pchart=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 %pchartl=1 } if %pchartl<=1 pchartl 2 eq {%pchartl=2 /DecodeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} 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 /cvishow {0.5 add cvi 6 string cvs show} def /cvsshow1 {0.05 add 10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {0.005 add 100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show} def /xchartn xchartl xchartd idiv def /ilx 0 def colorml 0 eq {/ilx 0 def } {%colorml=1 xchartn 2 le {/ilx xchartn def} if xchartn 3 eq {/ilx 4 def} if xchartn 4 eq {/ilx 8 def} if xchartn 5 eq {/ilx 16 def} if xchartn 6 eq {/ilx 32 def} if xchartn 7 eq {/ilx 64 def} if } ifelse /Xnref 0.63 ilx mul 0.9505 mul def /Ynref 0.63 ilx mul def /Znref 0.63 ilx mul 1.0890 mul def /XQ Xnref 95.05 div def /YQ Ynref 100.00 div def /ZQ Znref 108.90 div def XQ 0 lt {/XQ 0.00000001 def} if YQ 0 lt {/YQ 0.00000001 def} if ZQ 0 lt {/ZQ 0.00000001 def} if /L*ref YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse def /a*ref XQ 0.008856 lt {7.787 XQ mul 16 116 div add} {XQ 0.33333333 exp} ifelse YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse sub 500 mul def /b*ref YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add} {ZQ 0.33333333 exp} ifelse sub 200 mul def /L*N L*ref def /L*W 95.41 def /L*i 21 array def %different for xchartl=0,7 /Yi 21 array def %equal distance between L*N and L*W 0 1 20 {/i exch def %steps from black to white i 15 le {/i0 0 def /istep 15 def} {/i0 16 def /istep 4 def} ifelse L*i i L*N L*W L*N sub i i0 sub istep div mul add put /Y* {L*i i get 16 add 116 div} bind def Yi i Y* DecodeXYZ* 100.00 mul put } for 72 90 translate 0.01 MM dup scale 15 setlinewidth colorml 0 eq {/xcolorn 3 def} %here rgb {/xcolorn xcolorl def} ifelse tfnx* TM 0 -220 moveto (OE700-7A, ) show (Bild A7) showde (Picture A7) showen (\255) show colorml cvishow xcolorn cvishow xchartd 1 eq {xchartl cvishow} {xchartl xchartd idiv cvishow} ifelse (\255) show pchartl cvishow (: ) show (16 visuell gleichabst\344ndige ) showde (16 visual equidistant ) showen (16 visual equidistant ) showes (16 visual equidistant ) showfr (16 visual equidistant ) showit (16 visual equidistant ) showjp (16 visual equidistant ) showm TIM (L*) show TM (\255Graustufen) showde (\255grey steps) showen (\255grey steps) showes (\255grey steps) showfr (\255grey steps) showit (\255grey steps) showjp (\255grey steps) showm TM (; PS\255Operator:) showde (; PS operator:) showen (; PS operator:) showes (; PS operator:) showfr (; PS operator:) showit (; PS operator:) showjp (; PS operator:) showm TIM xcolorn 0 eq {( 0 0 0 n* setcmykcolor) show} if xcolorn 1 eq {( w* setgray) show} if xcolorn 2 eq {( n* n* n* 0 setcmykcolor) show} if xcolorn 3 eq {( w* w* w* setrgbcolor) show} if TM /tfzw 0.5 def colorml 1 eq {/xchartNl xchartl 8 idiv def /xchartPl xchartl xchartl 8 idiv 8 mul sub def /gammaNl 1 2.4 xchartNl 0.18 mul sub 2.4 div div def /gammaPl 2.4 xchartPl 0.18 mul sub 2.4 div def /gammal gammaNl gammaPl mul def /tfzw tfzw def %gammal exp def } if /tfzn 1 tfzw sub def xcolorn 0 eq {/tfzx* {0 0 0 tfzn setcmykcolor} def} if xcolorn 1 eq {/tfzx* {tfzw setgray} def} if xcolorn 2 eq {/tfzx* {tfzn dup dup 0 setcmykcolor} def} if xcolorn 3 eq {/tfzx* {tfzw dup dup setrgbcolor} def} if tfzx* 0 0 moveto 24500 0 rlineto 0 4000 rlineto -24500 0 rlineto closepath fill tfnx* 0 0 moveto 24500 0 rlineto 0 4000 rlineto -24500 0 rlineto closepath stroke %%%%%%%%%%% oberer Schriftzug %%%%%%%%%%%%%%%% tfwx* 30 3650 moveto TBIG (L*/Y) show -50 -50 rmoveto TBK (intended) show 50 50 rmoveto 100 3400 moveto TBIK ((absolut)) showde ((absolute)) showen ((absolute)) showes ((absolute)) showfr ((absolute)) showit ((absolute)) showjp ((absolute)) showm 0 1150 moveto TBIG (w*=l*) show -200 -150 rmoveto TBIK (CIELAB, r) show 0 780 moveto TBIK ((relativ)) showde ((relative)) showen ((relative)) showes ((relative)) showfr ((relative)) showit ((relative)) showjp ((relative)) showm 100 1900 moveto TBIG (Nr. und) showde (No. and) showen (No. and) showes (No. and) showfr (No. and) showit (No. and) showjp (No. and) showm 100 1600 moveto TBIG (Hex\255Code) showde (Hex code) showen (Hex code) showes (Hex code) showfr (Hex code) showit (Hex code) showjp (Hex code) showm 100 3000 moveto xcolorn 0 eq {TBIG (0 0 0 n*) show} if xcolorn 1 eq {TBIG (w*) show} if xcolorn 2 eq {TBIG (n* n* n* 0) show} if xcolorn 3 eq {TBIG (w* w* w*) show} if 100 2720 moveto xcolorn 0 eq {TBIG (setcmyk) show} if xcolorn 1 eq {TBIG (setgray) show} if xcolorn 2 eq {TBIG (setcmyk) show} if xcolorn 3 eq {TBIG (setrgb) show} if %gamma output 100 2300 moveto TBIG (g) show colorml 0 eq {%colorml=0 TBM 0 -70 rmoveto (P) show 0 70 rmoveto TBG (=1.00) show} {%colorml=1 TBM 0 -70 rmoveto xchartl 7 le {(P) show}{(N) show} ifelse 0 70 rmoveto TBG (=) show gammal cvsshow2} ifelse 550 400 moveto TBIG (w*) show -10 -50 rmoveto TBK (intended) show 550 80 moveto TBIG (w*) show -10 -50 rmoveto TBK (out) show 1900 600 translate %untere Reihe um +200, +200 verschoben bei dx=1000 von 1400 tfnx* /ntu [(0,000) (0,067) (0,133) (0,200) (0,267) (0,333) (0,400) (0,467) (0,533) (0,600) (0,667) (0,733) (0,800) (0,867) (0,933) (1,000) (0,000) (0,250) (0,500) (0,750) (1,000)] def /nts [ 0.000 0.067 0.133 0.200 0.267 0.333 0.400 0.467 0.533 0.600 0.667 0.733 0.800 0.867 0.933 1.000 0.000 0.250 0.500 0.750 1.000 ] def /n* [(00;F) (01;E) (02;D) (03;C) (04;B) (05;A) (06;9) (07;8) (08;7) (09;6) (10;5) (11;4) (12;3) (13;2) (14;1) (15;0) (00;4) (01;3) (02;2) (03:1) (04;0)] def TBM tfwx* /iy0 0 def /i0 0 def /i1 15 def i0 1 i1 {/i exch def %i=i0,i1 /ix0 i i0 sub 1400 mul def ix0 200 add iy0 250 sub moveto ntu i get show ix0 200 add iy0 520 sub moveto nts i get colorml 1 eq {gammal exp} if cvsshow3 } for %i=i0,i1 /iy0 3050 def i0 1 i1 {/i exch def %i=i0,i1 /ix0 300 i i0 sub 1400 mul add def ix0 400 sub iy0 moveto L*i i get cvsshow1 (/) show Yi i get cvsshow1 } for %i=i0,i1 TBG tfnx* /iy0 0 def i0 1 i1 {/i exch def %i=i0,i1 /ix0 400 i i0 sub 1400 mul add def ix0 300 sub iy0 1150 add moveto n* i get show } for %i=i0,i1 TBG tfnx* /s 1000 def /j0 0 def /j1 15 def j0 1 j1 {/j exch def %j=j0,j1 /ix0 j 1400 mul def ix0 iy0 s s /tfwj nts j get def %colorml 1 eq {gammal exp} if def /tfnj 1 tfwj sub def xcolorn 0 eq {0 0 0 tfnj setcmykcolor rec fill} if xcolorn 1 eq {tfwj setgray rec fill} if xcolorn 2 eq {tfnj dup dup 0 setcmykcolor rec fill} if xcolorn 3 eq {tfwj dup dup setrgbcolor rec fill} if j 7 eq j 8 eq or {%white arround mean grey ix0 iy0 s s xcolorn 0 eq {0 0 0 0 setcmykcolor rec stroke} if xcolorn 1 eq {1 setgray rec stroke} if xcolorn 2 eq {0 0 0 0 setcmykcolor rec stroke} if xcolorn 3 eq {1 1 1 setrgbcolor rec stroke} if } if %white arround mean grey } for %j=j0,j1 /s 1400 def /iy0 1500 def j0 1 j1 {/j exch def %j=j0,j1 /ix0 j 1400 mul 200 sub def ix0 iy0 s s /tfwj nts j get def %colorml 1 eq {gammal exp} if def /tfnj 1 tfwj sub def xcolorn 0 eq {0 0 0 tfnj setcmykcolor rec fill} if xcolorn 1 eq {tfwj setgray rec fill} if xcolorn 2 eq {tfnj dup dup 0 setcmykcolor rec fill} if xcolorn 3 eq {tfwj dup dup setrgbcolor rec fill} if } for %j=j0,j1 -1900 -600 translate } if %pchartl=2 showpage grestore } for %pchartl=0,2 } for %xchartl=0,7 %} for %xcolorl=0,3 %} for %colorml=0,1 %%Trailer