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

puts "========"
puts "OCC26305"
puts "========"
puts ""
###################################################
# BRepFeat_MakePrism returns inconsistent results
###################################################

circle aCircle -10 -10 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

featprism aCircle aCircle aCircle 0 0 1 2 1
featperform prism aResult aFromPlane aToPlane

checkshape aResult

vinit
vdisplay aResult
vsetdispmode aResult 1
vfit

set bug_info [vreadpixel 300 340 name]
if {$bug_info == "BLACK 0"} {
  puts "ERROR: OCC26305 is reproduced. Prism is incorrect."
}

checkview -screenshot -3d -path ${imagedir}/${test_image}.png
Commit	Line	Data
d7988ee1	1	puts "========"
	2	puts "OCC26305"
	3	puts "========"
	4	puts ""
	5	###################################################
	6	# BRepFeat_MakePrism returns inconsistent results
	7	###################################################
	8
	9	circle aCircle -10 -10 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	featprism aCircle aCircle aCircle 0 0 1 2 1
	20	featperform prism aResult aFromPlane aToPlane
	21
	22	checkshape aResult
	23
	24	vinit
	25	vdisplay aResult
	26	vsetdispmode aResult 1
	27	vfit
	28
	29	set bug_info [vreadpixel 300 340 name]
	30	if {$bug_info == "BLACK 0"} {
	31	puts "ERROR: OCC26305 is reproduced. Prism is incorrect."
	32	}
	33
5747059b	34	checkview -screenshot -3d -path ${imagedir}/${test_image}.png