From 96ce57f1eadc5e0ae08a8f51aaadb494018b77bc Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Thu, 9 Nov 2017 00:57:53 +0100
Subject: [PATCH] implement vertical flip

---
 gpio.pl | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/gpio.pl b/gpio.pl
index a8aae15..51751cc 100755
--- a/gpio.pl
+++ b/gpio.pl
@@ -8,10 +8,12 @@ use Getopt::Long;
 my $opt_svg = $ENV{SVG} || 0;
 my $opt_alt = $ENV{ALT} || 1;
 my $opt_invert = $ENV{INVERT} = 1;
+my $opt_vertical = $ENV{VERTICAL} = 0;
 GetOptions(
 	'svg!' => \$opt_svg,
 	'alt!' => \$opt_alt,
 	'invert!' => \$opt_invert,
+	'vertical!' => \$opt_vertical,
 );
 
 # svg font hints
@@ -172,7 +174,9 @@ my @cols_align = ( '','-','','-' ); # sprintf prefix
 @cols_order = ( 0,1,3,2 ); # pins outside on the right
 @cols_align = ( '','-','-','' );
 
-foreach my $line ( @line_parts ) {
+foreach my $i ( 0 .. $#line_parts ) {
+	$i = $#line_parts - $i if $opt_vertical;
+	my $line = $line_parts[$i];
 
 	my $pin_color = $alt_col ? '#cccccc' : '#444444';
 	$alt_col = ! $alt_col;
-- 
2.20.1