projects
/
tpope-extra.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Assorted away-tpope updates
[tpope-extra.git]
/
perl
/
relational-schema
diff --git
a/perl/relational-schema
b/perl/relational-schema
index be914f806ab1d8b82817b6683f20e231b8e874c4..03ca43477a17bbb9d3d0fa0af3dbb209cfafcd9a 100755
(executable)
--- 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;
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 $out = shift or die "No output file specified.\n";
-
my @rows = @ARGV;
die "No rows.\n" unless (@rows);
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);
$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;
}
@@
-116,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),