%!PS-Adobe-3.0 EPSF-3.0 DEA20-7N %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark07 where {pop} {userdict /pdfmark07 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: farbe.li.tu-berlin.de/DEA2/DEA2.HTM) /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:2021090112000) /ModDate (D:20210901112000) /DOCINFO pdfmark07 [ /View [ /Fit ] /DOCVIEW pdfmark07 %END PDFDE011 /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 % End for EPS file count op_count sub {pop} repeat countdictstack dict_count sub {end} repeat % Clean up dict stack b4_Inc_state restore } 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 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /TV {150 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIV {150 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {300 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBV {150 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIV {150 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /RV {150 /Times-Roman FS} bind def /RS {200 /Times-Roman FS} bind def /RK {250 /Times-Roman FS} bind def /RM {300 /Times-Roman FS} bind def /RG {350 /Times-Roman FS} bind def /RIV {150 /Times-Italic FS} bind def /RIS {200 /Times-Italic FS} bind def /RIK {250 /Times-Italic FS} bind def /RIM {300 /Times-Italic FS} bind def /RIG {350 /Times-Italic FS} bind def /RBV {150 /Times-Bold FS} bind def /RBS {200 /Times-Bold FS} bind def /RBK {250 /Times-Bold FS} bind def /RBM {300 /Times-Bold FS} bind def /RBG {350 /Times-Bold FS} bind def /RBIV {150 /Times-BoldItalic FS} bind def /RBIS {200 /Times-BoldItalic FS} bind def /RBIK {250 /Times-BoldItalic FS} bind def /RBIM {300 /Times-BoldItalic FS} bind def /RBIG {350 /Times-BoldItalic FS} bind def /SV {150 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SK {250 /Symbol FS} bind def /SM {300 /Symbol FS} bind def /SG {350 /Symbol 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 /rec3d %x, y width heigth {/heigth exch def /width exch def 0 moveto3d width 0 0 rlineto3d 0 heigth 0 rlineto3d width neg 0 0 rlineto3d closepath } bind def /colrecfi %x y width heigth c m y k {setrgbcolor rec fill} bind def /colrecst %x y width heigth c m y k {setrgbcolor rec stroke} bind def /cvishow {0.5 add 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 /cvsshow4 {10000 mul cvi 0.0001 mul 8 string cvs show} def %%EndProlog %lanindL3 START 20160701 /lanind 1 def /lantex [(G) (E) (S) (N) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showea {1 lanind le {show} {pop} ifelse} bind def /lanind1 1 def /lanind2 1 def /lanindd 01 def /lanindm 01 def /xcolor1 00 def /xcolor2 00 def /xcolord 01 def /xcolorm 01 def /xchart1 00 def /xchart2 00 def /xchartd 01 def /xchartm 01 def /pchart1 00 def /pchart2 00 def /pchartd 01 def /pchartm 01 def /xchart3 01 def /xchart4 00 def /xchart5 00 def %usual change of default values /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} if /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} if /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def} if /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} if /xchart3f where {pop /xchart3 xchart3f def} if /xchart4f where {pop /xchart4 xchart4f def} if /xchart5f where {pop /xchart5 xchart5f def} if /lanind lanind1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart 0 def % %lanindL3 START 20160701 gsave /cname1 [(C) (B) (M)] def /cname2 [(R) (Y) (G)] def /dshow {4 /Times-Roman FS 0 -1 rmoveto (d) show 0 1 rmoveto 5 /Times-Roman FS} def /gshow {RBS 0 -50 rmoveto (d) show 0 50 rmoveto RBK} def %0 1 4 {/pchart exch def %BEG pchart=0,4 /xchart 8 def %0 4 8 {/xchart exch def %BEG xchart=0,4,8 gsave /xs 300 def /ys xs def /d2 xs 2 div def /d8 xs 8 div def 72 90 translate 2 -4 moveto 4 /Times-Roman FS (DEA20-7N) show 0.01 MM dup scale 15 setlinewidth pchart 0 eq {0.5 setgray} if pchart 1 eq {0.0 setgray} if pchart 2 eq {1.0 setgray} if pchart 3 eq {0 1 1 setrgbcolor} if pchart 4 eq {1 0 0 setrgbcolor} if 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath fill 0.0 setgray 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath stroke 0 setgray 20 setlinewidth /ymax 3400 def /xmin 1650 def %3x rgbcmy /id 1 16 div def /rijn 289 array def %for intermediate storage /gijn 289 array def /bijn 289 array def /n -1 def /lmin xchart 4 idiv def /lmax lmin def lmin 1 lmax {/l exch def %l=0,lmax /xadd 0 def /yadd 0 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 16 {/j exch def %j=0,16 /im 16 j sub def jchart 1 im {/i exch def %i=0,16 /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 argb def} if 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 17 mul jn add r put gijn in 17 mul jn add g put bijn in 17 mul jn add b put } for %i=0,16 } for %j=0,16 } for %jchart=0,1 %for output of l=0,lmax % 0 1 2 3 4 5 6 7 8 % 9 10 11 12 13 14 15 16 /xch09 [(A) (B) (C) (D) (E) (F) (G) (H) (I)] def /xch17 [(A) (B) (C) (D) (E) (F) (G) (H) (I) (J) (K) (L) (M) (N) (O) (P) (Q) ] def TS /xa xmin xadd add def /ya ymax yadd sub def /xs 3400 17 div def /ys 3400 17 div def /xd xs def /yd ys def /jd 1 def 0 jd 16 {/j exch def %j=0,16 0 jd 16 {/i exch def %i=0,16 /r rijn i j 17 mul add get def /g gijn i j 17 mul add get def /b bijn i j 17 mul add get def /xa xmin xs j mul add xadd add def /ya ymax xs i mul sub yadd sub def r g b setrgbcolor xa ya xd dup rec fill 1 setgray RBS pchart 1 ne {0 setgray} {1 setgray} ifelse i 0 eq {xa xd 0.2 mul add ya yd 1.3 mul add moveto xch17 j get show} if j 0 eq {xa xd 1.2 mul sub ya yd 0.1 mul add moveto i 8 le {(0) show} if i 1 add cvishow} if RBIS i 0 eq j 0 eq and {%left top /xald xa xd 2.8 mul sub def /yald ya yd 0.1 mul add def xald yald moveto (W) show gshow } if i 16 eq j 00 eq and {%left down /xald xa xd 2.6 mul sub def /yald ya yd 0.1 mul add def xald yald moveto cname1 xchart 4 idiv get show gshow } if i 0 eq j 16 eq and {%right up /xald xa xd 1.3 mul add def /yald ya yd 0.1 mul add def xald yald moveto cname2 xchart 4 idiv get show gshow } if i 16 eq j 16 eq and {%right down /xald xa xd 1.3 mul add def /yald ya yd 0.1 mul add def xald yald moveto (N) show gshow } if } for %i=0,16 } for %j=0,16 } for %l=0,lmax /xmi0 600 def /j 0 def 0 jd 16 {/i exch def %j=0,16 /rgb 1 i 16 div sub def /xa xmi0 def /ya ymax xd i mul sub def rgb dup dup setrgbcolor xa ya xd dup rec fill 1 setgray RBS pchart 1 ne {0 setgray} {1 setgray} ifelse i 0 eq {xa xd 0.2 mul add ya yd 1.3 mul add moveto (U) show} if j 0 eq {xa xd 1.2 mul sub ya yd 0.1 mul add moveto i 8 le {(0) show} if i 1 add cvishow} if } for %i=0,16 RBIS /xald xmi0 xd 2.8 mul sub def /yald ymax yd 0.1 mul add def xald yald moveto (W) show gshow RBIS /xald xmi0 xd 2.6 mul sub def /yald ymax yd 16 mul sub yd 0.1 mul add def xald yald moveto (N) show gshow showpage grestore %} for %xchart=0,4,8 %} for %pchart=0,4 %%Trailer