anchor.diff:  ;;; Library General Public License for more details.
   ;;;
   ;;; You should have received a copy of the GNU Library General Public
  -;;; License along with this library; if not, write to the 
  -;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 
  +;;; License along with this library; if not, write to the
  +;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
   ;;; Boston, MA  02111-1307  USA.
   
   ;;;; TODO
  
positive.code: ;;
  ;;
  ;;; And when you start to think about it, text-styles are not fonts. So
  ;;; we need two protocols: A text style protocol and a font protocol. 
  ;;
  ;;; A text style is then something, which maps a sequence of characters
  ;;; into a couple of drawing commands, while probably using some font.
  
negative.code:         :accessor medium-ink)
     (transformation :type transformation
                     :initarg :transformation
                     :initform +identity-transformation+
                     :accessor medium-transformation)
     (clipping-region :type region
                      :initarg :clipping-region
  