mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-08-04 13:13:25 +03:00
66 lines
2.1 KiB
Plaintext
Executable File
66 lines
2.1 KiB
Plaintext
Executable File
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 square
|
|
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 { $square != $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
|
|
|
|
|