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


puts "========================"
puts " OCC422 "
puts "(case 1)"
puts "========================"
puts ""

plane p 0 0 0 0 0 1 -1 0 0
psphere p p 20 0 90
#profile pf o -4 -4 1 l 8 d 0 1 l 8 d -1 0 l 8
profile pf o -4 -4 1 l 8 c 2 90 l 8 d -1 0 l 8
prism p2 pf 0 0 40
bfuse f p p2
nexplode f f

depouille result f 0 0 1 f_7 5 0 0 40 0 0 1

checkprops result -s 4630.78 
checkshape result
checkview -display result -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
f1aa2b62	1
	2	puts "========================"
	3	puts " OCC422 "
	4	puts "(case 1)"
	5	puts "========================"
	6	puts ""
	7
	8	plane p 0 0 0 0 0 1 -1 0 0
	9	psphere p p 20 0 90
	10	#profile pf o -4 -4 1 l 8 d 0 1 l 8 d -1 0 l 8
	11	profile pf o -4 -4 1 l 8 c 2 90 l 8 d -1 0 l 8
	12	prism p2 pf 0 0 40
	13	bfuse f p p2
	14	nexplode f f
	15
	16	depouille result f 0 0 1 f_7 5 0 0 40 0 0 1
	17
58cf74e0	18	checkprops result -s 4630.78
58cf74e0	19	checkshape result
5747059b	20	checkview -display result -2d -path ${imagedir}/${test_image}.png