(define (make-point x y z)
  (of-type 'vertex
	   (vector x y z)))

(define (make-colour r g b)
  (of-type 'colour
	   (vector r g b)))