PageRenderTime 32ms CodeModel.GetById 27ms app.highlight 1ms RepoModel.GetById 0ms app.codeStats 0ms

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

http://github.com/dharmatech/abstracting
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