5 ######################################################
6 # Anisotropic scaling in 3D view
7 ######################################################
17 set x1 [list 165 340 70]
18 set y1 [list 384 283 79]
21 for {set i 0} {$i < 3} {incr i} {
22 set x_coord [lindex ${x1} $i]
23 set y_coord [lindex ${y1} $i]
25 checkcolor $x_coord $y_coord 1 1 0
31 set x2 [list 80 390 25]
32 set y2 [list 390 218 167]
35 for {set i 0} {$i < 3} {incr i} {
36 set x_coord [lindex ${x2} $i]
37 set y_coord [lindex ${y2} $i]
39 checkcolor $x_coord $y_coord 1 1 0