f1aa2b62 |
1 | |
2 | puts "=========" |
3 | puts " OCC427 " |
4 | puts "(case 1)" |
5 | puts "=========" |
6 | puts "" |
7 | cpulimit 1200 |
8 | proc OFFSETSHAPE {distance faces calcul type} { |
9 | uplevel #0 explode s f |
10 | uplevel #0 offsetparameter 1e-7 $calcul $type |
11 | uplevel #0 offsetload s $distance $faces |
12 | uplevel #0 offsetperform result |
13 | } |
14 | |
15 | #Shell no rough and rounded mode |
16 | |
17 | set calcul "c" |
18 | set type "i" |
19 | |
20 | pcone s 9 4 15 90 |
21 | trotate s 0 0 0 0 0 1 90 |
22 | |
23 | OFFSETSHAPE 1 {} $calcul $type |
24 | |
25 | set square 671.382 |
26 | set 2dviewer 0 |