%!PS-Adobe-3.0 EPSF-3.0 TG381-5 %%BoundingBox: 70 83 226 206 %START PDFDE011.EPS /pdfmark15 where {pop} {userdict /pdfmark15 /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/TG38/) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.445/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@me.com) /CreationDate (D:2014010112000) /ModDate (D:2014010112000) /DOCINFO pdfmark15 [ /View [ /FitB ] /DOCVIEW pdfmark15 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def % !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /TK {240 /Times-ISOL1 FS} bind def /TM {290 /Times-ISOL1 FS} bind def /TG {340 /Times-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIM {290 /TimesI-ISOL1 FS} bind def /TIG {340 /TimesI-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBM {290 /TimesB-ISOL1 FS} bind def /TBG {340 /TimesB-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIM {290 /TimesBI-ISOL1 FS} bind def /TBIG {340 /TimesBI-ISOL1 FS} bind def /SK {240 1 sub /Symbol FS} bind def /SM {290 1 sub /Symbol FS} bind def /SG {340 1 sub /Symbol FS} bind def %XCHA01.PS BEG /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 /colrecfi %x y width heigth c m y k {setcmyk_olvcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmyk_olvcolor rec stroke} bind def /rem %x, y width heigth {/heigth exch 0.5 mul def /width exch 0.5 mul def /yleftb exch heigth 0.5 mul add def /xleftb exch width 0.5 mul add def xleftb yleftb moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colremfi %x y width heigth c m y k {setcmykcolor rem fill} bind def /colremst %x y width heigth c m y k {setcmykcolor rem stroke} bind def /tzr {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzg {1.0 0.0 1.0 0.0} bind def /tzb {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tfr {0.0 1.0 1.0 0.0 setcmyk_olvcolor} bind def %Reproduktionsfarben /tfg {1.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def /tfb {1.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def /tfc {1.0 0.0 0.0 0.0 setcmyk_olvcolor} bind def /tfm {0.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def /tfy {0.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def /tfn {0.0 0.0 0.0 1.00 setcmyk_olvcolor} bind def %Graureihe /tfd {0.0 0.0 0.0 0.75 setcmyk_olvcolor} bind def /tfz {0.0 0.0 0.0 0.50 setcmyk_olvcolor} bind def /tfh {0.0 0.0 0.0 0.25 setcmyk_olvcolor} bind def /tfw {0.0 0.0 0.0 0.00 setcmyk_olvcolor} bind def %%EndProlog gsave /lanind 1 def /lantex [(G) (E) (S) (F) (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 /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 0 def /lanind2 0 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 3 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 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} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % 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 %always independent of intended output 5 /Times-ISOL1 FS /cvishow {cvi 6 string cvs show} def %75 85 moveto %lanind cvishow (-) show %colorm cvishow %deintp cvishow %xcolor cvishow %xchart cvishow %pchart cvishow %colsep cvishow (-L) show pmetam cvishow gsave %XCHA01.PS END 5 /Times-ISOL1 FS 175 85 moveto (TG381-5) show xchart 0 eq {(N) show} {deintp colorm 2 mul add cvishow} ifelse 72 90 translate 0.01 MM dup scale 30 setlinewidth 0.0 0.0 0.0 0.5 setcmykcolor 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath fill /xt0 0800 def /xt1 0800 200 add def /yt0 3725 def /ytd 250 def 050 yt0 0 ytd mul sub moveto TBIM tfw TBM (log ) show SM (D) show TBIM (L ) show TBM (luminance difference) showen (Leuchtdichte\255Diffe\255) showde xt1 yt0 1 ytd mul sub moveto TBM (threshold) showen TBM (renzschwelle) showde xt1 yt0 2 ytd mul sub moveto TBM (observer AD) showen (Beobachter AD) showde tfw 550 400 translate 50 setlinewidth 0 0 moveto 700 6 mul 0 rlineto stroke 0 0 moveto 0 700 4 mul rlineto stroke TBM /tx [(-2) (-1) ( 0) ( 1) ( 2) ( 3) ( 4)] def /ty [(-2) (-1) ( 0) ( 1) ( 2) ] def %!x-Achse: 1 log-Einheiten = 700 Skalen-Einheiten 0 1 6 {/i exch def /ixt { -250 i 0700 mul add} def /ixl { 000 i 0700 mul add} def ixt -350 moveto tx i get exec show ixl 75 moveto 0 -150 rlineto stroke } for %!y-Achse: 1 log-Einheiten = 700 Skalen-Einheiten 0 1 4 {/i exch def /iyt {-100 i 0700 mul add} def /iyl { 000 i 0700 mul add} def -450 iyt moveto ty i get exec show -75 iyl moveto 150 0 rlineto stroke } for 50 setlinewidth %tfr [100 100] 0 setdash %2000 0000 moveto 0000 2600 rlineto stroke tfw %[ ] 0 setdash %tfg [100 100] 0 setdash %2130 0000 moveto 0000 2700 rlineto stroke tfw %[ ] 0 setdash 3900 100 moveto (x) TBIM tfw show 20 0 rmoveto (=) TBM tfw show 20 0 rmoveto (log) TBM tfw show 30 0 rmoveto TBIM (L) show /ishowg {0 -50 rmoveto TBM (g) show 0 50 rmoveto} def /ishowY {tfy 0 -70 rmoveto TBK (Y) show 0 70 rmoveto tfw} def /ishowB {tfb 0 -70 rmoveto TBK (B) show 0 70 rmoveto tfw} def /ishowR {tfr 0 -70 rmoveto TBK (R) show 0 70 rmoveto tfw} def /ishowG {tfg 0 -70 rmoveto TBK (G) show 0 70 rmoveto tfw} def /ishowp {0 -50 rmoveto TBM (p) show 0 50 rmoveto} def /eshow2 {0 100 rmoveto TBM (2) show 0 100 rmoveto} def /x0 3650 def /x1 3800 def /x2 4050 def /x3 4200 def /y1 1700 def /yd 300 def tfw x0 y1 moveto TBIM (L) show ishowg x2 y1 moveto TBM (cd/m) show eshow2 newpath newpath tfn x1 y1 yd 1 mul sub 100 add 50 000 360 arc fill tfw x3 y1 yd 1 mul sub moveto (6,3) show newpath tfn x1 y1 yd 2 mul sub 100 add 50 090 270 arc fill tfw x1 y1 yd 2 mul sub 100 add 50 -90 90 arc fill tfw x3 y1 yd 2 mul sub moveto (63) show newpath tfw x1 y1 yd 3 mul sub 100 add 50 000 360 arc fill tfw x3 y1 yd 3 mul sub moveto (630) show x1 y1 yd 4.1 mul sub moveto TBIM (t) show ishowp TBM (=0,1s) show 1600 y1 yd 4.1 mul sub moveto TBIM (x) show ishowg TBM (=0,34 ) show TBIM (y) show ishowg TBM (=0,40) show 1600 y1 yd 5.1 mul sub moveto TBIM (x) show ishowY TBM (=0,45 ) show TBIM (y) show ishowY TBM (=0,47) show 200 2450 moveto TBIM (L) show ishowg TBM (=6,3cd/m) show eshow2 newpath 2000 2450 moveto TBIM (t) show ishowp TBM (=26s) show tfn 100 2550 moveto 0 -50 rmoveto 000 100 rlineto stroke tfw 100 2550 moveto -50 0 rmoveto 100 0 rlineto stroke /xgr 18 array def /ygr 18 array def %AVR2DAT.TXT 18*16 = 288 Daten /AVR2_10_7 288 array def /AVR2_10_7 [ % Programm: AVR2DA04.FOR 2014_01_03 % Output file: AVR2DA04.TXT 2014_01_03 %000000 1 2 3 4 5 6 7 %123456789012345678901234567890123456789012345678901234567890123456789012345678 %410000 x y Y L delta_x delta_y delta_Y ObReJNSu______1X delta_L delta_Ls delta_Ys 420016 0.3604 0.4043 4231.97 0.1333E+04 0.0000 0.0000 135.66 1 3 1 0 14 0.4273E+02 0.8240E+00 0.2616E+01 420026 0.3604 0.4043 1671.36 0.5265E+03 0.0000 0.0000 55.93 1 3 1 0 14 0.1762E+02 0.1983E+01 0.6297E+01 420036 0.3604 0.4043 769.85 0.2425E+03 0.0000 0.0000 24.37 1 3 1 0 14 0.7677E+01 0.8809E+00 0.2797E+01 420046 0.3604 0.4043 414.69 0.1306E+03 0.0000 0.0000 12.44 1 3 1 0 14 0.3919E+01 0.1770E+00 0.5618E+00 420056 0.3604 0.4043 229.56 0.7231E+02 0.0000 0.0000 6.31 1 3 1 0 14 0.1987E+01 0.1177E+00 0.3736E+00 420066 0.3604 0.4043 129.00 0.4064E+02 0.0000 0.0000 4.49 1 3 1 0 14 0.1416E+01 0.2342E-01 0.7434E-01 420076 0.3604 0.4043 169.28 0.5332E+02 0.0000 0.0000 4.89 1 3 1 0 14 0.1540E+01 0.3256E-01 0.1034E+00 420086 0.3604 0.4043 66.85 0.2106E+02 0.0000 0.0000 1.90 1 3 1 1 14 0.5994E+00 0.9929E-02 0.3152E-01 420096 0.3604 0.4043 30.79 0.9700E+01 0.0000 0.0000 0.94 1 3 1 1 14 0.2958E+00 0.5625E-02 0.1786E-01 420106 0.3604 0.4043 16.59 0.5225E+01 0.0000 0.0000 0.52 1 3 1 1 14 0.1629E+00 0.7577E-02 0.2406E-01 420116 0.3604 0.4043 9.18 0.2892E+01 0.0000 0.0000 0.30 1 3 1 1 14 0.9502E-01 0.6670E-02 0.2117E-01 420126 0.3604 0.4043 5.16 0.1625E+01 0.0000 0.0000 0.23 1 3 1 1 14 0.7180E-01 0.5322E-02 0.1690E-01 420136 0.3604 0.4043 6.34 0.1998E+01 0.0000 0.0000 0.28 1 3 1 1 14 0.8945E-01 0.5413E-02 0.1718E-01 420146 0.3604 0.4043 2.52 0.7936E+00 0.0000 0.0000 0.15 1 3 1 1 14 0.4780E-01 0.9977E-03 0.3167E-02 420156 0.3604 0.4043 1.18 0.3724E+00 0.0000 0.0000 0.10 1 3 1 0 14 0.3225E-01 0.2639E-02 0.8378E-02 420166 0.3604 0.4043 0.65 0.2037E+00 0.0000 0.0000 0.08 1 3 1 0 14 0.2403E-01 0.1999E-03 0.6347E-03 420176 0.3604 0.4043 0.36 0.1149E+00 0.0000 0.0000 0.06 1 3 1 0 14 0.1835E-01 0.9555E-03 0.3033E-02 420186 0.3604 0.4043 0.20 0.6411E-01 0.0000 0.0000 0.06 1 3 1 0 14 0.1782E-01 0.2857E-03 0.9071E-03 ] def /IM 17 def 0 1 IM {/i exch def %i=0,IM /j1 i 16 mul 4 add def /j2 i 16 mul 13 add def xgr i AVR2_10_7 j1 get put ygr i AVR2_10_7 j2 get put } for %i=0,IM /xfact 700 def /yfact 700 def 0 1 IM {/i exch def %i=0,IM tfn xgr i get log 2 add xfact mul ygr i get log 2 add yfact mul moveto 0 -50 rmoveto 000 100 rlineto stroke tfw xgr i get log 2 add xfact mul ygr i get log 2 add yfact mul moveto -50 0 rmoveto 100 0 rlineto stroke } for %i=0,IM %AVR2DAT.TXT 18*16 = 288 Daten /AVR2_10_7 288 array def /AVR2_10_7 [ % Programm: AVR2DA05.FOR 2014_01_03 % Output file: AVR2DA05.TXT 2014_01_03 %000000 1 2 3 4 5 6 7 %123456789012345678901234567890123456789012345678901234567890123456789012345678 %410000 x y Y L delta_x delta_y delta_Y ObReJNSu______1X delta_L delta_Ls delta_Ys 410017 0.3604 0.4043 42.32 0.1333E+04 0.0000 0.0000 1.81 1 3 1 1 14 0.5697E+02 0.1271E+02 0.4033E+00 410027 0.3604 0.4043 16.71 0.5265E+03 0.0000 0.0000 0.57 1 3 1 1 14 0.1801E+02 0.1170E+01 0.3714E-01 410037 0.3604 0.4043 7.70 0.2425E+03 0.0000 0.0000 0.24 1 3 1 1 14 0.7675E+01 0.1433E+01 0.4548E-01 410047 0.3604 0.4043 4.15 0.1306E+03 0.0000 0.0000 0.19 1 3 1 1 14 0.6031E+01 0.5952E+00 0.1889E-01 410057 0.3604 0.4043 2.30 0.7231E+02 0.0000 0.0000 0.14 1 3 1 0 14 0.4505E+01 0.2017E+00 0.6404E-02 410067 0.3604 0.4043 1.29 0.4064E+02 0.0000 0.0000 0.09 1 3 1 0 14 0.2877E+01 0.1081E+00 0.3432E-02 410077 0.3604 0.4043 1.69 0.5332E+02 0.0000 0.0000 0.13 1 3 1 0 14 0.4095E+01 0.2053E+00 0.6519E-02 410087 0.3604 0.4043 0.67 0.2106E+02 0.0000 0.0000 0.08 1 3 1 0 14 0.2505E+01 0.5418E-01 0.1720E-02 410097 0.3604 0.4043 0.31 0.9700E+01 0.0000 0.0000 0.06 1 3 1 0 14 0.1875E+01 0.6588E-01 0.2092E-02 410107 0.3604 0.4043 0.17 0.5225E+01 0.0000 0.0000 0.05 1 3 1 0 14 0.1483E+01 0.5457E-01 0.1732E-02 410117 0.3604 0.4043 0.09 0.2892E+01 0.0000 0.0000 0.05 1 3 1 0 14 0.1482E+01 0.2829E-01 0.8981E-03 410127 0.3604 0.4043 0.05 0.1625E+01 0.0000 0.0000 0.04 1 3 1 0 14 0.1412E+01 0.1213E+00 0.3850E-02 ] def /IM 11 def 0 1 IM {/i exch def %i=0,IM /j1 i 16 mul 4 add def /j2 i 16 mul 13 add def xgr i AVR2_10_7 j1 get put ygr i AVR2_10_7 j2 get put } for %i=0,IM /xfact 700 def /yfact 700 def tfw 0 1 IM {/i exch def %i=0,IM xgr i get log 2 add xfact mul ygr i get log 2 add yfact mul moveto -50 -50 rmoveto 100 100 rlineto stroke xgr i get log 2 add xfact mul ygr i get log 2 add yfact mul moveto -50 50 rmoveto 100 -100 rlineto stroke } for %i=0,IM tfw 630 log 2 add xfact mul 0 50 000 360 arc fill %AVR2DAT.TXT 18*16 = 288 Daten /AVR2_10_7 288 array def /AVR2_10_7 [ 415017 0.3604 0.4043 423.20 0.1333E+04 0.0000 0.0000 66.22 1 3 1 0 14 0.2086E+03 0.2730E+02 0.8668E+01 415027 0.3604 0.4043 167.14 0.5265E+03 0.0000 0.0000 13.73 1 3 1 0 14 0.4326E+02 0.3780E+01 0.1200E+01 415037 0.3604 0.4043 76.99 0.2425E+03 0.0000 0.0000 4.28 1 3 1 1 14 0.1348E+02 0.2211E+00 0.7020E-01 415047 0.3604 0.4043 41.47 0.1306E+03 0.0000 0.0000 1.99 1 3 1 1 14 0.6276E+01 0.5507E+00 0.1748E+00 415057 0.3604 0.4043 22.96 0.7231E+02 0.0000 0.0000 0.79 1 3 1 1 14 0.2500E+01 0.1331E+00 0.4224E-01 415067 0.3604 0.4043 12.90 0.4064E+02 0.0000 0.0000 0.47 1 3 1 1 14 0.1483E+01 0.8168E-01 0.2593E-01 415077 0.3604 0.4043 16.93 0.5332E+02 0.0000 0.0000 0.71 1 3 1 1 14 0.2246E+01 0.1891E+00 0.6002E-01 415087 0.3604 0.4043 6.69 0.2106E+02 0.0000 0.0000 0.31 1 3 1 1 14 0.9755E+00 0.5487E-01 0.1742E-01 415097 0.3604 0.4043 3.08 0.9700E+01 0.0000 0.0000 0.22 1 3 1 1 14 0.6865E+00 0.3318E-01 0.1053E-01 415107 0.3604 0.4043 1.66 0.5225E+01 0.0000 0.0000 0.13 1 3 1 0 14 0.4244E+00 0.2876E-01 0.9130E-02 415117 0.3604 0.4043 0.92 0.2892E+01 0.0000 0.0000 0.12 1 3 1 0 14 0.3854E+00 0.3055E-01 0.9697E-02 415127 0.3604 0.4043 0.52 0.1625E+01 0.0000 0.0000 0.10 1 3 1 0 14 0.3240E+00 0.1032E-01 0.3276E-02 415137 0.3604 0.4043 0.63 0.1998E+01 0.0000 0.0000 0.13 1 3 1 0 14 0.4006E+00 0.1895E-01 0.6015E-02 415147 0.3604 0.4043 0.25 0.7936E+00 0.0000 0.0000 0.09 1 3 1 0 14 0.2959E+00 0.6317E-02 0.2005E-02 415157 0.3604 0.4043 0.12 0.3724E+00 0.0000 0.0000 0.08 1 3 1 0 14 0.2470E+00 0.8307E-02 0.2637E-02 415167 0.3604 0.4043 0.06 0.2037E+00 0.0000 0.0000 0.07 1 3 1 0 14 0.2318E+00 0.3816E-02 0.1211E-02 415177 0.3604 0.4043 0.04 0.1149E+00 0.0000 0.0000 0.07 1 3 1 0 14 0.2211E+00 0.1139E-01 0.3616E-02 415187 0.3604 0.4043 0.02 0.6411E-01 0.0000 0.0000 0.07 1 3 1 0 14 0.2160E+00 0.1001E-01 0.3177E-02 ] def /IM 17 def 0 1 IM {/i exch def %i=0,IM /j1 i 16 mul 4 add def /j2 i 16 mul 13 add def xgr i AVR2_10_7 j1 get put ygr i AVR2_10_7 j2 get put } for %i=0,IM /xfact 700 def /yfact 700 def 0 1 IM {/i exch def %i=0,IM tfn xgr i get log 2 add xfact mul ygr i get log 2 add yfact mul moveto -50 -50 rmoveto 100 100 rlineto stroke tfw xgr i get log 2 add xfact mul ygr i get log 2 add yfact mul moveto -50 50 rmoveto 100 -100 rlineto stroke } for %i=0,IM tfn 63 log 2 add xfact mul 0 50 090 270 arc fill tfw 63 log 2 add xfact mul 0 50 -90 090 arc fill %AVR2DAT.TXT 18*16 = 288 Daten /AVR2_10_7 288 array def /AVR2_10_7 [ 420017 0.3604 0.4043 4231.97 0.1333E+04 0.0000 0.0000 952.19 1 3 1 0 14 0.2999E+03 0.4613E+02 0.1465E+03 420027 0.3604 0.4043 1671.36 0.5265E+03 0.0000 0.0000 460.73 1 3 1 0 14 0.1451E+03 0.1056E+02 0.3354E+02 420037 0.3604 0.4043 769.85 0.2425E+03 0.0000 0.0000 121.54 1 3 1 0 14 0.3828E+02 0.9241E+00 0.2934E+01 420047 0.3604 0.4043 414.69 0.1306E+03 0.0000 0.0000 34.87 1 3 1 0 14 0.1098E+02 0.2045E+01 0.6493E+01 420057 0.3604 0.4043 229.56 0.7231E+02 0.0000 0.0000 14.40 1 3 1 0 14 0.4537E+01 0.8394E+00 0.2665E+01 420067 0.3604 0.4043 129.00 0.4064E+02 0.0000 0.0000 8.50 1 3 1 0 14 0.2679E+01 0.5477E+00 0.1739E+01 420077 0.3604 0.4043 169.28 0.5332E+02 0.0000 0.0000 20.42 1 3 1 0 14 0.6434E+01 0.2194E+00 0.6966E+00 420087 0.3604 0.4043 66.85 0.2106E+02 0.0000 0.0000 6.01 1 3 1 1 14 0.1892E+01 0.5315E-01 0.1687E+00 420097 0.3604 0.4043 30.79 0.9700E+01 0.0000 0.0000 2.70 1 3 1 1 14 0.8512E+00 0.2407E-01 0.7641E-01 420107 0.3604 0.4043 16.59 0.5225E+01 0.0000 0.0000 1.20 1 3 1 1 14 0.3772E+00 0.1617E-01 0.5132E-01 420117 0.3604 0.4043 9.18 0.2892E+01 0.0000 0.0000 0.57 1 3 1 1 14 0.1800E+00 0.1316E-01 0.4179E-01 420127 0.3604 0.4043 5.16 0.1625E+01 0.0000 0.0000 0.32 1 3 1 1 14 0.1004E+00 0.7650E-02 0.2429E-01 420137 0.3604 0.4043 6.34 0.1998E+01 0.0000 0.0000 0.57 1 3 1 1 14 0.1792E+00 0.1289E-01 0.4093E-01 420147 0.3604 0.4043 2.52 0.7936E+00 0.0000 0.0000 0.38 1 3 1 1 14 0.1196E+00 0.3634E-02 0.1154E-01 420157 0.3604 0.4043 1.18 0.3724E+00 0.0000 0.0000 0.27 1 3 1 0 14 0.8528E-01 0.5636E-02 0.1789E-01 420167 0.3604 0.4043 0.65 0.2037E+00 0.0000 0.0000 0.23 1 3 1 0 14 0.7141E-01 0.4095E-02 0.1300E-01 420177 0.3604 0.4043 0.36 0.1149E+00 0.0000 0.0000 0.21 1 3 1 0 14 0.6568E-01 0.3077E-02 0.9770E-02 420187 0.3604 0.4043 0.20 0.6411E-01 0.0000 0.0000 0.19 1 3 1 0 14 0.5890E-01 0.1772E-02 0.5626E-02 %499999 END,79 characters in any data line ] def /IM 17 def 0 1 IM {/i exch def %i=0,IM /j1 i 16 mul 4 add def /j2 i 16 mul 13 add def xgr i AVR2_10_7 j1 get put ygr i AVR2_10_7 j2 get put } for %i=0,IM tfn /xfact 700 def /yfact 700 def 0 1 IM {/i exch def %i=0,IM xgr i get log 2 add xfact mul ygr i get log 2 add yfact mul moveto -50 -50 rmoveto 100 100 rlineto stroke xgr i get log 2 add xfact mul ygr i get log 2 add yfact mul moveto -50 50 rmoveto 100 -100 rlineto stroke } for %i=0,IM 6.3 log 2 add xfact mul 0 50 00 360 arc fill %AVR2DAT.TXT 18*16 = 288 Daten /AVR2_10_7 288 array def /AVR2_10_7 [ % Programm: AVR2DA06.FOR 2014_01_03 % Output file: AVR2DA06.TXT 2014_01_03 %000000 1 2 3 4 5 6 7 %123456789012345678901234567890123456789012345678901234567890123456789012345678 %410000 x y Y L delta_x delta_y delta_Y ObReJNSu______1X delta_L delta_Ls delta_Ys 411017 0.4500 0.4693 11.38 0.3585E+03 0.0000 0.0000 0.36 1 3 1 1 14 0.1119E+02 0.3817E+00 0.1212E-01 411027 0.4500 0.4693 4.49 0.1416E+03 0.0000 0.0000 0.19 1 3 1 1 14 0.6102E+01 0.4314E+00 0.1370E-01 411037 0.4500 0.4693 2.07 0.6521E+02 0.0000 0.0000 0.11 1 3 1 0 14 0.3584E+01 0.1080E+00 0.3427E-02 411047 0.4500 0.4693 1.12 0.3513E+02 0.0000 0.0000 0.08 1 3 1 0 14 0.2552E+01 0.1304E+00 0.4141E-02 411057 0.4500 0.4693 0.62 0.1944E+02 0.0000 0.0000 0.06 1 3 1 0 14 0.2039E+01 0.8952E-01 0.2842E-02 411067 0.4500 0.4693 0.35 0.1093E+02 0.0000 0.0000 0.05 1 3 1 0 14 0.1548E+01 0.6279E-01 0.1993E-02 411077 0.4500 0.4693 0.46 0.1434E+02 0.0000 0.0000 0.08 1 3 1 0 14 0.2670E+01 0.1691E+00 0.5370E-02 411087 0.4500 0.4693 0.18 0.5663E+01 0.0000 0.0000 0.06 1 3 1 0 14 0.1940E+01 0.4778E-01 0.1517E-02 411097 0.4500 0.4693 0.08 0.2608E+01 0.0000 0.0000 0.06 1 3 1 0 14 0.1752E+01 0.6719E-01 0.2133E-02 411107 0.4500 0.4693 0.04 0.1405E+01 0.0000 0.0000 0.06 1 3 1 0 14 0.1735E+01 0.4206E-01 0.1335E-02 411117 0.4500 0.4693 0.02 0.7778E+00 0.0000 0.0000 0.05 1 3 1 0 14 0.1509E+01 0.3991E-01 0.1267E-02 411127 0.4500 0.4693 0.01 0.4371E+00 0.0000 0.0000 0.05 1 3 1 0 14 0.1550E+01 0.6822E-01 0.2166E-02 ] def /IM 11 def 0 1 IM {/i exch def %i=0,IM /j1 i 16 mul 4 add def /j2 i 16 mul 13 add def xgr i AVR2_10_7 j1 get put ygr i AVR2_10_7 j2 get put } for %i=0,IM /xfact 700 def /yfact 700 def tfy 0 1 IM {/i exch def %i=0,IM xgr i get log 2 add xfact mul ygr i get log 2 add yfact mul moveto -50 -50 rmoveto 100 100 rlineto stroke xgr i get log 2 add xfact mul ygr i get log 2 add yfact mul moveto -50 50 rmoveto 100 -100 rlineto stroke } for %i=0,IM %tfw %630 log 2 add xfact mul 0 50 000 360 arc fill %AVR2DAT.TXT 18*16 = 288 Daten /AVR2_10_7 288 array def /AVR2_10_7 [ 416017 0.4500 0.4693 113.80 0.3585E+03 0.0000 0.0000 7.23 1 3 1 0 14 0.2278E+02 0.2253E+01 0.7152E+00 416027 0.4500 0.4693 44.94 0.1416E+03 0.0000 0.0000 2.87 1 3 1 1 14 0.9055E+01 0.1177E+01 0.3735E+00 416037 0.4500 0.4693 20.70 0.6521E+02 0.0000 0.0000 0.87 1 3 1 1 14 0.2744E+01 0.2035E+00 0.6459E-01 416047 0.4500 0.4693 11.15 0.3513E+02 0.0000 0.0000 0.44 1 3 1 1 14 0.1392E+01 0.1098E+00 0.3484E-01 416057 0.4500 0.4693 6.17 0.1944E+02 0.0000 0.0000 0.26 1 3 1 1 14 0.8230E+00 0.1990E-01 0.6318E-02 416067 0.4500 0.4693 3.47 0.1093E+02 0.0000 0.0000 0.19 1 3 1 1 14 0.5855E+00 0.4955E-01 0.1573E-01 416077 0.4500 0.4693 4.55 0.1434E+02 0.0000 0.0000 0.25 1 3 1 1 14 0.8008E+00 0.6284E-01 0.1995E-01 416087 0.4500 0.4693 1.80 0.5663E+01 0.0000 0.0000 0.16 1 3 1 0 14 0.4926E+00 0.1459E-01 0.4632E-02 416097 0.4500 0.4693 0.83 0.2608E+01 0.0000 0.0000 0.12 1 3 1 0 14 0.3647E+00 0.8119E-02 0.2578E-02 416107 0.4500 0.4693 0.45 0.1405E+01 0.0000 0.0000 0.09 1 3 1 0 14 0.2786E+00 0.1592E-01 0.5053E-02 416117 0.4500 0.4693 0.25 0.7778E+00 0.0000 0.0000 0.08 1 3 1 0 14 0.2643E+00 0.7848E-02 0.2491E-02 416127 0.4500 0.4693 0.14 0.4371E+00 0.0000 0.0000 0.07 1 3 1 0 14 0.2247E+00 0.2128E-01 0.6755E-02 416137 0.4500 0.4693 0.17 0.5372E+00 0.0000 0.0000 0.09 1 3 1 0 14 0.2753E+00 0.1330E-01 0.4222E-02 416147 0.4500 0.4693 0.07 0.2134E+00 0.0000 0.0000 0.07 1 3 1 0 14 0.2299E+00 0.1880E-01 0.5968E-02 416157 0.4500 0.4693 0.03 0.1001E+00 0.0000 0.0000 0.07 1 3 1 0 14 0.2191E+00 0.6958E-02 0.2209E-02 416167 0.4500 0.4693 0.02 0.5476E-01 0.0000 0.0000 0.05 1 3 1 0 14 0.1726E+00 0.3330E-02 0.1057E-02 416177 0.4500 0.4693 0.01 0.3089E-01 0.0000 0.0000 0.07 1 3 1 0 14 0.2134E+00 0.9251E-02 0.2937E-02 416187 0.4500 0.4693 0.01 0.1724E-01 0.0000 0.0000 0.06 1 3 1 0 14 0.1962E+00 0.1066E-01 0.3384E-02 ] def /IM 17 def 0 1 IM {/i exch def %i=0,IM /j1 i 16 mul 4 add def /j2 i 16 mul 13 add def xgr i AVR2_10_7 j1 get put ygr i AVR2_10_7 j2 get put } for %i=0,IM /xfact 700 def /yfact 700 def 0.0 0.0 1.0 0.3 setcmyk_olvcolor 0 1 IM {/i exch def %i=0,IM xgr i get log 2 add xfact mul ygr i get log 2 add yfact mul moveto -50 -50 rmoveto 100 100 rlineto stroke xgr i get log 2 add xfact mul ygr i get log 2 add yfact mul moveto -50 50 rmoveto 100 -100 rlineto stroke } for %i=0,IM %tfw %630 log 2 add xfact mul 0 50 000 360 arc fill %AVR2DAT.TXT 18*16 = 288 Daten /AVR2_10_7 288 array def /AVR2_10_7 [ 421017 0.4500 0.4693 1137.98 0.3585E+03 0.0000 0.0000 307.18 1 3 1 0 14 0.9676E+02 0.2646E+01 0.8400E+01 421027 0.4500 0.4693 449.43 0.1416E+03 0.0000 0.0000 62.62 1 3 1 0 14 0.1972E+02 0.7589E+00 0.2409E+01 421037 0.4500 0.4693 207.01 0.6521E+02 0.0000 0.0000 24.94 1 3 1 0 14 0.7855E+01 0.1661E+01 0.5273E+01 421047 0.4500 0.4693 111.51 0.3513E+02 0.0000 0.0000 8.51 1 3 1 0 14 0.2680E+01 0.1093E+00 0.3470E+00 421057 0.4500 0.4693 61.73 0.1944E+02 0.0000 0.0000 4.07 1 3 1 1 14 0.1282E+01 0.6476E-01 0.2056E+00 421067 0.4500 0.4693 34.69 0.1093E+02 0.0000 0.0000 2.15 1 3 1 1 14 0.6762E+00 0.8666E-01 0.2751E+00 421077 0.4500 0.4693 45.52 0.1434E+02 0.0000 0.0000 4.88 1 3 1 1 14 0.1538E+01 0.2909E-01 0.9235E-01 421087 0.4500 0.4693 17.98 0.5663E+01 0.0000 0.0000 1.53 1 3 1 1 14 0.4833E+00 0.2091E-01 0.6637E-01 421097 0.4500 0.4693 8.28 0.2608E+01 0.0000 0.0000 0.58 1 3 1 1 14 0.1822E+00 0.7891E-02 0.2505E-01 421107 0.4500 0.4693 4.46 0.1405E+01 0.0000 0.0000 0.40 1 3 1 1 14 0.1275E+00 0.1750E-02 0.5555E-02 421117 0.4500 0.4693 2.47 0.7778E+00 0.0000 0.0000 0.28 1 3 1 0 14 0.8859E-01 0.7221E-02 0.2292E-01 421127 0.4500 0.4693 1.39 0.4371E+00 0.0000 0.0000 0.23 1 3 1 0 14 0.7108E-01 0.4206E-02 0.1335E-01 421137 0.4500 0.4693 1.71 0.5372E+00 0.0000 0.0000 0.42 1 3 1 0 14 0.1334E+00 0.1012E-01 0.3212E-01 421147 0.4500 0.4693 0.68 0.2134E+00 0.0000 0.0000 0.29 1 3 1 0 14 0.9228E-01 0.9341E-02 0.2965E-01 421157 0.4500 0.4693 0.32 0.1001E+00 0.0000 0.0000 0.25 1 3 1 0 14 0.7819E-01 0.9730E-03 0.3089E-02 421167 0.4500 0.4693 0.17 0.5476E-01 0.0000 0.0000 0.22 1 3 1 0 14 0.7087E-01 0.1776E-02 0.5639E-02 421177 0.4500 0.4693 0.10 0.3089E-01 0.0000 0.0000 0.21 1 3 1 0 14 0.6547E-01 0.4385E-02 0.1392E-01 421187 0.4500 0.4693 0.05 0.1724E-01 0.0000 0.0000 0.21 1 3 1 0 14 0.6460E-01 0.4296E-02 0.1364E-01 %499999 END,79 characters in any data line ] def /IM 17 def 0 1 IM {/i exch def %i=0,IM /j1 i 16 mul 4 add def /j2 i 16 mul 13 add def xgr i AVR2_10_7 j1 get put ygr i AVR2_10_7 j2 get put } for %i=0,IM 0.0 0.0 1.0 0.6 setcmyk_olvcolor /xfact 700 def /yfact 700 def 0 1 IM {/i exch def %i=0,IM xgr i get log 2 add xfact mul ygr i get log 2 add yfact mul moveto -50 -50 rmoveto 100 100 rlineto stroke xgr i get log 2 add xfact mul ygr i get log 2 add yfact mul moveto -50 50 rmoveto 100 -100 rlineto stroke } for %i=0,IM showpage grestore %%Trailer