POV-Ray : Newsgroups : povray.advanced-users : Grass Again : Grass Again Server Time
29 Jul 2024 22:24:48 EDT (-0400)
  Grass Again  
From: Mick Hazelgrove
Date: 20 Sep 2000 13:34:47
Message: <39c8f537@news.povray.org>
Hi

I wouldn't dream of calling you a trouble maker warp :) honest!  It's me
that causes the trouble, twas always that way I fear.

Herre's the relevant section of the code. The points go off in the wrong
direction.

#macro
akeBlade( RotX,RotY,segLength,NoSegs,XPos,ZPos,SF,Dim,bladeW,foldDepth)

#local P1=vaxis_rotate(<bladeW+XPos,0,0>*SF,y,RotY);
#local PM=vaxis_rotate(<0+XPos,0,foldDepth>*SF,y,RotY);
#local P2=vaxis_rotate(<-bladeW+XPos,0,0>*SF,y,RotY);
#local RVec = vnormalize(P1-P2);

#local Ct = 0;

           #while(Ct<NoSegs)

                   #local N1
=vaxis_rotate(<P1.x,P1.y+(segLength*SF),P1.z>*Dim,RVec,RotX);
                    #local NM
=vaxis_rotate(<PM.x,PM.y+(segLength*SF),PM.z>*Dim,RVec,RotX);
                   #local N2
=vaxis_rotate(<P2.x,P2.y+(segLength*SF),P2.z>*Dim,RVec,RotX);

                      file://Left side

#write(filehandle,"triangle{",P1,",",PM,",",N1,"texture{GrassTex}}\n")

#write(filehandle,"triangle{",PM,",",N1,",",NM,"texture{GrassTex}}\n")
                      file://Right side

#write(filehandle,"triangle{",PM,",",P2,",",N2,"texture{GrassTex}}\n")

#write(filehandle,"triangle{",PM,",",NM,",",N2,"texture{GrassTex}}\n")
                                 file://Points

                            #local Ct=Ct+1;
                            #local P1 = N1;
                            #local PM = NM;
                            #local P2 = N2;
file://This is the problem section where I am tyrying to add a point to the
grass

           /* #if(Ct=NoSegs)
                 #local EPt
=vaxis_rotate(<NM.x,NM.y+(segLength*SF)*Dim,NM.z>,RVec,RotX);

#write(filehandle,"triangle{",P1,",",PM,",",EPt,"texture{GrassTex}}\n")

#write(filehandle,"triangle{",PM,",",EPt,",",P2,"texture{GrassTex}}\n")
           #end*/

          #end//while loop

#end//macro





----------------------------------------------------------------------------
----


Post a reply to this message

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