[occt.git] / tests / bugs / modalg_6 / bug8040

puts "============"
puts "OCC8040"
puts "============"
puts ""
##################################
#  Offset direction is wrong for a closed circle
##################################

circle c 1 0 0 20
offset c1 c 10 0 0 1
offset c2 c -10 0 0 1
checklength c -l 125.66370614359172
checklength c1 -l 188.49555921538757
checklength c2 -l 62.831853071795862

mkedge e c
mkedge e1 c1
mkedge e2 c2
vertex v1 0 35 0
vertex v2 0 -35 0
edge e3 v1 v2
set index 0
set number_of_vertex 0
foreach s {e e1 e2} {
set index [expr $index + 1 ]
bop $s e3
bopsection result$index
regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result$index] full nbv
set number_of_vertex [expr $number_of_vertex + $nbv]
puts "number_of_vertex = $number_of_vertex" 
}

if { $number_of_vertex != 6 } { puts "Error : Section is incorrect" }

smallview
fit

checkview -screenshot -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
bf3220cf	1	puts "============"
	2	puts "OCC8040"
	3	puts "============"
	4	puts ""
	5	##################################
	6	# Offset direction is wrong for a closed circle
	7	##################################
	8
	9	circle c 1 0 0 20
	10	offset c1 c 10 0 0 1
	11	offset c2 c -10 0 0 1
	12	checklength c -l 125.66370614359172
	13	checklength c1 -l 188.49555921538757
	14	checklength c2 -l 62.831853071795862
	15
	16	mkedge e c
	17	mkedge e1 c1
	18	mkedge e2 c2
	19	vertex v1 0 35 0
	20	vertex v2 0 -35 0
	21	edge e3 v1 v2
	22	set index 0
	23	set number_of_vertex 0
	24	foreach s {e e1 e2} {
	25	set index [expr $index + 1 ]
	26	bop $s e3
	27	bopsection result$index
	28	regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result$index] full nbv
	29	set number_of_vertex [expr $number_of_vertex + $nbv]
	30	puts "number_of_vertex = $number_of_vertex"
	31	}
	32
	33	if { $number_of_vertex != 6 } { puts "Error : Section is incorrect" }
	34
	35	smallview
	36	fit
	37
	38	checkview -screenshot -2d -path ${imagedir}/${test_image}.png
	39