Re: replace jpg with animated gif?
- To: mathgroup at smc.vnet.net
- Subject: [mg80109] Re: replace jpg with animated gif?
- From: zzzz <giarc54 at gmail.com>
- Date: Mon, 13 Aug 2007 04:24:17 -0400 (EDT)
- References: <f9mqg6$rel$1@smc.vnet.net>
On Aug 12, 4:21 am, zzzz <giar... at gmail.com> wrote: > Hi all, > This little program allows you to manipulate a photo in 3d. (thanks to > Chris Hill for viewangle tip!) > I adapted it from the "neat examples" for listplot3d in version 6. > Never satisfied, I now would like to know how to do something similar > but > with an animated gif instead of the jpeg. Is it posssible? One might > have to end up making > an animated gif of an animated gif ! Please help me in my quest for > the ultimate in > goofy programs. > ALSO, It is a pain having to edit each photo to 512x512 pixles. > does someone know a way to > make the program more flexible? I'm not really clear on the span (;;) > concept. > > Thanx everybody! Here's the program that I stupidly forgot to include in my first messege! asd = Import["buz512.jpg", "Data"]; (* pic512 is a jpg photo. It must be edited to be \ 512X512 pixels *) (*ArrayPlot[(255-asd)] prints your jpg if you want *) asd = N[asd/255.]; DynamicModule[{va = 90 Degree}, ListPlot3D[ Table[(50^2) - ((x - 0)^2) - ((y - 0)^2), {x, -5, 5, .1}, {y, -5, 5, .1}], Mesh -> None, VertexColors -> {asd[[5 ;; -5 ;; 5, 5 ;; -5 ;; 5]]}, Lighting -> "Neutral", PlotStyle -> Opacity[0.75], BoxRatios -> Automatic, ImageSize -> {400, 400}, Axes -> False, ViewAngle -> Dynamic[Module[{y = ControllerState["Y2"]}, If[Abs[y] > 0.2, va += y*0.05; va = Clip[va, {1 Degree, 179 Degree}] ]; va ] (*dynamic*)] (*Lplot3d*)] (*dmodule*)]