- bug fix on Tof netlist

(i'm not proud of this hack/fix, but it's better than nothing ;) )

alliance/src/scl/src/scpbuild.c

@@ -814,6 +814,10 @@ static schfig_list *loc_buildplaceout( Figure, ColumnFrom, ColumnTo )
 
   long            CumulY;
 
+  /* LUDO 29/10/2004 */
+  CumulY = 0;
+  /* ODUL */
+
   Begin  = 1;
 
   for ( CellTo  = ColumnTo->LAST_CELL;
@@ -874,12 +878,21 @@ static schfig_list *loc_buildplaceout( Figure, ColumnFrom, ColumnTo )
       }
 
       if ( ! IsSchBoxPlaced( BoxTo ) )
+      {
+        /* LUDO Bug fix 29/10/2004 */
+        if ( Begin )
+        {
+          CumulY = BoxTo->Y; 
+        }
+        /* ODUL */
+        else
         {
           BoxTo->Y = CumulY - BoxTo->DY;
           SetSchBoxPlaced( BoxTo );
           CumulY = BoxTo->Y - 1;
         }
       }
+    }
 
     if ( CellTo->TYPE == SCP_CEL_CON )
     {
@@ -932,6 +945,10 @@ static schfig_list *loc_buildplaceout( Figure, ColumnFrom, ColumnTo )
         ConTo->Y_REL = CumulY;
         SetSchConPlaced(ConTo);
         CumulY = ConTo->Y_REL - 1;
+
+        /* LUDO 29/10/2004 */
+        Begin = 0;
+        /* ODUL */
       }
     }
   }
@@ -1388,6 +1405,10 @@ static schfig_list *loc_placement_initial( Figure )
     }
   }
 
+  /* LUDO 29/10/2004 */
+  cpt_transparence = 0;
+  /* ODUL */
+
   while (cpt_transparence != Column->NUMBER_CELL) {
 
       Column2 = Column;