[occt.git] / tests / bugs / modalg_2 / bug427_1


puts "========="
puts " OCC427 "
puts "(case 1)"
puts "========="
puts ""
cpulimit 1200
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
}

#Shell no rough and rounded mode

set calcul "c"
set type "i"

pcone s 9 4 15 90
trotate s 0 0 0 0 0 1 90

OFFSETSHAPE 1 {} $calcul $type

set square 671.382
set 2dviewer 0
Commit	Line	Data
f1aa2b62	1
	2	puts "========="
	3	puts " OCC427 "
	4	puts "(case 1)"
	5	puts "========="
	6	puts ""
	7	cpulimit 1200
	8	proc OFFSETSHAPE {distance faces calcul type} {
	9	uplevel #0 explode s f
	10	uplevel #0 offsetparameter 1e-7 $calcul $type
	11	uplevel #0 offsetload s $distance $faces
	12	uplevel #0 offsetperform result
	13	}
	14
	15	#Shell no rough and rounded mode
	16
	17	set calcul "c"
	18	set type "i"
	19
	20	pcone s 9 4 15 90
	21	trotate s 0 0 0 0 0 1 90
	22
	23	OFFSETSHAPE 1 {} $calcul $type
	24
	25	set square 671.382
	26	set 2dviewer 0