Blame |
Last modification |
View Log
| RSS feed
Index: djboxsym
===================================================================
--- djboxsym (wersja 119)
+++ djboxsym (kopia robocza)
@@ -8,7 +8,7 @@
$y{left} = 400;
$y{right} = 400;
-$y{labels} = 700;
+$y{labels} = -100;
$labelpin = 0;
# Read in the file, storing information about each pin.
@@ -65,7 +65,7 @@
$pinside{$labelpin} = $side;
$piny{$labelpin} = $y{labels};
$pinlabel{$labelpin} = $_;
- $y{labels} += 400;
+ $y{labels} -= 300;
$rlen{$labelpin} = &textlen($_);
next;
}
@@ -155,6 +155,18 @@
}
}
+
+for ($i = $y{labels}; $i <= 0; $i+=100) {
+ my $w = $bw{$i}{labels};
+ $w += 100 - ($w%100);
+ #$w = (int($w/100) * 100) + (($w/100) > int($w/100))?100:0;
+ if ($boxwidth < $w) {
+ $boxwidth = $w;
+ }
+}
+
+#printf STDERR "test: %d\n", $y{labels};
+
$boxwidth = $w{top} if $boxwidth < $w{top};
$boxwidth = $w{bottom} if $boxwidth < $w{bottom};
@@ -176,8 +188,10 @@
}
# Labels are centered in the box.
+# labels have to be top, lef
for $lp ($minpin..-1) {
- $pinx{$lp} = &alignpin($boxwidth/2) + 300;
+ #$pinx{$lp} = &alignpin($boxwidth/2) + 300;
+ $pinx{$lp} = 300 + &textlen($pinlabel{$lp})/2;
}
# Version.