use-revolution Digest, Vol 5, Issue 224

[Jim Hurley]

>
>Message: 4
>Date: Thu, 26 Feb 2004 02:54:35 -0800
>From: Scott Rossi <scott at tactilemedia.com>
>Subject: [ANN] Tutti 3D
>To: How to use Revolution <use-revolution at lists.runrev.com>
>Message-ID: <BC63106B.A642%scott at tactilemedia.com>
>Content-Type: text/plain; charset="US-ASCII"
>
>Posted is a stack that demonstrates an interesting aspect of polygon
>graphics, and a way these graphics can be used to create 3D shapes and
>animations.  Be sure to read the explanation included in the stack.
>
>Tutti 3D is available on RevNet and via our Media Panel.  Enter the
>following in your message box:
>
>  go url "http://www.tactilemedia.com/tmpanel.rev"
>
>(OK, the stack name is clearly a misnomer.  The stack does not cover
>everything [tutti] 3D.  Instead, use a lazy American accent to pronounce
>'tutti' and you wind up with 'too-dee', as in 2D.  2D - 3D. Get it?...)
>
>Regards,
>
>Scott Rossi
>Creative Director
>Tactile Media, Development & Design
>-----
>E: scott at tactilemedia.com
>W: http://www.tactilemedia.com

Scott,

Dazzling! Imaginative! Great use of multiple technologies.

Putting the data into custom properties, rather than attempting to 
create the data natively on the fly, is certainly a great way to 
achieve speedy graphics. Who would have thought RunRev could produce 
such effects?

Congratulations!

Jim

P.S.

I don't know if this helps much, but you might be able to speed up 
the point rotation with the following modification. You  don't have 
to cycle through the point list twice, i.e. "repeat for each" twice.

On rotatePoly theGraphic, thePivot, theAngle
   put the points of graphic theGraphic into tPoints

   put item 1 of thePivot into xPivot
   put item 2 of thePivot into yPivot

   put empty into newPointList

   put sin(theAngle* pi/180) into S
   put cos(theAngle * pi/180) into C

   --Set points relative to pivot
    
   repeat for each line tLine in tPoints
     put (item 1 of tLine)- xPivot into theX
     put (item 2 of tLine)- yPivot into theY
     put round(C*theX+ S*theY + xPivot)& comma after rotPtlist
     put round(-S*theX + C*theY+  yPivot)after rotPtlist
     put return after rotPtList
   end repeat

   set the points of graphic theGraphic to rotPtlist

end rotatePoly