1 if { [array get Draw_Groups "TOPOLOGY Check commands"] == "" } {
5 # To prevent loops limit to 10 minutes
8 if { [info exists imagedir] == 0 } {
12 if { [info exists test_image ] == 0 } {
18 #evaluate n points beetween u1 and u2 on the curve 2d c
21 proc val2d { c u1 u2 n } {
27 for {dset u $u1} { [dval u] <= $u2} {dset u ($u1+$i*[dval du])} {
28 2dcvalue $c u x y dx dy d2x d2y ;
29 global p_$i d1_$i d2_$i
32 puts "p_$i [dval x ] [dval y]"
33 puts "d1_$i [dval dx ] [dval dy]";
34 puts "d2_$i [dval d2x] [dval d2y]";
44 #evaluate n points beetween u1 and u2 on the curve 3d c
46 proc val3d { c u1 u2 n } {
52 for {dset u $u1} { [dval u] <= $u2} {dset u (u+[dval du])} {
53 cvalue $c u x y z dx dy dz d2x d2y d2z ;
56 puts "p_$i [dval x ] [dval y ] [dval z]";
57 puts "d1_$i [dval dx ] [dval dy ] [dval dz]";
58 puts "d2_$i [dval d2x] [dval d2y] [dval d2z]";
61 point d2_$i d2x d2y d2z
66 proc compare {r1 r2 tol} {
67 if {$r1 - $r2 >= $tol} {
68 puts "Error : evalution"
70 if {$r2 - $r1 >= $tol} {
71 puts "Error : evalution"
75 proc comparepnt2d {p1 p2 tol} {
78 compare [dval x1] [dval x2] $tol
79 compare [dval y1] [dval y2] $tol
82 proc comparepnt3d {p1 p2 tol} {
87 compare [dval x1] [dval x2] $tol
88 compare [dval y1] [dval y2] $tol
89 compare [dval z1] [dval z2] $tol