%!PS-Adobe-3.0 EPSF-3.0 AI000-7N
%%BoundingBox: 70 82 785 206

%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/AI00/AI00.HTM)
  /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1)
  /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik)
  /Keywords (image reproduction, colour devices)
  /Creator (klaus.richter@mac.com)
  /CreationDate (D:2016040112000)
  /ModDate (D:20160401112000)
/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

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

/TIS {200 /TimesI-ISOL1 FS} bind def
/TIK {250 /TimesI-ISOL1 FS} bind def
/TIM {300 /TimesI-ISOL1 FS} bind def
/TIG {350 /TimesI-ISOL1 FS} bind def

/TBS {200 /TimesB-ISOL1 FS} bind def
/TBK {250 /TimesB-ISOL1 FS} bind def
/TBM {300 /TimesB-ISOL1 FS} bind def
/TBG {350 /TimesB-ISOL1 FS} bind def

/TBIS {200 /TimesBI-ISOL1 FS} bind def
/TBIK {250 /TimesBI-ISOL1 FS} bind def
/TBIM {300 /TimesBI-ISOL1 FS} bind def
/TBIG {350 /TimesBI-ISOL1 FS} bind def

/CS {200 /Courier-ISOL1 FS} bind def
/CK {250 /Courier-ISOL1 FS} bind def
/CM {300 /Courier-ISOL1 FS} bind def
/CG {350 /Courier-ISOL1 FS} bind def

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

%*****************************************************************************
%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
/tzaccmyw0l 64 array def
/tzamcmyw0l 64 array def
/tzaycmyw0l 64 array def
/tzancmyw0l 64 array def
 
/tzbocmyw0l 64 array def
/tzblcmyw0l 64 array def
/tzbvcmyw0l 64 array def
/tzbncmyw0l 64 array def
 
