e2ca538a |
1 | puts "========" |
2 | puts "OCC27110" |
3 | puts "========" |
4 | puts "" |
5 | ############################################################################### |
6 | # Regression: Draw command "parameters" can not compute parameter on the line |
7 | ############################################################################### |
8 | |
9 | restore [locate_data_file bug27110-ClosedWireEdge.brep] e1 |
10 | mkcurve c1 e1 |
11 | parameters c1 800.0 0.001 0 0.001 U |
12 | |
13 | set bug_info [dump U] |
14 | set bug_info [string trim [string range $bug_info [expr {[string last "\n" $bug_info] + 1}] [expr {[string length $bug_info] - 1}]]] |
15 | if {$bug_info != 800} { |
16 | puts "ERROR: OCC27110 is reproduced. Parameters U is not equal 800." |
17 | } |