b969ebe7 |
1 | puts "========" |
2 | puts "OCC27769" |
3 | puts "========" |
4 | puts "" |
5 | ################################################# |
6 | # BRepOffsetAPI_MakePipeShell produces a face |
7 | # based on degenerated toroidal surfaces |
8 | ################################################# |
9 | |
10 | restore [locate_data_file bug27769_W5_slot.brep] w |
11 | restore [locate_data_file bug27769_A4_slot.brep] e |
12 | |
13 | wire p e |
14 | mksweep p |
15 | addsweep w |
16 | buildsweep r |
17 | explode r f |
18 | mksurface s1 r_1 |
19 | set info [dump s1] |
20 | |
21 | set check [regexp "SphericalSurface" $info] |
22 | |
23 | if { ${check} == 1 } { |
24 | puts "OK: The basic surface is spherical surface." |
25 | } else { |
26 | puts "Faulty: The basic surface is not spherical surface." |
27 | } |