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/cloud.tcl

    r17 r95  
    3232    private variable _cloud ""   ;# lib obj representing this cloud
    3333
    34     private variable _units "m"  ;# system of units for this cloud
    35     private variable _limits     ;# limits xmin, xmax, ymin, ymax, ...
     34    private variable _units "m m m" ;# system of units for x, y, z
     35    private variable _limits        ;# limits xmin, xmax, ymin, ymax, ...
    3636
    3737    private common _xp2obj       ;# used for fetch/release ref counting
     
    9898    set u [$_cloud get units]
    9999    if {"" != $u} {
     100        while {[llength $u] < 3} {
     101            lappend u [lindex $u end]
     102        }
    100103        set _units $u
    101104    }
     
    120123        # extract each point and add it to the points list
    121124        foreach {x y z} $line break
    122         foreach dim {x y z} {
     125        foreach dim {x y z} units $_units {
    123126            set v [Rappture::Units::convert [set $dim] \
    124                 -context $_units -to $_units -units off]
     127                -context $units -to $units -units off]
    125128
    126129            set $dim $v  ;# save back to real x/y/z variable
Note: See TracChangeset for help on using the changeset viewer.