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

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"
}
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	mksweep spine
	13	addsweep spine -R
	14	buildsweep spine -R
	15	explode spine f
	16	mksurface ss spine_1
	17	offset o1 ss 2
	18
	19	mkface res o1
	20	set info [sprops res]
	21	regexp {Mass +: +([-0-9.+eE]+)} $info full sq
c8ea5b8e	22	set sq_check 248.667
32ca7a51	23
	24	if { [expr 1.*abs($sq_check - $sq)/$sq_check] > 0.01 } {
	25	puts "Error : The square of result shape is $sq"
	26	}