diff options
| -rw-r--r-- | chickadee/graphics/font.scm | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/chickadee/graphics/font.scm b/chickadee/graphics/font.scm index 416680d..a3ed823 100644 --- a/chickadee/graphics/font.scm +++ b/chickadee/graphics/font.scm @@ -50,8 +50,8 @@ load-font font? font-face - font-ascender - font-descender + font-ascent + font-descent font-line-height font-line-width font-bold? @@ -70,14 +70,14 @@ (advance font-char-advance)) (define-record-type <font> - (make-font face bold? italic? ascender descender line-height chars kernings + (make-font face bold? italic? ascent descent line-height chars kernings sprite-batches) font? (face font-face) (bold? font-bold?) (italic? font-italic?) - (ascender font-ascender) - (descender font-descender) + (ascent font-ascent) + (descent font-descent) (line-height font-line-height) (chars font-chars) (kernings font-kernings) @@ -202,12 +202,12 @@ display it at POINT-SIZE. By default, the ASCII character is used." (hashq-set! batches texture (make-sprite-batch texture)))) (let ((style (face-style-name face))) (match (size-metrics (face-size face)) - ((_ _ _ _ ascender descender height _) + ((_ _ _ _ ascent descent height _) (make-font (face-family-name face) (and (string-match ".*[B,b]old.*" style) #t) (and (string-match ".*[I,i]talic.*" style) #t) - (/ ascender 64.0) - (/ descender 64.0) + (/ ascent 64.0) + (/ descent 64.0) (/ height 64.0) chars kernings |