fd03c080 |
1 | puts "========" |
2 | puts "OCC26308" |
3 | puts "========" |
4 | puts "" |
5 | ################################################### |
6 | # Segmentation fault in BSplCLib::LocateParameter |
7 | ################################################### |
8 | |
9 | #Exception is thrown when computing a value of B-spline |
10 | #surfaces in point, which is outside of its domain. |
11 | |
12 | pload XDE |
13 | |
14 | ReadStep D_First [locate_data_file OCC26308-Face.stp] |
15 | XGetOneShape rr D_First |
16 | explode rr f |
17 | mksurface ss rr_1 |
18 | |
19 | svalue ss -1.427997381773311e+018 4.512451574816904e+016 xx yy zz |
20 | |
21 | set bug_info_x [dump xx] |
22 | set bug_info_y [dump yy] |
23 | set bug_info_z [dump zz] |
24 | |
25 | set bug_info_x [string trim [string range $bug_info_x [expr {[string last "\n" $bug_info_x] + 1}] [expr {[string length $bug_info_x] - 1}]]] |
26 | set bug_info_y [string trim [string range $bug_info_y [expr {[string last "\n" $bug_info_y] + 1}] [expr {[string length $bug_info_y] - 1}]]] |
27 | set bug_info_z [string trim [string range $bug_info_z [expr {[string last "\n" $bug_info_z] + 1}] [expr {[string length $bug_info_z] - 1}]]] |
28 | |
29 | if {$bug_info_x != -5.42659125962715e+207} { |
30 | puts "ERROR: OCC26308 is reproduced. X value is incorrect." |
31 | } |
32 | |
33 | if {$bug_info_y != 2.90803974424011e+209} { |
34 | puts "ERROR: OCC26308 is reproduced. Y value is incorrect." |
35 | } |
36 | |
37 | if {$bug_info_z != -3.1731154470359e+207} { |
38 | puts "ERROR: OCC26308 is reproduced. Z value is incorrect." |
39 | } |