[occt.git] / tests / offset / begin

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