Hallo und guten Abend,




Dieser Spline beschreibt den Radius des Blattes:

#declare myspline =
spline{
	natural_spline
	1 <0.000000,1.100000,0>,
	2 <0.131180,0.833933,0>,
	3 <0.213168,0.602024,0>,
	4 <0.224881,0.358404,0>,
	5 <0.152263,0.161633,0>,
	6 <0.000000,0.000000,0>,
}




// Blattumriss
#declare i=6;
#while (i>0)
  sphere { < myspline(i) ,0.005
    pigment { rgb <0.1,0.5,0.45> }
  }
  sphere { <-myspline(i).x,myspline(i).y,myspline(i).z> ,0.005
    pigment { rgb <0.1,0.5,0.45> }
  }
  #declare i=i-0.01;
#end


zu verwirklichen. Die Punkte A und B sind relativ einfach abzuleiten. 
Punkt C bereitet mir Kopfschmerzen, wie man sieht:-)



#declare i=6;
#while (i>0)
  triangle { < myspline(i).x, myspline(i).y,  myspline(i).z> // A
             <-myspline(i).x, myspline(i).y,  myspline(i).z> // B
             < myspline(i).x, myspline(i+1).y,myspline(i).z> // C
    pigment { color <0.4,1,0.5> }
  }
  #declare i=i-0.01;
#end

Post a reply to this message

> Hallo und guten Abend,
>
dito



>

Deine Idee ein Triangle-Mesh zu generieren ist sicherlich
interessant aber auch recht aufwendig und ich denke auch




#declare myspline = spline{   //  < your spline
  natural_spline
  1 <0.000000,1.100000,0>,
  2 <0.131180,0.833933,0>,
  3 <0.213168,0.602024,0>,
  4 <0.224881,0.358404,0>,
  5 <0.152263,0.161633,0>,
  6 <0.000000,0.000000,0>,
}

#declare SplinePoints = 6;
#declare Precission = 2;   //  1,2,4,8,16 ...

#declare PolyPoints = SplinePoints*Precission*2;

polygon {
  PolyPoints
  #declare I = 0;
  #while (I < SplinePoints)
    <-myspline(I).x, myspline(I).y>
    #declare I=I+(1/Precission);
  #end
  #while (I>0)
    <myspline(I).x, myspline(I).y>
    #declare I=I-(1/Precission);
  #end

  pigment {rgb <0,1,0>}
}

Ich habe das jetzt nicht ausprobiert aber prinzipiell sollte es so

Spline ausreichen. Mit der Variable Precission kannst du die
Anzahl der Polygonpunkte und somit die Genauigkeit der
Interpolation bestimmen.
Falls du das Blatt aber 3-dimensional verdrehen oder rollen
willst solltest du bei bicubic_patch 6.5.2.1 nachlesen. Kann


so long and good luck
-Ive

Post a reply to this message

Hallo Ive,

> Deine Idee ein Triangle-Mesh zu generieren ist sicherlich
> interessant aber auch recht aufwendig und ich denke auch



die ich mir vorstellen kann:-)



[script..]

> Ich habe das jetzt nicht ausprobiert aber prinzipiell sollte es so

> Spline ausreichen.


dritte Dimmension bewegen sollte, hatte ich diesen 3D-Spline
vorgegeben.

> Falls du das Blatt aber 3-dimensional verdrehen oder rollen
> willst solltest du bei bicubic_patch 6.5.2.1 nachlesen. Kann


Mit dem bicubic_patch bekomme ich das noch nicht hin. Da wird
zwischen unsichtbaren Objekten und seltsamen Fabelwesen alles

um ein Beispiel zu finden.

Gruss Petra

Post a reply to this message

Petra,

http://members.home.nl/seedseven/

Hier findest du eine zip-Datei mit einigen macros und include-files. Mit 
"coons.inc" kannst du dass Blatt erzeugen, brauchst dafuer aber vier 
splines annstatt von einem. Mit die vier Splines definierst du den Umriss 
des Blattes in 3D.

Ingo

Post a reply to this message

Hi Ingo,

> http://members.home.nl/seedseven/
> Hier findest du eine zip-Datei mit einigen macros und include-files.



Damit lassen sich so viele Dinge herstellen, das ich mein
Project "Blatt" vollkommen vergessen habe;-)


Gruss Petra

PS: Schau mal in Param.inc Zeile 156 ")" und
in p_steiner.pov Zeile 11-13. "^2".

Post a reply to this message

Thank you. :o)

--
A+

Ferdinand

Post a reply to this message

> Damit lassen sich so viele Dinge herstellen, das ich mein
> Project "Blatt" vollkommen vergessen habe;-)

:) Viel Spass!

> PS: Schau mal in Param.inc Zeile 156 ")" und
> in p_steiner.pov Zeile 11-13. "^2".
 
Ooops, das sollte so aussehen, 

  //steiner
  #declare F1= function(u,v){2*u*cos(v)*(pow((1-pow(u,2)),0.5))}
  #declare F2= function(u,v){2*u*sin(v)*(pow((1-pow(u,2)),0.5))}
  #declare F3= function(u,v){1-2*(pow(u,2))*(pow(cos(v),2))}      

und es gab auch noch ein kleiner Fehler in param.inc.

Site ist "updated".

Ingo

Post a reply to this message

> Thank you. :o)

Oha hoppla. My head seems only to the hair cut to be there.

Petra

Post a reply to this message