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

puts "========"
puts "CR24817"
puts "========"
puts ""
#########################################
## Can not sew two circular faces in non-manifold mode
#########################################

# Create first face
circle c 0 1 0 1
trim c c 0.5*pi 1.5*pi
mkedge e1 c
line l 0 0 0 0 1 0
trim l l 0 2
mkedge e2 l
wire w e1 e2
mkplane plane1 w

# Create second face
circle c 0 1 0 1
trim c c 1.5*pi 2.5*pi
mkedge e1 c
line l 0 0 0 0 1 0
trim l l 0 2
mkedge e2 l
wire w e1 e2
mkplane plane2 w

# Create third face
circle c 0 1 0 1 0 0 1
trim c c 1.5*pi 2.5*pi
mkedge e1 c
line l 0 0 0 0 1 0
trim l l 0 2
mkedge e2 l
wire w e1 e2
mkplane plane3 w

# Sew faces
sewing sr1 plane1 plane2 +n
sewing sr2 plane1 plane2 plane3 +n

#
checknbshapes sr1 -vertex 2 -edge 3 -wire 2 -face 2 -shell 1 -solid 0 -compsolid 0 -compound 0 -shape 10

checkprops sr1 -s 3.14159
clear
smallview
donly sr1
fit
xwd $imagedir/${test_image}_1.png

#
checknbshapes sr2 -vertex 2 -edge 4 -wire 3 -face 3 -shell 1 -solid 0 -compsolid 0 -compound 0 -shape 13

checkprops sr2 -s 4.71239
donly sr2
fit
xwd $imagedir/${test_image}_2.png

checkmaxtol sr1 -ref 1.0000000015308085e-007
checkfreebounds sr1 2

checkmaxtol sr2 -ref 1.0000000015308085e-007
checkfreebounds sr2 0
Commit	Line	Data
5b14f800	1	puts "========"
	2	puts "CR24817"
	3	puts "========"
	4	puts ""
	5	#########################################
	6	## Can not sew two circular faces in non-manifold mode
	7	#########################################
	8
	9	# Create first face
	10	circle c 0 1 0 1
	11	trim c c 0.5pi 1.5pi
	12	mkedge e1 c
	13	line l 0 0 0 0 1 0
	14	trim l l 0 2
	15	mkedge e2 l
	16	wire w e1 e2
	17	mkplane plane1 w
	18
	19	# Create second face
	20	circle c 0 1 0 1
	21	trim c c 1.5pi 2.5pi
	22	mkedge e1 c
	23	line l 0 0 0 0 1 0
	24	trim l l 0 2
	25	mkedge e2 l
	26	wire w e1 e2
	27	mkplane plane2 w
	28
	29	# Create third face
	30	circle c 0 1 0 1 0 0 1
	31	trim c c 1.5pi 2.5pi
	32	mkedge e1 c
	33	line l 0 0 0 0 1 0
	34	trim l l 0 2
	35	mkedge e2 l
	36	wire w e1 e2
	37	mkplane plane3 w
	38
	39	# Sew faces
	40	sewing sr1 plane1 plane2 +n
	41	sewing sr2 plane1 plane2 plane3 +n
	42
	43	#
a4eba920	44	checknbshapes sr1 -vertex 2 -edge 3 -wire 2 -face 2 -shell 1 -solid 0 -compsolid 0 -compound 0 -shape 10
5b14f800	45
58cf74e0	46	checkprops sr1 -s 3.14159
5b14f800	47	clear
	48	smallview
	49	donly sr1
	50	fit
	51	xwd $imagedir/${test_image}_1.png
	52
	53	#
a4eba920	54	checknbshapes sr2 -vertex 2 -edge 4 -wire 3 -face 3 -shell 1 -solid 0 -compsolid 0 -compound 0 -shape 13
5b14f800	55
58cf74e0	56	checkprops sr2 -s 4.71239
5b14f800	57	donly sr2
	58	fit
	59	xwd $imagedir/${test_image}_2.png
5ae01c85	60
fb60057d	61	checkmaxtol sr1 -ref 1.0000000015308085e-007
5ae01c85	62	checkfreebounds sr1 2
5ae01c85	63
fb60057d	64	checkmaxtol sr2 -ref 1.0000000015308085e-007
5ae01c85	65	checkfreebounds sr2 0