mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-05 18:16:23 +03:00
c8ea5b8e3f
Added test case bugs/modalg_5/bug24204 Modified following test cases: bugs modalg_3 bug605 - case with bad input data, command "settolerance w1 1.e-7" was added; bugs modalg_4 bug629 - wrong case, now the algorithm can not build pipes on such profiles, test case was removed; bugs modalg_4 bug13595_1, bug13595_1 - number of subshapes was has changed; bugs modalg_5 bug23706_2 - square of resulting face was changed; bugs modalg_5 bug23870_1, bug23870_2, bug23870_3, bug23870_4, bug23870_5 - the number of subshapes was changed.
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 248.667
|
|
|
|
if { [expr 1.*abs($sq_check - $sq)/$sq_check] > 0.01 } {
|
|
puts "Error : The square of result shape is $sq"
|
|
}
|