mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
52ba6031e8
1. Eliminated exception after conversion non-rational B-spline to rational 2. Implemented DRAW command setweight to change weights of B-spline 3. Test cases were added
31 lines
680 B
Plaintext
31 lines
680 B
Plaintext
puts "================"
|
|
puts "OCC25706"
|
|
puts "================"
|
|
puts ""
|
|
#######################################################################
|
|
# Exception in conversion B-spline to rational
|
|
#######################################################################
|
|
|
|
bsplinesurf s \
|
|
2 2 0 3 1 3 \
|
|
2 2 0 3 1 3 \
|
|
0.0 0.0 0.0 1 0.5 0.0 0.0 1 1.0 0.0 0.0 1 \
|
|
0.0 0.5 0.0 1 0.5 0.5 1.0 1 1.0 0.5 0.0 1 \
|
|
0.0 1.0 0.0 1 0.5 1.0 0.0 1 1.0 1.0 0.0 1
|
|
mkface f1 s
|
|
|
|
dump s
|
|
|
|
setweight s 2 2 0.5
|
|
|
|
set info [dump s]
|
|
if { [regexp {rational} ${info}] } {
|
|
puts "OK : B-spline is rational"
|
|
} else {
|
|
puts "Error : B-spline is non-rational"
|
|
}
|
|
|
|
mkface result s
|
|
|
|
set 2dviewer 1
|