%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/AGS5/AGS5L00XX.PS 20201101
%%BoundingBox: 07 04 414 292

/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 (PostScript pictures: http://farbe.li.tu-berlin.de/AGS5/AGS5.HTM)
 /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1)
 /Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.45/~farbmetrik)
 /Keywords (image reproduction, colour devices)
 /Creator (klaus.richter@mac.com)
 /CreationDate (D:2020110112000)
 /ModDate (D:2020110112000)
/DOCINFO pdfmark
[ /View [ /Fit ]
/DOCVIEW pdfmark
%Y10G00NA.PS6

%line 20******************************************************
%BEG AGS5/OUTLIN10.PS Emty 20120301

%END AGS5/OUTLIN10.PS Emty 20120301
                                                                         
%BEG AGS5/OUTLIN1X.PS 20110801
%EMPTY
%END AGS5/OUTLIN1X.PS 20110801
                                                                         
%BEG AGS5/OUTLIN1Y2.PS Emty 20101101

%END AGS5/OUTLIN1Y2.PS Emty 20101101
                                                                         
/BeginEPSF {% def               % Prepare for EPS file
/b4_Inc_state save def          % Save state for cleanup
/dict_count countdictstack def
/op_count count 1 sub def       % Count objects on op stack
userdict begin                  % Make userdict current dict
/showpage {} def
0 setgray 0 setlinecap
1 setlinewidth 0 setlinejoin
10 setmiterlimit [] 0 setdash newpath
/languagelevel where            % If level not equal to 1 then
 {pop languagelevel where       % If level not equal to 1 then
 1 ne
 {false setstrokeadjust false setoverprint
 } if
} if
} bind def

/EndEPSF  {% def              % End for EPS file
 count op_count sub {pop} repeat
 countdictstack dict_count sub {end} repeat	% Clean up dict stack
 b4_Inc_state restore
} bind def

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def /str {8 string } bind def
/languagelevel where {pop languagelevel} {1} ifelse
                     /PSL12 exch def
/dictende {counttomark 2 idiv dup dict begin {def}
           repeat pop currentdict end} 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
 
/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
 
%ANFA CMYKDEF
%CMYKDEA0 (A0=Standard-Drucker-CMYKDEF) 15.3.97
/tzac [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533
       0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000
       1.000 0.750 0.500 0.250 0.000] def
/tzam [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533
       0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000
       1.000 0.750 0.500 0.250 0.000] def
/tzay [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533
       0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000
       1.000 0.750 0.500 0.250 0.000] def
/tzan [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533
       0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000
       1.000 0.750 0.500 0.250 0.000] def
/tza0 [0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000
       0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000
       0.000 0.000 0.000 0.000 0.000] def
/tza1 [1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000
       1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000
       1.000 1.000 1.000 1.000 1.000] def
%ENDE CMYKD
 
/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
 
/colrecfiLAB* %x y width heigth LAB*
  { setcolor rec fill} bind def

/colrecstLAB* %x y width heigth LAB*
  { setcolor rec stroke} bind def

/colrecficmyn* %x y width heigth cmy0* or 000n*
  { setcmykcolor rec fill} bind def
 
/colrecstcmyn* %x y width heigth cmy0* or 000n*
  { setcmykcolor rec stroke} bind def

/colrecfiw* %x y width heigth w*
  { setgray rec fill} bind def

/colrecstw* %x y width heigth w*
  { setgray rec stroke} bind def

/colrecfiolv* %x y width heigth olv*
  { setrgbcolor rec fill} bind def

/colrecstolv* %x y width heigth olv*
  { setrgbcolor rec stroke} bind def
 
/tzocmy0* {0.0 1.0 1.0 0.0} bind def %Reproduction colours
/tzlcmy0* {1.0 0.0 1.0 0.0} bind def %cmyn* setcmykcolor
/tzvcmy0* {1.0 1.0 0.0 0.0} bind def
/tzccmy0* {1.0 0.0 0.0 0.0} bind def
/tzmcmy0* {0.0 1.0 0.0 0.0} bind def
/tzycmy0* {0.0 0.0 1.0 0.0} bind def

/tzoolv* {1.0 0.0 0.0} bind def %Reproduction colours
/tzlolv* {0.0 1.0 0.0} bind def %olv* setrgbcolor
/tzvolv* {0.0 0.0 1.0} bind def
/tzcolv* {0.0 1.0 1.0} bind def
/tzmolv* {1.0 0.0 1.0} bind def
/tzyolv* {1.0 1.0 0.0} bind def
 
/tzoLAB* [53.34  72.46  50.66] def %Reproduction colours
/tzlLAB* [84.93 -79.83  74.80] def %LAB* setcolor
/tzvLAB* [32.20  24.88 -37.89] def
/tzcLAB* [88.10 -44.88 -13.36] def
/tzmLAB* [59.66  90.32 -19.65] def
/tzyLAB* [93.76 -20.24  85.93] def

/tzncmy0* {1.00 1.00 1.00 0.00} bind def %grey series
/tzdcmy0* {0.75 0.75 0.75 0.00} bind def %cmy0* setcmykcolor
/tzzcmy0* {0.50 0.50 0.50 0.00} bind def
/tzhcmy0* {0.25 0.25 0.25 0.00} bind def
/tzwcmy0* {0.00 0.00 0.00 0.00} bind def
 
/tzn000n* {0.00 0.00 0.00 1.00} bind def %grey series 000n*
/tzd000n* {0.00 0.00 0.00 0.75} bind def %000n* setcmykcolor
/tzz000n* {0.00 0.00 0.00 0.50} bind def
/tzh000n* {0.00 0.00 0.00 0.25} bind def
/tzw000n* {0.00 0.00 0.00 0.00} bind def

/tznw* {0.00} bind def %grey series
/tzdw* {0.25} bind def %w* setgray
/tzzw* {0.50} bind def
/tzhw* {0.75} bind def
/tzww* {1.00} bind def

/tznolv* {0.00 0.00 0.00} bind def %grey series
/tzdolv* {0.25 0.25 0.25} bind def %olv* setrgbcolor
/tzzolv* {0.50 0.50 0.50} bind def
/tzholv* {0.75 0.75 0.75} bind def
/tzwolv* {1.00 1.00 1.00} bind def

/tznLAB* [18.01 0.00 0.00] def %grey series
/tzdLAB* [37.36 0.00 0.00] def %LAB* setcolor
/tzzLAB* [56.71 0.00 0.00] def
/tzhLAB* [76.06 0.00 0.00] def
/tzwLAB* [95.41 0.00 0.00] def

/tfn {0 setgray} bind def
/tfw {1 setgray} bind def
 
/A4quer {598 0 translate 90 rotate} def
/cvishow {cvi 6 string cvs show} def
/cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def
/cvsshow2 {100 mul cvi 0.01 mul 7 string cvs show} def
/cvsshow3 {1000 mul cvi 0.001 mul 7 string cvs show} def

%%EndProlog

%***********************************************************
%%BeginPageSetup
/#copies 1 def
%A4querF
0.5 0.5 scale
/pgsave save def
%%EndPageSetup

/SS$ [(G) (E) (S) (F) (I) (J) (M)] def
/SC$ [(N) (F) (S) (D) (T) (E) (C)] def
/SX$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)] def
/SY$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)] def
%       0           1            2            3            4            5
%       6           7            8
/EX$ [(1.TXT /.PS) (B.BMP /.PS) (G.GIF /.PS) (H.HTM /.PS) (I.HTM /.PS)
      (J.JPE /.PS) (P.PDF /.PS) (T.TIF /.PS)] def
/EY$ [(1.DAT) (B.DAT) (G.DAT) (H.DAT) (I.DAT) (J.DAT)
      (P.DAT) (T.DAT)] def

