mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-20 21:27:52 -04:00
99866cec88
- `fma-sphere` - `prim-beam-h` - `cam-start` - `ragdoll` - `light-trails-h` - `light-trails` - `menu` - `water` - `water-flow` - `hud` - `hud-classes` - `progress` - `progress-draw` --- The `get-texture` macro replaces calls to `lookup-texture-by-id` and `lookup-texture-by-id-fast`. The `defpart` macro detection was modified to print a pair like `(texture-name tpage-name)` for the texture field that gets turned into a `texture-id` constant. Only used in Jak 3 at the moment, I'll probably go through the other games at a later point.
42 lines
1.2 KiB
Common Lisp
42 lines
1.2 KiB
Common Lisp
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; name: video-h.gc
|
|
;; name in dgo: video-h
|
|
;; dgos: GAME
|
|
|
|
(define-extern set-graphics-mode (function none))
|
|
(define-extern get-video-mode (function symbol))
|
|
(define-extern get-aspect-ratio (function symbol))
|
|
(define-extern set-progressive-scan (function symbol none))
|
|
|
|
;; DECOMP BEGINS
|
|
|
|
(deftype video-params (structure)
|
|
"Parameters for the framebuffer."
|
|
((set-video-mode symbol)
|
|
(reset-video-mode symbol)
|
|
(display-fbp int32)
|
|
(relative-x-scale float :offset 16)
|
|
(display-dx int32)
|
|
(display-dy int32)
|
|
(display-sy int32)
|
|
(relative-x-scale-reciprical float)
|
|
(screen-pages-high int32)
|
|
(smode2 uint64)
|
|
)
|
|
)
|
|
|
|
|
|
(define *video-params* (new 'static 'video-params
|
|
:set-video-mode #f
|
|
:reset-video-mode #f
|
|
:display-fbp #xa4
|
|
:relative-x-scale 1.0
|
|
:display-dy 8
|
|
:display-sy #xe0
|
|
:relative-x-scale-reciprical 1.0
|
|
:screen-pages-high 13
|
|
)
|
|
)
|