mirror of
https://github.com/open-goal/jak-project
synced 2026-06-23 01:19:57 -04:00
water111
81 lines
2.7 KiB
Common Lisp
Vendored
Generated
81 lines
2.7 KiB
Common Lisp
Vendored
Generated
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; definition for method 9 of type font-work
|
|
;; INFO: function output is handled by mips2c
|
|
(defmethod-mips2c "(method 9 font-work)" 9 font-work)
|
|
|
|
;; definition for function draw-string-asm
|
|
;; INFO: function output is handled by mips2c
|
|
(def-mips2c draw-string-asm (function string dma-buffer font-context draw-string-result))
|
|
|
|
;; definition for function draw-string
|
|
;; INFO: Used lq/sq
|
|
;; WARN: Return type mismatch uint vs draw-string-result.
|
|
;; ERROR: Failed load: (set! a2-4 (l.wu (+ a2-3 2224))) at op 19
|
|
(defun draw-string ((arg0 string) (arg1 dma-buffer) (arg2 font-context))
|
|
(local-vars (v0-2 uint))
|
|
(let ((v1-1 (the int (* 128.0 (-> arg2 alpha)))))
|
|
(-> arg2 origin quad)
|
|
(dotimes (a0-2 45)
|
|
(dotimes (a1-1 4)
|
|
(let ((a2-6
|
|
(logior (logand (l.wu (+ (+ (* a1-1 4) (* a0-2 16)) (the-as int *font-work*) 2224)) (the-as uint #xffffffff00ffffff))
|
|
(shr (shl v1-1 56) 32)
|
|
)
|
|
)
|
|
(a3-7 (+ (+ (* a1-1 4) (* a0-2 16)) (the-as int *font-work*)))
|
|
)
|
|
(s.w! (+ a3-7 2224) a2-6)
|
|
)
|
|
)
|
|
)
|
|
(set! (-> *font-work* color-shadow w) v1-1)
|
|
)
|
|
(if (< (the-as uint (dma-buffer-free arg1)) (the-as uint (* (length arg0) 32)))
|
|
(set! v0-2 (the-as uint (-> arg2 origin quad)))
|
|
(set! v0-2 (the-as uint (draw-string-asm arg0 arg1 arg2)))
|
|
)
|
|
(dotimes (v1-7 45)
|
|
(dotimes (a0-9 4)
|
|
(let ((a1-10
|
|
(logior (logand (l.wu (+ (+ (* a0-9 4) (* v1-7 16)) (the-as int *font-work*) 2224)) (the-as uint #xffffffff00ffffff))
|
|
(shl #x8000 16)
|
|
)
|
|
)
|
|
(a2-15 (+ (+ (* a0-9 4) (* v1-7 16)) (the-as int *font-work*)))
|
|
)
|
|
(s.w! (+ a2-15 2224) a1-10)
|
|
)
|
|
)
|
|
)
|
|
(set! (-> *font-work* color-shadow w) 128)
|
|
(the-as draw-string-result v0-2)
|
|
)
|
|
|
|
;; definition for function get-string-length
|
|
;; INFO: function output is handled by mips2c
|
|
(def-mips2c get-string-length (function string font-context draw-string-result))
|
|
|
|
;; definition for function draw-string-xy
|
|
(defun draw-string-xy ((arg0 string) (arg1 dma-buffer) (arg2 int) (arg3 int) (arg4 font-color) (arg5 font-flags))
|
|
(let ((s4-0 (new 'stack 'font-context *font-default-matrix* arg2 arg3 0.0 arg4 arg5)))
|
|
(set-context! *font-work* s4-0)
|
|
(draw-string arg0 arg1 s4-0)
|
|
)
|
|
)
|
|
|
|
;; definition for function draw-string-adv
|
|
;; WARN: Return type mismatch float vs none.
|
|
(defun draw-string-adv ((arg0 string) (arg1 dma-buffer) (arg2 font-context))
|
|
(set-context! *font-work* arg2)
|
|
(let ((v1-2 (draw-string arg0 arg1 arg2)))
|
|
(+! (-> arg2 origin x) (-> v1-2 length))
|
|
)
|
|
(none)
|
|
)
|
|
|
|
|
|
|
|
|