1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
puts "================"
puts "OCC25706"
puts "================"
puts ""
#######################################################################
# Exception in conversion B-spline to rational
#######################################################################
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
mkedge e1 bc
dump bc
setweight bc 2 0.5
set info [dump bc]
if { [regexp {rational} ${info}] } {
puts "OK : B-spline is rational"
} else {
puts "Error : B-spline is non-rational"
}
mkedge result bc
set 2dviewer 1
|
