mirror of
https://github.com/open-goal/jak-project
synced 2026-06-25 10:12:14 -04:00
water
47 lines
1.1 KiB
Common Lisp
47 lines
1.1 KiB
Common Lisp
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; name: bounding-box-h.gc
|
|
;; name in dgo: bounding-box-h
|
|
;; dgos: GAME, ENGINE
|
|
|
|
;; Types related to bounding boxes.
|
|
|
|
;; floating point bounding box.
|
|
(deftype bounding-box (structure)
|
|
((min vector :inline :offset-assert 0)
|
|
(max vector :inline :offset-assert 16)
|
|
)
|
|
:method-count-assert 16
|
|
:size-assert #x20
|
|
:flag-assert #x1000000020
|
|
(:methods
|
|
(dummy-9 () none 9)
|
|
(dummy-10 () none 10)
|
|
(dummy-11 () none 11)
|
|
(dummy-12 () none 12)
|
|
(dummy-13 () none 13)
|
|
(dummy-14 () none 14)
|
|
(dummy-15 () none 15)
|
|
)
|
|
)
|
|
|
|
;; integer (word) bounding box.
|
|
(deftype bounding-box4w (structure)
|
|
((min vector4w :inline :offset-assert 0)
|
|
(max vector4w :inline :offset-assert 16)
|
|
)
|
|
:method-count-assert 9
|
|
:size-assert #x20
|
|
:flag-assert #x900000020
|
|
)
|
|
|
|
;; bounding both that has both a box and box4w.
|
|
(deftype bounding-box-both (structure)
|
|
((box bounding-box :inline :offset-assert 0)
|
|
(box4w bounding-box4w :inline :offset-assert 32)
|
|
)
|
|
:method-count-assert 9
|
|
:size-assert #x40
|
|
:flag-assert #x900000040
|
|
) |