1puts "TODO OCC12345 ALL: Faulty : The distance between"
2puts "TODO OCC12345 ALL: Error : The length of result shape is"
3
4puts "========================"
5puts "BUC60690"
6puts "========================"
7puts ""
8
9restore [locate_data_file buc60690a.brep] a
10restore [locate_data_file buc60690b.brep] b
11
12set che [checkshape a]
13if { [regexp {Faulty} $che ] == 1 } {
14    puts "Faulty BUC60690 (shape 1): Source shape is invalid. It was detected by Checkshape command"
15    puts "Body of the script was NOT executed"
16    renamevar a result
17} else {
18    puts "BUC60690 OK (shape 1): Source shape is valid"
19    set che [checkshape b]
20    if { [regexp {Faulty} $che ] == 1 } {
21	puts "Faulty BUC60690 (shape 2): Source shape is invalid. It was detected by Checkshape command"
22	puts "Body of the script was NOT executed"
23	renamevar b result
24    } else {
25	puts "BUC60690 OK (shape 2): Source shape is valid"
26
27	bsection result a b
28
29	set le [explode result v]
30	distmini d1 result_1 b
31	distmini d2 [lindex $le [expr [llength $le] - 1]] b
32
33	regexp {([-0-9.+eE]+)$} [dump d1_val] full du1
34
35	if { [expr $du1 > 1e-7] } {
36	    puts "Faulty : The distance between first vertex and shellB is $du1. It is more then 1e-7."
37	}
38
39	regexp {([-0-9.+eE]+)$} [dump d2_val] full du2
40	if { [expr $du2 > 1e-7] } {
41	    puts "Faulty : The distance between last vertex and shellB is $du2. It is more then 1e-7."
42	}
43    }
44}
45checkprops result -l 0
46checkshape result
47checksection result
48checkview -display result -2d -path ${imagedir}/${test_image}.png
49
50
51