[occt.git] / tests / offset / begin

# To prevent loops limit to 10 minutes
cpulimit 600

if { [array get Draw_Groups "TOPOLOGY Feature commands"] == "" } {
	pload TOPTEST
}

if { [info exists imagedir] == 0 } {
   set imagedir .
}
if { [info exists test_image ] == 0 } {
   set test_image photo
}

proc OFFSETSHAPE {distance faces  calcul type} {
    global GlobFaces
    set GlobFaces $faces
    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
40093367	1	# To prevent loops limit to 10 minutes
	2	cpulimit 600
	3
40093367	4	if { [array get Draw_Groups "TOPOLOGY Feature commands"] == "" } {
	5	pload TOPTEST
	6	}
	7
	8	if { [info exists imagedir] == 0 } {
	9	set imagedir .
	10	}
	11	if { [info exists test_image ] == 0 } {
	12	set test_image photo
	13	}
	14
	15	proc OFFSETSHAPE {distance faces calcul type} {
	16	global GlobFaces
	17	set GlobFaces $faces
	18	uplevel #0 explode s f
	19	uplevel #0 offsetparameter 1e-7 $calcul $type
	20	uplevel #0 offsetload s $distance $faces
	21	uplevel #0 offsetperform result
	22	}