mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
27 lines
680 B
Plaintext
Executable File
27 lines
680 B
Plaintext
Executable File
puts "============"
|
|
puts "OCC23706"
|
|
puts "============"
|
|
puts ""
|
|
#########################################################################
|
|
# Cannot project point on curve
|
|
#########################################################################
|
|
|
|
bsplinecurve r2 4 3 1 5 2 1 3 5 0 8 0 1 2 8 2 1 4 8 3 1 4 8 3 1 6 8 4 1 10 8 10 1
|
|
mkedge spine r2
|
|
wire spine spine
|
|
mksweep spine
|
|
addsweep spine -R
|
|
buildsweep spine -R
|
|
explode spine f
|
|
mksurface ss spine_1
|
|
offset o1 ss 2
|
|
|
|
mkface res o1
|
|
set info [sprops res]
|
|
regexp {Mass +: +([-0-9.+eE]+)} $info full sq
|
|
set sq_check 240.865
|
|
|
|
if { [expr 1.*abs($sq_check - $sq)/$sq_check] > 0.01 } {
|
|
puts "Error : The square of result shape is $sq"
|
|
}
|