b819ae67 |
1 | puts "============" |
2 | puts "OCC27537" |
3 | puts "============" |
4 | puts "" |
5 | ###################################################### |
6 | # Incorrect number of sample points provided by GCPnts_TangentialDeflection |
7 | ###################################################### |
8 | |
9 | restore [locate_data_file bug27537.brep] result |
10 | incmesh result 0.2 |
11 | |
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] |
19 | |
20 | mkcurve c result |
21 | bounds c u1 u2 |
22 | set first [dval u1] |
23 | set last [dval u2] |
24 | |
25 | set x 0. |
26 | set y 0. |
27 | set z 0. |
28 | set param 0. |
29 | set isOk true |
30 | |
31 | set nbSamples 100 |
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] |
36 | } else { |
37 | set param $last |
38 | } |
39 | |
40 | cvalue c $param cx cy cz |
41 | set x [dval cx] |
42 | set y [dval cy] |
43 | set z [dval 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" |
46 | set isOk false |
47 | } |
48 | } |
49 | |
50 | if {$isOk} { |
51 | puts "OK: all sample points inside bounding box" |
52 | } |
53 | |
54 | top; fit |
55 | checkview -screenshot -2d -path ${imagedir}/${test_image}.png |