This commit is contained in:
ManDude 2021-08-16 15:58:41 +01:00
parent a83bae17a5
commit fd4bd26d88

View file

@ -698,7 +698,7 @@
(.mov.vf vf2 vf0) (.mov.vf vf2 vf0)
(.mov.vf vf3 vf0) (.mov.vf vf3 vf0)
(.mov.vf vf4 vf0) (.mov.vf vf4 vf0)
(set! (-> fw flags) (the-as uint flags)) (set! (-> fw flags) (the-as font-flags flags))
(.lvf vf16 (&-> fw size-st1 quad)) (.lvf vf16 (&-> fw size-st1 quad))
(.lvf vf17 (&-> fw size-st2 quad)) (.lvf vf17 (&-> fw size-st2 quad))
(.lvf vf18 (&-> fw size-st3 quad)) (.lvf vf18 (&-> fw size-st3 quad))
@ -1652,7 +1652,7 @@
(.mul.vf vf24 vf24 vf1 :mask #b11) (.mul.vf vf24 vf24 vf1 :mask #b11)
(let ((a1-4 *font-work*)) (let ((a1-4 *font-work*))
(set! (-> a1-4 str-ptr) (the-as uint arg0)) (set! (-> a1-4 str-ptr) (the-as uint arg0))
(set! (-> a1-4 flags) (the-as uint v1-0)) (set! (-> a1-4 flags) (the-as font-flags v1-0))
(.mov.vf vf1 vf0) (.mov.vf vf1 vf0)
(let ((a2-0 (logand v1-0 32))) (let ((a2-0 (logand v1-0 32)))
(b! (nonzero? a2-0) cfg-2 :delay (set! a2-1 *font12-table*)) (b! (nonzero? a2-0) cfg-2 :delay (set! a2-1 *font12-table*))
@ -1783,7 +1783,7 @@
) )
) )
(defun draw-string-xy ((str string) (buf dma-buffer) (x int) (y int) (color font-color) (flags int)) (defun draw-string-xy ((str string) (buf dma-buffer) (x int) (y int) (color font-color) (flags font-flags))
"Draw a string at the given xy location." "Draw a string at the given xy location."
(let ((context (new 'stack 'font-context (let ((context (new 'stack 'font-context
*font-default-matrix* *font-default-matrix*
@ -1791,7 +1791,7 @@
y y
0.0 0.0
color color
(the-as uint flags) flags
) )
) )
) )