[occt.git] / tests / bugs / moddata_2 / bug604

puts "TODO OCC12345 ALL: Faulty OCC604: Result of intersection operation is INcorrect !!!"

puts "========================"
puts " OCC604"
puts "========================"
puts ""
############################
## Wrong intersection between two tores.
############################

restore [locate_data_file OCC604a.draw] a 
restore [locate_data_file OCC604b.draw] b 

if { [catch { intersect result a b } catch_result] } {
    puts "Faulty OCC604: function INTERSECTION works with exception"
} else {
    set nom 0
    set j 1
    repeat 10 {
	set err [lindex [whatis res_$j] 5]
    	if { $err != "curve"} {
    	    break
        } else {
    	    set nom [expr $nom + 1]
        }
	incr j
    }
    if { $nom != 1 } {
	puts "Faulty OCC604: Result of intersection operation is INcorrect !!!"
    } else {
	puts "OCC604 OK : Result of intersection operation is CORRECT !!! "
    }
}

set 3dviewer 1
Commit	Line	Data
352ffd73	1	puts "TODO OCC12345 ALL: Faulty OCC604: Result of intersection operation is INcorrect !!!"
	2
	3	puts "========================"
	4	puts " OCC604"
	5	puts "========================"
	6	puts ""
	7	############################
	8	## Wrong intersection between two tores.
	9	############################
	10
	11	restore [locate_data_file OCC604a.draw] a
	12	restore [locate_data_file OCC604b.draw] b
	13
	14	if { [catch { intersect result a b } catch_result] } {
	15	puts "Faulty OCC604: function INTERSECTION works with exception"
	16	} else {
	17	set nom 0
	18	set j 1
	19	repeat 10 {
	20	set err [lindex [whatis res_$j] 5]
	21	if { $err != "curve"} {
	22	break
	23	} else {
	24	set nom [expr $nom + 1]
	25	}
	26	incr j
	27	}
	28	if { $nom != 1 } {
	29	puts "Faulty OCC604: Result of intersection operation is INcorrect !!!"
	30	} else {
	31	puts "OCC604 OK : Result of intersection operation is CORRECT !!! "
	32	}
	33	}
	34
	35	set 3dviewer 1