Changeset 2409 for branches/blt4/examples/zoo/image/image.tcl

Timestamp:

Aug 25, 2011 1:09:15 PM (13 years ago)

Author:

gah

Message:

update from branch

File:

• branches/blt4/examples/zoo/image/image.tcl (modified) (1 diff)

branches/blt4/examples/zoo/image/image.tcl

@@ -18 +18 @@
 set data [$driver get input.image.current]
 set angle [$driver get input.(angle).current]
-set angle [Rappture::Units::convert $angle -to deg -units off]
+set angle [Rappture::Units::convert 20rad -to deg -units off]
+puts stderr "angle=$angle from Rappture::Units::convert 20deg -to deg -units off"
 
 set imh [image create picture -data $data]