[occt.git] / tests / bugs / modalg_5 / bug23706_1

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"
}
Commit	Line	Data
32ca7a51	1	puts "============"
	2	puts "OCC23706"
	3	puts "============"
	4	puts ""
	5	#########################################################################
	6	# Cannot project point on curve
	7	#########################################################################
	8
	9	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
	10	mkedge spine r2
	11	wire spine spine
	12	circle profile 0 8 0 1 0 1 0.2
	13	mkedge profile profile
	14	wire profile profile
	15	mkplane profile profile
	16	pipe p spine profile
	17	explode p f
	18	mksurface ss1 p_1
	19	mksurface ss2 p_2
	20	mksurface ss3 p_3
	21	offset o1 ss1 0.1
	22	offset o2 ss2 0.1
	23	offset o3 ss3 0.1
	24
	25	mkface res o2
	26	set info [sprops res]
	27	regexp {Mass +: +([-0-9.+eE]+)} $info full sq
	28	set sq_check 9.00819
	29
	30	if { [expr 1.*abs($sq_check - $sq)/$sq_check] > 0.01 } {
	31	puts "Error : The square of result shape is $sq"
	32	}