From 1ef766c8367d243f5a8c5dac3e20d17cdbfa8a53 Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Sun, 21 Feb 2016 15:35:33 +0100
Subject: simpler Export der Temperatur für sox
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 fhunit.pas |  17 +++++++++
 wetter.lps | 114 ++++++++++++++++++++++++++++++-------------------------------
 2 files changed, 74 insertions(+), 57 deletions(-)

diff --git a/fhunit.pas b/fhunit.pas
index f4e5edc..7a5b570 100644
--- a/fhunit.pas
+++ b/fhunit.pas
@@ -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
diff --git a/wetter.lps b/wetter.lps
index 2fafbe5..7e4ef56 100644
--- a/wetter.lps
+++ b/wetter.lps
@@ -18,8 +18,8 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="Unit1"/>
-        <TopLine Value="280"/>
-        <CursorPos X="26" Y="201"/>
+        <TopLine Value="111"/>
+        <CursorPos Y="143"/>
         <UsageCount Value="59"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
@@ -33,9 +33,10 @@
       <Unit3>
         <Filename Value="fhunit.pas"/>
         <IsPartOfProject Value="True"/>
+        <IsVisibleTab Value="True"/>
         <EditorIndex Value="3"/>
-        <TopLine Value="573"/>
-        <CursorPos X="18" Y="600"/>
+        <TopLine Value="545"/>
+        <CursorPos X="14" Y="576"/>
         <UsageCount Value="59"/>
         <Loaded Value="True"/>
       </Unit3>
@@ -57,9 +58,8 @@
       </Unit5>
       <Unit6>
         <Filename Value="pegelunit.pas"/>
-        <IsVisibleTab Value="True"/>
         <EditorIndex Value="5"/>
-        <TopLine Value="478"/>
+        <TopLine Value="438"/>
         <CursorPos X="64" Y="508"/>
         <UsageCount Value="28"/>
         <Loaded Value="True"/>
@@ -141,123 +141,123 @@
     </Units>
     <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
-        <Filename Value="unit1.pas"/>
-        <Caret Line="72" Column="70" TopLine="62"/>
+        <Filename Value="../units/fileunit.pas"/>
+        <Caret Line="134" TopLine="96"/>
       </Position1>
       <Position2>
-        <Filename Value="unit1.pas"/>
-        <Caret Line="301" Column="19" TopLine="276"/>
+        <Filename Value="../units/fileunit.pas"/>
+        <Caret Line="46" Column="29" TopLine="21"/>
       </Position2>
       <Position3>
-        <Filename Value="unit1.pas"/>
-        <Caret Line="35"/>
+        <Filename Value="../units/fileunit.pas"/>
+        <Caret Line="84" Column="23" TopLine="53"/>
       </Position3>
       <Position4>
-        <Filename Value="unit1.pas"/>
-        <Caret Line="308" Column="19" TopLine="273"/>
+        <Filename Value="../units/fileunit.pas"/>
+        <Caret Line="141" Column="7" TopLine="106"/>
       </Position4>
       <Position5>
-        <Filename Value="unit1.pas"/>
-        <Caret Line="305" Column="36" TopLine="272"/>
+        <Filename Value="../units/fileunit.pas"/>
+        <Caret Line="27" TopLine="20"/>
       </Position5>
       <Position6>
-        <Filename Value="fhunit.pas"/>
-        <Caret Line="608" Column="15" TopLine="576"/>
+        <Filename Value="../units/fileunit.pas"/>
+        <Caret Line="133" Column="13" TopLine="110"/>
       </Position6>
       <Position7>
         <Filename Value="../units/fileunit.pas"/>
-        <Caret Line="30" Column="40" TopLine="3"/>
+        <Caret Line="31" TopLine="9"/>
       </Position7>
       <Position8>
         <Filename Value="../units/fileunit.pas"/>
-        <Caret Line="101" Column="42" TopLine="78"/>
+        <Caret Line="216" Column="11" TopLine="177"/>
       </Position8>
       <Position9>
         <Filename Value="../units/fileunit.pas"/>
-        <Caret Line="25" Column="42" TopLine="18"/>
+        <Caret Line="153" TopLine="147"/>
       </Position9>
       <Position10>
         <Filename Value="../units/fileunit.pas"/>
-        <Caret Line="134" TopLine="96"/>
+        <Caret Line="168" Column="18" TopLine="135"/>
       </Position10>
       <Position11>
         <Filename Value="../units/fileunit.pas"/>
