annotate lisp/textmodes/artist.el @ 112434:9de5a68b57e1

Promote SSDATA macro from gtkutil.c and xsmfns.c to lisp.h.
author Paul Eggert <eggert@cs.ucla.edu>
date Sat, 22 Jan 2011 18:56:06 -0800
parents 61f7601898b1
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1 ;;; artist.el --- draw ascii graphics with your mouse
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2
112284
61f7601898b1 Refill some copyright headers.
Glenn Morris <rgm@gnu.org>
parents: 112278
diff changeset
3 ;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008,
61f7601898b1 Refill some copyright headers.
Glenn Morris <rgm@gnu.org>
parents: 112278
diff changeset
4 ;; 2009, 2010, 2011 Free Software Foundation, Inc.
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
6 ;; Author: Tomas Abrahamsson <tab@lysator.liu.se>
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
7 ;; Maintainer: Tomas Abrahamsson <tab@lysator.liu.se>
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
8 ;; Keywords: mouse
59223
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
9 ;; Version: 1.2.6
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
10 ;; Release-date: 6-Aug-2004
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
11 ;; Location: http://www.lysator.liu.se/~tab/artist/
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
12
94116
842d446b22d9 Cleanup the bug-report email addresses and make sure the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93975
diff changeset
13 ;; Yoni Rabkin <yoni@rabkins.net> contacted the maintainer of this
842d446b22d9 Cleanup the bug-report email addresses and make sure the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93975
diff changeset
14 ;; file on 19/3/2008, and the maintainer agreed that when a bug is filed in
842d446b22d9 Cleanup the bug-report email addresses and make sure the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93975
diff changeset
15 ;; the Emacs bug reporting system against this file, a copy of the bug
842d446b22d9 Cleanup the bug-report email addresses and make sure the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93975
diff changeset
16 ;; report be sent to the maintainer's email address.
842d446b22d9 Cleanup the bug-report email addresses and make sure the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93975
diff changeset
17
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
18 ;; This file is part of GNU Emacs.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
19
94670
f4a69fedbd46 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94116
diff changeset
20 ;; GNU Emacs is free software: you can redistribute it and/or modify
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
21 ;; it under the terms of the GNU General Public License as published by
94670
f4a69fedbd46 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94116
diff changeset
22 ;; the Free Software Foundation, either version 3 of the License, or
f4a69fedbd46 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94116
diff changeset
23 ;; (at your option) any later version.
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
24
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
25 ;; GNU Emacs is distributed in the hope that it will be useful,
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
26 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
27 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
28 ;; GNU General Public License for more details.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
29
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
30 ;; You should have received a copy of the GNU General Public License
94670
f4a69fedbd46 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94116
diff changeset
31 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
32
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
33 ;;; Commentary:
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
34
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
35 ;; What is artist?
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
36 ;; ---------------
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
37 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
38 ;; Artist is an Emacs lisp package that allows you to draw lines,
51961
e56cb5adb76f (artist-butlast-fn, artist-draw-sline)
John Paul Wallington <jpw@pobox.com>
parents: 47953
diff changeset
39 ;; rectangles and ellipses by using your mouse and/or keyboard. The
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
40 ;; shapes are made up with the ascii characters |, -, / and \.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
41 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
42 ;; Features are:
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
43 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
44 ;; * Intersecting: When a `|' intersects with a `-', a `+' is
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
45 ;; drawn, like this: | \ /
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
46 ;; --+-- X
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
47 ;; | / \
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
48 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
49 ;; * Rubber-banding: When drawing lines you can interactively see the
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
50 ;; result while holding the mouse button down and moving the mouse. If
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
51 ;; your machine is not fast enough (a 386 is a bit to slow, but a
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
52 ;; pentium is well enough), you can turn this feature off. You will
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
53 ;; then see 1's and 2's which mark the 1st and 2nd endpoint of the line
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
54 ;; you are drawing.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
55 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
56 ;; * Drawing operations: The following drawing operations are implemented:
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
57 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
58 ;; lines straight-lines
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
59 ;; rectangles squares
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
60 ;; poly-lines straight poly-lines
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
61 ;; ellipses circles
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
62 ;; text (see-thru) text (overwrite)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
63 ;; spray-can setting size for spraying
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
64 ;; vaporize line vaporize lines
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
65 ;; erase characters erase rectangles
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
66 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
67 ;; Straight lines are lines that go horizontally, vertically or
51961
e56cb5adb76f (artist-butlast-fn, artist-draw-sline)
John Paul Wallington <jpw@pobox.com>
parents: 47953
diff changeset
68 ;; diagonally. Plain lines go in any direction. The operations in
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
69 ;; the right column are accessed by holding down the shift key while
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
70 ;; drawing.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
71 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
72 ;; It is possible to vaporize (erase) entire lines and connected lines
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
73 ;; (rectangles for example) as long as the lines being vaporized are
51961
e56cb5adb76f (artist-butlast-fn, artist-draw-sline)
John Paul Wallington <jpw@pobox.com>
parents: 47953
diff changeset
74 ;; straight and connected at their endpoints. Vaporizing is inspired
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
75 ;; by the drawrect package by Jari Aalto <jari.aalto@poboxes.com>.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
76 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
77 ;; * Flood-filling: You can fill any area with a certain character by
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
78 ;; flood-filling.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
79 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
80 ;; * Cut copy and paste: You can cut, copy and paste rectangular
51961
e56cb5adb76f (artist-butlast-fn, artist-draw-sline)
John Paul Wallington <jpw@pobox.com>
parents: 47953
diff changeset
81 ;; regions. Artist also interfaces with the rect package (this can be
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
82 ;; turned off if it causes you any trouble) so anything you cut in
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
83 ;; artist can be yanked with C-x r y and vice versa.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
84 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
85 ;; * Drawing with keys: Everything you can do with the mouse, you can
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
86 ;; also do without the mouse.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
87 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
88 ;; * Arrows: After having drawn a (straight) line or a (straight)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
89 ;; poly-line, you can set arrows on the line-ends by typing < or >.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
90 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
91 ;; * Aspect-ratio: You can set the variable artist-aspect-ratio to
51961
e56cb5adb76f (artist-butlast-fn, artist-draw-sline)
John Paul Wallington <jpw@pobox.com>
parents: 47953
diff changeset
92 ;; reflect the height-width ratio for the font you are using. Squares
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
93 ;; and circles are then drawn square/round. Note, that once your
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
94 ;; ascii-file is shown with font with a different height-width ratio,
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
95 ;; the squares won't be square and the circles won't be round.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
96 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
97 ;; * Picture mode compatibility: Artist is picture mode compatible (this
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
98 ;; can be turned off).
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
99 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
100 ;; See the documentation for the function artist-mode for a detailed
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
101 ;; description on how to use artist.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
102 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
103 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
104 ;; What about adding my own drawing modes?
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
105 ;; ---------------------------------------
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
106 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
107 ;; See the short guide at the end of this file.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
108 ;; If you add a new drawing mode, send it to me, and I would gladly
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
109 ;; include in the next release!
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
110
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
111 ;;; Installation:
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
112
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
113 ;; To use artist, put this in your .emacs:
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
114 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
115 ;; (autoload 'artist-mode "artist" "Enter artist-mode" t)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
116
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
117
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
118 ;;; Requirements:
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
119
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
120 ;; Artist requires Emacs 19.28 or higher.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
121 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
122 ;; Artist requires the `rect' package (which comes with Emacs) to be
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
123 ;; loadable, unless the variable `artist-interface-with-rect' is set
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
124 ;; to nil.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
125 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
126 ;; Artist also requires the Picture mode (which also comes with Emacs)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
127 ;; to be loadable, unless the variable `artist-picture-compatibility'
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
128 ;; is set to nil.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
129
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
130 ;;; Known bugs:
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
131
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
132 ;; The shifted operations are not available when drawing with the mouse
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
133 ;; in Emacs 19.29 and 19.30.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
134 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
135 ;; It is not possible to change between shifted and unshifted operation
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
136 ;; while drawing with the mouse. (See the comment in the function
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
137 ;; artist-shift-has-changed for further details.)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
138
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
139
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
140 ;;; ChangeLog:
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
141
59223
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
142 ;; 1.2.6 6-Aug-2004
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
143 ;; New: Coerced with the artist.el that's in Emacs-21.3.
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
144 ;; (minor editorial changes)
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
145 ;;
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
146 ;; 1.2.5 4-Aug-2004
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
147 ;; New: Added tool selection via the mouse-wheel
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
148 ;; Function provided by Andreas Leue <al@sphenon.de>
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
149 ;;
40323
8716d2ed21c6 (artist-version): 1.2.4.
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
150 ;; 1.2.4 25-Oct-2001
8716d2ed21c6 (artist-version): 1.2.4.
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
151 ;; Bugfix: Some operations (the edit menu) got hidden
8716d2ed21c6 (artist-version): 1.2.4.
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
152 ;; Bugfix: The first arrow for poly-lines was always pointing
8716d2ed21c6 (artist-version): 1.2.4.
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
153 ;; to the right
8716d2ed21c6 (artist-version): 1.2.4.
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
154 ;; Changed: Updated with changes made for Emacs 21.1
8716d2ed21c6 (artist-version): 1.2.4.
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
155 ;;
8716d2ed21c6 (artist-version): 1.2.4.
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
156 ;; 1.2.3 20-Nov-2000
8716d2ed21c6 (artist-version): 1.2.4.
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
157 ;; Bugfix: Autoload cookie corrected
8716d2ed21c6 (artist-version): 1.2.4.
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
158 ;;
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
159 ;; 1.2.2 19-Nov-2000
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
160 ;; Changed: More documentation fixes.
47953
126b6cb8740d (artist-ff-is-bottommost-line): Fix misplaced ELSE expression on IF.
Juanma Barranquero <lekktu@gmail.com>
parents: 46163
diff changeset
161 ;; Bugfix: The arrow characters (`artist-arrows'), which
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
162 ;; got wrong in 1.1, are now corrected.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
163 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
164 ;; 1.2.1 15-Nov-2000
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
165 ;; New: Documentation fixes.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
166 ;; Bugfix: Sets next-line-add-newlines to t while in artist-mode.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
167 ;; Drawing with keys was confusing without this fix, if
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
168 ;; next-line-add-newlines was set to nil.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
169 ;; Thanks to Tatsuo Furukawa <tatsuo@kobe.hp.com> for this.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
170 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
171 ;; 1.2 22-Oct-2000
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
172 ;; New: Updated to work with Emacs 21
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
173 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
174 ;; 1.1 15-Aug-2000
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
175 ;; Bugfix: Cursor follows mouse pointer more closely.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
176 ;; New: Works with Emacs 20.x
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
177 ;; New: Variables are customizable
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
178 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
179 ;; 1.1-beta1 21-Apr-1998
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
180 ;; New: Spray-can (Utterly useless, I believe, but it was fun
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
181 ;; to implement :-) after an idea by Karl-Johan Karlsson
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
182 ;; <kj@lysator.liu.se>.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
183 ;; New: Freehand drawing (with pen).
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
184 ;; New: Vaporizing lines.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
185 ;; New: Text-rendering using figlet.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
186 ;; New: Picture mode compatibility.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
187 ;; Changed: All Artist keys now uses the prefix C-c C-a not to conflict
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
188 ;; with Picture mode.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
189 ;; Bugfix: No longer leaves traces of lines when rubberbanding
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
190 ;; if the buffer auto-scrolls.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
191 ;; Bugfix: Infinite loop sometimes when rubberbanding was turned
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
192 ;; off.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
193 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
194 ;; 1.0 01-Mar-1998
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
195 ;; First official release.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
196
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
197 ;;; Code:
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
198
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
199 ;; Variables
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
200
59223
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
201 (defconst artist-version "1.2.6")
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
202 (defconst artist-maintainer-address "tab@lysator.liu.se")
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
203
65260
c1dcf33345ab (x-pointer-crosshair): Add defvar.
Juanma Barranquero <lekktu@gmail.com>
parents: 64751
diff changeset
204 (defvar x-pointer-crosshair)
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
205
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
206 ;; User options
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
207 ;; vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
208
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
209 (defgroup artist nil
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
210 "Customization of the Artist mode."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
211 :group 'mouse)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
212
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
213 (defgroup artist-text nil
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
214 "Customization of the text rendering."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
215 :group 'artist)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
216
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
217 (defcustom artist-rubber-banding t
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
218 "Interactively do rubber-banding when non-nil."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
219 :group 'artist
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
220 :type 'boolean)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
221
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
222 (defcustom artist-first-char ?1
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
223 "Character to set at first point when not rubber-banding."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
224 :group 'artist
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
225 :type 'character)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
226
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
227 (defcustom artist-second-char ?2
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
228 "Character to set at second point when not rubber-banding."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
229 :group 'artist
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
230 :type 'character)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
231
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
232 (defcustom artist-interface-with-rect t
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
233 "Whether to interface with the rect package or not.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
234
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
235 Interfacing to the rect package means that the Copy and Paste operations
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
236 will use the rectangle buffer when accessing the copied area. This means
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
237 that you can insert a rectangle which is copied using the artist package
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
238 and vice versa.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
239
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
240 If this causes any problem for you (for example, if the implementation of
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
241 the rectangle package changes), you can set this variable to nil, and the
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
242 artist package will use its own copy buffer."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
243 :group 'artist
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
244 :type 'boolean)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
245
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
246 (defvar artist-arrows [ ?> nil ?v ?L ?< nil ?^ nil ]
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
247 ;; This is a defvar, not a defcustom, since the custom
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
248 ;; package shows vectors of characters as a vector of integers,
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
249 ;; which is confusing
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
250 "A vector of characters to use as arrows.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
251
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
252 The vector is 8 elements long and contains a character for each
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
253 direction, or nil if there is no suitable character to use for arrow
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
254 in that direction.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
255
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
256 The directions are as follows:
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
257
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
258 5 6 7
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
259 \\ | /
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
260 4 - * - 0
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
261 / | \\
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
262 3 2 1")
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
263
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
264 (defcustom artist-aspect-ratio 1
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
265 "Defines the character height-to-width aspect ratio.
99875
3658bfd115cd * textmodes/artist.el (artist-charlist-to-string): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 99515
diff changeset
266 This is used when drawing squares and circles."
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
267 :group 'artist
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
268 :type 'number)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
269
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
270 (defcustom artist-trim-line-endings t
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
271 "Whether or not to remove white-space at end of lines.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
272
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
273 If non-nil, line-endings are trimmed (that is, extraneous white-space
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
274 at the end of the line is removed) when the shape is drawn."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
275 :group 'artist
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
276 :type 'boolean)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
277
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
278
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
279 (defcustom artist-flood-fill-right-border 'window-width
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
280 "Right edge definition, used when flood-filling.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
281
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
282 When flood-filling, if the area is not closed off to the right, then
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
283 flood-filling will fill no more to the right than specified by this
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
284 variable. This limit is called the fill-border."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
285 :group 'artist
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
286 :type '(choice (const :tag "limited to window" window-width)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
287 (const :tag "limited to value of `fill-column'" fill-column)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
288
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
289 (defcustom artist-flood-fill-show-incrementally t
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
290 "Whether or not to incrementally update display when flood-filling.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
291
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
292 If non-nil, incrementally update display when flood-filling.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
293 If set to non-nil, this currently implies discarding any input events
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
294 during the flood-fill."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
295 :group 'artist
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
296 :type 'boolean)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
297
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
298
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
299 (defcustom artist-ellipse-right-char ?\)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
300 "Character to use at the rightmost position when drawing narrow ellipses.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
301
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
302 In this figure, it is the right parenthesis (the ``)'' character):
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
303 -----
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
304 ( )
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
305 -----"
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
306 :group 'artist
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
307 :type 'character)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
308
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
309
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
310 (defcustom artist-ellipse-left-char ?\(
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
311 "Character to use at the leftmost position when drawing narrow ellipses.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
312
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
313 In this figure, it is the left parenthesis (the ``('' character):
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
314 -----
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
315 ( )
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
316 -----"
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
317 :group 'artist
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
318 :type 'character)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
319
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
320 (defcustom artist-picture-compatibility t
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
321 "Whether or not picture mode compatibility is on."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
322 :group 'artist
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
323 :type 'boolean)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
324
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
325
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
326
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
327
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
328 (defcustom artist-vaporize-fuzziness 1
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
329 "How to vaporize lines that are cut off.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
330
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
331 Accept this many characters cutting off a line and still treat
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
332 it as one line.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
333 Example:
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
334 If `artist-vaporize-fuzziness' is 2, then those will be recognized as
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
335 lines from A to B (provided you start vaporizing them at the ``*''):
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
336 /
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
337 A----*------/-----------B
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
338 \\/
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
339 A----*----/\\------------B
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
340 / \\
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
341
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
342 but this one won't, since it is cut off by more than 2 characters:
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
343 \\/ /
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
344 A----*----/\\/----------B
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
345 / /\\
99875
3658bfd115cd * textmodes/artist.el (artist-charlist-to-string): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 99515
diff changeset
346 (in fact, only the left part [between the A and the leftmost ``/''
3658bfd115cd * textmodes/artist.el (artist-charlist-to-string): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 99515
diff changeset
347 crossing the line] will be vaporized)."
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
348 :group 'artist
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
349 :type 'integer)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
350
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
351
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
352 (defvar artist-pointer-shape (if (eq window-system 'x) x-pointer-crosshair nil)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
353 "*If in X Windows, use this pointer shape while drawing with the mouse.")
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
354
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
355
70811
fbbc9639de95 (artist-text-renderer): Make this the alias for the following variable.
Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
parents: 68648
diff changeset
356 (defcustom artist-text-renderer-function 'artist-figlet
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
357 "Function for doing text rendering."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
358 :group 'artist-text
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
359 :type 'symbol)
70811
fbbc9639de95 (artist-text-renderer): Make this the alias for the following variable.
Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
parents: 68648
diff changeset
360 (defvaralias 'artist-text-renderer 'artist-text-renderer-function)
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
361
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
362
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
363 (defcustom artist-figlet-program "figlet"
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
364 "Program to run for `figlet'."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
365 :group 'artist-text
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
366 :type 'string)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
367
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
368
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
369 (defcustom artist-figlet-default-font "standard"
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
370 "Default font for `figlet'."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
371 :group 'artist-text
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
372 :type 'string)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
373
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
374
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
375 (defcustom artist-figlet-list-fonts-command
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
376 ;; list files ending with *.flf in any directory printed by the
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
377 ;; ``figlet -I2'' command. I think this will not produce more than
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
378 ;; one directory, but it never hurts to be on the safe side...
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
379 "for dir in `figlet -I2`; do cd $dir; ls *.flf; done"
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
380 "Command to run to get list of available fonts."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
381 :group 'artist-text
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
382 :type 'string)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
383
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
384
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
385 (defcustom artist-spray-interval 0.2
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
386 "Number of seconds between repeated spraying."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
387 :group 'artist
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
388 :type 'number)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
389
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
390
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
391 (defcustom artist-spray-radius 4
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
392 "Size of the area for spraying."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
393 :group 'artist
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
394 :type 'integer)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
395
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
396
65260
c1dcf33345ab (x-pointer-crosshair): Add defvar.
Juanma Barranquero <lekktu@gmail.com>
parents: 64751
diff changeset
397 (defvar artist-spray-chars '(?\s ?. ?- ?+ ?m ?% ?* ?#)
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
398 ;; This is a defvar, not a defcustom, since the custom
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
399 ;; package shows lists of characters as a lists of integers,
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
400 ;; which is confusing
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
401 "*Characters (``color'') to use when spraying.
99875
3658bfd115cd * textmodes/artist.el (artist-charlist-to-string): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 99515
diff changeset
402 They should be ordered from the ``lightest'' to the ``heaviest''
3658bfd115cd * textmodes/artist.el (artist-charlist-to-string): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 99515
diff changeset
403 since spraying replaces a light character with the next heavier one.")
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
404
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
405
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
406 (defvar artist-spray-new-char ?.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
407 "*Initial character to use when spraying.
99875
3658bfd115cd * textmodes/artist.el (artist-charlist-to-string): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 99515
diff changeset
408 This character is used if spraying upon a character that is not in
3658bfd115cd * textmodes/artist.el (artist-charlist-to-string): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 99515
diff changeset
409 `artist-spray-chars'. The character defined by this variable should
3658bfd115cd * textmodes/artist.el (artist-charlist-to-string): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 99515
diff changeset
410 be in `artist-spray-chars', or spraying will behave strangely.")
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
411
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
412
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
413 ;; ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
414 ;; End of user options
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
415
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
416
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
417 ;; Internal variables
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
418 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
419 (defvar artist-mode nil
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
420 "Non-nil to enable `artist-mode' and nil to disable.")
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
421 (make-variable-buffer-local 'artist-mode)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
422
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
423 (defvar artist-mode-name " Artist"
99875
3658bfd115cd * textmodes/artist.el (artist-charlist-to-string): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 99515
diff changeset
424 "Name of Artist mode beginning with a space (appears in the mode-line).")
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
425
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
426 (defvar artist-curr-go 'pen-char
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
427 "Current selected graphics operation.")
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
428 (make-variable-buffer-local 'artist-curr-go)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
429
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
430 (defvar artist-line-char-set nil
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
431 "Boolean to tell whether user has set some char to use when drawing lines.")
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
432 (make-variable-buffer-local 'artist-line-char-set)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
433
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
434 (defvar artist-line-char nil
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
435 "Char to use when drawing lines.")
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
436 (make-variable-buffer-local 'artist-line-char)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
437
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
438 (defvar artist-fill-char-set nil
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
439 "Boolean to tell whether user has set some char to use when filling.")
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
440 (make-variable-buffer-local 'artist-fill-char-set)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
441
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
442 (defvar artist-fill-char nil
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
443 "Char to use when filling.")
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
444 (make-variable-buffer-local 'artist-fill-char)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
445
51965
5a62d5472383 (artist-erase-char): Fix default value using ?\s.
Markus Rost <rost@math.uni-bielefeld.de>
parents: 51961
diff changeset
446 (defvar artist-erase-char ?\s
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
447 "Char to use when erasing.")
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
448 (make-variable-buffer-local 'artist-erase-char)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
449
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
450 (defvar artist-default-fill-char ?.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
451 "Char to use when a fill-char is required but none is set.")
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
452 (make-variable-buffer-local 'artist-default-fill-char)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
453
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
454 ; This variable is not buffer local
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
455 (defvar artist-copy-buffer nil
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
456 "Copy buffer.")
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
457
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
458 (defvar artist-draw-region-min-y 0
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
459 "Line-number for top-most visited line for draw operation.")
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
460 (make-variable-buffer-local 'artist-draw-region-min-y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
461
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
462 (defvar artist-draw-region-max-y 0
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
463 "Line-number for bottom-most visited line for draw operation.")
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
464 (make-variable-buffer-local 'artist-draw-region-max-y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
465
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
466 (defvar artist-borderless-shapes nil
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
467 "When non-nil, draw shapes without border.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
468 The fill char is used instead, if it is set.")
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
469 (make-variable-buffer-local 'artist-borderless-shapes)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
470
59223
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
471 (defvar artist-prev-next-op-alist nil
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
472 "Assoc list for looking up next and/or previous draw operation.
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
473 The structure is as follows: (OP . (PREV-OP . NEXT-OP))
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
474 where the elements are as follows:
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
475 * OP is an atom: the KEY-SYMBOL in the `artist-mt' structure
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
476 * PREV-OP and NEXT-OP are strings: the KEYWORD in the `artist-mt' structure
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
477
99875
3658bfd115cd * textmodes/artist.el (artist-charlist-to-string): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 99515
diff changeset
478 This variable is initialized by the `artist-make-prev-next-op-alist' function.")
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
479
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
480 (eval-when-compile
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
481 ;; Make rect available at compile-time
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
482 (require 'rect) ; for interfacing with rect
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
483 (require 'reporter) ; the bug-reporting tool
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
484 (require 'picture)) ; picture mode compatibility
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
485
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
486 (if artist-interface-with-rect
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
487 (require 'rect))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
488
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
489 (require 'reporter)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
490
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
491 (if artist-picture-compatibility
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
492 (require 'picture))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
493
63948
c51c70065bb1 (artist-key-is-drawing)
Richard M. Stallman <rms@gnu.org>
parents: 63800
diff changeset
494 ;; Variables that are made local in artist-mode-init
c51c70065bb1 (artist-key-is-drawing)
Richard M. Stallman <rms@gnu.org>
parents: 63800
diff changeset
495 (defvar artist-key-is-drawing nil)
c51c70065bb1 (artist-key-is-drawing)
Richard M. Stallman <rms@gnu.org>
parents: 63800
diff changeset
496 (defvar artist-key-endpoint1 nil)
c51c70065bb1 (artist-key-is-drawing)
Richard M. Stallman <rms@gnu.org>
parents: 63800
diff changeset
497 (defvar artist-key-poly-point-list nil)
c51c70065bb1 (artist-key-is-drawing)
Richard M. Stallman <rms@gnu.org>
parents: 63800
diff changeset
498 (defvar artist-key-shape nil)
c51c70065bb1 (artist-key-is-drawing)
Richard M. Stallman <rms@gnu.org>
parents: 63800
diff changeset
499 (defvar artist-key-draw-how nil)
c51c70065bb1 (artist-key-is-drawing)
Richard M. Stallman <rms@gnu.org>
parents: 63800
diff changeset
500 (defvar artist-popup-menu-table nil)
c51c70065bb1 (artist-key-is-drawing)
Richard M. Stallman <rms@gnu.org>
parents: 63800
diff changeset
501 (defvar artist-key-compl-table nil)
c51c70065bb1 (artist-key-is-drawing)
Richard M. Stallman <rms@gnu.org>
parents: 63800
diff changeset
502 (defvar artist-rb-save-data nil)
c51c70065bb1 (artist-key-is-drawing)
Richard M. Stallman <rms@gnu.org>
parents: 63800
diff changeset
503 (defvar artist-arrow-point-1 nil)
c51c70065bb1 (artist-key-is-drawing)
Richard M. Stallman <rms@gnu.org>
parents: 63800
diff changeset
504 (defvar artist-arrow-point-2 nil)
c51c70065bb1 (artist-key-is-drawing)
Richard M. Stallman <rms@gnu.org>
parents: 63800
diff changeset
505
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
506 (defvar artist-mode-map
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
507 (let ((map (make-sparse-keymap)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
508 (setq artist-mode-map (make-sparse-keymap))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
509 (define-key map [down-mouse-1] 'artist-down-mouse-1)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
510 (define-key map [S-down-mouse-1] 'artist-down-mouse-1)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
511 (define-key map [down-mouse-2] 'artist-mouse-choose-operation)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
512 (define-key map [S-down-mouse-2] 'artist-mouse-choose-operation)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
513 (define-key map [down-mouse-3] 'artist-down-mouse-3)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
514 (define-key map [S-down-mouse-3] 'artist-down-mouse-3)
59223
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
515 (define-key map [C-mouse-4] 'artist-select-prev-op-in-list)
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
516 (define-key map [C-mouse-5] 'artist-select-next-op-in-list)
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
517 (define-key map "\r" 'artist-key-set-point) ; return
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
518 (define-key map [up] 'artist-previous-line)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
519 (define-key map "\C-p" 'artist-previous-line)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
520 (define-key map [down] 'artist-next-line)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
521 (define-key map "\C-n" 'artist-next-line)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
522 (define-key map [left] 'artist-backward-char)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
523 (define-key map "\C-b" 'artist-backward-char)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
524 (define-key map [right] 'artist-forward-char)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
525 (define-key map "\C-f" 'artist-forward-char)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
526 (define-key map "<" 'artist-toggle-first-arrow)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
527 (define-key map ">" 'artist-toggle-second-arrow)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
528 (define-key map "\C-c\C-a\C-e" 'artist-select-erase-char)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
529 (define-key map "\C-c\C-a\C-f" 'artist-select-fill-char)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
530 (define-key map "\C-c\C-a\C-l" 'artist-select-line-char)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
531 (define-key map "\C-c\C-a\C-o" 'artist-select-operation)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
532 (define-key map "\C-c\C-a\C-r" 'artist-toggle-rubber-banding)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
533 (define-key map "\C-c\C-a\C-t" 'artist-toggle-trim-line-endings)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
534 (define-key map "\C-c\C-a\C-s" 'artist-toggle-borderless-shapes)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
535 (define-key map "\C-c\C-c" 'artist-mode-off)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
536 (define-key map "\C-c\C-al" 'artist-select-op-line)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
537 (define-key map "\C-c\C-aL" 'artist-select-op-straight-line)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
538 (define-key map "\C-c\C-ar" 'artist-select-op-rectangle)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
539 (define-key map "\C-c\C-aR" 'artist-select-op-square)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
540 (define-key map "\C-c\C-as" 'artist-select-op-square)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
541 (define-key map "\C-c\C-ap" 'artist-select-op-poly-line)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
542 (define-key map "\C-c\C-aP" 'artist-select-op-straight-poly-line)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
543 (define-key map "\C-c\C-ae" 'artist-select-op-ellipse)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
544 (define-key map "\C-c\C-ac" 'artist-select-op-circle)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
545 (define-key map "\C-c\C-at" 'artist-select-op-text-see-thru)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
546 (define-key map "\C-c\C-aT" 'artist-select-op-text-overwrite)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
547 (define-key map "\C-c\C-aS" 'artist-select-op-spray-can)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
548 (define-key map "\C-c\C-az" 'artist-select-op-spray-set-size)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
549 (define-key map "\C-c\C-a\C-d" 'artist-select-op-erase-char)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
550 (define-key map "\C-c\C-aE" 'artist-select-op-erase-rectangle)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
551 (define-key map "\C-c\C-av" 'artist-select-op-vaporize-line)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
552 (define-key map "\C-c\C-aV" 'artist-select-op-vaporize-lines)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
553 (define-key map "\C-c\C-a\C-k" 'artist-select-op-cut-rectangle)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
554 (define-key map "\C-c\C-a\M-w" 'artist-select-op-copy-rectangle)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
555 (define-key map "\C-c\C-a\C-y" 'artist-select-op-paste)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
556 (define-key map "\C-c\C-af" 'artist-select-op-flood-fill)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
557 (define-key map "\C-c\C-a\C-b" 'artist-submit-bug-report)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
558 map)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
559 "Keymap for `artist-minor-mode'.")
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
560
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
561 (defvar artist-replacement-table (make-vector 256 0)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
562 "Replacement table for `artist-replace-char'.")
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
563
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
564
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
565 ;;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
566 ;;; The table of graphic operations
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
567 ;;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
568 (defvar artist-mt
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
569 ;; Implementation note: Maybe this should be done using a structure
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
570 ;; in the cl package?
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
571 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
572 '(
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
573 (menu
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
574 ("Drawing"
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
575 ((function-call
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
576 ( "Undo" do-undo undo))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
577
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
578 (separator )
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
579 (graphics-operation
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
580 ("Pen" (("Pen" pen-char "pen-c"
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
581 artist-no-arrows nil
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
582 nil nil nil
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
583 artist-do-continously
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
584 artist-pen
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
585 (nil))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
586 ("Pen Line" pen-line "pen-l"
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
587 artist-arrows artist-pen-set-arrow-points
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
588 artist-pen-reset-last-xy nil nil
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
589 artist-do-continously
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
590 artist-pen-line
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
591 (nil)))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
592
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
593 (graphics-operation
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
594 ("Line" (("line" line "line"
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
595 artist-arrows artist-set-arrow-points-for-2points
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
596 nil nil nil
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
597 2
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
598 artist-draw-line
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
599 (artist-undraw-line
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
600 artist-nil nil))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
601 ("straight line" s-line "sline"
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
602 artist-arrows artist-set-arrow-points-for-2points
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
603 nil nil nil
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
604 2
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
605 artist-draw-sline
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
606 (artist-undraw-sline
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
607 artist-nil nil)))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
608
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
609 (graphics-operation
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
610 ("Rectangle" (("rectangle" rect "rect"
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
611 artist-no-arrows nil
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
612 nil nil nil
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
613 2
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
614 artist-draw-rect
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
615 (artist-undraw-rect
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
616 artist-t-if-fill-char-set artist-fill-rect))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
617 ("square" square "square"
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
618 artist-no-arrows nil
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
619 nil nil nil
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
620 2
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
621 artist-draw-square
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
622 (artist-undraw-square
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
623 artist-t-if-fill-char-set artist-fill-square)))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
624
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
625 (graphics-operation
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
626 ("Poly-line" (("poly-line" polyline "poly"
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
627 artist-arrows artist-set-arrow-points-for-poly
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
628 nil nil nil
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
629 artist-do-poly
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
630 artist-draw-line
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
631 (artist-undraw-line
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
632 artist-nil nil))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
633 ("straight poly-line" spolyline "s-poly"
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
634 artist-arrows artist-set-arrow-points-for-poly
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
635 nil nil nil
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
636 artist-do-poly
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
637 artist-draw-sline
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
638 (artist-undraw-sline
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
639 artist-nil nil)))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
640
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
641 (graphics-operation
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
642 ("Ellipse" (("ellipse" ellipse "ellipse"
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
643 artist-no-arrows nil
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
644 nil nil nil
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
645 2
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
646 artist-draw-ellipse
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
647 (artist-undraw-ellipse
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
648 artist-t-if-fill-char-set artist-fill-ellipse))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
649 ("circle" circle "circle"
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
650 artist-no-arrows nil
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
651 nil nil nil
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
652 2
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
653 artist-draw-circle
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
654 (artist-undraw-circle
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
655 artist-t-if-fill-char-set artist-fill-circle)))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
656
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
657 (graphics-operation
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
658 ("Text" (("text see-thru" text-thru "text-thru"
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
659 artist-no-arrows nil
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
660 nil nil nil
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
661 1
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
662 artist-text-see-thru
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
663 nil)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
664 ("text overwrite" text-ovwrt "text-ovwrt"
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
665 artist-no-arrows nil
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
666 nil nil nil
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
667 1
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
668 artist-text-overwrite
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
669 nil))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
670
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
671 (graphics-operation
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
672 ("Spray-can" (("spray-can" spray-can "spray-can"
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
673 artist-no-arrows nil
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
674 nil nil nil
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
675 artist-do-continously
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
676 artist-spray
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
677 (artist-spray-get-interval))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
678 ("spray set size" spray-get-size "spray-size"
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
679 artist-no-arrows nil
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
680 nil artist-spray-clear-circle artist-spray-set-radius
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
681 2
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
682 artist-draw-circle
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
683 (artist-undraw-circle
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
684 artist-nil nil)))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
685
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
686 (graphics-operation
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
687 ("Erase" (("erase char" erase-char "erase-c"
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
688 artist-no-arrows nil
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
689 nil nil nil
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
690 artist-do-continously
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
691 artist-erase-char
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
692 (nil))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
693 ("erase rectangle" erase-rect "erase-r"
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
694 artist-no-arrows nil
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
695 nil nil nil
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
696 2
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
697 artist-draw-rect
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
698 (artist-undraw-rect
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
699 artist-t artist-erase-rect)))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
700
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
701 (graphics-operation
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
702 ("Vaporize" (("vaporize line" vaporize-line "vaporize-1"
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
703 artist-no-arrows nil
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
704 nil nil nil
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
705 1
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
706 artist-vaporize-line
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
707 nil)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
708 ("vaporize lines" vaporize-lines "vaporize-n"
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
709 artist-no-arrows nil
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
710 nil nil nil
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
711 1
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
712 artist-vaporize-lines
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
713 nil)))))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
714
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
715 (menu
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
716 ("Edit"
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
717 ((graphics-operation
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
718 ("Cut" (("cut rectangle" cut-r "cut-r"
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
719 artist-no-arrows nil
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
720 nil nil nil
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
721 2
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
722 artist-draw-rect
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
723 (artist-undraw-rect
97766
2b0a264c4e18 (artist-mode-init): Added comment on the setting up of the
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
724 artist-t artist-cut-rect))
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
725 ("cut square" cut-s "cut-s"
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
726 artist-no-arrows nil
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
727 nil nil nil
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
728 2
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
729 artist-draw-square
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
730 (artist-undraw-square
97766
2b0a264c4e18 (artist-mode-init): Added comment on the setting up of the
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
731 artist-t artist-cut-square)))))
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
732
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
733 (graphics-operation
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
734 ("Copy" (("copy rectangle" copy-r "copy-r"
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
735 artist-no-arrows nil
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
736 nil nil nil
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
737 2
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
738 artist-draw-rect
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
739 (artist-undraw-rect
97766
2b0a264c4e18 (artist-mode-init): Added comment on the setting up of the
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
740 artist-t artist-copy-rect))
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
741 ("copy square" copy-s "copy-s"
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
742 artist-no-arrows nil
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
743 nil nil nil
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
744 2
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
745 artist-draw-square
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
746 (artist-undraw-square
97766
2b0a264c4e18 (artist-mode-init): Added comment on the setting up of the
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
747 artist-t artist-copy-square)))))
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
748
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
749 (graphics-operation
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
750 ("Paste" (("paste" paste "paste"
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
751 artist-no-arrows nil
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
752 nil nil nil
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
753 1
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
754 artist-paste
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
755 nil)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
756 ("paste" paste "paste"
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
757 artist-no-arrows nil
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
758 nil nil nil
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
759 1
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
760 artist-paste
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
761 nil))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
762
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
763 (graphics-operation
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
764 ("Flood-fill" (("flood-fill" flood-fill "flood"
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
765 artist-no-arrows nil
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
766 nil nil nil
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
767 1
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
768 artist-flood-fill
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
769 nil)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
770 ("flood-fill" flood-fill "flood"
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
771 artist-no-arrows nil
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
772 nil nil nil
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
773 1
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
774 artist-flood-fill
40323
8716d2ed21c6 (artist-version): 1.2.4.
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
775 nil)))))))
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
776
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
777 (menu
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
778 ("Settings"
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
779 ((function-call
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
780 ("Set Fill" set-fill artist-select-fill-char))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
781
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
782 (function-call
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
783 ("Set Line" set-line artist-select-line-char))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
784
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
785 (function-call
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
786 ("Set Erase" set-erase artist-select-erase-char))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
787
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
788 (function-call
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
789 ("Rubber-banding" rubber-band artist-toggle-rubber-banding))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
790
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
791 (function-call
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
792 ("Trimming" trimming artist-toggle-trim-line-endings))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
793
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
794 (function-call
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
795 ("Borders" borders artist-toggle-borderless-shapes))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
796
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
797 (function-call
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
798 ("Spray-chars" spray-chars artist-select-spray-chars)))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
799
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
800 ) ;; end of list
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
801
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
802 "Master Table for `artist-mode'.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
803 This table is primarily a table over the different graphics operations
99875
3658bfd115cd * textmodes/artist.el (artist-charlist-to-string): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 99515
diff changeset
804 available in Artist mode, but it also holds layout information for the
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
805 popup menu.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
806
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
807 The master table is a list of table elements. The elements of this table
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
808 have the layout
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
809
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
810 (TAG INFO-PART)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
811
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
812 There are three kinds of TAG:
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
813
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
814 `menu' -- a sub-menu
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
815 `separator' -- produce a separator in the popup menu
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
816 `function-call' -- call a function
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
817 `graphics-operation' -- a graphics operation
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
818
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
819 The layout of the INFO-PART for `menu' is
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
820
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
821 (TITLE ((TAG-1 INFO-PART-1) (TAG-2 INFO-PART-2) ...))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
822
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
823 TITLE is the title of the submenu; this is followed by a list of
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
824 menu items, each on the general form (TAG INFO-PART).
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
825
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
826
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
827 The layout of the INFO-PART for `separator' is empty and not used.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
828
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
829
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
830 This is the layout of the INFO-PART for `function-call':
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
831
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
832 (KEYWORD SYMBOL FN)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
833
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
834 KEYWORD is a string naming the operation, and appears in the popup menu.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
835 SYMBOL is the symbol for the operations.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
836 FN is the function performing the operation. This function
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
837 is called with no arguments. Its return value is ignored.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
838
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
839
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
840 The layout of the INFO-PART for `graphics-operation' is
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
841
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
842 (TITLE (UNSHIFTED SHIFTED))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
843
42706
be541feb06cc Fix typo.
Pavel Janík <Pavel@Janik.cz>
parents: 41608
diff changeset
844 TITLE is the title that appears in the popup menu. UNSHIFTED
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
845 and SHIFTED specify for unshifted and shifted operation. Both
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
846 have the form
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
847
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
848 (KEYWORD KEY-SYMBOL MODE-LINE ARROW-PRED ARROW-SET-FN
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
849 INIT-FN PREP-FILL-FN EXIT-FN DRAW-HOW DRAW-FN EXTRA-DRAW-INFO)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
850
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
851 KEYWORD is a string specifying the name of the shape to draw.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
852 This is used when selecting drawing operation.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
853 KEY-SYMBOL is the key which is used when looking up members
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
854 through the functions `artist-go-get-MEMBER-from-symbol'
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
855 and `artist-fc-get-MEMBER-from-symbol'.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
856 MODE-LINE is a string that appears in the mode-line when drawing
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
857 the shape.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
858 ARROW-PRED is a function that is called to find out if the shape
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
859 can have arrows. The function is called with no arguments and
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
860 must return nil or t.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
861 ARROW-SET-FN is a function that is called to set arrow end-points.
107128
0241cf43ec95 * textmodes/artist.el (artist-mt): Fix typos in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 106894
diff changeset
862 Arguments and return values for this function are described below.
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
863 INIT-FN is, if non-nil, a function that is called when the first
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
864 point of the shape is set. Arguments and return values for
107128
0241cf43ec95 * textmodes/artist.el (artist-mt): Fix typos in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 106894
diff changeset
865 this function are described below.
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
866 PREP-FILL-FN is, if non-nil, a function that is called after
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
867 the last point is set, but before the filling is done.
107128
0241cf43ec95 * textmodes/artist.el (artist-mt): Fix typos in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 106894
diff changeset
868 Arguments and return values for this function are described below.
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
869 EXIT-FN is, if non-nil, a function that is called after filling
107128
0241cf43ec95 * textmodes/artist.el (artist-mt): Fix typos in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 106894
diff changeset
870 is done. Arguments and return values for this function are
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
871 described below.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
872 DRAW-HOW defines the kind of shape. The kinds of shapes are:
106876
ad7558737bc7 Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 106860
diff changeset
873 `artist-do-continously' -- Do drawing operation continuously,
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
874 as long as the mouse button is held down.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
875 `artist-do-poly' -- Do drawing operation many times.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
876 1 -- Do drawing operation only once.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
877 2 -- The drawing operation requires two points.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
878 DRAW-FN is the function to call for drawing. Arguments and
107128
0241cf43ec95 * textmodes/artist.el (artist-mt): Fix typos in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 106894
diff changeset
879 return values for this function are described below.
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
880 EXTRA-DRAW-INFO the layout of this depends on the value of DRAW-HOW:
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
881 If DRAW-HOW is `artist-do-continously':
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
882
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
883 (INTERVAL-FN)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
884
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
885 INTERVAL-FN is, if non-nil, a function to call for getting
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
886 an interval between repeated calls to the DRAW-FN.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
887 This function is called with no arguments and must
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
888 return a number, the interval in seconds.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
889 If nil, calls to DRAW-FN are done only when the mouse
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
890 or cursor is moved.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
891
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
892 If DRAW-HOW is either `artist-do-poly' or 2:
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
893
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
894 (UNDRAW-FN FILL-PRED FILL-FN)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
895
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
896 UNDRAW-FN is a function to call for undrawing the shape.
107128
0241cf43ec95 * textmodes/artist.el (artist-mt): Fix typos in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 106894
diff changeset
897 Arguments and return values for this function are
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
898 described below.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
899 FILL-PRED is a function that is called to find out if the shape
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
900 can have arrows. The function must take no arguments and
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
901 return nil or t.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
902 FILL-FN is a function to call for filling the shape.
107128
0241cf43ec95 * textmodes/artist.el (artist-mt): Fix typos in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 106894
diff changeset
903 Arguments and return values for this function are
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
904 described below.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
905
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
906 If DRAW-HOW is 1:
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
907
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
908 ()
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
909
107128
0241cf43ec95 * textmodes/artist.el (artist-mt): Fix typos in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 106894
diff changeset
910 Note! All symbols and keywords (both in the `function-call' INFO-PART
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
911 as well as in the `graphics-operation' INFO-PART) must be unique.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
912
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
913 The following table describe function arguments and return value
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
914 for different functions and DRAW-HOWs.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
915
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
916 If DRAW-HOW is either `artist-do-continously' or 1:
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
917
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
918 INIT-FN X Y ==> ignored
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
919 PREP-FILL-FN X Y ==> ignored
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
920 EXIT-FN X Y ==> ignored
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
921 ARROW-SET-FN X Y ==> ignored
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
922 DRAW-FN X Y ==> ignored
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
923
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
924 If DRAW-HOW is 2:
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
925
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
926 INIT-FN X1 Y1 ==> ignored
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
927 PREP-FILL-FN X1 Y1 X2 Y2 ==> ignored
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
928 EXIT-FN X1 Y1 X2 Y2 ==> ignored
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
929 ARROW-SET-FN X1 Y1 X2 Y2 ==> ignored
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
930 DRAW-FN X1 Y1 X2 Y2 ==> (ENDPOINT-1 ENDPOINT-2 SHAPE)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
931 UNDRAW-FN (ENDPOINT-1 ENDPOINT-2 SHAPE) ==> ignored
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
932 FILL-FN (ENDPOINT-1 ENDPOINT-2 SHAPE) X1 Y1 X2 Y2 ==> ignored
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
933
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
934 ENDPOINT-1 and ENDPOINT-2 are endpoints which are created with
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
935 `artist-make-endpoint'
99875
3658bfd115cd * textmodes/artist.el (artist-charlist-to-string): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 99515
diff changeset
936 SHAPE is an opaque structure, created by the DRAW-FN and intended
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
937 to be used only by the UNDRAW-FN.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
938
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
939 If DRAW-HOW is `artist-do-poly':
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
940
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
941 INIT-FN X1 Y1
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
942 PREP-FILL-FN POINT-LIST
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
943 ARROW-SET-FN POINT-LIST
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
944 EXIT-FN POINT-LIST
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
945 DRAW-FN X-LAST Y-LAST X-NEW Y-NEW ==> (ENDPOINT-1 ENDPOINT-2 SHAPE)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
946 UNDRAW-FN (ENDPOINT-1 ENDPOINT-2 SHAPE)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
947 FILL-FN POINT-LIST
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
948
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
949 ENDPOINT-1 and ENDPOINT-2 are endpoints which are created with
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
950 `artist-make-endpoint'.
99875
3658bfd115cd * textmodes/artist.el (artist-charlist-to-string): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 99515
diff changeset
951 SHAPE is an opaque structure, created by the DRAW-FN and intended
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
952 to be used only by the UNDRAW-FN.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
953 POINT-LIST is a list of vectors [X Y].")
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
954
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
955
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
956 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
957 ;; Accessors for the master table
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
958 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
959
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
960 (defun artist-mt-get-tag (element)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
961 "Retrieve the tag component from the master table ELEMENT."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
962 (elt element 0))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
963
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
964 (defun artist-mt-get-info-part (element)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
965 "Retrieve the info part component from the master table ELEMENT."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
966 (elt element 1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
967
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
968 ;; For the 'graphics-operation info-parts
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
969 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
970 (defsubst artist-go-get-desc (info-part)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
971 "Retrieve the description component from a graphics operation INFO-PART."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
972 (elt info-part 0))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
973
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
974 (defsubst artist-go-get-unshifted (info-part)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
975 "Retrieve the unshifted info from a graphics operation INFO-PART."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
976 (elt (elt info-part 1) 0))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
977
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
978 (defsubst artist-go-get-shifted (info-part)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
979 "Retrieve the shifted info from a graphics operation INFO-PART."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
980 (elt (elt info-part 1) 1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
981
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
982 (defsubst artist-go-get-keyword (info-variant-part)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
983 "Retrieve the keyword component from an INFO-VARIANT-PART.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
984 An INFO-VARIANT-PART is the shifted or unshifted info from a info-part."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
985 (elt info-variant-part 0))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
986
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
987 (defsubst artist-go-get-symbol (info-variant-part)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
988 "Retrieve the symbol component from an INFO-VARIANT-PART.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
989 An INFO-VARIANT-PART is the shifted or unshifted info from a info-part."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
990 (elt info-variant-part 1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
991
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
992 (defsubst artist-go-get-mode-line (info-variant-part)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
993 "Retrieve the mode line component from an INFO-VARIANT-PART.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
994 An INFO-VARIANT-PART is the shifted or unshifted info from a info-part."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
995 (elt info-variant-part 2))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
996
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
997 (defsubst artist-go-get-arrow-pred (info-variant-part)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
998 "Retrieve the arrow predicate component from an INFO-VARIANT-PART.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
999 An INFO-VARIANT-PART is the shifted or unshifted info from a info-part."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1000 (elt info-variant-part 3))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1001
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1002 (defsubst artist-go-get-arrow-set-fn (info-variant-part)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1003 "Retrieve the arrow set component from an INFO-VARIANT-PART.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1004 An INFO-VARIANT-PART is the shifted or unshifted info from a info-part."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1005 (elt info-variant-part 4))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1006
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1007 (defsubst artist-go-get-init-fn (info-variant-part)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1008 "Retrieve the init function component from an INFO-VARIANT-PART.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1009 An INFO-VARIANT-PART is the shifted or unshifted info from a info-part."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1010 (elt info-variant-part 5))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1011
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1012 (defsubst artist-go-get-prep-fill-fn (info-variant-part)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1013 "Retrieve the fill preparation function component from an INFO-VARIANT-PART.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1014 An INFO-VARIANT-PART is the shifted or unshifted info from a info-part."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1015 (elt info-variant-part 6))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1016
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1017 (defsubst artist-go-get-exit-fn (info-variant-part)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1018 "Retrieve the exit component from an INFO-VARIANT-PART.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1019 An INFO-VARIANT-PART is the shifted or unshifted info from a info-part."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1020 (elt info-variant-part 7))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1021
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1022 (defsubst artist-go-get-draw-how (info-variant-part)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1023 "Retrieve the draw how component from an INFO-VARIANT-PART.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1024 An INFO-VARIANT-PART is the shifted or unshifted info from a info-part."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1025 (elt info-variant-part 8))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1026
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1027 (defsubst artist-go-get-draw-fn (info-variant-part)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1028 "Retrieve the draw function component from an INFO-VARIANT-PART.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1029 An INFO-VARIANT-PART is the shifted or unshifted info from a info-part."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1030 (elt info-variant-part 9))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1031
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1032 (defsubst artist-go-get-undraw-fn (info-variant-part)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1033 "Retrieve the undraw function component from an INFO-VARIANT-PART.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1034 An INFO-VARIANT-PART is the shifted or unshifted info from a info-part.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1035 This interval function component is available only if the `draw-how'
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1036 component is other than `artist-do-continously' or 1."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1037 (elt (elt info-variant-part 10) 0))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1038
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1039 (defsubst artist-go-get-interval-fn (info-variant-part)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1040 "Retrieve the interval function component from an INFO-VARIANT-PART.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1041 An INFO-VARIANT-PART is the shifted or unshifted info from a info-part.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1042 This interval function component is available only if the `draw-how'
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1043 component is `artist-do-continously'."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1044 (elt (elt info-variant-part 10) 0))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1045
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1046 (defsubst artist-go-get-fill-pred (info-variant-part)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1047 "Retrieve the fill predicate component from an INFO-VARIANT-PART.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1048 An INFO-VARIANT-PART is the shifted or unshifted info from a info-part.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1049 This interval function component is available only if the `draw-how'
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1050 component is other than `artist-do-continously' or 1."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1051 (elt (elt info-variant-part 10) 1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1052
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1053 (defsubst artist-go-get-fill-fn (info-variant-part)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1054 "Retrieve the fill function component from an INFO-VARIANT-PART.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1055 An INFO-VARIANT-PART is the shifted or unshifted info from a info-part.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1056 This interval function component is available only if the `draw-how'
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1057 component is other than `artist-do-continously' or 1."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1058 (elt (elt info-variant-part 10) 2))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1059
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1060 ;; For the 'function-call info-parts
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1061 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1062 (defsubst artist-fc-get-keyword (info-part)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1063 "Retrieve the keyword component from a graphics operation INFO-PART."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1064 (elt info-part 0))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1065
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1066 (defsubst artist-fc-get-symbol (info-part)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1067 "Retrieve the symbol component from a graphics operation INFO-PART."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1068 (elt info-part 1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1069
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1070 (defsubst artist-fc-get-fn (info-part)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1071 "Retrieve the function component from a graphics operation INFO-PART."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1072 (elt info-part 2))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1073
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1074 ;; For the 'menu info-parts
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1075 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1076 (defsubst artist-mn-get-title (info-part)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1077 "Retrieve the title component from a graphics operation INFO-PART."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1078 (elt info-part 0))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1079
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1080 (defsubst artist-mn-get-items (info-part)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1081 "Retrieve the items component from a graphics operation INFO-PART."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1082 (elt info-part 1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1083
59223
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
1084 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
1085 ;; mouse wheel cyclic operation selection
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
1086
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
1087 (defun artist-get-last-non-nil-op (op-list &optional last-non-nil)
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
1088 "Find the last non-nil draw operation in OP-LIST.
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
1089 Optional LAST-NON-NIL will be returned if OP-LIST is nil."
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
1090 (if op-list
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
1091 (artist-get-last-non-nil-op (cdr op-list)
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
1092 (or (car (car op-list)) last-non-nil))
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
1093 last-non-nil))
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
1094
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
1095 (defun artist-get-first-non-nil-op (op-list)
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
1096 "Find the first non-nil draw operation in OP-LIST."
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
1097 (or (car (car op-list)) (artist-get-first-non-nil-op (cdr op-list))))
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
1098
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
1099 (defun artist-is-in-op-list-p (op op-list)
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
1100 "Check whether OP is in OP-LIST."
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
1101 (and op-list
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
1102 (or (and (car (car op-list)) (string= op (car (car op-list))))
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
1103 (artist-is-in-op-list-p op (cdr op-list)))))
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
1104
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
1105 (defun artist-make-prev-next-op-alist (op-list
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
1106 &optional
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
1107 last-non-nil-arg first-non-nil-arg
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
1108 prev-entry prev-op-arg)
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
1109 "Build an assoc-list of OP-LIST.
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
1110 The arguments LAST-NON-NIL-ARG, FIRST-NON-NIL-ARG, PREV-ENTRY and
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
1111 PREV-OP-ARG are used when invoked recursively during the build-up."
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
1112 (let* ((last-non-nil (or last-non-nil-arg
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
1113 (artist-get-last-non-nil-op
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
1114 artist-key-compl-table)))
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
1115 (first-non-nil (or first-non-nil-arg
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
1116 (artist-get-first-non-nil-op
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
1117 artist-key-compl-table)))
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
1118 (prev-op (or prev-op-arg last-non-nil))
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
1119 (op (car (car op-list)))
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
1120 (opsym (artist-mt-get-symbol-from-keyword op))
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
1121 (entry (cons opsym (cons prev-op nil))))
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
1122 (if (or (and op-list (not op))
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
1123 (artist-is-in-op-list-p op (cdr op-list)))
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
1124 (artist-make-prev-next-op-alist (cdr op-list)
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
1125 last-non-nil first-non-nil
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
1126 prev-entry prev-op)
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
1127 (if prev-entry (setcdr (cdr prev-entry) op))
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
1128 (if op-list
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
1129 (cons entry (artist-make-prev-next-op-alist
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
1130 (cdr op-list)
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
1131 last-non-nil first-non-nil
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
1132 entry op))
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
1133 (progn (setcdr (cdr prev-entry) first-non-nil) nil)))))
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
1134
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
1135 (defun artist-select-next-op-in-list ()
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
1136 "Cyclically select next drawing mode operation."
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
1137 (interactive)
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
1138 (let ((next-op (cdr (cdr (assoc artist-curr-go artist-prev-next-op-alist)))))
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
1139 (artist-select-operation next-op)
87170
e50a2e215441 * erc-stamp.el (erc-echo-timestamp):
David Kastrup <dak@gnu.org>
parents: 85404
diff changeset
1140 (message "%s" next-op)))
59223
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
1141
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
1142 (defun artist-select-prev-op-in-list ()
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
1143 "Cyclically select previous drawing mode operation."
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
1144 (interactive)
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
1145 (let ((prev-op (car (cdr (assoc artist-curr-go artist-prev-next-op-alist)))))
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
1146 (artist-select-operation prev-op)
87170
e50a2e215441 * erc-stamp.el (erc-echo-timestamp):
David Kastrup <dak@gnu.org>
parents: 85404
diff changeset
1147 (message "%s" prev-op)))
59223
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
1148
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
1149 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
1150
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1151 ;;; ---------------------------------
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1152 ;;; The artist-mode
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1153 ;;; ---------------------------------
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1154
33653
55d418b6992e (artist-mode): Fix autoload cookie.
Gerd Moellmann <gerd@gnu.org>
parents: 33618
diff changeset
1155 ;;;###autoload
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1156 (defun artist-mode (&optional state)
99875
3658bfd115cd * textmodes/artist.el (artist-charlist-to-string): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 99515
diff changeset
1157 "Toggle Artist mode.
3658bfd115cd * textmodes/artist.el (artist-charlist-to-string): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 99515
diff changeset
1158 With argument STATE, turn Artist mode on if STATE is positive.
3658bfd115cd * textmodes/artist.el (artist-charlist-to-string): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 99515
diff changeset
1159 Artist lets you draw lines, squares, rectangles and poly-lines,
3658bfd115cd * textmodes/artist.el (artist-charlist-to-string): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 99515
diff changeset
1160 ellipses and circles with your mouse and/or keyboard.
3658bfd115cd * textmodes/artist.el (artist-charlist-to-string): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 99515
diff changeset
1161
3658bfd115cd * textmodes/artist.el (artist-charlist-to-string): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 99515
diff changeset
1162 How to quit Artist mode
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1163
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1164 Type \\[artist-mode-off] to quit artist-mode.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1165
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1166
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1167 How to submit a bug report
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1168
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1169 Type \\[artist-submit-bug-report] to submit a bug report.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1170
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1171
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1172 Drawing with the mouse:
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1173
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1174 mouse-2
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1175 shift mouse-2 Pops up a menu where you can select what to draw with
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1176 mouse-1, and where you can do some settings (described
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1177 below).
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1178
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1179 mouse-1
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1180 shift mouse-1 Draws lines, rectangles or poly-lines, erases, cuts, copies
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1181 or pastes:
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1182
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1183 Operation Not shifted Shifted
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1184 --------------------------------------------------------------
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1185 Pen fill-char at point line from last point
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1186 to new point
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1187 --------------------------------------------------------------
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1188 Line Line in any direction Straight line
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1189 --------------------------------------------------------------
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1190 Rectangle Rectangle Square
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1191 --------------------------------------------------------------
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1192 Poly-line Poly-line in any dir Straight poly-lines
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1193 --------------------------------------------------------------
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1194 Ellipses Ellipses Circles
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1195 --------------------------------------------------------------
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1196 Text Text (see thru) Text (overwrite)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1197 --------------------------------------------------------------
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1198 Spray-can Spray-can Set size for spray
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1199 --------------------------------------------------------------
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1200 Erase Erase character Erase rectangle
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1201 --------------------------------------------------------------
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1202 Vaporize Erase single line Erase connected
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1203 lines
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1204 --------------------------------------------------------------
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1205 Cut Cut rectangle Cut square
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1206 --------------------------------------------------------------
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1207 Copy Copy rectangle Copy square
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1208 --------------------------------------------------------------
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1209 Paste Paste Paste
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1210 --------------------------------------------------------------
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1211 Flood-fill Flood-fill Flood-fill
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1212 --------------------------------------------------------------
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1213
37825
8968ceca1581 (artist-mode): Fix a typo. From Pavel Janik <Pavel@Janik.cz>.
Eli Zaretskii <eliz@gnu.org>
parents: 34903
diff changeset
1214 * Straight lines can only go horizontally, vertically
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1215 or diagonally.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1216
99875
3658bfd115cd * textmodes/artist.el (artist-charlist-to-string): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 99515
diff changeset
1217 * Poly-lines are drawn while holding mouse-1 down. When you
3658bfd115cd * textmodes/artist.el (artist-charlist-to-string): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 99515
diff changeset
1218 release the button, the point is set. If you want a segment
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1219 to be straight, hold down shift before pressing the
99875
3658bfd115cd * textmodes/artist.el (artist-charlist-to-string): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 99515
diff changeset
1220 mouse-1 button. Click mouse-2 or mouse-3 to stop drawing
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1221 poly-lines.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1222
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1223 * See thru for text means that text already in the buffer
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1224 will be visible through blanks in the text rendered, while
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1225 overwrite means the opposite.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1226
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1227 * Vaporizing connected lines only vaporizes lines whose
99875
3658bfd115cd * textmodes/artist.el (artist-charlist-to-string): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 99515
diff changeset
1228 _endpoints_ are connected. See also the variable
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1229 `artist-vaporize-fuzziness'.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1230
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1231 * Cut copies, then clears the rectangle/square.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1232
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1233 * When drawing lines or poly-lines, you can set arrows.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1234 See below under ``Arrows'' for more info.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1235
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1236 * The mode line shows the currently selected drawing operation.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1237 In addition, if it has an asterisk (*) at the end, you
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1238 are currently drawing something.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1239
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1240 * Be patient when flood-filling -- large areas take quite
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1241 some time to fill.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1242
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1243
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1244 mouse-3 Erases character under pointer
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1245 shift mouse-3 Erases rectangle
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1246
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1247
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1248 Settings
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1249
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1250 Set fill Sets the character used when filling rectangles/squares
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1251
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1252 Set line Sets the character used when drawing lines
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1253
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1254 Erase char Sets the character used when erasing
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1255
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1256 Rubber-banding Toggles rubber-banding
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1257
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1258 Trimming Toggles trimming of line-endings (that is: when the shape
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1259 is drawn, extraneous white-space at end of lines is removed)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1260
99875
3658bfd115cd * textmodes/artist.el (artist-charlist-to-string): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 99515
diff changeset
1261 Borders Toggles the drawing of line borders around filled shapes
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1262
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1263
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1264 Drawing with keys
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1265
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1266 \\[artist-key-set-point] Does one of the following:
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1267 For lines/rectangles/squares: sets the first/second endpoint
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1268 For poly-lines: sets a point (use C-u \\[artist-key-set-point] to set last point)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1269 When erase characters: toggles erasing
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1270 When cutting/copying: Sets first/last endpoint of rect/square
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1271 When pasting: Pastes
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1272
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1273 \\[artist-select-operation] Selects what to draw
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1274
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1275 Move around with \\[artist-next-line], \\[artist-previous-line], \\[artist-forward-char] and \\[artist-backward-char].
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1276
99515
9b767bc53027 * international/mule.el (autoload-coding-system, with-category-table)
Juanma Barranquero <lekktu@gmail.com>
parents: 97766
diff changeset
1277 \\[artist-select-fill-char] Sets the character to use when filling
9b767bc53027 * international/mule.el (autoload-coding-system, with-category-table)
Juanma Barranquero <lekktu@gmail.com>
parents: 97766
diff changeset
1278 \\[artist-select-line-char] Sets the character to use when drawing
9b767bc53027 * international/mule.el (autoload-coding-system, with-category-table)
Juanma Barranquero <lekktu@gmail.com>
parents: 97766
diff changeset
1279 \\[artist-select-erase-char] Sets the character to use when erasing
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1280 \\[artist-toggle-rubber-banding] Toggles rubber-banding
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1281 \\[artist-toggle-trim-line-endings] Toggles trimming of line-endings
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1282 \\[artist-toggle-borderless-shapes] Toggles borders on drawn shapes
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1283
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1284
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1285 Arrows
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1286
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1287 \\[artist-toggle-first-arrow] Sets/unsets an arrow at the beginning
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1288 of the line/poly-line
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1289
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1290 \\[artist-toggle-second-arrow] Sets/unsets an arrow at the end
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1291 of the line/poly-line
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1292
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1293
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1294 Selecting operation
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1295
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1296 There are some keys for quickly selecting drawing operations:
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1297
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1298 \\[artist-select-op-line] Selects drawing lines
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1299 \\[artist-select-op-straight-line] Selects drawing straight lines
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1300 \\[artist-select-op-rectangle] Selects drawing rectangles
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1301 \\[artist-select-op-square] Selects drawing squares
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1302 \\[artist-select-op-poly-line] Selects drawing poly-lines
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1303 \\[artist-select-op-straight-poly-line] Selects drawing straight poly-lines
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1304 \\[artist-select-op-ellipse] Selects drawing ellipses
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1305 \\[artist-select-op-circle] Selects drawing circles
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1306 \\[artist-select-op-text-see-thru] Selects rendering text (see thru)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1307 \\[artist-select-op-text-overwrite] Selects rendering text (overwrite)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1308 \\[artist-select-op-spray-can] Spray with spray-can
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1309 \\[artist-select-op-spray-set-size] Set size for the spray-can
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1310 \\[artist-select-op-erase-char] Selects erasing characters
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1311 \\[artist-select-op-erase-rectangle] Selects erasing rectangles
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1312 \\[artist-select-op-vaporize-line] Selects vaporizing single lines
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1313 \\[artist-select-op-vaporize-lines] Selects vaporizing connected lines
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1314 \\[artist-select-op-cut-rectangle] Selects cutting rectangles
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1315 \\[artist-select-op-copy-rectangle] Selects copying rectangles
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1316 \\[artist-select-op-paste] Selects pasting
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1317 \\[artist-select-op-flood-fill] Selects flood-filling
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1318
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1319
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1320 Variables
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1321
107707
0fee5a19e171 * textmodes/artist.el (artist-mode): Fix typo in docstring. (Bug#5807)
Juanma Barranquero <lekktu@gmail.com>
parents: 107128
diff changeset
1322 This is a brief overview of the different variables. For more info,
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1323 see the documentation for the variables (type \\[describe-variable] <variable> RET).
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1324
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1325 artist-rubber-banding Interactively do rubber-banding or not
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1326 artist-first-char What to set at first/second point...
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1327 artist-second-char ...when not rubber-banding
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1328 artist-interface-with-rect If cut/copy/paste should interface with rect
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1329 artist-arrows The arrows to use when drawing arrows
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1330 artist-aspect-ratio Character height-to-width for squares
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1331 artist-trim-line-endings Trimming of line endings
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1332 artist-flood-fill-right-border Right border when flood-filling
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1333 artist-flood-fill-show-incrementally Update display while filling
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1334 artist-pointer-shape Pointer shape to use while drawing
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1335 artist-ellipse-left-char Character to use for narrow ellipses
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1336 artist-ellipse-right-char Character to use for narrow ellipses
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1337 artist-borderless-shapes If shapes should have borders
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1338 artist-picture-compatibility Whether or not to be picture mode compatible
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1339 artist-vaporize-fuzziness Tolerance when recognizing lines
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1340 artist-spray-interval Seconds between repeated sprayings
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1341 artist-spray-radius Size of the spray-area
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1342 artist-spray-chars The spray-``color''
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1343 artist-spray-new-chars Initial spray-``color''
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1344
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1345 Hooks
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1346
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1347 When entering artist-mode, the hook `artist-mode-init-hook' is called.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1348 When quitting artist-mode, the hook `artist-mode-exit-hook' is called.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1349
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1350
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1351 Keymap summary
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1352
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1353 \\{artist-mode-map}"
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1354 (interactive)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1355 (if (setq artist-mode
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1356 (if (null state) (not artist-mode)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1357 (> (prefix-numeric-value state) 0)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1358 (artist-mode-init)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1359 (artist-mode-exit)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1360
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1361 ;; insert our minor mode string
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1362 (or (assq 'artist-mode minor-mode-alist)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1363 (setq minor-mode-alist
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1364 (cons '(artist-mode artist-mode-name)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1365 minor-mode-alist)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1366
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1367 ;; insert our minor mode keymap
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1368 (or (assq 'artist-mode minor-mode-map-alist)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1369 (setq minor-mode-map-alist
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1370 (cons (cons 'artist-mode artist-mode-map)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1371 minor-mode-map-alist)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1372
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1373
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1374 ;; Init and exit
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1375 (defun artist-mode-init ()
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1376 "Init Artist mode. This will call the hook `artist-mode-init-hook'."
97766
2b0a264c4e18 (artist-mode-init): Added comment on the setting up of the
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
1377 ;; Set up a conversion table for mapping tabs and new-lines to spaces.
2b0a264c4e18 (artist-mode-init): Added comment on the setting up of the
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
1378 ;; the last case, 0, is for the last position in buffer/region, where
2b0a264c4e18 (artist-mode-init): Added comment on the setting up of the
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
1379 ;; the `following-char' function returns 0.
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1380 (let ((i 0))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1381 (while (< i 256)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1382 (aset artist-replacement-table i i)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1383 (setq i (1+ i))))
65260
c1dcf33345ab (x-pointer-crosshair): Add defvar.
Juanma Barranquero <lekktu@gmail.com>
parents: 64751
diff changeset
1384 (aset artist-replacement-table ?\n ?\s)
c1dcf33345ab (x-pointer-crosshair): Add defvar.
Juanma Barranquero <lekktu@gmail.com>
parents: 64751
diff changeset
1385 (aset artist-replacement-table ?\t ?\s)
c1dcf33345ab (x-pointer-crosshair): Add defvar.
Juanma Barranquero <lekktu@gmail.com>
parents: 64751
diff changeset
1386 (aset artist-replacement-table 0 ?\s)
97766
2b0a264c4e18 (artist-mode-init): Added comment on the setting up of the
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
1387 ;; More setup
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1388 (make-local-variable 'artist-key-is-drawing)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1389 (make-local-variable 'artist-key-endpoint1)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1390 (make-local-variable 'artist-key-poly-point-list)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1391 (make-local-variable 'artist-key-shape)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1392 (make-local-variable 'artist-key-draw-how)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1393 (make-local-variable 'artist-popup-menu-table)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1394 (make-local-variable 'artist-key-compl-table)
59223
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
1395 (make-local-variable 'artist-prev-next-op-alist)
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1396 (make-local-variable 'artist-rb-save-data)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1397 (make-local-variable 'artist-arrow-point-1)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1398 (make-local-variable 'artist-arrow-point-2)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1399 (setq artist-key-is-drawing nil)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1400 (setq artist-key-endpoint1 nil)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1401 (setq artist-key-poly-point-list nil)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1402 (setq artist-key-shape nil)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1403 (setq artist-popup-menu-table (artist-compute-popup-menu-table artist-mt))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1404 (setq artist-key-compl-table (artist-compute-key-compl-table artist-mt))
59223
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
1405 (setq artist-prev-next-op-alist
f467c038c83e (artist-version): 1.2.6
Richard M. Stallman <rms@gnu.org>
parents: 55793
diff changeset
1406 (artist-make-prev-next-op-alist artist-key-compl-table))
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1407 (setq artist-rb-save-data (make-vector 7 0))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1408 (setq artist-arrow-point-1 nil)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1409 (setq artist-arrow-point-2 nil)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1410 (make-local-variable 'next-line-add-newlines)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1411 (setq next-line-add-newlines t)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1412 (setq artist-key-draw-how
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1413 (artist-go-get-draw-how-from-symbol artist-curr-go))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1414 (if (and artist-picture-compatibility (not (eq major-mode 'picture-mode)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1415 (progn
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1416 (picture-mode)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1417 (message "")))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1418 (run-hooks 'artist-mode-init-hook)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1419 (artist-mode-line-show-curr-operation artist-key-is-drawing))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1420
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1421 (defun artist-mode-exit ()
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1422 "Exit Artist mode. This will call the hook `artist-mode-exit-hook'."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1423 (if (and artist-picture-compatibility (eq major-mode 'picture-mode))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1424 (picture-mode-exit))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1425 (kill-local-variable 'next-line-add-newlines)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1426 (run-hooks 'artist-mode-exit-hook))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1427
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1428 (defun artist-mode-off ()
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1429 "Turn Artist mode off."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1430 (interactive)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1431 (artist-mode -1)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1432 (force-mode-line-update))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1433
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1434 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1435 ;; General routines
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1436 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1437
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1438 (defun artist-update-display ()
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1439 "Repaint the display."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1440 (sit-for 0))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1441
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1442 (defun artist-mode-line-show-curr-operation (is-drawing)
99875
3658bfd115cd * textmodes/artist.el (artist-charlist-to-string): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 99515
diff changeset
1443 "Show current operation in mode-line. If IS-DRAWING, show that."
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1444 (let ((mtext (concat artist-mode-name "/"
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1445 (artist-go-get-mode-line-from-symbol artist-curr-go)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1446 (if is-drawing "/*" ""))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1447 (setcdr (assq 'artist-mode minor-mode-alist) (list mtext)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1448 (force-mode-line-update))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1449
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1450
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1451 (defun artist-t-if-fill-char-set ()
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1452 "Return the value of the variable `artist-fill-char-set'."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1453 artist-fill-char-set)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1454
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1455 (defun artist-t ()
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1456 "Always return t."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1457 t)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1458
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1459 (defun artist-nil ()
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1460 "Always return nil."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1461 nil)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1462
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1463 (defun artist-arrows ()
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1464 "Say yes to arrows!"
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1465 t)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1466
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1467 (defun artist-no-arrows ()
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1468 "Say no to arrows!"
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1469 nil)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1470
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1471 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1472 ;; Auxiliary init-routines
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1473 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1474
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1475 ;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1476 ; Computing the table for the x-popup-menu from the master table
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1477 ;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1478
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1479 (defun artist-compute-popup-menu-table (menu-table)
106860
4cf58c2379f4 Mario Lang <mlang@delysid.org>: Remove some duplicated words.
Glenn Morris <rgm@gnu.org>
parents: 106815
diff changeset
1480 "Create a menu from MENU-TABLE data.
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1481 The returned value is suitable for the `x-popup-menu' function."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1482 (cons "Artist menu"
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1483 (artist-compute-popup-menu-table-sub menu-table)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1484
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1485 (defun artist-compute-popup-menu-table-sub (menu-table)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1486 "Compute operation table suitable for `x-popup-menu' from MENU-TABLE."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1487 (mapcar
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1488 (lambda (element)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1489 (let ((element-tag (artist-mt-get-tag element)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1490 (cond ((eq element-tag 'graphics-operation)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1491 (let* ((info-part (artist-mt-get-info-part element))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1492 (descr (artist-go-get-desc info-part))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1493 (unshifted (artist-go-get-unshifted info-part))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1494 (symbol (artist-go-get-symbol unshifted)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1495 (list descr symbol)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1496
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1497 ((eq element-tag 'function-call)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1498 (let* ((info-part (artist-mt-get-info-part element))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1499 (keyword (artist-fc-get-keyword info-part))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1500 (symbol (artist-fc-get-symbol info-part)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1501 (list keyword symbol)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1502
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1503 ((eq element-tag 'separator)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1504 '("" ""))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1505
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1506 ((eq element-tag 'menu)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1507 (let* ((info-part (artist-mt-get-info-part element))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1508 (title (artist-mn-get-title info-part))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1509 (items (artist-mn-get-items info-part)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1510 (cons title (artist-compute-popup-menu-table-sub items))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1511
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1512 (t
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1513 (error "Internal error: unknown element-tag: \"%s\""
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1514 element-tag)))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1515 menu-table))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1516
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1517 ;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1518 ; Computing the completion table from the master table
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1519 ;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1520
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1521 (defun artist-compute-key-compl-table (menu-table)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1522 "Compute completion table from MENU-TABLE, suitable for `completing-read'."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1523 (apply
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1524 'nconc
59224
0bedd71fb49f (artist-butlast-fn): Var deleted.
Richard M. Stallman <rms@gnu.org>
parents: 59223
diff changeset
1525 (remq nil
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1526 (mapcar
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1527 (lambda (element)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1528 (let ((element-tag (artist-mt-get-tag element)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1529 (cond ((eq element-tag 'graphics-operation)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1530 (let* ((info-part (artist-mt-get-info-part element))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1531 (unshifted (artist-go-get-unshifted info-part))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1532 (shifted (artist-go-get-shifted info-part))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1533 (unshifted-kwd (artist-go-get-keyword unshifted))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1534 (shifted-kwd (artist-go-get-keyword shifted)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1535 (list (list unshifted-kwd) (list shifted-kwd))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1536 ((eq element-tag 'menu)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1537 (let* ((info-part (artist-mt-get-info-part element))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1538 (items (artist-mn-get-items info-part)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1539 (artist-compute-key-compl-table items)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1540 (t
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1541 nil))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1542 menu-table))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1543
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1544
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1545 ;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1546 ; Retrieving a symbol (graphics operation or function-call) from a keyword
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1547 ;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1548
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1549 (defun artist-mt-get-symbol-from-keyword (kwd)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1550 "Search master table for keyword KWD and return its symbol."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1551 (artist-mt-get-symbol-from-keyword-sub artist-mt kwd))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1552
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1553 (defun artist-mt-get-symbol-from-keyword-sub (table kwd)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1554 "Search TABLE for keyword KWD and return its symbol."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1555 (catch 'found
84925
003285de78e4 (artist-mt-get-symbol-from-keyword-sub, artist-go-retrieve-from-symbol-sub,
Juanma Barranquero <lekktu@gmail.com>
parents: 78482
diff changeset
1556 (mapc
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1557 (lambda (element)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1558 (let ((element-tag (artist-mt-get-tag element)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1559 (cond ((eq element-tag 'graphics-operation)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1560 (let* ((info-part (artist-mt-get-info-part element))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1561 (unshifted (artist-go-get-unshifted info-part))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1562 (shifted (artist-go-get-shifted info-part))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1563 (unshifted-kwd (artist-go-get-keyword unshifted))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1564 (shifted-kwd (artist-go-get-keyword shifted))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1565 (unshifted-sym (artist-go-get-symbol unshifted))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1566 (shifted-sym (artist-go-get-symbol shifted)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1567 (if (string-equal kwd unshifted-kwd)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1568 (throw 'found unshifted-sym))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1569 (if (string-equal kwd shifted-kwd)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1570 (throw 'found shifted-sym))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1571
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1572 ((eq element-tag 'function-call)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1573 (let* ((info-part (artist-mt-get-info-part element))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1574 (keyword (artist-fc-get-keyword info-part))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1575 (symbol (artist-fc-get-symbol info-part)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1576 (if (string-equal kwd keyword)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1577 (throw 'found symbol))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1578 ((eq element-tag 'menu)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1579 (let* ((info-part (artist-mt-get-info-part element))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1580 (items (artist-mn-get-items info-part))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1581 (answer (artist-mt-get-symbol-from-keyword-sub
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1582 items kwd)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1583 (if answer (throw 'found answer))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1584 (t
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1585 nil))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1586 table)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1587 nil))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1588
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1589
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1590 ;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1591 ; Retrieving info from a graphics operation symbol
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1592 ;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1593
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1594 (defun artist-go-retrieve-from-symbol (symbol retrieve-fn)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1595 "Search the master table for a graphics operation SYMBOL.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1596 Calls RETRIEVE-FN to retrieve information from that symbol's
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1597 info-variant-part."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1598 (artist-go-retrieve-from-symbol-sub artist-mt symbol retrieve-fn))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1599
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1600 (defun artist-go-retrieve-from-symbol-sub (table symbol retrieve-fn)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1601 "Search the TABLE for a graphics operation SYMBOL.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1602 Calls RETRIEVE-FN to retrieve information from that symbol's
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1603 info-variant-part."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1604 (catch 'found
84925
003285de78e4 (artist-mt-get-symbol-from-keyword-sub, artist-go-retrieve-from-symbol-sub,
Juanma Barranquero <lekktu@gmail.com>
parents: 78482
diff changeset
1605 (mapc
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1606 (lambda (element)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1607 (let ((element-tag (artist-mt-get-tag element)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1608 (cond ((eq element-tag 'graphics-operation)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1609 (let* ((info-part (artist-mt-get-info-part element))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1610 (unshifted (artist-go-get-unshifted info-part))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1611 (shifted (artist-go-get-shifted info-part))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1612 (unshifted-sym (artist-go-get-symbol unshifted))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1613 (shifted-sym (artist-go-get-symbol shifted))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1614 (variant-part (cond
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1615 ((eq unshifted-sym symbol) unshifted)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1616 ((eq shifted-sym symbol) shifted)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1617 (t nil))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1618 (if variant-part ; if found do:
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1619 (throw 'found (funcall retrieve-fn variant-part)))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1620
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1621 ((eq element-tag 'menu)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1622 (let* ((info-part (artist-mt-get-info-part element))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1623 (items (artist-mn-get-items info-part))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1624 (answer (artist-go-retrieve-from-symbol-sub
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1625 items symbol retrieve-fn)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1626 (if answer (throw 'found answer)))))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1627
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1628 table)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1629 nil))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1630
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1631 (defun artist-go-get-keyword-from-symbol (symbol)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1632 "Search the master table, get keyword from a graphics operation SYMBOL."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1633 (artist-go-retrieve-from-symbol symbol 'artist-go-get-keyword))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1634
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1635 (defun artist-go-get-mode-line-from-symbol (symbol)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1636 "Search the master table, get mode-line from a graphics operation SYMBOL."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1637 (artist-go-retrieve-from-symbol symbol 'artist-go-get-mode-line))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1638
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1639 (defun artist-go-get-arrow-pred-from-symbol (symbol)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1640 "Search the master table, get arrow-pred from a graphics operation SYMBOL."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1641 (artist-go-retrieve-from-symbol symbol 'artist-go-get-arrow-pred))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1642
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1643 (defun artist-go-get-arrow-set-fn-from-symbol (symbol)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1644 "Search the master table, get arrow-set-fn from a graphics operation SYMBOL."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1645 (artist-go-retrieve-from-symbol symbol 'artist-go-get-arrow-set-fn))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1646
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1647 (defun artist-go-get-init-fn-from-symbol (symbol)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1648 "Search the master table, get init-fn from a graphics operation SYMBOL."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1649 (artist-go-retrieve-from-symbol symbol 'artist-go-get-init-fn))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1650
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1651 (defun artist-go-get-prep-fill-fn-from-symbol (symbol)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1652 "Search the master table, get prep-fill-fn from a graphics operation SYMBOL."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1653 (artist-go-retrieve-from-symbol symbol 'artist-go-get-prep-fill-fn))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1654
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1655 (defun artist-go-get-exit-fn-from-symbol (symbol)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1656 "Search the master table, get exit-fn from a graphics operation SYMBOL."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1657 (artist-go-retrieve-from-symbol symbol 'artist-go-get-exit-fn))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1658
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1659 (defun artist-go-get-draw-fn-from-symbol (symbol)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1660 "Search the master table, get draw-fn from a graphics operation SYMBOL."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1661 (artist-go-retrieve-from-symbol symbol 'artist-go-get-draw-fn))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1662
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1663 (defun artist-go-get-draw-how-from-symbol (symbol)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1664 "Search the master table, get draw-how from a graphics operation SYMBOL."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1665 (artist-go-retrieve-from-symbol symbol 'artist-go-get-draw-how))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1666
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1667 (defun artist-go-get-undraw-fn-from-symbol (symbol)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1668 "Search the master table, get undraw-fn from a graphics operation SYMBOL."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1669 (artist-go-retrieve-from-symbol symbol 'artist-go-get-undraw-fn))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1670
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1671 (defun artist-go-get-interval-fn-from-symbol (symbol)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1672 "Search the master table, get interval-fn from a graphics operation SYMBOL."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1673 (artist-go-retrieve-from-symbol symbol 'artist-go-get-interval-fn))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1674
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1675 (defun artist-go-get-fill-pred-from-symbol (symbol)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1676 "Search the master table, get fill-pred from a graphics operation SYMBOL."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1677 (artist-go-retrieve-from-symbol symbol 'artist-go-get-fill-pred))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1678
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1679 (defun artist-go-get-fill-fn-from-symbol (symbol)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1680 "Search the master table, get fill-fn from a graphics operation SYMBOL."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1681 (artist-go-retrieve-from-symbol symbol 'artist-go-get-fill-fn))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1682
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1683 (defun artist-go-get-symbol-shift (symbol is-shifted)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1684 "Search for (shifted or unshifted) graphics operation SYMBOL.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1685 If IS-SHIFTED is non-nil, return the shifted symbol,
99875
3658bfd115cd * textmodes/artist.el (artist-charlist-to-string): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 99515
diff changeset
1686 otherwise the unshifted symbol."
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1687 (artist-go-get-symbol-shift-sub artist-mt symbol is-shifted))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1688
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1689 (defun artist-go-get-symbol-shift-sub (table symbol is-shifted)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1690 "Search TABLE for (shifted or unshifted) graphics SYMBOL.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1691 If IS-SHIFTED is non-nil, return the shifted symbol,
99875
3658bfd115cd * textmodes/artist.el (artist-charlist-to-string): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 99515
diff changeset
1692 otherwise the unshifted symbol."
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1693 (catch 'found
84925
003285de78e4 (artist-mt-get-symbol-from-keyword-sub, artist-go-retrieve-from-symbol-sub,
Juanma Barranquero <lekktu@gmail.com>
parents: 78482
diff changeset
1694 (mapc
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1695 (lambda (element)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1696 (let ((element-tag (artist-mt-get-tag element)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1697 (cond ((eq element-tag 'graphics-operation)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1698 (let* ((info-part (artist-mt-get-info-part element))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1699 (unshift-variant (artist-go-get-unshifted info-part))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1700 (shift-variant (artist-go-get-shifted info-part))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1701 (unshift-sym (artist-go-get-symbol unshift-variant))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1702 (shift-sym (artist-go-get-symbol shift-variant)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1703 (if (or (eq symbol unshift-sym) (eq symbol shift-sym))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1704 (throw 'found (if is-shifted shift-sym unshift-sym)))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1705
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1706 ((eq element-tag 'menu)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1707 (let* ((info-part (artist-mt-get-info-part element))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1708 (items (artist-mn-get-items info-part))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1709 (answer (artist-go-get-symbol-shift-sub
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1710 items symbol is-shifted)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1711 (if answer (throw 'found answer)))))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1712
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1713 table)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1714 nil))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1715
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1716 ;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1717 ; Retrieving info from a function-call symbol
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1718 ;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1719
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1720 (defun artist-fc-retrieve-from-symbol (symbol retrieve-fn)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1721 "Search the master table for a function call SYMBOL.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1722 Calls RETRIEVE-FN to retrieve information from that symbol's
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1723 info-variant-part."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1724 (artist-fc-retrieve-from-symbol-sub artist-mt symbol retrieve-fn))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1725
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1726 (defun artist-fc-retrieve-from-symbol-sub (table symbol retrieve-fn)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1727 "Search TABLE for a function-call SYMBOL.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1728 Calls RETRIEVE-FN to retrieve information from that symbol's
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1729 info-variant-part."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1730 (catch 'found
84925
003285de78e4 (artist-mt-get-symbol-from-keyword-sub, artist-go-retrieve-from-symbol-sub,
Juanma Barranquero <lekktu@gmail.com>
parents: 78482
diff changeset
1731 (mapc
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1732 (lambda (element)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1733 (let ((element-tag (artist-mt-get-tag element)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1734 (cond ((eq element-tag 'function-call)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1735 (let* ((info-part (artist-mt-get-info-part element))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1736 (fc-symbol (artist-fc-get-symbol info-part)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1737 (if (eq fc-symbol symbol)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1738 (throw 'found (funcall retrieve-fn info-part)))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1739
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1740 ((eq element-tag 'menu)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1741 (let* ((info-part (artist-mt-get-info-part element))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1742 (items (artist-mn-get-items info-part))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1743 (answer (artist-fc-retrieve-from-symbol-sub
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1744 items symbol retrieve-fn)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1745 (if answer (throw 'found answer)))))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1746
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1747 table)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1748 nil))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1749
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1750 (defun artist-fc-get-fn-from-symbol (symbol)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1751 "Search the master table to get function from a function call SYMBOL."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1752 (artist-fc-retrieve-from-symbol symbol 'artist-fc-get-fn))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1753
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1754
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1755 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1756 ;; Utilities
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1757 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1758
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1759 ;; Macro that won't funcall the function if it is nil.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1760 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1761 (defmacro artist-funcall (fn &rest args)
78482
80e300a489d6 Replace `iff' in doc-strings and comments.
Glenn Morris <rgm@gnu.org>
parents: 78225
diff changeset
1762 "Call function FN with ARGS, if FN is not nil."
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1763 (list 'if fn (cons 'funcall (cons fn args))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1764
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1765 (defun artist-uniq (l)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1766 "Remove consecutive duplicates in list L. Comparison is done with `equal'."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1767 (cond ((null l) nil)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1768 ((null (cdr l)) l) ; only one element in list
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1769 ((equal (car l) (car (cdr l))) (artist-uniq (cdr l))) ; first 2 equal
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1770 (t (cons (car l) (artist-uniq (cdr l)))))) ; first 2 are different
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1771
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1772 (defun artist-string-split (str r)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1773 "Split string STR at occurrences of regexp R, returning a list of strings."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1774 (let ((res nil)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1775 (start 0)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1776 (match-pos 0))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1777 (while (setq match-pos (string-match r str start))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1778 (setq res (cons (copy-sequence (substring str start match-pos)) res))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1779 (setq start (match-end 0)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1780 (if (null res)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1781 (list str)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1782 (if (< (match-end 0) (- (length str) 1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1783 (setq res (cons (substring str (match-end 0) (length str)) res)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1784 (reverse res))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1785
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1786 (defun artist-string-to-file (str file-name)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1787 "Write string STR to file FILE-NAME."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1788 (write-region str 'end-is-ignored file-name nil 'no-message))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1789
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1790 (defun artist-file-to-string (file-name)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1791 "Read from file FILE-NAME into a string."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1792 (save-excursion
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1793 (let ((tmp-buffer (get-buffer-create (concat "*artist-" file-name "*"))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1794 (set-buffer tmp-buffer)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1795 (goto-char (point-min))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1796 (insert-file-contents file-name nil nil nil t)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1797 (let ((str (copy-sequence (buffer-substring (point-min)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1798 (point-max)))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1799 (kill-buffer tmp-buffer)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1800 str))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1801
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1802 (defun artist-clear-buffer (buf)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1803 "Clear contents of buffer BUF."
105813
df4934f25eef * textmodes/two-column.el (2C-split):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 101892
diff changeset
1804 (with-current-buffer buf
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1805 (goto-char (point-min))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1806 (delete-char (- (point-max) (point-min)) nil)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1807
47953
126b6cb8740d (artist-ff-is-bottommost-line): Fix misplaced ELSE expression on IF.
Juanma Barranquero <lekktu@gmail.com>
parents: 46163
diff changeset
1808
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1809 (defun artist-system (program stdin &optional program-args)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1810 "Run PROGRAM synchronously with the contents of string STDIN to stdin.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1811 Optional args PROGRAM-ARGS are arguments to PROGRAM.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1812 Return a list (RETURN-CODE STDOUT STDERR)."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1813 (save-excursion
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1814 (let* ((tmp-stdin-file-name (if stdin
101892
b737631c78a2 (artist-system): Allow make-temp-file to use temporary-file-directory.
Chong Yidong <cyd@stupidchicken.com>
parents: 100908
diff changeset
1815 (make-temp-file "artist-stdin.")
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1816 nil))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1817 (tmp-stdout-buffer (get-buffer-create
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1818 (concat "*artist-" program "*")))
101892
b737631c78a2 (artist-system): Allow make-temp-file to use temporary-file-directory.
Chong Yidong <cyd@stupidchicken.com>
parents: 100908
diff changeset
1819 (tmp-stderr-file-name (make-temp-file "artist-stdout."))
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1820 (binary-process-input nil) ; for msdos
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1821 (binary-process-output nil))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1822
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1823 ;; Prepare stdin
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1824 (if stdin (artist-string-to-file stdin tmp-stdin-file-name))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1825
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1826 ;; Clear the buffer
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1827 (artist-clear-buffer tmp-stdout-buffer)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1828
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1829 ;; Start the program
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1830 (unwind-protect
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1831 (let ((res (if program-args
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1832 (apply 'call-process
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1833 program
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1834 tmp-stdin-file-name
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1835 (list tmp-stdout-buffer
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1836 tmp-stderr-file-name)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1837 nil
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1838 (if (stringp program-args)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1839 (list program-args)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1840 program-args))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1841 (apply 'call-process
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1842 program
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1843 tmp-stdin-file-name
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1844 (list tmp-stdout-buffer
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1845 tmp-stderr-file-name)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1846 nil))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1847
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1848 ;; the return value
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1849 (list res
105813
df4934f25eef * textmodes/two-column.el (2C-split):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 101892
diff changeset
1850 (with-current-buffer tmp-stdout-buffer
df4934f25eef * textmodes/two-column.el (2C-split):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 101892
diff changeset
1851 (buffer-substring (point-min) (point-max)))
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1852 (artist-file-to-string tmp-stderr-file-name)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1853
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1854 ;; Unwind: remove temporary files and buffers
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1855 (if (and stdin (file-exists-p tmp-stdin-file-name))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1856 (delete-file tmp-stdin-file-name))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1857 (if (file-exists-p tmp-stderr-file-name)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1858 (delete-file tmp-stderr-file-name))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1859 (if (memq tmp-stdout-buffer (buffer-list))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1860 (kill-buffer tmp-stdout-buffer))))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1861
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1862 ;; Routines that deal with the buffer
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1863 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1864 ;; artist-current-line get line number (top of buffer is 0)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1865 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1866 ;; artist-move-to-xy move to (x,y) (0,0) is beg-of-buffer
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1867 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1868 ;; artist-get-char-at-xy get char in at (x,y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1869 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1870 ;; artist-replace-char overwrite (replace) char at point
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1871 ;; artist-replace-chars overwrite (replace) chars at point
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1872 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1873
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1874 (defsubst artist-current-column ()
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1875 "Return point's current column."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1876 (current-column))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1877
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1878 (defsubst artist-current-line ()
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1879 "Return point's current line, buffer-relative. Top of buffer is 0."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1880 (+ (count-lines 1 (point))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1881 (if (= (current-column) 0) 1 0)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1882 -1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1883
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1884 (defsubst artist-move-to-xy (x y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1885 "Move to column X, at row Y from the top of buffer. Top line is 0."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1886 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1887 ;; Q: Why do we do forward-line twice?
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1888 ;; A: The documentation for forward-line says
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1889 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1890 ;; "... Returns the count of lines left to move. ... With
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1891 ;; positive N, a non-empty line at the end counts as one
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1892 ;; line successfully moved (for the return value)."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1893 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1894 ;; This means that if we are trying to move forward past the end
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1895 ;; of the buffer, and that last line happened to be longer than
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1896 ;; the current column, then we end up at the end of that last
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1897 ;; line, and forward-line returns one less than we actually
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1898 ;; wanted to move.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1899 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1900 ;; Example: In the figure below, the `X' is the very last
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1901 ;; character in the buffer ("a non-empty line at the
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1902 ;; end"). Suppose point is at at P. Then (forward-line 1)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1903 ;; returns 0 and puts point after the `X'.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1904 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1905 ;; --------top of buffer--------
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1906 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1907 ;; P X
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1908 ;; -------bottom of buffer------
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1909 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1910 ;; But, if we are at the end of buffer when trying to move
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1911 ;; forward, then forward-line will return the (for us) correct
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1912 ;; value, which is good, because we will come to the end of the
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1913 ;; buffer by the first forward-line. The second forward-line
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1914 ;; will then get us where we really wanted to go.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1915 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1916 ;; If we are not moving past the end of the buffer, then the
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1917 ;; second forward-line will return 0.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1918 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1919 ;; Q: What happens if we are moving upwards?
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1920 ;; A: That will work good. insert-char won't insert a negative
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1921 ;; number of chars, and forward-line will fail silently if we are
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1922 ;; moving past the beginning of the buffer.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1923 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1924 (forward-line (- y (artist-current-line)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1925 (insert-char ?\n (forward-line (- y (artist-current-line))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1926 (move-to-column (max x 0) t)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1927 (let ((curr-y (artist-current-line)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1928 (setq artist-draw-region-min-y (min curr-y artist-draw-region-min-y))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1929 (setq artist-draw-region-max-y (max curr-y artist-draw-region-max-y))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1930
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1931 (defsubst artist-get-char-at-xy (x y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1932 "Return the character found at column X, row Y.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1933 Also updates the variables `artist-draw-min-y' and `artist-draw-max-y'."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1934 (artist-move-to-xy x y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1935 (let ((curr-y (artist-current-line)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1936 (setq artist-draw-region-min-y (min curr-y artist-draw-region-min-y))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1937 (setq artist-draw-region-max-y (max curr-y artist-draw-region-max-y)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1938 (following-char))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1939
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1940
97766
2b0a264c4e18 (artist-mode-init): Added comment on the setting up of the
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
1941 (defsubst artist-get-replacement-char (c)
2b0a264c4e18 (artist-mode-init): Added comment on the setting up of the
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
1942 "Retrieve a replacement for character C from `artist-replacement-table'.
2b0a264c4e18 (artist-mode-init): Added comment on the setting up of the
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
1943 The replacement is used to convert tabs and new-lines to spaces."
2b0a264c4e18 (artist-mode-init): Added comment on the setting up of the
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
1944 ;; Characters may be outside the range of the `artist-replacement-table',
2b0a264c4e18 (artist-mode-init): Added comment on the setting up of the
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
1945 ;; for example if they are unicode code points >= 256.
2b0a264c4e18 (artist-mode-init): Added comment on the setting up of the
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
1946 ;; Check so we don't attempt to access the array out of its bounds,
2b0a264c4e18 (artist-mode-init): Added comment on the setting up of the
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
1947 ;; assuming no such character needs to be replaced.
2b0a264c4e18 (artist-mode-init): Added comment on the setting up of the
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
1948 (if (< c (length artist-replacement-table))
2b0a264c4e18 (artist-mode-init): Added comment on the setting up of the
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
1949 (aref artist-replacement-table c)
2b0a264c4e18 (artist-mode-init): Added comment on the setting up of the
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
1950 c))
2b0a264c4e18 (artist-mode-init): Added comment on the setting up of the
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
1951
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1952 (defun artist-get-char-at-xy-conv (x y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1953 "Retrieve the character at X, Y, converting tabs and new-lines to spaces."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1954 (save-excursion
97766
2b0a264c4e18 (artist-mode-init): Added comment on the setting up of the
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
1955 (artist-get-replacement-char (artist-get-char-at-xy x y))))
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1956
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1957
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1958 (defun artist-replace-char (new-char)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1959 "Replace the character at point with NEW-CHAR."
110721
ad5ef46bca3e * lisp/textmodes/artist.el (artist-replace-char): Drop Emacs 20 code.
Glenn Morris <rgm@gnu.org>
parents: 110525
diff changeset
1960 (let ((overwrite-mode 'overwrite-mode-textual)
ad5ef46bca3e * lisp/textmodes/artist.el (artist-replace-char): Drop Emacs 20 code.
Glenn Morris <rgm@gnu.org>
parents: 110525
diff changeset
1961 (fill-column 32765) ; Large :-)
ad5ef46bca3e * lisp/textmodes/artist.el (artist-replace-char): Drop Emacs 20 code.
Glenn Morris <rgm@gnu.org>
parents: 110525
diff changeset
1962 (blink-matching-paren nil))
ad5ef46bca3e * lisp/textmodes/artist.el (artist-replace-char): Drop Emacs 20 code.
Glenn Morris <rgm@gnu.org>
parents: 110525
diff changeset
1963 (setq last-command-event (artist-get-replacement-char new-char))
ad5ef46bca3e * lisp/textmodes/artist.el (artist-replace-char): Drop Emacs 20 code.
Glenn Morris <rgm@gnu.org>
parents: 110525
diff changeset
1964 (self-insert-command 1)))
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1965
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1966 (defun artist-replace-chars (new-char count)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1967 "Replace characters at point with NEW-CHAR. COUNT chars are replaced."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1968 ;; Check that the variable exists first. The doc says it was added in 19.23.
34648
e787281bcf24 (artist-replace-chars, artist-replace-char):
Miles Bader <miles@gnu.org>
parents: 33653
diff changeset
1969 (if (and (and (boundp 'emacs-major-version) (= emacs-major-version 20))
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1970 (and (boundp 'emacs-minor-version) (<= emacs-minor-version 3)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1971 ;; This is a bug workaround for Emacs 20, versions up to 20.3:
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1972 ;; The self-insert-command doesn't care about the overwrite-mode,
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1973 ;; so the insertion is done in the same way as in picture mode.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1974 ;; This seems to be a little bit slower.
97766
2b0a264c4e18 (artist-mode-init): Added comment on the setting up of the
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
1975 (let* ((replaced-c (artist-get-replacement-char new-char))
34648
e787281bcf24 (artist-replace-chars, artist-replace-char):
Miles Bader <miles@gnu.org>
parents: 33653
diff changeset
1976 (replaced-s (make-string count replaced-c)))
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1977 (artist-move-to-xy (+ (artist-current-column) count)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1978 (artist-current-line))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1979 (delete-char (- count))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1980 (insert replaced-s))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1981 ;; In emacs-19, the self-insert-command works better
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1982 (let ((overwrite-mode 'overwrite-mode-textual)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1983 (fill-column 32765) ; Large :-)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1984 (blink-matching-paren nil))
97766
2b0a264c4e18 (artist-mode-init): Added comment on the setting up of the
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
1985 (setq last-command-event (artist-get-replacement-char new-char))
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1986 (self-insert-command count))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1987
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1988 (defsubst artist-replace-string (string &optional see-thru)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1989 "Replace contents at point with STRING.
99875
3658bfd115cd * textmodes/artist.el (artist-charlist-to-string): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 99515
diff changeset
1990 With optional argument SEE-THRU set to non-nil, text in the buffer
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1991 ``shines thru'' blanks in the STRING."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1992 (let ((char-list (append string nil)) ; convert the string to a list
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1993 (overwrite-mode 'overwrite-mode-textual)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1994 (fill-column 32765) ; Large :-)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1995 (blink-matching-paren nil))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1996 (while char-list
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1997 (let ((c (car char-list)))
97766
2b0a264c4e18 (artist-mode-init): Added comment on the setting up of the
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
1998 (if (and see-thru (= (artist-get-replacement-char c) ?\s))
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1999 (artist-move-to-xy (1+ (artist-current-column))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2000 (artist-current-line))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2001 (artist-replace-char c)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2002 (setq char-list (cdr char-list)))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2003
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2004 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2005 ;; Routines for setting and unsetting points
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2006 ;; Used when not rubber-banding
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2007 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2008 (defun artist-no-rb-unset-point1 ()
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2009 "Unsets point 1 when not rubber-banding."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2010 (let ((x-now (artist-current-column))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2011 (y-now (artist-current-line))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2012 (x (aref artist-rb-save-data 0))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2013 (y (aref artist-rb-save-data 1)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2014 (artist-move-to-xy x y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2015 (artist-replace-char (aref artist-rb-save-data 2))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2016 (artist-move-to-xy x-now y-now)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2017
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2018 (defun artist-no-rb-set-point1 (x y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2019 "Set point 1 at X, Y when not rubber-banding."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2020 (let ((x-now (artist-current-column))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2021 (y-now (artist-current-line)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2022 (aset artist-rb-save-data 0 x)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2023 (aset artist-rb-save-data 1 y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2024 (aset artist-rb-save-data 2 (artist-get-char-at-xy x y))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2025 (artist-move-to-xy x y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2026 (artist-replace-char artist-first-char)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2027 (artist-move-to-xy x-now y-now)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2028 (aset artist-rb-save-data 6 0)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2029
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2030 (defun artist-no-rb-unset-point2 ()
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2031 "This function unsets point 2 when not rubber-banding."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2032 (if (= (aref artist-rb-save-data 6) 1)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2033 (let ((x-now (artist-current-column))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2034 (y-now (artist-current-line))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2035 (x (aref artist-rb-save-data 3))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2036 (y (aref artist-rb-save-data 4)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2037 (artist-move-to-xy x y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2038 (artist-replace-char (aref artist-rb-save-data 5))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2039 (artist-move-to-xy x-now y-now))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2040
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2041 (defun artist-no-rb-set-point2 (x y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2042 "Set point 2 at X, Y when not rubber-banding."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2043 (let ((x-now (artist-current-column))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2044 (y-now (artist-current-line)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2045 (aset artist-rb-save-data 3 x)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2046 (aset artist-rb-save-data 4 y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2047 (aset artist-rb-save-data 5 (artist-get-char-at-xy x y))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2048 (artist-move-to-xy x y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2049 (artist-replace-char artist-second-char)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2050 (artist-move-to-xy x-now y-now)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2051 (aset artist-rb-save-data 6 1)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2052
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2053 (defun artist-no-rb-unset-points ()
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2054 "This function unsets point 1 and 2 when not rubber-banding."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2055 (artist-no-rb-unset-point1)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2056 (artist-no-rb-unset-point2))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2057
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2058
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2059 ;; artist-intersection-char
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2060 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2061 ;; Note: If changing this, see the notes for artist-unintersection-char
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2062 ;; and artist-vaporize-lines
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2063 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2064 (defun artist-intersection-char (new-c old-c)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2065 "Calculates intersection character when drawing a NEW-C on top of an OLD-C.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2066 Return character according to this scheme:
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2067
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2068 OLD-C NEW-C return
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2069 - | +
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2070 | - +
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2071 + | +
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2072 + - +
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2073 \\ / X
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2074 / \\ X
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2075 X / X
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2076 X \\ X
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2077 other combinations NEW-C"
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2078
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2079 (cond ((and (= old-c ?- ) (= new-c ?| )) ?+ )
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2080 ((and (= old-c ?| ) (= new-c ?- )) ?+ )
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2081 ((and (= old-c ?+ ) (= new-c ?- )) ?+ )
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2082 ((and (= old-c ?+ ) (= new-c ?| )) ?+ )
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2083 ((and (= old-c ?\\ ) (= new-c ?/ )) ?X )
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2084 ((and (= old-c ?/ ) (= new-c ?\\ )) ?X )
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2085 ((and (= old-c ?X ) (= new-c ?/ )) ?X )
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2086 ((and (= old-c ?X ) (= new-c ?\\ )) ?X )
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2087 (t new-c)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2088
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2089 ;; artist-unintersection-char
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2090 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2091 ;; Note: If changing this, see the note for artist-vaporize-lines
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2092 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2093 (defun artist-unintersection-char (line-c buffer-c)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2094 "Restore character to before intersection when removing LINE-C from BUFFER-C.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2095 Return character according to this scheme:
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2096
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2097 LINE-C BUFFER-C return
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2098 - + |
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2099 | + -
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2100 \\ X /
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2101 / X \\
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2102 other combinations `artist-erase-char'."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2103
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2104 (cond ((and (= line-c ?- ) (= buffer-c ?+ )) ?| )
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2105 ((and (= line-c ?| ) (= buffer-c ?+ )) ?- )
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2106 ((and (= line-c ?\\ ) (= buffer-c ?X )) ?/ )
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2107 ((and (= line-c ?/ ) (= buffer-c ?X )) ?\\ )
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2108 ((= line-c buffer-c) artist-erase-char)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2109 (t buffer-c)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2110
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2111
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2112 ;; Computing the line-char to use
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2113 ;; for use with borderless shapes
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2114 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2115 (defsubst artist-compute-line-char ()
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2116 "Compute which character to use for lines, if any.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2117 Return value is either nil for the default characters that make up lines, or
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2118 a character chosen depending on the variables `artist-borderless-shapes',
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2119 `artist-fill-char-set', `artist-fill-char' and
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2120 `artist-line-char-set' and `artist-line-char'."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2121 (if (and artist-borderless-shapes artist-fill-char-set)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2122 artist-fill-char
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2123 (if artist-line-char-set
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2124 artist-line-char
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2125 nil)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2126
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2127
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2128 ;; Things for drawing horizontal, vertical and diagonal (straight) lines.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2129 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2130 ;; A line here is a vector:
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2131 ;; [ start-x start-y length direction saved-char-1 saved-char-2 ... ]
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2132 ;; directions start with 0 at the x-axis and counts anti clockwise.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2133 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2134 (defvar artist-direction-info
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2135 ;; x y char
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2136 [ [ 1 0 ?- ] ; direction 0
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2137 [ 1 1 ?\\ ] ; direction 1
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2138 [ 0 1 ?| ] ; direction 2
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2139 [ -1 1 ?/ ] ; direction 3
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2140 [ -1 0 ?- ] ; direction 4
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2141 [ -1 -1 ?\\ ] ; direction 5
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2142 [ 0 -1 ?| ] ; direction 6
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2143 [ 1 -1 ?/ ] ] ; direction 7
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2144 "Table used for stepping x and y coordinates in a specific direction.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2145 This table is also used for determining which char to use for that direction.")
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2146
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2147 (defsubst artist-direction-step-x (direction)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2148 "Return the x-step for DIRECTION from the `artist-direction-info' table."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2149 (aref (aref artist-direction-info direction) 0))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2150
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2151 (defsubst artist-direction-step-y (direction)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2152 "Return the y-step for DIRECTION from the `artist-direction-info' table."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2153 (aref (aref artist-direction-info direction) 1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2154
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2155 (defun artist-direction-char (direction)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2156 "Return the character for DIRECTION from the `artist-direction-info' table."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2157 (aref (aref artist-direction-info direction) 2))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2158
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2159 ;; artist-find-direction
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2160 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2161 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2162 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2163 (defun artist-find-direction (x1 y1 x2 y2)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2164 "Find the direction from point X1,Y1 to X2,Y2.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2165 Returns a DIRECTION, a number 0--7, coded as follows:
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2166
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2167 5 6 7
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2168 \\ | /
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2169 4 - * - 0
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2170 / | \\
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2171 3 2 1"
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2172 (let ((delta-x (- x2 x1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2173 (delta-y (- y2 y1)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2174 (cond ((>= delta-x (* 2 (abs delta-y))) 0)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2175 ((>= delta-y (* 2 (abs delta-x))) 2)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2176 ((>= (- delta-x) (* 2 (abs delta-y))) 4)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2177 ((>= (- delta-y) (* 2 (abs delta-x))) 6)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2178 ((and (>= delta-x 0) (>= delta-y 0)) 1)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2179 ((and (<= delta-x 0) (>= delta-y 0)) 3)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2180 ((and (<= delta-x 0) (<= delta-y 0)) 5)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2181 ((and (>= delta-x 0) (<= delta-y 0)) 7))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2182
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2183 (defun artist-straight-calculate-length (direction x1 y1 x2 y2)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2184 "Calculate length for a straight line in DIRECTION from X1,Y1 to X2,Y2."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2185 (cond ((or (= direction 7)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2186 (= direction 0)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2187 (= direction 1)) (1+ (- x2 x1)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2188 ((or (= direction 3)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2189 (= direction 4)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2190 (= direction 5)) (1+ (- x1 x2)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2191 (t (1+ (abs (- y2 y1))))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2192
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2193 (defun artist-sline (x1 y1 x2 y2)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2194 "Create a straight line from X1,Y1 to X2,Y2."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2195 (let* ((direction (artist-find-direction x1 y1 x2 y2))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2196 (length (artist-straight-calculate-length direction x1 y1 x2 y2))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2197 (line (make-vector (+ length 4) x1)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2198 ;; not needed:
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2199 ;; (aset line 0 x1)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2200 ;; because we set all elements to x1
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2201 (aset line 1 y1)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2202 (aset line 2 length)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2203 (aset line 3 direction)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2204 line))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2205
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2206 (defun artist-save-chars-under-sline (line)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2207 "Save characters under a LINE."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2208 (let ((x (aref line 0))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2209 (y (aref line 1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2210 (length (+ (aref line 2) 4))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2211 (direction (aref line 3))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2212 (i 4))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2213 (while (< i length)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2214 (aset line i (artist-get-char-at-xy x y))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2215 (setq x (+ x (artist-direction-step-x direction)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2216 (setq y (+ y (artist-direction-step-y direction)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2217 (setq i (1+ i))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2218 line)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2219
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2220
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2221
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2222 ;; Things for drawing lines in all directions.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2223 ;; The line drawing engine is the eight-point alrogithm.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2224 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2225 ;; A line is here a list of (x y saved-char new-char)s.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2226 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2227 (defvar artist-octant-info
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2228 ;; Initial Step in Step in
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2229 ;; coeffs x and y x and y
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2230 ;; for if q >= 0 if g < 0
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2231 ;; dfdx,dfdy
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2232 [ [ 2 1 1 0 1 1 ] ; 1st octant
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2233 [ 1 2 1 1 0 1 ] ; 2nd octant
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2234 [ -1 2 0 1 -1 1 ] ; 3rd octant
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2235 [ -2 1 -1 1 -1 0 ] ; 4th octant
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2236 [ -2 -1 -1 0 -1 -1 ] ; 5th octant
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2237 [ -1 -2 -1 -1 0 -1 ] ; 6th octant
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2238 [ 1 -2 0 -1 1 -1 ] ; 7th octant
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2239 [ 2 -1 1 -1 1 0 ] ] ; 8th octant
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2240 "Table used by line drawing algorithm (eight point).")
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2241
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2242 ;; Primitives for the artist-octant-info.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2243 ;; Decrease octant by 1 since elt counts from 0 and octant counts from 1.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2244 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2245 (defsubst artist-get-dfdx-init-coeff (octant)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2246 "Retrieve dfdx component for OCTANT."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2247 (aref (aref artist-octant-info (- octant 1)) 0))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2248
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2249 (defsubst artist-get-dfdy-init-coeff (octant)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2250 "Retrieve dfdy component for OCTANT."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2251 (aref (aref artist-octant-info (- octant 1)) 1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2252
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2253 (defsubst artist-get-x-step-q>=0 (octant)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2254 "Retrieve x-step component for OCTANT when q >= 0."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2255 (aref (aref artist-octant-info (- octant 1)) 2))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2256
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2257 (defsubst artist-get-y-step-q>=0 (octant)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2258 "Retrieve y-step component for OCTANT when q >= 0."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2259 (aref (aref artist-octant-info (- octant 1)) 3))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2260
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2261 (defsubst artist-get-x-step-q<0 (octant)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2262 "Retrieve x-step component for OCTANT for q < 0."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2263 (aref (aref artist-octant-info (- octant 1)) 4))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2264
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2265 (defsubst artist-get-y-step-q<0 (octant)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2266 "Retrieve y-step component for OCTANT for q < 0."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2267 (aref (aref artist-octant-info (- octant 1)) 5))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2268
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2269
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2270 ;; Find octant from x1 y1 x2 y2 coordinates.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2271 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2272 (defun artist-find-octant (x1 y1 x2 y2)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2273 "Find octant for a line from X1,Y1 to X2,Y2.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2274 Octant are numbered 1--8, anti-clockwise as:
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2275
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2276 \\3|2/
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2277 4\\|/1
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2278 ---+---
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2279 5/|\\8
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2280 /6|7\\"
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2281
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2282 (if (<= x1 x2) ; quadrant 1 or 4
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2283 (if (<= y1 y2) ; quadrant 1, octant 1 or 2
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2284 (if (>= (- x2 x1) (- y2 y1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2285 1
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2286 2)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2287 (if (>= (- x2 x1) (- (- y2 y1))) ; quadrant 4, octant 7 or 8
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2288 8
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2289 7))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2290 (if (<= y1 y2) ; quadrant 2 or 3
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2291 (if (>= (- (- x2 x1)) (- y2 y1)) ; quadrant 2, octant 3 or 4
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2292 4
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2293 3)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2294 (if (>= (- (- x2 x1)) (- (- y2 y1))) ; quadrant 3, octant 5 or 6
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2295 5
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2296 6))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2297
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2298 ;; Some inline funtions for creating, setting and reading
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2299 ;; members of a coordinate
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2300 ;;
99875
3658bfd115cd * textmodes/artist.el (artist-charlist-to-string): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 99515
diff changeset
2301
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2302 (defsubst artist-new-coord (x y &optional new-char)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2303 "Create a new coordinate at X,Y for use in a line.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2304 Optional argument NEW-CHAR can be used for setting the new-char component
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2305 in the coord."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2306 (let ((coord (make-vector 4 x)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2307 (aset coord 1 y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2308 (aset coord 3 new-char)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2309 coord))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2310
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2311 (defsubst artist-coord-get-x (coord)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2312 "Retrieve the x component of a COORD."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2313 (aref coord 0))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2314
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2315 (defsubst artist-coord-get-y (coord)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2316 "Retrieve the y component of a COORD."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2317 (aref coord 1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2318
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2319 (defsubst artist-coord-set-x (coord new-x)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2320 "Set the x component of a COORD to NEW-X."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2321 (aset coord 0 new-x)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2322 coord)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2323
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2324 (defsubst artist-coord-set-y (coord new-y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2325 "Set the y component of a COORD to NEW-Y."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2326 (aset coord 1 new-y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2327 coord)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2328
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2329 (defsubst artist-coord-get-saved-char (coord)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2330 "Retrieve the saved char component of a COORD."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2331 (aref coord 2))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2332
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2333 (defsubst artist-coord-get-new-char (coord)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2334 "Retrieve the new char component of a COORD."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2335 (aref coord 3))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2336
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2337 (defsubst artist-coord-add-saved-char (coord saved-char)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2338 "Set the saved char component of a COORD to SAVED-CHAR."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2339 (aset coord 2 saved-char)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2340 coord)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2341
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2342 (defsubst artist-coord-add-new-char (coord new-char)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2343 "Set the new char component of a COORD to NEW-CHAR."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2344 (aset coord 3 new-char)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2345 coord)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2346
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2347 (defsubst artist-coord-set-new-char (coord new-char)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2348 "Set the new char component of a COORD to NEW-CHAR."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2349 (aset coord 3 new-char)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2350 coord)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2351
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2352
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2353 ;; Pretend we are plotting a pixel. Instead we just list it
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2354 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2355 (defmacro artist-put-pixel (point-list x y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2356 "In POINT-LIST, store a ``pixel'' at coord X,Y."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2357 (list 'setq point-list
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2358 (list 'append point-list (list 'list (list 'artist-new-coord x y)))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2359
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2360 ;; Calculate list of points using eight point algorithm
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2361 ;; return a list of coords
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2362 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2363 (defun artist-eight-point (x1 y1 x2 y2)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2364 "Run the eight-point algorithm to get a list of coords from X1,Y1 to X2,Y2."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2365 (let* ((point-list nil)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2366 (octant (artist-find-octant x1 y1 x2 y2))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2367 (dfdx-coeff (artist-get-dfdx-init-coeff octant))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2368 (dfdy-coeff (artist-get-dfdy-init-coeff octant))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2369 (x-step-q>=0 (artist-get-x-step-q>=0 octant))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2370 (y-step-q>=0 (artist-get-y-step-q>=0 octant))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2371 (x-step-q<0 (artist-get-x-step-q<0 octant))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2372 (y-step-q<0 (artist-get-y-step-q<0 octant))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2373 (dfdx (- (- y2 y1)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2374 (dfdy (- x2 x1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2375 (x x1)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2376 (y y1)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2377 (f 0)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2378 (q (+ (* 2 f)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2379 (* dfdx-coeff dfdx)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2380 (* dfdy-coeff dfdy))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2381 (artist-put-pixel point-list x y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2382 (while (or (not (eq x x2)) (not (eq y y2)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2383 (if (>= q 0)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2384 (progn
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2385 (setq x (+ x x-step-q>=0))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2386 (setq y (+ y y-step-q>=0))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2387 (setq f (+ f (* x-step-q>=0 dfdx) (* y-step-q>=0 dfdy))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2388 (progn
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2389 (setq x (+ x x-step-q<0))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2390 (setq y (+ y y-step-q<0))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2391 (setq f (+ f (* x-step-q<0 dfdx) (* y-step-q<0 dfdy)))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2392 (setq q (+ (* 2 f) (* dfdx-coeff dfdx) (* dfdy-coeff dfdy)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2393 (artist-put-pixel point-list x y))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2394 point-list))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2395
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2396 ;; artist-save-chars-under-point-list
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2397 ;; Remebers the chars that were there before we did draw the line.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2398 ;; Returns point-list.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2399 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2400 (defun artist-save-chars-under-point-list (point-list)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2401 "Save characters originally under POINT-LIST."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2402 (mapcar
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2403 (lambda (coord)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2404 (artist-coord-add-saved-char
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2405 coord
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2406 (artist-get-char-at-xy (artist-coord-get-x coord)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2407 (artist-coord-get-y coord))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2408 point-list))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2409
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2410 ;; artist-calculate-new-char, artist-calculate-new-chars
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2411 ;; Calculates which char to insert depending on direction of point-list.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2412 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2413 ;; Depending on new-coord's position relative to last-coord one of the
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2414 ;; following chars are returned: \ | / - o, as indicated by this:
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2415 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2416 ;; \ | /
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2417 ;; - o -
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2418 ;; / | \
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2419 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2420 ;; artist-calculate-new-char works on one coordinate, returns char.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2421 ;; artist-calculate-new-chars works on a point-list, returns point-list.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2422 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2423 (defun artist-calculate-new-char (last-coord new-coord)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2424 "Return a line-char to use when moving from LAST-COORD to NEW-COORD."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2425 (let ((last-x (artist-coord-get-x last-coord))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2426 (last-y (artist-coord-get-y last-coord))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2427 (new-x (artist-coord-get-x new-coord))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2428 (new-y (artist-coord-get-y new-coord)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2429 (cond ((> new-x last-x) (cond ((< new-y last-y) ?/ )
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2430 ((> new-y last-y) ?\\ )
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2431 (t ?- )))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2432 ((< new-x last-x) (cond ((< new-y last-y) ?\\ )
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2433 ((> new-y last-y) ?/ )
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2434 (t ?- )))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2435 ((eq new-y last-y) ?o)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2436 (t ?| ))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2437
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2438 (defun artist-calculate-new-chars (point-list)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2439 "Return a list of coords with line-chars calculated. Input: POINT-LIST."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2440 (if (null (cdr point-list))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2441 (list (artist-coord-add-new-char (car point-list) ?o ))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2442 (let ((last-coord (car point-list)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2443 (cons (artist-coord-add-new-char
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2444 (car point-list)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2445 (artist-calculate-new-char (car (cdr point-list))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2446 (car point-list)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2447 (mapcar
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2448 (lambda (this-coord)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2449 (prog1
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2450 (artist-coord-add-new-char
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2451 this-coord
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2452 (artist-calculate-new-char last-coord this-coord))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2453 (setq last-coord this-coord)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2454 (cdr point-list))))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2455
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2456 ;; artist-modify-new-chars
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2457 ;; Replaces some characters with some other characters.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2458 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2459 ;; artist-modify-new-chars works on a point-list, returns point-list.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2460 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2461 (defun artist-modify-new-chars (point-list)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2462 "Replace intersecting characters in POINT-LIST.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2463 This function returns a point-list."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2464 (mapcar
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2465 (lambda (coord)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2466 (let* ((new-c (artist-coord-get-new-char coord))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2467 (saved-c (artist-coord-get-saved-char coord))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2468 (modified-c (artist-intersection-char new-c saved-c)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2469 (artist-coord-set-new-char coord modified-c)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2470 point-list))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2471
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2472
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2473 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2474 ;; functions for accessing endoints and elements in object requiring
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2475 ;; 2 endpoints
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2476 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2477
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2478 (defun artist-make-endpoint (x y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2479 "Create an endpoint at X, Y."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2480 (let ((new-endpoint (make-vector 2 x)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2481 (aset new-endpoint 1 y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2482 new-endpoint))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2483
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2484 (defun artist-endpoint-get-x (endpoint)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2485 "Retrieve the x component of an ENDPOINT."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2486 (aref endpoint 0))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2487
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2488 (defun artist-endpoint-get-y (endpoint)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2489 "Retrieve the y component of an ENDPOINT."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2490 (aref endpoint 1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2491
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2492 (defun artist-make-2point-object (endpoint1 endpoint2 shapeinfo)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2493 "Create a 2-point object of ENDPOINT1, ENDPOINT2 and SHAPEINFO."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2494 (list endpoint1 endpoint2 shapeinfo))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2495
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2496 (defun artist-2point-get-endpoint1 (obj)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2497 "Retrieve the first endpoint of a 2-point object OBJ."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2498 (elt obj 0))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2499
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2500 (defun artist-2point-get-endpoint2 (obj)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2501 "Retrieve the second endpoint of a 2-point object OBJ."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2502 (elt obj 1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2503
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2504 (defun artist-2point-get-shapeinfo (obj)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2505 "Retrieve the shapeinfo component of a 2-point object OBJ."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2506 (elt obj 2))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2507
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2508
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2509 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2510 ;; Drawing and undrawing lines (any direction)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2511 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2512
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2513 (defun artist-draw-line (x1 y1 x2 y2)
99875
3658bfd115cd * textmodes/artist.el (artist-charlist-to-string): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 99515
diff changeset
2514 "Draw a line from X1, Y1 to X2, Y2.
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2515
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2516 Output is a line, which is a list (END-POINT-1 END-POINT-2 SHAPE-INFO).
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2517
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2518 END-POINT-1 and END-POINT-2 are two-element vectors on the form [X Y].
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2519 SHAPE-INFO is a list of vectors [X Y SAVED-CHAR NEW-CHAR]."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2520 (let ((endpoint1 (artist-make-endpoint x1 y1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2521 (endpoint2 (artist-make-endpoint x2 y2)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2522 (artist-make-2point-object
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2523 endpoint1
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2524 endpoint2
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2525 (mapcar
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2526 (lambda (coord)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2527 (artist-move-to-xy (artist-coord-get-x coord)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2528 (artist-coord-get-y coord))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2529 (if artist-line-char-set
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2530 (artist-replace-char artist-line-char)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2531 (artist-replace-char (artist-coord-get-new-char coord)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2532 coord)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2533 (artist-modify-new-chars
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2534 (artist-calculate-new-chars
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2535 (artist-save-chars-under-point-list
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2536 (artist-eight-point x1 y1 x2 y2))))))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2537
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2538 (defun artist-undraw-line (line)
99875
3658bfd115cd * textmodes/artist.el (artist-charlist-to-string): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 99515
diff changeset
2539 "Undraw LINE."
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2540 (mapcar
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2541 (lambda (coord)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2542 (artist-move-to-xy (artist-coord-get-x coord)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2543 (artist-coord-get-y coord))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2544 (artist-replace-char (artist-coord-get-saved-char coord))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2545 coord)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2546 (artist-2point-get-shapeinfo line)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2547
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2548 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2549 ;; Drawing and undrawing straight lines
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2550 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2551
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2552 (defun artist-draw-sline (x1 y1 x2 y2)
99875
3658bfd115cd * textmodes/artist.el (artist-charlist-to-string): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 99515
diff changeset
2553 "Draw a straight line from X1, Y1 to X2, Y2.
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2554 Straight lines are vertical, horizontal or diagonal lines.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2555 They are faster to draw and most often they are what you need
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2556 when drawing a simple image.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2557
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2558 Output is a straight line, which is a list on the form
51961
e56cb5adb76f (artist-butlast-fn, artist-draw-sline)
John Paul Wallington <jpw@pobox.com>
parents: 47953
diff changeset
2559 \(END-POINT-1 END-POINT-2 SHAPE-INFO).
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2560
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2561 END-POINT-1 and END-POINT-2 are two-element vectors on the form [X Y].
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2562 SHAPE-INFO is a vector [START-X START-Y LENGTH-OF-LINE DIRECTION
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2563 ORIGINAL-CHAR-1 ORIGINAL-CHAR-2 ... ]."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2564 (let* ((line (artist-save-chars-under-sline (artist-sline x1 y1 x2 y2)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2565 (x (aref line 0))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2566 (y (aref line 1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2567 (length (+ (aref line 2) 4))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2568 (direction (aref line 3))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2569 (line-char (artist-direction-char direction))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2570 (i 4)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2571 (endpoint1 (artist-make-endpoint x y))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2572 (endpoint2 nil))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2573 (while (< i length)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2574 (artist-move-to-xy x y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2575 (if artist-line-char-set
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2576 (artist-replace-char artist-line-char)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2577 (artist-replace-char (artist-intersection-char
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2578 line-char
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2579 (aref line i))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2580 (if (not (< (1+ i) length))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2581 ;; This is the last element. Set the second endpoint
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2582 (setq endpoint2 (artist-make-endpoint x y)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2583 (setq x (+ x (artist-direction-step-x direction)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2584 (setq y (+ y (artist-direction-step-y direction)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2585 (setq i (1+ i)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2586 (artist-make-2point-object endpoint1 endpoint2 line)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2587
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2588
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2589 (defun artist-undraw-sline (line)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2590 "Undraw a straight line LINE."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2591 (if line
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2592 (let* ((shape-info (artist-2point-get-shapeinfo line))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2593 (x (aref shape-info 0))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2594 (y (aref shape-info 1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2595 (length (+ (aref shape-info 2) 4))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2596 (direction (aref shape-info 3))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2597 (i 4))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2598 (while (< i length)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2599 (artist-move-to-xy x y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2600 (artist-replace-char (aref shape-info i))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2601 (setq x (+ x (artist-direction-step-x direction)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2602 (setq y (+ y (artist-direction-step-y direction)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2603 (setq i (1+ i))))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2604
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2605
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2606 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2607 ;; Drawing and undrawing rectangles and squares
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2608 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2609
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2610 (defun artist-draw-rect (x1 y1 x2 y2)
99875
3658bfd115cd * textmodes/artist.el (artist-charlist-to-string): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 99515
diff changeset
2611 "Draw a rectangle with corners at X1, Y1 and X2, Y2.
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2612
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2613 Output is a rectangle, which is a list on the form
51961
e56cb5adb76f (artist-butlast-fn, artist-draw-sline)
John Paul Wallington <jpw@pobox.com>
parents: 47953
diff changeset
2614 \(END-POINT-1 END-POINT-2 SHAPE-INFO).
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2615
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2616 END-POINT-1 and END-POINT-2 are two-element vectors on the form [X Y].
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2617 SHAPE-INFO is a list of four straight lines."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2618 (let* ((artist-line-char (artist-compute-line-char))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2619 (artist-line-char-set artist-line-char)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2620 (line1 (artist-draw-sline x1 y1 x2 y1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2621 (line2 (artist-draw-sline x2 y1 x2 y2))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2622 (line3 (artist-draw-sline x2 y2 x1 y2))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2623 (line4 (artist-draw-sline x1 y2 x1 y1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2624 (endpoint1 (artist-make-endpoint x1 y1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2625 (endpoint2 (artist-make-endpoint x2 y2)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2626 (artist-make-2point-object endpoint1
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2627 endpoint2
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2628 (list line1 line2 line3 line4))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2629
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2630 (defun artist-undraw-rect (rectangle)
99875
3658bfd115cd * textmodes/artist.el (artist-charlist-to-string): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 99515
diff changeset
2631 "Undraw RECTANGLE."
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2632 (if rectangle
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2633 (let ((shape-info (artist-2point-get-shapeinfo rectangle)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2634 (artist-undraw-sline (elt shape-info 3))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2635 (artist-undraw-sline (elt shape-info 2))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2636 (artist-undraw-sline (elt shape-info 1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2637 (artist-undraw-sline (elt shape-info 0)))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2638
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2639
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2640 (defun artist-rect-corners-squarify (x1 y1 x2 y2)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2641 "Compute square corners from rectangle corners at X1, Y1 and X2, Y2.
99875
3658bfd115cd * textmodes/artist.el (artist-charlist-to-string): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 99515
diff changeset
2642 The square's first corner will be X1, Y1. The position of the second
3658bfd115cd * textmodes/artist.el (artist-charlist-to-string): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 99515
diff changeset
2643 corner depends on which of X2 and Y2 is most far away from X1, Y1."
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2644 (let* ((delta-x (- x2 x1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2645 (delta-y (- y2 y1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2646 (delta-x-sign (if (< delta-x 0) -1 1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2647 (delta-y-sign (if (< delta-y 0) -1 1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2648 (new-x2) ; set below
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2649 (new-y2)) ; set below
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2650
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2651 ;; Check which of x2 and y2 is most distant
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2652 ;; take care to the aspect ratio
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2653 (if (> (abs delta-x) (abs delta-y))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2654
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2655 ;; *** x2 more distant than y2 (with care taken to aspect ratio)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2656 (progn
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2657 (setq new-x2 x2)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2658 (setq new-y2 (+ y1 (round (/ (* (abs delta-x) delta-y-sign)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2659 artist-aspect-ratio)))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2660
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2661 ;; *** y2 more distant than x2 (with care taken to aspect ratio)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2662 (progn
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2663 (setq new-x2 (round (+ x1 (* (* (abs delta-y) delta-x-sign)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2664 artist-aspect-ratio))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2665 (setq new-y2 y2)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2666
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2667 ;; Return this
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2668 (list x1 y1 new-x2 new-y2)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2669
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2670
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2671 (defun artist-draw-square (x1 y1 x2 y2)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2672 "Draw a square with corners at X1, Y1 and X2, Y2.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2673
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2674 Output is a square, which is a list on the form
51961
e56cb5adb76f (artist-butlast-fn, artist-draw-sline)
John Paul Wallington <jpw@pobox.com>
parents: 47953
diff changeset
2675 \(END-POINT-1 END-POINT-2 SHAPE-INFO).
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2676
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2677 END-POINT-1 and END-POINT-2 are two-element vectors on the form [X Y].
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2678 SHAPE-INFO is a list of four straight lines."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2679 (let* ((artist-line-char (artist-compute-line-char))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2680 (artist-line-char-set artist-line-char)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2681 (square-corners (artist-rect-corners-squarify x1 y1 x2 y2))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2682 (new-x1 (elt square-corners 0))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2683 (new-y1 (elt square-corners 1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2684 (new-x2 (elt square-corners 2))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2685 (new-y2 (elt square-corners 3))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2686 (endpoint1 (artist-make-endpoint new-x1 new-y1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2687 (endpoint2 (artist-make-endpoint new-x2 new-y2))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2688 (line1 (artist-draw-sline new-x1 new-y1 new-x2 new-y1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2689 (line2 (artist-draw-sline new-x2 new-y1 new-x2 new-y2))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2690 (line3 (artist-draw-sline new-x2 new-y2 new-x1 new-y2))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2691 (line4 (artist-draw-sline new-x1 new-y2 new-x1 new-y1)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2692 (artist-make-2point-object endpoint1
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2693 endpoint2
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2694 (list line1 line2 line3 line4))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2695
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2696 (defun artist-undraw-square (square)
99875
3658bfd115cd * textmodes/artist.el (artist-charlist-to-string): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 99515
diff changeset
2697 "Undraw SQUARE."
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2698 (if square
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2699 (let ((shape-info (artist-2point-get-shapeinfo square)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2700 (artist-undraw-sline (elt shape-info 3))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2701 (artist-undraw-sline (elt shape-info 2))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2702 (artist-undraw-sline (elt shape-info 1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2703 (artist-undraw-sline (elt shape-info 0)))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2704
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2705 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2706 ;; Filling rectangles and squares
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2707 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2708
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2709 (defun artist-fill-rect (rect x1 y1 x2 y2)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2710 "Fill rectangle RECT from X1,Y1 to X2,Y2."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2711 (let ((x (1+ (min x1 x2)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2712 (y (1+ (min y1 y2)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2713 (x-max (max x1 x2))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2714 (y-max (max y1 y2)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2715 (let ((w (- x-max x)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2716 (while (< y y-max)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2717 (artist-move-to-xy x y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2718 (artist-replace-chars artist-fill-char w)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2719 (setq y (1+ y))))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2720
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2721 (defun artist-fill-square (square x1 y1 x2 y2)
99875
3658bfd115cd * textmodes/artist.el (artist-charlist-to-string): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 99515
diff changeset
2722 "Fill a SQUARE from X1,Y1 to X2,Y2."
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2723 (let* ((square-corners (artist-rect-corners-squarify x1 y1 x2 y2))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2724 (new-x1 (elt square-corners 0))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2725 (new-y1 (elt square-corners 1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2726 (new-x2 (elt square-corners 2))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2727 (new-y2 (elt square-corners 3))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2728 (x (1+ (min new-x1 new-x2)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2729 (y (1+ (min new-y1 new-y2)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2730 (x-max (max new-x1 new-x2))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2731 (y-max (max new-y1 new-y2))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2732 (w (- x-max x)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2733 (while (< y y-max)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2734 (artist-move-to-xy x y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2735 (artist-replace-chars artist-fill-char w)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2736 (setq y (1+ y)))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2737
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2738
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2739 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2740 ;; Pen drawing
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2741 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2742
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2743 (defun artist-pen (x1 y1)
99875
3658bfd115cd * textmodes/artist.el (artist-charlist-to-string): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 99515
diff changeset
2744 "Draw a character at X1, Y1.
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2745 The character is replaced with the character in `artist-fill-char'."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2746 (artist-move-to-xy x1 y1)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2747 (artist-replace-char (if artist-line-char-set
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2748 artist-line-char
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2749 (if artist-fill-char-set
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2750 artist-fill-char
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2751 artist-default-fill-char))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2752
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2753
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2754 (defun artist-pen-line (x1 y1)
99875
3658bfd115cd * textmodes/artist.el (artist-charlist-to-string): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 99515
diff changeset
2755 "Draw a line from last pen position to X1, Y1.
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2756 The character is replaced with the character in `artist-fill-char'.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2757 This will store all points in `artist-key-poly-point-list' in reversed
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2758 order (I assume it is faster to cons to the beginning of the list than
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2759 to append to the end of the list, when doing free-hand drawing)."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2760 (let ((artist-line-char (if artist-line-char-set
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2761 artist-line-char
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2762 (if artist-fill-char-set
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2763 artist-fill-char
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2764 artist-default-fill-char))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2765
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2766 ;; Draw line from last point to this
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2767 (let ((x-last (car (car artist-key-poly-point-list)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2768 (y-last (cdr (car artist-key-poly-point-list))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2769 (artist-move-to-xy x-last y-last)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2770 (artist-replace-char artist-line-char)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2771 (artist-draw-line x-last y-last x1 y1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2772
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2773 ;; Update the point-list
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2774 (setq artist-key-poly-point-list
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2775 (cons (cons x1 y1) artist-key-poly-point-list))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2776
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2777 (defun artist-pen-reset-last-xy (x1 y1)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2778 "Reset the last x and y points to X1, Y1 when doing pen-drawing."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2779 (artist-clear-arrow-points)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2780 (setq artist-key-poly-point-list (list (cons x1 y1))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2781
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2782
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2783 (defun artist-pen-set-arrow-points (x1 y1)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2784 "Set arrow points for pen drawing using X1, Y1.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2785 Also, the `artist-key-poly-point-list' is reversed."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2786
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2787 (setq artist-key-poly-point-list
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2788 (artist-uniq artist-key-poly-point-list))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2789
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2790 (if (>= (length artist-key-poly-point-list) 2)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2791
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2792 ;; Only set arrow-points if the point-list has two or more entries
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2793 (let ((xn (car (car artist-key-poly-point-list)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2794 (yn (cdr (car artist-key-poly-point-list)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2795 (xn-1 (car (car (cdr artist-key-poly-point-list))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2796 (yn-1 (cdr (car (cdr artist-key-poly-point-list))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2797 (dirn)) ; direction for point n
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2798 (setq artist-key-poly-point-list (reverse artist-key-poly-point-list))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2799 (let ((x0 (car (car artist-key-poly-point-list)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2800 (y0 (cdr (car artist-key-poly-point-list)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2801 (x1 (car (car (cdr artist-key-poly-point-list))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2802 (y1 (cdr (car (cdr artist-key-poly-point-list))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2803 (dir0)) ; direction for point 0
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2804 (setq dir0 (artist-find-direction x1 y1 x0 y0))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2805 (setq dirn (artist-find-direction xn-1 yn-1 xn yn))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2806 (setq artist-arrow-point-1 (artist-make-arrow-point x0 y0 dir0))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2807 (setq artist-arrow-point-2 (artist-make-arrow-point xn yn dirn))))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2808
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2809
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2810 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2811 ;; Text rendering
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2812 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2813 (defun artist-figlet-run (text font extra-args)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2814 "Run figlet rendering TEXT using FONT.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2815 EXTRA-ARGS for figlet, for the command line, may be specified."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2816 (let* ((figlet-args (cond ((and font extra-args)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2817 (cons (concat "-f" font)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2818 (artist-string-split extra-args "[ \t]+")))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2819 (font (concat "-f" font))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2820 (extra-args
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2821 (artist-string-split extra-args "[ \t]+"))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2822 (t nil)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2823 (figlet-output (artist-system artist-figlet-program text figlet-args))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2824 (exit-code (elt figlet-output 0))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2825 (stdout (elt figlet-output 1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2826 (stderr (elt figlet-output 2)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2827 (if (not (= exit-code 0))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2828 (error "Failed to render font: %s (%d)" stderr exit-code))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2829 stdout))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2830
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2831 (defun artist-figlet-get-font-list ()
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2832 "Read fonts in with the shell command.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2833 Returns a list of strings."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2834 (let* ((cmd-interpreter "/bin/sh")
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2835 (ls-cmd artist-figlet-list-fonts-command)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2836 (result (artist-system cmd-interpreter ls-cmd nil))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2837 (exit-code (elt result 0))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2838 (stdout (elt result 1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2839 (stderr (elt result 2)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2840 (if (not (= exit-code 0))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2841 (error "Failed to read available fonts: %s (%d)" stderr exit-code))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2842 (artist-string-split stdout ".flf\n")))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2843
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2844 (defun artist-figlet-choose-font ()
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2845 "Read any extra arguments for figlet."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2846 (interactive)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2847 (let* ((avail-fonts (artist-figlet-get-font-list))
65680
ed770a0a7846 2005-09-24 Emilio C. Lopes <eclig@gmx.net>
Romain Francoise <romain@orebokech.com>
parents: 65583
diff changeset
2848 (font (completing-read (concat "Select font (default "
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2849 artist-figlet-default-font
65680
ed770a0a7846 2005-09-24 Emilio C. Lopes <eclig@gmx.net>
Romain Francoise <romain@orebokech.com>
parents: 65583
diff changeset
2850 "): ")
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2851 (mapcar
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2852 (lambda (font) (cons font font))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2853 avail-fonts))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2854 (if (string= font "") artist-figlet-default-font font)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2855
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2856 (defun artist-figlet-get-extra-args ()
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2857 "Read any extra arguments for figlet."
63800
b9819eae04f1 (artist-text-overwrite)
Richard M. Stallman <rms@gnu.org>
parents: 59224
diff changeset
2858 (let ((extra-args (read-string "Extra args to figlet: ")))
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2859 (if (string= extra-args "")
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2860 nil
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2861 extra-args)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2862
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2863 (defun artist-figlet (text)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2864 "Render TEXT using figlet."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2865 (let* ((figlet-font (artist-figlet-choose-font))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2866 (figlet-extra-args (artist-figlet-get-extra-args)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2867 (artist-figlet-run text figlet-font figlet-extra-args)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2868
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2869
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2870 (defun artist-text-insert-common (x y text see-thru)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2871 "At position X, Y, insert text TEXT.
99875
3658bfd115cd * textmodes/artist.el (artist-charlist-to-string): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 99515
diff changeset
2872 If SEE-THRU is non-nil, then blanks in TEXT do not replace text
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2873 in the buffer."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2874 (let* ((string-list (artist-string-split text "\n"))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2875 (i 0)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2876 (len (length string-list)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2877 (while (< i len)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2878 (artist-move-to-xy x (+ y i))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2879 (artist-replace-string (car string-list) see-thru)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2880 (setq string-list (cdr string-list))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2881 (setq i (1+ i)))))
47953
126b6cb8740d (artist-ff-is-bottommost-line): Fix misplaced ELSE expression on IF.
Juanma Barranquero <lekktu@gmail.com>
parents: 46163
diff changeset
2882
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2883 (defun artist-text-insert-see-thru (x y text)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2884 "At position X, Y, insert text TEXT.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2885 Let text already in buffer shine thru the TEXT inserted."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2886 (artist-text-insert-common x y text t))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2887
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2888 (defun artist-text-insert-overwrite (x y text)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2889 "At position X, Y, insert text TEXT.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2890 Let blanks in TEXT overwrite any text already in the buffer."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2891 (artist-text-insert-common x y text nil))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2892
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2893 (defun artist-text-see-thru (x y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2894 "Prompt for text to render, render it at X,Y.
70811
fbbc9639de95 (artist-text-renderer): Make this the alias for the following variable.
Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
parents: 68648
diff changeset
2895 This is done by calling the function specified by
fbbc9639de95 (artist-text-renderer): Make this the alias for the following variable.
Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
parents: 68648
diff changeset
2896 `artist-text-renderer-function', which must return a list of strings,
fbbc9639de95 (artist-text-renderer): Make this the alias for the following variable.
Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
parents: 68648
diff changeset
2897 to be inserted in the buffer.
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2898
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2899 Text already in the buffer ``shines thru'' blanks in the rendered text."
63800
b9819eae04f1 (artist-text-overwrite)
Richard M. Stallman <rms@gnu.org>
parents: 59224
diff changeset
2900 (let* ((input-text (read-string "Type text to render: "))
70811
fbbc9639de95 (artist-text-renderer): Make this the alias for the following variable.
Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
parents: 68648
diff changeset
2901 (rendered-text (artist-funcall artist-text-renderer-function input-text)))
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2902 (artist-text-insert-see-thru x y rendered-text)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2903
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2904
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2905 (defun artist-text-overwrite (x y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2906 "Prompt for text to render, render it at X,Y.
70811
fbbc9639de95 (artist-text-renderer): Make this the alias for the following variable.
Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
parents: 68648
diff changeset
2907 This is done by calling the function specified by
fbbc9639de95 (artist-text-renderer): Make this the alias for the following variable.
Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
parents: 68648
diff changeset
2908 `artist-text-renderer-function', which must return a list of strings,
fbbc9639de95 (artist-text-renderer): Make this the alias for the following variable.
Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
parents: 68648
diff changeset
2909 to be inserted in the buffer.
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2910
99875
3658bfd115cd * textmodes/artist.el (artist-charlist-to-string): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 99515
diff changeset
2911 Blanks in the rendered text overwrite any text in the buffer."
63800
b9819eae04f1 (artist-text-overwrite)
Richard M. Stallman <rms@gnu.org>
parents: 59224
diff changeset
2912 (let* ((input-text (read-string "Type text to render: "))
70811
fbbc9639de95 (artist-text-renderer): Make this the alias for the following variable.
Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
parents: 68648
diff changeset
2913 (rendered-text (artist-funcall artist-text-renderer-function input-text)))
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2914 (artist-text-insert-overwrite x y rendered-text)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2915
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2916 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2917 ;; Spraying
47953
126b6cb8740d (artist-ff-is-bottommost-line): Fix misplaced ELSE expression on IF.
Juanma Barranquero <lekktu@gmail.com>
parents: 46163
diff changeset
2918 ;;
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2919
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2920 (defun artist-spray-get-interval ()
99875
3658bfd115cd * textmodes/artist.el (artist-charlist-to-string): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 99515
diff changeset
2921 "Retrieve the interval for repeated spray."
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2922 artist-spray-interval)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2923
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2924 (defun artist-spray-random-points (n radius)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2925 "Generate N random points within a radius of RADIUS.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2926 Returns a list of points. Each point is on the form (X1 . Y1)."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2927 (let ((points))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2928 (while (> n 0)
110525
e950143ab9e0 * lisp/emacs-lisp/float-sup.el (float-pi): New name for `pi'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107707
diff changeset
2929 (let* ((angle (* (random 359) (/ float-pi 180)))
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2930 (dist (random radius))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2931 (point (cons (round (* dist (cos angle)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2932 (round (* dist (sin angle))))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2933 (setq points (cons point points)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2934 (setq n (- n 1)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2935 points))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2936
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2937 (defun artist-spray (x1 y1)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2938 "Spray at X1, Y1."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2939 (let* ((num-points (* artist-spray-radius artist-spray-radius))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2940 (spray-points (artist-spray-random-points num-points
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2941 artist-spray-radius)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2942 (while spray-points
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2943 ;; Replace one spray point
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2944 (let* ((point (car spray-points))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2945 (x (+ x1 (car point)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2946 (y (+ y1 (cdr point)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2947 (buf-c (artist-get-char-at-xy-conv x y))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2948 (this-c (memq buf-c artist-spray-chars))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2949 (next-c (cond ((null this-c) artist-spray-new-char)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2950 ((null (cdr this-c)) (car this-c))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2951 (t (car (cdr this-c))))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2952 (artist-move-to-xy x y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2953 (artist-replace-char next-c))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2954
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2955 ;; Step to next spray point
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2956 (setq spray-points (cdr spray-points)))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2957
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2958 (defun artist-spray-clear-circle (circle x1 y1 x2 y2)
99875
3658bfd115cd * textmodes/artist.el (artist-charlist-to-string): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 99515
diff changeset
2959 "Clear circle CIRCLE at X1, Y1 through X2, Y2."
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2960 (artist-undraw-circle circle))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2961
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2962 (defun artist-spray-set-radius (circle x1 y1 x2 y2)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2963 "Set spray radius from CIRCLE at X1, Y1 through X2, Y2."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2964 (let ((dx (- x2 x1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2965 (dy (- y2 y1)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2966 (setq artist-spray-radius (round (sqrt (+ (* dx dx) (* dy dy)))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2967 (if (= 0 artist-spray-radius)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2968 (setq artist-spray-radius 1))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2969
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2970 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2971 ;; Erasing
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2972 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2973
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2974 (defun artist-erase-char (x1 y1)
99875
3658bfd115cd * textmodes/artist.el (artist-charlist-to-string): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 99515
diff changeset
2975 "Erase a character at X1, Y1.
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2976 The character is replaced with the character in `artist-erase-char'."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2977 (artist-move-to-xy x1 y1)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2978 (artist-replace-char artist-erase-char))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2979
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2980 (defun artist-erase-rect (rect x1 y1 x2 y2)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2981 "Erase rectangle RECT from X1, Y1, X2, Y2."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2982 (let ((artist-line-char-set t)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2983 (artist-fill-char-set t)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2984 (artist-line-char artist-erase-char)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2985 (artist-fill-char artist-erase-char))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2986 (artist-draw-rect x1 y1 x2 y2)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2987 (artist-fill-rect rect x1 y1 x2 y2)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2988
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2989
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2990 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2991 ;; Vaporizing (erasing) line and lines
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2992 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2993
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2994
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2995 (defun artist-vap-find-endpoint (x1 y1 step-x step-y accept-set reject-set)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2996 "Find one endpoint for line through X1, Y1.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2997 The endpoint is searched for in the direction defined by STEP-X, STEP-Y,
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2998 accepting characters in the list ACCEPT-SET, stopping immediately
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2999 when finding characters in the list REJECT-SET. Fuzziness, that is
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3000 the number of consecutive characters not in ACCEPT-SET to allow as
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3001 part of the line, is determined by the variable `artist-vaporize-fuzziness'.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3002 An endpoint is a cons pair, (ENDPOINT-X . ENDPOINT-Y)."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3003 (let ((x x1)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3004 (y y1)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3005 (x-last x1)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3006 (y-last y1)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3007 (done nil))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3008 (while (not done)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3009 (let ((c (artist-get-char-at-xy-conv x y)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3010 (cond ((memq c reject-set)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3011 (setq done t))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3012
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3013 ;; We found a character we are accepting as part of the line.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3014 ;; Update position
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3015 ((memq c accept-set)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3016 (setq x-last x
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3017 y-last y
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3018 x (+ x step-x)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3019 y (+ y step-y))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3020 (if (or (< x 0) (< y 0)) ;stop at the edge
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3021 (setq done t)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3022
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3023 ;; We found a character we are not accepting as part of
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3024 ;; the line Search `artist-vaporize-fuzziness'
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3025 ;; characters away from this position in the same
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3026 ;; direction to see if there are any characters in the
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3027 ;; accept-set. If not, we have found the endpoint.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3028 (t
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3029 (let ((fuzziness artist-vaporize-fuzziness)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3030 (x-tmp x)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3031 (y-tmp y))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3032
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3033 ;; while we have more fuzziness left and we have not
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3034 ;; found a character accepted as a line, move
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3035 ;; forward!
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3036 (while (and (> fuzziness 0) (not (memq c accept-set)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3037 (setq x-tmp (+ x-tmp step-x))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3038 (setq y-tmp (+ y-tmp step-y))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3039 (setq c (artist-get-char-at-xy-conv x-tmp y-tmp))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3040 (setq fuzziness (- fuzziness 1)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3041 (if (memq c accept-set)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3042
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3043 ;; The line continues on the other side of the
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3044 ;; not-accepted character.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3045 (setq x x-tmp
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3046 y y-tmp)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3047
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3048 ;; Else: We couldn't find any line on the other side.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3049 ;; That means we are done searching for the endpoint.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3050 (setq done t)))))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3051 (cons x-last y-last)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3052
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3053
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3054 (defun artist-vap-find-endpoints-horiz (x y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3055 "Find endpoints for a horizontal line through X, Y.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3056 An endpoint is a cons pair, (ENDPOINT-X . ENDPOINT-Y)."
65260
c1dcf33345ab (x-pointer-crosshair): Add defvar.
Juanma Barranquero <lekktu@gmail.com>
parents: 64751
diff changeset
3057 (list (artist-vap-find-endpoint x y 1 0 '(?- ?+) '(?\s))
c1dcf33345ab (x-pointer-crosshair): Add defvar.
Juanma Barranquero <lekktu@gmail.com>
parents: 64751
diff changeset
3058 (artist-vap-find-endpoint x y -1 0 '(?- ?+) '(?\s))))
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3059
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3060 (defun artist-vap-find-endpoints-vert (x y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3061 "Find endpoints for a vertical line through X, Y.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3062 An endpoint is a cons pair, (ENDPOINT-X . ENDPOINT-Y)."
65260
c1dcf33345ab (x-pointer-crosshair): Add defvar.
Juanma Barranquero <lekktu@gmail.com>
parents: 64751
diff changeset
3063 (list (artist-vap-find-endpoint x y 0 1 '(?| ?+) '(?\s))
c1dcf33345ab (x-pointer-crosshair): Add defvar.
Juanma Barranquero <lekktu@gmail.com>
parents: 64751
diff changeset
3064 (artist-vap-find-endpoint x y 0 -1 '(?| ?+) '(?\s))))
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3065
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3066 (defun artist-vap-find-endpoints-swne (x y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3067 "Find endpoints for a diagonal line (made by /'s) through X, Y.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3068 An endpoint is a cons pair, (ENDPOINT-X . ENDPOINT-Y)."
65260
c1dcf33345ab (x-pointer-crosshair): Add defvar.
Juanma Barranquero <lekktu@gmail.com>
parents: 64751
diff changeset
3069 (list (artist-vap-find-endpoint x y 1 -1 '(?/ ?X) '(?\s))
c1dcf33345ab (x-pointer-crosshair): Add defvar.
Juanma Barranquero <lekktu@gmail.com>
parents: 64751
diff changeset
3070 (artist-vap-find-endpoint x y -1 1 '(?/ ?X) '(?\s))))
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3071
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3072 (defun artist-vap-find-endpoints-nwse (x y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3073 "Find endpoints for a diagonal line (made by \\'s) through X, Y.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3074 An endpoint is a cons pair, (ENDPOINT-X . ENDPOINT-Y)."
65260
c1dcf33345ab (x-pointer-crosshair): Add defvar.
Juanma Barranquero <lekktu@gmail.com>
parents: 64751
diff changeset
3075 (list (artist-vap-find-endpoint x y 1 1 '(?\\ ?X) '(?\s))
c1dcf33345ab (x-pointer-crosshair): Add defvar.
Juanma Barranquero <lekktu@gmail.com>
parents: 64751
diff changeset
3076 (artist-vap-find-endpoint x y -1 -1 '(?\\ ?X) '(?\s))))
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3077
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3078
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3079 (defun artist-vap-find-endpoints (x y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3080 "Given a point X1, Y1, return a list of endpoints of lines through X, Y.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3081 An endpoint is a cons pair, (ENDPOINT-X . ENDPOINT-Y)."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3082 (if artist-line-char-set
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3083 nil
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3084 (let ((c (artist-get-char-at-xy-conv x y)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3085 (cond ((eq c ?-) (artist-vap-find-endpoints-horiz x y))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3086 ((eq c ?|) (artist-vap-find-endpoints-vert x y))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3087 ((eq c ?/) (artist-vap-find-endpoints-swne x y))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3088 ((eq c ?\\) (artist-vap-find-endpoints-nwse x y))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3089 ((eq c ?+) (append (artist-vap-find-endpoints-horiz x y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3090 (artist-vap-find-endpoints-vert x y)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3091 ((eq c ?X) (append (artist-vap-find-endpoints-swne x y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3092 (artist-vap-find-endpoints-nwse x y)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3093
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3094 ;; We don't know how to find directions when we are on
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3095 ;; another character
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3096 (t nil)))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3097
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3098
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3099 (defun artist-vap-group-in-pairs (l)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3100 "Group elements in list L in pairs."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3101 (cond ((null l) nil)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3102 ((null (cdr l)) l) ; unevent number of elements in list
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3103 (t (append (list (list (car l) (car (cdr l))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3104 (artist-vap-group-in-pairs (cdr (cdr l)))))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3105
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3106 (defun artist-vaporize-by-endpoints (endpoint1 endpoint2)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3107 "Given ENDPOINT1 and ENDPOINT2, vaporize the line between them.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3108 An endpoint is a pair (X . Y)."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3109 (let* ((x1 (car endpoint1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3110 (y1 (cdr endpoint1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3111 (x2 (car endpoint2))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3112 (y2 (cdr endpoint2))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3113 (dir (artist-find-direction x1 y1 x2 y2))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3114 (x-step (aref [1 1 0 -1 -1 -1 0 1] dir))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3115 (y-step (aref [0 1 1 1 0 -1 -1 -1] dir))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3116 (line-c (aref [?- ?\\ ?| ?/ ?- ?\\ ?| ?/] dir))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3117 (line-len (elt (list (abs (- x2 x1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3118 (abs (- x2 x1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3119 (abs (- y2 y1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3120 (abs (- y2 y1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3121 (abs (- x1 x2))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3122 (abs (- x1 x2))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3123 (abs (- y1 y2))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3124 (abs (- y1 y2)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3125 dir))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3126 (x x1)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3127 (y y1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3128 (while (>= line-len 0)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3129 (let* ((buffer-c (artist-get-char-at-xy-conv x y))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3130 (new-c (artist-unintersection-char line-c buffer-c)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3131 (artist-move-to-xy x y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3132 (artist-replace-char new-c))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3133 (setq x (+ x x-step)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3134 y (+ y y-step)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3135 line-len (- line-len 1)))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3136
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3137
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3138 (defun artist-vaporize-line (x1 y1)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3139 "Vaporize (erase) the straight line through X1, Y1.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3140 Do this by replacing the characters that forms the line with
99875
3658bfd115cd * textmodes/artist.el (artist-charlist-to-string): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 99515
diff changeset
3141 `artist-erase-char'. Output is a list of endpoints for lines through
3658bfd115cd * textmodes/artist.el (artist-charlist-to-string): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 99515
diff changeset
3142 X1, Y1. An endpoint is a cons pair, (ENDPOINT-X . ENDPOINT-Y)."
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3143 (let ((endpoints (artist-vap-find-endpoints x1 y1)))
84925
003285de78e4 (artist-mt-get-symbol-from-keyword-sub, artist-go-retrieve-from-symbol-sub,
Juanma Barranquero <lekktu@gmail.com>
parents: 78482
diff changeset
3144 (mapc
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3145 (lambda (endpoints)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3146 (let ((ep1 (car endpoints))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3147 (ep2 (car (cdr endpoints))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3148 (artist-vaporize-by-endpoints ep1 ep2)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3149 (artist-vap-group-in-pairs endpoints))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3150 endpoints))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3151
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3152
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3153 ;; Implementation note: This depends on artist-vaporize-line doing
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3154 ;; unintersections of intersecting lines.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3155 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3156 ;; Example:
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3157 ;; Suppose the buffer looks like this and that we start vaporizing
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3158 ;; lines at (3,0) (at the ``*'').
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3159 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3160 ;; 0123456
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3161 ;; 0+--*--+
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3162 ;; 1| |
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3163 ;; 2| |
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3164 ;; 3+-----+
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3165 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3166 ;; We will then push (0,0) and (6,0) on the stack, and vaporize the
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3167 ;; topmost horizontal line:
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3168 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3169 ;; 0123456
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3170 ;; 0| |
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3171 ;; 1| |
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3172 ;; 2| |
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3173 ;; 3+-----+
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3174 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3175 ;; We will then pop (0,0) and remove the left-most vertival line while
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3176 ;; pushing the lower left corner (0,3) on the stack, and so on until
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3177 ;; the entire rectangle is vaporized.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3178 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3179 ;; Now, What if the `+' in the upper left and upper right corners,
47953
126b6cb8740d (artist-ff-is-bottommost-line): Fix misplaced ELSE expression on IF.
Juanma Barranquero <lekktu@gmail.com>
parents: 46163
diff changeset
3180 ;; had not been changed to `|' but to spaces instead? We would
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3181 ;; have failed when popping (0,0) and vaporizing that line because
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3182 ;; we wouldn't find any line at (0,0):
47953
126b6cb8740d (artist-ff-is-bottommost-line): Fix misplaced ELSE expression on IF.
Juanma Barranquero <lekktu@gmail.com>
parents: 46163
diff changeset
3183 ;;
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3184 ;; 0123456
47953
126b6cb8740d (artist-ff-is-bottommost-line): Fix misplaced ELSE expression on IF.
Juanma Barranquero <lekktu@gmail.com>
parents: 46163
diff changeset
3185 ;; 0
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3186 ;; 1| |
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3187 ;; 2| |
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3188 ;; 3+-----+
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3189 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3190 ;; That's why we depend on artist-vaporize-line doing unintersecting
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3191 ;; of crossing lines. There are alternative ways to handle this
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3192 ;; if it becomes too much a trouble.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3193 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3194 (defun artist-vaporize-lines (x1 y1)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3195 "Vaporize lines reachable from point X1, Y1."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3196 (let ((ep-stack nil))
84925
003285de78e4 (artist-mt-get-symbol-from-keyword-sub, artist-go-retrieve-from-symbol-sub,
Juanma Barranquero <lekktu@gmail.com>
parents: 78482
diff changeset
3197 (mapc
59224
0bedd71fb49f (artist-butlast-fn): Var deleted.
Richard M. Stallman <rms@gnu.org>
parents: 59223
diff changeset
3198 (lambda (ep) (push ep ep-stack))
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3199 (artist-vap-find-endpoints x1 y1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3200 (while (not (null ep-stack))
59224
0bedd71fb49f (artist-butlast-fn): Var deleted.
Richard M. Stallman <rms@gnu.org>
parents: 59223
diff changeset
3201 (let* ((vaporize-point (pop ep-stack))
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3202 (new-endpoints (artist-vaporize-line (car vaporize-point)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3203 (cdr vaporize-point))))
84925
003285de78e4 (artist-mt-get-symbol-from-keyword-sub, artist-go-retrieve-from-symbol-sub,
Juanma Barranquero <lekktu@gmail.com>
parents: 78482
diff changeset
3204 (mapc
59224
0bedd71fb49f (artist-butlast-fn): Var deleted.
Richard M. Stallman <rms@gnu.org>
parents: 59223
diff changeset
3205 (lambda (endpoint) (push endpoint ep-stack))
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3206 new-endpoints)))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3207
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3208
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3209 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3210 ;; Circles and ellipses
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3211 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3212 (defun artist-ellipse-generate-quadrant (x-radius y-radius)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3213 "Create a point-list for first quadrant.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3214 Points go from (X-RADIUS, 0) to (0, Y-RADIUS).
99875
3658bfd115cd * textmodes/artist.el (artist-charlist-to-string): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 99515
diff changeset
3215 Quadrant is generated around origin."
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3216 (let* ((rx2 (* x-radius x-radius))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3217 (ry2 (* y-radius y-radius))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3218 (2rx2 (* 2 rx2))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3219 (2ry2 (* 2 ry2))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3220 (p)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3221 (x 0)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3222 (y y-radius)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3223 (px 0)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3224 (py (* 2rx2 y))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3225 (point-list nil))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3226 (artist-put-pixel point-list x y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3227 (setq p (round (+ ry2 (- (* rx2 y-radius)) (* 0.25 rx2))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3228 (while (< px py)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3229 (setq x (1+ x)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3230 px (+ px 2ry2))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3231 (if (< p 0)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3232 (setq p (+ p ry2 px))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3233 (setq y (- y 1)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3234 py (- py 2rx2)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3235 p (+ p ry2 px (- py))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3236 (artist-put-pixel point-list x y))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3237 (setq p (round (+ (* ry2 (+ x 0.5) (+ x 0.5))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3238 (* rx2 (- y 1) (- y 1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3239 (- (* rx2 ry2)))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3240 (while (> y 0)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3241 (setq y (- y 1)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3242 py (- py 2rx2))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3243 (if (> p 0)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3244 (setq p (+ p rx2 (- py)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3245 (setq x (1+ x)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3246 px (+ px 2ry2)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3247 p (+ p rx2 (- py) px)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3248 (artist-put-pixel point-list x y))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3249 point-list))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3250
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3251 (defsubst artist-new-fill-item (x y width)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3252 "Create a new item at X, Y, with WIDTH.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3253 This is for use in fill-info in ellipses and circles."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3254 (let ((new-item (make-vector 3 x)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3255 (aset new-item 1 y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3256 (aset new-item 2 width)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3257 new-item))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3258
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3259 (defsubst artist-fill-item-get-x (fill-item)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3260 "Retrieve the x component of a FILL-ITEM."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3261 (aref fill-item 0))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3262
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3263 (defsubst artist-fill-item-set-x (fill-item new-x)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3264 "Set the x component of a FILL-ITEM to NEW-X."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3265 (aset fill-item 0 new-x)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3266 fill-item)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3267
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3268 (defsubst artist-fill-item-get-y (fill-item)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3269 "Retrieve the y component of a FILL-ITEM."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3270 (aref fill-item 1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3271
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3272 (defsubst artist-fill-item-set-y (fill-item new-y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3273 "Set the y component of a FILL-ITEM to NEW-Y."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3274 (aset fill-item 1 new-y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3275 fill-item)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3276
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3277 (defsubst artist-fill-item-get-width (fill-item)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3278 "Retrieve the width component of a FILL-ITEM."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3279 (aref fill-item 2))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3280
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3281 (defsubst artist-fill-item-set-width (fill-item new-width)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3282 "Set the width component of a FILL-ITEM to NEW-WIDTH."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3283 (aset fill-item 2 new-width)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3284 fill-item)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3285
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3286
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3287 (defun artist-ellipse-point-list-add-center (x-center y-center point-list)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3288 "Add offsets X-CENTER and Y-CENTER to coordinates in POINT-LIST."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3289 (mapcar
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3290 (lambda (p)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3291 (artist-coord-set-x p (+ x-center (artist-coord-get-x p)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3292 (artist-coord-set-y p (+ y-center (artist-coord-get-y p))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3293 point-list))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3294
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3295
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3296 (defun artist-ellipse-fill-info-add-center (x-center y-center fill-info)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3297 "Add offsets X-CENTER and Y-CENTER to fill-items in FILL-INFO."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3298 (mapcar
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3299 (lambda (p)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3300 (artist-fill-item-set-x p (+ x-center (artist-fill-item-get-x p)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3301 (artist-fill-item-set-y p (+ y-center (artist-fill-item-get-y p))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3302 fill-info))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3303
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3304 (defun artist-ellipse-remove-0-fills (fill-info)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3305 "Remove fill-infos from FILL-INFO that fills a zero-width field."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3306 (cond ((null fill-info)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3307 nil)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3308 ((= 0 (artist-fill-item-get-width (car fill-info)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3309 (artist-ellipse-remove-0-fills (cdr fill-info)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3310 (t
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3311 (append (list (car fill-info))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3312 (artist-ellipse-remove-0-fills (cdr fill-info))))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3313
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3314
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3315 (defun artist-ellipse-compute-fill-info (point-list)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3316 "Compute fill info for ellipse around 0,0 from POINT-LIST.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3317 The POINT-LIST is expected to cover the first quadrant."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3318 (let ((first-half nil)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3319 (both-halves nil)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3320 (last-y nil))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3321
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3322 ;; Create first half (the lower one (since y grows downwards)) from
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3323 ;; the first quadrant.
84925
003285de78e4 (artist-mt-get-symbol-from-keyword-sub, artist-go-retrieve-from-symbol-sub,
Juanma Barranquero <lekktu@gmail.com>
parents: 78482
diff changeset
3324 (mapc
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3325 (lambda (coord)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3326 (let* ((x (artist-coord-get-x coord))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3327 (y (artist-coord-get-y coord))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3328 (width (max (- (* 2 x) 1) 0))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3329 (left-edge (- x width)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3330 (if (or (null last-y) (not (= y last-y)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3331 ;; This was either the first time,
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3332 ;; or it was the first time on a new line
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3333 (setq first-half
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3334 (append first-half
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3335 ;; Fill info item starts at left-edge on line y
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3336 (list (artist-new-fill-item left-edge y width)))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3337 (setq last-y y)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3338 point-list)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3339
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3340 ;; Create the other half by mirroring the first half.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3341 (setq both-halves
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3342 (append first-half
84925
003285de78e4 (artist-mt-get-symbol-from-keyword-sub, artist-go-retrieve-from-symbol-sub,
Juanma Barranquero <lekktu@gmail.com>
parents: 78482
diff changeset
3343 (mapc
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3344 (lambda (i)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3345 (artist-new-fill-item (artist-fill-item-get-x i)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3346 (- (artist-fill-item-get-y i))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3347 (artist-fill-item-get-width i)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3348 ;; The cdr below is so we don't include fill-info for
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3349 ;;; the middle line twice
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3350 (cdr (reverse first-half)))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3351 (artist-ellipse-remove-0-fills both-halves)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3352
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3353
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3354 (defun artist-ellipse-mirror-quadrant (point-list)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3355 "Mirror a POINT-LIST describing first quadrant to create a complete ellipse."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3356 (let ((right-half nil)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3357 (left-half nil))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3358
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3359 ;; First, if last char in that quadrant is `/', then replace it with `)'
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3360 ;; This way we avoids things
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3361 ;; --------- ---------
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3362 ;; / \ / \
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3363 ;; that look like: \ / instead we get: ( )
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3364 ;; \ / \ /
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3365 ;; --------- ---------
65872
c9a88ce08e2d (artist-ellipse-mirror-quadrant): Fix bug introduced 2005-07-03:
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 65680
diff changeset
3366 (let ((last-coord (car (last point-list))))
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3367 (if (= (artist-coord-get-new-char last-coord) ?/)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3368 (artist-coord-set-new-char last-coord artist-ellipse-right-char)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3369
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3370 ;; Create the other part of the right half by mirroring the first part
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3371 (setq right-half
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3372 (append
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3373 point-list
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3374 (mapcar
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3375 (lambda (coord)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3376 (let ((c (artist-coord-get-new-char coord)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3377 (artist-new-coord (artist-coord-get-x coord)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3378 (- (artist-coord-get-y coord))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3379 (cond ((= c ?/) ?\\)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3380 ((= c ?\\) ?/)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3381 (t c)))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3382 ;; The cdr below is so we don't draw the middle right char twice
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3383 (cdr (reverse point-list)))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3384
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3385 ;; Create the left half by mirroring the right half.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3386 (setq left-half
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3387 (mapcar
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3388 (lambda (coord)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3389 (let ((c (artist-coord-get-new-char coord)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3390 (artist-new-coord (- (artist-coord-get-x coord))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3391 (artist-coord-get-y coord)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3392 (cond ((= c ?/) ?\\)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3393 ((= c ?\\) ?/)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3394 ((= c artist-ellipse-right-char)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3395 artist-ellipse-left-char)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3396 (t c)))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3397 ;; The cdr and butlast below is so we don't draw the middle top
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3398 ;; and middle bottom char twice.
59224
0bedd71fb49f (artist-butlast-fn): Var deleted.
Richard M. Stallman <rms@gnu.org>
parents: 59223
diff changeset
3399 (butlast (cdr (reverse right-half)))))
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3400 (append right-half left-half)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3401
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3402
55793
812519af46fd (artist-last, artist-remove-nulls): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 52401
diff changeset
3403 (defun artist-draw-ellipse-general (x1 y1 x-radius y-radius)
812519af46fd (artist-last, artist-remove-nulls): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 52401
diff changeset
3404 "Draw an ellipse with center at X1, Y1 and X-RADIUS and Y-RADIUS.
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3405
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3406 Output is an ellipse, which is a list (END-POINT-1 END-POINT-2 SHAPE-INFO).
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3407
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3408 END-POINT-1 and END-POINT-2 are two-element vectors on the form [X Y].
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3409 SHAPE-INFO is a two-element vector on the form [POINT-LIST FILL-INFO].
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3410
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3411 POINT-LIST is a list of vectors on the form [X Y SAVED-CHAR NEW-CHAR].
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3412 FILL-INFO is a list of vectors on the form [X Y ELLIPSE-WIDTH-ON-THIS-LINE].
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3413
55793
812519af46fd (artist-last, artist-remove-nulls): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 52401
diff changeset
3414 Ellipses with zero Y-RADIUS are not drawn correctly."
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3415 (let* ((point-list (artist-ellipse-generate-quadrant x-radius y-radius))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3416 (fill-info (artist-ellipse-compute-fill-info point-list))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3417 (shape-info (make-vector 2 0)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3418
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3419 (setq point-list (artist-calculate-new-chars point-list))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3420 (setq point-list (artist-ellipse-mirror-quadrant point-list))
55793
812519af46fd (artist-last, artist-remove-nulls): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 52401
diff changeset
3421 (setq point-list (artist-ellipse-point-list-add-center x1 y1 point-list))
812519af46fd (artist-last, artist-remove-nulls): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 52401
diff changeset
3422 (setq fill-info (artist-ellipse-fill-info-add-center x1 y1 fill-info))
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3423
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3424 ;; Draw the ellipse
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3425 (setq point-list
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3426 (mapcar
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3427 (lambda (coord)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3428 (artist-move-to-xy (artist-coord-get-x coord)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3429 (artist-coord-get-y coord))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3430 (if artist-line-char-set
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3431 (artist-replace-char artist-line-char)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3432 (artist-replace-char (artist-coord-get-new-char coord)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3433 coord)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3434 (artist-modify-new-chars
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3435 (artist-save-chars-under-point-list point-list))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3436
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3437 (aset shape-info 0 point-list)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3438 (aset shape-info 1 fill-info)
55793
812519af46fd (artist-last, artist-remove-nulls): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 52401
diff changeset
3439 (artist-make-2point-object (artist-make-endpoint x1 y1)
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3440 (artist-make-endpoint x-radius y-radius)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3441 shape-info)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3442
55793
812519af46fd (artist-last, artist-remove-nulls): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 52401
diff changeset
3443 (defun artist-draw-ellipse-with-0-height (x1 y1 x-radius y-radius)
812519af46fd (artist-last, artist-remove-nulls): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 52401
diff changeset
3444 "Draw an ellipse with center at X1, Y1 and X-RADIUS and Y-RADIUS.
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3445
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3446 Output is an ellipse, which is a list (END-POINT-1 END-POINT-2 SHAPE-INFO).
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3447
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3448 END-POINT-1 and END-POINT-2 are two-element vectors on the form [X Y].
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3449 SHAPE-INFO is a two-element vector on the form [POINT-LIST FILL-INFO].
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3450
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3451 POINT-LIST is a list of vectors on the form [X Y SAVED-CHAR NEW-CHAR].
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3452 FILL-INFO is a list of vectors on the form [X Y ELLIPSE-WIDTH-ON-THIS-LINE].
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3453
55793
812519af46fd (artist-last, artist-remove-nulls): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 52401
diff changeset
3454 The Y-RADIUS must be 0, but the X-RADIUS must not be 0."
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3455 (let ((point-list nil)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3456 (width (max (- (abs (* 2 x-radius)) 1)))
55793
812519af46fd (artist-last, artist-remove-nulls): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 52401
diff changeset
3457 (left-edge (1+ (- x1 (abs x-radius))))
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3458 (line-char (if artist-line-char-set artist-line-char ?-))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3459 (i 0)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3460 (point-list nil)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3461 (fill-info nil)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3462 (shape-info (make-vector 2 0)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3463 (while (< i width)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3464 (let* ((line-x (+ left-edge i))
55793
812519af46fd (artist-last, artist-remove-nulls): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 52401
diff changeset
3465 (line-y y1)
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3466 (new-coord (artist-new-coord line-x line-y)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3467 (artist-coord-add-saved-char new-coord
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3468 (artist-get-char-at-xy line-x line-y))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3469 (artist-move-to-xy line-x line-y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3470 (artist-replace-char line-char)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3471 (setq point-list (append point-list (list new-coord)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3472 (setq i (1+ i))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3473 (aset shape-info 0 point-list)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3474 (aset shape-info 1 fill-info)
55793
812519af46fd (artist-last, artist-remove-nulls): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 52401
diff changeset
3475 (artist-make-2point-object (artist-make-endpoint x1 y1)
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3476 (artist-make-endpoint x-radius y-radius)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3477 shape-info)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3478
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3479 (defun artist-draw-ellipse (x1 y1 x2 y2)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3480 "Draw an ellipse with center at X1, Y1 and point X2,Y2.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3481
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3482 Output is an ellipse, which is a list (END-POINT-1 END-POINT-2 SHAPE-INFO).
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3483
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3484 END-POINT-1 and END-POINT-2 are two-element vectors on the form [X Y].
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3485 SHAPE-INFO is a two-element vector on the form [POINT-LIST FILL-INFO].
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3486
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3487 POINT-LIST is a list of vectors on the form [X Y SAVED-CHAR NEW-CHAR].
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3488 FILL-INFO is a list of vectors on the form [X Y ELLIPSE-WIDTH-ON-THIS-LINE]."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3489 (let* ((artist-line-char (artist-compute-line-char))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3490 (artist-line-char-set artist-line-char)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3491 (width (abs (- x2 x1)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3492 (height (abs (- y2 y1)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3493 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3494 ;; When we draw our ellipse, we want it to go through the cursor
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3495 ;; position, but since x1,y1, x2,y2 marks the corners of one
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3496 ;; of the quadrants, we have to enlarge the ellipse a bit.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3497 ;; Ok, so then why by sqrt(2)?
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3498 ;; It comes from the equation for the ellipse (where a is the
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3499 ;; x-radius and b is the y-radius):
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3500 ;; f(x,y) = x^2 / a^2 + y^2 / b^2 - 1 = 0
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3501 ;; and the fact that we want the enlarged ellipse to have the
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3502 ;; same proportions as the smaller square, therefore we have:
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3503 ;; a/b = x/y
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3504 ;; Solving this yields a-in-larger-ellipse = a-in-smaller * sqrt(2)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3505 (x-radius (round (* width (sqrt 2))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3506 (y-radius (round (* height (sqrt 2))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3507 (x x1)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3508 (y y1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3509 (if (and (= y1 y2) (not (= x1 x2)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3510 (artist-draw-ellipse-with-0-height x y x-radius y-radius)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3511 (artist-draw-ellipse-general x y x-radius y-radius))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3512
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3513
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3514 (defun artist-undraw-ellipse (ellipse)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3515 "Undraw ELLIPSE."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3516 (if ellipse
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3517 (let ((point-list (aref (artist-2point-get-shapeinfo ellipse) 0)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3518 (mapcar
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3519 (lambda (coord)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3520 (artist-move-to-xy (artist-coord-get-x coord)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3521 (artist-coord-get-y coord))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3522 (artist-replace-char (artist-coord-get-saved-char coord))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3523 coord)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3524 point-list))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3525
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3526
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3527 (defun artist-draw-circle (x1 y1 x2 y2)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3528 "Draw a circle with center at X1, Y1 and point X2,Y2.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3529
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3530 Output is an ellipse, which is a list (END-POINT-1 END-POINT-2 SHAPE-INFO).
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3531
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3532 END-POINT-1 and END-POINT-2 are two-element vectors on the form [X Y].
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3533 SHAPE-INFO is a two-element vector on the form [POINT-LIST FILL-INFO].
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3534
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3535 POINT-LIST is a list of vectors on the form [X Y SAVED-CHAR NEW-CHAR].
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3536 FILL-INFO is a list of vectors on the form [X Y ELLIPSE-WIDTH-ON-THIS-LINE]."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3537 (let* ((artist-line-char (artist-compute-line-char))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3538 (artist-line-char-set artist-line-char)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3539 (width (abs (- x2 x1)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3540 (height (abs (- y2 y1)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3541 ;; When drawing our circle, we want it to through the cursor
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3542 ;; just as when drawing the ellispe, but we have to take
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3543 ;; care for the aspect-ratio.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3544 ;; The equation for the ellipse (where a is the x-radius and
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3545 ;; b is the y-radius):
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3546 ;; f(x,y) = x^2 / a^2 + y^2 / b^2 - 1 = 0
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3547 ;; together with the relationship
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3548 ;; a = aspect-ratio * b
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3549 ;; gives
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3550 ;; a = sqrt( x^2 + (aspect-ratio * y)^2 ) and
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3551 ;; b = a / aspect-ratio
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3552 (x-radius (round (sqrt (+ (* width width)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3553 (* (* artist-aspect-ratio height)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3554 (* artist-aspect-ratio height))))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3555 (y-radius (round (/ x-radius artist-aspect-ratio))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3556 (artist-draw-ellipse-general x1 y1 x-radius y-radius)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3557
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3558 (defalias 'artist-undraw-circle 'artist-undraw-ellipse)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3559
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3560
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3561 ;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3562 ; Filling ellipses
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3563 ;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3564 (defun artist-fill-ellipse (ellipse x y x-radius y-radius)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3565 "Fill an ELLIPSE centered at X,Y with radius X-RADIUS and Y-RADIUS."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3566 (let ((fill-info (aref (artist-2point-get-shapeinfo ellipse) 1)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3567 (mapcar
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3568 (lambda (fill-item)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3569 (artist-move-to-xy (artist-fill-item-get-x fill-item)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3570 (artist-fill-item-get-y fill-item))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3571 (artist-replace-chars artist-fill-char
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3572 (artist-fill-item-get-width fill-item))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3573 fill-item)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3574 fill-info)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3575
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3576 (defalias 'artist-fill-circle 'artist-fill-ellipse)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3577
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3578
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3579 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3580 ;; Cutting, copying and pasting rectangles and squares
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3581 ;; (filling functions)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3582 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3583
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3584 (defun artist-cut-rect (rect x1 y1 x2 y2)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3585 "Copy rectangle RECT drawn from X1, Y1 to X2, Y2, then clear it."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3586 (artist-undraw-rect rect)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3587 (artist-copy-generic x1 y1 x2 y2)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3588 (artist-erase-rect rect x1 y1 x2 y2))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3589
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3590 (defun artist-cut-square (square x1 y1 x2 y2)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3591 "Copy a SQUARE drawn from X1, Y1 to X2, Y2 (made square), then clears it."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3592 (artist-undraw-square square)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3593 (let* ((square-corners (artist-rect-corners-squarify x1 y1 x2 y2))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3594 (new-x1 (elt square-corners 0))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3595 (new-y1 (elt square-corners 1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3596 (new-x2 (elt square-corners 2))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3597 (new-y2 (elt square-corners 3)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3598 (artist-copy-generic new-x1 new-y1 new-x2 new-y2)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3599 (artist-erase-rect square new-x1 new-y1 new-x2 new-y2)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3600
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3601
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3602 (defun artist-get-buffer-contents-at-xy (x y width)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3603 "Retrieve contents from the buffer at X, Y. WIDTH characters are returned."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3604 (artist-move-to-xy x y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3605 (let ((here (point))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3606 (there (save-excursion (artist-move-to-xy (+ x width) y) (point))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3607 (untabify here there)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3608 (setq there (save-excursion (artist-move-to-xy (+ x width) y) (point)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3609 (buffer-substring here there)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3610
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3611
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3612 (defun artist-copy-generic (x1 y1 x2 y2)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3613 "Copy a rectangular area with corners at X1, Y1 and X2, Y2.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3614 Output is a copy buffer, a list of strings, representing the
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3615 original contents of that area in the buffer."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3616 (let* ((x (min x1 x2))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3617 (y (min y1 y2))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3618 (x-max (max x1 x2))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3619 (y-max (max y1 y2))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3620 (w (+ (- x-max x) 1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3621 (l nil))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3622 (while (<= y y-max)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3623 (setq l (cons (artist-get-buffer-contents-at-xy x y w) l))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3624 (setq y (1+ y)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3625 (if artist-interface-with-rect
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3626 (setq killed-rectangle (reverse l))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3627 (setq artist-copy-buffer (reverse l)))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3628
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3629
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3630 (defun artist-copy-rect (rect x1 y1 x2 y2)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3631 "Copy rectangle RECT drawn from X1, Y1 to X2, Y2."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3632 (artist-undraw-rect rect)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3633 (artist-copy-generic x1 y1 x2 y2))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3634
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3635 (defun artist-copy-square (square x1 y1 x2 y2)
99875
3658bfd115cd * textmodes/artist.el (artist-charlist-to-string): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 99515
diff changeset
3636 "Copy a SQUARE drawn from X1, Y1 to X2, Y2 (but made square)."
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3637 (artist-undraw-square square)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3638 (let* ((square-corners (artist-rect-corners-squarify x1 y1 x2 y2))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3639 (new-x1 (elt square-corners 0))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3640 (new-y1 (elt square-corners 1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3641 (new-x2 (elt square-corners 2))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3642 (new-y2 (elt square-corners 3)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3643 (artist-copy-generic new-x1 new-y1 new-x2 new-y2)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3644
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3645 (defun artist-paste (x y)
99875
3658bfd115cd * textmodes/artist.el (artist-charlist-to-string): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 99515
diff changeset
3646 "Paste the contents of the copy-buffer at X,Y."
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3647 (let ((copy-buf (if artist-interface-with-rect
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3648 killed-rectangle
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3649 artist-copy-buffer)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3650 (if (not (null copy-buf))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3651 (while (not (null copy-buf))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3652 (artist-move-to-xy x y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3653 (artist-replace-string (car copy-buf))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3654 (setq copy-buf (cdr copy-buf))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3655 (setq y (1+ y)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3656 (message "Nothing to paste"))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3657
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3658
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3659 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3660 ;; Flood filling
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3661 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3662 (defun artist-ff-too-far-right (x)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3663 "Determine if the position X is too far to the right."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3664 (cond ((numberp artist-flood-fill-right-border)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3665 (> x artist-flood-fill-right-border))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3666 ((eq artist-flood-fill-right-border 'window-width)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3667 (> x (- (window-width) 2)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3668 ((eq artist-flood-fill-right-border 'fill-column)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3669 (> x fill-column))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3670 (t (error "Invalid value for `artist-flood-fill-right-border'"))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3671
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3672 (defun artist-ff-get-rightmost-from-xy (x y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3673 "Find the rightmost position in this run, starting at X, Y."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3674 (save-excursion
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3675 (let ((char-at-xy (artist-get-char-at-xy-conv x y))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3676 (last-x x))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3677 (setq x (1+ x))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3678 (while (and (not (artist-ff-too-far-right x))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3679 (= char-at-xy (artist-get-char-at-xy-conv x y)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3680 (setq last-x x)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3681 (setq x (1+ x)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3682 last-x)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3683
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3684 (defun artist-ff-is-topmost-line (x y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3685 "Determine whether the position X,Y is on the topmost line or not."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3686 (= y 0))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3687
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3688 (defun artist-ff-is-bottommost-line (x y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3689 "Determine whether the position X,Y is on the bottommost line or not."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3690 (save-excursion
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3691 (goto-char (point-max))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3692 (beginning-of-line)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3693 (let ((last-line (artist-current-line)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3694 (if (= (point) (point-max))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3695
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3696 ;; Last line is empty, don't paint on it, report previous line
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3697 ;; as last line
47953
126b6cb8740d (artist-ff-is-bottommost-line): Fix misplaced ELSE expression on IF.
Juanma Barranquero <lekktu@gmail.com>
parents: 46163
diff changeset
3698 (>= y (- last-line 1))
126b6cb8740d (artist-ff-is-bottommost-line): Fix misplaced ELSE expression on IF.
Juanma Barranquero <lekktu@gmail.com>
parents: 46163
diff changeset
3699 (>= y last-line)))))
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3700
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3701 (defun artist-flood-fill (x1 y1)
99875
3658bfd115cd * textmodes/artist.el (artist-charlist-to-string): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 99515
diff changeset
3702 "Flood-fill starting at X1, Y1. Fill with the char in `artist-fill-char'."
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3703 (let ((stack nil)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3704 (input-queue nil)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3705 ;; We are flood-filling the area that has this character.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3706 (c (artist-get-char-at-xy-conv x1 y1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3707 (artist-fill-char (if artist-fill-char-set
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3708 artist-fill-char
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3709 artist-default-fill-char)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3710
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3711 ;; Fill only if the fill-char is not the same as the character whose
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3712 ;; area we are about to fill, or, in other words, don't fill if we
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3713 ;; needn't.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3714 (if (not (= c artist-fill-char))
59224
0bedd71fb49f (artist-butlast-fn): Var deleted.
Richard M. Stallman <rms@gnu.org>
parents: 59223
diff changeset
3715 (push (artist-new-coord x1 y1) stack))
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3716
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3717 (while (not (null stack))
59224
0bedd71fb49f (artist-butlast-fn): Var deleted.
Richard M. Stallman <rms@gnu.org>
parents: 59223
diff changeset
3718 (let* ((coord (pop stack))
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3719 (x (artist-coord-get-x coord))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3720 (y (artist-coord-get-y coord))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3721
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3722 ;; Here we keep track of the leftmost and rightmost position
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3723 ;; for this run
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3724 (x-leftmost 0)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3725 (x-rightmost 0)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3726 (last-x 0)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3727
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3728 ;; Remember if line above and below are accessible
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3729 ;; Lines below the last one, and prior to the first-one
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3730 ;; are not accessible.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3731 (lines-above nil)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3732 (lines-below nil)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3733
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3734 ;; Remember char for position on line above and below, so we
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3735 ;; can find the rightmost positions on the runs.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3736 (last-c-above -1)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3737 (last-c-below -1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3738
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3739 (setq x-rightmost (artist-ff-get-rightmost-from-xy x y))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3740 (setq lines-above (not (artist-ff-is-topmost-line x y)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3741 (setq lines-below (not (artist-ff-is-bottommost-line x y)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3742 (setq last-x x-rightmost)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3743 (setq x x-rightmost)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3744
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3745 ;; Search line above, push rightmost positions of runs for that line
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3746 (while (and (>= x 0) (= c (artist-get-char-at-xy-conv x y)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3747 (if lines-above
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3748 (let ((c-above (artist-get-char-at-xy-conv x (- y 1))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3749 (if (and (= c-above c) (/= c-above last-c-above))
59224
0bedd71fb49f (artist-butlast-fn): Var deleted.
Richard M. Stallman <rms@gnu.org>
parents: 59223
diff changeset
3750 (push (artist-new-coord x (- y 1)) stack))
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3751 (setq last-c-above c-above)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3752 (setq last-x x)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3753 (setq x (- x 1)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3754
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3755 ;; Remember the left-most position on this run
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3756 (setq x-leftmost last-x)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3757
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3758 ;; Search line below, push rightmost positions of runs for that line
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3759 (setq x x-rightmost)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3760 (while (>= x x-leftmost)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3761 (if lines-below
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3762 (let ((c-below (artist-get-char-at-xy-conv x (1+ y))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3763 (if (and (= c-below c) (/= c-below last-c-below))
59224
0bedd71fb49f (artist-butlast-fn): Var deleted.
Richard M. Stallman <rms@gnu.org>
parents: 59223
diff changeset
3764 (push (artist-new-coord x (1+ y)) stack))
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3765 (setq last-c-below c-below)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3766 (setq x (- x 1)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3767
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3768 (artist-move-to-xy x-leftmost y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3769 (artist-replace-chars artist-fill-char (1+ (- x-rightmost x-leftmost)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3770
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3771 ;; If we are to show incrementally, we have to remove any pending
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3772 ;; input from the input queue, because processing of pending input
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3773 ;; always has priority over display updates (although this input
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3774 ;; won't be processed until we are done). Later on we will queue
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3775 ;; the input on the input queue again.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3776 (if artist-flood-fill-show-incrementally
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3777 (progn
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3778 (if (input-pending-p)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3779 (discard-input))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3780 (artist-update-display)))))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3781
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3782 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3783 ;; Accessors to arrow-points
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3784 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3785
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3786 (defun artist-make-arrow-point (x y direction &optional state)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3787 "Create an arrow point at X, Y for a line in direction DIRECTION.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3788 Optional argument STATE can be used to set state (default is nil)."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3789 (save-excursion
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3790 (let* ((arrow-point (make-vector 4 0))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3791 (arrow-marker (make-marker)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3792 (artist-move-to-xy x y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3793 (set-marker arrow-marker (point))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3794 (aset arrow-point 0 arrow-marker)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3795 (aset arrow-point 1 (artist-get-char-at-xy x y))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3796 (aset arrow-point 2 direction)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3797 (aset arrow-point 3 state)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3798 arrow-point)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3799
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3800 (defsubst artist-arrow-point-get-marker (arrow-point)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3801 "Retrieve the marker component of an ARROW-POINT."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3802 (aref arrow-point 0))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3803
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3804 (defsubst artist-arrow-point-get-orig-char (arrow-point)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3805 "Retrieve the orig char component of an ARROW-POINT."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3806 (aref arrow-point 1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3807
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3808 (defsubst artist-arrow-point-get-direction (arrow-point)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3809 "Retrieve the direction component of an ARROW-POINT."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3810 (aref arrow-point 2))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3811
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3812 (defsubst artist-arrow-point-get-state (arrow-point)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3813 "Retrieve the state component of an ARROW-POINT."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3814 (aref arrow-point 3))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3815
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3816 (defsubst artist-arrow-point-set-state (arrow-point new-state)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3817 "Set the state component of an ARROW-POINT to NEW-STATE."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3818 (aset arrow-point 3 new-state))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3819
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3820
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3821 (defun artist-clear-arrow-points ()
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3822 "Clear current endpoints."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3823 (setq artist-arrow-point-1 nil)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3824 (setq artist-arrow-point-2 nil))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3825
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3826 (defun artist-set-arrow-points-for-poly (point-list)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3827 "Generic function for setting arrow-points for poly-shapes from POINT-LIST."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3828 (let* ((ep1 (elt point-list 0))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3829 (ep2 (elt point-list 1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3830 (x1 (artist-endpoint-get-x ep1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3831 (y1 (artist-endpoint-get-y ep1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3832 (x2 (artist-endpoint-get-x ep2))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3833 (y2 (artist-endpoint-get-y ep2))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3834 (dir1 (artist-find-direction x2 y2 x1 y1))
65872
c9a88ce08e2d (artist-ellipse-mirror-quadrant): Fix bug introduced 2005-07-03:
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 65680
diff changeset
3835 (epn (car (last point-list)))
c9a88ce08e2d (artist-ellipse-mirror-quadrant): Fix bug introduced 2005-07-03:
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 65680
diff changeset
3836 (epn-1 (car (last point-list 2)))
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3837 (xn (artist-endpoint-get-x epn))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3838 (yn (artist-endpoint-get-y epn))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3839 (xn-1 (artist-endpoint-get-x epn-1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3840 (yn-1 (artist-endpoint-get-y epn-1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3841 (dirn (artist-find-direction xn-1 yn-1 xn yn)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3842 (setq artist-arrow-point-1 (artist-make-arrow-point x1 y1 dir1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3843 (setq artist-arrow-point-2 (artist-make-arrow-point xn yn dirn))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3844
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3845
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3846 (defun artist-set-arrow-points-for-2points (shape x1 y1 x2 y2)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3847 "Generic function for setting arrow-points for 2-point shapes.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3848 The 2-point shape SHAPE is drawn from X1, Y1 to X2, Y2."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3849 (let* ((endpoint1 (artist-2point-get-endpoint1 shape))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3850 (endpoint2 (artist-2point-get-endpoint2 shape))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3851 (x1 (artist-endpoint-get-x endpoint1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3852 (y1 (artist-endpoint-get-y endpoint1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3853 (x2 (artist-endpoint-get-x endpoint2))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3854 (y2 (artist-endpoint-get-y endpoint2)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3855 (setq artist-arrow-point-1
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3856 (artist-make-arrow-point x1 y1
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3857 (artist-find-direction x2 y2 x1 y1)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3858 (setq artist-arrow-point-2
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3859 (artist-make-arrow-point x2 y2
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3860 (artist-find-direction x1 y1 x2 y2)))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3861
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3862
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3863 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3864 ;; Common routine for drawing/undrawing shapes based
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3865 ;; on the draw-how
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3866 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3867
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3868 (defun artist-key-undraw-continously (x y)
106876
ad7558737bc7 Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 106860
diff changeset
3869 "Undraw current continuous shape with point at X, Y."
ad7558737bc7 Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 106860
diff changeset
3870 ;; No undraw-info for continuous shapes
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3871 nil)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3872
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3873 (defun artist-key-undraw-poly (x y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3874 "Undraw current poly shape with point at X, Y."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3875 (let ((undraw-fn (artist-go-get-undraw-fn-from-symbol artist-curr-go))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3876 (x1 (artist-endpoint-get-x artist-key-endpoint1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3877 (y1 (artist-endpoint-get-y artist-key-endpoint1)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3878 (artist-funcall undraw-fn artist-key-shape)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3879
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3880 (defun artist-key-undraw-1point (x y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3881 "Undraw current 1-point shape at X, Y."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3882 ;; No undraw-info for 1-point shapes
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3883 nil)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3884
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3885 (defun artist-key-undraw-2points (x y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3886 "Undraw current 2-point shape at X, Y."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3887 (let ((undraw-fn (artist-go-get-undraw-fn-from-symbol artist-curr-go))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3888 (x1 (artist-endpoint-get-x artist-key-endpoint1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3889 (y1 (artist-endpoint-get-y artist-key-endpoint1)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3890 (artist-funcall undraw-fn artist-key-shape)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3891
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3892 (defun artist-key-undraw-common ()
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3893 "Common routine undrawing current shape."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3894 (let ((draw-how (artist-go-get-draw-how-from-symbol artist-curr-go))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3895 (col (artist-current-column))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3896 (row (artist-current-line)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3897
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3898 ;; Depending on what we are currently drawing, call other routines
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3899 ;; that knows how to do the job
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3900 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3901 (cond ((eq draw-how 'artist-do-continously)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3902 (artist-key-undraw-continously col row))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3903 ((eq draw-how 'artist-do-poly)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3904 (artist-key-undraw-poly col row))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3905 ((and (numberp draw-how) (= draw-how 1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3906 (artist-key-undraw-1point col row))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3907 ((and (numberp draw-how) (= draw-how 2))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3908 (artist-key-undraw-2points col row))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3909 (t (message "Undrawing \"%s\"s is not yet implemented" draw-how)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3910
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3911 ;; Now restore the old position
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3912 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3913 (artist-move-to-xy col row)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3914
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3915
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3916
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3917 ;; Implementation note: This really should honor the interval-fn entry
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3918 ;; in the master table, `artist-mt', which would mean leaving a timer
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3919 ;; that calls `draw-fn' every now and then. That timer would then have
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3920 ;; to be cancelled and reinstalled whenever the user moves the cursor.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3921 ;; This could be done, but what if the user suddenly switches to another
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3922 ;; drawing mode, or even kills the buffer! In the mouse case, it is much
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3923 ;; simpler: when at the end of `artist-mouse-draw-continously', the
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3924 ;; user has released the button, so the timer will always be cancelled
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3925 ;; at that point.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3926 (defun artist-key-draw-continously (x y)
106876
ad7558737bc7 Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 106860
diff changeset
3927 "Draw current continuous shape at X,Y."
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3928 (let ((draw-fn (artist-go-get-draw-fn-from-symbol artist-curr-go)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3929 (setq artist-key-shape (artist-funcall draw-fn x y))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3930
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3931 (defun artist-key-draw-poly (x y)
99875
3658bfd115cd * textmodes/artist.el (artist-charlist-to-string): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 99515
diff changeset
3932 "Draw current poly-point shape with nth point at X,Y."
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3933 (let ((draw-fn (artist-go-get-draw-fn-from-symbol artist-curr-go))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3934 (x1 (artist-endpoint-get-x artist-key-endpoint1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3935 (y1 (artist-endpoint-get-y artist-key-endpoint1)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3936 (setq artist-key-shape (artist-funcall draw-fn x1 y1 x y))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3937
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3938 (defun artist-key-draw-1point (x y)
99875
3658bfd115cd * textmodes/artist.el (artist-charlist-to-string): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 99515
diff changeset
3939 "Draw current 1-point shape at X,Y."
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3940 (let ((draw-fn (artist-go-get-draw-fn-from-symbol artist-curr-go)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3941 (setq artist-key-shape (artist-funcall draw-fn x y))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3942
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3943
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3944 (defun artist-key-draw-2points (x y)
99875
3658bfd115cd * textmodes/artist.el (artist-charlist-to-string): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 99515
diff changeset
3945 "Draw current 2-point shape at X,Y."
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3946 (let ((draw-fn (artist-go-get-draw-fn-from-symbol artist-curr-go))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3947 (x1 (artist-endpoint-get-x artist-key-endpoint1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3948 (y1 (artist-endpoint-get-y artist-key-endpoint1)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3949 (setq artist-key-shape (artist-funcall draw-fn x1 y1 x y))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3950
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3951 (defun artist-key-draw-common ()
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3952 "Common routine for drawing current shape."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3953 (let ((draw-how (artist-go-get-draw-how-from-symbol artist-curr-go))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3954 (col (artist-current-column))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3955 (row (artist-current-line)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3956
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3957 ;; Depending on what we are currently drawing, call other routines
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3958 ;; that knows how to do the job
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3959 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3960 (cond ((eq draw-how 'artist-do-continously)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3961 (artist-key-draw-continously col row))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3962 ((eq draw-how 'artist-do-poly)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3963 (artist-key-draw-poly col row))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3964 ((and (numberp draw-how) (= draw-how 1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3965 (artist-key-draw-1point col row))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3966 ((and (numberp draw-how) (= draw-how 2))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3967 (artist-key-draw-2points col row))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3968 (t (message "Drawing \"%s\"s is not yet implemented" draw-how)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3969
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3970 ;; Now restore the old position
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3971 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3972 (artist-move-to-xy col row)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3973
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3974
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3975
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3976 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3977 ;; Functions related to trimming line-endings
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3978 ;; The region between the topmost and bottommost visited line is
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3979 ;; called a draw-region.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3980 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3981
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3982 (defun artist-draw-region-reset ()
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3983 "Reset the current draw-region."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3984 (setq artist-draw-region-max-y 0)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3985 (setq artist-draw-region-min-y 1000000))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3986
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3987 (defun artist-draw-region-trim-line-endings (min-y max-y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3988 "Trim lines in current draw-region from MIN-Y to MAX-Y.
55793
812519af46fd (artist-last, artist-remove-nulls): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 52401
diff changeset
3989 Trimming here means removing white space at end of a line."
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3990 ;; Safetyc check: switch min-y and max-y if if max-y is smaller
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3991 (if (< max-y min-y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3992 (let ((tmp min-y))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3993 (setq min-y max-y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3994 (setq max-y tmp)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3995 (save-excursion
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3996 (let ((curr-y min-y))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3997 (while (<= curr-y max-y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3998 (artist-move-to-xy 0 curr-y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3999 (end-of-line)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4000 (delete-horizontal-space)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4001 (setq curr-y (1+ curr-y))))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4002
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4003 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4004 ;; Drawing shapes by using keys
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4005 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4006
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4007 (defun artist-key-do-continously-continously (x y)
106876
ad7558737bc7 Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 106860
diff changeset
4008 "Update current continuous shape at X,Y."
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4009 (let ((draw-fn (artist-go-get-draw-fn-from-symbol artist-curr-go)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4010 (artist-funcall draw-fn x y)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4011
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4012
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4013 (defun artist-key-do-continously-poly (x y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4014 "Update current poly-point shape with nth point at X,Y."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4015 (let ((draw-fn (artist-go-get-draw-fn-from-symbol artist-curr-go))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4016 (undraw-fn (artist-go-get-undraw-fn-from-symbol artist-curr-go))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4017 (x1 (artist-endpoint-get-x artist-key-endpoint1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4018 (y1 (artist-endpoint-get-y artist-key-endpoint1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4019 (x2 x)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4020 (y2 y))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4021 ;; If not rubber-banding, then move the 2
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4022 ;; Otherwise re-draw the shape to the new position
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4023 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4024 (if (not artist-rubber-banding)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4025 (progn
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4026 (artist-no-rb-unset-point2)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4027 (artist-no-rb-set-point2 x y))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4028 (progn
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4029 (artist-funcall undraw-fn artist-key-shape)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4030 (setq artist-key-shape (artist-funcall draw-fn x1 y1 x2 y2))))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4031
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4032
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4033 (defun artist-key-do-continously-1point (x y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4034 "Update current 1-point shape at X,Y."
106876
ad7558737bc7 Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 106860
diff changeset
4035 ;; Nothing to do continuously for operations
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4036 ;; where we have only one input point
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4037 nil)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4038
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4039 (defun artist-key-do-continously-2points (x y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4040 "Update current 2-point shape with 2nd point at X,Y."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4041 (let ((draw-fn (artist-go-get-draw-fn-from-symbol artist-curr-go))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4042 (undraw-fn (artist-go-get-undraw-fn-from-symbol artist-curr-go))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4043 (x1 (artist-endpoint-get-x artist-key-endpoint1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4044 (y1 (artist-endpoint-get-y artist-key-endpoint1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4045 (x2 x)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4046 (y2 y))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4047 ;; If not rubber-banding, then move the 2
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4048 ;; Otherwise re-draw the shape to the new position
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4049 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4050 (if (not artist-rubber-banding)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4051 (progn
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4052 (artist-no-rb-unset-point2)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4053 (artist-no-rb-set-point2 x y))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4054 (progn
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4055 (artist-funcall undraw-fn artist-key-shape)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4056 (setq artist-key-shape (artist-funcall draw-fn x1 y1 x2 y2))))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4057
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4058
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4059 (defun artist-key-do-continously-common ()
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4060 "Common routine for updating current shape."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4061 (let ((draw-how (artist-go-get-draw-how-from-symbol artist-curr-go))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4062 (col (artist-current-column))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4063 (row (artist-current-line)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4064
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4065 ;; Depending on what we are currently drawing, call other routines
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4066 ;; that knows how to do the job
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4067 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4068 (cond ((eq draw-how 'artist-do-continously)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4069 (artist-key-do-continously-continously col row))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4070 ((eq draw-how 'artist-do-poly)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4071 (artist-key-do-continously-poly col row))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4072 ((and (numberp draw-how) (= draw-how 1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4073 (artist-key-do-continously-1point col row))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4074 ((and (numberp draw-how) (= draw-how 2))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4075 (artist-key-do-continously-2points col row))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4076 (t (message "Drawing \"%s\"s is not yet implemented" draw-how)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4077
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4078 ;; Now restore the old position
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4079 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4080 (artist-move-to-xy col row)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4081
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4082
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4083 (defun artist-key-set-point-continously (x y)
106876
ad7558737bc7 Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 106860
diff changeset
4084 "Set point for current continuous shape at X,Y."
ad7558737bc7 Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 106860
diff changeset
4085 ;; Maybe set arrow-points for continuous shapes
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4086 (let ((arrow-pred (artist-go-get-arrow-pred-from-symbol artist-curr-go))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4087 (arrow-set-fn (artist-go-get-arrow-set-fn-from-symbol artist-curr-go))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4088 (init-fn (artist-go-get-init-fn-from-symbol artist-curr-go))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4089 (prep-fill-fn (artist-go-get-prep-fill-fn-from-symbol artist-curr-go))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4090 (exit-fn (artist-go-get-exit-fn-from-symbol artist-curr-go)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4091
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4092 (if (not artist-key-is-drawing)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4093 ;; *** We are about to begin drawing
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4094 (progn
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4095 (artist-funcall init-fn x y))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4096
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4097 ;; *** We are about to stop drawing
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4098 (progn
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4099
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4100 (artist-funcall prep-fill-fn x y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4101 (if (artist-funcall arrow-pred)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4102 (artist-funcall arrow-set-fn x y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4103 (artist-clear-arrow-points))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4104 (artist-funcall exit-fn x y))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4105
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4106 ;; Toggle the is-drawing flag
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4107 (setq artist-key-is-drawing (not artist-key-is-drawing)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4108
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4109
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4110
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4111 (defun artist-key-set-point-poly (x y &optional this-is-last-point)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4112 "Set point for current poly-point shape at X,Y.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4113 If optional argument THIS-IS-LAST-POINT is non-nil, this point is the last."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4114 (let ((draw-fn (artist-go-get-draw-fn-from-symbol artist-curr-go))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4115 (init-fn (artist-go-get-init-fn-from-symbol artist-curr-go))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4116 (prep-fill-fn (artist-go-get-prep-fill-fn-from-symbol artist-curr-go))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4117 (exit-fn (artist-go-get-exit-fn-from-symbol artist-curr-go))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4118 (fill-pred (artist-go-get-fill-pred-from-symbol artist-curr-go))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4119 (fill-fn (artist-go-get-fill-fn-from-symbol artist-curr-go))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4120 (arrow-pred (artist-go-get-arrow-pred-from-symbol artist-curr-go))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4121 (arrow-set-fn (artist-go-get-arrow-set-fn-from-symbol artist-curr-go)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4122
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4123 (if (not artist-key-is-drawing)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4124
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4125 ;; *** We were not drawing ==> set first point
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4126 (progn
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4127
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4128 (artist-funcall init-fn x y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4129
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4130 ;; If not rubber-banding, set first point.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4131 ;; Otherwise, draw the shape from x,y to x,y
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4132 (if (not artist-rubber-banding)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4133 (artist-no-rb-set-point1 x y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4134 (setq artist-key-shape (artist-funcall draw-fn x y x y)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4135
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4136 ;; Set first endpoint
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4137 (setq artist-key-endpoint1 (artist-make-endpoint x y))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4138
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4139 ;; Set point-list to contain start point
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4140 (setq artist-key-poly-point-list (list (artist-make-endpoint x y)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4141
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4142 ;; Since we are not ready, set the arrow-points to nil
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4143 (artist-clear-arrow-points)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4144
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4145 ;; Change state to drawing
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4146 (setq artist-key-is-drawing t)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4147
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4148 ;; Feedback
65583
703495630901 Message format spec fixes (2)
Deepak Goel <deego@gnufans.org>
parents: 65260
diff changeset
4149 (message "%s" (substitute-command-keys
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4150 (concat "First point set. "
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4151 "Set next with \\[artist-key-set-point], "
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4152 "set last with C-u \\[artist-key-set-point]"))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4153
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4154
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4155 ;; *** We were drawing ==> we are about to set nth point
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4156 ;; (last point if the argument this-is-last-point is non-nil)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4157 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4158 (let ((x1 (artist-endpoint-get-x artist-key-endpoint1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4159 (y1 (artist-endpoint-get-y artist-key-endpoint1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4160 (x2 x)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4161 (y2 y))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4162
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4163 ;; If not rubber-banding, undraw the 1's and 2's, then
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4164 ;; draw the shape (if we were rubber-banding, then the
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4165 ;; shape is already drawn in artist-key-do-continously-2points.)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4166 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4167 (if (not artist-rubber-banding)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4168 (progn
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4169 (artist-no-rb-unset-points)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4170 (setq artist-key-shape (artist-funcall draw-fn x1 y1 x2 y2))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4171
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4172 ;; Set x2 and y2 from shape's second point
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4173 ;; (which might be different from the mouse's second point,
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4174 ;; if, for example, we are drawing a straight line)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4175 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4176 (if (not (null artist-key-shape))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4177 (let ((endpoint2 (artist-2point-get-endpoint2 artist-key-shape)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4178 (setq x2 (artist-endpoint-get-x endpoint2))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4179 (setq y2 (artist-endpoint-get-y endpoint2))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4180
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4181 ;; Add the endpoint to the list of poly-points
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4182 (setq artist-key-poly-point-list
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4183 (append artist-key-poly-point-list
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4184 (list (artist-make-endpoint x2 y2))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4185
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4186 ;; Now do handle the case when this is the last point,
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4187 ;; and the case when this point isn't the last
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4188 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4189 (if (not this-is-last-point)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4190 ;; ** This is not the last point
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4191 (progn
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4192 ;; Start drawing a new 2-point-shape from last endpoint.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4193
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4194 ;; First set the start-point
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4195 (setq x1 x2)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4196 (setq y1 y2)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4197 (setq artist-key-endpoint1 (artist-make-endpoint x1 y1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4198
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4199 ;; If we are not rubber-banding, then place the '1
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4200 ;; Otherwise, draw the shape from x1,y1 to x1,y1
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4201 (if (not artist-rubber-banding)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4202 (artist-no-rb-set-point1 x1 y1)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4203 (setq artist-key-shape (artist-funcall draw-fn x1 y1 x1 y1)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4204
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4205 ;; Feedback
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4206 (message "Point set"))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4207
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4208 ;; ** This is the last point
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4209 (progn
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4210
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4211 (artist-funcall prep-fill-fn artist-key-poly-point-list)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4212
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4213 ;; Maybe fill
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4214 (if (artist-funcall fill-pred)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4215 (artist-funcall fill-fn artist-key-shape
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4216 artist-key-poly-point-list))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4217
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4218 ;; Set the arrow-points
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4219 (if (artist-funcall arrow-pred)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4220 (artist-funcall arrow-set-fn artist-key-poly-point-list)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4221 (artist-clear-arrow-points))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4222
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4223 (artist-funcall exit-fn artist-key-poly-point-list)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4224
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4225 ;; Change state to not drawing
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4226 (setq artist-key-shape nil)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4227 (setq artist-key-endpoint1 nil)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4228 (setq artist-key-is-drawing nil)))))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4229
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4230
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4231 (defun artist-key-set-point-1point (x y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4232 "Set point for current 1-point shape at X,Y."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4233 (let ((draw-fn (artist-go-get-draw-fn-from-symbol artist-curr-go))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4234 (init-fn (artist-go-get-init-fn-from-symbol artist-curr-go))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4235 (prep-fill-fn (artist-go-get-prep-fill-fn-from-symbol artist-curr-go))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4236 (exit-fn (artist-go-get-exit-fn-from-symbol artist-curr-go))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4237 (draw-fn (artist-go-get-draw-fn-from-symbol artist-curr-go))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4238 (arrow-pred (artist-go-get-arrow-pred-from-symbol artist-curr-go))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4239 (arrow-set-fn (artist-go-get-arrow-set-fn-from-symbol artist-curr-go)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4240 (artist-funcall init-fn x y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4241 (artist-funcall draw-fn x y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4242 (artist-funcall prep-fill-fn x y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4243 (if (artist-funcall arrow-pred)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4244 (artist-funcall arrow-set-fn x y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4245 (artist-clear-arrow-points))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4246 (artist-funcall exit-fn x y))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4247 (setq artist-key-shape nil)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4248 (setq artist-key-is-drawing nil))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4249
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4250
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4251 (defun artist-key-set-point-2points (x y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4252 "Set first or second point in current 2-point shape at X,Y."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4253 (let ((draw-fn (artist-go-get-draw-fn-from-symbol artist-curr-go))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4254 (init-fn (artist-go-get-init-fn-from-symbol artist-curr-go))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4255 (prep-fill-fn (artist-go-get-prep-fill-fn-from-symbol artist-curr-go))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4256 (exit-fn (artist-go-get-exit-fn-from-symbol artist-curr-go))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4257 (fill-pred (artist-go-get-fill-pred-from-symbol artist-curr-go))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4258 (fill-fn (artist-go-get-fill-fn-from-symbol artist-curr-go))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4259 (arrow-pred (artist-go-get-arrow-pred-from-symbol artist-curr-go))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4260 (arrow-set-fn (artist-go-get-arrow-set-fn-from-symbol artist-curr-go)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4261 (if (not artist-key-is-drawing)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4262
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4263 ;; *** We were not drawing ==> set first point
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4264 (progn
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4265
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4266 (artist-funcall init-fn x y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4267
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4268 ;; If not rubber-banding, set first point.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4269 ;; Otherwise, draw the shape from x,y to x,y
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4270 (if (not artist-rubber-banding)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4271 (artist-no-rb-set-point1 x y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4272 (setq artist-key-shape (artist-funcall draw-fn x y x y)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4273
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4274 ;; Set first endpoint
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4275 (setq artist-key-endpoint1 (artist-make-endpoint x y))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4276
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4277 ;; Since we are not ready, clear the arrow-points
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4278 (artist-clear-arrow-points)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4279
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4280 ;; Change state to drawing
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4281 (setq artist-key-is-drawing t))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4282
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4283 ;; *** We were drawing ==> we are about to set 2nd point
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4284 ;; and end the drawing operation
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4285
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4286 (let ((x1 (artist-endpoint-get-x artist-key-endpoint1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4287 (y1 (artist-endpoint-get-y artist-key-endpoint1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4288 (x2 x)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4289 (y2 y))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4290
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4291 ;; If not rubber-banding, undraw the 1's and 2's, then
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4292 ;; draw the shape (if we were rubber-banding, then the
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4293 ;; shape is already drawn in artist-key-do-continously-2points.)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4294 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4295 (if (not artist-rubber-banding)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4296 (progn
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4297 (artist-no-rb-unset-points)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4298 (setq artist-key-shape (artist-funcall draw-fn x1 y1 x2 y2))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4299
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4300 (artist-funcall prep-fill-fn artist-key-shape x1 y1 x2 y2)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4301
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4302 ;; Maybe fill
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4303 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4304 (if (artist-funcall fill-pred)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4305 (artist-funcall fill-fn artist-key-shape x1 y1 x2 y2))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4306
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4307 ;; Maybe set the arrow-points
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4308 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4309 (if (artist-funcall arrow-pred)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4310 (artist-funcall arrow-set-fn artist-key-shape x1 y1 x2 y2)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4311 (artist-clear-arrow-points))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4312
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4313 (artist-funcall exit-fn artist-key-shape x1 y1 x2 y2)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4314
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4315 ;; Change state to not drawing
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4316 (setq artist-key-is-drawing nil)))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4317
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4318
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4319 (defun artist-key-set-point-common (arg)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4320 "Common routine for setting point in current shape.
55793
812519af46fd (artist-last, artist-remove-nulls): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 52401
diff changeset
4321 With non-nil ARG, set the last point."
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4322 (let ((draw-how (artist-go-get-draw-how-from-symbol artist-curr-go))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4323 (col (artist-current-column))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4324 (row (artist-current-line))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4325 (was-drawing artist-key-is-drawing))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4326
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4327 ;; First, if we are about to draw, then reset the draw-region
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4328 (if (not artist-key-is-drawing)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4329 (artist-draw-region-reset))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4330
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4331 ;; Depending on what we are currently drawing, call other routines
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4332 ;; that knows how to do the job
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4333 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4334 (cond ((eq draw-how 'artist-do-continously)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4335 (artist-key-set-point-continously col row)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4336 ;; Do this now, otherwise nothing will happen until we move.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4337 (artist-key-do-continously-continously col row))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4338 ((eq draw-how 'artist-do-poly)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4339 (artist-key-set-point-poly col row arg))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4340 ((and (numberp draw-how) (= draw-how 1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4341 (artist-key-set-point-1point col row))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4342 ((and (numberp draw-how) (= draw-how 2))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4343 (artist-key-set-point-2points col row))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4344 (t (message "Drawing \"%s\"s is not yet implemented" draw-how)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4345
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4346 ;; Maybe trim line endings
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4347 (if (and artist-trim-line-endings
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4348 was-drawing
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4349 (not artist-key-is-drawing))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4350 (artist-draw-region-trim-line-endings artist-draw-region-min-y
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4351 artist-draw-region-max-y))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4352
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4353 ;; Now restore the old position
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4354 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4355 (artist-move-to-xy col row)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4356 (artist-mode-line-show-curr-operation artist-key-is-drawing)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4357
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4358 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4359 ;; Key navigation
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4360 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4361
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4362 (defun artist-previous-line (&optional n)
99875
3658bfd115cd * textmodes/artist.el (artist-charlist-to-string): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 99515
diff changeset
4363 "Move cursor up N lines (default is 1), updating current shape.
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4364 If N is negative, move cursor down."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4365 (interactive "p")
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4366 (let ((col (artist-current-column)))
85404
a72f314c5cd8 (artist-previous-line, artist-next-line): Use forward-line.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 84925
diff changeset
4367 (forward-line (- n))
a72f314c5cd8 (artist-previous-line, artist-next-line): Use forward-line.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 84925
diff changeset
4368 (move-to-column col t))
a72f314c5cd8 (artist-previous-line, artist-next-line): Use forward-line.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 84925
diff changeset
4369 (when artist-key-is-drawing
a72f314c5cd8 (artist-previous-line, artist-next-line): Use forward-line.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 84925
diff changeset
4370 (artist-key-do-continously-common)))
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4371
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4372
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4373 (defun artist-next-line (&optional n)
99875
3658bfd115cd * textmodes/artist.el (artist-charlist-to-string): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 99515
diff changeset
4374 "Move cursor down N lines (default is 1), updating current shape.
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4375 If N is negative, move cursor up."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4376 (interactive "p")
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4377 (let ((col (artist-current-column)))
85404
a72f314c5cd8 (artist-previous-line, artist-next-line): Use forward-line.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 84925
diff changeset
4378 (forward-line n)
a72f314c5cd8 (artist-previous-line, artist-next-line): Use forward-line.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 84925
diff changeset
4379 (move-to-column col t))
a72f314c5cd8 (artist-previous-line, artist-next-line): Use forward-line.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 84925
diff changeset
4380 (when artist-key-is-drawing
a72f314c5cd8 (artist-previous-line, artist-next-line): Use forward-line.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 84925
diff changeset
4381 (artist-key-do-continously-common)))
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4382
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4383 (defun artist-backward-char (&optional n)
99875
3658bfd115cd * textmodes/artist.el (artist-charlist-to-string): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 99515
diff changeset
4384 "Move cursor backward N chars (default is 1), updating current shape.
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4385 If N is negative, move forward."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4386 (interactive "p")
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4387 (if (> n 0)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4388 (artist-forward-char (- n))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4389 (artist-forward-char n)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4390
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4391 (defun artist-forward-char (&optional n)
99875
3658bfd115cd * textmodes/artist.el (artist-charlist-to-string): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 99515
diff changeset
4392 "Move cursor forward N chars (default is 1), updating current shape.
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4393 If N is negative, move backward."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4394 (interactive "p")
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4395 (let* ((step-x (if (>= n 0) 1 -1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4396 (distance (abs n))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4397 (curr-col (artist-current-column))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4398 (new-col (max 0 (+ curr-col (* distance step-x)))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4399 (if (not artist-key-is-drawing)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4400 (move-to-column new-col t)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4401 (move-to-column new-col t)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4402 (artist-key-do-continously-common))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4403
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4404
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4405 (defun artist-key-set-point (&optional arg)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4406 "Set a point for the current shape. With optional ARG, set the last point."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4407 (interactive "P")
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4408 (artist-key-set-point-common arg))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4409
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4410
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4411 (defun artist-select-fill-char (c)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4412 "Set current fill character to be C."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4413 (interactive "cType fill char (type RET to turn off): ")
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4414 (cond ((eq c ?\r) (setq artist-fill-char-set nil)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4415 (message "Fill cancelled"))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4416 (t (setq artist-fill-char-set t)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4417 (setq artist-fill-char c)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4418 (message "Fill set to \"%c\"" c))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4419
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4420
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4421 (defun artist-select-line-char (c)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4422 "Set current line character to be C."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4423 (interactive "cType line char (type RET to turn off): ")
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4424 (cond ((eq c ?\r) (setq artist-line-char-set nil)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4425 (message "Normal lines"))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4426 (t (setq artist-line-char-set t)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4427 (setq artist-line-char c)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4428 (message "Line drawn with \"%c\"" c)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4429 (if artist-key-is-drawing
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4430 (artist-key-do-continously-common)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4431
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4432
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4433 (defun artist-select-erase-char (c)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4434 "Set current erase character to be C."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4435 (interactive "cType char to use when erasing (type RET for normal): ")
65260
c1dcf33345ab (x-pointer-crosshair): Add defvar.
Juanma Barranquero <lekktu@gmail.com>
parents: 64751
diff changeset
4436 (cond ((eq c ?\r) (setq artist-erase-char ?\s)
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4437 (message "Normal erasing"))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4438 (t (setq artist-erase-char c)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4439 (message "Erasing with \"%c\"" c)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4440 (if artist-key-is-drawing
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4441 (artist-key-do-continously-common)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4442
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4443 (defun artist-charlist-to-string (char-list)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4444 "Convert a list of characters, CHAR-LIST, to a string."
99875
3658bfd115cd * textmodes/artist.el (artist-charlist-to-string): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 99515
diff changeset
4445 (concat char-list))
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4446
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4447 (defun artist-string-to-charlist (str)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4448 "Convert a string, STR, to list of characters."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4449 (append str nil))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4450
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4451 (defun artist-select-spray-chars (chars initial-char)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4452 "Set current spray characters to be CHARS, starting with INITIAL-CHAR."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4453 ;; This huge unreadable `interactive'-clause does the following
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4454 ;; 1. Asks for a string of spray-characters
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4455 ;; 2. Asks for the initial character (default is the first),
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4456 ;; and loops if the answer is not a char within the string in 1.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4457 (interactive
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4458 (let* ((str (read-string "Select spray-can characters, lightest first: "
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4459 (artist-charlist-to-string artist-spray-chars)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4460 (char-list (artist-string-to-charlist str))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4461 (initial (let* ((err-msg "")
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4462 (ok nil)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4463 (first-char-as-str (char-to-string (car char-list)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4464 (first-s) (first-c))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4465 (while (not ok)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4466 (setq first-s
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4467 (read-string
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4468 (format (concat "%sSelect initial-character, "
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4469 "one of \"%s\" (%s): ")
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4470 err-msg str first-char-as-str)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4471 (if (equal first-s "")
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4472 (setq first-s first-char-as-str))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4473 (setq first-c (car (artist-string-to-charlist first-s)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4474 (setq ok (not (null (member first-c char-list))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4475 (if (not ok)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4476 (setq err-msg (format
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4477 "Not in spray-chars: \"%s\". "
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4478 (char-to-string first-c)))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4479 first-c)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4480 (list char-list initial)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4481 (setq artist-spray-chars chars)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4482 (setq artist-spray-new-char initial-char)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4483 (message "Spray-chars set to \"%s\", initial: \"%s\""
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4484 (artist-charlist-to-string chars) (char-to-string initial-char)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4485
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4486
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4487 (defun artist-select-operation (op-str)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4488 "Select drawing operation OP-STR."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4489 (interactive (list (completing-read "Select operation: "
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4490 artist-key-compl-table)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4491 (let* ((op-symbol (artist-mt-get-symbol-from-keyword op-str))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4492 (draw-how (if op-symbol
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4493 (artist-go-get-draw-how-from-symbol op-symbol)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4494 nil)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4495 ;; First check that the string was valid
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4496 (if (null op-symbol)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4497 (error "Unknown drawing method: %s" op-str))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4498
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4499 ;; Second, check that we are not about to switch to a different
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4500 ;; kind of shape (do that only if we are drawing with keys;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4501 ;; otherwise this function cannot get called).
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4502 (if (and artist-key-is-drawing
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4503 (not (equal artist-key-draw-how draw-how)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4504 (error "Cannot switch to a different kind of shape while drawing"))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4505
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4506 ;; If we were drawing, undraw the shape
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4507 (if (and artist-key-is-drawing
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4508 artist-rubber-banding)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4509 (artist-key-undraw-common))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4510
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4511 ;; Set the current operation and draw-how
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4512 (setq artist-curr-go op-symbol)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4513 (setq artist-key-draw-how draw-how)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4514
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4515 ;; If we were drawing, redraw the shape (but don't if shape
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4516 ;; is drawn by setting only one point)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4517 (if (and artist-key-is-drawing
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4518 artist-rubber-banding
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4519 (not (eq artist-key-draw-how 1)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4520 (artist-key-draw-common)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4521
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4522 ;; Feedback
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4523 (artist-mode-line-show-curr-operation artist-key-is-drawing))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4524
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4525
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4526 (defun artist-toggle-rubber-banding (&optional state)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4527 "Toggle rubber-banding.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4528 If optional argument STATE is positive, turn rubber-banding on."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4529 (interactive)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4530 (if artist-key-is-drawing
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4531 (error "Cannot toggle rubber-banding while drawing"))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4532 (if (setq artist-rubber-banding
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4533 (if (null state) (not artist-rubber-banding)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4534 (> (prefix-numeric-value state) 0)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4535 (message "Rubber-banding is now on")
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4536 (message "Rubber-banding is now off")))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4537
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4538
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4539 (defun artist-toggle-trim-line-endings (&optional state)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4540 "Toggle trimming of line-endings.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4541 If optional argument STATE is positive, turn trimming on."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4542 (interactive)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4543 (if (setq artist-trim-line-endings
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4544 (if (null state) (not artist-trim-line-endings)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4545 (> (prefix-numeric-value state) 0)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4546 (message "Trimming is now on")
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4547 (message "Trimming is now off")))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4548
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4549
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4550 (defun artist-toggle-borderless-shapes (&optional state)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4551 "Toggle borders of shapes.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4552 If optional argument STATE is positive, turn borders on."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4553 (interactive)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4554 (if (setq artist-borderless-shapes
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4555 (if (null state) (not artist-borderless-shapes)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4556 (> (prefix-numeric-value state) 0)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4557 (message "Borders are now off")
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4558 (message "Borders are now on")))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4559
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4560
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4561 (defun artist-toggle-first-arrow ()
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4562 "Toggle first arrow for shape, if possible."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4563 (interactive)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4564 (save-excursion
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4565 (if (not (null artist-arrow-point-1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4566 (let* ((arrow-point artist-arrow-point-1)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4567 (arrow-state (artist-arrow-point-get-state arrow-point))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4568 (arrow-marker (artist-arrow-point-get-marker arrow-point))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4569 (direction (artist-arrow-point-get-direction arrow-point))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4570 (orig-char (artist-arrow-point-get-orig-char arrow-point))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4571 (arrow-char (aref artist-arrows direction))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4572 (new-state (not arrow-state)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4573
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4574 (goto-char (marker-position arrow-marker))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4575
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4576 (if new-state
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4577 (if arrow-char
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4578 (artist-replace-char arrow-char))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4579 (artist-replace-char orig-char))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4580
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4581 (artist-arrow-point-set-state artist-arrow-point-1 new-state)))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4582
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4583 (defun artist-toggle-second-arrow ()
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4584 "Toggle second arrow for shape, if possible."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4585 (interactive)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4586 (save-excursion
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4587 (if (not (null artist-arrow-point-2))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4588 (let* ((arrow-point artist-arrow-point-2)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4589 (arrow-state (artist-arrow-point-get-state arrow-point))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4590 (arrow-marker (artist-arrow-point-get-marker arrow-point))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4591 (direction (artist-arrow-point-get-direction arrow-point))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4592 (orig-char (artist-arrow-point-get-orig-char arrow-point))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4593 (arrow-char (aref artist-arrows direction))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4594 (new-state (not arrow-state)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4595
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4596 (goto-char (marker-position arrow-marker))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4597
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4598 (if new-state
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4599 (if arrow-char
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4600 (artist-replace-char arrow-char))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4601 (artist-replace-char orig-char))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4602
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4603 (artist-arrow-point-set-state artist-arrow-point-2 new-state)))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4604
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4605
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4606 (defun artist-select-op-line ()
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4607 "Select drawing lines."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4608 (interactive)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4609 (artist-select-operation "line"))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4610
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4611 (defun artist-select-op-straight-line ()
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4612 "Select drawing straight lines."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4613 (interactive)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4614 (artist-select-operation "straight line"))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4615
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4616 (defun artist-select-op-rectangle ()
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4617 "Select drawing rectangles."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4618 (interactive)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4619 (artist-select-operation "rectangle"))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4620
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4621 (defun artist-select-op-square ()
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4622 "Select drawing squares."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4623 (interactive)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4624 (artist-select-operation "square"))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4625
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4626 (defun artist-select-op-poly-line ()
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4627 "Select drawing poly-lines."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4628 (interactive)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4629 (artist-select-operation "poly-line"))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4630
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4631 (defun artist-select-op-straight-poly-line ()
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4632 "Select drawing straight poly-lines."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4633 (interactive)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4634 (artist-select-operation "straight poly-line"))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4635
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4636 (defun artist-select-op-ellipse ()
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4637 "Select drawing ellipses."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4638 (interactive)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4639 (artist-select-operation "ellipse"))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4640
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4641 (defun artist-select-op-circle ()
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4642 "Select drawing circles."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4643 (interactive)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4644 (artist-select-operation "circle"))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4645
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4646 (defun artist-select-op-text-see-thru ()
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4647 "Select rendering text (see thru)."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4648 (interactive)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4649 (artist-select-operation "text see-thru"))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4650
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4651 (defun artist-select-op-text-overwrite ()
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4652 "Select rendering text (overwrite)."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4653 (interactive)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4654 (artist-select-operation "text overwrite"))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4655
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4656 (defun artist-select-op-spray-can ()
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4657 "Select spraying."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4658 (interactive)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4659 (artist-select-operation "spray-can"))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4660
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4661 (defun artist-select-op-spray-set-size ()
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4662 "Select setting size for spraying."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4663 (interactive)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4664 (artist-select-operation "spray set size"))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4665
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4666 (defun artist-select-op-erase-char ()
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4667 "Select erasing characters."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4668 (interactive)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4669 (artist-select-operation "erase char"))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4670
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4671 (defun artist-select-op-erase-rectangle ()
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4672 "Select erasing rectangles."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4673 (interactive)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4674 (artist-select-operation "erase rectangle"))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4675
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4676 (defun artist-select-op-vaporize-line ()
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4677 "Select vaporizing single lines."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4678 (interactive)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4679 (artist-select-operation "vaporize line"))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4680
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4681 (defun artist-select-op-vaporize-lines ()
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4682 "Select vaporizing connected lines."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4683 (interactive)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4684 (artist-select-operation "vaporize lines"))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4685
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4686 (defun artist-select-op-cut-rectangle ()
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4687 "Select cutting rectangles."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4688 (interactive)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4689 (artist-select-operation "cut rectangle"))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4690
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4691 (defun artist-select-op-cut-square ()
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4692 "Select cutting squares."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4693 (interactive)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4694 (artist-select-operation "cut square"))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4695
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4696 (defun artist-select-op-copy-rectangle ()
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4697 "Select copying rectangles."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4698 (interactive)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4699 (artist-select-operation "copy rectangle"))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4700
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4701 (defun artist-select-op-copy-square ()
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4702 "Select copying squares."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4703 (interactive)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4704 (artist-select-operation "cut square"))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4705
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4706 (defun artist-select-op-paste ()
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4707 "Select pasting."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4708 (interactive)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4709 (artist-select-operation "paste"))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4710
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4711 (defun artist-select-op-flood-fill ()
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4712 "Select flood-filling."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4713 (interactive)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4714 (artist-select-operation "flood-fill"))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4715
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4716
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4717 ;; Drawing lines by using mouse
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4718 ;; Mouse button actions
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4719 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4720
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4721 (defun artist-update-pointer-shape ()
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4722 "Perform the update of the X Windows pointer shape."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4723 (set-mouse-color nil))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4724
95841
b4e36ff621b3 Add some compiler declarations, for builds without X.
Glenn Morris <rgm@gnu.org>
parents: 94670
diff changeset
4725 (defvar x-pointer-shape)
b4e36ff621b3 Add some compiler declarations, for builds without X.
Glenn Morris <rgm@gnu.org>
parents: 94670
diff changeset
4726
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4727 (defun artist-set-pointer-shape (new-pointer-shape)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4728 "Set the shape of the X Windows pointer to NEW-POINTER-SHAPE."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4729 (setq x-pointer-shape new-pointer-shape)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4730 (artist-update-pointer-shape))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4731
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4732 (defsubst artist-event-is-shifted (ev)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4733 "Check whether the shift-key is pressed in event EV."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4734 (memq 'shift (event-modifiers ev)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4735
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4736 (defun artist-do-nothing ()
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4737 "Function that does nothing."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4738 (interactive))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4739
105981
fb2c6de37340 (artist-mouse-choose-operation): Call `tmm-prompt' instead of `x-popup-menu'
Eli Zaretskii <eliz@gnu.org>
parents: 105813
diff changeset
4740 (defun artist-compute-up-event-key (ev)
fb2c6de37340 (artist-mouse-choose-operation): Call `tmm-prompt' instead of `x-popup-menu'
Eli Zaretskii <eliz@gnu.org>
parents: 105813
diff changeset
4741 "Compute the corresponding up key sequence for event EV."
fb2c6de37340 (artist-mouse-choose-operation): Call `tmm-prompt' instead of `x-popup-menu'
Eli Zaretskii <eliz@gnu.org>
parents: 105813
diff changeset
4742 (let* ((basic (event-basic-type ev))
fb2c6de37340 (artist-mouse-choose-operation): Call `tmm-prompt' instead of `x-popup-menu'
Eli Zaretskii <eliz@gnu.org>
parents: 105813
diff changeset
4743 (unshifted basic)
fb2c6de37340 (artist-mouse-choose-operation): Call `tmm-prompt' instead of `x-popup-menu'
Eli Zaretskii <eliz@gnu.org>
parents: 105813
diff changeset
4744 (shifted (make-symbol (concat "S-" (symbol-name basic)))))
fb2c6de37340 (artist-mouse-choose-operation): Call `tmm-prompt' instead of `x-popup-menu'
Eli Zaretskii <eliz@gnu.org>
parents: 105813
diff changeset
4745 (if (artist-event-is-shifted ev)
fb2c6de37340 (artist-mouse-choose-operation): Call `tmm-prompt' instead of `x-popup-menu'
Eli Zaretskii <eliz@gnu.org>
parents: 105813
diff changeset
4746 (make-vector 1 shifted)
fb2c6de37340 (artist-mouse-choose-operation): Call `tmm-prompt' instead of `x-popup-menu'
Eli Zaretskii <eliz@gnu.org>
parents: 105813
diff changeset
4747 (make-vector 1 unshifted))))
fb2c6de37340 (artist-mouse-choose-operation): Call `tmm-prompt' instead of `x-popup-menu'
Eli Zaretskii <eliz@gnu.org>
parents: 105813
diff changeset
4748
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4749 (defun artist-down-mouse-1 (ev)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4750 "Perform drawing action for event EV."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4751 (interactive "@e")
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4752 (let* ((real (artist-go-get-symbol-shift
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4753 artist-curr-go (artist-event-is-shifted ev)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4754 (draw-how (artist-go-get-draw-how-from-symbol real))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4755 ;; Remember original values for draw-region-min-y and max-y
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4756 ;; in case we are interrupting a key-draw operation.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4757 (orig-draw-region-min-y artist-draw-region-min-y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4758 (orig-draw-region-max-y artist-draw-region-max-y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4759 (orig-pointer-shape (if (eq window-system 'x) x-pointer-shape nil))
105981
fb2c6de37340 (artist-mouse-choose-operation): Call `tmm-prompt' instead of `x-popup-menu'
Eli Zaretskii <eliz@gnu.org>
parents: 105813
diff changeset
4760 (echoq-keystrokes 10000) ; a lot of seconds
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4761 ;; Remember original binding for the button-up event to this
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4762 ;; button-down event.
105981
fb2c6de37340 (artist-mouse-choose-operation): Call `tmm-prompt' instead of `x-popup-menu'
Eli Zaretskii <eliz@gnu.org>
parents: 105813
diff changeset
4763 (key (artist-compute-up-event-key ev))
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4764 (orig-button-up-binding (lookup-key (current-global-map) key)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4765
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4766 (unwind-protect
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4767 (progn
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4768 (if (eq window-system 'x)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4769 (artist-set-pointer-shape artist-pointer-shape))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4770
47953
126b6cb8740d (artist-ff-is-bottommost-line): Fix misplaced ELSE expression on IF.
Juanma Barranquero <lekktu@gmail.com>
parents: 46163
diff changeset
4771 ;; Redefine the button-up binding temporarily (the original
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4772 ;; binding is restored in the unwind-forms below). This is to
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4773 ;; avoid the phenomenon outlined in this scenario:
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4774 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4775 ;; 1. A routine which reads something from the mini-buffer (such
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4776 ;; as the text renderer) is called from below.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4777 ;; 2. Meanwhile, the users releases the mouse button.
47953
126b6cb8740d (artist-ff-is-bottommost-line): Fix misplaced ELSE expression on IF.
Juanma Barranquero <lekktu@gmail.com>
parents: 46163
diff changeset
4778 ;; 3. As a (funny :-) coincidence, the binding for the
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4779 ;; button-up event is often mouse-set-point, so Emacs
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4780 ;; sets the point to where the button was released, which is
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4781 ;; in the buffer where the user wants to place the text.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4782 ;; 4. The user types C-x o (or uses the mouse once again)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4783 ;; until he reaches the mini-buffer which is still prompting
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4784 ;; for some text to render.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4785 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4786 ;; To do this foolproof, all local and minor-mode maps should
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4787 ;; be searched and temporarily changed as well, since they
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4788 ;; too might have some binding for the button-up event,
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4789 ;; but I hope dealing with the global map will suffice.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4790 (define-key (current-global-map) key 'artist-do-nothing)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4791
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4792 (artist-draw-region-reset)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4793
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4794 (artist-mode-line-show-curr-operation t)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4795
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4796 (cond ((eq draw-how 'artist-do-continously)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4797 (artist-mouse-draw-continously ev))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4798 ((eq draw-how 'artist-do-poly)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4799 (artist-mouse-draw-poly ev))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4800 ((and (numberp draw-how) (= draw-how 1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4801 (artist-mouse-draw-1point ev))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4802 ((and (numberp draw-how) (= draw-how 2))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4803 (artist-mouse-draw-2points ev))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4804 (t (message "Drawing \"%s\"s is not yet implemented"
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4805 draw-how)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4806
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4807 (if artist-trim-line-endings
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4808 (artist-draw-region-trim-line-endings artist-draw-region-min-y
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4809 artist-draw-region-max-y))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4810 (setq artist-draw-region-min-y orig-draw-region-min-y)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4811 (setq artist-draw-region-max-y orig-draw-region-max-y))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4812
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4813 ; This is protected
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4814 (if (eq window-system 'x)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4815 (artist-set-pointer-shape orig-pointer-shape))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4816
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4817 (if orig-button-up-binding
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4818 (define-key (current-global-map) key orig-button-up-binding))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4819
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4820 (artist-mode-line-show-curr-operation artist-key-is-drawing))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4821
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4822
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4823 (defun artist-mouse-choose-operation (ev op)
55793
812519af46fd (artist-last, artist-remove-nulls): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 52401
diff changeset
4824 "Choose operation for event EV and operation OP."
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4825 (interactive
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4826 (progn
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4827 (select-window (posn-window (event-start last-input-event)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4828 (list last-input-event
105981
fb2c6de37340 (artist-mouse-choose-operation): Call `tmm-prompt' instead of `x-popup-menu'
Eli Zaretskii <eliz@gnu.org>
parents: 105813
diff changeset
4829 (if (display-popup-menus-p)
fb2c6de37340 (artist-mouse-choose-operation): Call `tmm-prompt' instead of `x-popup-menu'
Eli Zaretskii <eliz@gnu.org>
parents: 105813
diff changeset
4830 (x-popup-menu last-nonmenu-event artist-popup-menu-table)
fb2c6de37340 (artist-mouse-choose-operation): Call `tmm-prompt' instead of `x-popup-menu'
Eli Zaretskii <eliz@gnu.org>
parents: 105813
diff changeset
4831 'no-popup-menus))))
fb2c6de37340 (artist-mouse-choose-operation): Call `tmm-prompt' instead of `x-popup-menu'
Eli Zaretskii <eliz@gnu.org>
parents: 105813
diff changeset
4832
fb2c6de37340 (artist-mouse-choose-operation): Call `tmm-prompt' instead of `x-popup-menu'
Eli Zaretskii <eliz@gnu.org>
parents: 105813
diff changeset
4833 (if (eq op 'no-popup-menus)
fb2c6de37340 (artist-mouse-choose-operation): Call `tmm-prompt' instead of `x-popup-menu'
Eli Zaretskii <eliz@gnu.org>
parents: 105813
diff changeset
4834 ;; No popup menus. Call `tmm-prompt' instead, but with the
fb2c6de37340 (artist-mouse-choose-operation): Call `tmm-prompt' instead of `x-popup-menu'
Eli Zaretskii <eliz@gnu.org>
parents: 105813
diff changeset
4835 ;; up-mouse-button, if any, temporarily disabled, otherwise
fb2c6de37340 (artist-mouse-choose-operation): Call `tmm-prompt' instead of `x-popup-menu'
Eli Zaretskii <eliz@gnu.org>
parents: 105813
diff changeset
4836 ;; it'll interfere.
fb2c6de37340 (artist-mouse-choose-operation): Call `tmm-prompt' instead of `x-popup-menu'
Eli Zaretskii <eliz@gnu.org>
parents: 105813
diff changeset
4837 (let* ((key (artist-compute-up-event-key ev))
fb2c6de37340 (artist-mouse-choose-operation): Call `tmm-prompt' instead of `x-popup-menu'
Eli Zaretskii <eliz@gnu.org>
parents: 105813
diff changeset
4838 (orig-button-up-binding (lookup-key (current-global-map) key)))
fb2c6de37340 (artist-mouse-choose-operation): Call `tmm-prompt' instead of `x-popup-menu'
Eli Zaretskii <eliz@gnu.org>
parents: 105813
diff changeset
4839 (unwind-protect
fb2c6de37340 (artist-mouse-choose-operation): Call `tmm-prompt' instead of `x-popup-menu'
Eli Zaretskii <eliz@gnu.org>
parents: 105813
diff changeset
4840 (define-key (current-global-map) key 'artist-do-nothing)
fb2c6de37340 (artist-mouse-choose-operation): Call `tmm-prompt' instead of `x-popup-menu'
Eli Zaretskii <eliz@gnu.org>
parents: 105813
diff changeset
4841 (setq op (tmm-prompt artist-popup-menu-table))
fb2c6de37340 (artist-mouse-choose-operation): Call `tmm-prompt' instead of `x-popup-menu'
Eli Zaretskii <eliz@gnu.org>
parents: 105813
diff changeset
4842 (if orig-button-up-binding
fb2c6de37340 (artist-mouse-choose-operation): Call `tmm-prompt' instead of `x-popup-menu'
Eli Zaretskii <eliz@gnu.org>
parents: 105813
diff changeset
4843 (define-key (current-global-map) key orig-button-up-binding)))))
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4844
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4845 (let ((draw-fn (artist-go-get-draw-fn-from-symbol (car op)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4846 (set-fn (artist-fc-get-fn-from-symbol (car op))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4847 (cond
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4848
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4849 ;; *** It was a draw-function
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4850 ((not (listp draw-fn))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4851 (let* ((unshifted (artist-go-get-symbol-shift (car op) nil))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4852 (shifted (artist-go-get-symbol-shift (car op) t))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4853 (shift-state (artist-event-is-shifted ev))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4854 (selected-op (if shift-state shifted unshifted))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4855 (keyword (artist-go-get-keyword-from-symbol selected-op)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4856 (artist-select-operation keyword)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4857
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4858 ;; *** It was a set/unset function
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4859 ((not (listp set-fn))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4860 (call-interactively set-fn)))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4861
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4862
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4863 (defun artist-down-mouse-3 (ev)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4864 "Erase character or rectangle, depending on event EV."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4865 (interactive "@e")
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4866 (let ((artist-curr-go 'erase-char))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4867 (artist-down-mouse-1 ev))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4868 ;; Restore mode-line
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4869 (artist-mode-line-show-curr-operation artist-key-is-drawing))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4870
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4871
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4872 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4873 ;; Mouse routines
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4874 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4875
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4876 (defsubst artist-shift-has-changed (shift-state ev)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4877 "From the last SHIFT-STATE and EV, determine if the shift-state has changed."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4878 ;; This one simply doesn't work.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4879 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4880 ;; There seems to be no way to tell whether the user has pressed shift
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4881 ;; while dragging the cursor around when we are in a track-mouse
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4882 ;; form. Calling (event-modifiers ev) yields nil :-( Neither is the
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4883 ;; (event-basic-type ev) of any help (it is simply `mouse-movement').
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4884 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4885 ;; So this doesn't work:
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4886 ;; (cond ((and shift-state (not (artist-event-is-shifted ev))) t)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4887 ;; ((and (not shift-state) (artist-event-is-shifted ev)) t)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4888 ;; (t nil))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4889 nil)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4890
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4891 (defun artist-coord-win-to-buf (coord)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4892 "Convert a window-relative coordinate COORD to a buffer-relative coordinate."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4893 (let ((window-x (car coord))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4894 (window-y (cdr coord))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4895 (window-start-x (window-hscroll))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4896 (window-start-y (save-excursion (goto-char (window-start))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4897 (artist-current-line))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4898 (cons (+ window-x window-start-x)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4899 (+ window-y window-start-y))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4900
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4901
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4902 (defun artist-mouse-draw-continously (ev)
99875
3658bfd115cd * textmodes/artist.el (artist-charlist-to-string): Simplify.
Juanma Barranquero <lekktu@gmail.com>
parents: 99515
diff changeset
4903 "Generic function for shapes that require 1 point as input.
106876
ad7558737bc7 Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 106860
diff changeset
4904 Operation is done continuously while the mouse button is hold down.
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4905 The event, EV, is the mouse event."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4906 (let* ((unshifted (artist-go-get-symbol-shift artist-curr-go nil))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4907 (shifted (artist-go-get-symbol-shift artist-curr-go t))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4908 (shift-state (artist-event-is-shifted ev))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4909 (op (if shift-state shifted unshifted))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4910 (draw-how (artist-go-get-draw-how-from-symbol op))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4911 (init-fn (artist-go-get-init-fn-from-symbol op))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4912 (prep-fill-fn (artist-go-get-prep-fill-fn-from-symbol op))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4913 (exit-fn (artist-go-get-exit-fn-from-symbol op))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4914 (draw-fn (artist-go-get-draw-fn-from-symbol op))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4915 (interval-fn (artist-go-get-interval-fn-from-symbol op))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4916 (interval (artist-funcall interval-fn))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4917 (arrow-pred (artist-go-get-arrow-pred-from-symbol op))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4918 (arrow-set-fn (artist-go-get-arrow-set-fn-from-symbol op))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4919 (ev-start (event-start ev))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4920 (initial-win (posn-window ev-start))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4921 (ev-start-pos (artist-coord-win-to-buf (posn-col-row ev-start)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4922 (x1 (car ev-start-pos))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4923 (y1 (cdr ev-start-pos))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4924 (shape)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4925 (timer))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4926 (select-window (posn-window ev-start))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4927 (artist-funcall init-fn x1 y1)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4928 (if (not artist-rubber-banding)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4929 (artist-no-rb-set-point1 x1 y1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4930 (track-mouse
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4931 (while (or (mouse-movement-p ev)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4932 (member 'down (event-modifiers ev)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4933 (setq ev-start-pos (artist-coord-win-to-buf
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4934 (posn-col-row (event-start ev))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4935 (setq x1 (car ev-start-pos))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4936 (setq y1 (cdr ev-start-pos))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4937
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4938 ;; Cancel previous timer
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4939 (if timer
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4940 (cancel-timer timer))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4941
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4942 (if (not (eq initial-win (posn-window (event-start ev))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4943 ;; If we moved outside the window, do nothing
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4944 nil
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4945
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4946 ;; Still in same window:
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4947 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4948 ;; Check if user presses or releases shift key
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4949 (if (artist-shift-has-changed shift-state ev)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4950
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4951 ;; First check that the draw-how is the same as we
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4952 ;; already have. Otherwise, ignore the changed shift-state.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4953 (if (not (eq draw-how
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4954 (artist-go-get-draw-how-from-symbol
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4955 (if (not shift-state) shifted unshifted))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4956 (message "Cannot switch to shifted operation")
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4957
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4958 ;; progn is "implicit" since this is the else-part
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4959 (setq shift-state (not shift-state))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4960 (setq op (if shift-state shifted unshifted))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4961 (setq draw-how (artist-go-get-draw-how-from-symbol op))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4962 (setq draw-fn (artist-go-get-draw-fn-from-symbol op))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4963
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4964 ;; Draw the new shape
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4965 (setq shape (artist-funcall draw-fn x1 y1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4966 (artist-move-to-xy x1 y1)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4967
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4968 ;; Start the timer to call `draw-fn' repeatedly every
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4969 ;; `interval' second
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4970 (if (and interval draw-fn)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4971 (setq timer (run-at-time interval interval draw-fn x1 y1))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4972
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4973 ;; Read next event
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4974 (setq ev (read-event))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4975
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4976 ;; Cancel any timers
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4977 (if timer
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4978 (cancel-timer timer))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4979
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4980 (artist-funcall prep-fill-fn x1 y1)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4981
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4982 (if (artist-funcall arrow-pred)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4983 (artist-funcall arrow-set-fn x1 y1)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4984 (artist-clear-arrow-points))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4985
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4986 (artist-funcall exit-fn x1 y1)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4987 (artist-move-to-xy x1 y1)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4988
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4989
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4990
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4991 (defun artist-mouse-draw-poly (ev)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4992 "Generic function for shapes requiring several points as input.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4993 The event, EV, is the mouse event."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4994 (interactive "@e")
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4995 (message "Mouse-1: set new point, mouse-2: set last point")
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4996 (let* ((unshifted (artist-go-get-symbol-shift artist-curr-go nil))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4997 (shifted (artist-go-get-symbol-shift artist-curr-go t))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4998 (shift-state (artist-event-is-shifted ev))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4999 (op (if shift-state shifted unshifted))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5000 (draw-how (artist-go-get-draw-how-from-symbol op))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5001 (init-fn (artist-go-get-init-fn-from-symbol op))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5002 (prep-fill-fn (artist-go-get-prep-fill-fn-from-symbol op))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5003 (exit-fn (artist-go-get-exit-fn-from-symbol op))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5004 (draw-fn (artist-go-get-draw-fn-from-symbol op))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5005 (undraw-fn (artist-go-get-undraw-fn-from-symbol op))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5006 (fill-pred (artist-go-get-fill-pred-from-symbol op))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5007 (fill-fn (artist-go-get-fill-fn-from-symbol op))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5008 (arrow-pred (artist-go-get-arrow-pred-from-symbol op))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5009 (arrow-set-fn (artist-go-get-arrow-set-fn-from-symbol op))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5010 (ev-start (event-start ev))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5011 (initial-win (posn-window ev-start))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5012 (ev-start-pos (artist-coord-win-to-buf (posn-col-row ev-start)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5013 (x1-last (car ev-start-pos))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5014 (y1-last (cdr ev-start-pos))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5015 (x2 x1-last)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5016 (y2 y1-last)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5017 (is-down t)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5018 (shape nil)
40323
8716d2ed21c6 (artist-version): 1.2.4.
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
5019 (point-list nil)
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5020 (done nil))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5021 (select-window (posn-window ev-start))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5022 (artist-funcall init-fn x1-last y1-last)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5023 (if (not artist-rubber-banding)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5024 (artist-no-rb-set-point1 x1-last y1-last))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5025 (track-mouse
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5026 (while (not done)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5027 ;; decide what to do
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5028 (cond
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5029
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5030 ;; *** Mouse button is released.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5031 ((and is-down
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5032 (or (member 'click (event-modifiers ev))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5033 (member 'drag (event-modifiers ev))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5034 ;; First, if not rubber-banding, draw the line.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5035 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5036 (if (not artist-rubber-banding)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5037 (progn
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5038 (artist-no-rb-unset-points)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5039 (setq shape (artist-funcall draw-fn x1-last y1-last x2 y2))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5040
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5041 ;; Set the second point to the shape's second point
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5042 ;; (which might be different from the mouse's second point,
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5043 ;; if, for example, we are drawing a straight line)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5044 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5045 (if (not (null shape))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5046 (let ((endpoint2 (artist-2point-get-endpoint2 shape)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5047 (setq x1-last (artist-endpoint-get-x endpoint2))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5048 (setq y1-last (artist-endpoint-get-y endpoint2))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5049 (setq point-list (cons (artist-make-endpoint x1-last y1-last)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5050 point-list))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5051 (setq shape nil)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5052 (setq is-down nil))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5053
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5054 ;; *** Mouse button 2 or 3 down
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5055 ((and (member 'down (event-modifiers ev))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5056 (or (equal (event-basic-type ev) 'mouse-2)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5057 (equal (event-basic-type ev) 'mouse-3)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5058 ;; Ignore
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5059 nil)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5060
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5061 ;; *** Mouse button 2 or 3 released
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5062 ((and (or (member 'click (event-modifiers ev))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5063 (member 'drag (event-modifiers ev)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5064 (or (equal (event-basic-type ev) 'mouse-2)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5065 (equal (event-basic-type ev) 'mouse-3)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5066
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5067 ;; This means the end of our poly-line drawing-session.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5068 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5069 (setq done t))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5070
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5071 ;; *** Mouse button 1 went down
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5072 ((and (not is-down)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5073 (member 'down (event-modifiers ev))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5074 (equal (event-basic-type ev) 'mouse-1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5075 ;; Check whether the (possibly new, that depends on if shift
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5076 ;; has been pressed or released) symbol has the same draw-how
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5077 ;; information as the previous had. If it hasn't, we can't
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5078 ;; proceed.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5079 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5080 (if (not (eq draw-how
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5081 (artist-go-get-draw-how-from-symbol
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5082 (if (not shift-state) shifted unshifted))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5083 (message "Cannot switch operation")
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5084 (progn
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5085 ;; Decide operation
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5086 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5087 (setq unshifted
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5088 (artist-go-get-symbol-shift artist-curr-go nil)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5089 shifted
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5090 (artist-go-get-symbol-shift artist-curr-go t)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5091 shift-state (artist-event-is-shifted ev)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5092 op (if shift-state shifted unshifted)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5093 draw-how (artist-go-get-draw-how-from-symbol op)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5094 draw-fn (artist-go-get-draw-fn-from-symbol op)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5095 undraw-fn (artist-go-get-undraw-fn-from-symbol op)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5096 fill-pred (artist-go-get-fill-pred-from-symbol op)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5097 fill-fn (artist-go-get-fill-fn-from-symbol op))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5098
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5099 ;; Draw shape from last place to this place
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5100
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5101 ;; set x2 and y2
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5102 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5103 (setq ev-start-pos (artist-coord-win-to-buf
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5104 (posn-col-row (event-start ev))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5105 (setq x2 (car ev-start-pos))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5106 (setq y2 (cdr ev-start-pos))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5107
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5108 ;; Draw the new shape (if not rubber-banding, place both marks)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5109 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5110 (if artist-rubber-banding
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5111 (setq shape (artist-funcall draw-fn x1-last y1-last x2 y2))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5112 (progn
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5113 (artist-no-rb-set-point1 x1-last y1-last)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5114 (artist-no-rb-set-point2 x2 y2)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5115
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5116 ;; Show new operation in mode-line
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5117 (let ((artist-curr-go op))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5118 (artist-mode-line-show-curr-operation t))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5119
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5120 (setq is-down t))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5121
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5122
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5123 ;; *** Mouse moved, button is down and we are still in orig window
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5124 ((and (mouse-movement-p ev)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5125 is-down
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5126 (eq initial-win (posn-window (event-start ev))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5127 ;; Draw shape from last place to this place
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5128 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5129 ;; set x2 and y2
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5130 (setq ev-start-pos (artist-coord-win-to-buf
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5131 (posn-col-row (event-start ev))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5132 (setq x2 (car ev-start-pos))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5133 (setq y2 (cdr ev-start-pos))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5134
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5135 ;; First undraw last shape
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5136 ;; (unset last point if not rubberbanding)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5137 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5138 (artist-funcall undraw-fn shape)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5139
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5140 ;; Draw the new shape (if not rubberbanding, set 2nd mark)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5141 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5142 (if artist-rubber-banding
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5143 (setq shape (artist-funcall draw-fn x1-last y1-last x2 y2))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5144 (progn
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5145 (artist-no-rb-unset-point2)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5146 (artist-no-rb-set-point2 x2 y2)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5147 ;; Move cursor
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5148 (artist-move-to-xy x2 y2))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5149
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5150 ;; *** Mouse moved, button is down but we are NOT in orig window
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5151 ((and (mouse-movement-p ev)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5152 is-down
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5153 (not (eq initial-win (posn-window (event-start ev)))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5154 ;; Ignore
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5155 nil)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5156
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5157
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5158 ;; *** Moving mouse while mouse button is not down
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5159 ((and (mouse-movement-p ev) (not is-down))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5160 ;; don't do anything.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5161 nil)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5162
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5163
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5164 ;; *** Mouse button 1 went down, first time
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5165 ((and is-down
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5166 (member 'down (event-modifiers ev))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5167 (equal (event-basic-type ev) 'mouse-1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5168 ;; don't do anything
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5169 nil)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5170
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5171
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5172 ;; *** Another event
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5173 (t
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5174 ;; End drawing
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5175 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5176 (setq done t)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5177
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5178 ;; Read next event (only if we should not stop)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5179 (if (not done)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5180 (setq ev (read-event)))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5181
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5182 ;; Reverse point-list (last points are cond'ed first)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5183 (setq point-list (reverse point-list))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5184
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5185 (artist-funcall prep-fill-fn point-list)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5186
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5187 ;; Maybe fill
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5188 (if (artist-funcall fill-pred)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5189 (artist-funcall fill-fn point-list))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5190
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5191 ;; Maybe set arrow points
40323
8716d2ed21c6 (artist-version): 1.2.4.
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
5192 (if (and point-list (artist-funcall arrow-pred))
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5193 (artist-funcall arrow-set-fn point-list)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5194 (artist-clear-arrow-points))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5195
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5196 (artist-funcall exit-fn point-list)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5197 (artist-move-to-xy x2 y2)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5198
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5199
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5200 (defun artist-mouse-draw-1point (ev)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5201 "Generic function for shapes requiring only 1 point as input.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5202 Operation is done once. The event, EV, is the mouse event."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5203 (interactive "@e")
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5204 (let* ((unshifted (artist-go-get-symbol-shift artist-curr-go nil))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5205 (shifted (artist-go-get-symbol-shift artist-curr-go t))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5206 (shift-state (artist-event-is-shifted ev))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5207 (op (if shift-state shifted unshifted))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5208 (draw-how (artist-go-get-draw-how-from-symbol op))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5209 (init-fn (artist-go-get-init-fn-from-symbol op))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5210 (prep-fill-fn (artist-go-get-prep-fill-fn-from-symbol op))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5211 (exit-fn (artist-go-get-exit-fn-from-symbol op))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5212 (draw-fn (artist-go-get-draw-fn-from-symbol op))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5213 (arrow-pred (artist-go-get-arrow-pred-from-symbol op))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5214 (arrow-set-fn (artist-go-get-arrow-set-fn-from-symbol op))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5215 (ev-start (event-start ev))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5216 (ev-start-pos (artist-coord-win-to-buf (posn-col-row ev-start)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5217 (x1 (car ev-start-pos))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5218 (y1 (cdr ev-start-pos)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5219 (select-window (posn-window ev-start))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5220 (artist-funcall init-fn x1 y1)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5221 (artist-funcall draw-fn x1 y1)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5222 (artist-funcall prep-fill-fn x1 y1)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5223 (if (artist-funcall arrow-pred)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5224 (artist-funcall arrow-set-fn x1 y1)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5225 (artist-clear-arrow-points))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5226 (artist-funcall exit-fn x1 y1)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5227 (artist-move-to-xy x1 y1)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5228
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5229
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5230 (defun artist-mouse-draw-2points (ev)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5231 "Generic function for shapes requiring 2 points as input.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5232 The event, EV, is the mouse event."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5233 (interactive "@e")
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5234 (let* ((unshifted (artist-go-get-symbol-shift artist-curr-go nil))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5235 (shifted (artist-go-get-symbol-shift artist-curr-go t))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5236 (shift-state (artist-event-is-shifted ev))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5237 (op (if shift-state shifted unshifted))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5238 (draw-how (artist-go-get-draw-how-from-symbol op))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5239 (init-fn (artist-go-get-init-fn-from-symbol op))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5240 (prep-fill-fn (artist-go-get-prep-fill-fn-from-symbol op))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5241 (exit-fn (artist-go-get-exit-fn-from-symbol op))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5242 (draw-fn (artist-go-get-draw-fn-from-symbol op))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5243 (undraw-fn (artist-go-get-undraw-fn-from-symbol op))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5244 (fill-pred (artist-go-get-fill-pred-from-symbol op))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5245 (fill-fn (artist-go-get-fill-fn-from-symbol op))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5246 (arrow-pred (artist-go-get-arrow-pred-from-symbol op))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5247 (arrow-set-fn (artist-go-get-arrow-set-fn-from-symbol op))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5248 (ev-start (event-start ev))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5249 (initial-win (posn-window ev-start))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5250 (ev-start-pos (artist-coord-win-to-buf (posn-col-row ev-start)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5251 (x1 (car ev-start-pos))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5252 (y1 (cdr ev-start-pos))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5253 (x2)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5254 (y2)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5255 (shape))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5256 (select-window (posn-window ev-start))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5257 (artist-funcall init-fn x1 y1)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5258 (if (not artist-rubber-banding)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5259 (artist-no-rb-set-point1 x1 y1))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5260 (track-mouse
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5261 (while (or (mouse-movement-p ev)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5262 (member 'down (event-modifiers ev)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5263 (setq ev-start-pos (artist-coord-win-to-buf
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5264 (posn-col-row (event-start ev))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5265 (setq x2 (car ev-start-pos))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5266 (setq y2 (cdr ev-start-pos))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5267
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5268 (if (not (eq initial-win (posn-window (event-start ev))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5269 ;; If we moved outside the window, do nothing
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5270 nil
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5271
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5272 ;; Still in same window:
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5273 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5274 ;; First undraw last shape (unset last point if not rubberbanding)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5275 (if artist-rubber-banding
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5276 (artist-funcall undraw-fn shape)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5277 (artist-no-rb-unset-point2))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5278
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5279 ;; Check if user presses or releases shift key
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5280 (if (artist-shift-has-changed shift-state ev)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5281
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5282 ;; First check that the draw-how is the same as we
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5283 ;; already have. Otherwise, ignore the changed shift-state.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5284 (if (not (eq draw-how
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5285 (artist-go-get-draw-how-from-symbol
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5286 (if (not shift-state) shifted unshifted))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5287 (message "Cannot switch to shifted operation")
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5288
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5289 (message "Switching")
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5290 ;; progn is "implicit" since this is the else-part
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5291 (setq shift-state (not shift-state))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5292 (setq op (if shift-state shifted unshifted))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5293 (setq draw-how (artist-go-get-draw-how-from-symbol op))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5294 (setq draw-fn (artist-go-get-draw-fn-from-symbol op))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5295 (setq undraw-fn (artist-go-get-undraw-fn-from-symbol op))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5296 (setq fill-pred (artist-go-get-fill-pred-from-symbol op))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5297 (setq fill-fn (artist-go-get-fill-fn-from-symbol op))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5298
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5299 ;; Draw the new shape
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5300 (if artist-rubber-banding
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5301 (setq shape (artist-funcall draw-fn x1 y1 x2 y2))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5302 (artist-no-rb-set-point2 x2 y2))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5303 ;; Move cursor
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5304 (artist-move-to-xy x2 y2))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5305
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5306
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5307 ;; Read next event
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5308 (setq ev (read-event))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5309
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5310 ;; If we are not rubber-banding (that is, we were moving around the `2')
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5311 ;; draw the shape
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5312 (if (not artist-rubber-banding)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5313 (progn
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5314 (artist-no-rb-unset-points)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5315 (setq shape (artist-funcall draw-fn x1 y1 x2 y2))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5316
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5317 (artist-funcall prep-fill-fn shape x1 y1 x2 y2)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5318
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5319 ;; Maybe fill
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5320 (if (artist-funcall fill-pred)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5321 (artist-funcall fill-fn shape x1 y1 x2 y2))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5322
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5323 ;; Maybe set arrow-points
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5324 (if (artist-funcall arrow-pred)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5325 (artist-funcall arrow-set-fn shape x1 y1 x2 y2)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5326 (artist-clear-arrow-points))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5327
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5328 (artist-funcall exit-fn shape x1 y1 x2 y2)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5329 (artist-move-to-xy x2 y2)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5330
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5331
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5332 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5333 ;; Bug-report-submitting
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5334 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5335 (defun artist-submit-bug-report ()
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5336 "Submit via mail a bug report on Artist."
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5337 (interactive)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5338 (require 'reporter)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5339 (if (y-or-n-p "Do you want to submit a bug report on Artist? ")
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5340 (let ((to artist-maintainer-address)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5341 (vars '(window-system
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5342 window-system-version
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5343 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5344 artist-rubber-banding
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5345 artist-interface-with-rect
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5346 artist-aspect-ratio
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5347 ;; Now the internal ones
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5348 artist-curr-go
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5349 artist-key-poly-point-list
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5350 artist-key-shape
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5351 artist-key-draw-how
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5352 artist-arrow-point-1
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5353 artist-arrow-point-2)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5354 ;; Remove those variables from vars that are not bound
84925
003285de78e4 (artist-mt-get-symbol-from-keyword-sub, artist-go-retrieve-from-symbol-sub,
Juanma Barranquero <lekktu@gmail.com>
parents: 78482
diff changeset
5355 (mapc
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5356 (function
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5357 (lambda (x)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5358 (if (not (and (boundp x) (symbol-value x)))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5359 (setq vars (delq x vars))))) vars)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5360 (reporter-submit-bug-report
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5361 artist-maintainer-address
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5362 (concat "artist.el " artist-version)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5363 vars
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5364 nil nil
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5365 (concat "Hello Tomas,\n\n"
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5366 "I have a nice bug report on Artist for you! Here it is:")))))
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5367
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5368
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5369 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5370 ;; Now provide this minor mode
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5371 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5372
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5373 (provide 'artist)
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5374
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5375
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5376 ;;; About adding drawing modes
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5377 ;;; --------------------------
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5378
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5379 ;; If you are going to add a new drawing mode, read the following
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5380 ;; sketchy outlines to get started a bit easier.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5381 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5382 ;; 1. If your new drawing mode falls into one of the following
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5383 ;; categories, goto point 2, otherwise goto point 3.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5384 ;;
106876
ad7558737bc7 Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 106860
diff changeset
5385 ;; - Modes where the shapes are drawn continuously, as long as
ad7558737bc7 Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 106860
diff changeset
5386 ;; the mouse button is held down (continuous modes).
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5387 ;; Example: the erase-char mode, the pen and pen-line modes.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5388 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5389 ;; - Modes where the shape is made up of from 2 points to an
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5390 ;; arbitrary number of points (poly-point modes).
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5391 ;; Example: the poly-line mode
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5392 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5393 ;; - Modes where the shape is made up of 2 points (2-point
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5394 ;; modes).
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5395 ;; Example: lines, rectangles
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5396 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5397 ;; - Modes where the shape is made up of 1 point (1-point
106876
ad7558737bc7 Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 106860
diff changeset
5398 ;; modes). This mode differs from the continuous modes in
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5399 ;; that the shape is drawn only once when the mouse button
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5400 ;; is pressed.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5401 ;; Examples: paste, a flood-fill, vaporize modes
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5402 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5403 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5404 ;; 2. To make it easier and more flexible to program new drawing
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5405 ;; modes, you might choose to specify
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5406 ;; init-fn: a function to be called at the very beginning
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5407 ;; of the drawing phase,
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5408 ;; prep-fill-fn: a function to be called before filling,
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5409 ;; arrow-set-fn: a function for setting arrows, to be called
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5410 ;; after filling, and
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5411 ;; exit-fn: a function to be called at the very end of
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5412 ;; the drawing phase.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5413 ;; For each of the cases below, the arguments given to the init-fn,
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5414 ;; prep-fill-fn, arrow-set-fn and exit-fn are stated.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5415 ;;
106876
ad7558737bc7 Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 106860
diff changeset
5416 ;; If your mode matches the continuous mode or the 1-point mode:
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5417 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5418 ;; a. Create a draw-function that draws your shape. Your function
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5419 ;; must take x and y as arguments. The return value is not
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5420 ;; used.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5421 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5422 ;; b. Add your mode to the master table, `artist-mt'.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5423 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5424 ;; init-fn: x y
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5425 ;; prep-fill-fn: x y
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5426 ;; arrow-set-fn: x y
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5427 ;; exit-fn: x y
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5428 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5429 ;; If your mode matches the 2-point mode:
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5430 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5431 ;; a. Create one draw-function that draws your shape and one
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5432 ;; undraw-function that undraws it.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5433 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5434 ;; The draw-function must take x1, y1, x2 and y2 as
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5435 ;; arguments. It must return a list with three elements:
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5436 ;; Endpoint1: a vector [x1 y1]
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5437 ;; Endpoint2: a vector [x2 y2]
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5438 ;; Shapeinfo: all info necessary for your undraw-function to
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5439 ;; be able to undraw the shape
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5440 ;; Use the artist-endpoint-* accessors to create and inspect
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5441 ;; the endpoints.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5442 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5443 ;; If applicable, you must be able to draw your shape without
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5444 ;; borders if the `artist-borderless-shapes' is non-nil.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5445 ;; See `artist-draw-rect' for an example.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5446 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5447 ;; The undraw-function must take one argument: the list created
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5448 ;; by your draw-function. The return value is not used.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5449 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5450 ;; b. If you want to provide a fill-function, then create a
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5451 ;; function that takes 5 arguments: the list created by your
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5452 ;; draw-function, x1, y1, x2 and y2. The return value is not
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5453 ;; used.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5454 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5455 ;; c. Add your mode to the master table, `artist-mt'.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5456 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5457 ;; init-fn: x1 y1
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5458 ;; prep-fill-fn: shape x1 y1 x2 y2
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5459 ;; arrow-set-fn: shape x1 y1 x2 y2
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5460 ;; exit-fn: shape x1 y1 x2 y2
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5461 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5462 ;; If your mode matches the poly-point mode:
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5463 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5464 ;; a. Create one draw-function that draws your shape and one
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5465 ;; undraw-function that undraws it. The draw- and
46163
426c8cf1a3df Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents: 43685
diff changeset
5466 ;; undraw-functions are used to draw/undraw a segment of
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5467 ;; your poly-point mode between 2 points. The draw- and
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5468 ;; undraw-functions are then really 2-point mode functions.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5469 ;; They must take the same arguments and return the same
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5470 ;; values as those of the 2-point mode.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5471 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5472 ;; If applicable, you must be able to draw your shape without
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5473 ;; borders if the `artist-borderless-shapes' is non-nil.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5474 ;; See `artist-draw-rect' for an example.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5475 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5476 ;; b. If you want to provide a fill-function, then create a
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5477 ;; function that takes 1 argument: a list of points where each
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5478 ;; point is a vector, [x, y].
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5479 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5480 ;; c. Add your mode to the master table, `artist-mt'.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5481 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5482 ;; init-fn: x1 y1
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5483 ;; prep-fill-fn: point-list
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5484 ;; arrow-set-fn: point-list
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5485 ;; exit-fn: point-list
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5486 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5487 ;; The arrow-set-fn must set the variables `artist-arrow-point-1'
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5488 ;; and `artist-arrow-point-2'. If your mode does not take arrows,
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5489 ;; you must set the variables to nil. Use the accessors
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5490 ;; artist-arrow-point-* to create and inspect arrow-points.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5491 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5492 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5493 ;; 3. If your mode doesn't match any of the categories, you are facing
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5494 ;; a bit more work, and I cannot be as detailed as above. Here is a
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5495 ;; brief outline of what you have to do:
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5496 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5497 ;; a. Decide on a name for your type of mode. Let's assume that
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5498 ;; you decided on `xxx'. Then you should use the draw-how
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5499 ;; symbol artist-do-xxx.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5500 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5501 ;; b. Create a function artist-mouse-draw-xxx for drawing with
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5502 ;; mouse. It should be called from `artist-down-mouse-1'.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5503 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5504 ;; The all coordinates must be converted from window-relative
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5505 ;; to buffer relative before saved or handed over to
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5506 ;; any other function. Converting is done with
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5507 ;; the function `artist-coord-win-to-buf'.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5508 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5509 ;; It must take care to the `artist-rubber-banding' variable
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5510 ;; and perform rubber-banding accordingly. Use the
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5511 ;; artist-no-rb-* functions if not rubber-banding.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5512 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5513 ;; If applicable, you must be able to draw your shape without
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5514 ;; borders if the `artist-borderless-shapes' is non-nil.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5515 ;; See `artist-draw-rect' for an example.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5516 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5517 ;; You must call the init-fn, the prep-fill-fn, arrow-set-fn
106894
b3b9ebd930e1 Fix typos in comments.
Juanma Barranquero <lekktu@gmail.com>
parents: 106876
diff changeset
5518 ;; and the exit-fn at the appropriate points.
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5519 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5520 ;; When artist-mouse-draw-xxx ends, the shape for your mode
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5521 ;; must be completely drawn.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5522 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5523 ;; c. Create functions for drawing with keys:
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5524 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5525 ;; - artist-key-set-point-xxx for setting a point in the
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5526 ;; mode, to be called from `artist-key-set-point-common'.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5527 ;;
106876
ad7558737bc7 Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 106860
diff changeset
5528 ;; - artist-key-do-continuously-xxx to be called from
ad7558737bc7 Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 106860
diff changeset
5529 ;; `artist-key-do-continuously-common' whenever the user
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5530 ;; moves around.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5531 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5532 ;; As for the artist-mouse-draw-xxx, these two functions must
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5533 ;; take care to do rubber-banding, borderless shapes and to
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5534 ;; set arrows.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5535 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5536 ;; These functions should set the variable `artist-key-shape'
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5537 ;; to the shape drawn.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5538 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5539 ;; d. Create artist-key-draw-xxx and artist-key-undraw-xxx for
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5540 ;; drawing and undrawing. These are needed when the user
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5541 ;; switches operation to draw another shape of the same type
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5542 ;; of drawing mode.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5543 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5544 ;; You should provide these functions. You might think that
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5545 ;; only you is using your type of mode, so noone will be able
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5546 ;; to switch to another operation of the same type of mode,
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5547 ;; but someone else might base a new drawing mode upon your
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5548 ;; work.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5549 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5550 ;; You must call the init-fn, the prep-fill-fn, arrow-set-fn
106894
b3b9ebd930e1 Fix typos in comments.
Juanma Barranquero <lekktu@gmail.com>
parents: 106876
diff changeset
5551 ;; and the exit-fn at the appropriate points.
33618
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5552 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5553 ;; e. Add your new mode to the master table, `artist-mt'.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5554 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5555 ;;
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5556 ;; Happy hacking! Please let me hear if you add any drawing modes!
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5557 ;; Don't hesitate to ask me any questions.
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5558
beb961476e7f *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5559
38436
b174db545cfd Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 37825
diff changeset
5560 ;;; artist.el ends here