Paste: plot word

Author: yoeljacobsen
Mode: factor
Date: Tue, 11 Nov 2008 11:57:37
Plain Text |
:: myplot ( s -- ) 
<plot> [ >integer s nth ] add-function 
0 >>x-min 
s length 1 - >>x-max 
0 >>y-min 
s 0 [ max ] reduce >integer 10 + >>y-max 
"plot" open-window ;

New Annotation

Summary:
Author:
Mode:
Body: