1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
|
puts "TODO OCC12345 ALL: Faulty OCC4648"
puts "================"
puts "OCC4648"
puts "================"
puts ""
#################################
# Problems with writing to STEP
#################################
set BugNumber OCC4648
igesbrep [locate_data_file annie_surf.igs] a *
set info [nbshapes a]
regexp {Mass +: +([-0-9.+eE]+)} [sprops a] full good_square
regexp {VERTEX +: +([-0-9.+eE]+)} $info full good_vertex
regexp {EDGE +: +([-0-9.+eE]+)} $info full good_edge
regexp {WIRE +: +([-0-9.+eE]+)} $info full good_wire
regexp {FACE +: +([-0-9.+eE]+)} $info full good_face
regexp {SHELL +: +([-0-9.+eE]+)} $info full good_shell
regexp {SOLID +: +([-0-9.+eE]+)} $info full good_solid
regexp {COMPSOLID +: +([-0-9.+eE]+)} $info full good_compsolid
regexp {COMPOUND +: +([-0-9.+eE]+)} $info full good_compound
regexp {SHAPE +: +([-0-9.+eE]+)} $info full good_shape
file delete ${imagedir}/annie
stepwrite 0 a ${imagedir}/annie
if { ![file exists ${imagedir}/annie] } {
puts "Faulty ${BugNumber} : There is not file"
}
catch {exec chmod 777 ${imagedir}/annie}
if [catch { stepread ${imagedir}/annie b *} res] {
puts "Faulty ${BugNumber} : stepread is wrong"
} else {
renamevar b_1 res
set info1 [nbshapes res]
regexp {Mass +: +([-0-9.+eE]+)} [sprops res] full sq
regexp {VERTEX +: +([-0-9.+eE]+)} $info1 full vertex
regexp {EDGE +: +([-0-9.+eE]+)} $info1 full edge
regexp {WIRE +: +([-0-9.+eE]+)} $info1 full wire
regexp {FACE +: +([-0-9.+eE]+)} $info1 full face
regexp {SHELL +: +([-0-9.+eE]+)} $info1 full shell
regexp {SOLID +: +([-0-9.+eE]+)} $info1 full solid
regexp {COMPSOLID +: +([-0-9.+eE]+)} $info1 full compsolid
regexp {COMPOUND +: +([-0-9.+eE]+)} $info1 full compound
regexp {SHAPE +: +([-0-9.+eE]+)} $info1 full shape
if { $sq != $good_square
|| $vertex != $good_vertex
|| $edge != $good_edge
|| $wire != $good_wire
|| $face != $good_face
|| $shell != $good_shell
|| $solid != $good_solid
|| $compsolid != $good_compsolid
|| $compound != $good_compound
|| $shape != $good_shape } {
puts "Faulty ${BugNumber}"
}
}
file delete ${imagedir}/annie
|
