(define (make-point x y)
  (make-w-vector (list x y)))
(define (abcis point)
  (coordinate 1 point))
(define (ordinaat point)
  (coordinate 2 point))
;midpoint moet geen haar veranderen...