%!PS-Adobe-3.0 EPSF-3.0 NE090-6
%%BoundingBox: 70 83 226 206
 
%START PDFDE011.EPS
/pdfmark06 where {pop} {userdict /pdfmark06 /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: NE090-6)
  /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1)
  /Subject (goto: http://www.ps.bam.de or http://130.149.60.445/~farbmetrik)
  /Keywords (image reproduction, colour devices)
  /Creator (klaus.richter@me.com)
  /CreationDate (D:2010110112000)
  /ModDate (D:2010110112000)
/DOCINFO pdfmark06
[ /View [ /FitB ]
/DOCVIEW pdfmark06
%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

% !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 /str {8 string } bind def
 
/TK {250 16.67 div /Times-ISOL1 FS} bind def
/TM {300 16.67 div /Times-ISOL1 FS} bind def
/TG {350 16.67 div /Times-ISOL1 FS} bind def
 
/TIK {250 16.67 div /TimesI-ISOL1 FS} bind def
/TIM {300 16.67 div /TimesI-ISOL1 FS} bind def
/TIG {350 16.67 div /TimesI-ISOL1 FS} bind def
 
/TBK {250 16.67 div /TimesB-ISOL1 FS} bind def
/TBM {300 16.67 div /TimesB-ISOL1 FS} bind def
/TBG {350 16.67 div /TimesB-ISOL1 FS} bind def
 
/TBIK {250 16.67 div /TimesBI-ISOL1 FS} bind def
/TBIM {300 16.67 div /TimesBI-ISOL1 FS} bind def
/TBIG {350 16.67 div /TimesBI-ISOL1 FS} bind def
 
/tolvfcol    %Farbkreis-Reihenfolge
[ (000) (F00) (FF0) (0F0) (0FF) (00F) (F0F) (FFF)
  (777) (700) (770) (070) (077) (007) (707) (F07) %15=R
  (333) (F77) (FF7) (7F7) (7FF) (77F) (F7F) (07F) %23=B
  (BBB) (F70) (7F0) (0F7) (07F) (70F) (F07) (0F7) %31=G
] def
 
/tcmyfcol    %Farbkreis-Reihenfolge
[ (FFF) (0FF) (00F) (F0F) (F00) (FF0) (0F0) (000)
  (888) (8FF) (88F) (F8F) (F88) (FF8) (8F8) (0F8) %15=R
  (CCC) (088) (008) (808) (800) (880) (080) (F80) %23=B
  (444) (08F) (80F) (F08) (F80) (8F0) (0F8) (F08) %31=G
] def
 
/tcmykfcol   %Farbkreis-Reihenfolge
[ (000F) (0FF0) (00F0) (F0F0) (F000) (FF00) (0F00) (0000)
  (0008) (0FF8) (00F8) (F0F8) (F008) (FF08) (0F08) (0F80) %15=R
  (000C) (0880) (0080) (8080) (8000) (8800) (0800) (F800) %23=B
  (0004) (0F80) (80F0) (F080) (F800) (8F00) (0F80) (F080) %31=G
] def
 
/tolvfcols    %Farbkreis-Reihenfolge
[ (000*) (F00*) (FF0*) (0F0*) (0FF*) (00F*) (F0F*) (FFF*)
  (777*) (700*) (770*) (070*) (077*) (007*) (707*) (F07*) %15=R
  (333*) (F77*) (FF7*) (7F7*) (7FF*) (77F*) (F7F*) (07F*) %23=B
  (BBB*) (F70*) (7F0*) (0F7*) (07F*) (70F*) (F07*) (0F7*) %31=G
] def
 
/tcmyfcols    %Farbkreis-Reihenfolge
[ (FFF*) (0FF*) (00F*) (F0F*) (F00*) (FF0*) (0F0*) (000*)
  (888*) (8FF*) (88F*) (F8F*) (F88*) (FF8*) (8F8*) (0F8*) %15=R
  (CCC*) (088*) (008*) (808*) (800*) (880*) (080*) (F80*) %23=B
  (444*) (08F*) (80F*) (F08*) (F80*) (8F0*) (0F8*) (F08*) %31=G
] def
 
/tcmykfcols   %Farbkreis-Reihenfolge
[ (000F*) (0FF0*) (00F0*) (F0F0*) (F000*) (FF00*) (0F00*) (0000*)
  (0008*) (0FF8*) (00F8*) (F0F8*) (F008*) (FF08*) (0F08*) (0F80*) %15=R
  (000C*) (0880*) (0080*) (8080*) (8000*) (8800*) (0800*) (F800*) %23=B
  (0004*) (0F80*) (80F0*) (F080*) (F800*) (8F00*) (0F80*) (F080*) %31=G
] def
 
/fcolors     %CMYN 32 Testfarben Nr. 0 bis 31; Farbkreis-Reihenfolge
[{0.0 0.0 0.0 1.0}  {0.0 1.0 1.0 0.0}  {0.0 0.0 1.0 0.0}  {1.0 0.0 1.0 0.0}
 {1.0 0.0 0.0 0.0}  {1.0 1.0 0.0 0.0}  {0.0 1.0 0.0 0.0}  {0.0 0.0 0.0 0.0}
 
 {0.0 0.0 0.0 0.5}  {0.0 1.0 1.0 0.5}  {0.0 0.0 1.0 0.5}  {1.0 0.0 1.0 0.5}
 {1.0 0.0 0.0 0.5}  {1.0 1.0 0.0 0.5}  {0.0 1.0 0.0 0.5}  {0.0 1.0 0.5 0.0}
 
 {0.0 0.0 0.0 0.75} {0.0 0.5 0.5 0.0}  {0.0 0.0 0.5 0.0}  {0.5 0.0 0.5 0.0}
 {0.5 0.0 0.0 0.0}  {0.5 0.5 0.0 0.0}  {0.0 0.5 0.0 0.0}  {1.0 0.5 0.0 0.0}
 
 {0.0 0.0 0.0 0.25} {0.0 0.5 1.0 0.0}  {0.5 0.0 1.0 0.0}  {1.0 0.0 0.5 0.0}
 {1.0 0.5 0.0 0.0}  {0.5 1.0 0.0 0.0}  {0.0 1.0 0.5 0.0}  {1.0 0.0 0.5 0.0}
] def
 
/fak 0.5 def
 
/Far     %Farbkreis-Reihenfolge
 [ 0  1  2  3  4  5  6  7
   8  9 10 11 12 13 14 15 %R
  16 17 18 19 20 21 22 23 %B
  24 25 26 27 28 29 30 31 %G
 ] def
 
/cFar     %Kompensativ-Farbkreis-Reihenfolge
 [ 8  4  5  6  1  2  3  0
   0 20 21 22 17 18 19 31 %G
  24 12 13 14  9 10 11  2 %J
  16 28 29 30 25 26 27 15 %R
 ] def
 
/Btx    %Farbkreis- -> %Btx-Reihenfolge
 [ 0  1  3  2  5  6  4  7
   8  9 11 10 13 14 12 15  %R
  16 17 19 18 21 22 20 23  %B
  24 25 26 27 28 29 30 31  %G
 ] def
 
/cBtx    %Farbkreis- -> %Kompensativ-Btx-Reihenfolge
 [ 7  4  6  5  2  3  1  0
   8 20 22 21 18 19 17 31 %G
  24 12 14 13 10 11  9  2 %J
  16 25 26 27 28 29 30 15 %R
 ] 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
  {setcmyk_olvcolor rec fill} bind def
 
/colrecst %x y width heigth c m y k
  {setcmyk_olvcolor rec stroke} bind def
 
/tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben
/tzl {1.0 0.0 1.0 0.0} bind def
/tzv {1.0 1.0 0.0 0.0} bind def
/tzc {1.0 0.0 0.0 0.0} bind def
/tzm {0.0 1.0 0.0 0.0} bind def
/tzy {0.0 0.0 1.0 0.0} bind def
 
/tzn {0.0 0.0 0.0 1.00} bind def %Graureihe
/tzd {0.0 0.0 0.0 0.75} bind def
/tzz {0.0 0.0 0.0 0.50} bind def
/tzh {0.0 0.0 0.0 0.25} bind def
/tzw {0.0 0.0 0.0 0.00} bind def
 
/tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben
/tzg {1.0 0.0 0.5 0.0} bind def
/tzb {1.0 0.5 0.0 0.0} bind def
/tzj {0.0 0.0 1.0 0.0} bind def
 
/tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut
/tzgz {1.0 0.0 0.5 0.5} bind def
/tzbz {1.0 0.5 0.0 0.5} bind def
/tzjz {0.0 0.0 1.0 0.5} bind def
 
/tfo {tzo setcmyk_olvcolor} bind def
/tfl {tzl setcmyk_olvcolor} bind def
/tfv {tzv setcmyk_olvcolor} bind def
/tfc {tzc setcmyk_olvcolor} bind def
/tfm {tzm setcmyk_olvcolor} bind def
/tfy {tzy setcmyk_olvcolor} bind def
 
/tfn {tzn setcmyk_olvcolor} bind def
/tfd {tzd setcmyk_olvcolor} bind def
/tfz {tzz setcmyk_olvcolor} bind def
/tfh {tzh setcmyk_olvcolor} bind def
/tfw {tzw setcmyk_olvcolor} bind def
 
/tfr {tzr setcmyk_olvcolor} bind def
/tfg {tzg setcmyk_olvcolor} bind def
/tfb {tzb setcmyk_olvcolor} bind def
/tfj {tzj setcmyk_olvcolor} bind def
 
/tfrz {tzrz setcmyk_olvcolor} bind def
/tfgz {tzgz setcmyk_olvcolor} bind def
/tfbz {tzbz setcmyk_olvcolor} bind def
/tfjz {tzjz setcmyk_olvcolor} bind def
 
%ANFA OUTLIN00 951204
/pixf 1.0 def /ueg 1 pixf mul def /uek 1 pixf mul def /ues 1 pixf mul def
/pxd uek def /pyd uek def /pxwd ueg def /pywd ueg def /pss ues def
 
/outxshowf {show} bind def
 
/outxshow {show} bind def
 
/SK {250 16.67 div 1 sub pixf mul /Symbol FS} bind def
/SM {300 16.67 div 1 sub pixf mul /Symbol FS} bind def
/SG {350 16.67 div 1 sub pixf mul /Symbol FS} bind def
 
/outSK {250 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def
/outSM {300 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def
/outSG {350 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def
 
/outshowf {setcmyk_olvcolor show} bind def
 
/outrecfi { %x y width heigth c m y k
   setcmyk_olvcolor rec fill} bind def
 
/outrecfi4 { %x y width heigth c m y k
  outrecfi} bind def
 
/outrecfi3 { %x y width heigth c m y k
  outrecfi} bind def
 
/outrecfi2 { %x y width heigth c m y k
  outrecfi} bind def
 
/outlinetos { %px py c m y k
   setcmyk_olvcolor lineto stroke} bind def
 
/outstroke { %px1 py1 curveto ... curveto c m y k
   setcmyk_olvcolor stroke} bind def
 
%%EndProlog
gsave
%LANINDL2 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
lanind1 1 lanind2 {/lanind exch def %output showpage
gsave
%LANINDL2 END
 
5 /Times-ISOL1 FS
180 85 moveto
 (NE090-6, B4_06) show %    ( B8760_8, M8210-6, B4_06, N=4_6) show
 
72 90 translate
 
/pixf 1.0 def 0.1667 pixf div MM dup scale
 
/ausz 8 def               %Farbauszug 1=C, 2=M, 3=Y, 7=N, 8=F
 
0 0 320 240 0.0 0.0 0.0 0.5 colrecfi %Rechteck Mittelgrau
TBG                                  %Schrift Times-Bold-Gross
0.0 0.0 0.0 0.0  setcmyk_olvcolor          %Schrift Weiss
005 223 moveto TBG
(relative Empfindlichkeiten) showde                             %08210-6 1
(relative sensitivities) showen                                 %18210-6 1
(relative sensitivities) showes                                 %28210-6 1
(relative sensitivities) showfr                                 %38210-6 1
(relative sensitivities) showit                                 %48210-6 1
(relative sensitivities) showjp                                 %58210-6 1
 
130 200 moveto TBM
(visuelle Prozesse:) showde                                     %08210-6 2
(visual processes:) showen                                      %18210-6 2
(visual processes:) showes                                      %28210-6 2
(visual processes:) showfr                                      %38210-6 2
(visual processes:) showit                                      %48210-6 2
(visual processes:) showjp                                      %58210-6 2
 
TBG
 
/ix0 30 def /iy0 30 def
 
2 setlinewidth
ix0 4 sub iy0 moveto 264 0 rlineto stroke
ix0 iy0 4 sub moveto 0 184 rlineto stroke
ix0 4 sub iy0 180 0.4 mul add moveto 8 0 rlineto stroke
ix0 4 sub iy0 180 add moveto 8 0 rlineto stroke
ix0 260 0.4 mul add iy0 4 sub moveto 0 8 rlineto stroke
ix0 260 add iy0 4 sub moveto 0 8 rlineto stroke
 
ix0 25 sub iy0 000 add 08 sub moveto (0) show
ix0 25 sub iy0 180 0.4 mul add 08 sub moveto (5) show
ix0 28 sub iy0 180 add 08 sub moveto (10) show
 
ix0 000 add 15 sub iy0 27 sub moveto (0,3) show
ix0 260 0.4 mul add 15 sub iy0 25 sub moveto (1,0) show
ix0 260 add 15 sub iy0 25 sub moveto (2,1) show
ix0 210 add 40 sub iy0 20 sub moveto TBIG 3 0 (a=x/y) ashow
TBG
 
/scolors     %CMYN 12 Testfarben Nr. 0 bis 11
[{1.0 0.00 0.50 0.0}  {0.82 0.0 0.41 0.1}  {0.64 0.0 0.32 0.2}  {0.46 0.0 0.23 0.3}
 {0.28 0.0 0.14 0.4}  {0.10 0.0 0.05 0.5}  {0.0 0.10 0.05 0.5}
 {0.0 0.28 0.14 0.4}  {0.0 0.46 0.23 0.3}  {0.0 0.64 0.32 0.2}  {0.0 0.82 0.41 0.1}
 {0.0 1.00 0.50 0.0} ] def
 
newpath
0 1 10 {/i exch def
scolors i get exec setcmyk_olvcolor
i 5 lt {ix0 i 21 mul add iy0 15 add}
       {ix0 105 add i 5 sub 31 mul add iy0 15 add}
       ifelse
 08 ausz 7 ne {1 add} if 90 270 arc fill} for %schleife i
 
0 1 10 {/i exch def
scolors i 1 add get exec setcmyk_olvcolor
i 5 lt {ix0 i 21 mul add iy0 15 add}
       {ix0 105 add i 5 sub 31 mul add iy0 15 add}
       ifelse
 08 ausz 7 ne {1 add} if -90 90 arc fill} for %schleife i
 
0.0 0.0 0.0 0.0 setcmyk_olvcolor %W
40 135 moveto 80 0 rlineto 0 80 rlineto -80 0 rlineto closepath fill
0.0 0.0 0.0 1.0 setcmyk_olvcolor %N
40 135 moveto 80 0 rlineto 0 80 rlineto -80 0 rlineto closepath stroke
0.0 0.0 0.0 0.5 setcmyk_olvcolor %Z
50 145 moveto 60 0 rlineto 0 60 rlineto -60 0 rlineto closepath fill
 
scolors 5 get exec setcmyk_olvcolor
ix0 50 add 175 08 ausz 7 ne {1 add} if 90 270 arc fill
 
scolors 6 get exec setcmyk_olvcolor
ix0 50 add 175 08 ausz 7 ne {1 add} if -90 90 arc fill
 
1.5 setlinewidth
0.0 0.0 0.0 0.0 setcmyk_olvcolor %W
80 175 08 0 360 arc stroke
 
/i 5 def
ix0 i 21 mul add iy0 15 add 08 0 360 arc stroke
 
51 147 moveto (0 ... 10) show
TBIG
052 170 moveto (T) show
094 170 moveto (P) show
TBG
 
tfg
060 195 moveto 60 195 08 ausz 7 ne {1 add} if  0 360 arc fill
 
130 164 moveto (D) TBIM tzg outshowf ( \050 = Deuteranop\051) TBM tzg outshowf
012 129 moveto (D) TBIM tzg outshowf -10 10 rmoveto (-) TBIM tzg outshowf
270 063 moveto (D) TBIM tzg outshowf -13 -07 rmoveto (-) TBIM tzg outshowf
 
tfr
100 205 moveto 100 195 08 ausz 7 ne {1 add} if 0 360 arc fill
 
130 182 moveto (P) TBIM tzr outshowf ( \050 = Protanop\051) TBM tzr outshowf
270 128 moveto (P) TBIM tzr outshowf -09 10 rmoveto (-) TBIM tzr outshowf
014 060 moveto (P) TBIM tzr outshowf -13 -07 rmoveto (-) TBIM tzr outshowf
 
ix0 100 add iy0 110 add moveto
(Schwellen) popde                                               %08210-6 3
(thresholds) popen                                              %18210-6 3
(Umbral) popes                                                  %28210-6 3
(thresholds) popfr                                              %38210-6 3
(thresholds) popit                                              %48210-6 3
(thresholds) popjp                                              %58210-6 3
TBG tzr outshowf
 
135 100 moveto 300 045 [3] 0 setdash tzg outlinetos
030 135 moveto 135 100 [ ] 0 setdash tzg outlinetos
 
135 100 moveto 300 155 tzr outlinetos
030 065 moveto 135 100 [3] 0 setdash tzr outlinetos
[ ] 0 setdash
 
showpage
grestore
} for %output with langind end
%%Trailer