%!PS-Adobe-3.0 EPSF-3.0 fea90-5
%%BoundingBox: 70 83 226 206

%START PDFDE011.EPS
/pdfmark05 where {pop} {userdict /pdfmark05 /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: fea90-5)
  /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@mac.com)
  /CreationDate (D:2016010112000)
  /ModDate (D:2016010112000)
/DOCINFO pdfmark05
[ /View [ /FitB ]
/DOCVIEW pdfmark05
%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

/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

%XCHA01.PS BEG
/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

/rem %x, y width heigth
  {/heigth exch 0.5 mul def /width exch 0.5 mul def
   /yleftb exch heigth 0.5 mul add def
   /xleftb exch width  0.5 mul add def
   xleftb yleftb
   moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto
   closepath } bind def

/colremfi %x y width heigth c m y k
  {setcmykcolor rem fill} bind def

/colremst %x y width heigth c m y k
  {setcmykcolor rem stroke} bind def

/tzr {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben
/tzg {1.0 0.0 1.0 0.0} bind def
/tzb {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

/tfr {0.0 1.0 1.0 0.0 setcmyk_olvcolor} bind def %Reproduktionsfarben
/tfg {1.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def
/tfb {1.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def
/tfc {1.0 0.0 0.0 0.0 setcmyk_olvcolor} bind def
/tfm {0.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def
/tfy {0.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def

/tfn {0.0 0.0 0.0 1.00 setcmyk_olvcolor} bind def %Graureihe
/tfd {0.0 0.0 0.0 0.75 setcmyk_olvcolor} bind def
/tfz {0.0 0.0 0.0 0.50 setcmyk_olvcolor} bind def
/tfh {0.0 0.0 0.0 0.25 setcmyk_olvcolor} bind def
/tfw {0.0 0.0 0.0 0.00 setcmyk_olvcolor} bind def

%%EndProlog
gsave

/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 {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

/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 1 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 3 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

/cvishow {cvi 6 string cvs show} def

gsave
%XCHA01.PS END
5 /Times-ISOL1 FS
75 85 moveto (fea90-5) show
xchart 0 eq {(N) show}
            {deintp colorm 2 mul add cvishow} ifelse
% (, B4_05) show %    ( B8760_7, M8210-5, B4_05, N=4_5) 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
TBM                                  %Schrift Times-Bold-Gross
0.0 0.0 0.0 0.0  setcmyk_olvcolor          %Schrift Weiss
005 223 moveto 300 16.67 div /Symbol FS (D) show 3 0 rmoveto TBIM (a) show
 TBM
( / relative Buntheit ) showde                                  %0fea90-5 00563
( / relative chroma ) showen                                    %1fea90-5 00563
( / croma relativo ) showes                                     %2fea90-5 00563
( / chroma relative ) showfr                                    %3fea90-5 00563
( / chroma relativa ) showit                                    %4fea90-5 00563
( / relativ kul\370rthet ) showjp                               %5fea90-5 00563

TBIM ( C*) show -9 -5 rmoveto TBK (r) show TBM

/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

ix0 02 add iy0 07 add moveto
300 16.67 div /Symbol FS (D) show 3 0 rmoveto
TBIM 2 0 (a=) ashow TBM
(Farbartdifferenz) showde                                       %0fea90-5 01563
(chromaticity difference) showen                                %1fea90-5 01563
(diferencia cromaticidad) showes                                %2fea90-5 01563
(diff\351rence de chromaticit\351) showfr                       %3fea90-5 01563
(differenza cromaticit\340) showit                              %4fea90-5 01563
(kromatisitetsdifferanse) showjp                                %5fea90-5 01563
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 35 add i 5 sub 10 mul sub}
       {ix0 105 add i 5 sub 31 mul add iy0 35 add i 5 sub 10 mul 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 35 add i 5 sub 10 mul sub}
       {ix0 105 add i 5 sub 31 mul add iy0 35 add i 5 sub 10 mul 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 35 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
150 175 moveto 150 185 08 ausz 7 ne {1 add} if 0 360 arc fill

tfr
100 205 moveto 100 195 08 ausz 7 ne {1 add} if 0 360 arc fill
150 160 moveto 150 160 08 ausz 7 ne {1 add} if 0 360 arc fill

0.0 0.0 0.0 0.0 setcmyk_olvcolor %W
TBM
125 200 moveto
(relative Buntheit:) showde                                     %0fea90-5 02563
(relative chroma:) showen                                       %1fea90-5 02563
(croma relativo:) showes                                        %2fea90-5 02563
(chroma relative:) showfr                                       %3fea90-5 02563
(valore relativo di croma:) showit                              %4fea90-5 02563
(relativ kul\370rthet:) showjp                                  %5fea90-5 02563

170 180 moveto
TBIM (C*) show -8 -8 rmoveto (T) TBK
tfg show 0.0 0.0 0.0 0.0 setcmyk_olvcolor %W
0 8 rmoveto TBM ( = 1,0) show
170 155 moveto
TBIM (C*) show -8 -8 rmoveto (P) TBK
tfr show 0.0 0.0 0.0 0.0 setcmyk_olvcolor %W
0 8 rmoveto TBM ( = 1,5) show

TBM tfw
125 iy0 100 add moveto
(Schwellen) showde                                              %0fea90-5 03563
(thresholds) showen                                             %1fea90-5 03563
(umbral) showes                                                 %2fea90-5 03563
(seuil) showfr                                                  %3fea90-5 03563
(soglie di discriminazione) showit                              %4fea90-5 03563
(terskler) showjp                                               %5fea90-5 03563

showpage
grestore

%%Trailer