Malte Pfaff-Brill wrote:
on mouseUp
   local tX,tY,tOutput
if there is no grc "output" then create grc "output"
      set the style of it to "curve"
   end if
   repeat with i=-2*pi to 2*pi step 0.01
      put round(item 1 of the loc of this 
cd+sin(PI+i/2)*200*(1-sin(abs(i)/2.0))*sin(abs(i))) into tX
      put round(item 2 of the loc of this 
cd+10*sqrt(20+200*(1-sin(abs(i)/2.0))*cos((i)))) into tY
      put tx,ty&cr after tOutput
   end repeat
   set the points of grc "output" to tOutput
end mouseUp

How do you DO that? I can hardly add.

Lovely, Malte.

--
Jacqueline Landman Gay         |     [email protected]
HyperActive Software           |     http://www.hyperactivesw.com
_______________________________________________
use-revolution mailing list
[email protected]
Please visit this url to subscribe, unsubscribe and manage your subscription 
preferences:
http://lists.runrev.com/mailman/listinfo/use-revolution

Reply via email to