In order to show how to draw a gadget with a diferent coordinate system, I guess It would be nice to abstract the pattern into a word, something like:
: with-coords ( gadget x1 y1 x2 y2 quotation -- ) ... ; M: <sine-gadget> draw-gadget* ( SINE -- ) -10 10 -10 10 [ -10 10 0.5 <range> [ dup sin 2array ] map line-strip ] with-coords ; []s, Ricardo Boccato Alves. ------------------------------------------------------------------------- This SF.Net email is sponsored by the Moblin Your Move Developer's challenge Build the coolest Linux based applications with Moblin SDK & win great prizes Grand prize is a trip for two to an Open Source event anywhere in the world http://moblin-contest.org/redirect.php?banner_id=100&url=/ _______________________________________________ Factor-talk mailing list [email protected] https://lists.sourceforge.net/lists/listinfo/factor-talk
