projects
/
tpope-extra.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
8c167e1
)
More comments
author
Tim Pope
<code@tpope.net>
Thu, 29 Sep 2005 18:01:48 +0000
(18:01 +0000)
committer
Tim Pope
<code@tpope.net>
Thu, 29 Sep 2005 18:01:48 +0000
(18:01 +0000)
perl/relational-schema
patch
|
blob
|
history
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);
$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);
$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);
}
}
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;
}
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);
}
$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),
my $arrow = Image::Imlib2::Polygon->new();
$arrow->add_point($elcenters{$in}+$pd*($updown>>1),$near);
$arrow->add_point($elcenters{$in}+$pd+$pd*($updown>>1),