;;-*-Lisp-*-
(in-package goal)
(bundles "ENGINE.CGO" "GAME.CGO")
(require "kernel-defs.gc")

;; TODO - for anim-tester
(define-extern *debug-menu-context* debug-menu-context)

(define-extern add-debug-matrix (function symbol bucket-id matrix matrix))

(define-extern add-debug-text-sphere (function symbol bucket-id vector float string rgba symbol))

;; TODO - for trajectory.gc
(define-extern add-debug-line (function symbol bucket-id vector vector rgba symbol rgba symbol))

(defun-extern add-debug-sphere symbol bucket-id vector float rgba symbol)

;; DECOMP BEGINS

;; circular buffer of positions to draw.
(deftype pos-history (structure)
  ((points     (inline-array vector))
   (num-points int32)
   (h-first    int32)
   (h-last     int32)))

;; unused vertex type?
(deftype debug-vertex (structure)
  ((trans  vector4w :inline)
   (normal vector3h :inline)
   (st     vector2h :inline)
   (color  uint32)))

;; buffer of debug vertices (unused?)
(deftype debug-vertex-stats (basic)
  ((length    int32)
   (pos-count int32)
   (vertex    debug-vertex 600 :inline)))