X-Git-Url: http://git.tpope.net/?p=tpope-extra.git;a=blobdiff_plain;f=perl%2Frelational-schema;h=03ca43477a17bbb9d3d0fa0af3dbb209cfafcd9a;hp=be914f806ab1d8b82817b6683f20e231b8e874c4;hb=HEAD;hpb=a7ec2cc08ad2359807825082ffc4b5150f4ffb97

diff --git a/perl/relational-schema b/perl/relational-schema
index be914f8..03ca434 100755
--- 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),