/tzaccmyw0l [ %Ccmyw0l01.dat
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
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 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 0.000 0.000 0.000 0.000 0.000 0.000
] def
/tzamcmyw0l [ %Mcmyw0l01.dat
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
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
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 0.000 0.000 0.000
0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000
] def
/tzaycmyw0l [ %Ycmyw0l01.dat
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 0.000 0.000 0.000
0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000
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
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
/tzancmyw0l [ %Ncmyw0l01.dat
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 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 0.000 0.000 0.000 0.000 0.000 0.000
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
] def
/tzbocmyw0l [ %Ocmyw0l01.dat
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
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.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
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
/tzblcmyw0l [ %Lcmyw0l01.dat
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
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
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
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
/tzbvcmyw0l [ %Vcmyw0l01.dat
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.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
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 0.000 0.000 0.000
0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000
] def
/tzbncmyw0l [ %CMYcmyw0l01.dat
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.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.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
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

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

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

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

/tfnw* {tznw* setgray} def
/tfww* {tzww* setgray} def

/tfn {0 setgray} bind def
/tfw {1 setgray} bind def

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

%END CM_S0LCMYS.DAT Linearization Method (LM) LOCAL (L) cmyolvnw*S DATA 20010401

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

/proc_rosetten {%BEG procedure rosetten
                %requires 0<=iout<=1
                %requires deintp=0,1

/tfzw* {tzancmyw0l 07 48 add get 0.5000 mul
        tzancmyw0l 08 48 add get 0.5000 mul add
        1 exch sub 1.0 exp setgray} bind def

15 setlinewidth
tfnw*
0 0  moveto 6000 0 rlineto 0 4000 rlineto
           -6000 0 rlineto closepath fill

0 0  moveto 12000 0 rlineto 0 8400 rlineto
           -12000 0 rlineto closepath stroke

tfnw*
TK
100 -230 moveto
    (AI000-3, ) show
(Bild ) showde
(picture ) showen
(Fig. ) showes
(Fig. ) showfr
(Fig. ) showit
(Figur ) showjp

iout 3 ge {(A1) show}{(C1) show} ifelse
(W) show Txx show (: ) show

TK
(Element A: Radialgitter ) showde
(Element A: radial gratings ) showen
(Elemento A: rejillas radial ) showes
(\311l\351ment A: \351toile de Siemens ) showfr
(Elemento A: reticoli radiali ) showit
(Element A: Radielt gitter ) showjp

TIK
(N-W, W-N, N-Z ) show

TK
(und ) showde
(and ) showen
(y ) showes
(et ) showfr
(i ) showit
(og ) showjp

TIK
(W-Z) show

TK (; ) show
TIK (PS) show TK
(\255Operator:) showde
( operator:) showen
( operator:) showes
( op\351rateur :) showfr
( operator:) showit
( operator:) showjp

TIK
xcolor 0 eq {( 000n setcmykcolor) show} if
xcolor 1 eq {( w setgray) show} if
xcolor 2 eq {( nnn0 setcmykcolor) show} if
xcolor 3 eq {( www setrgbcolor) show} if
TK
 
%/ausz 7 def /half 0 def %Halbt      %Farbauszug 1=C, 2=M, 3=Y, 7=N, 8=F

15 setlinewidth

%neuer Rastermittelpunkt und Nullpunkt
  3000  2100 translate
%Zeichnen der Rosette C, Radius 1,8 cm, Zentralgrau

tfzw*
 newpath 0 0 0500 0 360 arc closepath stroke
 newpath 0 0 1000 0 360 arc closepath stroke
 newpath 0 0 1500 0 360 arc closepath stroke
 0 10 350 {newpath 0 0 moveto 0 0 1800 4 -1 roll dup 5 add  arc
 closepath fill} for

tfww*
 25 setlinewidth
 newpath 0 0 0300 0 360 arc closepath stroke
 -3000 -2100 translate

TBK tfww*
  1300 0100 moveto
(Radialgitter (Siemenssterne)) showde
(radial gratings (Siemens\255stars)) showen
(rejillas radial (Siemens estrellas)) showes
(\351toile de Siemens) showfr
(reticoli radiali (Siemens stelle)) showit
(radielt gitter (Siemens-stjerner)) showjp

TBIK ( N-Z) show TBK

TBM
  3000  550 add 2100 moveto (10) show
  3000 1050 add 2100 moveto (20) show
  3000 1550 add 2100 moveto (30) show
                                       

0000 4400 translate

/tfzw* {tzancmyw0l 07 48 add get 0.5000 mul
        tzancmyw0l 08 48 add get 0.5000 mul add
        1 exch sub 1.0 exp setgray} bind def

tfnw*
0 0  moveto 6000 0 rlineto 0 4000 rlineto
           -6000 0 rlineto closepath fill

0 0  moveto 6000 0 rlineto 0 4000 rlineto
           -6000 0 rlineto closepath stroke

%neuer Rastermittelpunkt und Nullpunkt
  3000  2100 translate
%Zeichnen der Rosette C, Radius 1,8 cm, Zentralgrau
tfww*
 newpath 0 0 0500 0 360 arc closepath stroke
 newpath 0 0 1000 0 360 arc closepath stroke
 newpath 0 0 1500 0 360 arc closepath stroke
 0 10 350 {newpath 0 0 moveto 0 0 1800 4 -1 roll dup 5 add  arc
 closepath fill} for
tfnw*
 25 setlinewidth
 newpath 0 0 0300 0 360 arc closepath stroke
 -3000 -2100 translate

TBK tfww*
  1300 0100 moveto
(Radialgitter (Siemenssterne)) showde
(radial gratings (Siemens\255stars)) showen
(rejillas radial (Siemens estrellas)) showes
(\351toile de Siemens) showfr
(reticoli radiali (Siemens stelle)) showit
(radielt gitter (Siemens-stjerner)) showjp
TBIK ( N-W) show TBK

TBM tfzw*
  3000  550 add 2100 moveto (10) show
  3000 1050 add 2100 moveto (20) show
  3000 1550 add 2100 moveto (30) show
                  
-0000 -4400 translate

 6000  4400 translate

/tfzw* {tzancmyw0l 07 48 add get 0.5000 mul
        tzancmyw0l 08 48 add get 0.5000 mul add
        1 exch sub 1.0 exp setgray} bind def

%neuer Rastermittelpunkt und Nullpunkt
  3000  2100 translate
%Zeichnen der Rosette C, Radius 1,8 cm, Zentralgrau
tfnw*
 newpath 0 0 0500 0 360 arc closepath stroke
 newpath 0 0 1000 0 360 arc closepath stroke
 newpath 0 0 1500 0 360 arc closepath stroke
 0 10 350 {newpath 0 0 moveto 0 0 1800 4 -1 roll dup 5 add  arc
 closepath fill} for
tfww*
 25 setlinewidth
 newpath 0 0 0300 0 360 arc closepath stroke
 -3000 -2100 translate

TBK tfnw*
  1300 0100 moveto
(Radialgitter (Siemenssterne)) showde
(radial gratings (Siemens\255stars)) showen
(rejillas radial (Siemens estrellas)) showes
(\351toile de Siemens) showfr
(reticoli radiali (Siemens stelle)) showit
(radielt gitter (Siemens-stjerner)) showjp
TBIK ( W-N) show TBK

TBM tfzw*
  3000  550 add 2100 moveto (10) show
  3000 1050 add 2100 moveto (20) show
  3000 1550 add 2100 moveto (30) show
                  
-6000 -4400 translate

 6000  0000 translate
/tfzw* {tzancmyw0l 07 48 add get 0.5000 mul
        tzancmyw0l 08 48 add get 0.5000 mul add
        1 exch sub 1.0 exp setgray} bind def

%tfww*
%0 0  moveto 6000 0 rlineto 0 4000 rlineto
%           -6000 0 rlineto closepath fill

%neuer Rastermittelpunkt und Nullpunkt
  3000  2100 translate

%Zeichnen der Rosette C, Radius 1,8 cm, Zentralgrau
tfzw*
 newpath 0 0 0500 0 360 arc closepath stroke
 newpath 0 0 1000 0 360 arc closepath stroke
 newpath 0 0 1500 0 360 arc closepath stroke
 0 10 350 {newpath 0 0 moveto 0 0 1800 4 -1 roll dup 5 add  arc
 closepath fill} for
tfnw*
 25 setlinewidth
 newpath 0 0 0300 0 360 arc closepath stroke
 -3000 -2100 translate

TBK tfnw*
  1300 0100 moveto
(Radialgitter (Siemenssterne)) showde
(radial gratings (Siemens\255stars)) showen
(rejillas radial (Siemens estrellas)) showes
(\351toile de Siemens) showfr
(reticoli radiali (Siemens stelle)) showit
(radielt gitter (Siemens-stjerner)) showjp
TBIK ( W-Z) show TBK

TBM
  3000  550 add 2100 moveto (10) show
  3000 1050 add 2100 moveto (20) show
  3000 1550 add 2100 moveto (30) show

-6000 -0000 translate                                    

} def %END proc_rosetten

%**********************************************************
/proc_05step {%BEG proc_05step
                %requires 0<=iout<=1
                %requires deintp=0,1

/tfzw* {tzancmyw0l 07 48 add get 0.5000 mul
        tzancmyw0l 08 48 add get 0.5000 mul add
        1 exch sub 1.0 exp setgray} bind def

15 setlinewidth
tfzw*
0 0  moveto 12000 0 rlineto 0 4000 rlineto
           -12000 0 rlineto closepath fill
tfnw*
0 0  moveto 12000 0 rlineto 0 4000 rlineto
           -12000 0 rlineto closepath stroke

tfnw*
TK
100 -230 moveto
    (AI000-5, ) show
(Bild ) showde
(picture ) showen
(Fig. ) showes
(Fig. ) showfr
(Fig. ) showit
(Figur ) showjp

iout 3 ge {(A2) show}{(C2) show} ifelse
(W) show Txx show (: ) show

(Element B: 5 visuell gleichabst\344ndige ) showde
(Element B: 5 visual equidistant ) showen
(Elemento B: 5 equidistante ) showes
(\311l\351ment B: 5 paliers de gris ) showfr
(Elemento B: 5 equidistante ) showit
(Element B: 5 visuelle ekvidistante ) showjp

TIK (L*) show

TK
(\255Graustufen) showde
(\255grey steps) showen
( pasos de gris) showes
( \350quidistante) showfr
( grigio passi) showit
(\255gr\345trinn) showjp

TIK
( + N0 + W1) show

TK (; ) show
TIK (PS) show TK
(\255Operator:) showde
( operator:) showen
( operator:) showes
( op\351rateur :) showfr
( operator:) showit
( operator:) showjp

TIK
xcolor 0 eq {( 000n setcmykcolor) show} if
xcolor 1 eq {( w setgray) show} if
xcolor 2 eq {( nnn0 setcmykcolor) show} if
xcolor 3 eq {( www setrgbcolor) show} if
TK

15 setlinewidth

/L*Nl 18.01 def %standard lightness black
/L*Wl 95.41 def %standard lightness white
/L*ND where {pop /L*Nl L*ND def} if
/L*WD where {pop /L*Wl L*WD def} if
/L*Dl L*Wl L*Nl sub def %range between white and black

%%%%%%%%%%%   oberer Schriftzug %%%%%%%%%%%%%%%%
tfww*
80 3650 moveto TBIG (L*/Y) show -50 -50 rmoveto TBK

colorm 0 eq {
(Eingabe) showde                                                %0AI00X-Y 0100#
(input) showen                                                  %1AI00X-Y 0100#
(entrada) showes                                                %2AI00X-Y 0100#
(entr\351e) showfr                                              %3AI00X-Y 0100#
(immettere) showit                                              %4AI00X-Y 0100#
(input) showjp                                                  %5AI00X-Y 0100#
} if

colorm 0 ne {
(intended) showen
(vorgesehen) showde
(pretenden) showes
(destin\361) showfr
(destinati) showit
(intendert) showjp
} if

  100 3200 moveto TBIK
((absolut)) showde
((absolute)) showen
((absoluta)) showes
((absolu)) showfr
((absoluta)) showit
((absolutt)) showjp

 100  1200 moveto TBIG (w*=l*) show -150 -100 rmoveto TBIK (CIELAB, r) show
 100  800 moveto TBIK
((relativ)) showde
((relative)) showen
((relativa)) showes
((relative)) showfr
((relativo)) showit
((relativ)) showjp

 900  450 moveto TBIG (w*) show -150 -50 rmoveto TBK
(Eingabe) showde                                                %0AI00X-Y 0500#
(input) showen                                                  %1AI00X-Y 0500#
(entrada) showes                                                %2AI00X-Y 0500#
(entr\351e) showfr                                              %3AI00X-Y 0500#
(immettere) showit                                              %4AI00X-Y 0500#
(input) showjp                                                  %5AI00X-Y 0500#

colorm 0 ne {900  100 moveto TBIG (w*) show
             -050 -50 rmoveto TBK
(Ausgabe) showde                                                %0AI00X-Y 0600#
(output) showen                                                 %1AI00X-Y 0600#
(salida) showes                                                 %2AI00X-Y 0600#
(sortie) showfr                                                 %3AI00X-Y 0600#
(uscita) showit                                                 %4AI00X-Y 0600#
(output) showjp                                                 %5AI00X-Y 0600#
} if

2200 600 translate
%untere Reihe um +200, +200 verschoben bei dx=1000 von 1400
tfnw*
     
/ntu [(0,000) (0,067) (0,133) (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
/nto [18.01 23.17 28.33 33.49 38.65 43.81 48.97 54.13
      59.29 64.45 69.61 74.77 79.93 85.09 90.25 95.41
      18.01 37.36 56.71 76.06 95.41] def
/nty [ 2.52  3.85  5.58  7.77 10.46 13.71 17.57 22.10
      27.34 33.36 40.20 47.91 56.56 66.18 76.84 88.59
       2.52  9.73 24.63 49.98 88.59] def
/n* [(F) (E) (D) (C) (B) (A) (9) (8)
     (7) (6) (5) (4) (3) (2) (1) (0)
     (F) (B) (7) (3) (0)] def

/cvs1 {0.05 add 10 mul cvi 0.1 mul 7 string cvs} def
/cvs3 {0.0005 add 1000 mul cvi 0.001 mul 7 string cvs} def

/ntu2 21 array def

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

/MTLoutaS0 21 array def
/MTLoutaS1 21 array def
/MTLoutaS2 21 array def

/MTLoutaS0g where {pop
                   0 1 20 {/i exch def
                           MTLoutaS0 i MTLoutaS0g i get put} for}
                   {/MTLoutaS0 [18.0 23.2 28.3 33.5 38.6 43.8 49.0 54.1
                                59.3 64.4 69.6 74.8 79.9 85.1 90.2 95.4
                                18.0 37.3 56.7 76.0 95.4] def
                   } ifelse

/MTLoutaS1g where {pop
                   16 1 20 {/i exch def
                           i 16 eq {MTLoutaS1 i MTLoutaS1g  0 get put} if
                           i 17 eq {MTLoutaS1 i 
                                    MTLoutaS1g  3 get 0.25 mul
                                    MTLoutaS1g  4 get 0.75 mul add
                                    put} if
                           i 18 eq {MTLoutaS1 i
                                    MTLoutaS1g  7 get 0.50 mul
                                    MTLoutaS1g  8 get 0.50 mul add
                                    put} if
                           i 19 eq {MTLoutaS1 i
                                    MTLoutaS1g 11 get 0.75 mul
                                    MTLoutaS1g 12 get 0.25 mul add
                                    put} if
                           i 20 eq {MTLoutaS1 i MTLoutaS1g 15 get put} if
                          } for}
                  {16 1 20 {/i exch def
                            MTLoutaS1 i MTLoutaS0 i get put} for
                  } ifelse

/MTLoutaS2g where {pop
                   16 1 20 {/i exch def
                            i 16 eq {MTLoutaS2 i MTLoutaS2g 0 get put} if
                            i 17 eq {MTLoutaS2 i
                                     MTLoutaS2g  3 get 0.25 mul
                                     MTLoutaS2g  4 get 0.75 mul add
                                     put} if
                            i 18 eq {MTLoutaS2 i
                                     MTLoutaS2g  7 get 0.50 mul
                                     MTLoutaS2g  8 get 0.50 mul add
                                     put} if
                            i 19 eq {MTLoutaS2 i
                                     MTLoutaS2g 11 get 0.75 mul
                                     MTLoutaS2g 12 get 0.25 mul add
                                     put} if
                            i 20 eq {MTLoutaS2 i MTLoutaS2g 15 get put} if
                           } for}
                  {16 1 20 {/i exch def
                            MTLoutaS2 i MTLoutaS1 i get put} for
                  } ifelse

16 1 20 {/i exch def %i=16,20
        colorm 0 eq {nto i  i 16 sub 4 div 
                     MTLoutaS0 20 get MTLoutaS0 16 get sub mul
                     MTLoutaS0 16 get add put
                     /Y* {MTLoutaS0 i get 16 add 116 div} bind def
                    }
                    {nto i  i 16 sub 4 div
                     MTLoutaS1 20 get MTLoutaS1 16 get sub mul
                     MTLoutaS1 16 get add put
                     /Y* {MTLoutaS1 i get 16 add 116 div} bind def
                    } ifelse
        nty i  Y* DecodeXYZ* 100.00 mul  put
       } for %i=0,15

16 1 20 {/i exch def %i=16,20
        ntu2 i MTLoutaS2  i get MTLoutaS2 16 get sub
               MTLoutaS2 20 get MTLoutaS2 16 get sub div put
       } for %i=16,20

TBM tfww*
/iy0 0 def
0 1 06 {/j exch def /ix0 j 1400 mul def
          ix0 100 add  iy0 250 sub moveto
          j 4 le {ntu 16 j add get show
                  colorm 0 ne xcolor 1 eq and {ix0 100 add  iy0 500 sub moveto
                                               ntu2 16 j add get cvs3 show} if
                   } if
          5 j eq {-150    0 rmoveto TBIM (N) show
                     0  -50 rmoveto TBIK (0) show
                    50   50 rmoveto TBIM ((min.)) show
                   100    0 rmoveto
                  } if
          6 j eq {-150    0 rmoveto TBIM (W) show
                     0  -50 rmoveto TBIK (1) show
                    50   50 rmoveto TBIM ((max.)) show
                   100    0 rmoveto
                  } if
       } for %j

TBM tfww*
/iy0 3050 def
0 1 06 {/j exch def /ix0 100 j 1400 mul add def
        ix0 200 sub iy0 moveto
          j 4 le {nto 16 j add get cvs1 show (/) show
                  xcolor 0 eq {nty 16 j add get cvs1 show}
                              {colorm 0 ne {MTLoutaS2 16 j add get cvs1 show} 
                                           {nty 16 j add get cvs1 show} ifelse
                              } ifelse
                       } if
          5 j eq {-150    0 rmoveto TBIM (N) show
                     0  -50 rmoveto TBIK (0) show
                    50   50 rmoveto TBIM ((min.)) show
                   100    0 rmoveto} if
          6 j eq {-150    0 rmoveto TBIM (W) show
                     0  -50 rmoveto TBIK (1) show
                    50   50 rmoveto TBIM ((max.)) show
                   100    0 rmoveto} if
        } for %j
                  
TBG tfnw*
/iy0 0 def
/s 1000 def
 0 1 06 {/j exch def
         /ix0 j 1400 mul def
         ix0 iy0 s s
          1 j eq {tzancmyw0l 03 48 add get 0.2500 mul
                  tzancmyw0l 04 48 add get 0.7500 mul add} if
          2 j eq {tzancmyw0l 07 48 add get 0.5000 mul
                  tzancmyw0l 08 48 add get 0.5000 mul add} if
          3 j eq {tzancmyw0l 11 48 add get 0.7500 mul
                  tzancmyw0l 12 48 add get 0.2500 mul add} if
          0 j eq 5 j eq or {tzancmyw0l  0 48 add get} if
          4 j eq 6 j eq or {tzancmyw0l 15 48 add get} if
          1 exch sub colrecfiw*
          j 2 eq { %white arround mean grey
          ix0 iy0 s s 1.0 colrecstw*} if
        } for %j

/s 1400 def /iy0 1500 def
 0 1 06 {/j exch def
         /ix0 j 1400 mul 200 sub def
         ix0 iy0 s s
          1 j eq {tzancmyw0l 03 48 add get 0.2500 mul
                  tzancmyw0l 04 48 add get 0.7500 mul add} if
          2 j eq {tzancmyw0l 07 48 add get 0.5000 mul
                  tzancmyw0l 08 48 add get 0.5000 mul add} if
          3 j eq {tzancmyw0l 11 48 add get 0.7500 mul
                  tzancmyw0l 12 48 add get 0.2500 mul add} if
          0 j eq 5 j eq or {tzancmyw0l  0 48 add get} if
          4 j eq 6 j eq or {tzancmyw0l 15 48 add get} if
          1 exch sub colrecfiw*
        } for %j                      

/s 0700 def /iy0 1850 def
 0 1 06 {/j exch def
         /ix0 j 1400 mul 200 sub 350 add def
         ix0 iy0 s s
          1 j eq {tzancmyw0l 03 48 add get 0.2500 mul
                  tzancmyw0l 04 48 add get 0.7500 mul add} if
          2 j eq {tzancmyw0l 07 48 add get 0.5000 mul
                  tzancmyw0l 08 48 add get 0.5000 mul add} if
          3 j eq {tzancmyw0l 11 48 add get 0.7500 mul
                  tzancmyw0l 12 48 add get 0.2500 mul add} if
          0 j eq 5 j eq or {tzancmyw0l  0 48 add get} if
          4 j eq 6 j eq or {tzancmyw0l 15 48 add get} if
         dup dup 0
%         0 0 0 0
         setcmykcolor rec fill
        } for %j

-2200 -600 translate

} def %END proc_05step

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

/proc_16step {%BEG proc_16step
                %requires 0<=iout<=1
                %requires deintp=0,1

/tfzw* {tzancmyw0l 07 48 add get 0.5000 mul
           tzancmyw0l 08 48 add get 0.5000 mul add
           1 exch sub 1.0 exp setgray} bind def

15 setlinewidth
tfzw*
0 0  moveto 24800 0 rlineto 0 4000 rlineto
           -24800 0 rlineto closepath fill

tfnw*
0 0  moveto 24800 0 rlineto 0 4000 rlineto
           -24800 0 rlineto closepath stroke

tfnw*
TK
100 -230 moveto
    (AI000-7, ) show
(Bild ) showde
(picture ) showen
(Fig. ) showes
(Fig. ) showfr
(Fig. ) showit
(Figur ) showjp

iout 3 ge {(A3) show}{(C3) show} ifelse
(W) show Txx show (: ) show

(Element C: 16 visuell gleichabst\344ndige ) showde
(Element C: 16 visual equidistant ) showen
(Elemento C: 16 equidistante ) showes
(\311l\351ment C: 16 paliers de gris ) showfr
(Elemento C: 16 equidistante ) showit
(Element C: 16 visuelle ekvidistante ) showjp

TIK (L*) show

TK
(\255Graustufen) showde
(\255grey steps) showen
( pasos de gris) showes
( \350quidistante) showfr
( grigio passi) showit
(\255gr\345trinn) showjp

TK (; ) show
TIK (PS) show TK
(\255Operator:) showde
( operator:) showen
( operator:) showes
( op\351rateur :) showfr
( operator:) showit
( operator:) showjp

TIK
xcolor 0 eq {( 000n setcmykcolor) show} if
xcolor 1 eq {( w setgray) show} if
xcolor 2 eq {( nnn0 setcmykcolor) show} if
xcolor 3 eq {( www setrgbcolor) show} if
TK

/cvs0 {cvi 7 string cvs} def

15 setlinewidth

/L*Nl 18.01 def %standard lightness black
/L*Wl 95.41 def %standard lightness white
/L*ND where {pop /L*Nl L*ND def} if
/L*WD where {pop /L*Wl L*WD def} if
/L*Dl L*Wl L*Nl sub def %range between white and black

%%%%%%%%%%%   oberer Schriftzug %%%%%%%%%%%%%%%%
tfww*
100 3650 moveto TBIG (L*/Y) show -50 -50 rmoveto TBK

colorm 0 eq {
(Eingabe) showde                                                %0AI00X-Y 0100#
(input) showen                                                  %1AI00X-Y 0100#
(entrada) showes                                                %2AI00X-Y 0100#
(entr\351e) showfr                                              %3AI00X-Y 0100#
(immettere) showit                                              %4AI00X-Y 0100#
(input) showjp                                                  %5AI00X-Y 0100#
50 50 rmoveto} if 

colorm 0 ne {
(intended) showen
(vorgesehen) showde
(pretenden) showes
(destin\361) showfr
(destinati) showit
(intendert) showjp

50 50 rmoveto} if

  100 3200 moveto TBIK
((absolut)) showde
((absolute)) showen
((absoluta)) showes
((absolu)) showfr
((absoluta)) showit
((absolutt)) showjp

  100 1950 moveto TBK
(Nr. und) showde
(No. and) showen
(NO y) showes
(No et) showfr
(N. e) showit
(Nr. og) showjp

  100 1650 moveto TBK
(Hex\255Code) showde
(Hex code) showen
(c\363digo Hex) showes
(code Hex) showfr
(codige Hex) showit
(Hex\255code) showjp

 100  1200 moveto TBIG (w*=l*) show -150 -100 rmoveto TBIK (CIELAB, r) show
 100  800 moveto TBIK
((relativ)) showde
((relative)) showen
((relativa)) showes
((relative)) showfr
((relativo)) showit
((relativ)) showjp

 900  450 moveto TBIG (w*) show -150 -50 rmoveto TBK
(Eingabe) showde                                                %0AI00X-Y 0500#
(input) showen                                                  %1AI00X-Y 0500#
(entrada) showes                                                %2AI00X-Y 0500#
(entr\351e) showfr                                              %3AI00X-Y 0500#
(immettere) showit                                              %4AI00X-Y 0500#
(input) showjp                                                  %5AI00X-Y 0500#

colorm 0 ne {900  100 moveto TBIG (w*) show
             -050 -50 rmoveto TBK
(Ausgabe) showde                                                %0AI00X-Y 0600#
(output) showen                                                 %1AI00X-Y 0600#
(salida) showes                                                 %2AI00X-Y 0600#
(sortie) showfr                                                 %3AI00X-Y 0600#
(uscita) showit                                                 %4AI00X-Y 0600#
(output) showjp                                                 %5AI00X-Y 0600#
} if

2200 600 translate

%untere Reihe um +200, +200 verschoben bei dx=1000 von 1400
tfnw*
     
/ntu [(0,000) (0,067) (0,133) (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
/nto [18.01 23.17 28.33 33.49 38.65 43.81 48.97 54.13
      59.29 64.45 69.61 74.77 79.93 85.09 90.25 95.41
      18.01 37.36 56.71 76.06 95.41] def
/nty [ 2.52  3.85  5.58  7.77 10.46 13.71 17.57 22.10
      27.34 33.36 40.20 47.91 56.56 66.18 76.84 88.59
       2.52  9.73 24.63 49.98 88.59] def
/n* [(00;F) (01;E) (02;D) (03;C) (04;B) (05;A) (06;9) (07;8)
     (08;7) (09;6) (10;5) (11;4) (12;3) (13;2) (14;1) (15;0)
     (00;F) (01;B) (02;7) (03;3) (04;0)] def

/cvs1 {0.05 add 10 mul cvi 0.1 mul 7 string cvs} def
/cvs3 {0.0005 add 1000 mul cvi 0.001 mul 7 string cvs} def

/ntu2 16 array def

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

/MTLoutaS0 16 array def
/MTLoutaS1 16 array def
/MTLoutaS2 16 array def

/MTLoutaS0g where {pop
                   0 1 15 {/i exch def
                           MTLoutaS0 i MTLoutaS0g i get put} for}
                   {/MTLoutaS0 [18.0 23.2 28.3 33.5 38.6 43.8 49.0 54.1
                                59.3 64.4 69.6 74.8 79.9 85.1 90.2 95.4] def
                   } ifelse

/MTLoutaS1g where {pop
                   0 1 15 {/i exch def
                           MTLoutaS1 i MTLoutaS1g i get put} for}
                  {0 1 15 {/i exch def
                           MTLoutaS1 i MTLoutaS0 i get put} for
                  } ifelse

/MTLoutaS2g where {pop
                   0 1 15 {/i exch def
                           MTLoutaS2 i MTLoutaS2g i get put} for}
                  {0 1 15 {/i exch def
                           MTLoutaS2 i MTLoutaS1 i get put} for
                  } ifelse

0 1 15 {/i exch def %i=0,15
        colorm 0 eq {nto i  i 0 sub 15 div
                     MTLoutaS0 15 get MTLoutaS0 0 get sub mul
                     MTLoutaS0 0 get add put
                     /Y* {nto i get 16 add 116 div} bind def
                    }
                    {nto i  i 0 sub 15 div
                     MTLoutaS1 15 get MTLoutaS1 0 get sub mul
                     MTLoutaS1 0 get add put
                     /Y* {nto i get 16 add 116 div} bind def
                    } ifelse
        nty i  Y* DecodeXYZ* 100.00 mul  put
       } for %i=0,15

0 1 15 {/i exch def %i=0,15
        ntu2 i MTLoutaS2  i get MTLoutaS2 0 get sub
               MTLoutaS2 15 get MTLoutaS2 0 get sub div put
       } for %i=0,15


TBM tfww*
/iy0 0 def
0 1 15 {/j exch def /ix0 j 1400 mul def
         ix0 100 add  iy0 250 sub moveto
         ntu j get show
         colorm 0 ne xcolor 1 eq and  {ix0 100 add  iy0 500 sub moveto
                                       ntu2 j get cvs3 show
                                      } if
       } for %j

/iy0 3050 def
0 1 15 {/j exch def /ix0 300 j 1400 mul add def
        ix0 400 sub iy0 moveto nto j get cvs1 show (/) show
        xcolor 0 eq {nty j get cvs1 show}
                    {colorm 0 ne {MTLoutaS2 j get cvs1 show}
                                 {nty j get cvs1 show} ifelse
                              } ifelse
        } for %j

TBG tfnw*
/iy0 0 def
0 1 15 {/j exch def /ix0 400 j 1400 mul add def
          ix0 300 sub iy0 1150 add moveto
          n* j get show
        } for %j
                  
/s 1000 def
 0 1 15 {/j exch def
         /ix0 j 1400 mul def
         ix0 iy0 s s
         tzancmyw0l j 48 add get
         1 exch sub colrecfiw*
         j 7 eq j 8 eq or { %white arround mean grey
         ix0 iy0 s s 1.0 colrecstw*} if
        } for %j


/s 1400 def /iy0 1500 def
 0 1 15 {/j exch def
         /ix0 j 1400 mul 200 sub def
         ix0 iy0 s s
         tzancmyw0l j 48 add get
         1 exch sub colrecfiw*
        } for %j


/s 0700 def /iy0 1850 def
 0 1 15 {/j exch def
         /ix0 j 1400 mul 200 sub 350 add def
         ix0 iy0 s s
         tzancmyw0l j 48 add get dup dup 0
%         0 0 0 0
         setcmykcolor rec fill
        } for %j

-2200 -600 translate

} def %END proc_16step

%**********************************************************
/proc_Landolt { %BEG proc_Landolt
                %requires 0<=iout<=1
                %requires deintp=0,1

15 setlinewidth
tfww*
0 0  moveto 12000 0 rlineto 0 4000 rlineto
           -12000 0 rlineto closepath fill

tfnw*
0 0  moveto 12000 0 rlineto 0 4000 rlineto
           -12000 0 rlineto closepath stroke

tfnw*
TK
100 -230 moveto
    (AI001-1, ) show
(Bild ) showde
(picture ) showen
(Fig. ) showes
(Fig. ) showfr
(Fig. ) showit
(Figur ) showjp

iout 3 ge {(A4) show}{(C4) show} ifelse
(W) show Txx show (: ) show

(Element D: Landoltringe ) showde
(Element D: Landolt\255rings ) showen
(Elemento D: anillos de Landolt ) showes
(\311l\351ment D: anneaux Landolt ) showfr
(Elemento D: anelli di Landolt ) showit
(Element D: Landoltringer ) showjp

TIK
(W\255N) show

TK (; ) show
TIK (PS) show TK
(\255Operator:) showde
( operator:) showen
( operator:) showes
( op\351rateur :) showfr
( operator:) showit
( operator:) showjp

TIK
xcolor 0 eq {( 000n setcmykcolor) show} if
xcolor 1 eq {( w setgray) show} if
xcolor 2 eq {( nnn0 setcmykcolor) show} if
xcolor 3 eq {( www setrgbcolor) show} if
TK

TBIK
   200 3500 moveto
(Umfeldstufe) showde
(background step) showen
(paso fondo) showes
(\351chelonnement du) showfr
(lo sfondo passo) showit
(omfelt-trinn) showjp

   200 3200 moveto
(Hex\255Code) showde
(Hex code) showen
(C\363digo Hexadecimal) showes
(font code hex) showfr
(codice esadecimale) showit
(Hex\255code) showjp

TBK   4100 50 moveto
(Landoltringe ) showde
(Landolt\255rings ) showen
(anillos de Landolt ) showes
(anneaux Landolt ) showfr
(anelli di Landolt ) showit
(Landoltringer ) showjp
TBIK (W-N) show

   8200 3500 moveto
(Ringstufe) showde
(ring step) showen
(paso del anillo) showes
(\351chelonnement) showfr
(anello passo) showit
(ring-trinn) showjp

   8200 3200 moveto
(Hex\255Code) showde
(Hex code) showen
(C\363digo Hexadecimal) showes
(anneau de Landolt) showfr
(codice esadecimale) showit
(Hex\255code) showjp

   9050 50 moveto
(Code: Umfeld-Ring) showde
(code: background-ring) showen
(c\363digo: fondo-paso del anillo) showes
(code: fond anneaux) showfr
(codice: sfondo passo-anello passo) showit
(kode: omfelt-ring) showjp
                                                             
TBM
/nll [(F) (8) (2) (E) (7) (0)] def
0 1 5 {/j exch def /iy0 500 j 600 mul add def
        2150 iy0 moveto nll j get show
       } for %j
/nr [(D) (6) (0) (F) (8) (1)] def
0 1 5 {/j exch def /iy0 500 j 600 mul add def
        7800 iy0 moveto nr j get show
       } for %j
/nc [(F-D) (8-6) (2-0) (E-F) (7-8) (0-1)] def
0 1 5 {/j exch def /iy0 500 j 600 mul add def
        10050 iy0 moveto nc j get show
       } for %j

/ar 80 def
 ar setlinewidth
/ak  [4 3 2 8 7 1 5 6
      8 5 3 7 2 1 4 6
      6 3 5 4 3 7 2 8
      4 1 6 7 8 2 3 5
      1 5 4 8 7 2 3 6
      8 1 7 6 2 5 4 3] def
/nl  [0 7 13 1 8 15] def %+2, -1

0 1 07 {/j exch def /ix0 2700 j 600 mul add def
0 1 05 {/l exch def /iy0 0300 l 600 mul add def
        /k l 8 mul j add def
        /i1 nl l get def
        /ixd 600 def
        ix0 iy0 ixd ixd tzancmyw0l i1 48 add get
                        1 exch sub colrecfiw*
         l 2 le {/i1 nl l get 2 add def}
                {/i1 nl l get 1 sub def} ifelse
                 tzancmyw0l i1 48 add get 1 exch sub 1.0 exp setgray
         ix0 300 add iy0 300 add ar 2.5 mul 0 360 arc closepath fill
                 /i1 nl l get def
                 tzancmyw0l i1 48 add get 1 exch sub 1.0 exp setgray
         ix0 300 add iy0 300 add ar 1.5 mul 0 360 arc closepath fill
                 /i1 nl l get def
                 tzancmyw0l i1 48 add get 1 exch sub 1.0 exp setgray
         ix0 300 add iy0 300 add moveto
        /m ak k get exec def
        m 1 eq {ar 2.6 mul             0
                rlineto closepath stroke} if %0
        m 2 eq {ar 2.6 mul 45 sin mul  ar 2.6 mul 45 cos mul
                rlineto closepath stroke} if %45
        m 3 eq {0                      ar 2.6 mul
                rlineto closepath stroke} if %90
        m 4 eq {ar 2.6 mul 135 sin mul  ar 2.6 mul 135 cos mul
                rlineto closepath stroke} if %135
        m 5 eq {ar 2.6 mul neg            0
                rlineto closepath stroke} if %0
        m 6 eq {ar 2.6 mul 235 sin mul  ar 2.6 mul 235 cos mul
                rlineto closepath stroke} if %45
        m 7 eq {0                      ar 2.6 mul neg
                rlineto closepath stroke} if %0
        m 8 eq {ar 2.6 mul 315 sin mul  ar 2.6 mul 315 cos mul
                rlineto closepath stroke} if %45
       } for %l
       } for %j

} def %END proc_Landolt

%**********************************************************
/proc_Line45 { %BEG proc_Line45
               %requires 0<=iout<=1
               %requires deintp=0,1

15 setlinewidth
tfww*
0 0  moveto 12000 0 rlineto 0 4000 rlineto
           -12000 0 rlineto closepath fill

tfnw*
0 0  moveto 12000 0 rlineto 0 4000 rlineto
           -12000 0 rlineto closepath stroke

tfnw*
TK
100 -230 moveto
(AI001-3, ) show
(Bild ) showde
(picture ) showen
(Fig. ) showes
(Fig. ) showfr
(Fig. ) showit
(Figur ) showjp

iout 3 ge {(A5) show}{(C5) show} ifelse
(W) show Txx show (: ) show

(Element E: Linienraster unter 45\260 (oder 135\260)) showde
(Element E: Line raster under 45\260 (or 135\260)) showen
(Elemento E: Trama linea menores de 45\260 (o 135\260) grados) showes
(\311l\351ment E: trame lin\351aire \340 45\260 (ou 135\260)) showfr
(Elemento E: Linea raster a 45\260 (o 135\260) gradi) showit
(Element E: Linjeraster med 45\260 (eller 135\260)) showjp

TK (; ) show
TIK (PS) show TK
(\255Operator:) showde
( operator:) showen
( operator:) showes
( op\351rateur :) showfr
( operator:) showit
( operator:) showjp

TIK
xcolor 0 eq {( 000n setcmykcolor) show} if
xcolor 1 eq {( w setgray) show} if
xcolor 2 eq {( nnn0 setcmykcolor) show} if
xcolor 3 eq {( www setrgbcolor) show} if
TK

% 0,01 * (72/25,4) = 0,02834 Zoll = 0,01 MM
% 72 / 3600 = 2 / 100 Zoll = 0,02 Zoll = 0,00705555 mm

%/FAKT {0.01 72 mul 25.4 div 72 3600 div div} def

%(0,01 * 72 / 25.4)/(72/3600) = (0.01/25.4)/(1/3600) = (0.01*3600)/25.4
% = 36/25.4 = 1.4173228

/FAKT {36 25.4 div mul} def
/FAKC {36 25.4 div} def

%72 3600 div FAKT dup scale
 
%Belichtereinheit = 25.4 mm / 3600 = 0,0070555555 mm
%PostScript-Einheit =(72/3600) = 2 / 100 = 0.02

%bisherige Einheit 0.01 * 72 / 25.4 = 0,0283464 = 3/100 Zoll
%bisherige Einheit 0.01 / 25.4 = 0,0003937 

%MM -> DPI = 0,0283464 / 0.07055 = (25.4/3600) / (72/25.4) = 2 / 100 = 0,02 

/TEKx {200 /Times-ISOL1 FS} bind def

%/ausz 8 def /half 0 def %Halbt      %Farbauszug 1=C, 2=M, 3=Y, 7=N, 8=F

15 setlinewidth %kleinste Linienbreite

TBK
   4300 100 moveto
(Rasterweite in ) showde
(line raster diameter in ) showen
(de di\341metro r\341ster in ) showes
(largeur de trame in ) showfr
(diametro linea raster in ) showit
(rasterbredde i ) showjp
TBIK (lpi) show
                      
/ntl [(  15) (  30) (  60) (120)] def
/ntp [(\050+1\051) (\050+2\051) (\050+4\051) (\050+8\051)] def
/ntr [(  30) (  60) (120) (240)] def
/ntu [(15) (16) (17) (18) (19) (20) (21) (22)
      (23) (24) (25) (26) (27) (28) (29) (30)] def
/nto [(120) (128) (136) (144) (152) (160) (168) (176)
      (184) (192) (200) (208) (216) (224) (232) (240)] def

TBM tfnw*
0 1  4 {/l exch def /iy0 850 l 600 mul add def
        500 iy0 moveto 10800 0 rlineto closepath stroke
       } for %l

0 3  3 {/l exch def /iy0 l 600 mul def
0 1 15 {/j exch def /ix0 1150 j 600 mul add def
        l 0 eq {ix0 150 add  iy0  450 add moveto
                ntu j get show} if
        l 3 eq {ix0 050 add  iy0 1600 add moveto
                nto j get show} if
        l 0 eq {ix0 iy0 400 add moveto 0 3300 rlineto
                closepath stroke} if
        l 0 eq j 15 eq and
               {ix0 600 add iy0 400 add FAKT
                moveto 0 3300 rlineto closepath stroke} if
        } for %j

        } for %l

tfnw*
0 1 03 {/l exch def /iy0 850 l 600 mul add def
        TBK
          600 iy0 100 add moveto
        ntp l get show
        TBM
          500 iy0 350 add moveto
        ntl l get show
        10900 iy0 150 add moveto
        ntr l get show
                       
tfnw* %Achtung N-Raster
        /ixd 600 def
0 1 15 {/j exch def /ix0 1150 j 600 mul add def

TEKx
l 0 eq {/ixjF0 3600 30 j 1 mul add div def
        /kmax 8 def

        /x ix0 def %BEG special 45 degree
        /y iy0 def
        /width ixd def
        /height ixd def

        gsave
        newpath
        x y moveto
        width 0 rlineto
        0 height rlineto
        width neg 0 rlineto
        closepath
        clip 
        newpath %END special 45 degree

        kmax neg 2 kmax {/k exch def /ixjF ixjF0 def
                  /ixjFk ixjF k 2 sub mul def
                  /ixjFk1 ixjFk ixjF add def
                  ixjFk  600 lt {
               ix0 ixjFk add iy0 moveto
               ixjF 000 rlineto ixd dup rlineto
               ixjF neg 000 rlineto closepath fill
                                 } if %ixjFk < 600 
              } for %k

       grestore %special 45 degree

       } if 

l 1 eq {/ixjF0 3600 60 j 2 mul add div def
        /kmax 16 def

        /x ix0 def %BEG special 45 degree
        /y iy0 def
        /width ixd def
        /height ixd def

        gsave
        newpath
        x y moveto
        width 0 rlineto
        0 height rlineto
        width neg 0 rlineto
        closepath
        clip
        newpath %END special 45 degree

        kmax neg 2 kmax {/k exch def /ixjF ixjF0 def
                  /ixjFk ixjF k mul def
                  /ixjFk1 ixjFk ixjF add def
                  ixjFk  600 lt {
               ix0 ixjFk add iy0 moveto
               ixjF 000 rlineto ixd dup rlineto
               ixjF neg 000 rlineto closepath fill
                                 } if %ixjFk < 600 FAKT
              } for %k

       grestore %special 45 degree

       } if

l 2 eq {/ixjF0 3600 120 j 4 mul add div def
        /kmax 32 def

        /x ix0 def %BEG special 45 degree
        /y iy0 def
        /width ixd def
        /height ixd def

        gsave
        newpath
        x y moveto
        width 0 rlineto
        0 height rlineto
        width neg 0 rlineto
        closepath
        clip
        newpath %END special 45 degree

        kmax neg 2 kmax {/k exch def /ixjF ixjF0 def
                  /ixjFk ixjF k mul def
                  /ixjFk1 ixjFk ixjF add def
                  ixjFk  600 lt {
               ix0 ixjFk add iy0 moveto
               ixjF 000 rlineto ixd dup rlineto
               ixjF neg 000 rlineto closepath fill
                                 } if %ixjFk < 600 FAKT
              } for %k

       grestore %special 45 degree

       } if

l 3 eq {/ixjF0 3600 240 j 8 mul add div def
        /kmax 64 def

        /x ix0 def %BEG special 45 degree
        /y iy0 def
        /width ixd def
        /height ixd def

        gsave
        newpath
        x y moveto
        width 0 rlineto
        0 height rlineto
        width neg 0 rlineto
        closepath
        clip
        newpath %END special 45 degree

        kmax neg 2 kmax {/k exch def /ixjF ixjF0 def
                  /ixjFk ixjF k mul def
                  /ixjFk1 ixjFk ixjF add def
                  ixjFk  600 lt {
               ix0 ixjFk add iy0 moveto
               ixjF 000 rlineto ixd dup rlineto
               ixjF neg 000 rlineto closepath fill
                                 } if %ixjFk < 600 FAKT
              } for %k

       grestore %special 45 degree

       } if

       } for %j

         tfnw*

       } for %l

} def %END proc_Line45

%**********************************************************
/proc_Line90 { %BEG proc_Line90
               %requires 0<=iout<=1
               %requires deintp=0,1

15 setlinewidth
tfww*
0 0  moveto 12000 0 rlineto 0 4000 rlineto
           -12000 0 rlineto closepath fill

tfnw*
0 0  moveto 12000 0 rlineto 0 4000 rlineto
           -12000 0 rlineto closepath stroke

tfnw*
TK
100 -230 moveto
    (AI001-5, ) show
(Bild ) showde
(picture ) showen
(Fig. ) showes
(Fig. ) showfr
(Fig. ) showit
(Figur ) showjp

iout 3 ge {(A6) show}{(C6) show} ifelse
(W) show Txx show (: ) show

(Element F: Linienraster unter 90\260 (oder 0\260)) showde
(Element F: Line raster under 90\260 (or 0\260)) showen
(Elemento F: Trama linea menores de 90\260 (o 0\260) grados) showes
(\311l\351ment F: trame lin\351aire \340 90\260 (ou 0\260)) showfr
(Elemento F: Linea raster a 90\260 (o 180\260) gradi) showit
(Element F: Linjeraster med 90\260 (eller 0\260)) showjp

TK (; ) show
TIK (PS) show TK
(\255Operator:) showde
( operator:) showen
( operator:) showes
( op\351rateur :) showfr
( operator:) showit
( operator:) showjp

TIK
xcolor 0 eq {( 000n setcmykcolor) show} if
xcolor 1 eq {( w setgray) show} if
xcolor 2 eq {( nnn0 setcmykcolor) show} if
xcolor 3 eq {( www setrgbcolor) show} if
TK

% 0,01 * (72/25,4) = 0,02834 Zoll = 0,01 MM
% 72 / 3600 = 2 / 100 Zoll = 0,02 Zoll = 0,00705555 mm

%/FAKT {0.01 72 mul 25.4 div 72 3600 div div} def

%(0,01 * 72 / 25.4)/(72/3600) = (0.01/25.4)/(1/3600) = (0.01*3600)/25.4
% = 36/25.4 = 1.4173228

/FAKT {36 25.4 div mul} def
/FAKC {36 25.4 div} def

%72 3600 div FAKT dup scale
 
%Belichtereinheit = 25.4 mm / 3600 = 0,0070555555 mm
%PostScript-Einheit =(72/3600) = 2 / 100 = 0.02


%bisherige Einheit 0.01 * 72 / 25.4 = 0,0283464 = 3/100 Zoll
%bisherige Einheit 0.01 / 25.4 = 0,0003937 

%MM -> DPI = 0,0283464 / 0.07055 = (25.4/3600) / (72/25.4) = 2 / 100 = 0,02 

/TEKx {200 /Times-ISOL1 FS} bind def

%/ausz 8 def /half 0 def %Halbt      %Farbauszug 1=C, 2=M, 3=Y, 7=N, 8=F

15 setlinewidth %kleinste Linienbreite

TBK
   4300 100 moveto
(Rasterweite in ) showde
(line raster diameter in ) showen
(de di\341metro r\341ster in ) showes
(largeur de trame in ) showfr
(diametro linea raster in ) showit
(rasterbredde i ) showjp
TBIK (lpi) show
                      
/ntl [(  15) (  30) (  60) (120)] def
/ntp [(\050+1\051) (\050+2\051) (\050+4\051) (\050+8\051)] def
/ntr [(  30) (  60) (120) (240)] def
/ntu [(15) (16) (17) (18) (19) (20) (21) (22)
      (23) (24) (25) (26) (27) (28) (29) (30)] def
/nto [(120) (128) (136) (144) (152) (160) (168) (176)
      (184) (192) (200) (208) (216) (224) (232) (240)] def

TBM tfnw*
0 1  4 {/l exch def /iy0 850 l 600 mul add def
        500 iy0 moveto 10800 0 rlineto closepath stroke
       } for %l

0 3  3 {/l exch def /iy0 l 600 mul def
0 1 15 {/j exch def /ix0 1150 j 600 mul add def
        l 0 eq {ix0 150 add  iy0  450 add moveto
                ntu j get show} if
        l 3 eq {ix0 050 add  iy0 1600 add moveto
                nto j get show} if
        l 0 eq {ix0 iy0 400 add moveto 0 3300 rlineto
                closepath stroke} if
        l 0 eq j 15 eq and
               {ix0 600 add iy0 400 add FAKT
                moveto 0 3300 rlineto closepath stroke} if
        } for %j

        } for %l

tfnw*
0 1 03 {/l exch def /iy0 850 l 600 mul add def
        TBK
          600 iy0 100 add moveto
        ntp l get show
        TBM
          500 iy0 350 add moveto
        ntl l get show
        10900 iy0 150 add moveto
        ntr l get show
                       
        /ixd 600 def
0 1 15 {/j exch def /ix0 1150 j 600 mul add def

TEKx
l 0 eq {/ixjF0 3600 30 j 1 mul add div def
        /kmax 8 def
        0 2 kmax {/k exch def /ixjF ixjF0 def
                  /ixjFk ixjF k mul def
                  /ixjFk1 ixjFk ixjF add def
                  ixjFk  600 lt {
               ix0 ixjFk add iy0 moveto
               ixjF 000 rlineto 000 ixd rlineto
               ixjF neg 000 rlineto closepath fill
                                 } if %ixjFk < 600 
              } for %k
       } if 

l 1 eq {/ixjF0 3600 60 j 2 mul add div def
        /kmax 16 def
        0 2 kmax {/k exch def /ixjF ixjF0 def
                  /ixjFk ixjF k mul def
                  /ixjFk1 ixjFk ixjF add def
                  ixjFk  600 lt {
               ix0 ixjFk add iy0 moveto
               ixjF 000 rlineto 000 ixd rlineto
               ixjF neg 000 rlineto closepath fill
                                 } if %ixjFk < 600 FAKT
              } for %k
       } if

l 2 eq {/ixjF0 3600 120 j 4 mul add div def
        /kmax 32 def
        0 2 kmax {/k exch def /ixjF ixjF0 def
                  /ixjFk ixjF k mul def
                  /ixjFk1 ixjFk ixjF add def
                  ixjFk  600 lt {
               ix0 ixjFk add iy0 moveto
               ixjF 000 rlineto 000 ixd rlineto
               ixjF neg 000 rlineto closepath fill
                                 } if %ixjFk < 600 FAKT
              } for %k
       } if

l 3 eq {/ixjF0 3600 240 j 8 mul add div def
        /kmax 64 def
        0 2 kmax {/k exch def /ixjF ixjF0 def
                  /ixjFk ixjF k mul def
                  /ixjFk1 ixjFk ixjF add def
                  ixjFk  600 lt {
               ix0 ixjFk add iy0 moveto
               ixjF 000 rlineto 000 ixd rlineto
               ixjF neg 000 rlineto closepath fill
                                 } if %ixjFk < 600 FAKT
              } for %k
       } if


       } for %j

         tfnw*

       } for %l
                  
} def %END proc_Line90

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

/trn {0.0 0.0 0.0} def %Reproduktionsfarben NZW
/trz {0.5 0.5 0.5} def
/trw {1.0 1.0 1.0} 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
    
/A4quer {598 0 tl 90 rotate} 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
/showes {2 lanind eq {show} {pop} ifelse} bind def
/showfr {3 lanind eq {show} {pop} ifelse} bind def
/showit {4 lanind eq {show} {pop} ifelse} bind def
/showjp {5 lanind eq {show} {pop} ifelse} bind def
/showea {1 lanind le {show} {pop} ifelse} bind def
/showm  {6 lanind eq {show} {pop} ifelse} bind def

%default values
/lanind1 4 def /lanind2 4 def /lanindd 01 def /lanindm 01 def
/colorm1 00 def /colorm2 00 def /colormd 01 def /colormm 01 def
/deintp1 00 def /deintp2 00 def /deintpd 01 def /deintpm 01 def
/xcolor1 02 def /xcolor2 02 def /xcolord 01 def /xcolorm 01 def
/xchart1 00 def /xchart2 00 def /xchartd 01 def /xchartm 01 def
/pchart1 02 def /pchart2 02 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 {/Txx (dd) def  /Fxx (d) def} if
colorml 0 eq deintp 1 eq and {/Txx (de) def  /Fxx (e) def} if
colorml 1 eq deintp 0 eq and {/Txx (*dd) def /Fxx (d) def} if
colorml 1 eq deintp 1 eq and {/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


68 90 translate
0.01 MM dup scale

0 setgray
15 setlinewidth

/iout 3 def
/INW 0 def
200 0 translate
proc_16step %**********************************************************

showpage
grestore

%} for %pchartl=0,2

%} for %xchartl=0,7

%} for %xcolorl=0,3

%} for %colorml=0,1

%%Trailer