%*******************************************************************
/lanind1f 00 def /lanind2f 00 def /laninddf 01 def /lanindmf 01 def
/colorm1f 00 def /colorm2f 00 def /colormdf 01 def /colormmf 01 def
/deintp1f 00 def /deintp2f 00 def /deintpdf 01 def /deintpmf 01 def
/xcolor1f 00 def /xcolor2f 00 def /xcolordf 01 def /xcolormf 01 def %2/10degree
/xchart1f 00 def /xchart2f 00 def /xchartdf 01 def /xchartmf 01 def
/xchart3f 01 def /xchart4f 00 def /xchart5f 00 def
/pchart1f 00 def /pchart2f 00 def /pchartdf 01 def /pchartmf 01 def %=3:sRGB,Lr
/colsep1f 00 def /colsep2f 00 def /colsepdf 01 def /colsepmf 01 def
/pmetam1f 00 def /pmetam2f 00 def /pmetamdf 01 def /pmetammf 01 def
%/lanindf lanind1f def %
/lanindf lanind1f def %lanind1f laninddf lanind2f {/lanindf exch def

%/colormf colorm1f def %
/colormf colorm1f def %colorm1f colormdf colorm2f {/colormf exch def

%/deintpf deintp1f def %
/deintpf deintp1f def %deintp1f deintpdf deintp2f {/deintpf exch def

%/xcolorf xcolor1f def %
/xcolorf xcolor1f def %xcolor1f xcolordf xcolor2f {/xcolorf exch def

%/xchartf xchart1f def %
/xchartf xchart1f def %xchart1f xchartdf xchart2f {/xchartf exch def

%/pchartf pchart1f def %
/pchartf pchart1f def %/pchartf pchart1f def %pchart1f pchartdf pchart2f {/pchartf exch def

%/colsepf colsep1f def %
/colsepf colsep1f def %colsep1f colsepdf colsep2f {/colsepf exch def

/lanind lanindf def
/colorm colormf def
/deintp deintpf def
/xcolor xcolorf def
/xchart xchartf def   /xchartm xchart2f xchart1f sub 1 add def
/xchart3 xchart3f def /xchart4 xchart4f def
/pchart pchartf def
/colsep colsepf def

%/pmetamf pmetam1f def %
/pmetamf pmetam1f def %pmetam1f pmetamdf pmetam2f {/pmetamf exch def

/pmetam pmetamf def

%*************************************************************
%/setgray {sfgray} bind def
%/setrgbcolor {sfrgbcolor} bind def
%/setcmykcolor {sfcmykcolor} bind def

%72 90 translate

%0.01 MM dup scale
%0 0 moveto 24600 0 rlineto 0 17220 rlineto
%          -24600 0 rlineto closepath stroke
%000 -240 moveto
%240 /Times-ISOL1 FS
%lanindf cvishow (-) show
%colormf cvishow
%deintpf cvishow
%xcolorf cvishow
%xchartf cvishow
%pchartf cvishow
%colsepf cvishow (-F) show pmetamf cvishow

%grestore
gsave

/GSS$ SS$ lanind get def
/GSC$ SC$ colorm get def
/GSX$ SX$ xcolor xcolor 16 idiv 16 mul sub get def
/GSY$ SY$ xchart xchart 16 idiv 16 mul sub get def
/GEX$ EX$ 0 get def
/GEY$ EY$ 0 get def

%01
%02
%03
%04
%05
%06
%07
%08
%09
%10
/12RN  {12 /Times-Roman FS} bind def      /10RN  {10 /Times-Roman FS} bind def
/12RI  {12 /Times-Italic FS} bind def     /10RI  {10 /Times-Italic FS} bind def
/12RB  {12 /Times-Bold FS} bind def       /10RB  {10 /Times-Bold FS} bind def
/12RBI {12 /Times-BoldItalic FS} bind def /10RBI {10 /Times-BoldItalic FS} bind def
/12TN  {12 /Times-ISOL1 FS} bind def      /10TN  {10 /Times-ISOL1 FS} bind def
/12TI  {12 /TimesI-ISOL1 FS} bind def     /10TI  {10 /TimesI-ISOL1 FS} bind def
/12TB  {12 /TimesB-ISOL1 FS} bind def     /10TB  {10 /TimesB-ISOL1 FS} bind def
/12TBI {12 /TimesBI-ISOL1 FS} bind def    /10TBI {10 /TimesBI-ISOL1 FS} bind def

%gsave
BeginEPSF
 28 MM 197 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 10

%line 329

%%EndDocument
EndEPSF grestore gsave
/SHSl 2 def /SHAl 2 def
BeginEPSF
 28 SHSl sub MM  152 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 11

%line 339
%!PS-Adobe-3.0 EPSF-3.0 AGS50-1,
%%BoundingBox: 70 90 226 206

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave

8 /Times-Roman FS
72 83 moveto
%!2     (AGS50-1,) show

72 90 translate

%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0  moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke

grestore

showpage
%%Trailer

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
 86 SHAl add MM 152 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 12

%line 349
%!PS-Adobe-3.0 EPSF-3.0 AGS50-2,
%%BoundingBox: 70 90 226 206

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave

8 /Times-Roman FS
72 83 moveto
%!2     (AGS50-2,) show

72 90 translate

%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0  moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke

grestore

showpage
%%Trailer

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
 28 SHSl sub MM 108 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 13

%line 359
%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/AGS5/AGS50-3
%%BoundingBox: 70 83 392 335

%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: farbe.li.tu-berlin.de/AGS5/AGS5.HTM)
 /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1)
 /Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.45/~farbmetrik)
 /Keywords (image reproduction, colour devices)
 /Creator (klaus.richter@mac.com)
 /CreationDate (D:2020110112000)
 /ModDate (D:20201101112000)
/DOCINFO pdfmark03
[ /View [ /Fit ]
/DOCVIEW pdfmark03
%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
 
/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

/RV {150 /Times-Roman FS} bind def
/RS {190 /Times-Roman FS} bind def
/RK {240 /Times-Roman FS} bind def
/RM {290 /Times-Roman FS} bind def
/RG {340 /Times-Roman FS} bind def

/RIV {150 /Times-Italic FS} bind def
/RIS {190 /Times-Italic FS} bind def
/RIK {240 /Times-Italic FS} bind def
/RIM {290 /Times-Italic FS} bind def
/RIG {340 /Times-Italic FS} bind def

/RBV {150 /Times-Bold FS} bind def
/RBS {190 /Times-Bold FS} bind def
/RBK {240 /Times-Bold FS} bind def
/RBM {290 /Times-Bold FS} bind def
/RBG {340 /Times-Bold FS} bind def

/RBIV {150 /Times-BoldItalic FS} bind def
/RBIS {190 /Times-BoldItalic FS} bind def
/RBIK {240 /Times-BoldItalic FS} bind def
/RBIM {290 /Times-BoldItalic FS} bind def
/RBIG {340 /Times-BoldItalic FS} bind def


/TV {150 /Times-ISOL1 FS} bind def
/TS {190 /Times-ISOL1 FS} bind def
/TK {240 /Times-ISOL1 FS} bind def
/TM {290 /Times-ISOL1 FS} bind def
/TG {340 /Times-ISOL1 FS} bind def

/TIV {150 /TimesI-ISOL1 FS} bind def
/TIS {190 /TimesI-ISOL1 FS} bind def
/TIK {240 /TimesI-ISOL1 FS} bind def
/TIM {290 /TimesI-ISOL1 FS} bind def
/TIG {340 /TimesI-ISOL1 FS} bind def

/TBV {150 /TimesB-ISOL1 FS} bind def
/TBS {190 /TimesB-ISOL1 FS} bind def
/TBK {240 /TimesB-ISOL1 FS} bind def
/TBM {290 /TimesB-ISOL1 FS} bind def
/TBG {340 /TimesB-ISOL1 FS} bind def

/TBIV {150 /TimesBI-ISOL1 FS} bind def
/TBIS {190 /TimesBI-ISOL1 FS} bind def
/TBIK {240 /TimesBI-ISOL1 FS} bind def
/TBIM {290 /TimesBI-ISOL1 FS} bind def
/TBIG {340 /TimesBI-ISOL1 FS} bind def

/SV {150 /Symbol FS} bind def
/SS {190 /Symbol FS} bind def
/SK {240 /Symbol FS} bind def
/SM {290 /Symbol FS} bind def
/SG {340 /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
/circ %x, y radius
  {dcirc 0 360 arc } 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

/colarcfi %x y c m y k
  {setcmyk_olvcolor circ fill} bind def

/colarcst %x y width heigth c m y k
  {setcmyk_olvcolor circ 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

/tfrz {0.0 1.0 1.0 0.5 setcmyk_olvcolor} bind def %Reproduktionsfarben
/tfgz {1.0 0.0 1.0 0.5 setcmyk_olvcolor} bind def
/tfbz {1.0 1.0 0.0 0.5 setcmyk_olvcolor} bind def
/tfcz {1.0 0.0 0.0 0.5 setcmyk_olvcolor} bind def
/tfmz {0.0 1.0 0.0 0.5 setcmyk_olvcolor} bind def
/tfyz {0.0 0.0 1.0 0.5 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

/cvishow {cvi 10 string cvs show} def
/cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def
/cvsshow2 {100 mul cvi 0.01 mul 7 string cvs show} def
/cvsshow3 {1000 mul cvi 0.001 mul 7 string cvs show} def

/DecodeXYZ* {dup 6 29 div ge {dup dup mul mul}
            {4 29 div sub 108 841 div mul} ifelse} 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 {3 lanind eq {show} {pop} ifelse} bind def
/showfr {2 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

/lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def
                    /lanindd laninddf def}
               {/lanind1 0 def /lanind2 0 def} ifelse
/colormf where {pop /colorm1 colormf def /colorm2 colormf def
                    /colorMD colormdf def}
               {/colorm1 0 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

5 /Times-ISOL1 FS
75 85 moveto
lanind cvishow (-) show
colorm cvishow
deintp cvishow
xcolor cvishow
xchart cvishow
pchart cvishow
colsep cvishow (-L) show pmetam cvishow

gsave
/xchart xchart1 def

/xchartl 0 def

gsave

0 setgray
4 /Times-ISOL1 FS
74 86 moveto
(AGS50-3N) show

%xchartl 0 eq {(AGS50-3N) show} if
%xchartl 1 eq {(AGS50-7N) show} if
%xchartl 2 eq {(AGS51-3N) show} if
%xchartl 3 eq {(AGS51-7N) show} if %not used

72 90 translate

/yhoe 8500 def
0.01 MM dup scale

15 setlinewidth
0.0 0.0 0.0 0.0 setcmyk_olvcolor
0 0  moveto 11200 0 rlineto 0 yhoe rlineto -11200 0 rlineto
closepath fill
0.0 0.0 0.0 1.0 setcmyk_olvcolor
 0 0  moveto 11200 0 rlineto 0 yhoe rlineto -11200 0 rlineto
closepath stroke

 0 yhoe 400 sub  moveto 11200 0 rlineto stroke
 
/ns {340 /Times-ISOL1 FS  show TG} bind def
/ks {340 /TimesI-ISOL1 FS  show TG} bind def
/bs {340 /TimesB-ISOL1 FS  show TG} bind def
/js {340 /TimesBI-ISOL1 FS  show TG} bind def
/ss {340 /Symbol FS  show TG} bind def
/is {240 /Times-ISOL1 FS 0 -90 rmoveto show 0   90 rmoveto TG} bind def
/is0 {240 /Times-ISOL1 FS -30 -90 rmoveto show 0   90 rmoveto TG} bind def
/es {240 /Times-ISOL1 FS 0 200 rmoveto show 0 -200 rmoveto TG} bind def
%/ipoint {340 /Times-ISOL1 FS 50 50 rmoveto show 50 -50 rmoveto TG} bind def
%/ip {(.) ipoint} bind def
/ip {(\267) ns TG} bind def
/ib {(\267) bs TG} bind def

%20% kleiner
/ns2 {290 /Times-ISOL1 FS  show TM} bind def
/ks2 {290 /TimesI-ISOL1 FS  show TM} bind def
/bs2 {290 /TimesB-ISOL1 FS  show TM} bind def
/js2 {290 /TimesBI-ISOL1 FS  show TM} bind def
/is2 {200 /Times-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TM} bind def
/is20 {200 /Times-ISOL1 FS -20 -60 rmoveto show 0 60 rmoveto TM} bind def
/iks2 {200 /TimesI-ISOL1 FS 10 -40 rmoveto show -10 40 rmoveto TM} bind def
/es2 {240 /Times-ISOL1 FS 0 060 rmoveto show 0 -060 rmoveto TM} bind def
/ip2 {(\267) ns2 TM} bind def
/ib2 {(\267) bs2 TM} bind def

%40% kleiner
/ns4 {240 /Times-ISOL1 FS  show TK} bind def
/ks4 {240 /TimesI-ISOL1 FS  show TK} bind def
/bs4 {240 /TimesB-ISOL1 FS  show TK} bind def
/js4 {240 /TimesBI-ISOL1 FS  show TK} bind def
/is4 {160 /Times-ISOL1 FS -30 -48 rmoveto show 0 48 rmoveto TK} bind def
/ibs4 {160 /TimesB-ISOL1 FS -30 -48 rmoveto show 0 48 rmoveto TK} bind def
/iks4 {160 /TimesI-ISOL1 FS -30 -48 rmoveto show 0 48 rmoveto TK} bind def
/es4 {200 /Times-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto TK} bind def
/ip4 {(\267) ns4 TK} bind def
/ib4 {(\267) bs4 TK} bind def

/ydel 300 def

%Titeltext
 100 8200 moveto
TBM
(16stufige Grauskalierung zwischen ) showde
(Equal 16 step grey scaling between ) showen
(16 pasos di gri con escala equal entre ) showes
(Les 16 plages d'\351chelle de gris entre ) showfr
(16 fasi di grigio con uguale la scalatura fra ) showit
(16 trinn av gr\345 med samme skalering mellom ) showjp

(L*) js2 (N) is2 
TBM
( und ) showde
( and ) showen
( y ) showes
( et ) showfr
( e ) showit
( og ) showjp

(L*) js2 (W) is2 TBM

TBM
( f\374r 3 Reflexionen des Umgebungslichts) showde
( for three reflections of ambient light) showen
( para tres reflexiones de luz ambiental) showes
( pour trois r\351flexions de lumi\350re ambiante) showfr
( per tre riflessioni della luce ambiente) showit
( for tre refections omgivelselys) showjp

/La*0i 16 array def
/La*1i 16 array def
/La*2i 16 array def

/Da*0i 16 array def
/Da*1i 16 array def
/Da*2i 16 array def

/lr*0i 16 array def
/lr*1i 16 array def
/lr*2i 16 array def

/wl*0i 16 array def
/wl*1i 16 array def
/wl*2i 16 array def

/r*0i 16 array def
/r*1i 16 array def
/r*2i 16 array def
/g*0i 16 array def
/g*1i 16 array def
/g*2i 16 array def
/b*0i 16 array def
/b*1i 16 array def
/b*2i 16 array def

/w*0i 16 array def
/w*1i 16 array def
/w*2i 16 array def


/La*r0 00.0 def
/La*r1 18.01 def
/La*r2 69.69 def
/La*rn 00.0 def
/La*rw 95.4 def

/s 350 def
/xdels 2000 def %s=series
/xdelc    s def %c=color=s
/xdel2    s 2 mul def
/ydel  0800 def
/dcirc s 0.25 mul def
/dcir2 dcirc 0.5 mul def
/tcirc s 0.60 mul def
/yscale 70 def

/Da*00 La*rw La*r0 sub 15 div def
0 1 15 {/i exch def
        La*0i i La*r0 Da*00 i mul add put
        lr*0i i La*0i i get La*r0 sub La*rw La*rn sub div put
        w*0i i lr*0i i get put
       } for

/Da*01 La*rw La*r1 sub 15 div def
0 1 15 {/i exch def
        La*1i i La*r1 Da*01 i mul add put
        lr*1i i La*1i i get La*r0 sub La*rw La*rn sub div put
        w*1i i lr*1i i get put
       } for

/Da*02 La*rw La*r2 sub 15 div def
0 1 15 {/i exch def
        La*2i i La*r2 Da*02 i mul add put
        lr*2i i La*2i i get La*r0 sub La*rw La*rn sub div put
        w*2i i lr*2i i get put
       } for

0 1 15 {/i exch def
        r*0i i i 15 div put
        g*0i i i 15 div put
        b*0i i i 15 div put
        w*0i i i 15 div put
       } for

0 1 15 {/i exch def
        r*1i i r*0i i get 1. 0.875 div exp put
        g*1i i g*0i i get 1. 0.875 div exp put
        b*1i i b*0i i get 1. 0.875 div exp put
        w*1i i w*0i i get 1. 0.875 div exp put
       } for

0 1 15 {/i exch def
        r*2i i r*0i i get 1. 0.500 div exp put
        g*2i i r*0i i get 1. 0.500 div exp put
        b*2i i r*0i i get 1. 0.500 div exp put
        w*2i i r*0i i get 1. 0.500 div exp put
       } for

/xpos0 0700 def
/ypos0 0300 def
/xpos1 0700 def
/ypos1 0300 100 yscale mul add def
/ytext 6 array def
/ytext [(    0) (  20) (  40) (  60) ( 80) (100)] def
/TBGshift 100 def
/TVGshift 060 def

xpos0 ypos0 moveto xpos1 ypos1 500 add lineto stroke
xpos1 ypos1 500 add moveto -100 -250 rlineto stroke
xpos1 ypos1 500 add moveto  100 -250 rlineto stroke
xpos1 500 sub ypos1 300 add moveto TBIM (L*) show TBM

0 1 5 {/i exch def %i=0,5
       xpos0 100 sub ypos0 i 20 mul yscale mul add moveto 200 0 rlineto stroke
       xpos0 600 sub ypos0 i 20 mul yscale mul add TBGshift sub moveto
       ytext i get show
      } for %i=0,5

/xpos 1000 def
TV
0 1 15 {/i exch def %i=0,15
        i 0 eq {xpos 0000 add ypos1 0600 add moveto

TBS
(keine Umgebungsreflexion ) showde
(No ambient reflection ) showen
(No hay reflexi\363n ambiental ) showes
(No r\351flexion ambiante ) showfr
(Nessuna riflessione ambientale ) showit
(Ingen ambient refleksjion ) showjp

                TBIS (Y) show (N) is4 TBS (=0, ) show
                TBIS (L*) show (N) is4 TBS (=0) show
                xpos 000 add ypos1 300 add moveto

TBS
(Helligkeitsdifferenz ) showde
(lightness difference ) showen
(differencia de luminosidad ) showes
(clart\351 diff\351rence ) showfr
(leggerezza differenza ) showit
(skryt forskjellen ) showjp

                SS (D) show TBIS (L*) show TBS (=6,3) show

                xpos 0300 add ypos1 0000 add moveto TBS  (n0.) show
                xpos 0700 add ypos1 0000 add moveto TBIS (w*)  show
                xpos 1200 add ypos1 0000 add moveto TBIS (w*)  show (r) is2
                xchartl 0 eq {%xchartl=0
                xpos 1750 add ypos1 0000 add moveto TBIS (L*)  show (it) is2
                xpos 2250 add ypos1 0000 add moveto TBIS (Y)  show (it) is2
                xpos 2750 add ypos1 0000 add moveto TBIS (Y)  show (N) is2
                             } if %xchartl=0
                xchartl 1 eq {%xchartl=1
                1 0 0 setrgbcolor
                xpos 1750 add ypos1 0000 add moveto TBIS (L*)  show (re) is2
                xpos 2250 add ypos1 0000 add moveto TBIS (Y)  show (re) is2
                xpos 2750 add ypos1 0000 add moveto TBIS (Y)  show (N) is2
                0 setgray
                             } if %xchartl=1
                xchartl 2 ge {%xchartl>=2
                xpos 1750 add ypos1 0000 add moveto TBIS (L*)  show (it) is2
                1 0 0 setrgbcolor
                xpos 2250 add ypos1 0000 add moveto TBIS (L*)  show (re) is2
                xchartl 2 eq {%xchartl=2
                              xpos 2750 add ypos1 0000 add moveto
                              SS (D) show TBIS (L*)  show (re) is2
                             } if %xchartl=2
                0 setgray
                             } if %xchartl>=2
                xchartl 3 eq {%xchartl=3
                1 0 0 setrgbcolor
                xpos 2750 add ypos1 0000 add moveto TBIS (Y)  show (re) is2
                0 setgray
                             } if %xchartl=3
                TV
               } if
        newpath
        /ypos La*0i i get yscale mul def
        i 14 le {La*0i i get 95.4 div} {newpath 0} ifelse setgray
        xpos dcirc add ypos0 ypos add dcirc 0 360 arc
        i 14 le {fill} {stroke} ifelse
        0 setgray
        xpos 0300 add ypos ypos0 add TVGshift sub moveto i 1 add cvishow
        xpos 0700 add ypos ypos0 add TVGshift sub moveto
        La*0i i get 95.4 div cvsshow3
        xpos 1200 add ypos ypos0 add TVGshift sub moveto
        La*0i i get La*r0 sub 95.4 La*r0 sub div cvsshow3
        xchartl 1 ne {%xchartl#1
        xpos 1750 add ypos ypos0 add TVGshift sub moveto
        La*0i i get cvsshow1
                     } if %xchartl#1
       } for %i=0,15

/Yci  16 array def
/Yc0i 16 array def
xchartl 0 eq {%xchartl=0
0 1 15 {/i exch def
        /ypos La*0i i get yscale mul def
        /Y* La*0i i get 16 add 116 div def
        Yci i Y* DecodeXYZ* 100.00 mul put
        Yc0i i Yci 0 get put
        xpos 2250 add ypos ypos0 add TVGshift sub moveto
        Yci i get cvsshow1
        xpos 2750 add ypos ypos0 add TVGshift sub moveto
        Yc0i i get cvsshow1
       } for %i=0,15
             } if %xchartl=0

/xpos  4300 def
TV
0 1 15 {/i exch def %i=0,15
        i 0 eq {xpos 0000 add ypos1 0600 add moveto

TBS
(Umgebungsreflexion ) showde
(Ambient reflection ) showen
(Reflexi\363n ambiental ) showes
(R\351flexion ambiante ) showfr
(Riflessione ambientale ) showit
(Ambient refleksjion ) showjp

                TBIS (Y) show (N) is4 TBS (=2,5, ) show
                TBIS (L*) show (N) is4 TBS (=18) show
                xpos 000 add ypos1 300 add moveto

TBS
(Helligkeitsdifferenz ) showde
(lightness difference ) showen
(differencia de luminosidad ) showes
(clart\351 diff\351rence ) showfr
(leggerezza differenza ) showit
(skryt forskjellen ) showjp

                SS (D) show TBIS (L*) show TBS (=5,1) show

                xpos 0300 add ypos1 0000 add moveto TBS  (n0.) show
                xpos 0700 add ypos1 0000 add moveto TBIS (w*)  show
                xpos 1200 add ypos1 0000 add moveto TBIS (w*)  show (r) is2
                xchartl 0 eq {%xchartl=0
                xpos 1750 add ypos1 0000 add moveto TBIS (L*)  show (it) is2
                xpos 2250 add ypos1 0000 add moveto TBIS (Y)  show (it) is2
                xpos 2750 add ypos1 0000 add moveto TBIS (Y)  show (N) is2
                             } if %xchartl=0
                xchartl 1 eq {%xchartl=1
                1 0 0 setrgbcolor
                xpos 1750 add ypos1 0000 add moveto TBIS (L*)  show (re) is2
                xpos 2250 add ypos1 0000 add moveto TBIS (Y)  show (re) is2
                xpos 2750 add ypos1 0000 add moveto TBIS (Y)  show (N) is2
                0 setgray
                             } if %xchartl=1
                xchartl 2 ge {%xchartl>=2
                xpos 1750 add ypos1 0000 add moveto TBIS (L*)  show (it) is2
                1 0 0 setrgbcolor
                xpos 2250 add ypos1 0000 add moveto TBIS (L*)  show (re) is2
                xchartl 2 eq {%xchartl=2
                              xpos 2750 add ypos1 0000 add moveto
                              SS (D) show TBIS (L*)  show (re) is2
                             } if %xchartl=2
                0 setgray
                             } if %xchartl>=2
                xchartl 3 eq {%xchartl=3
                1 0 0 setrgbcolor
                xpos 2750 add ypos1 0000 add moveto TBIS (Y)  show (re) is2
                0 setgray
                             } if %xchartl=3 
                TV
               } if
        newpath
        /ypos La*1i i get yscale mul def
        i 14 le {La*1i i get 95.4 div} {newpath 0} ifelse setgray
        xpos dcirc add ypos0 ypos add dcirc 0 360 arc
        i 14 le {fill} {stroke} ifelse
        0 setgray
        xpos 0300 add ypos ypos0 add TVGshift sub moveto i 1 add cvishow
        xpos 0700 add ypos ypos0 add TVGshift sub moveto
        La*1i i get 95.4 div cvsshow3
        xpos 1200 add ypos ypos0 add TVGshift sub moveto
        La*1i i get La*r1 sub 95.4 La*r1 sub div cvsshow3
        xchartl 1 ne {%xchartl#1
        xpos 1750 add ypos ypos0 add TVGshift sub moveto
        La*1i i get cvsshow1
                     } if %xchartl#1
       } for %i=0,15
%STOP0

xchartl 0 eq {%xchartl=0
0 1 15 {/i exch def
        /ypos La*1i i get yscale mul def
        /Y* La*1i i get 16 add 116 div def
        Yci i Y* DecodeXYZ* 100.00 mul put
        Yc0i i Yci 0 get put
        xpos 2250 add ypos ypos0 add TVGshift sub moveto
        Yci i get cvsshow1
        xpos 2750 add ypos ypos0 add TVGshift sub moveto
        Yc0i i get cvsshow1
       } for %i=0,15
             } if %xchartl=0

%STOP1

/xpos 7600 def
TV
0 1 15 {/i exch def %i=0,15
        i 0 eq {TBS
                xpos 0000 add ypos1 0600 add moveto

TBS
(Umgebungsreflexion ) showde
(Ambient reflection ) showen
(Reflexi\363n ambiental ) showes
(R\351flexion ambiante ) showfr
(Riflessione ambientale ) showit
(Ambient refleksjion ) showjp

                TBIS (Y) show (N) is4 TBS (=40, ) show
                TBIS (L*) show (N) is4 TBS (=70) show
                xpos 000 add ypos1 0300 add moveto

TBS
(Helligkeitsdifferenz ) showde
(lightness difference ) showen
(differencia de luminosidad ) showes
(clart\351 diff\351rence ) showfr
(leggerezza differenza ) showit
(skryt forskjellen ) showjp

                SS (D) show TBIS (L*) show TBS (=1,7) show

                xpos 0300 add ypos1 0000 add moveto TBS  (n0.) show
                xpos 0700 add ypos1 0000 add moveto TBIS (w*)  show
                xpos 1200 add ypos1 0000 add moveto TBIS (w*)  show (r) is2
                xchartl 0 eq {%xchartl=0
                xpos 1750 add ypos1 0000 add moveto TBIS (L*)  show (it) is2
                xpos 2250 add ypos1 0000 add moveto TBIS (Y)  show (it) is2
                xpos 2750 add ypos1 0000 add moveto TBIS (Y)  show (N) is2
                             } if %xchartl=0
                xchartl 1 eq {%xchartl=1
                1 0 0 setrgbcolor
                xpos 1750 add ypos1 0000 add moveto TBIS (L*)  show (re) is2
                xpos 2250 add ypos1 0000 add moveto TBIS (Y)  show (re) is2
                xpos 2750 add ypos1 0000 add moveto TBIS (Y)  show (N) is2
                0 setgray
                             } if %xchartl=1
                xchartl 2 ge {%xchartl>=2
                xpos 1750 add ypos1 0000 add moveto TBIS (L*)  show (it) is2
                1 0 0 setrgbcolor
                xpos 2250 add ypos1 0000 add moveto TBIS (L*)  show (re) is2
                xchartl 2 eq {%xchartl=2
                              xpos 2750 add ypos1 0000 add moveto
                              SS (D) show TBIS (L*)  show (re) is2
                             } if %xchartl=2
                0 setgray
                             } if %xchartl>=2
                xchartl 3 eq {%xchartl=3
                1 0 0 setrgbcolor
                xpos 2750 add ypos1 0000 add moveto TBIS (Y)  show (re) is2
                0 setgray
                             } if %xchartl=3                
                TV
               } if
        newpath
        /ypos La*2i i get yscale mul def
        i 14 le {La*2i i get 95.4 div} {newpath 0} ifelse setgray
        xpos dcirc add ypos0 ypos add dcirc 0 360 arc
        i 14 le {fill} {stroke} ifelse
        0 setgray
        xpos 0300 add ypos ypos0 add TVGshift sub moveto i 1 add cvishow
        xpos 0700 add ypos ypos0 add TVGshift sub moveto
        La*2i i get 95.4 div cvsshow3
        xpos 1200 add ypos ypos0 add TVGshift sub moveto
        La*2i i get La*r2 sub 95.4 La*r2 sub div cvsshow3
        xchartl 1 ne {%xchartl#1
        xpos 1750 add ypos ypos0 add TVGshift sub moveto
        La*2i i get cvsshow1
                     } if %xchartl#1
       } for %i=0,15

xchartl 0 eq {%xchartl=0
0 1 15 {/i exch def
        /ypos La*2i i get yscale mul def
        /Y* La*2i i get 16 add 116 div def
        Yci i Y* DecodeXYZ* 100.00 mul put
        Yc0i i Yci 0 get put
        xpos 2250 add ypos ypos0 add TVGshift sub moveto
        Yci i get cvsshow1
        xpos 2750 add ypos ypos0 add TVGshift sub moveto
        Yc0i i get cvsshow1
       } for %i=0,15
       } if %xchartl=0

4700 1150 moveto RBS (ISO/CIE 11664-4: ) show
                 TBIS (L*) show (it) is2
RBS
( = angestrebte CIELAB-Helligkeit der Ausgabe) showde
TBS
( = intended CIELAB lightness of output) showen
( = la CIELAB ligereza de la salida) showes
( = pr\351vue sortie de la clart\351 CIELAB) showfr
( = la valuta CIELAB leggerezza dell'uscita) showit
( = del tiltenkte CIELAB skryt av utskriften) showjp

4700 0800 moveto RBS (IEC 61966-2-1: ) show
                 TBIS (w*) show (sRGB) is2
TBS
( ist ungef\344hr proportional zu ) showde
( is approximately proportional to ) showen
( es approximadente proporcional a ) showes
( est approximativement proportionelle \340 ) showfr
( \350 approssimativamente proporzionale alla ) showit
( er omtrent proporsjional til ) showjp
 
                 TBIS (L*) show
4700 0450 moveto TBIS (w*) show (sRGB) is2 TBS ( = ) show
                 TBIS (L*) show TBS (/95,4) show TBS (;  ) show
                 TBIS (w*) show (r) is2 TBS ( = [) show
                 TBIS (L*) show RBS (-) show TBS
                 TBIS (L*) show (N) is2 TBS (] / [) show
                 TBIS (L*) show (W) is2 TBS RBS (-) show TBS
                 TBIS (L*) show (N) is2 TBS (]) show

xchartl 0 eq {%xchartl=0
0 setgray
4700 0100 moveto TBIS (Y) show (it) is2

RBS
( = angestrebter Normfarbwert mit Ausgabe-Linearisierung) showde
TBS
( = intended tristimulus value with output linearization) showen
( = prevista valor de triestimulos con linearizaci\363n de la salida) showes
( = prevue valeur tristimulus avec lin\351arisation de la sortie) showfr
( = destinata valore tristimulo con linearizzazione di uscita) showit
( = beregnet tristimulus verdien med linearization av utg\345ende) showjp

} if %xchartl=0

xchartl 1 eq {%xchartl=1
1 0 0 setrgbcolor
4700 0100 moveto TBIS (Y) show (re) is2

RBS
( = realer Normfarbwert ohne Ausgabe-Linearisierung) showde
TBS
( = real tristimulus value without output linearization) showen
( = real valor de triestimulos sin linearizaci\363n de la salida) showes
( = vrai valeur tristimulus sans lin\351arisation de la sortie) showfr
( = reale valore tristimulo senza linearizzazione di uscita) showit
( = real tristimulus verdien uten linearization av utg\345ende) showjp

0 setgray
} if %xchartl=1

xchartl 2 ge {%xchartl>=2
1 0 0 setrgbcolor
4700 0100 moveto TBIS (L*) show (re) is2

RBS
( = realer Normfarbwert ohne Ausgabe-Linearisierung) showde
TBS
( = real lightness of output without output linearization) showen
( = real ligereza de la salida sin linearizaci\363n de la salida) showes
( = vrai clart\351 sans lin\351arisation de la sortie) showfr
( = reale leggerezza senza linearizzazione di uscita) showit
( = real skryt av utgang uten linearization av utg\345ende) showjp

0 setgray
} if %xchartl>=2

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

xchartl 1 ge {%xchartl>=1
/TSY {200 /Symbol FS} bind def

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

/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

/TBS {200 /TimesB-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

/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

/SS {200 /Symbol FS} bind def
/SK {250 /Symbol FS} bind def
/SM {300 /Symbol FS} bind def
/SG {350 /Symbol FS} bind def

/nshow {iyd /Times-ISOL1 FS show} def
/nishow {-30 -50 rmoveto iyd 50 sub /Times-ISOL1 FS show 30 50 rmoveto} def
/kshow {iyd /TimesI-ISOL1 FS show} def
/bshow {iyd /TimesB-ISOL1 FS show} def
/jshow {iyd /TimesBI-ISOL1 FS show} def
/ishow {-30 -50 rmoveto iyd 50 sub /TimesB-ISOL1 FS show 30 50 rmoveto} def

/sshow {iyd /Symbol FS show} def

/nshowde {0 lanind eq {nshow} {pop} ifelse} bind def
/nshowen {1 lanind eq {nshow} {pop} ifelse} bind def
/nishowde {0 lanind eq {nishow} {pop} ifelse} bind def
/nishowen {1 lanind eq {nishow} {pop} ifelse} bind def
/kshowde {0 lanind eq {kshow} {pop} ifelse} bind def
/kshowen {1 lanind eq {kshow} {pop} ifelse} bind def
/bshowde {0 lanind eq {bshow} {pop} ifelse} bind def
/bshowen {1 lanind eq {bshow} {pop} ifelse} bind def
/jshowde {0 lanind eq {jshow} {pop} ifelse} bind def
/jshowen {1 lanind eq {jshow} {pop} ifelse} bind def
/ishowde {0 lanind eq {ishow} {pop} ifelse} bind def
/ishowen {1 lanind eq {ishow} {pop} ifelse} bind def

/nshowea {1 lanind le {nshow} {pop} ifelse} bind def
/nishowea {1 lanind le {nishow} {pop} ifelse} bind def
/kshowea {1 lanind le {kshow} {pop} ifelse} bind def
/bshowea {1 lanind le {bshow} {pop} ifelse} bind def
/jshowea {1 lanind le {jshow} {pop} ifelse} bind def
/ishowea {1 lanind le {ishow} {pop} ifelse} bind def

/LAB*rc 33 array def
/XYZrc  33 array def

/LAB*ra  33 array def
/XYZra  33 array def

/LAB*la 33 array def
/XYZla  33 array def

/LAB*lc 33 array def
/XYZlc  33 array def

%part 2
/LAB*c 48 array def
/XYZc  48 array def
/LAB*sa 48 array def
/XYZsa  48 array def
/LAB*s0 48 array def

/XYZc0  48 array def

/Xrcr089 16 array def
/Yrcr089 16 array def
/Zrcr089 16 array def

/Lrcr089 16 array def
/arcr089 16 array def
/brcr089 16 array def

/Xrcrn089 16 array def
/Yrcrn089 16 array def
/Zrcrn089 16 array def

/Lrcrn089 16 array def
/arcrn089 16 array def
/brcrn089 16 array def


/LABN 12 array def

/LAB*system { %BEG procedure LAB*system

/LAB*ORS [%D=Device OYLCVMO+NW %for Offset Reflective System (ORS)
58.62 -30.63 -42.75 %C   0  %see Table 1 of ISO/IEC 15775:1999-12
25.72  31.45 -44.36 %V   1 
48.13  75.20 -6.80  %M   2
47.94  65.31  52.07 %0   3
90.37 -11.16  96.17 %Y   4
50.90 -62.97  36.71 %L   5
58.62 -32.63 -42.75 %C   6
18.01  0.50   -0.47 %N   7 
95.41 -0.99    4.76 %W   8
00.01  0.84   -1.69 %N0  9
100.0 -1.08    5.06 %W1 10 
] def %OYLCVMO+NW

/LAB*TLS00 [%D=Device OYLCVMO+NW %for Television Luminous System (TLS)
86.88 -46.17 -13.56 %C   0  %see Table 1 of ISO/IEC 15775:1999-12
30.39  76.06 -103.6 %V   1  %see IE350-7A.PDF
57.30  94.35 -20.70 %M   2
50.50  76.92  64.55 %0   3
92.66 -20.70  90.75 %Y   4
83.63 -82.76  79.90 %L   5
86.88 -46.17 -13.56 %C   6
 0.01   0.00   0.00 %N0  7
95.41   0.00   0.00 %W   8
18.01   0.00   0.00 %N   9
100.0   0.00   0.00 %W1 10
] def %OYLCVMO+NW

/LAB*TLS18 [%D=Device OYLCVMO+NW %for Television Luminous System (TLS)
87.14 -44.43 -13.13 %C   0  %computed from Table 1 of ISO/IEC 15775:1999-12
31.90  24.46 -37.39 %V   1  % with Yn=2.52
59.01  89.33 -19.44 %M   2  %see IE350-7A.PDF
52.76  71.63  49.88 %0   3
92.74 -20.04  84.97 %Y   4
84.00 -79.00  73.94 %L   5
87.14 -44.43 -13.13 %C   6
18.01   0.00   0.00 %N   7
95.41   0.00   0.00 %W   8
 0.01   0.00   0.00 %N0  9
100.0   0.00   0.00 %W1 10
] def %OYLCVMO+NW

/LAB*TLS70 [%D=Device OYLCVMO+NW %for Television Luminous System (TLS)
90.93 -21.97  -7.09 %C   0  %computed from Table 1 of ISO/IEC 15775:1999-12
71.46   4.57  -9.01 %V   1  % with Yn=40.32
78.50  37.52 -25.24 %M   2  %see IE350-7A.PDF
76.43  26.27  10.57 %0   3
93.93 -10.77  34.63 %Y   4
89.32 -35.82  27.64 %L   5
90.93 -21.97  -7.09 %C   6
69.70   0.00   0.00 %N   7
95.41   0.00   0.00 %W   8
 0.01   0.00   0.00 %N0  9
100.0   0.00   0.00 %W1 10
] def %OYLCVMO+NW

0 1 8 {/sISO exch def
        /i30 sISO 3 mul def /i31 i30 1 add def /i32 i30 2 add def
        ISYSTEM 0 eq { %ORS
        LAB*rc i30 LAB*ORS i30 get put
        LAB*rc i31 LAB*ORS i31 get put
        LAB*rc i32 LAB*ORS i32 get put
                    } if
        ISYSTEM 1 eq { %TLS00
        LAB*rc i30 LAB*TLS00 i30 get put
        LAB*rc i31 LAB*TLS00 i31 get put
        LAB*rc i32 LAB*TLS00 i32 get put
                    } if
        ISYSTEM 2 eq { %TLS18
        LAB*rc i30 LAB*TLS18 i30 get put
        LAB*rc i31 LAB*TLS18 i31 get put
        LAB*rc i32 LAB*TLS18 i32 get put
                    } if
        ISYSTEM 3 eq { %TLS70
        LAB*rc i30 LAB*TLS70 i30 get put
        LAB*rc i31 LAB*TLS70 i31 get put
        LAB*rc i32 LAB*TLS70 i32 get put
                    } if
       } for

/L*N LAB*rc 21 get def
/A*N LAB*rc 22 get def
/B*N LAB*rc 23 get def

/L*W LAB*rc 24 get def
/A*W LAB*rc 25 get def
/B*W LAB*rc 26 get def

} bind def %END procedure LAB*system


/LABN [(00, F) (01, E) (02, D) (03, C) (04, B) (05, A) (06, 9) (07, 8)
       (08, 7) (09, 6) (10, 5) (11, 4) (12, 3) (13, 2) (14, 1) (15, 0)] def

/ISYSTEM 1 def %1 1 1 {/ISYSTEM exch def %ISYSTEM=0,1

%0 1 3 {/iout exch def %iout=0,3
/iout 1 def

LAB*system

/ix1    50 def %COLOR
/ix2   850 def %L*
/ix3  3450 def %Y
/ix4  6150 def %Yt
/ix5  8850 def %t

/ixd  1200 def
/iyd   170 def

/iy00 4600 def
/iy0d  1510 def
/iy01 iy00 def
/iy02 iy01 iy0d sub def
/iy03 iy02 iy0d sub def
/iy04 iy03 iy0d sub def
/iy05 iy04 iy0d sub def


% achromatic (D65) colours
/XLWD65100  95.04 def
/YLWD65100 100.00 def
/ZLWD65100 108.88 def

/Xwref XYZra 24 get def
/Ywref XYZra 25 get def
/Zwref XYZra 26 get def

/Xnref 2.52 0.9505 mul def
/Ynref 2.52 def
/Znref 2.52 1.0888 mul def

/ix2i ix2 800 add def

/iy iy02 iyd add 50 add def
/iy0 iy 500 add def
/iy1 iy 290 add def


/ilf 8 array def
/ilf [0.00 0.25 0.50 1.00 2.00 4.00 8.00 16.00] def
/Lrefl 8 array def
/Lrefl [(0%) (0,6%) (1,2%) (2,5%)
        (5%) (10%) (20%) (40%)] def
%Reference black and factors
/YrN 2.52 def

/LrefNt 8 array def
/LrefNi 8 array def
LrefNi 0 0 put

1 1 7 {/i exch def %i=0,7
       /Ynref YrN ilf i get mul def
       LrefNi i 116 Ynref 0.01 mul 0.3333 exp mul 16 sub put
      } for %i=0,7

%iout 0 eq {/ila1 0 def /ilad 7 def /ila2 7 def} if
%iout 1 eq {/ila1 0 def /ilad 3 def /ila2 3 def} if
%iout 2 eq {/ila1 0 def /ilad 7 def /ila2 7 def} if
%iout 3 eq {/ila1 0 def /ilad 3 def /ila2 3 def} if


%ila1 ilad ila2 {/il exch def %il=0,x

0 1 2 {/kl exch def %kl=0,2

       kl 0 eq {/il 0 def /ila1 0 def /ilad 1 def /ila2 0 def} if
       kl 1 eq {/il 3 def /ila1 3 def /ilad 1 def /ila2 3 def} if
       kl 2 eq {/il 7 def /ila1 7 def /ilad 1 def /ila2 7 def} if

/Xnref YrN ilf il get mul 0.9505 mul def
/Ynref YrN ilf il get mul def
/Znref YrN ilf il get mul 1.0890 mul def

/PLref (System OLS00) def
/TLref (System TLS00) def
%LAB*TLS0 21 LrefNi il get put

/ISYSTEM kl 1 add def

/i11 7 3 mul def /i12 i11 1 add def /i13 i11 2 add def %colour N
/i21 8 3 mul def /i22 i21 1 add def /i23 i21 2 add def %colour W
      
0 1 15 {/sISO exch def
        /i30 sISO 3 mul def /i31 i30 1 add def /i32 i30 2 add def
        ISYSTEM 0 eq { %ORS
        LAB*c i30 LAB*ORS i11 get 
        LAB*ORS i21 get LAB*ORS i11 get sub sISO 15 div mul add put
        LAB*c i31 LAB*ORS i12 get 
        LAB*ORS i22 get LAB*ORS i12 get sub sISO 15 div mul add put
        LAB*c i32 LAB*ORS i13 get 
        LAB*ORS i23 get LAB*ORS i13 get sub sISO 15 div mul add put
                    } if
        ISYSTEM 1 eq { %TLS00
        LAB*c i30 LAB*TLS00 i11 get 
        LAB*TLS00 i21 get LAB*TLS00 i11 get sub sISO 15 div mul add put
        LAB*c i31 LAB*TLS00 i12 get 
        LAB*TLS00 i22 get LAB*TLS00 i12 get sub sISO 15 div mul add put
        LAB*c i32 LAB*TLS00 i13 get 
        LAB*TLS00 i23 get LAB*TLS00 i13 get sub sISO 15 div mul add put
                    } if
        ISYSTEM 2 eq { %TLS18
        LAB*c i30 LAB*TLS18 i11 get 
        LAB*TLS18 i21 get LAB*TLS18 i11 get sub sISO 15 div mul add put
        LAB*c i31 LAB*TLS18 i12 get 
        LAB*TLS18 i22 get LAB*TLS18 i12 get sub sISO 15 div mul add put
        LAB*c i32 LAB*TLS18 i13 get 
        LAB*TLS18 i23 get LAB*TLS18 i13 get sub sISO 15 div mul add put
                    } if
        ISYSTEM 3 eq { %TLS70
        LAB*c i30 LAB*TLS70 i11 get 
        LAB*TLS70 i21 get LAB*TLS70 i11 get sub sISO 15 div mul add put
        LAB*c i31 LAB*TLS70 i12 get 
        LAB*TLS70 i22 get LAB*TLS70 i12 get sub sISO 15 div mul add put
        LAB*c i32 LAB*TLS70 i13 get 
        LAB*TLS70 i23 get LAB*TLS70 i13 get sub sISO 15 div mul add put
                    } if
                    } for

/L*N LAB*c 0 get def
/A*N LAB*c 1 get def
/B*N LAB*c 2 get def

/L*W LAB*c 45 get def
/A*W LAB*c 46 get def
/B*W LAB*c 47 get def

/A*D A*W A*N sub def
/B*D B*W B*N sub def

/L*Nsa L*N def
/A*Nsa 0.0 def
/B*Nsa 0.0 def

/L*Wsa L*W def
/A*Wsa 0.0 def
/B*Wsa 0.0 def

/L*Ns0 0.0 def
/A*Ns0 0.0 def
/B*Ns0 0.0 def

/L*Ws0 L*W L*N sub def
/A*Ws0 0.0 def
/B*Ws0 0.0 def

/Xssrefl Xnref def
/Yssrefl Ynref def
/Zssrefl Znref def

/Xrsrefl Xnref def
/Yrsrefl Ynref def
/Zrsrefl Znref def

0 1 15 {/i exch def
       /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def
       /X* {LAB*c i30 get 16 add 116 div
            LAB*c i31 get 500 div add} bind def
       /Y* {LAB*c i30 get 16 add 116 div} bind def
       /Z* {LAB*c i30 get 16 add 116 div
            LAB*c i32 get 200 div sub} bind def
       XYZc i30 X* DecodeXYZ* 95.05 mul put
       XYZc i31 Y* DecodeXYZ* 100.00 mul put
       XYZc i32 Z* DecodeXYZ* 108.90 mul put
       il 0 eq {%il=0
                XYZc0 i30 XYZc i30 get put
                XYZc0 i31 XYZc i31 get put
                XYZc0 i32 XYZc i32 get put
               } if %il=0
       } for %i=0,15
       

0 1 15 {/i exch def
        /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def
        LAB*sa i30 LAB*c i30 get put
        /l*CIE LAB*c i30 get L*N sub L*W L*N sub div def %system rel. lightn.
        /a*s A*W A*N sub l*CIE mul def
        /b*s B*W B*N sub l*CIE mul def
        LAB*sa i31 LAB*c i31 get A*N sub a*s sub put
        LAB*sa i32 LAB*c i32 get B*N sub b*s sub put
       } for %i=0,15 
        
0 1 15 {/i exch def
       /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def
       /X*sa {LAB*sa i30 get 16 add 116 div
              LAB*sa i31 get 500 div add} bind def
       /Y*sa {LAB*sa i30 get 16 add 116 div} bind def
       /Z*sa {LAB*sa i30 get 16 add 116 div
              LAB*sa i32 get 200 div sub} bind def
       XYZsa i30 X*sa DecodeXYZ*  95.05 mul put
       XYZsa i31 Y*sa DecodeXYZ* 100.00 mul put
       XYZsa i32 Z*sa DecodeXYZ* 108.90 mul put
      } for %i=0,15

0 1 15 {/i exch def %i=0,15
        /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def
         Xrcr089 i XYZc0 i30 get put
         Yrcr089 i XYZc0 i31 get put
         Zrcr089 i XYZc0 i32 get put
       } for %i=0,15

0 1 15 {/i exch def %i=0,15
        Yrcrn089 i Yrcr089  i get Ynref add
                   Yrcr089 15 get Ynref add div 88.59 mul put
        /YQ Yrcrn089 i get YLWD65100 div def
        YQ 0 lt {/YQ 0.00000001 def} if
        Lrcrn089 i YQ 0.008856 lt {903.3 YQ mul}
                                  {YQ 0.33333333 exp 116 mul 16 sub} ifelse put
       } for %i=0,15

xchartl 1 eq {/xposa 1750 def} if
xchartl 2 eq {/xposa 2250 def} if
xchartl 3 eq {/xposa 2250 def} if

/LAB*refi 16 array def
        
il 0 eq {%il=0
/xpos 1000 def
TV
1 0 0 setrgbcolor
0 1 15 {/i exch def %i=0,15
        i 0 eq {TBS
%                xpos 2200 add ypos1 0000 add moveto TBIS (L*) show (re) is2
                /ypos La*0i 0 get yscale mul def
                TV
               } if
        /ypos La*0i i get yscale mul def
        i 0 gt {%i>0
                /yposd La*0i i       get yscale mul
                       La*0i i 1 sub get yscale mul add 0.5 mul def
               } if %i>0
        xpos xposa add ypos ypos0 add TVGshift sub moveto
        /LAB*ref Lrcrn089 i get def
        1 0 0 setrgbcolor
        LAB*ref cvsshow1
%        0 setgray
        LAB*refi i Lrcrn089 i get put
        /xfak 88.59 0.00 sub 88.59 div def

        xchartl 1 eq {%xchartl=1
        xpos xposa add 450 add ypos ypos0 add TVGshift sub moveto
        Yrcr089 i get cvsshow2
        xpos xposa add 450 add 500 add ypos ypos0 add TVGshift sub moveto
        Yrcr089 0 get cvsshow2
                     } if %xchartl=1
        xchartl 2 eq {%xchartl=2
        i 0 gt {%i>0
        1 0 0 setrgbcolor
        xpos xposa add 0450 add yposd ypos0 add TVGshift sub moveto
        LAB*refi i       get
        LAB*refi i 1 sub get sub cvsshow2
        0 setgray
                } if %i>0
                     } if %xchartl=2
        xchartl 3 eq {%xchartl=3
        xpos xposa add 450 add ypos ypos0 add TVGshift sub moveto
        Yrcr089 i get xfak mul 0.00 add cvsshow2
                     } if %xchartl=3
        
       } for %i=0,15
0 setgray
} if %il=0


il 3 eq {%il=3
/xpos 4300 def
TV
1 0 0 setrgbcolor
0 1 15 {/i exch def %i=0,15
        i 0 eq {TBS
%                xpos 2200 add ypos1 0000 add moveto TBIS (L*) show (re) is2
                /ypos La*1i 0 get yscale mul def
                TV
               } if
        /ypos La*1i i get yscale mul def
        i 0 gt {%i>0
                /yposd La*1i i       get yscale mul
                       La*1i i 1 sub get yscale mul add 0.5 mul def
               } if %i>0
%        xpos 2200 add ypos ypos0 add TVGshift sub moveto
%        Lrcrn089 i get cvsshow1
        /xfak 88.59 2.52 sub 88.59 div def
%        xpos 2500 add ypos ypos0 add TVGshift sub moveto
%        Yrcr089 i get xfak mul cvsshow2
%        xpos 2500 add ypos ypos0 add TVGshift sub moveto
%        Yrcr089 i get xfak mul cvsshow2
     
       /YQ Yrcr089 i get xfak mul 2.52 add 100 div def
       YQ 0 lt {/YQ 0.00000001 def} if
       /LAB*ref YQ 0.008856 lt {903.3 YQ mul}
                  {YQ 0.33333333 exp 116 mul 16 sub} ifelse def

        xpos xposa add ypos ypos0 add TVGshift sub moveto
        1 0 0 setrgbcolor
        LAB*ref cvsshow1
%        0 setgray
        LAB*refi i LAB*ref put
        xchartl 1 eq {%xchartl=1
        xpos xposa add 450 add ypos ypos0 add TVGshift sub moveto
        Yrcr089 i get xfak mul 2.52 add cvsshow2
        xpos xposa add 450 add 500 add ypos ypos0 add TVGshift sub moveto
        Yrcr089 0 get xfak mul 2.52 add cvsshow2
                     } if %xchartl=1
        xchartl 2 eq {%xchartl=2
        i 0 gt {%i>0
        1 0 0 setrgbcolor
        xpos xposa add 0450 add yposd ypos0 add TVGshift sub moveto
        LAB*refi i       get
        LAB*refi i 1 sub get sub cvsshow2
        0 setgray
                } if %i>0
                     } if %xchartl=2
        xchartl 3 eq {%xchartl=3
        xpos xposa add 0450 add ypos ypos0 add TVGshift sub moveto
        Yrcr089 i get xfak mul 2.52 add cvsshow2
                     } if %xchartl=3
                     } for %i=0,15
0 setgray
} if %il=3


il 7 eq {%il=7
/xpos 7600 def
TV
1 0 0 setrgbcolor
0 1 15 {/i exch def %i=0,15
        i 0 eq {TBS
%                xpos 2200 add ypos1 0000 add moveto TBIS (L*) show (re) is2
                /ypos La*2i 0 get yscale mul def
                TV
               } if
        /ypos La*2i i get yscale mul def
        i 0 gt {%i>0
                /yposd La*2i i       get yscale mul
                       La*2i i 1 sub get yscale mul add 0.5 mul def
               } if %i>0
%        xpos 2200 add ypos ypos0 add TVGshift sub moveto
%        Lrcrn089 i get cvsshow1
        /xfak 88.59 40.32 sub 88.59 div def
%        xpos 2500 add ypos ypos0 add TVGshift sub moveto
%        Yrcr089 i get xfak mul cvsshow2
     
       /YQ Yrcr089 i get xfak mul 40.32 add 100 div def
       YQ 0 lt {/YQ 0.00000001 def} if
       /LAB*ref YQ 0.008856 lt {903.3 YQ mul}
                  {YQ 0.33333333 exp 116 mul 16 sub} ifelse def
        xpos xposa add ypos ypos0 add TVGshift sub moveto
        1 0 0 setrgbcolor
        LAB*ref cvsshow1
%        0 setgray
        LAB*refi i LAB*ref put

        xchartl 1 eq {%xchartl=1
        xpos xposa add 450 add ypos ypos0 add TVGshift sub moveto
        Yrcr089 i get xfak mul 40.32 add cvsshow2
        xpos xposa add 450 add 500 add ypos ypos0 add TVGshift sub moveto
        Yrcr089 0 get xfak mul 40.32 add cvsshow2
                     } if %xchartl=1
        xchartl 2 eq {%xchartl=2
        i 0 gt {%i>0
        1 0 0 setrgbcolor
        xpos xposa add 0450 add yposd ypos0 add TVGshift sub moveto
        LAB*refi i       get 
        LAB*refi i 1 sub get sub cvsshow2
        0 setgray
                } if %i>0
                     } if %xchartl=2
        xchartl 3 eq {%xchartl=3
        xpos xposa add 0450 add ypos ypos0 add TVGshift sub moveto
        Yrcr089 i get xfak mul 40.32 add cvsshow2
                     } if %xchartl=3
     } for %i=0,15


0 setgray
} if %il=7

} for %il=0,2

} if %xchartll>=1

showpage
grestore

%} for %xchartl<=3

%%Trailer

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
 86 SHAl add MM 108 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 14

%line 369
%!PS-Adobe-3.0 EPSF-3.0 AGS50-4,
%%BoundingBox: 70 90 226 206

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave

8 /Times-Roman FS
72 83 moveto
%!2     (AGS50-4,) show

72 90 translate

%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0  moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke

grestore

showpage
%%Trailer

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
 28 SHSl sub MM 064 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 15

%line 379
%!PS-Adobe-3.0 EPSF-3.0 AGS50-5,
%%BoundingBox: 70 90 226 206

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave

8 /Times-Roman FS
72 83 moveto
%!2     (AGS50-5,) show

72 90 translate

%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0  moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke

grestore

showpage
%%Trailer

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
 86 SHAl add MM 064 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 16

%line 389
%!PS-Adobe-3.0 EPSF-3.0 AGS50-6,
%%BoundingBox: 70 90 226 206

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave

8 /Times-Roman FS
72 83 moveto
%!2     (AGS50-6,) show

72 90 translate

%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0  moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke

grestore

showpage
%%Trailer

%%EndDocument
EndEPSF grestore gsave
BeginEPSF
 /xc1 16 def /yc1 12 def /xt 1 def xchart 1 eq {/xt 1 def} if
 28 SHSl sub MM 20 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 17

%line 399
%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/AGS5/AGS50-7
%%BoundingBox: 70 83 392 335

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

/RV {150 /Times-Roman FS} bind def
/RS {190 /Times-Roman FS} bind def
/RK {240 /Times-Roman FS} bind def
/RM {290 /Times-Roman FS} bind def
/RG {340 /Times-Roman FS} bind def

/RIV {150 /Times-Italic FS} bind def
/RIS {190 /Times-Italic FS} bind def
/RIK {240 /Times-Italic FS} bind def
/RIM {290 /Times-Italic FS} bind def
/RIG {340 /Times-Italic FS} bind def

/RBV {150 /Times-Bold FS} bind def
/RBS {190 /Times-Bold FS} bind def
/RBK {240 /Times-Bold FS} bind def
/RBM {290 /Times-Bold FS} bind def
/RBG {340 /Times-Bold FS} bind def

/RBIV {150 /Times-BoldItalic FS} bind def
/RBIS {190 /Times-BoldItalic FS} bind def
/RBIK {240 /Times-BoldItalic FS} bind def
/RBIM {290 /Times-BoldItalic FS} bind def
/RBIG {340 /Times-BoldItalic FS} bind def


/TV {150 /Times-ISOL1 FS} bind def
/TS {190 /Times-ISOL1 FS} bind def
/TK {240 /Times-ISOL1 FS} bind def
/TM {290 /Times-ISOL1 FS} bind def
/TG {340 /Times-ISOL1 FS} bind def

/TIV {150 /TimesI-ISOL1 FS} bind def
/TIS {190 /TimesI-ISOL1 FS} bind def
/TIK {240 /TimesI-ISOL1 FS} bind def
/TIM {290 /TimesI-ISOL1 FS} bind def
/TIG {340 /TimesI-ISOL1 FS} bind def

/TBV {150 /TimesB-ISOL1 FS} bind def
/TBS {190 /TimesB-ISOL1 FS} bind def
/TBK {240 /TimesB-ISOL1 FS} bind def
/TBM {290 /TimesB-ISOL1 FS} bind def
/TBG {340 /TimesB-ISOL1 FS} bind def

/TBIV {150 /TimesBI-ISOL1 FS} bind def
/TBIS {190 /TimesBI-ISOL1 FS} bind def
/TBIK {240 /TimesBI-ISOL1 FS} bind def
/TBIM {290 /TimesBI-ISOL1 FS} bind def
/TBIG {340 /TimesBI-ISOL1 FS} bind def

/SV {150 /Symbol FS} bind def
/SS {190 /Symbol FS} bind def
/SK {240 /Symbol FS} bind def
/SM {290 /Symbol FS} bind def
/SG {340 /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
/circ %x, y radius
  {dcirc 0 360 arc } 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

/colarcfi %x y c m y k
  {setcmyk_olvcolor circ fill} bind def

/colarcst %x y width heigth c m y k
  {setcmyk_olvcolor circ 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

/tfrz {0.0 1.0 1.0 0.5 setcmyk_olvcolor} bind def %Reproduktionsfarben
/tfgz {1.0 0.0 1.0 0.5 setcmyk_olvcolor} bind def
/tfbz {1.0 1.0 0.0 0.5 setcmyk_olvcolor} bind def
/tfcz {1.0 0.0 0.0 0.5 setcmyk_olvcolor} bind def
/tfmz {0.0 1.0 0.0 0.5 setcmyk_olvcolor} bind def
/tfyz {0.0 0.0 1.0 0.5 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

/cvishow {cvi 10 string cvs show} def
/cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def
/cvsshow2 {100 mul cvi 0.01 mul 7 string cvs show} def
/cvsshow3 {1000 mul cvi 0.001 mul 7 string cvs show} def

/DecodeXYZ* {dup 6 29 div ge {dup dup mul mul}
            {4 29 div sub 108 841 div mul} ifelse} 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 {3 lanind eq {show} {pop} ifelse} bind def
/showfr {2 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

/lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def
                    /lanindd laninddf def}
               {/lanind1 0 def /lanind2 0 def} ifelse
/colormf where {pop /colorm1 colormf def /colorm2 colormf def
                    /colorMD colormdf def}
               {/colorm1 0 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

5 /Times-ISOL1 FS
75 85 moveto
lanind cvishow (-) show
colorm cvishow
deintp cvishow
xcolor cvishow
xchart cvishow
pchart cvishow
colsep cvishow (-L) show pmetam cvishow

gsave
/xchart xchart1 def

/xchartl 1 def

gsave

0 setgray
4 /Times-ISOL1 FS
74 86 moveto
(AGS50-7N) show

%xchartl 0 eq {(AGS50-3N) show} if
%xchartl 1 eq {(AGS50-7N) show} if
%xchartl 2 eq {(AGS51-3N) show} if
%xchartl 3 eq {(AGS51-7N) show} if %not used

72 90 translate

/yhoe 8500 def
0.01 MM dup scale

15 setlinewidth
0.0 0.0 0.0 0.0 setcmyk_olvcolor
0 0  moveto 11200 0 rlineto 0 yhoe rlineto -11200 0 rlineto
closepath fill
0.0 0.0 0.0 1.0 setcmyk_olvcolor
 0 0  moveto 11200 0 rlineto 0 yhoe rlineto -11200 0 rlineto
closepath stroke

 0 yhoe 400 sub  moveto 11200 0 rlineto stroke
 
/ns {340 /Times-ISOL1 FS  show TG} bind def
/ks {340 /TimesI-ISOL1 FS  show TG} bind def
/bs {340 /TimesB-ISOL1 FS  show TG} bind def
/js {340 /TimesBI-ISOL1 FS  show TG} bind def
/ss {340 /Symbol FS  show TG} bind def
/is {240 /Times-ISOL1 FS 0 -90 rmoveto show 0   90 rmoveto TG} bind def
/is0 {240 /Times-ISOL1 FS -30 -90 rmoveto show 0   90 rmoveto TG} bind def
/es {240 /Times-ISOL1 FS 0 200 rmoveto show 0 -200 rmoveto TG} bind def
%/ipoint {340 /Times-ISOL1 FS 50 50 rmoveto show 50 -50 rmoveto TG} bind def
%/ip {(.) ipoint} bind def
/ip {(\267) ns TG} bind def
/ib {(\267) bs TG} bind def

%20% kleiner
/ns2 {290 /Times-ISOL1 FS  show TM} bind def
/ks2 {290 /TimesI-ISOL1 FS  show TM} bind def
/bs2 {290 /TimesB-ISOL1 FS  show TM} bind def
/js2 {290 /TimesBI-ISOL1 FS  show TM} bind def
/is2 {200 /Times-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TM} bind def
/is20 {200 /Times-ISOL1 FS -20 -60 rmoveto show 0 60 rmoveto TM} bind def
/iks2 {200 /TimesI-ISOL1 FS 10 -40 rmoveto show -10 40 rmoveto TM} bind def
/es2 {240 /Times-ISOL1 FS 0 060 rmoveto show 0 -060 rmoveto TM} bind def
/ip2 {(\267) ns2 TM} bind def
/ib2 {(\267) bs2 TM} bind def

%40% kleiner
/ns4 {240 /Times-ISOL1 FS  show TK} bind def
/ks4 {240 /TimesI-ISOL1 FS  show TK} bind def
/bs4 {240 /TimesB-ISOL1 FS  show TK} bind def
/js4 {240 /TimesBI-ISOL1 FS  show TK} bind def
/is4 {160 /Times-ISOL1 FS -30 -48 rmoveto show 0 48 rmoveto TK} bind def
/ibs4 {160 /TimesB-ISOL1 FS -30 -48 rmoveto show 0 48 rmoveto TK} bind def
/iks4 {160 /TimesI-ISOL1 FS -30 -48 rmoveto show 0 48 rmoveto TK} bind def
/es4 {200 /Times-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto TK} bind def
/ip4 {(\267) ns4 TK} bind def
/ib4 {(\267) bs4 TK} bind def

/ydel 300 def

%Titeltext
 100 8200 moveto
TBM
(16stufige Grauskalierung zwischen ) showde
(Equal 16 step grey scaling between ) showen
(16 pasos di gri con escala equal entre ) showes
(Les 16 plages d'\351chelle de gris entre ) showfr
(16 fasi di grigio con uguale la scalatura fra ) showit
(16 trinn av gr\345 med samme skalering mellom ) showjp

(L*) js2 (N) is2 
TBM
( und ) showde
( and ) showen
( y ) showes
( et ) showfr
( e ) showit
( og ) showjp

(L*) js2 (W) is2 TBM

TBM
( f\374r 3 Reflexionen des Umgebungslichts) showde
( for three reflections of ambient light) showen
( para tres reflexiones de luz ambiental) showes
( pour trois r\351flexions de lumi\350re ambiante) showfr
( per tre riflessioni della luce ambiente) showit
( for tre refections omgivelselys) showjp

/La*0i 16 array def
/La*1i 16 array def
/La*2i 16 array def

/Da*0i 16 array def
/Da*1i 16 array def
/Da*2i 16 array def

/lr*0i 16 array def
/lr*1i 16 array def
/lr*2i 16 array def

/wl*0i 16 array def
/wl*1i 16 array def
/wl*2i 16 array def

/r*0i 16 array def
/r*1i 16 array def
/r*2i 16 array def
/g*0i 16 array def
/g*1i 16 array def
/g*2i 16 array def
/b*0i 16 array def
/b*1i 16 array def
/b*2i 16 array def

/w*0i 16 array def
/w*1i 16 array def
/w*2i 16 array def


/La*r0 00.0 def
/La*r1 18.01 def
/La*r2 69.69 def
/La*rn 00.0 def
/La*rw 95.4 def

/s 350 def
/xdels 2000 def %s=series
/xdelc    s def %c=color=s
/xdel2    s 2 mul def
/ydel  0800 def
/dcirc s 0.25 mul def
/dcir2 dcirc 0.5 mul def
/tcirc s 0.60 mul def
/yscale 70 def

/Da*00 La*rw La*r0 sub 15 div def
0 1 15 {/i exch def
        La*0i i La*r0 Da*00 i mul add put
        lr*0i i La*0i i get La*r0 sub La*rw La*rn sub div put
        w*0i i lr*0i i get put
       } for

/Da*01 La*rw La*r1 sub 15 div def
0 1 15 {/i exch def
        La*1i i La*r1 Da*01 i mul add put
        lr*1i i La*1i i get La*r0 sub La*rw La*rn sub div put
        w*1i i lr*1i i get put
       } for

/Da*02 La*rw La*r2 sub 15 div def
0 1 15 {/i exch def
        La*2i i La*r2 Da*02 i mul add put
        lr*2i i La*2i i get La*r0 sub La*rw La*rn sub div put
        w*2i i lr*2i i get put
       } for

0 1 15 {/i exch def
        r*0i i i 15 div put
        g*0i i i 15 div put
        b*0i i i 15 div put
        w*0i i i 15 div put
       } for

0 1 15 {/i exch def
        r*1i i r*0i i get 1. 0.875 div exp put
        g*1i i g*0i i get 1. 0.875 div exp put
        b*1i i b*0i i get 1. 0.875 div exp put
        w*1i i w*0i i get 1. 0.875 div exp put
       } for

0 1 15 {/i exch def
        r*2i i r*0i i get 1. 0.500 div exp put
        g*2i i r*0i i get 1. 0.500 div exp put
        b*2i i r*0i i get 1. 0.500 div exp put
        w*2i i r*0i i get 1. 0.500 div exp put
       } for

/xpos0 0700 def
/ypos0 0300 def
/xpos1 0700 def
/ypos1 0300 100 yscale mul add def
/ytext 6 array def
/ytext [(    0) (  20) (  40) (  60) ( 80) (100)] def
/TBGshift 100 def
/TVGshift 060 def

xpos0 ypos0 moveto xpos1 ypos1 500 add lineto stroke
xpos1 ypos1 500 add moveto -100 -250 rlineto stroke
xpos1 ypos1 500 add moveto  100 -250 rlineto stroke
xpos1 500 sub ypos1 300 add moveto TBIM (L*) show TBM

0 1 5 {/i exch def %i=0,5
       xpos0 100 sub ypos0 i 20 mul yscale mul add moveto 200 0 rlineto stroke
       xpos0 600 sub ypos0 i 20 mul yscale mul add TBGshift sub moveto
       ytext i get show
      } for %i=0,5

/xpos 1000 def
TV
0 1 15 {/i exch def %i=0,15
        i 0 eq {xpos 0000 add ypos1 0600 add moveto

TBS
(keine Umgebungsreflexion ) showde
(No ambient reflection ) showen
(No hay reflexi\363n ambiental ) showes
(No r\351flexion ambiante ) showfr
(Nessuna riflessione ambientale ) showit
(Ingen ambient refleksjion ) showjp

                TBIS (Y) show (N) is4 TBS (=0, ) show
                TBIS (L*) show (N) is4 TBS (=0) show
                xpos 000 add ypos1 300 add moveto

TBS
(Helligkeitsdifferenz ) showde
(lightness difference ) showen
(differencia de luminosidad ) showes
(clart\351 diff\351rence ) showfr
(leggerezza differenza ) showit
(skryt forskjellen ) showjp

                SS (D) show TBIS (L*) show TBS (=6,3) show

                xpos 0300 add ypos1 0000 add moveto TBS  (n0.) show
                xpos 0700 add ypos1 0000 add moveto TBIS (w*)  show
                xpos 1200 add ypos1 0000 add moveto TBIS (w*)  show (r) is2
                xchartl 0 eq {%xchartl=0
                xpos 1750 add ypos1 0000 add moveto TBIS (L*)  show (it) is2
                xpos 2250 add ypos1 0000 add moveto TBIS (Y)  show (it) is2
                xpos 2750 add ypos1 0000 add moveto TBIS (Y)  show (N) is2
                             } if %xchartl=0
                xchartl 1 eq {%xchartl=1
                1 0 0 setrgbcolor
                xpos 1750 add ypos1 0000 add moveto TBIS (L*)  show (re) is2
                xpos 2250 add ypos1 0000 add moveto TBIS (Y)  show (re) is2
                xpos 2750 add ypos1 0000 add moveto TBIS (Y)  show (N) is2
                0 setgray
                             } if %xchartl=1
                xchartl 2 ge {%xchartl>=2
                xpos 1750 add ypos1 0000 add moveto TBIS (L*)  show (it) is2
                1 0 0 setrgbcolor
                xpos 2250 add ypos1 0000 add moveto TBIS (L*)  show (re) is2
                xchartl 2 eq {%xchartl=2
                              xpos 2750 add ypos1 0000 add moveto
                              SS (D) show TBIS (L*)  show (re) is2
                             } if %xchartl=2
                0 setgray
                             } if %xchartl>=2
                xchartl 3 eq {%xchartl=3
                1 0 0 setrgbcolor
                xpos 2750 add ypos1 0000 add moveto TBIS (Y)  show (re) is2
                0 setgray
                             } if %xchartl=3
                TV
               } if
        newpath
        /ypos La*0i i get yscale mul def
        i 14 le {La*0i i get 95.4 div} {newpath 0} ifelse setgray
        xpos dcirc add ypos0 ypos add dcirc 0 360 arc
        i 14 le {fill} {stroke} ifelse
        0 setgray
        xpos 0300 add ypos ypos0 add TVGshift sub moveto i 1 add cvishow
        xpos 0700 add ypos ypos0 add TVGshift sub moveto
        La*0i i get 95.4 div cvsshow3
        xpos 1200 add ypos ypos0 add TVGshift sub moveto
        La*0i i get La*r0 sub 95.4 La*r0 sub div cvsshow3
        xchartl 1 ne {%xchartl#1
        xpos 1750 add ypos ypos0 add TVGshift sub moveto
        La*0i i get cvsshow1
                     } if %xchartl#1
       } for %i=0,15

/Yci  16 array def
/Yc0i 16 array def
xchartl 0 eq {%xchartl=0
0 1 15 {/i exch def
        /ypos La*0i i get yscale mul def
        /Y* La*0i i get 16 add 116 div def
        Yci i Y* DecodeXYZ* 100.00 mul put
        Yc0i i Yci 0 get put
        xpos 2250 add ypos ypos0 add TVGshift sub moveto
        Yci i get cvsshow1
        xpos 2750 add ypos ypos0 add TVGshift sub moveto
        Yc0i i get cvsshow1
       } for %i=0,15
             } if %xchartl=0

/xpos  4300 def
TV
0 1 15 {/i exch def %i=0,15
        i 0 eq {xpos 0000 add ypos1 0600 add moveto

TBS
(Umgebungsreflexion ) showde
(Ambient reflection ) showen
(Reflexi\363n ambiental ) showes
(R\351flexion ambiante ) showfr
(Riflessione ambientale ) showit
(Ambient refleksjion ) showjp

                TBIS (Y) show (N) is4 TBS (=2,5, ) show
                TBIS (L*) show (N) is4 TBS (=18) show
                xpos 000 add ypos1 300 add moveto

TBS
(Helligkeitsdifferenz ) showde
(lightness difference ) showen
(differencia de luminosidad ) showes
(clart\351 diff\351rence ) showfr
(leggerezza differenza ) showit
(skryt forskjellen ) showjp

                SS (D) show TBIS (L*) show TBS (=5,1) show

                xpos 0300 add ypos1 0000 add moveto TBS  (n0.) show
                xpos 0700 add ypos1 0000 add moveto TBIS (w*)  show
                xpos 1200 add ypos1 0000 add moveto TBIS (w*)  show (r) is2
                xchartl 0 eq {%xchartl=0
                xpos 1750 add ypos1 0000 add moveto TBIS (L*)  show (it) is2
                xpos 2250 add ypos1 0000 add moveto TBIS (Y)  show (it) is2
                xpos 2750 add ypos1 0000 add moveto TBIS (Y)  show (N) is2
                             } if %xchartl=0
                xchartl 1 eq {%xchartl=1
                1 0 0 setrgbcolor
                xpos 1750 add ypos1 0000 add moveto TBIS (L*)  show (re) is2
                xpos 2250 add ypos1 0000 add moveto TBIS (Y)  show (re) is2
                xpos 2750 add ypos1 0000 add moveto TBIS (Y)  show (N) is2
                0 setgray
                             } if %xchartl=1
                xchartl 2 ge {%xchartl>=2
                xpos 1750 add ypos1 0000 add moveto TBIS (L*)  show (it) is2
                1 0 0 setrgbcolor
                xpos 2250 add ypos1 0000 add moveto TBIS (L*)  show (re) is2
                xchartl 2 eq {%xchartl=2
                              xpos 2750 add ypos1 0000 add moveto
                              SS (D) show TBIS (L*)  show (re) is2
                             } if %xchartl=2
                0 setgray
                             } if %xchartl>=2
                xchartl 3 eq {%xchartl=3
                1 0 0 setrgbcolor
                xpos 2750 add ypos1 0000 add moveto TBIS (Y)  show (re) is2
                0 setgray
                             } if %xchartl=3 
                TV
               } if
        newpath
        /ypos La*1i i get yscale mul def
        i 14 le {La*1i i get 95.4 div} {newpath 0} ifelse setgray
        xpos dcirc add ypos0 ypos add dcirc 0 360 arc
        i 14 le {fill} {stroke} ifelse
        0 setgray
        xpos 0300 add ypos ypos0 add TVGshift sub moveto i 1 add cvishow
        xpos 0700 add ypos ypos0 add TVGshift sub moveto
        La*1i i get 95.4 div cvsshow3
        xpos 1200 add ypos ypos0 add TVGshift sub moveto
        La*1i i get La*r1 sub 95.4 La*r1 sub div cvsshow3
        xchartl 1 ne {%xchartl#1
        xpos 1750 add ypos ypos0 add TVGshift sub moveto
        La*1i i get cvsshow1
                     } if %xchartl#1
       } for %i=0,15
%STOP0

xchartl 0 eq {%xchartl=0
0 1 15 {/i exch def
        /ypos La*1i i get yscale mul def
        /Y* La*1i i get 16 add 116 div def
        Yci i Y* DecodeXYZ* 100.00 mul put
        Yc0i i Yci 0 get put
        xpos 2250 add ypos ypos0 add TVGshift sub moveto
        Yci i get cvsshow1
        xpos 2750 add ypos ypos0 add TVGshift sub moveto
        Yc0i i get cvsshow1
       } for %i=0,15
             } if %xchartl=0

%STOP1

/xpos 7600 def
TV
0 1 15 {/i exch def %i=0,15
        i 0 eq {TBS
                xpos 0000 add ypos1 0600 add moveto

TBS
(Umgebungsreflexion ) showde
(Ambient reflection ) showen
(Reflexi\363n ambiental ) showes
(R\351flexion ambiante ) showfr
(Riflessione ambientale ) showit
(Ambient refleksjion ) showjp

                TBIS (Y) show (N) is4 TBS (=40, ) show
                TBIS (L*) show (N) is4 TBS (=70) show
                xpos 000 add ypos1 0300 add moveto

TBS
(Helligkeitsdifferenz ) showde
(lightness difference ) showen
(differencia de luminosidad ) showes
(clart\351 diff\351rence ) showfr
(leggerezza differenza ) showit
(skryt forskjellen ) showjp

                SS (D) show TBIS (L*) show TBS (=1,7) show

                xpos 0300 add ypos1 0000 add moveto TBS  (n0.) show
                xpos 0700 add ypos1 0000 add moveto TBIS (w*)  show
                xpos 1200 add ypos1 0000 add moveto TBIS (w*)  show (r) is2
                xchartl 0 eq {%xchartl=0
                xpos 1750 add ypos1 0000 add moveto TBIS (L*)  show (it) is2
                xpos 2250 add ypos1 0000 add moveto TBIS (Y)  show (it) is2
                xpos 2750 add ypos1 0000 add moveto TBIS (Y)  show (N) is2
                             } if %xchartl=0
                xchartl 1 eq {%xchartl=1
                1 0 0 setrgbcolor
                xpos 1750 add ypos1 0000 add moveto TBIS (L*)  show (re) is2
                xpos 2250 add ypos1 0000 add moveto TBIS (Y)  show (re) is2
                xpos 2750 add ypos1 0000 add moveto TBIS (Y)  show (N) is2
                0 setgray
                             } if %xchartl=1
                xchartl 2 ge {%xchartl>=2
                xpos 1750 add ypos1 0000 add moveto TBIS (L*)  show (it) is2
                1 0 0 setrgbcolor
                xpos 2250 add ypos1 0000 add moveto TBIS (L*)  show (re) is2
                xchartl 2 eq {%xchartl=2
                              xpos 2750 add ypos1 0000 add moveto
                              SS (D) show TBIS (L*)  show (re) is2
                             } if %xchartl=2
                0 setgray
                             } if %xchartl>=2
                xchartl 3 eq {%xchartl=3
                1 0 0 setrgbcolor
                xpos 2750 add ypos1 0000 add moveto TBIS (Y)  show (re) is2
                0 setgray
                             } if %xchartl=3                
                TV
               } if
        newpath
        /ypos La*2i i get yscale mul def
        i 14 le {La*2i i get 95.4 div} {newpath 0} ifelse setgray
        xpos dcirc add ypos0 ypos add dcirc 0 360 arc
        i 14 le {fill} {stroke} ifelse
        0 setgray
        xpos 0300 add ypos ypos0 add TVGshift sub moveto i 1 add cvishow
        xpos 0700 add ypos ypos0 add TVGshift sub moveto
        La*2i i get 95.4 div cvsshow3
        xpos 1200 add ypos ypos0 add TVGshift sub moveto
        La*2i i get La*r2 sub 95.4 La*r2 sub div cvsshow3
        xchartl 1 ne {%xchartl#1
        xpos 1750 add ypos ypos0 add TVGshift sub moveto
        La*2i i get cvsshow1
                     } if %xchartl#1
       } for %i=0,15

xchartl 0 eq {%xchartl=0
0 1 15 {/i exch def
        /ypos La*2i i get yscale mul def
        /Y* La*2i i get 16 add 116 div def
        Yci i Y* DecodeXYZ* 100.00 mul put
        Yc0i i Yci 0 get put
        xpos 2250 add ypos ypos0 add TVGshift sub moveto
        Yci i get cvsshow1
        xpos 2750 add ypos ypos0 add TVGshift sub moveto
        Yc0i i get cvsshow1
       } for %i=0,15
       } if %xchartl=0

4700 1150 moveto RBS (ISO/CIE 11664-4: ) show
                 TBIS (L*) show (it) is2
RBS
( = angestrebte CIELAB-Helligkeit der Ausgabe) showde
TBS
( = intended CIELAB lightness of output) showen
( = la CIELAB ligereza de la salida) showes
( = pr\351vue sortie de la clart\351 CIELAB) showfr
( = la valuta CIELAB leggerezza dell'uscita) showit
( = del tiltenkte CIELAB skryt av utskriften) showjp

4700 0800 moveto RBS (IEC 61966-2-1: ) show
                 TBIS (w*) show (sRGB) is2
TBS
( ist ungef\344hr proportional zu ) showde
( is approximately proportional to ) showen
( es approximadente proporcional a ) showes
( est approximativement proportionelle \340 ) showfr
( \350 approssimativamente proporzionale alla ) showit
( er omtrent proporsjional til ) showjp
 
                 TBIS (L*) show
4700 0450 moveto TBIS (w*) show (sRGB) is2 TBS ( = ) show
                 TBIS (L*) show TBS (/95,4) show TBS (;  ) show
                 TBIS (w*) show (r) is2 TBS ( = [) show
                 TBIS (L*) show RBS (-) show TBS
                 TBIS (L*) show (N) is2 TBS (] / [) show
                 TBIS (L*) show (W) is2 TBS RBS (-) show TBS
                 TBIS (L*) show (N) is2 TBS (]) show

xchartl 0 eq {%xchartl=0
0 setgray
4700 0100 moveto TBIS (Y) show (it) is2

RBS
( = angestrebter Normfarbwert mit Ausgabe-Linearisierung) showde
TBS
( = intended tristimulus value with output linearization) showen
( = prevista valor de triestimulos con linearizaci\363n de la salida) showes
( = prevue valeur tristimulus avec lin\351arisation de la sortie) showfr
( = destinata valore tristimulo con linearizzazione di uscita) showit
( = beregnet tristimulus verdien med linearization av utg\345ende) showjp

} if %xchartl=0

xchartl 1 eq {%xchartl=1
1 0 0 setrgbcolor
4700 0100 moveto TBIS (Y) show (re) is2

RBS
( = realer Normfarbwert ohne Ausgabe-Linearisierung) showde
TBS
( = real tristimulus value without output linearization) showen
( = real valor de triestimulos sin linearizaci\363n de la salida) showes
( = vrai valeur tristimulus sans lin\351arisation de la sortie) showfr
( = reale valore tristimulo senza linearizzazione di uscita) showit
( = real tristimulus verdien uten linearization av utg\345ende) showjp

0 setgray
} if %xchartl=1

xchartl 2 ge {%xchartl>=2
1 0 0 setrgbcolor
4700 0100 moveto TBIS (L*) show (re) is2

RBS
( = realer Normfarbwert ohne Ausgabe-Linearisierung) showde
TBS
( = real lightness of output without output linearization) showen
( = real ligereza de la salida sin linearizaci\363n de la salida) showes
( = vrai clart\351 sans lin\351arisation de la sortie) showfr
( = reale leggerezza senza linearizzazione di uscita) showit
( = real skryt av utgang uten linearization av utg\345ende) showjp

0 setgray
} if %xchartl>=2

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

xchartl 1 ge {%xchartl>=1
/TSY {200 /Symbol FS} bind def

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

/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

/TBS {200 /TimesB-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

/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

/SS {200 /Symbol FS} bind def
/SK {250 /Symbol FS} bind def
/SM {300 /Symbol FS} bind def
/SG {350 /Symbol FS} bind def

/nshow {iyd /Times-ISOL1 FS show} def
/nishow {-30 -50 rmoveto iyd 50 sub /Times-ISOL1 FS show 30 50 rmoveto} def
/kshow {iyd /TimesI-ISOL1 FS show} def
/bshow {iyd /TimesB-ISOL1 FS show} def
/jshow {iyd /TimesBI-ISOL1 FS show} def
/ishow {-30 -50 rmoveto iyd 50 sub /TimesB-ISOL1 FS show 30 50 rmoveto} def

/sshow {iyd /Symbol FS show} def

/nshowde {0 lanind eq {nshow} {pop} ifelse} bind def
/nshowen {1 lanind eq {nshow} {pop} ifelse} bind def
/nishowde {0 lanind eq {nishow} {pop} ifelse} bind def
/nishowen {1 lanind eq {nishow} {pop} ifelse} bind def
/kshowde {0 lanind eq {kshow} {pop} ifelse} bind def
/kshowen {1 lanind eq {kshow} {pop} ifelse} bind def
/bshowde {0 lanind eq {bshow} {pop} ifelse} bind def
/bshowen {1 lanind eq {bshow} {pop} ifelse} bind def
/jshowde {0 lanind eq {jshow} {pop} ifelse} bind def
/jshowen {1 lanind eq {jshow} {pop} ifelse} bind def
/ishowde {0 lanind eq {ishow} {pop} ifelse} bind def
/ishowen {1 lanind eq {ishow} {pop} ifelse} bind def

/nshowea {1 lanind le {nshow} {pop} ifelse} bind def
/nishowea {1 lanind le {nishow} {pop} ifelse} bind def
/kshowea {1 lanind le {kshow} {pop} ifelse} bind def
/bshowea {1 lanind le {bshow} {pop} ifelse} bind def
/jshowea {1 lanind le {jshow} {pop} ifelse} bind def
/ishowea {1 lanind le {ishow} {pop} ifelse} bind def

/LAB*rc 33 array def
/XYZrc  33 array def

/LAB*ra  33 array def
/XYZra  33 array def

/LAB*la 33 array def
/XYZla  33 array def

/LAB*lc 33 array def
/XYZlc  33 array def

%part 2
/LAB*c 48 array def
/XYZc  48 array def
/LAB*sa 48 array def
/XYZsa  48 array def
/LAB*s0 48 array def

/XYZc0  48 array def

/Xrcr089 16 array def
/Yrcr089 16 array def
/Zrcr089 16 array def

/Lrcr089 16 array def
/arcr089 16 array def
/brcr089 16 array def

/Xrcrn089 16 array def
/Yrcrn089 16 array def
/Zrcrn089 16 array def

/Lrcrn089 16 array def
/arcrn089 16 array def
/brcrn089 16 array def


/LABN 12 array def

/LAB*system { %BEG procedure LAB*system

/LAB*ORS [%D=Device OYLCVMO+NW %for Offset Reflective System (ORS)
58.62 -30.63 -42.75 %C   0  %see Table 1 of ISO/IEC 15775:1999-12
25.72  31.45 -44.36 %V   1 
48.13  75.20 -6.80  %M   2
47.94  65.31  52.07 %0   3
90.37 -11.16  96.17 %Y   4
50.90 -62.97  36.71 %L   5
58.62 -32.63 -42.75 %C   6
18.01  0.50   -0.47 %N   7 
95.41 -0.99    4.76 %W   8
00.01  0.84   -1.69 %N0  9
100.0 -1.08    5.06 %W1 10 
] def %OYLCVMO+NW

/LAB*TLS00 [%D=Device OYLCVMO+NW %for Television Luminous System (TLS)
86.88 -46.17 -13.56 %C   0  %see Table 1 of ISO/IEC 15775:1999-12
30.39  76.06 -103.6 %V   1  %see IE350-7A.PDF
57.30  94.35 -20.70 %M   2
50.50  76.92  64.55 %0   3
92.66 -20.70  90.75 %Y   4
83.63 -82.76  79.90 %L   5
86.88 -46.17 -13.56 %C   6
 0.01   0.00   0.00 %N0  7
95.41   0.00   0.00 %W   8
18.01   0.00   0.00 %N   9
100.0   0.00   0.00 %W1 10
] def %OYLCVMO+NW

/LAB*TLS18 [%D=Device OYLCVMO+NW %for Television Luminous System (TLS)
87.14 -44.43 -13.13 %C   0  %computed from Table 1 of ISO/IEC 15775:1999-12
31.90  24.46 -37.39 %V   1  % with Yn=2.52
59.01  89.33 -19.44 %M   2  %see IE350-7A.PDF
52.76  71.63  49.88 %0   3
92.74 -20.04  84.97 %Y   4
84.00 -79.00  73.94 %L   5
87.14 -44.43 -13.13 %C   6
18.01   0.00   0.00 %N   7
95.41   0.00   0.00 %W   8
 0.01   0.00   0.00 %N0  9
100.0   0.00   0.00 %W1 10
] def %OYLCVMO+NW

/LAB*TLS70 [%D=Device OYLCVMO+NW %for Television Luminous System (TLS)
90.93 -21.97  -7.09 %C   0  %computed from Table 1 of ISO/IEC 15775:1999-12
71.46   4.57  -9.01 %V   1  % with Yn=40.32
78.50  37.52 -25.24 %M   2  %see IE350-7A.PDF
76.43  26.27  10.57 %0   3
93.93 -10.77  34.63 %Y   4
89.32 -35.82  27.64 %L   5
90.93 -21.97  -7.09 %C   6
69.70   0.00   0.00 %N   7
95.41   0.00   0.00 %W   8
 0.01   0.00   0.00 %N0  9
100.0   0.00   0.00 %W1 10
] def %OYLCVMO+NW

0 1 8 {/sISO exch def
        /i30 sISO 3 mul def /i31 i30 1 add def /i32 i30 2 add def
        ISYSTEM 0 eq { %ORS
        LAB*rc i30 LAB*ORS i30 get put
        LAB*rc i31 LAB*ORS i31 get put
        LAB*rc i32 LAB*ORS i32 get put
                    } if
        ISYSTEM 1 eq { %TLS00
        LAB*rc i30 LAB*TLS00 i30 get put
        LAB*rc i31 LAB*TLS00 i31 get put
        LAB*rc i32 LAB*TLS00 i32 get put
                    } if
        ISYSTEM 2 eq { %TLS18
        LAB*rc i30 LAB*TLS18 i30 get put
        LAB*rc i31 LAB*TLS18 i31 get put
        LAB*rc i32 LAB*TLS18 i32 get put
                    } if
        ISYSTEM 3 eq { %TLS70
        LAB*rc i30 LAB*TLS70 i30 get put
        LAB*rc i31 LAB*TLS70 i31 get put
        LAB*rc i32 LAB*TLS70 i32 get put
                    } if
       } for

/L*N LAB*rc 21 get def
/A*N LAB*rc 22 get def
/B*N LAB*rc 23 get def

/L*W LAB*rc 24 get def
/A*W LAB*rc 25 get def
/B*W LAB*rc 26 get def

} bind def %END procedure LAB*system


/LABN [(00, F) (01, E) (02, D) (03, C) (04, B) (05, A) (06, 9) (07, 8)
       (08, 7) (09, 6) (10, 5) (11, 4) (12, 3) (13, 2) (14, 1) (15, 0)] def

/ISYSTEM 1 def %1 1 1 {/ISYSTEM exch def %ISYSTEM=0,1

%0 1 3 {/iout exch def %iout=0,3
/iout 1 def

LAB*system

/ix1    50 def %COLOR
/ix2   850 def %L*
/ix3  3450 def %Y
/ix4  6150 def %Yt
/ix5  8850 def %t

/ixd  1200 def
/iyd   170 def

/iy00 4600 def
/iy0d  1510 def
/iy01 iy00 def
/iy02 iy01 iy0d sub def
/iy03 iy02 iy0d sub def
/iy04 iy03 iy0d sub def
/iy05 iy04 iy0d sub def


% achromatic (D65) colours
/XLWD65100  95.04 def
/YLWD65100 100.00 def
/ZLWD65100 108.88 def

/Xwref XYZra 24 get def
/Ywref XYZra 25 get def
/Zwref XYZra 26 get def

/Xnref 2.52 0.9505 mul def
/Ynref 2.52 def
/Znref 2.52 1.0888 mul def

/ix2i ix2 800 add def

/iy iy02 iyd add 50 add def
/iy0 iy 500 add def
/iy1 iy 290 add def


/ilf 8 array def
/ilf [0.00 0.25 0.50 1.00 2.00 4.00 8.00 16.00] def
/Lrefl 8 array def
/Lrefl [(0%) (0,6%) (1,2%) (2,5%)
        (5%) (10%) (20%) (40%)] def
%Reference black and factors
/YrN 2.52 def

/LrefNt 8 array def
/LrefNi 8 array def
LrefNi 0 0 put

1 1 7 {/i exch def %i=0,7
       /Ynref YrN ilf i get mul def
       LrefNi i 116 Ynref 0.01 mul 0.3333 exp mul 16 sub put
      } for %i=0,7

%iout 0 eq {/ila1 0 def /ilad 7 def /ila2 7 def} if
%iout 1 eq {/ila1 0 def /ilad 3 def /ila2 3 def} if
%iout 2 eq {/ila1 0 def /ilad 7 def /ila2 7 def} if
%iout 3 eq {/ila1 0 def /ilad 3 def /ila2 3 def} if


%ila1 ilad ila2 {/il exch def %il=0,x

0 1 2 {/kl exch def %kl=0,2

       kl 0 eq {/il 0 def /ila1 0 def /ilad 1 def /ila2 0 def} if
       kl 1 eq {/il 3 def /ila1 3 def /ilad 1 def /ila2 3 def} if
       kl 2 eq {/il 7 def /ila1 7 def /ilad 1 def /ila2 7 def} if

/Xnref YrN ilf il get mul 0.9505 mul def
/Ynref YrN ilf il get mul def
/Znref YrN ilf il get mul 1.0890 mul def

/PLref (System OLS00) def
/TLref (System TLS00) def
%LAB*TLS0 21 LrefNi il get put

/ISYSTEM kl 1 add def

/i11 7 3 mul def /i12 i11 1 add def /i13 i11 2 add def %colour N
/i21 8 3 mul def /i22 i21 1 add def /i23 i21 2 add def %colour W
      
0 1 15 {/sISO exch def
        /i30 sISO 3 mul def /i31 i30 1 add def /i32 i30 2 add def
        ISYSTEM 0 eq { %ORS
        LAB*c i30 LAB*ORS i11 get 
        LAB*ORS i21 get LAB*ORS i11 get sub sISO 15 div mul add put
        LAB*c i31 LAB*ORS i12 get 
        LAB*ORS i22 get LAB*ORS i12 get sub sISO 15 div mul add put
        LAB*c i32 LAB*ORS i13 get 
        LAB*ORS i23 get LAB*ORS i13 get sub sISO 15 div mul add put
                    } if
        ISYSTEM 1 eq { %TLS00
        LAB*c i30 LAB*TLS00 i11 get 
        LAB*TLS00 i21 get LAB*TLS00 i11 get sub sISO 15 div mul add put
        LAB*c i31 LAB*TLS00 i12 get 
        LAB*TLS00 i22 get LAB*TLS00 i12 get sub sISO 15 div mul add put
        LAB*c i32 LAB*TLS00 i13 get 
        LAB*TLS00 i23 get LAB*TLS00 i13 get sub sISO 15 div mul add put
                    } if
        ISYSTEM 2 eq { %TLS18
        LAB*c i30 LAB*TLS18 i11 get 
        LAB*TLS18 i21 get LAB*TLS18 i11 get sub sISO 15 div mul add put
        LAB*c i31 LAB*TLS18 i12 get 
        LAB*TLS18 i22 get LAB*TLS18 i12 get sub sISO 15 div mul add put
        LAB*c i32 LAB*TLS18 i13 get 
        LAB*TLS18 i23 get LAB*TLS18 i13 get sub sISO 15 div mul add put
                    } if
        ISYSTEM 3 eq { %TLS70
        LAB*c i30 LAB*TLS70 i11 get 
        LAB*TLS70 i21 get LAB*TLS70 i11 get sub sISO 15 div mul add put
        LAB*c i31 LAB*TLS70 i12 get 
        LAB*TLS70 i22 get LAB*TLS70 i12 get sub sISO 15 div mul add put
        LAB*c i32 LAB*TLS70 i13 get 
        LAB*TLS70 i23 get LAB*TLS70 i13 get sub sISO 15 div mul add put
                    } if
                    } for

/L*N LAB*c 0 get def
/A*N LAB*c 1 get def
/B*N LAB*c 2 get def

/L*W LAB*c 45 get def
/A*W LAB*c 46 get def
/B*W LAB*c 47 get def

/A*D A*W A*N sub def
/B*D B*W B*N sub def

/L*Nsa L*N def
/A*Nsa 0.0 def
/B*Nsa 0.0 def

/L*Wsa L*W def
/A*Wsa 0.0 def
/B*Wsa 0.0 def

/L*Ns0 0.0 def
/A*Ns0 0.0 def
/B*Ns0 0.0 def

/L*Ws0 L*W L*N sub def
/A*Ws0 0.0 def
/B*Ws0 0.0 def

/Xssrefl Xnref def
/Yssrefl Ynref def
/Zssrefl Znref def

/Xrsrefl Xnref def
/Yrsrefl Ynref def
/Zrsrefl Znref def

0 1 15 {/i exch def
       /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def
       /X* {LAB*c i30 get 16 add 116 div
            LAB*c i31 get 500 div add} bind def
       /Y* {LAB*c i30 get 16 add 116 div} bind def
       /Z* {LAB*c i30 get 16 add 116 div
            LAB*c i32 get 200 div sub} bind def
       XYZc i30 X* DecodeXYZ* 95.05 mul put
       XYZc i31 Y* DecodeXYZ* 100.00 mul put
       XYZc i32 Z* DecodeXYZ* 108.90 mul put
       il 0 eq {%il=0
                XYZc0 i30 XYZc i30 get put
                XYZc0 i31 XYZc i31 get put
                XYZc0 i32 XYZc i32 get put
               } if %il=0
       } for %i=0,15
       

0 1 15 {/i exch def
        /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def
        LAB*sa i30 LAB*c i30 get put
        /l*CIE LAB*c i30 get L*N sub L*W L*N sub div def %system rel. lightn.
        /a*s A*W A*N sub l*CIE mul def
        /b*s B*W B*N sub l*CIE mul def
        LAB*sa i31 LAB*c i31 get A*N sub a*s sub put
        LAB*sa i32 LAB*c i32 get B*N sub b*s sub put
       } for %i=0,15 
        
0 1 15 {/i exch def
       /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def
       /X*sa {LAB*sa i30 get 16 add 116 div
              LAB*sa i31 get 500 div add} bind def
       /Y*sa {LAB*sa i30 get 16 add 116 div} bind def
       /Z*sa {LAB*sa i30 get 16 add 116 div
              LAB*sa i32 get 200 div sub} bind def
       XYZsa i30 X*sa DecodeXYZ*  95.05 mul put
       XYZsa i31 Y*sa DecodeXYZ* 100.00 mul put
       XYZsa i32 Z*sa DecodeXYZ* 108.90 mul put
      } for %i=0,15

0 1 15 {/i exch def %i=0,15
        /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def
         Xrcr089 i XYZc0 i30 get put
         Yrcr089 i XYZc0 i31 get put
         Zrcr089 i XYZc0 i32 get put
       } for %i=0,15

0 1 15 {/i exch def %i=0,15
        Yrcrn089 i Yrcr089  i get Ynref add
                   Yrcr089 15 get Ynref add div 88.59 mul put
        /YQ Yrcrn089 i get YLWD65100 div def
        YQ 0 lt {/YQ 0.00000001 def} if
        Lrcrn089 i YQ 0.008856 lt {903.3 YQ mul}
                                  {YQ 0.33333333 exp 116 mul 16 sub} ifelse put
       } for %i=0,15

xchartl 1 eq {/xposa 1750 def} if
xchartl 2 eq {/xposa 2250 def} if
xchartl 3 eq {/xposa 2250 def} if

/LAB*refi 16 array def
        
il 0 eq {%il=0
/xpos 1000 def
TV
1 0 0 setrgbcolor
0 1 15 {/i exch def %i=0,15
        i 0 eq {TBS
%                xpos 2200 add ypos1 0000 add moveto TBIS (L*) show (re) is2
                /ypos La*0i 0 get yscale mul def
                TV
               } if
        /ypos La*0i i get yscale mul def
        i 0 gt {%i>0
                /yposd La*0i i       get yscale mul
                       La*0i i 1 sub get yscale mul add 0.5 mul def
               } if %i>0
        xpos xposa add ypos ypos0 add TVGshift sub moveto
        /LAB*ref Lrcrn089 i get def
        1 0 0 setrgbcolor
        LAB*ref cvsshow1
%        0 setgray
        LAB*refi i Lrcrn089 i get put
        /xfak 88.59 0.00 sub 88.59 div def

        xchartl 1 eq {%xchartl=1
        xpos xposa add 450 add ypos ypos0 add TVGshift sub moveto
        Yrcr089 i get cvsshow2
        xpos xposa add 450 add 500 add ypos ypos0 add TVGshift sub moveto
        Yrcr089 0 get cvsshow2
                     } if %xchartl=1
        xchartl 2 eq {%xchartl=2
        i 0 gt {%i>0
        1 0 0 setrgbcolor
        xpos xposa add 0450 add yposd ypos0 add TVGshift sub moveto
        LAB*refi i       get
        LAB*refi i 1 sub get sub cvsshow2
        0 setgray
                } if %i>0
                     } if %xchartl=2
        xchartl 3 eq {%xchartl=3
        xpos xposa add 450 add ypos ypos0 add TVGshift sub moveto
        Yrcr089 i get xfak mul 0.00 add cvsshow2
                     } if %xchartl=3
        
       } for %i=0,15
0 setgray
} if %il=0


il 3 eq {%il=3
/xpos 4300 def
TV
1 0 0 setrgbcolor
0 1 15 {/i exch def %i=0,15
        i 0 eq {TBS
%                xpos 2200 add ypos1 0000 add moveto TBIS (L*) show (re) is2
                /ypos La*1i 0 get yscale mul def
                TV
               } if
        /ypos La*1i i get yscale mul def
        i 0 gt {%i>0
                /yposd La*1i i       get yscale mul
                       La*1i i 1 sub get yscale mul add 0.5 mul def
               } if %i>0
%        xpos 2200 add ypos ypos0 add TVGshift sub moveto
%        Lrcrn089 i get cvsshow1
        /xfak 88.59 2.52 sub 88.59 div def
%        xpos 2500 add ypos ypos0 add TVGshift sub moveto
%        Yrcr089 i get xfak mul cvsshow2
%        xpos 2500 add ypos ypos0 add TVGshift sub moveto
%        Yrcr089 i get xfak mul cvsshow2
     
       /YQ Yrcr089 i get xfak mul 2.52 add 100 div def
       YQ 0 lt {/YQ 0.00000001 def} if
       /LAB*ref YQ 0.008856 lt {903.3 YQ mul}
                  {YQ 0.33333333 exp 116 mul 16 sub} ifelse def

        xpos xposa add ypos ypos0 add TVGshift sub moveto
        1 0 0 setrgbcolor
        LAB*ref cvsshow1
%        0 setgray
        LAB*refi i LAB*ref put
        xchartl 1 eq {%xchartl=1
        xpos xposa add 450 add ypos ypos0 add TVGshift sub moveto
        Yrcr089 i get xfak mul 2.52 add cvsshow2
        xpos xposa add 450 add 500 add ypos ypos0 add TVGshift sub moveto
        Yrcr089 0 get xfak mul 2.52 add cvsshow2
                     } if %xchartl=1
        xchartl 2 eq {%xchartl=2
        i 0 gt {%i>0
        1 0 0 setrgbcolor
        xpos xposa add 0450 add yposd ypos0 add TVGshift sub moveto
        LAB*refi i       get
        LAB*refi i 1 sub get sub cvsshow2
        0 setgray
                } if %i>0
                     } if %xchartl=2
        xchartl 3 eq {%xchartl=3
        xpos xposa add 0450 add ypos ypos0 add TVGshift sub moveto
        Yrcr089 i get xfak mul 2.52 add cvsshow2
                     } if %xchartl=3
                     } for %i=0,15
0 setgray
} if %il=3


il 7 eq {%il=7
/xpos 7600 def
TV
1 0 0 setrgbcolor
0 1 15 {/i exch def %i=0,15
        i 0 eq {TBS
%                xpos 2200 add ypos1 0000 add moveto TBIS (L*) show (re) is2
                /ypos La*2i 0 get yscale mul def
                TV
               } if
        /ypos La*2i i get yscale mul def
        i 0 gt {%i>0
                /yposd La*2i i       get yscale mul
                       La*2i i 1 sub get yscale mul add 0.5 mul def
               } if %i>0
%        xpos 2200 add ypos ypos0 add TVGshift sub moveto
%        Lrcrn089 i get cvsshow1
        /xfak 88.59 40.32 sub 88.59 div def
%        xpos 2500 add ypos ypos0 add TVGshift sub moveto
%        Yrcr089 i get xfak mul cvsshow2
     
       /YQ Yrcr089 i get xfak mul 40.32 add 100 div def
       YQ 0 lt {/YQ 0.00000001 def} if
       /LAB*ref YQ 0.008856 lt {903.3 YQ mul}
                  {YQ 0.33333333 exp 116 mul 16 sub} ifelse def
        xpos xposa add ypos ypos0 add TVGshift sub moveto
        1 0 0 setrgbcolor
        LAB*ref cvsshow1
%        0 setgray
        LAB*refi i LAB*ref put

        xchartl 1 eq {%xchartl=1
        xpos xposa add 450 add ypos ypos0 add TVGshift sub moveto
        Yrcr089 i get xfak mul 40.32 add cvsshow2
        xpos xposa add 450 add 500 add ypos ypos0 add TVGshift sub moveto
        Yrcr089 0 get xfak mul 40.32 add cvsshow2
                     } if %xchartl=1
        xchartl 2 eq {%xchartl=2
        i 0 gt {%i>0
        1 0 0 setrgbcolor
        xpos xposa add 0450 add yposd ypos0 add TVGshift sub moveto
        LAB*refi i       get 
        LAB*refi i 1 sub get sub cvsshow2
        0 setgray
                } if %i>0
                     } if %xchartl=2
        xchartl 3 eq {%xchartl=3
        xpos xposa add 0450 add ypos ypos0 add TVGshift sub moveto
        Yrcr089 i get xfak mul 40.32 add cvsshow2
                     } if %xchartl=3
     } for %i=0,15


0 setgray
} if %il=7

} for %il=0,2

} if %xchartll>=1

showpage
grestore

%} for %xchartl<=3

%%Trailer

%%EndDocument
EndEPSF grestore gsave

BeginEPSF  86 SHAl add MM 020 MM translate 12 /Times-ISOL1 FS -9 MM -7 MM  moveto
( ) show
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 18

%line 409
%!PS-Adobe-3.0 EPSF-3.0 AGS50-8,
%%BoundingBox: 70 90 226 206

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave

8 /Times-Roman FS
72 83 moveto
%!2     (AGS50-8,) show

72 90 translate

%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0  moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke

grestore

showpage
%%Trailer

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
161 MM 197 MM translate
  10 /Times-ISOL1 FS  1 1 scale  -77 -91 translate
%%BeginDocument: Bild 12

%line 419

%%EndDocument
EndEPSF grestore gsave
/SHSr 2 MM def /SHAr 2 MM def
BeginEPSF
161 MM 06 MM sub SHSr sub 152 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 21

%line 429
%!PS-Adobe-3.0 EPSF-3.0 AGS51-1,
%%BoundingBox: 70 90 226 206

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave

8 /Times-Roman FS
72 83 moveto
%!2     (AGS51-1,) show

72 90 translate

%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0  moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke

grestore

showpage
%%Trailer

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
219 MM 06 MM sub SHAr add 152 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 22

%line 439
%!PS-Adobe-3.0 EPSF-3.0 AGS51-2,
%%BoundingBox: 70 90 226 206

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave

8 /Times-Roman FS
72 83 moveto
%!2     (AGS51-2,) show

72 90 translate

%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0  moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke

grestore

showpage
%%Trailer

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
161 MM 06 MM sub SHSr sub 108 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 23

%line 449
%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/AGS5/AGS51-3
%%BoundingBox: 70 83 392 335

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

/RV {150 /Times-Roman FS} bind def
/RS {190 /Times-Roman FS} bind def
/RK {240 /Times-Roman FS} bind def
/RM {290 /Times-Roman FS} bind def
/RG {340 /Times-Roman FS} bind def

/RIV {150 /Times-Italic FS} bind def
/RIS {190 /Times-Italic FS} bind def
/RIK {240 /Times-Italic FS} bind def
/RIM {290 /Times-Italic FS} bind def
/RIG {340 /Times-Italic FS} bind def

/RBV {150 /Times-Bold FS} bind def
/RBS {190 /Times-Bold FS} bind def
/RBK {240 /Times-Bold FS} bind def
/RBM {290 /Times-Bold FS} bind def
/RBG {340 /Times-Bold FS} bind def

/RBIV {150 /Times-BoldItalic FS} bind def
/RBIS {190 /Times-BoldItalic FS} bind def
/RBIK {240 /Times-BoldItalic FS} bind def
/RBIM {290 /Times-BoldItalic FS} bind def
/RBIG {340 /Times-BoldItalic FS} bind def


/TV {150 /Times-ISOL1 FS} bind def
/TS {190 /Times-ISOL1 FS} bind def
/TK {240 /Times-ISOL1 FS} bind def
/TM {290 /Times-ISOL1 FS} bind def
/TG {340 /Times-ISOL1 FS} bind def

/TIV {150 /TimesI-ISOL1 FS} bind def
/TIS {190 /TimesI-ISOL1 FS} bind def
/TIK {240 /TimesI-ISOL1 FS} bind def
/TIM {290 /TimesI-ISOL1 FS} bind def
/TIG {340 /TimesI-ISOL1 FS} bind def

/TBV {150 /TimesB-ISOL1 FS} bind def
/TBS {190 /TimesB-ISOL1 FS} bind def
/TBK {240 /TimesB-ISOL1 FS} bind def
/TBM {290 /TimesB-ISOL1 FS} bind def
/TBG {340 /TimesB-ISOL1 FS} bind def

/TBIV {150 /TimesBI-ISOL1 FS} bind def
/TBIS {190 /TimesBI-ISOL1 FS} bind def
/TBIK {240 /TimesBI-ISOL1 FS} bind def
/TBIM {290 /TimesBI-ISOL1 FS} bind def
/TBIG {340 /TimesBI-ISOL1 FS} bind def

/SV {150 /Symbol FS} bind def
/SS {190 /Symbol FS} bind def
/SK {240 /Symbol FS} bind def
/SM {290 /Symbol FS} bind def
/SG {340 /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
/circ %x, y radius
  {dcirc 0 360 arc } 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

/colarcfi %x y c m y k
  {setcmyk_olvcolor circ fill} bind def

/colarcst %x y width heigth c m y k
  {setcmyk_olvcolor circ 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

/tfrz {0.0 1.0 1.0 0.5 setcmyk_olvcolor} bind def %Reproduktionsfarben
/tfgz {1.0 0.0 1.0 0.5 setcmyk_olvcolor} bind def
/tfbz {1.0 1.0 0.0 0.5 setcmyk_olvcolor} bind def
/tfcz {1.0 0.0 0.0 0.5 setcmyk_olvcolor} bind def
/tfmz {0.0 1.0 0.0 0.5 setcmyk_olvcolor} bind def
/tfyz {0.0 0.0 1.0 0.5 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

/cvishow {cvi 10 string cvs show} def
/cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def
/cvsshow2 {100 mul cvi 0.01 mul 7 string cvs show} def
/cvsshow3 {1000 mul cvi 0.001 mul 7 string cvs show} def

/DecodeXYZ* {dup 6 29 div ge {dup dup mul mul}
            {4 29 div sub 108 841 div mul} ifelse} 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 {3 lanind eq {show} {pop} ifelse} bind def
/showfr {2 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

/lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def
                    /lanindd laninddf def}
               {/lanind1 0 def /lanind2 0 def} ifelse
/colormf where {pop /colorm1 colormf def /colorm2 colormf def
                    /colorMD colormdf def}
               {/colorm1 0 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

5 /Times-ISOL1 FS
75 85 moveto
lanind cvishow (-) show
colorm cvishow
deintp cvishow
xcolor cvishow
xchart cvishow
pchart cvishow
colsep cvishow (-L) show pmetam cvishow

gsave
/xchart xchart1 def

/xchartl 2 def

gsave

0 setgray
4 /Times-ISOL1 FS
74 86 moveto
(AGS51-3N) show

%xchartl 0 eq {(AGS50-3N) show} if
%xchartl 1 eq {(AGS50-7N) show} if
%xchartl 2 eq {(AGS51-3N) show} if
%xchartl 3 eq {(AGS51-7N) show} if %not used

72 90 translate

/yhoe 8500 def
0.01 MM dup scale

15 setlinewidth
0.0 0.0 0.0 0.0 setcmyk_olvcolor
0 0  moveto 11200 0 rlineto 0 yhoe rlineto -11200 0 rlineto
closepath fill
0.0 0.0 0.0 1.0 setcmyk_olvcolor
 0 0  moveto 11200 0 rlineto 0 yhoe rlineto -11200 0 rlineto
closepath stroke

 0 yhoe 400 sub  moveto 11200 0 rlineto stroke
 
/ns {340 /Times-ISOL1 FS  show TG} bind def
/ks {340 /TimesI-ISOL1 FS  show TG} bind def
/bs {340 /TimesB-ISOL1 FS  show TG} bind def
/js {340 /TimesBI-ISOL1 FS  show TG} bind def
/ss {340 /Symbol FS  show TG} bind def
/is {240 /Times-ISOL1 FS 0 -90 rmoveto show 0   90 rmoveto TG} bind def
/is0 {240 /Times-ISOL1 FS -30 -90 rmoveto show 0   90 rmoveto TG} bind def
/es {240 /Times-ISOL1 FS 0 200 rmoveto show 0 -200 rmoveto TG} bind def
%/ipoint {340 /Times-ISOL1 FS 50 50 rmoveto show 50 -50 rmoveto TG} bind def
%/ip {(.) ipoint} bind def
/ip {(\267) ns TG} bind def
/ib {(\267) bs TG} bind def

%20% kleiner
/ns2 {290 /Times-ISOL1 FS  show TM} bind def
/ks2 {290 /TimesI-ISOL1 FS  show TM} bind def
/bs2 {290 /TimesB-ISOL1 FS  show TM} bind def
/js2 {290 /TimesBI-ISOL1 FS  show TM} bind def
/is2 {200 /Times-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TM} bind def
/is20 {200 /Times-ISOL1 FS -20 -60 rmoveto show 0 60 rmoveto TM} bind def
/iks2 {200 /TimesI-ISOL1 FS 10 -40 rmoveto show -10 40 rmoveto TM} bind def
/es2 {240 /Times-ISOL1 FS 0 060 rmoveto show 0 -060 rmoveto TM} bind def
/ip2 {(\267) ns2 TM} bind def
/ib2 {(\267) bs2 TM} bind def

%40% kleiner
/ns4 {240 /Times-ISOL1 FS  show TK} bind def
/ks4 {240 /TimesI-ISOL1 FS  show TK} bind def
/bs4 {240 /TimesB-ISOL1 FS  show TK} bind def
/js4 {240 /TimesBI-ISOL1 FS  show TK} bind def
/is4 {160 /Times-ISOL1 FS -30 -48 rmoveto show 0 48 rmoveto TK} bind def
/ibs4 {160 /TimesB-ISOL1 FS -30 -48 rmoveto show 0 48 rmoveto TK} bind def
/iks4 {160 /TimesI-ISOL1 FS -30 -48 rmoveto show 0 48 rmoveto TK} bind def
/es4 {200 /Times-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto TK} bind def
/ip4 {(\267) ns4 TK} bind def
/ib4 {(\267) bs4 TK} bind def

/ydel 300 def

%Titeltext
 100 8200 moveto
TBM
(16stufige Grauskalierung zwischen ) showde
(Equal 16 step grey scaling between ) showen
(16 pasos di gri con escala equal entre ) showes
(Les 16 plages d'\351chelle de gris entre ) showfr
(16 fasi di grigio con uguale la scalatura fra ) showit
(16 trinn av gr\345 med samme skalering mellom ) showjp

(L*) js2 (N) is2 
TBM
( und ) showde
( and ) showen
( y ) showes
( et ) showfr
( e ) showit
( og ) showjp

(L*) js2 (W) is2 TBM

TBM
( f\374r 3 Reflexionen des Umgebungslichts) showde
( for three reflections of ambient light) showen
( para tres reflexiones de luz ambiental) showes
( pour trois r\351flexions de lumi\350re ambiante) showfr
( per tre riflessioni della luce ambiente) showit
( for tre refections omgivelselys) showjp

/La*0i 16 array def
/La*1i 16 array def
/La*2i 16 array def

/Da*0i 16 array def
/Da*1i 16 array def
/Da*2i 16 array def

/lr*0i 16 array def
/lr*1i 16 array def
/lr*2i 16 array def

/wl*0i 16 array def
/wl*1i 16 array def
/wl*2i 16 array def

/r*0i 16 array def
/r*1i 16 array def
/r*2i 16 array def
/g*0i 16 array def
/g*1i 16 array def
/g*2i 16 array def
/b*0i 16 array def
/b*1i 16 array def
/b*2i 16 array def

/w*0i 16 array def
/w*1i 16 array def
/w*2i 16 array def


/La*r0 00.0 def
/La*r1 18.01 def
/La*r2 69.69 def
/La*rn 00.0 def
/La*rw 95.4 def

/s 350 def
/xdels 2000 def %s=series
/xdelc    s def %c=color=s
/xdel2    s 2 mul def
/ydel  0800 def
/dcirc s 0.25 mul def
/dcir2 dcirc 0.5 mul def
/tcirc s 0.60 mul def
/yscale 70 def

/Da*00 La*rw La*r0 sub 15 div def
0 1 15 {/i exch def
        La*0i i La*r0 Da*00 i mul add put
        lr*0i i La*0i i get La*r0 sub La*rw La*rn sub div put
        w*0i i lr*0i i get put
       } for

/Da*01 La*rw La*r1 sub 15 div def
0 1 15 {/i exch def
        La*1i i La*r1 Da*01 i mul add put
        lr*1i i La*1i i get La*r0 sub La*rw La*rn sub div put
        w*1i i lr*1i i get put
       } for

/Da*02 La*rw La*r2 sub 15 div def
0 1 15 {/i exch def
        La*2i i La*r2 Da*02 i mul add put
        lr*2i i La*2i i get La*r0 sub La*rw La*rn sub div put
        w*2i i lr*2i i get put
       } for

0 1 15 {/i exch def
        r*0i i i 15 div put
        g*0i i i 15 div put
        b*0i i i 15 div put
        w*0i i i 15 div put
       } for

0 1 15 {/i exch def
        r*1i i r*0i i get 1. 0.875 div exp put
        g*1i i g*0i i get 1. 0.875 div exp put
        b*1i i b*0i i get 1. 0.875 div exp put
        w*1i i w*0i i get 1. 0.875 div exp put
       } for

0 1 15 {/i exch def
        r*2i i r*0i i get 1. 0.500 div exp put
        g*2i i r*0i i get 1. 0.500 div exp put
        b*2i i r*0i i get 1. 0.500 div exp put
        w*2i i r*0i i get 1. 0.500 div exp put
       } for

/xpos0 0700 def
/ypos0 0300 def
/xpos1 0700 def
/ypos1 0300 100 yscale mul add def
/ytext 6 array def
/ytext [(    0) (  20) (  40) (  60) ( 80) (100)] def
/TBGshift 100 def
/TVGshift 060 def

xpos0 ypos0 moveto xpos1 ypos1 500 add lineto stroke
xpos1 ypos1 500 add moveto -100 -250 rlineto stroke
xpos1 ypos1 500 add moveto  100 -250 rlineto stroke
xpos1 500 sub ypos1 300 add moveto TBIM (L*) show TBM

0 1 5 {/i exch def %i=0,5
       xpos0 100 sub ypos0 i 20 mul yscale mul add moveto 200 0 rlineto stroke
       xpos0 600 sub ypos0 i 20 mul yscale mul add TBGshift sub moveto
       ytext i get show
      } for %i=0,5

/xpos 1000 def
TV
0 1 15 {/i exch def %i=0,15
        i 0 eq {xpos 0000 add ypos1 0600 add moveto

TBS
(keine Umgebungsreflexion ) showde
(No ambient reflection ) showen
(No hay reflexi\363n ambiental ) showes
(No r\351flexion ambiante ) showfr
(Nessuna riflessione ambientale ) showit
(Ingen ambient refleksjion ) showjp

                TBIS (Y) show (N) is4 TBS (=0, ) show
                TBIS (L*) show (N) is4 TBS (=0) show
                xpos 000 add ypos1 300 add moveto

TBS
(Helligkeitsdifferenz ) showde
(lightness difference ) showen
(differencia de luminosidad ) showes
(clart\351 diff\351rence ) showfr
(leggerezza differenza ) showit
(skryt forskjellen ) showjp

                SS (D) show TBIS (L*) show TBS (=6,3) show

                xpos 0300 add ypos1 0000 add moveto TBS  (n0.) show
                xpos 0700 add ypos1 0000 add moveto TBIS (w*)  show
                xpos 1200 add ypos1 0000 add moveto TBIS (w*)  show (r) is2
                xchartl 0 eq {%xchartl=0
                xpos 1750 add ypos1 0000 add moveto TBIS (L*)  show (it) is2
                xpos 2250 add ypos1 0000 add moveto TBIS (Y)  show (it) is2
                xpos 2750 add ypos1 0000 add moveto TBIS (Y)  show (N) is2
                             } if %xchartl=0
                xchartl 1 eq {%xchartl=1
                1 0 0 setrgbcolor
                xpos 1750 add ypos1 0000 add moveto TBIS (L*)  show (re) is2
                xpos 2250 add ypos1 0000 add moveto TBIS (Y)  show (re) is2
                xpos 2750 add ypos1 0000 add moveto TBIS (Y)  show (N) is2
                0 setgray
                             } if %xchartl=1
                xchartl 2 ge {%xchartl>=2
                xpos 1750 add ypos1 0000 add moveto TBIS (L*)  show (it) is2
                1 0 0 setrgbcolor
                xpos 2250 add ypos1 0000 add moveto TBIS (L*)  show (re) is2
                xchartl 2 eq {%xchartl=2
                              xpos 2750 add ypos1 0000 add moveto
                              SS (D) show TBIS (L*)  show (re) is2
                             } if %xchartl=2
                0 setgray
                             } if %xchartl>=2
                xchartl 3 eq {%xchartl=3
                1 0 0 setrgbcolor
                xpos 2750 add ypos1 0000 add moveto TBIS (Y)  show (re) is2
                0 setgray
                             } if %xchartl=3
                TV
               } if
        newpath
        /ypos La*0i i get yscale mul def
        i 14 le {La*0i i get 95.4 div} {newpath 0} ifelse setgray
        xpos dcirc add ypos0 ypos add dcirc 0 360 arc
        i 14 le {fill} {stroke} ifelse
        0 setgray
        xpos 0300 add ypos ypos0 add TVGshift sub moveto i 1 add cvishow
        xpos 0700 add ypos ypos0 add TVGshift sub moveto
        La*0i i get 95.4 div cvsshow3
        xpos 1200 add ypos ypos0 add TVGshift sub moveto
        La*0i i get La*r0 sub 95.4 La*r0 sub div cvsshow3
        xchartl 1 ne {%xchartl#1
        xpos 1750 add ypos ypos0 add TVGshift sub moveto
        La*0i i get cvsshow1
                     } if %xchartl#1
       } for %i=0,15

/Yci  16 array def
/Yc0i 16 array def
xchartl 0 eq {%xchartl=0
0 1 15 {/i exch def
        /ypos La*0i i get yscale mul def
        /Y* La*0i i get 16 add 116 div def
        Yci i Y* DecodeXYZ* 100.00 mul put
        Yc0i i Yci 0 get put
        xpos 2250 add ypos ypos0 add TVGshift sub moveto
        Yci i get cvsshow1
        xpos 2750 add ypos ypos0 add TVGshift sub moveto
        Yc0i i get cvsshow1
       } for %i=0,15
             } if %xchartl=0

/xpos  4300 def
TV
0 1 15 {/i exch def %i=0,15
        i 0 eq {xpos 0000 add ypos1 0600 add moveto

TBS
(Umgebungsreflexion ) showde
(Ambient reflection ) showen
(Reflexi\363n ambiental ) showes
(R\351flexion ambiante ) showfr
(Riflessione ambientale ) showit
(Ambient refleksjion ) showjp

                TBIS (Y) show (N) is4 TBS (=2,5, ) show
                TBIS (L*) show (N) is4 TBS (=18) show
                xpos 000 add ypos1 300 add moveto

TBS
(Helligkeitsdifferenz ) showde
(lightness difference ) showen
(differencia de luminosidad ) showes
(clart\351 diff\351rence ) showfr
(leggerezza differenza ) showit
(skryt forskjellen ) showjp

                SS (D) show TBIS (L*) show TBS (=5,1) show

                xpos 0300 add ypos1 0000 add moveto TBS  (n0.) show
                xpos 0700 add ypos1 0000 add moveto TBIS (w*)  show
                xpos 1200 add ypos1 0000 add moveto TBIS (w*)  show (r) is2
                xchartl 0 eq {%xchartl=0
                xpos 1750 add ypos1 0000 add moveto TBIS (L*)  show (it) is2
                xpos 2250 add ypos1 0000 add moveto TBIS (Y)  show (it) is2
                xpos 2750 add ypos1 0000 add moveto TBIS (Y)  show (N) is2
                             } if %xchartl=0
                xchartl 1 eq {%xchartl=1
                1 0 0 setrgbcolor
                xpos 1750 add ypos1 0000 add moveto TBIS (L*)  show (re) is2
                xpos 2250 add ypos1 0000 add moveto TBIS (Y)  show (re) is2
                xpos 2750 add ypos1 0000 add moveto TBIS (Y)  show (N) is2
                0 setgray
                             } if %xchartl=1
                xchartl 2 ge {%xchartl>=2
                xpos 1750 add ypos1 0000 add moveto TBIS (L*)  show (it) is2
                1 0 0 setrgbcolor
                xpos 2250 add ypos1 0000 add moveto TBIS (L*)  show (re) is2
                xchartl 2 eq {%xchartl=2
                              xpos 2750 add ypos1 0000 add moveto
                              SS (D) show TBIS (L*)  show (re) is2
                             } if %xchartl=2
                0 setgray
                             } if %xchartl>=2
                xchartl 3 eq {%xchartl=3
                1 0 0 setrgbcolor
                xpos 2750 add ypos1 0000 add moveto TBIS (Y)  show (re) is2
                0 setgray
                             } if %xchartl=3 
                TV
               } if
        newpath
        /ypos La*1i i get yscale mul def
        i 14 le {La*1i i get 95.4 div} {newpath 0} ifelse setgray
        xpos dcirc add ypos0 ypos add dcirc 0 360 arc
        i 14 le {fill} {stroke} ifelse
        0 setgray
        xpos 0300 add ypos ypos0 add TVGshift sub moveto i 1 add cvishow
        xpos 0700 add ypos ypos0 add TVGshift sub moveto
        La*1i i get 95.4 div cvsshow3
        xpos 1200 add ypos ypos0 add TVGshift sub moveto
        La*1i i get La*r1 sub 95.4 La*r1 sub div cvsshow3
        xchartl 1 ne {%xchartl#1
        xpos 1750 add ypos ypos0 add TVGshift sub moveto
        La*1i i get cvsshow1
                     } if %xchartl#1
       } for %i=0,15
%STOP0

xchartl 0 eq {%xchartl=0
0 1 15 {/i exch def
        /ypos La*1i i get yscale mul def
        /Y* La*1i i get 16 add 116 div def
        Yci i Y* DecodeXYZ* 100.00 mul put
        Yc0i i Yci 0 get put
        xpos 2250 add ypos ypos0 add TVGshift sub moveto
        Yci i get cvsshow1
        xpos 2750 add ypos ypos0 add TVGshift sub moveto
        Yc0i i get cvsshow1
       } for %i=0,15
             } if %xchartl=0

%STOP1

/xpos 7600 def
TV
0 1 15 {/i exch def %i=0,15
        i 0 eq {TBS
                xpos 0000 add ypos1 0600 add moveto

TBS
(Umgebungsreflexion ) showde
(Ambient reflection ) showen
(Reflexi\363n ambiental ) showes
(R\351flexion ambiante ) showfr
(Riflessione ambientale ) showit
(Ambient refleksjion ) showjp

                TBIS (Y) show (N) is4 TBS (=40, ) show
                TBIS (L*) show (N) is4 TBS (=70) show
                xpos 000 add ypos1 0300 add moveto

TBS
(Helligkeitsdifferenz ) showde
(lightness difference ) showen
(differencia de luminosidad ) showes
(clart\351 diff\351rence ) showfr
(leggerezza differenza ) showit
(skryt forskjellen ) showjp

                SS (D) show TBIS (L*) show TBS (=1,7) show

                xpos 0300 add ypos1 0000 add moveto TBS  (n0.) show
                xpos 0700 add ypos1 0000 add moveto TBIS (w*)  show
                xpos 1200 add ypos1 0000 add moveto TBIS (w*)  show (r) is2
                xchartl 0 eq {%xchartl=0
                xpos 1750 add ypos1 0000 add moveto TBIS (L*)  show (it) is2
                xpos 2250 add ypos1 0000 add moveto TBIS (Y)  show (it) is2
                xpos 2750 add ypos1 0000 add moveto TBIS (Y)  show (N) is2
                             } if %xchartl=0
                xchartl 1 eq {%xchartl=1
                1 0 0 setrgbcolor
                xpos 1750 add ypos1 0000 add moveto TBIS (L*)  show (re) is2
                xpos 2250 add ypos1 0000 add moveto TBIS (Y)  show (re) is2
                xpos 2750 add ypos1 0000 add moveto TBIS (Y)  show (N) is2
                0 setgray
                             } if %xchartl=1
                xchartl 2 ge {%xchartl>=2
                xpos 1750 add ypos1 0000 add moveto TBIS (L*)  show (it) is2
                1 0 0 setrgbcolor
                xpos 2250 add ypos1 0000 add moveto TBIS (L*)  show (re) is2
                xchartl 2 eq {%xchartl=2
                              xpos 2750 add ypos1 0000 add moveto
                              SS (D) show TBIS (L*)  show (re) is2
                             } if %xchartl=2
                0 setgray
                             } if %xchartl>=2
                xchartl 3 eq {%xchartl=3
                1 0 0 setrgbcolor
                xpos 2750 add ypos1 0000 add moveto TBIS (Y)  show (re) is2
                0 setgray
                             } if %xchartl=3                
                TV
               } if
        newpath
        /ypos La*2i i get yscale mul def
        i 14 le {La*2i i get 95.4 div} {newpath 0} ifelse setgray
        xpos dcirc add ypos0 ypos add dcirc 0 360 arc
        i 14 le {fill} {stroke} ifelse
        0 setgray
        xpos 0300 add ypos ypos0 add TVGshift sub moveto i 1 add cvishow
        xpos 0700 add ypos ypos0 add TVGshift sub moveto
        La*2i i get 95.4 div cvsshow3
        xpos 1200 add ypos ypos0 add TVGshift sub moveto
        La*2i i get La*r2 sub 95.4 La*r2 sub div cvsshow3
        xchartl 1 ne {%xchartl#1
        xpos 1750 add ypos ypos0 add TVGshift sub moveto
        La*2i i get cvsshow1
                     } if %xchartl#1
       } for %i=0,15

xchartl 0 eq {%xchartl=0
0 1 15 {/i exch def
        /ypos La*2i i get yscale mul def
        /Y* La*2i i get 16 add 116 div def
        Yci i Y* DecodeXYZ* 100.00 mul put
        Yc0i i Yci 0 get put
        xpos 2250 add ypos ypos0 add TVGshift sub moveto
        Yci i get cvsshow1
        xpos 2750 add ypos ypos0 add TVGshift sub moveto
        Yc0i i get cvsshow1
       } for %i=0,15
       } if %xchartl=0

4700 1150 moveto RBS (ISO/CIE 11664-4: ) show
                 TBIS (L*) show (it) is2
RBS
( = angestrebte CIELAB-Helligkeit der Ausgabe) showde
TBS
( = intended CIELAB lightness of output) showen
( = la CIELAB ligereza de la salida) showes
( = pr\351vue sortie de la clart\351 CIELAB) showfr
( = la valuta CIELAB leggerezza dell'uscita) showit
( = del tiltenkte CIELAB skryt av utskriften) showjp

4700 0800 moveto RBS (IEC 61966-2-1: ) show
                 TBIS (w*) show (sRGB) is2
TBS
( ist ungef\344hr proportional zu ) showde
( is approximately proportional to ) showen
( es approximadente proporcional a ) showes
( est approximativement proportionelle \340 ) showfr
( \350 approssimativamente proporzionale alla ) showit
( er omtrent proporsjional til ) showjp
 
                 TBIS (L*) show
4700 0450 moveto TBIS (w*) show (sRGB) is2 TBS ( = ) show
                 TBIS (L*) show TBS (/95,4) show TBS (;  ) show
                 TBIS (w*) show (r) is2 TBS ( = [) show
                 TBIS (L*) show RBS (-) show TBS
                 TBIS (L*) show (N) is2 TBS (] / [) show
                 TBIS (L*) show (W) is2 TBS RBS (-) show TBS
                 TBIS (L*) show (N) is2 TBS (]) show

xchartl 0 eq {%xchartl=0
0 setgray
4700 0100 moveto TBIS (Y) show (it) is2

RBS
( = angestrebter Normfarbwert mit Ausgabe-Linearisierung) showde
TBS
( = intended tristimulus value with output linearization) showen
( = prevista valor de triestimulos con linearizaci\363n de la salida) showes
( = prevue valeur tristimulus avec lin\351arisation de la sortie) showfr
( = destinata valore tristimulo con linearizzazione di uscita) showit
( = beregnet tristimulus verdien med linearization av utg\345ende) showjp

} if %xchartl=0

xchartl 1 eq {%xchartl=1
1 0 0 setrgbcolor
4700 0100 moveto TBIS (Y) show (re) is2

RBS
( = realer Normfarbwert ohne Ausgabe-Linearisierung) showde
TBS
( = real tristimulus value without output linearization) showen
( = real valor de triestimulos sin linearizaci\363n de la salida) showes
( = vrai valeur tristimulus sans lin\351arisation de la sortie) showfr
( = reale valore tristimulo senza linearizzazione di uscita) showit
( = real tristimulus verdien uten linearization av utg\345ende) showjp

0 setgray
} if %xchartl=1

xchartl 2 ge {%xchartl>=2
1 0 0 setrgbcolor
4700 0100 moveto TBIS (L*) show (re) is2

RBS
( = realer Normfarbwert ohne Ausgabe-Linearisierung) showde
TBS
( = real lightness of output without output linearization) showen
( = real ligereza de la salida sin linearizaci\363n de la salida) showes
( = vrai clart\351 sans lin\351arisation de la sortie) showfr
( = reale leggerezza senza linearizzazione di uscita) showit
( = real skryt av utgang uten linearization av utg\345ende) showjp

0 setgray
} if %xchartl>=2

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

xchartl 1 ge {%xchartl>=1
/TSY {200 /Symbol FS} bind def

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

/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

/TBS {200 /TimesB-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

/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

/SS {200 /Symbol FS} bind def
/SK {250 /Symbol FS} bind def
/SM {300 /Symbol FS} bind def
/SG {350 /Symbol FS} bind def

/nshow {iyd /Times-ISOL1 FS show} def
/nishow {-30 -50 rmoveto iyd 50 sub /Times-ISOL1 FS show 30 50 rmoveto} def
/kshow {iyd /TimesI-ISOL1 FS show} def
/bshow {iyd /TimesB-ISOL1 FS show} def
/jshow {iyd /TimesBI-ISOL1 FS show} def
/ishow {-30 -50 rmoveto iyd 50 sub /TimesB-ISOL1 FS show 30 50 rmoveto} def

/sshow {iyd /Symbol FS show} def

/nshowde {0 lanind eq {nshow} {pop} ifelse} bind def
/nshowen {1 lanind eq {nshow} {pop} ifelse} bind def
/nishowde {0 lanind eq {nishow} {pop} ifelse} bind def
/nishowen {1 lanind eq {nishow} {pop} ifelse} bind def
/kshowde {0 lanind eq {kshow} {pop} ifelse} bind def
/kshowen {1 lanind eq {kshow} {pop} ifelse} bind def
/bshowde {0 lanind eq {bshow} {pop} ifelse} bind def
/bshowen {1 lanind eq {bshow} {pop} ifelse} bind def
/jshowde {0 lanind eq {jshow} {pop} ifelse} bind def
/jshowen {1 lanind eq {jshow} {pop} ifelse} bind def
/ishowde {0 lanind eq {ishow} {pop} ifelse} bind def
/ishowen {1 lanind eq {ishow} {pop} ifelse} bind def

/nshowea {1 lanind le {nshow} {pop} ifelse} bind def
/nishowea {1 lanind le {nishow} {pop} ifelse} bind def
/kshowea {1 lanind le {kshow} {pop} ifelse} bind def
/bshowea {1 lanind le {bshow} {pop} ifelse} bind def
/jshowea {1 lanind le {jshow} {pop} ifelse} bind def
/ishowea {1 lanind le {ishow} {pop} ifelse} bind def

/LAB*rc 33 array def
/XYZrc  33 array def

/LAB*ra  33 array def
/XYZra  33 array def

/LAB*la 33 array def
/XYZla  33 array def

/LAB*lc 33 array def
/XYZlc  33 array def

%part 2
/LAB*c 48 array def
/XYZc  48 array def
/LAB*sa 48 array def
/XYZsa  48 array def
/LAB*s0 48 array def

/XYZc0  48 array def

/Xrcr089 16 array def
/Yrcr089 16 array def
/Zrcr089 16 array def

/Lrcr089 16 array def
/arcr089 16 array def
/brcr089 16 array def

/Xrcrn089 16 array def
/Yrcrn089 16 array def
/Zrcrn089 16 array def

/Lrcrn089 16 array def
/arcrn089 16 array def
/brcrn089 16 array def


/LABN 12 array def

/LAB*system { %BEG procedure LAB*system

/LAB*ORS [%D=Device OYLCVMO+NW %for Offset Reflective System (ORS)
58.62 -30.63 -42.75 %C   0  %see Table 1 of ISO/IEC 15775:1999-12
25.72  31.45 -44.36 %V   1 
48.13  75.20 -6.80  %M   2
47.94  65.31  52.07 %0   3
90.37 -11.16  96.17 %Y   4
50.90 -62.97  36.71 %L   5
58.62 -32.63 -42.75 %C   6
18.01  0.50   -0.47 %N   7 
95.41 -0.99    4.76 %W   8
00.01  0.84   -1.69 %N0  9
100.0 -1.08    5.06 %W1 10 
] def %OYLCVMO+NW

/LAB*TLS00 [%D=Device OYLCVMO+NW %for Television Luminous System (TLS)
86.88 -46.17 -13.56 %C   0  %see Table 1 of ISO/IEC 15775:1999-12
30.39  76.06 -103.6 %V   1  %see IE350-7A.PDF
57.30  94.35 -20.70 %M   2
50.50  76.92  64.55 %0   3
92.66 -20.70  90.75 %Y   4
83.63 -82.76  79.90 %L   5
86.88 -46.17 -13.56 %C   6
 0.01   0.00   0.00 %N0  7
95.41   0.00   0.00 %W   8
18.01   0.00   0.00 %N   9
100.0   0.00   0.00 %W1 10
] def %OYLCVMO+NW

/LAB*TLS18 [%D=Device OYLCVMO+NW %for Television Luminous System (TLS)
87.14 -44.43 -13.13 %C   0  %computed from Table 1 of ISO/IEC 15775:1999-12
31.90  24.46 -37.39 %V   1  % with Yn=2.52
59.01  89.33 -19.44 %M   2  %see IE350-7A.PDF
52.76  71.63  49.88 %0   3
92.74 -20.04  84.97 %Y   4
84.00 -79.00  73.94 %L   5
87.14 -44.43 -13.13 %C   6
18.01   0.00   0.00 %N   7
95.41   0.00   0.00 %W   8
 0.01   0.00   0.00 %N0  9
100.0   0.00   0.00 %W1 10
] def %OYLCVMO+NW

/LAB*TLS70 [%D=Device OYLCVMO+NW %for Television Luminous System (TLS)
90.93 -21.97  -7.09 %C   0  %computed from Table 1 of ISO/IEC 15775:1999-12
71.46   4.57  -9.01 %V   1  % with Yn=40.32
78.50  37.52 -25.24 %M   2  %see IE350-7A.PDF
76.43  26.27  10.57 %0   3
93.93 -10.77  34.63 %Y   4
89.32 -35.82  27.64 %L   5
90.93 -21.97  -7.09 %C   6
69.70   0.00   0.00 %N   7
95.41   0.00   0.00 %W   8
 0.01   0.00   0.00 %N0  9
100.0   0.00   0.00 %W1 10
] def %OYLCVMO+NW

0 1 8 {/sISO exch def
        /i30 sISO 3 mul def /i31 i30 1 add def /i32 i30 2 add def
        ISYSTEM 0 eq { %ORS
        LAB*rc i30 LAB*ORS i30 get put
        LAB*rc i31 LAB*ORS i31 get put
        LAB*rc i32 LAB*ORS i32 get put
                    } if
        ISYSTEM 1 eq { %TLS00
        LAB*rc i30 LAB*TLS00 i30 get put
        LAB*rc i31 LAB*TLS00 i31 get put
        LAB*rc i32 LAB*TLS00 i32 get put
                    } if
        ISYSTEM 2 eq { %TLS18
        LAB*rc i30 LAB*TLS18 i30 get put
        LAB*rc i31 LAB*TLS18 i31 get put
        LAB*rc i32 LAB*TLS18 i32 get put
                    } if
        ISYSTEM 3 eq { %TLS70
        LAB*rc i30 LAB*TLS70 i30 get put
        LAB*rc i31 LAB*TLS70 i31 get put
        LAB*rc i32 LAB*TLS70 i32 get put
                    } if
       } for

/L*N LAB*rc 21 get def
/A*N LAB*rc 22 get def
/B*N LAB*rc 23 get def

/L*W LAB*rc 24 get def
/A*W LAB*rc 25 get def
/B*W LAB*rc 26 get def

} bind def %END procedure LAB*system


/LABN [(00, F) (01, E) (02, D) (03, C) (04, B) (05, A) (06, 9) (07, 8)
       (08, 7) (09, 6) (10, 5) (11, 4) (12, 3) (13, 2) (14, 1) (15, 0)] def

/ISYSTEM 1 def %1 1 1 {/ISYSTEM exch def %ISYSTEM=0,1

%0 1 3 {/iout exch def %iout=0,3
/iout 1 def

LAB*system

/ix1    50 def %COLOR
/ix2   850 def %L*
/ix3  3450 def %Y
/ix4  6150 def %Yt
/ix5  8850 def %t

/ixd  1200 def
/iyd   170 def

/iy00 4600 def
/iy0d  1510 def
/iy01 iy00 def
/iy02 iy01 iy0d sub def
/iy03 iy02 iy0d sub def
/iy04 iy03 iy0d sub def
/iy05 iy04 iy0d sub def


% achromatic (D65) colours
/XLWD65100  95.04 def
/YLWD65100 100.00 def
/ZLWD65100 108.88 def

/Xwref XYZra 24 get def
/Ywref XYZra 25 get def
/Zwref XYZra 26 get def

/Xnref 2.52 0.9505 mul def
/Ynref 2.52 def
/Znref 2.52 1.0888 mul def

/ix2i ix2 800 add def

/iy iy02 iyd add 50 add def
/iy0 iy 500 add def
/iy1 iy 290 add def


/ilf 8 array def
/ilf [0.00 0.25 0.50 1.00 2.00 4.00 8.00 16.00] def
/Lrefl 8 array def
/Lrefl [(0%) (0,6%) (1,2%) (2,5%)
        (5%) (10%) (20%) (40%)] def
%Reference black and factors
/YrN 2.52 def

/LrefNt 8 array def
/LrefNi 8 array def
LrefNi 0 0 put

1 1 7 {/i exch def %i=0,7
       /Ynref YrN ilf i get mul def
       LrefNi i 116 Ynref 0.01 mul 0.3333 exp mul 16 sub put
      } for %i=0,7

%iout 0 eq {/ila1 0 def /ilad 7 def /ila2 7 def} if
%iout 1 eq {/ila1 0 def /ilad 3 def /ila2 3 def} if
%iout 2 eq {/ila1 0 def /ilad 7 def /ila2 7 def} if
%iout 3 eq {/ila1 0 def /ilad 3 def /ila2 3 def} if


%ila1 ilad ila2 {/il exch def %il=0,x

0 1 2 {/kl exch def %kl=0,2

       kl 0 eq {/il 0 def /ila1 0 def /ilad 1 def /ila2 0 def} if
       kl 1 eq {/il 3 def /ila1 3 def /ilad 1 def /ila2 3 def} if
       kl 2 eq {/il 7 def /ila1 7 def /ilad 1 def /ila2 7 def} if

/Xnref YrN ilf il get mul 0.9505 mul def
/Ynref YrN ilf il get mul def
/Znref YrN ilf il get mul 1.0890 mul def

/PLref (System OLS00) def
/TLref (System TLS00) def
%LAB*TLS0 21 LrefNi il get put

/ISYSTEM kl 1 add def

/i11 7 3 mul def /i12 i11 1 add def /i13 i11 2 add def %colour N
/i21 8 3 mul def /i22 i21 1 add def /i23 i21 2 add def %colour W
      
0 1 15 {/sISO exch def
        /i30 sISO 3 mul def /i31 i30 1 add def /i32 i30 2 add def
        ISYSTEM 0 eq { %ORS
        LAB*c i30 LAB*ORS i11 get 
        LAB*ORS i21 get LAB*ORS i11 get sub sISO 15 div mul add put
        LAB*c i31 LAB*ORS i12 get 
        LAB*ORS i22 get LAB*ORS i12 get sub sISO 15 div mul add put
        LAB*c i32 LAB*ORS i13 get 
        LAB*ORS i23 get LAB*ORS i13 get sub sISO 15 div mul add put
                    } if
        ISYSTEM 1 eq { %TLS00
        LAB*c i30 LAB*TLS00 i11 get 
        LAB*TLS00 i21 get LAB*TLS00 i11 get sub sISO 15 div mul add put
        LAB*c i31 LAB*TLS00 i12 get 
        LAB*TLS00 i22 get LAB*TLS00 i12 get sub sISO 15 div mul add put
        LAB*c i32 LAB*TLS00 i13 get 
        LAB*TLS00 i23 get LAB*TLS00 i13 get sub sISO 15 div mul add put
                    } if
        ISYSTEM 2 eq { %TLS18
        LAB*c i30 LAB*TLS18 i11 get 
        LAB*TLS18 i21 get LAB*TLS18 i11 get sub sISO 15 div mul add put
        LAB*c i31 LAB*TLS18 i12 get 
        LAB*TLS18 i22 get LAB*TLS18 i12 get sub sISO 15 div mul add put
        LAB*c i32 LAB*TLS18 i13 get 
        LAB*TLS18 i23 get LAB*TLS18 i13 get sub sISO 15 div mul add put
                    } if
        ISYSTEM 3 eq { %TLS70
        LAB*c i30 LAB*TLS70 i11 get 
        LAB*TLS70 i21 get LAB*TLS70 i11 get sub sISO 15 div mul add put
        LAB*c i31 LAB*TLS70 i12 get 
        LAB*TLS70 i22 get LAB*TLS70 i12 get sub sISO 15 div mul add put
        LAB*c i32 LAB*TLS70 i13 get 
        LAB*TLS70 i23 get LAB*TLS70 i13 get sub sISO 15 div mul add put
                    } if
                    } for

/L*N LAB*c 0 get def
/A*N LAB*c 1 get def
/B*N LAB*c 2 get def

/L*W LAB*c 45 get def
/A*W LAB*c 46 get def
/B*W LAB*c 47 get def

/A*D A*W A*N sub def
/B*D B*W B*N sub def

/L*Nsa L*N def
/A*Nsa 0.0 def
/B*Nsa 0.0 def

/L*Wsa L*W def
/A*Wsa 0.0 def
/B*Wsa 0.0 def

/L*Ns0 0.0 def
/A*Ns0 0.0 def
/B*Ns0 0.0 def

/L*Ws0 L*W L*N sub def
/A*Ws0 0.0 def
/B*Ws0 0.0 def

/Xssrefl Xnref def
/Yssrefl Ynref def
/Zssrefl Znref def

/Xrsrefl Xnref def
/Yrsrefl Ynref def
/Zrsrefl Znref def

0 1 15 {/i exch def
       /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def
       /X* {LAB*c i30 get 16 add 116 div
            LAB*c i31 get 500 div add} bind def
       /Y* {LAB*c i30 get 16 add 116 div} bind def
       /Z* {LAB*c i30 get 16 add 116 div
            LAB*c i32 get 200 div sub} bind def
       XYZc i30 X* DecodeXYZ* 95.05 mul put
       XYZc i31 Y* DecodeXYZ* 100.00 mul put
       XYZc i32 Z* DecodeXYZ* 108.90 mul put
       il 0 eq {%il=0
                XYZc0 i30 XYZc i30 get put
                XYZc0 i31 XYZc i31 get put
                XYZc0 i32 XYZc i32 get put
               } if %il=0
       } for %i=0,15
       

0 1 15 {/i exch def
        /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def
        LAB*sa i30 LAB*c i30 get put
        /l*CIE LAB*c i30 get L*N sub L*W L*N sub div def %system rel. lightn.
        /a*s A*W A*N sub l*CIE mul def
        /b*s B*W B*N sub l*CIE mul def
        LAB*sa i31 LAB*c i31 get A*N sub a*s sub put
        LAB*sa i32 LAB*c i32 get B*N sub b*s sub put
       } for %i=0,15 
        
0 1 15 {/i exch def
       /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def
       /X*sa {LAB*sa i30 get 16 add 116 div
              LAB*sa i31 get 500 div add} bind def
       /Y*sa {LAB*sa i30 get 16 add 116 div} bind def
       /Z*sa {LAB*sa i30 get 16 add 116 div
              LAB*sa i32 get 200 div sub} bind def
       XYZsa i30 X*sa DecodeXYZ*  95.05 mul put
       XYZsa i31 Y*sa DecodeXYZ* 100.00 mul put
       XYZsa i32 Z*sa DecodeXYZ* 108.90 mul put
      } for %i=0,15

0 1 15 {/i exch def %i=0,15
        /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def
         Xrcr089 i XYZc0 i30 get put
         Yrcr089 i XYZc0 i31 get put
         Zrcr089 i XYZc0 i32 get put
       } for %i=0,15

0 1 15 {/i exch def %i=0,15
        Yrcrn089 i Yrcr089  i get Ynref add
                   Yrcr089 15 get Ynref add div 88.59 mul put
        /YQ Yrcrn089 i get YLWD65100 div def
        YQ 0 lt {/YQ 0.00000001 def} if
        Lrcrn089 i YQ 0.008856 lt {903.3 YQ mul}
                                  {YQ 0.33333333 exp 116 mul 16 sub} ifelse put
       } for %i=0,15

xchartl 1 eq {/xposa 1750 def} if
xchartl 2 eq {/xposa 2250 def} if
xchartl 3 eq {/xposa 2250 def} if

/LAB*refi 16 array def
        
il 0 eq {%il=0
/xpos 1000 def
TV
1 0 0 setrgbcolor
0 1 15 {/i exch def %i=0,15
        i 0 eq {TBS
%                xpos 2200 add ypos1 0000 add moveto TBIS (L*) show (re) is2
                /ypos La*0i 0 get yscale mul def
                TV
               } if
        /ypos La*0i i get yscale mul def
        i 0 gt {%i>0
                /yposd La*0i i       get yscale mul
                       La*0i i 1 sub get yscale mul add 0.5 mul def
               } if %i>0
        xpos xposa add ypos ypos0 add TVGshift sub moveto
        /LAB*ref Lrcrn089 i get def
        1 0 0 setrgbcolor
        LAB*ref cvsshow1
%        0 setgray
        LAB*refi i Lrcrn089 i get put
        /xfak 88.59 0.00 sub 88.59 div def

        xchartl 1 eq {%xchartl=1
        xpos xposa add 450 add ypos ypos0 add TVGshift sub moveto
        Yrcr089 i get cvsshow2
        xpos xposa add 450 add 500 add ypos ypos0 add TVGshift sub moveto
        Yrcr089 0 get cvsshow2
                     } if %xchartl=1
        xchartl 2 eq {%xchartl=2
        i 0 gt {%i>0
        1 0 0 setrgbcolor
        xpos xposa add 0450 add yposd ypos0 add TVGshift sub moveto
        LAB*refi i       get
        LAB*refi i 1 sub get sub cvsshow2
        0 setgray
                } if %i>0
                     } if %xchartl=2
        xchartl 3 eq {%xchartl=3
        xpos xposa add 450 add ypos ypos0 add TVGshift sub moveto
        Yrcr089 i get xfak mul 0.00 add cvsshow2
                     } if %xchartl=3
        
       } for %i=0,15
0 setgray
} if %il=0


il 3 eq {%il=3
/xpos 4300 def
TV
1 0 0 setrgbcolor
0 1 15 {/i exch def %i=0,15
        i 0 eq {TBS
%                xpos 2200 add ypos1 0000 add moveto TBIS (L*) show (re) is2
                /ypos La*1i 0 get yscale mul def
                TV
               } if
        /ypos La*1i i get yscale mul def
        i 0 gt {%i>0
                /yposd La*1i i       get yscale mul
                       La*1i i 1 sub get yscale mul add 0.5 mul def
               } if %i>0
%        xpos 2200 add ypos ypos0 add TVGshift sub moveto
%        Lrcrn089 i get cvsshow1
        /xfak 88.59 2.52 sub 88.59 div def
%        xpos 2500 add ypos ypos0 add TVGshift sub moveto
%        Yrcr089 i get xfak mul cvsshow2
%        xpos 2500 add ypos ypos0 add TVGshift sub moveto
%        Yrcr089 i get xfak mul cvsshow2
     
       /YQ Yrcr089 i get xfak mul 2.52 add 100 div def
       YQ 0 lt {/YQ 0.00000001 def} if
       /LAB*ref YQ 0.008856 lt {903.3 YQ mul}
                  {YQ 0.33333333 exp 116 mul 16 sub} ifelse def

        xpos xposa add ypos ypos0 add TVGshift sub moveto
        1 0 0 setrgbcolor
        LAB*ref cvsshow1
%        0 setgray
        LAB*refi i LAB*ref put
        xchartl 1 eq {%xchartl=1
        xpos xposa add 450 add ypos ypos0 add TVGshift sub moveto
        Yrcr089 i get xfak mul 2.52 add cvsshow2
        xpos xposa add 450 add 500 add ypos ypos0 add TVGshift sub moveto
        Yrcr089 0 get xfak mul 2.52 add cvsshow2
                     } if %xchartl=1
        xchartl 2 eq {%xchartl=2
        i 0 gt {%i>0
        1 0 0 setrgbcolor
        xpos xposa add 0450 add yposd ypos0 add TVGshift sub moveto
        LAB*refi i       get
        LAB*refi i 1 sub get sub cvsshow2
        0 setgray
                } if %i>0
                     } if %xchartl=2
        xchartl 3 eq {%xchartl=3
        xpos xposa add 0450 add ypos ypos0 add TVGshift sub moveto
        Yrcr089 i get xfak mul 2.52 add cvsshow2
                     } if %xchartl=3
                     } for %i=0,15
0 setgray
} if %il=3


il 7 eq {%il=7
/xpos 7600 def
TV
1 0 0 setrgbcolor
0 1 15 {/i exch def %i=0,15
        i 0 eq {TBS
%                xpos 2200 add ypos1 0000 add moveto TBIS (L*) show (re) is2
                /ypos La*2i 0 get yscale mul def
                TV
               } if
        /ypos La*2i i get yscale mul def
        i 0 gt {%i>0
                /yposd La*2i i       get yscale mul
                       La*2i i 1 sub get yscale mul add 0.5 mul def
               } if %i>0
%        xpos 2200 add ypos ypos0 add TVGshift sub moveto
%        Lrcrn089 i get cvsshow1
        /xfak 88.59 40.32 sub 88.59 div def
%        xpos 2500 add ypos ypos0 add TVGshift sub moveto
%        Yrcr089 i get xfak mul cvsshow2
     
       /YQ Yrcr089 i get xfak mul 40.32 add 100 div def
       YQ 0 lt {/YQ 0.00000001 def} if
       /LAB*ref YQ 0.008856 lt {903.3 YQ mul}
                  {YQ 0.33333333 exp 116 mul 16 sub} ifelse def
        xpos xposa add ypos ypos0 add TVGshift sub moveto
        1 0 0 setrgbcolor
        LAB*ref cvsshow1
%        0 setgray
        LAB*refi i LAB*ref put

        xchartl 1 eq {%xchartl=1
        xpos xposa add 450 add ypos ypos0 add TVGshift sub moveto
        Yrcr089 i get xfak mul 40.32 add cvsshow2
        xpos xposa add 450 add 500 add ypos ypos0 add TVGshift sub moveto
        Yrcr089 0 get xfak mul 40.32 add cvsshow2
                     } if %xchartl=1
        xchartl 2 eq {%xchartl=2
        i 0 gt {%i>0
        1 0 0 setrgbcolor
        xpos xposa add 0450 add yposd ypos0 add TVGshift sub moveto
        LAB*refi i       get 
        LAB*refi i 1 sub get sub cvsshow2
        0 setgray
                } if %i>0
                     } if %xchartl=2
        xchartl 3 eq {%xchartl=3
        xpos xposa add 0450 add ypos ypos0 add TVGshift sub moveto
        Yrcr089 i get xfak mul 40.32 add cvsshow2
                     } if %xchartl=3
     } for %i=0,15


0 setgray
} if %il=7

} for %il=0,2

} if %xchartll>=1

showpage
grestore

%} for %xchartl<=3

%%Trailer

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
219 MM 06 MM sub SHAr add 108 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 24

%line 459
%!PS-Adobe-3.0 EPSF-3.0 AGS51-4,
%%BoundingBox: 70 90 226 206

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave

8 /Times-Roman FS
72 83 moveto
%!2     (AGS51-4,) show

72 90 translate

%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0  moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke

grestore

showpage
%%Trailer

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
161 MM 06 MM sub SHSr sub 064 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 25

%line 469
%!PS-Adobe-3.0 EPSF-3.0 AGS51-5,
%%BoundingBox: 70 90 226 206

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave

8 /Times-Roman FS
72 83 moveto
%!2     (AGS51-5,) show

72 90 translate

%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0  moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke

grestore

showpage
%%Trailer

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
219 MM 06 MM sub SHAr add 064 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 26

%line 479
%!PS-Adobe-3.0 EPSF-3.0 AGS51-6,
%%BoundingBox: 70 90 226 206

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave

8 /Times-Roman FS
72 83 moveto
%!2     (AGS51-6,) show

72 90 translate

%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0  moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke

grestore

showpage
%%Trailer

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
161 MM 06 MM sub SHSr sub 020 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 27

%line 489
%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/AGS5/AGS51-7
%%BoundingBox: 70 83 392 335

%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: farbe.li.tu-berlin.de/AGS5/AGS5.HTM)
 /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1)
 /Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.45/~farbmetrik)
 /Keywords (image reproduction, colour devices)
 /Creator (klaus.richter@mac.com)
 /CreationDate (D:2020110112000)
 /ModDate (D:20201101112000)
/DOCINFO pdfmark17
[ /View [ /Fit ]
/DOCVIEW pdfmark17
%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
 
/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

/RV {150 /Times-Roman FS} bind def
/RS {190 /Times-Roman FS} bind def
/RK {240 /Times-Roman FS} bind def
/RM {290 /Times-Roman FS} bind def
/RG {340 /Times-Roman FS} bind def

/RIV {150 /Times-Italic FS} bind def
/RIS {190 /Times-Italic FS} bind def
/RIK {240 /Times-Italic FS} bind def
/RIM {290 /Times-Italic FS} bind def
/RIG {340 /Times-Italic FS} bind def

/RBV {150 /Times-Bold FS} bind def
/RBS {190 /Times-Bold FS} bind def
/RBK {240 /Times-Bold FS} bind def
/RBM {290 /Times-Bold FS} bind def
/RBG {340 /Times-Bold FS} bind def

/RBIV {150 /Times-BoldItalic FS} bind def
/RBIS {190 /Times-BoldItalic FS} bind def
/RBIK {240 /Times-BoldItalic FS} bind def
/RBIM {290 /Times-BoldItalic FS} bind def
/RBIG {340 /Times-BoldItalic FS} bind def


/TV {150 /Times-ISOL1 FS} bind def
/TS {190 /Times-ISOL1 FS} bind def
/TK {240 /Times-ISOL1 FS} bind def
/TM {290 /Times-ISOL1 FS} bind def
/TG {340 /Times-ISOL1 FS} bind def

/TIV {150 /TimesI-ISOL1 FS} bind def
/TIS {190 /TimesI-ISOL1 FS} bind def
/TIK {240 /TimesI-ISOL1 FS} bind def
/TIM {290 /TimesI-ISOL1 FS} bind def
/TIG {340 /TimesI-ISOL1 FS} bind def

/TBV {150 /TimesB-ISOL1 FS} bind def
/TBS {190 /TimesB-ISOL1 FS} bind def
/TBK {240 /TimesB-ISOL1 FS} bind def
/TBM {290 /TimesB-ISOL1 FS} bind def
/TBG {340 /TimesB-ISOL1 FS} bind def

/TBIV {150 /TimesBI-ISOL1 FS} bind def
/TBIS {190 /TimesBI-ISOL1 FS} bind def
/TBIK {240 /TimesBI-ISOL1 FS} bind def
/TBIM {290 /TimesBI-ISOL1 FS} bind def
/TBIG {340 /TimesBI-ISOL1 FS} bind def

/SV {150 /Symbol FS} bind def
/SS {190 /Symbol FS} bind def
/SK {240 /Symbol FS} bind def
/SM {290 /Symbol FS} bind def
/SG {340 /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
/circ %x, y radius
  {dcirc 0 360 arc } 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

/colarcfi %x y c m y k
  {setcmyk_olvcolor circ fill} bind def

/colarcst %x y width heigth c m y k
  {setcmyk_olvcolor circ 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

/tfrz {0.0 1.0 1.0 0.5 setcmyk_olvcolor} bind def %Reproduktionsfarben
/tfgz {1.0 0.0 1.0 0.5 setcmyk_olvcolor} bind def
/tfbz {1.0 1.0 0.0 0.5 setcmyk_olvcolor} bind def
/tfcz {1.0 0.0 0.0 0.5 setcmyk_olvcolor} bind def
/tfmz {0.0 1.0 0.0 0.5 setcmyk_olvcolor} bind def
/tfyz {0.0 0.0 1.0 0.5 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

/cvishow {cvi 10 string cvs show} def
/cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def
/cvsshow2 {100 mul cvi 0.01 mul 7 string cvs show} def
/cvsshow3 {1000 mul cvi 0.001 mul 7 string cvs show} def

/DecodeXYZ* {dup 6 29 div ge {dup dup mul mul}
            {4 29 div sub 108 841 div mul} ifelse} 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 {3 lanind eq {show} {pop} ifelse} bind def
/showfr {2 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

/lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def
                    /lanindd laninddf def}
               {/lanind1 0 def /lanind2 0 def} ifelse
/colormf where {pop /colorm1 colormf def /colorm2 colormf def
                    /colorMD colormdf def}
               {/colorm1 0 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

5 /Times-ISOL1 FS
75 85 moveto
lanind cvishow (-) show
colorm cvishow
deintp cvishow
xcolor cvishow
xchart cvishow
pchart cvishow
colsep cvishow (-L) show pmetam cvishow

gsave
/xchart xchart1 def

/xchartl 3 def

gsave

0 setgray
4 /Times-ISOL1 FS
74 86 moveto
(AGS51-7N) show

%xchartl 0 eq {(AGS50-3N) show} if
%xchartl 1 eq {(AGS50-7N) show} if
%xchartl 2 eq {(AGS51-3N) show} if
%xchartl 3 eq {(AGS51-7N) show} if %not used

72 90 translate

/yhoe 8500 def
0.01 MM dup scale

15 setlinewidth
0.0 0.0 0.0 0.0 setcmyk_olvcolor
0 0  moveto 11200 0 rlineto 0 yhoe rlineto -11200 0 rlineto
closepath fill
0.0 0.0 0.0 1.0 setcmyk_olvcolor
 0 0  moveto 11200 0 rlineto 0 yhoe rlineto -11200 0 rlineto
closepath stroke

 0 yhoe 400 sub  moveto 11200 0 rlineto stroke
 
/ns {340 /Times-ISOL1 FS  show TG} bind def
/ks {340 /TimesI-ISOL1 FS  show TG} bind def
/bs {340 /TimesB-ISOL1 FS  show TG} bind def
/js {340 /TimesBI-ISOL1 FS  show TG} bind def
/ss {340 /Symbol FS  show TG} bind def
/is {240 /Times-ISOL1 FS 0 -90 rmoveto show 0   90 rmoveto TG} bind def
/is0 {240 /Times-ISOL1 FS -30 -90 rmoveto show 0   90 rmoveto TG} bind def
/es {240 /Times-ISOL1 FS 0 200 rmoveto show 0 -200 rmoveto TG} bind def
%/ipoint {340 /Times-ISOL1 FS 50 50 rmoveto show 50 -50 rmoveto TG} bind def
%/ip {(.) ipoint} bind def
/ip {(\267) ns TG} bind def
/ib {(\267) bs TG} bind def

%20% kleiner
/ns2 {290 /Times-ISOL1 FS  show TM} bind def
/ks2 {290 /TimesI-ISOL1 FS  show TM} bind def
/bs2 {290 /TimesB-ISOL1 FS  show TM} bind def
/js2 {290 /TimesBI-ISOL1 FS  show TM} bind def
/is2 {200 /Times-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TM} bind def
/is20 {200 /Times-ISOL1 FS -20 -60 rmoveto show 0 60 rmoveto TM} bind def
/iks2 {200 /TimesI-ISOL1 FS 10 -40 rmoveto show -10 40 rmoveto TM} bind def
/es2 {240 /Times-ISOL1 FS 0 060 rmoveto show 0 -060 rmoveto TM} bind def
/ip2 {(\267) ns2 TM} bind def
/ib2 {(\267) bs2 TM} bind def

%40% kleiner
/ns4 {240 /Times-ISOL1 FS  show TK} bind def
/ks4 {240 /TimesI-ISOL1 FS  show TK} bind def
/bs4 {240 /TimesB-ISOL1 FS  show TK} bind def
/js4 {240 /TimesBI-ISOL1 FS  show TK} bind def
/is4 {160 /Times-ISOL1 FS -30 -48 rmoveto show 0 48 rmoveto TK} bind def
/ibs4 {160 /TimesB-ISOL1 FS -30 -48 rmoveto show 0 48 rmoveto TK} bind def
/iks4 {160 /TimesI-ISOL1 FS -30 -48 rmoveto show 0 48 rmoveto TK} bind def
/es4 {200 /Times-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto TK} bind def
/ip4 {(\267) ns4 TK} bind def
/ib4 {(\267) bs4 TK} bind def

/ydel 300 def

%Titeltext
 100 8200 moveto
TBM
(16stufige Grauskalierung zwischen ) showde
(Equal 16 step grey scaling between ) showen
(16 pasos di gri con escala equal entre ) showes
(Les 16 plages d'\351chelle de gris entre ) showfr
(16 fasi di grigio con uguale la scalatura fra ) showit
(16 trinn av gr\345 med samme skalering mellom ) showjp

(L*) js2 (N) is2 
TBM
( und ) showde
( and ) showen
( y ) showes
( et ) showfr
( e ) showit
( og ) showjp

(L*) js2 (W) is2 TBM

TBM
( f\374r 3 Reflexionen des Umgebungslichts) showde
( for three reflections of ambient light) showen
( para tres reflexiones de luz ambiental) showes
( pour trois r\351flexions de lumi\350re ambiante) showfr
( per tre riflessioni della luce ambiente) showit
( for tre refections omgivelselys) showjp

/La*0i 16 array def
/La*1i 16 array def
/La*2i 16 array def

/Da*0i 16 array def
/Da*1i 16 array def
/Da*2i 16 array def

/lr*0i 16 array def
/lr*1i 16 array def
/lr*2i 16 array def

/wl*0i 16 array def
/wl*1i 16 array def
/wl*2i 16 array def

/r*0i 16 array def
/r*1i 16 array def
/r*2i 16 array def
/g*0i 16 array def
/g*1i 16 array def
/g*2i 16 array def
/b*0i 16 array def
/b*1i 16 array def
/b*2i 16 array def

/w*0i 16 array def
/w*1i 16 array def
/w*2i 16 array def


/La*r0 00.0 def
/La*r1 18.01 def
/La*r2 69.69 def
/La*rn 00.0 def
/La*rw 95.4 def

/s 350 def
/xdels 2000 def %s=series
/xdelc    s def %c=color=s
/xdel2    s 2 mul def
/ydel  0800 def
/dcirc s 0.25 mul def
/dcir2 dcirc 0.5 mul def
/tcirc s 0.60 mul def
/yscale 70 def

/Da*00 La*rw La*r0 sub 15 div def
0 1 15 {/i exch def
        La*0i i La*r0 Da*00 i mul add put
        lr*0i i La*0i i get La*r0 sub La*rw La*rn sub div put
        w*0i i lr*0i i get put
       } for

/Da*01 La*rw La*r1 sub 15 div def
0 1 15 {/i exch def
        La*1i i La*r1 Da*01 i mul add put
        lr*1i i La*1i i get La*r0 sub La*rw La*rn sub div put
        w*1i i lr*1i i get put
       } for

/Da*02 La*rw La*r2 sub 15 div def
0 1 15 {/i exch def
        La*2i i La*r2 Da*02 i mul add put
        lr*2i i La*2i i get La*r0 sub La*rw La*rn sub div put
        w*2i i lr*2i i get put
       } for

0 1 15 {/i exch def
        r*0i i i 15 div put
        g*0i i i 15 div put
        b*0i i i 15 div put
        w*0i i i 15 div put
       } for

0 1 15 {/i exch def
        r*1i i r*0i i get 1. 0.875 div exp put
        g*1i i g*0i i get 1. 0.875 div exp put
        b*1i i b*0i i get 1. 0.875 div exp put
        w*1i i w*0i i get 1. 0.875 div exp put
       } for

0 1 15 {/i exch def
        r*2i i r*0i i get 1. 0.500 div exp put
        g*2i i r*0i i get 1. 0.500 div exp put
        b*2i i r*0i i get 1. 0.500 div exp put
        w*2i i r*0i i get 1. 0.500 div exp put
       } for

/xpos0 0700 def
/ypos0 0300 def
/xpos1 0700 def
/ypos1 0300 100 yscale mul add def
/ytext 6 array def
/ytext [(    0) (  20) (  40) (  60) ( 80) (100)] def
/TBGshift 100 def
/TVGshift 060 def

xpos0 ypos0 moveto xpos1 ypos1 500 add lineto stroke
xpos1 ypos1 500 add moveto -100 -250 rlineto stroke
xpos1 ypos1 500 add moveto  100 -250 rlineto stroke
xpos1 500 sub ypos1 300 add moveto TBIM (L*) show TBM

0 1 5 {/i exch def %i=0,5
       xpos0 100 sub ypos0 i 20 mul yscale mul add moveto 200 0 rlineto stroke
       xpos0 600 sub ypos0 i 20 mul yscale mul add TBGshift sub moveto
       ytext i get show
      } for %i=0,5

/xpos 1000 def
TV
0 1 15 {/i exch def %i=0,15
        i 0 eq {xpos 0000 add ypos1 0600 add moveto

TBS
(keine Umgebungsreflexion ) showde
(No ambient reflection ) showen
(No hay reflexi\363n ambiental ) showes
(No r\351flexion ambiante ) showfr
(Nessuna riflessione ambientale ) showit
(Ingen ambient refleksjion ) showjp

                TBIS (Y) show (N) is4 TBS (=0, ) show
                TBIS (L*) show (N) is4 TBS (=0) show
                xpos 000 add ypos1 300 add moveto

TBS
(Helligkeitsdifferenz ) showde
(lightness difference ) showen
(differencia de luminosidad ) showes
(clart\351 diff\351rence ) showfr
(leggerezza differenza ) showit
(skryt forskjellen ) showjp

                SS (D) show TBIS (L*) show TBS (=6,3) show

                xpos 0300 add ypos1 0000 add moveto TBS  (n0.) show
                xpos 0700 add ypos1 0000 add moveto TBIS (w*)  show
                xpos 1200 add ypos1 0000 add moveto TBIS (w*)  show (r) is2
                xchartl 0 eq {%xchartl=0
                xpos 1750 add ypos1 0000 add moveto TBIS (L*)  show (it) is2
                xpos 2250 add ypos1 0000 add moveto TBIS (Y)  show (it) is2
                xpos 2750 add ypos1 0000 add moveto TBIS (Y)  show (N) is2
                             } if %xchartl=0
                xchartl 1 eq {%xchartl=1
                1 0 0 setrgbcolor
                xpos 1750 add ypos1 0000 add moveto TBIS (L*)  show (re) is2
                xpos 2250 add ypos1 0000 add moveto TBIS (Y)  show (re) is2
                xpos 2750 add ypos1 0000 add moveto TBIS (Y)  show (N) is2
                0 setgray
                             } if %xchartl=1
                xchartl 2 ge {%xchartl>=2
                xpos 1750 add ypos1 0000 add moveto TBIS (L*)  show (it) is2
                1 0 0 setrgbcolor
                xpos 2250 add ypos1 0000 add moveto TBIS (L*)  show (re) is2
                xchartl 2 eq {%xchartl=2
                              xpos 2750 add ypos1 0000 add moveto
                              SS (D) show TBIS (L*)  show (re) is2
                             } if %xchartl=2
                0 setgray
                             } if %xchartl>=2
                xchartl 3 eq {%xchartl=3
                1 0 0 setrgbcolor
                xpos 2750 add ypos1 0000 add moveto TBIS (Y)  show (re) is2
                0 setgray
                             } if %xchartl=3
                TV
               } if
        newpath
        /ypos La*0i i get yscale mul def
        i 14 le {La*0i i get 95.4 div} {newpath 0} ifelse setgray
        xpos dcirc add ypos0 ypos add dcirc 0 360 arc
        i 14 le {fill} {stroke} ifelse
        0 setgray
        xpos 0300 add ypos ypos0 add TVGshift sub moveto i 1 add cvishow
        xpos 0700 add ypos ypos0 add TVGshift sub moveto
        La*0i i get 95.4 div cvsshow3
        xpos 1200 add ypos ypos0 add TVGshift sub moveto
        La*0i i get La*r0 sub 95.4 La*r0 sub div cvsshow3
        xchartl 1 ne {%xchartl#1
        xpos 1750 add ypos ypos0 add TVGshift sub moveto
        La*0i i get cvsshow1
                     } if %xchartl#1
       } for %i=0,15

/Yci  16 array def
/Yc0i 16 array def
xchartl 0 eq {%xchartl=0
0 1 15 {/i exch def
        /ypos La*0i i get yscale mul def
        /Y* La*0i i get 16 add 116 div def
        Yci i Y* DecodeXYZ* 100.00 mul put
        Yc0i i Yci 0 get put
        xpos 2250 add ypos ypos0 add TVGshift sub moveto
        Yci i get cvsshow1
        xpos 2750 add ypos ypos0 add TVGshift sub moveto
        Yc0i i get cvsshow1
       } for %i=0,15
             } if %xchartl=0

/xpos  4300 def
TV
0 1 15 {/i exch def %i=0,15
        i 0 eq {xpos 0000 add ypos1 0600 add moveto

TBS
(Umgebungsreflexion ) showde
(Ambient reflection ) showen
(Reflexi\363n ambiental ) showes
(R\351flexion ambiante ) showfr
(Riflessione ambientale ) showit
(Ambient refleksjion ) showjp

                TBIS (Y) show (N) is4 TBS (=2,5, ) show
                TBIS (L*) show (N) is4 TBS (=18) show
                xpos 000 add ypos1 300 add moveto

TBS
(Helligkeitsdifferenz ) showde
(lightness difference ) showen
(differencia de luminosidad ) showes
(clart\351 diff\351rence ) showfr
(leggerezza differenza ) showit
(skryt forskjellen ) showjp

                SS (D) show TBIS (L*) show TBS (=5,1) show

                xpos 0300 add ypos1 0000 add moveto TBS  (n0.) show
                xpos 0700 add ypos1 0000 add moveto TBIS (w*)  show
                xpos 1200 add ypos1 0000 add moveto TBIS (w*)  show (r) is2
                xchartl 0 eq {%xchartl=0
                xpos 1750 add ypos1 0000 add moveto TBIS (L*)  show (it) is2
                xpos 2250 add ypos1 0000 add moveto TBIS (Y)  show (it) is2
                xpos 2750 add ypos1 0000 add moveto TBIS (Y)  show (N) is2
                             } if %xchartl=0
                xchartl 1 eq {%xchartl=1
                1 0 0 setrgbcolor
                xpos 1750 add ypos1 0000 add moveto TBIS (L*)  show (re) is2
                xpos 2250 add ypos1 0000 add moveto TBIS (Y)  show (re) is2
                xpos 2750 add ypos1 0000 add moveto TBIS (Y)  show (N) is2
                0 setgray
                             } if %xchartl=1
                xchartl 2 ge {%xchartl>=2
                xpos 1750 add ypos1 0000 add moveto TBIS (L*)  show (it) is2
                1 0 0 setrgbcolor
                xpos 2250 add ypos1 0000 add moveto TBIS (L*)  show (re) is2
                xchartl 2 eq {%xchartl=2
                              xpos 2750 add ypos1 0000 add moveto
                              SS (D) show TBIS (L*)  show (re) is2
                             } if %xchartl=2
                0 setgray
                             } if %xchartl>=2
                xchartl 3 eq {%xchartl=3
                1 0 0 setrgbcolor
                xpos 2750 add ypos1 0000 add moveto TBIS (Y)  show (re) is2
                0 setgray
                             } if %xchartl=3 
                TV
               } if
        newpath
        /ypos La*1i i get yscale mul def
        i 14 le {La*1i i get 95.4 div} {newpath 0} ifelse setgray
        xpos dcirc add ypos0 ypos add dcirc 0 360 arc
        i 14 le {fill} {stroke} ifelse
        0 setgray
        xpos 0300 add ypos ypos0 add TVGshift sub moveto i 1 add cvishow
        xpos 0700 add ypos ypos0 add TVGshift sub moveto
        La*1i i get 95.4 div cvsshow3
        xpos 1200 add ypos ypos0 add TVGshift sub moveto
        La*1i i get La*r1 sub 95.4 La*r1 sub div cvsshow3
        xchartl 1 ne {%xchartl#1
        xpos 1750 add ypos ypos0 add TVGshift sub moveto
        La*1i i get cvsshow1
                     } if %xchartl#1
       } for %i=0,15
%STOP0

xchartl 0 eq {%xchartl=0
0 1 15 {/i exch def
        /ypos La*1i i get yscale mul def
        /Y* La*1i i get 16 add 116 div def
        Yci i Y* DecodeXYZ* 100.00 mul put
        Yc0i i Yci 0 get put
        xpos 2250 add ypos ypos0 add TVGshift sub moveto
        Yci i get cvsshow1
        xpos 2750 add ypos ypos0 add TVGshift sub moveto
        Yc0i i get cvsshow1
       } for %i=0,15
             } if %xchartl=0

%STOP1

/xpos 7600 def
TV
0 1 15 {/i exch def %i=0,15
        i 0 eq {TBS
                xpos 0000 add ypos1 0600 add moveto

TBS
(Umgebungsreflexion ) showde
(Ambient reflection ) showen
(Reflexi\363n ambiental ) showes
(R\351flexion ambiante ) showfr
(Riflessione ambientale ) showit
(Ambient refleksjion ) showjp

                TBIS (Y) show (N) is4 TBS (=40, ) show
                TBIS (L*) show (N) is4 TBS (=70) show
                xpos 000 add ypos1 0300 add moveto

TBS
(Helligkeitsdifferenz ) showde
(lightness difference ) showen
(differencia de luminosidad ) showes
(clart\351 diff\351rence ) showfr
(leggerezza differenza ) showit
(skryt forskjellen ) showjp

                SS (D) show TBIS (L*) show TBS (=1,7) show

                xpos 0300 add ypos1 0000 add moveto TBS  (n0.) show
                xpos 0700 add ypos1 0000 add moveto TBIS (w*)  show
                xpos 1200 add ypos1 0000 add moveto TBIS (w*)  show (r) is2
                xchartl 0 eq {%xchartl=0
                xpos 1750 add ypos1 0000 add moveto TBIS (L*)  show (it) is2
                xpos 2250 add ypos1 0000 add moveto TBIS (Y)  show (it) is2
                xpos 2750 add ypos1 0000 add moveto TBIS (Y)  show (N) is2
                             } if %xchartl=0
                xchartl 1 eq {%xchartl=1
                1 0 0 setrgbcolor
                xpos 1750 add ypos1 0000 add moveto TBIS (L*)  show (re) is2
                xpos 2250 add ypos1 0000 add moveto TBIS (Y)  show (re) is2
                xpos 2750 add ypos1 0000 add moveto TBIS (Y)  show (N) is2
                0 setgray
                             } if %xchartl=1
                xchartl 2 ge {%xchartl>=2
                xpos 1750 add ypos1 0000 add moveto TBIS (L*)  show (it) is2
                1 0 0 setrgbcolor
                xpos 2250 add ypos1 0000 add moveto TBIS (L*)  show (re) is2
                xchartl 2 eq {%xchartl=2
                              xpos 2750 add ypos1 0000 add moveto
                              SS (D) show TBIS (L*)  show (re) is2
                             } if %xchartl=2
                0 setgray
                             } if %xchartl>=2
                xchartl 3 eq {%xchartl=3
                1 0 0 setrgbcolor
                xpos 2750 add ypos1 0000 add moveto TBIS (Y)  show (re) is2
                0 setgray
                             } if %xchartl=3                
                TV
               } if
        newpath
        /ypos La*2i i get yscale mul def
        i 14 le {La*2i i get 95.4 div} {newpath 0} ifelse setgray
        xpos dcirc add ypos0 ypos add dcirc 0 360 arc
        i 14 le {fill} {stroke} ifelse
        0 setgray
        xpos 0300 add ypos ypos0 add TVGshift sub moveto i 1 add cvishow
        xpos 0700 add ypos ypos0 add TVGshift sub moveto
        La*2i i get 95.4 div cvsshow3
        xpos 1200 add ypos ypos0 add TVGshift sub moveto
        La*2i i get La*r2 sub 95.4 La*r2 sub div cvsshow3
        xchartl 1 ne {%xchartl#1
        xpos 1750 add ypos ypos0 add TVGshift sub moveto
        La*2i i get cvsshow1
                     } if %xchartl#1
       } for %i=0,15

xchartl 0 eq {%xchartl=0
0 1 15 {/i exch def
        /ypos La*2i i get yscale mul def
        /Y* La*2i i get 16 add 116 div def
        Yci i Y* DecodeXYZ* 100.00 mul put
        Yc0i i Yci 0 get put
        xpos 2250 add ypos ypos0 add TVGshift sub moveto
        Yci i get cvsshow1
        xpos 2750 add ypos ypos0 add TVGshift sub moveto
        Yc0i i get cvsshow1
       } for %i=0,15
       } if %xchartl=0

4700 1150 moveto RBS (ISO/CIE 11664-4: ) show
                 TBIS (L*) show (it) is2
RBS
( = angestrebte CIELAB-Helligkeit der Ausgabe) showde
TBS
( = intended CIELAB lightness of output) showen
( = la CIELAB ligereza de la salida) showes
( = pr\351vue sortie de la clart\351 CIELAB) showfr
( = la valuta CIELAB leggerezza dell'uscita) showit
( = del tiltenkte CIELAB skryt av utskriften) showjp

4700 0800 moveto RBS (IEC 61966-2-1: ) show
                 TBIS (w*) show (sRGB) is2
TBS
( ist ungef\344hr proportional zu ) showde
( is approximately proportional to ) showen
( es approximadente proporcional a ) showes
( est approximativement proportionelle \340 ) showfr
( \350 approssimativamente proporzionale alla ) showit
( er omtrent proporsjional til ) showjp
 
                 TBIS (L*) show
4700 0450 moveto TBIS (w*) show (sRGB) is2 TBS ( = ) show
                 TBIS (L*) show TBS (/95,4) show TBS (;  ) show
                 TBIS (w*) show (r) is2 TBS ( = [) show
                 TBIS (L*) show RBS (-) show TBS
                 TBIS (L*) show (N) is2 TBS (] / [) show
                 TBIS (L*) show (W) is2 TBS RBS (-) show TBS
                 TBIS (L*) show (N) is2 TBS (]) show

xchartl 0 eq {%xchartl=0
0 setgray
4700 0100 moveto TBIS (Y) show (it) is2

RBS
( = angestrebter Normfarbwert mit Ausgabe-Linearisierung) showde
TBS
( = intended tristimulus value with output linearization) showen
( = prevista valor de triestimulos con linearizaci\363n de la salida) showes
( = prevue valeur tristimulus avec lin\351arisation de la sortie) showfr
( = destinata valore tristimulo con linearizzazione di uscita) showit
( = beregnet tristimulus verdien med linearization av utg\345ende) showjp

} if %xchartl=0

xchartl 1 eq {%xchartl=1
1 0 0 setrgbcolor
4700 0100 moveto TBIS (Y) show (re) is2

RBS
( = realer Normfarbwert ohne Ausgabe-Linearisierung) showde
TBS
( = real tristimulus value without output linearization) showen
( = real valor de triestimulos sin linearizaci\363n de la salida) showes
( = vrai valeur tristimulus sans lin\351arisation de la sortie) showfr
( = reale valore tristimulo senza linearizzazione di uscita) showit
( = real tristimulus verdien uten linearization av utg\345ende) showjp

0 setgray
} if %xchartl=1

xchartl 2 ge {%xchartl>=2
1 0 0 setrgbcolor
4700 0100 moveto TBIS (L*) show (re) is2

RBS
( = realer Normfarbwert ohne Ausgabe-Linearisierung) showde
TBS
( = real lightness of output without output linearization) showen
( = real ligereza de la salida sin linearizaci\363n de la salida) showes
( = vrai clart\351 sans lin\351arisation de la sortie) showfr
( = reale leggerezza senza linearizzazione di uscita) showit
( = real skryt av utgang uten linearization av utg\345ende) showjp

0 setgray
} if %xchartl>=2

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

xchartl 1 ge {%xchartl>=1
/TSY {200 /Symbol FS} bind def

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

/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

/TBS {200 /TimesB-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

/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

/SS {200 /Symbol FS} bind def
/SK {250 /Symbol FS} bind def
/SM {300 /Symbol FS} bind def
/SG {350 /Symbol FS} bind def

/nshow {iyd /Times-ISOL1 FS show} def
/nishow {-30 -50 rmoveto iyd 50 sub /Times-ISOL1 FS show 30 50 rmoveto} def
/kshow {iyd /TimesI-ISOL1 FS show} def
/bshow {iyd /TimesB-ISOL1 FS show} def
/jshow {iyd /TimesBI-ISOL1 FS show} def
/ishow {-30 -50 rmoveto iyd 50 sub /TimesB-ISOL1 FS show 30 50 rmoveto} def

/sshow {iyd /Symbol FS show} def

/nshowde {0 lanind eq {nshow} {pop} ifelse} bind def
/nshowen {1 lanind eq {nshow} {pop} ifelse} bind def
/nishowde {0 lanind eq {nishow} {pop} ifelse} bind def
/nishowen {1 lanind eq {nishow} {pop} ifelse} bind def
/kshowde {0 lanind eq {kshow} {pop} ifelse} bind def
/kshowen {1 lanind eq {kshow} {pop} ifelse} bind def
/bshowde {0 lanind eq {bshow} {pop} ifelse} bind def
/bshowen {1 lanind eq {bshow} {pop} ifelse} bind def
/jshowde {0 lanind eq {jshow} {pop} ifelse} bind def
/jshowen {1 lanind eq {jshow} {pop} ifelse} bind def
/ishowde {0 lanind eq {ishow} {pop} ifelse} bind def
/ishowen {1 lanind eq {ishow} {pop} ifelse} bind def

/nshowea {1 lanind le {nshow} {pop} ifelse} bind def
/nishowea {1 lanind le {nishow} {pop} ifelse} bind def
/kshowea {1 lanind le {kshow} {pop} ifelse} bind def
/bshowea {1 lanind le {bshow} {pop} ifelse} bind def
/jshowea {1 lanind le {jshow} {pop} ifelse} bind def
/ishowea {1 lanind le {ishow} {pop} ifelse} bind def

/LAB*rc 33 array def
/XYZrc  33 array def

/LAB*ra  33 array def
/XYZra  33 array def

/LAB*la 33 array def
/XYZla  33 array def

/LAB*lc 33 array def
/XYZlc  33 array def

%part 2
/LAB*c 48 array def
/XYZc  48 array def
/LAB*sa 48 array def
/XYZsa  48 array def
/LAB*s0 48 array def

/XYZc0  48 array def

/Xrcr089 16 array def
/Yrcr089 16 array def
/Zrcr089 16 array def

/Lrcr089 16 array def
/arcr089 16 array def
/brcr089 16 array def

/Xrcrn089 16 array def
/Yrcrn089 16 array def
/Zrcrn089 16 array def

/Lrcrn089 16 array def
/arcrn089 16 array def
/brcrn089 16 array def


/LABN 12 array def

/LAB*system { %BEG procedure LAB*system

/LAB*ORS [%D=Device OYLCVMO+NW %for Offset Reflective System (ORS)
58.62 -30.63 -42.75 %C   0  %see Table 1 of ISO/IEC 15775:1999-12
25.72  31.45 -44.36 %V   1 
48.13  75.20 -6.80  %M   2
47.94  65.31  52.07 %0   3
90.37 -11.16  96.17 %Y   4
50.90 -62.97  36.71 %L   5
58.62 -32.63 -42.75 %C   6
18.01  0.50   -0.47 %N   7 
95.41 -0.99    4.76 %W   8
00.01  0.84   -1.69 %N0  9
100.0 -1.08    5.06 %W1 10 
] def %OYLCVMO+NW

/LAB*TLS00 [%D=Device OYLCVMO+NW %for Television Luminous System (TLS)
86.88 -46.17 -13.56 %C   0  %see Table 1 of ISO/IEC 15775:1999-12
30.39  76.06 -103.6 %V   1  %see IE350-7A.PDF
57.30  94.35 -20.70 %M   2
50.50  76.92  64.55 %0   3
92.66 -20.70  90.75 %Y   4
83.63 -82.76  79.90 %L   5
86.88 -46.17 -13.56 %C   6
 0.01   0.00   0.00 %N0  7
95.41   0.00   0.00 %W   8
18.01   0.00   0.00 %N   9
100.0   0.00   0.00 %W1 10
] def %OYLCVMO+NW

/LAB*TLS18 [%D=Device OYLCVMO+NW %for Television Luminous System (TLS)
87.14 -44.43 -13.13 %C   0  %computed from Table 1 of ISO/IEC 15775:1999-12
31.90  24.46 -37.39 %V   1  % with Yn=2.52
59.01  89.33 -19.44 %M   2  %see IE350-7A.PDF
52.76  71.63  49.88 %0   3
92.74 -20.04  84.97 %Y   4
84.00 -79.00  73.94 %L   5
87.14 -44.43 -13.13 %C   6
18.01   0.00   0.00 %N   7
95.41   0.00   0.00 %W   8
 0.01   0.00   0.00 %N0  9
100.0   0.00   0.00 %W1 10
] def %OYLCVMO+NW

/LAB*TLS70 [%D=Device OYLCVMO+NW %for Television Luminous System (TLS)
90.93 -21.97  -7.09 %C   0  %computed from Table 1 of ISO/IEC 15775:1999-12
71.46   4.57  -9.01 %V   1  % with Yn=40.32
78.50  37.52 -25.24 %M   2  %see IE350-7A.PDF
76.43  26.27  10.57 %0   3
93.93 -10.77  34.63 %Y   4
89.32 -35.82  27.64 %L   5
90.93 -21.97  -7.09 %C   6
69.70   0.00   0.00 %N   7
95.41   0.00   0.00 %W   8
 0.01   0.00   0.00 %N0  9
100.0   0.00   0.00 %W1 10
] def %OYLCVMO+NW

0 1 8 {/sISO exch def
        /i30 sISO 3 mul def /i31 i30 1 add def /i32 i30 2 add def
        ISYSTEM 0 eq { %ORS
        LAB*rc i30 LAB*ORS i30 get put
        LAB*rc i31 LAB*ORS i31 get put
        LAB*rc i32 LAB*ORS i32 get put
                    } if
        ISYSTEM 1 eq { %TLS00
        LAB*rc i30 LAB*TLS00 i30 get put
        LAB*rc i31 LAB*TLS00 i31 get put
        LAB*rc i32 LAB*TLS00 i32 get put
                    } if
        ISYSTEM 2 eq { %TLS18
        LAB*rc i30 LAB*TLS18 i30 get put
        LAB*rc i31 LAB*TLS18 i31 get put
        LAB*rc i32 LAB*TLS18 i32 get put
                    } if
        ISYSTEM 3 eq { %TLS70
        LAB*rc i30 LAB*TLS70 i30 get put
        LAB*rc i31 LAB*TLS70 i31 get put
        LAB*rc i32 LAB*TLS70 i32 get put
                    } if
       } for

/L*N LAB*rc 21 get def
/A*N LAB*rc 22 get def
/B*N LAB*rc 23 get def

/L*W LAB*rc 24 get def
/A*W LAB*rc 25 get def
/B*W LAB*rc 26 get def

} bind def %END procedure LAB*system


/LABN [(00, F) (01, E) (02, D) (03, C) (04, B) (05, A) (06, 9) (07, 8)
       (08, 7) (09, 6) (10, 5) (11, 4) (12, 3) (13, 2) (14, 1) (15, 0)] def

/ISYSTEM 1 def %1 1 1 {/ISYSTEM exch def %ISYSTEM=0,1

%0 1 3 {/iout exch def %iout=0,3
/iout 1 def

LAB*system

/ix1    50 def %COLOR
/ix2   850 def %L*
/ix3  3450 def %Y
/ix4  6150 def %Yt
/ix5  8850 def %t

/ixd  1200 def
/iyd   170 def

/iy00 4600 def
/iy0d  1510 def
/iy01 iy00 def
/iy02 iy01 iy0d sub def
/iy03 iy02 iy0d sub def
/iy04 iy03 iy0d sub def
/iy05 iy04 iy0d sub def


% achromatic (D65) colours
/XLWD65100  95.04 def
/YLWD65100 100.00 def
/ZLWD65100 108.88 def

/Xwref XYZra 24 get def
/Ywref XYZra 25 get def
/Zwref XYZra 26 get def

/Xnref 2.52 0.9505 mul def
/Ynref 2.52 def
/Znref 2.52 1.0888 mul def

/ix2i ix2 800 add def

/iy iy02 iyd add 50 add def
/iy0 iy 500 add def
/iy1 iy 290 add def


/ilf 8 array def
/ilf [0.00 0.25 0.50 1.00 2.00 4.00 8.00 16.00] def
/Lrefl 8 array def
/Lrefl [(0%) (0,6%) (1,2%) (2,5%)
        (5%) (10%) (20%) (40%)] def
%Reference black and factors
/YrN 2.52 def

/LrefNt 8 array def
/LrefNi 8 array def
LrefNi 0 0 put

1 1 7 {/i exch def %i=0,7
       /Ynref YrN ilf i get mul def
       LrefNi i 116 Ynref 0.01 mul 0.3333 exp mul 16 sub put
      } for %i=0,7

%iout 0 eq {/ila1 0 def /ilad 7 def /ila2 7 def} if
%iout 1 eq {/ila1 0 def /ilad 3 def /ila2 3 def} if
%iout 2 eq {/ila1 0 def /ilad 7 def /ila2 7 def} if
%iout 3 eq {/ila1 0 def /ilad 3 def /ila2 3 def} if


%ila1 ilad ila2 {/il exch def %il=0,x

0 1 2 {/kl exch def %kl=0,2

       kl 0 eq {/il 0 def /ila1 0 def /ilad 1 def /ila2 0 def} if
       kl 1 eq {/il 3 def /ila1 3 def /ilad 1 def /ila2 3 def} if
       kl 2 eq {/il 7 def /ila1 7 def /ilad 1 def /ila2 7 def} if

/Xnref YrN ilf il get mul 0.9505 mul def
/Ynref YrN ilf il get mul def
/Znref YrN ilf il get mul 1.0890 mul def

/PLref (System OLS00) def
/TLref (System TLS00) def
%LAB*TLS0 21 LrefNi il get put

/ISYSTEM kl 1 add def

/i11 7 3 mul def /i12 i11 1 add def /i13 i11 2 add def %colour N
/i21 8 3 mul def /i22 i21 1 add def /i23 i21 2 add def %colour W
      
0 1 15 {/sISO exch def
        /i30 sISO 3 mul def /i31 i30 1 add def /i32 i30 2 add def
        ISYSTEM 0 eq { %ORS
        LAB*c i30 LAB*ORS i11 get 
        LAB*ORS i21 get LAB*ORS i11 get sub sISO 15 div mul add put
        LAB*c i31 LAB*ORS i12 get 
        LAB*ORS i22 get LAB*ORS i12 get sub sISO 15 div mul add put
        LAB*c i32 LAB*ORS i13 get 
        LAB*ORS i23 get LAB*ORS i13 get sub sISO 15 div mul add put
                    } if
        ISYSTEM 1 eq { %TLS00
        LAB*c i30 LAB*TLS00 i11 get 
        LAB*TLS00 i21 get LAB*TLS00 i11 get sub sISO 15 div mul add put
        LAB*c i31 LAB*TLS00 i12 get 
        LAB*TLS00 i22 get LAB*TLS00 i12 get sub sISO 15 div mul add put
        LAB*c i32 LAB*TLS00 i13 get 
        LAB*TLS00 i23 get LAB*TLS00 i13 get sub sISO 15 div mul add put
                    } if
        ISYSTEM 2 eq { %TLS18
        LAB*c i30 LAB*TLS18 i11 get 
        LAB*TLS18 i21 get LAB*TLS18 i11 get sub sISO 15 div mul add put
        LAB*c i31 LAB*TLS18 i12 get 
        LAB*TLS18 i22 get LAB*TLS18 i12 get sub sISO 15 div mul add put
        LAB*c i32 LAB*TLS18 i13 get 
        LAB*TLS18 i23 get LAB*TLS18 i13 get sub sISO 15 div mul add put
                    } if
        ISYSTEM 3 eq { %TLS70
        LAB*c i30 LAB*TLS70 i11 get 
        LAB*TLS70 i21 get LAB*TLS70 i11 get sub sISO 15 div mul add put
        LAB*c i31 LAB*TLS70 i12 get 
        LAB*TLS70 i22 get LAB*TLS70 i12 get sub sISO 15 div mul add put
        LAB*c i32 LAB*TLS70 i13 get 
        LAB*TLS70 i23 get LAB*TLS70 i13 get sub sISO 15 div mul add put
                    } if
                    } for

/L*N LAB*c 0 get def
/A*N LAB*c 1 get def
/B*N LAB*c 2 get def

/L*W LAB*c 45 get def
/A*W LAB*c 46 get def
/B*W LAB*c 47 get def

/A*D A*W A*N sub def
/B*D B*W B*N sub def

/L*Nsa L*N def
/A*Nsa 0.0 def
/B*Nsa 0.0 def

/L*Wsa L*W def
/A*Wsa 0.0 def
/B*Wsa 0.0 def

/L*Ns0 0.0 def
/A*Ns0 0.0 def
/B*Ns0 0.0 def

/L*Ws0 L*W L*N sub def
/A*Ws0 0.0 def
/B*Ws0 0.0 def

/Xssrefl Xnref def
/Yssrefl Ynref def
/Zssrefl Znref def

/Xrsrefl Xnref def
/Yrsrefl Ynref def
/Zrsrefl Znref def

0 1 15 {/i exch def
       /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def
       /X* {LAB*c i30 get 16 add 116 div
            LAB*c i31 get 500 div add} bind def
       /Y* {LAB*c i30 get 16 add 116 div} bind def
       /Z* {LAB*c i30 get 16 add 116 div
            LAB*c i32 get 200 div sub} bind def
       XYZc i30 X* DecodeXYZ* 95.05 mul put
       XYZc i31 Y* DecodeXYZ* 100.00 mul put
       XYZc i32 Z* DecodeXYZ* 108.90 mul put
       il 0 eq {%il=0
                XYZc0 i30 XYZc i30 get put
                XYZc0 i31 XYZc i31 get put
                XYZc0 i32 XYZc i32 get put
               } if %il=0
       } for %i=0,15
       

0 1 15 {/i exch def
        /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def
        LAB*sa i30 LAB*c i30 get put
        /l*CIE LAB*c i30 get L*N sub L*W L*N sub div def %system rel. lightn.
        /a*s A*W A*N sub l*CIE mul def
        /b*s B*W B*N sub l*CIE mul def
        LAB*sa i31 LAB*c i31 get A*N sub a*s sub put
        LAB*sa i32 LAB*c i32 get B*N sub b*s sub put
       } for %i=0,15 
        
0 1 15 {/i exch def
       /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def
       /X*sa {LAB*sa i30 get 16 add 116 div
              LAB*sa i31 get 500 div add} bind def
       /Y*sa {LAB*sa i30 get 16 add 116 div} bind def
       /Z*sa {LAB*sa i30 get 16 add 116 div
              LAB*sa i32 get 200 div sub} bind def
       XYZsa i30 X*sa DecodeXYZ*  95.05 mul put
       XYZsa i31 Y*sa DecodeXYZ* 100.00 mul put
       XYZsa i32 Z*sa DecodeXYZ* 108.90 mul put
      } for %i=0,15

0 1 15 {/i exch def %i=0,15
        /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def
         Xrcr089 i XYZc0 i30 get put
         Yrcr089 i XYZc0 i31 get put
         Zrcr089 i XYZc0 i32 get put
       } for %i=0,15

0 1 15 {/i exch def %i=0,15
        Yrcrn089 i Yrcr089  i get Ynref add
                   Yrcr089 15 get Ynref add div 88.59 mul put
        /YQ Yrcrn089 i get YLWD65100 div def
        YQ 0 lt {/YQ 0.00000001 def} if
        Lrcrn089 i YQ 0.008856 lt {903.3 YQ mul}
                                  {YQ 0.33333333 exp 116 mul 16 sub} ifelse put
       } for %i=0,15

xchartl 1 eq {/xposa 1750 def} if
xchartl 2 eq {/xposa 2250 def} if
xchartl 3 eq {/xposa 2250 def} if

/LAB*refi 16 array def
        
il 0 eq {%il=0
/xpos 1000 def
TV
1 0 0 setrgbcolor
0 1 15 {/i exch def %i=0,15
        i 0 eq {TBS
%                xpos 2200 add ypos1 0000 add moveto TBIS (L*) show (re) is2
                /ypos La*0i 0 get yscale mul def
                TV
               } if
        /ypos La*0i i get yscale mul def
        i 0 gt {%i>0
                /yposd La*0i i       get yscale mul
                       La*0i i 1 sub get yscale mul add 0.5 mul def
               } if %i>0
        xpos xposa add ypos ypos0 add TVGshift sub moveto
        /LAB*ref Lrcrn089 i get def
        1 0 0 setrgbcolor
        LAB*ref cvsshow1
%        0 setgray
        LAB*refi i Lrcrn089 i get put
        /xfak 88.59 0.00 sub 88.59 div def

        xchartl 1 eq {%xchartl=1
        xpos xposa add 450 add ypos ypos0 add TVGshift sub moveto
        Yrcr089 i get cvsshow2
        xpos xposa add 450 add 500 add ypos ypos0 add TVGshift sub moveto
        Yrcr089 0 get cvsshow2
                     } if %xchartl=1
        xchartl 2 eq {%xchartl=2
        i 0 gt {%i>0
        1 0 0 setrgbcolor
        xpos xposa add 0450 add yposd ypos0 add TVGshift sub moveto
        LAB*refi i       get
        LAB*refi i 1 sub get sub cvsshow2
        0 setgray
                } if %i>0
                     } if %xchartl=2
        xchartl 3 eq {%xchartl=3
        xpos xposa add 450 add ypos ypos0 add TVGshift sub moveto
        Yrcr089 i get xfak mul 0.00 add cvsshow2
                     } if %xchartl=3
        
       } for %i=0,15
0 setgray
} if %il=0


il 3 eq {%il=3
/xpos 4300 def
TV
1 0 0 setrgbcolor
0 1 15 {/i exch def %i=0,15
        i 0 eq {TBS
%                xpos 2200 add ypos1 0000 add moveto TBIS (L*) show (re) is2
                /ypos La*1i 0 get yscale mul def
                TV
               } if
        /ypos La*1i i get yscale mul def
        i 0 gt {%i>0
                /yposd La*1i i       get yscale mul
                       La*1i i 1 sub get yscale mul add 0.5 mul def
               } if %i>0
%        xpos 2200 add ypos ypos0 add TVGshift sub moveto
%        Lrcrn089 i get cvsshow1
        /xfak 88.59 2.52 sub 88.59 div def
%        xpos 2500 add ypos ypos0 add TVGshift sub moveto
%        Yrcr089 i get xfak mul cvsshow2
%        xpos 2500 add ypos ypos0 add TVGshift sub moveto
%        Yrcr089 i get xfak mul cvsshow2
     
       /YQ Yrcr089 i get xfak mul 2.52 add 100 div def
       YQ 0 lt {/YQ 0.00000001 def} if
       /LAB*ref YQ 0.008856 lt {903.3 YQ mul}
                  {YQ 0.33333333 exp 116 mul 16 sub} ifelse def

        xpos xposa add ypos ypos0 add TVGshift sub moveto
        1 0 0 setrgbcolor
        LAB*ref cvsshow1
%        0 setgray
        LAB*refi i LAB*ref put
        xchartl 1 eq {%xchartl=1
        xpos xposa add 450 add ypos ypos0 add TVGshift sub moveto
        Yrcr089 i get xfak mul 2.52 add cvsshow2
        xpos xposa add 450 add 500 add ypos ypos0 add TVGshift sub moveto
        Yrcr089 0 get xfak mul 2.52 add cvsshow2
                     } if %xchartl=1
        xchartl 2 eq {%xchartl=2
        i 0 gt {%i>0
        1 0 0 setrgbcolor
        xpos xposa add 0450 add yposd ypos0 add TVGshift sub moveto
        LAB*refi i       get
        LAB*refi i 1 sub get sub cvsshow2
        0 setgray
                } if %i>0
                     } if %xchartl=2
        xchartl 3 eq {%xchartl=3
        xpos xposa add 0450 add ypos ypos0 add TVGshift sub moveto
        Yrcr089 i get xfak mul 2.52 add cvsshow2
                     } if %xchartl=3
                     } for %i=0,15
0 setgray
} if %il=3


il 7 eq {%il=7
/xpos 7600 def
TV
1 0 0 setrgbcolor
0 1 15 {/i exch def %i=0,15
        i 0 eq {TBS
%                xpos 2200 add ypos1 0000 add moveto TBIS (L*) show (re) is2
                /ypos La*2i 0 get yscale mul def
                TV
               } if
        /ypos La*2i i get yscale mul def
        i 0 gt {%i>0
                /yposd La*2i i       get yscale mul
                       La*2i i 1 sub get yscale mul add 0.5 mul def
               } if %i>0
%        xpos 2200 add ypos ypos0 add TVGshift sub moveto
%        Lrcrn089 i get cvsshow1
        /xfak 88.59 40.32 sub 88.59 div def
%        xpos 2500 add ypos ypos0 add TVGshift sub moveto
%        Yrcr089 i get xfak mul cvsshow2
     
       /YQ Yrcr089 i get xfak mul 40.32 add 100 div def
       YQ 0 lt {/YQ 0.00000001 def} if
       /LAB*ref YQ 0.008856 lt {903.3 YQ mul}
                  {YQ 0.33333333 exp 116 mul 16 sub} ifelse def
        xpos xposa add ypos ypos0 add TVGshift sub moveto
        1 0 0 setrgbcolor
        LAB*ref cvsshow1
%        0 setgray
        LAB*refi i LAB*ref put

        xchartl 1 eq {%xchartl=1
        xpos xposa add 450 add ypos ypos0 add TVGshift sub moveto
        Yrcr089 i get xfak mul 40.32 add cvsshow2
        xpos xposa add 450 add 500 add ypos ypos0 add TVGshift sub moveto
        Yrcr089 0 get xfak mul 40.32 add cvsshow2
                     } if %xchartl=1
        xchartl 2 eq {%xchartl=2
        i 0 gt {%i>0
        1 0 0 setrgbcolor
        xpos xposa add 0450 add yposd ypos0 add TVGshift sub moveto
        LAB*refi i       get 
        LAB*refi i 1 sub get sub cvsshow2
        0 setgray
                } if %i>0
                     } if %xchartl=2
        xchartl 3 eq {%xchartl=3
        xpos xposa add 0450 add ypos ypos0 add TVGshift sub moveto
        Yrcr089 i get xfak mul 40.32 add cvsshow2
                     } if %xchartl=3
     } for %i=0,15


0 setgray
} if %il=7

} for %il=0,2

} if %xchartll>=1

showpage
grestore

%} for %xchartl<=3

%%Trailer

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
219 MM 06 MM sub SHAr add 020 MM translate 12 /Times-ISOL1 FS -9 MM -7 MM  moveto ( ) show
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 28

%line 499
%!PS-Adobe-3.0 EPSF-3.0 AGS51-8,
%%BoundingBox: 70 90 226 206

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave

8 /Times-Roman FS
72 83 moveto
%!2     (AGS51-8,) show

72 90 translate

%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0  moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke

grestore

showpage
%%Trailer

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
219 MM 080 MM add 008 MM translate %80 MM Breite von TestStreifen
  10 /Times-ISOL1 FS  53 MM 1 MM moveto () show 1 1 scale -77 21 MM sub -91 translate
%%BeginDocument: Bild 29 Teststreifen Ueberlaenge

%line 509

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
-0.0 MM -0.0 MM translate %xy-Verschiebung Rechteckrahmen nach innen%

%%BeginDocument: Bild 30 %Rechteckrahmen

%line 519
%!PS-Adobe-3.0 EPSF-3.0 Frame arround with Internet text DG02 20070101
%%BoundingBox: 0 0 598 845

%%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
/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
/showea {1 lanind le {show} {pop} ifelse} bind def

/lanind1 01 def /lanind2 01 def /lanindd 01 def
/colorm1 00 def /colorm2 00 def /colormd 01 def
/deintp1 00 def /deintp2 00 def /deintpd 01 def
/xcolor1 03 def /xcolor2 03 def /xcolord 01 def
/xchart1 00 def /xchart2 00 def /xchartd 01 def
/pchart1 00 def /pchart2 00 def /pchartd 01 def
/colsep1 00 def /colsep2 00 def /colsepd 01 def
/pmetam1 00 def /pmetam2 00 def /pmetamd 01 def

/lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def
                    /lanindd laninddf def} if
/colormf where {pop /colorm1 colormf def /colorm2 colormf def
                    /colormd colormdf def} if
/deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def
                    /deintpd deintpdf def} if
/xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def
                    /xcolord xcolordf def} if
/xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def
                    /xchartd xchartdf def
                    /xchartm xchart2f xchart1f sub 1 add def}
               {/xchartm 1 def} ifelse
/xchart3f where {pop /xchart3 xchart3f def}
                {/xchart3 1 def} ifelse
/xchart4f where {pop /xchart4 xchart4f def}
                {/xchart4 0 def} ifelse
/pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def
                    /pchartd pchartdf def} if
/colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def
                    /colsepd colsepdf def} if
/pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def
                    /pmetamd pmetamdf 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 0 def
/i*ptrsc 0 def

gsave

0 setgray

1.0 1.0  scale

0.0 MM 0.0 MM translate

0.15 MM setlinewidth

/x 20 array def
/y 20 array def
/d 20 array def

/x [000 296 296 000  002 294 294 002  005 291 291 005 %speziell
    006 290 290 006  008 288 288 008 ] def
/y [000 000 210 210  002 002 208 208  005 005 205 205 %speziell
    006 006 204 204  008 008 202 202 ] def
/d [060 017 -60 -17  058 015 -58 -15  056 013 -56 -13
    054 011 -54 -11  052 009 -52 -09 ] 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

xchart 1 ge {%xchart>=1

/i0 12 def
/i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def
2.5 MM /Times-ISOL1 FS
x i0 get MM 40 MM add y i0 get MM 1 MM sub moveto
lanind cvishow (-) show
colorm cvishow
deintp cvishow
xcolor cvishow
xchart cvishow
pchart cvishow
colsep cvishow (-F) show pmetam cvishow

} if %xchart>=1

/xt 1 def
xchart 1 eq {/xt 1 def} if

xt 0 eq {%xt=0,1 ifelse

/i0 12 def
/i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def
2.5 MM /Times-ISOL1 FS
x i0 get MM 110 MM add y i0 get MM 1 MM sub moveto
(http://130.149.60.45/~farbmetrik/AGS5/AGS5) show
colorm cvishow deintp cvishow
colorm 0 eq {(N) show} {(F) show} ifelse (P.PDF  & ) show
(http://130.149.60.45/~farbmetrik/AGS5/AGS5) show
colorm cvishow deintp cvishow
colorm 0 eq {(N) show} {(F) show} ifelse (P.TXT  & ) show
(http://130.149.60.45/~farbmetrik/AGS5/AGS5.HTM) show

} %xt=0

{ %xt=1
/xlu 017 MM def /ylu 017 MM def
/xro 279 MM def /yro 193 MM def
/xlo 017 MM def /ylo 193 MM def
/xru 279 MM def /yru 017 MM def

/xmo xlo xro xlo sub 0.5 mul add def
/ymo yro 1 MM sub def
xmo 1 MM sub ymo moveto 2 MM 0 rlineto stroke
xmo ymo 1 MM sub moveto 0 1 MM rlineto stroke

xlu 8 MM sub ylu moveto  16 MM 0 rlineto stroke
xlu ylu 8 MM sub moveto 0  16 MM rlineto stroke
xro 8 MM add yro moveto -16 MM 0 rlineto stroke
xro yro 8 MM add moveto 0 -16 MM rlineto stroke

xru 8 MM sub yru moveto  16 MM 0 rlineto stroke
xru yru 8 MM sub moveto 0  16 MM rlineto stroke
xlo 8 MM add ylo moveto -16 MM 0 rlineto stroke
xlo ylo 8 MM add moveto 0 -16 MM rlineto stroke

1 2 7 {/i exch def %Zentrierkreise
xlu ylu i MM 0 360 arc stroke
xro yro i MM 0 360 arc stroke
xru yru i MM 0 360 arc stroke
xlo ylo i MM 0 360 arc stroke
      } for %i

12 4 16 {/i exch def /i0 i def %i=0,16
%0 4 16 {/i exch def /i0 i def %i=0,16
        /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def

i 16 eq {0.30 MM setlinewidth} {0.15 MM setlinewidth} ifelse

0 setgray
x i0 get MM y i0 get MM moveto x i1 get MM y i1 get MM lineto
x i2 get MM y i2 get MM lineto x i3 get MM y i3 get MM lineto
x i0 get MM y i0 get MM lineto stroke

i 16 eq {6 /Times-ISOL1 FS
         /x00 67 def /xdif 32 def /y0o 202.3 def /y0u 6.3 def
         /x0l 6.1 def /x0r 288 def /y00 22 def /ydif 32 def
         x00 xdif 0 mul add MM y0o MM moveto (V) show
         x00 xdif 0 mul add MM y0u MM moveto (C) show
         x00 xdif 1 mul add MM y0o MM moveto (L) show
         x00 xdif 1 mul add MM y0u MM moveto (M) show
         x00 xdif 2 mul add MM y0o MM moveto (O) show
         x00 xdif 2 mul add MM y0u MM moveto (Y) show
         x00 xdif 3 mul add MM y0o MM moveto (Y) show
         x00 xdif 3 mul add MM y0u MM moveto (O) show
         x00 xdif 4 mul add MM y0o MM moveto (M) show
         x00 xdif 4 mul add MM y0u MM moveto (L) show
         x00 xdif 5 mul add MM y0o MM moveto (C) show
         x00 xdif 5 mul add MM y0u MM moveto (V) show

         x0l MM y00 ydif 0 mul add MM moveto (V) show
         x0r MM y00 ydif 0 mul add MM moveto (C) show
         x0l MM y00 ydif 1 mul add MM moveto (L) show
         x0r MM y00 ydif 1 mul add MM moveto (M) show
         x0l MM y00 ydif 2 mul add MM moveto (O) show
         x0r MM y00 ydif 2 mul add MM moveto (Y) show
         x0l MM y00 ydif 3 mul add MM moveto (Y) show
         x0r MM y00 ydif 3 mul add MM moveto (O) show
         x0l MM y00 ydif 4 mul add MM moveto (M) show
         x0r MM y00 ydif 4 mul add MM moveto (L) show
         x0l MM y00 ydif 5 mul add MM moveto (C) show
         x0r MM y00 ydif 5 mul add MM moveto (V) show
        } if

       } for %i=0,16

0 1 10 {/j0 exch def /j1 j0 1 add def %j0

         j0 0 eq {tzccmy0* setcmykcolor} if
         j0 1 eq {0 setgray} if
         j0 2 eq {tzmcmy0* setcmykcolor} if
         j0 3 eq {0 setgray} if
         j0 4 eq {tzycmy0* setcmykcolor} if
         j0 5 eq {0 setgray} if
         j0 6 eq {tzocmy0* setcmykcolor} if
         j0 7 eq {0 setgray} if
         j0 8 eq {tzlcmy0* setcmykcolor} if
         j0 9 eq {0 setgray} if
         j0 10 eq {tzvcmy0* setcmykcolor} if

12 4 16 {/i exch def /i0 i def %i=0,16
%0 4 16 {/i exch def /i0 i def %i=0,16
        /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def

i 16 eq {0.30 MM setlinewidth} {0.15 MM setlinewidth} ifelse

x i0 get d i0 get add 16 j0 mul add MM y i0 get MM moveto
x i0 get d i0 get add 16 j1 mul add MM y i0 get MM lineto stroke

x i1 get MM y i1 get d i1 get add 16 j0 mul add MM moveto
x i1 get MM y i1 get d i1 get add 16 j1 mul add MM lineto stroke

x i2 get d i2 get add 16 j0 mul sub MM y i2 get MM moveto
x i2 get d i2 get add 16 j1 mul sub MM y i2 get MM lineto stroke

x i3 get MM y i3 get d i3 get add 16 j0 mul sub MM moveto
x i3 get MM y i3 get d i3 get add 16 j1 mul sub MM lineto stroke

       } for %i=0,16

       } for %j0

0.15 MM setlinewidth
/s 7 MM def /s1 8 MM def /s5 36 MM def
16 1 20 {/j exch def /j0 j 16 sub def %j=16,20
         /ix0 xlu  8 MM add j0 7 MM mul add def /iy0 ylu 8 MM sub def

0 1 3 {/ij exch def %ij=0,3

 ij 0 eq {/ix0 xlu  8 MM add j0 7 MM mul add def /iy0 ylu 8 MM sub def} if
 ij 1 eq {/ix0 xru 43 MM sub j0 7 MM mul add def /iy0 yru 8 MM sub def} if
 ij 2 eq {/ix0 xlo  8 MM add j0 7 MM mul add def /iy0 ylo 1 MM add def} if
 ij 3 eq {/ix0 xro 43 MM sub j0 7 MM mul add def /iy0 yro 1 MM add def} if

i*ptrsc 0 eq i*ptrsc 2 eq or {%i*ptrsc=0,2 cmy0* setcmykcolor
              j 16 eq {tzan j get dup dup 0 setcmykcolor
                       ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if
              tzan j get dup dup 0 setcmykcolor
              ix0 iy0 s s  rec fill
             } if %i*ptrsc=0,2

i*ptrsc 1 eq i*ptrsc 3 eq or {%i*ptrsc=1,3 www* setrgbcolor
              j 16 eq {1 tzan j get 1 sub dup dup setrgbcolor %N
                       ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if
              1 tzan j get sub dup dup setrgbcolor %N
              ix0 iy0 s s  rec fill
             } if %i*ptrsc=1,3

i*ptrsc 4 eq i*ptrsc 5 eq or {%i*ptrsc=4,5
  [/CIEBasedABC <<    %Farbraum und Grenzen fuer D65
  /RangeABC [0 100 -128 127 -128 127]
  /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind]
  /MatrixABC [1 1 1 1 0 0 0 0 -1]
  /DecodeLMN
    [{dup 6 29 div ge {dup dup mul mul}
     {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind
     {dup 6 29 div ge {dup dup mul mul}
     {4 29 div sub 108 841 div mul} ifelse} bind
     {dup 6 29 div ge {dup dup mul mul}
     {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind]
    /WhitePoint  [0.9505 1 1.089]                %CIEXYZ fuer D65
 >>] setcolorspace

 j 16 eq {tznLAB* 0 get tzwLAB* 0 get tznLAB* 0 get sub 0.25 j0 mul mul add
          tznLAB* 1 get tzwLAB* 1 get tznLAB* 1 get sub 0.25 j0 mul mul add
          tznLAB* 2 get tzwLAB* 2 get tznLAB* 2 get sub 0.25 j0 mul mul add
          setcolor %N
          ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if
          tznLAB* 0 get tzwLAB* 0 get tznLAB* 0 get sub 0.25 j0 mul mul add
          tznLAB* 1 get tzwLAB* 1 get tznLAB* 1 get sub 0.25 j0 mul mul add
          tznLAB* 2 get tzwLAB* 2 get tznLAB* 2 get sub 0.25 j0 mul mul add
          setcolor %N
          ix0 iy0 s s  rec fill
             } if %i*ptrsc=4,5

i*ptrsc 6 eq {%i*ptrsc=6 000n* setcmykcolor
              j 16 eq {0 0 0 tzan j get setcmykcolor
                       ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if
              0 0 0 tzan j get setcmykcolor
              ix0 iy0 s s  rec fill
             } if %i*ptrsc=6

i*ptrsc 7 eq {%i*ptrsc=7 w* setgray
              j 16 eq {1 tzan j get sub setgray
                       ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if
              1 tzan j get sub setgray
              ix0 iy0 s s  rec fill
             } if %i*ptrsc=7

      } for %ij=0,3

        } for %j=16,20

0 setgray
018 MM 008.2 MM moveto 6 /Times-Roman FS (-8) show
018 MM 006.2 MM moveto 6 /Times-Roman FS (-6) show

276 MM 008.2 MM moveto 6 /Times-Roman FS (-8) show
276 MM 006.2 MM moveto 6 /Times-Roman FS (-6) show

018 MM 202.2 MM moveto 6 /Times-Roman FS (-8) show
018 MM 204.2 MM moveto 6 /Times-Roman FS (-6) show

276 MM 202.2 MM moveto 6 /Times-Roman FS (-8) show
276 MM 204.2 MM moveto 6 /Times-Roman FS (-6) show

/10TIN {10 /Times-ISOL1 FS} def
/10TRN {10 /Times-Roman FS} def
/12TIN {12 /Times-ISOL1 FS} def
/12TRN {12 /Times-Roman FS} def

/10TII {10 /TimesI-ISOL1 FS} def
/10TRI {10 /Times-Italic FS} def
/12TII {12 /TimesI-ISOL1 FS} def
/12TRI {12 /Times-Italic FS} def

/10TIB {10 /TimesB-ISOL1 FS} def
/10TRB {10 /Times-Bold FS} def
/12TIB {12 /TimesB-ISOL1 FS} def
/12TRB {12 /Times-Bold FS} def

/10TIBI {10 /TimesBI-ISOL1 FS} def
/10TRBI {10 /Times-BoldItalic FS} def
/12TIBI {12 /TimesBI-ISOL1 FS} def
/12TRBI {12 /Times-BoldItalic FS} def

%special
/10TIN10  {10TIN 0 -3 rmoveto 
           xcolor 1 eq {(10) show} if 0 3 rmoveto} def
/10TINi10 {10TIN 0 -3 rmoveto (i) show
           xcolor 1 eq {(,10) show} if 0 3 rmoveto} def

/TELi0 8 array def
/TELi1 8 array def
/TELi  8 array def
/TELi0 [(P60) (P55) (P50) (P45) (P40) (P35) (P30) (P25)] def %7 illumin.
/TELi1 [(D65) (D50) (P40) (A00) (E00) (C00) (P00) (Q00)] def %7 illumin.

/xchart8 1 def %xchart8=0: Pxx, xchart8=1: Dxx
0 1 7 {/i exch def %i=0,7
xchart8 0 eq {%xchart8=0
              TELi i TELi0 i get put
             }%xchart8=0
             {%xchart8=1
              TELi i TELi1 i get put
             } ifelse %xchart8=1
       } for %i=0,7

/xchart41 0 def
/xchart42 0 def

0 setgray
12TIN
61 MM 13.5 MM  moveto
(TUB\255Pr\374fvorlage AGS5; ) showde                           %0AGS5X-Y 0000#
(TUB\255test chart AGS5; ) showen                               %1AGS5X-Y 0000#
(gr\341fico TUB\255AGS5; ) showes                               %2AGS5X-Y 0000#
(TUB\255test graphique AGS5; ) showfr                           %3AGS5X-Y 0000#
(grafico TUB\255AGS5; ) showit                                  %4AGS5X-Y 0000#
(TUB\255test chart AGS5; ) showjp                               %5AGS5X-Y 0000#

xchart41 0 eq {%xchart41=0 %F0,1
12TIN
(unbunte Farben von Displays) showde
(achromatic colours of displays) showen
             } if %xchart41=0

61 MM 09.5 MM  moveto
12TIN
xchart42 0 eq {%xchart42=0
(gleichabst&auml;ndig gestufte 16stufige Graureihen zwischen, ) showde
(L*N und L*W f&uuml;r 3 Reflexionen des Umgebungslichts) showde
(equally spaced 16 step gray series between ) showen
(L*N and L*W for three reflections of ambient light) showen
} if %xchart42=0

xchart 1 ge {%xchart>=1
12TIN
(, 3D=) show colorm cvishow
(, de=) show deintp cvishow

12TII
xchart5f 0 eq {(, sRGB) show} if
xchart5f 1 eq {(, cmyk) show} if
xchart5f 2 eq {(, cmy0)  show} if
xchart5f 3 eq {(, cmyk) show} if
colorm 1 eq {(*) show} if
} if %xchart>=1

12TIN
182 MM 13.5 MM moveto
(Eingabe: ) showde                                              %0AGS5X-Y 0500#
(input: ) showen                                                %1AGS5X-Y 0500#
(entrada: ) showes                                              %2AGS5X-Y 0500#
(entr\351e: ) showfr                                            %3AGS5X-Y 0500#
(immettere: ) showit                                            %4AGS5X-Y 0500#
(input: ) showjp                                                %5AGS5X-Y 0500#
12TII
(rgb/cmy0/000k/n) show

%xchart41 0 eq {( (No 1MR)) show}
%              {(->rgb ) show
%               ((1MR)) show} ifelse

%xchart xchart3 lt {(w/rgb/cmyk) show
%                  } if
%xchart xchart3 ge {%xchart>=xchart3
%                   (rgb) show
%                  } if %xchart>=xchart3

%10 /Times-ISOL1 FS
%0 -2 rmoveto Txx show 0 2 rmoveto
%12TIN

%12TIN
%182 MM 9.5 MM moveto
%(Ausgabe: ) showde                                              %0AGS5X-Y 0600#
%(output: ) showen                                               %1AGS5X-Y 0600#
%(salida: ) showes                                               %2AGS5X-Y 0600#
(sortie: ) showfr                                               %3AGS5X-Y 0600#
%(uscita: ) showit                                               %4AGS5X-Y 0600#
%(output: ) showjp                                               %5AGS5X-Y 0600#

%colorm=0,1!
12TIN
xchart 0 eq {%xchart=0,#0
xchart41 0 eq {12TIN
               %(no change) showen
               %(keine \304nderung) showde
              }
              {12TIN
               (change of gamma ) showen
               (\304nderung Gamma ) showde
               12TII
               (g) show
               10TIN
               0 -2 rmoveto (P) show 0 2 rmoveto} ifelse
%12TIN
%(rechts) showde                                                 %0AGS5X-Y 0700#
%(right) showea                                                  %1AGS5X-Y 0700#
%(ning\372n cambio) showes                                       %2AGS5X-Y 0700#
%(aucun changement) showfr                                       %3AGS5X-Y 0700#
%(nessun cambiamento) showit                                     %4AGS5X-Y 0700#
%(no change compared) showjp                                     %5AGS5X-Y 0700#
            }%xchart=0

            {%xchart#0
             12TIN
             colorm 0 eq {%colorm=0
(Transfer nach ) showde                                         %0AGS5X-Y 0800#
(transfer to ) showen                                           %1AGS5X-Y 0800#
(transfiera a ) showes                                          %2AGS5X-Y 0800#
(transf\351rer \340 ) showfr                                    %3AGS5X-Y 0800#
(trasferire a ) showit                                          %4AGS5X-Y 0800#
(transfer to ) showjp                                           %5AGS5X-Y 0800#
                         }%colorm=0
                         {%colorm=1
(3D\255Linearisierung ) showde                                  %0AGS5X-Y 0900#
(3D\255linearization to ) showen                                %1AGS5X-Y 0900#
(3D\255linealizaci\363n a ) showes                              %2AGS5X-Y 0900#
(linearisation 3D selon ) showfr                                %3AGS5X-Y 0900#
(3D\255linearizzazione a ) showit                               %4AGS5X-Y 0900#
(3D\255linearization to ) showjp                                %5AGS5X-Y 0900#
                         } ifelse %colorm=1
12TII
xchart5f 0 eq {(rgb)  show} if
xchart5f 1 eq {(cmyk) show} if
xchart5f 2 eq {(cmy0) show} if
xchart5f 3 eq {(cmyk) show} if
colorm 1 eq {(*) show} if
10 /Times-ISOL1 FS
0 -2 rmoveto Txx show 0 2 rmoveto
12TIN
} ifelse %xchart=0,#0

%0 setgray %end white and unvisible

12TIN

 62 MM 198.5 MM  moveto
12TRN (http://farbe.li.tu-berlin.de/AGS5/AGS5L) show 12TIN
(0) show %
LSC$ show LEX$ show
xchart41 4 le {(; only vector graphic VG) showen 
               (; nur Vektorgrafik VG) showde} if
%              {(; VG with ISO\255PG image) showen
%               (; VG mit ISO\255PG\255Bild) showde} ifelse

%1 setgray %start white and unvisible
(; ) show
xchart 0 eq {
(Start\255Ausgabe) showde                                       %0AGS5X-Y 1000#
(start output) showen                                           %1AGS5X-Y 1000#
(comience salida) showes                                        %2AGS5X-Y 1000#
(sortie de production) showfr                                   %3AGS5X-Y 1000#
(cominciare l'uscita) showit                                    %4AGS5X-Y 1000#
(start output) showjp                                           %5AGS5X-Y 1000#
           } if
LSC$ (C) eq {
(Start\255Ausgabe) showde                                       %0AGS5X-Y 1100#
(start output) showen                                           %1AGS5X-Y 1100#
(comience salida) showes                                        %2AGS5X-Y 1100#
(sortie de production) showfr                                   %3AGS5X-Y 1100#
(cominciare l'uscita) showit                                    %4AGS5X-Y 1100#
(start output) showjp                                           %5AGS5X-Y 1100#
           } if
xchart 1 ge {%xchart>=1
colorm 0 eq {%colorm=0,1
(Transfer Ausgabe) showde                                       %0AGS5X-Y 1200#
(transfer output) showen                                        %1AGS5X-Y 1200#
(salida de transferencia) showes                                %2AGS5X-Y 1200#
(sortie de transfert) showfr                                    %3AGS5X-Y 1200#
(uscita di trasferimento) showit                                %4AGS5X-Y 1200#
(transfer output) showjp                                        %5AGS5X-Y 1200#
            }%colorm=0
            {%colorm=1
(3D\255Linearisierung) showde                                   %0AGS5X-Y 1300#
(3D\255linearization) showen                                    %1AGS5X-Y 1300#
(3D\255linealizaci\363n) showes                                 %2AGS5X-Y 1300#
(linearisation 3D) showfr                                       %3AGS5X-Y 1300#
(3D\255linearizzzazione) showit                                 %4AGS5X-Y 1300#
(3D\255linearization) showjp                                    %5AGS5X-Y 1300#
            } ifelse %colorm=0,1
            } if %xchart>=1

 62 MM 194 MM  moveto
LSC$ (N) eq LSC$ (C) eq or {
(N: Keine 3D\255Linearisierung (OL) ) showde                    %0AGS5X-Y 1400#
(N: no 3D\255linearization (OL) ) showen                        %1AGS5X-Y 1400#
(N: ninguna 3D\255linealizaci\363n (OL) ) showes                %2AGS5X-Y 1400#
(N: aucun linearisation 3D (OL) ) showfr                        %3AGS5X-Y 1400#
(N: nessun 3D\255linearizzazione (OL) ) showit                  %4AGS5X-Y 1400#
(N: no 3D\255linearization (OL) ) showjp                        %5AGS5X-Y 1400#

(in Datei (F) oder PS\255Startup (S)) showde                    %0AGS5X-Y 1500#
(in file (F) or PS\255startup (S)) showen                       %1AGS5X-Y 1500#
(en archivo (F) o PS\255startup (S)) showes                     %2AGS5X-Y 1500#
(dans fichier (F) ou PS\255startup (S)) showfr                  %3AGS5X-Y 1500#
(nel file (F) o PS\255startup (S)) showit                       %4AGS5X-Y 1500#
(in file (F) or PS\255startup (S)) showjp                       %5AGS5X-Y 1500#
           }
           {LSC$ show (: ) show
(3D\255Linearisierung) showde                                   %0AGS5X-Y 1600#
(3D\255linearization) showen                                    %1AGS5X-Y 1600#
(3D\255linealizaci\363n) showes                                 %2AGS5X-Y 1600#
(linearisation 3D) showfr                                       %3AGS5X-Y 1600#
(3D\255linearizzzazione) showit                                 %4AGS5X-Y 1600#
(3D\255linearization) showjp                                    %5AGS5X-Y 1600#
( AGS5/AGS5L) show
LSS$ show LSX$ show (0) show %
LSC$ show LEY$ show
          } ifelse
LSC$ (F) eq {
( in Datei (F)) showde                                          %0AGS5X-Y 1700#
( in file (F)) showen                                           %1AGS5X-Y 1700#
( en archivo (F)) showes                                        %2AGS5X-Y 1700#
( dans fichier (F)) showfr                                      %3AGS5X-Y 1700#
( nel file (F)) showit                                          %4AGS5X-Y 1700#
( in file (F)) showjp                                           %5AGS5X-Y 1700#
           } if
LSC$ (S) eq {
( im Distiller Startup (S) Directory) showde                    %0AGS5X-Y 1800#
( in Distiller Startup (S) Directory) showen                    %1AGS5X-Y 1800#
( en el Distiller Startup (S) Directory) showes                 %2AGS5X-Y 1800#
( dans le Distiller Startup (S) Directory) showfr               %3AGS5X-Y 1800#
( nel Distiller Startup (S) Directory) showit                   %4AGS5X-Y 1800#
( in Distiller Startup (S) Directory) showjp                    %5AGS5X-Y 1800#
           } if
LSC$ (D) eq {
( in PS\255Device (D)) showde                                   %0AGS5X-Y 1900#
( in PS\255device (D)) showen                                   %1AGS5X-Y 1900#
( en el PS\255device (D)) showes                                %2AGS5X-Y 1900#
( dans l'appareil PS (D)) showfr                                %3AGS5X-Y 1900#
( nel PS\255dispositivo (D)) showit                             %4AGS5X-Y 1900#
( in PS\255Device (D)) showjp                                   %5AGS5X-Y 1900#
           } if
LSC$ (T) eq {
( im Distiller Startup (S) Directory) showde                    %0AGS5X-Y 2000#
( in Distiller Startup (S) Directory) showen                    %1AGS5X-Y 2000#
( en el Distiller Startup (S) Directory) showes                 %2AGS5X-Y 2000#
( dans le Distiller Startup (S) Directory) showfr               %3AGS5X-Y 2000#
( nel Distiller Startup (S) Directory) showit                   %4AGS5X-Y 2000#
( in Distiller Startup (S) Directory) showjp                    %5AGS5X-Y 2000#
           } if
LSC$ (E) eq {
( in PS\255Device (D)) showde                                   %0AGS5X-Y 2100#
( in PS\255device (D)) showen                                   %1AGS5X-Y 2100#
( en el PS\255device (D)) showes                                %2AGS5X-Y 2100#
( dans appareil PS (D)) showfr                                  %3AGS5X-Y 2100#
( nel PS\255dispositivo (D)) showit                             %4AGS5X-Y 2100#
( in PS\255Device (D)) showjp                                   %5AGS5X-Y 2100#
           } if
%0 setgray %end white and unvisible

%(, Seite ) showde                                               %0AGS5X-Y 2200#
%(, page ) showen                                                %1AGS5X-Y 2200#
%(, p\341gina ) showes                                           %2AGS5X-Y 2200#
%(, page ) showfr                                                %3AGS5X-Y 2200#
%(, pagina ) showit                                              %4AGS5X-Y 2200#
%(, page ) showjp                                                %5AGS5X-Y 2200#
%xchart 1 add cvishow (/) show
%xchartm cvishow

 16 MM 185 MM moveto
-90 rotate
(Siehe \344hnliche Dateien: ) showde                            %0AGS5X-Y 2300#
(see similar files: ) showen                                    %1AGS5X-Y 2300#
(vea archivos semejantes: ) showes                              %2AGS5X-Y 2300#
(voir des fichiers similaires: ) showfr                         %3AGS5X-Y 2300#
(vedere dei file simili: ) showit                               %4AGS5X-Y 2300#
(see similar files: ) showjp                                    %5AGS5X-Y 2300#
12TRN (http://farbe.li.tu-berlin.de/AGS5/AGS5.HTM) show 12TIN
%(0) show %
%LSC$ show LEX$ show
90 rotate

 12 MM 185 MM moveto
-90 rotate
(Technische Information: ) showde                               %0AGS5X-Y 2400#
(technical information: ) showen                                %1AGS5X-Y 2400#
(informaci\363n t\351cnica: ) showes                            %2AGS5X-Y 2400#
(informations techniques: ) showfr                              %3AGS5X-Y 2400#
(informazioni tecniche: ) showit                                %4AGS5X-Y 2400#
(technical information: ) showjp                                %5AGS5X-Y 2400#
12TRN (http://farbe.li.tu-berlin.de) show 12TIN
( oder ) showde                                                 %0AGS5X-Y 2500#
( or ) showen                                                   %1AGS5X-Y 2500#
( o ) showes                                                    %2AGS5X-Y 2500#
( ou ) showfr                                                   %3AGS5X-Y 2500#
( o ) showit                                                    %4AGS5X-Y 2500#
( or ) showjp                                                   %5AGS5X-Y 2500#
12TRN (http://130.149.60.45/~farbmetrik) show 12TIN
 90 rotate

281 MM 185 MM moveto
-90 rotate
(TUB\255Registrierung: 20201101\255AGS5/AGS5L) showde           %0AGS5X-Y 2600#
(TUB registration: 20201101\255AGS5/AGS5L) showen               %1AGS5X-Y 2600#
(TUB matr\355cula: 20201101\255AGS5/AGS5L) showes               %2AGS5X-Y 2600#
(TUB enregistrement: 20201101\255AGS5/AGS5L) showfr             %3AGS5X-Y 2600#
(TUB iscrizione: 20201101\255AGS5/AGS5L) showit                 %4AGS5X-Y 2600#
(TUB registration: 20201101\255AGS5/AGS5L) showjp               %5AGS5X-Y 2600#
(0) show %
LSC$ show LEX$ show
90 rotate

281 MM 74 MM moveto
-90 rotate
(TUB\255Material: Code=rha4ta) showde                           %0AGS5X-Y 2700#
(TUB material: code=rha4ta) showen                              %1AGS5X-Y 2700#
(TUB material: code=rha4ta) showes                              %2AGS5X-Y 2700#
(TUB mat\351riel: code=rha4ta) showfr                           %3AGS5X-Y 2700#
(TUB materiale: code=rha4ta) showit                             %4AGS5X-Y 2700#
(TUB material: code=rha4ta) showjp                              %5AGS5X-Y 2700#
90 rotate

277 MM 185 MM moveto
-90 rotate
/cvishow {cvi 6 string cvs show} def
/cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def

( Anwendung f\374r Beurteilung und Messung ) showde             %0AGS5X-Y 2800#
( application for evaluation and measurement ) showen           %1AGS5X-Y 2800#
( aplicaci\363n para la medida ) showes                         %2AGS5X-Y 2800#
( application pour la mesure ) showfr                           %3AGS5X-Y 2800#
( la domanda per la misura ) showit                             %4AGS5X-Y 2800#
( application for measurement ) showjp                          %5AGS5X-Y 2800#

xchart5f 0 eq {%xchart5f=0
(von Display\255 oder Druck\255Ausgabe) showde                  %0AGS5X-Y 2900#
(of display or print output) showen                             %1AGS5X-Y 2900#
(de display output) showes                                      %2AGS5X-Y 2900#
(de sortie sur \350cran) showfr                                 %3AGS5X-Y 2900#
(di stampa di display) showit                                   %4AGS5X-Y 2900#
(of display output) showjp                                      %5AGS5X-Y 2900#
} if %xchart5f=0

xchart5f 1 eq xchart5f 2 eq or {%xchart5f=1,2
(von Offsetdruck\255Ausgabe) showde                             %0AGS5X-Y 3000#
(of offset print output) showen                                 %1AGS5X-Y 3000#
(salida en la impressi\363n offset) showes                      %2AGS5X-Y 3000#
(des sorties sur offset) showfr                                 %3AGS5X-Y 3000#
(uscita nella stampa di offset) showit                          %4AGS5X-Y 3000#
(of offset print output) showjp                                 %5AGS5X-Y 3000#
} if %xchart5f=1,2

xchart5f 3 eq {%xchart5f=3
(von Laserdrucker\255Ausgabe) showde                            %0AGS5X-Y 3100#
(of laser printer output) showen                                %1AGS5X-Y 3100#
(salida de impresora l\341ser) showes                           %2AGS5X-Y 3100#
(des sorties sur imprimante laser) showfr                       %3AGS5X-Y 3100#
(di uscita della stampante laser) showit                        %4AGS5X-Y 3100#
(of laser printer output) showjp                                %5AGS5X-Y 3100#
} if %xchart5f=3

xchart 1 ge {%xchart>=1
xchart5f 0 eq {%xchart5f=0
(, keine Separation) showde                                     %0AGS5X-Y 3200#
(, no separation) showen                                        %1AGS5X-Y 3200#
(, ninguna separaci\363n) showes                                %2AGS5X-Y 3200#
(, aucune s\351paration) showfr                                 %3AGS5X-Y 3200#
(, nessuna separazione) showit                                  %4AGS5X-Y 3200#
(, no separation) showjp                                        %5AGS5X-Y 3200#
} if %chart5f=0

xchart5f 1 ge {%xchart5f>=1
(, Separation) showde                                           %0AGS5X-Y 3300#
(, separation) showen                                           %1AGS5X-Y 3300#
(, separaci\363n) showes                                        %2AGS5X-Y 3300#
(, s\351paration) showfr                                        %3AGS5X-Y 3300#
(, separazione) showit                                          %4AGS5X-Y 3300#
(, separation) showjp                                           %5AGS5X-Y 3300#
xchart5f 1 eq xchart5f 3 eq or {(cmyn6) show} if
xchart5f 2 eq                  {(cmy0)  show} if
colorm 1 eq {(*) show} if
colsep 0 eq {( (CMYK))}{( (CMY0))} ifelse show
} if %xchart5f>=1

            } if %xchart>=1

IMES 1 eq LSC$ (N) ne and { %IMES=1
             (, Yr=) show Yre cvsshow1 (, XYZ) show
          } if %IMES=1
90 rotate

/i0 8 def
/i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def
0.30 MM setlinewidth
0 setgray
x i0 get MM y i0 get MM moveto x i1 get MM y i1 get MM lineto
x i2 get MM y i2 get MM lineto x i3 get MM y i3 get MM lineto
x i0 get MM y i0 get MM lineto stroke

%/xlu1 013 MM def /ylu1 010 MM def
%/xro1 283 MM def /yro1 200 MM def
%/xlo1 013 MM def /ylo1 200 MM def
%/xru1 283 MM def /yru1 010 MM def

%xlu1 4 MM sub ylu1 moveto  8 MM 0 rlineto stroke
%xlu1 ylu1 4 MM sub moveto 0  8 MM rlineto stroke
%xro1 4 MM add yro1 moveto -8 MM 0 rlineto stroke
%xro1 yro1 4 MM add moveto 0 -8 MM rlineto stroke

%xru1 4 MM sub yru1 moveto  8 MM 0 rlineto stroke
%xru1 yru1 4 MM sub moveto 0  8 MM rlineto stroke
%xlo1 4 MM add ylo1 moveto -8 MM 0 rlineto stroke
%xlo1 ylo1 4 MM add moveto 0 -8 MM rlineto stroke
} ifelse %xt=1

grestore
gsave

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

%%Trailer

%%EndDocument
EndEPSF grestore gsave

showpage
grestore

%} for %colsepf=0,1

%} for %pchartf=0,0

%} for %xchartf=0,0

%} for %xcolorf=0,1

%} for %deintpf=0,1

%} for %colormf=0,1

%} for %lanindf=0,0

%%Trailer