floss/stoe
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add accessors for vect and matrix classes to the underlying data

Browse source
This commit is contained in:
Renaud Casenave-Péré 2015-08-25 18:10:58 +02:00
parent 5e4b3241aa
commit a3cc27237b
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
maths/types.lisp
View file

@ -5,7 +5,7 @@
(uiop:define-package :stoe/maths/types
(:use :cl)
(:export #:vect #:array
(:export #:vect #:array-of
#:int2 #:int3 #:int4
#:float2 #:float3 #:float4
#:quaternion
@ -18,6 +18,7 @@
(defclass vect ()
((array :type (array * (*))
:initarg :array
:accessor array-of
:documentation "The internal representation of the vector")))
(defclass int2 (vect)
@ -46,6 +47,7 @@
:documentation "The dimensions of the matrix")
(array :type (array * (*))
:initarg :array
:accessor array-of
:documentation "The internal representation of the matrix")))
(defclass int22 (matrix)