%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/eej0/eej01-6n 20230701 %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark16 where {pop} {userdict /pdfmark16 /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/eej0/eej0.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:2023070112000) /ModDate (D:20230701112000) /DOCINFO pdfmark16 [ /View [ /Fit ] /DOCVIEW pdfmark16 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def % 40mm = 80*72/25.4 = 232; 232+90+13 = 335 % !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 /TV {120 /Times-ISOL1 FS} bind def /TL {160 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TG {320 /Times-ISOL1 FS} bind def /TIV {120 /TimesI-ISOL1 FS} bind def /TIL {160 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIG {320 /TimesI-ISOL1 FS} bind def /TBV {120 /TimesB-ISOL1 FS} bind def /TBL {160 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBG {320 /TimesB-ISOL1 FS} bind def /TBIV {120 /TimesBI-ISOL1 FS} bind def /TBIL {160 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIG {320 /TimesBI-ISOL1 FS} bind def /SV {120 /Symbol FS} bind def /SL {160 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SK {240 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SG {320 /Symbol FS} bind def /RV {120 /Times-Roman FS} bind def /RL {160 /Times-Roman FS} bind def /RS {200 /Times-Roman FS} bind def /RK {240 /Times-Roman FS} bind def /RM {280 /Times-Roman FS} bind def /RG {320 /Times-Roman FS} bind def /RIV {120 /Times-Italic FS} bind def /RIL {160 /Times-Italic FS} bind def /RIS {200 /Times-Italic FS} bind def /RIK {240 /Times-Italic FS} bind def /RIM {280 /Times-Italic FS} bind def /RIG {320 /Times-Italic FS} bind def /RBV {120 /Times-Bold FS} bind def /RBL {160 /Times-Bold FS} bind def /RBS {200 /Times-Bold FS} bind def /RBK {240 /Times-Bold FS} bind def /RBM {280 /Times-Bold FS} bind def /RBG {320 /Times-Bold FS} bind def /RBIV {120 /Times-BoldItalic FS} bind def /RBIL {160 /Times-BoldItalic FS} bind def /RBIS {200 /Times-BoldItalic FS} bind def /RBIK {240 /Times-BoldItalic FS} bind def /RBIM {280 /Times-BoldItalic FS} bind def /RBIG {320 /Times-BoldItalic 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 /colrecfi %x y width heigth c m y k {setcmykcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmykcolor rec stroke} bind def /cvishow {dup 0 ge {0.5 add} {0.5 sub} ifelse cvi 6 string cvs show} def %%EndProlog gsave %lanindL2 START 20000505 /lanind 1 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 {3 lanind eq {show} {pop} ifelse} bind def /showfr {2 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 /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 1 def /lanind2 1 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 0 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % gsave 72 90 translate 0.01 MM dup scale /xchartl 0 def %not used 0 setgray TV 100 -120 moveto (eej01-6n) show 30 setlinewidth /yhoe 4000 def /xwidth 5400 def 1 setgray 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath fill 0 setgray 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath stroke gsave %start because of clip %***************************************************************** /ix0 0030 def /iyd 0150 def %line distance /iyds 0165 def %line distance for equations /ix1 2000 def %left border /iy1 0200 def %down border /ix2 3400 def %right border /iy2 3800 def %top border /ixl ix2 ix1 sub def %x-size /iyl iy2 iy1 sub def %y-size /iym 3700 def %top line 0 setgray ix0 yhoe iyd 1 mul sub moveto TBL (Properties of the visual system ) showen (Eigenschaften des visuellen Systems ) showde (and use cases for the copier and display output) showea (und Kopierer\255 und Displayausgabe) showde /yhot yhoe 50 sub def 30 setlinewidth 0 yhot iyd 1 mul sub moveto 5400 0 rlineto stroke ix0 yhot iyd 2 mul sub moveto TL (According to ISO 9241\255306:2018 the luminance of the white display ) showea (and the) showea (Nach ISO 9241\255306:2018 ist die Leuchtdichte von wei\337em Display ) showde (und dem) showde ix0 yhot iyd 3 mul sub moveto (white paper shall be equal ) showea (to avoid fatique and incease well\255being of users.) showea (wei\337en Papier gleich, ) showde (um Erm\374dung zu reduzieren und Wohlbefinden zu erh\366hen.) showde ix0 yhot iyd 4 mul sub moveto TL (The illuminance 500 lux von ISO 8995\2551 corresponds to the ) showea (luminance 142 cd/m) showea TL (Die Beleuchtungsst\344rke 500 lux (ISO 8995) entspricht der ) showde (Leuchtdichte 142 cd/m) showde TV 0 50 rmoveto (2) show 0 -50 rmoveto TL (.) show %more text %************************************************************** /ty00i [(Standard) (ISO/IEC 15775)(ISO 9241\255306)(Encoding) (Transfer)] def /ty01i [(document and) (/ed\2552:2022)(/ed\2552:2018) (HDR range)(HDR->SDR)] def /ty02i [(device output) (copier) (display) (display) (display)] def /ty03i [(tone mapping)(ergonomic) (ergonomic) (pleasing?) (pleasing?)] def /ty04i [(visual (vis.) &) (equal spacing) (equal spacing) (visual?, no)(visual?, no)] def /ty05i [(colourimetric)(vis. & col.)(vis. & col.)(definition) (definition)] def /ty06i [(ergonomic)(high quality) (high quality) (low quality,) (low quality,)] def /ty07i [(output quality) (vis. spacing) (vis. spacing) (no reflection)(no reflection)] def /ty08i [(0 <= g* <=100) (regularity g*)(regularity g*)(considered) (considered)] def /ty09i [(optimized) (yes, 500 lux)(yes) (no, up to) (no up to)] def /ty10i [(energy) (according) (500 lux or) (3300 lux or) (3300 lux or)] def /ty11i [(consumption) (ISO 8995-1) (142 cd/m^2)(1000 cd/m^2)(1000 cd/m^2)] def /ty12i [(optimized) (yes, SSW is) (yes, SSW is) (no, SSW is) (no, SSW is)] def /ty13i [(sustainable) (for >3 use)(for 15\26713\26711..>) (for only 1) (for only 1)] def /ty14i [(software SSW) (cases (papers))(2000 use cases) (use case) (use case)] def /ty15i [(F0) (F1) (F2) (F3) (F4) (F5)] def /iy00i [0 0 0 0 0 0] def /iy01i [0 0 0 0 0 0] def /iy02i [0 0 0 0 0 0] def /iy03i [0 2 2 3 3 3] def /iy04i [0 2 2 3 3 3] def /iy05i [0 2 2 3 3 3] def /iy06i [0 2 2 3 3 3] def /iy07i [0 2 2 3 3 3] def /iy08i [0 2 2 3 3 3] def /iy09i [0 2 2 3 3 3] def /iy10i [0 2 2 3 3 3] def /iy11i [0 2 2 3 3 3] def /iy12i [0 2 2 3 3 3] def /iy13i [0 2 2 3 3 3] def /iy14i [0 2 2 3 3 3] def /iy15i [0 0 0 0 0 0] def %************************************************************** /dy00i [(Norm\255) (ISO/IEC) (ISO 9241\255)(Encoding) (Transfer)] def /dy01i [(Dokument) (15775:2022)(306:2018) (HDR\255Bereich) (HDR-SDR)] def /dy02i [(Ausgabe) (Kopierer) (Display) (Display) (Display)] def /dy03i [(Farbstufung) (ergonomische) (ergonomische) (pleasing?) (pleasing?)] def /dy04i [(visuell & farbme\255) (Stufung) (Stufung) (visuell?, keine) (visuell?, keine)] def /dy05i [(trisch (farbm.)) (vis. & farbm.)(vis. & farbm.) (Definition) (Definition)] def /dy06i [(ergonomische)(hohe Qualit\344t) (hohe Qualit\344t) (wenig Qualit\344t,) (wenig Qualit\344t,)] def /dy07i [(Ausgabe\255) (vis. & Gleich\255) (vis. & Gleich\255) (Reflexion wird) (Reflexion wird)] def /dy08i [(Qualit\344t) (m\344\337igkeit g*)(m\344\337igkeit g*) (nicht beachtet) (nicht beachtet)] def /dy09i [(optimierter) (ja) (ja) (nein, bis) (nein, bis)] def /dy10i [(Energie\255) (nach) (500 lux) (3300 lux) (3300 lux)] def /dy11i [(Verbrauch) (ISO 8995-1) (142 cd/m^2) (1000 cd/m^2) (1000 cd/m^2)] def /dy12i [(optimierte) (ja, NSW) (ja, NSW) (nein, NSW) (nein, NSW)] def /dy13i [(nachhaltige) (f\374r >3 Anw.\255)(f\374r >2000) (f\374r nur 1) (f\374r nur 1)] def /dy14i [(Software SW) (F\344lle(P,O))(Anw.\255F\344lle) (Anw.\255Fall) (Anw.\255Fall)] def %********************************************************************** /iyd 190 def /ixs 030 def /iys 050 def /ixt 030 def /iytab 3100 def /iyi 30 array def /iyj 30 array def % 0 1 2 3 4 5 6(END) /ixi [0030 1100 2250 3300 4350 5400 5400] def 0 1 15 {/i exch def %i=0,15 iyi i iytab iyd i mul sub put } for %j=0,15 0 1 15 {/j exch def %j=0,15 iyj j iyi j get iys add put } for %j=0,14 /yhod iytab 80 add def 0 setgray ix0 yhod moveto TBL (Table 1: ) showea (Tabelle 1: ) showde (Ergonomy, energy consumption and sustainability of output ) showea (Ergonomie, Energieverbrauch & Nachhaltigkeit der Ausgabe ) showde 0 1 4 {/i exch def iy00i i get 0 eq {1 1 1 setrgbcolor} if iy00i i get 1 eq {1 1 0 setrgbcolor} if iy00i i get 2 eq {0 1 0 setrgbcolor} if iy00i i get 3 eq {1 0 0 setrgbcolor} if ixi i get iyi 01 get moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 1 4 {/i exch def iy01i i get 0 eq {1 1 1 setrgbcolor} if iy01i i get 1 eq {1 1 0 setrgbcolor} if iy01i i get 2 eq {0 1 0 setrgbcolor} if iy01i i get 3 eq {1 0 0 setrgbcolor} if ixi i get iyi 02 get moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 1 4 {/i exch def iy02i i get 0 eq {1 1 1 setrgbcolor} if iy02i i get 1 eq {1 1 0 setrgbcolor} if iy02i i get 2 eq {0 1 0 setrgbcolor} if iy02i i get 3 eq {1 0 0 setrgbcolor} if ixi i get iyi 03 get moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for /TBX {140 /TimesB-ISOL1 FS} bind def /TX {140 /Times-ISOL1 FS} bind def 0 setgray TBL ixi 0 get ixt add iyj 01 get moveto ty00i 0 get showea TBX dy00i 0 get showde TBL ixi 1 get ixt add iyj 01 get moveto ty00i 1 get showea TBX dy00i 1 get showde TBL ixi 2 get ixt add iyj 01 get moveto ty00i 2 get showea TBX dy00i 2 get showde TBL ixi 3 get ixt add iyj 01 get moveto ty00i 3 get showea TBX dy00i 3 get showde TBL ixi 4 get ixt add iyj 01 get moveto ty00i 4 get showea TBX dy00i 4 get showde %TBL ixi 5 get ixt add iyj 01 get moveto ty00i 5 get showea TBX dy00i 5 get showde TBL ixi 0 get ixt add iyj 02 get moveto ty01i 0 get showea TBX dy01i 0 get showde TBL ixi 1 get ixt add iyj 02 get moveto ty01i 1 get showea TBX dy01i 1 get showde TBL ixi 2 get ixt add iyj 02 get moveto ty01i 2 get showea TBX dy01i 2 get showde TBL ixi 3 get ixt add iyj 02 get moveto ty01i 3 get showea TBX dy01i 3 get showde TBL ixi 4 get ixt add iyj 02 get moveto ty01i 4 get showea TBX dy01i 4 get showde %TBL ixi 5 get ixt add iyj 02 get moveto ty01i 5 get showea TBX dy01i 5 get showde TBL ixi 0 get ixt add iyj 03 get moveto ty02i 0 get showea TBX dy02i 0 get showde TBL ixi 1 get ixt add iyj 03 get moveto ty02i 1 get showea TBX dy02i 1 get showde TBL ixi 2 get ixt add iyj 03 get moveto ty02i 2 get showea TBX dy02i 2 get showde TBL ixi 3 get ixt add iyj 03 get moveto ty02i 3 get showea TBX dy02i 3 get showde TBL ixi 4 get ixt add iyj 03 get moveto ty02i 4 get showea TBX dy02i 4 get showde %TBL ixi 5 get ixt add iyj 03 get moveto ty02i 5 get showea TBX dy02i 5 get showde 0 1 4 {/i exch def iy03i i get 0 eq {1 1 1 setrgbcolor} if iy03i i get 1 eq {1 1 0 setrgbcolor} if iy03i i get 2 eq {0 1 0 setrgbcolor} if iy03i i get 3 eq {1 0 0 setrgbcolor} if ixi i get iyi 04 get moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 1 4 {/i exch def iy04i i get 0 eq {1 1 1 setrgbcolor} if iy04i i get 1 eq {1 1 0 setrgbcolor} if iy04i i get 2 eq {0 1 0 setrgbcolor} if iy04i i get 3 eq {1 0 0 setrgbcolor} if ixi i get iyi 05 get moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 1 4 {/i exch def iy05i i get 0 eq {1 1 1 setrgbcolor} if iy05i i get 1 eq {1 1 0 setrgbcolor} if iy05i i get 2 eq {0 1 0 setrgbcolor} if iy05i i get 3 eq {1 0 0 setrgbcolor} if ixi i get iyi 06 get moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 setgray TBL ixi 0 get ixt add iyj 04 get moveto ty03i 0 get showea TBX dy03i 0 get showde TL ixi 1 get ixt add iyj 04 get moveto ty03i 1 get showea TX dy03i 1 get showde TL ixi 2 get ixt add iyj 04 get moveto ty03i 2 get showea TX dy03i 2 get showde TL ixi 3 get ixt add iyj 04 get moveto ty03i 3 get showea TX dy03i 3 get showde TL ixi 4 get ixt add iyj 04 get moveto ty03i 4 get showea TX dy03i 4 get showde %TL ixi 5 get ixt add iyj 04 get moveto ty03i 5 get showea TX dy03i 5 get showde TBL ixi 0 get ixt add iyj 05 get moveto ty04i 0 get showea TBX dy04i 0 get showde TL ixi 1 get ixt add iyj 05 get moveto ty04i 1 get showea TX dy04i 1 get showde TL ixi 2 get ixt add iyj 05 get moveto ty04i 2 get showea TX dy04i 2 get showde TL ixi 3 get ixt add iyj 05 get moveto ty04i 3 get showea TX dy04i 3 get showde TL ixi 4 get ixt add iyj 05 get moveto ty04i 4 get showea TX dy04i 4 get showde %TL ixi 5 get ixt add iyj 05 get moveto ty04i 5 get showea TX dy04i 5 get showde TBL ixi 0 get ixt add iyj 06 get moveto ty05i 0 get showea TBX dy05i 0 get showde TL ixi 1 get ixt add iyj 06 get moveto ty05i 1 get showea TX dy05i 1 get showde TL ixi 2 get ixt add iyj 06 get moveto ty05i 2 get showea TX dy05i 2 get showde TL ixi 3 get ixt add iyj 06 get moveto ty05i 3 get showea TX dy05i 3 get showde TL ixi 4 get ixt add iyj 06 get moveto ty05i 4 get showea TX dy05i 4 get showde %TL ixi 5 get ixt add iyj 06 get moveto ty05i 5 get showea TX dy05i 5 get showde 0 1 4 {/i exch def iy06i i get 0 eq {1 1 1 setrgbcolor} if iy06i i get 1 eq {1 1 0 setrgbcolor} if iy06i i get 2 eq {0 1 0 setrgbcolor} if iy06i i get 3 eq {1 0 0 setrgbcolor} if ixi i get iyi 07 get moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 1 4 {/i exch def iy07i i get 0 eq {1 1 1 setrgbcolor} if iy07i i get 1 eq {1 1 0 setrgbcolor} if iy07i i get 2 eq {0 1 0 setrgbcolor} if iy07i i get 3 eq {1 0 0 setrgbcolor} if ixi i get iyi 08 get moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 1 4 {/i exch def iy08i i get 0 eq {1 1 1 setrgbcolor} if iy08i i get 1 eq {1 1 0 setrgbcolor} if iy08i i get 2 eq {0 1 0 setrgbcolor} if iy08i i get 3 eq {1 0 0 setrgbcolor} if ixi i get iyi 09 get moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 setgray TBL ixi 0 get ixt add iyj 07 get moveto ty06i 0 get showea TBX dy06i 0 get showde TL ixi 1 get ixt add iyj 07 get moveto ty06i 1 get showea TX dy06i 1 get showde TL ixi 2 get ixt add iyj 07 get moveto ty06i 2 get showea TX dy06i 2 get showde TL ixi 3 get ixt add iyj 07 get moveto ty06i 3 get showea TX dy06i 3 get showde TL ixi 4 get ixt add iyj 07 get moveto ty06i 4 get showea TX dy06i 4 get showde %TL ixi 5 get ixt add iyj 07 get moveto ty06i 5 get showea TX dy06i 5 get showde TBL ixi 0 get ixt add iyj 08 get moveto ty07i 0 get showea TBX dy07i 0 get showde TL ixi 1 get ixt add iyj 08 get moveto ty07i 1 get showea TX dy07i 1 get showde TL ixi 2 get ixt add iyj 08 get moveto ty07i 2 get showea TX dy07i 2 get showde TL ixi 3 get ixt add iyj 08 get moveto ty07i 3 get showea TX dy07i 3 get showde TL ixi 4 get ixt add iyj 08 get moveto ty07i 4 get showea TX dy07i 4 get showde %TL ixi 5 get ixt add iyj 08 get moveto ty07i 5 get showea TX dy07i 5 get showde TBL ixi 0 get ixt add iyj 09 get moveto ty08i 0 get showea TBX dy08i 0 get showde TL ixi 1 get ixt add iyj 09 get moveto ty08i 1 get showea TX dy08i 1 get showde TL ixi 2 get ixt add iyj 09 get moveto ty08i 2 get showea TX dy08i 2 get showde TL ixi 3 get ixt add iyj 09 get moveto ty08i 3 get showea TX dy08i 3 get showde TL ixi 4 get ixt add iyj 09 get moveto ty08i 4 get showea TX dy08i 4 get showde %TL ixi 5 get ixt add iyj 09 get moveto ty08i 5 get showea TX dy08i 5 get showde 0 1 4 {/i exch def iy09i i get 0 eq {1 1 1 setrgbcolor} if iy09i i get 1 eq {1 1 0 setrgbcolor} if iy09i i get 2 eq {0 1 0 setrgbcolor} if iy09i i get 3 eq {1 0 0 setrgbcolor} if ixi i get iyi 10 get moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 1 4 {/i exch def iy10i i get 0 eq {1 1 1 setrgbcolor} if iy10i i get 1 eq {1 1 0 setrgbcolor} if iy10i i get 2 eq {0 1 0 setrgbcolor} if iy10i i get 3 eq {1 0 0 setrgbcolor} if ixi i get iyi 11 get moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 1 4 {/i exch def iy11i i get 0 eq {1 1 1 setrgbcolor} if iy11i i get 1 eq {1 1 0 setrgbcolor} if iy11i i get 2 eq {0 1 0 setrgbcolor} if iy11i i get 3 eq {1 0 0 setrgbcolor} if ixi i get iyi 12 get moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 setgray TBL ixi 0 get ixt add iyj 10 get moveto ty09i 0 get showea TBX dy09i 0 get showde TL ixi 1 get ixt add iyj 10 get moveto ty09i 1 get showea TX dy09i 1 get showde TL ixi 2 get ixt add iyj 10 get moveto ty09i 2 get showea TX dy09i 2 get showde TL ixi 3 get ixt add iyj 10 get moveto ty09i 3 get showea TX dy09i 3 get showde TL ixi 4 get ixt add iyj 10 get moveto ty09i 4 get showea TX dy09i 4 get showde %TL ixi 5 get ixt add iyj 10 get moveto ty09i 5 get showea TX dy09i 5 get showde TBL ixi 0 get ixt add iyj 11 get moveto ty10i 0 get showea TBX dy10i 0 get showde TL ixi 1 get ixt add iyj 11 get moveto ty10i 1 get showea TX dy10i 1 get showde TL ixi 2 get ixt add iyj 11 get moveto ty10i 2 get showea TX dy10i 2 get showde TL ixi 3 get ixt add iyj 11 get moveto ty10i 3 get showea TX dy10i 3 get showde TL ixi 4 get ixt add iyj 11 get moveto ty10i 4 get showea TX dy10i 4 get showde %TL ixi 5 get ixt add iyj 11 get moveto ty10i 5 get showea TX dy10i 5 get showde TBL ixi 0 get ixt add iyj 12 get moveto ty11i 0 get showea TBX dy11i 0 get showde TL ixi 1 get ixt add iyj 12 get moveto ty11i 1 get showea TX dy11i 1 get showde TL ixi 2 get ixt add iyj 12 get moveto ty11i 2 get showea TX dy11i 2 get showde TL ixi 3 get ixt add iyj 12 get moveto ty11i 3 get showea TX dy11i 3 get showde TL ixi 4 get ixt add iyj 12 get moveto ty11i 4 get showea TX dy11i 4 get showde %TL ixi 5 get ixt add iyj 12 get moveto ty11i 5 get showea TX dy11i 5 get showde 0 1 4 {/i exch def iy12i i get 0 eq {1 1 1 setrgbcolor} if iy12i i get 1 eq {1 1 0 setrgbcolor} if iy12i i get 2 eq {0 1 0 setrgbcolor} if iy12i i get 3 eq {1 0 0 setrgbcolor} if ixi i get iyi 13 get moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 1 4 {/i exch def iy13i i get 0 eq {1 1 1 setrgbcolor} if iy13i i get 1 eq {1 1 0 setrgbcolor} if iy13i i get 2 eq {0 1 0 setrgbcolor} if iy13i i get 3 eq {1 0 0 setrgbcolor} if ixi i get iyi 14 get moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 1 4 {/i exch def iy14i i get 0 eq {1 1 1 setrgbcolor} if iy14i i get 1 eq {1 1 0 setrgbcolor} if iy14i i get 2 eq {0 1 0 setrgbcolor} if iy14i i get 3 eq {1 0 0 setrgbcolor} if ixi i get iyi 15 get moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 setgray TBL ixi 0 get ixt add iyj 13 get moveto ty12i 0 get showea TBX dy12i 0 get showde TL ixi 1 get ixt add iyj 13 get moveto ty12i 1 get showea TX dy12i 1 get showde TL ixi 2 get ixt add iyj 13 get moveto ty12i 2 get showea TX dy12i 2 get showde TL ixi 3 get ixt add iyj 13 get moveto ty12i 3 get showea TX dy12i 3 get showde TL ixi 4 get ixt add iyj 13 get moveto ty12i 4 get showea TX dy12i 4 get showde %TL ixi 5 get ixt add iyj 13 get moveto ty12i 5 get showea TX dy12i 5 get showde TBL ixi 0 get ixt add iyj 14 get moveto ty13i 0 get showea TBX dy13i 0 get showde TL ixi 1 get ixt add iyj 14 get moveto ty13i 1 get showea TX dy13i 1 get showde TL ixi 2 get ixt add iyj 14 get moveto ty13i 2 get showea TX dy13i 2 get showde TL ixi 3 get ixt add iyj 14 get moveto ty13i 3 get showea TX dy13i 3 get showde TL ixi 4 get ixt add iyj 14 get moveto ty13i 4 get showea TX dy13i 4 get showde %TL ixi 5 get ixt add iyj 14 get moveto ty13i 5 get showea TX dy13i 5 get showde TBL ixi 0 get ixt add iyj 15 get moveto ty14i 0 get showea TBX dy14i 0 get showde TL ixi 1 get ixt add iyj 15 get moveto ty14i 1 get showea TX dy14i 1 get showde TL ixi 2 get ixt add iyj 15 get moveto ty14i 2 get showea TX dy14i 2 get showde TL ixi 3 get ixt add iyj 15 get moveto ty14i 3 get showea TX dy14i 3 get showde TL ixi 4 get ixt add iyj 15 get moveto ty14i 4 get showea TX dy14i 4 get showde %TL ixi 5 get ixt add iyj 15 get moveto ty14i 5 get showea TX dy14i 5 get showde %horizontal lines 0 3 15 {/i exch def %i=0,15,3 0 iyi i get moveto 5400 0 rlineto stroke } for %i=0,15,3 %vertical lines 1 1 04 {/i exch def %i=1,4 ixi i get 15 sub iyi 00 get moveto ixi i get 15 sub iyi 15 get lineto stroke } for %i=1,4 1 0 0 setrgbcolor 0 0 moveto xwidth 0 rlineto 0 235 rlineto xwidth neg 0 rlineto closepath fill 0 setgray ix0 0070 moveto TIL (Display reflection is NOT considered, ) showea (this is called "stone age image technology".) showea (Displayreflexion wird NICHT beachtet, ) showde (dies ist das "Steinzeitalter der Bild\255IT".) showde /yhoe 4000 def /xwidth 5400 def 30 setlinewidth 0 setgray 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath stroke %***************************************************************** grestore %end because of clip showpage grestore %%Trailer