That is nice Malte, thanks.

-=>JB<=-



On Feb 13, 2010, at 2:23 PM, 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

Love,

Malte_______________________________________________
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


_______________________________________________
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