Corrected integration
[occt.git] / tests / offset / begin
CommitLineData
40093367 1# To prevent loops limit to 10 minutes
2cpulimit 600
3
40093367 4if { [array get Draw_Groups "TOPOLOGY Feature commands"] == "" } {
5 pload TOPTEST
6}
7
8if { [info exists imagedir] == 0 } {
9 set imagedir .
10}
11if { [info exists test_image ] == 0 } {
12 set test_image photo
13}
14
15proc 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}