From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Thu, 9 Nov 2017 11:25:58 +0000 (+0100)
Subject: create round pin 1
X-Git-Url: http://git.rot13.org/?p=linux-gpio-pinout;a=commitdiff_plain;h=b8f747b769dbacb5ac6104fdcd4d63ac8eaf01f9;hp=1de326d6cbb09c71f984364d73d9efd4c6e1e996

create round pin 1
---

diff --git a/gpio.pl b/gpio.pl
index f77e0bd..e2f383e 100755
--- a/gpio.pl
+++ b/gpio.pl
@@ -167,11 +167,17 @@ sub svg_style {
 	if ( $name =~ m/^(\d+)$/ ) { # pins
 		my $pin = $1;
 		my ( $fg, $bg ) = @{ $cols->{pins} };
-    		rect $x,$y,$col,$fg;
 		if ( $pin == 1 ) {
-			my $cx = $x + ( $max_len[$col]*$font_w  );
-			my $cy = $y + ( 2.54  );
-			print qq{<polygon points="$x,$y $cx,$y $x,$cy $x,$y" stroke="$fg" stroke-width="0.25" fill="#000000" />};
+			my $w  = $max_len[$col]*$font_w - 0.1;
+			my $cx = $x + $w;
+			my $cy = $y + 2.54;
+			#print qq{<polygon points="$x,$y $cx,$y $x,$cy $x,$y" stroke="$fg" stroke-width="0.25" fill="$bg" />};
+			#print qq{<polygon points="$x,$cy $cx,$cy $cx,$y $x,$cy" stroke="$bg" stroke-width="0.25" fill="$fg" />};
+			print qq{<rect x="$x" y="$y" width="$w" height="2.54" stroke="$fg" stroke-width="0.3" fill="$bg" />};
+			my ( $fg, $bg ) = @{ $cols->{txt} };
+			print qq{<rect x="$x" y="$y" width="$w" height="2.54" rx="1" ry="1" stroke="$fg" stroke-width="0.3" fill="$bg" />};
+		} else {
+			rect $x,$y,$col,$fg;
 		}
 		return qq{ style="fill:$bg"};
 	}