| Re: Animating in Color [message #20546] |
Fri, 07 July 2000 00:00 |
Liam E. Gumley
Messages: 378
Registered: January 2000
|
Senior Member |
|
|
Rachel wrote:
> Is there an easy way to animate a series of color images in IDL other than a
> simple for loop from the command line? I was trying to use XINTERANIMATE
> but could only make it do black and white. The images are plotted on the
> screen then read into an array with tvrd(true=3). I can get them to
> redisplay in color, but not as an animation in Xinteranimate. Thanks for any
> advice.
You may wish to try my frame tools, which are available at
http://cimss.ssec.wisc.edu/~gumley/frame.html
For example:
device, decomposed=0, retain=2
fset
loadct, 0
tvscl, dist(32)
af
loadct, 3
tvscl, dist(64)
af
loadct, 13
tvscl, dist(128)
af
loadct, 39
tvscl, dist(256)
lf, delay=1.0
Cheers,
Liam.
http://cimss.ssec.wisc.edu/~gumley
|
|
|
|
| Re: Animating in Color [message #20551 is a reply to message #20546] |
Thu, 06 July 2000 00:00  |
davidf
Messages: 2866
Registered: September 1996
|
Senior Member |
|
|
Rachel (RachelP@goplay.com) writes:
> Is there an easy way to animate a series of color images in IDL other than a
> simple for loop from the command line? I was trying to use XINTERANIMATE
> but could only make it do black and white. The images are plotted on the
> screen then read into an array with tvrd(true=3). I can get them to
> redisplay in color, but not as an animation in Xinteranimate. Thanks for any
> advice.
You are correct that you can't get color images if you
try to load the images into XINTERANIMATE with the IMAGE
keyword. But XINTERANIMATE can be used to animate RGB
image data.
Suppose, for example, imageArray is a (400,300,3,15) image
array containing 15 row-interleaved RGB images. To use
XINTERANIMATE with such an array, the code will look something
like this (on a 24-bit display, obviously):
Device, Decomposed=1
XInterAnimate, Set=[400,300,15], /Showload
FOR j=0,14 DO BEGIN
TV, imageArray[*,*,*,j], True=3
XInterAnimate, Window=!D.Window, Frame=j
ENDFOR
XInterAnimate, 50
Cheers,
David
--
David Fanning, Ph.D.
Fanning Software Consulting
Phone: 970-221-0438 E-Mail: davidf@dfanning.com
Coyote's Guide to IDL Programming: http://www.dfanning.com/
Toll-Free IDL Book Orders: 1-888-461-0155
|
|
|
|
comp.lang.idl-pvwave archive
Members
Search
Help
Login
Home
