You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
42 lines
824 B
42 lines
824 B
(defpackage :pong.game |
|
(:use :cl) |
|
(:local-nicknames (:v :3d-vectors)) |
|
(:export #:paddle |
|
#:ball |
|
#:state |
|
#:game |
|
#:on-update |
|
#:on-init |
|
#:handle-action |
|
#:launch-ball |
|
#:random-launch-ball |
|
#:game-state |
|
#:state-timestamp |
|
#:state-left-paddle |
|
#:state-right-paddle |
|
#:state-left-score |
|
#:state-right-score |
|
#:state-ball |
|
#:state-bounces |
|
#:state-left-player |
|
#:state-right-player |
|
#:ball-xy |
|
#:ball-vxy |
|
#:paddle-y |
|
#:paddle-vy |
|
#:+paddle-speed+ |
|
#:+paddle-height+ |
|
#:+paddle-width+ |
|
#:+max-launch-angle+ |
|
#:+ball-radius+ |
|
#:action-timestamp |
|
#:start-game-action |
|
#:start-down-action |
|
#:stop-down-action |
|
#:start-up-action |
|
#:stop-up-action |
|
#:apply-action |
|
#:name |
|
#:state-paused |
|
#:pause |
|
#:resume))
|
|
|