From 246c37c0f3ed1737bb89fb889f4ba74aef49c879 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Fri, 8 Mar 2024 15:05:47 +0000
Subject: [PATCH] 98_SVG.pm: add needles (Forum #137386)

git-svn-id: https://svn.fhem.de/fhem/trunk@28617 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/98_SVG.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/fhem/FHEM/98_SVG.pm b/fhem/FHEM/98_SVG.pm
index 25d2b7c83..41919df19 100644
--- a/fhem/FHEM/98_SVG.pm
+++ b/fhem/FHEM/98_SVG.pm
@@ -492,7 +492,7 @@ SVG_PEdit($$$$)
     my $sel = ($v && $v eq "x1y1") ? "left" : "right";
     $o .= SVG_sel("axes_${idx}", "left,right,left log,right log", $sel );
     $o .= SVG_sel("type_${idx}",
-                "lines,points,steps,fsteps,histeps,bars,ibars,".
+                "lines,points,steps,fsteps,histeps,bars,ibars,needles,".
                 "horizontalLineFrom,horizontalLineTo,".
                 "cubic,quadratic,quadraticSmooth",
                 $conf{lType}[$idx]);
@@ -2055,8 +2055,8 @@ SVG_render($$$$$$$$$$)
       $ret .=  sprintf(" %d,%d", $lx, $y+$hfill) if($isFill && $lx > -1);
       SVG_pO "<polyline $attributes $lStyle points=\"$ret\"/>";
 
-    } elsif( $lType eq "bars" ) {
-      my $bw = $barwidth*$tmul;
+    } elsif( $lType eq "bars" || $lType eq "needles" ) {
+      my $bw = ($lType eq "bars" ? $barwidth*$tmul : 1);   #137386
       # bars are all of equal width (see far above !), 
       # position rounded to integer multiples of bar width
       foreach my $i (0..int(@{$dxp})-1) {