28 lines
587 B
Common Lisp
28 lines
587 B
Common Lisp
#|
|
|
This file is a part of stoe project.
|
|
Copyright (c) 2014 Renaud Casenave-Péré (renaud@casenave-pere.fr)
|
|
|#
|
|
|
|
(in-package :cl-user)
|
|
(defpackage stoe.maths.float33
|
|
(:nicknames :float33 :f33)
|
|
(:use :cl)
|
|
(:export :float33 :mat :mat-null :mat-ident))
|
|
(in-package :stoe.maths.float33)
|
|
|
|
(deftype float33 () '(simple-array single-float (3 3)))
|
|
|
|
(defun mat (e00 e01 e02 e10 e11 e12 e20 e21 e22)
|
|
(m:mat e00 e01 e02
|
|
e10 e11 e12
|
|
e20 e21 e22))
|
|
|
|
(defun mat-null ()
|
|
(mat 0 0 0
|
|
0 0 0
|
|
0 0 0))
|
|
|
|
(defun mat-ident ()
|
|
(mat 1 0 0
|
|
0 1 0
|
|
0 0 1))
|