@@ -9,4 +9,14 @@ ;; golden ratio, apparently. (* inner-radius (+ 1 (/ (+ 1 (Math/sqrt 5)) 2)))))) -(draw-pentagram 15) \ No newline at end of file +(defn draw-hexagram [inner-radius] + (def-tree [(window) "6 points! Whee!"] + (star 6 inner-radius + ;; ratio between the inner and outer radius is 1 + + ;; golden ratio, apparently. + (* inner-radius (Math/sqrt 3))))) + +(draw-pentagram 15) + +(originate [(* 15 (+ 1 (/ (+ 1 (Math/sqrt 5)) 2))) 0 0] + (draw-hexagram 10)) \ No newline at end of file examples/pentagram.clj 488b50b2f52e4514f69040526070d76b7d086b7e Andreas Fuchs asf@boinkor.net http://github.com/antifuchs/aoi-swank-plugin/commit/f7d52ffeddc106f49b319691bde4005599c57055 f7d52ffeddc106f49b319691bde4005599c57055 2009-03-31T08:40:13-07:00 2009-03-31T08:40:13-07:00 Add a hexagram(?) to the pentagram example. 37924eacd0cc015a8b0906bf36bd5d76215a1449 Andreas Fuchs asf@boinkor.net