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.
(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)))
void
Starts building a new polygon primitive with the turtle. The type specifies the polygon face type and is one of the following: 0: triangle strip, 1: quad list, 2: triangle list, 3: triangle fan, 4: general polygon
(turtle-prim 0)
void
Creates a new vertex in the current position, or sets the current vertex if the turtle builder is attached.
(turtle-vert)
primitiveid-number
Builds the object with the vertex list defined and gives it to the renderer. Has no effect if the turtle builder is attached to a primitive.
(define mynewshape (turtle-build))
void
Moves the turtle forward in it's current orientation.
(turtle-move 1)
void
The turtle build has it's own transform stack. Push remembers the current position and orientation.
(turtle-push)
void
The turtle build has it's own transform stack. Pop forgets the current position and orientation, and goes back to the state at the last push.
(turtle-pop)
void
Rotates the turtle's orientation with the supplied euler angles (rotations in x, y and z).
(turtle-turn (vector 45 0 0))
void
Resets the current postion and rotation of the turtle to the origin.
(turtle-reset)
void
Attaches the turtle to an existing poly primitive. This means you are able to deform an existing objects points using the turtle builder.
(define myshape (build-sphere 10 10))
(turtle-attach myshape)
void
When attached, causes the turtle to skip vertices. This value may be negative, which will set the turtle to write to previous vertices.
(turtle-skip -1)
count-number
When attached, returns the current pdata index the turtle is writing to.
(display (turtle-position))(newline)
void
When attached, sets the absolute pdata index the turtle is writing to.
(turtle-seek 0)