mirror of
https://github.com/open-goal/jak-project
synced 2026-07-30 16:04:33 -04:00
ManDude
a626b6b60d
  (The "Custom" option does not do anything right now.)
44 lines
773 B
Common Lisp
44 lines
773 B
Common Lisp
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
#|
|
|
|
|
Additional PC port specific file for overriding/expanding the progress menu
|
|
This gives us more freedom to write code how we want.
|
|
|
|
|#
|
|
|
|
|
|
(deftype progress-global-state-pc (basic)
|
|
((decoration-draw-time uint64)
|
|
|
|
(display-mode-choice-index int8)
|
|
|
|
(aspect-ratio-choice-index int8)
|
|
)
|
|
)
|
|
|
|
|
|
(defmacro when-not-drawn-decoration (&rest body)
|
|
`(when (> (get-integral-current-time) (-> *progress-state-pc* decoration-draw-time))
|
|
,@body
|
|
(set! (-> *progress-state-pc* decoration-draw-time) (get-integral-current-time))))
|
|
|
|
|
|
(deftype menu-display-mode-option (menu-option)
|
|
()
|
|
)
|
|
|
|
|
|
(deftype menu-aspect-ratio-pc-option (menu-option)
|
|
()
|
|
)
|
|
|
|
|
|
(deftype menu-on-off-vsync-option (menu-on-off-option)
|
|
()
|
|
)
|
|
|
|
|
|
|