POV-Ray : Newsgroups : povray.binaries.animations : wripple (124k bup) : Re: wripple (124k bup) Server Time
20 Jul 2024 11:19:21 EDT (-0400)
  Re: wripple (124k bup)  
From: Remco de Korte
Date: 1 Feb 2001 11:23:01
Message: <3A798CFB.7C1649A3@xs4all.nl>
Marc-Hendrik Bremer wrote:
> 
> Very nice! There is sometimes (not at every loop) a little flicker while
> looping in the ActiveMovie-Player, but that is probably M$'s fault.
> Could you post the source, please?
> 
> BTW: There is a tutorial of making earth-like moons (ehm, or moon-like moons
> ... well, you know what I mean) at www.xenoarch.com and he adds craters as
> well. Perhaps it's of help for you.
> 
> Marc-Hendrik

Thank you. I know about the loop-problem but was hoping there was a way to avoid
it when encoding the aniamtion.

The source is small enough to post here I guess:

#$rr=seed(77);

$t1=4+rand(rr)*8+rand(rr)*clock;
$t2=4+rand(rr)*8+rand(rr)*clock;
$r1=4+4*sin(clock*pi/36);
$r2=4+4*cos(clock*pi/36);

$vv=4+sin(clock*pi/36)*cos(clock*pi/36);

$pw=4;
$ph=3;
$f1=1+sin(t1*pi*r1/16);
$f2=1+cos(t2*pi*r2/12);


isosurface{
  function{
    (y*(
      1+sin(vv*(x+z)*pi/pw*sin(x*f1*pi/ph))/2
      +
      1+cos(vv*z*pi/ph*cos(z*f2*pi/pw))/2
    ))
   } 
  threshold 1 sign 1
  bounded_by{ box{<-12,-12,-8><12,12,12>} }
  pigment{rgb 2} finish{phong .7 phong_size 120  
  brilliance 4
  }
}

I got the funny stuff with all the variables and sin/cos from a screensaver I
was working on. It's far easier to test this out in a simple program then as it
is with an isosurface in povray.
I doN0t know much about the isosurface-settings as I'm just beginning on that.

Thank you for the link to the tutorial, I'll go check it out right away.

Cheers!

Remco
http://www.xs4all.nl/~remcodek/screensaver.html


Post a reply to this message

Copyright 2003-2023 Persistence of Vision Raytracer Pty. Ltd.