mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
27 lines
751 B
Plaintext
27 lines
751 B
Plaintext
puts "========"
|
|
puts "OCC24959"
|
|
puts "========"
|
|
puts ""
|
|
####################################################
|
|
## GCPnts_TangentialDeflection does not implement functionality by its meaning in case of BSpline with local splash
|
|
####################################################
|
|
|
|
bsplinesurf s 2 4 0.0 3 0.34 1 0.67 1 1.0 3 1 2 0.0 2 1.0 2 10 0 0 1 6 0 0 1 4 0 0 1 2 0 0 1 0 0 0 1 10 5 0 1 6 5 0 1 4 5 0 1 1.5 9 0 1 0 5 0 1
|
|
mkface result s
|
|
incmesh result 1
|
|
set tri_info [trinfo result]
|
|
regexp {deflection ([0-9.+e-]+)} $tri_info full defl
|
|
|
|
# check deflections
|
|
if { $defl > 1 } {
|
|
puts "Error: too big deflection on original face (${defl} > 1)"
|
|
} else {
|
|
puts "Deflection is OK (${defl})"
|
|
}
|
|
|
|
vdisplay result
|
|
vsetdispmode 1
|
|
vtop
|
|
vfit
|
|
set only_screen 1
|