%!PS-Adobe-3.0 EPSF-3.0 INFIE11:IEAK021.TXT 31.10.98 % aus B7322-1A.eps
%%BoundingBox: 72 430 505 602
%ANFA PDFIE021 

/pdfmark where {pop} {userdict /pdfmark /cleartomark load put} ifelse
/languagelevel where {pop languagelevel} {1} ifelse
2 lt { userdict (<<) cvn ([) cvn load put
       userdict (>>) cvn (]) cvn load put
     } if

[ /Title (5 achromatic, 4 elementary and 6 reproduction colours)
  /Author (goto: http://o2.ps.bam.de or http://trappist.kb.bam.de/ps)
  /Subject (specifying image reproduction of colour devices)
  /Keywords (image reproduction, colour devices)
  /Creator (klaus.richter@bam.de)
  /CreationDate (D:1998111212000)
  /ModDate (D:1998111212000)
/DOCINFO pdfmark

[ /View [ /Fit ]
/DOCVIEW pdfmark
              
%ENDE PDFIE021

%%Creator: K. Richter, BAM und TU Berlin, 1998.08.15
% !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 /Times-ISOL1 FS} bind def
/TM {300 /Times-ISOL1 FS} bind def
/TG {350 /Times-ISOL1 FS} bind def
 
/TIK {250 /TimesI-ISOL1 FS} bind def
/TIM {300 /TimesI-ISOL1 FS} bind def
/TIG {350 /TimesI-ISOL1 FS} bind def
 
/TBK {250 /TimesB-ISOL1 FS} bind def
/TBM {300 /TimesB-ISOL1 FS} bind def
/TBG {350 /TimesB-ISOL1 FS} bind def
 
/TBIK {250 /TimesBI-ISOL1 FS} bind def
/TBIM {300 /TimesBI-ISOL1 FS} bind def
/TBIG {350 /TimesBI-ISOL1 FS} bind def
 
/proz1 {pop} bind def /proz2 {sqrt} bind def
 
/setgc {pop pop pop 1 exch sub setgray} bind def
/setgm {pop pop 1 exch sub setgray pop} bind def
/setgy {pop 1 exch sub setgray pop pop} bind def
/setgn {1 exch sub setgray pop pop pop} bind def
/setgf {/ncolor exch def /ycolor exch def
        /mcolor exch def /ccolor exch def
        0 ccolor eq 0 mcolor eq and 0 ycolor eq and {1 ncolor sub setgray}
                    {1 ccolor sub 0.71 mul
                     1 mcolor sub 0.22 mul add
                     1 ycolor sub 0.07 mul add setgray} ifelse
       } bind def
 
/setsc {075 135 {proz1} setscreen } bind def
/setsm {075 090 {proz1} setscreen } bind def
/setsy {075 000 {proz1} setscreen } bind def
/setsn {075 045 {proz1} setscreen } bind def
 
/setsf {075 135 {proz1} 075 090 {proz1} 075 000 {proz1}
        075 045 {proz1} setcolorscreen } bind def
 
/setcmykcolorf {setcmykcolor setsf} bind def %fuer PSL1/2-Farbgeraet
 
%ANFA HALBTON
/Halbt {     %wrbie:HALBTOA0.eps
 } bind def
 
%ANFA SETCMYK
 
 
/setcmyknew { %Ersatz setcolornew durch setcmykcolor1
 ausz 1 eq {setgc half 0 eq {setsc} if} if                %C
 ausz 2 eq {setgm half 0 eq {setsm} if} if                %M
 ausz 3 eq {setgy half 0 eq {setsy} if} if                %Y
 ausz 4 eq {pop pop pop /ccolor exch def ccolor 0 0 0
            /setcmykcolor where       %Abfrage Farb-/SW-Geraet
             {pop setcmykcolorf}      %PSL1/2-Farb-Geraet
             {setgc setsc}                   %PSL1-SW-Geraet
             ifelse
           } if                                           %Cbunt
 ausz 5 eq {pop pop /mcolor exch def pop 0 mcolor 0 0
            /setcmykcolor where       %Abfrage Farb-/SW-Geraet
             {pop setcmykcolorf}      %PSL1/2-Farb-Geraet
             {setgm setsm}                   %PSL1-SW-Geraet
             ifelse
           } if                                           %Mbunt
 ausz 6 eq {pop /ycolor exch def pop pop 0 0 ycolor 0
            /setcmykcolor where       %Abfrage Farb-/SW-Geraet
             {pop setcmykcolorf}      %PSL1/2-Farb-Geraet
             {setgy setsy}                   %PSL1-SW-Geraet
             ifelse
           } if                                           %Ybunt
 ausz 7 eq {setgn half 0 eq {setsn} if} if                %N
 ausz 8 ge {
            /setcmykcolor where        %Abfrage Farb-/SW-Geraet
            {pop setcmykcolorf}       %PSL1/2-Farb-Geraet
            {setgf setsn}                     %PSL1-SW-Geraet
            ifelse
           } if %bei ausz=8: Farb- oder SW-Ausdruck je nach Drucker
 
 } 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
  {setcmyknew rec fill} bind def
 
/colrecst %x y width heigth c m y k
  {setcmyknew 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 setcmyknew} bind def
/tfl {tzl setcmyknew} bind def
/tfv {tzv setcmyknew} bind def
/tfc {tzc setcmyknew} bind def
/tfm {tzm setcmyknew} bind def
/tfy {tzy setcmyknew} bind def
 
/tfn {tzn setcmyknew} bind def
/tfd {tzd setcmyknew} bind def
/tfz {tzz setcmyknew} bind def
/tfh {tzh setcmyknew} bind def
/tfw {tzw setcmyknew} bind def
 
/tfr {tzr setcmyknew} bind def
/tfg {tzg setcmyknew} bind def
/tfb {tzb setcmyknew} bind def
/tfj {tzj setcmyknew} bind def
 
/tfrz {tzrz setcmyknew} bind def
/tfgz {tzgz setcmyknew} bind def
/tfbz {tzbz setcmyknew} bind def
/tfjz {tzjz setcmyknew} 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
 
/outSK {250 1 sub pixf mul /Symbol FS outxshow} bind def
/outSM {300 1 sub pixf mul /Symbol FS outxshow} bind def
/outSG {350 1 sub pixf mul /Symbol FS outxshow} bind def
 
/outshowf {setcmyknew show} bind def
 
/outrecfi { %x y width heigth c m y k
   setcmyknew 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
   setcmyknew lineto stroke} bind def
 
/outstroke { %px1 py1 curveto ... curveto c m y k
   setcmyknew stroke} bind def
 
%%EndProlog
gsave
     
 %{proz2} settransfer
 
5 /Times-ISOL1 FS
430 83 350 add moveto
%!2    (INFIE11:B7322-1A.eps) show
(INFIE11:IEAK021.TXT) show
 
72 1 add 90 1 add 350 add translate
 
/yhoe 4000 def
0.0135 MM 0.0135 MM scale  %d2:[rr.b4f]bausz8y.eps
/ausz 7 def /half 0 def Halbt
15 setlinewidth

0.0 0.0 0.0 1.0 setcmyknew
 0 0  moveto 11200 0 rlineto 0 yhoe rlineto -11200 0 rlineto
closepath stroke
 
/tedef {/anz exch def /ydt exch def /y0t exch def /x0t exch def} bind def
 
/TEn {TM tedef} bind def
/TEk {TIM tedef} bind def
/TEb {TBM tedef} bind def
/TEj {TBIM tedef} bind def
 
/TEA {anz 1 sub -1 0 {ydt mul y0t add x0t exch moveto show} for} bind def
/yd -350 def %y-Zeilenabstand
%Spalten
/S1 150 def
/S2 600 def
/S3 3400 def
/S4 3900 def
/S5 7300 def
/S6 7700 def
/S7 10000 def
/yz 350 def
/yu0 300 def
/yu1 {yu0 200 add yz 4.7 mul add} bind def
/yu2 {yu1  50 add yz 1.0 mul add} bind def
/yu3 {yu2 200 add yz 2.8 mul add} bind def
 
 S1 yu3 yd 1 TEb
(Achromatic colours) TEA
 S3 yu3 yd 1 TEb
(Elementary colours) TEA
 S3 yu3 yd add moveto TBIM ("Neither\255nor"\255colours) show
 S5 yu3 yd 1 TEb
(Reproduction colours) TEA
 S5 yu3 yz sub moveto TBIM (Television (TV), Print (PR)) show
 S5 yu3 yz 2 mul sub moveto TBIM (Photography (PH)) show

S1 yu2 moveto TIM (five achromatic colours:) show
S1 yu1 yd 5 TEk
(N) (D) (Z) (H) (W) TEA
S2 yu1 yd 5 TEn
(black (french noir)) (dark grey) (central grey) (light grey) (white) TEA

/yd2 yd 1.6 mul def
S3 yu2 moveto TIM (four elementary colours:) show
S3 yu1 yd2 4 TEk
(J) (R) (B) (G) TEA
S4 yu1 yd2 4 TEn
(yellow (french jeaune)) (red) (blue) (green) TEA
TIK
S4 yu1 yd 0.7 mul add moveto (neither greenish nor reddish) show
S4 yu1 yd 2.3 mul add moveto (neither yellowish nor blueish) show
S4 yu1 yd 3.9 mul add moveto (neither greenish nor reddish) show
S4 yu1 yd 5.4 mul add moveto (neither blueish nor yellowish) show 

S5 yu2 moveto TIM (six reproduction colours:) show
S5 yu1 yd 6 TEk
(C) (M) (Y) (O) (L) (V) TEA
S6 yu1 yd 6 TEn
(cyan\255blue) (magenta\255red) (yellow)
(orange\255red) (leaf\255green) (violett\255blue) TEA

 
grestore
 
showpage
%%Trailer