X-Git-Url: http://git.tpope.net/?p=tpope-extra.git;a=blobdiff_plain;f=perl%2Frelational-schema;h=03ca43477a17bbb9d3d0fa0af3dbb209cfafcd9a;hp=883d3420790e601bdbdf632548dd0f12b9f8d432;hb=47addad972d663aa408f65e679a9d973bd2f2dd2;hpb=8c167e189c9d136496622da617ce1c42d3580a50

diff --git a/perl/relational-schema b/perl/relational-schema
index 883d342..03ca434 100755
--- a/perl/relational-schema
+++ b/perl/relational-schema
@@ -41,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;
 }
 
@@ -115,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),