|
|
|
Example: Lines.eli Modified: March 5, 2000 Version: 2.0 Author: Pavel Boychev E-mail: pavel@elica.net Copyright © 2000 Elica Group |
run "geomland to rainbow :x if x < 1/4 [ output rgb_ 4*x 0 2/4-2*x ] [ if x < 2/4 [ output rgb_ 1 4*x-1 0 ] [ if x < 3/4 [ output rgb_ 3-4*x 1 4*x-2 ] [ output rgb_ (4*x-3)/2 4-4*x 1 ] ] ] end to fancy :obj make "obj.color rainbow q output obj end make [hidden] "k make "i 0 make "imax 1000 repeat :imax [ make "q i/imax make "k circle point 0 0 100*q make "s fancy line pointon k 5*360*q pointon k 10*360*q [traced] make "i i+1 ] |
|
|
|