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.
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 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
|