diff options
| author | William Joye <wjoye@cfa.harvard.edu> | 2019-03-25 17:46:20 (GMT) |
|---|---|---|
| committer | William Joye <wjoye@cfa.harvard.edu> | 2019-03-25 17:46:20 (GMT) |
| commit | 7c7474934049124218005565d4a8f0db99651dc3 (patch) | |
| tree | 4b45b3409fed205fd12fe2273348e00fd9cf4fd8 /ds9/library/movie.tcl | |
| parent | 9e1f526c9f27785f9a83b6449b597804cd270686 (diff) | |
| download | blt-7c7474934049124218005565d4a8f0db99651dc3.zip blt-7c7474934049124218005565d4a8f0db99651dc3.tar.gz blt-7c7474934049124218005565d4a8f0db99651dc3.tar.bz2 | |
support animated gif
Diffstat (limited to 'ds9/library/movie.tcl')
| -rw-r--r-- | ds9/library/movie.tcl | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/ds9/library/movie.tcl b/ds9/library/movie.tcl index 3320f6a..88f23b6 100644 --- a/ds9/library/movie.tcl +++ b/ds9/library/movie.tcl @@ -337,7 +337,14 @@ proc MoviePhotoGIF {} { } if {$movie(first)} { - agif create $movie(fn) [image width $ph] [image height $ph] + switch [$current(frame) get type] { + rgb { + agif create $movie(fn) [image width $ph] [image height $ph] 16 + } + default { + agif create $movie(fn) [image width $ph] [image height $ph] 4 + } + } set movie(first) 0 } agif add $ph |