/examples/boids/pt-lib/3d/source.scm
Scheme | 12 lines | 4 code | 6 blank | 2 comment | 0 complexity | 0916421ee27b8aed2b2b5ed2e2658d98 MD5 | raw file
Possible License(s): BSD-3-Clause
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