commit e4cb65efced490926b1fd08d46eb30019019026d
author Philipp Gühring <pg@futureware.at> Sun Jun 27 02:18:49 2021 +0200
committer Philipp Gühring <pg@futureware.at> Sun Jun 27 02:18:49 2021 +0200
tree bc52934da4f2b15509ed0f037c610bca397e07f0
parent 58056c0ff84faf1cfd59c15976eae8f10a10f149

magscale support

cells/lef/fixup.pl

diff --git a/cells/lef/fixup.pl b/cells/lef/fixup.pl
index 2c6897b..22a2b72 100644
--- a/cells/lef/fixup.pl
+++ b/cells/lef/fixup.pl
@@ -31,8 +31,13 @@
   {
     print "Extracting Obstruction information from $mag\n";	  
     my $active=0;
+    my $factor=100.0;
     while(<MAGIN>)
     {
+      if(m/magscale (\d+) (\d+)/)
+      {
+        $factor=100.0*$2;
+      }
       if(m/<< (\w+) >>/)
       {
         $active=defined($layersToDo{$1});
@@ -40,7 +45,7 @@
       }
       if(m/rect (-?\d+) (-?\d+) (-?\d+) (-?\d+)/ && $active)
       {
-        $obs.="      RECT ( ".($1/100.0)." ".($2/100.0)." ) ( ".($3/100.0)." ".($4/100.0)." ) ;\n";
+        $obs.="      RECT ( ".($1/$factor)." ".($2/$factor)." ) ( ".($3/$factor)." ".($4/$factor)." ) ;\n";
       }
     }
     close MAGIN;