Idee: Habe eine Regenprognose mit Säulen erstellt.
Wäre das auch anders möglich?
{package ui_Table;
sub Farbe {my ($wert)=@_;
return($wert == 0 ? 50 : ($wert == 8.1 ? 80 : ($wert >= 35 ? 210 : 150)));}
sub Zeit {my ($str,$diff)=@_;
my @time=split /:/,$str;
$time[1] += $diff;
if ($time[1] >= 60) {$time[0] += 1;$time[1] -= 60;}
if ($time[1] >= 60) {$time[0] += 1;$time[1] -= 60;}
if ($time[0] >= 24) {$time[0] -= 24;}
return(sprintf("%02.f",$time[0]).":".sprintf("%02.f",$time[1]));}
}
DEF TPL_bar ([wetter_prog:feld-$1:d],Farbe([wetter_prog:feld-$1:d]), Zeit([wetter_prog:Prog],($1-4)*5))
cylinder_bars("Regenprog ".[wetter_prog:stand],0,15,"",undef,undef,undef,1,
TPL_bar(04), TPL_bar(07), TPL_bar(10), TPL_bar(13),
TPL_bar(16), TPL_bar(19), TPL_bar(21),
)