mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
873c119ff1
Updated test-cases from branch CR24255_3 0024255: Regressions in test cases on OCCT vc9 win64 Release Small refactoring. Fix for CASE bugs modalg_5 bug25298_09: FAILED (error) Test-cases correction (bugs modalg_5 bugs25804_1, bug25704_2)
33 lines
819 B
Plaintext
Executable File
33 lines
819 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
|
|
circle profile 0 8 0 1 0 1 0.2
|
|
mkedge profile profile
|
|
wire profile profile
|
|
mkplane profile profile
|
|
pipe p spine profile
|
|
explode p f
|
|
mksurface ss1 p_1
|
|
mksurface ss2 p_2
|
|
mksurface ss3 p_3
|
|
offset o1 ss1 -0.1
|
|
offset o2 ss2 -0.1
|
|
offset o3 ss3 -0.1
|
|
|
|
mkface res o2
|
|
set info [sprops res]
|
|
regexp {Mass +: +([-0-9.+eE]+)} $info full sq
|
|
set sq_check 9.00819
|
|
|
|
if { [expr 1.*abs($sq_check - $sq)/$sq_check] > 0.01 } {
|
|
puts "Error : The square of result shape is $sq"
|
|
}
|