[occt.git] / tests / offset / begin

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