1 puts "TODO OCC12345 ALL: Faulty OCC9"
3 puts "================"
5 puts "================"
9 restore [locate_data_file OCC9-path.draw] d
10 ############### checkshape d # is not a topological shape
11 restore [locate_data_file OCC9-cur1.draw] b
12 ############### checkshape b # is not a topological shape
13 restore [locate_data_file OCC9-cur2.draw] c
14 ############### checkshape c # is not a topological shape
19 vertex V [dval x] [dval y] [dval z]
26 OCC9 res d b c [dval dm_val] ${tolerance}
28 ## check parametrization
30 # puts "Path 0: [dval x] [dval y] [dval z]"
34 # puts "Path 1: [dval x] [dval y] [dval z]"
36 # svalue res 0 0 x y z
38 # puts "Surf 0 0: [dval x] [dval y] [dval z]"
40 # svalue res 0 1 x y z
42 # puts "Surf 0 1: [dval x] [dval y] [dval z]"
46 for {set i -470} {$i < 240} {incr i 25} {
48 # svalue res 0 $i "S$n"
49 # puts "donly res P$n S$n"
51 # puts "n = $n i = $i"
55 svalue res 0 $i xs ys zs
56 set dist [expr sqrt (\
57 ( [dval x ] - [dval xs ] ) * ( [dval x ] - [dval xs ] )\
58 + ( [dval y ] - [dval ys ] ) * ( [dval y ] - [dval ys ] )\
59 + ( [dval z ] - [dval zs ] ) * ( [dval z ] - [dval zs ] )\
61 set sum [expr $sum + $dist ]
62 puts "1-st Dist at $i : $dist"
66 ####svalue res 0 $i xs ys zs
67 svalue res 1 $i xs ys zs
68 set dist [expr sqrt (\
69 ( [dval x ] - [dval xs ] ) * ( [dval x ] - [dval xs ] )\
70 + ( [dval y ] - [dval ys ] ) * ( [dval y ] - [dval ys ] )\
71 + ( [dval z ] - [dval zs ] ) * ( [dval z ] - [dval zs ] )\
73 set sum [expr $sum + $dist ]
74 puts "2-nd Dist at $i : $dist"
77 ####puts "\n Avg dist on $n intervals: [expr $sum / $n ]"
78 set Avg_dist [expr $sum / (2 * $n) ]
79 puts "\n Avg dist on $n intervals: ${Avg_dist}"
81 set check_dist ${tolerance}
82 puts "\n check_dist = ${check_dist}"
83 if { ${Avg_dist} > ${check_dist} } {