%!PS-Adobe-3.0 EPSF-3.0 hgm80-7n %%BoundingBox: 70 84 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/hgm8/hgm8.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 %l7data 1 def %samples 0:start, 1:large, 2:small %TUB manuel change /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 eq {/VisevEi [0.500 0.500 0.500 0.500 0.500 0.500 0.500] def} if %0 l7data 1 eq {/VisevEi [0.600 0.500 0.500 0.450 0.500 0.500 0.500] def} if %1 l7data 2 eq {/VisevEi [0.600 0.450 0.550 0.400 0.500 0.500 0.600] def} if %2 /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 1 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 12 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 250 def %with larger grey frame greu expu exp setgray /xwidth 25400 def /ywidth 08850 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 (hgm80-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 % 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 0 1 0 {/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 {%pchart=0 ifarb 00 eq {rgb j get dup dup setrgbcolor} if %N_W ifarb 01 eq {rgb j get 0 0 setrgbcolor} if %N_R ifarb 02 eq {0 rgb j get 0 setrgbcolor} if %N_G ifarb 03 eq {0 0 rgb j get setrgbcolor} if %N_B ifarb 04 eq {0 rgb j get rgb j get setrgbcolor} if %N_C ifarb 05 eq {rgb j get 0 rgb j get setrgbcolor} if %N_M ifarb 06 eq {rgb j get rgb j get 0 setrgbcolor} if %N_Y ifarb 07 eq {1 rgb j get rgb j get setrgbcolor} if %R_W ifarb 08 eq {rgb j get 1 rgb j get setrgbcolor} if %G_W ifarb 09 eq {rgb j get rgb j get 1 setrgbcolor} if %B_W ifarb 10 eq {rgb j get 1 1 setrgbcolor} if %C_W ifarb 11 eq {1 rgb j get 1 setrgbcolor} if %M_W ifarb 12 eq {1 1 rgb j get setrgbcolor} if %Y_W ix0 iy0 l 0 eq {250 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 250 sub moveto s 0 rlineto stroke ix0 iy0 250 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=0 pchart 3 eq {%pchart=3 ifarb 00 eq {rgbi j get dup dup setrgbcolor} if %N_W ifarb 01 eq {rgbi j get 0 0 setrgbcolor} if %N_R ifarb 02 eq {0 rgbi j get 0 setrgbcolor} if %N_G ifarb 03 eq {0 0 rgbi j get setrgbcolor} if %N_B ifarb 04 eq {0 rgbi j get rgbi j get setrgbcolor} if %N_C ifarb 05 eq {rgbi j get 0 rgbi j get setrgbcolor} if %N_M ifarb 06 eq {rgbi j get rgbi j get 0 setrgbcolor} if %N_Y ifarb 07 eq {1 rgbi j get rgbi j get setrgbcolor} if %R_W ifarb 08 eq {rgbi j get 1 rgbi j get setrgbcolor} if %G_W ifarb 09 eq {rgbi j get rgbi j get 1 setrgbcolor} if %B_W ifarb 10 eq {rgbi j get 1 1 setrgbcolor} if %C_W ifarb 11 eq {1 rgbi j get 1 setrgbcolor} if %M_W ifarb 12 eq {1 1 rgbi j get setrgbcolor} if %Y_W 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