809eca9d |
1 | puts "================" |
2 | puts "OCC22770" |
3 | puts "================" |
4 | puts "" |
5 | ####################################################################################### |
4551e1be |
6 | # Improve command sewing in DRAW |
809eca9d |
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 3 -edge 2 -wire 0 -face 0 -shell 0 -solid 0 -compsolid 0 -compound 1 -shape 6 |
fb60057d |
32 | checkmaxtol result -ref 0.0050001000000007819 |
5ae01c85 |
33 | checknbshapes result -shell 0 |
34 | checkfreebounds result 0 |
5747059b |
35 | checkview -display result -3d -path ${imagedir}/${test_image}.png |