40 lines
1.3 KiB
Scheme
40 lines
1.3 KiB
Scheme
|
(define (build-ngon n)
|
||
|
|
(let ((p (build-polygons n 'polygon)))
|
||
|
|
(with-primitive p
|
||
|
|
(pdata-index-map!
|
||
|
|
(lambda (i p)
|
||
|
|
(let ((a (* (/ i n) (* 2 3.141))))
|
||
|
|
(vector (cos a) (sin a) 0)))
|
||
|
|
"p")
|
||
|
|
(pdata-map!
|
||
|
|
(lambda (t p)
|
||
|
|
(vsub (vmul p 0.5) (vector 0.5 0.5 0)))
|
||
|
|
"t" "p"))
|
||
|
|
p))
|
||
|
|
|
||
|
|
(define (binarify n)
|
||
|
|
(pdata-index-map!
|
||
|
|
(lambda (i p)
|
||
|
|
(let ((c (arithmetic-shift 1 (inexact->exact i))))
|
||
|
|
(when (not (zero? (bitwise-and (inexact->exact n) c)))
|
||
|
|
(let ((pos (vtransform (vmul (vadd p (pdata-ref "p" (+ i 1))) 0.5) (get-transform))))
|
||
|
|
(with-state
|
||
|
|
(hint-none)
|
||
|
|
(hint-wire)
|
||
|
|
(translate pos)
|
||
|
|
(scale 0.1)
|
||
|
|
(build-ngon 10))))
|
||
|
|
p))
|
||
|
|
"p"))
|
||
|
|
|
||
|
|
(clear)
|
||
|
|
|
||
|
|
(for ((i (in-range 0 64)))
|
||
|
|
(with-primitive (with-state
|
||
|
|
(translate (vmul (vector (modulo i 8) (quotient i 8) 0) 2))
|
||
|
|
(hint-none)
|
||
|
|
(hint-wire)
|
||
|
|
(hint-unlit)
|
||
|
|
(build-ngon 6))
|
||
|
|
(binarify i)))
|