diff options
author | Erich Eckner <git@eckner.net> | 2016-02-21 15:35:33 +0100 |
---|---|---|
committer | Erich Eckner <git@eckner.net> | 2016-02-21 15:35:33 +0100 |
commit | 1ef766c8367d243f5a8c5dac3e20d17cdbfa8a53 (patch) | |
tree | 027f3e824f8a917602b95338f9d3eaae2610e9cb /fhunit.pas | |
parent | f6e3bbf4cdbc0b8e46fae8fa31df5d4f83a73a75 (diff) | |
download | FH-Wetter-zuTon.tar.xz |
simpler Export der Temperatur für soxzuTon
Diffstat (limited to 'fhunit.pas')
-rw-r--r-- | fhunit.pas | 17 |
1 files changed, 17 insertions, 0 deletions
@@ -549,6 +549,9 @@ var len: longint; s: string; i: longint; + fi: file; + ma,mi: extended; + lw: longword; begin if not fileexists(von) then begin writeln('Messwertedatei '''+von+''' existiert nicht!'); @@ -571,6 +574,20 @@ begin werte.pmud(pt+2*sizeof(longint),(pLongint(pt)+1)^,len-2*sizeof(longint)); freemem(pt); + assignfile(fi,'/tmp/temperatur.roh'); + rewrite(fi,1); + ma:=werte[0].mW[mgTemperatur]; + mi:=ma; + for i:=1 to werte.count-1 do begin + ma:=max(ma,werte[i].mW[mgTemperatur]); + mi:=min(mi,werte[i].mW[mgTemperatur]); + end; + for i:=0 to werte.count-1 do begin + lw:=round((werte[i].mW[mgTemperatur]-mi)/(ma+mi)*$ffffffff); + blockwrite(fi,lw,sizeof(lw)); + end; + closefile(fi); + if length(muts)=0 then begin setlength(muts,20); for i:=0 to length(muts)-1 do |