groworld/plant-eyes/ribbontest.scm

14 lines
245 B
Scheme
Raw Normal View History

2009-06-25 10:18:37 +00:00
(clear)
(clear-colour 0.5)
(define p (build-ribbon 20))
(with-primitive p
(translate (vector 1 0 0))
(pdata-map!
(lambda (p)
(srndvec))
"p")
(pdata-map!
(lambda (w)
0.01)
"w"))