jak-project/test/decompiler/reference/engine/ui/credits_REF.gc

;;-*-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))
  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))
    )
   )
  0
  (none)
  )

;; definition for symbol *title-credits-scale*, type (array float)
(define
  *title-credits-scale*
  (the-as (array float)
   (new
    'static
    'boxed-array
    :type float :length 8 :allocated-length 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
    :type int32 :length 8 :allocated-length 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)
            )
           )
          )
    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 (lookup-text! *common-text* (the-as game-text-id s2-0) #t))
               )
         (when (= s2-0 3841)
          (case (scf-get-territory) 
           ((1)
             (set! s3-0 (lookup-text! *common-text* (game-text-id europe) #t))
             )
           ((2)
            (set! s3-0 (lookup-text! *common-text* (game-text-id inc) #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)
          )
         )
        (+!
         (-> gp-0 origin y)
         (the float (-> *title-credits-spacing* (+ s5-1 s4-1)))
         )
        )
       )
      )
     )
    )
   )
  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 (lookup-text! *common-text* (the-as game-text-id 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 (lookup-text! *common-text* (the-as game-text-id 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)
        )
       )
      (+! (-> s5-0 origin y) (the float v1-13))
      (+! gp-0 1)
      )
     #f
     )
    )
   )
  )