mirror/jak-project
1
0
Fork 0
mirror of https://github.com/open-goal/jak-project synced 2026-08-06 18:03:30 -04:00
Code Issues Packages Projects Releases Wiki Activity
Files
fcbcfb549aa0b74c313b6956cf1dfd8450e4c18e
jak-project/test/decompiler/reference/jakx/engine/gfx/font-h_REF.gc
T
Tyler Wilding a3e004f475 d/jx: Another round of files (#4311) 
Co-authored-by: Hat Kid <6624576+Hat-Kid@users.noreply.github.com>
2026-06-15 09:56:10 -04:00

1295 lines
61 KiB
Common Lisp
Vendored
Generated
Raw Blame History

;;-*-Lisp-*-
(in-package goal)
;; definition of type font-char-effect
(deftype font-char-effect (structure)
((scale-x float)
(scale-y float)
(angle float)
(trans-x float)
(trans-y float)
(color vector4w :inline)
)
)
;; definition for method 3 of type font-char-effect
(defmethod inspect ((this font-char-effect))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'font-char-effect)
(format #t "~1Tscale-x: ~f~%" (-> this scale-x))
(format #t "~1Tscale-y: ~f~%" (-> this scale-y))
(format #t "~1Tangle: ~f~%" (-> this angle))
(format #t "~1Ttrans-x: ~f~%" (-> this trans-x))
(format #t "~1Ttrans-y: ~f~%" (-> this trans-y))
(format #t "~1Tcolor: #<vector4w @ #x~X>~%" (-> this color))
(label cfg-4)
this
)
;; definition of type char-color
(deftype char-color (structure)
((color rgba 4)
)
)
;; definition for method 3 of type char-color
(defmethod inspect ((this char-color))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'char-color)
(format #t "~1Tcolor[4] @ #x~X~%" (-> this color))
(label cfg-4)
this
)
;; definition of type font-context
(deftype font-context (basic)
((y-spacing float)
(alpha float)
(ialpha int32)
(flags font-flags)
(origin vector :inline)
(calc-origin vector :inline)
(strip-gif vector :inline)
(calc-mat matrix :inline)
(width float)
(height float)
(meters-per-texel float)
(start-line uint32)
(scaled-width float)
(scaled-height float)
(projection float)
(scale float)
(mat matrix)
(effect-time float)
(color font-color)
(effect uint8)
(effect-color font-color)
)
(:methods
(new (symbol type matrix int int float font-color font-flags) _type_)
(font-context-method-9 () none)
(font-context-method-10 () none)
(font-context-method-11 () none)
(font-context-method-12 () none)
(set-mat! (_type_ matrix) none)
(set-x-y! (_type_ int int) none)
(set-z! (_type_ int) none)
(set-w! (_type_ float) none)
(set-width! (_type_ int) none)
(set-height! (_type_ int) none)
(set-projection! (_type_ float) none)
(set-color! (_type_ font-color) none)
(set-flags! (_type_ font-flags) none)
(set-start-line! (_type_ float) none)
(set-scale! (_type_ float) none)
(set-alpha! (_type_ float) none)
(set-y-spacing! (_type_ float) none)
(set-meters-per-texel! (_type_ float) none)
(set-effect! (_type_ uint) none)
(set-effect-color! (_type_ font-color) none)
(set-effect-time! (_type_ float) none)
)
)
;; definition for method 3 of type font-context
(defmethod inspect ((this font-context))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this (-> this type))
(format #t "~1Ty-spacing: ~f~%" (-> this y-spacing))
(format #t "~1Talpha: ~f~%" (-> this alpha))
(format #t "~1Tialpha: ~D~%" (-> this ialpha))
(format #t "~1Tflags: ~D~%" (-> this flags))
(format #t "~1Torigin: #<vector @ #x~X>~%" (-> this origin))
(format #t "~1Tcalc-origin: #<vector @ #x~X>~%" (-> this calc-origin))
(format #t "~1Tstrip-gif: #<vector @ #x~X>~%" (-> this strip-gif))
(format #t "~1Tcalc-mat: #<matrix @ #x~X>~%" (-> this calc-mat))
(format #t "~1Twidth: ~f~%" (-> this width))
(format #t "~1Theight: ~f~%" (-> this height))
(format #t "~1Tmeters-per-texel: ~f~%" (-> this meters-per-texel))
(format #t "~1Tstart-line: ~D~%" (-> this start-line))
(format #t "~1Tscaled-width: ~f~%" (-> this scaled-width))
(format #t "~1Tscaled-height: ~f~%" (-> this scaled-height))
(format #t "~1Tprojection: ~f~%" (-> this projection))
(format #t "~1Tscale: ~f~%" (-> this scale))
(format #t "~1Tmat: #<matrix @ #x~X>~%" (-> this mat))
(format #t "~1Teffect-time: ~f~%" (-> this effect-time))
(format #t "~1Tcolor: ~D~%" (-> this color))
(format #t "~1Teffect: ~D~%" (-> this effect))
(format #t "~1Teffect-color: ~D~%" (-> this effect-color))
(label cfg-4)
this
)
;; definition for method 13 of type font-context
;; WARN: Return type mismatch font-context vs none.
(defmethod set-mat! ((this font-context) (arg0 matrix))
(set! (-> this mat) arg0)
(none)
)
;; definition for method 14 of type font-context
;; WARN: Return type mismatch font-context vs none.
(defmethod set-x-y! ((this font-context) (arg0 int) (arg1 int))
(set! (-> this origin x) (the float arg0))
(set! (-> this origin y) (the float arg1))
(none)
)
;; definition for method 15 of type font-context
;; WARN: Return type mismatch font-context vs none.
(defmethod set-z! ((this font-context) (arg0 int))
(set! (-> this origin z) (the float arg0))
(none)
)
;; definition for method 16 of type font-context
;; WARN: Return type mismatch font-context vs none.
(defmethod set-w! ((this font-context) (arg0 float))
(set! (-> this origin w) arg0)
(none)
)
;; definition for method 17 of type font-context
;; WARN: Return type mismatch font-context vs none.
(defmethod set-width! ((this font-context) (arg0 int))
(set! (-> this width) (the float arg0))
(none)
)
;; definition for method 18 of type font-context
;; WARN: Return type mismatch font-context vs none.
(defmethod set-height! ((this font-context) (arg0 int))
(set! (-> this height) (the float arg0))
(none)
)
;; definition for method 19 of type font-context
;; WARN: Return type mismatch font-context vs none.
(defmethod set-projection! ((this font-context) (arg0 float))
(set! (-> this projection) arg0)
(none)
)
;; definition for method 20 of type font-context
;; WARN: Return type mismatch font-context vs none.
(defmethod set-color! ((this font-context) (arg0 font-color))
(set! (-> this color) arg0)
(none)
)
;; definition for method 21 of type font-context
;; WARN: Return type mismatch font-context vs none.
(defmethod set-flags! ((this font-context) (arg0 font-flags))
(set! (-> this flags) arg0)
(none)
)
;; definition for method 22 of type font-context
;; WARN: Return type mismatch font-context vs none.
(defmethod set-start-line! ((this font-context) (arg0 float))
(set! (-> this start-line) (the-as uint arg0))
(none)
)
;; definition for method 23 of type font-context
;; WARN: Return type mismatch font-context vs none.
(defmethod set-scale! ((this font-context) (arg0 float))
(set! (-> this scale) arg0)
(none)
)
;; definition for method 24 of type font-context
;; WARN: Return type mismatch font-context vs none.
(defmethod set-alpha! ((this font-context) (arg0 float))
(set! (-> this alpha) arg0)
(none)
)
;; definition for method 25 of type font-context
;; WARN: Return type mismatch font-context vs none.
(defmethod set-y-spacing! ((this font-context) (arg0 float))
(set! (-> this y-spacing) arg0)
(none)
)
;; definition for method 26 of type font-context
;; WARN: Return type mismatch font-context vs none.
(defmethod set-meters-per-texel! ((this font-context) (arg0 float))
(set! (-> this meters-per-texel) arg0)
(none)
)
;; definition for method 27 of type font-context
;; WARN: Return type mismatch font-context vs none.
(defmethod set-effect! ((this font-context) (arg0 uint))
(set! (-> this effect) arg0)
(none)
)
;; definition for method 28 of type font-context
;; WARN: Return type mismatch font-context vs none.
(defmethod set-effect-color! ((this font-context) (arg0 font-color))
(set! (-> this effect-color) arg0)
(none)
)
;; definition for method 29 of type font-context
;; WARN: Return type mismatch font-context vs none.
(defmethod set-effect-time! ((this font-context) (arg0 float))
(set! (-> this effect-time) arg0)
(none)
)
;; definition for method 0 of type font-context
(defmethod new font-context ((allocation symbol)
(type-to-make type)
(arg0 matrix)
(arg1 int)
(arg2 int)
(arg3 float)
(arg4 font-color)
(arg5 font-flags)
)
(let ((v0-0 (object-new allocation type-to-make (the-as int (-> type-to-make size)))))
(set! (-> v0-0 flags) arg5)
(set! (-> v0-0 mat) arg0)
(let ((v1-4 v0-0))
(set! (-> v1-4 origin x) (the float arg1))
(set! (-> v1-4 origin y) (the float arg2))
)
(let ((v1-5 v0-0))
(set! (-> v1-5 origin z) arg3)
)
(let ((v1-6 v0-0))
(set! (-> v1-6 origin w) 1.0)
)
(set-width! v0-0 512)
(set-height! v0-0 416)
(let ((v1-9 v0-0))
(set! (-> v1-9 projection) 1.0)
)
(set! (-> v0-0 color) arg4)
(let ((a0-5 v0-0))
(set! (-> a0-5 start-line) (the-as uint 0))
)
(set-scale! v0-0 1.0)
(let ((v1-13 v0-0))
(set! (-> v1-13 alpha) 1.0)
)
(let ((v1-14 v0-0))
(set! (-> v1-14 y-spacing) 32.0)
)
(let ((v1-15 v0-0))
(set! (-> v1-15 meters-per-texel) 200.0)
)
(let ((a0-10 v0-0))
(set! (-> a0-10 effect) (the-as uint 0))
)
(let ((a0-11 v0-0))
(set! (-> a0-11 effect-color) (font-color default))
)
(let ((v1-18 v0-0))
(set! (-> v1-18 effect-time) (the float 0.0))
)
v0-0
)
)
;; definition of type char-packet
(deftype char-packet (structure)
((tag dma-gif-packet :inline)
(font dma-packet :inline)
(color0 vector :inline)
(st0 vector :inline)
(pos0 vector :inline)
(st1 vector :inline)
(pos1 vector :inline)
(color2 vector :inline)
(st2 vector :inline)
(pos2 vector :inline)
(st3 vector :inline)
(pos3 vector :inline)
)
)
;; definition for method 3 of type char-packet
(defmethod inspect ((this char-packet))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'char-packet)
(format #t "~1Ttag: #<dma-gif-packet @ #x~X>~%" (-> this tag))
(format #t "~1Tfont: #<dma-packet @ #x~X>~%" (-> this font))
(format #t "~1Tcolor0: #<vector @ #x~X>~%" (-> this color0))
(format #t "~1Tst0: #<vector @ #x~X>~%" (-> this st0))
(format #t "~1Tpos0: #<vector @ #x~X>~%" (-> this pos0))
(format #t "~1Tst1: #<vector @ #x~X>~%" (-> this st1))
(format #t "~1Tpos1: #<vector @ #x~X>~%" (-> this pos1))
(format #t "~1Tcolor2: #<vector @ #x~X>~%" (-> this color2))
(format #t "~1Tst2: #<vector @ #x~X>~%" (-> this st2))
(format #t "~1Tpos2: #<vector @ #x~X>~%" (-> this pos2))
(format #t "~1Tst3: #<vector @ #x~X>~%" (-> this st3))
(format #t "~1Tpos3: #<vector @ #x~X>~%" (-> this pos3))
(label cfg-4)
this
)
;; definition of type char-ad-packet
(deftype char-ad-packet (structure)
((tag dma-gif-packet :inline)
(font dma-packet :inline)
)
)
;; definition for method 3 of type char-ad-packet
(defmethod inspect ((this char-ad-packet))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'char-ad-packet)
(format #t "~1Ttag: #<dma-gif-packet @ #x~X>~%" (-> this tag))
(format #t "~1Tfont: #<dma-packet @ #x~X>~%" (-> this font))
(label cfg-4)
this
)
;; definition of type char-2d-packet
(deftype char-2d-packet (structure)
((tag dma-gif-packet :inline)
(font dma-packet :inline)
(color vector :inline)
(st0 vector :inline)
(pos0 vector :inline)
(st1 vector :inline)
(pos1 vector :inline)
)
)
;; definition for method 3 of type char-2d-packet
(defmethod inspect ((this char-2d-packet))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'char-2d-packet)
(format #t "~1Ttag: #<dma-gif-packet @ #x~X>~%" (-> this tag))
(format #t "~1Tfont: #<dma-packet @ #x~X>~%" (-> this font))
(format #t "~1Tcolor: #<vector @ #x~X>~%" (-> this color))
(format #t "~1Tst0: #<vector @ #x~X>~%" (-> this st0))
(format #t "~1Tpos0: #<vector @ #x~X>~%" (-> this pos0))
(format #t "~1Tst1: #<vector @ #x~X>~%" (-> this st1))
(format #t "~1Tpos1: #<vector @ #x~X>~%" (-> this pos1))
(label cfg-4)
this
)
;; definition of type char-2d-packet-no-packed
(deftype char-2d-packet-no-packed (structure)
((tag dma-gif-packet :inline)
(color0 uint64)
(st0 uint64)
(pos0 uint64)
(st1 uint64)
(pos1 uint64)
(color1 uint64)
)
)
;; definition for method 3 of type char-2d-packet-no-packed
(defmethod inspect ((this char-2d-packet-no-packed))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'char-2d-packet-no-packed)
(format #t "~1Ttag: #<dma-gif-packet @ #x~X>~%" (-> this tag))
(format #t "~1Tcolor0: ~D~%" (-> this color0))
(format #t "~1Tst0: ~D~%" (-> this st0))
(format #t "~1Tpos0: ~D~%" (-> this pos0))
(format #t "~1Tst1: ~D~%" (-> this st1))
(format #t "~1Tpos1: ~D~%" (-> this pos1))
(format #t "~1Tcolor1: ~D~%" (-> this color1))
(label cfg-4)
this
)
;; definition of type char-packet-no-packed
(deftype char-packet-no-packed (structure)
((tag dma-gif-packet :inline)
(prim uint64)
(color0 uint64)
(st0 uint64)
(pos0 uint64)
(st1 uint64)
(pos1 uint64)
(st2 uint64)
(pos2 uint64)
(st3 uint64)
(pos3 uint64)
)
)
;; definition for method 3 of type char-packet-no-packed
(defmethod inspect ((this char-packet-no-packed))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'char-packet-no-packed)
(format #t "~1Ttag: #<dma-gif-packet @ #x~X>~%" (-> this tag))
(format #t "~1Tprim: ~D~%" (-> this prim))
(format #t "~1Tcolor0: ~D~%" (-> this color0))
(format #t "~1Tst0: ~D~%" (-> this st0))
(format #t "~1Tpos0: ~D~%" (-> this pos0))
(format #t "~1Tst1: ~D~%" (-> this st1))
(format #t "~1Tpos1: ~D~%" (-> this pos1))
(format #t "~1Tst2: ~D~%" (-> this st2))
(format #t "~1Tpos2: ~D~%" (-> this pos2))
(format #t "~1Tst3: ~D~%" (-> this st3))
(format #t "~1Tpos3: ~D~%" (-> this pos3))
(label cfg-4)
this
)
;; definition of type char-3d-packet
(deftype char-3d-packet (structure)
((tag dma-gif-packet :inline)
(font dma-packet :inline)
(color vector :inline)
(st0 vector :inline)
(pos0 vector :inline)
(st1 vector :inline)
(pos1 vector :inline)
(color2 vector :inline)
(st2 vector :inline)
(pos2 vector :inline)
(st3 vector :inline)
(pos3 vector :inline)
)
)
;; definition for method 3 of type char-3d-packet
(defmethod inspect ((this char-3d-packet))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'char-3d-packet)
(format #t "~1Ttag: #<dma-gif-packet @ #x~X>~%" (-> this tag))
(format #t "~1Tfont: #<dma-packet @ #x~X>~%" (-> this font))
(format #t "~1Tcolor: #<vector @ #x~X>~%" (-> this color))
(format #t "~1Tst0: #<vector @ #x~X>~%" (-> this st0))
(format #t "~1Tpos0: #<vector @ #x~X>~%" (-> this pos0))
(format #t "~1Tst1: #<vector @ #x~X>~%" (-> this st1))
(format #t "~1Tpos1: #<vector @ #x~X>~%" (-> this pos1))
(format #t "~1Tcolor2: #<vector @ #x~X>~%" (-> this color2))
(format #t "~1Tst2: #<vector @ #x~X>~%" (-> this st2))
(format #t "~1Tpos2: #<vector @ #x~X>~%" (-> this pos2))
(format #t "~1Tst3: #<vector @ #x~X>~%" (-> this st3))
(format #t "~1Tpos3: #<vector @ #x~X>~%" (-> this pos3))
(label cfg-4)
this
)
;; definition of type font-work
(deftype font-work (structure)
((char-2d-tmpl dma-gif-packet :inline)
(char-2d-no-packed-tmpl dma-gif-packet :inline)
(char-3d-tmpl dma-gif-packet :inline)
(char-ad-tmpl dma-gif-packet :inline)
(char-no-packed-tmpl dma-gif-packet :inline)
(char-tmpl dma-gif-packet :inline)
(small-font-0-tmpl uint64 2)
(small-font-1-tmpl uint64 2)
(small-font-2-tmpl uint64 2)
(small-font-3-tmpl uint64 2)
(large-font-0-tmpl uint64 2)
(large-font-1-tmpl uint64 2)
(large-font-2-tmpl uint64 2)
(large-font-3-tmpl uint64 2)
(size1-small vector :inline)
(size2-small vector :inline)
(size3-small vector :inline)
(size1-large vector :inline)
(size2-large vector :inline)
(size3-large vector :inline)
(size-st1 vector :inline)
(size-st2 vector :inline)
(size-st3 vector :inline)
(origin-right vector :inline)
(origin-center vector :inline)
(save vector :inline)
(save-color vector :inline)
(save-color2 vector :inline)
(current-color vector4w :inline)
(current-colorq uint64 :overlay-at (-> current-color data 0))
(current-color2 vector4w :inline)
(current-color2q uint64 :overlay-at (-> current-color2 data 0))
(effect-colors vector4w 2 :inline)
(color-shadow vector4w :inline)
(color-outline vector4w :inline)
(justify vector 256 :inline)
(hvdf-offset vector :inline)
(hvdf-shadow vector :inline)
(hvdf-outline vector 4 :inline)
(hvdf-outline0 vector :inline :overlay-at (-> hvdf-outline 0))
(hvdf-outline1 vector :inline :overlay-at (-> hvdf-outline 1))
(hvdf-outline2 vector :inline :overlay-at (-> hvdf-outline 2))
(hvdf-outline3 vector :inline :overlay-at (-> hvdf-outline 3))
(save-pos0 vector :inline)
(save-pos1 vector :inline)
(save-pos2 vector :inline)
(save-pos3 vector :inline)
(color-table char-color 74 :inline)
(current-font-0-tmpl uint64 2)
(current-font-1-tmpl uint64 2)
(current-font-2-tmpl uint64 2)
(current-font-3-tmpl uint64 2)
(screen-min vector2w :inline)
(screen-max vector2w :inline)
(last-color uint8)
(save-last-color uint8)
(buf basic)
(str-ptr uint32)
)
)
;; definition for method 3 of type font-work
(defmethod inspect ((this font-work))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'font-work)
(format #t "~1Tchar-2d-tmpl: #<dma-gif-packet @ #x~X>~%" (-> this char-2d-tmpl))
(format #t "~1Tchar-2d-no-packed-tmpl: #<dma-gif-packet @ #x~X>~%" (-> this char-2d-no-packed-tmpl))
(format #t "~1Tchar-3d-tmpl: #<dma-gif-packet @ #x~X>~%" (-> this char-3d-tmpl))
(format #t "~1Tchar-ad-tmpl: #<dma-gif-packet @ #x~X>~%" (-> this char-ad-tmpl))
(format #t "~1Tchar-no-packed-tmpl: #<dma-gif-packet @ #x~X>~%" (-> this char-no-packed-tmpl))
(format #t "~1Tchar-tmpl: #<dma-gif-packet @ #x~X>~%" (-> this char-tmpl))
(format #t "~1Tsmall-font-0-tmpl[2] @ #x~X~%" (-> this small-font-0-tmpl))
(format #t "~1Tsmall-font-1-tmpl[2] @ #x~X~%" (-> this small-font-1-tmpl))
(format #t "~1Tsmall-font-2-tmpl[2] @ #x~X~%" (-> this small-font-2-tmpl))
(format #t "~1Tsmall-font-3-tmpl[2] @ #x~X~%" (-> this small-font-3-tmpl))
(format #t "~1Tlarge-font-0-tmpl[2] @ #x~X~%" (-> this large-font-0-tmpl))
(format #t "~1Tlarge-font-1-tmpl[2] @ #x~X~%" (-> this large-font-1-tmpl))
(format #t "~1Tlarge-font-2-tmpl[2] @ #x~X~%" (-> this large-font-2-tmpl))
(format #t "~1Tlarge-font-3-tmpl[2] @ #x~X~%" (-> this large-font-3-tmpl))
(format #t "~1Tsize1-small: #<vector @ #x~X>~%" (-> this size1-small))
(format #t "~1Tsize2-small: #<vector @ #x~X>~%" (-> this size2-small))
(format #t "~1Tsize3-small: #<vector @ #x~X>~%" (-> this size3-small))
(format #t "~1Tsize1-large: #<vector @ #x~X>~%" (-> this size1-large))
(format #t "~1Tsize2-large: #<vector @ #x~X>~%" (-> this size2-large))
(format #t "~1Tsize3-large: #<vector @ #x~X>~%" (-> this size3-large))
(format #t "~1Tsize-st1: #<vector @ #x~X>~%" (-> this size-st1))
(format #t "~1Tsize-st2: #<vector @ #x~X>~%" (-> this size-st2))
(format #t "~1Tsize-st3: #<vector @ #x~X>~%" (-> this size-st3))
(format #t "~1Torigin-right: #<vector @ #x~X>~%" (-> this origin-right))
(format #t "~1Torigin-center: #<vector @ #x~X>~%" (-> this origin-center))
(format #t "~1Tsave: #<vector @ #x~X>~%" (-> this save))
(format #t "~1Tsave-color: #<vector @ #x~X>~%" (-> this save-color))
(format #t "~1Tsave-color2: #<vector @ #x~X>~%" (-> this save-color2))
(format #t "~1Tcurrent-color: #<vector4w @ #x~X>~%" (-> this current-color))
(format #t "~1Tcurrent-colorq: ~D~%" (-> this current-colorq))
(format #t "~1Tcurrent-color2: #<vector4w @ #x~X>~%" (-> this current-color2))
(format #t "~1Tcurrent-color2q: ~D~%" (-> this current-color2q))
(format #t "~1Teffect-colors[2] @ #x~X~%" (-> this effect-colors))
(format #t "~1Tcolor-shadow: #<vector4w @ #x~X>~%" (-> this color-shadow))
(format #t "~1Tcolor-outline: #<vector4w @ #x~X>~%" (-> this color-outline))
(format #t "~1Tjustify[256] @ #x~X~%" (-> this justify))
(format #t "~1Thvdf-offset: #<vector @ #x~X>~%" (-> this hvdf-offset))
(format #t "~1Thvdf-shadow: #<vector @ #x~X>~%" (-> this hvdf-shadow))
(format #t "~1Thvdf-outline[4] @ #x~X~%" (-> this hvdf-outline))
(format #t "~1Thvdf-outline0: #<vector @ #x~X>~%" (-> this hvdf-outline))
(format #t "~1Thvdf-outline1: #<vector @ #x~X>~%" (-> this hvdf-outline1))
(format #t "~1Thvdf-outline2: #<vector @ #x~X>~%" (-> this hvdf-outline2))
(format #t "~1Thvdf-outline3: #<vector @ #x~X>~%" (-> this hvdf-outline3))
(format #t "~1Tsave-pos0: #<vector @ #x~X>~%" (-> this save-pos0))
(format #t "~1Tsave-pos1: #<vector @ #x~X>~%" (-> this save-pos1))
(format #t "~1Tsave-pos2: #<vector @ #x~X>~%" (-> this save-pos2))
(format #t "~1Tsave-pos3: #<vector @ #x~X>~%" (-> this save-pos3))
(format #t "~1Tcolor-table[74] @ #x~X~%" (-> this color-table))
(format #t "~1Tcurrent-font-0-tmpl[2] @ #x~X~%" (-> this current-font-0-tmpl))
(format #t "~1Tcurrent-font-1-tmpl[2] @ #x~X~%" (-> this current-font-1-tmpl))
(format #t "~1Tcurrent-font-2-tmpl[2] @ #x~X~%" (-> this current-font-2-tmpl))
(format #t "~1Tcurrent-font-3-tmpl[2] @ #x~X~%" (-> this current-font-3-tmpl))
(format #t "~1Tscreen-min: #<vector2w @ #x~X>~%" (-> this screen-min))
(format #t "~1Tscreen-max: #<vector2w @ #x~X>~%" (-> this screen-max))
(format #t "~1Tlast-color: ~D~%" (-> this last-color))
(format #t "~1Tsave-last-color: ~D~%" (-> this save-last-color))
(format #t "~1Tbuf: ~A~%" (-> this buf))
(format #t "~1Tstr-ptr: ~A~%" (-> this str-ptr))
(label cfg-4)
this
)
;; definition for symbol *font-work*, type font-work
(define *font-work*
(new 'static 'font-work
:char-2d-tmpl (new 'static 'dma-gif-packet
:dma-vif (new 'static 'dma-packet
:dma (new 'static 'dma-tag :qwc #x7 :id (dma-tag-id cnt))
:vif1 (new 'static 'vif-tag :imm #x7 :cmd (vif-cmd direct) :msk #x1)
)
:gif (new 'static 'array uint64 2 #x602b400000008001 #x52521e)
)
:char-2d-no-packed-tmpl (new 'static 'dma-gif-packet
:dma-vif (new 'static 'dma-packet
:dma (new 'static 'dma-tag :qwc #x4 :id (dma-tag-id cnt))
:vif1 (new 'static 'vif-tag :imm #x4 :cmd (vif-cmd direct) :msk #x1)
)
:gif (new 'static 'array uint64 2 #x642f400000008001 #x7f52521)
)
:char-3d-tmpl (new 'static 'dma-gif-packet
:dma-vif (new 'static 'dma-packet
:dma (new 'static 'dma-tag :qwc #xc :id (dma-tag-id cnt))
:vif1 (new 'static 'vif-tag :imm #xc :cmd (vif-cmd direct) :msk #x1)
)
:gif (new 'static 'array uint64 2 #xb02e400000008001 #x5252152521e)
)
:char-ad-tmpl (new 'static 'dma-gif-packet
:dma-vif (new 'static 'dma-packet
:dma (new 'static 'dma-tag :qwc #x2 :id (dma-tag-id cnt))
:vif1 (new 'static 'vif-tag :imm #x2 :cmd (vif-cmd direct) :msk #x1)
)
:gif (new 'static 'array uint64 2 #x1000400000008001 #xe)
)
:char-no-packed-tmpl (new 'static 'dma-gif-packet
:dma-vif (new 'static 'dma-packet
:dma (new 'static 'dma-tag :qwc #x6 :id (dma-tag-id cnt))
:vif1 (new 'static 'vif-tag :imm #x6 :cmd (vif-cmd direct) :msk #x1)
)
:gif (new 'static 'array uint64 2 #xa42e400000008001 #x5252525210)
)
:char-tmpl (new 'static 'dma-gif-packet
:dma-vif (new 'static 'dma-packet
:dma (new 'static 'dma-tag :qwc #xc :id (dma-tag-id cnt))
:vif1 (new 'static 'vif-tag :imm #xc :cmd (vif-cmd direct) :msk #x1)
)
:gif (new 'static 'array uint64 2 #xb02e400000008001 #x5252152521e)
)
:small-font-0-tmpl (new 'static 'array uint64 2 #x0 #x6)
:small-font-1-tmpl (new 'static 'array uint64 2 #x0 #x6)
:small-font-2-tmpl (new 'static 'array uint64 2 #x0 #x6)
:small-font-3-tmpl (new 'static 'array uint64 2 #x0 #x6)
:large-font-0-tmpl (new 'static 'array uint64 2 #x0 #x6)
:large-font-1-tmpl (new 'static 'array uint64 2 #x0 #x6)
:large-font-2-tmpl (new 'static 'array uint64 2 #x0 #x6)
:large-font-3-tmpl (new 'static 'array uint64 2 #x0 #x6)
:size1-small (new 'static 'vector :data (new 'static 'array float 4 12.0 0.0 0.0 0.5))
:size2-small (new 'static 'vector :data (new 'static 'array float 4 0.0 14.857 0.0 8.0))
:size3-small (new 'static 'vector :data (new 'static 'array float 4 12.0 14.857 0.0 16.0))
:size1-large (new 'static 'vector :data (new 'static 'array float 4 24.0 0.0 0.0 1.0))
:size2-large (new 'static 'vector :data (new 'static 'array float 4 0.0 29.714 0.0 24.0))
:size3-large (new 'static 'vector :data (new 'static 'array float 4 24.0 29.714 0.0 32.0))
:size-st1 (new 'static 'vector :data (new 'static 'array float 4 0.08985 0.0 0.0 0.5))
:size-st2 (new 'static 'vector :data (new 'static 'array float 4 0.0 0.030761719 0.0 0.5))
:size-st3 (new 'static 'vector :data (new 'static 'array float 4 0.08985 0.030761719 0.0 0.5))
:color-shadow (new 'static 'vector4w :w #x80)
:color-table (new 'static 'inline-array char-color 74
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :r #x70 :g #x78 :b #x70 :a #x80)
(new 'static 'rgba :r #x70 :g #x78 :b #x70 :a #x80)
(new 'static 'rgba)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :r #x80 :g #x80 :b #x80 :a #x80)
(new 'static 'rgba :r #x43 :g #x43 :b #x43 :a #x80)
(new 'static 'rgba)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :r #x80 :g #x80 :b #x80 :a #x40)
(new 'static 'rgba :r #x80 :g #x80 :b #x80 :a #x40)
(new 'static 'rgba)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :r #x80 :g #x15 :a #x80)
(new 'static 'rgba :r #x50 :a #x80)
(new 'static 'rgba)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :r #x80 :g #x4e :b #x1 :a #x80)
(new 'static 'rgba :r #x70 :g #x20 :b #x1 :a #x80)
(new 'static 'rgba)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :r #x7b :g #x7f :b #x14 :a #x80)
(new 'static 'rgba :r #x70 :g #x53 :a #x80)
(new 'static 'rgba)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :r #x1e :g #x80 :a #x80)
(new 'static 'rgba :r #x6 :g #x40 :a #x80)
(new 'static 'rgba)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :r #x22 :g #x22 :b #x69 :a #x80)
(new 'static 'rgba :r #x15 :g #x15 :b #x51 :a #x80)
(new 'static 'rgba)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :g #x80 :b #x80 :a #x80)
(new 'static 'rgba :g #x80 :b #x80 :a #x80)
(new 'static 'rgba)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :r #x80 :g #x40 :b #x80 :a #x80)
(new 'static 'rgba :r #x80 :g #x40 :b #x80 :a #x80)
(new 'static 'rgba)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :r #x60 :g #x80 :b #x80 :a #x80)
(new 'static 'rgba :r #x60 :g #x80 :b #x80 :a #x80)
(new 'static 'rgba)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :r #x40 :g #x60 :b #x60 :a #x80)
(new 'static 'rgba :r #x40 :g #x60 :b #x60 :a #x80)
(new 'static 'rgba)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :r #x80 :g #x80 :b #x80 :a #x80)
(new 'static 'rgba :r #x80 :g #x80 :b #x80 :a #x80)
(new 'static 'rgba)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :r #x50 :g #x50 :b #x50 :a #x80)
(new 'static 'rgba :r #x50 :g #x50 :b #x50 :a #x80)
(new 'static 'rgba)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :r #x80 :g #x54 :a #x80)
(new 'static 'rgba :r #x80 :g #x54 :a #x80)
(new 'static 'rgba)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :r #x70 :g #x80 :b #x30 :a #x80)
(new 'static 'rgba :r #x70 :g #x80 :b #x30 :a #x80)
(new 'static 'rgba)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :r #x48 :g #x58 :b #x10 :a #x80)
(new 'static 'rgba :r #x48 :g #x58 :b #x10 :a #x80)
(new 'static 'rgba)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :r #x58 :g #x60 :b #x58 :a #x80)
(new 'static 'rgba :r #x58 :g #x60 :b #x58 :a #x80)
(new 'static 'rgba)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :r #x40 :g #x48 :b #x40 :a #x80)
(new 'static 'rgba :r #x40 :g #x48 :b #x40 :a #x80)
(new 'static 'rgba)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :r #x30 :g #x20 :b #x30 :a #x80)
(new 'static 'rgba :r #x30 :g #x20 :b #x30 :a #x80)
(new 'static 'rgba)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :r #x80 :g #x79 :b #x48 :a #x80)
(new 'static 'rgba :r #x80 :g #x79 :b #x48 :a #x80)
(new 'static 'rgba)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :r #x20 :g #x5e :b #x78 :a #x80)
(new 'static 'rgba :r #x20 :g #x5e :b #x78 :a #x80)
(new 'static 'rgba)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :r #x1d :g #x1d :b #x1d :a #x80)
(new 'static 'rgba :r #x1d :g #x1d :b #x1d :a #x80)
(new 'static 'rgba)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :r #x40 :g #x40 :b #x40 :a #x80)
(new 'static 'rgba :r #x40 :g #x40 :b #x40 :a #x80)
(new 'static 'rgba)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :r #x7a :g #x4d :b #x65 :a #x80)
(new 'static 'rgba :r #x7a :g #x4d :b #x65 :a #x80)
(new 'static 'rgba)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :r #x7a :g #x34 :b #x34 :a #x80)
(new 'static 'rgba :r #x7a :g #x34 :b #x34 :a #x80)
(new 'static 'rgba)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :r #x10 :g #x65 :b #x4c :a #x80)
(new 'static 'rgba :r #x10 :g #x65 :b #x4c :a #x80)
(new 'static 'rgba)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :r #x46 :g #x4a :b #x78 :a #x80)
(new 'static 'rgba :r #x46 :g #x4a :b #x78 :a #x80)
(new 'static 'rgba)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :r #x57 :g #x7e :b #x80 :a #x80)
(new 'static 'rgba :r #x57 :g #x7e :b #x80 :a #x80)
(new 'static 'rgba)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :r #x7f :g #x7b :b #x33 :a #x80)
(new 'static 'rgba :r #x7f :g #x7b :b #x33 :a #x80)
(new 'static 'rgba)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :r #x79 :g #x79 :b #x2 :a #x80)
(new 'static 'rgba :r #x79 :g #x79 :b #x2 :a #x80)
(new 'static 'rgba)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :r #x47 :g #x68 :b #x7a :a #x80)
(new 'static 'rgba :r #x47 :g #x68 :b #x7a :a #x80)
(new 'static 'rgba)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :r #xb7 :g #x80 :b #x7 :a #x80)
(new 'static 'rgba :r #xb7 :g #x80 :b #x7 :a #x80)
(new 'static 'rgba)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :r #x80 :g #x80 :b #x40 :a #x80)
(new 'static 'rgba :r #x80 :g #x80 :b #x40 :a #x80)
(new 'static 'rgba)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :r #x80 :g #x80 :b #x80 :a #x80)
(new 'static 'rgba :r #x80 :g #x80 :b #x80 :a #x80)
(new 'static 'rgba)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :r #x9a :g #x4d :a #x60)
(new 'static 'rgba :r #x9a :g #x4d :a #x60)
(new 'static 'rgba)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :r #x70 :g #x78 :b #x70 :a #x80)
(new 'static 'rgba :r #x70 :g #x78 :b #x70 :a #x80)
(new 'static 'rgba)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :r #x60 :a #x80)
(new 'static 'rgba :r #x60 :a #x80)
(new 'static 'rgba)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :r #x80 :g #x60 :b #x20 :a #x80)
(new 'static 'rgba :r #x80 :g #x60 :b #x20 :a #x80)
(new 'static 'rgba)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :b #x1 :a #x80)
(new 'static 'rgba :b #x1 :a #x80)
(new 'static 'rgba)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :r #x48 :g #x74 :b #x48 :a #x80)
(new 'static 'rgba :r #x48 :g #x74 :b #x48 :a #x80)
(new 'static 'rgba)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :g #x39 :b #x67 :a #x80)
(new 'static 'rgba :g #x39 :b #x67 :a #x80)
(new 'static 'rgba)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :r #x7c :a #x80)
(new 'static 'rgba :r #x7c :a #x80)
(new 'static 'rgba)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :r #x60 :g #x60 :b #x60 :a #x80)
(new 'static 'rgba :r #x60 :g #x60 :b #x60 :a #x80)
(new 'static 'rgba)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :r #x40 :g #x40 :b #x40 :a #x80)
(new 'static 'rgba :r #x40 :g #x40 :b #x40 :a #x80)
(new 'static 'rgba)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :r #x50 :g #x50 :b #x50 :a #x80)
(new 'static 'rgba :r #x50 :g #x50 :b #x50 :a #x80)
(new 'static 'rgba)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :r #x37 :g #x37 :b #x37 :a #x80)
(new 'static 'rgba :r #x37 :g #x37 :b #x37 :a #x80)
(new 'static 'rgba)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :r #x28 :b #x50 :a #x80)
(new 'static 'rgba :r #x28 :b #x50 :a #x80)
(new 'static 'rgba)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :r #x86 :g #x54 :b #x5 :a #x80)
(new 'static 'rgba :r #x86 :g #x54 :b #x5 :a #x80)
(new 'static 'rgba)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :r #x69 :g #x69 :b #x49 :a #x80)
(new 'static 'rgba :r #x69 :g #x69 :b #x49 :a #x80)
(new 'static 'rgba)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :r #x87 :g #x69 :a #x80)
(new 'static 'rgba :r #x87 :g #x69 :a #x80)
(new 'static 'rgba)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :r #x80 :g #x80 :b #x80 :a #x80)
(new 'static 'rgba :r #x70 :g #x50 :a #x80)
(new 'static 'rgba :r #x20 :g #x12 :a #x80)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :r #x80 :g #x80 :b #x80 :a #x80)
(new 'static 'rgba :r #x30 :g #x20 :b #x30 :a #x80)
(new 'static 'rgba :g #x10 :b #x20 :a #x80)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :r #x60 :g #x60 :b #x30 :a #x80)
(new 'static 'rgba :r #x30 :g #x30 :a #x80)
(new 'static 'rgba :r #x25 :g #x15 :b #x15 :a #x80)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :r #x80 :g #x80 :a #x80)
(new 'static 'rgba :r #x80 :g #x40 :a #x80)
(new 'static 'rgba)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :r #x74 :g #x74 :b #x80 :a #x80)
(new 'static 'rgba :r #x4 :g #x4 :b #x58 :a #x80)
(new 'static 'rgba)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :r #x74 :g #x74 :b #x80 :a #x80)
(new 'static 'rgba :r #x24 :g #x24 :b #x48 :a #x80)
(new 'static 'rgba)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :r #x80 :g #x80 :a #x80)
(new 'static 'rgba :r #x60 :g #x60 :b #x60 :a #x80)
(new 'static 'rgba)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :r #x80 :g #x80 :b #x80 :a #x80)
(new 'static 'rgba :r #x80 :g #x80 :b #x80 :a #x80)
(new 'static 'rgba)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :r #x80 :g #x80 :a #x80)
(new 'static 'rgba :r #x80 :g #x32 :a #x80)
(new 'static 'rgba)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :r #x20 :g #x70 :b #x30 :a #x80)
(new 'static 'rgba :r #x60 :g #x80 :b #x60 :a #x80)
(new 'static 'rgba :g #x20 :b #x20 :a #x80)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :r #x70 :g #x30 :b #x30 :a #x80)
(new 'static 'rgba :r #x50 :g #x30 :b #x30 :a #x80)
(new 'static 'rgba :r #x20 :a #x80)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :r #x5a :g #xe :b #x5 :a #x80)
(new 'static 'rgba :r #x80 :g #x7a :b #x31 :a #x80)
(new 'static 'rgba :a #x80)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :r #x80 :g #x5e :a #x80)
(new 'static 'rgba :r #x80 :g #x14 :a #x80)
(new 'static 'rgba :r #x80 :g #x34 :a #x80)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :g #x50 :b #x80 :a #x80)
(new 'static 'rgba :r #x80 :g #x80 :b #x80 :a #x80)
(new 'static 'rgba :b #x50)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :g #x50 :b #x80 :a #x80)
(new 'static 'rgba :r #x80 :g #x80 :b #x80 :a #x80)
(new 'static 'rgba :b #x50)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :g #x50 :b #x80 :a #x80)
(new 'static 'rgba :r #x80 :g #x80 :b #x80 :a #x80)
(new 'static 'rgba :b #x50)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :g #x50 :b #x80 :a #x80)
(new 'static 'rgba :r #x80 :g #x80 :b #x80 :a #x80)
(new 'static 'rgba :b #x50)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :g #x50 :b #x80 :a #x80)
(new 'static 'rgba :r #x80 :g #x80 :b #x80 :a #x80)
(new 'static 'rgba :b #x50)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :g #x50 :b #x80 :a #x80)
(new 'static 'rgba :r #x80 :g #x80 :b #x80 :a #x80)
(new 'static 'rgba :b #x50)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :r #x20 :a #x80)
(new 'static 'rgba :r #x80 :g #x20 :a #x80)
(new 'static 'rgba)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :b #x20 :a #x80)
(new 'static 'rgba :g #x20 :b #x80 :a #x80)
(new 'static 'rgba)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :r #x70 :g #x30 :b #x30 :a #x80)
(new 'static 'rgba :r #x50 :g #x30 :b #x30 :a #x80)
(new 'static 'rgba :r #x20 :a #x80)
(new 'static 'rgba)
)
)
(new 'static 'char-color :color (new 'static 'array rgba 4
(new 'static 'rgba :g #x7f :b #x7e :a #x80)
(new 'static 'rgba :g #x40 :b #x5f :a #x80)
(new 'static 'rgba :a #x80)
(new 'static 'rgba)
)
)
)
)
)
;; definition for function font-set-tex0
;; WARN: Return type mismatch int vs none.
(defun font-set-tex0 ((arg0 (pointer gs-tex0)) (arg1 texture) (arg2 int) (arg3 int) (arg4 int))
(set! (-> arg0 0) (new 'static 'gs-tex0
:tcc #x1
:cld #x1
:cbp arg4
:th (+ (log2 (+ (-> arg1 h) -1)) 1)
:tw (log2 (-> arg1 w))
:tbw (-> arg1 width 0)
:tbp0 (/ arg2 64)
:psm arg3
)
)
(none)
)
;; definition for function set-font-color
(defun set-font-color ((arg0 font-color) (arg1 rgba) (arg2 rgba) (arg3 rgba) (arg4 rgba))
(set! (-> *font-work* color-table arg0 color 0) arg1)
(set! (-> *font-work* color-table arg0 color 1) arg2)
(set! (-> *font-work* color-table arg0 color 2) arg3)
0
)
;; definition for symbol *font-default-matrix*, type matrix
(define *font-default-matrix*
(new 'static 'matrix
:rvec (new 'static 'vector :data (new 'static 'array float 4 1.0 0.0 0.0 0.0))
:uvec (new 'static 'vector :data (new 'static 'array float 4 0.0 1.0 0.0 0.0))
:fvec (new 'static 'vector :data (new 'static 'array float 4 0.0 0.0 1.0 0.0))
:trans (new 'static 'vector :data (new 'static 'array float 4 -256.0 -208.0 0.0 1.0))
)
)
;; definition for symbol *font-default-matrix-3d*, type matrix
(define *font-default-matrix-3d* (new 'static 'matrix
:rvec (new 'static 'vector :data (new 'static 'array float 4 1.0 0.0 0.0 0.0))
:uvec (new 'static 'vector :data (new 'static 'array float 4 0.0 1.0 0.0 0.0))
:fvec (new 'static 'vector :data (new 'static 'array float 4 0.0 0.0 1.0 0.0))
:trans (new 'static 'vector :data (new 'static 'array float 4 0.0 0.0 0.0 1.0))
)
)
;; definition for symbol *font-context*, type font-context
(define *font-context* (new
'global
'font-context
*font-default-matrix*
0
0
8396850.0
(font-color default)
(font-flags shadow kerning)
)
)
;; definition for symbol *font-context-3d*, type font-context
(define *font-context-3d* (new
'global
'font-context
*font-default-matrix-3d*
0
0
0.0
(font-color default)
(font-flags shadow kerning ff9)
)
)
;; definition for symbol *font-char-effect*, type font-char-effect
(define *font-char-effect* (the-as font-char-effect (malloc 'global 6144)))
Reference in New Issue View Git Blame Copy Permalink