[graphics] MERC (#1124)

* merc dma generation

* wip very early version of merc

* small fixes

* fix

* fix more merc bugs

* derp fixed min

* oops we did need something weird on max

* merc for everything

* program optimization 1

* more optimization

* windows

* windows 2

* clean up

* fix test

* BLERC

test/decompiler/reference/engine/draw/drawable_REF.gc

@@ -792,8 +792,8 @@
                       )
                     )
                   (if (or (guard-band-cull s4-0) (< cam-dist (* 1.2 (-> *math-camera* d))))
-                      (logior! (-> arg1 status) (draw-status drwf00))
-                      (logclear! (-> arg1 status) (draw-status drwf00))
+                      (logior! (-> arg1 status) (draw-status needs-clip))
+                      (logclear! (-> arg1 status) (draw-status needs-clip))
                       )
                   (logior! (-> arg1 status) (draw-status drwf03))
                   (if (logtest? (-> arg1 status) (draw-status drwf05))

test/decompiler/reference/engine/entity/entity_REF.gc

@@ -1061,7 +1061,7 @@
           )
       )
     (when (and *display-actor-vis* *display-actor-anim*)
-      (let ((s5-3 (entity-by-name (the-as string *display-actor-anim*))))
+      (let ((s5-3 (entity-by-name *display-actor-anim*)))
         (when s5-3
           (let ((v0-35 (res-lump-data s5-3 'visvol pointer))
                 (a1-31 (-> s5-3 extra vis-id))

test/decompiler/reference/engine/game/main-h_REF.gc

@@ -193,8 +193,8 @@
 ;; definition for symbol *display-water-marks*, type symbol
 (define *display-water-marks* #f)
 
-;; definition for symbol *display-actor-anim*, type symbol
-(define *display-actor-anim* #f)
+;; definition for symbol *display-actor-anim*, type string
+(define *display-actor-anim* (the-as string #f))
 
 ;; definition for symbol *display-process-anim*, type (pointer process)
 (define *display-process-anim* (the-as (pointer process) #f))

test/decompiler/reference/engine/gfx/merc/merc_REF.gc

@@ -385,7 +385,6 @@
   )
 
 ;; definition for function merc-vu1-initialize-chain
-;; INFO: Return type mismatch dma-packet vs none.
 ;; Used lq/sq
 (defun merc-vu1-initialize-chain ((arg0 dma-gif-packet))
   (let ((gp-0 (the-as object (merc-vu1-add-vu-function (the-as dma-packet arg0) merc-vu1-block 1))))
@@ -421,7 +420,6 @@
       (&+ v1-20 16)
       )
     )
-  (none)
   )
 
 ;; definition for function merc-vu1-init-buffer