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.
24 lines
706 B
24 lines
706 B
(in-package :pong.client) |
|
|
|
(defun main () |
|
(let* ((last-time nil) |
|
(current-time (get-internal-real-time))) |
|
(r:with-window (800 600 "Pariatech's Pong") |
|
(gui:with-gui |
|
(open-main-menu) |
|
|
|
(r:set-config-flags r:+flag-window-resizable+) |
|
(r:set-target-fps 60) |
|
(r:set-exit-key 0) |
|
(loop |
|
until (or (r:window-should-close) (scene-should-close *scene*)) |
|
do (setf last-time current-time) |
|
(setf current-time (/ (get-internal-real-time) internal-time-units-per-second)) |
|
|
|
(let ((timelapse (- current-time last-time))) |
|
(on-update *scene* timelapse)) |
|
(r:with-drawing |
|
(r:clear-background r:+gray+) |
|
(on-draw *scene*) |
|
(r:draw-fps 20 20))))))) |
|
|
|
|