[occt.git] / tests / bugs / modalg_1 / 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
}
Commit	Line	Data
355c1551	1	set subgroup modalg
355c1551	2
3bea4c16	3	set calcul "p"
	4	set type "i"
	5
	6	proc OFFSETSHAPE {distance faces calcul type} {
	7	uplevel #0 explode s f
	8	uplevel #0 offsetparameter 1e-7 $calcul $type
	9	uplevel #0 offsetload s $distance $faces
	10	uplevel #0 offsetperform result
	11	}
	12
	13
355c1551	14
	15
	16
	17
	18
	19
	20