cdo/ham
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Create define-system macro

Browse Source
This commit is contained in:
Camden Dixie O'Brien 2025-05-29 01:14:30 +01:00
parent 26d92f7d5d
commit b1eed4b019
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
simulation.lisp
View File

@ -38,3 +38,17 @@
(with-slots (running simulation-thread) sim (with-slots (running simulation-thread) sim
(setf running nil) (setf running nil)
(sb-thread:join-thread simulation-thread))) (sb-thread:join-thread simulation-thread)))
(defmacro define-simulation (name &key lagrangian coords render start params)
`(progn
(defclass ,name (simulation)
()
(:default-initargs :start ',start :params ',params))
(defmethod update ((sim ,name) dt)
(with-slots (state params) sim
(setf state ,(let ((eqns (hamilton-eqns lagrangian coords)))
(update-body eqns coords params)))))
(defmethod render ((sim ,name))
(with-slots (state) sim
(let ,(mapcar (lambda (q) `(,q (getf state ',q))) coords)
,render)))))