[occt.git] / tests / bugs / modalg_6 / bug26315

puts "========"
puts "OCC26315"
puts "========"
puts ""
#######################################################
# BRepFeat_MakeRevol fails to create revol from shape
#######################################################

circle aCircle 0 0 0 0 0 1 1 0 0 10
mkedge anEdge aCircle
wire aWire anEdge
mkplane aCircle aWire 0

plane aFromPlane 0 0 -10 0 0 1 1 0 0
mkface aFromPlane aFromPlane
plane aToPlane 0 0 10 0 0 1 1 0 0
mkface aToPlane aToPlane

featrevol aCircle aCircle aCircle 20 0 0 0 1 0 2 1
featperform revol aResult aFromPlane aToPlane

checkshape aResult

vinit
vdisplay aResult
vsetdispmode aResult 1
vfit

checkview -screenshot -3d -path ${imagedir}/${test_image}.png
Commit	Line	Data
d7988ee1	1	puts "========"
	2	puts "OCC26315"
	3	puts "========"
	4	puts ""
	5	#######################################################
	6	# BRepFeat_MakeRevol fails to create revol from shape
	7	#######################################################
	8
	9	circle aCircle 0 0 0 0 0 1 1 0 0 10
	10	mkedge anEdge aCircle
	11	wire aWire anEdge
	12	mkplane aCircle aWire 0
	13
	14	plane aFromPlane 0 0 -10 0 0 1 1 0 0
	15	mkface aFromPlane aFromPlane
	16	plane aToPlane 0 0 10 0 0 1 1 0 0
	17	mkface aToPlane aToPlane
	18
	19	featrevol aCircle aCircle aCircle 20 0 0 0 1 0 2 1
	20	featperform revol aResult aFromPlane aToPlane
	21
	22	checkshape aResult
	23
	24	vinit
	25	vdisplay aResult
	26	vsetdispmode aResult 1
	27	vfit
	28
5747059b	29	checkview -screenshot -3d -path ${imagedir}/${test_image}.png