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

puts "TODO ?OCC12345 ALL: ERROR. offsetperform operation not done."
puts "TODO ?OCC12345 ALL: Tcl Exception: ERROR. offsetperform operation not done."
puts "TODO ?OCC12345 ALL: TEST INCOMPLETE"

puts "========================"
puts " OCC427 "
puts "(case 6)"
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 {s_4 s_5} $calcul $type

set square 808.448
set 2dviewer 0
Commit	Line	Data
ab87e6fc	1	puts "TODO ?OCC12345 ALL: ERROR. offsetperform operation not done."
	2	puts "TODO ?OCC12345 ALL: Tcl Exception: ERROR. offsetperform operation not done."
	3	puts "TODO ?OCC12345 ALL: TEST INCOMPLETE"
f1aa2b62	4
	5	puts "========================"
	6	puts " OCC427 "
	7	puts "(case 6)"
	8	puts "========================"
	9	puts ""
	10	cpulimit 1200
	11	proc OFFSETSHAPE {distance faces calcul type} {
	12	uplevel #0 explode s f
	13	uplevel #0 offsetparameter 1e-7 $calcul $type
	14	uplevel #0 offsetload s $distance $faces
	15	uplevel #0 offsetperform result
	16	}
	17
	18	#Shell no rough and rounded mode
	19
	20	set calcul "c"
	21	set type "i"
	22
	23	circle w -20 0 0 20
	24	mkedge w w 0 pi*2/5
	25	wire w w
	26	polyline profile 0 0 0 10 0 0 5 0 5 0 0 0
	27	mkplane profile profile
	28	pipe s w profile
	29
	30	OFFSETSHAPE 1 {s_4 s_5} $calcul $type
	31
	32	set square 808.448
	33	set 2dviewer 0