More comments

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

diff --git a/perl/relational-schema b/perl/relational-schema
index 883d3420790e601bdbdf632548dd0f12b9f8d432..03ca43477a17bbb9d3d0fa0af3dbb209cfafcd9a 100755 (executable)
--- 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),