%!PS-Adobe-3.0 EPSF-3.0 OE781-7A.EPS
%%BoundingBox: 71 82 422 330
 
%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: http://130.149.60.45/~farbmetrik/OE40/)
  /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:2011030112000)
  /ModDate (D:2011030112000)
/DOCINFO pdfmark17
[ /View [ /FitB ]
/DOCVIEW pdfmark17
%END  PDFDE011

% !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     %Umrechnung Inch -> mm
/A4quer {598 0 translate 90 rotate} def
/languagelevel where {pop languagelevel} {1} ifelse
                     /PSL12 exch def
/dictende {counttomark 2 idiv dup dict begin {def}
           repeat pop currentdict end} bind def

/TKK {200 /Times-ISOL1 FS} bind def
/TK {250 /Times-ISOL1 FS} bind def
/TM {280 /Times-ISOL1 FS} bind def
/TG {350 /Times-ISOL1 FS} bind def

/TIK {250 /TimesI-ISOL1 FS} bind def
/TIM {280 /TimesI-ISOL1 FS} bind def
/TIG {350 /TimesI-ISOL1 FS} bind def

/TBKK {200 /TimesB-ISOL1 FS} bind def
/TBK {250 /TimesB-ISOL1 FS} bind def
/TBM {280 /TimesB-ISOL1 FS} bind def
/TBG {350 /TimesB-ISOL1 FS} bind def

/TBIK {250 /TimesBI-ISOL1 FS} bind def
/TBIM {280 /TimesBI-ISOL1 FS} bind def
/TBIG {350 /TimesBI-ISOL1 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

/tzocmy0* {0.0 1.0 1.0 0.0} bind def %Reproduction colours
/tzlcmy0* {1.0 0.0 1.0 0.0} bind def %cmyn* setcmykcolor
/tzvcmy0* {1.0 1.0 0.0 0.0} bind def
/tzccmy0* {1.0 0.0 0.0 0.0} bind def
/tzmcmy0* {0.0 1.0 0.0 0.0} bind def
/tzycmy0* {0.0 0.0 1.0 0.0} bind def

/tzoolv* {1.0 0.0 0.0} bind def %Reproduction colours
/tzlolv* {0.0 1.0 0.0} bind def %olv* setrgbcolor
/tzvolv* {0.0 0.0 1.0} bind def
/tzcolv* {0.0 1.0 1.0} bind def
/tzmolv* {1.0 0.0 1.0} bind def
/tzyolv* {1.0 1.0 0.0} bind def
 
/tzncmy0* {1.00 1.00 1.00 0.00} bind def %grey series
/tzdcmy0* {0.75 0.75 0.75 0.00} bind def %cmy0* setcmykcolor
/tzzcmy0* {0.50 0.50 0.50 0.00} bind def
/tzhcmy0* {0.25 0.25 0.25 0.00} bind def
/tzwcmy0* {0.00 0.00 0.00 0.00} bind def
 
/tzn000n* {0.00 0.00 0.00 1.00} bind def %grey series 000n*
/tzd000n* {0.00 0.00 0.00 0.75} bind def %000n* setcmykcolor
/tzz000n* {0.00 0.00 0.00 0.50} bind def
/tzh000n* {0.00 0.00 0.00 0.25} bind def
/tzw000n* {0.00 0.00 0.00 0.00} bind def

/tznw* {0.00} bind def %grey series
/tzdw* {0.25} bind def %w* 1.0 exp setgray
/tzzw* {0.50} bind def
/tzhw* {0.75} bind def
/tzww* {1.00} bind def

/tznolv* {0.00 0.00 0.00} bind def %grey series
/tzdolv* {0.25 0.25 0.25} bind def %olv* setrgbcolor
/tzzolv* {0.50 0.50 0.50} bind def
/tzholv* {0.75 0.75 0.75} bind def
/tzwolv* {1.00 1.00 1.00} bind def

/DecodeXYZ* {dup 6 29 div ge {dup dup mul mul}
            {4 29 div sub 108 841 div mul} ifelse} bind def

/cvishow {cvi 6 string cvs show} def
/cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def
/cvsshow2 {100 mul cvi 0.01 mul 7 string cvs show} def
/cvsshow3 {1000 mul cvi 0.001 mul 7 string cvs show} def

%*************************************************************************

%%EndProlog
gsave

%LANINDL2.EPS START  20000505
/lanind 0 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 {2 lanind eq {show} {pop} ifelse} bind def
/showfr {3 lanind eq {show} {pop} ifelse} bind def
/showit {4 lanind eq {show} {pop} ifelse} bind def
/showjp {5 lanind eq {show} {pop} ifelse} bind def
/showm  {6 lanind eq {show} {pop} ifelse} bind def
 
/popde {0 lanind ne {pop} if} bind def
/popen {1 lanind ne {pop} if} bind def
/popes {2 lanind ne {pop} if} bind def
/popfr {3 lanind ne {pop} if} bind def
/popit {4 lanind ne {pop} if} bind def
/popjp {5 lanind ne {pop} if} bind def
/popm  {6 lanind ne {pop} if} bind def
 
/popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def
/popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def
/popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def
/popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def
/popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def
/popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def
/popxm  {/n exch def 6 lanind ne {n {pop} repeat} if} bind def
 
/lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def}
               {/lanind1 1 def /lanind2 1 def} ifelse
/colormg where {pop /colorm1 colormg def /colorm2 colormg def}
               {/colorm1 0 def /colorm2 0 def} ifelse
/xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def}
               {/xcolor1 3 def /xcolor2 3 def} ifelse
/xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def
                    /xchartd xchartgd def}
               {/xchart1 0 def /xchart2 7 def /xchartd 1 def} ifelse
/pchartg where {pop /pchart1 pchartg def /pchart2 pchartg def
                    /pchartd pchartgd def}
               {/pchart1 0 def /pchart2 2 def /pchartd 1 def} ifelse

/lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage
/colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage
/xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage
/xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage
/pchart pchart1 def %pchart1 1 pchart2 {/pchart exch def %output showpage

/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
      
/colorml colorm def
%0 1 1 {/colorml exch def %colorml=0,1

/xcolorl xcolor def
%0 1 3 {/xcolorl exch def %xcolorl=0,3

/xchartl xchart def
0 1 7 {/xchartl exch def %xchartl=0,7

/pchartl pchart def
0 1 2 {/pchartl exch def %pchartl=0,2

gsave

xcolorl 0 eq {/tfnx* {0 0 0 1 setcmykcolor} def
              /tfwx* {0 0 0 0 setcmykcolor} def
              /colrecfix* {setcmykcolor rec fill} bind def
              /colrecstx* {setcmykcolor rec stroke} bind def
             } if
xcolorl 1 eq {/tfnx* {0 setgray} def
              /tfwx* {1 setgray} def
              /colrecfix* {setgray rec fill} bind def
              /colrecstx* {setgray rec stroke} bind def
             } if
xcolorl 2 eq {/tfnx* {1 1 1 0 setcmykcolor} def
              /tfwx* {0 0 0 0 setcmykcolor} def
              /colrecfix* {setcmykcolor rec fill} bind def
              /colrecstx* {setcmykcolor rec stroke} bind def
             } if
xcolorl 3 eq {/tfnx* {0 0 0 setrgbcolor} def
              /tfwx* {1 1 1 setrgbcolor} def
              /colrecfix* {setrgbcolor rec fill} bind def
              /colrecstx* {setrgbcolor rec stroke} bind def
             } if

pchartl 1 eq {%pchartl=1

72 90 translate
0.01 MM dup scale

20 setlinewidth
1.0 setgray
0 0 moveto 12000 0 rlineto 0 8300 rlineto
          -12000 0 rlineto closepath fill

0.0 setgray
0 0 moveto 12000 0 rlineto 0 8300 rlineto
          -12000 0 rlineto closepath stroke

TM
00100 -240 moveto (Teil 4) showde (Part 4) showen
9500 -240 moveto (OE781-7A) show
(\255) show colorml cvishow xcolorl cvishow
xchartd 1 eq {xchartl cvishow}
             {xchartl xchartd idiv cvishow} ifelse
(\255) show pchartl cvishow %(: ) show

/x20 100 def
/y1 8000 def
/yd 320 def

/y11 y1 def
/y12 y1 yd 1.0 mul sub def

x20 y11 moveto
TBG (Documentation of assessor colour vision properties) showen
    ( for visual assessment) showen
    (Dokumentation der Beurteiler\255Farbseheigenschaften) showde
    ( f\374r diese Pr\374fung:) showde

x20 y12 moveto
TM  (The assessor has) showen
TBM ( normal) showen
TM  ( colour vision according to one test:) showen
TM  (Der Beurteiler hat) showde
TBM ( normales) showde TM ( Farbsehen nach einer Pr\374fung:) showde
x20 8400 add y12 moveto
TBM ( underline  Yes/No) showen
    ( unterstreiche Ja/Nein) showde

x20 300 add y12 yd 1 mul sub moveto
TM ( entweder nach DIN 6160:1996 mit Anomaloskop nach) showde
   ( either according to DIN 6160:1996 with Anomaloskop of) showen
TIM ( Nagel) show
x20 8400 add y12 yd 1 mul sub moveto
TBM ( underline  Yes/unknown) showen
    ( unterstreiche Ja/unbekannt) showde

x20 300 add y12 yd 2 mul sub moveto
TM ( oder mit Farbpunkt\255Pr\374ftafeln nach) showde
   ( or with test charts using colour points according to) showen
TIM ( Ishihara) show
x20 8400 add y12 yd 2 mul sub moveto
TBM ( underline  Yes/unknown) showen
    ( unterstreiche Ja/unbekannt) showde

x20 300 add y12 yd 3 mul sub moveto
TM ( oder mit, bitte nennen:............................................) showde
   ( or tested with, please specify: ...................................) showen
x20 8400 add y12 yd 3 mul sub moveto
TBM ( underline  Yes/unknown) showen
    ( unterstreiche Ja/unbekannt) showde
   
/y21 y12 yd 4.2 mul sub def
/y22 y12 yd 5.2 mul sub def

x20 y21 moveto
TBG (For visual evaluation of the display (monitor, data projector) output) showen
    (F\374r visuelle Bewertung der Display(Monitor, Daten\255Projektor)\255Ausgabe) showde

x20 300 add y22 moveto
TM (B\374ro\255Arbeitsplatz\255Beleuchtung ist Tageslicht (bedeckter/Nordhimmel)) showde
   (Office workplace illumination is daylight (clouded/north sky)) showen
x20 8900 add y22 moveto
TBM (underline  Yes/No) showen
    (unterstreiche Ja/Nein) showde
    
x20 300 add y22 yd sub moveto
TBM (PDF file:) showen
    (PDF\255Datei:) showde

x20 1500 add y22 yd sub moveto
TM (http://130.149.60.45/farbmetrik/OE78/OE78) show
   (F1P) show
   (2.PDF) show
   
x20 8900 add y22 yd sub moveto
TBM (underline  Yes/No) showen
    (unterstreiche Ja/Nein) showde

x20 300 add y22 yd 2 mul sub moveto
TBM (PS file:) showen
    (PS\255Datei:) showde

x20 1500 add y22 yd 2 mul sub moveto
TM (http://130.149.60.45/farbmetrik/OE78/OE78) show
   (F1P) show
   (2.PS) show
   
x20 8900 add y22 yd 2 mul sub moveto
TBM (underline  Yes/No) showen
    (unterstreiche Ja/Nein) showde
    
    
%x20 300 add y22 yd 2 mul sub moveto
%TM (Vergleich Kontrastbereich der 16 Stufen F bis 0 mit Pr\374fvorlage) showde
%   (Comparison of contrast range of 16 steps F to 0 with test chart) showen
%TM ( Nr. 3 von DIN 33866\2551:2000) showde
%   ( no. 3 of DIN 33866\2551:2000) showen

x20 300 add y22 yd 3 mul sub moveto
TBM (Picture A7) showen (Bild A7) showde TM
(\255) show colorml cvishow xcolorl cvishow
xchartd 1 eq {xchartl cvishow}
             {xchartl xchartd idiv cvishow} ifelse
(\255) show (2: ) show %pchartl cvishow

TBM (Kontastbereich:) showde
    (contrast range:) showen
TM ( (>F:0) (F:0) (E:0) (D:0) (C:0) (A:0) (9:0) (7:0) (5:0) (3:0) (<3:0)) show
    
x20 300 add y22 yd 4 mul sub moveto
TM (compare standard print output according to ISO/IEC 15775 with range F:0) showen
   (vergleiche Normdruckausgabe nach ISO/IEC 15775 mit Bereich F:0) showde

x20 8900 add y22 yd 4 mul sub moveto
TBM (underline range) showen
    (unterstreiche Bereich) showde
    
x20 600 add y22 yd 5 mul sub moveto
TIM (Anmerkung: Bei Tageslichtb\374robeleuchtung ist der Kontrastbereich oft:) showde
   (Remark: In daylighted offices the contrast range is in many cases:)  showen
%x20 600 add y22 yd 5 mul sub moveto
%TIM (auf Papier zwischen: >F:0 (Hochglanz), F:0 (Seidenglanz) und E:0 (Matt)) showde
%   (on paper between: >F:0 (highly glossy), F:0 (silk glossy) and E:0 (matte)) showen 
x20 600 add y22 yd 6 mul sub moveto
TIM (am Display zwischen: >F:0 und E:0 (Monitor), D:0 und 3:0 (Datenprojektor)) showde
    (on display between: >F:0 and E:0 (monitor), D:0 and 3:0 (data projector)) showen


/y31 y22 yd 7.2 mul sub def
/y32 y22 yd 8.2 mul sub def

x20 y31 moveto
TBG (Only for optional colorimetric specification with PDF/PS file output) showen
    (Nur f\374r optionale farbmetrische Kennzeichnung mit PDF/PS\255Dateiausgabe) showde

x20 y32 moveto
TBM (PDF\255File:) showen
    (PDF\255Datei:) showde
x20 1500 add y32 moveto
TM (http://130.149.60.45/farbmetrik/OE78/OE78) show
   (F1P) show
   (2.PDF) show

x20 1500 add y32 yd 1 mul sub moveto
TBM (picture A7) showen (Bild A7) showde TM
(\255) show colorml cvishow xcolorl cvishow
xchartd 1 eq {xchartl cvishow}
             {xchartl xchartd idiv cvishow} ifelse
(\255) show (2) show %pchartl cvishow

x20 8990 add y32 yd 1 mul sub moveto
TBM (underline  Yes/No) showen
    (unterstreiche Ja/Nein) showde

x20 y32 yd 2 mul sub moveto
TBM (PS\255File:) showen
    (PS\255Datei:) showde
x20 1500 add y32 yd 2 mul sub moveto
TM (http://130.149.60.45/farbmetrik/OE78/OE78) show
   (F1P) show
   (2.PS) show

x20 1500 add y32 yd 3 mul sub moveto
TBM (picture A7) showen (Bild A7) showde TM
(\255) show colorml cvishow xcolorl cvishow
xchartd 1 eq {xchartl cvishow}
             {xchartl xchartd idiv cvishow} ifelse
(\255) show (2) show %pchartl cvishow

x20 8400 add y32 yd 3 mul sub moveto
TBM (    or underline  Yes/No) showen
    (oder unterstreiche Ja/Nein) showde

x20 y32 yd 4 mul sub moveto
TBM (Farbmessung und Kennzeichnung f\374r:) showde
    (colour measurement and specification for:) showen
x20 300 add y32 yd 5 mul sub moveto
TM (CIE\255Normlichtart D65, CIE\2552\255Grad\255Beobachter, CIE\25545/0\255Geometrie) showde
   (CIE standard illuminant D65, 2 degree observer, CIE 45/0 geometry:) showen
x20 8900 add y32 yd 5 mul sub moveto
TBM (underline  Yes/No) showen
    (unterstreiche Ja/Nein) showde
x20 300 add y32 yd 6 mul sub moveto
TM (Wenn Nein, bitte andere Parameter nennen: ...................................) showde
   (If No, please give other parameters: ...........................................) showen

x20 y32 yd 7 mul sub moveto
TBM (Farbmetrische Kennzeichnung mit PS\255Datei f\374r Farben der Spalten A bis T) showde
    (Colorimetric specification with PS file for colours in the columns A to T) showen

x20 300 add y32 yd 8 mul sub moveto
TM (Ersatz der CIELAB\255Daten in Datei) showde
   (Exchange of CIELAB data in file) showen  
TM ( www.ps.bam.de/De17/10L/L17e00NP.PS) showen
   ( www.ps.bam.de/Dg17/10L/L17g00NP.PS) showde
TM ( und Transfer) showde
   ( and transfer) showen

x20 300 add y32 yd 9 mul sub moveto
TM (der PS\255Datei L17g00NP.PS in PDF\255Datei L17g00NP.PDF) showde
   (of the PS\255file L17e00NP.PS in PDF\255file L17e00NP.PDF) showen
x20 8900 add y32 yd 9 mul sub moveto
TBM (underline  Yes/No) showen
    (unterstreiche Ja/Nein) showde

x20 300 add y32 yd 10 mul sub moveto
TM (Wenn Nein, bitte andere Methode beschreiben: ..............................) showde
   (If No, please describe other method: ......................................) showen

} if %pchartl=1

showpage
grestore

} for %pchartl=0,2

} for %xchartl=0,7

%} for %xcolorl=0,3

%} for %colorml=0,1

%%Trailer