decomp: credits (#533)

* decomp: `credits` but there are still issues

* issues over creating a `new` `font-context`

* decomp: finalized `credits`

test/decompiler/reference/all_forward_declarations.gc

@@ -820,4 +820,9 @@
 (declare-type joint-control-channel structure)
 (define-extern cspace-index-by-name (function process-drawable string int))
 (define-extern cspace-by-name (function process-drawable string cspace))
-(define-extern joint-control-reset! (function joint-control joint-control-channel none))
+(define-extern joint-control-reset! (function joint-control joint-control-channel none))
+
+;; TODO - for credits
+(define-extern scf-get-territory (function int))
+(declare-type font-context basic)
+(define-extern print-game-text (function string font-context symbol int int float)) ; TODO decomp error, this seems correct though

test/decompiler/reference/engine/ui/credits_REF.gc

@@ -0,0 +1,202 @@
+;;-*-Lisp-*-
+(in-package goal)
+
+;; definition for function set-credits-font-color
+;; INFO: Return type mismatch int vs none.
+(defun set-credits-font-color ((arg0 float))
+  (let ((f0-0 255.0))
+   )
+  (dotimes (v1-0 4)
+   (let ((f0-2 (* 64.0 arg0)))
+    (if (< 128.0 f0-2)
+     (set! f0-2 128.0)
+     )
+    (set! (-> *font-work* color-table 32 color v1-0 r) (the int f0-2))
+    )
+   (let ((f0-5 (* 64.0 arg0)))
+    (if (< 128.0 f0-5)
+     (set! f0-5 128.0)
+     )
+    (set! (-> *font-work* color-table 32 color v1-0 g) (the int f0-5))
+    )
+   (let ((f0-8 (* 64.0 arg0)))
+    (if (< 128.0 f0-8)
+     (set! f0-8 128.0)
+     )
+    (set! (-> *font-work* color-table 32 color v1-0 b) (the int f0-8))
+    )
+   )
+  (let ((v0-0 0))
+   )
+  (none)
+  )
+
+;; definition for symbol *title-credits-scale*, type (array float)
+(define
+  *title-credits-scale*
+  (the-as (array float)
+   (new 'static 'boxed-array float 8 0.9 0.9 0.6 0.6 1.0 0.9 1.1 0.9)
+   )
+  )
+
+;; definition for symbol *title-credits-spacing*, type (array int32)
+(define
+  *title-credits-spacing*
+  (the-as (array int32)
+   (new 'static 'boxed-array int32 8 15 20 15 15 20 15 20 15)
+   )
+  )
+
+;; definition for function draw-title-credits
+;; INFO: Return type mismatch int vs none.
+(defun draw-title-credits ((arg0 float))
+  (when (>= 1.0 arg0)
+   (let* ((s4-0 11)
+          (f30-0 (* arg0 (the float (+ s4-0 -2))))
+          (s5-0 (the int f30-0))
+          (gp-0
+           (new
+            'stack
+            'font-context
+            *font-default-matrix*
+            0
+            0
+            0.0
+            0
+            (the-as uint 3)
+            )
+           )
+          )
+    (let ((f0-3 1.0))
+     )
+    (let ((v1-3 gp-0))
+     (set! (-> v1-3 width) (the float 600))
+     )
+    (let ((v1-4 gp-0))
+     (set! (-> v1-4 height) (the float 10))
+     )
+    (set! (-> gp-0 flags) (the-as uint 38))
+    (let* ((s5-1 (- s5-0 (mod s5-0 3)))
+           (f0-10 (- f30-0 (the float s5-1)))
+           )
+     (when (and (>= s5-1 0) (< s5-1 s4-0))
+      (let ((f30-1 (cond
+                    ((< f0-10 0.8)
+                     0.0
+                     )
+                    ((< f0-10 1.6)
+                     (* 160.0 (+ -0.8 f0-10))
+                     )
+                    ((< f0-10 2.2)
+                     128.0
+                     )
+                    (else
+                     (* 128.0 (- 1.0 (* 1.25 (+ -2.2 f0-10))))
+                     )
+                    )
+             )
+            )
+       (set! (-> gp-0 origin x) -44.0)
+       (set! (-> gp-0 origin y) 90.0)
+       (dotimes (s4-1 3)
+        (let* ((s2-0 (+ (+ s4-1 3840) s5-1))
+               (s3-0 (dummy-9 *common-text* (the-as uint s2-0) #t))
+               )
+         (when (= s2-0 3841)
+          (let ((v1-18 (scf-get-territory)))
+           (cond
+            ((= v1-18 1)
+             (set! s3-0 (dummy-9 *common-text* (the-as uint 3857) #t))
+             )
+            ((= v1-18 2)
+             (set! s3-0 (dummy-9 *common-text* (the-as uint 3856) #t))
+             )
+            )
+           )
+          )
+         (when s3-0
+          (let ((v1-25 gp-0))
+           (set! (-> v1-25 scale) (-> *title-credits-scale* (+ s5-1 s4-1)))
+           )
+          (print-game-text s3-0 gp-0 #f (the int f30-1) 22)
+          )
+         )
+        (set!
+         (-> gp-0 origin y)
+         (+
+          (-> gp-0 origin y)
+          (the float (-> *title-credits-spacing* (+ s5-1 s4-1)))
+          )
+         )
+        )
+       )
+      )
+     )
+    )
+   )
+  (let ((v0-6 0))
+   )
+  (none)
+  )
+
+;; definition for function draw-end-credits
+(defun draw-end-credits ((arg0 int))
+  (local-vars (v1-13 int))
+  (let
+   ((s4-0
+     (+ (- arg0) (the int (* 1.5 (the float (-> *video-parms* screen-sy)))))
+     )
+    (gp-0 2815)
+    (s3-0 0)
+    (s2-0 #t)
+    (s5-0
+     (new 'stack 'font-context *font-default-matrix* 31 0 0.0 0 (the-as uint 3))
+     )
+    )
+   (let ((v1-2 s5-0))
+    (set! (-> v1-2 width) (the float 450))
+    )
+   (let ((v1-3 s5-0))
+    (set! (-> v1-3 height) (the float 10))
+    )
+   (let ((v1-4 s5-0))
+    (set! (-> v1-4 scale) 1.0)
+    )
+   (set! (-> s5-0 flags) (the-as uint 39))
+   (while
+    (or s2-0 (and (< s4-0 (- s3-0)) (< (the-as uint gp-0) (the-as uint 3249))))
+    (+! s4-0 s3-0)
+    (+! gp-0 1)
+    (let ((a0-8 (dummy-9 *common-text* (the-as uint gp-0) #t)))
+     (if a0-8
+      (set! s3-0 (the int (+ 5.0 (print-game-text a0-8 s5-0 #t 128 20))))
+      (set! s3-0 25)
+      )
+     )
+    (set! s2-0 #f)
+    )
+   (cond
+    ((>= (the-as uint gp-0) (the-as uint 3249))
+     #t
+     )
+    (else
+     (set! (-> s5-0 origin y) (the float s4-0))
+     (while (< (-> s5-0 origin y) (the float (-> *video-parms* screen-sy)))
+      (let ((a0-11 (dummy-9 *common-text* (the-as uint gp-0) #t)))
+       (if a0-11
+        (set! v1-13 (the int (+ 5.0 (print-game-text a0-11 s5-0 #f 128 20))))
+        (set! v1-13 25)
+        )
+       )
+      (set! (-> s5-0 origin y) (+ (-> s5-0 origin y) (the float v1-13)))
+      (+! gp-0 1)
+      )
+     #f
+     )
+    )
+   )
+  )
+
+
+
+

test/decompiler/reference/engine/ui/text-h_REF.gc

@@ -31,7 +31,7 @@
   :size-assert         #x10
   :flag-assert         #xa00000010
   (:methods
-    (dummy-9 () none 9)
+    (dummy-9 (_type_ uint symbol) string 9)
     )
   )
 
@@ -54,8 +54,8 @@
 ;; definition for symbol *common-text-heap*, type kheap
 (define *common-text-heap* (new 'global 'kheap))
 
-;; definition for symbol *common-text*, type symbol
-(define *common-text* #f)
+;; definition for symbol *common-text*, type game-text-info
+(define *common-text* (the-as game-text-info #f))
 
 ;; failed to figure out what this is:
 (let ((v0-3 0))