Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1993
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1993

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Bug in ANIMATION???

  • To: mathgroup at yoda.physics.unc.edu
  • Subject: Re: Bug in ANIMATION???
  • From: twj
  • Date: Fri, 29 Jan 93 09:25:30 CST

Susan Rempe asks

>Why doesn't this simple code produce a movie?
>
>
>In[4]:= ani[t_]:=Point[{Sin[t],Cos[t],Sin[t]+Cos[t]}]
>
>
>In[7]:= Table[Graphics3D[ani[t]],{t,0,4}]
>
>
>Out[7]= {-Graphics3D-, -Graphics3D-, -Graphics3D-, -Graphics3D-,
>-Graphics3D-}
>
>
>In[8]:= ShowAnimation[%]
>
>
>Out[8]= ShowAnimation[{-Graphics3D-, -Graphics3D-, -Graphics3D-, >
>-Graphics3D-, -Graphics3D-}]
>
>	Is there a bug?   I am running version 2.1 on a SGI Iris.



I presume that you have first loaded the animation package

	<<Graphics`Animation`

Your machine will by default use a GL based animation program which is similar  
to Live.   This program does not support the Point primitive of Mathematica 

graphics.  You can add this by including these lines in your init.m file...


	Begin[ "Graphics`ThreeScript`private`"]

	TSBounding0[Point[g_List], min_, max_] :=
        	TSBounding1[g, min, max]

	TS0[file_, Point[g_List]] :=
        	(
        	WriteName[file, "point"] ;
        	WriteTriple[file, g]
        	)
	End[]

then you can continue...

	ani[t_]:=Point[{Sin[t],Cos[t],Sin[t]+Cos[t]}]

	Table[Graphics3D[N[ani[t]]],{t,0,4}]

	ShowAnimation[ %]
	
and produce an animation.  However the points will be very small and hard
to see.  You may do better with lines.

	ani[t_] := Line[ {{0,0,0},{Sin[t],Cos[t],Sin[t]+Cos[t]}}]

	Table[Graphics3D[N[ani[t]]],{t,0,4}]

	ShowAnimation[ %]

Alternatively you may wish to use the PostScript based animation program.
You can switch to using this by entering

	$RasterFunction = Identity

and continue with...

	ani[t_]:=Point[{Sin[t],Cos[t],Sin[t]+Cos[t]}]

	Table[
		Graphics3D[{PointSize[.05], N[ ani[t]]},
		PlotRange -> {{-1.2, 1.2},{-1.2,1.2},{-1.5,1.5}}], 

		{t,0,2Pi,Pi/8}]
		
	ShowAnimation[ %]
	
	
to produce an animation.



Tom Wickham-Jones
WRI






  • Prev by Date: Postcript -> Bitmap
  • Next by Date: Re: Lists
  • Previous by thread: Bug in ANIMATION???
  • Next by thread: math PostScript