plot: plot area of instances in module only, not submodules

Signed-off-by: Øyvind Harboe <[email protected]>

Author: oharboe

flow/scripts/plot_keep.py

@@ -13,7 +13,7 @@ def load_data(filename):
     data = {}
     with open(filename) as f:
         for line in f:
-            key, value = line.split()
+            key, value = line.split()[0:2]
             data[key] = float(value)
     return data
 
@@ -32,8 +32,9 @@ def main():
     data1 = load_data(sys.argv[1])
     data2 = load_data(sys.argv[2])
     keys = set(data1.keys()) & set(data2.keys())
-    x = [data1[key] for key in keys]
-    y = [data2[key] for key in keys]
+    max_value = 3000
+    x = [data1[key] for key in keys if data1[key] < max_value and data2[key] < max_value]
+    y = [data2[key] for key in keys if data1[key] < max_value and data2[key] < max_value]
     plot_data(x, y)
 
 

flow/scripts/report_area.tcl

@@ -8,22 +8,9 @@ set block [$chip getBlock]
 
 set scale_to_um [expr [$block getDbUnitsPerMicron] * [$block getDbUnitsPerMicron]]
 
-set insts [$block getInsts]
-
-proc insts_area {insts} {
-  global scale_to_um
-  set area 0
-  foreach inst $insts {
-    set bbox [$inst getBBox]
-    set area [expr $area + [$bbox getDX] * [$bbox getDY]]
-  }
-  return [expr $area / $scale_to_um]
-}
-
-proc module_area {module} {
+proc module_area {insts} {
   global scale_to_um
   set area 0
-  set insts [$module getLeafInsts]
   foreach inst $insts {
     set bbox [$inst getBBox]
     set area [expr $area + [$bbox getDX] * [$bbox getDY]]
@@ -33,7 +20,6 @@ proc module_area {module} {
 
 set f [open $::env(REPORTS_DIR)/2_area.txt w]
 foreach module [$block getModules] {
-  set area [module_area $module]
-  puts $f "[$module getName] $area"
+  puts $f "[$module getName] [module_area [$module getInsts]] [module_area [$module getLeafInsts]]"
 }   
 close $f