Ignore:
Timestamp:
Oct 9, 2005 9:41:29 PM (17 years ago)
Author:
mmc
Message:
  • Fixed an annoying bug in the scroller that would cause the device to jitter up and down in some cases. (1-barrier case of app-rtd)
  • Fixed cloud/mesh objects to allow different units for each of the various axes.
  • Fixed the install.tcl script to avoid popping up the notice about Rappture being installed when tclsh is running the script.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/gui/scripts/mesh.tcl

    r17 r95  
    3535    private variable _mesh ""    ;# lib obj representing this mesh
    3636
    37     private variable _units "m"  ;# system of units for this mesh
    38     private variable _limits     ;# limits xmin, xmax, ymin, ymax, ...
     37    private variable _units "m m m" ;# system of units for x, y, z
     38    private variable _limits        ;# limits xmin, xmax, ymin, ymax, ...
    3939
    4040    private common _xp2obj       ;# used for fetch/release ref counting
     
    101101    set u [$_mesh get units]
    102102    if {"" != $u} {
     103        while {[llength $u] < 3} {
     104            lappend u [lindex $u end]
     105        }
    103106        set _units $u
    104107    }
     
    126129        # extract each point and add it to the points list
    127130        foreach {x y z} $xyz break
    128         foreach dim {x y z} {
     131        foreach dim {x y z} units $_units {
    129132            set v [Rappture::Units::convert [set $dim] \
    130                 -context $_units -to $_units -units off]
     133                -context $units -to $units -units off]
    131134
    132135            set $dim $v  ;# save back to real x/y/z variable
Note: See TracChangeset for help on using the changeset viewer.