1 puts "========================"
4 puts "========================"
7 proc OFFSETSHAPE {distance faces calcul type} {
9 uplevel #0 offsetparameter 1e-7 $calcul $type
10 uplevel #0 offsetload s $distance $faces
11 uplevel #0 offsetperform result
14 #Shell no rough and rounded mode
22 polyline profile 0 0 0 10 0 0 5 0 5 0 0 0
23 mkplane profile profile
26 OFFSETSHAPE 1 {s_4 s_5} $calcul $type
28 checkprops result -s 808.448
30 checkview -display result -2d -path ${imagedir}/${test_image}.png