0029807: [Regression to 7.0.0] Impossible to cut cone from prism

[occt.git] / tests / bugs / modalg_5 / begin

set subgroup modalg

set calcul "p"
set type "i"

proc OFFSETSHAPE {distance faces calcul type} {
        uplevel #0 explode s f
        uplevel #0 offsetparameter 1e-7 $calcul $type
        uplevel #0 offsetload s $distance $faces
        uplevel #0 offsetperform result
}