1 puts "TODO OCC12345 ALL: Error on Record"
2 puts "TODO OCC12345 ALL: OCC926 Faulty"
4 puts "================"
6 puts "================"
9 stepread [locate_data_file OCC926.stp] a *
12 set list [nbshapes result]
14 regexp {VERTEX +: +([-0-9.+eE]+)} $list full VERTEX
15 regexp {EDGE +: +([-0-9.+eE]+)} $list full EDGE
16 regexp {WIRE +: +([-0-9.+eE]+)} $list full WIRE
17 regexp {FACE +: +([-0-9.+eE]+)} $list full FACE
18 regexp {SHELL +: +([-0-9.+eE]+)} $list full SHELL
19 regexp {SOLID +: +([-0-9.+eE]+)} $list full SOLID
20 regexp {COMPSOLID +: +([-0-9.+eE]+)} $list full COMPSOLID
21 regexp {COMPOUND +: +([-0-9.+eE]+)} $list full COMPOUND
22 regexp {SHAPE +: +([-0-9.+eE]+)} $list full SHAPE
24 if { $VERTEX != 4474 || \