Skip to content


Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

20 lines (13 sloc) 0.737 kb
(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))))
Jump to Line
Something went wrong with that request. Please try again.