[occt.git] / tests / draft / angle / G8

#F6----------------------------------------------
puts "TODO OCC22803 All:Error in depouille"
puts "TODO OCC22803 All:Error : The depouille can not be build"
polyline p 0 0 3  0 0 0  10 0 0  10 0 3  
beziercurve bc 4 10 0 3  7 0 2  3 0 3  0 0 3
mkedge bc bc
wire p p bc
mkplane p p
revol p p 0 0 0 0 0 1 360
profile pf o 0 -5 1 p 1 -1 0 1 1 0 l 7 t 0 7 \
t -5 0  
revol pr pf -1 -7 0 0 0 1 70
bfuse f p pr
nexplode f f
if { [catch { depouille result f 0 0 1 f_4 3 0 0 10 0 0 1 } ] != 0 } {
  puts "Error in depouille"
}

set square 0
Commit	Line	Data
40093367	1	#F6----------------------------------------------
	2	puts "TODO OCC22803 All:Error in depouille"
	3	puts "TODO OCC22803 All:Error : The depouille can not be build"
	4	polyline p 0 0 3 0 0 0 10 0 0 10 0 3
	5	beziercurve bc 4 10 0 3 7 0 2 3 0 3 0 0 3
	6	mkedge bc bc
	7	wire p p bc
	8	mkplane p p
	9	revol p p 0 0 0 0 0 1 360
	10	profile pf o 0 -5 1 p 1 -1 0 1 1 0 l 7 t 0 7 \
	11	t -5 0
	12	revol pr pf -1 -7 0 0 0 1 70
	13	bfuse f p pr
	14	nexplode f f
	15	if { [catch { depouille result f 0 0 1 f_4 3 0 0 10 0 0 1 } ] != 0 } {
	16	puts "Error in depouille"
	17	}
	18
	19	set square 0