mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-09 18:50:54 +03:00
b969ebe7cf
method BuildKPart was modified in order to create sphere instead of torus in case of major radius <= tolerance Minor corrections in test case bugs/modalg_6/bug27769
27 lines
634 B
Plaintext
27 lines
634 B
Plaintext
puts "========"
|
|
puts "OCC27769"
|
|
puts "========"
|
|
puts ""
|
|
#################################################
|
|
# BRepOffsetAPI_MakePipeShell produces a face
|
|
# based on degenerated toroidal surfaces
|
|
#################################################
|
|
|
|
restore [locate_data_file bug27769_W5_slot.brep] w
|
|
restore [locate_data_file bug27769_A4_slot.brep] e
|
|
|
|
wire p e
|
|
mksweep p
|
|
addsweep w
|
|
buildsweep r
|
|
explode r f
|
|
mksurface s1 r_1
|
|
set info [dump s1]
|
|
|
|
set check [regexp "SphericalSurface" $info]
|
|
|
|
if { ${check} == 1 } {
|
|
puts "OK: The basic surface is spherical surface."
|
|
} else {
|
|
puts "Faulty: The basic surface is not spherical surface."
|
|
} |