mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-20 21:27:52 -04:00
135 lines
4.6 KiB
Common Lisp
135 lines
4.6 KiB
Common Lisp
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; name: lights-h.gc
|
|
;; name in dgo: lights-h
|
|
;; dgos: ENGINE, GAME
|
|
|
|
;; It seems like some of these are unused.
|
|
;; The commonly used lights are vu-lights and light-group.
|
|
|
|
;; NOTE - for editable
|
|
(declare-type light-sphere structure)
|
|
(declare-type light-hash basic)
|
|
(define-extern lookup-light-sphere-by-name (function string light-hash light-sphere))
|
|
;; NOTE - for editable-player
|
|
(define-extern update-light-hash (function light-hash none))
|
|
(define-extern reset-light-hash (function light-hash none))
|
|
|
|
;; DECOMP BEGINS
|
|
|
|
;; this type represents the lights that can be sent to the VU for merc (and maybe generic?) rendering.
|
|
;; it contains 3 directional lights and an ambient light.
|
|
;; Note that the data is transposed to be faster for use in the VU code.
|
|
;; the w components are unused for lighting information - you can put whatever you want in them...
|
|
(deftype vu-lights (structure)
|
|
((direction vector 3 :inline :offset-assert 0)
|
|
(color vector 3 :inline :offset-assert 48)
|
|
(ambient vector :inline :offset-assert 96)
|
|
(fade-int uint32 :offset 44)
|
|
(fade-flags uint32 :offset 28)
|
|
)
|
|
:method-count-assert 9
|
|
:size-assert #x70
|
|
:flag-assert #x900000070
|
|
)
|
|
|
|
;; a single directional light.
|
|
(deftype light (structure)
|
|
((direction vector :inline :offset-assert 0)
|
|
(color rgbaf :inline :offset-assert 16)
|
|
(extra vector :inline :offset-assert 32)
|
|
(level float :offset 32)
|
|
(luminance float :offset 40)
|
|
(priority float :offset 44)
|
|
(bytes uint8 4 :offset 36)
|
|
(mask uint16 :offset 36)
|
|
(palette-index int8 :offset 39)
|
|
)
|
|
:method-count-assert 9
|
|
:size-assert #x30
|
|
:flag-assert #x900000030
|
|
)
|
|
|
|
;; new jak 2 light, is applied to stuff in the sphere.
|
|
(deftype light-sphere (structure)
|
|
((name string :offset-assert 0)
|
|
(bsphere vector :inline :offset-assert 16)
|
|
(direction vector :inline :offset-assert 32)
|
|
(color vector :inline :offset-assert 48)
|
|
(decay-start float :offset 4)
|
|
(ambient-point-ratio float :offset 8)
|
|
(brightness float :offset 12)
|
|
(bytes uint8 4 :offset 60)
|
|
(mask uint16 :offset 60)
|
|
(palette-index int8 :offset 63)
|
|
)
|
|
:method-count-assert 9
|
|
:size-assert #x40
|
|
:flag-assert #x900000040
|
|
)
|
|
|
|
;; hash bucket for fast "which light am I in?" checks.
|
|
(deftype light-hash-bucket (structure)
|
|
((index uint16 :offset-assert 0)
|
|
(count uint16 :offset-assert 2)
|
|
)
|
|
:pack-me
|
|
:method-count-assert 9
|
|
:size-assert #x4
|
|
:flag-assert #x900000004
|
|
)
|
|
|
|
(deftype light-hash (basic)
|
|
((num-lights uint16 :offset-assert 4)
|
|
(num-indices uint16 :offset-assert 6)
|
|
(num-buckets uint16 :offset-assert 8)
|
|
(bucket-step uint8 2 :offset-assert 10)
|
|
(base-trans vector :inline :offset-assert 16)
|
|
(axis-scale vector :inline :offset-assert 32)
|
|
(dimension-array vector4w :inline :offset-assert 48)
|
|
(bucket-array (inline-array light-hash-bucket) :offset-assert 64)
|
|
(index-array pointer :offset-assert 68)
|
|
(light-sphere-array (inline-array light-sphere) :offset-assert 72)
|
|
)
|
|
:method-count-assert 9
|
|
:size-assert #x4c
|
|
:flag-assert #x90000004c
|
|
)
|
|
|
|
(deftype light-hash-work (structure)
|
|
((ones vector4w :inline :offset-assert 0)
|
|
)
|
|
:method-count-assert 9
|
|
:size-assert #x10
|
|
:flag-assert #x900000010
|
|
)
|
|
|
|
(define *light-hash* (the-as light-hash #f))
|
|
|
|
(defmethod print light ((obj light))
|
|
(format
|
|
#t
|
|
"#<light [~F] ~F ~F ~F "
|
|
(-> obj extra x)
|
|
(-> obj direction x)
|
|
(-> obj direction y)
|
|
(-> obj direction z)
|
|
)
|
|
(format #t "~F ~F ~F @ #x~X>" (-> obj color x) (-> obj color y) (-> obj color z) obj)
|
|
obj
|
|
)
|
|
|
|
;; jak1-style 3x directional + ambient lighting.
|
|
(deftype light-group (structure)
|
|
((dir0 light :inline :offset-assert 0)
|
|
(dir1 light :inline :offset-assert 48)
|
|
(dir2 light :inline :offset-assert 96)
|
|
(ambi light :inline :offset-assert 144)
|
|
(lights light 4 :inline :offset 0)
|
|
)
|
|
:method-count-assert 9
|
|
:size-assert #xc0
|
|
:flag-assert #x9000000c0
|
|
)
|