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