Integration part of tests of grid chl
[occt.git] / tests / bugs / modalg / bug60532_2
1 #INTERFACE IGES
2 puts "=========="
3 puts "BUC60532"
4 puts "=========="
5
6 restore [locate_data_file buc60532a.brep] p 
7 puts [checkshape p]
8
9 restore [locate_data_file buc60532b.brep] t1
10 puts [checkshape t1]
11
12 restore [locate_data_file buc60532c.brep] t2
13 puts [checkshape t2]
14
15 # create halfspace
16 #vertex v 20 20 0
17 halfspace h1 t1 20 20 0
18 halfspace h2 t2 20 20 0
19
20 # first cut
21 bcut res1 p h1
22
23 explode res1 e
24 mkcurve cu11 res1_1
25 mkcurve cu12 res1_2
26 mkcurve cu13 res1_3
27 mkcurve cu14 res1_4
28 mkcurve cu15 res1_5
29
30 puts [checkshape res1]
31 puts [computetolerance res1]
32
33 # second cut
34 bcut res2 res1 h2
35 tcopy res2 res
36 puts [checkshape res2]
37
38 explode res2 e
39 mkcurve cu21 res2_1
40 mkcurve cu22 res2_2
41 mkcurve cu23 res2_3
42 mkcurve cu24 res2_4
43 mkcurve cu25 res2_5
44
45 explode res2 face
46
47 puts [computetolerance res2]
48
49 renamevar res2 result
50
51 set square 78.8705
52 set 2dviewer 0
53