diff options
| author | colin <colin@cicadas.surf> | 2024-12-14 08:36:23 -0800 |
|---|---|---|
| committer | colin <colin@cicadas.surf> | 2024-12-14 08:36:23 -0800 |
| commit | 3a2217263d581be9a7f629b10d75aa8e3d581890 (patch) | |
| tree | 23f5f0a5449a06473aba2ec7914a3c2193823a10 /examples/08-pong.lisp | |
| parent | 03cdbb6a15e130a012377ab8d54074b6864e3480 (diff) | |
| parent | 8a51ba81c7df6b0b6dab7cf4b35b5ca084b653ba (diff) | |
Merge branch 'refactor-with-def'
Diffstat (limited to 'examples/08-pong.lisp')
| -rw-r--r-- | examples/08-pong.lisp | 25 |
1 files changed, 17 insertions, 8 deletions
diff --git a/examples/08-pong.lisp b/examples/08-pong.lisp index 574eacd..ecc529b 100644 --- a/examples/08-pong.lisp +++ b/examples/08-pong.lisp @@ -2,21 +2,30 @@ (defpackage #:ww.examples/8 (:use #:cl) - (:export #:start) - (:import-from #:defclass-std #:defclass/std)) + (:export #:start)) (in-package #:ww.examples/8) ;;; CLASSES -(defclass/std solo-pong (ww::application) - ((paddle ball game-over intro-text))) +(def:class solo-pong (ww::application) + (paddle ball game-over intro-text)) -(defclass/std mobile () - ((dx dy dr :std 0))) +;; (defclass/std solo-pong (ww::application) +;; ((paddle ball game-over intro-text))) -(defclass/std paddle (ww::image mobile) ()) -(defclass/std ball (ww::image mobile) ()) +(def:class mobile () + (dx dy dr :initform 0)) + + +;; (defclass/std mobile () +;; ((dx dy dr :std 0))) + +(def:class paddle (ww:image mobile)) +(def:class ball (ww:image mobile)) + +;; (defclass/std paddle (ww::image mobile) ()) +;; (defclass/std ball (ww::image mobile) ()) ;;; UTILITY FUNCTIONS |