0025706: SIGSEGV after making existing BSplineCurve rational
[occt.git] / tests / bugs / moddata_3 / bug25706_1
1 puts "================"
2 puts "OCC25706"
3 puts "================"
4 puts ""
5 #######################################################################
6 # Exception in conversion B-spline to rational
7 #######################################################################
8
9 bsplinecurve bc 2 2  0.0 3  1.0 3  0 0 0 1.0  0.5 1 0 1.0  1 0 0 1.0
10 mkedge e1 bc
11
12 dump bc
13
14 setweight bc 2 0.5
15
16 set info [dump bc]
17 if { [regexp {rational} ${info}] } {
18     puts "OK : B-spline is rational"
19 } else {
20     puts "Error : B-spline is non-rational"
21 }
22
23 mkedge result bc
24
25 set 2dviewer 1