%!PS-Adobe-3.0 EPSF-3.0 hgf70-7n
%%BoundingBox: 70 80 794 338
%START PDFDE011.EPS
/pdfmark07 where {pop} {userdict /pdfmark07 /cleartomark load put} ifelse
/languagelevel where {pop languagelevel} {1} ifelse
2 lt { userdict (<<) cvn ([) cvn load put
userdict (>>) cvn (]) cvn load put} if
[/Title (PostScript pictures: farbe.li.tu-berlin.de/hgf7/hgf7.htm)
/Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1)
/Subject (goto: http://farbe.li.tu-berlin.de or http://color.li.tu-berlin.de)
/Keywords (image reproduction, colour devices)
/Creator (klaus.richter@mac.com)
/CreationDate (D:2024100112200)
/ModDate (D:20241001112200)
/DOCINFO pdfmark07
[ /View [ /Fit ]
/DOCVIEW pdfmark07
%END PDFDE011
%********************************************************** %30
/proc00_1MR_FLVLF {%BEG proc00_1MR_FLVLF %31
%main procedure Fast Linear Visual Local File FLVLF
/FF_LM_setgrayFLVLF0 {setgray} bind def
/FF_LM_setrgbcolorFLVLF0 {setrgbcolor} bind def
/FF_LM_setcmykcolorFLVLF0 {setcmykcolor} bind def
/FF_LM_transferFLVLF0 {settransfer} bind def
/FF_LM_colortransferFLVLF0 {setcolortransfer} bind def
/setgray {%BEG procedure setgrayFLVLF %39
dup dup FF_LM_setrgbcolorFLVLF
} def %END procedure setgrayFLVLF %41
/setcmykcolor {%BEG procedure setcmykcolorFLVLF %43
/FF_LM_kFLVLF exch def /FF_LM_yFLVLF exch def
/FF_LM_mFLVLF exch def /FF_LM_cFLVLF exch def
FF_LM_kFLVLF 0 eq {1 FF_LM_cFLVLF sub 1 FF_LM_mFLVLF sub
1 FF_LM_yFLVLF sub FF_LM_setrgbcolorFLVLF}
{1 FF_LM_kFLVLF sub dup dup
FF_LM_setrgbcolorFLVLF} ifelse
} def %END procedure setcmykcolorFLVLF %50
/setrgbcolor {%BEG procedure setrgbcolorFLVLF %52
/FF_LM_bFLVLF exch def /FF_LM_gFLVLF exch def
/FF_LM_rFLVLF exch def
FF_LM_rFLVLF FF_LM_gFLVLF FF_LM_bFLVLF
FF_LM_setrgbcolorFLVLF
} def %BEG procedure setrgbcolorFLVLF %57
/FF_LM_setrgbcolorFLVLF {%BEG FF_LM_setrgbcolorFLVLF %59
/FF_LM_b0FLVLF exch def /FF_LM_g0FLVLF exch def
/FF_LM_r0FLVLF exch def
FF_LM_r0FLVLF 0 le {/FF_LM_r0FLVLF 0.0001 def} if
FF_LM_g0FLVLF 0 le {/FF_LM_g0FLVLF 0.0001 def} if
FF_LM_b0FLVLF 0 le {/FF_LM_b0FLVLF 0.0001 def} if
/FF_LM_r1FLVLF FF_LM_r0FLVLF proc06_FF_LM_FLVLF def
/FF_LM_g1FLVLF FF_LM_g0FLVLF proc06_FF_LM_FLVLF def
/FF_LM_b1FLVLF FF_LM_b0FLVLF proc06_FF_LM_FLVLF def
FF_LM_r1FLVLF FF_LM_g1FLVLF FF_LM_b1FLVLF
FF_LM_setrgbcolorFLVLF0} def %END FF_LM_setrgbcolorFLVLF %69
/FF_LM_transferFLVLF {%BEG FF_LM_transferFLVLF %71
{proc06_FF_LM_FLVLF}
FF_LM_transferFLVLF0} def %END FF_LM_transferFLVLF
/settransfer {FF_LM_transferFLVLF} def %74
/FF_LM_colortransferFLVLF {%BEG FF_LM_colortransferFLVLF %76
{proc06_FF_LM_FLVLF} {proc06_FF_LM_FLVLF}
{proc06_FF_LM_FLVLF}
FF_LM_colortransferFLVLF0} def
/setcolortransfer {FF_LM_colortransferFLVLF} def %80
} def %END proc00_1MR_FLVLF %81
%********************************************************** %87
/proc04_7data_FLVLF {%BEG proc00_7data_FLVLF
%The procedure proc04_7data_FLVLF is used only once in Local File
/VisevEi 07 array def /VisevLi 09 array def %for real visual data (i=0,8)
% 0,e08 1,e24 2,e48 3,e02 4,e24 5,e46 6,e68 %indexF
%l7data 0/1/2:start/large/small samples, %7data, TUB manuel change
l7data 0 eq {/VisevEi [0.500 0.500 0.500 0.500 0.500 0.500 0.500] def} if
l7data 1 eq {/VisevEi [0.600 0.450 0.500 0.450 0.520 0.500 0.500] def} if
l7data 2 eq {/VisevEi [0.600 0.400 0.550 0.400 0.500 0.500 0.600] def} if
/a1 VisevEi 0 get def %BEG calculation VisevLi (i=0,8) from 7data
/b1 VisevEi 1 get a1 mul def
/b2 a1 def
/b3 b2 1 b2 sub VisevEi 2 get mul add def
VisevLi 0 0 put
VisevLi 1 b1 0 sub VisevEi 3 get mul put %c1
VisevLi 2 b1 put %c2
VisevLi 3 b2 b1 sub VisevEi 4 get mul b1 add put %c3
VisevLi 4 b2 put %c4
VisevLi 5 b3 b2 sub VisevEi 5 get mul b2 add put %c5
VisevLi 6 b3 put %c6
VisevLi 7 1 b3 sub VisevEi 6 get mul b3 add put %c7
VisevLi 8 1 put %END calculation VisevLi (i=0,8) from 7data
/iout0 0 def
iout0 1 eq {%iout0=1
TBG
tfn
0 1 8 {/i exch def %i=0,8
i 0 eq {10000 15800 moveto
(a1=) show a1 1000 mul cvishow (, ) show
(b1=) show b1 1000 mul cvishow (, ) show
(b2=) show b2 1000 mul cvishow (, ) show
(b3=) show b3 1000 mul cvishow (, ) show
} if
i 0 eq {12000 15000 i 400 mul sub moveto
(0000) show} if
i 1 eq {14000 15000 i 400 mul sub moveto
VisevLi i get 1000 mul cvishow} if
i 2 eq {13000 15000 i 400 mul sub moveto
VisevLi i get 1000 mul cvishow} if
i 3 eq {14000 15000 i 400 mul sub moveto
VisevLi i get 1000 mul cvishow} if
i 4 eq {12000 15000 i 400 mul sub moveto
VisevLi i get 1000 mul cvishow} if
i 5 eq {14000 15000 i 400 mul sub moveto
VisevLi i get 1000 mul cvishow} if
i 6 eq {13000 15000 i 400 mul sub moveto
VisevLi i get 1000 mul cvishow} if
i 7 eq {14000 15000 i 400 mul sub moveto
VisevLi i get 1000 mul cvishow} if
i 8 eq {12000 15000 i 400 mul sub moveto
(1000) show} if
} for %i=1,8
} if %iout0=1
} def %END proc04_7data_FLVLF
%***********************************************************
/proc02_Visev_FLVLF {%BEG proc02_Visev_FLVLF %23
%for visual data with Fast Linear Visual Local File FLVLF
%The procedure proc01_7data_FLVLF is used only once in Local File
/xreh8 10 array def /yreh8 10 array def %re=real, j=0,8
/xinh8 10 array def /yinh8 10 array def %in=invers, j=0,8
/xrehj 1025 array def /yrehj 1025 array def
/xinhj 1025 array def /yinhj 1025 array def
/xred8 10 array def /yred8 10 array def %re=real, j=0,8
/xind8 10 array def /yind8 10 array def %in=invers, j=0,8
/xredj 1025 array def /yredj 1025 array def
/xindj 1025 array def /yindj 1025 array def
%ya=x**n, yi=x**(1/n), log(ya)=n*log(x), n=log(ya)/log(x)
1 1 7 {/j exch def %j=1,7
xred8 j j 0.125 mul put
yred8 j VisevLi j get put
xind8 j xred8 j get put
/n yred8 j get log xred8 j get log div def
yind8 j xred8 j get 1 n div exp put
xreh8 j xred8 j get 255 mul put
yreh8 j yred8 j get 255 mul put
xinh8 j yreh8 j get put
yinh8 j xreh8 j get put
} for %j=1,7
xred8 0 0 put yred8 0 0 put
xind8 0 0 put yind8 0 0 put
xreh8 0 0 put yreh8 0 0 put
xinh8 0 0 put yinh8 0 0 put
xred8 8 1 put yred8 8 1 put
xind8 8 1 put yind8 8 1 put
xreh8 8 255 put yreh8 8 255 put
xinh8 8 255 put yinh8 8 255 put
xred8 9 1 put yred8 9 1 put
xind8 9 1 put yind8 9 1 put
xreh8 9 255 put yreh8 9 255 put
xinh8 9 255 put yinh8 9 255 put
%j=0,1023
0 1 7 {/k exch def %k=0,8
0 1 127 {/n exch def %n=0,127
/j k 128 mul n add def
xredj j j 1023 div put
yredj j yred8 k 1 add get yred8 k get sub
n 128 div mul yred8 k get add put
xindj j yredj j get put
yindj j xredj j get put
} for %n=0,127
} for %k=1,8
0 1 1023 {/j exch def %j=0,1023
xrehj j xredj j get 1023 mul put
yrehj j yredj j get 1023 mul put
xinhj j yredj j get put
yinhj j xredj j get put
} for %j=0,1023
xredj 1024 1 put yredj 1024 1 put
xindj 1024 1 put yindj 1024 1 put
xrehj 1024 1023 put yrehj 1024 1023 put
xinhj 1024 1023 put yinhj 1024 1023 put
} def %END proc01_Visev_FLVLF %72
%*********************************************************
/proc06_FF_LM_FLVLF {%BEG proc06_FF_LM_FLVFL %74
%This procedure is used for any rgb data in proc00_1MR_FLVLF
/yed exch def
/yeh yed 1023 mul cvi def
/xinh yrehj yeh get def
xinh 1023 div
} def
%END proc06_FF_LM_FLVFL %81
%*********************************************************
%default experimental, no gammaL value %83
/iproc1MR 0 def %optional application example
iproc1MR 1 eq {%main program Frame_File_Linearisation_Method FF_LM
proc00_1MR_FLVLF /l7data 0 def proc04_7data_FLVLF proc02_Visev_FLVLF} if
%********************************************************** %87
%no proc00_1MR_FLVLF
/l7data 2 def proc04_7data_FLVLF proc02_Visev_FLVLF
/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-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
/TK {250 /Times-ISOL1 FS} bind def
/TM {300 /Times-ISOL1 FS} bind def
/TG {350 /Times-ISOL1 FS} bind def
/TMM {270 /Times-ISOL1 FS} bind def
/TIK {250 /TimesI-ISOL1 FS} bind def
/TIM {300 /TimesI-ISOL1 FS} bind def
/TIG {350 /TimesI-ISOL1 FS} bind def
/TBK {250 /TimesB-ISOL1 FS} bind def
/TBM {300 /TimesB-ISOL1 FS} bind def
/TBG {350 /TimesB-ISOL1 FS} bind def
/TBMM {270 /TimesB-ISOL1 FS} bind def
/TBIK {250 /TimesBI-ISOL1 FS} bind def
/TBIM {300 /TimesBI-ISOL1 FS} bind def
/TBIG {350 /TimesBI-ISOL1 FS} bind def
/CBKK {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
/CBKKK {160 /CourierB-ISOL1 FS} bind 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
/cvishowr {dup 0 ge {0.5 add} {0.5 sub} ifelse
cvi 6 string cvs show} def
/cvishow {cvi 6 string cvs show} def
/cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def
/cvsshow2 {100 mul cvi 0.01 mul 7 string cvs show} def
/cvsshow3 {1000 mul cvi 0.001 mul 7 string cvs show} def
/cvsshow1g {/nxx exch def %example nxx=99,1/99,0
nxx 0 lt {(-) show /nxx nxx abs def} if
nxx 10 mul cvi /nxi exch def %nxi=991/990
nxi 10 idiv /nxa exch def %nxa=99
nxi nxa 10 mul sub /nxb exch def %nxb=1/0
nxa cvishow (,) show %nxa=99
nxb cvishow %nxb=1/0
} def
/cvsshow2g {/nxx exch def %example nxx=99.12/99,02/99,00
nxx 0 lt {(-) show /nxx nxx abs def} if
nxx 100 mul cvi /nxi exch def %nxi=9912/9902/00
nxi 100 idiv /nxa exch def %nxa=99
nxi nxa 100 mul sub /nxb exch def %nxb=12/02/00
nxa cvishow (,) show %nxb=99,
nxb 10 ge {nxb cvishow} if %nxb=12
nxb 1 ge
nxb 9 le and {(0) show nxb cvishow} if %nxb=02
nxb 0 eq {(00) show} if %nxb=00
} def
/cvsshow3g {/nxx exch def %example nxx=99.123/99.012/99.001/99.000
nxx 0 lt {(-) show /nxx nxx abs def} if
nxx 1000 mul cvi /nxi exch def %nxi=99123/99012/99001/99000
nxi 1000 idiv /nxa exch def %nxa=99
nxi nxa 1000 mul sub /nxb exch def %nxb=123/012/001/000
nxa cvishow (,) show %nxb=99,
nxb 100 ge {nxb cvishow} if %nxb=123/012/001/000
nxb 10 ge
nxb 99 le and {(0) show nxb cvishow} if %nxb=012
nxb 1 ge
nxb 9 le and {(00) show nxb cvishow} if %nxb=001
nxb 0 eq {(000) show} if %nxb=000
} def
/tfw {1 setgray} def
/tfn {0 setgray} def
/tfo {1 0 0 setrgbcolor} def
/tfl {0 1 0 setrgbcolor} def
/tfv {0 0 1 setrgbcolor} def
/tfc {0 1 1 setrgbcolor} def
/tfm {1 0 1 setrgbcolor} def
/tfy {1 1 0 setrgbcolor} 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
/showm {6 lanind eq {show} {pop} ifelse} bind def
/lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def}
{/lanind1 0 def /lanind2 0 def} ifelse
/colormg where {pop /colorm1 colormg def /colorm2 colormg def}
{/colorm1 0 def /colorm2 0 def} ifelse
/xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def}
{/xcolor1 0 def /xcolor2 0 def} ifelse
/xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def}
{/xchart1 0 def /xchart2 0 def} ifelse
/lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage
/colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage
/xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage
/xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage
0 setgray
/xchart 0 def
/ifarb 0 def %0_6:W-NrgbCMYn %7_9:rgb_W, default 0:W
/greu 0.5 def
/expu 1.0 def %0:1.0, 1:2.0 2:0.5 3:1.5 surround U colour
/expa 1.0 def %0:1.0, 1:2.0 2:0.5 3:1.5 4:0.667 5:1.33 6:0.75 all colours
/expi 1.0 def %0:1.0, 1:0.5 2:2.0 3:0.6667 4:1.5 6:0.75 7:1.33 all colours
/rgbiout 0 def %0,1:no/with output
/rgbaout 0 def %0,1:no/with output
%/ufield 1 def %0:N, 1:U, 2:W
%/utexte 1 def %0:ohne, 1:mit utexte
%/surrou 0 def %0:mean grey, 1:dark grey, 2:light grey
72 90 translate
0.01 MM dup scale
20 setlinewidth
/ydm 400 def %with larger grey frame
greu expu exp setgray
/xwidth 25400 def
/ywidth 09000 def
0 ydm neg moveto xwidth 0 rlineto 0 ywidth rlineto
xwidth neg 0 rlineto closepath fill
0.0 setgray
0 0 moveto xwidth 0 rlineto 0 ywidth ydm sub rlineto
xwidth neg 0 rlineto closepath stroke
%ufield 0 eq {0.5 setgray /tnw {tfw} def} if
%ufield 1 eq {0.0 setgray /tnw {tfw} def} if
%ufield 2 eq {1.0 setgray /tnw {tfn} def} if %not realized yet
%25400 1800 sub 0 moveto 1800 0 rlineto 0 4000 rlineto
% -1800 0 rlineto closepath fill
expu 1 ge {/tfnw {tfw} def}
{/tfnw {tfn} def} ifelse
tfnw
200 /Times-Roman FS
100 -200 moveto
(hgf70-7n, ) show
200 /Times-ISOL1 FS
xchart 0 eq
{(Pr\374fmuster: ) showde (Test samples: ) showen}
{(Bewertungsbogen: ) showde (Evaluation sheet: ) showen} ifelse
(3, 5 und 9 Farbstufen) showde
(3, 5 and 9 colour steps) showen
(, greu=) show greu cvsshow3g
(, expu=) show expu cvsshow3g
(, expa=) show expa cvsshow3g
(, expi=) show expi cvsshow3g
/pchart 0 def
gsave
%%%%%%%%%%% oberer Schriftzug %%%%%%%%%%%%%%%%
/xshift 1100 1100 sub def
/fatr 0 def
/x0 00100 def
/x1 03000 xshift sub def %delta=5600
/x2 x1 6.0 1400 mul add def
/x00 00400 def
/x01 05000 def
/x02 12400 def
/xt 400 200 add def
/x02t 9200 def
/y02t 3400 200 add 1800 sub def
/y02tm 06000 1800 sub def
/ydelt 1800 def
/yte y02tm pchart ydelt mul sub 100 add def
/y01t y02tm pchart ydelt mul sub 450 add def
/sd 1400 def
/sd0 000 def
/dd0 270 def
/sda 0200 def
/colte1g [%ifarb=0,9
(Schwarz N00w - Schwarz N16w = Wei\337 W)
(Schwarz N00r - Schwarz N16r = Rot R)
(Schwarz N00g - Schwarz N16g = Gr\374n G)
(Schwarz N00b - Schwarz N16b = Blau B)
(Schwarz N00c - Schwarz N16c = Cyan C)
(Schwarz N00m - Schwarz N16m = Magenta M)
(Schwarz N00y - Schwarz N16y = Gelb Y)
(Rot R00w - Rot R16w = Wei\337 W)
(Gr\374n G00w - G\374n G16w = Wei\337 W)
(Blau B00w - Blau B16w = Wei\337 W)
(Cyan C00w - Cyan C16w = Wei\337 W)
(Magenta M00w - Magenta M16w = Wei\337 W)
(Gelb Y00w - Gelb Y16w = Wei\337 W)
] def
/colte1e [%ifarb=0,9
(Black N00w - Black N16w = White W)
(Black N00r - Black N16r = Red R)
(Black N00g - Black N16g = Green G)
(Black N00b - Black N16b = Blue B)
(Black N00c - Black N16c = Cyan C)
(Black N00m - Black N16m = Magenta M)
(Black N00y - Black N16y = Yellow Y)
(Red R00w - Red R16w = White W)
(Green G00w - Green G16w = White W)
(Blue B00w - Blue B16w = White W)
(Cyan C00w - Cyan C16w = White W)
(Magenta M00w - Magenta M16w = White W)
(Gelb Y00w - Gelb Y16w = White W)
] def
%0 1 2 3 4 5 6 7 8
/colort [
(N00w)(N02w)(N04w)(N06w)(N08w)(N10w)(N12w)(N14w)(N16w)
(N00r)(N02r)(N04r)(N06r)(N08r)(N10r)(N12r)(N14r)(N16r)
(N00g)(N02g)(N04g)(N06g)(N08g)(N10g)(N12g)(N14g)(N16g)
(N00b)(N02b)(N04b)(N06b)(N08b)(N10b)(N12b)(N14b)(N16b)
(N00c)(N02c)(N04c)(N06c)(N08c)(N10c)(N12c)(N14c)(N16c)
(N00m)(N02m)(N04m)(N06m)(N08m)(N10m)(N12m)(N14m)(N16m)
(N00y)(N02y)(N04y)(N06y)(N08y)(N10y)(N12y)(N14y)(N16y)
(R00w)(R02w)(R04w)(R06w)(R08w)(R10w)(R12w)(R14w)(R16w)
(G00w)(G02w)(G04w)(G06w)(G08w)(G10w)(G12w)(G14w)(G16w)
(B00w)(B02w)(B04w)(B06w)(B08w)(B10w)(B12w)(B14w)(B16w)
(C00w)(C02w)(C04w)(C06w)(C08w)(c10w)(c12w)(c14w)(c16w)
(M00w)(M02w)(M04w)(M06w)(M08w)(M10w)(M12w)(M14w)(M16w)
(Y00w)(Y02w)(Y04w)(Y06w)(Y08w)(Y10w)(Y12w)(Y14w)(Y16w)] def
ifarb 0 eq {%ifarb=0 N_W
/colors2 [{rgb 0 get rgb 0 get rgb 0 get}
{rgb 1 get rgb 1 get rgb 1 get}
{rgb 2 get rgb 2 get rgb 2 get}
{rgb 3 get rgb 3 get rgb 3 get}
{rgb 4 get rgb 4 get rgb 4 get}
{rgb 5 get rgb 5 get rgb 5 get}
{rgb 6 get rgb 6 get rgb 6 get}
{rgb 7 get rgb 7 get rgb 7 get}
{rgb 8 get rgb 8 get rgb 8 get}]def
%N00w_02w_04w_06w_08w_10w_12w_14w_16w=W
} if %ifarb=0
ifarb 1 eq {%ifarb=1 N_R
/colors2 [{rgb 0 get rgb 0 get rgb 0 get}
{rgb 1 get rgb 0 get rgb 0 get}
{rgb 2 get rgb 0 get rgb 0 get}
{rgb 3 get rgb 0 get rgb 0 get}
{rgb 4 get rgb 0 get rgb 0 get}
{rgb 5 get rgb 0 get rgb 0 get}
{rgb 6 get rgb 0 get rgb 0 get}
{rgb 7 get rgb 0 get rgb 0 get}
{rgb 8 get rgb 0 get rgb 0 get}]def
%N00r_02r_04r_06r_08r_10r_12r_14r_16r=R
} if %ifarb=1
ifarb 2 eq {%ifarb=2 N_G
/colors2 [{rgb 0 get rgb 0 get rgb 0 get}
{rgb 0 get rgb 1 get rgb 0 get}
{rgb 0 get rgb 2 get rgb 0 get}
{rgb 0 get rgb 3 get rgb 0 get}
{rgb 0 get rgb 4 get rgb 0 get}
{rgb 0 get rgb 5 get rgb 0 get}
{rgb 0 get rgb 6 get rgb 0 get}
{rgb 0 get rgb 7 get rgb 0 get}
{rgb 0 get rgb 8 get rgb 0 get}]def
%N00g_02g_04g_06g_08g_10g_12g_14g_16g=G
} if %ifarb=2
ifarb 3 eq {%ifarb=3 N_B
/colors2 [{rgb 0 get rgb 0 get rgb 0 get}
{rgb 0 get rgb 0 get rgb 1 get}
{rgb 0 get rgb 0 get rgb 2 get}
{rgb 0 get rgb 0 get rgb 3 get}
{rgb 0 get rgb 0 get rgb 4 get}
{rgb 0 get rgb 0 get rgb 5 get}
{rgb 0 get rgb 0 get rgb 6 get}
{rgb 0 get rgb 0 get rgb 7 get}
{rgb 0 get rgb 0 get rgb 8 get}]def
%N00b_02b_04b_06b_08b_10b_12b_14b_16b=B
} if %ifarb=3
ifarb 4 eq {%ifarb=4 N_C
/colors2 [{rgb 0 get rgb 0 get rgb 0 get}
{rgb 0 get rgb 1 get rgb 1 get}
{rgb 0 get rgb 2 get rgb 2 get}
{rgb 0 get rgb 3 get rgb 3 get}
{rgb 0 get rgb 4 get rgb 4 get}
{rgb 0 get rgb 5 get rgb 5 get}
{rgb 0 get rgb 6 get rgb 6 get}
{rgb 0 get rgb 7 get rgb 7 get}
{rgb 0 get rgb 8 get rgb 8 get}]def
%N00c_02c_04c_06c_08c_10c_12c_14c_16c=C
} if %ifarb=4
ifarb 5 eq {%ifarb=5 N_M
/colors2 [{rgb 0 get rgb 0 get rgb 0 get}
{rgb 1 get rgb 0 get rgb 1 get}
{rgb 2 get rgb 0 get rgb 2 get}
{rgb 3 get rgb 0 get rgb 3 get}
{rgb 4 get rgb 0 get rgb 4 get}
{rgb 5 get rgb 0 get rgb 5 get}
{rgb 6 get rgb 0 get rgb 6 get}
{rgb 7 get rgb 0 get rgb 7 get}
{rgb 8 get rgb 0 get rgb 8 get}]def
%N00m_02m_04m_06m_08m_10m_12m_14m_16mM
} if %ifarb=5
ifarb 6 eq {%ifarb=6 N_Y
/colors2 [{rgb 0 get rgb 0 get rgb 0 get}
{rgb 1 get rgb 1 get rgb 0 get}
{rgb 2 get rgb 2 get rgb 0 get}
{rgb 3 get rgb 3 get rgb 0 get}
{rgb 4 get rgb 4 get rgb 0 get}
{rgb 5 get rgb 5 get rgb 0 get}
{rgb 6 get rgb 6 get rgb 0 get}
{rgb 7 get rgb 7 get rgb 0 get}
{rgb 8 get rgb 8 get rgb 0 get}]def
%N00y_02y_04y_06y_08y_10y_12y_14y_16y=Y
} if %ifarb=6
ifarb 7 eq {%ifarb=7 R_W
/colors2 [{rgb 8 get rgb 0 get rgb 0 get}
{rgb 8 get rgb 1 get rgb 1 get}
{rgb 8 get rgb 2 get rgb 2 get}
{rgb 8 get rgb 3 get rgb 3 get}
{rgb 8 get rgb 4 get rgb 4 get}
{rgb 8 get rgb 5 get rgb 5 get}
{rgb 8 get rgb 6 get rgb 6 get}
{rgb 8 get rgb 7 get rgb 7 get}
{rgb 8 get rgb 8 get rgb 8 get}]def
%R00w_02w_04w_06w_08w_10w_12w_14w_16w=W
} if %ifarb=7
ifarb 8 eq {%ifarb=8 G_W
/colors2 [{rgb 0 get rgb 8 get rgb 0 get}
{rgb 1 get rgb 8 get rgb 1 get}
{rgb 2 get rgb 8 get rgb 2 get}
{rgb 3 get rgb 8 get rgb 3 get}
{rgb 4 get rgb 8 get rgb 4 get}
{rgb 5 get rgb 8 get rgb 5 get}
{rgb 6 get rgb 8 get rgb 6 get}
{rgb 7 get rgb 8 get rgb 7 get}
{rgb 8 get rgb 8 get rgb 8 get}]def
%G00w_02w_04w_06w_08w_10w_12w_14w_16w=W
} if %ifarb=8
ifarb 9 eq {%ifarb=9 B_W
/colors2 [{rgb 0 get rgb 0 get rgb 8 get}
{rgb 1 get rgb 1 get rgb 8 get}
{rgb 2 get rgb 2 get rgb 8 get}
{rgb 3 get rgb 3 get rgb 8 get}
{rgb 4 get rgb 4 get rgb 8 get}
{rgb 5 get rgb 5 get rgb 8 get}
{rgb 6 get rgb 6 get rgb 8 get}
{rgb 7 get rgb 7 get rgb 8 get}
{rgb 8 get rgb 8 get rgb 8 get}]def
%B00w_02w_04w_06w_08w_10w_12w_14w_16w=W
} if %ifarb=9
ifarb 10 eq {%ifarb=10 C_W
/colors2 [{rgb 0 get rgb 8 get rgb 8 get}
{rgb 1 get rgb 8 get rgb 8 get}
{rgb 2 get rgb 8 get rgb 8 get}
{rgb 3 get rgb 8 get rgb 8 get}
{rgb 4 get rgb 8 get rgb 8 get}
{rgb 5 get rgb 8 get rgb 8 get}
{rgb 6 get rgb 8 get rgb 8 get}
{rgb 7 get rgb 8 get rgb 8 get}
{rgb 8 get rgb 8 get rgb 8 get}]def
%C00w_02w_04w_06w_08w_10w_12w_14w_16w=W
} if %ifarb=10
ifarb 11 eq {%ifarb=11 M_W
/colors2 [{rgb 8 get rgb 0 get rgb 8 get}
{rgb 8 get rgb 1 get rgb 8 get}
{rgb 8 get rgb 2 get rgb 8 get}
{rgb 8 get rgb 3 get rgb 8 get}
{rgb 8 get rgb 4 get rgb 8 get}
{rgb 8 get rgb 5 get rgb 8 get}
{rgb 8 get rgb 6 get rgb 8 get}
{rgb 8 get rgb 7 get rgb 8 get}
{rgb 8 get rgb 8 get rgb 8 get}]def
%M00w_02w_04w_06w_08w_10w_12w_14w_16w=W
} if %ifarb=11
ifarb 12 eq {%ifarb=12 Y_W
/colors2 [{rgb 8 get rgb 8 get rgb 0 get}
{rgb 8 get rgb 8 get rgb 1 get}
{rgb 8 get rgb 8 get rgb 2 get}
{rgb 8 get rgb 8 get rgb 3 get}
{rgb 8 get rgb 8 get rgb 4 get}
{rgb 8 get rgb 8 get rgb 5 get}
{rgb 8 get rgb 8 get rgb 6 get}
{rgb 8 get rgb 8 get rgb 7 get}
{rgb 8 get rgb 8 get rgb 8 get}]def
%Y00w_02w_04w_06w_08w_10w_12w_14w_16w=W
} if %ifarb=12
% W00n W08n W16n
% N00w N08w N16w
/ntu3 [(0,00) (0, . .) (1,00)] def
/ntu3x [(0,000)() (1,000)] def
/ntv3 [() (0,50) () ] def
/nte3 [() ( e08) () ] def
% W00n W04n W08n W12n W16n
% N00w N04w N08w N12w N16w
/ntu5 [(0,00) (0, . .) (1,00) () () ] def
/ntu5a [() () (0,00) (0, . .) (1,00)] def
/nte5 [() ( e04) () ( e48) () ] def
/ntv5 [(0,00) (0,50) (1,00) () () ] def
/ntv5a [() () (0,00) (0,50) (1,00)] def
% W00n W02n W04n W06n W08n W10n W12n W14n W16n
% N00w N02w N04w N06w N08w N10w N12w N14w N16w
/ntu9 [(0,00)(0, . .)(1,00)() (0,00)(0, . .)(1,00)() () ] def
/ntu9a[() () (0,00)(0, . .)(1,00)() (0,00)(0, . .)(1,00)] def
/nte9 [() ( e02) () ( e24) () ( e46) () ( e68) () ] def
/ntv9 [(0,00)(0,50) (1,00)() (0,00)(0,50) (1,00)() () ] def
/ntv9a[() () (0,00)(0,50) (1,00)() (0,00)(0,50) (1,00)] def
/idat3 [0.00 0.50 1.00] def
/idat5 [0.00 0.25 0.50 0.75 1.00] def
/idat9 [0.00 0.125 0.25 0.375 0.50 0.625 0.75 0.875 1.00] def
/edat3 3 array def
/edat5 5 array def
/edat9 9 array def
%0 1 2 {/icol exch def %icol=0,2
% edat3 icol idat3 icol get expa exp put
% } for %icol=0,2
%0 1 4 {/icol exch def %icol=0,4
% edat5 icol idat5 icol get expa exp put
% } for %icol=0,4
%0 1 8 {/icol exch def %icol=0,8
% edat9 icol idat9 icol get expa exp put
% } for %icol=0,4
0 1 8 {/icol exch def %icol=0,8
edat9 icol VisevLi icol get put
} for %icol=0,4
%STOPA
edat3 0 edat9 0 get put
edat3 1 edat9 4 get put
edat3 2 edat9 8 get put
edat5 0 edat9 0 get put
edat5 1 edat9 2 get put
edat5 2 edat9 4 get put
edat5 3 edat9 6 get put
edat5 4 edat9 8 get put
ntv3 1 edat3 1 get edat3 0 get sub
edat3 2 get edat3 0 get sub div put
ntv5 1 edat5 1 get edat5 0 get sub
edat5 2 get edat5 0 get sub div put
ntv5a 3 edat5 3 get edat5 2 get sub
edat5 4 get edat5 2 get sub div put
ntv9 1 edat9 1 get edat9 0 get sub
edat9 2 get edat9 0 get sub div put
ntv9a 3 edat9 3 get edat9 2 get sub
edat9 4 get edat9 2 get sub div put
ntv9 5 edat9 5 get edat9 4 get sub
edat9 6 get edat9 4 get sub div put
ntv9a 7 edat9 7 get edat9 6 get sub
edat9 8 get edat9 6 get sub div put
%STOPB
/y01t 1600 1800 sub def
/cvs1 {10 mul cvi 0.1 mul 7 string cvs} def
/cvishow {cvi 6 string cvs show} def
/rgb 9 array def
/rgba 9 array def
/rgbi 9 array def
0 1 8 {/i exch def %i=0,8
/id8 0.125 i mul def
rgb i id8 put
rgba i yred8 i get put
rgbi i yind8 i get put
} for %i=0,8
/x1t 0 def
/y1t 0 def
0 1 3 {/pchart exch def %pchart=0,4
gsave
TBM
tfnw
pchart 0 eq
pchart 3 eq or {%pchart=0,3
pchart 0 eq {/y02tmx y02tm def} if
pchart 3 eq {/y02tmx y02tm pchart ydelt mul sub def} if
/y01t y02tmx 1600 add 900 add def
pchart 0 eq {/y01t 8500 2250 sub def} if
pchart 3 eq {/y01t 8500 ydelt pchart mul sub 900 sub 2050 sub def} if
TBG
0 4 8 {/i exch def %i=0,4,8
tfnw
x00 sd0 add sd i mul 4 div add dd0 add y01t moveto
colort ifarb 9 mul i add get show
} for %i=0,4,8
%grey surround
% x0 sd0 add sd 10 mul 4 div add dd0 add y01t moveto
% surrou 0 eq {(N08w) show} if
% surrou 1 eq {(N04w) show} if
% surrou 2 eq {(N12w) show} if
0 2 8 {/i exch def %i=0,2,8
tfnw
i 4 eq {tfl} if
x01 sd0 add sd i mul 2 div add dd0 add y01t moveto
colort ifarb 9 mul i add get show
} for %i=0,2,8
%grey surround
% x01 sd0 add sd 10 mul 2 div add dd0 add y01t moveto
% surrou 0 eq {(N08w) show} if
% surrou 1 eq {(N04w) show} if
% surrou 2 eq {(N12w) show} if
0 1 8 {/i exch def %i=0,1,8
tfnw
i 2 eq
i 4 eq or
i 6 eq or {tfl} if
x02 sd0 add sd i mul add dd0 add y01t moveto
colort ifarb 9 mul i add get show
} for %i=0,1,8
% 0 1 2 3 4 5 6 7 8
/L*TUBLOG [( 0)( 12)( 25)( 37)( 50)( 62)( 75)( 87)( 100)] def
% 0 1 2 3 4 5 6 7 8
/tquest3 [(0,00)(0,5?)(1,00)] def
/tquest5 [(0,00)(0,5?)(1 / 0)(0,5?)(1,00)] def
/tquest9 [(0,00)(0,5?)(1 / 0)(0,5?)(1 / 0)(0,5?)(1 / 0)(0,5?)(1,00) ] def
TBG
/sd2 200 def
%/y03t y02tmx 2100 add pchart 4 eq {800 sub} if def
/y03t y01t 300 sub 1800 sub def
1 1 0 setrgbcolor
/iout5 0 def
iout5 1 eq {%iout5=1
0 4 8 {/i exch def %i=0,4,8
x00 sd0 add sd i mul 4 div add dd0 add y03t moveto
pchart 1 eq {tquest3 i 4 idiv get show}
{L*TUBLOG i get show
pchart 0 eq
i 4 eq and {(?) show} if
} ifelse %pchart=1
} for %i=0,4,8
0 2 8 {/i exch def %i=0,2,8
x01 sd0 add sd i mul 2 div add dd0 add y03t moveto
pchart 1 eq {tquest5 i 2 idiv get show}
{L*TUBLOG i get show
pchart 0 eq
i 0 gt i 8 lt and and {(?) show} if
} ifelse %pchart=1
} for %i=0,2,8
%grey surround
% x01 sd0 add sd 10 mul 2 div add dd0 add y03t moveto
% surrou 0 eq {( 50) show} if
% surrou 1 eq {( 25) show} if
% surrou 2 eq {( 75) show} if
} if %iout5=1
pchart 0 eq {%pchart=0
0 1 8 {/i exch def %i=0,1,8
x02 sd0 add sd i mul add dd0 add y03t 1800 add moveto
pchart 1 eq {tquest9 i get show}
{L*TUBLOG i get show
pchart 0 eq
i 0 gt i 8 lt and and {(?) show} if
} ifelse %pchart=1
} for %i=0,1,8
} if %pchart=0
tfw
} if %pchart=0,3
/x1tp x1t def
/y1tp y02tm pchart ydelt mul sub 900 add 200 sub def
x1tp y1tp translate
TBG
pchart 0 eq
pchart 3 eq or {
%pchart 0 eq {/y02t y02t 900 sub def} if
pchart 3 eq {/y02t y02t 900 sub def} if
/y02c 1800 pchart 0 eq {250 sub} if def
00200 y02t 200 sub y02c add moveto
(Drei, 5 und 9 Farbstufen) showde
(Three, 5 and 9 colour steps) showen
pchart 0 eq {%pchart=0
( f\374r visuelle Beurteilung) showde
( for visual evaluation) showen}
{%pchart=3
(, erzeugte visuelle Linearisierung) showde
(, produced visual linearization) showen
} ifelse
x02t y02t 200 sub y02c add moveto
colte1g ifarb get showde
colte1e ifarb get showen
TBG
pchart 0 eq {%pchart=0
x02t y02t 100 add y02c add moveto (s: ) show
0 1 8 {/i exch def %i=0,8
rgb i get 1000 mul cvishow
i 7 le {(, ) show} if
} for %i=0,8
} if %pchart=0
pchart 3 eq {%pchart=3
tfw
x02t 7000 sub y02t 100 add y02c add moveto (r: ) show
0 1 8 {/i exch def %i=0,8
rgba i get 1000 mul cvishow
i 7 le {(, ) show} if
} for %i=0,8
x02t y02t 100 add y02c add moveto (i: ) show
0 1 8 {/i exch def %i=0,8
rgbi i get 1000 mul cvishow
i 7 le {(, ) show} if
} for %i=0,8
} if %pchart=3
} if %pchart=0,3
TBG
pchart 0 gt
pchart 3 lt and {%pchart>0,<3
00200 y02t 800 sub 1800 add moveto
(Drei, 5 und 9 Farbstufen) showde
(Three, 5 and 9 colour steps) showen
pchart 1 eq {(, numerische Kennzeichnung) showde
(, numeric specification) showen} if
%pchart 2 eq {(, numerische Berechnung) showde
% (, numeric calculation) showen} if
pchart 2 eq {(, numerisches Berechnungsbeispiel) showde
(, numeric calculation example) showen} if
} if %pchart>0,<3
pchart 0 eq
pchart 3 eq or {%pchart=0,3
/xpos 15400 300 add def
/ypos y02t y02c add def
xpos ypos moveto
1 1 0 setrgbcolor
TBIG
(L*) show
TBM
0 -80 rmoveto TBM (TUBLOG,U) show 0 80 rmoveto
TBG
(=[50/log(5)] log\050) show
TBIG
(Y/Y) show
TBM
0 -80 rmoveto TBM (U) show 40 80 rmoveto
TBG
(\051+50, ) show
TBIG
(Y) show
TBM
0 -80 rmoveto TBM (N) show 40 80 rmoveto
TBG
(=4, ) show
TBIG
(Y) show
TBM
0 -80 rmoveto TBM (U) show 40 80 rmoveto
TBG
(=20, ) show
TBIG
(Y) show
TBM
0 -80 rmoveto TBM (W) show 40 80 rmoveto
TBG
(=100) show
} if %pchart=0,4
/y01r 1900 pchart 1 ge
pchart 2 le and {600 sub} if
pchart 3 eq {900 sub} if
def
20 setlinewidth
TBG
tfnw
1 1 1 {/l exch def %l=0,1 %large and small square
pchart 1 ge
pchart 2 le and {/s 1400 def /sa 000 def /iy0 y01r def} if
pchart 0 eq
pchart 3 eq or {l 1 eq {/s 1000 def /sa 200 def /iy0 y01r def}
{/s 1400 def /sa 000 def /iy0 y01r def} ifelse
} if
0 1 2 {/k exch def %k=0,2 %three series 3,5,9 steps
k 0 eq {/jd 4 def /ixk x00 def /jm 1 def} if
k 1 eq {/jd 2 def /ixk x01 def /jm 2 def} if
k 2 eq {/jd 1 def /ixk x02 def /jm 4 def} if
00 jd 08 {/j exch def %j=0,jd,8
tfnw
/jcol j jd idiv def
/ix0 jcol 1400 mul ixk add sa add def
pchart 0 eq {rgb j get dup dup setrgbcolor
ix0 iy0 l 0 eq {200 sub} if s s rec fill
rgbaout 1 eq {%rgbaout=1
j 5 le {tfw}{tfn} ifelse
l 0 eq {ix0 150 add iy0 0300 add moveto
rgb j get cvsshow3g}
{ix0 100 add iy0 0500 add moveto
rgb j get cvsshow3g} ifelse
} if %rgbaout=1
%line grey surround
/ix0 jm 1400 mul ixk add sa add def
tfw
l 0 eq {ix0 iy0 200 sub moveto s 0 rlineto stroke
ix0 iy0 200 sub s add moveto s 0 rlineto stroke}
{ix0 iy0 moveto s 0 rlineto stroke
ix0 iy0 s add moveto s 0 rlineto stroke} ifelse
} if
pchart 3 eq {rgbi j get dup dup setrgbcolor
ix0 iy0 l 1 eq {200 add} if s s rec fill
rgbiout 1 eq {%rgbiout=1
j 0 eq
k 0 eq and {tfw %j=0,k=0
l 0 eq {ix0 280 sub iy0 1000 add moveto
(s) show
ix0 280 sub iy0 0100 add moveto
(f) show
} if
ix0 280 sub iy0 0700 add moveto (r) show
ix0 280 sub iy0 0400 add moveto (i) show
} if %j=0,k=0
j 5 le {tfw}{tfn} ifelse
l 0 eq {ix0 150 add iy0 1000 add moveto
rgb j get cvsshow3g
ix0 150 add iy0 0700 add moveto
rgba j get cvsshow3g
ix0 150 add iy0 0400 add moveto
rgbi j get cvsshow3g
ix0 150 add iy0 0100 add moveto
rgb j get cvsshow3g}
{ix0 100 add iy0 0700 add moveto
rgba j get cvsshow3g
ix0 100 add iy0 0400 add moveto
rgbi j get cvsshow3g
} ifelse
} if %rgbiout=1
%line grey surround
/ix0 jm 1400 mul ixk add sa add def
tfw
l 0 eq {ix0 iy0 moveto s 0 rlineto stroke
ix0 iy0 s add moveto s 0 rlineto stroke}
{ix0 iy0 200 add moveto s 0 rlineto stroke
ix0 iy0 200 add s add moveto s 0 rlineto stroke} ifelse
} if %pchart=3
pchart 1 eq
pchart 2 eq or {tfw ix0 iy0 s s rec fill
tfn ix0 iy0 s s rec stroke
/ix0t jcol 1400 mul ixk add 350 add def
/iy0t iy0 200 add 300 add 50 add l 0 ge {200 add} if def
} if %pchart=1 or 2
pchart 1 eq {%pchart=1
tfn
k 0 eq {%k=0
jcol 0 eq
jcol 2 eq or {ix0t iy0t moveto
ntu3 jcol get show
ix0t iy0t 400 sub moveto
ntu3 jcol get show} if
jcol 1 eq {ix0t iy0t moveto tfv
l 0 ge {-300 0 rmoveto (e08=0, . .) show} if
%ntv3 jcol get 1000 mul cvishow
tfn
} if
jcol 1 eq {ix0t iy0t 400 sub moveto tfo
TBM
l 0 ge {-100 0 rmoveto (a1=e08) show} if
%edat3 jcol get cvsshow2g tfn
TBG
} if
} if %k=0
k 1 eq {%k=1
jcol 0 eq
jcol 2 eq or {ix0t iy0t 200 add moveto
ntu5 jcol get show} if
jcol 1 eq {ix0t iy0t 200 add moveto tfv
l 0 ge {-300 0 rmoveto (e04=0, . .) show} if
%ntv5 jcol get 1000 mul cvishow
tfn} if
jcol 2 eq
jcol 4 eq or {ix0t iy0t 100 sub moveto
ntv5a jcol get show
} if
jcol 3 eq {ix0t iy0t 100 sub moveto tfv
l 0 ge {-300 0 rmoveto (e48=0, . .) show} if
%ntv5a jcol get 1000 mul cvishow
tfn} if
} if %k=1
k 1 eq {
ix0t iy0t 400 sub moveto
jcol 0 eq {(0,00) show} if
jcol 4 eq {(1,00) show} if
tfo
TMM
jcol 1 eq {-300 0 rmoveto (b1=e04*a1) show} if
jcol 2 eq {-050 0 rmoveto (b2=a1) show} if
jcol 3 eq {-250 0 rmoveto (b3=e48*) show
-950 -250 rmoveto ((1-b2)+b2) show} if
TBG
tfn
} if
k 2 eq {%k=2
jcol 0 eq
jcol 2 eq or
jcol 4 eq or
jcol 6 eq or {ix0t iy0t 200 add moveto
ntu9 jcol get show} if
jcol 1 eq
jcol 5 eq or {ix0t iy0t 200 add moveto tfv
jcol 1 eq {-300 0 rmoveto (e02=0, . .) show} if
jcol 5 eq {-300 0 rmoveto (e46=0, . .) show} if
%ntv9 jcol get 1000 mul cvishow
tfn} if
jcol 2 eq
jcol 4 eq or
jcol 6 eq or
jcol 8 eq or {ix0t iy0t 100 sub moveto
ntv9a jcol get show} if
jcol 3 eq
jcol 7 eq or {ix0t iy0t 100 sub moveto tfv
jcol 3 eq {-300 0 rmoveto (c24=0, . .) show} if
jcol 7 eq {-300 0 rmoveto (e68=0, . .) show} if
%ntv9a jcol get 1000 mul cvishow
tfn} if
} if
k 2 eq {tfn
ix0t iy0t 400 sub moveto
jcol 0 eq {(0,00) show} if
jcol 8 eq {(1,00) show} if
tfo
TMM
jcol 1 eq {-250 0 rmoveto (c1=e02*b1) show} if
jcol 2 eq {-050 0 rmoveto (c2=b1) show} if
jcol 3 eq {-250 0 rmoveto (c3=e24*) show
-950 -250 rmoveto ((b2-b1)+b1) show} if
jcol 4 eq {-050 0 rmoveto (c4=b2) show} if
jcol 5 eq {-250 0 rmoveto (c5=e46*) show
-950 -250 rmoveto ((b3-b2)+b2) show} if
jcol 6 eq {-050 0 rmoveto (c6=b3) show} if
jcol 7 eq {-250 0 rmoveto (c7=e68*) show
-950 -250 rmoveto ((1-b3)+b3) show} if
TBG
tfn
} if
} if %pchart=1
pchart 2 eq {%xchart=2
tfn
k 0 eq {%k=0
jcol 0 eq
jcol 2 eq or {ix0t iy0t moveto
ntu3 jcol get show} if
% ix0t iy0t 600 sub moveto
% ntu3x jcol get show} if
jcol 1 eq {ix0t iy0t moveto
tfv ntv3 jcol get cvsshow2g tfn
} if
jcol 0 eq
jcol 2 eq or {tfn
ix0t l 1 eq {200 sub} if
iy0t 400 sub moveto
jcol 0 eq {(0,000) show} if
jcol 2 eq {(1,000) show} if
ix0t l 1 eq {200 sub} if
iy0t 700 sub moveto
jcol 0 eq {(0,000) show} if
jcol 2 eq {(1,000) show} if
} if
jcol 1 eq {tfo
ix0t l 1 eq {100 sub} if
iy0t 400 sub moveto
edat3 jcol get cvsshow3g
tfl
ix0t l 1 eq {100 sub} if
iy0t 700 sub moveto
rgbi 4 get cvsshow3g
} if
tfn
} if %k=0
k 1 eq {%k=1
jcol 0 eq
jcol 2 eq or {ix0t iy0t 300 add moveto
ntu5 jcol get show} if
jcol 1 eq {ix0t iy0t 300 add moveto tfv
ntv5 jcol get cvsshow2g tfn} if
jcol 2 eq
jcol 4 eq or {ix0t iy0t 000 sub moveto
ntv5a jcol get show} if
jcol 3 eq {ix0t iy0t 000 sub moveto tfv
ntv5a jcol get cvsshow2g tfn} if
} if %k=1
k 1 eq {tfn
ix0t l 1 eq {100 sub} if iy0t 400 sub moveto
jcol 0 eq {(0,000) show} if
jcol 4 eq {(1,000) show} if
tfo
jcol 0 gt
jcol 4 lt and {edat5 jcol get cvsshow3g} if
tfn
ix0t l 1 eq {100 sub} if iy0t 700 sub moveto
jcol 0 eq {(0,000) show} if
jcol 4 eq {(1,000) show} if
tfl
jcol 1 eq {rgbi 2 get cvsshow3g} if
jcol 2 eq {rgbi 4 get cvsshow3g} if
jcol 3 eq {rgbi 6 get cvsshow3g} if
tfn
} if
k 2 eq {%k=2
jcol 0 eq
jcol 2 eq or
jcol 4 eq or
jcol 6 eq or {ix0t iy0t 300 add moveto
ntu9 jcol get show} if
jcol 1 eq
jcol 5 eq or {ix0t iy0t 300 add moveto tfv
ntv9 jcol get cvsshow2g tfn} if
jcol 2 eq
jcol 4 eq or
jcol 6 eq or
jcol 8 eq or {ix0t iy0t 000 sub moveto
ntv9a jcol get show} if
jcol 3 eq
jcol 7 eq or {ix0t iy0t 000 sub moveto tfv
ntv9a jcol get cvsshow2g tfn} if
} if
k 2 eq {tfn
ix0t l 1 eq {100 sub} if iy0t 400 sub moveto
jcol 0 eq {(0,000) show} if
jcol 8 eq {(1,000) show} if
tfo
jcol 0 gt
jcol 8 lt and {edat9 jcol get cvsshow3g} if
tfn
ix0t l 1 eq {100 sub} if iy0t 700 sub moveto
jcol 0 eq {(0,000) show} if
jcol 8 eq {(1,000) show} if
tfl
jcol 0 gt
jcol 8 lt and {rgbi jcol get cvsshow3g} if
tfn
} if
} if %pchart=2
} for %j=0,jd,8
} for %k=0,2 %three series 3,5,9 steps
} for %l=0,1 %small and large square
x1tp neg y1tp neg translate
} for %pchart=0,3
grestore
showpage
%%Trailer