[occt.git] / tests / bugs / modalg_2 / bug23162_5

puts "================"
puts "OCC23162"
puts "================"
puts ""
##############################################################################
# BRepOffsetAPI_MakePipeShell works wrong
##############################################################################

set BugNumber OCC23162

catch {pload XDE}

set status 0

set radius 0.01
puts "------------- Radius $radius"
# make a ring quarter
vertex v1 [expr $radius / 2] 0 0
vertex v2 $radius 0 0
edge e v1 v2
revol rq e  0 0 0  0 0 1 45

# make rq scaled and translated
scaleshape rq2 rq 0.2
ttranslate rq2 0 0 $radius

# get wires of rq
explode rq W
explode rq2 W

# make a spine
vertex v1 0 0 0
vertex v2 0 0 $radius
edge e v1 v2
wire spine e

# make a pipe
mksweep spine
addsweep rq_1 v1
addsweep rq2_1 v2
buildsweep result

# BUG: a pipe is invalid
checkshape result -short

checkprops result -s 0.000145725 
checkview -display result -3d -path ${imagedir}/${test_image}.png
Commit	Line	Data
809eca9d	1	puts "================"
	2	puts "OCC23162"
	3	puts "================"
	4	puts ""
	5	##############################################################################
	6	# BRepOffsetAPI_MakePipeShell works wrong
	7	##############################################################################
	8
	9	set BugNumber OCC23162
	10
	11	catch {pload XDE}
	12
	13	set status 0
	14
	15	set radius 0.01
	16	puts "------------- Radius $radius"
	17	# make a ring quarter
	18	vertex v1 [expr $radius / 2] 0 0
	19	vertex v2 $radius 0 0
	20	edge e v1 v2
	21	revol rq e 0 0 0 0 0 1 45
	22
	23	# make rq scaled and translated
	24	scaleshape rq2 rq 0.2
	25	ttranslate rq2 0 0 $radius
	26
	27	# get wires of rq
	28	explode rq W
	29	explode rq2 W
	30
	31	# make a spine
	32	vertex v1 0 0 0
	33	vertex v2 0 0 $radius
	34	edge e v1 v2
	35	wire spine e
	36
	37	# make a pipe
	38	mksweep spine
	39	addsweep rq_1 v1
	40	addsweep rq2_1 v2
	41	buildsweep result
	42
	43	# BUG: a pipe is invalid
	44	checkshape result -short
	45
58cf74e0	46	checkprops result -s 0.000145725
5747059b	47	checkview -display result -3d -path ${imagedir}/${test_image}.png