%!PS-Adobe-3.0 EPSF-3.0 http://standards.iso.org/iso/9241/306/ed-2/AI17/AI17L00XX.PS 20190322
%%BoundingBox: 14 08 828 584

/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://standards.iso.org/iso/9241/306/ed-2/AI17/AI17.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:2019030112000)
 /ModDate (D:20190301112000)
/DOCINFO pdfmark
[ /View [ /FitB ]
/DOCVIEW pdfmark


%line20
%BEG AI17/OUTLIN10.PS Output Linearization linear (OL) rgb*->rgb'* 20160301

%Early Binding: needed for colour separation
%/sgcmykcolor {setcmykcolor} bind def
%/sggray {setgray} bind def
%/sgrgbcolor {setrgbcolor} bind def
%FILE PREPARED FOR MIXED MODE, e. g. input ORS18 and output TLS00
%/IMES 0 def %0=LAB* used, no reflection factor necessary
 /IMES 1 def /Yre 2.52 def %1=XYZ measurement and standard device reflection
%/i*ptrsc 0 def %LAB* setcolor to cmy0* / 000n* setcmykcolor
 /i*ptrsc 1 def %LAB* setcolor to olv* setrgbcolor / w* setgray
%/i*ptrsc 2 def %LAB* setcolor to cmy0* / nnn0* setcmykcolor
%/i*ptrsc 3 def %LAB* setcolor to olv* / www* setrgbcolor
%/i*ptrsc 4 def %LAB* setcolor to lab* setcolor
%/i*ptrsc 5 def %LAB* setcolor to LAB* setcolor
%/i*ptrsc 6 def %LAB* setcolor to 000n* setcmykcolor
%/i*ptrsc 7 def %LAB* setcolor to w* setgray
%/ISIN*ioG 0 def %default input  for Offset Reflective System (ORS18/FRS09)
%/ISOU*ioG 0 def %default output dto.
 /ISIN*ioG 1 def %input  for Television Luminous System (TLS00)
 /ISOU*ioG 1 def %output dto.
%/ISIN*ioG 2 def %input  for Device Reflective measurement system (FRS09)
%/ISOU*ioG 2 def %output dto.
%/ISIN*ioG 3 def %input  for Television Luminous Reflection System (TLS18)
%/ISOU*ioG 3 def %output dto.
%/ISIN*ioG 4 def %input  for Natural Luminous System (NLS00)
%/ISOU*ioG 4 def %output dto.
%/ISIN*ioG 5 def %input  for Natural Reflective System (NRS11)
%/ISOU*ioG 5 def %output dto.
%/ISIN*ioG 6 def %input  for Standard Reflective System (CIE18)
%/ISOU*ioG 6 def %output dto.
%/ISIN*ioG 7 def %input  for Standard Reflective System (TLS70)
%/ISOU*ioG 7 def %output dto.
 /iLAB 0 def %/colormg 0 def

%END AI17/OUTLIN10.PS Output Linearization linear (OL) rgb*->rgb'* 20160301

%BEG AI17/OUTLIN1X.PS 20110801
%EMPTY
%END AI17/OUTLIN1X.PS 20110801
                                                                         
%BEG AI17/OUTLIN1Y2 EARLY BINDING 'F' with 1MR-0000F 20160101

%BEG 1MR-0000F.TXT ************************************20110601

/1MR-0000F {%BEG procedure 1MR-0000F

/FF_LM_setgrayF0 {setgray} bind def
/FF_LM_setrgbcolorF0 {setrgbcolor} bind def
/FF_LM_setcmykcolorF0 {setcmykcolor} bind def
/FF_LM_transferF0 {settransfer} bind def
/FF_LM_colortransferF0 {setcolortransfer} bind def
/FF_LM_xchartg_gammaF {/xchart where {pop /xchartN xchart 8 idiv def
                                          /xchartP xchart
                                           xchart 8 idiv 8 mul sub def}
                                      {/xchartN 2.0 def %default
                                       /xchartP 0.5 def} ifelse
                       /gammaF 1 xchartN 0.18 mul add
                             1 1 xchartP 0.18 mul add div mul def
                       gammaF exp
                      } def
/FF_LM_setrgbcolorF {/FF_LM_b0L exch def /FF_LM_g0L exch def /FF_LM_r0L exch def
                     FF_LM_r0L 0 le {/FF_LM_r0L 0.0001 def} if
                     FF_LM_g0L 0 le {/FF_LM_g0L 0.0001 def} if
                     FF_LM_b0L 0 le {/FF_LM_b0L 0.0001 def} if
                     /FF_LM_r1F FF_LM_r0L FF_LM_xchartg_gammaF def
                     /FF_LM_g1F FF_LM_g0L FF_LM_xchartg_gammaF def
                     /FF_LM_b1F FF_LM_b0L FF_LM_xchartg_gammaF def
                     FF_LM_r1F FF_LM_g1F FF_LM_b1F
                     FF_LM_setrgbcolorF0
                    } def

/FF_LM_transferF {{FF_LM_xchartg_gammaF} FF_LM_transferF0} def

/FF_LM_colortransferF {{FF_LM_xchartg_gammaF} {FF_LM_xchartg_gammaF}
                       {FF_LM_xchartg_gammaF} FF_LM_colortransferF0} def

%1MR-Transform of setgray and setcmykcolor to FF_LM_setrgbcolorF
%Three procedures and use of the procedure FF_LM_setrgbcolorF in OUTLIN1Y2

/setgray {%BEG procedure setgrayF
          dup dup FF_LM_setrgbcolorF
          %STOPs
         } def %END procedure setgrayF

/setcmykcolor {%BEG procedure setcmykcolorF
               /FF_LM_k exch def /FF_LM_y exch def
               /FF_LM_m exch def /FF_LM_c exch def
               FF_LM_k 0 eq {1 FF_LM_c sub 1 FF_LM_m sub
                             1 FF_LM_y sub FF_LM_setrgbcolorF}
                            {1 FF_LM_k sub dup dup FF_LM_setrgbcolorF} ifelse
               %STOPc
              } def %END procedure setcmykcolorF

/setrgbcolor {%BEG procedure setrgbcolorF
              /FF_LM_b exch def /FF_LM_g exch def /FF_LM_r exch def
              FF_LM_r FF_LM_g FF_LM_b
              FF_LM_setrgbcolorF
              %STOPr
             } def %BEG procedure setrgbcolorF

/settransfer {FF_LM_transferF} def

/setcolortransfer {FF_LM_colortransferF} def

} def %END procedure 1MR-0000F

/xchartg where {pop 1MR-0000G}{1MR-0000F} ifelse

%END 1MR-0000F.TXT ************************************20110801

%END AI17/OUTLIN1Y EARLY BINDING 'I' with 1MR-0000I 20110801
                                                                         
/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
 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
/A4querF {598 0 translate 90 rotate} def

/languagelevel where {pop languagelevel} {1} ifelse
                     /PSL12 exch def
/dictende {counttomark 2 idiv dup dict begin {def}
           repeat pop currentdict end} bind def
% !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

/RK {250 /Times-Roman FS} bind def
/RM {300 /Times-Roman FS} bind def
/RG {350 /Times-Roman FS} bind def
/RIK {250 /Times-Italic FS} bind def
/RIM {300 /Times-Italic FS} bind def
/RIG {350 /Times-Italic FS} bind def
/RBK {250 /Times-Bold FS} bind def
/RBM {300 /Times-Bold FS} bind def
/RBG {350 /Times-Bold FS} bind def
/RBIK {250 /Times-BoldItalic FS} bind def
/RBIM {300 /Times-BoldItalic FS} bind def
/RBIG {350 /Times-BoldItalic FS} bind def
/TK {250 /Times-ISOL1 FS} bind def
/TM {300 /Times-ISOL1 FS} bind def
/TG {350 /Times-ISOL1 FS} bind def
/TIK {250 /TimesI-ISOL1 FS} bind def
/TIM {300 /TimesI-ISOL1 FS} bind def
/TIG {350 /TimesI-ISOL1 FS} bind def
/TBK {250 /TimesB-ISOL1 FS} bind def
/TBM {300 /TimesB-ISOL1 FS} bind def
/TBG {350 /TimesB-ISOL1 FS} bind def
/TBIK {250 /TimesBI-ISOL1 FS} bind def
/TBIM {300 /TimesBI-ISOL1 FS} bind def
/TBIG {350 /TimesBI-ISOL1 FS} bind def

%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
 
/tzrcmy0* {0.0 1.0 1.0 0.0} bind def %Reproduction colours
/tzgcmy0* {1.0 0.0 1.0 0.0} bind def %cmyn* setcmykcolor
/tzbcmy0* {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

/tzrolv* {1.0 0.0 0.0} bind def %Reproduction colours
/tzgolv* {0.0 1.0 0.0} bind def %olv* setrgbcolor
/tzbolv* {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
 
/tzrLAB* [53.34  72.46  50.66] def %Reproduction colours
/tzgLAB* [84.93 -79.83  74.80] def %LAB* setcolor
/tzbLAB* [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
 
/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
1.0 1.0 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$ [(A.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$ [(A.DAT)      (B.DAT)      (G.DAT)      (H.DAT)      (I.DAT)
      (J.DAT)      (P.DAT)      (T.DAT)] def

%defaut values
/lanind1f 04 def /lanind2f 04 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 03 def /xcolor2f 03 def /xcolordf 01 def /xcolormf 01 def
/xchart1f 00 def /xchart2f 00 def /xchartdf 01 def /xchartmf 01 def
/pchart1f 01 def /pchart2f 00 def /pchartdf 01 def /pchartmf 03 def
/colsep1f 00 def /colsep2f 00 def /colsepdf 01 def /colsepmf 01 def
/pmetam1f 00 def /pmetam2f 00 def /pmetamdf 01 def /pmetammf 01 def
/xchart3f 00 def %free
/xchart4f 01 def %test charts ISO/IEC 3, 2, 4; G, O, H, H
/xchart5f 00 def %free

%psosible change of default values
/lanindg where {pop /lanind1f lanindg  def /lanind2f lanindg  def
                    /laninddf laninddg def /lanindmf lanindmg def} if
/colormg where {pop /colorm1f colormg  def /colorm2f colormg  def
                    /colormdf colormdg def /colormmf colormmg def} if
/deintpg where {pop /deintp1f deintpg  def /deintp2f deintpg  def
                    /deintpdf deintpdg def /deintpmf deintpmg def} if
/xcolorg where {pop /xcolor1f xcolorg  def /xcolor2f xcolorg  def
                    /xcolordf xcolordg def /xcolormf xcolormg def} if
/xchartg where {pop /xchart1f xchartg  def /xchart2f xchartg  def
                    /xchartdf xchartdg def /xchartmf xchartmg def} if
/pchartg where {pop /pchart1f pchartg def  /pchart2f pchartg  def
                    /pchartdf pchartdg def /pchartmf pchartmg def} if
/colsepg where {pop /colsep1f colsepg def  /colsep2f colsepg  def
                    /colsepdf colsepdg def /colsepmf colsepmg def} if
/pmetamg where {pop /pmetam1f pmetamg def  /pmetam2f pmetamg  def
                    /pmetamdf pmetamdg def /pmetammf pmetammg def} if
/xchart3g where {pop /xchart3f xchart3g def} if
/xchart4g where {pop /xchart4f xchart4g def} if
/xchart5g where {pop /xchart5f xchart5g def} if

%/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 %pchart1f pchartdf pchart2f {/pchartf exch def

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

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

/lanind lanindf def
/colorm colormf def
/deintp deintpf def
/xcolor xcolorf def
/xchart xchartf def
/pchart pchartf def
/colsep colsepf def
/pmetam pmetamf def
/xchart3 xchart3f def /xchart4 xchart4f def /xchart5 xchart5f def

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

/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

/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
%01
%/xchartg where { } {1MR-0000F} ifelse
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
                    
BeginEPSF
 28 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 AI170-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     (AI170-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 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 AI170-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     (AI170-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 MM pchart 2 eq {3 MM sub} if 109 MM pchart 2 eq {30 MM sub} if 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 AI170-3N.EPS Y10-3N_AL17_JSO.EPS 20190301
%%BoundingBox: 70 82 430 360

%START PDFDE011.EPS
/pdfmark03 where {pop} {userdict /pdfmark03 /cleartomark load put} ifelse
/languagelevel where {pop languagelevel} {1} ifelse
2 lt { userdict (<<) cvn ([) cvn load put
       userdict (>>) cvn (]) cvn load put} if
[/Title (PostScript pictures: http://farbe.li.tu-berlin.de/AI17/AI17.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:2019030112000)
 /ModDate (D:20190301112000)
/DOCINFO pdfmark03
[ /View [ /FitB ]
/DOCVIEW pdfmark03
%END  PDFDE011

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def /str {8 string } bind def
/A4querL {598 0 translate 90 rotate} def

/languagelevel where {pop languagelevel} {1} ifelse
                     /PSL12 exch def
/dictende {counttomark 2 idiv dup dict begin {def}
           repeat pop currentdict end} bind def

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

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

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

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

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

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

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

/cvishow {0.5 add cvi 6 string cvs show} def
/cvsshow1 {0.05 add 10 mul cvi 0.1 mul 7 string cvs show} def
/cvsshow2 {0.005 add 100 mul cvi 0.01 mul 7 string cvs show} def
/cvsshow3 {0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show} def

%%EndProlog
gsave

/lanind 1 def
/lantex [(G) (E) (S) (N) (I) (J) (M)] def
/showde {0 lanind eq {show} {pop} ifelse} bind def
/showen {1 lanind eq {show} {pop} ifelse} bind def
/showfr {2 lanind eq {show} {pop} ifelse} bind def
/showes {3 lanind eq {show} {pop} ifelse} bind def
/showit {4 lanind eq {show} {pop} ifelse} bind def
/showjp {5 lanind eq {show} {pop} ifelse} bind def
/showea {1 lanind le {show} {pop} ifelse} bind def
/showm  {6 lanind eq {show} {pop} ifelse} bind def

%default values
/lanind1 01 def /lanind2 01 def /lanindd 01 def /lanindm 01 def
/colorm1 01 def /colorm2 01 def /colormd 01 def /colormm 01 def
/deintp1 00 def /deintp2 00 def /deintpd 01 def /deintpm 01 def
/xcolor1 03 def /xcolor2 03 def /xcolord 01 def /xcolorm 01 def
/xchart1 00 def /xchart2 00 def /xchartd 01 def /xchartm 01 def
/pchart1 01 def /pchart2 01 def /pchartd 01 def /pchartm 01 def
/colsep1 00 def /colsep2 00 def /colsepd 01 def /colsepm 01 def
/pmetam1 00 def /pmetam2 00 def /pmetamd 01 def /pmetamm 01 def
/xchart3 00 def /xchart4 00 def /xchart5 00 def

%usual change of default values
/lanindf where {pop /lanind1 lanindf  def /lanind2 lanindf  def
                    /lanindd laninddf def /lanindm lanindmf def} if
/colormf where {pop /colorm1 colormf  def /colorm2 colormf  def
                    /colormd colormdf def /colormm colormmf def} if
/deintpf where {pop /deintp1 deintpf  def /deintp2 deintpf  def
                    /deintpd deintpdf def /deintpm deintpmf def} if
/xcolorf where {pop /xcolor1 xcolorf  def /xcolor2 xcolorf  def
                    /xcolord xcolordf def /xcolorm xcolormf def} if
/xchartf where {pop /xchart1 xchartf  def /xchart2 xchartf  def
                    /xchartd xchartdf def /xchartm xchartmf def} if
/pchartf where {pop /pchart1 pchartf  def /pchart2 pchartf  def
                    /pchartd pchartdf def /pchartm pchartmf def} if
/colsepf where {pop /colsep1 colsepf  def /colsep2 colsepf  def
                    /colsepd colsepdf def /colsepm colsepmf def} if
/pmetamf where {pop /pmetam1 pmetamf  def /pmetam2 pmetamf  def
                    /pmetamd pmetamdf def /pmetamm pmetammf def} if
/xchart3f where {pop /xchart3 xchart3f def} if
/xchart4f where {pop /xchart4 xchart4f def} if
/xchart5f where {pop /xchart5 xchart5f def} if

/lanind lanind1 def %
/colorm colorm1 def %
/deintp deintp1 def %
/xcolor xcolor1 def %
/xchart xchart1 def %
/pchart pchart1 def %
/colsep colsep1 def %
/pmetam pmetam1 def %

/GSS$ where {pop /LSS$ GSS$ def}
            {/LSS$ (1) def} ifelse
/GSC$ where {pop /LSC$ GSC$ def}
            {/LSC$ (N) def} ifelse
/GSX$ where {pop /LSX$ GSX$ def}
            {/LSX$ (0) def} ifelse
/GSY$ where {pop /LSY$ GSY$ def}
            {/LSY$ (0) def} ifelse
/GEX$ where {pop /LEX$ GEX$ def}
            {/LEX$ (P.PS./PDF) def} ifelse
/GEY$ where {pop /LEY$ GEY$ def}
            {/LEY$ (P.DAT) def} ifelse
/IMES where {pop %/IMES IMES def
            }
            {/IMES 0 def} ifelse
      
/colorml colorm def
%0 1 1 {/colorml exch def %colorml=0,1

/xcolorl xcolor def
%0 1 3 {/xcolorl exch def %xcolorl=0,3

/xchartl xchart def
%0 1 7 {/xchartl exch def %xchartl=0,7

/pchartl pchart def
%0 1 2 {/pchartl exch def %pchartl=0,2

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

gsave

xcolorl 0 eq {/tfnx* {0 0 0 1 setcmykcolor} def
              /tfwx* {0 0 0 0 setcmykcolor} def
              /colrecfix* {setcmykcolor rec fill} bind def
              /colrecstx* {setcmykcolor rec stroke} bind def
             } if
xcolorl 1 eq {/tfnx* {0 setgray} def
              /tfwx* {1 setgray} def
              /colrecfix* {setgray rec fill} bind def
              /colrecstx* {setgray rec stroke} bind def
             } if
xcolorl 2 eq {/tfnx* {1 1 1 0 setcmykcolor} def
              /tfwx* {0 0 0 0 setcmykcolor} def
              /colrecfix* {setcmykcolor rec fill} bind def
              /colrecstx* {setcmykcolor rec stroke} bind def
             } if
xcolorl 3 eq {/tfnx* {0 0 0 setrgbcolor} def
              /tfwx* {1 1 1 setrgbcolor} def
              /colrecfix* {setrgbcolor rec fill} bind def
              /colrecstx* {setrgbcolor rec stroke} bind def
             } if

%pchartl 1 eq {%pchartl=1; Y10-3N_AL19_JSO_1P2S.EPS; table D1/B1 to D3/D1
/RW {100 /Times-Roman FS} bind def
/RV {130 /Times-Roman FS} bind def

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

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

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

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

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

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

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

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

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

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

/iout 5 def %iout=0_2:CMY,NZW, iout=3-5: OLV,NZW
/ioutT [(N) (Z) (W) (N) (Z) (W)] def
/ioutE [(Black) (Grey) (White) (Black) (Grey) (White)] def
/ioutG [(Schwarz) (Grau) (Wei\337) (Schwarz) (Grau) (Wei\337)] def

/cvishow {cvi 6 string cvs show} def

72 90 translate
0.02 MM dup scale
15 setlinewidth

RV
0 setgray
0 -120 moveto
(Teil 1, ) showde
(part 1, ) showen
(parte 1, ) showes
(la part 1, ) showfr
(la parte 1, ) showit
(artikkelen 1, ) showjp

4300 -120 moveto (AI170-3) show
Txx show (: ) show
deintp  cvishow 
colorml cvishow
xcolorl cvishow
xchartl cvishow
pchartl cvishow

1 setgray
0 0  moveto 6000 0 rlineto 0 4200 rlineto
           -6000 0 rlineto closepath fill
0 setgray
0 0  moveto 6000 0 rlineto 0 4200 rlineto
           -6000 0 rlineto closepath stroke

/iyd   150 def          %line difference

%******************************************************************************
/ix00    20 def %text 1
/iy00  3850 def %text 2
/ibout 1 def
/ix3  5100 def %3
/y00  3850 def

ix00 iy00 200 add moveto
TBV
(Pr\374fung der visuellen linearisierten Ausgabe der Bilder ) showde
(Test of visual linearized output of pictures ) showen
(Prueba visual de linearized output de imagen ) showes
(Test visuel de linearized output d'image ) showfr
(Test visivo di linearized output di immagine ) showit
(Visual test of linearized output av bilde ) showjp

TBV
iout 2 le {ibout 0 eq {(B2) show}{(B1) show} ifelse}
          {ibout 0 eq {(D2) show}{(D1) show} ifelse} ifelse
ioutT iout get show TxS show Txx jshowTV
TBV
( bis ) showde
( to ) showen
( a ) showes
( \340 ) showfr
( a ) showit
( til ) showjp

iout 2 le {(B3) show}{(D3) show} ifelse
ioutT iout get show TxS show Txx jshowTV

4200 y00 200 add moveto
TV
(      bitte unterstreichen) showde
(          please underline) showen
(       por favor underline) showes
(       veuillez souligner) showfr
(   si prega di sottolineare) showit
(        vennligst underline) showjp

TBV
(   ) show
(Ja/Nein) showde
(Yes/No) showen
(Si/No) showes
(Qui/Non) showfr
(Si/No) showit
(Ja/Nei) showjp

ix00 y00 moveto
TBV
(Ausgabepr\374fung mit Rechnerdisplay (  )) showde
( oder externen Display (  )) showde
(Output test with computer display (  )) showen
( or the external display (  )) showen
(Prueba de salida con pantalla del ordenador (  )) showes
( o en la pantale externa (  )) showes
(Test de sortie avec \351cran de l'ordinateur (  )) showfr
( ou l'\351cran externe (  )) showfr
(Test di uscita con le schermo del computer (  )) showit
( o il monitor esterno (  )) showit
(Teste utganger med skjermen pa datamaskinen (  )) showjp
( eller den eksterne skjermen (  )) showjp

4500 y00 moveto
TV
(   bitte markieren mit (x)!) showde
(        please mark by (x)!) showen
(veuillez marquer par (x)!) showfr
(       por favor marca (x)!) showes
(     vennligst merk av (x)!) showjp
4150 y00 moveto
(si prega di contrassegnare de (x)!) showit

%******************************************************************************
/ix10    20 def
/ix11    50 def %Start
/ix12  5300 def %Yes/No

/iyt1 3500 def
/iy01 iyt1 def               %title
/iy11 iyt1 iyd 1 mul sub def %question CIE colours
/iy21 iyt1 iyd 2 mul sub def %14 steps
/iy31 iyt1 iyd 3 mul sub def %....
/iy41 iyt1 iyd 4 mul sub def %....
/iy51 iyt1 iyd 5 mul sub def %....
/iy61 iyt1 iyd 6 mul sub def %....
/iy71 iyt1 iyd 7 mul sub def %....
/iy81 iyt1 iyd 8 mul sub def %....
ibout 1 eq {%ibout=1

ix10  iy01 moveto
TBV
(Pr\374fung des (Blumen)bildes ) showde
(Test of the (flower) image ) showen
(Prueba de la flor (gr\341fico) ) showes
(Test de la fleur (graphique) ) showfr
(Il test del (flor) graphic ) showit
(Test av (blomst) grafisk ) showjp

TBV
(nach Bild ) showde
(according to picture ) showen
(seg\372n el gr\341fico ) showes
(selon graphic ) showfr
(secondo un grafico ) showit
(i henhold til grafisk ) showjp

TBV
iout 2 le {(B1) show}{(D1) show} ifelse
ioutT iout get show
Txx jshowTV

ix10  iy11 moveto
TV
(Ergeben sich deutliche (sofort auff\344llige) unterschiede ) showde
(zwischen Wiedergabe und Pr\374fvorlage?) showde
(Are clear (immediately conspicuous) differences recognized ) showen
(between reproduction and test chart?) showen
(Sont claras (visible immediatamente) reconoce las differencias ) showes
(entre la reproducti\363n y el gr\341fico de prueba?) showes
(Sont claires (imm\351diatmemt visible) diff\351rences reconnu ) showfr
(entre la reproduction et le test graphique?) showfr
(Sono chiari (immediatamente visible) differenze ) showit
(rilevate tra riproduzione e grafica di prova?) showit
(Et klar (umiddelbart synlig) forskjeller gienkjent ) showjp
(mellom reproduksjon og teste grafisk?) showjp

ix12  iy11 moveto
TBV
(Ja/Nein) showde
(Yes/No) showen
(Si/No) showes
(Qui/Non) showfr
(Si/No) showit
(Ja/Nei) showjp

ix10  iy21 moveto
TV
(Subjektive Beurteilungen \374ber die Farbwiedergabe ) showde
(des (Blumen)bildes, ) showde
(Subjective remarks about the colour reproduction ) showen
(of the (flower) image, ) showen
(Comentarios subjetivos sobre la reproducci/363n ) showes
(del color de la flor (gr\363fico), ) showes
(Remarques sur subjective reproduction en couleur) showfr
(de la fleur (graphique), ) showfr
(Commento soggettivo circa la riproduzione del colore ) showit
(del fiore (grafico), ) showit
(Subjektive kommentare om fargegjengivelse ) showjp
(av (blomst) grafisk, ) showjp


ix10  iy31 moveto
RV
(der CIE-Testfarben und der 16 Graustufen innerhalb des Bildes, ) showde
(zum Beispiel "weniger Kontrast":) showde
(the CIE-test colours and the 16 grey steps within the image, ) showen
(for example "less contrast":) showen
(de la CIE-colores y los 16 pasos de gris en el gr\341fico, ) showes
(per ejemplo "menos contraste":) showes
(de la CIE-couleurs el le palier de 16 gris au sein du graphique, ) showfr
(par exemple "mois de contraste":) showfr
(della CIE-colori e i 16 passi di grigio all'interno della grafica, ) showit
(ad esempio "meno contrasto":) showit
(Det CIE-farger og 16 gra trinn innen grafisk, ) showjp
(for eksempel "mindre kontrast":) showjp

/iyi1 5 array def
iyi1 0 iy41 put
iyi1 1 iy51 put
iyi1 2 iy61 put
iyi1 3 iy71 put
iyi1 4 iy81 put

0 1 4 {/i exch def %i=0,4
ix10  iyi1 i get moveto
(....................................................................) show
(....................................................................) show
(...............................................) show
} for %i=0,4

} if %ibout=1
%******************************************************************************
/ix20   20 def %text
/ix21 2600 def %W-C/W-O
/ix22 3300 def %W-M/W-L
/ix23 4000 def %W-Y/W-V
/ix24 4700 def %W-N
/ix25 5400 def %W-Z

/iyt2 1800 def
/iy10 iyt2 iyd 1.2 mul add def
/iy12 iyt2 iyd 0 mul sub def
/iy22 iyt2 iyd 1 mul sub def
/iy32 iyt2 iyd 2 mul sub def
/iy33 iyt2 iyd 3 mul sub def

ix20  iy10 moveto
TBV
(Pr\374fung der Aufl\366sung der Radialgitter ) showde
(Test of the resolution of radial gratings ) showen
(Prueba de la resoluti\363n de estrellas Siemens ) showes
(Test de la r\351solution de Siemens stars ) showfr
(Prova della risoluzione di Siemes stelle ) showit
(Test av opplosning av Siemens stjerner ) showjp

iout 2 le {RBIV ioutT iout get show (-C) show (d) jshowRV (, ) show
           RBIV ioutT iout get show (-M) show (d) jshowRV (, ) show
           RBIV ioutT iout get show (-Y) show (d) jshowRV  ( ) show}
          {RBIV ioutT iout get show (-R) show (d) jshowRV (, ) show
           RBIV ioutT iout get show (-G) show (d) jshowRV (, ) show
           RBIV ioutT iout get show (-B) show (d) jshowRV  ( ) show} ifelse

TBV
(nach Bild ) showde
(according to picture ) showen
(seg\372n el gr\341fico ) showes
(selon graphic ) showfr
(secondo un grafico ) showit
(i henhold til grafisk ) showjp

TBV
iout 2 le {(B2) show}{(D2) show} ifelse
ioutT iout get show TxS show Txx jshowTV

ix21 iy12 moveto
RBIV
iout 2 le {RBIV ioutT iout get show (-C) show (d) jshowRV}
          {RBIV ioutT iout get show (-R) show (d) jshowRV} ifelse
ix22 iy12 moveto
RBIV
iout 2 le {RBIV ioutT iout get show (-M) show (d) jshowRV}
          {RBIV ioutT iout get show (-G) show (d) jshowRV} ifelse
ix23 iy12 moveto
RBIV
iout 2 le {RBIV ioutT iout get show (-Y) show (d) jshowRV}
          {RBIV ioutT iout get show (-B) show (d) jshowRV} ifelse

ix24 iy12 moveto RBIV (W-N) show
ix25 iy12 moveto RBIV (W-Z) show

ix20 iy22 moveto
TV
(Ist der Aufl\366sungsdurchmesser < 6 mm?) showde
(Is the resolution diameter < 6 mm?) showen
(Es la resoluci\363n di\341metro < 6 mm?) showes
(Le diam\350tre de la r\351solution est < 6 mm?) showfr
(\310 la risoluzione diametro < 6 mm?) showit
(Diameteren pa opplosning < 6 mm?) showjp

/ix2i 5 array def
ix2i 0 ix21 put
ix2i 1 ix22 put
ix2i 2 ix23 put
ix2i 3 ix24 put
ix2i 4 ix25 put

0 1 4 {/i exch def %i=0,4
ix2i i get iy22 moveto
TV
(Ja/Nein) showde
(Yes/No) showen
(Si/No) showes
(Qui/Non) showfr
(Si/No) showit
(Ja/Nei) showjp
} for %i=0,4

ix20  iy32 moveto
TV
(Pr\374fung mit Vergr\366\337erungsglas (z. B. 6x)) showde
(Test with magnifying glass (e.g. 6x)) showen
(Prueba con lupa (por ejemplo 6x)) showes
(Test avec loupe (par ex. 6x)) showfr
(Prova con lente di ingradimento (ad esempio 6x)) showit
(Test med forstorrelses glass (f.eks 6x)) showjp
                  
ix20  iy33 moveto
TV
(Aufl\366sungsdurchmesser) showde
(resolution diameter) showen
(Di\341metro de la resoluci\363n) showes
(diam\350tre de la r\351solution) showfr
(diametro di risoluzione) showit
(resolution diameter) showjp

0 1 4 {/i exch def %i=0,4
ix2i i get iy33 moveto
TV
(........  mm) show
} for %i=0,4

%******************************************************************************
/ix14    50 def %Start
/ix24  3000 def %of 14 steps
/ix34  5300 def %Yes/No

/iyt4 1000 def
/iy04 iyt4 def               %title
/iy14 iyt4 iyd 1 mul sub def %question CIE colours
/iy24 iyt4 iyd 2 mul sub def %14 steps

ix14  iy04 moveto
TBV
(Pr\374fung der) showde RBV ( 14 CIE-) showde TBV (Pr\374ffarben ) showde
RBV
(Test of the 14 CIE-test colours ) showen
(Prueba de las 14 pruebas de colores de la CIE ) showes
(Test de l'essai de 14 couleurs de la CIE ) showfr
(Prova sel test di 14 colori della CIE ) showit
(Test av 14 test farber av CIE ) showjp

TBV
(nach Bild ) showde
(according to picture ) showen
(seg\372n el gr\341fico ) showes
(selon graphic ) showfr
(secondo un grafico ) showit
(i henhold til grafisk ) showjp

TBV
iout 2 le {(B3) show}{(D3) show} ifelse
ioutT iout get show TxS show Txx jshowTV

ix14  iy14 moveto
TV
(Ergeben sich deutliche (sofort auff\344llige) unterschiede ) showde
(zwischen Wiedergabe und Pr\374fvorlage?) showde
(Are clear (immediately conspicuous) differences recognized ) showen
(between reproduction and test chart?) showen
(Sont claras (visible immediatamente) reconoce las differencias ) showes
(entre la reproducti\363n y el gr\341fico?) showes
(Sont claires (imm\351diatmemt visible) diff\351rences reconnu ) showfr
(entre la reproduction et le test graphique?) showfr
(Sono chiari (immediatamente visible) differenze ) showit
(rilevate tra riproduzione e grafica di prova?) showit
(Et klar (umiddelbart synlig) forskjeller gienkjent ) showjp
(mellom reproduksjon og teste grafisk?) showjp

ix34  iy14 moveto
TBV
(Ja/Nein) showde
(Yes/No) showen
(Si/No) showes
(Qui/Non) showfr
(Si/No) showit
(Ja/Nei) showjp

ix14  iy24 moveto
TV
(Wenn Ja: Wieviele Farben haben klare Differenzen?) showde
(If Yes: How many colours have clear differences?) showen
(En caso afirmato: cu\341ntos colores tienen claras diferentias?) showes
(Si qui: combien de couleur ont des diff\351rences?) showfr
(Se si: quanti colori hanno chiare differenze?) showit
(Hvis ja: Hvor mange farger have klare forskjeller?) showjp

ix24  200 add iy24 moveto
TV
(von den gegebenen 14 Stufen:) showde
(of the given 14 steps:) showen
(de los 14 pasos:) showes
(compte tenu des 14 paliers:) showfr
(del dato 14 passi:) showit
(av gitt 14 trinn:) showjp

ix34  iy24 moveto
TBV
(......  Stufen) showde
(......  Steps) showen
(......  pasos) showes
(......  paliers) showfr
(......  passi) showit
(......  trinn) showjp

%******************************************************************************
/ix15    50 def %Start
/ix25  3000 def %of 16 steps
/ix35  5300 def %Yes/No

/iyt5 0400 def
/iy05 iyt5 def               %title
/iy15 iyt5 iyd 1 mul sub def %question 16 steps
/iy25 iyt5 iyd 2 mul sub def %16 steps


ix15  iy05 moveto
TBV
(Pr\374fung von 16 gleichabst\344ndigen ) showde
(Test of 16 visual equidistant ) showen
(Visual test de los 16 pasos de gris ) showes
(Test de l\351quidistance visuell 16 ) showfr
(Prova del 16 visual equidistanti ) showit
(Test av 16 visuell equidistante ) showjp
TBIV
(L*) show RBV (-) show
TBV
(Graustufen nach Bild ) showde
(grey steps according to picture ) showen
(equidistante visual seg\372n el gr\341fico ) showes
(gris selon graphic ) showfr
(grigio passi secondo un grafico ) showit
(gra trinn i henhold til grafisk ) showjp

TBV
iout 2 le {(B3) show}{(D3) show} ifelse
ioutT iout get show TxS show Txx jshowTV

ix15  iy15 moveto
TV
(Sind die 16 Stufen in der oberen Reihe unterscheidbar?) showde
(Are the 16 steps on the upper rows distinguishable?) showen
(Sont los 16 pasos de la file superior discriminable?) showes
(Sont les 16 paliers de la rang\351e sup\351rieure discriminable?) showfr
(Sono le 16 fasi della filla superiore separable?) showit
(Er de 16 trinnene i overste linje discriminable?) showjp

ix35  iy15 moveto
TBV
(Ja/Nein) showde
(Yes/No) showen
(Si/No) showes
(Qui/Non) showfr
(Si/No) showit
(Ja/Nei) showjp

ix15  iy25 moveto
TV
(Wenn Nein: Wieviel Stufen sind unterscheibar?) showde
(If No: How many steps can be distinguished?) showen
(Si No: Qu\341ntos pasos discriminable?) showes
(If Non: Combien de paliers sont discriminable?) showfr
(Se No: quanti sono i passaggi discriminabile?) showit
(Hvis Nei: Hvor mange trinn er discriminable?) showjp

ix25  200 add iy25 moveto
TV
(von den gegebenen 16 Stufen:) showde
(of the given 16 steps:) showen
(de los 16 pasos:) showes
(compte tenu des 16 paliers:) showfr
(del dato 16 passi:) showit
(av gitt 16 trinn:) showjp

ix35  iy25 moveto
TBV
(......  Stufen) showde
(......  Steps) showen
(......  pasos) showes
(......  paliers) showfr
(......  passi) showit
(......  trinn) showjp

%} if pchartl=1; Y10-3N_AL19_JSO_1P2S.EPS; table D1/B1 to D3/D1




showpage
grestore

%} for %pchartl=0,2

%} for %xchartl=0,7

%} for %xcolorl=0,3

%} for %colorml=0,1

%%Trailer

%%EndDocument
EndEPSF grestore gsave
                         
BeginEPSF
 86 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 AI170-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     (AI170-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 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 AI170-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     (AI170-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 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 AI170-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     (AI170-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
 28 MM pchart 0 eq {2 MM sub} if 021 MM pchart 0 eq {3 MM sub} if 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 AI170-7N 'AL0X'Y10-7N_AL17_JSO.EPS 20190301
%%BoundingBox: 70 82 785 585

%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: http://farbe.li.tu-berlin.de/AI17/AI17.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:2019030112000)
 /ModDate (D:20190301112000)
/DOCINFO pdfmark07
[ /View [ /FitB ]
/DOCVIEW pdfmark07
%END  PDFDE011

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def /str {8 string } bind def
/A4querL {598 0 translate 90 rotate} def

/languagelevel where {pop languagelevel} {1} ifelse
                     /PSL12 exch def
/dictende {counttomark 2 idiv dup dict begin {def}
           repeat pop currentdict end} bind def

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

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

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

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

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

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

%*****************************************************************************
%ANFA
/tzNW [0.000 0.067 0.132 0.200 0.267 0.333 0.400 0.467
       0.533 0.600 0.667 0.733 0.800 0.867 0.933 1.000
       0.000 0.250 0.500 0.750 1.000] def
/tzWN [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
/tzZW [0.500 0.533 0.567 0.600 0.633 0.667 0.700 0.733
       0.767 0.800 0.833 0.867 0.900 0.933 0.967 1.000
       0.500 0.625 0.750 0.875 1.000] def
/tzWZ [1.000 0.967 0.933 0.900 0.867 0.833 0.800 0.767
       0.733 0.700 0.667 0.633 0.600 0.567 0.533 0.500
       1.000 0.875 0.750 0.625 0.500] def
/tzNZ [0.000 0.033 0.067 0.100 0.133 0.167 0.200 0.233
       0.267 0.300 0.333 0.367 0.400 0.433 0.467 0.500
       0.000 0.125 0.250 0.375 0.500] def
/tzZN [0.500 0.467 0.433 0.400 0.367 0.333 0.300 0.267
       0.233 0.200 0.167 0.133 0.100 0.067 0.033 0.000
       0.500 0.375 0.250 0.125 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

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

/tro {1.0 0.0 0.0} def %Reproduktionsfarben olv*+NW
/trl {0.0 1.0 0.0} def
/trv {0.0 0.0 1.0} def
/trc {0.0 1.0 1.0} def
/trm {1.0 0.0 1.0} def
/try {1.0 1.0 0.0} def
/trn {0.0 0.0 0.0} def
/trz {0.5 0.5 0.5} def
/trw {1.0 1.0 1.0} def

/tgo {tro setrgbcolor} def
/tgl {trl setrgbcolor} def
/tgv {trv setrgbcolor} def
/tgc {trc setrgbcolor} def
/tgm {trm setrgbcolor} def
/tgy {try setrgbcolor} def
/tgn {trn setrgbcolor} def
/tgz {trz setrgbcolor} def
/tgw {trw setrgbcolor} def

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

/rec %x, y width heigth
  {/heigth exch def /width exch def
   moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto
   closepath } bind def

/rem %x0, y0 width heigth
  {/heigth exch def /width exch def /y0 exch def /x0 exch def
   x0 width 0.5 mul add y0 heigth 0.5 mul add moveto
   width 0 rlineto 0 heigth rlineto width neg 0 rlineto
   closepath } bind def

/cviht {dup 0 ge {0.49 add}{0.49 sub} ifelse cvi} def
/cvishow {dup 0 ge {0.5 add} {0.5 sub} ifelse
          cvi 6 string cvs show} def
/cvsshow1 {dup 0 ge {0.05 add} {0.05 sub} ifelse
           10 mul cvi 0.1 mul 7 string cvs show} def
/cvsshow2 {dup 0 ge {0.005 add} {0.005 sub} ifelse
           100 mul cvi 0.01 mul 7 string cvs show} def
/cvsshow3 {dup 0 ge {0.0005 add} {0.0005 sub} ifelse
           1000 mul cvi 0.001 mul 7 string cvs show} def
    
%%ENDProlog
gsave

/lanind 1 def
/lantex [(G) (E) (S) (N) (I) (J) (M)] def
/showde {0 lanind eq {show} {pop} ifelse} bind def
/showen {1 lanind eq {show} {pop} ifelse} bind def
/showfr {2 lanind eq {show} {pop} ifelse} bind def
/showes {3 lanind eq {show} {pop} ifelse} bind def
/showit {4 lanind eq {show} {pop} ifelse} bind def
/showjp {5 lanind eq {show} {pop} ifelse} bind def
/showea {1 lanind le {show} {pop} ifelse} bind def
/showm {6 lanind eq {show} {pop} ifelse} bind def

/lanind1 01 def /lanind2 01 def /lanindd 01 def
/colorm1 01 def /colorm2 01 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 xchartmf def}
               {/xchartm 1 def} ifelse
/xchart3f where {pop /xchart3 xchart3f def}
                {/xchart3 1 def} ifelse
/xchart4f where {pop /xchart4 xchart4f def}
                {/xchart4 2 def} ifelse
/pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def
                /pchartd pchartdf def /pchartm pchartmf def}
               {/pchartm 1 def} ifelse
/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 where {pop %/IMES IMES def
            }
            {/IMES 0 def} ifelse

/colorml colorm def
%0 1 1 {/colorml exch def %colorml=0,1

/xcolorl xcolor def
%0 1 3 {/xcolorl exch def %xcolorl=0,3

/xchartl xchart def
%0 1 7 {/xchartl exch def %xchartl=0,7

/pchartl pchart def
%0 1 2 {/pchartl exch def %pchartl=0,2

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

gsave
%A4querL

xcolorl 0 eq {/tfnx* {0 0 0 1 setcmykcolor} def
              /tfwx* {0 0 0 0 setcmykcolor} def
              /colrecfix* {setcmykcolor rec fill} bind def
              /colrecstx* {setcmykcolor rec stroke} bind def
             } if
xcolorl 1 eq {/tfnx* {0 setgray} def
              /tfwx* {1 setgray} def
              /colrecfix* {setgray rec fill} bind def
              /colrecstx* {setgray rec stroke} bind def
             } if
xcolorl 2 eq {/tfnx* {1 1 1 0 setcmykcolor} def
              /tfwx* {0 0 0 0 setcmykcolor} def
              /colrecfix* {setcmykcolor rec fill} bind def
              /colrecstx* {setcmykcolor rec stroke} bind def
             } if
xcolorl 3 eq {/tfnx* {0 0 0 setrgbcolor} def
              /tfwx* {1 1 1 setrgbcolor} def
              /colrecfix* {setrgbcolor rec fill} bind def
              /colrecstx* {setrgbcolor rec stroke} bind def
             } if


%pchartl 1 eq {%pchartl=1; 'AL0X'Y10-7N_AL09_JSO_3P2A.EPS; test hard and software

%font0309B.ps***********************************************
%only T*G, R*G, T*M, R*M, jshowTG, with T*M
/RM {300 /Times-Roman FS} bind def
/RG {350 /Times-Roman FS} bind def

/RIM {300 /Times-Italic FS} bind def
/RIG {350 /Times-Italic FS} bind def

/RBM {300 /Times-Bold FS} bind def
/RBG {350 /Times-Bold FS} bind def

/RBIM {300 /Times-BoldItalic FS} bind def
/RBIG {350 /Times-BoldItalic FS} bind def

/TM {300 /Times-ISOL1 FS} bind def
/TG {350 /Times-ISOL1 FS} bind def

/TIM {300 /TimesI-ISOL1 FS} bind def
/TIG {350 /TimesI-ISOL1 FS} bind def

/TBM {300 /TimesB-ISOL1 FS} bind def
/TBG {295 /TimesB-ISOL1 FS} bind def

/TBIM {300 /TimesBI-ISOL1 FS} bind def
/TBIG {350 /TimesBI-ISOL1 FS} bind def

/SM {300 /Symbol FS} bind def
/SG {350 /Symbol FS} bind def

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

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

72 90 translate
0.01 MM dup scale
20 setlinewidth
1.0 setgray
0 0 moveto 12000 0 rlineto 0 8300 rlineto
          -12000 0 rlineto closepath fill
0.0 setgray
0 0 moveto 12000 0 rlineto 0 8300 rlineto
          -12000 0 rlineto closepath stroke
/serverL1 (http://130.149.60.45/~farbmetrik/) def
/serverL2 (http://farbe.li.tu-berlin.de/) def
/serverL3 (http://standards.iso.org/iso/9241/306/ed-2/) def
/serverLA serverL3 def
/serverLB serverL2 def
/serverLC serverL2 def
TM
0 setgray
100 -260 moveto
(Teil 3, ) showde
(part 3, ) showen
(parte 3, ) showes
(la part 3, ) showfr
(la parte 3, ) showit
(artikkelen 3, ) showjp

RM
9000 -260 moveto (AI170-7) show
Txx show (: ) show
deintp  cvishow
colorml cvishow
xcolorl cvishow
xchartl cvishow
pchartl cvishow

/x20 100 def
/y20 7200 def
/yd 320 def
x20 y20 yd 2.3 mul add moveto
RBM
(Dokumentation von Dateiformat, Hard- und Software) showde
TBM
( f\374r diese Pr\374fung:) showde
(Documentation of file format, hardware and software) showen
( for this test:) showen
(Formato de archive de documentati\363n, hardware y software) showes
( para esta prueba:) showes
(Format de fichier de documentation, de hardware et software) showfr
( pour ce test:) showfr
(Documentazione del formato file, hardware e software) showit
( per il test:) showit
(Documentasjion av filformat, maskinvare og programvare) showjp
( for denne testen:) showjp

x20 y20 yd add moveto
RBM
(PDF-Datei:) showde
(PDF file:) showen
(Archivo PDF:) showes
(Fichier PDF:) showfr
(File PDF:) showit
(PDF-fil:) showjp

RM
x20 y20 yd 0 mul add moveto
serverLA show (AI17/AI17) show (F0P) show (X) show %
(_CY) show 8 xchart xchartd idiv sub cvishow (_) show 1 cvishow
(.PDF) show
x20 9000 add y20 yd 0 mul add moveto
TBM
(unterstreiche: Ja/Nein) showde
(    underline:  Yes/No) showen
(     underline:  Si/No) showes
(   souligner:  Qui/Non) showfr
(   sottolineare: Si/No) showit
(    underline:  Ja/Nei) showjp

x20 y20 yd 1 mul sub moveto
RBM
(PS-Datei:) showde
(PS file:) showen
(Archivo PS:) showes
(Fichier PS:) showfr
(File PS:) showit
(PS-fil:) showjp

RM
x20 y20 yd 2 mul sub moveto
serverLA show (AI17/AI17) show (F0P) show (X) show %
(_CY) show 8 xchart xchartd idiv sub cvishow (_) show 1 cvishow
(.PS) show
x20 9000 add y20 yd 2 mul sub moveto
TBM
(unterstreiche: Ja/nein) showde
(    underline:  Yes/No) showen
(     underline:  Si/No) showes
(    souligner  Qui/Non) showfr
(   sottolineare: Si/No) showit
(    underline:  Ja/Nei) showjp

x20 y20 yd 3.25 mul sub moveto
RBM
(benutztes Rechner-Betriebssystem:) showde
TBM
(Used computer operating system:) showen
(Systema operativo inform\341tico usado:) showes
(Utilis\351 le syst\350me d'exploitation informatique:) showfr
(Utilizzate il sistema operativo del computer:) showit
RBM
(Brukt pc-operavsystemet:) showjp

x20 y20 yd 4.25 mul sub moveto
TM
(nur eines von Windows/Mac/Unix/anderes und Version:) showde
(either one of Windows/Mac/Unix/other and version:) showen
(undo de Windows/Mac/Unix/otros y version:) showes
(l'un de Windows/Mac/Unix/autres et version:) showfr
(undo di Windows/Mac/Unix/altri e versioni:) showit
(enten en av Windows/Mac/Unix/andre og versjoner:) showjp

(.................................) show

x20 y20 yd 5.50 mul sub moveto
TBM
(Die Beurteilung ist f\374r die Ausgabe:) showde
(This evaluation is for the output:) showen
(Esta evaluaci\363n es para la salida:) showes
(Cette \351valuation est pour la sortie:) showfr
(Questa valutazione \350 per l'uscita:) showit
(Denna vurderingen er for utdata:) showjp

x20 4900 add y20 yd 5.50 mul sub moveto
TBM
(unterstreiche: Monitor/Datenprojektor/Drucker) showde
(underline: monitor/data projector/printer) showen
(subrayar: monitor/proyector de datos/impresora) showes
(souligner: monitor/projecteur de donn\351es/imprimante) showfr
(evidenziare: monitor/projettore dati/stampante) showit
(underline: monitor/data projektor/skriver) showjp

x20 y20 yd 6.50 mul sub moveto
TM (Ger\344te) showde
RM (-Modell, -Treiber und -Version:) showde
TM
(Device model, driver and version:) showen
(El modelo de dispositivo, el controlador y la versi\363n:) showes
(Type de p\351riph\351rique, pilote et version:) showfr
(Modello di periferica, il driver e la versione in uso:) showit
(Enhetsmodellen, driver og versjon:) showjp

(......................) show

x20 y20 yd 7.75 mul sub moveto
RBM
(Ausgabe mit PDF/PS-Datei:) showde
(output with PDF/PS-file:) showen
(salida con archivos PDF/PS:) showes
(sortie avec fichier PDF/PS:) showfr
(uscita con file PDF/PS:) showit
(utgang med PDF/PS-fil:) showjp

x20 8000 add y20 yd 7.75 mul sub moveto
RBM
(unterstreiche: PDF/PS-Datei) showde
(underline:   PDF/PS file) showen
(underline:   archivos PDF/PS) showes
(souligner:   fichier PDF/PS) showfr
(sottolineare: file PDF/PS) showit
(underline:   PDF/PS-fil) showjp

x20 y20 yd 8.75 mul sub moveto
TBM (F\374r) showde
RBM ( Ausgabe mit PDF-Datei AI17) showde
(For output with PDF file AI17) showen
(Para la salida de archivos PDF AI17) showes
(Pour le sorties avec fichier PDF AI17) showfr
(Per l'uscita con PDF file AI17) showit
(For utgang med PDF-fil AI17) showjp

(F0P) show (X) show %
(_CY) show 8 xchart xchartd idiv sub cvishow (_) show 1 cvishow
(.PDF) show
/xshif 500 def

x20 xshif add y20 yd 9.75 mul sub moveto
RM (entweder PDF-Dateitransfer "download, copy" nach PDF-) showde
TM (Ger\344t) showde
RM
(either PDF-file transfer "download, copy" to PDF device) showen
(transferencia de archivos PDF "download, copy" para dispositivo PDF) showes
(tranfert de fichier PDF "download, copy" \340 l'appareil PDF) showfr
(entrambi i file PDF transferimento "download, copy" al dispositivo PDF) showit
(enten PDF fil overfore "download, copy" til enheben PDF) showjp
(.................................) show

x20 xshif add y20 yd 10.75 mul sub moveto
RM
(oder mit Rechnersystem-Interpretation durch) showde
(or with computer system interpretation by) showen
TM
(o con el equipo del interpretati\363n del sistema) showes
(ou avec l'interpr\351tation du syst\350me informatique) showfr
(o con il sistema di computer interpretazione) showit
(ellen med computer system tolkning) showjp
RM
( "Display-PDF":) show
(.................................) show

x20 xshif add y20 yd 11.75 mul sub moveto
RM
(oder mit Software, z. B. Adobe-Reader/-Acrobat und Version:) showde
(or with software. e. g. Adobe-Reader/-Acrobat and version:) showen
(o con el software. e. g. Adobe-Reader/-Acrobat y versi\363n:) showes
(ou avec une software. e. g. Adobe-Reader/-Acrobat et version:) showfr
(o con il software. e. g. Adobe-Reader/-Acrobat e versione:) showit
(eller med programvare. e. g. Adobe-Reader/-Acrobat og versjon:) showjp
(.................................) show

x20 xshif add y20 yd 12.75 mul sub moveto
RM
(oder mit Software, z. B. Ghostscript und Version:) showde
(or with software e. g. Ghostscript and version:) showen
(o con el software e. g. Ghostscript y versi\363n:) showes
(ou avec une software e. g. Ghostscript et version:) showfr
(o con il software e. g. Ghostscript e versione:) showit
(eller med progvare e. g. Ghostscript og versjon:) showjp
(.................................) show


x20 y20 yd 13.75 mul sub moveto
TBM (F\374r) showde
RBM ( Ausgabe mit PS-Datei AI17) showde
(For output with PS file AI17) showen
(Para la salida de archivos PS AI17) showes
(Pour le sorties avec fichier PS AI17) showfr
(Per l'uscita con PS file AI17) showit
(For utgang med PS-fil AI17) showjp

(F0P) show (X) show %
(_CY) show 8 xchart xchartd idiv sub cvishow (_) show 1 cvishow
(.PS) show
x20 xshif add y20 yd 14.75 mul sub moveto

RM (entweder PS-Dateitransfer "download, copy" nach PS-) showde
TM (Ger\344t) showde
RM
(either PS-file transfer "download, copy" to PS device) showen
(transferencia de archivos PS "download, copy" para dispositivo PS) showes
(tranfert de fichier PS "download, copy" \340 l'appareil PS) showfr
(entrambi i file PS transferimento "download, copy" al dispositivo PS) showit
(enten PS fil overfore "download, copy" til enheben PS) showjp
(.................................) show

x20 xshif add y20 yd 15.75 mul sub moveto
RM
(oder mit Rechnersystem-Interpretation durch) showde
(or with computer system interpretation by) showen
TM
(o con el equipo del interpretati\363n del sistema) showes
(ou avec l'interpr\351tation du syst\350me informatique) showfr
(o con il sistema di computer interpretazione) showit
(ellen med computer system tolkning) showjp
RM
( "Display-PS":) show
(.................................) show

x20 xshif add y20 yd 16.75 mul sub moveto
RM
(oder mit Software, z. B. Ghostscript und Version:) showde
(or with software e. g. Ghostscript and version:) showen
(o con el software e. g. Ghostscript y versi\363n:) showes
(ou avec une software e. g. Ghostscript et version:) showfr
(o con il software e. g. Ghostscript e versione:) showit
(eller med progvare e. g. Ghostscript og versjon:) showjp
(.................................) show

x20 xshif add y20 yd 17.75 mul sub moveto
RM
(oder mit Software, z. B. Mac-Yap und Version:) showde
(or with software e. g. Mac-Yap and version:) showen
(o con el software e. g. Mac-Yap y versi\363n:) showes
(ou avec une software e. g. Mac-Yap et version:) showfr
(o con il software e. g. Mac-Yap e versione:) showit
(eller med progvare e. g. Mac-Yap og versjon:) showjp
(.................................) show

x20 y20 yd 19 mul sub moveto
TM
(Spezielle Anmerkungen:) showde
(Special remarks:) showen
(Comemtarios especiales:) showes
(Remarques sp\351ciales:) showfr
(Osservazioni particolari:) showit
(Specielle merknader:) showjp

( z. B. Ausgabe von Format Landschaft (L)) showde
( e. g. output of Landscape (L)) showen
( e. g. la salida del paisaje (L)) showes
( e. g. la production de paysage (L)) showfr
( e. g. uscita del paesaggio (L)) showit
( e. g. utgang av liggende (L)) showjp

x20 y20 yd 20 mul sub moveto
(......................................................................) show
x20 y20 yd 21 mul sub moveto
(......................................................................) show
x20 y20 yd 22 mul sub moveto
(......................................................................) show

%} if %pchartl=1; 'AL0X'Y10-7N_AL09_JSO_3P2A.EPS; test hard and software



showpage
grestore

%} for %pchartl=0,2

%} for %xchartl=0,7

%} for %xcolorl=0,3

%} for %colorml=0,1

%%Trailer

%%EndDocument
EndEPSF grestore gsave

BeginEPSF  86 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 AI170-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     (AI170-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
                                        
BeginEPSF
161 MM 8 MM 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 AI171-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     (AI171-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 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 AI171-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     (AI171-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 8 MM sub 108 MM 1 MM add pchart 2 eq {30 MM sub} if 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 AI171-3N.EPS 'AL0X'Y11-3N_AL17_JSO.EPS 20190301
%%BoundingBox: 70 82 430 360

%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: http://farbe.li.tu-berlin.de/AI17/AI17.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:2019030112000)
 /ModDate (D:20190301112000)
/DOCINFO pdfmark13
[ /View [ /FitB ]
/DOCVIEW pdfmark13
%END  PDFDE011

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def /str {8 string } bind def
/A4querL {598 0 translate 90 rotate} def

/languagelevel where {pop languagelevel} {1} ifelse
                     /PSL12 exch def
/dictende {counttomark 2 idiv dup dict begin {def}
           repeat pop currentdict end} bind def

/Times-Roman findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end

/Times-ISOL1 exch definefont pop

/Times-Italic findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end

/TimesI-ISOL1 exch definefont pop

/Times-Bold findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end

/TimesB-ISOL1 exch definefont pop

/Times-BoldItalic findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end

/TimesBI-ISOL1 exch definefont pop

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

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

/cvishow {0.5 add cvi 6 string cvs show} def
/cvsshow1 {0.05 add 10 mul cvi 0.1 mul 7 string cvs show} def
/cvsshow2 {0.005 add 100 mul cvi 0.01 mul 7 string cvs show} def
/cvsshow3 {0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show} def

%%EndProlog
gsave

/lanind 1 def
/lantex [(G) (E) (S) (N) (I) (J) (M)] def
/showde {0 lanind eq {show} {pop} ifelse} bind def
/showen {1 lanind eq {show} {pop} ifelse} bind def
/showfr {2 lanind eq {show} {pop} ifelse} bind def
/showes {3 lanind eq {show} {pop} ifelse} bind def
/showit {4 lanind eq {show} {pop} ifelse} bind def
/showjp {5 lanind eq {show} {pop} ifelse} bind def
/showea {1 lanind le {show} {pop} ifelse} bind def
/showm  {6 lanind eq {show} {pop} ifelse} bind def

%default values
/lanind1 01 def /lanind2 01 def /lanindd 01 def /lanindm 01 def
/colorm1 01 def /colorm2 01 def /colormd 01 def /colormm 01 def
/deintp1 00 def /deintp2 00 def /deintpd 01 def /deintpm 01 def
/xcolor1 03 def /xcolor2 03 def /xcolord 01 def /xcolorm 01 def
/xchart1 00 def /xchart2 00 def /xchartd 01 def /xchartm 01 def
/pchart1 01 def /pchart2 01 def /pchartd 01 def /pchartm 01 def
/colsep1 00 def /colsep2 00 def /colsepd 01 def /colsepm 01 def
/pmetam1 00 def /pmetam2 00 def /pmetamd 01 def /pmetamm 01 def
/xchart3 00 def /xchart4 00 def /xchart5 00 def

%usual change of default values
/lanindf where {pop /lanind1 lanindf  def /lanind2 lanindf  def
                    /lanindd laninddf def /lanindm lanindmf def} if
/colormf where {pop /colorm1 colormf  def /colorm2 colormf  def
                    /colormd colormdf def /colormm colormmf def} if
/deintpf where {pop /deintp1 deintpf  def /deintp2 deintpf  def
                    /deintpd deintpdf def /deintpm deintpmf def} if
/xcolorf where {pop /xcolor1 xcolorf  def /xcolor2 xcolorf  def
                    /xcolord xcolordf def /xcolorm xcolormf def} if
/xchartf where {pop /xchart1 xchartf  def /xchart2 xchartf  def
                    /xchartd xchartdf def /xchartm xchartmf def} if
/pchartf where {pop /pchart1 pchartf  def /pchart2 pchartf  def
                    /pchartd pchartdf def /pchartm pchartmf def} if
/colsepf where {pop /colsep1 colsepf  def /colsep2 colsepf  def
                    /colsepd colsepdf def /colsepm colsepmf def} if
/pmetamf where {pop /pmetam1 pmetamf  def /pmetam2 pmetamf  def
                    /pmetamd pmetamdf def /pmetamm pmetammf def} if
/xchart3f where {pop /xchart3 xchart3f def} if
/xchart4f where {pop /xchart4 xchart4f def} if
/xchart5f where {pop /xchart5 xchart5f def} if

/lanind lanind1 def %
/colorm colorm1 def %
/deintp deintp1 def %
/xcolor xcolor1 def %
/xchart xchart1 def %
/pchart pchart1 def %
/colsep colsep1 def %
/pmetam pmetam1 def %

/GSS$ where {pop /LSS$ GSS$ def}
            {/LSS$ (1) def} ifelse
/GSC$ where {pop /LSC$ GSC$ def}
            {/LSC$ (N) def} ifelse
/GSX$ where {pop /LSX$ GSX$ def}
            {/LSX$ (0) def} ifelse
/GSY$ where {pop /LSY$ GSY$ def}
            {/LSY$ (0) def} ifelse
/GEX$ where {pop /LEX$ GEX$ def}
            {/LEX$ (P.PS./PDF) def} ifelse
/GEY$ where {pop /LEY$ GEY$ def}
            {/LEY$ (P.DAT) def} ifelse
/IMES where {pop %/IMES IMES def
            }
            {/IMES 0 def} ifelse
      
/colorml colorm def
%0 1 1 {/colorml exch def %colorml=0,1

/xcolorl xcolor def
%0 1 3 {/xcolorl exch def %xcolorl=0,3

/xchartl xchart def
%0 1 7 {/xchartl exch def %xchartl=0,7

/pchartl pchart def
%0 1 2 {/pchartl exch def %pchartl=0,2

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

gsave

xcolorl 0 eq {/tfnx* {0 0 0 1 setcmykcolor} def
              /tfwx* {0 0 0 0 setcmykcolor} def
              /colrecfix* {setcmykcolor rec fill} bind def
              /colrecstx* {setcmykcolor rec stroke} bind def
             } if
xcolorl 1 eq {/tfnx* {0 setgray} def
              /tfwx* {1 setgray} def
              /colrecfix* {setgray rec fill} bind def
              /colrecstx* {setgray rec stroke} bind def
             } if
xcolorl 2 eq {/tfnx* {1 1 1 0 setcmykcolor} def
              /tfwx* {0 0 0 0 setcmykcolor} def
              /colrecfix* {setcmykcolor rec fill} bind def
              /colrecstx* {setcmykcolor rec stroke} bind def
             } if
xcolorl 3 eq {/tfnx* {0 0 0 setrgbcolor} def
              /tfwx* {1 1 1 setrgbcolor} def
              /colrecfix* {setrgbcolor rec fill} bind def
              /colrecstx* {setrgbcolor rec stroke} bind def
             } if

%pchartl 1 eq {%pchartl=1; Y11-3N_AL19_JSO_2P2S.EPS; table B4/C4 to B6/C6

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

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

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

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

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

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

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

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

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

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

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

/iout 5 def %iout=0_2:CMY,NZW, iout=3-5: OLV,NZW
/ioutT [(N) (Z) (W) (N) (Z) (W)] def
/ioutG [(Schwarz) (Grau) (Wei\337) (Schwarz) (Grau) (Wei\337)] def
/ioutE [(Black) (Grey) (White) (Black) (Grey) (White)] def
/ioutS [(Negro) (Gris) (Blanco) (Negro) (Gris) (Blanco)] def
/ioutF [(Noir) (Gris) (Blanc) (Noir) (Gris) (Blanc)] def
/ioutI [(Nero) (Grigio) (Bianco) (Nero) (Grigio) (Bianco)] def
/ioutN [(svart) (gra) (hvit) (svart) (gra) (hvit)] def

/cvishow {cvi 6 string cvs show} def

72 90 translate
0.02 MM dup scale
15 setlinewidth

RV
0 setgray
0 -120 moveto
(Teil 2, ) showde
(part 2, ) showen
(parte 2, ) showes
(la part 2, ) showfr
(la parte 2, ) showit
(artikkelen 2, ) showjp

4500 -120 moveto
(AI171-3N) show
Txx show (: ) show
deintp  cvishow
colorml cvishow
xcolorl cvishow
xchartl cvishow
pchartl cvishow

1 setgray
0 0  moveto 6000 0 rlineto 0 4200 rlineto
           -6000 0 rlineto closepath fill
0 setgray
0 0  moveto 6000 0 rlineto 0 4200 rlineto
           -6000 0 rlineto closepath stroke

/ix1    50 def %1
/ix2  1600 def %2
/ix3  5100 def %3

/ix21 2600 def %W-R
/ix22 3300 def %W-G
/ix23 4000 def %W-B
/ix24 4700 def %W-N
/ix25 5700 def %W-Z

/iyd   145 def          %line difference

/ix20 0020 def %Text and colour W-O etc.
/ix21 1200 def %Question
/ix22 3800 def %of 16 steps
/ix23 5200 def %Yes/No

/ix2i 3 array def
ix2i 0 ix21 put
ix2i 1 ix22 put
ix2i 2 ix23 put

/iyt2 4080 def                 %Recognition frequency = 2x top + 8 lines
/iy02 iyt2 iyd 0.0 mul sub def %RF
/iy12 iyt2 iyd 1.0 mul sub def

/iy22 iyt2 iyd  2.1 mul sub def %W-O
/iy32 iyt2 iyd  3.1 mul sub def 

/iy42 iyt2 iyd  4.2 mul sub def %W-L
/iy52 iyt2 iyd  5.2 mul sub def

/iy62 iyt2 iyd  6.3 mul sub def %W-V
/iy72 iyt2 iyd  7.3 mul sub def

/iy82 iyt2 iyd  8.4 mul sub def %W-N
/iy92 iyt2 iyd  9.4 mul sub def

/iy2i 4 array def
iy2i 0 iy22 put
iy2i 1 iy42 put
iy2i 2 iy62 put
iy2i 3 iy82 put

ix20 iy02 moveto
TBV
(Pr\374fung der 16 visuell gleichabst\344ndigen ) showde
(Buntstufen der Farbreihen ) showde
(Test of 16 visually equally spaced steps of the colour rows ) showen
(Prueba de 16 visualmente pasos equidistantes ) showes
( de la series de color ) showes
(Test de 16 \351tapes espac\351es \351galement visuellement ) showfr
(de a s\351rie de coleurs) showfr
(Prova di 16 visivamente ugualmente distanziate le fasi ) showit
(della serie a colori) showit
(Test av 16 visuelt like stor avstand mellom merkeplasseringene ) showjp
RBV
(trinn av serien) showjp

iout 2 le {RBIV ioutT iout get show (-C) show (d) jshowTV (, ) show
           RBIV ioutT iout get show (-M) show (d) jshowTV (, ) show
           RBIV ioutT iout get show (-Y) show (d) jshowTV}
          {RBIV ioutT iout get show (-R) show (d) jshowTV (, ) show
           RBIV ioutT iout get show (-G) show (d) jshowTV (, ) show
           RBIV ioutT iout get show (-B) show (d) jshowTV} ifelse
TBV
( und ) showde
(, and ) showen
( y ) showes
( et ) showfr
( e ) showit
( og ) showjp

RBIV (W-N ) show

ix20 iy12 moveto 
TBV
(nach Bild ) showde
(according to picture ) showen
(seg\372n el gr\341fico ) showes
(selon graphic ) showfr
(secondo un grafico ) showit
(i henhold til grafisk ) showjp

iout 2 le {(B4) show}{(D4) show} ifelse
ioutT iout get show TxS show Txx jshowTV

ix20 iy22 moveto
iout 2 le {RBV ioutT iout get show RBIV (-C) show (d ) jshowTV}
          {RBV ioutT iout get show RBIV (-R) show (d ) jshowTV} ifelse

ix20 iy22 iyd sub moveto
iout 2 le {TV ioutG iout get showde RV ( - Cyanblau:) showde
           RV ioutE iout get showen ( - Cyanblue:) showen
           RV ioutS iout get showes ( - Cian azul:) showes
           RV ioutF iout get showfr ( - Blue cyan:) showfr
           RV ioutI iout get showit ( - Blu ciano:) showit
           RV ioutN iout get showjp ( - Cyan bla:) showjp}
          {TV ioutG iout get showde RV ( - Rot:) showde
           RV ioutE iout get showen ( - Red:) showen
           RV ioutS iout get showes ( - Rojo:) showes
           RV ioutF iout get showfr ( - Rouge:) showfr
           RV ioutI iout get showit ( - Rosso:) showit
           RV ioutN iout get showjp ( - Rod:) showjp
          } ifelse

ix20 iy42 moveto
iout 2 le {RBV ioutT iout get show RBIV (-M) show (d ) jshowTV}
          {RBV ioutT iout get show RBIV (-G) show (d ) jshowTV} ifelse

ix20 iy42 iyd sub moveto
iout 2 le {TV ioutG iout get showde RV ( - Magentarot:) showde
           RV ioutE iout get showen ( - Magentared:) showen
           RV ioutS iout get showes ( - Rojo magenta:) showes
           RV ioutF iout get showfr ( - Rouge Magenta:) showfr
           RV ioutI iout get showit ( - Rosso magenta:) showit
           RV ioutN iout get showjp ( - Magenta rod:) showjp}
          {TV ioutG iout get showde RV ( - ) showde TV (Gr\374n:) showde
           RV ioutE iout get showen ( - Green:) showen
           RV ioutS iout get showes ( - Verde:) showes
           RV ioutF iout get showfr ( - Vert:) showfr
           RV ioutI iout get showit ( - Verde:) showit
           RV ioutN iout get showjp ( - Gronn:) showjp
          } ifelse

ix20 iy62 moveto
iout 2 le {RBV ioutT iout get show RBIV (-Y) show (d) jshowTV}
          {RBV ioutT iout get show RBIV (-B) show (d) jshowTV} ifelse

ix20 iy62 iyd sub moveto
iout 2 le {RV ioutG iout get showde RV ( - Gelb:) showde
           RV ioutE iout get showen ( - Yellow:) showen
           RV ioutS iout get showes ( - Amarillo:) showes
           RV ioutF iout get showfr ( - Jaune:) showfr
           RV ioutI iout get showit ( - Giallo:) showit
           RV ioutN iout get showjp ( - Gul:) showjp}

          {RV ioutG iout get showde RV ( - Blau:) showde
           RV ioutE iout get showen ( - Blue:) showen
           RV ioutS iout get showes ( - Azul:) showes
           RV ioutF iout get showfr ( - Bleu:) showfr
           RV ioutI iout get showit ( - Blu:) showit
           RV ioutN iout get showjp ( - Bla:) showjp
          } ifelse

ix20 iy82 moveto
RBIV
(W-N ) show
ix20 iy82 iyd sub moveto
TV (Wei\337) showde RV ( - Schwarz:) showde
(White - Black:) showen
(Bianco - Negro:) showes
(Blanc - Noir:) showfr
(Bianco - Nero:) showit
(Hvit - Svart:) showjp

0 1 3 {/j exch def %j=0,3
0 1 2 {/i exch def %i=0,2

i 0 eq {%i=0
ix2i i get iy2i j get moveto
RV
(Sind alle Stufen unterscheidbar?) showde
(Are all the 16 steps distinguishable?) showen
(Son todos los 16 pasos discriminable?) showes
(Sont tout les 16 palier discriminable?) showfr
(Sont tutti i 16 pasos discriminabile?) showit
(Alle de 16 trinnene discriminable?) showjp

5500 iy2i j get moveto
TBV
(Ja/Nein) showde
(Yes/No) showen
(Si/No) showes
(Qui/Non) showfr
(Si/No) showit
(Ja/Nei) showjp

ix2i i get iy2i j get iyd sub moveto
TV
(Wenn Nein: Wieviel Stufen sind unterscheibar?) showde
(If No: How many steps can be distinguished?) showen
(Si No: ?Qu\341ntos pasos discriminable?) showes
(If Non: Combien de paliers sont discriminable?) showfr
(Se No: quanti sono i passaggi discriminabile?) showit
(Hvis Nei: Hvor mange trinn er discriminable?) showjp

} if %i=0

i 1 eq {%i=1
ix2i i get iy2i j get iyd sub moveto
TV
(von gegebenen 16 Stufen:) showde
(of the given 16 steps:) showen
(de los 16 pasos:) showes
(compte tenu des 16 paliers:) showfr
(del dato 16 passi:) showit
(av gitt 16 trinn:) showjp
} if %i=1

i 2 eq {%i=2
5350 iy2i j get iyd sub moveto
TBV
(......  Stufen) showde
(......  Steps) showen
(......  pasos) showes
(......  paliers) showfr
(......  passi) showit
(......  trinn) showjp

} if %i=2

} for %i=0,3
} for %j=0,3

%********************************************
/ix30 0020 def %Question
/ix31 0200 def %LR size
/ix32 1200 def %letters
/ix33 2000 def %Ring N
/ix34 3000 def %Ring O
/ix35 4000 def %Ring L
/ix36 5000 def %Ring V

/ix3i 7 array def
ix3i 0 ix30 put
ix3i 1 ix31 put
ix3i 2 ix32 put
ix3i 3 ix33 put
ix3i 4 ix34 put
ix3i 5 ix35 put
ix3i 6 ix36 put

/iyt3 2550 def                 %Tests of characters = 2x top + 5 lines

/iy13 iyt3 iyd 0.0 mul sub def %TC
/iy23 iyt3 iyd 1.0 mul sub def
/iy33 iyt3 iyd 2.1 mul sub def %Relative size
/iy43 iyt3 iyd 3.1 mul sub def %10
/iy53 iyt3 iyd 4.1 mul sub def %08
/iy63 iyt3 iyd 5.1 mul sub def %06
/iy73 iyt3 iyd 6.1 mul sub def %04

/iy3i 7 array def
iy3i 0 iy13 put
iy3i 1 iy23 put
iy3i 2 iy33 put
iy3i 3 iy43 put
iy3i 4 iy53 put
iy3i 5 iy63 put
iy3i 6 iy73 put

ix30 iy13 moveto
TBV
(Pr\374fung von Schrift und Landoltringen in vier Gr\366\337en ) showde
RBV
(Test of characters and Landolt-rings in four sizes ) showen
(Prueba de caracteres y anillos de Landolt en cuatro tamanos ) showes
TBV
(Test de caract\350res et les anneaux de Landolt en quatre tailles ) showfr
(Il test de caratteri e gli anelu di Landolt in quatro dimensione ) showit
(Test av tengn og ringer av Landolt i fire storrelser ) showjp

TBV
(nach Bild ) showde
(according to picture ) showen
(seg\372n el gr\341fico ) showes
(selon graphic ) showfr
(secondo un grafico ) showit
(i henhold til grafisk ) showjp

iout 2 le {(B5) show} {(D5) show} ifelse
ioutT iout get show Txx ishowTV

ix30 iy23 moveto
TV
(Ist die Erkennung > 50% f\374r Schriftzeichen ) showde
(Is the recognition > 50% for letters ) showen
(Es el reconocimiento > 50% para cartas ) showes
(C'est la reconnaisance > 50% pour les lettres ) showfr
(\310 le riconocimento > 50% per lettere ) showit
(Er den anerkjennelsen > 50% for bokstaver ) showjp

RV
((mindestens 17 von 32)? ) showde
((17 of 32 at least)? ) showen
((17 de 32 al menos)? ) showes
((17 de 32 au moins)? ) showfr
((17 di 32 almento)? ) showit
((17 av 32 minst)? ) showjp

RV
(, and for Landolt-rings (minimum 5 of 8)?) showen
TV
( und f\374r Landoltringe (min. 5 von 8)?) showde
( y para anillos de Landolt (5 de 8 al menos)?) showes
( et pour anneaux de Landolt (5 de 8 au moins)?) showfr
( e per gli anelli di Landolt (5 di 8 almento)?) showit
( or for ringer av Landolt (5 av 8 minst)?) showjp

ix31 iy33 moveto
TBV
(Relative Gr\366\337e) showde
(Relative size) showen
(Tarmano relativo) showes
(Taille relative) showfr
(Dimensione relativa) showit
(Relativ storrelse) showjp

ix32 iy33 moveto
TBV
(Schriftzeichen) showde
(Letters) showen
(Cartas) showes
(Des lettres) showfr
(Lettere) showit
(Brev) showjp

ix33 iy33 moveto
TBV
(Ringe ) showde
(Rings ) showen
(Annilos ) showes
(Anneaux ) showfr
(Anelli ) showit
(Ringer ) showjp
TBIV
(N) show

ix34 iy33 moveto
TBV
(Ringe ) showde
(Rings ) showen
(Annilos ) showes
(Anneaux ) showfr
(Anelli ) showit
(Ringer ) showjp
 
iout 2 le {TBIV (C) show (d) jshowTV}
          {TBIV (R) show (d) jshowTV} ifelse

ix35 iy33 moveto
TBV
(Ringe ) showde
(Rings ) showen
(Annilos ) showes
(Anneaux ) showfr
(Anelli ) showit
(Ringer ) showjp
 
iout 2 le {TBIV (M) show (d) jshowTV}
          {TBIV (G) show (d) jshowTV} ifelse

ix36 iy33 moveto
TBV
(Ringe ) showde
(Rings ) showen
(Annilos ) showes
(Anneaux ) showfr
(Anelli ) showit
(Ringer ) showjp
 
iout 2 le {TBIV (Y) show (d) jshowTV}
          {TBIV (B) show (d) jshowTV} ifelse

/isize [( ) ( ) ( ) (10) (  8) (  6) (  4)] def

3 1 6 {/j exch def %j=3,6
1 1 6 {/i exch def %i=1,6
ix3i i get iy3i j get moveto
TV
i 1 eq {isize j get show} if
i 2 ge {%i>=2
(Ja/Nein) showde
(Yes/No) showen
(Si/No) showes
(Qui/Non) showfr
(Si/No) showit
(Ja/Nei) showjp
       } if %i>=2
} for %i=1,6
} for %j=3,6

%***************************************************
/ix40 0020 def %Question
/ix41 0100 def %CR W-O
/ix42 0700 def %Y/N
/ix43 1600 def %CR W-L
/ix44 2200 def %Y/N
/ix45 3100 def %CR W-V
/ix46 3700 def %Y/N
/ix47 4600 def %CR W-N
/ix48 5200 def %Y/N

/ix4i 9 array def
ix4i 0 ix40 put
ix4i 1 ix41 put
ix4i 2 ix42 put
ix4i 3 ix43 put
ix4i 4 ix44 put
ix4i 5 ix45 put
ix4i 6 ix46 put
ix4i 7 ix47 put
ix4i 8 ix48 put

/iyt4 1500 def                 %Recognition frequency = 2x top + 8 lines
/iy04 iyt4 iyd 0.0 mul sub def %RF
/iy140 iyt4 iyd 1.0 mul sub def
/iy141 iyt4 iyd 2.0 mul sub def

/iy24 iyt4 iyd  3.1 mul sub def %CR
/iy34 iyt4 iyd  4.1 mul sub def %BR
/iy44 iyt4 iyd  5.1 mul sub def %0-1
/iy54 iyt4 iyd  6.1 mul sub def %7-8
/iy64 iyt4 iyd  7.1 mul sub def %E-F
/iy74 iyt4 iyd  8.1 mul sub def %2-0
/iy84 iyt4 iyd  9.1 mul sub def %8-6
/iy94 iyt4 iyd 10.1 mul sub def %F-D

/iy5i 6 array def
iy5i 0 iy44 put
iy5i 1 iy54 put
iy5i 2 iy64 put
iy5i 3 iy74 put
iy5i 4 iy84 put
iy5i 5 iy94 put

ix40 iy04 moveto
TBV
(Pr\374fund der ) showde
RBV
(Erkennbarkeits-Frequenz der Landolt-Ringe ) showde
(Test of the recognition frequency of the Landolt rings ) showen
(Prueba de reconocimiento de la frecuencia de los anillos de Landolt ) showes
TBV
(Test de la recognnaissance de la fr\351quence de l'anneaux de Landolt ) showfr
(Il test del riconoscimento delle frequenza degli anelli di Landolt ) showit
(Test av anerkjennelse av frkvensen til Landolt ringer ) showjp

iout 2 le {RBIV ioutT iout get show (-C) show (d) jshowTV (, ) show
           RBIV ioutT iout get show (-M) show (d) jshowTV (, ) show
           RBIV ioutT iout get show (-Y) show (d) jshowTV}
          {RBIV ioutT iout get show (-R) show (d) jshowTV (, ) show
           RBIV ioutT iout get show (-G) show (d) jshowTV (, ) show
           RBIV ioutT iout get show (-B) show (d) jshowTV} ifelse

TBV
( und ) showde
(, and ) showen
( y ) showes
( et ) showfr
( e ) showit
( og ) showjp

RBIV (W-N ) show

ix40 iy140 moveto
TBV
(nach Bild ) showde
(according to picture ) showen
(seg\372n el gr\341fico ) showes
(selon graphic ) showfr
(secondo un grafico ) showit
(i henhold til grafisk ) showjp

iout 2 le {(B6) show} {(D6) show} ifelse
ioutT iout get show Txx jshowTV

TBV
( und ) showde
(, and ) showen
( y ) showes
( et ) showfr
( e ) showit
( og ) showjp

iout 2 le {(B7) show} {(D7) show} ifelse
ioutT iout get show Txx jshowTV

ix40 iy141 moveto
RV
(Ist die Erkennbarkeits-Frequenz der Landolt-Ringe ) showde
(Is the recognition frequency of the Landolt rings ) showen
(Es el reconocimiento de los anillos de Landolt ) showes
(C'est la recognnaissance de l'anneaux de Landolt ) showfr
TV
(\310 il riconoscimento degli anelli di Landolt ) showit
(Er det en anerkjennelse av Landolt ringer ) showjp

(> 50% (mindestens 5 von 8)?) showde
(> 50% (5 of 8 at least)?) showen
(> 50% (5 de 8 al menos)?) showes
(> 50% (5 de 8 au moins)?) showfr
(> 50% (5 di 8 almento)?) showit
(> 50% (5 av 8 minst)?) showjp

ix41 iy24 moveto
TBV
(Farbreihe ) showde
(Colour row ) showen
(Color serie ) showes
(S\351rie couleur ) showfr
(Serie a colori ) showit
RBV
(farge-serien ) showjp

iout 2 le {RBIV ioutT iout get show (-C) show (d) jshowTV}
          {RBIV ioutT iout get show (-R) show (d) jshowTV} ifelse

ix43 iy24 moveto
TBV
(Farbreihe ) showde
(Colour row ) showen
(Color serie ) showes
(S\351rie couleur ) showfr
(Serie a colori ) showit
RBV
(farge-serien ) showjp

iout 2 le {RBIV ioutT iout get show (-M) show (d) jshowTV}
          {RBIV ioutT iout get show (-G) show (d) jshowTV} ifelse

ix45 iy24 moveto
TBV
(Farbreihe ) showde
(Colour row ) showen
(Color serie ) showes
(S\351rie couleur ) showfr
(Serie a colori ) showit
RBV
(farge-serien ) showjp

iout 2 le {RBIV ioutT iout get show (-Y) show (d) jshowTV}
          {RBIV ioutT iout get show (-B) show (d) jshowTV} ifelse

ix47 iy24 moveto
TBV
(Farbreihe ) showde
(Colour row ) showen
(Color serie ) showes
(S\351rie couleur ) showfr
(Serie a colori ) showit
RBV
(farge-serien ) showjp

RBIV (W-N) show

1 2 7 {/i exch def %i=1,2,7
ix4i i get iy34 moveto
RBV
(Umfeld - Ring) showde
(background - ring) showen
(antesedentes - ring) showes
(background - ring) showfr
(sfondo - l'anello) showit
(bakgrunn - ring) showjp
} for %it=1,2,7

RV
0 1 5 {/j exch def %j=0,5
1 2 7 {/i exch def %i=1,2,7
ix4i i get iy5i j get moveto
j 0 eq {(0 - 1) show} if
j 1 eq {(7 - 8) show} if
j 2 eq {(E - F) show} if
j 3 eq {(2 - 0) show} if
j 4 eq {(8 - 6) show} if
j 5 eq {(F - D) show} if
} for %i=1,2,7
} for %j=0,5

0 1 5 {/j exch def %j=0,5
2 2 8 {/i exch def %i=2,2,8
ix4i i get iy5i j get moveto
TV
(Ja/Nein) showde
(Yes/No) showen
(Si/No) showes
(Qui/Non) showfr
(Si/No) showit
(Ja/Nei) showjp
} for %i=2,2,8
} for %j=0,5

%} if pchartl=1; Y11-3N_AL19_JSO_2P2S.EPS; table B4/C4 to B6/C6



showpage
grestore

%} for %pchartl=0,2

%} for %xchartl=0,7

%} for %xcolorl=0,3

%} for %colorml=0,1

%%Trailer

%%EndDocument
EndEPSF grestore gsave
                         
BeginEPSF
219 MM 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 AI171-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     (AI171-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 8 MM 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 AI171-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     (AI171-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 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 AI171-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     (AI171-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 8 MM sub 020 MM 1 MM add 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 AI171-7N.EPS 'al0x'Y11-7N_AL17_JSO.EPS 20190301
%%BoundingBox: 71 82 422 330
 
%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: http://farbe.li.tu-berlin.de/AI17/AI17.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:2019030112000)
 /ModDate (D:20190301112000)
/DOCINFO pdfmark17
[ /View [ /FitB ]
/DOCVIEW pdfmark17
%END  PDFDE011

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def /str {8 string } bind def
/A4querL {598 0 translate 90 rotate} def

/languagelevel where {pop languagelevel} {1} ifelse
                     /PSL12 exch def
/dictende {counttomark 2 idiv dup dict begin {def}
           repeat pop currentdict end} bind def

/Times-Roman findfont dup length dict  begin
 {1 index /FID ne {def} {pop pop} ifelse }forall
 /Encoding ISOLatin1Encoding def
 currentdict end
/Times-ISOL1 exch definefont pop
 
/Times-Italic findfont dup length dict  begin
 {1 index /FID ne {def} {pop pop} ifelse }forall
 /Encoding ISOLatin1Encoding def
 currentdict end
/TimesI-ISOL1 exch definefont pop
 
/Times-Bold findfont dup length dict  begin
 {1 index /FID ne {def} {pop pop} ifelse }forall
 /Encoding ISOLatin1Encoding def
 currentdict end
/TimesB-ISOL1 exch definefont pop
 
/Times-BoldItalic findfont dup length dict  begin
 {1 index /FID ne {def} {pop pop} ifelse }forall
 /Encoding ISOLatin1Encoding def
 currentdict end
/TimesBI-ISOL1 exch definefont pop

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

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

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

/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

/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
 
/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* 1.0 exp 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

/DecodeXYZ* {dup 6 29 div ge {dup dup mul mul}
            {4 29 div sub 108 841 div mul} ifelse} bind 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
gsave

/lanind 1 def
/lantex [(G) (E) (S) (N) (I) (J) (M)] def
/showde {0 lanind eq {show} {pop} ifelse} bind def
/showen {1 lanind eq {show} {pop} ifelse} bind def
/showfr {2 lanind eq {show} {pop} ifelse} bind def
/showes {3 lanind eq {show} {pop} ifelse} bind def
/showit {4 lanind eq {show} {pop} ifelse} bind def
/showjp {5 lanind eq {show} {pop} ifelse} bind def
/showea {1 lanind le {show} {pop} ifelse} bind def
/showm  {6 lanind eq {show} {pop} ifelse} bind def

%default values
/lanind1 01 def /lanind2 01 def /lanindd 01 def /lanindm 01 def
/colorm1 01 def /colorm2 01 def /colormd 01 def /colormm 01 def
/deintp1 00 def /deintp2 00 def /deintpd 01 def /deintpm 01 def
/xcolor1 03 def /xcolor2 03 def /xcolord 01 def /xcolorm 01 def
/xchart1 00 def /xchart2 00 def /xchartd 01 def /xchartm 01 def
/pchart1 01 def /pchart2 01 def /pchartd 01 def /pchartm 01 def
/colsep1 00 def /colsep2 00 def /colsepd 01 def /colsepm 01 def
/pmetam1 00 def /pmetam2 00 def /pmetamd 01 def /pmetamm 01 def
/xchart3 00 def /xchart4 00 def /xchart5 00 def

%usual change of default values
/lanindf where {pop /lanind1 lanindf  def /lanind2 lanindf  def
                    /lanindd laninddf def /lanindm lanindmf def} if
/colormf where {pop /colorm1 colormf  def /colorm2 colormf  def
                    /colormd colormdf def /colormm colormmf def} if
/deintpf where {pop /deintp1 deintpf  def /deintp2 deintpf  def
                    /deintpd deintpdf def /deintpm deintpmf def} if
/xcolorf where {pop /xcolor1 xcolorf  def /xcolor2 xcolorf  def
                    /xcolord xcolordf def /xcolorm xcolormf def} if
/xchartf where {pop /xchart1 xchartf  def /xchart2 xchartf  def
                    /xchartd xchartdf def /xchartm xchartmf def} if
/pchartf where {pop /pchart1 pchartf  def /pchart2 pchartf  def
                    /pchartd pchartdf def /pchartm pchartmf def} if
/colsepf where {pop /colsep1 colsepf  def /colsep2 colsepf  def
                    /colsepd colsepdf def /colsepm colsepmf def} if
/pmetamf where {pop /pmetam1 pmetamf  def /pmetam2 pmetamf  def
                    /pmetamd pmetamdf def /pmetamm pmetammf def} if
/xchart3f where {pop /xchart3 xchart3f def} if
/xchart4f where {pop /xchart4 xchart4f def} if
/xchart5f where {pop /xchart5 xchart5f def} if

/lanind lanind1 def %
/colorm colorm1 def %
/deintp deintp1 def %
/xcolor xcolor1 def %
/xchart xchart1 def %
/pchart pchart1 def %
/colsep colsep1 def %
/pmetam pmetam1 def %

/GSS$ where {pop /LSS$ GSS$ def}
            {/LSS$ (1) def} ifelse
/GSC$ where {pop /LSC$ GSC$ def}
            {/LSC$ (N) def} ifelse
/GSX$ where {pop /LSX$ GSX$ def}
            {/LSX$ (0) def} ifelse
/GSY$ where {pop /LSY$ GSY$ def}
            {/LSY$ (0) def} ifelse
/GEX$ where {pop /LEX$ GEX$ def}
            {/LEX$ (P.PS./PDF) def} ifelse
/GEY$ where {pop /LEY$ GEY$ def}
            {/LEY$ (P.DAT) def} ifelse
/IMES where {pop %/IMES IMES def
            }
            {/IMES 0 def} ifelse
      
/colorml colorm def
%0 1 1 {/colorml exch def %colorml=0,1

/xcolorl xcolor def
%0 1 3 {/xcolorl exch def %xcolorl=0,3

/xchartl xchart def
%0 1 7 {/xchartl exch def %xchartl=0,7

/pchartl pchart def
%0 1 2 {/pchartl exch def %pchartl=0,2

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

gsave

xcolorl 0 eq {/tfnx* {0 0 0 1 setcmykcolor} def
              /tfwx* {0 0 0 0 setcmykcolor} def
              /colrecfix* {setcmykcolor rec fill} bind def
              /colrecstx* {setcmykcolor rec stroke} bind def
             } if
xcolorl 1 eq {/tfnx* {0 setgray} def
              /tfwx* {1 setgray} def
              /colrecfix* {setgray rec fill} bind def
              /colrecstx* {setgray rec stroke} bind def
             } if
xcolorl 2 eq {/tfnx* {1 1 1 0 setcmykcolor} def
              /tfwx* {0 0 0 0 setcmykcolor} def
              /colrecfix* {setcmykcolor rec fill} bind def
              /colrecstx* {setcmykcolor rec stroke} bind def
             } if
xcolorl 3 eq {/tfnx* {0 0 0 setrgbcolor} def
              /tfwx* {1 1 1 setrgbcolor} def
              /colrecfix* {setrgbcolor rec fill} bind def
              /colrecstx* {setrgbcolor rec stroke} bind def
             } if

%pchartl 1 eq {%pchartl=1; 'al0x'Y11-7N_AL09_JSO_2P1S.EPS; CV prop.

%font0309C.ps***********************************************
%only T*G, T*M, T*K with jshowTG, jshowTM with T*M and T*K

%special R*G, R*M, T*G, T*M
/RK {250 /Times-Roman FS} bind def
/RM {275 /Times-Roman FS} bind def /RM1 {252 /Times-Roman FS} bind def
/RG {320 /Times-Roman FS} bind def

/RIK {250 /Times-Italic FS} bind def
/RIM {275 /Times-Italic FS} bind def
/RIG {320 /Times-Italic FS} bind def

/RBK {250 /Times-Bold FS} bind def
/RBM {275 /Times-Bold FS} bind def
/RBG {320 /Times-Bold FS} bind def

/RBIK {250 /Times-BoldItalic FS} bind def
/RBIM {275 /Times-BoldItalic FS} bind def
/RBIG {320 /Times-BoldItalic FS} bind def

/TK {250 /Times-ISOL1 FS} bind def
/TM {275 /Times-ISOL1 FS} bind def
/TG {320 /Times-ISOL1 FS} bind def

/TIK {250 /TimesI-ISOL1 FS} bind def
/TIM {275 /TimesI-ISOL1 FS} bind def
/TIG {320 /TimesI-ISOL1 FS} bind def

/TBK {250 /TimesB-ISOL1 FS} bind def
/TBM {275 /TimesB-ISOL1 FS} bind def
/TBG {320 /TimesB-ISOL1 FS} bind def

/TBIK {250 /TimesBI-ISOL1 FS} bind def
/TBIM {275 /TimesBI-ISOL1 FS} bind def
/TBIG {320 /TimesBI-ISOL1 FS} bind def

/SM {250 /Symbol FS} bind def
/SM {275 /Symbol FS} bind def
/SG {320 /Symbol FS} bind def

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

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

72 90 translate
0.01 MM dup scale
20 setlinewidth
1.0 setgray
0 0 moveto 12000 0 rlineto 0 8300 rlineto
          -12000 0 rlineto closepath fill
0.0 setgray
0 0 moveto 12000 0 rlineto 0 8300 rlineto
          -12000 0 rlineto closepath stroke
/serverL1 (http://130.149.60.45/~farbmetrik/) def
/serverL2 (http://farbe.li.tu-berlin.de/) def
/serverL3 (http://standards.iso.org/iso/9241/306/ed-2/) def
/serverLA serverL3 def
/serverLB serverL2 def
/serverLC serverL2 def
TM
0 setgray
00100 -240 moveto
(Teil 4, ) showde
(part 4, ) showen
(parte 4, ) showes
(la part 4, ) showfr
(la parte 4, ) showit
(artikkelen 4, ) showjp

RM
9500 -240 moveto (AI171-7) show
Txx show (: ) show
deintp  cvishow
colorml cvishow
xcolorl cvishow
xchartl cvishow
pchartl cvishow

/x20 100 def
/y1 8000 def
/yd 320 def

/y11 y1 def
/y12 y1 yd 1.0 mul sub def

x20 y11 moveto
RBG
(Dokumentation der Beurteiler-Farbseheigenschaften) showde
(Documentation of assessor colour-vision properties) showen
TBG
(Documentaci\363n de la visi\363n de color propiedades) showes
TBM
(Documentation de la propri\351t\351s de perception) showfr
RBM
(Documentazione del colore-vision) showit TBM ( propriet\340 di) showit
RBM
(Documentasjon av farge-visjon engenskaper av) showjp
TBG
( f\374r diese Pr\374fung) showde
( for visual assessment) showen
TBM
( de evaluadores para evaluaci\363n visual) showes
( de couleurs d'\351valateurs pour l'evaluation visuelle) showfr
( valutatori per la valutatione visiva) showit
( evaluatorer for visuell vurdering) showjp

x20 y12 moveto
TM  (Der Beurteiler hat) showde
TBM ( normales) showde TM ( Farbsehen nach einer Pr\374fung:) showde

TM  (The assessor has) showen
TBM ( normal) showen
TM  ( colour vision according to one test:) showen

TM  (El evaluador tiene la visi\363n del color) showes
TBM ( normal) showes
TM  ( seg\372n una prueba:) showes

TM  (L'\351valuateur a vision) showfr
TBM ( normale) showfr
TM  ( de couleurs selon un test:) showfr

TM  (Il valuatore ha la) showit
TBM ( normale) showit
TM  ( visione dei colori secundo una prova:) showit

TM  (Evaluatoren har) showjp
TBM ( normal) showjp
TM  ( farge visjon i henhold til \351n test:) showjp

x20 8500 add y12 moveto
TBM
(unterstreiche: Ja/nein) showde
(underline:  Yes/No) showen
(underline:  Si/No) showes
(souligner:  Qui/Non) showfr
(sottolineare: Si/No) showit
(underline:  Ja/Nei) showjp

x20 100 add y12 yd 1 mul sub moveto
TM
( entweder nach DIN 6160:1996 mit Anomaloskop nach) showde
( either according to DIN 6160:1996 with Anomaloskop of) showen
( de acuerdo a la norma DIN 6160:1996 con Anomaloskop de) showes
( conform\351ment \340 la standard DIN 6160:1996 avec Anomaloskop de) showfr
( sia secondo DIN 6160:1996 con Anomaloskop di) showit
( enten i henhold til DIN 6160:1996 med Anomaloskop av) showjp

TIM ( Nagel) show

x20 8500 add y12 yd 1 mul sub moveto
TBM
(unterstreiche: Ja/unbekannt) showde
(underline:  Yes/unknown) showen
(underline:  Si/desconocido) showes
(souligner:  Qui/inconnu) showfr
(sottolineare: Si/sconosciuto) showit
(underline:  Ja/ukjent) showjp


x20 100 add y12 yd 2 mul sub moveto
RM ( oder mit Farbpunkt-) showde TM (Pr\374ftafeln nach) showde
TM
( or with test charts using colour points according to) showen
( o con la prueba de gr\341ficos utilizando los puntos de color segun) showes
( ou avec le test de graphiques \340 l'aide de points de couleur selon) showfr
( o con la prova grafica utilizzando punti di colore secondo) showit
RM
( eller med test grafikk ved hjelp av farge-poeng i henhold til) showjp
TIM ( Ishihara) show

x20 8500 add y12 yd 2 mul sub moveto
TBM
(unterstreiche: Ja/unbekannt) showde
(underline:  Yes/unknown) showen
(underline:  Si/desconocido) showes
(souligner:  Qui/inconnu) showfr
(sottolineare: Si/sconosciuto) showit
(underline:  Ja/ukjent) showjp

x20 100 add y12 yd 3 mul sub moveto
TM
( oder mit, bitte nennen:..............................................) showde
( or tested with, please specify: .....................................) showen
( o probado, por favor specifar: ......................................) showes
( ou test\340s avec, veuillez sp\351cifier: ...........................) showfr
( o testati con, si prega di specifare: ...............................) showit
( eller testet med, vennligst spesifiser: .............................) showjp

x20 8500 add y12 yd 3 mul sub moveto
TBM
(unterstreiche: Ja/unbekannt) showde
(underline:  Yes/unknown) showen
(underline:  Si/desconocido) showes
(souligner:  Qui/inconnu) showfr
(sottolineare: Si/sconosciuto) showit
(underline:  Ja/ukjent) showjp
   
/y21 y12 yd 4.2 mul sub def
/y22 y12 yd 5.2 mul sub def

x20 y21 moveto

TBG
(F\374r visuelle Bewertung der Display )showde
RBG
((Monitor, Daten-Projektor)-Ausgabe) showde
TBG
(For visual evaluation of the display ) showen
((Monitor, data projector) output) showen
TBM
(Para la evaluaci\363n visual de la salida de ) showes
(muestra (monitor, proyector de datos)) showes
(Pour l'\351valuation visuelle de la sortie ) showfr
(d'\351crans (monitor, projecteur de donn\351es)) showfr
(Para la valutazione visiva dell'output di monitor ) showit
((monitor, proiettore dati)) showit
(For visuel vurdering av utskriften av viser ) showjp
((monitor, data projektor)) showjp

x20 y22 moveto
TM
(B\374roarbeitsplatz) showde RM (-) showde
TM
(Beleuchtung ist Tageslicht (bedeckter/Nordhimmel)) showde
(Office workplace illumination is daylight (clouded/north sky)) showen
(Oficina iluminaci\363n es la luz de dia (nublado/north sky)) showes
(L'\351clairage de travail de bureau est la lumin\350re du jour ) showfr
((ciel assombri/nord)) showfr
(Ufficio illuminazione sul posto di lavoro \351 la luce diuma ) showit
((offuscato/nord cielo)) showit
(Office workplace belysning er dagslys (matte/north sky)) showjp

x20 9300 add y22 moveto
TBM
(unterstreiche: Ja/nein) showde
(underline:  Yes/No) showen
(underline:  Si/No) showes
(souligner:  Qui/Non) showfr
(sottolineare: Si/No) showit
(underline:  Ja/Nei) showjp
    
x20 y22 yd sub moveto
RBM
(PDF-Datei:) showde
(PDF file:) showen
RBK
(Archivo PDF:) showes
(Fichier PDF:) showfr
RBM
(File PDF:) showit
(PDF-fil:) showjp

x20 1600 add y22 yd sub moveto
RM1 serverLA show (AI17/AI17) show (F0P) show (X) show %
(_CY) show 8 xchart xchartd idiv sub cvishow (_) show 3 cvishow
(.PDF) show
   
x20 9300 add y22 yd sub moveto
TBM
(unterstreiche: Ja/nein) showde
(underline:  Yes/No) showen
(underline:  Si/No) showes
(souligner:  Qui/Non) showfr
(sottolineare: Si/No) showit
(underline:  Ja/Nei) showjp

x20 y22 yd 2 mul sub moveto
RBM
(PS-Datei:) showde
(PS file:) showen
RBK
(Archivo PS:) showes
(Fichier PS:) showfr
RBM
(File PS:) showit
(PS-fil:) showjp

x20 1600 add y22 yd 2 mul sub moveto
RM1 serverLA show (AI17/AI17) show (F0P) show (X) show %
(_CY) show 8 xchart xchartd idiv sub cvishow (_) show 3 cvishow
(.PS) show
   
x20 9300 add y22 yd 2 mul sub moveto
TBM
(unterstreiche: Ja/nein) showde
(underline:  Yes/No) showen
(underline:  Si/No) showes
(souligner:  Qui/Non) showfr
(sottolineare: Si/No) showit
(underline:  Ja/Nei) showjp
    
x20 y22 yd 3 mul sub moveto
TBM
(Bild ) showde
(picture ) showen
(fig. ) showes
(Fig. ) showfr
(Fig. ) showit
(Figur ) showjp
(A7) show
TM TxS show Txx jshowTM

TBM
( Kontastbereich:) showde
( contrast range:) showen
( rango de contraste:) showes
( plage de contraste:) showfr
( gamma del contrasto:) showit
RBM
( kontrast-serien:) showjp

TM ( (>F:0) (F:0) (E:0) (D:0) (C:0) (A:0) (9:0) (7:0) (5:0) (3:0) (<3:0)) show
    
x20 y22 yd 4 mul sub moveto
TM
(vergleiche Normdruckausgabe nach ISO/IEC 15775 mit Bereich) showde
(compare standard print output according to ISO/IEC 15775 with range) showen
(compare la salida de impresi\363n est\341ndar de ) showes
(ISO/IEC 15775 con rango) showes
(comparer la impression standard selon ) showfr
(ISO/IEC 15775 avec la gamme) showfr
(confronta standard output di stampa in base a ) showit
(ISO/IEC 15775 con la gamma) showit
(Sammeling standard utskriften i henhold til ) showjp
(ISO/IEC 15775 med utvalg) showjp
( F:0) show

x20 9300 add y22 yd 4 mul sub moveto
TBM
(unterstreiche: Ja/nein) showde
(underline:  Yes/No) showen
(underline:  Si/No) showes
(souligner:  Qui/Non) showfr
(sottolineare: Si/No) showit
(underline:  Ja/Nei) showjp
    
x20 600 add y22 yd 5 mul sub moveto
TIM
(Anmerkung: Bei Tageslichtb\374robeleuchtung ist der Kontrastbereich oft:) showde
(Remark: In daylighted offices the contrast range is in many cases:)  showen
(Observaci\363n: las oficinas de luz en el rango de contraste ) showes
(es a menudo:)  showes
(Remarque: dans les bureaux avec la lumi\350re du jour ) showfr
( la plage de contraste est souvent:)  showfr
(Nota: in uffici di luce del diorno la gamme del contrasto ) showit
(\350 spesso:)  showit
(Kommentar: i kontorer i lys av dag kontrastomfanget er ofte:)  showjp

x20 600 add y22 yd 6 mul sub moveto
TIM
(am Display zwischen:) showde
( >F:0 und E:0 (Monitor), D:0 und 3:0 (Datenprojektor)) showde
(on display between:) showen
( >F:0 and E:0 (monitor), D:0 and 3:0 (data projector)) showen
(en la pantala del:) showes
( >F:0 y E:0 (monitor), D:0 y 3:0 (proyector de datos)) showes
(sur l'affichage entre:) showfr
( >F:0 et E:0 (moniteur), D:0 et 3:0 (projecteur de donn\351es)) showfr
(sul display tra:) showit
( >F:0 e E:0 (monitor), D:0 e 3:0 (proiecttore dati)) showit
(Pa displayet mellom:) showjp
( >F:0 og E:0 (monitoren), D:0 og 3:0 (data projektor)) showjp


/y31 y22 yd 7.2 mul sub def
/y32 y22 yd 8.2 mul sub def

x20 y31 moveto
TBG
(Nur f\374r optionale farbmetrische Kennzeichnung) showde
RBG
( mit PDF/PS-Dateiausgabe) showde
(Only for optional colorimetric specification) showen
( with PDF/PS file output) showen
TBM
(S\363lo para las especificaciones colorim\351tricas optional) showes
( con salida de archivos PDF/PS) showes
(Seulement pour la sp\352cification colorim\351trique en option) showfr
( avec la sortie de fichier PDF/PS) showfr
(Solo per la facoltativa specifica colorimetrica) showit
( con uscita del PDF/PS file) showit
TBG
(Bare for valgfri kolorimetrisk specifikajion) showjp
RBG
( med utgang til PDF/PS-fil) showjp

x20 y32 moveto
RBM
(PDF-Datei:) showde
(PDF file:) showen
RBK
(Archivo PDF:) showes
(Fichier PDF:) showfr
RBM
(File PDF:) showit
(PDF-fil:) showjp

x20 1700 add y32 moveto
RM serverLA show (AI17/AI17) show (F0P) show (X) show %
(_CY) show 8 xchart xchartd idiv sub cvishow (_) show 3 cvishow
(.PDF) show

x20 1700 add y32 yd 1 mul sub moveto
TBM
(Bild ) showde
(picture ) showen
(fig. ) showes
(Fig. ) showfr
(Fig. ) showit
(Figur ) showjp
(A7) show
TM TxS show Txx jshowTM

x20 9300 add y32 yd 1 mul sub moveto
TBM
(unterstreiche: Ja/nein) showde
(underline:  Yes/No) showen
(underline:  Si/No) showes
(souligner:  Qui/Non) showfr
(sottolineare: Si/No) showit
(underline:  Ja/Nei) showjp

x20 y32 yd 2 mul sub moveto
RBM
(PS-Datei:) showde
(PS file:) showen
RBK
(Archivo PS:) showes
(Fichier PS:) showfr
RBM
(File PS:) showit
(PS-fil:) showjp

x20 1700 add y32 yd 2 mul sub moveto
RM serverLA show (AI17/AI17) show (F0P) show (X) show %
(_CY) show 8 xchart xchartd idiv sub cvishow (_) show 3 cvishow
(.PS) show

x20 1700 add y32 yd 3 mul sub moveto
TBM
(Bild ) showde
(picture ) showen
(fig. ) showes
(Fig. ) showfr
(Fig. ) showit
(Figur ) showjp
(A7) show
TM TxS show Txx jshowTM

x20 8700 add y32 yd 3 mul sub moveto
TBM
(oder unterstreiche: Ja/nein) showde
(    or underline:  Yes/No) showen
(      o underline:  Si/No) showes
(    ou souligner:  Qui/Non) showfr
(      o sottolineare: Si/No) showit
(eller underline:  Ja/Nei) showjp

x20 y32 yd 4 mul sub moveto
TBM
(Farbmessung und Kennzeichnung f\374r:) showde
(colour measurement and specification for:) showen
(medici\363n del color y especificaci\363n para:) showes
(mesure de la couleur et des sp\352cifications pour les:) showfr
(misurazione del colore e la specifica per:) showit
(maling av farge og specifikasjon for:) showjp

x20 300 add y32 yd 5 mul sub moveto
RM
(CIE-Normlichtart D65, CIE-2-Grad-Beobachter, CIE-45/0-Geometrie) showde
TM
(CIE standard illuminant D65, 2 degree observer, CIE 45/0 geometry:) showen
(Illuminante normalizado CIE D65, 2 grado observador, CIE geometrica 45/0:) showes
(Standard CIE l'illuminant D65, observateur 2 degr\351e, CIE geom\351try 45/0:) showfr
(Standard CIE illuminante D65, 2 grado osservatore, CIE geometrica 45/0:) showit
(CIE standard lystype D65, 2 graders observator, CIE 45/0 geometri:) showjp

x20 9300 add y32 yd 5 mul sub moveto
TBM
(unterstreiche: Ja/nein) showde
(underline:  Yes/No) showen
(underline:  Si/No) showes
(souligner:  Qui/Non) showfr
(sottolineare: Si/No) showit
(underline:  Ja/Nei) showjp

x20 300 add y32 yd 6 mul sub moveto
TM
(Wenn Nein, bitte andere Parameter nennen:) showde
(If No, please give other parameters:) showen
(Si No, se dan otros par\341metros:) showes
(Si Non, donner d'autres param\350tres:) showfr
(Si No, dare altri parametri:) showit
(Hvis nei, gi andre parametere:) showjp
(  .........................................) show

x20 y32 yd 7 mul sub moveto
TBM
(Farbmetrische Kennzeichnung f\374r 17 Stufen von ) showde
(Colorimetric specification for 17 step colours of ) showen
(Especificaciones colorim\351tricas para 17 paso de color: ) showes
(Sp\351cifications colorim\351triques pour 17 palier: ) showfr
(Specifica colorimetrico per 17 passagi di colore: ) showit
(Kolorimetrisk spesifikasjon for 17 trinn av farge: ) showjp

RM serverL2 show
(OG70/OG70L1NP.PDF) showde 
(OE70/OE70L1NP.PDF) showea

x20 300 add y32 yd 8 mul sub moveto
RM
(Ersatz CIELAB-Daten in Datei ) showde
(Exchange of CIELAB data in file ) showen
(Intercambio de datos en el archivo CIELAB ) showes
TM
(L'\351change de donn\351es CIELAB en fichier ) showfr
(Scambio di dati CIELAB in file ) showit
(Utveksling av CIELAB data i filen ) showjp

RM serverL2 show
(AG82/AG82L0NP.TXT) showde
(AE82/AE82L0NP.TXT) showen
(AS82/AS82L0NP.TXT) showes
(AF82/AF82L0NP.TXT) showfr
(AI82/AI82L0NP.TXT) showit
(AN82/AN82L0NP.TXT) showjp

RM 
( und Transfer) showde
( and transfer) showen
( y trans-) showes
( et) showfr
( e trans-) showit
( og) showjp

x20 300 add y32 yd 9 mul sub moveto
RM
(der PS-Datei AG82L0NP.PS (=.TXT) nach PDF-Datei AG82L0NP.PDF) showde
(of the PS file AE82L0NP.PS (=.TXT) to the PDF-file AE82L0NP.PDF) showen
(ferentia del archivo PS AS82L0NP.PS (=.TXT) al archivo PDF AS82L0NP.PDF) showes
(transfert de fichier PS AF82L0NP.PS (=.TXT) au fichier PDF AF82L0NP.PDF) showfr
(ferimento di file PS AI82L0NP.PS (=.TXT) per il file PDF AI82L0NP.PDF) showit
(overforning av PS-fil AN82L0NP.PS (=.TXT) til PDF-fil AN82L0NP.PDF) showjp

x20 9300 add y32 yd 9 mul sub moveto
TBM
(unterstreiche: Ja/nein) showde
(underline:  Yes/No) showen
(underline:  Si/No) showes
(souligner:  Qui/Non) showfr
(sottolineare: Si/No) showit
(underline:  Ja/Nei) showjp

x20 300 add y32 yd 10 mul sub moveto
TM 
(Wenn Nein, bitte andere Methode beschreiben:) showde
(If No, please describe other method:) showen
(Si No, por favor, describa otro m\351todo:) showes
(Si Non, veuillez d\351crire autre m\351thode:) showfr
(Si No, si prega di descrivere un altro metodo:) showit
(Hvis Nei, vennligst beskriv andre metode:) showjp
( ......................................) show

%} if pchartl=1; 'al0x'Y11-7N_AL09_JSO_2P1S.EPS; CV prop.

showpage
grestore

%} for %pchartl=0,2

%} for %xchartl=0,7

%} for %xcolorl=0,3

%} for %colorml=0,1

%%Trailer

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
219 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 28

%line 499
%!PS-Adobe-3.0 EPSF-3.0 AI171-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     (AI171-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 20190301
%%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
/showfr {2 lanind eq {show} {pop} ifelse} bind def
/showes {3 lanind eq {show} {pop} ifelse} bind def
/showit {4 lanind eq {show} {pop} ifelse} bind def
/showjp {5 lanind eq {show} {pop} ifelse} bind def
/showea {1 lanind le {show} {pop} ifelse} bind def
/showm  {6 lanind eq {show} {pop} ifelse} bind def

%default values
/lanind1 01 def /lanind2 01 def /lanindd 01 def /lanindm 01 def
/colorm1 00 def /colorm2 00 def /colormd 01 def /colormm 01 def
/deintp1 00 def /deintp2 00 def /deintpd 01 def /deintpm 01 def
/xcolor1 03 def /xcolor2 03 def /xcolord 01 def /xcolorm 01 def
/xchart1 00 def /xchart2 00 def /xchartd 01 def /xchartm 01 def
/pchart1 00 def /pchart2 02 def /pchartd 01 def /pchartm 03 def
/colsep1 00 def /colsep2 00 def /colsepd 01 def /colsepm 01 def
/pmetam1 00 def /pmetam2 00 def /pmetamd 01 def /pmetamm 01 def
/xchart3 00 def /xchart4 01 def /xchart5 00 def

%usual change of default values
/lanindf where {pop /lanind1 lanindf  def /lanind2 lanindf  def
                    /lanindd laninddf def /lanindm lanindmf def} if
/colormf where {pop /colorm1 colormf  def /colorm2 colormf  def
                    /colormd colormdf def /colormm colormmf def} if
/deintpf where {pop /deintp1 deintpf  def /deintp2 deintpf  def
                    /deintpd deintpdf def /deintpm deintpmf def} if
/xcolorf where {pop /xcolor1 xcolorf  def /xcolor2 xcolorf  def
                    /xcolord xcolordf def /xcolorm xcolormf def} if
/xchartf where {pop /xchart1 xchartf  def /xchart2 xchartf  def
                    /xchartd xchartdf def /xchartm xchartmf def} if
/pchartf where {pop /pchart1 pchartf  def /pchart2 pchartf  def
                    /pchartd pchartdf def /pchartm pchartmf def} if
/colsepf where {pop /colsep1 colsepf  def /colsep2 colsepf  def
                    /colsepd colsepdf def /colsepm colsepmf def} if
/pmetamf where {pop /pmetam1 pmetamf  def /pmetam2 pmetamf  def
                    /pmetamd pmetamdf def /pmetamm pmetammf def} if
/xchart3f where {pop /xchart3 xchart3f def} if
/xchart4f where {pop /xchart4 xchart4f def} if
/xchart5f where {pop /xchart5 xchart5f def} if

/lanind lanind1 def %
/colorm colorm1 def %
/deintp deintp1 def %
/xcolor xcolor1 def %
/xchart xchart1 def %
/pchart pchart1 def %
/colsep colsep1 def %
/pmetam pmetam1 def %

/GSS$ where {pop /LSS$ GSS$ def}
            {/LSS$ (1) def} ifelse
/GSC$ where {pop /LSC$ GSC$ def}
            {/LSC$ (N) def} ifelse
/GSX$ where {pop /LSX$ GSX$ def}
            {/LSX$ (0) def} ifelse
/GSY$ where {pop /LSY$ GSY$ def}
            {/LSY$ (0) def} ifelse
/GEX$ where {pop /LEX$ GEX$ def}
            {/LEX$ (P.PS./PDF) def} ifelse
/GEY$ where {pop /LEY$ GEY$ def}
            {/LEY$ (P.DAT) def} ifelse
/IMES where {pop %/IMES IMES def
            }
            {/IMES 0 def} ifelse

/i*ptrsc where {pop %/i*ptrsc i*ptrsc def
               }
               {/i*ptrsc 0 def} ifelse

/ISRL*ioG where {pop}{/ISRL*ioG 0 def} ifelse
/ISIN*ioG where {pop}{/ISIN*ioG 0 def} ifelse
/ISOU*ioG where {pop}{/ISOU*ioG 0 def} ifelse

%pchart 0 eq  {%beg if pchart=0

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



/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

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 {tzrcmy0* setcmykcolor} if
         j0 7 eq {0 setgray} if
         j0 8 eq {tzgcmy0* setcmykcolor} if
         j0 9 eq {0 setgray} if
         j0 10 eq {tzbcmy0* 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 {/ng tzan j get def
                       ng ng ng 0 setcmykcolor
                       ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if
              /ng tzan j get def
              ng ng ng 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 {/wg 1 tzan j get sub def
                       wg wg wg setrgbcolor
                       ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if
              /wg 1 tzan j get sub def
              wg wg wg setrgbcolor
              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 {/ng tzan j get def
                       0 0 0 ng setcmykcolor
                       ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if
              /ng tzan j get def
              0 0 0 ng setcmykcolor
              ix0 iy0 s s  rec fill
             } if %i*ptrsc=6

i*ptrsc 7 eq {%i*ptrsc=7 w* setgray
              j 16 eq {/wg 1 tzan j get sub def
                       wg setgray
                       ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if
              /wg 1 tzan j get sub def
              wg 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

/serverM0 (http://www.ps.bam.de/) def
/serverM1 (http://130.149.60.45/~farbmetrik/) def
/serverM2 (http://farbe.li.tu-berlin.de/) def
/serverM3 (http://standards.iso.org/iso/9241/306/ed-2/) def
/serverMA serverM3 def
/serverMB serverM2 def
/serverMC serverM2 def

0 setgray
61 MM 13.5 MM  moveto
12TN
pchart 0 eq {() show} if
pchart 1 eq {%pchart=1
             (Vordruck A: ) showde
             (Form A: ) showen
             (Form A: ) showes
             (Form A: ) showfr
             (Form A: ) showit
             (Form A: ) showjp
            } if %pchart=1
pchart 2 eq {%pchart=2
             12RN
             (Ein-Aus: ) showde
             (In-out: ) showen
             (In-out: ) showes
             (In-out: ) showfr
             (In-out: ) showit
             (In-out: ) showjp
            } if %pchart=2
12TN
(Pr\374fvorlage AI17) showde                                    %0AI17X-Y 0100#
(Test chart AI17) showen                                        %1AI17X-Y 0100#
(Gr\341fico AI17) showes                                        %2AI17X-Y 0100#
(Graphique AI17) showfr                                         %3AI17X-Y 0100#
(Grafico AI17) showit                                           %4AI17X-Y 0100#
(Pr\370veplansje AI17) showjp                                   %5AI17X-Y 0100#

xchart4 0 eq {12TN
              ( nach) showde
              ( according to) showen
              ( seg\372n a) showes
              ( conforme \340) showfr
              ( conformemente a) showit
              ( inf\370lge) showjp
12RN ( ISO 9241-306) show} if

xchart4 1 eq {12TN
              ( nach) showde
              ( according to) showen
              ( seg\372n a) showes
              ( conforme \340) showfr
              ( conformemente a) showit
              ( inf\370lge) showjp
( Pr\374fvorlage 4) showde                                      %0AI17X-Y 0100#
( test chart 4 of) showen                                       %1AI17X-Y 0100#
( gr\341fico 4 a) showes                                        %2AI17X-Y 0100#
( graphique 4 \340) showfr                                      %3AI17X-Y 0100#
( grafico 4 a) showit                                           %4AI17X-Y 0100#
( Pr\370veplansje 4) showjp 
( ISO/IEC 15775) show} if

xchart4 2 eq {12TN
              ( nach) showde
              ( according to) showen
              ( seg\372n a) showes
              ( conforme \340) showfr
              ( conformemente a) showit
              ( inf\370lge) showjp
( Pr\374fvorlage 2) showde                                      %0AI17X-Y 0100#
( test chart 2 of) showen                                       %1AI17X-Y 0100#
( gr\341fico 2 a) showes                                        %2AI17X-Y 0100#
( graphique 2 \340) showfr                                      %3AI17X-Y 0100#
( grafico 2 a) showit                                           %4AI17X-Y 0100#
( Pr\370veplansje 2) showjp
( ISO/IEC 15775) show} if

xchart4 3 eq {12TN
              ( \344hnlich ) showde pchart 0 eq {(der ) showde} if
              ( similar to ) showen
              ( seg\372n a) showes
              ( conforme \340) showfr
              ( conformemente a) showit
              ( inf\370lge) showjp
( Pr\374fvorlage 1) showde pchart 0 eq {( von) showde} if       %0AI17X-Y 0100#
( test chart 1 of) showen                                       %1AI17X-Y 0100#
( gr\341fico 1 a) showes                                        %2AI17X-Y 0100#
( graphique 1 \340) showfr                                      %3AI17X-Y 0100#
( grafico 1 a) showit                                           %4AI17X-Y 0100#
( Pr\370veplansje 1) showjp
12RN ( DIN 33872-5) show} if

xchart4 4 eq {12TN
              ( \344hnlich ) showde pchart 0 eq {(der ) showde} if
              ( similar to ) showen
              ( seg\372n a) showes
              ( conforme \340) showfr
              ( conformemente a) showit
              ( inf\370lge) showjp
( Pr\374fvorlage 1) showde pchart 0 eq {( von) showde} if       %0AI17X-Y 0100#
( test chart 1 of) showen                                       %1AI17X-Y 0100#
( gr\341fico 1 a) showes                                        %2AI17X-Y 0100#
( graphique 1 \340) showfr                                      %3AI17X-Y 0100#
( grafico 1 a) showit                                           %4AI17X-Y 0100#
( Pr\370veplansje 1) showjp
12RN ( DIN 33872-6) show} if

xchart4 5 eq {12TN
              ( \344hnlich ) showde pchart 0 eq {(der ) showde} if
              ( similar to ) showen
              ( seg\372n a) showes
              ( conforme \340) showfr
              ( conformemente a) showit
              ( inf\370lge) showjp
( Pr\374fvorlage 1) showde pchart 0 eq {( von) showde} if       %0AI17X-Y 0100#
( test chart 1 of) showen                                       %1AI17X-Y 0100#
( gr\341fico 1 a) showes                                        %2AI17X-Y 0100#
( graphique 1 \340) showfr                                      %3AI17X-Y 0100#
( grafico 1 a) showit                                           %4AI17X-Y 0100#
( Pr\370veplansje 1) showjp
12RN ( DIN 33872-6) show} if

xchart4 6 eq {12TN
              ( \344hnlich ) showde pchart 0 eq {(der ) showde} if
              ( similar to ) showen
              ( seg\372n a) showes
              ( conforme \340) showfr
              ( conformemente a) showit
              ( inf\370lge) showjp
( Pr\374fvorlage 1) showde pchart 0 eq {( von) showde} if       %0AI17X-Y 0100#
( test chart 1 of) showen                                       %1AI17X-Y 0100#
( gr\341fico 1 a) showes                                        %2AI17X-Y 0100#
( graphique 1 \340) showfr                                      %3AI17X-Y 0100#
( grafico 1 a) showit                                           %4AI17X-Y 0100#
( Pr\370veplansje 1) showjp
12RN ( CIE R8-09) show} if

/Ycont 8 array def
/Ycont [(88,9:0,31)
        (88,9:0,62)
        (88,9:1,25)
        (88,9:2,5)
        (88,9:5)
        (88,9:10)
        (88,9:20)
        (88,9:40)] def

/Yrang 8 array def
/Yrang [(0,0 to <0,46)
        (0,46 to <0,93)
        (0,93 to <1,87)
        (1,87 to <3,75)
        (3,75 to <7,5)
        (7,5 to <15)
        (15 to <30)
        (30 to <60)] def

61 MM 09.5 MM  moveto

pchart 1 le {%pchart<=1

xchart4 0 eq {
12TN
(Achromatische Pr\374fvorlage) showde                           %0AI17X-Y 0200#
(achromatic test chart) showen                                  %1AI17X-Y 0200#
(test acrom\341tico gr\341fico) showes                          %2AI17X-Y 0200#
(Test graphique achromatique) showfr                            %3AI17X-Y 0200#
(Tavola dei colori acromatici) showit                           %4AI17X-Y 0200#
(akromatisk pr\370veplansje) showjp                             %5AI17X-Y 0200#
12TI ( N) show
             } if
xchart4 1 eq {
12TN
(Chromatische Pr\374fvorlage) showde                            %0AI17X-Y 0300#
(chromatic test chart) showen                                   %1AI17X-Y 0300#
(test crom\341tico gr\341fico) showes                           %2AI17X-Y 0300#
(Test graphique chromatique) showfr                             %3AI17X-Y 0300#
(Tavola dei colori cromatici) showit                            %4AI17X-Y 0300#
(kromatisk pr\370veplansje) showjp                              %5AI17X-Y 0300#
12TI ( RGB) show
             } if
xchart4 2 eq {
12TN
(Chromatische Pr\374fvorlage) showde                            %0AI17X-Y 0400#
(chromatic test chart) showen                                   %1AI17X-Y 0400#
(test crom\341tico gr\341fico) showes                           %2AI17X-Y 0400#
(Test graphique chromatique) showfr                             %3AI17X-Y 0400#
(Tavola dei colori cromatici) showit                            %4AI17X-Y 0
(kromatisk pr\370veplansje) showjp                              %5AI17X-Y 0400#
12TI ( CMYK) show
             } if

xchart4 3 eq {%xchart4=3
12TN
(20stufiger Elementarbunttonkreis) showde
(20 step elementary hue circle) showen
(c\355rculo de tono, 20 pasos) showes                           %2AI17X-Y 0500#
(cercle de teinte, 20 paliers) showfr                           %3AI17X-Y 0500#
(cerchio delle tinte a 20 passi) showit                         %4AI17X-Y 0500#
12RN (20-trinns fargetonesirkel) showjp                         %5AI17X-Y 0500#
12TN (; ) show
(Pr\374fvorlage nach) showde                                    %0AI17X-Y 0400#
(Test chart according to) showen                                %1AI17X-Y 0400#
(gr\341fico seg\372n a) showes                                  %2AI17X-Y 0400#
(Test graphique conforme \340) showfr                           %3AI17X-Y 0400#
(grafico conformemente a) showit                                %4AI17X-Y 0400#
(pr\370veplansje inf\370lge) showjp                             %5AI17X-Y 0400#
12RN ( DIN 33872-5) show
              } if %xchart4=3

xchart4 4 eq {%xchart4=4
12TN
(1080 Normfarben) showde                                        %0AI17X-Y 0200#
(1080 standard colours) showen                                  %1AI17X-Y 0200#
(1080 colores del est\341ndar) showes                           %2AI17X-Y 0200#
(1080 couleurs standard) showfr                                 %3AI17X-Y 0200#
(1080 colori standard) showit                                   %4AI17X-Y 0200#
(1080 standard farger) showjp                                   %5AI17X-Y 0200#
(; ) show
(Pr\374fvorlage \344hnlich) showde                              %0AI17X-Y 0400#
(Test chart similar to) showen                                  %1AI17X-Y 0400#
(gr\341fico seg\372n a) showes                                  %2AI17X-Y 0400#
(Test graphique conforme \340) showfr                           %3AI17X-Y 0400#
(grafico conformemente a) showit                                %4AI17X-Y 0400#
(pr\370veplansje inf\370lge) showjp                             %5AI17X-Y 0400#
12RN ( DIN 33872-6) show
              } if %xchart4=4

xchart4 5 eq {%xchart4=5
12TN
(9x9 Stufen) showde
(9x9 scales) showea
(; ) show
(12 Bunttonebenen) showde
(12 hue planes) showen
(12 tonos) showes                                               %2AI17X-Y 0500#
(12 teintes) showfr                                             %3AI17X-Y 0500#
(12 tintes) showit                                              %4AI17X-Y 0500#
(12 fargetone) showjp                                           %5AI17X-Y 0500#
(; ) show

(16 gleichabst\344ndige ) showde
(16 visual equidistant ) showen
(16 equidistante ) showes
(16 paliers de gris ) showfr
(16 equidistante ) showit
(16 visuelle ekvidistante ) showjp
12TI (L*) show 12RN
(-Graustufen) showde
(-grey steps) showen
( pasos de gris) showes
12TN
( \350quidistante) showfr
( grigio passi) showit
12RN
(-gr\345trinn) showjp
              } if %xchart4=5


xchart4 6 eq {%xchart4=6
12TN
(16stufiger Elementarbunttonkreis) showde
(16 step elementary hue circle) showen
(c\355rculo de tono, 16 pasos) showes                           %2AI17X-Y 0500#
(cercle de teinte, 16 paliers) showfr                           %3AI17X-Y 0500#
(cerchio delle tinte a 16 passi) showit                         %4AI17X-Y 0500#
12RN (16-trinns fargetonesirkel) showjp                         %5AI17X-Y 0500#
(; ) show
12TN
(Pr\374fvorlage nach) showde                                    %0AI17X-Y 0400#
(Test chart according to) showen                                %1AI17X-Y 0400#
(gr\341fico seg\372n a) showes                                  %2AI17X-Y 0400#
(Test graphique conforme \340) showfr                           %3AI17X-Y 0400#
(grafico conformemente a) showit                                %4AI17X-Y 0400#
(pr\370veplansje inf\370lge) showjp                             %5AI17X-Y 0400#
12RN ( DIN 33872-5) show
              } if %xchart4=6

             } if %pchart<=1

pchart 2 eq {%pchart=2
12TN (Gesehener) showde 12TI ( Y) showde 12RN (-Kontrast) showde
12TN (Viewing) showen 12TI ( Y) showen 12RN ( contrast) showen
12TI (Y) showes 12RN ( contraste visible) showes
12TI (Y) showfr 12RN ( contraste visible) showfr
12TI (Y) showit 12RN ( contrasto visibile) showit
12TN (Synlig) showjp 12TI ( Y) showjp 12RN ( kontrast) showjp

12TI ( Y) show
10TN 0 -2 rmoveto (W) show 0 2 rmoveto
12TI (:) show (Y) show
10TN 0 -2 rmoveto (N) show 0 2 rmoveto
12TN
(=) show
Ycont xchart xchartd idiv get show
(; ) show
12TI (Y) show
10TN 0 -2 rmoveto (N) show 0 2 rmoveto
12RN
(-Bereich ) showde
(-range ) showen
(-rango ) showes
(-gamme ) showfr
(-gamma ) showit
(-serien ) showjp
12TN
Yrang xchart xchartd idiv get show
         } if %pchart=2

180 MM 13.5 MM moveto
12TN
(Eingabe: ) showde                                              %0AI17X-Y 0800#
(input: ) showen                                                %1AI17X-Y 0800#
(entrada: ) showes                                              %2AI17X-Y 0800#
(entr\351e : ) showfr                                           %3AI17X-Y 0800#
(Input: ) showit                                                %4AI17X-Y 0800#
(input: ) showjp                                                %5AI17X-Y 0800#
12TI
(rgb/cmy0/000n/w set...) show

180 MM 9.5 MM moveto
12TN
(Ausgabe: ) showde                                              %0AI17X-Y 0900#
(output: ) showen                                               %1AI17X-Y 0900#
(salida: ) showes                                               %2AI17X-Y 0900#
(sortie : ) showfr                                              %3AI17X-Y 0900#
(Output: ) showit                                               %4AI17X-Y 0900#
(output: ) showjp                                               %5AI17X-Y 0900#

12RN (-) show 12TI (>rgb) show
10TN 0 -2 rmoveto
colorm 1 eq {() show} if
deintp 0 eq {(dd) show} {(de) show} ifelse
0 2 rmoveto
12TI ( setrgbcolor) show

%LSC$ (N) eq {
%(keine \334nderung) showde                                      %0AI17X-Y 1000#
%(no change) showen                                              %1AI17X-Y 1000#
%(ning\372n cambio) showes                                       %2AI17X-Y 1000#
%(aucun changement) showfr                                       %3AI17X-Y 1000#
%(nessun cambiamento) showit                                     %4AI17X-Y 1000#
%(ingen endring) showjp                                          %5AI17X-Y 1000#
%            } if

%1 setgray %start white and unvisible
LSC$ (S) eq {12TN
(Startup(S)Daten abh\344ngig) showde
(Startup (S) data dependend) showen
(Startup (S) data dependend) showes
(Startup (S) data dependend) showfr
(Startup (S) data dependend) showit
(Startup (S) data dependend) showjp
            } if

%LSC$ (F) eq {12TI (g) show
%             10TI
%             0 -2 rmoveto (P) show 0 2 rmoveto
%             12TN (=) show
%             /xchartN xchart 8 idiv def
%             /xchartP xchart xchart 8 idiv 8 mul sub def
%             /gammaNl 1 2.4 xchartN 0.18 mul sub 2.4 div div def
%             /gammaPl   2.4 xchartP 0.18 mul sub 2.4 div     def
%             gammaPl cvsshow2 (; ) show
%             12TI (g) show
%             10TI
%             0 -2 rmoveto (N) show 0 2 rmoveto
%             12TN (=) show
%             gammaNl cvsshow2
%            } if

 62 MM 198.5 MM  moveto
12RN
serverMA show (AI17/AI17) show
12TN
/xchartg where {pop (F0N) show (X) show %
                (.PDF /.PS) show}
               {(L2N) show LEX$ show %
%                (.PDF /.PS) show
               } ifelse

%1 setgray %start white and unvisible
(; ) show
LSC$ (N) eq {12RN
(Start-Ausgabe) showde                                          %0AI17X-Y 1300#
(start output) showen                                           %1AI17X-Y 1300#
(comience salida) showes                                        %2AI17X-Y 1300#
(sortie de production) showfr                                   %3AI17X-Y 1300#
(inizio dell'output) showit                                     %4AI17X-Y 1300#
(start output) showjp                                           %5AI17X-Y 1300#
           } if
LSC$ (C) eq {12RN
(Start-Ausgabe) showde                                          %0AI17X-Y 1300#
(start output) showen                                           %1AI17X-Y 1300#
(comience salida) showes                                        %2AI17X-Y 1300#
(sortie de production) showfr                                   %3AI17X-Y 1300#
(inizio dell'output) showit                                     %4AI17X-Y 1300#
(start output) showjp                                           %5AI17X-Y 1300#
           } if
LSC$ (F) eq {12RN
(3D-Linearisierung) showde                                      %0AI17X-Y 1600#
(3D-linearization) showen                                       %1AI17X-Y 1600#
(3D-linealizaci\363n) showes                                    %2AI17X-Y 1600#
12TN
(lin\351arisation 3D) showfr                                    %3AI17X-Y 1600#
(linearizzazione 3D) showit                                     %4AI17X-Y 1600#
12RN
(3D-linearisering) showjp                                       %5AI17X-Y 1600#
           } if
12TN
(, Seite ) showde                                               %0AI17X-Y 2500#
(, page ) showen                                                %1AI17X-Y 2500#
(, p\341gina ) showes                                           %2AI17X-Y 2500#
(, p\341ge ) showfr                                             %3AI17X-Y 2500#
(, pagine ) showit                                              %4AI17X-Y 2500#
(, side ) showjp                                                %5AI17X-Y 2500#
xchart xchartd idiv pchartm mul pchart add 1 add cvishow (/) show
xchartm xchartd idiv pchartm mul cvishow

 62 MM 194 MM  moveto
LSC$ (N) eq LSC$ (C) eq or {12RN
(N: Keine 3D-Linearisierung (OL) ) showde                    %0AI17X-Y 1700#
(N: no 3D-linearization (OL) ) showen                        %1AI17X-Y 1700#
(N: ninguna 3D-) showes 12TN (linealizaci\363n (OL) ) showes %2AI17X-Y 1700#
(N: aucune lin\351arisation 3D (OL) ) showfr                    %3AI17X-Y 1700#
(N: nessuna linearizzazione 3D (OL) ) showit                 %4AI17X-Y 1700#
12RN
(N: ingen 3D-linearisering (OL) ) showjp                     %5AI17X-Y 1700#

(in Datei (F) oder PS-Startup (S)) showde                    %0AI17X-Y 1800#
(in file (F) or PS-startup (S)) showen                       %1AI17X-Y 1800#
(en archivo (F) o PS-startup (S)) showes                     %2AI17X-Y 1800#
(dans fichier (F) ou PS-startup (S)) showfr                  %3AI17X-Y 1800#
(nel file (F) o PS-startup (S)) showit                       %4AI17X-Y 1800#
(i fil (F) eller PS-startup (S)) showjp                      %5AI17X-Y 1800#
           }
           {12RN LSC$ show (: ) show
(3D-Linearisierung) showde                                   %0AI17X-Y 1900#
(3D-linearization) showen                                    %1AI17X-Y 1900#
(3D-) showes 12TN (linealizaci\363n) showes                  %2AI17X-Y 1900#
(lin\351arisation 3D) showfr                                 %3AI17X-Y 1900#
(linearizzazione 3D) showit                                  %4AI17X-Y 1900#
12RN
(3D-linearisering) showjp                                    %5AI17X-Y 1900#
( AI17/AI17L) show
/xchartg where {pop (F0N) show (X) show %
                (.PDF /.PS) show}
               {(L2N) show LEX$ show %
%                (.PDF /.PS) show
               } ifelse
          } ifelse

LSC$ (F) eq {12TN
( in Datei (F)) showde                                          %0AI17X-Y 2000#
( in file (F)) showen                                           %1AI17X-Y 2000#
( en archivo (F)) showes                                        %2AI17X-Y 2000#
( dans fichier (F)) showfr                                      %3AI17X-Y 2000#
( nel file (F)) showit                                          %4AI17X-Y 2000#
( i fil (F)) showjp                                             %5AI17X-Y 2000#
           } if

LSC$ (S) eq {12TN
( im Distiller Startup (S) Directory) showde                    %0AI17X-Y 2100#
( in Distiller Startup (S) Directory) showen                    %1AI17X-Y 2100#
( en el Distiller Startup (S) Directory) showes                 %2AI17X-Y 2100#
( dans le Distiller Startup (S) Directory) showfr               %3AI17X-Y 2100#
( nel Distiller Startup (S) Directory) showit                   %4AI17X-Y 2100#
( i Distiller Startup (S) Directory) showjp                     %5AI17X-Y 2100#
           } if
LSC$ (D) eq {12RN
( in PS-Device (D)) showde                                   %0AI17X-Y 2200#
( in PS-device (D)) showen                                   %1AI17X-Y 2200#
( en el PS-device (D)) showes                                %2AI17X-Y 2200#
( dans l'appareil PS (D)) showfr                                %3AI17X-Y 2200#
( nel PS-dispositivo (D)) showit                             %4AI17X-Y 2200#
( i PS-Device (D)) showjp                                    %5AI17X-Y 2200#
           } if
LSC$ (T) eq {12TN
( im Distiller Startup (S) Directory) showde                    %0AI17X-Y 2300#
( in Distiller Startup (S) Directory) showen                    %1AI17X-Y 2300#
( en el Distiller Startup (S) Directory) showes                 %2AI17X-Y 2300#
( dans le Distiller Startup (S) Directory) showfr               %3AI17X-Y 2300#
( nel Distiller Startup (S) Directory) showit                   %4AI17X-Y 2300#
( i Distiller Startup (S) Directory) showjp                     %5AI17X-Y 2300#
           } if
LSC$ (E) eq {12RN
( in PS-Device (D)) showde                                   %0AI17X-Y 2400#
( in PS-device (D)) showen                                   %1AI17X-Y 2400#
( en el PS-device (D)) showes                                %2AI17X-Y 2400#
( dans l'appareil PS  (D)) showfr                               %3AI17X-Y 2400#
( nel PS-dispositivo (D)) showit                             %4AI17X-Y 2400#
( i PS-Device (D)) showjp                                    %5AI17X-Y 2400#
           } if
%0 setgray %end white and unvisible

 16 MM 185 MM moveto
-90 rotate
12TN
(Siehe \344hnliche Dateien: ) showde                            %0AI17X-Y 2600#
(see similar files: ) showen                                    %1AI17X-Y 2600#
(vea archivos semejantes: ) showes                              %2AI17X-Y 2600#
(voir fichiers similaires: ) showfr                             %3AI17X-Y 2600#
(vedi file simili: ) showit                                     %4AI17X-Y 2600#
(se lignende filer: ) showjp                                    %5AI17X-Y 2600#
12RN
serverMA show (AI17/AI17.HTM) show
12TN
%(0) show
%LSC$ show LEX$ show
90 rotate

 12 MM 185 MM moveto
-90 rotate
12TN
(Technische Information: ) showde                               %0AI17X-Y 2700#
(technical information: ) showen                                %1AI17X-Y 2700#
(informaci\363n t\351cnica: ) showes                            %2AI17X-Y 2700#
(informations techniques: ) showfr                              %3AI17X-Y 2700#
(informazioni tecniche: ) showit                                %4AI17X-Y 2700#
(teknisk informasjon: ) showjp
12RN
serverMC show 
( oder ) showde                                                 %0AI17X-Y 2800#
( or ) showen                                                   %1AI17X-Y 2800#
( o ) showes                                                    %2AI17X-Y 2800#
( ou ) showfr                                                   %3AI17X-Y 2800#
( o ) showit                                                    %4AI17X-Y 2800#
( eller ) showjp                                                %5AI17X-Y 2800#
serverMB show (AE.HTM) show
12TN
 90 rotate

% 12 MM 90 MM moveto
%-90 rotate
%(Version 2.1, io=1,) show
%LSC$ (N) eq {(1) show} if
%LSC$ (S) eq {(1?) show} if
%LSC$ (D) eq {(1?) show} if
%LSC$ (F) eq {i*ptrsc cvishow
%             IMES 0 eq {(, CIELAB) show}
%                       {(, CIEXYZ) show} ifelse
%            } if
% 90 rotate

281 MM 185 MM moveto
-90 rotate
12RN
(TUB-Registrierung:) showde                                     %0AI17X-Y 2900#
(TUB Registration:) showen                                      %1AI17X-Y 2900#
12TN
(TUB matr\355cula:) showes                                      %2AI17X-Y 2900#
(TUB enregistrement:) showfr                                    %3AI17X-Y 2900#
(iscrizione TUB:) showit                                        %4AI17X-Y 2900#
(TUB Registrering:) showjp                                      %5AI17X-Y 2900#
12RN ( 20190301-AI17/AI17L) show

(0) show
LSC$ show LEX$ show
90 rotate

281 MM 74 MM moveto
-90 rotate
12RN
(TUB-Material: Code=rha4ta) showde                              %0AI17X-Y 3000#
(TUB material: code=rha4ta) showen                              %1AI17X-Y 3000#
(TUB material: code=rha4ta) showes                              %2AI17X-Y 3000#
12TN
(TUB mat\351riel: code=rha4ta) showfr                           %3AI17X-Y 3000#
(TUB materiale: code=rha4ta) showit                             %4AI17X-Y 3000#
12RN
(TUB-materiell: code=rha4ta) showjp                             %5AI17X-Y 3000#
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
12TN
( Anwendung f\374r Messung oder Beurteilung ) showde            %0AI17X-Y 3100#
( application for measurement or viewing ) showen               %1AI17X-Y 3100#
( aplicaci\363n para la medida ) showes                         %2AI17X-Y 3100#
( application pour la mesure ) showfr                           %3AI17X-Y 3100#
( Applicatione per la misura dell'output ) showit               %4AI17X-Y 3100#
( anvendelse for m\345ling ) showjp                             %5AI17X-Y 3100#

xchart5f 0 eq {%xchart5f=0
12TN
(von Display\255 und Druck\255Ausgabe) showde                   %0AN66X-Y 3200#
(of display and print output) showen                            %1AN66X-Y 3200#
(de salida de display y de impresi\363n) showes                 %2AN66X-Y 3200#
(de sortie d'affichage et d'impression) showfr                  %3AN66X-Y 3200#
(di display et output di stampa) showit                         %4AN66X-Y 3200#
(av display og utskriftsutgang) showjp                          %5AN66X-Y 3200#
} if %xchart5f=0

xchart5f 1 eq xchart5f 2 eq or {%xchart5f=1,2
12TN
(von Offsetdruckausgabe) showde                                 %0AI17X-Y 3300#
(of offset print output) showen                                 %1AI17X-Y 3300#
(salida en la impressi\363n offset) showes                      %2AI17X-Y 3300#
(des sorties sur offset) showfr                                 %3AI17X-Y 3300#
(output nella stampa di offset) showit                          %4AI17X-Y 3300#
(av offsettrykk output) showjp                                  %5AI17X-Y 3300#
} if %xchart5f=1,2

xchart5f 3 eq {%xchart5f=3
12TN
(von Laserdruckerausgabe) showde                                %0AI17X-Y 3400#
(of laser printer output) showen                                %1AI17X-Y 3400#
(salida de impresora l\341ser) showes                           %2AI17X-Y 3400#
(des sorties sur imprimante laser) showfr                       %3AI17X-Y 3400#
(output della stampante laser) showit                           %4AI17X-Y 3400#
(av laserprinter output) showjp                                 %5AI17X-Y 3400#
} if %xchart5f=3

%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


%} if %end if pchart=0

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

%%Trailer

%%EndDocument
EndEPSF grestore gsave
                                                        
showpage
grestore

%} for %colsepf=0,1

%} for %pchartf=0,2

%} for %xchartf=0,7

%} for %xcolorf=3,3

%} for %deintpf=0,1

%} for %colormf=0,1

%} for %lanindf=0,0

%%Trailer