diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2019-03-26 19:02:03 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2019-03-26 19:02:03 (GMT) |
commit | 6ccbd607676cea0b50e084132eb1df2733bee6c7 (patch) | |
tree | aefd5cd78e0bbc29a88037a0fa628f61af8d3c24 | |
parent | 7f627a590e68e9be3cb5d80c751cd179a9122a9c (diff) | |
download | blt-6ccbd607676cea0b50e084132eb1df2733bee6c7.zip blt-6ccbd607676cea0b50e084132eb1df2733bee6c7.tar.gz blt-6ccbd607676cea0b50e084132eb1df2733bee6c7.tar.bz2 |
support animated gif
-rw-r--r-- | ds9/library/movie.tcl | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/ds9/library/movie.tcl b/ds9/library/movie.tcl index 9dc2922..3320f6a 100644 --- a/ds9/library/movie.tcl +++ b/ds9/library/movie.tcl @@ -337,14 +337,7 @@ proc MoviePhotoGIF {} { } if {$movie(first)} { - switch [$current(frame) get type] { - rgb { - agif create $movie(fn) [image width $ph] [image height $ph] - } - default { - agif create $movie(fn) [image width $ph] [image height $ph] - } - } + agif create $movie(fn) [image width $ph] [image height $ph] set movie(first) 0 } agif add $ph |