5 ######################################################
6 # Incorrect number of sample points provided by GCPnts_TangentialDeflection
7 ######################################################
9 restore [locate_data_file bug27537.brep] result
12 set bndbox [bounding result]
13 set xMin [lindex $bndbox 0]
14 set yMin [lindex $bndbox 1]
15 set zMin [lindex $bndbox 2]
16 set xMax [lindex $bndbox 3]
17 set yMax [lindex $bndbox 4]
18 set zMax [lindex $bndbox 5]
32 set step [expr ($last - $first)/$nbSamples]
33 for {set i 0} {$i <= $nbSamples} {incr i} {
34 if {$i < $nbSamples} {
35 set param [expr $first + $i * $step]
40 cvalue c $param cx cy cz
44 if {$x < $xMin || $x > $xMax || $y < $yMin || $y > $yMax || $z < $zMin || $z > $zMax} {
45 puts "ERROR: point ($x; $y; $z) is out of bounding box"
51 puts "OK: all sample points inside bounding box"
55 checkview -screenshot -2d -path ${imagedir}/${test_image}.png