;;; -*- mode: Lisp; Syntax: Common-Lisp; -*-
;;;
;;; Copyright (c) 2009 by the authors.
;;;
;;; See LICENCE for details.

(in-package :hu.dwim.dises.test)

(deftype 2d ()
  'complex)

(defun 2d (x y)
  (complex x y))

(defun 2d-x (v)
  (realpart v))

(defun 2d-y (v)
  (imagpart v))

(defun sqr (number)
  (* number number))

(defun 2d-length (v)
  (sqrt (+ (sqr (2d-x v))
           (sqr (2d-y v)))))

(defun 2d-distance (v1 v2)
  (2d-length (- v1 v2)))

(defun 2d-normalize (v)
  (/ v (2d-length v)))