[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

checkprops res -s 9.00819
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
873c119f	21	offset o1 ss1 -0.1
	22	offset o2 ss2 -0.1
	23	offset o3 ss3 -0.1
32ca7a51	24
32ca7a51	25	mkface res o2
32ca7a51	26
58cf74e0	27	checkprops res -s 9.00819