5 ####################################################################################
6 # Perspective projection - selecting front point of two.
7 # When trying to select front point of two (lying on Z-coordinate) in a perspective
8 # view, the back one is snapped and selected.
9 ####################################################################################
18 # Draw grid of points 7x7.
20 for {set x 0} {$x<7} {incr x} {
21 for {set y 0} {$y<7} {incr y} {
26 for {set x 0} {$x<7} {incr x} {
27 for {set y 0} {$y<7} {incr y} {
37 vselect $select_x $select_y
43 set asplit [split $result "\n"]
44 for {set i 0} {$i < [llength $ref_selected]} {incr i} {
45 lappend newlist [lindex [lindex $asplit $i] 0]
47 set newsorted [lsort $newlist]
48 set refsorted [lsort $ref_selected]
49 for {set i 0} {$i < [llength $refsorted]} {incr i} {
50 if {[lindex $refsorted $i] != [lindex $newsorted $i]} {
57 puts "Error : Perspective selection is broken."
72 vviewparams -scale $scale -up $up_x $up_y $up_z -at $at_x $at_y $at_z -eye $eye_x $eye_y $eye_z