diff --git a/fontland/fontland/glyph-position.rkt b/fontland/fontland/glyph-position.rkt index 5cd60503..cd7b487d 100644 --- a/fontland/fontland/glyph-position.rkt +++ b/fontland/fontland/glyph-position.rkt @@ -2,29 +2,16 @@ (provide (all-defined-out)) ;; Represents positioning information for a glyph in a GlyphRun. -#;(define-subclass object% (GlyphPosition - ;; The amount to move the virtual pen in the X direction after rendering this glyph. - [xAdvance 0] - ;; The amount to move the virtual pen in the Y direction after rendering this glyph. - [yAdvance 0] - ;; The offset from the pen position in the X direction at which to render this glyph. - - [xOffset 0] - ;; The offset from the pen position in the Y direction at which to render this glyph. - [yOffset 0] - [advanceWidth 0]) - - (as-methods - scale) - ) - +;; x-advance = The amount to move the virtual pen in the X direction after rendering this glyph. +;; y-advance = The amount to move the virtual pen in the Y direction after rendering this glyph. +;; x-offset = The offset from the pen position in the X direction at which to render this glyph. +;; y-offset = The offset from the pen position in the Y direction at which to render this glyph. (struct glyph-position (x-advance y-advance x-offset y-offset advance-width) #:transparent #:mutable) (define (+glyph-position [x-advance 0] [y-advance 0] [x-offset 0] [y-offset 0] [advance-width 0]) (glyph-position x-advance y-advance x-offset y-offset advance-width)) (define (scale-glyph-position! gp factor) - #;(number? . ->m . (is-a?/c GlyphPosition)) (set-glyph-position-x-advance! gp (* factor (glyph-position-x-advance gp))) (set-glyph-position-y-advance! gp (* factor (glyph-position-y-advance gp))) (set-glyph-position-x-offset! gp (* factor (glyph-position-x-offset gp)))