comp.lang.idl-pvwave archive: archive

Home » Public Forums » archive » xmovie

Show: Today's Messages :: Show Polls :: Message Navigator
E-mail to friend

xmovie [message #1654]

Thu, 17 February 1994 09:39

jjp
Messages: 2
Registered: February 1994

Junior Member

XINTERANIMATE provides nice animation on X windows, but the
required multiple calls to XINTERANIMATE are awkward.

Here's "xmovie" which is a simple "wrapper" routine with the
same calling syntax as the old "movie" routine:

pro xmovie, stack
;
; IDL procedure to use xinteranimate.
; This procedure is written to have the same syntax as "movie".
;
; J Pekar
; 17 Feb 94 first writing

size_info=size(stack)

if size_info(0) ne 3 then begin
print, ' '
print, ' Sorry, but xmovie says "I need a 3D array!" '
print, ' '
return
end

sizex=size_info(1)
sizey=size_info(2)
nframes=size_info(3)

XINTERANIMATE, SET = [Sizex, Sizey, Nframes]

if size_info(4) eq 1 then begin
for i=0, nframes-1 do XINTERANIMATE, IMAGE=stack(*,*,i), FRAME=i
end else begin
bstack=bytscl(stack)
for i=0, nframes-1 do XINTERANIMATE, IMAGE=bstack(*,*,i), FRAME=i
end

XINTERANIMATE

XINTERANIMATE,/CLOSE

return
end

Jim Pekar jjp@helix.nih.gov "Simplify, then exaggerate."

Report message to a moderator

[Message index]

xmovie

By: jjp on Thu, 17 February 1994 09:39

Previous Topic:	Re: deleting compiled module ?
Next Topic:	drawing vectors in polar stereo projection

-=] Back to Top [=-

[ Syndicate this forum (XML) ] [

] [

]

Current Time: Sat Oct 11 09:41:34 PDT 2025

Total time taken to generate the page: 1.86408 seconds