blob: cd440f746ee328e7b3d0b3070a9feee77d8129cd (
about) (
plain)
1
2
3
4
5
6
7
8
|
(define triangles (make-list 10 (triangle 40 30)))
(apply hc-append ; see combinators
(map (lambda (triangle)
(fill (rotate (colorize triangle (random-color))
(random 360))
(random-color)))
triangles))
|