%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/EE00/EE001-8A 20230801 %%BoundingBox: 70 85 236 206 %START PDFDE011.EPS /pdfmark17 where {pop} {userdict /pdfmark17 /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/EE00/EE00.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:2023080112000) /ModDate (D:20230801112000) /DOCINFO pdfmark17 [ /View [ /Fit ] /DOCVIEW pdfmark17 %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 % colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1 xchart 0 eq {/Txx (-) def /Fxx (-) def} if %always independent of intended output gsave 72 90 translate 0.01 MM dup scale 20 setlinewidth %0 0 11600 08550 0.0 0.0 0.0 0.0 colrecfi %area white grey %0 0 11600 08550 0.0 0.0 0.0 1.0 colrecst %Rahmen Schwarz 0 setgray /xbtex0 1 def xbtex0 1 eq {%xbtex0=1 TL 100 -150 moveto (EE001-8A) show } if %xbtex0=1 %/xchart 3 def 7 1 7 {/xchartl exch def %xchartl=4,7 %gsave 20 setlinewidth % xchartl 0 eq { 100 4500 translate} if % xchartl 1 eq { 6100 4500 translate} if % xchartl 2 eq { 100 0250 translate} if % xchartl 3 eq { 6100 0250 translate} if % xchartl 4 eq { 100 4500 translate} if % xchartl 5 eq { 5850 4500 translate} if % xchartl 6 eq { 100 0250 translate} if % xchartl 7 eq { 5850 0250 translate} if 0 setgray TV 100 -120 moveto (EE001-) show xchartl 1 add cvishow (A) show %A 30 setlinewidth [ ] 0 setdash /yhoe 4000 def /xwidth 5650 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 %***************************************************************** xchartl 4 eq {%xchartl=4 %STOP4 /ix0 0050 def /iy0 3200 def /ixd 0500 def /iyd 0280 def /yhoe 3750 def %/TBL 0320 def 0 setgray TBK ix0 yhoe iyd 0 mul sub moveto (Colorimetric scan, display, and print for archiving ) showea (Farbmetrischer Scan, Display, Druck f\374r Archivie\255) showde ix0 yhoe iyd 1 mul sub moveto (based on the ergonomic International Standard) showea (rung entsprechend ergonomischer Internationaler) showde ix0 yhoe iyd 2 mul sub moveto (Norm ) showde (ISO 9241-306:2018 ) show (for work places ) showea (f\374r Arbeitspl\344tze) showde ix0 yhoe iyd 3 mul sub moveto TIS (Klaus Richter, Berlin University of Technology (TUB), Germany ) showea (Klaus Richter, Technische Universit\344t Berlin (TUB), Deutschland ) showde /yhod 2400 def /iyd 200 def ix0 yhod iyd 0 mul sub moveto TBL (Abstract) showea (Zusammenfassung) showde TL ix0 yhod iyd 1 mul sub moveto (ISO 9241-306:2018 ) show (shows colorimetric methods for output optimization of ) showea (zeigt farbmetrische Methoden zur Ausgabeoptimierung von ) showde ix0 yhod iyd 2 mul sub moveto (displays and projectors at work places. ) showea (Displays und Projektoren am Arbeitsplatz. ) showde (The optimization for equal spacing ) showea (Die Optimierung f\374r gleiche Stufung ) showde ix0 yhod iyd 3 mul sub moveto (of colour series, visibility and readability is intended. ) showea (von Farbserien, Erkennbarkeit und Lesbarkeit wird angestrebt. ) showde ix0 yhod iyd 4.5 mul sub moveto (There are input linearization methods for scanners and photography ) showea (Es gibt Eingabe\255Linearisierungsmethoden f\374r Scanner und Photographie ) showde (and output ) showea (und Ausgabe\255) showde ix0 yhod iyd 5.5 mul sub moveto (linearization methods for displays, printers, and offset print. ) showea (Linearisierungsmethoden f\374r Displays, Drucker und Offsetdruck. ) showde (By a start ) showea (Mit einer Start\255) showde ix0 yhod iyd 6.5 mul sub moveto (output of a digital ) showea (ausgabe einer digitalen ) showde (ISO\255test chart with 729 colours \0509x9x9 ) showea (ISO\255Pr\374fvorlage mit 729 Farben \0509x9x9 ) showde TIL (rgb* ) show TL (values\051 for ) showea (Werte\051 zum ) showde ix0 yhod iyd 7.5 mul sub moveto (example the loop "ISO standard file -> ISO print -> ) showea (Beispiel die Schleife "ISO\255Normdatei -> ISO\255Druck -> ) showde (ISO scan -> ISO file" is ) showea (ISO\255Scan -> ISO\255Datei" ist ) showde ix0 yhod iyd 8.5 mul sub moveto (closed and the ) showea (geschlossen und die ) showde TIL (rgb* ) show TL (colour data of the original ISO file are approximately ) showea (Farbdaten der Original\255ISO\255Datei sind angen\344hert ) showde ix0 yhod iyd 9.5 mul sub moveto (reproduced at the end of the loop. ) showea (am Ende der Schleife reproduziert. ) showde (For any hue there is a linear relation ) showea (F\374r jeden Buntton gibt es eine lineare Relation ) showde ix0 yhod iyd 10.5 mul sub moveto (in both directions between the ) showea (in beiden Richtungen zwischen ) showde TIL (rgb* ) show TL (and the CIELAB ) showea (und den CIELAB\255) showde TIL (LCh* ) show TL (data. The closed ) showea (daten. Die geschlossene ) showde ix0 yhod iyd 11.5 mul sub moveto (loop and the linear relations are important properties for archiving. ) showea (Schleife und die lineare Relation sind wichtige Eienschaften zur Archivierung. ) showde } if %xchartl=4 %***************************************************************** xchartl 5 eq {%xchartl=5 %STOP5 /ix0 0050 def /iy0 3200 def /ixd 0500 def /iyd 0300 def /yhoe 3750 def %/TBL 0320 def 0 setgray TBK ix0 yhoe iyd 0 mul sub moveto (Motivation and Problem) showea (Motivation und Problem) showde TK /yhod 3400 def ix0 yhod iyd 0 mul sub moveto (The ideal reproduction for archiving occurs, if the loop:) showea (Ideale Archivierungs\255Reproduktion, wenn Schleife:) showde ix0 yhod iyd 1.2 mul sub moveto (1. ISO\255standard file ->ISO print ->ISO scan ->ISO file) showea (1. ISO\255Datei ->ISO\255Druck ->ISO\255Scan ->ISO\255Datei) showde ix0 yhod iyd 2.2 mul sub moveto (is closed, and the ) showea (geschlossen ist und die ) showde TBIK (rgb*) show TK ( values in the ) showea (\255Werte in der ) showde ix0 yhod iyd 3.2 mul sub moveto TBIK (start and final file are equal.) showea (Start\255 und Enddatei gleich sind.) showde /yhod 2050 def ix0 yhod iyd 0 mul sub moveto TK (2. ISO\255standard print ->ISO scan ->ISO file ->ISO print) showea (2. ISO\255Druck ->ISO\255Scan ->ISO\255Datei ->ISO\255Druck) showde ix0 yhod iyd 1 mul sub moveto (is closed, and the ) showea (geschlossen ist und die ) showde TBIK (LCh* ) show TK (values in the ) showea (Werte im ) showde ix0 yhod iyd 2 mul sub moveto TBIK (start and final print are equal.) showea (Start\255 und Enddruck gleich sind.) showde /yhod 1000 def ix0 yhod iyd 0 mul sub moveto TBK (Both goals are approximately possible, if the output ) showea (Ziele sind angen\344hert m\366glich, wenn die Ausgabe\255) showde ix0 yhod iyd 1 mul sub moveto TBK (linearization method ) showea (Linearisierungsmethode ) showde TBIK (OLM_16 ) show TBK () showde (is applied, see ) showea (angewendet wird: ) showde ix0 yhod iyd 2.2 mul sub moveto 0 setgray TIL (Richter, 2016, ) show TL (Output linearization method OLM16 for displays, printers and offset:) show %(see) showea %(siehe) showde ix0 yhod iyd 2.9 mul sub moveto 0 0 1 setrgbcolor RL (http://farbe.li.tu-berlin.de/OUTLIN16_01.PDF) show 0 setgray TL ( (similar to CIE R8\25509:2015)) showea ( (\344hnlich zu CIE R8\25509:2015)) showde } if %xchartl=5 %***************************************************************** xchartl 6 eq {%xchartl=6 %STOP6 /ix0 0050 def /iy0 3250 def /ixd 0500 def /iyd 0150 def /yhoe 3820 def 0 setgray TBL ix0 yhoe iyd 0 mul sub moveto (Colorimetric workflow: ) showea (Farbmetrischer Workflow: ) showde (digital input -> printer -> analog output ) showea (digitale Eingabe -> Drucker -> analoge Ausgabe ) showde ix0 yhoe iyd 1 mul sub moveto (based on the ergonomic Standard ) showea (mit der ergonomischen Norm ) showde (ISO 9241\255306:2018 ) show (for work places ) showea (f\374r Arbeitspl\344tze) showde 0 yhoe iyd 2 mul sub 100 add moveto xwidth 0 rlineto stroke TL ix0 yhoe iyd 2.5 mul sub moveto (In this default case the printer driver has the relative gamma ) showea (In diesem voreingestellten Fall hat der Druckertreiber das relative gamma ) showde SL (g) show TL ( = 1,000.) show /yhod 3250 def /yhod1 yhod 150 sub def /ix00 ix0 def /ix01 0900 def /ix02 2000 def /ix03 2900 def /ix04 4000 def /ix05 4600 def /ix06 5200 def TL ix00 yhod moveto (relative) showea (relatives) showde ix01 yhod moveto (digital) showea (digitale) showde ix02 yhod moveto (printer) showea (Drucker\255) showde ix03 yhod moveto (relative) showea (relatives) showde ix04 yhod moveto (analog) showea (analoge) showde ix05 yhod moveto (output) showea (Ausgabe\255) showde ix06 yhod moveto (ISO) showea (ISO\255) showde ix00 yhod1 moveto (gamma) showea (gamma) showde ix01 yhod1 moveto (input) showea (Eingabe) showde ix02 yhod1 moveto (driver) showea (treiber) showde ix03 yhod1 moveto (gamma) showea (gamma) showde ix04 yhod1 moveto (output) showea (Ausgabe) showde ix05 yhod1 moveto (contrast) showea (kontrast) showde ix06 yhod1 moveto (output) showea (Aus\255) showde ix06 yhod1 150 sub moveto () showea (gabe) showde %large printer box (l=left) /ixpl 1400 def /iypl 50 def /ixwidth 2500 def /iywidth 3000 def ixpl iypl moveto ixwidth 0 rlineto 0 iywidth rlineto ixwidth neg 0 rlineto closepath stroke TIL ix04 2600 moveto (darker) showea (dunklere) showde TBIL ix04 2450 moveto (pleasent) showea (bevorzugte) showde TIL ix04 2300 moveto (output) showea (Ausgabe) showde ix04 0700 moveto (lighter) showea (hellere) showde ix04 0550 moveto (output) showea (Ausgabe) showde TL /yhod 2900 def /iyd 200 def /gnp 15 array def /gnp [(2,105) (1,818) (1,600) (1,428) (1,290) (1,176) (1,081) (1,000) (0,924) (0,849) (0,775) (0,700) (0,625) (0,550) (0,475)] def /gnc [(2,25:1) (4,5:1) (9:1) (18:1) (36:1) (72:1) (144:1) (288:1) (144:1) (72:1) (36:1) (18:1) (9:1) (4,5:1) (2,25:1)] def TL 0 1 14 {/i exch def %i=0,14 ix0 yhod iyd i mul sub moveto gnp i get show } for %i=0,14 0 1 14 {/i exch def %i=0,14 ix0 500 add yhod iyd i mul sub 70 add moveto 300 0 rlineto stroke } for %i=0,14 0 1 14 {/i exch def %i=0,14 ix0 3300 add yhod iyd i mul sub moveto gnp i get show } for %i=0,14 0 1 14 {/i exch def %i=0,14 ix0 3200 add yhod iyd i mul sub 70 add moveto -300 0 rlineto stroke } for %i=0,14 %vertical left connection /ixlc ix0 0800 add def ixlc yhod iyd 00 mul sub 70 add moveto ixlc yhod iyd 14 mul sub 70 add lineto stroke %vertical right connection /ixrc ix0 2900 add def ixrc yhod iyd 00 mul sub 70 add moveto ixrc yhod iyd 14 mul sub 70 add lineto stroke %horizontal left to right connection /iyx yhod iyd 7 mul sub 70 add def ixlc iyx moveto ixrc iyx lineto stroke 0 1 0 setrgbcolor /iy00 yhod iyd 00 mul sub 70 add def /iy14 yhod iyd 14 mul sub 70 add def %left vertical green connection %ixlc iy14 moveto ixlc iyx lineto stroke %right vertical green connection %ixrc iyx moveto ixrc iy00 lineto stroke %left horizontal green connection ixlc 300 sub iyx moveto 300 0 rlineto stroke %right horizontal green connection ixrc iyx moveto 300 0 rlineto stroke %right outer horizontal green connection ixrc 1000 add iyx moveto 1500 0 rlineto stroke %horixontal inner left to right connection ixlc iyx moveto ixrc iyx lineto stroke %ix0 500 add iy14 moveto ix04 500 sub 0 rlineto stroke %ix05 400 sub iy00 moveto 1000 0 rlineto stroke ixlc 200 sub iyx moveto -100 50 rlineto stroke ixlc 200 sub iyx moveto -100 -50 rlineto stroke ixlc 200 add iyx moveto -100 50 rlineto stroke ixlc 200 add iyx moveto -100 -50 rlineto stroke ixrc 100 sub iyx moveto -100 50 rlineto stroke ixrc 100 sub iyx moveto -100 -50 rlineto stroke ixrc 300 add iyx moveto -100 50 rlineto stroke ixrc 300 add iyx moveto -100 -50 rlineto stroke ixrc 1600 add iyx moveto -100 50 rlineto stroke ixrc 1600 add iyx moveto -100 -50 rlineto stroke 0 0 0 setrgbcolor %central box /ixle ixpl 50 add def /iyle yhod iyd 08 mul sub def /iyco iyd 3 mul def 1 1 1 setrgbcolor ixle iyle moveto 1000 0 rlineto 0 iyco rlineto -1000 0 rlineto closepath fill 0 0 0 setrgbcolor ixle iyle moveto 1000 0 rlineto 0 iyco rlineto -1000 0 rlineto closepath stroke ixle 50 add iyle iyd 2 mul add moveto (no change) showea (keine Gamma\255) showde ixle 50 add iyle iyd 1 mul add moveto (of gamma ) showea (\304nderung ) showde SL (g) show TL ix01 030 add yhod iyd 7 mul sub 150 sub moveto (1,000) show ix03 400 sub yhod iyd 7 mul sub 150 sub moveto (1,000) show ix05 yhod iyd 7 mul sub 150 sub moveto (>288:1) show ix06 yhod iyd 7 mul sub 150 sub moveto (YES) showea (JA) showde } if %xchartl=6 %***************************************************************** xchartl 7 eq {%xchartl=7 %STOP7 /ix0 0050 def /iy0 3250 def /ixd 0500 def /iyd 0150 def /yhoe 3820 def 0 setgray TBL ix0 yhoe iyd 0 mul sub moveto (Colorimetric workflow: ) showea (Farbmetrischer Workflow: ) showde (digital input -> printer -> analog output ) showea (digitale Eingabe -> Drucker -> analoge Ausgabe ) showde ix0 yhoe iyd 1 mul sub moveto (based on the ergonomic Standard ) showea (mit der ergonomischen Norm ) showde (ISO 9241\255306:2018 ) show (for work places ) showea (f\374r Arbeitspl\344tze) showde 0 yhoe iyd 2 mul sub 100 add moveto xwidth 0 rlineto stroke TL ix0 yhoe iyd 2.5 mul sub moveto (In this special case the printer driver has the relative gamma ) showea (In diesem speziellen Fall hat der Druckertreiber das relative gamma ) showde SL (g) show TL ( = 2,105.) show /yhod 3250 def /yhod1 yhod 150 sub def /ix00 ix0 def /ix01 0900 def /ix02 2000 def /ix03 2900 def /ix04 4000 def /ix05 4600 def /ix06 5200 def TL ix00 yhod moveto (relative) showea (relatives) showde ix01 yhod moveto (digital) showea (digitale) showde ix02 yhod moveto (printer) showea (Drucker\255) showde ix03 yhod moveto (relative) showea (relatives) showde ix04 yhod moveto (analog) showea (analoge) showde ix05 yhod moveto (output) showea (Ausgabe\255) showde ix06 yhod moveto (ISO) showea (ISO\255) showde ix00 yhod1 moveto (gamma) showea (gamma) showde ix01 yhod1 moveto (input) showea (Eingabe) showde ix02 yhod1 moveto (driver) showea (treiber) showde ix03 yhod1 moveto (gamma) showea (gamma) showde ix04 yhod1 moveto (output) showea (Ausgabe) showde ix05 yhod1 moveto (contrast) showea (kontrast) showde ix06 yhod1 moveto (output) showea (Aus\255) showde ix06 yhod1 150 sub moveto () showea (gabe) showde %large printer box (l=left) /ixpl 1400 def /iypl 50 def /ixwidth 2500 def /iywidth 3000 def ixpl iypl moveto ixwidth 0 rlineto 0 iywidth rlineto ixwidth neg 0 rlineto closepath stroke TIL ix04 2600 moveto (darker) showea (dunklere) showde TBIL ix04 2450 moveto (pleasent) showea (bevorzugte) showde TIL ix04 2300 moveto (output) showea (Ausgabe) showde ix04 0700 moveto (lighter) showea (hellere) showde ix04 0550 moveto (output) showea (Ausgabe) showde TL /yhod 2900 def /iyd 200 def /gnp 15 array def /gnp [(2,105) (1,818) (1,600) (1,428) (1,290) (1,176) (1,081) (1,000) (0,924) (0,849) (0,775) (0,700) (0,625) (0,550) (0,475)] def /gnc [(2,25:1) (4,5:1) (9:1) (18:1) (36:1) (72:1) (144:1) (288:1) (144:1) (72:1) (36:1) (18:1) (9:1) (4,5:1) (2,25:1)] def TL 0 1 14 {/i exch def %i=0,14 ix0 yhod iyd i mul sub moveto gnp i get show } for %i=0,14 0 1 14 {/i exch def %i=0,14 ix0 500 add yhod iyd i mul sub 70 add moveto 300 0 rlineto stroke } for %i=0,14 0 1 14 {/i exch def %i=0,14 ix0 3300 add yhod iyd i mul sub moveto gnp i get show } for %i=0,14 0 1 14 {/i exch def %i=0,14 ix0 3200 add yhod iyd i mul sub 70 add moveto -300 0 rlineto stroke } for %i=0,14 %vertical left connection /ixlc ix0 0800 add def ixlc yhod iyd 00 mul sub 70 add moveto ixlc yhod iyd 14 mul sub 70 add lineto stroke %vertical right connection /ixrc ix0 2900 add def ixrc yhod iyd 00 mul sub 70 add moveto ixrc yhod iyd 14 mul sub 70 add lineto stroke %horizontal left to right connection /iyx yhod iyd 7 mul sub 70 add def ixlc iyx moveto ixrc iyx lineto stroke 0 1 0 setrgbcolor /iy00 yhod iyd 00 mul sub 70 add def /iy14 yhod iyd 14 mul sub 70 add def %left vertical green connection ixlc iy14 moveto ixlc iyx lineto stroke %right vertical green connection ixrc iyx moveto ixrc iy00 lineto stroke %left horizontal green connection ixlc 300 sub iy14 moveto 300 0 rlineto stroke %right horizontal green connection ixrc iy00 moveto 300 0 rlineto stroke %right outer horizontal green connection ixrc 1000 add iy00 moveto 1200 0 rlineto stroke %horixontal inner left to right connection ixlc iyx moveto ixrc iyx lineto stroke ixlc 200 sub iy14 moveto -100 50 rlineto stroke ixlc 200 sub iy14 moveto -100 -50 rlineto stroke ixlc 200 add iyx moveto -100 50 rlineto stroke ixlc 200 add iyx moveto -100 -50 rlineto stroke ixrc 100 sub iyx moveto -100 50 rlineto stroke ixrc 100 sub iyx moveto -100 -50 rlineto stroke ixrc 300 add iy00 moveto -100 50 rlineto stroke ixrc 300 add iy00 moveto -100 -50 rlineto stroke ixrc 1600 add iy00 moveto -100 50 rlineto stroke ixrc 1600 add iy00 moveto -100 -50 rlineto stroke 0 0 0 setrgbcolor %central box /ixle ixpl 50 add def /iyle yhod iyd 08 mul sub def /iyco iyd 3 mul def 1 1 1 setrgbcolor ixle iyle moveto 1000 0 rlineto 0 iyco rlineto -1000 0 rlineto closepath fill 0 0 0 setrgbcolor ixle iyle moveto 1000 0 rlineto 0 iyco rlineto -1000 0 rlineto closepath stroke ixle 50 add iyle iyd 2 mul add moveto (change by) showea (\304nderung) showde ixle 50 add iyle iyd 1 mul add moveto (gamma ) showea (Gamma ) showde SL (g) show TL ( \176 2.) show ix01 030 add yhod iyd 7 mul sub 150 sub moveto (0,475) show ix03 400 sub yhod iyd 7 mul sub 150 sub moveto (2,105) show ix05 yhod iyd 0 mul sub 150 sub moveto (>288:1) show ix06 yhod iyd 0 mul sub 150 sub moveto (YES) showea (JA) showde } if %xchartl=7 %***************************************************************** grestore %end because of clip % xchartl 0 eq { 100 neg 4500 neg translate} if % xchartl 1 eq { 6100 neg 4500 neg translate} if % xchartl 2 eq { 100 neg 0250 neg translate} if % xchartl 3 eq { 6100 neg 0250 neg translate} if % xchartl 4 eq { 100 neg 4500 neg translate} if % xchartl 5 eq { 5850 neg 4500 neg translate} if % xchartl 6 eq { 100 neg 0250 neg translate} if % xchartl 7 eq { 5850 neg 0250 neg translate} if } for %xchartl=4,7 showpage grestore %} for %output with langind end %%Trailer