Subversion Repositories OpenARM Single-board Computer

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.