mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-08-09 13:22:24 +03:00
d33a8cde96
Walking line method extraction into separate class IntTools_WLineTool. New purging method of walking line had been added. Now point which are out of bounds are deleted. Minor corrections. Test case for issue CR26775
52 lines
793 B
Plaintext
Executable File
52 lines
793 B
Plaintext
Executable File
puts "=========="
|
|
puts "BUC60532"
|
|
puts "=========="
|
|
|
|
restore [locate_data_file buc60532a.brep] p
|
|
checkshape p
|
|
|
|
restore [locate_data_file buc60532b.brep] t1
|
|
checkshape t1
|
|
|
|
restore [locate_data_file buc60532c.brep] t2
|
|
checkshape t2
|
|
|
|
# create halfspace
|
|
#vertex v 20 20 0
|
|
halfspace h1 t1 20 20 0
|
|
halfspace h2 t2 20 20 0
|
|
|
|
# first cut
|
|
bcut res1 p h1
|
|
|
|
explode res1 e
|
|
mkcurve cu11 res1_1
|
|
mkcurve cu12 res1_2
|
|
mkcurve cu13 res1_3
|
|
mkcurve cu14 res1_4
|
|
mkcurve cu15 res1_5
|
|
|
|
checkshape res1
|
|
puts [computetolerance res1]
|
|
|
|
# second cut
|
|
bcut res2 res1 h2
|
|
tcopy res2 res
|
|
checkshape res2
|
|
|
|
explode res2 e
|
|
mkcurve cu21 res2_1
|
|
mkcurve cu22 res2_2
|
|
mkcurve cu23 res2_3
|
|
mkcurve cu24 res2_4
|
|
mkcurve cu25 res2_5
|
|
|
|
explode res2 face
|
|
|
|
puts [computetolerance res2]
|
|
|
|
renamevar res2 result
|
|
|
|
set square 78.7016
|
|
set 2dviewer 0
|