Не создаем лишние столбцы диаграммы, чтоб не портить картинку.

[weathermon.git] / bin / weather-lcd

diff --git a/bin/weather-lcd b/bin/weather-lcd
index 49fd5e37c7fdc3a454f2f0ed67bbd9eaa918b16e..17436efbc5ae64c4da910b104b5bf6f349e6cbef 100755 (executable)
--- a/bin/weather-lcd
+++ b/bin/weather-lcd
@@ -153,15 +153,14 @@ function setup_pages(conn)
         pageid = def["sensor"].."."..def["param"]
         pagetitle = trim(def["label"])..", "..def["unit"]
         write_command(conn,"screen_add "..pageid)
         pageid = def["sensor"].."."..def["param"]
         pagetitle = trim(def["label"])..", "..def["unit"]
         write_command(conn,"screen_add "..pageid)

-        write_command(conn,"screen_set "..pageid.." -cursor off")
-        write_command(conn,"screen_set "..pageid.." -name "..pagetitle.." -duration "..graph_duration)
+        write_command(conn,"screen_set "..pageid.." -cursor off -name "..pagetitle.." -duration "..graph_duration)

         write_command(conn,"widget_add "..pageid.." "..pageid..".title title")
         write_command(conn,"widget_add "..pageid.." "..pageid..".title title")

-        write_command(conn,"widget_set "..pageid.." "..pageid..".title \"".. pagetitle.."\"")

         write_command(conn,"widget_add "..pageid.." "..pageid..".max string")
         write_command(conn,"widget_add "..pageid.." "..pageid..".min string")
         write_command(conn,"widget_add "..pageid.." "..pageid..".max string")
         write_command(conn,"widget_add "..pageid.." "..pageid..".min string")

-        for k=1,width-def["pos"] do
-          write_command(conn,"widget_add "..pageid.." "..pageid..".bar"..trim(tostring(k)).." vbar")
+        for k = 3,height-1 do
+          write_command(conn,"widget_add "..pageid.." "..pageid..".place"..trim(tostring(k)).." string")

         end
         end

+        write_command(conn,"widget_set "..pageid.." "..pageid..".title \"".. pagetitle.."\"")

       end
     end
   end
       end
     end
   end


@@ -197,9 +196,9 @@ function process_graphs()
       local vals = {}
       local maxval = -99999999
       local minval =  99999999
       local vals = {}
       local maxval = -99999999
       local minval =  99999999

-      for k=width-def["pos"],1,-1 do
+      for k=width,1,-1 do

         if row then
         if row then

-          val = row["val"]
+          val = row["val"] * def["scale"]

           row = cur:fetch ({}, "a")
         else
           val = nil  
           row = cur:fetch ({}, "a")
         else
           val = nil  


@@ -209,19 +208,29 @@ function process_graphs()
         if val and (val < minval) then minval = val; end
       end          
       minval = math.floor(minval)
         if val and (val < minval) then minval = val; end
       end          
       minval = math.floor(minval)

-      minvalstr = trim(tostring(minval))
+      local minvalstr = trim(tostring(minval))

       maxval = math.ceil(maxval)
       maxval = math.ceil(maxval)

-      maxvalstr = trim(tostring(maxval))
+      local maxvalstr = trim(tostring(maxval))
+      local len = math.max(string.len(minvalstr),string.len(maxvalstr))

       write_command(conn,"widget_set "..pageid.." "..pageid..".max "..trim(tostring(width-string.len(maxvalstr)+1)).." 2 "..maxvalstr)
       write_command(conn,"widget_set "..pageid.." "..pageid..".max "..trim(tostring(width-string.len(maxvalstr)+1)).." 2 "..maxvalstr)

+      for k = 3,height-1 do
+        write_command(conn,"widget_set "..pageid.." "..pageid..".place"..trim(tostring(k)).." "..trim(tostring(width-len+1)).." "..k.." \" "..string.rep("-",len-1).."\"")
+      end

       write_command(conn,"widget_set "..pageid.." "..pageid..".min "..trim(tostring(width-string.len(minvalstr)+1)).." "..height.." "..minvalstr)
       write_command(conn,"widget_set "..pageid.." "..pageid..".min "..trim(tostring(width-string.len(minvalstr)+1)).." "..height.." "..minvalstr)

-      for k = 1,width-def["pos"] do
-        val = vals[k]
+      local m = width
+      for k=1,width do
+        write_command(conn,"widget_del "..pageid.." "..pageid..".bar"..trim(tostring(k)))
+      end
+      for k = width-len,1,-1 do
+        val = vals[m]

         if val then
           h = math.floor(0.5+(val-minval)/(maxval-minval)*(height-1)*charheight)
         else
           h = 0
         end  
         if val then
           h = math.floor(0.5+(val-minval)/(maxval-minval)*(height-1)*charheight)
         else
           h = 0
         end  

+        write_command(conn,"widget_add "..pageid.." "..pageid..".bar"..trim(tostring(k)).." vbar")

         write_command(conn,"widget_set "..pageid.." "..pageid..".bar"..trim(tostring(k)).." "..k.." "..height.." "..h)
         write_command(conn,"widget_set "..pageid.." "..pageid..".bar"..trim(tostring(k)).." "..k.." "..height.." "..h)

+        m = m - 1

       end
     end
   end
       end
     end
   end