1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
#F3----------------------------------------------
puts "TODO OCC22803 All: Error in depouille"
puts "TODO OCC22803 All: Error : The skin cannot be built."
puts "TODO OCC22803 All: Error: The command cannot be built"
polyline p 0 0 7 0 0 0 10 0 0 10 0 7
beziercurve bc 4 10 0 7 7 0 7 3 0 7 0 0 7
mkedge bc bc
wire p p bc
mkplane p p
revol p p 0 0 0 0 0 1 360
pcone pc 5 4 15
bfuse f p pc
nexplode f f
if { [catch { depouille result f 0 0 1 f_4 1 0 0 15 0 0 1 } ] != 0 } {
puts "Error in depouille"
}
checkprops result -s 0
|
