f1aa2b62 |
1 | |
2 | puts "========================" |
3 | puts " OCC427 " |
4 | puts "(case 2)" |
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 {s_5} $calcul $type |
24 | |
58cf74e0 |
25 | checkprops result -s 858.167 |
26 | checkshape result |
5747059b |
27 | checkview -display result -2d -path ${imagedir}/${test_image}.png |