%!PS-Adobe-3.0 EPSF-3.0 TI790-7N
%%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://130.149.60.45/~farbmetrik/TI79/)
  /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, colour vision)
  /Creator (klaus.richter@mac.com)
  /CreationDate (D:2013120112000)
  /ModDate (D:2013120112000)
/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
/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
    (TI790-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
%(\255) show colorm cvishow xcolor cvishow deintp cvishow
%xchart xchart 8 idiv 8 mul sub cvishow
%(\255) show xchart 8 idiv cvishow
(: ) 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
( rgb/cmy0) show
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
    (TI790-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
%(\255) show colorm cvishow xcolor cvishow deintp cvishow
%xchart xchart 8 idiv 8 mul sub cvishow
%(\255) show xchart 8 idiv cvishow
(: ) 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
( rgb/cmy0) show
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                                                %0TI79X-Y 0100#
(input) showen                                                  %1TI79X-Y 0100#
(entrada) showes                                                %2TI79X-Y 0100#
(entr\351e) showfr                                              %3TI79X-Y 0100#
(immettere) showit                                              %4TI79X-Y 0100#
(input) showjp                                                  %5TI79X-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                                                %0TI79X-Y 0500#
(input) showen                                                  %1TI79X-Y 0500#
(entrada) showes                                                %2TI79X-Y 0500#
(entr\351e) showfr                                              %3TI79X-Y 0500#
(immettere) showit                                              %4TI79X-Y 0500#
(input) showjp                                                  %5TI79X-Y 0500#

colorm 0 ne {900  100 moveto TBIG (w*) show
             -050 -50 rmoveto TBK
(Ausgabe) showde                                                %0TI79X-Y 0600#
(output) showen                                                 %1TI79X-Y 0600#
(salida) showes                                                 %2TI79X-Y 0600#
(sortie) showfr                                                 %3TI79X-Y 0600#
(uscita) showit                                                 %4TI79X-Y 0600#
(output) showjp                                                 %5TI79X-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
    (TI790-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
%(\255) show colorm cvishow xcolor cvishow deintp cvishow
%xchart xchart 8 idiv 8 mul sub cvishow
%(\255) show xchart 8 idiv cvishow
(: ) 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
( rgb/cmy0) show
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                                                %0TI79X-Y 0100#
(input) showen                                                  %1TI79X-Y 0100#
(entrada) showes                                                %2TI79X-Y 0100#
(entr\351e) showfr                                              %3TI79X-Y 0100#
(immettere) showit                                              %4TI79X-Y 0100#
(input) showjp                                                  %5TI79X-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                                                %0TI79X-Y 0500#
(input) showen                                                  %1TI79X-Y 0500#
(entrada) showes                                                %2TI79X-Y 0500#
(entr\351e) showfr                                              %3TI79X-Y 0500#
(immettere) showit                                              %4TI79X-Y 0500#
(input) showjp                                                  %5TI79X-Y 0500#

colorm 0 ne {900  100 moveto TBIG (w*) show
             -050 -50 rmoveto TBK
(Ausgabe) showde                                                %0TI79X-Y 0600#
(output) showen                                                 %1TI79X-Y 0600#
(salida) showes                                                 %2TI79X-Y 0600#
(sortie) showfr                                                 %3TI79X-Y 0600#
(uscita) showit                                                 %4TI79X-Y 0600#
(output) showjp                                                 %5TI79X-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
    (TI791-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
%(\255) show colorm cvishow xcolor cvishow deintp cvishow
%xchart xchart 8 idiv 8 mul sub cvishow
%(\255) show xchart 8 idiv cvishow
(: ) 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
( rgb/cmy0) show
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-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
    (TI791-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
%(\255) show colorm cvishow xcolor cvishow deintp cvishow
%xchart xchart 8 idiv 8 mul sub cvishow
%(\255) show xchart 8 idiv cvishow
(: ) 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
( rgb/cmy0) show
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
    (TI791-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
%(\255) show colorm cvishow xcolor cvishow deintp cvishow
%xchart xchart 8 idiv 8 mul sub cvishow
%(\255) show xchart 8 idiv cvishow
(: ) 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
( rgb/cmy0) show
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 0 def
/lantex [(G) (E) (S) (N) (I) (J) (M)] def
/showde {0 lanind eq {show} {pop} ifelse} bind def
/showen {1 lanind eq {show} {pop} ifelse} bind def
/showes {2 lanind eq {show} {pop} ifelse} bind def
/showfr {3 lanind eq {show} {pop} ifelse} bind def
/showit {4 lanind eq {show} {pop} ifelse} bind def
/showjp {5 lanind eq {show} {pop} ifelse} bind def
/showea {1 lanind le {show} {pop} ifelse} bind def

/lanind1 4 def /lanind2 4 def /lanindd 01 def
/colorm1 00 def /colorm2 00 def /colormd 01 def
/deintp1 00 def /deintp2 00 def /deintpd 01 def
/xcolor1 00 def /xcolor2 00 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

/lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def
                    /lanindd laninddg def} if
/colormg where {pop /colorm1 colormg def /colorm2 colormg def
                    /colormd colormdg def} if
/deintpg where {pop /deintp1 deintpg def /deintp2 deintpg def
                    /deintpd deintpdg def} if
/xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def
                    /xcolord xcolordg def} if
/xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def
                    /xchartd xchartdg def} if
/pchartg where {pop /pchart1 pchartg def /pchart2 pchartg def
                    /pchartd pchartdg def} if
/colsepg where {pop /colsep1 colsepg def /colsep2 colsepg def
                    /colsepd colsepdg def} if
/pmetamg where {pop /pmetam1 pmetamg def /pmetam2 pmetamg def
                    /pmetamd pmetamdg def} if
                    
/lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def
                    /lanindd laninddf def} if
/colormf where {pop /colorm1 colormf def /colorm2 colormf def
                    /colormd colormdf def} if
/deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def
                    /deintpd deintpdf def} if
/xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def
                    /xcolord xcolordf def} if
/xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def
                    /xchartd xchartdf def
                    /xchartm xchart2f xchart1f sub 1 add def}
               {/xchartm 1 def} ifelse
/xchart3f where {pop /xchart3 xchart3f def}
                {/xchart3 0 def} ifelse
/xchart4f where {pop /xchart4 xchart4f def}
                {/xchart4 0 def} ifelse
/pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def
                    /pchartd pchartdf def} if
/colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def
                    /colsepd colsepdf def} if
/pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def
                    /pmetamd pmetamdf def} if

%only for editorial change of the following loops
%/lanind lanind1 def %
%/colorm colorm1 def %
%/deintp deintp1 def %
%/xcolor xcolor1 def %
%/xchart xchart1 def %
%/pchart pchart1 def %
%/colsep colsep1 def %
%/pmetam pmetam1 def %

/lanind lanind1 def %lanind1 lanindd lanind2 {/lanind exch def %output showpage
/colorm colorm1 def %colorm1 colormd colorm2 {/colorm exch def %output showpage
/deintp deintp1 def %deintp1 deintpd deintp2 {/deintp exch def %output showpage
/xcolor xcolor1 def %xcolor1 xcolord xcolor2 {/xcolor exch def %output showpage
/xchart xchart1 def %xchart1 xchartd xchart2 {/xchart exch def %output showpage
/pchart pchart1 def %pchart1 pchartd pchart2 {/pchart exch def %output showpage
/colsep colsep1 def %colsep1 colsepd colsep2 {/colsep exch def %output showpage

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

gsave

xcolor 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
xcolor 1 eq {/tfnx* {0 setgray} def
              /tfwx* {1 setgray} def
              /colrecfix* {setgray rec fill} bind def
              /colrecstx* {setgray rec stroke} bind def
             } if
xcolor 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
xcolor 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 2 def
/INW 0 def

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

1 1 1 setrgbcolor
   0 0  moveto 25200 0 rlineto 0 17500 rlineto %Picture larger
              -25200 0 rlineto closepath fill
0 0 0 setrgbcolor
   0 0  moveto 25200 0 rlineto 0 17500 rlineto %Picture larger
              -25200 0 rlineto closepath stroke

%no.      0     1    2     3     4     5     6     7 framef image
/xtr [ 0200 13000  200 13000   200 13000   200 13000 -2400   200] def
/ytr [13400 13400 9050  9050  4700  4700  0350  0350 -2000  8750] def

%gsave
%Names:
%proc_rosetten:   position 2 for CMY and OLV
%proc_05step:     position 4 for CMY and OLV
%proc_16step:     position 6 for CMY and OLV
%proc_Landolt:    position 1 for CMY and OLV
%proc_Line45:     position 3 for CMY and OLV
%proc_Line90:     position 5 for CMY and OLV
%**********************************************************

xtr 2 get     ytr 2 get     translate
%/iout 3 def
proc_rosetten
xtr 2 get neg ytr 2 get neg translate

%**********************************************************
xtr 4 get     ytr 4 get     translate
%/iout 0 def
proc_05step
xtr 4 get neg ytr 4 get neg translate

%**********************************************************
xtr 6 get     ytr 6 get     translate
%/iout 0 def
proc_16step
xtr 6 get neg ytr 6 get neg translate

%**********************************************************
xtr  1 get     ytr 1 get     translate
%/iout 0 def
proc_Landolt
xtr  1 get neg ytr 1 get neg translate

%**********************************************************
xtr  3 get     ytr 3 get    translate
%/iout 0 def
proc_Line45
xtr  3 get neg ytr 3 get neg translate

%**********************************************************
xtr  5 get     ytr 5 get    translate
%/iout 0 def
proc_Line90
xtr  5 get neg ytr 5 get neg translate

%**********************************************************
showpage
grestore

%} for %colsep=0,1

%} for %pchart=0,0

%} for %xchart=0,18

%} for %xcolor=3,3

%} for %deintp=0,1

%} for %colorm=0,1

%} for %lanind=0,0

%%Trailer