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

puts "========"
puts "OCC26208"
puts "========"
puts ""
##@@###########################
# Incomplete intersection curve. [Episode 2]
###############################

restore [locate_data_file OCC26208_qf.brep] q
explode q
copy q_1 b1
copy q_2 b2

explode b2 e

set NbVertGood 4

bsection rr b1 b2

set lst [checksection rr]
set i 1
while {$i} {
  if {[regexp "is a shape VERTEX" [whatis alone_$i]]} {
    distmini dd1 alone_$i b2_1
    distmini dd2 alone_$i b2_3
    
    set dd1 [dval dd1_val]
    set dd2 [dval dd2_val]
    
    set dist [expr min( $dd1, $dd2 ) ]
    
    if {$dist > 1.0e-7} {
      puts "Error: Vertex alone_$i is not on boundary"
    }
    
    incr i
  } else {
    break
  }  
}

set NbVertFound [expr $i-1]

if {$NbVertFound != $NbVertGood} {
  puts "Error: $NbVertFound found but $NbVertGood expected"
}

smallview
donly b1 b2 rr
fit
checkview -screenshot -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
5b9e1842	1	puts "========"
	2	puts "OCC26208"
	3	puts "========"
	4	puts ""
	5	##@@###########################
	6	# Incomplete intersection curve. [Episode 2]
	7	###############################
	8
	9	restore [locate_data_file OCC26208_qf.brep] q
	10	explode q
	11	copy q_1 b1
	12	copy q_2 b2
	13
	14	explode b2 e
	15
	16	set NbVertGood 4
	17
	18	bsection rr b1 b2
	19
	20	set lst [checksection rr]
	21	set i 1
	22	while {$i} {
	23	if {[regexp "is a shape VERTEX" [whatis alone_$i]]} {
	24	distmini dd1 alone_$i b2_1
	25	distmini dd2 alone_$i b2_3
	26
	27	set dd1 [dval dd1_val]
	28	set dd2 [dval dd2_val]
	29
	30	set dist [expr min( $dd1, $dd2 ) ]
	31
	32	if {$dist > 1.0e-7} {
	33	puts "Error: Vertex alone_$i is not on boundary"
	34	}
	35
	36	incr i
	37	} else {
	38	break
	39	}
	40	}
	41
	42	set NbVertFound [expr $i-1]
	43
	44	if {$NbVertFound != $NbVertGood} {
	45	puts "Error: $NbVertFound found but $NbVertGood expected"
	46	}
	47
	48	smallview
	49	donly b1 b2 rr
	50	fit
5747059b	51	checkview -screenshot -2d -path ${imagedir}/${test_image}.png