/examples/boids/pt-lib/3d/source.scm

 1
 2;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 3
 4(define (pt x y z)
 5  (vector 'pt x y z))
 6
 7(define (z p) (vector-ref p 3))
 8
 9(define pt-z z)
10
11;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
12