mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
33 lines
850 B
Plaintext
Executable File
33 lines
850 B
Plaintext
Executable File
puts "============"
|
|
puts "OCC1477"
|
|
puts "============"
|
|
puts ""
|
|
######################################################
|
|
# Problems in MakePipeShell
|
|
# (case 17)
|
|
# test4.tcl
|
|
######################################################
|
|
|
|
polyline s1 0 0 0 10 0 0 10 0 10 10 10 10 0 10 10 0 10 0 0 0 0
|
|
|
|
polyline s2 0 -2 -2 0 2 -2 0 2 2 0 -2 2 0 -2 -2
|
|
|
|
puts "###############################################################################"
|
|
puts "# (case /-CF/-/-R/)"
|
|
puts "###############################################################################"
|
|
|
|
checkshape s1
|
|
checkshape s2
|
|
|
|
mksweep s1
|
|
|
|
setsweep -CF
|
|
addsweep s2
|
|
if [catch { buildsweep result -R} res] {
|
|
puts "Faulty OCC1477: buildsweep is wrong"
|
|
}
|
|
|
|
checkprops result -s 929.097 -v 939.398
|
|
|
|
checknbshapes result -vertex 48 -edge 90 -wire 42 -face 42 -shell 1 -solid 0 -compsolid 0 -compound 0 -shape 223
|