mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
1f26f80bb7
Bnd_OBB constructor from Bnd_Box is fixed for VOID input. DRAW command bounding command is adjusted: - Support of old syntax 'bounding shape'is restored. - Exception on VOID bounding box is avoided. - Arguments are handled in case-insensitive way. - Options -s, -perfmeter, and ability to set result as first argument are removed as redundant. - Help is moved to command definition. Separate command OCC29311 is added (in QADraw) to do the same as option -perfmeter did; tests are updated.
38 lines
864 B
Plaintext
Executable File
38 lines
864 B
Plaintext
Executable File
puts "================"
|
|
puts "OCC659"
|
|
puts "================"
|
|
puts ""
|
|
#############################################
|
|
## Units are not taken into account while translating IGES surfaces
|
|
#############################################
|
|
|
|
param read.surfacecurve.mode -2
|
|
|
|
set filepath [locate_data_file D44-11325-6.igs]
|
|
if [catch { igesbrep $filepath a 6425 } res] {
|
|
puts "Faulty OCC659 first: here is reading problem"
|
|
}
|
|
|
|
renamevar a_1 a1
|
|
|
|
param read.surfacecurve.mode -3
|
|
|
|
if [catch { igesbrep . a 6425 } res] {
|
|
puts "Faulty OCC659 second: here is reading problem"
|
|
}
|
|
|
|
renamevar a_1 a2
|
|
|
|
set size1 [ bounding a1 -save x1_a1 yy zz x2_a1 yy zz ]
|
|
set size2 [ bounding a2 -save x1_a2 yy zz x2_a2 yy zz ]
|
|
|
|
set dim2 [ dval x2_a2-x1_a2 ]
|
|
set dim1 [ dval x2_a1-x1_a1 ]
|
|
|
|
set siz [expr ${dim1} / ${dim2}]
|
|
if { $siz > 25} {
|
|
puts "Faulty OCC659"
|
|
} else {
|
|
puts " OCC659 OK"
|
|
}
|