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