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

puts "================"
puts "OCC22770"
puts "================"
puts ""
#######################################################################################
# Improve comman sewing in DRAW
######################################################################################

set BugNumber OCC22770

catch { pload XDE }

# Create a new document and set UndoLimit
# NewDocument D MDTV-XCAF
# UndoLimit D 100
# Open a transaction
# NewCommand D

vertex a 1 0 0
vertex b 10 0 0
edge e1 a b
vertex c 10.01 0 0
vertex d 20 0 0
edge e2 c d
sewing result +t 0.1 e1 e2 -e

set length 18.99

set nb_v_good 4
set nb_e_good 2
set nb_w_good 0
set nb_f_good 0
set nb_sh_good 0
set nb_sol_good 0
set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 7

checkmaxtol result 0
checknbshapes result -shell 0
checkfreebounds result 0

set 3dviewer 0
Commit	Line	Data
809eca9d	1	puts "================"
	2	puts "OCC22770"
	3	puts "================"
	4	puts ""
	5	#######################################################################################
	6	# Improve comman sewing in DRAW
	7	######################################################################################
	8
	9	set BugNumber OCC22770
	10
	11	catch { pload XDE }
	12
	13	# Create a new document and set UndoLimit
	14	# NewDocument D MDTV-XCAF
	15	# UndoLimit D 100
	16	# Open a transaction
	17	# NewCommand D
	18
	19	vertex a 1 0 0
	20	vertex b 10 0 0
	21	edge e1 a b
	22	vertex c 10.01 0 0
	23	vertex d 20 0 0
	24	edge e2 c d
	25	sewing result +t 0.1 e1 e2 -e
	26
	27	set length 18.99
	28
	29	set nb_v_good 4
	30	set nb_e_good 2
	31	set nb_w_good 0
	32	set nb_f_good 0
	33	set nb_sh_good 0
	34	set nb_sol_good 0
	35	set nb_compsol_good 0
	36	set nb_compound_good 1
	37	set nb_shape_good 7
	38
5ae01c85	39	checkmaxtol result 0
	40	checknbshapes result -shell 0
	41	checkfreebounds result 0
	42
809eca9d	43	set 3dviewer 0