mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +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.
50 lines
1.1 KiB
Plaintext
50 lines
1.1 KiB
Plaintext
puts "============"
|
|
puts "OCC27537"
|
|
puts "============"
|
|
puts ""
|
|
######################################################
|
|
# Incorrect number of sample points provided by GCPnts_TangentialDeflection
|
|
######################################################
|
|
|
|
restore [locate_data_file bug27537.brep] result
|
|
incmesh result 0.2
|
|
|
|
bounding -s result -save xMin yMin zMin xMax yMax zMax -dump
|
|
|
|
mkcurve c result
|
|
bounds c u1 u2
|
|
set first [dval u1]
|
|
set last [dval u2]
|
|
|
|
set x 0.
|
|
set y 0.
|
|
set z 0.
|
|
set param 0.
|
|
set isOk true
|
|
|
|
set nbSamples 100
|
|
set step [expr ($last - $first)/$nbSamples]
|
|
for {set i 0} {$i <= $nbSamples} {incr i} {
|
|
if {$i < $nbSamples} {
|
|
set param [expr $first + $i * $step]
|
|
} else {
|
|
set param $last
|
|
}
|
|
|
|
cvalue c $param cx cy cz
|
|
set x [dval cx]
|
|
set y [dval cy]
|
|
set z [dval cz]
|
|
if {$x < [dval xMin] || $x > [dval xMax] || $y < [dval yMin] || $y > [dval yMax] || $z < [dval zMin] || $z > [dval zMax] } {
|
|
puts "ERROR: point ($x; $y; $z) is out of bounding box"
|
|
set isOk false
|
|
}
|
|
}
|
|
|
|
if {$isOk} {
|
|
puts "OK: all sample points inside bounding box"
|
|
}
|
|
|
|
top; fit
|
|
checkview -screenshot -2d -path ${imagedir}/${test_image}.png
|