From 9b842da1b578356265df2f4c3e247acc54e8a5f4 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Fri, 10 Nov 2017 08:42:31 +0100
Subject: [PATCH] removed unused opacity styles

---
 gpio.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/gpio.pl b/gpio.pl
index 23779f9..e7a3056 100755
--- a/gpio.pl
+++ b/gpio.pl
@@ -178,7 +178,7 @@ sub svg_style {
 
 	sub rect {
 		my ($x,$y,$col,$fill) = @_;
-    		print qq{<rect x="$x" y="$y" height="2.54" width="}, $max_len[$col] * $font_w, qq{" style="opacity:1;fill:$fill;stroke:#ffffff;stroke-width:0.10" />\n};
+    		print qq{<rect x="$x" y="$y" height="2.54" width="}, $max_len[$col] * $font_w, qq{" style="fill:$fill;stroke:#ffffff;stroke-width:0.10" />\n};
 
 	}
 
@@ -273,7 +273,7 @@ foreach my $i ( 0 .. $#line_parts ) {
 		}
 
 		my ($fg,$bg) = @{ $cols->{txt} };
-		my $tspan = qq{<tspan x="$x" y="$y" style="line-height:2.54;fill-opacity:1;fill:$fg;stroke:none;">\n};
+		my $tspan = qq{<tspan x="$x" y="$y" style="line-height:2.54;fill:$fg;stroke:none;">\n};
 
 		my $x_pos = $x;
 		foreach my $i ( @cols_order ) {
@@ -309,7 +309,7 @@ if ( $opt_svg ) {
        id="text4506"
        y="$x"
        x="$y"
-       style="font-size:2.34px;line-height:2.54px;font-family:'Andale Mono';fill-opacity:1;stroke:none;stroke-opacity:1"
+       style="font-size:2.34px;line-height:2.54px;font-family:'Andale Mono';stroke:none"
        xml:space="preserve">
 
 	}; #svg
-- 
2.20.1