set f myfile.tdr
puts "file: $f"
TdrFileOpen $f
# loop through geometries
set ng [TdrFileGetNumGeometry $f]
puts "#geometries: $ng"
for {set ig 0} {$ig < $ng} {incr ig} {
set gname [TdrGeometryGetName $f $ig]
set ns [TdrGeometryGetNumState $f $ig]
set nr [TdrGeometryGetNumRegion $f $ig]
puts " geometry $ig: $gname"
puts " type : [TdrGeometryGetType $f $ig]"
puts " dimension: [TdrGeometryGetDimension $f $ig]"
puts " transform: [TdrGeometryGetTransform $f $ig]"
puts " shift : [TdrGeometryGetShift $f $ig]"
puts " #states : $ns"
# loop through states
for {set is 0} {$is < $ns} {incr is} {
set sname [TdrStateGetName $f $ig $is]
puts " state $is: $sname"
}
puts " #regions: $nr"
# loop through regions
for {set ir 0} {$ir < $nr} {incr ir} {
set rname [TdrRegionGetName $f $ig $ir]
puts " region $ir: $rname"
}
}
TdrFileClose $f