mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
40 lines
937 B
Plaintext
Executable File
40 lines
937 B
Plaintext
Executable File
puts "============"
|
|
puts "OCC1477"
|
|
puts "============"
|
|
puts ""
|
|
######################################################
|
|
# Problems in MakePipeShell
|
|
# (case 18)
|
|
# test5.tcl
|
|
######################################################
|
|
|
|
polyline s1 0 0 0 10 0 0 10 10 0
|
|
|
|
polyline w2 0 -10 0 20 -10 10 20 10 0
|
|
|
|
pbsplinecurve c3 3 9 0 1 1 1 2 1 3 1 4 1 5 1 6 1 7 1 8 1 0 -1 0 1 0 -2 2 1 0 0 1 1 0 2 2 1 0 1 0 1 0 2 -2 1 0 0 -1 1 0 -2 -2 1
|
|
mkedge e3 c3
|
|
wire s2 e3
|
|
|
|
puts "###############################################################################"
|
|
puts "# (case /-G/-/-R/)"
|
|
puts "###############################################################################"
|
|
|
|
set setsweepOptions "-G w2 0 0"
|
|
set addsweepOptions ""
|
|
set buildsweepOptions "-R"
|
|
|
|
set square 242.434
|
|
|
|
set nb_v_good 7
|
|
set nb_e_good 13
|
|
set nb_w_good 4
|
|
set nb_f_good 4
|
|
set nb_sh_good 1
|
|
set nb_sol_good 0
|
|
set nb_compsol_good 0
|
|
set nb_compound_good 0
|
|
set nb_shape_good 29
|
|
|
|
set 2dviewer 0
|