Assorted away-tpope updates

[tpope-extra.git] / perl / relational-schema

diff --git a/perl/relational-schema b/perl/relational-schema
index be914f806ab1d8b82817b6683f20e231b8e874c4..03ca43477a17bbb9d3d0fa0af3dbb209cfafcd9a 100755 (executable)
--- a/perl/relational-schema
+++ b/perl/relational-schema
@@ -16,10 +16,9 @@ use Image::Imlib2;
 use vars qw($font $maxwidth $pd $fh);
 $font = "Verdana/11";
 $maxwidth = 550;
-$pd = 4;
+$pd = 4; # Padding
 
 my $out = shift or die "No output file specified.\n";
-
 my @rows = @ARGV;
 die "No rows.\n" unless (@rows);
 
@@ -42,15 +41,14 @@ sub draw_boxed_text {
     $image->set_color(0,0,0,255);
     $image->draw_rectangle($x,$y,$w+2*$pd+2,$fh+2*$pd+2);
     $image->draw_text($x+$pd,$y+$pd,$text);
-    if(($underline||0)==1) {
+    if(($underline||0)==1) { # Solid underline
        $image->draw_line($x+$pd,$y+$pd+$fh,$x+$w+$pd,$y+$pd+$fh);
-    } elsif(($underline||0)==2) {
+    } elsif(($underline||0)==2) { # Dashed underline
        for(my $i=0;$i<$w;$i+=5) {
            $image->draw_line($x+$pd+$i,$y+$pd+$fh,
                $x+$pd+($i+2>$w?$w$i+2),$y+$pd+$fh);
        }
     }
-
     return $w+2*$pd+1;
 }
 
@@ -116,7 +114,7 @@ foreach my $row (@rows) {
            $image->draw_line($elcenters{$out}+$pd*($updown>>1),
                $far,$elcenters{$out}+$pd*($updown>>1),$near);
        }
-       foreach $in (@in) {
+       foreach $in (@in) { # Draw arrowheads
            my $arrow = Image::Imlib2::Polygon->new();
            $arrow->add_point($elcenters{$in}+$pd*($updown>>1),$near);
            $arrow->add_point($elcenters{$in}+$pd+$pd*($updown>>1),