![]() |
|
![]() |
|||||||||||
![]() |
![]() |
||||||||||||
Five Cubes Text from E M Cundy and A P Rollett - Mathematical Models (Third Edition).
The bibliography seems to indicate (non-definitively) that the referenced work is H S M Coxeter - Regular Polytopes. Anyway, I had a go at implementing this solid in Fluxus, and after an hour of head-scratching and scribbling to figure out the trigonometry, this was the result:
(clear) (define A (* 90 (atan (* 2 (- 0.5 (/ (- (sqrt 5) 2) (- 3 (sqrt 5)))))))) (scale (vector 5 5 5)) (push) (rotate (vector 0 0 0)) (rotate (vector A 0 0)) (colour (vector 1 0 0)) (build-cube) (pop) (push) (rotate (vector 0 72 0)) (rotate (vector A 0 0)) (colour (vector 1 1 0)) (build-cube) (pop) (push) (rotate (vector 0 144 0)) (rotate (vector A 0 0)) (colour (vector 0 1 0)) (build-cube) (pop) (push) (rotate (vector 0 -144 0)) (rotate (vector A 0 0)) (colour (vector 0 1 1)) (build-cube) (pop) (push) (rotate (vector 0 -72 0)) (rotate (vector A 0 0)) (colour (vector 0 0 1)) (build-cube) (pop) Post a comment in response: |
| © 2002-2008. Blurty Journal. All rights reserved. |