%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/EG05/EG050-1A 20230801 %%BoundingBox: 70 85 236 206 %START PDFDE011.EPS /pdfmark00 where {pop} {userdict /pdfmark00 /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/EG05/EG05.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 pdfmark00 [ /View [ /Fit ] /DOCVIEW pdfmark00 %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 0 def /lanind2 0 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 0 def xbtex0 1 eq {%xbtex0=1 TL 100 -150 moveto (EG050-1A) show } if %xbtex0=1 %/xchart 3 def 0 1 0 {/xchartl exch def %xchartl=0,3 20 setlinewidth % xchartl 0 eq { 100 4500 translate} if % xchartl 1 eq { 5850 4500 translate} if % xchartl 2 eq { 100 0250 translate} if % xchartl 3 eq { 5850 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 TL 100 -150 moveto (EG050-) show xchartl 1 add cvishow (A) show %A %(, part ) showea (, Teil ) showde xchartl 1 add cvishow 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 0 eq {%xchartl=0 %STOP0 /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 (analog input -> copier -> analog output ) showea (analoge Eingabe -> Kopierer -> 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 copier driver has the relative gamma ) showea (In diesem voreingestellten Fall hat der Kopierertreiber 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 (analog) showea (analoge) showde ix02 yhod moveto (copier) 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 (Ausgabe) 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 TBS ixpl 50 add iypl 2800 add moveto (copier device) showea (Kopierger\344t) showde %ixpl 50 add iypl 2600 add moveto (device) showea (Ger\344t) showde TIL ix04 2600 moveto (darker) showea (dunklere) showde TBIL ix04 2450 moveto (pleasant?) 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 1 0 0 setrgbcolor 0 4 4 {/i exch def %i=0,4 /iyi yhod iyd i mul sub 70 add def ixrc iyi moveto 300 0 rlineto stroke } for %i=0,4 0 1 0 setrgbcolor %right outer horizontal green connection ixrc 1000 add iyx moveto 1500 0 rlineto stroke 1 0 0 setrgbcolor 0 4 4 {/i exch def %i=0,4 /iyi yhod iyd i mul sub 70 add def ixrc 1000 add iyi moveto 1500 0 rlineto stroke } for %i=0,4 0 1 0 setrgbcolor %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 1 0 0 setrgbcolor 0 4 4 {/i exch def %i=0,4 /iyi yhod iyd i mul sub 70 add def ixrc 300 add iyi moveto -100 50 rlineto stroke ixrc 300 add iyi moveto -100 -50 rlineto stroke } for %i=0,4 0 1 0 setrgbcolor ixrc 1600 add iyx moveto -100 50 rlineto stroke ixrc 1600 add iyx moveto -100 -50 rlineto stroke 1 0 0 setrgbcolor 0 4 4 {/i exch def %i=0,4 /iyi yhod iyd i mul sub 70 add def ixrc 1600 add iyi moveto -100 50 rlineto stroke ixrc 1600 add iyi moveto -100 -50 rlineto stroke } for %i=0,4 0 1 0 setrgbcolor 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 \304nderung) showde ixle 50 add iyle iyd 1 mul add moveto (of gamma ) showea (von Gamma ) 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) show ix05 yhod iyd 0 mul sub 150 sub moveto (>288:1) show ix06 yhod iyd 0 mul sub 150 sub moveto (NO?) show ix05 yhod iyd 4 mul sub 150 sub moveto (>288:1) show ix06 yhod iyd 4 mul sub 150 sub moveto (NO?) show } if %xchartl=0 %***************************************************************** xchartl 1 eq {%xchartl=1 %STOP1 /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 -> display -> analog output ) showea (digitale Eingabe -> Display -> 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 display driver has eight relative gamma ) showea (In diesem speziellen Fall hat der Displaytreiber acht relative gamma ) showde SL (g) show TL ( = x?) 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 (display) 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 (Ausgabe) 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 TBS ixpl 50 add iypl 2800 add moveto (display device) showea (Displayger\344t) showde ixpl 50 add iypl 2600 add moveto (of ) showea (von ) showde (ISO 9241\255) show ixpl 50 add iypl 2400 add moveto (306:2018) show TIL ix04 2600 moveto (darker) showea (dunklere) showde TBIL ix04 2450 moveto (pleasant?) 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 iy14 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 8 1 14 {/i exch def %i=8,14 /iyi yhod iyd i mul sub 70 add def ixrc iyi moveto 300 0 rlineto stroke } for %i=8,14 %right outer horizontal green connection %ixrc 1000 add iyx moveto 1500 0 rlineto stroke 7 3 13 {/i exch def %i=10,13 /iyi yhod iyd i mul sub 70 add def ixrc 1000 add iyi moveto 1500 0 rlineto stroke } for %i=10,13 %horixontal inner left to right connection ixlc iyx moveto ixrc iyx lineto 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 8 1 14 {/i exch def %i=8,14 /iyi yhod iyd i mul sub 70 add def ixrc 300 add iyi moveto -100 50 rlineto stroke ixrc 300 add iyi moveto -100 -50 rlineto stroke } for %i=8,14 7 3 13 {/i exch def %i=7,13 /iyi yhod iyd i mul sub 70 add def ixrc 1600 add iyi moveto -100 50 rlineto stroke ixrc 1600 add iyi moveto -100 -50 rlineto stroke } for %i=7,13 /iyi yhod iyd 10 mul sub 70 add def ixrc 1600 add iyx moveto -100 50 rlineto stroke ixrc 1600 add iyx moveto -100 -50 rlineto stroke /iyi yhod iyd 13 mul sub 70 add def 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 (change by) showea (\304nderung) showde ixle 50 add iyle iyd 1 mul add moveto (gamma ) showea (Gamma ) showde SL (g) show TL (=) show TIL (x?) 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 TIL (x?) show TL ix05 yhod iyd 7 mul sub 150 sub moveto (>288:1) show ix06 yhod iyd 7 mul sub 150 sub moveto (YES) show ix05 yhod iyd 10 mul sub 150 sub moveto (36:1) show ix06 yhod iyd 10 mul sub 150 sub moveto (YES) show ix05 yhod iyd 13 mul sub 150 sub moveto (4,5:1) show ix06 yhod iyd 13 mul sub 150 sub moveto (YES) show } if %xchartl=1 %***************************************************************** xchartl 2 eq {%xchartl=2 %STOP2 /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 (Ausgabe) 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 TBS ixpl 50 add iypl 2800 add moveto (printer device) showea (Druckerger\344t) showde %ixpl 50 add iypl 2600 add moveto (device) showea (ger\344t) showde TIL ix04 2600 moveto (darker) showea (dunklere) showde TBIL ix04 2450 moveto (pleasant?) 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 1 0 0 setrgbcolor 0 4 4 {/i exch def %i=0,4 /iyi yhod iyd i mul sub 70 add def ixrc iyi moveto 300 0 rlineto stroke } for %i=0,4 0 1 0 setrgbcolor %right outer horizontal green connection ixrc 1000 add iyx moveto 1500 0 rlineto stroke 1 0 0 setrgbcolor 0 4 4 {/i exch def %i=0,4 /iyi yhod iyd i mul sub 70 add def ixrc 1000 add iyi moveto 1500 0 rlineto stroke } for %i=0,4 0 1 0 setrgbcolor %horixontal inner left to right connection ixlc iyx moveto ixrc iyx lineto 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 1 0 0 setrgbcolor 0 4 4 {/i exch def %i=0,4 /iyi yhod iyd i mul sub 70 add def ixrc 300 add iyi moveto -100 50 rlineto stroke ixrc 300 add iyi moveto -100 -50 rlineto stroke } for %i=0,4 0 1 0 setrgbcolor ixrc 1600 add iyx moveto -100 50 rlineto stroke ixrc 1600 add iyx moveto -100 -50 rlineto stroke 1 0 0 setrgbcolor 0 4 4 {/i exch def %i=0,4 /iyi yhod iyd i mul sub 70 add def ixrc 1600 add iyi moveto -100 50 rlineto stroke ixrc 1600 add iyi moveto -100 -50 rlineto stroke } for %i=0,4 0 1 0 setrgbcolor 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 \304nderung) showde ixle 50 add iyle iyd 1 mul add moveto (of gamma ) showea (von Gamma ) 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) show ix05 yhod iyd 0 mul sub 150 sub moveto (>288:1) show ix06 yhod iyd 0 mul sub 150 sub moveto (NO?) show ix05 yhod iyd 4 mul sub 150 sub moveto (>288:1) show ix06 yhod iyd 4 mul sub 150 sub moveto (NO?) show } if %xchartl=2 %***************************************************************** xchartl 3 eq {%xchartl=3 %STOP3 /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 at work places: ) showea (Farbmetrischer Workflow: ) showde (digital input -> printer -> analog output) showea (digitale Eingabe -> Drucker -> analoge Ausgabe ) showde ix0 yhoe iyd 1 mul sub moveto (Identical ISO\255test charts of ISO/IEC 15775 ) showea (and ISO 9241\255306 for gamma ) showea SL (g) showea (Identiche ISO\255Pr\374fvorlagen von ISO/IEC 15775 ) showde (und ISO 9241\255306 f\374r Gamma) showde (=1) show 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 3850 def /ix05 4450 def /ix06 5050 def /ixa4 ix04 50 sub def /ixa5 ix05 50 sub def /ixa6 ix06 50 sub 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 ixa4 yhod moveto (analog) showea (analoge) showde ixa5 yhod moveto (output) showea (Ausgabe\255) showde ixa6 yhod moveto (ISO) showea (ISO\255Aus\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 ixa4 yhod1 moveto (output) showea (Ausgabe) showde ixa5 yhod1 moveto (contrast) showea (kontrast) showde ixa6 yhod1 moveto (output) showea (gabe) showde ix01 30 add 2100 moveto (file) showea (Datei) showde ix01 30 add 0700 moveto (file) showea (Datei) showde ix01 30 add 2100 iyd sub moveto TIL ( N) show ix01 30 add 0700 iyd sub moveto TIL ( P) show %large printer box (l=left) /ixpl 1400 def /iypl 50 def /ixwidth 2400 def /iywidth 3000 def ixpl iypl moveto ixwidth 0 rlineto 0 iywidth rlineto ixwidth neg 0 rlineto closepath stroke TBS ixpl 50 add iypl 2800 add moveto (printer device) showea (Druckerger\344t) showde ixpl 50 add iypl 2600 add moveto (DIN EN ISO) show ixpl 50 add iypl 2400 add moveto (9241\255306:2018) show ixpl 50 add iypl 1100 add moveto TV (2,105 = 1/0,475) show TL ixpl 50 add iypl 0970 add moveto TV (1,290 = 1/0,775) show TL TIL ix04 2600 moveto (darker) showea (dunklere) showde TBIL ix04 2450 moveto (pleasant?) 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 1 0 0 setrgbcolor 7 3 10 {/i exch def %i=7,10 /iyi yhod iyd i mul sub 70 add def ixlc 300 sub iyi moveto 300 0 rlineto stroke } for %i=7,10 0 1 0 setrgbcolor %right horizontal green connection ixrc iy00 moveto 300 0 rlineto stroke 1 0 0 setrgbcolor 4 3 7 {/i exch def %i=4,7 /iyi yhod iyd i mul sub 70 add def ixrc iyi moveto 300 0 rlineto stroke } for %i=4,7 0 1 0 setrgbcolor %right outer horizontal green connection ixrc 0900 add iy00 moveto 1700 0 rlineto stroke 1 0 0 setrgbcolor 4 3 7 {/i exch def %i=4,7 /iyi yhod iyd i mul sub 70 add def ixrc 0900 add iyi moveto 1700 0 rlineto stroke } for %i=4,7 0 1 0 setrgbcolor %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 1 0 0 setrgbcolor 7 3 10 {/i exch def %i=7,10 /iyi yhod iyd i mul sub 70 add def ixlc 200 sub iyi moveto -100 50 rlineto stroke ixlc 200 sub iyi moveto -100 -50 rlineto stroke } for %i=7,10 0 1 0 setrgbcolor 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 1 0 0 setrgbcolor 4 3 7 {/i exch def %i=4,7 /iyi yhod iyd i mul sub 70 add def ixrc 300 add iyi moveto -100 50 rlineto stroke ixrc 300 add iyi moveto -100 -50 rlineto stroke } for %i=4,7 0 1 0 setrgbcolor ixrc 1600 add iy00 moveto -100 50 rlineto stroke ixrc 1600 add iy00 moveto -100 -50 rlineto stroke 1 0 0 setrgbcolor 4 3 7 {/i exch def %i=4,7 /iyi yhod iyd i mul sub 70 add def ixrc 1600 add iyi moveto -100 50 rlineto stroke ixrc 1600 add iyi moveto -100 -50 rlineto stroke } for %i=4,7 0 1 0 setrgbcolor 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) show ix05 yhod iyd 4 mul sub 150 sub moveto (>288:1) show ix06 yhod iyd 4 mul sub 150 sub moveto (NO) show ix05 yhod iyd 7 mul sub 150 sub moveto (>288:1) show ix06 yhod iyd 7 mul sub 150 sub moveto (NO) show } if %xchartl=3 %***************************************************************** grestore %end because of clip % xchartl 0 eq { 100 neg 4500 neg translate} if % xchartl 1 eq { 5850 neg 4500 neg translate} if % xchartl 2 eq { 100 neg 0250 neg translate} if % xchartl 3 eq { 5850 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=0,3 showpage grestore %} for %output with langind end %%Trailer