20 lines
737 B
Common Lisp
20 lines
737 B
Common Lisp
(in-package #:flight-sim)
|
|
|
|
(defclass motion ()
|
|
((velocity :initarg :velocity :accessor velocity :initform (vector 0 0 0))
|
|
(acceleration :initarg :acceleration :accessor acceleration :initform (vector 0 0 0))
|
|
(jerk :initarg :jerk :accessor jerk :initform (vector 0 0 0))))
|
|
|
|
|
|
(defclass body ()
|
|
((motion :initarg :motion :accessor motion :initform (make-instance 'motion))
|
|
(coords :initarg :coords :accessor coords :initform (vector 0 0 0))
|
|
(mass :initarg :mass :accessor mass :initform 0.0)
|
|
(angles :initarg :angles :accessor angles :initform (vector 0 0 0))))
|
|
|
|
|
|
(defclass force ()
|
|
((newtons :initarg :newtons :accessor newtons :initform 0)
|
|
(direction :initarg :direction :accessor direction :initform (vector))))
|
|
|