comments

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)))