Browse Source

Tweak fonts a bit

master
Macoy Madson 1 year ago
parent
commit
d9f0d9321e
  1. 32
      src/VectorPuppetShow.cake

32
src/VectorPuppetShow.cake

@ -90,10 +90,10 @@
font-size-points (unsigned char))
(var font-atlases (array font-atlas-texture)
(array
(array ;; Heading font, 1080p
(array 0) null
s-start-ubuntu-regular-font s-end-ubuntu-regular-font
38)
;; (array ;; Heading font, 1080p
;; (array 0) null
;; s-start-ubuntu-regular-font s-end-ubuntu-regular-font
;; 38)
(array ;; Body font, 1080p
(array 0) null
s-start-ubuntu-regular-font s-end-ubuntu-regular-font
@ -103,10 +103,10 @@
s-start-ubuntu-mono-font s-end-ubuntu-mono-font
20)
(array ;; Heading font, 4k
(array 0) null
s-start-ubuntu-regular-font s-end-ubuntu-regular-font
58)
;; (array ;; Heading font, 4k
;; (array 0) null
;; s-start-ubuntu-regular-font s-end-ubuntu-regular-font
;; 58)
(array ;; Body font, 4k
(array 0) null
s-start-ubuntu-regular-font s-end-ubuntu-regular-font
@ -115,13 +115,13 @@
(array 0) null
s-start-ubuntu-mono-font s-end-ubuntu-mono-font
34)))
(var heading-font-index-1080p (const int) 0)
;; (var heading-font-index-1080p (const int) 0)
(var body-font-index-1080p (const int) 1)
(var body-code-font-index-1080p (const int) 2)
(var heading-font-index-4k (const int) 3)
;; (var heading-font-index-4k (const int) 3)
(var body-font-index-4k (const int) 4)
(var body-code-font-index-4k (const int) 5)
(var heading-font-index int heading-font-index-1080p)
;; (var heading-font-index int heading-font-index-1080p)
(var body-font-index int body-font-index-1080p)
(var body-code-font-index int body-code-font-index-1080p)
@ -240,11 +240,11 @@
(SDL_SetRenderDrawColor renderer 11 11 11 255)
(SDL_RenderClear renderer)
;; (render-string
;; renderer (addr (field (at heading-font-index font-atlases) atlas))
;; (field (at heading-font-index font-atlases) texture)
;; (/ true-window-width 4.5f) (/ true-window-height 8)
;; "This is a test string")
(render-string
renderer (addr (field (at body-font-index font-atlases) atlas))
(field (at body-font-index font-atlases) texture)
(/ true-window-width 9) (- true-window-height 10)
"This is a test string")
(scope
(var source-rectangle SDL_Rect

Loading…
Cancel
Save