[REBOL] Re: Beziere curve example
From: james:mustard at: 16-Jan-2003 22:49
A simple way to add points to a single bezier is to use an image colour sampling like the following: bkg: box black 400x400 feel [ engage: func [f a e][ if a = 'down [ if (pick to-image bkg e/offset/x + ((e/offset/y - 1) * f/size/x)) 255.255.255.0 [add-a-point] ] ] ] The downside to this method is that you are restricted to 16777216 colours... :) James.