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