[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 BinXCAF
# 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

checkprops result -l 18.99 
checkshape result 
checksection result

checknbshapes result -vertex 4 -edge 2 -wire 0 -face 0 -shell 0 -solid 0 -compsolid 0 -compound 1 -shape 7
checkmaxtol result -ref 9.9999999999999995e-008
checknbshapes result -shell 0
checkfreebounds result 0
checkview -display result -3d -path ${imagedir}/${test_image}.png
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
e837410d	14	# NewDocument D BinXCAF
809eca9d	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
58cf74e0	27	checkprops result -l 18.99
	28	checkshape result
	29	checksection result
809eca9d	30
a4eba920	31	checknbshapes result -vertex 4 -edge 2 -wire 0 -face 0 -shell 0 -solid 0 -compsolid 0 -compound 1 -shape 7
fb60057d	32	checkmaxtol result -ref 9.9999999999999995e-008
5ae01c85	33	checknbshapes result -shell 0
5ae01c85	34	checkfreebounds result 0
5747059b	35	checkview -display result -3d -path ${imagedir}/${test_image}.png