comp.lang.idl-pvwave archive: archive

Home » Public Forums » archive » Animation

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

Re: animation [message #40653 is a reply to message #9821]

Wed, 25 August 2004 10:28

mary2747102
Messages: 8
Registered: August 2004

Junior Member

Hi Dr. Fanning,
I followed the advice you gave to Neil Winrow to do a loop for the
animation.
It looked useful for me, but an error message appears on the first
line:

"% Variable is undefined: SET.
% Execution halted at: $MAIN$
3 C:\Documents and Settings\MaryT\Desktop\animation\ag25_animation.pro"

Can you let me know what is wrong with it, because I really do not
know. I have four files to animate, and I want the size of the images
to be 80x80.
THank you again,
MaryT
-----------------------------------------------
; Set up XInterAnimate

XInteranimate, Set[80, 80, 4], /Showload

; Open the data sets. Put flow3 vector plots in the
; XInterAnimate window and take a snap-shot of them.

FOR j=0,3 DO BEGIN
filename = 'Iteration' + StrTrim(j,2) + '.out'
OpenR, lun, filename, /Get_Lun
A = FltArr(7,49L*49L*5L)
ReadF, lun, A
Free_Lun, lun

;create 3 dimensional arrays to hold vector data.
;the indices will be Velocity(x,y,z)

Vx=fltarr(49L,49L,5L)
Vy=fltarr(49L,49L,5L)
Vz=fltarr(49L,49L,5L)
R=fltarr(49L,49L,5L)

For i = 0L, 12004L Do Begin

Vx(A(0,i)-1,A(1,i)-1,A(2,i)-1) = A(3,i)
Vy(A(0,i)-1,A(1,i)-1,A(2,i)-1) = A(4,i)
Vz(A(0,i)-1,A(1,i)-1,A(2,i)-1) = A(5,i)
R(A(0,i)-1,A(1,i)-1,A(2,i)-1) = A(6,i)

Endfor

Scale3, xr=[Min(Vx), Max(Vx)], $
yr=[Min(Vy), Max(Vy)], $
zr=[Min(Vz), Max(Vz)], $
AX=50, AZ=50

posx=A[*,0]
posy=A[*,1]
posz=A[*,2]

Flow3, Vx, Vy, Vz,$
SX=posx,SY=posy,SZ=posz, $
ARROWSIZE=.0100

;plots a cubical shape, vectors should appear inside this cube

PLOTS, [0,50], [0,0], [0,0], /T3D,color=200,line=9
PLOTS, [0,0], [0,50], [0,0], /T3D,color=200,line=9
PLOTS, [0,0], [0,0], [0,32], /T3D,color=200
PLOTS, [0,50], [0,0], [32,32], /T3D,color=200
PLOTS, [0,50], [50,50], [32,32], /T3D,color=200
PLOTS, [0,0], [50,50], [32,0], /T3D,color=200
PLOTS, [50,50], [50,0], [0,0], /T3D,color=200
PLOTS, [50,0], [50,50], [0,0], /T3D,color=200
PLOTS, [50,50], [50,50], [0,32], /T3D,color=200
PLOTS, [50,50], [0,0], [32,0], /T3D,color=200
PLOTS, [50,50], [50,0], [32,32], /T3D,color=200
PLOTS, [50,50], [50,0], [32,32], /T3D,color=200
PLOTS, [0,0], [0,50], [32,32], /T3D,color=200

Xinteranimate,Frame=j,window=!D.Window

Endfor

Xinteranimate

End

Report message to a moderator

[Message index]

		Animation By: Neil Winrow on Tue, 19 August 1997 00:00
		Re: animation By: David Fanning on Mon, 23 August 2004 10:38
		Re: animation By: mary2747102 on Mon, 23 August 2004 17:16
		Re: animation By: David Fanning on Mon, 23 August 2004 10:23
		Re: animation By: mary2747102 on Wed, 25 August 2004 10:28
		Re: animation By: David Fanning on Wed, 25 August 2004 11:24
		Re: animation By: David Fanning on Wed, 25 August 2004 08:49
		Re: animation By: mary2747102 on Wed, 25 August 2004 08:43
		Re: animation By: David Fanning on Mon, 23 August 2004 19:13

Previous Topic:	Re: Bug with object graphics, app_scroll and the mouse in 6.1 under Windows.
Next Topic:	xinteranimate with PLOTS and FLOW3 output

-=] Back to Top [=-

[ Syndicate this forum (XML) ] [

] [

]

Current Time: Sun Oct 12 19:25:10 PDT 2025

Total time taken to generate the page: 1.12694 seconds