mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
1a0339b464
1. The class Bnd_OBB has been created to describe the Oriented Bounding Box. 2. Several key methods have been implemented: Bnd_OBB::IsOut(...), Bnd_OBB::Add(...) and Bnd_OBB::Enlarge(...). 3. Interface of Bnd_Box class has changed. New methods have been created. See Bnd_Box.hxx for detailed information. 4. BRepBndLib and Draw_Box classes have been amended in order to provide correct work with Bnd_OBB class. 5. Interface of "bounding" DRAW-command has been changed. Please see help for detailed information. 6. New DRAW-command "isbbinterf" has been created. Please see help for detailed information. 7. "boundingstr" and "optbounding" DRAW-commands have been eliminated because their function can be made by "bounding" DRAW-command (e.g. see tests/bugs/vis/buc60857 or samples/tcl/snowflake.tcl test cases). 8. Documentation has been updated.
38 lines
870 B
Plaintext
Executable File
38 lines
870 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 -s a1 -save x1_a1 yy zz x2_a1 yy zz ]
|
|
set size2 [ bounding -s 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"
|
|
}
|