f1aa2b62 |
1 | |
2 | puts "========================" |
3 | puts " OCC427 " |
4 | puts "(case 4)" |
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 | circle w -20 0 0 20 |
21 | mkedge w w 0 pi*2/5 |
22 | wire w w |
23 | polyline profile 0 0 0 10 0 0 5 0 5 0 0 0 |
24 | mkplane profile profile |
25 | pipe s w profile |
26 | |
27 | OFFSETSHAPE 1 {} $calcul $type |
28 | |
29 | set square 1306.3 |
30 | set 2dviewer 0 |