More comments
authorTim Pope <code@tpope.net>
Thu, 29 Sep 2005 18:01:48 +0000 (18:01 +0000)
committerTim Pope <code@tpope.net>
Thu, 29 Sep 2005 18:01:48 +0000 (18:01 +0000)
perl/relational-schema

index 883d342..03ca434 100755 (executable)
@@ -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),