%!PS-Adobe-3.0 EPSF-3.0 MG361-7
%%BoundingBox: 70 83 226 206
%old BoundingBox: 72 90 390 534
 
%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: MG361-7)
  /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 pdfmark17
[ /View [ /FitB ]
/DOCVIEW pdfmark17
%END  PDFDE011

% 54 Zeilen + Titel-Rand (16) = 54*8+16 = 448; 90+432+16 = 538
% 158,0 mm = 158,0*72/25.4 = 448
% !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
 
%%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 0 def /lanind2 0 def} ifelse
lanind1 1 lanind2 {/lanind exch def %output showpage
gsave
%LANINDL2 END


8 /Times-Roman FS
340 85 moveto
 (MG361-7, B8_39) show %    ( B7223_7, M8511-7, B8_39, N=8_39 2x4) show
 
72 90 translate
 
/yhoe 15650 def
0.01 MM 0.01 MM scale
 
/ausz 8 def
15 setlinewidth %2X4
0.2 0.0 0.0 0.0 setcmykcolor
0 0  moveto 11200 0 rlineto 0 yhoe rlineto -11200 0 rlineto
closepath fill
0.0 0.0 0.0 1.0 setcmykcolor
 
0 0  moveto 11200 0 rlineto 0 yhoe rlineto -11200 0 rlineto
closepath stroke
 
0 yhoe 450 sub moveto 11200 0 rlineto  0 450 rlineto -11200 0 rlineto
closepath stroke
 
/TES {250 /Courier FS
 /anz exch def /ydt exch def /y0t exch def /x0t exch def} bind def
/TEA {0 1 anz 1 sub {ydt mul y0t add x0t exch moveto show} for} bind def
 
%Titeltext
350 /Times-ISOL1  FS
 50 yhoe 350 sub moveto
(PSL2\255Programmcode: ) showde                                 %08511-7 1
(PSL2\255program code: ) showen                                 %18511-7 1
(PSL2\255Lenguaje: Definici\363n ) showes                       %28511-7 1
(PSL2\255program code: ) showfr                                 %38511-7 1
(PSL2\255program code: ) showit                                 %48511-7 1
(PSL2\255program code: ) showjp                                 %58511-7 1
(Definition und Reproduktion von 17 CIE-Testfarben) showde      %08511-7 2
(definition and reproduction of 17 CIE\255test colors) showen   %18511-7 2
(y Reproducci\363n con 17 CIE\255Testcolor) showes              %28511-7 2
(definition and reproduction of 17 CIE\255test colors) showfr   %38511-7 2
(definition and reproduction of 17 CIE\255test colors) showit   %48511-7 2
(definition and reproduction of 17 CIE\255test colors) showjp   %58511-7 2
 
/yd24 {3600 16 div} bind def %y-Zeilenabstand
/x0 200 def %untere x-Textecke
/y0 100 def %untere y-Textecke
 
lanind 0 eq {%difde
x0 y0 yd24 107 40 sub TES %anz=68
(%!PS-Adobe-3.0 B7221-7n.eps  20.10.94)
(%%BoundingBox: 72 90 226 206)
(/FS {findfont exch scalefont setfont} bind def)
(/MM {72 25.4 div mul} def)
(/languagelevel where {pop languagelevel} {1} ifelse)
(                     /PSL12 exch def)
(/dictende {counttomark 2 idiv dup dict begin {def})
(           repeat pop currentdict end} bind def)
(%%EndProlog)
( )
(72 90 translate  0.01  MM  dup  scale  20 setlinewidth)
( )
(PSL12 2 eq {[ /CIEBasedABC [ %Farbraum und Grenzen fuer D65)
( /WhitePoint  [0.9505 1 1.089]       %CIEXYZ fuer D65)
( /RangeABC [0 0.9505  0 1  0 1.0885] %CIEXYZ-Grenzen N/W)
( /RangeLMN [0 0.9505  0 1  0 1.0885] dictende ])
(  setcolorspace } if  %Ende Standard-Definition PSL2-CIEBasedA)
( )
(PSL12 1 eq                         %Definition alle PSL1-Geraete)
( { {/setrgbcolor where             %Abfrage auf PSL1-Farb-Geraet)
(    {pop setrgbcolor}                          %PSL1-Farb-Geraet)
(    {pop 0.4 exp setgray pop} ifelse }         %PSL1-SW-Geraet)
( /setcolor exch def} if)
( )
(/colRec {moveto s 0 rlineto 0 s rlineto s neg 0 rlineto %Quadrat)
(  closepath setcolor} bind def)
( )
(0.1885 0.1983 0.2157 setcolor %Testfarbe Nr 16 (Mittelgrau))
( )
(0 0 moveto 5400 0 rlineto 0 4000 rlineto   %Bildfeld 54mm x 40mm)
(          -5400 0 rlineto closepath fill)
( )
(250 /Times-Bold FS   0.7239 0.7615 0.8289 setcolor %Weiss)
(3200 3300 moveto (17 CIE-Testfarben) show)
( )
(500 500 translate %Nullpunkt untere linke Testfarbe)
( )
(/s 600 def  /xw 1000 def  /yw 800 def %Quadratseite und Abstaende)
( )
(%   X     Y      Z    x,y-Position      fuelle Farbrechteck)
( 0.3298 0.2976 0.2459 0        0        colRec fill %CIE-TF01)
( 0.2749 0.2890 0.1501 xw 1 mul yw 0 mul colRec fill %CIE-TF02)
( 0.2393 0.3043 0.0996 xw 2 mul yw 0 mul colRec fill %CIE-TF03)
( 0.2045 0.2948 0.2127 xw 3 mul yw 0 mul colRec fill %CIE-TF04)
( 0.2502 0.3087 0.4042 xw 4 mul yw 0 mul colRec fill %CIE-TF05)
( 0.2826 0.2983 0.5791 0        yw 1 mul colRec fill %CIE-TF06)
( 0.3333 0.2939 0.5322 xw 1 mul yw 1 mul colRec fill %CIE-TF07)
( 0.3757 0.3131 0.4544 xw 2 mul yw 1 mul colRec fill %CIE-TF08)
( 0.2048 0.1120 0.0436 xw 3 mul yw 1 mul colRec fill %CIE-TF09)
( 0.5487 0.5894 0.1208 xw 4 mul yw 1 mul colRec fill %CIE-TF10)
( 0.1212 0.2035 0.1533 0        yw 2 mul colRec fill %CIE-TF11)
( 0.0628 0.0647 0.2773 xw 1 mul yw 2 mul colRec fill %CIE-TF12)
( 0.5885 0.5709 0.4139 xw 2 mul yw 2 mul colRec fill %CIE-TF13)
( 0.0935 0.1171 0.0543 xw 3 mul yw 2 mul colRec fill %CIE-TF14)
( 0.0342 0.0359 0.0394 0        yw 3 mul colRec fill %CIE-TF15 N)
( 0.1885 0.1983 0.2157 xw 1 mul yw 3 mul colRec fill %CIE-TF16 Z)
( 0.7239 0.7615 0.8289 xw 2 mul yw 3 mul colRec fill %CIE-TF17 W)
( 0.7239 0.7615 0.8289 xw 1 mul yw 3 mul colRec stroke  %-TF17 W)
( )
(1 1 17 {/nr1 exch def          %Quadrate und Texte Nr. 1 bis 17)
(   nr1 9 gt {/xp 300 def}{/xp 200 def} ifelse)
(   nr1 14 gt {/nr nr1 1 add def} {/nr nr1 def} ifelse)
(   nr 1 sub 5 idiv /i exch def)
(   nr 1 sub 5 mod /j exch def)
(   j xw mul xp sub i yw mul 20 add moveto)
(   nr1 4 string cvs show } for)
(showpage)
TEA } if %ifde
 
lanind 1 ge {%difen
x0 y0 yd24 107 40 sub TES %anz=68
(%!PS-Adobe-3.0 B7221-7n.eps  20.10.94)
(%%BoundingBox: 72 90 226 206)
(/FS {findfont exch scalefont setfont} bind def)
(/MM {72 25.4 div mul} def)
(/languagelevel where {pop languagelevel} {1} ifelse)
(                     /PSL12 exch def)
(/dictende {counttomark 2 idiv dup dict begin {def})
(           repeat pop currentdict end} bind def)
(%%EndProlog)
( )
(72 90 translate  0.01  MM  dup  scale  20 setlinewidth)
( )
(PSL12 2 eq {[ /CIEBasedABC [ %color space and limits for D65)
( /WhitePoint  [0.9505 1 1.089]       %CIEXYZ for D65)
( /RangeABC [0 0.9505  0 1  0 1.0885] %CIEXYZ-limits N/W)
( /RangeLMN [0 0.9505  0 1  0 1.0885] dictende ])
(  setcolorspace } if  %end standard definition PSL2-CIEBasedA)
( )
(PSL12 1 eq                         %definition for PSL1-devices)
( { {/setrgbcolor where             %question for PSL1-color device)
(    {pop setrgbcolor}                          %PSL1-color device)
(    {pop 0.4 exp setgray pop} ifelse }         %PSL1->NW-device)
( /setcolor exch def} if)
( )
(/colRec {moveto s 0 rlineto 0 s rlineto s neg 0 rlineto %square)
(  closepath setcolor} bind def)
( )
(0.1885 0.1983 0.2157 setcolor %test color no. 16 (mean gray))
( )
(0 0 moveto 5400 0 rlineto 0 4000 rlineto   %image size 54mm x 40mm)
(          -5400 0 rlineto closepath fill)
( )
(250 /Times-Bold FS   0.7239 0.7615 0.8289 setcolor %white)
(3200 3300 moveto (17 CIE-test colors) show)
( )
(500 500 translate  %zero point lower left test color)
( )
(/s 600 def  /xw 1000 def  /yw 800 def %square width and distances)
( )
(%   X     Y      Z    x,y-position      fill color rectangle)
( 0.3298 0.2976 0.2459 0        0        colRec fill %CIE-TF01)
( 0.2749 0.2890 0.1501 xw 1 mul yw 0 mul colRec fill %CIE-TF02)
( 0.2393 0.3043 0.0996 xw 2 mul yw 0 mul colRec fill %CIE-TF03)
( 0.2045 0.2948 0.2127 xw 3 mul yw 0 mul colRec fill %CIE-TF04)
( 0.2502 0.3087 0.4042 xw 4 mul yw 0 mul colRec fill %CIE-TF05)
( 0.2826 0.2983 0.5791 0        yw 1 mul colRec fill %CIE-TF06)
( 0.3333 0.2939 0.5322 xw 1 mul yw 1 mul colRec fill %CIE-TF07)
( 0.3757 0.3131 0.4544 xw 2 mul yw 1 mul colRec fill %CIE-TF08)
( 0.2048 0.1120 0.0436 xw 3 mul yw 1 mul colRec fill %CIE-TF09)
( 0.5487 0.5894 0.1208 xw 4 mul yw 1 mul colRec fill %CIE-TF10)
( 0.1212 0.2035 0.1533 0        yw 2 mul colRec fill %CIE-TF11)
( 0.0628 0.0647 0.2773 xw 1 mul yw 2 mul colRec fill %CIE-TF12)
( 0.5885 0.5709 0.4139 xw 2 mul yw 2 mul colRec fill %CIE-TF13)
( 0.0935 0.1171 0.0543 xw 3 mul yw 2 mul colRec fill %CIE-TF14)
( 0.0342 0.0359 0.0394 0        yw 3 mul colRec fill %CIE-TF15 N)
( 0.1885 0.1983 0.2157 xw 1 mul yw 3 mul colRec fill %CIE-TF16 Z)
( 0.7239 0.7615 0.8289 xw 2 mul yw 3 mul colRec fill %CIE-TF17 W)
( 0.7239 0.7615 0.8289 xw 1 mul yw 3 mul colRec stroke  %-TF17 W)
( )
(1 1 17 {/nr1 exch def          %squares and text no. 1 to 17)
(   nr1 9 gt {/xp 300 def}{/xp 200 def} ifelse)
(   nr1 14 gt {/nr nr1 1 add def} {/nr nr1 def} ifelse)
(   nr 1 sub 5 idiv /i exch def)
(   nr 1 sub 5 mod /j exch def)
(   j xw mul xp sub i yw mul 20 add moveto)
(   nr1 4 string cvs show } for)
(showpage)
TEA } if %ifen
 
showpage
grestore
} for %output with langind end
%%Trailer