1 puts "TODO OCC23068 ALL: ERROR. offsetperform operation not done."
2 puts "TODO OCC23068 ALL: result is not a topological shape!!!"
3 puts "TODO OCC23068 ALL: Error: The command cannot be built"
4 puts "TODO OCC23068 ALL: TEST INCOMPLETE"
6 puts "========================"
9 puts "========================"
12 proc OFFSETSHAPE {distance faces calcul type} {
13 uplevel #0 explode s f
14 uplevel #0 offsetparameter 1e-7 $calcul $type
15 uplevel #0 offsetload s $distance $faces
16 uplevel #0 offsetperform result
19 #Shell no rough and rounded mode
27 polyline profile 0 0 0 10 0 0 5 0 5 0 0 0
28 mkplane profile profile
31 OFFSETSHAPE 1 {s_4 s_5} $calcul $type
33 checkprops result -s 808.448
35 checkview -display result -2d -path ${imagedir}/${test_image}.png