The turtle polybuilder is an experimental way of building polygonal objects using a logo style turtle in 3D space. As you drive the turtle around you can place vertices and build shapes procedurally. The turtle can also be used to deform existing polygonal primitives, by attaching it to objects you have already created.
This script simply builds a single polygon circle, by playing the age old turtle trick of looping a function that moves a bit, turns a bit...
(clear) (define (build n) (turtle-reset) (turtle-prim 4) (build-loop n n) (turtle-build)) (define (build-loop n t) (turtle-turn (vector 0 (/ 360 t) 0)) (turtle-move 1) (turtle-vert) (if (< n 1) 0 (build-loop (- n 1) t))) (backfacecull 0) (hint-unlit) (hint-wire) (wire-colour (vector 0 0 0)) (line-width 4) (build 10)
For a more complex example, just modify the
(build-loop) function as so:
(define (build-loop n t) (turtle-turn (vector 0 (/ 360 t) 0)) (turtle-move 1) (turtle-vert) (if (< n 1) 0 (begin ; add another call to the recursion (build-loop (- n 1) t) (turtle-turn (vector 0 0 45)) ; twist a bit (build-loop (- n 1) t))))
There has been error in communication with Booktype server. Not sure right now where is the problem.
You should refresh this page.