mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
40 lines
729 B
Plaintext
40 lines
729 B
Plaintext
puts "========"
|
|
puts "OCC25989"
|
|
puts "========"
|
|
puts ""
|
|
################################################
|
|
# toridial surface gets damaged in STEP export
|
|
################################################
|
|
|
|
set StepFileName ${imagedir}/${casename}_fusion-step1-out.step
|
|
|
|
catch {exec rm ${StepFileName}}
|
|
|
|
box Box 10 10 10
|
|
pcylinder Cylinder 2 10
|
|
psphere Sphere 5
|
|
ptorus Torus 10 2
|
|
|
|
bclearobjects
|
|
bcleartools
|
|
baddobjects Box
|
|
baddtools Cylinder Sphere Torus
|
|
bfillds
|
|
bbop Fusion 1
|
|
|
|
checkshape Fusion
|
|
bopcheck Fusion
|
|
|
|
set FusionVolume [lindex [string trim [vprops Fusion]] 2]
|
|
|
|
stepwrite m Fusion
|
|
writeall $StepFileName
|
|
|
|
stepread $StepFileName a *
|
|
renamevar a_1 result
|
|
|
|
checkshape result
|
|
bopcheck result
|
|
|
|
checkprops result -v $FusionVolume
|