[Emacs-diffs] Changes to emacs/lisp/textmodes/artist.el

[John Paul Wallington]

Index: emacs/lisp/textmodes/artist.el
diff -c emacs/lisp/textmodes/artist.el:1.12 emacs/lisp/textmodes/artist.el:1.13
*** emacs/lisp/textmodes/artist.el:1.12 Fri Oct 18 11:25:48 2002
--- emacs/lisp/textmodes/artist.el      Sat Jul 19 12:21:21 2003
***************
*** 32,38 ****
  ;; ---------------
  ;;
  ;; Artist is an Emacs lisp package that allows you to draw lines,
! ;; rectangles and ellipses by using your mouse and/or keyboard. The
  ;; shapes are made up with the ascii characters |, -, / and \.
  ;;
  ;; Features are:
--- 32,38 ----
  ;; ---------------
  ;;
  ;; Artist is an Emacs lisp package that allows you to draw lines,
! ;; rectangles and ellipses by using your mouse and/or keyboard.  The
  ;; shapes are made up with the ascii characters |, -, / and \.
  ;;
  ;; Features are:
***************
*** 61,80 ****
  ;;     erase characters         erase rectangles
  ;;
  ;;   Straight lines are lines that go horizontally, vertically or
! ;;   diagonally. Plain lines go in any direction. The operations in
  ;;   the right column are accessed by holding down the shift key while
  ;;   drawing.
  ;;
  ;;   It is possible to vaporize (erase) entire lines and connected lines
  ;;   (rectangles for example) as long as the lines being vaporized are
! ;;   straight and connected at their endpoints. Vaporizing is inspired
  ;;   by the drawrect package by Jari Aalto <address@hidden>.
  ;;
  ;; * Flood-filling: You can fill any area with a certain character by
  ;;   flood-filling.
  ;;
  ;; * Cut copy and paste: You can cut, copy and paste rectangular
! ;;   regions. Artist also interfaces with the rect package (this can be
  ;;   turned off if it causes you any trouble) so anything you cut in
  ;;   artist can be yanked with C-x r y and vice versa.
  ;;
--- 61,80 ----
  ;;     erase characters         erase rectangles
  ;;
  ;;   Straight lines are lines that go horizontally, vertically or
! ;;   diagonally.  Plain lines go in any direction.  The operations in
  ;;   the right column are accessed by holding down the shift key while
  ;;   drawing.
  ;;
  ;;   It is possible to vaporize (erase) entire lines and connected lines
  ;;   (rectangles for example) as long as the lines being vaporized are
! ;;   straight and connected at their endpoints.  Vaporizing is inspired
  ;;   by the drawrect package by Jari Aalto <address@hidden>.
  ;;
  ;; * Flood-filling: You can fill any area with a certain character by
  ;;   flood-filling.
  ;;
  ;; * Cut copy and paste: You can cut, copy and paste rectangular
! ;;   regions.  Artist also interfaces with the rect package (this can be
  ;;   turned off if it causes you any trouble) so anything you cut in
  ;;   artist can be yanked with C-x r y and vice versa.
  ;;
***************
*** 85,91 ****
  ;;   poly-line, you can set arrows on the line-ends by typing < or >.
  ;;
  ;; * Aspect-ratio: You can set the variable artist-aspect-ratio to
! ;;   reflect the height-width ratio for the font you are using. Squares
  ;;   and circles are then drawn square/round.  Note, that once your
  ;;   ascii-file is shown with font with a different height-width ratio,
  ;;   the squares won't be square and the circles won't be round.
--- 85,91 ----
  ;;   poly-line, you can set arrows on the line-ends by typing < or >.
  ;;
  ;; * Aspect-ratio: You can set the variable artist-aspect-ratio to
! ;;   reflect the height-width ratio for the font you are using.  Squares
  ;;   and circles are then drawn square/round.  Note, that once your
  ;;   ascii-file is shown with font with a different height-width ratio,
  ;;   the squares won't be square and the circles won't be round.
***************
*** 1685,1691 ****
    (list 'if fn (cons 'funcall (cons fn args))))
  
  (defvar artist-butlast-fn 'artist-butlast
!   "The butlast function")
  
  (if (fboundp 'butlast)
      (setq artist-butlast-fn 'butlast)
--- 1685,1691 ----
    (list 'if fn (cons 'funcall (cons fn args))))
  
  (defvar artist-butlast-fn 'artist-butlast
!   "The butlast function.")
  
  (if (fboundp 'butlast)
      (setq artist-butlast-fn 'butlast)
***************
*** 2526,2532 ****
  when drawing a simple image.
  
  Output is a straight line, which is a list on the form
! (END-POINT-1 END-POINT-2 SHAPE-INFO).
  
  END-POINT-1 and END-POINT-2 are two-element vectors on the form [X Y].
  SHAPE-INFO is a vector [START-X START-Y LENGTH-OF-LINE DIRECTION
--- 2526,2532 ----
  when drawing a simple image.
  
  Output is a straight line, which is a list on the form
! \(END-POINT-1 END-POINT-2 SHAPE-INFO).
  
  END-POINT-1 and END-POINT-2 are two-element vectors on the form [X Y].
  SHAPE-INFO is a vector [START-X START-Y LENGTH-OF-LINE DIRECTION
***************
*** 2581,2587 ****
    "Draws a rectangle with corners at X1, Y1 and X2, Y2.
  
  Output is a rectangle, which is a list on the form
! (END-POINT-1 END-POINT-2 SHAPE-INFO).
  
  END-POINT-1 and END-POINT-2 are two-element vectors on the form [X Y].
  SHAPE-INFO is a list of four straight lines."
--- 2581,2587 ----
    "Draws a rectangle with corners at X1, Y1 and X2, Y2.
  
  Output is a rectangle, which is a list on the form
! \(END-POINT-1 END-POINT-2 SHAPE-INFO).
  
  END-POINT-1 and END-POINT-2 are two-element vectors on the form [X Y].
  SHAPE-INFO is a list of four straight lines."
***************
*** 2642,2648 ****
    "Draw a square with corners at X1, Y1 and X2, Y2.
  
  Output is a square, which is a list on the form
! (END-POINT-1 END-POINT-2 SHAPE-INFO).
  
  END-POINT-1 and END-POINT-2 are two-element vectors on the form [X Y].
  SHAPE-INFO is a list of four straight lines."
--- 2642,2648 ----
    "Draw a square with corners at X1, Y1 and X2, Y2.
  
  Output is a square, which is a list on the form
! \(END-POINT-1 END-POINT-2 SHAPE-INFO).
  
  END-POINT-1 and END-POINT-2 are two-element vectors on the form [X Y].
  SHAPE-INFO is a list of four straight lines."