%!PS-Adobe-3.0 EPSF-3.0 fgl40-7A %%BoundingBox: 70 82 780 575 %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://farbe.li.tu-berlin.de or http://color.li.tu-berlin.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2011030112000) /ModDate (D:2011030112000) /DOCINFO pdfmark07 [ /View [ /FitB ] /DOCVIEW pdfmark07 %END PDFDE011 /halfg where {pop /half halfg def} {/half 0 def} ifelse /VisTol*ioL 1.00 def %Early Binding: needed for colour separation /setcmykcolorL {setcmykcolor} bind def /setgrayL {setgray} bind def /setrgbcolorL {setrgbcolor} bind def %/setcmykcolorG where {pop /setcmykcolorL setcmykcolorG def} if %/setgrayG where {pop /setgrayL setgrayG def} if %/setrgbcolorG where {pop /setrgbcolorL setcmykcolorG def} if /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 /Courier-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierB-ISOL1 exch definefont pop /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 /CBKK {200 /CourierB-ISOL1 FS} bind def /CBK {250 /CourierB-ISOL1 FS} bind def /CBM {300 /CourierB-ISOL1 FS} bind def /CBG {350 /CourierB-ISOL1 FS} bind def /CBKKK {160 /CourierB-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 /rem %x0, y0 width heigth {/heigth exch def /width exch def /y0 exch def /x0 exch def x0 width 0.5 mul add y0 heigth 0.5 mul add moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def %%EndProlog /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 /showea {6 lanind eq {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 0 def /lanind2 0 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 0 def /xchartd 1 def} ifelse /pchartg where {pop /pchart1 pchartg def /pchart2 pchartg def /pchartd pchartgd def} {/pchart1 1 def /pchart2 1 def /pchartd 1 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} if /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} if /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartgd xchartdf def /xchartd xchartdf def} if /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartgd pchartdf def /pchartd pchartdf def} if /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 %pchartl=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 pchartl 1 eq {%pchartl=1 /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 /cvishow255 {dup 99 le {(0) show} if dup 9 le {(0) show} if cvishow ( ) show} def /n1079show {n1079 9 le {(000) show} if n1079 10 ge n1079 99 le and {(00) show} if n1079 100 ge n1079 999 le and {(0) show} if n1079 cvishow } def /nr1 27 array def /tx1 52 array def /nr1 [(01) (02) (03) (04) (05) (06) (07) (08) (09) (10) (11) (12) (13) (14) (15) (16) (17) (18) (19) (20) (21) (22) (23) (24) (25) (26) (27)] 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) (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)] def 72 90 translate /xs 900 3 div 2 mul def /ys xs def /d2 xs 2 div def /d8 xs 8 div def 7 /Times-ISOL1 FS 0 0 0 setrgbcolor 2 -6 moveto (fgl40-70, ) show (Page ) showen (Seite ) showde xchart 2 mul pchart 1 add cvishow (/16, ) show (Test chart G with 40x27=1080 colours) showen (Pr\374fvorlage G mit 40x27=1080 Farben) showde (; digital equidistant 9 or 16 step colour scales;) showen (; digital gleichabst\344ndige 9 oder 16stufige Farbreihen;) showde ( Farbdaten in Spalte (A-n):) showde ( Colour data in column (A-n):) showen 7 /Times-ISOL1 FS colorm 0 eq {%colorm=0 pchart 0 eq {( rgb + cmy0 (A_j + k26_n27)) show (, 000n (k), w (l), nnn0 (m), www (n)) show} if pchart 1 eq {( rgb (A_j + k26_n27)) show (, 000n (k), w (l), nnn0 (m), www (n)) show} if }%colorm=0 {%colorm=1 pchart 0 eq {( rgb'* (A_n)) show} if pchart 1 eq {( rgb'* (A_j + k26_n27)) show (, 000n'* (k), w'* (l), nnn0'* (m), www'* (n)) show} if }ifelse %colorm=1 7 /Times-ISOL1 FS (, colorm = ) show colorm cvishow (, xchart = ) show xchart cvishow (, pchart = ) show pchart cvishow %/xchartg where {pop /faktg xchartg 1 ge {1.10} {1.00} ifelse def} % {/faktg 1.10 def} ifelse 0.01 MM dup scale /xmin 650 3 div 2.2 mul def /ymax 15800 def pchart 0 eq {/xd 800 3 div 2 mul def /yd 800 3 div 2 mul def} {/xd 900 3 div 2 mul def /yd 900 3 div 2 mul def} ifelse /xsd xs xd sub 0.5 mul def /ysd xs xd sub 0.5 mul def /o'*Fa 0.5 def /l'*Fa 0.5 def /v'*Fa 0.5 def /c*x 1 o'*Fa sub def /m*x 1 l'*Fa sub def /y*x 1 v'*Fa sub def /n*x 0 def o'*Fa l'*Fa v'*Fa setrgbcolor 0 0 moveto 24900 0 rlineto 0 17000 rlineto 24900 neg 0 rlineto closepath fill 20 setlinewidth 500 3 div 2 mul /Times-ISOL1 FS 0 0 0 setrgbcolor 1 1 27 {/i exch def %i=1,27 /x xs 0.15 mul def /y 27.6 ys mul ys i mul sub def x y moveto nr1 i 1 sub get show } for %i=1,27 1 1 40 {/i exch def %i=1,36 /x xs i mul 000 add def /y 27.5 ys mul def x y moveto tx1 i 1 sub get show } for %i=1,36 /IMODE 0 def %input rgb for output LAB* %row no.1 and 2: 9xrgb /imax 08 def /jmax 08 def /kmax 08 def /TKK2 {200 3 div 2 mul /Times-ISOL1 FS} bind def TKK2 0 1 kmax {/k exch def %beg k=0,08 /k0 k 3 idiv def /k1 k k0 3 mul sub def /xadd k1 xs 9 mul mul def /yadd k0 xs 9 mul mul def 0 1 jmax {/j exch def %beg j=0,jmax 0 1 imax {/i exch def %beg i=0,imax /n1079 i j 9 mul add k 81 mul add def /j1 j k1 9 mul add def /j1$ tx1 j1 get def /i1 i 1 add k0 9 mul add def /xa xmin j xs mul add xadd add xsd add def /ya ymax i ys mul sub yadd sub ysd add def /r k kmax div def /g j jmax div def /b i imax div def colorm 0 eq {%colorm=0,1 /o'*Faa r def %for standard output /l'*Faa g def /v'*Faa b def } {r g b setrgbcolor %special default instead of 000n, w, cmyn, rgb /o'*Faa r FF_LM_xchart_gammaF def %r*eF def /l'*Faa g FF_LM_xchart_gammaF def %g*eF def /v'*Faa b FF_LM_xchart_gammaF def %b*eF def } ifelse %colorm=0,1 pchart 1 eq {%pchart=1 or #1 1 1 1 setrgbcolor xa ya xd dup rec fill } %pchart=1 {%pchart=0 o'*Faa l'*Faa v'*Faa setrgbcolor xa ya xd dup rec fill 1 o'*Faa sub 1 l'*Faa sub 1 v'*Faa sub 0 setcmykcolor xa xd 0.25 mul add ya xd 0.25 mul add xd 0.5 mul dup rec fill } ifelse %pchart=0 pchart 1 eq {0 0 0 setrgbcolor xa ya 460 add moveto n1079show ( ) show j1$ show i1 9 le {(0) show} if i1 cvishow xa ya 320 add moveto o'*Faa cvsshow3 xa ya 180 add moveto l'*Faa cvsshow3 xa ya 040 add moveto v'*Faa cvsshow3 } if } for %end i=0,jmax } for %end j=0,jmax } for %end k=0,kmax %3x rgbcmy /id 1 8 div def /rijn 81 array def %for intermediate storage /gijn 81 array def /bijn 81 array def /lmax 1 def /n1079 728 def 0 1 lmax {/l exch def %beg k=0,kmax /xadd 3 xs 9 mul mul def /yadd l 1 add ys 9 mul mul def %for intermediate storage of l=0,lmax 0 1 01 {/jchart exch def %jchart=0,1 /xchartj l jchart 3 mul add def 0 1 08 {/j exch def %j=0,7 /im 8 j sub def jchart 1 im {/i exch def %i=0,8 /ia 1 id j mul sub def /argb ia def /brgb ia i id mul sub def xchartj 0 eq {/r argb def /g brgb def /b brgb def} if xchartj 1 eq {/r argb def /g argb def /b brgb def} if xchartj 2 eq {/r brgb def /g argb def /b brgb def} if xchartj 3 eq {/r brgb def /g argb def /b brgb def} if %L instead of C xchartj 4 eq {/r brgb def /g brgb def /b argb def} if xchartj 5 eq {/r argb def /g brgb def /b argb def} if jchart 0 eq {/in i j add def /jn j def} {/in j def /jn i j add def} ifelse rijn in 9 mul jn add r put gijn in 9 mul jn add g put bijn in 9 mul jn add b put } for %i=0,7 } for %j=0,8 } for %jchart=0,1 %for output of l=0,lmax 0 1 08 {/j exch def %j=0,8 0 1 08 {/i exch def %i=0,8 /n1079 n1079 1 add def /r rijn i j 9 mul add get def /g gijn i j 9 mul add get def /b bijn i j 9 mul add get def /xa xmin xs j mul add xadd add xsd add def /ya ymax xs i mul sub yadd sub ysd add def colorm 0 eq {%colorm=0,1 /o'*Faa r def %for standard output /l'*Faa g def /v'*Faa b def } {r g b setrgbcolor %special default instead of 000n, w, cmyn, rgb /o'*Faa r FF_LM_xchart_gammaF def %r*eF def /l'*Faa g FF_LM_xchart_gammaF def %g*eF def /v'*Faa b FF_LM_xchart_gammaF def %b*eF def } ifelse %colorm=0,1 pchart 1 eq {%pchart=1 or #1 1 1 1 setrgbcolor xa ya xd dup rec fill }%pchart=1 {%pchart=0 o'*Faa l'*Faa v'*Faa setrgbcolor xa ya xd dup rec fill 1 o'*Faa sub 1 l'*Faa sub 1 v'*Faa sub 0 setcmykcolor xa xd 0.25 mul add ya xd 0.25 mul add xd 0.5 mul dup rec fill } ifelse %pchart=0 pchart 1 eq {0 0 0 setrgbcolor xa ya 460 add moveto n1079show ( ) show j1$ show i1 9 le {(0) show} if i1 cvishow xa ya 320 add moveto o'*Faa cvsshow3 xa ya 180 add moveto l'*Faa cvsshow3 xa ya 040 add moveto v'*Faa cvsshow3 } if } for %i=0,7 } for %j=0,8 } for %end l=0,lmax %6wrgbcmy /n1079 971 def /lmax 03 def %4 rows with geys /kmax 1 def %9 or 16 steps 1 1 kmax {/k exch def % k 0 eq {/jmax 08 def} {/jmax 15 def} ifelse 0 1 lmax {/l exch def %beg l=0,lmax /xadd 36 l add xs mul def /yadd k 9 xs mul mul def /j1 l 36 add def /j1$ tx1 j1 get def 0 1 jmax {/j exch def %j=0,08 /n1079 n1079 1 add def /i1 j k 9 mul add 1 add def %9 steps, 16 steps /argb j jmax div def /xa xmin xadd add xsd add def /ya ymax xs j mul sub yadd sub ysd add def /r argb def /g argb def /b argb def colorm 0 eq {%colorm=0,1 /o'*Faa r def %for standard output /l'*Faa g def /v'*Faa b def } {r g b setrgbcolor %special default instead of 000n, w, cmyn, rgb /o'*Faa r FF_LM_xchart_gammaF def %r*eF def /l'*Faa g FF_LM_xchart_gammaF def %g*eF def /v'*Faa b FF_LM_xchart_gammaF def %b*eF def } ifelse %colorm=0,1 pchart 1 eq {%pchart=1 or #1 1 1 1 setrgbcolor xa ya xd dup rec fill } %pchart=1 {%pchart=0 o'*Faa l'*Faa v'*Faa setrgbcolor xa ya xd dup rec fill l 0 eq {0 0 0 1 argb sub setcmykcolor} if l 1 eq {argb setgray} if l 2 eq {1 argb sub dup dup 0 setcmykcolor} if l 3 eq {argb dup dup setrgbcolor} if xa ya xd dup rec fill } ifelse %pchart=0 pchart 1 eq {%pchart =1 0 0 0 setrgbcolor xa ya 460 add moveto n1079show ( ) show j1$ show i1 9 le {(0) show} if i1 cvishow colorm 0 eq {%colorm=0,1 xa ya 320 add moveto l 0 eq l 2 eq or {(n*=) show 1 argb sub cvsshow3} if l 1 eq l 3 eq or {(w*=) show argb cvsshow3} if xa ya 180 add moveto l 0 eq {(000n*) show} if l 1 eq {(w*) show} if l 2 eq {(nnn0*) show} if l 3 eq {(www*) show} if xa ya 040 add moveto l 0 eq {(setcmyk) show} if l 1 eq {(setgray) show} if l 2 eq {(setcmyk) show} if l 3 eq {(setrgb) show} if }%colorm=0 {%colorm=1 xa ya 320 add moveto o'*Faa cvsshow3 xa ya 180 add moveto l'*Faa cvsshow3 xa ya 040 add moveto v'*Faa cvsshow3 } ifelse %colorm=0,1 } if %pchart =1 } for %j=0,jmax } for %l=0,lmax } for %k=0,kmax %basic colours 1072 - 1080 /basrgb 24 array def /basrgb [0 0 0 1 1 1 1 0 0 0 1 1 1 1 0 0 0 1 0 1 0 1 0 1 ] def /n1079 1071 def 0 1 07 {/i exch def %i=0,7 /n1079 n1079 1 add def /i3 i 3 mul def /xadd 36 xs mul def /yadd 25 xs mul def i 0 eq {/l 0 def /j 0 def /j1$ (k) def /i1 26 def} if i 1 eq {/l 0 def /j 1 def /j1$ (k) def /i1 27 def} if i 2 eq {/l 1 def /j 0 def /j1$ (l) def /i1 26 def} if i 3 eq {/l 1 def /j 1 def /j1$ (l) def /i1 27 def} if i 4 eq {/l 2 def /j 0 def /j1$ (m) def /i1 26 def} if i 5 eq {/l 2 def /j 1 def /j1$ (m) def /i1 27 def} if i 6 eq {/l 3 def /j 0 def /j1$ (n) def /i1 26 def} if i 7 eq {/l 3 def /j 1 def /j1$ (n) def /i1 27 def} if /xa xmin xs l mul add xadd add xsd add def /ya ymax xs j mul sub yadd sub ysd add def /r basrgb i3 get def /g basrgb i3 1 add get def /b basrgb i3 2 add get def colorm 0 eq {%colorm=0,1 /o'*Faa r def %for standard output /l'*Faa g def /v'*Faa b def } {r g b setrgbcolor %special default instead of 000n, w, cmyn, rgb /o'*Faa r FF_LM_xchart_gammaF def %r*eF def /l'*Faa g FF_LM_xchart_gammaF def %g*eF def /v'*Faa b FF_LM_xchart_gammaF def %b*eF def } ifelse %colorm=0,1 pchart 1 eq {%pchart=1 or #1 1 1 1 setrgbcolor xa ya xd dup rec fill } %pchart=1 {%pchart=0 o'*Faa l'*Faa v'*Faa setrgbcolor xa ya xd dup rec fill 1 o'*Faa sub 1 l'*Faa sub 1 v'*Faa sub 0 setcmykcolor xa xd 0.25 mul add ya xd 0.25 mul add xd 0.5 mul dup rec fill } ifelse %pchart=0 pchart 1 eq {0 0 0 setrgbcolor xa ya 460 add moveto n1079show ( ) show j1$ show i1 9 le {(0) show} if i1 cvishow xa ya 320 add moveto o'*Faa cvsshow3 xa ya 180 add moveto l'*Faa cvsshow3 xa ya 040 add moveto v'*Faa cvsshow3 } if } for %i=0,7 pchart 1 eq {%pchart=1 40 setlinewidth xmin 30 sub xsd add 09 xs mul add ysd moveto 0 17000 ysd sub rlineto stroke xmin 30 sub xsd add 18 xs mul add ysd moveto 0 17000 rlineto stroke xmin 30 sub xsd add 27 xs mul add ysd moveto 0 17000 rlineto stroke xmin 30 sub xsd add 36 xs mul add ysd moveto 0 17000 rlineto stroke 0 16370 09 ys mul sub moveto 24500 00 ys mul sub 0 rlineto stroke 0 16370 18 ys mul sub moveto 24500 04 ys mul sub 0 rlineto stroke xmin 30 sub xsd add 36 xs mul add 16370 25 ys mul sub moveto 04 ys mul 0 rlineto stroke }if %pchart=1 } if %pchartl=1 showpage grestore } for %pchartl=0,2 %} for %xchartl=0,7 %} for %xcolorl=0,3 %} for %colorml=0,1 %%Trailer