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


puts "========================"
puts " OCC427 "
puts "(case 4)"
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"

circle w -20 0 0 20
mkedge w w 0 pi*2/5
wire w w
polyline profile 0 0 0  10 0 0  5 0 5  0 0 0
mkplane profile profile
pipe s w profile

OFFSETSHAPE 1 {} $calcul $type

set square 1306.3
set 2dviewer 0
Commit	Line	Data
f1aa2b62	1
	2	puts "========================"
	3	puts " OCC427 "
	4	puts "(case 4)"
	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	circle w -20 0 0 20
	21	mkedge w w 0 pi*2/5
	22	wire w w
	23	polyline profile 0 0 0 10 0 0 5 0 5 0 0 0
	24	mkplane profile profile
	25	pipe s w profile
	26
	27	OFFSETSHAPE 1 {} $calcul $type
	28
	29	set square 1306.3
	30	set 2dviewer 0