|
|
Bourke):
//--------------------------
#include "colors.inc"
#include "textures.inc"
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 }
//===============================
//from P. Bourke's site
//x= 2tan(t), y=2cos(t)^2, -1.1<= t <= 1.1
//===============================
//----------------------------------
#macro Blob_Agnesi(finura)
#local tt= -1.1; #local tope= 1.1;
#while (tt <= tope)
sphere { <2*tan(tt),2*pow(cos(tt),2),0> 1 , 1 }
#local tt= tt+ finura;
#end
#end
//----------------
#macro Cuc(How_many_blobs)
#local HM_Blobs_remanente = How_many_blobs ;
#local finura= 2.2/HM_Blobs_remanente;
blob {
threshold .6
Blob_Agnesi(finura)
scale 0.5
pigment { Gray*0.75 }
finish { phong .4 }
}
#end
object { Cuc (18) rotate z*105*0 translate <-8, -5, 0> }
Saludos,
----- Mensaje original -----
De: "Oleguer Vilella" <ole### [at] infonegociocom>
Grupos de noticias: povray.international
Asunto: Re: Doblar
> =================================
> #include "colors.inc"
> #include "textures.inc"
>
> 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)
> #local HM_Blobs_remanente = How_many_blobs ;
>
> 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) rotate z*105 translate <-8, -5, 0> }
> =================================
del
> medio y que los extremos me queden planos. Quiza algo como esto:
> #local yPos =
> Ampl*sin(xFreq*xCnt/xNr*2*pi)*cos(zFreq*zCnt/zNr*2*pi);
> Pero supongo que esto me lo va a doblar entero.
>
> Muchas gracias,
> Oleguer
> http://www.infonegocio.com/oleguervm
Post a reply to this message
|
|