[occt.git] / tests / bugs / modalg_5 / bug22027

puts "========="
puts "OCC22027"
puts "========="
puts ""
###########################################################
# Bop command between two faces raises exception
###########################################################

circle c 0 0 0 25
ellipse e 0 0 0 25 10
mkedge c c
mkedge e e
wire w1 c
wire w2 e
mkplane f1 w1
mkplane f2 w2
bop f1 f2
bopcut result

set square 1178.1
set nb_v_good 2
set nb_e_good 4
set nb_w_good 2
set nb_f_good 2

set 2dviewer 0
Commit	Line	Data
1e6b1940	1	puts "========="
	2	puts "OCC22027"
	3	puts "========="
	4	puts ""
	5	###########################################################
	6	# Bop command between two faces raises exception
	7	###########################################################
	8
	9	circle c 0 0 0 25
	10	ellipse e 0 0 0 25 10
	11	mkedge c c
	12	mkedge e e
	13	wire w1 c
	14	wire w2 e
	15	mkplane f1 w1
	16	mkplane f2 w2
	17	bop f1 f2
	18	bopcut result
	19
	20	set square 1178.1
	21	set nb_v_good 2
	22	set nb_e_good 4
	23	set nb_w_good 2
	24	set nb_f_good 2
	25
	26	set 2dviewer 0
	27
	28