[occt.git] / tests / bugs / modalg / bug422_2


puts "========================"
puts " OCC422 "
puts "(case 2)"
puts "========================"
puts ""

plane ps 10 -3 0  1 0 0  0 .2 1
psphere ps ps 20
profile pf o 5 1 5 l 10 c 2 90 l 5 d -1 0 \
l 14 d 0 -1 l 5 c 2 90
prism pr pf 0 0 30
bfuse f ps pr
nexplode f f

depouille result f 0 0 1 f_4 4 0 0 30 0 0 1

set square 5719.09
set 2dviewer 0
Commit	Line	Data
f1aa2b62	1
	2	puts "========================"
	3	puts " OCC422 "
	4	puts "(case 2)"
	5	puts "========================"
	6	puts ""
	7
	8	plane ps 10 -3 0 1 0 0 0 .2 1
	9	psphere ps ps 20
	10	profile pf o 5 1 5 l 10 c 2 90 l 5 d -1 0 \
	11	l 14 d 0 -1 l 5 c 2 90
	12	prism pr pf 0 0 30
	13	bfuse f ps pr
	14	nexplode f f
	15
	16	depouille result f 0 0 1 f_4 4 0 0 30 0 0 1
	17
	18	set square 5719.09
	19	set 2dviewer 0