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

puts "TODO OCC25925 ALL: ERROR. offsetperform operation not done."
puts "TODO OCC25925 ALL: Faulty OCC5805 : result is not Closed shape"
puts "TODO OCC25925 ALL: Tcl Exception: Error : command \\\"nbshapes result\\\" gives an empty result"
puts "TODO OCC25925 ALL: TEST INCOMPLETE"

puts "============"
puts "OCC5805"
puts "============"

#######################################################################
# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
#######################################################################

set BugNumber OCC5805

set z1 5
set z2 -5

# beziercurve1
beziercurve bc1 5 5 5 ${z1} 5 -5 ${z1} -5 -5 ${z1} -5 5 ${z1} 5 5 ${z1}
mkedge e1 bc1
wire UpCover e1

# beziercurve2
copy e1 e2
ttranslate e2 0 0 ${z2}
wire BottomCover e2

set issolid 1
set isruled 1
if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
   puts "Faulty ${BugNumber} : thrusections is wrong"
   
}

set distance -0.001
catch { OFFSETSHAPE $distance {s_2} $calcul $type }
# Bad result

set index [lsearch [whatis s] Closed]
if {$index == -1} {
  puts "Faulty ${BugNumber} : s is not Closed shape"
  
}

set index [lsearch [whatis result] Closed]
if {$index == -1} {
  puts "Faulty ${BugNumber} : result is not Closed shape"
  
}

checknbshapes result -vertex 2 -edge 3 -wire 3 -face 3 -shell 1 -solid 1 -compsolid 0 -compound 0 -shape 13

set square 495.635
set 2dviewer 0
Commit	Line	Data
c1e0171c	1	puts "TODO OCC25925 ALL: ERROR. offsetperform operation not done."
c1e0171c	2	puts "TODO OCC25925 ALL: Faulty OCC5805 : result is not Closed shape"
a4eba920	3	puts "TODO OCC25925 ALL: Tcl Exception: Error : command \\\"nbshapes result\\\" gives an empty result"
c1e0171c	4	puts "TODO OCC25925 ALL: TEST INCOMPLETE"
3bea4c16	5
	6	puts "============"
	7	puts "OCC5805"
	8	puts "============"
	9
	10	#######################################################################
	11	# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
	12	#######################################################################
	13
	14	set BugNumber OCC5805
	15
	16	set z1 5
	17	set z2 -5
	18
	19	# beziercurve1
	20	beziercurve bc1 5 5 5 ${z1} 5 -5 ${z1} -5 -5 ${z1} -5 5 ${z1} 5 5 ${z1}
	21	mkedge e1 bc1
	22	wire UpCover e1
	23
	24	# beziercurve2
	25	copy e1 e2
	26	ttranslate e2 0 0 ${z2}
	27	wire BottomCover e2
	28
	29	set issolid 1
	30	set isruled 1
	31	if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
	32	puts "Faulty ${BugNumber} : thrusections is wrong"
	33
	34	}
	35
	36	set distance -0.001
	37	catch { OFFSETSHAPE $distance {s_2} $calcul $type }
	38	# Bad result
	39
3bea4c16	40	set index [lsearch [whatis s] Closed]
	41	if {$index == -1} {
	42	puts "Faulty ${BugNumber} : s is not Closed shape"
	43
	44	}
	45
	46	set index [lsearch [whatis result] Closed]
	47	if {$index == -1} {
	48	puts "Faulty ${BugNumber} : result is not Closed shape"
	49
	50	}
	51
a4eba920	52	checknbshapes result -vertex 2 -edge 3 -wire 3 -face 3 -shell 1 -solid 1 -compsolid 0 -compound 0 -shape 13
3bea4c16	53
a4eba920	54	set square 495.635
3bea4c16	55	set 2dviewer 0