%!PS-Adobe-3.0 EPSF-3.0 AI390-3N.EPS Y10-3N_AL39_JSO.EPS
%%BoundingBox: 70 82 430 360

%START PDFDE011.EPS
/pdfmark03 where {pop} {userdict /pdfmark03 /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://farbe.li.tu-berlin.de/AI39/AI39.HTM)
  /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1)
  /Subject (goto: http://farbe.li.tu-berlin.de or http://130.149.60.45/~farbmetrik)
  /Keywords (image reproduction, colour devices)
  /Creator (klaus.richter@mac.com)
  /CreationDate (D:2017040112000)
  /ModDate (D:20170401112000)
/DOCINFO pdfmark03
[ /View [ /FitB ]
/DOCVIEW pdfmark03
%END  PDFDE011

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def /str {8 string } bind def
/A4querL {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

/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

/Courier findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/Courier-ISOL1 exch definefont pop

/Courier-Bold findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/CourierB-ISOL1 exch definefont pop

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

/cvishow {0.5 add cvi 6 string cvs show} def
/cvsshow1 {0.05 add 10 mul cvi 0.1 mul 7 string cvs show} def
/cvsshow2 {0.005 add 100 mul cvi 0.01 mul 7 string cvs show} def
/cvsshow3 {0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show} 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 4 def /lanind2 4 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 01 def /pchart2 01 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
      
/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

colorml 0 eq deintp 0 eq and {/TxS () def /Txx (dd) def /Fxx (d) def} if
colorml 0 eq deintp 1 eq and {/TxS () def /Txx (de) def /Fxx (e) def} if
colorml 1 eq deintp 0 eq and {/TxS () def /Txx (dd) def /Fxx (d) def} if
colorml 1 eq deintp 1 eq and {/TxS () def /Txx (de) def /Fxx (e) def} if
%xchart 0 eq {/Txx (-) def /Fxx (-) def} if

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 Y10-3N_AL39_JSO_1P2S.EPS

%font0309.ps***********************************************
/CW {100 /Courier-ISOL1 FS} bind def
/CV {150 /Courier-ISOL1 FS} bind def
/CS {200 /Courier-ISOL1 FS} bind def
/CK {250 /Courier-ISOL1 FS} bind def
/CM {300 /Courier-ISOL1 FS} bind def
/CG {350 /Courier-ISOL1 FS} bind def

/CBW {100 /CourierB-ISOL1 FS} bind def
/CBV {150 /CourierB-ISOL1 FS} bind def
/CBS {200 /CourierB-ISOL1 FS} bind def
/CBK {250 /CourierB-ISOL1 FS} bind def
/CBM {300 /CourierB-ISOL1 FS} bind def
/CBG {350 /CourierB-ISOL1 FS} bind def

/RW {100 /Times-Roman FS} bind def
/RV {150 /Times-Roman FS} bind def
/RS {200 /Times-Roman FS} bind def
/RK {250 /Times-Roman FS} bind def
/RM {300 /Times-Roman FS} bind def
/RG {350 /Times-Roman FS} bind def

/RIW {100 /Times-Italic FS} bind def
/RIV {150 /Times-Italic FS} bind def
/RIS {200 /Times-Italic FS} bind def
/RIK {250 /Times-Italic FS} bind def
/RIM {300 /Times-Italic FS} bind def
/RIG {350 /Times-Italic FS} bind def

/RBW {100 /Times-Bold FS} bind def
/RBV {150 /Times-Bold FS} bind def
/RBS {200 /Times-Bold FS} bind def
/RBK {250 /Times-Bold FS} bind def
/RBM {300 /Times-Bold FS} bind def
/RBG {350 /Times-Bold FS} bind def

/RBIW {100 /Times-BoldItalic FS} bind def
/RBIV {150 /Times-BoldItalic FS} bind def
/RBIS {200 /Times-BoldItalic FS} bind def
/RBIK {250 /Times-BoldItalic FS} bind def
/RBIM {300 /Times-BoldItalic FS} bind def
/RBIG {350 /Times-BoldItalic FS} bind def

/TW {100 /Times-ISOL1 FS} bind def
/TV {150 /Times-ISOL1 FS} bind def
/TS {200 /Times-ISOL1 FS} bind def
/TK {250 /Times-ISOL1 FS} bind def
/TM {300 /Times-ISOL1 FS} bind def
/TG {350 /Times-ISOL1 FS} bind def

/TIW {100 /TimesI-ISOL1 FS} bind def
/TIV {150 /TimesI-ISOL1 FS} bind def
/TIS {200 /TimesI-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

/TBW {100 /TimesB-ISOL1 FS} bind def
/TBV {150 /TimesB-ISOL1 FS} bind def
/TBS {200 /TimesB-ISOL1 FS} bind def
/TBK {250 /TimesB-ISOL1 FS} bind def
/TBM {300 /TimesB-ISOL1 FS} bind def
/TBG {295 /TimesB-ISOL1 FS} bind def

/TBIW {100 /TimesBI-ISOL1 FS} bind def
/TBIV {150 /TimesBI-ISOL1 FS} bind def
/TBIS {200 /TimesBI-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

/SW {100 /Symbol FS} bind def
/SV {150 /Symbol FS} bind def
/SS {200 /Symbol FS} bind def
/SK {250 /Symbol FS} bind def
/SM {300 /Symbol FS} bind def
/SG {350 /Symbol FS} bind def

/ishowRV  {RW  -00 -30 rmoveto
           show 00  30 rmoveto RV} def
/jshowRV  {RBW -00 -30 rmoveto
           show 00  30 rmoveto RBV} def

/ishowTV  {TW  -00 -30 rmoveto
           show 00  30 rmoveto TV} def
/jshowTV  {TBW -00 -30 rmoveto
           show 00  30 rmoveto TBV} def

/ishowRS  {RV  -00 -40 rmoveto
           show 00  40 rmoveto RS} def
/jshowRS  {RBV -00 -40 rmoveto
           show 00  40 rmoveto RBS} def

/ishowTS  {TV  -00 -40 rmoveto
           show 00  40 rmoveto TS} def
/jshowTS  {TBV -00 -40 rmoveto
           show 00  40 rmoveto TBS} def

/ishowRK  {RS  -00 -50 rmoveto
           show 00  50 rmoveto RK} def
/jshowRK  {RBS -00 -50 rmoveto
           show 00  50 rmoveto RBK} def

/ishowTK  {TS  -00 -50 rmoveto
           show 00  50 rmoveto TK} def
/jshowTK  {TBS -00 -50 rmoveto
           show 00  50 rmoveto TBK} def

/ishowRM  {RK  -00 -60 rmoveto
           show 00  60 rmoveto RM} def
/jshowRM  {RBK -00 -60 rmoveto
           show 00  60 rmoveto RBM} def

/ishowTM  {TK  -00 -60 rmoveto
           show 00  60 rmoveto TM} def
/jshowTM  {TBK -00 -60 rmoveto
           show 00  60 rmoveto TBM} def

/ishowRG  {RM  -00 -70 rmoveto
           show 00  70 rmoveto RG} def
/jshowRG  {RBM -00 -70 rmoveto
           show 00  70 rmoveto RBG} def

/ishowTG  {TM  -00 -70 rmoveto
           show 00  70 rmoveto TG} def
/jshowTG  {TBM -00 -70 rmoveto
           show 00  70 rmoveto TBG} def
%font0309.ps***********************************************

72 90 translate
0.01 MM dup scale

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

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

00100 -240 moveto
TM
(Teil 1, ) showde
(part 1, ) showen
(parte 1, ) showes
(la part 1, ) showfr
(la parte 1, ) showit
(artikkelen 1, ) showjp

9500 -240 moveto
RM
(AI390-3) show Txx show (: ) show
deintp  cvishow
colorml cvishow
xcolorl cvishow
xchartl cvishow
pchartl cvishow
/y0 7900 def
/yd 320 def
TBG
100 y0 050 sub moveto
(\334bereinstimmung mit Elementarfarben) showde
(Agreement with elementary hues) showen
(De acuerto con tonos elementales) showes
(Accord avec des teintes \351l\351mentaires) showfr
(Accordo con tinte elementari) showit
(Avtalen med barnetrinnet fargetoner) showjp

TBG ( ) show
RBG ((Ja/Nein-Entscheidung)) showde
TBG
((Yes/No decision)) showen
((Si/No decisi\363n)) showes
((D\351cision Qui/No)) showfr
((Si/No decisione)) showit
((Beslutningen Ja/Nei)) showjp

TM
/xshift 5300 def
xshift y0 yd 2.4 mul sub moveto
TM
(Es gibt vier Elementarbuntt\366ne auf jeder Seite:) showde
(There are four elementary hues on each page:) showen
(Hay cuarto tonos elementales en cada pagina:) showes
(Il ya quatre couleurs \351l\351mentaires sur chaque page:) showfr
(Ci sono quatro tonalit\340 elementari su ogni pagina:) showit
(Det er fire elementarfargetoner pa hver sideo:) showjp

xshift y0 yd 3.4 mul sub moveto
TM
(Rot) showde
(Red) showen
(Rojo) showes
(Rouge) showfr
(Rosso) showit
(R\370d) showjp
TBIM ( R) show (e) jshowTM
TBM (, ) show

TM
(Gelb) showde
(Yellow) showen
(Amarillo) showes
(Jaune) showfr
(Giallo) showit
(Gul) showjp
TBIM ( Y) show (e) jshowTM
TBM (, ) show

TM
(Gr\374n) showde
(Green) showen
(Verde) showes
(Vert) showfr
(Verde) showit
(Gr\370nn) showjp
TBIM ( G) show (e) jshowTM
TM
( und ) showde
(, and ) showen
( y ) showes
( et ) showfr
( e ) showit
( og ) showjp

TM
(Blau) showde
(Blue) showen
(Azul) showes
(Bleu) showfr
(Blu) showit
(Bl\345) showjp
TBIM ( B) show (e) jshowTM

xshift y0 yd 4.7 mul sub moveto
TM
(Eingabedaten 1 0 0 k\366nnen erzeugen:) showde
(Input data 1 0 0 may produce: ) showen
(1 0 0 datos en entrada pueden producir: ) showes
(Les donn\351es d'entr\351e 1 0 0 peut produire: ) showfr
(I dati di input 1 0 0 possono produrre: ) showit
(Input data 1 0 0 kan produsere: ) showjp
TM ( ) show
(Rot) showde
(Red) showen
(Rojo) showes
(Rouge) showfr
(Rosso) showit
(R\370d) showjp
TBIM ( R) show (e) jshowTM TBM (.) show

xshift y0 yd 5.7 mul sub moveto
TM
(Eingabedaten 0 1 0 k\366nnen erzeugen:) showde
(Input data 0 1 0 may produce: ) showen
(0 1 0 datos en entrada pueden producir: ) showes
(Les donn\351es d'entr\351e 0 1 0 peut produire: ) showfr
(I dati di input 0 1 0 possono produrre: ) showit
(Input data 0 1 0 kan produsere: ) showjp
TM ( ) show
(Gr\374n) showde
(Green) showen
(Verde) showes
(Vert) showfr
(Verde) showit
(Gr\370nn) showjp
TBIM ( G) show (e) jshowTM TBM (.) show

xshift y0 yd 6.7 mul sub moveto
TM
(Eingabedaten 0 0 1 k\366nnen erzeugen:) showde
(Input data 0 0 1 may produce: ) showen
(0 0 1 datos en entrada pueden producir: ) showes
(Les donn\351es d'entr\351e 0 0 1 peut produire: ) showfr
(I dati di input 0 0 1 possono produrre: ) showit
(Input data 0 0 1 kan produsere: ) showjp
TM ( ) show
(Blau) showde
(Blue) showen
(Azul) showes
(Bleu) showfr
(Blu) showit
(Bl\345) showjp
TBIM ( B) show (e) jshowTM TBM (.) show

xshift y0 yd 7.7 mul sub moveto
TM
(Eingabedaten 1 1 0 k\366nnen erzeugen:) showde
(Input data 1 1 0 may produce: ) showen
(1 1 0 datos en entrada pueden producir: ) showes
(Les donn\351es d'entr\351e 1 1 0 peut produire: ) showfr
(I dati di input 1 1 0 possono produrre: ) showit
(Input data 1 1 0 kan produsere: ) showjp
TM ( ) show
(Gelb) showde
(Yellow) showen
(Amarillo) showes
(Jaune) showfr
(Giallo) showit
(Gul) showjp
TBIM ( Y) show (e) jshowTM TBM (.) show


xshift y0 yd 9.0 mul sub moveto
RM
(Die Elementar-) showde TM (Buntt\366ne) showde
TM
(The elementary hues) showen
(Los colores elementales) showes
(Les couleurs elementales) showfr
(Le tonalit\340 elementari) showit
(P\345 element\346rfargetoner) showjp
( ) show
TM
(Rot) showde
(Red) showen
(Rojo) showes
(Rouge) showfr
(Rosso) showit
(R\370d) showjp
TBIM ( R) show (e) jshowTM
TM
( und ) showde
( and ) showen
( y ) showes
( et ) showfr
( e ) showit
( og ) showjp
TM
(Gr\374n) showde
(Green) showen
(Verde) showes
(Vert) showfr
(Verde) showit
(Gr\370nn) showjp
TBIM ( G) show (e) jshowTM

xshift y0 yd 10.0 mul sub moveto
TM
(sollten auf der horizontalen Achse liegen.) showde
(should locate on the horizontal axis.) showen
(debe ubicar sobre la horizontal axis.) showes
(doit localiser sur l'horizontale l'axe.) showfr
(devono individuare sul piano orizzontale asse.) showit
(finne pa den horisontale akse.) showjp

xshift y0 yd 11.5 mul sub moveto
RM
(Die Elementar-) showde TM (Buntt\366ne) showde
TM
(The elementary hues) showen
(Los colores elementales) showes
(Les couleurs elementales) showfr
(Le tonalit\340 elementari) showit
(P\345 element\346rfargetoner) showjp

TM ( ) show
(Gelb) showde
(Yellow) showen
(Amarillo) showes
(Jaune) showfr
(Giallo) showit
(Gul) showjp
TBIM ( Y) show (e) jshowTM
TM
( und ) showde
( and ) showen
( y ) showes
( et ) showfr
( e ) showit
( og ) showjp
TM
(Blau) showde
(Blue) showen
(Azul) showes
(Bleu) showfr
(Blu) showit
(Bl\345) showjp
TBIM ( B) show (e) jshowTM

xshift y0 yd 12.5 mul sub moveto
TM
(sollten auf der vertikalen Achse liegen.) showde
(should locate on the vertical axis.) showen
(debe ubicar sobre la vertical axis.) showes
(doit localiser sur verticale l'axe) showfr
(devono individuare sul piano orizzontale asse) showit
(finne pa den vertikale akse.) showjp


xshift y0 yd 14.0 mul sub moveto
TM
(Die Pr\374fung benutzt einen Bunttonkreis mit 20 T\366nen.) showde
(This test uses a hue circle with 20 hues.) showen
(Esta prueba utiliza un circulo de colores con 20 tonos.) showes
(Ce test utilise un cercle de couleur avec des 20 teintes.) showfr
(Questo test utilizza un cercio dei colori con 20 tonallit\340.) showit
(Denne testen bruker en farge sirkel med 20 fargetoner.) showjp

xshift y0 yd 15.5 mul sub moveto
(No. 00 and 10 should be) showen
(Nr. 00 und 10 sollten sein) showde
(Nr. 00 y 10 debben ser) showes
(No 00 et 10 devraient) showfr
(No. 00 e 10 dovrebbe essere) showit
(Nr. 00 og 10 skal vaere) showjp
TM
( ) show
(Rot) showde
(Red) showen
(Rojo) showes
(Rouge) showfr
(Rosso) showit
(R\370d) showjp
TBIM ( R) show (e) jshowTM
TM
( und ) showde
( and ) showen
( y ) showes
( et ) showfr
( e ) showit
( og ) showjp
TM
(Gr\374n) showde
(Green) showen
(Verde) showes
(Vert) showfr
(Verde) showit
(Gr\370nn) showjp
TBIM ( G) show (e) jshowTM
TBM (.) show


xshift y0 yd 16.5 mul sub moveto
TM
(No. 05 and 15 should be) showen
(Nr. 05 und 15 sollten sein) showde
(Nr. 05 y 15 debben ser) showes
(No 05 et 15 devraient) showfr
(No. 05 e 15 dovrebbe essere) showit
(Nr. 05 og 15 skal vaere) showjp
TM
( ) show
(Gelb) showde
(Yellow) showen
(Amarillo) showes
(Jaune) showfr
(Giallo) showit
(Gul) showjp
TBIM ( Y) show (e) jshowTM
TM
( und ) showde
( and ) showen
( y ) showes
( et ) showfr
( e ) showit
( og ) showjp
TM
(Blau) showde
(Blue) showen
(Azul) showes
(Bleu) showfr
(Blu) showit
(Bl\345) showjp
TBIM ( B) show (e) jshowTM
TBM (.) show

/yt0 02100 def
/x00 00100 def
/x10 00900 def
/x01 10100 def
/x20 10900 def

/yt0
x00 yt0 yd 0 mul sub moveto
TBM
(Sind Nr. 00, 05, 10 und 15 die vier Elementarfarben) showde
(Are no. 00, 05, 10, and 15 the four elementary hues) showen
(Se no. 00, 05, 10, y 15 de los cuarto tonos elementales) showes
(Sont no 00, 05, 10 et 15 devrait les 4 couleurs elementales) showfr
(Sono n. 00, 05, 10 e 15 i quatro tonalit\340 elementari) showit
(Er nei. 00, 05, 10, og 15 de fire element\346rfargetoner) showjp

TM ( ) show
TBIM (R) show (e) jshowTM TBM (, ) show
TBIM (Y) show (e) jshowTM TBM (, ) show
TBIM (G) show (e) jshowTM
TM
( und ) showde
( and ) showen
( y ) showes
( et ) showfr
( e ) showit
( og ) showjp
TBIM (B) show (e) jshowTM TBM (?) show


%x00 8900 add yt0 yd 0.8 mul sub moveto
TM ( ) show
(unterstreiche:) showde
(underline:) showen
(subrayado:) showes
(souligner:) showfr
(sottolineto:) showit
(underline:) showjp
( ) show
TBM
(Ja/Nein) showde
(Yes/No) showen
(Si/No) showes
(Qui/Non) showfr
(Si/No) showit
(Ja/Nei) showjp

TBM
x00 yt0 yd 1.1 mul sub  moveto
TBM
(Nur bei "Nein":) showde
(Only in case of "No":) showen
(Solo en casa de "No":) showes
(Seulement en cas de "No":) showfr
(Solo nel caso del "No":) showit
(Bare i tilfelle av "Nei":) showjp

%*************************************************
x00 300 add yt0 yd 2.1 mul sub moveto
TM
(Elementarrot) showde
(Elementary Red) showen
(Roja elemental) showes
(Rouge elementale) showfr
(Rosso elementari) showit
(Element\346rfarge R\370d) showjp
TBIM ( R) show (e) jshowTM

TM ( ) show
(ist die Bunttonstufe Nr. (z. B. 00, 01, 19) ........) showde
(is hue step no. (e. g. 00, 01, 19) ........ ) showen
(es el matiz passo No. (e. g. 00, 01, 19) ........ ) showes
(est la teinte de palier no. (e. g. 00, 01, 19) ........ ) showfr
(\350 la tonalit\340 fase n. (e. g. 00, 01, 19) ........ ) showit
(er fargetone trinn (e. g. 00, 01, 19) ........ ) showjp

%x00 8400 add yt0 yd 2.1 mul sub moveto
TM
((weder gelblich noch bl\344ulich)) showde
((neither yellowish nor blueish)) showen
((ni amarillento no azulado)) showes
((ni jaun\342tre ni bleu\342tre)) showfr
((n\351 giallastro n\351bluastro)) showit
((hverken gullig eller bl\345lig)) showjp

%*************************************************
x00 300 add yt0 yd 3.1 mul sub moveto
TM
(Elementargelb) showde
(Elementary Yellow) showen
(Amarillo elemental) showes
(Jaune elementale) showfr
(Giallo elementari) showit
(Element\346rfarge Gul) showjp
TBIM ( Y) show (e) jshowTM

TM ( ) show
(ist die Bunttonstufe Nr. (z. B. 05, 04, 06) ........) showde
(is hue step no. (e. g. 05, 04, 06) ........ ) showen
(es el matiz passo No. (e. g. 05, 04, 06) ........ ) showes
(est la teinte de palier no. (e. g. 05, 04, 06) ........ ) showfr
(\350 la tonalit\340 fase n. (e. g. 05, 04, 06) ........ ) showit
(er fargetone trinn (e. g. 05, 04, 06) ........ ) showjp

%x00 8400 add yt0 yd 3.1 mul sub moveto
TM
((weder r\366tlich noch gr\374nlich)) showde
((neither reddish nor greenish)) showen
((ni rojizo ni verdoso)) showes
((ni rouge\342tre ni verd\342tre)) showfr
((n\351 rossastro n\351 verdastro)) showit
((heverken r\370dlig eller gr\370nnlig)) showjp

%*************************************************
x00 300 add yt0 yd 4.1 mul sub moveto
TM
(Elementarg\374n) showde
(Elementary Green) showen
(Verde elemental) showes
(Vert elementale) showfr
(Verde elementari) showit
(Element\346rfarge Gr\370nn) showjp
TBIM ( G) show (e) jshowTM

TM ( ) show
(ist die Bunttonstufe Nr. (z. B. 10, 09, 11) ........) showde
(is hue step no. (e. g. 10, 09, 11) ........ ) showen
(es el matiz passo No. (e. g. 10, 09, 11) ........ ) showes
(est la teinte de palier no. (e. g. 10, 09, 11) ........ ) showfr
(\350 la tonalit\340 fase n. (e. g. 10, 09, 11) ........ ) showit
(er fargetone trinn (e. g. 10, 09, 11) ........ ) showjp

%x00 8400 add yt0 yd 4.1 mul sub moveto
TM
((weder gelblich noch bl\344ulich)) showde
((neither yellowish nor blueish)) showen
((ni amarillento no azulado)) showes
((ni jaun\342tre ni bleu\342tre)) showfr
((n\351 giallastro n\351bluastro)) showit
((hverken gullig eller bl\345lig)) showjp

%*************************************************
x00 300 add yt0 yd 5.1 mul sub moveto
TM
(Elementarblau) showde
(Elementary Blau) showen
(Azul elemental) showes
(Bleu elementale) showfr
(Blu elementari) showit
(Element\346rfarge Bl\345) showjp
TBIM ( B) show (e) jshowTM

TM ( ) show
(ist die Bunttonstufe Nr. (z. B. 15, 14, 16) ........) showde
(is hue step no. (e. g. 15, 14, 16) ........ ) showen
(es el matiz passo No. (e. g. 15, 14, 16) ........ ) showes
(est la teinte de palier no. (e. g. 15, 14, 16) ........ ) showfr
(\350 la tonalit\340 fase n. (e. g. 15, 14, 16) ........ ) showit
(er fargetone trinn (e. g. 15, 14, 16) ........ ) showjp

%x00 8400 add yt0 yd 5.1 mul sub moveto
TM
((weder r\366tlich noch gr\374nlich)) showde
((neither reddish nor greenish)) showen
((ni rojizo ni verdoso)) showes
((ni rouge\342tre ni verd\342tre)) showfr
((n\351 rossastro n\351 verdastro)) showit
((heverken r\370dlig eller gr\370nnlig)) showjp

x00 300 add yt0 yd 6.1 mul sub moveto
TBM
TBM
(Ergebnis:) showde
(Result:) showen
(Resultato:) showes
(R\351sultat:) showfr
(Risultato:) showit
(Resultat:) showjp

TM ( ) show
(Of the 4 elementary hues (e.g. three) .........) showen
( are at the intended location.) showen
(Von den 4 Elementarfarben sind (z. B. drei) .........) showde
( an der angestrebten Position.) showde
(De los cuatro colores elementales (e. g. tres) .........) showes
(est\341n en la ubicaci\363b prevista.) showes
(Des quatre couleurs elementales (e. g. trois) .........) showfr
( sont \340 l'endroit pr\351vu.) showfr
(Dei quatro tonalit\340 elementari (e. g. tre) .........) showit
(sono nella posizione prevista.) showit
(Av de fire element\346rfarbe (e. g. tre) .........) showjp
( er i beregnet posisjon.) showjp

%BEG Elementary-Hue Circle
2600 4900 translate
TM
-2700 0.9 mul 2600 moveto
TM
(Layoutbeispiel: ) showde
(Layout example: ) showen
(Ejemmplo de dise\361o: ) showes
(Exemple la mise en page: ) showfr
(L'esempio di layout: ) showit
RM
(Layout-eksempel: ) showjp

TM
(\334bereinstimmung mit Elementarfarben.) showde
(Agreement with elementary hues.) showen
(Acuerdo con las te\361idas elementales.) showes
(Accord avec les teintes elementales.) showfr
(Accordo con les tinte elementari.) showit
(Avtalen med element\346rfargetoner.) showjp

0.90 dup scale
1.0 setgray
-2700 -2700 moveto 5400 0 rlineto 0 5400 rlineto
                   5400 neg 0 rlineto closepath fill
0.0 setgray
%-2700 -2700 moveto 5400 0 rlineto 0 5400 rlineto
%                   5400 neg 0 rlineto closepath stroke
 
-1500 0 moveto 1500 0 lineto stroke
0 -1500 moveto 0 1500 lineto stroke

/AngrgbTabt 88 array def
/AngrgbTabt [%31 angles = 360/18 + 1 = 20 + 1
000 1.0 0.0 0.0
018 1.0 0.2 0.0
036 1.0 0.4 0.0
054 1.0 0.6 0.0
072 1.0 0.8 0.0
090 1.0 1.0 0.0
108 0.8 1.0 0.0
126 0.6 1.0 0.0
144 0.4 1.0 0.0
162 0.2 1.0 0.0
180 0.0 1.0 0.0
198 0.0 1.0 0.4
216 0.0 1.0 0.8
234 0.0 0.8 1.0
252 0.0 0.4 1.0
270 0.0 0.0 1.0
288 0.4 0.0 1.0
306 0.8 0.0 1.0
324 1.0 0.0 0.8
342 1.0 0.0 0.4
360 1.0 0.0 0.0
] def

0 0 2400 0 360 arc stroke
/rx 2400 def
/xd2 200 def

0 1 19 {/j exch def %j=0,19
/xpos rx AngrgbTabt j 4 mul get cos mul def
/ypos rx AngrgbTabt j 4 mul get sin mul def
1 setgray
xpos ypos xd2 0 360 arc fill
0 setgray
xpos ypos xd2 0 360 arc stroke
} for %j=0,19

newpath
0 1 19 {/j exch def %j=0,19
/xpos rx AngrgbTabt j 4 mul get cos mul def
/ypos rx AngrgbTabt j 4 mul get sin mul def
xpos 150 sub ypos 100 sub moveto
j 9 le {(0) show j cvishow} {j cvishow} ifelse
} for %j=0,19

0 1 1 {/j exch def %j=0,1
/xpos rx 650 sub AngrgbTabt j 4 mul get cos mul def
/ypos rx 650 sub AngrgbTabt j 4 mul get sin mul def
xpos 100 sub ypos 100 sub moveto
TBIG
(R) show (e) jshowTG TBG (?) show
} for %j=0,1

/j 19 def
/xpos rx 650 sub AngrgbTabt j 4 mul get cos mul def
/ypos rx 650 sub AngrgbTabt j 4 mul get sin mul def
TBIG
xpos 100 sub ypos 100 sub moveto
(R) show (e) jshowTG TBG (?) show

4 1 6 {/j exch def %j=4,6
/xpos rx 400 sub AngrgbTabt j 4 mul get cos mul def
/ypos rx 400 sub AngrgbTabt j 4 mul get sin mul def
xpos 200 sub ypos 100 sub moveto
TBIG
(Y) show (e) jshowTG TBG (?) show
} for %j=4,6

9 1 11 {/j exch def %j=9,11
/xpos rx 500 sub AngrgbTabt j 4 mul get cos mul def
/ypos rx 500 sub AngrgbTabt j 4 mul get sin mul def
xpos 250 sub ypos 100 sub moveto
TBIG
(G) show (e) jshowTG TBG (?) show
} for %j=9,11

14 1 16 {/j exch def %j=4,6
/xpos rx 400 sub AngrgbTabt j 4 mul get cos mul def
/ypos rx 400 sub AngrgbTabt j 4 mul get sin mul def
xpos 250 sub ypos 100 sub moveto
TBIG
(B) show (e) jshowTG TBG (?) show
} for %j=14,16

2600 neg 5100 neg translate
%END Elementary-Hue Circle
    
} if %pchartl=1 Y10-3N_AL39_JSO_1P2S.EPS


pchartl 2 eq {%pchartl=2; Y10-3N_AL09_JSO_1P3A.EPS; table colour rendering

%font0309A.ps***********************************************
%only T*V, R*V, T*W, R*W, jshowTV, jshowTR with T*W, R*W

/RW {100 /Times-Roman FS} bind def
/RV {150 /Times-Roman FS} bind def

/RIW {100 /Times-Italic FS} bind def
/RIV {150 /Times-Italic FS} bind def

/RBW {100 /Times-Bold FS} bind def
/RBV {150 /Times-Bold FS} bind def

/RBIW {100 /Times-BoldItalic FS} bind def
/RBIV {150 /Times-BoldItalic FS} bind def

/TW {100 /Times-ISOL1 FS} bind def
/TV {150 /Times-ISOL1 FS} bind def

/TIW {100 /TimesI-ISOL1 FS} bind def
/TIV {150 /TimesI-ISOL1 FS} bind def

/TBW {100 /TimesB-ISOL1 FS} bind def
/TBV {150 /TimesB-ISOL1 FS} bind def

/TBIW {100 /TimesBI-ISOL1 FS} bind def
/TBIV {150 /TimesBI-ISOL1 FS} bind def

/SW {100 /Symbol FS} bind def
/SV {150 /Symbol FS} bind def

/ishowRV  {RW  -00 -30 rmoveto
           show 00  30 rmoveto RV} def
/jshowRV  {RBW -00 -30 rmoveto
           show 00  30 rmoveto RBV} def

/ishowTV  {TW  -00 -30 rmoveto
           show 00  30 rmoveto TV} def
/jshowTV  {TBW -00 -30 rmoveto
           show 00  30 rmoveto TBV} def

%font0309A.ps***********************************************

/CMeasSxl (Measure: unknown) def
/CDeviceSxl (Device: unknown) def
/CDateSxl (Date: unknown) def

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

/xchartn xchartl xchartd idiv def
colorml 0 eq {/ilx 0 def
             }
             {%colorml=1
              xchartn 2 le {/ilx xchartn def} if
              xchartn 3 eq {/ilx       4 def} if
              xchartn 4 eq {/ilx       8 def} if
              xchartn 5 eq {/ilx      16 def} if
              xchartn 6 eq {/ilx      32 def} if
              xchartn 7 eq {/ilx      64 def} if
             } ifelse
             
/Xnref 0.63 ilx mul 0.9505 mul def
/Ynref 0.63 ilx mul def
/Znref 0.63 ilx mul 1.0890 mul def
     
/XQ Xnref  95.05 div def
/YQ Ynref 100.00 div def
/ZQ Znref 108.90 div def
XQ 0 lt {/XQ 0.00000001 def} if
YQ 0 lt {/YQ 0.00000001 def} if
ZQ 0 lt {/ZQ 0.00000001 def} if
/L*ref YQ 0.008856 lt {903.3 YQ mul}
                      {YQ 0.33333333 exp 116 mul 16 sub} ifelse def
/a*ref XQ 0.008856 lt {7.787 XQ mul 16 116 div add}
                      {XQ 0.33333333 exp} ifelse
       YQ 0.008856 lt {7.787 YQ mul 16 116 div add}
                      {YQ 0.33333333 exp} ifelse sub 500 mul def
/b*ref YQ 0.008856 lt {7.787 YQ mul 16 116 div add}
                      {YQ 0.33333333 exp} ifelse
       ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add}
                      {ZQ 0.33333333 exp} ifelse sub 200 mul def

/L*N L*ref def /L*W 95.41 def

/L*i 21 array def %different for xchartl=0,7
/a*i 21 array def
/b*i 21 array def
/l*i 21 array def
/Yi  21 array def

%equal distance between L*N and L*W
0 1 20 {/i exch def %steps from black to white
        i 15 le {/i0  0 def /istep 15 def}
                {/i0 16 def /istep  4 def} ifelse
         L*i i L*N L*W L*N sub i i0 sub istep div mul add put
         a*i i 0 put
         b*i i 0 put
         l*i i L*i i get L*N sub L*W L*N sub div put
        /Y* {L*i i get 16 add 116 div} bind def
        Yi i Y* DecodeXYZ* 100.00 mul put
       } for

/cvishow {cvi 6 string cvs show} def

72 90 translate
0.023 MM dup scale %attention different scale
15 setlinewidth

0 setgray
RV
4100 -120 moveto
(AI390-3) show
Txx show (: ) show
deintp  cvishow
colorml cvishow
xcolorl cvishow
xchartl cvishow
pchartl cvishow
 
50 -120 moveto
(Teil 1, ) showde
(part 1, ) showen
(parte 1, ) showes
(la part 1, ) showfr
(la parte 1, ) showit
(artikkelen 1, ) showjp

%(; ) show
%CMeasSxl show (; ) show
%CDeviceSxl show (; ) show
%CDateSxl show

/cvishow {cvi 6 string cvs show} def
/cvsshow0 {10 mul 0.5 add cvi 0.1 mul 10 string cvs show} def
/cvsshow1 {10 mul 0.5 add cvi 0.1 mul %new980310
           dup 0 ge {(  ) show} if
           dup abs 10 lt {(  ) show} if
           10 string cvs show} def
/cvsshow2 {100 mul 0.5 add cvi 0.01 mul %new980310
           dup 0 ge {(  ) show} if
           dup abs 10 lt {(  ) show} if
           10 string cvs show} def
/cvsshow3 {1000 mul 0.5 add cvi 0.001 mul 10 string cvs show} def

/cvsshow1x {/nxx exch def                              %example nxx=99.1/99.0
             nxx 10 mul cvi /nxi exch def              %nxi=991/990
             nxi 10 idiv /nxa exch def                 %nxa=99
             nxi nxa 10 mul sub /nxb exch def          %nxb=1/0
             nxa cvishow (,) show                      %nxa=99
             nxb cvishow                               %nxb=1/0
           } def
/cvsshow2x {/nxx exch def                              %example nxx=99.12/99,02/99,00
             nxx 100 mul cvi /nxi exch def             %nxi=9912/9902/00
             nxi 100 idiv /nxa exch def                %nxa=99
             nxi nxa 100 mul sub /nxb exch def         %nxb=12/02/00
             nxa cvishow (,) show                      %nxb=99,
             nxb 10 ge {nxb cvishow} if                %nxb=12
             nxb  1 ge
             nxb  9 le and {(0) show nxb cvishow} if   %nxb=02
             nxb  0 eq {(00) show} if                  %nxb=00
           } def
/cvsshow3x {/nxx exch def                              %example nxx=99.123/99.012/99.001/99.000
             nxx 1000 mul cvi /nxi exch def            %nxi=99123/99012/99001/99000
             nxi 1000 idiv /nxa exch def               %nxa=99
             nxi nxa 1000 mul sub /nxb exch def        %nxb=123/012/001/000
             nxa cvishow (,) show                      %nxb=99,
             nxb 100 ge {nxb cvishow} if               %nxb=123/012/001/000
             nxb  10 ge
             nxb  99 le and {(0) show nxb cvishow} if  %nxb=012
             nxb   1 ge
             nxb   9 le and {(00) show nxb cvishow} if %nxb=001
             nxb   0 eq {(000) show} if                %nxb=000
           } def
           
1 setgray
20 20 moveto 5400 0 rlineto 0 4000 rlineto   %relatives Bildfeld 54 x 40mm
            -5400 0 rlineto closepath fill
0 setgray
20 20 moveto 5400 0 rlineto 0 4000 rlineto   %relatives Bildfeld 54 x 40mm
            -5400 0 rlineto closepath stroke

/x0 050 def /y0 3700 def /yd 170 def
/xpos 18 array def
/xtex 18 array def
/xtexi 18 array def

/xpos [ 10  150   450  750            %i, LAB*refi(ikor)
            1000                      %d
            1300 1600 1900            %LAB*outi(ikor)
            2200 2500 2800            %dLABTO(ikor,ikor), dE*
            3050 3350 3850            %
            4200 4500 4800 5100] def  %
/xtex [(i) (LAB*) ( ) ( ) (l*)
           (LAB*) ( ) ( )
           (LAB*) ( ) ( ) (E*)
           ( ) ( ) ( )
           ( ) ( ) ( )] def

/xtexi [() (ref) ( ) ( ) (out)
           (out) ( ) ( )
           (out-ref) ( ) ( ) ()
           ( ) ( ) ( )
           ( ) ( ) ( )] def
 
0 1 16 { /j exch def
         RIV
         x0 xpos j get add y0 yd add moveto
         j 11 eq {SV (D) show RIV} if
         xtex j get show
         xtexi j get ishowRV 
       } for %j=0,1,...,16

colorml 1 eq {/xchartNl xchartl 8 idiv def
              /xchartPl xchartl xchartl 8 idiv 8 mul sub def
              /gammaNl 1 xchartNl 0.18 mul add def
              /gammaPl 1 1 xchartPl 0.18 mul add div def
              /gammal gammaNl gammaPl mul def
             } if

/L*gi 21 array def %different for xchartl=0,7
/a*gi 21 array def
/b*gi 21 array def
/l*gi 21 array def
/Ygi  21 array def

%distance between L*N and L*W using gamma
0 1 20 {/i exch def %steps from black to white
        l*gi i l*i i get colorm 1 eq {gammal exp} if put
         L*gi i L*W L*N sub l*gi i get mul L*N add put
         a*gi i 0 put
         b*gi i 0 put
        /Y* {L*gi i get 16 add 116 div} bind def
        Ygi i Y* DecodeXYZ* 100.00 mul put
       } for

/sumdL*  0 def /sumda* 0 def /sumdb* 0 def /sumdE* 0 def
/sumdNL* 0 def /sumdNa* 0 def /sumdNb* 0 def /sumdNE* 0 def
/sumdBL* 0 def /sumdBa* 0 def /sumdBb* 0 def /sumdBE* 0 def
/sumdRL* 0 def
/sumdFL* 0 def

0 1 20 {/i exch def %21 colours

0 1 12 {/j exch def %17 Positionen

RW
x0 xpos j get add y0 yd i mul sub moveto
 
j 0 eq {i 1 add cvishow } if
j 1 eq {L*i i get cvsshow2x} if
j 2 eq {a*i i get cvsshow2x} if
j 3 eq {b*i i get cvsshow2x} if

j 4 eq {l*gi i get cvsshow2x} if 
j 5 eq {L*gi i get cvsshow2x} if
j 6 eq {a*gi i get cvsshow2x} if
j 7 eq {b*gi i get cvsshow2x} if

j 8 eq {L*gi i get dup L*i i get sub cvsshow2x L*i i get sub
         abs /sumdL* exch sumdL* add def
       } if %j=8
j 9 eq {a*gi i get dup a*i i get sub cvsshow2x a*i i get sub
        abs /sumda* exch sumda* add def
       } if %j=9
j 10 eq {b*gi i get dup b*i i get sub cvsshow2x b*i i get sub
         abs /sumdb* exch sumdb* add def
        } if %j=10
 
j 11 eq {L*gi i get L*i i get sub dup mul
         a*gi i get a*i i get sub dup mul add
         b*gi i get b*i i get sub dup mul add 0.0001 add sqrt
         dup cvsshow2x /sumdE* exch sumdE* add def
        } if %j=11
 
i 15 lt {%16 Stufen
j 11 eq {L*gi i get L*i i get sub dup mul
         a*gi i get a*i i get sub dup mul add
         b*gi i get b*i i get sub dup mul add 0.0001 add sqrt
         /sumdBE* exch sumdBE* add def
        } if %j=11
        } if %16 Stufen
 
i 16 ge {%5 Unbunt=Noir
j 11 eq {L*gi i get L*i i get sub dup mul
         a*gi i get a*i i get sub dup mul add
         b*gi i get b*i i get sub dup mul add 0.0001 add sqrt
         /sumdNE* exch sumdNE* add def
        } if %j=11
        } if %5 Unbunt=Noir

12 j eq {%j=12
         i 00 eq {TBV
                  (Kennzeichnung nach) showde
                  (Specification according to) showen
                  (Especificati\363n de acuerdo) showes
                  (Selon la sp\351cification \340 la) showfr
                  (Specificatione secondo) showit
                  (Spesifikasjion i henhold) showjp

                  x0 xpos j get add y0 yd add moveto
                  TBV
                  (Startausgabe S1) showde
                  (Start output S1) showen
                  (a la salida S1) showes
                  (la sortie S1) showfr
                  (all'usica S1) showit
                  (til utgang S1) showjp
                  } if %i=0

         i 01 eq {TBV
                  (ISO/IEC 15775 Anhang G) showde
                  (ISO/IEC 15775 Annex G) showen
                  (ISO/IEC 15775 Anexo G) showes
                  (ISO/IEC 15775 Annexe G) showfr
                  (ISO/IEC 15775 Allegato G) showit
                  (ISO/IEC 15775 Anneks G) showjp
                 } if %i=1

         i 02 eq {RBV
                  (und DIN 33866-1 Anhang G) showde
                  (and DIN 33866-1 Annex G) showen
                  (y DIN 33866-1 Anexo G) showes
                  (et DIN 33866-1 Annexe G) showfr
                  (e DIN 33866-1 Allegato G) showit
                  (og DIN 33866-1 Anneks G) showjp
                 } if %i=2

           i 13 eq {TBV
                    (Mittlerer Helligkeitsabstand) showde
                    (Mean lightness difference) showen
                    (Diferencia de luminosidad) showes
                    (Difference moyenne de clart\351) showfr
                    (Significa differenza di) showit
                    (Gjennomsnittlig skryt) showjp
                   } if i%=13

           i 14 eq {TBV
                    ((16 Stufen)) showde
                    ((16 steps)) showen
                    (media (16 escalones)) showes
                    ((16 palier)) showfr
                    (luminosit\340 (16 passi)) showit
                    (forskjellen (16 trinn)) showjp
                   } if i%=14

            i 15 eq {SV (D) show TBIV (E*) show
                     (CIELAB) jshowTV ( = ) show
                     sumdBE* 16 div cvsshow1x
                    } if %i=15

           i 18 eq {TBV
                    (Mittlerer Helligkeitsabstand) showde
                    (Mean lightness difference) showen
                    (Diferencia de luminosidad) showes
                    (Difference moyenne de clart\351) showfr
                    (Significa differenza di) showit
                    (Gjennomsnittlig skryt) showjp
                   } if i%=18

           i 19 eq {TBV
                    ((5 Stufen)) showde
                    ((5 steps)) showen
                    (media (5 escalones)) showes
                    ((5 palier)) showfr
                    (luminosit\340 (5 passi)) showit
                    (forskjellen (5 trinn)) showjp
                   } if i%=19

           i 20 eq {SV (D) show TBIV (L*) show
                     (CIELAB) jshowTV ( = ) show
                     sumdNE* 05 div cvsshow1x
                   } if %i=20

           } if %j=12

} for %j=0,12

} for %i=0,20

/j 1 def
 x0 xpos j get add 000 add y0 yd 21 mul sub moveto
RBV
(Mittlerer Farbwiedergabe-Index:) showde
TBV
(Mean colour reproduction index:) showen
(Media del indice de reproducti\363n de color:) showes
(Moyenne de l'indice de reproduction de couleur:) showfr
(Colore medio indice di riproduzione:) showit
(Gjennomsmittlig fargegjengivelse indeks:) showjp
 
 TBIV ( R*) show (ab,m) jshowTV ( = ) show
 100 sumdBE* 21 div
 sumdNE* 21 div add 4.6 mul sub cvsshow1x

} if %pchartl=2; Y10-3N_AL09_JSO_1P3A.EPS; table colour rendering


showpage
grestore

%} for %pchartl=0,2

%} for %xchartl=0,7

%} for %xcolorl=0,3

%} for %colorml=0,1

%%Trailer