-        <Caret Line="46" Column="29" TopLine="21"/>
+        <Caret Line="160" Column="21" TopLine="140"/>
       </Position11>
       <Position12>
         <Filename Value="../units/fileunit.pas"/>
-        <Caret Line="84" Column="23" TopLine="53"/>
+        <Caret Line="173" TopLine="143"/>
       </Position12>
       <Position13>
-        <Filename Value="../units/fileunit.pas"/>
-        <Caret Line="141" Column="7" TopLine="106"/>
+        <Filename Value="pegelunit.pas"/>
+        <Caret Line="528" Column="18" TopLine="515"/>
       </Position13>
       <Position14>
         <Filename Value="../units/fileunit.pas"/>
-        <Caret Line="27" TopLine="20"/>
+        <Caret Line="26" Column="62" TopLine="17"/>
       </Position14>
       <Position15>
-        <Filename Value="../units/fileunit.pas"/>
-        <Caret Line="133" Column="13" TopLine="110"/>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="84" Column="72" TopLine="67"/>
       </Position15>
       <Position16>
-        <Filename Value="../units/fileunit.pas"/>
-        <Caret Line="31" TopLine="9"/>
+        <Filename Value="unit1.pas"/>
       </Position16>
       <Position17>
-        <Filename Value="../units/fileunit.pas"/>
-        <Caret Line="216" Column="11" TopLine="177"/>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="258" Column="54" TopLine="221"/>
       </Position17>
       <Position18>
-        <Filename Value="../units/fileunit.pas"/>
-        <Caret Line="153" TopLine="147"/>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="203" TopLine="203"/>
       </Position18>
       <Position19>
-        <Filename Value="../units/fileunit.pas"/>
-        <Caret Line="168" Column="18" TopLine="135"/>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="220" Column="36" TopLine="180"/>
       </Position19>
       <Position20>
-        <Filename Value="../units/fileunit.pas"/>
-        <Caret Line="160" Column="21" TopLine="140"/>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="205" Column="64" TopLine="197"/>
       </Position20>
       <Position21>
-        <Filename Value="../units/fileunit.pas"/>
-        <Caret Line="173" TopLine="143"/>
+        <Filename Value="../units/gitupdateunit.pas"/>
+        <Caret Line="33" Column="29" TopLine="30"/>
       </Position21>
       <Position22>
-        <Filename Value="pegelunit.pas"/>
-        <Caret Line="528" Column="18" TopLine="515"/>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="201" Column="26" TopLine="108"/>
       </Position22>
       <Position23>
-        <Filename Value="../units/fileunit.pas"/>
-        <Caret Line="26" Column="62" TopLine="17"/>
+        <Filename Value="fhunit.pas"/>
+        <Caret Line="90" Column="20" TopLine="68"/>
       </Position23>
       <Position24>
-        <Filename Value="unit1.pas"/>
-        <Caret Line="84" Column="72" TopLine="67"/>
+        <Filename Value="fhunit.pas"/>
+        <Caret Line="545" Column="28" TopLine="542"/>
       </Position24>
       <Position25>
-        <Filename Value="unit1.pas"/>
+        <Filename Value="fhunit.pas"/>
+        <Caret Line="59" Column="15" TopLine="37"/>
       </Position25>
       <Position26>
-        <Filename Value="unit1.pas"/>
-        <Caret Line="258" Column="54" TopLine="221"/>
+        <Filename Value="fhunit.pas"/>
+        <Caret Line="39" Column="19" TopLine="16"/>
       </Position26>
       <Position27>
-        <Filename Value="unit1.pas"/>
-        <Caret Line="203" TopLine="203"/>
+        <Filename Value="fhunit.pas"/>
+        <Caret Line="59" Column="19" TopLine="23"/>
       </Position27>
       <Position28>
-        <Filename Value="unit1.pas"/>
-        <Caret Line="220" Column="36" TopLine="180"/>
+        <Filename Value="fhunit.pas"/>
+        <Caret Line="239" Column="26" TopLine="203"/>
       </Position28>
       <Position29>
         <Filename Value="unit1.pas"/>
-        <Caret Line="205" Column="64" TopLine="197"/>
+        <Caret Line="143" TopLine="111"/>
       </Position29>
       <Position30>
-        <Filename Value="../units/gitupdateunit.pas"/>
-        <Caret Line="33" Column="29" TopLine="30"/>
+        <Filename Value="fhunit.pas"/>
+        <Caret Line="90" Column="20" TopLine="69"/>
       </Position30>
     </JumpHistory>
   </ProjectSession>
-- 
cgit v1.2.3-54-g00ecf