dfdfa61f |
1 | puts "TODO OCC25458 ALL: Error : 1-fold tori is bad" |
2 | |
3 | puts "============" |
4 | puts "OCC25458" |
5 | puts "============" |
6 | puts "" |
7 | ########################################################################### |
8 | ## can a sweep be used to create 1-fold tori (using a closed wire as path) |
9 | ########################################################################### |
10 | |
11 | restore [locate_data_file bug25458_sweep-torus1-draw-Wire.brep] Wire |
12 | |
13 | explode Wire E |
14 | wire Sweep-0-spine Wire_1 |
15 | |
16 | mksweep Sweep-0-spine |
17 | setsweep -FR |
18 | |
19 | circle Circle-curve 0 0 0 10 |
20 | mkedge Circle-edge Circle-curve 0 0 |
21 | wire Circle Circle-edge |
22 | trotate Circle 0 0 0 1 0 0 90 |
23 | ttranslate Circle 40.1121575545 0 36.5930306315 |
24 | |
25 | addsweep Circle |
26 | buildsweep Sweep -C -S |
27 | |
28 | set info [bopcheck Sweep] |
29 | |
30 | if { [regexp "This shape seems to be OK" ${info}] != 1 } { |
31 | puts "Error : 1-fold tori is bad" |
32 | } |
33 | |
34 | checkview -display Sweep -3d -path ${imagedir}/${test_image}.png |