anchor.diff:                    worker (values (x2 line-dimensions) (y1 line-dimensions)
                                    (dimensions-height line-dimensions))))))))
       (with-accessors ((buffer buffer) (top top) (bot bot)) view
  -      (let ((default-object-width (text-style-width (medium-default-text-style pane) pane)))
  +      (let ((default-object-width
  +             (text-style-width
  +              (medium-merged-text-style (sheet-medium pane)) pane)))
           (cond
             ((< offset (offset top)) nil)
             ((< (offset bot) offset) t)
  
positive.code: buffer offset `start-offset', and will be drawn starting
  at (`cursor-x', `cursor-y')"
    (let* ((line (line-information view (displayed-lines-count view)))
           (orig-x-offset cursor-x)
           (old-line-height (dimensions-height (line-dimensions line)))
           (old-line-width (dimensions-width (line-dimensions line))))
      (setf (line-start-offset line) start-offset
            (line-stroke-count line) 0)
      (loop for index from 0
  
negative.code:                 (face-style
                   (drawing-options-face
                    (stroke-drawing-options stroke)))
                  (medium-merged-text-style (sheet-medium stream)))))
  
  (defgeneric offset-to-screen-position (pane view offset)
    (:documentation "Returns the position of offset as a screen
  