mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
56 lines
1.2 KiB
Plaintext
56 lines
1.2 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
|
|
|
|
set bndbox [bounding result]
|
|
set xMin [lindex $bndbox 0]
|
|
set yMin [lindex $bndbox 1]
|
|
set zMin [lindex $bndbox 2]
|
|
set xMax [lindex $bndbox 3]
|
|
set yMax [lindex $bndbox 4]
|
|
set zMax [lindex $bndbox 5]
|
|
|
|
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 < $xMin || $x > $xMax || $y < $yMin || $y > $yMax || $z < $zMin || $z > $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
|