Integration part of tests of grid chl
[occt.git] / tests / bugs / modalg / bug415
1
2 puts "========================"
3 puts " OCC415 "
4 puts "PRO5557"
5 puts "========================"
6 puts ""
7
8 restore [locate_data_file pro5557_revol.brep] revol1 
9 puts [checkshape revol1]
10 restore [locate_data_file pro5557_bsurf.brep] bsurf2
11 puts [checkshape bsurf2]
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