MathGroup Archive 2011

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

Search the Archive

Create a Windows 7 Screen Saver from a Mathematica Animation

  • To: mathgroup at smc.vnet.net
  • Subject: [mg123860] Create a Windows 7 Screen Saver from a Mathematica Animation
  • From: Bill <WDWNORWALK at aol.com>
  • Date: Fri, 23 Dec 2011 07:15:19 -0500 (EST)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com

Topic: Create a Windows 7 Screen Saver from a Mathematica Animation

Hi:

I have the following animation that I'd like to run as a screen saver on my Windows 7 Home Premimun PC. 

Animate[Graphics[{EdgeForm[Blue],Cyan,Disk[{0,0},.05],White,Arrowheads[Table[{0.02,p+t,Graphics[{EdgeForm[Black],Thick,Hue[2 t],Disk[{0,0},0.5],Circle[{0,0},{3,4}]}]},{p,{0,0.5}}]],GeometricTransformation[Arrow[BSplineCurve[{{-1,0},{0,-(1/4)},{1,0},{0,1/4}},SplineDegree->2,SplineClosed->True]],Table[RotationMatrix[(theta+90*t) \[Degree]],{theta,0,135,45}]]},PlotRange->All,ImageSize->{1500,900},Background->Black],{t,0,.5},RefreshRate->10,AnimationRunning->True,AnimatorElements->"Closed",Paneled->False,LabelStyle->White]

Can someone please tell me how to do that, if it's possible?


Thanks in advance,

Bill

PS. I'm using Mathematica 8.0.4. 



  • Prev by Date: Re: 4 Gb are not enough ...
  • Next by Date: Continued Fraction Form With Negative Numbers
  • Previous by thread: Re: 4 Gb are not enough ...
  • Next by thread: Re: Create a Windows 7 Screen Saver from a Mathematica Animation