0e94a94e |
1 | |
2 | puts "========================" |
3 | puts " OCC415 " |
4 | puts "PRO5557" |
5 | puts "========================" |
6 | puts "" |
7 | |
8 | restore [locate_data_file pro5557_revol.brep] revol1 |
352ffd73 |
9 | checkshape revol1 |
0e94a94e |
10 | restore [locate_data_file pro5557_bsurf.brep] bsurf2 |
352ffd73 |
11 | checkshape bsurf2 |
0e94a94e |
12 | |
13 | zoom 660 |
14 | normals bsurf2 0.27 |
15 | point pnt1 0 -0.3 0 |
16 | halfspace space2 bsurf2 0 -0.3 0 |
17 | |
18 | bcut result revol1 space2 |
19 | |
20 | set testinfos(info) \ |
21 | "pro5557 : cut a cylinder by an infinite surface extrusion" |
22 | set testinfos(infoX) -0.2 |
23 | set testinfos(infoY) -0.2 |
24 | set testinfos(infoZ) -0.34 |
25 | set testinfos(infoZ2) -0.3 |
26 | |
27 | checkshape -top result |
28 | |
29 | set square 0.402138 |
30 | set 2dviewer 0 |
31 | |
32 | |