;;-*-Lisp-*-
(in-package goal)

;; name: time-of-day-h.gc
;; name in dgo: time-of-day-h
;; dgos: GAME, ENGINE


(deftype palette-fade-control (structure)
  ((trans      vector :inline :offset-assert 0)
   (fade       float          :offset-assert 16)
   (actor-dist float          :offset-assert 20)
   )
  :method-count-assert 9
  :size-assert         #x18
  :flag-assert         #x900000018
  )

(deftype palette-fade-controls (basic)
  ((control palette-fade-control 8 :inline :offset-assert 16)
   )
  :method-count-assert 11
  :size-assert         #x110
  :flag-assert         #xb00000110
  (:methods
    (dummy-9 () none 9)
    (dummy-10 () none 10)
    )
  )

(define-perm *palette-fade-controls* palette-fade-controls
  (new 'global 'palette-fade-controls)
  )

(deftype time-of-day-proc (process)
  ((year            int32  :offset-assert 112)
   (month           int32  :offset-assert 116)
   (week            int32  :offset-assert 120)
   (day             int32  :offset-assert 124)
   (hour            int32  :offset-assert 128)
   (minute          int32  :offset-assert 132)
   (second          int32  :offset-assert 136)
   (frame           int32  :offset-assert 140)
   (time-of-day     float  :offset-assert 144)
   (time-ratio      float  :offset-assert 148)
   (star-count      int32  :offset-assert 152)
   (stars           basic  :offset-assert 156)
   (sun-count       int32  :offset-assert 160)
   (sun             basic  :offset-assert 164)
   (green-sun-count int32  :offset-assert 168)
   (green-sun       basic  :offset-assert 172)
   (moon-count      int32  :offset-assert 176)
   (moon            basic  :offset-assert 180)
   )
  :heap-base #x50
  :method-count-assert 14
  :size-assert         #xb8
  :flag-assert         #xe005000b8
  )

(deftype time-of-day-palette (basic)
  ((width  int32   :offset-assert 4)
   (height int32   :offset-assert 8)
   (pad    int32   :offset-assert 12)
   (data   int32 1 :offset-assert 16)
   )
  :method-count-assert 9
  :size-assert         #x14
  :flag-assert         #x900000014
  )

(deftype time-of-day-context (basic)
  ((active-count         uint32                :offset-assert 4)
   (interp               float                 :offset-assert 8)
   (current-interp       float                 :offset-assert 12)
   (moods                uint64      2         :offset-assert 16)
   (current-fog          mood-fog      :inline :offset-assert 32)
   (current-sun          mood-sun      :inline :offset-assert 80)
   (current-prt-color    vector        :inline :offset-assert 112)
   (current-shadow       vector        :inline :offset-assert 128)
   (current-shadow-color vector        :inline :offset-assert 144)
   (light-group          light-group 9 :inline :offset-assert 160)
   (title-light-group    light-group   :inline :offset-assert 1888)
   (time                 float                 :offset-assert 2080)
   (target-interp        float                 :offset-assert 2084)
   (erase-color          uint32                :offset-assert 2088)
   (num-stars            float                 :offset-assert 2092)
   (light-masks-0        uint8       2         :offset-assert 2096)
   (light-masks-1        uint8       2         :offset-assert 2098)
   (light-interp         uint32      2         :offset-assert 2100)
   (sky                  basic                 :offset-assert 2108)
   (sun-fade             float                 :offset-assert 2112)
   (title-updated        symbol                :offset-assert 2116)
   )
  :method-count-assert 9
  :size-assert         #x848
  :flag-assert         #x900000848
  )

(deftype time-of-day-dma (structure)
  ((outa  uint32 256 :offset-assert 0)
   (outb  uint32 256 :offset-assert 1024)
   (banka uint32 256 :offset-assert 2048)
   (bankb uint32 256 :offset-assert 3072)
   )
  :method-count-assert 9
  :size-assert         #x1000
  :flag-assert         #x900001000
  )

(define *time-of-day-mode* 8) ;; flags? enum?
(define *time-of-day-context* (new 'static 'time-of-day-context))