| 228148b3 |
1 | puts "============" |
| 2 | puts "OCC1477" |
| 3 | puts "============" |
| 4 | puts "" |
| 5 | ###################################################### |
| 6 | # Problems in MakePipeShell |
| 7 | # (case 18) |
| 8 | # test5.tcl |
| 9 | ###################################################### |
| 10 | |
| 11 | polyline s1 0 0 0 10 0 0 10 10 0 |
| 12 | |
| 13 | polyline w2 0 -10 0 20 -10 10 20 10 0 |
| 14 | |
| 15 | 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 |
| 16 | mkedge e3 c3 |
| 17 | wire s2 e3 |
| 18 | |
| 19 | puts "###############################################################################" |
| 20 | puts "# (case /-G/-/-R/)" |
| 21 | puts "###############################################################################" |
| 22 | |
| a4eba920 |
23 | checkshape s1 |
| 24 | checkshape s2 |
| 228148b3 |
25 | |
| a4eba920 |
26 | mksweep s1 |
| 27 | |
| 28 | setsweep -G w2 0 0 |
| 29 | addsweep s2 |
| 30 | if [catch { buildsweep result -R} res] { |
| 31 | puts "Faulty OCC1477: buildsweep is wrong" |
| 32 | } |
| 228148b3 |
33 | |
| 58cf74e0 |
34 | checkprops result -s 242.434 |
| 228148b3 |
35 | |
| a4eba920 |
36 | checknbshapes result -vertex 7 -edge 13 -wire 4 -face 4 -shell 1 -solid 0 -compsolid 0 -compound 0 -shape 29 |
| 228148b3 |
37 | set 2dviewer 0 |
projects / occt.git / blame