mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-05-17 23:53:20 +08:00
27 lines
491 B
Plaintext
27 lines
491 B
Plaintext
puts "============"
|
|
puts "OCC1477"
|
|
puts "============"
|
|
puts ""
|
|
######################################################
|
|
# Problems in MakePipeShell
|
|
# (case 7)
|
|
######################################################
|
|
|
|
restore [locate_data_file OCC1477-1.brep] s1
|
|
restore [locate_data_file OCC1477-2.brep] s2
|
|
|
|
checkshape s1
|
|
checkshape s2
|
|
|
|
mksweep s1
|
|
|
|
addsweep s2 0 1 1 2 2 .5
|
|
|
|
if { [catch {buildsweep result} catch_result] } {
|
|
puts "Faulty OCC1477"
|
|
}
|
|
|
|
set square 1.49907e+06
|
|
set 3dviewer 1
|
|
|