Re: Create a Windows 7 Screen Saver from a Mathematica Animation
- To: mathgroup at smc.vnet.net
- Subject: [mg123871] [mg123871] Re: Create a Windows 7 Screen Saver from a Mathematica Animation
- From: Ralph Dratman <ralph.dratman at gmail.com>
- Date: Sun, 25 Dec 2011 06:36:15 -0500 (EST)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- References: <201112231215.HAA01904@smc.vnet.net>
Nice animation! Very pleasing to look at. You can create a windows screensaver from an animation using... (... searching google... here's the first one I found:) ... http://www.softdd.com/createv/index.htm This is a screen saver maker program you can try for free. There are probably others like it. I once wrote a screen saver maker program using coupled harmonic oscillators which you could build up in complex ways by clicking and dragging. Please let me know if I can be of further assistance. Regards, Ralph Dratman On Fri, Dec 23, 2011 at 7:15 AM, Bill <WDWNORWALK at aol.com> wrote: > 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. >
- References:
- Create a Windows 7 Screen Saver from a Mathematica Animation
- From: Bill <WDWNORWALK@aol.com>
- Create a Windows 7 Screen Saver from a Mathematica Animation