1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
#F6----------------------------------------------
puts "TODO OCC22803 All:Faulty shapes in variables faulty_1 to faulty_"
puts "TODO OCC22803 All:Error : The area of the resulting shape is"
polyline p 0 0 3 0 0 0 10 0 0 10 0 3
beziercurve bc 4 10 0 3 7 0 2 3 0 3 0 0 3
mkedge bc bc
wire p p bc
mkplane p p
revol p p 0 0 0 0 0 1 360
profile pf o 0 -5 1 p 1 -1 0 1 1 0 l 7 t 0 7 \
t -5 0
revol pr pf -1 -7 0 0 0 1 70
bfuse f p pr
nexplode f f
if { [catch { depouille result f 0 0 1 f_4 3 0 0 10 0 0 1 } ] != 0 } {
puts "Error in depouille"
}
set square 0
|
