1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-05 18:16:23 +03:00
occt/tests/bugs/modalg_5/bug25398
ski 5ae01c8551 0023150: Command sewing produce incorrect results on test grid csw.
Test for sewing command were updated to check reference information.

Commands for testing were moved to the file src/DrawResources/CheckCommands.tcl

Documentation overview was updated.
2015-04-16 14:14:28 +03:00

27 lines
683 B
Plaintext

puts "========"
puts "OCC25398"
puts "========"
puts ""
######################################################
# Provide shape proximity detector
######################################################
psphere s 10
tclean s
incmesh s 0.001
pcone c 5 20 30
tclean c
incmesh c 0.001
proximity s c -tol 0.01 -profile
checknbshapes s_overlapped -vertex 2 -edge 3 -wire 1 -face 1 -shell 0 -solid 0 -compsolid 0 -compound 1 -shape 8 -t -m "Overlapped part of shere"
checknbshapes c_overlapped -vertex 2 -edge 3 -wire 1 -face 1 -shell 0 -solid 0 -compsolid 0 -compound 1 -shape 8 -t -m "Overlapped part of shere"
vinit
vdisplay s_overlapped
vdisplay c_overlapped
vfit
set only_screen 1