POV-Ray : Newsgroups : povray.international :  : Re: Doblar Server Time
15 Jul 2024 13:31:28 EDT (-0400)
  Re: Doblar  
From: Oleguer Vilella
Date: 1 Sep 2004 04:09:59
Message: <413583d7@news.povray.org>


=================================
camera { location <0, 0, -23> look_at <0, 0, 0> focal_point <-15, -9, 0> }
light_source { <-5, 2, -15> color rgb <2, 2, 2> }
light_source { <10, 2, 0.> color rgb <1, 1, 1>  }
background { color White }
===============================
#macro Cuc (How_many_blobs,xSpc, zSpc, xNr, zNr, xFreq, zFreq, Ampl)
#local HM_Blobs_remanente = How_many_blobs ;

 #local xStart = -xNr/2*xSpc;
   #local zStart = -zNr/2*zSpc;

   #local xCnt = 2.9;
   #while (xCnt < xNr)
     #local zCnt = 4;
     #while (zCnt < zNr)
       #local xPos = xStart + xCnt*xSpc;
#local yPos =
Ampl*sin(xFreq*xCnt/xNr*2*pi)*cos(zFreq*zCnt/zNr*2*pi);
#local zPos = zStart + zCnt*zSpc;
object {
         How_many_blobs
         translate <xPos, yPos, zPos>
         rotate 18*x
       }
 #local zCnt = zCnt + 1;
     #end // while
     #local xCnt = xCnt + 1;
   #end // while

blob {
threshold .6
#while (HM_Blobs_remanente>0)

sphere { <0, HM_Blobs_remanente*1.2 ,0> 1 , 1 }

#local HM_Blobs_remanente = HM_Blobs_remanente-1 ;

#end
scale 0.5
pigment { Gray*0.75 }
finish { phong .4 }
}
#declare Ampl=-5;
object { Cuc (8,0) rotate z*105 translate <-8, -5, 0>  }
#end
==================================
Si alguno puede ayudarme. Muchas gracias.

Saludos,
Oleguer




news:4134eb50@news.povray.org...
> Ahora lo estoy intentando doblar, pero tampoco lo consigo...
>
> El codigo es:
> ==================================
> #macro Cuc (How_many_blobs,Ampl,xFreq,xCnt,xNr,zFreq,zCnt,zNr)
> #local HM_Blobs_remanente = How_many_blobs ;
>
> #local yPos =
> Ampl*sin(xFreq*xCnt/xNr*2*pi)*cos(zFreq*zCnt/zNr*2*pi);
>
> blob {
> threshold .6
> #while (HM_Blobs_remanente>0)
>
> sphere { <0, HM_Blobs_remanente*1.2 ,0> 1 , 1 }
>
> #local HM_Blobs_remanente = HM_Blobs_remanente-1 ;
>
> #end
> scale 0.5
> pigment { Gray*0.75 }
> finish { phong .4 }
> }
> #end
>
> object { Cuc (8, 100, 0, 2, 2, 4, 5, 5) rotate z*105 translate <-8, -5,
> >  }
>
> #declare Amplitude=20;
> ===============================

>
> Saludos,
> Oleguer
>

> news:4134b065@news.povray.org...

> la

> > membrana no me deje?
> > En ese caso entiendo que no se pueda rotar.
> >
> > Saludos,
> > Oleguer
> >

> > news:4134772b@news.povray.org...
> > >

> > > 41342c84$1@news.povray.org...
> > > > bla, bla, bla...
> > >
> > > Hola,

tampoco
> se

> > > Parece que quieras conseguir que un objeto construido con blobs
aparezca

> usar

> unos
> > > blobs a otros, sino que lo que se "pegan" son las esferas de que estan
> > > compuestos.
> > > Si lo que quieres es crear una membrana modifica el ejemplo que te
mando

> > >
> > > Saludos...
> > > B. Gimeno
> > >
> > >
> > >
> >
> >
>
>


Post a reply to this message

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