%!PS-Adobe-3.0 EPSF-3.0 AF701-3 %%BoundingBox: 70 83 415 320 %START PDFDE011.EPS /pdfmark13 where {pop} {userdict /pdfmark13 /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: http://130.149.60.45/~farbmetrik/AF70/) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices, colour vision) /Creator (klaus.richter@mac.com) /CreationDate (D:2013030112000) /ModDate (D:2013030112000) /DOCINFO pdfmark13 [ /View [ /FitB ] /DOCVIEW pdfmark13 %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 % !Exchange 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 /RK {250 /Times-Roman FS} bind def /RM {265 /Times-Roman FS} bind def /RG {350 /Times-Roman FS} bind def /RIK {250 /Times-Italic FS} bind def /RIM {265 /Times-Italic FS} bind def /RIG {350 /Times-Italic FS} bind def /RBK {250 /Times-Bold FS} bind def /RBM {265 /Times-Bold FS} bind def /RBG {350 /Times-Bold FS} bind def /RBIK {250 /Times-BoldItalic FS} bind def /RBIM {265 /Times-BoldItalic FS} bind def /RBIG {350 /Times-BoldItalic FS} bind def /TK {250 /Times-ISOL1 FS} bind def /TM {265 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {265 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {265 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {265 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /TSK {250 /Symbol FS} bind def /TSM {300 /Symbol FS} bind def /TSG {350 /Symbol FS} bind def /nshow {TM show} bind def /kshow {TIM show} bind def /bshow {TBM show} bind def /jshow {TBIM show} bind def /ibshown {TBK -50 -50 rmoveto show 0 50 rmoveto TBM} bind def /ibshow0 {TBK -00 -50 rmoveto show 0 50 rmoveto TBM} bind def /ishown {TK -50 -50 rmoveto show 0 50 rmoveto TM } bind def /ishow0 {TK -00 -50 rmoveto show 0 50 rmoveto TM } bind def %%ENDProlog gsave /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 /showfr {2 lanind eq {show} {pop} ifelse} bind def /showes {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 /showm {6 lanind eq {show} {pop} ifelse} bind def %default values /lanind1 2 def /lanind2 2 def /lanindd 01 def /lanindm 01 def /colorm1 00 def /colorm2 00 def /colormd 01 def /colormm 01 def /deintp1 00 def /deintp2 00 def /deintpd 01 def /deintpm 01 def /xcolor1 03 def /xcolor2 03 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 /colsep1 00 def /colsep2 00 def /colsepd 01 def /colsepm 01 def /pmetam1 00 def /pmetam2 00 def /pmetamd 01 def /pmetamm 01 def /xchart3 00 def /xchart4 00 def /xchart5 00 def %usual change of default values /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def /lanindm lanindmf def} if /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def /colormm colormmf def} if /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def /deintpm deintpmf def} if /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def /xcolorm xcolormf def} if /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchartmf def} if /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def /pchartm pchartmf def} if /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def /colsepm colsepmf def} if /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def /pmetamm pmetammf 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 % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % /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 colorm 0 eq deintp 0 eq and {/TxS () def /Txx (dd) def /Fxx (d) def} if colorm 0 eq deintp 1 eq and {/TxS () def /Txx (de) def /Fxx (e) def} if colorm 1 eq deintp 0 eq and {/TxS () def /Txx (dd) def /Fxx (d) def} if colorm 1 eq deintp 1 eq and {/TxS () def /Txx (de) def /Fxx (e) def} if gsave 72 85 moveto 5 /Times-Roman FS (AF701-3) show 72 90 translate /yhoe 8000 def /xhoe 12000 def 0.01 MM dup scale 15 setlinewidth 0.0 0.0 0.0 1.0 setcmykcolor 0 0 moveto xhoe 0 rlineto 0 yhoe rlineto xhoe neg 0 rlineto closepath stroke /S1 100 def /S2 1000 def /S4 6000 def /S5 7000 def /yu1 7600 def %title /yu2 7250 def %companies /yu3 6400 def %options /yu4 4500 def %printer /yu5 2850 def %DIN-Test /yu6 1650 def %1080-Test /yzp 350 def S1 yu1 moveto TBG (Proposed CIE output linearization for printers and offset machines) showea TBM S1 yu2 moveto (Printer or offset company) showea S5 yu2 yzp 0 mul sub moveto TBM (Linearization company:) showea S5 yu2 yzp 1 mul sub moveto TM (Measures 1080 user colours and produces) showea S5 yu2 yzp 2 mul sub moveto TBIM (PS linarization code) showea TM S5 yu2 yzp 3 mul sub moveto (for user device and paper) showea S2 yu3 yzp 0 mul sub moveto TBM (realized output options:) showea S2 yu3 yzp 1 mul sub moveto TM (Company preference (Y/N)?) showea S2 yu3 yzp 2 mul sub moveto (DIN 33872 (CIE?) linearized (Y/N)?) showea S2 yu3 yzp 3 mul sub moveto (Only one option not specified (Y/N)?) showea S1 100 add yu4 yzp 0 mul sub moveto TM (User printer or offset device) showea S1 100 add yu4 yzp 1 mul sub moveto (without or with device specific) showea S1 100 add yu4 yzp 2 mul sub moveto TBIM (PS linearization code) showea S1 100 add yu4 yzp 3 mul sub moveto TM (in print output software.) showea S1 3500 add yu4 yzp 2 mul sub moveto S1 500 add 3500 add yu4 yzp 2 mul sub lineto S5 -500 add yu2 yzp 1.7 mul sub lineto S5 yu2 yzp 1.7 mul sub lineto stroke S1 3500 add yu4 yzp 2 mul sub moveto 100 40 rlineto stroke S1 3500 add yu4 yzp 2 mul sub moveto 100 -40 rlineto stroke S5 -500 add yu2 yzp 1.7 mul sub moveto 100 40 rlineto stroke S5 -500 add yu2 yzp 1.7 mul sub moveto 100 -40 rlineto stroke %rectangle S1 yu4 yzp 3.5 mul sub moveto 3500 0 rlineto 0 yzp 4.5 mul rlineto -3500 0 rlineto closepath stroke S1 500 add yu4 yzp 1 mul add moveto 0 2300 rlineto stroke S1 500 add yu4 yzp 1 mul add moveto 040 100 rlineto stroke S1 500 add yu4 yzp 1 mul add moveto -040 100 rlineto stroke S1 800 add yu4 yzp 1 mul add moveto 0 2300 rlineto stroke S1 800 add yu4 yzp 1 mul add moveto 040 100 rlineto stroke S1 800 add yu4 yzp 1 mul add moveto -040 100 rlineto stroke S1 yu5 yzp 0 mul sub moveto TBM (User visual test) showea S1 yu5 yzp 1 mul sub moveto TM (with output of DIN 33872\255X test charts.) showea S1 yu5 yzp 2 mul sub moveto (Agrees the output with the user wishes (Y/N)?) showea S1 yu6 yzp 0 mul sub moveto (If No (N) agreement to the user wishes then:) showea S1 yu6 yzp 1 mul sub moveto (Output of reference test chart with 1080 colours.) showea S1 yu6 yzp 2 mul sub moveto (Continues colour change in output (Y/N)?) showea S1 yu6 yzp 3 mul sub moveto (If Yes, then linearization possible and decision:) showea S1 yu6 yzp 4 mul sub moveto (Mail the output to a linearization company.) showea 4800 yu6 yzp 3.7 mul sub moveto 11600 4800 sub 0 rlineto 0 6950 rlineto -1700 0 rlineto stroke 4800 500 add yu6 yzp 3.7 mul sub moveto -100 40 rlineto stroke 4800 500 add yu6 yzp 3.7 mul sub moveto -100 -40 rlineto stroke 11400 1600 sub yu6 yzp 3.7 mul sub 6950 add moveto 100 40 rlineto stroke 11400 1600 sub yu6 yzp 3.7 mul sub 6950 add moveto 100 -40 rlineto stroke S4 yu4 yzp 0 mul sub moveto RM (For test charts of DIN 33872-1 to -6 see) showea S4 yu4 yzp 1 mul sub moveto 0 0 1 setrgbcolor (http://www.ps.bam.de/33872E) showea 0 setgray S4 yu4 yzp 3 mul sub moveto TBM (Advantages of Output Linearization:) showea S4 yu4 yzp 4 mul sub moveto RM (- Linear relation between rgb and CIELAB data.) showea S4 yu4 yzp 5 mul sub moveto RM (- No loss of visual information for 16 step) showea S4 yu4 yzp 6 mul sub moveto TM ( colour series on different colour devices.) showea S4 yu4 yzp 7 mul sub moveto RM (- Grey is printed by black only and not by CMY) showea S4 yu4 yzp 8 mul sub moveto TM ( (complete under colour removal), low cost.) showea showpage grestore %} for %output showpage %%Trailer