40093367 |
1 | #puts "TODO OCC22810 All:No error" |
2 | puts "*" |
3 | puts "TODO OCC22810 All:Error in featperform" |
6aac585a |
4 | puts "TODO OCC22810 All:Error : The feat grid cannot be built." |
40093367 |
5 | # |
6 | box b 8 8 8 |
7 | ttranslate b -4 0 0 |
8 | pcylinder c1 2 8 |
9 | bfuse c b c1 |
10 | profile p x 1 y 1 x -1 y -1 |
11 | trotate p 0 0 0 1 0 0 90 |
12 | trotate p 0 0 0 0 0 1 90 |
13 | ttranslate p 0 -2 0.5 |
14 | explode c f |
15 | explode p e |
16 | mksurface sf c_5 |
17 | mksurface su c_2 |
18 | mkface ff sf |
19 | mkface fu su |
20 | |
21 | featrevol c p p 0 0 0.5 0 0 1 0 1 |
22 | addslide revol p_4 c_3 |
23 | if { [catch { featperform revol result ff fu } ] != 0 } { |
24 | puts "Error in featperform" |
25 | } |
26 | |
27 | set square 0 |