Lines Matching +defs:down +defs:arrow
47 ;; result while holding the mouse button down and moving the mouse. If
66 ;; the right column are accessed by holding down the shift key while
150 ;; Bugfix: The first arrow for poly-lines was always pointing
159 ;; Bugfix: The arrow characters (`artist-arrows'), which
265 direction, or nil if there is no suitable character to use for arrow
517 (defvar artist-arrow-point-1 nil)
518 (defvar artist-arrow-point-2 nil)
524 (define-key map [down-mouse-1] 'artist-down-mouse-1)
525 (define-key map [S-down-mouse-1] 'artist-down-mouse-1)
526 (define-key map [down-mouse-2] 'artist-mouse-choose-operation)
527 (define-key map [S-down-mouse-2] 'artist-mouse-choose-operation)
528 (define-key map [down-mouse-3] 'artist-down-mouse-3)
529 (define-key map [S-down-mouse-3] 'artist-down-mouse-3)
535 (define-key map [down] 'artist-next-line)
541 (define-key map "<" 'artist-toggle-first-arrow)
542 (define-key map ">" 'artist-toggle-second-arrow)
602 artist-arrows artist-pen-set-arrow-points
610 artist-arrows artist-set-arrow-points-for-2points
617 artist-arrows artist-set-arrow-points-for-2points
642 artist-arrows artist-set-arrow-points-for-poly
649 artist-arrows artist-set-arrow-points-for-poly
876 ARROW-SET-FN is a function that is called to set arrow end-points.
889 as long as the mouse button is held down.
1012 (defsubst artist-go-get-arrow-pred (info-variant-part)
1013 "Retrieve the arrow predicate component from an INFO-VARIANT-PART.
1017 (defsubst artist-go-get-arrow-set-fn (info-variant-part)
1018 "Retrieve the arrow set component from an INFO-VARIANT-PART.
1231 * Poly-lines are drawn while holding mouse-1 down. When you
1233 to be straight, hold down shift before pressing the
1301 \\[artist-toggle-first-arrow] Sets/unsets an arrow at the beginning
1304 \\[artist-toggle-second-arrow] Sets/unsets an arrow at the end
1407 (make-local-variable 'artist-arrow-point-1)
1408 (make-local-variable 'artist-arrow-point-2)
1418 (setq artist-arrow-point-1 nil)
1419 (setq artist-arrow-point-2 nil)
1649 (defun artist-go-get-arrow-pred-from-symbol (symbol)
1650 "Search the master table, get arrow-pred from a graphics operation SYMBOL."
1651 (artist-go-retrieve-from-symbol symbol 'artist-go-get-arrow-pred))
1653 (defun artist-go-get-arrow-set-fn-from-symbol (symbol)
1654 "Search the master table, get arrow-set-fn from a graphics operation SYMBOL."
1655 (artist-go-retrieve-from-symbol symbol 'artist-go-get-arrow-set-fn))
2799 (artist-clear-arrow-points)
2803 (defun artist-pen-set-arrow-points (x1 y1)
2804 "Set arrow points for pen drawing using X1, Y1.
2812 ;; Only set arrow-points if the point-list has two or more entries
2826 (setq artist-arrow-point-1 (artist-make-arrow-point x0 y0 dir0))
2827 (setq artist-arrow-point-2 (artist-make-arrow-point xn yn dirn))))))
3803 ;; Accessors to arrow-points
3806 (defun artist-make-arrow-point (x y direction &optional state)
3807 "Create an arrow point at X, Y for a line in direction DIRECTION.
3810 (let* ((arrow-point (make-vector 4 0))
3811 (arrow-marker (make-marker)))
3813 (set-marker arrow-marker (point))
3814 (aset arrow-point 0 arrow-marker)
3815 (aset arrow-point 1 (artist-get-char-at-xy x y))
3816 (aset arrow-point 2 direction)
3817 (aset arrow-point 3 state)
3818 arrow-point)))
3820 (defsubst artist-arrow-point-get-marker (arrow-point)
3822 (aref arrow-point 0))
3824 (defsubst artist-arrow-point-get-orig-char (arrow-point)
3826 (aref arrow-point 1))
3828 (defsubst artist-arrow-point-get-direction (arrow-point)
3830 (aref arrow-point 2))
3832 (defsubst artist-arrow-point-get-state (arrow-point)
3834 (aref arrow-point 3))
3836 (defsubst artist-arrow-point-set-state (arrow-point new-state)
3838 (aset arrow-point 3 new-state))
3841 (defun artist-clear-arrow-points ()
3843 (setq artist-arrow-point-1 nil)
3844 (setq artist-arrow-point-2 nil))
3846 (defun artist-set-arrow-points-for-poly (point-list)
3847 "Generic function for setting arrow-points for poly-shapes from POINT-LIST."
3862 (setq artist-arrow-point-1 (artist-make-arrow-point x1 y1 dir1))
3863 (setq artist-arrow-point-2 (artist-make-arrow-point xn yn dirn))))
3866 (defun artist-set-arrow-points-for-2points (shape x1 y1 x2 y2)
3867 "Generic function for setting arrow-points for 2-point shapes.
3875 (setq artist-arrow-point-1
3876 (artist-make-arrow-point x1 y1
3878 (setq artist-arrow-point-2
3879 (artist-make-arrow-point x2 y2
4105 ;; Maybe set arrow-points for continous shapes
4106 (let ((arrow-pred (artist-go-get-arrow-pred-from-symbol artist-curr-go))
4107 (arrow-set-fn (artist-go-get-arrow-set-fn-from-symbol artist-curr-go))
4121 (if (artist-funcall arrow-pred)
4122 (artist-funcall arrow-set-fn x y)
4123 (artist-clear-arrow-points))
4140 (arrow-pred (artist-go-get-arrow-pred-from-symbol artist-curr-go))
4141 (arrow-set-fn (artist-go-get-arrow-set-fn-from-symbol artist-curr-go)))
4162 ;; Since we are not ready, set the arrow-points to nil
4163 (artist-clear-arrow-points)
4238 ;; Set the arrow-points
4239 (if (artist-funcall arrow-pred)
4240 (artist-funcall arrow-set-fn artist-key-poly-point-list)
4241 (artist-clear-arrow-points))
4258 (arrow-pred (artist-go-get-arrow-pred-from-symbol artist-curr-go))
4259 (arrow-set-fn (artist-go-get-arrow-set-fn-from-symbol artist-curr-go)))
4263 (if (artist-funcall arrow-pred)
4264 (artist-funcall arrow-set-fn x y)
4265 (artist-clear-arrow-points))
4279 (arrow-pred (artist-go-get-arrow-pred-from-symbol artist-curr-go))
4280 (arrow-set-fn (artist-go-get-arrow-set-fn-from-symbol artist-curr-go)))
4297 ;; Since we are not ready, clear the arrow-points
4298 (artist-clear-arrow-points)
4327 ;; Maybe set the arrow-points
4329 (if (artist-funcall arrow-pred)
4330 (artist-funcall arrow-set-fn artist-key-shape x1 y1 x2 y2)
4331 (artist-clear-arrow-points))
4384 If N is negative, move cursor down."
4397 "Move cursor down optional N lines (default is 1), updating current shape.
4591 (defun artist-toggle-first-arrow ()
4592 "Toggle first arrow for shape, if possible."
4595 (if (not (null artist-arrow-point-1))
4596 (let* ((arrow-point artist-arrow-point-1)
4597 (arrow-state (artist-arrow-point-get-state arrow-point))
4598 (arrow-marker (artist-arrow-point-get-marker arrow-point))
4599 (direction (artist-arrow-point-get-direction arrow-point))
4600 (orig-char (artist-arrow-point-get-orig-char arrow-point))
4601 (arrow-char (aref artist-arrows direction))
4602 (new-state (not arrow-state)))
4604 (goto-char (marker-position arrow-marker))
4607 (if arrow-char
4608 (artist-replace-char arrow-char))
4611 (artist-arrow-point-set-state artist-arrow-point-1 new-state)))))
4613 (defun artist-toggle-second-arrow ()
4614 "Toggle second arrow for shape, if possible."
4617 (if (not (null artist-arrow-point-2))
4618 (let* ((arrow-point artist-arrow-point-2)
4619 (arrow-state (artist-arrow-point-get-state arrow-point))
4620 (arrow-marker (artist-arrow-point-get-marker arrow-point))
4621 (direction (artist-arrow-point-get-direction arrow-point))
4622 (orig-char (artist-arrow-point-get-orig-char arrow-point))
4623 (arrow-char (aref artist-arrows direction))
4624 (new-state (not arrow-state)))
4626 (goto-char (marker-position arrow-marker))
4629 (if arrow-char
4630 (artist-replace-char arrow-char))
4633 (artist-arrow-point-set-state artist-arrow-point-2 new-state)))))
4768 (defun artist-down-mouse-1 (ev)
4781 ;; button-down event.
4873 (defun artist-down-mouse-3 (ev)
4877 (artist-down-mouse-1 ev))
4914 Operation is done continously while the mouse button is hold down.
4927 (arrow-pred (artist-go-get-arrow-pred-from-symbol op))
4928 (arrow-set-fn (artist-go-get-arrow-set-fn-from-symbol op))
4942 (member 'down (event-modifiers ev)))
4992 (if (artist-funcall arrow-pred)
4993 (artist-funcall arrow-set-fn x1 y1)
4994 (artist-clear-arrow-points))
5018 (arrow-pred (artist-go-get-arrow-pred-from-symbol op))
5019 (arrow-set-fn (artist-go-get-arrow-set-fn-from-symbol op))
5027 (is-down t)
5041 ((and is-down
5062 (setq is-down nil))
5064 ;; *** Mouse button 2 or 3 down
5065 ((and (member 'down (event-modifiers ev))
5081 ;; *** Mouse button 1 went down
5082 ((and (not is-down)
5083 (member 'down (event-modifiers ev))
5130 (setq is-down t))
5133 ;; *** Mouse moved, button is down and we are still in orig window
5135 is-down
5160 ;; *** Mouse moved, button is down but we are NOT in orig window
5162 is-down
5168 ;; *** Moving mouse while mouse button is not down
5169 ((and (mouse-movement-p ev) (not is-down))
5174 ;; *** Mouse button 1 went down, first time
5175 ((and is-down
5176 (member 'down (event-modifiers ev))
5201 ;; Maybe set arrow points
5202 (if (and point-list (artist-funcall arrow-pred))
5203 (artist-funcall arrow-set-fn point-list)
5204 (artist-clear-arrow-points))
5223 (arrow-pred (artist-go-get-arrow-pred-from-symbol op))
5224 (arrow-set-fn (artist-go-get-arrow-set-fn-from-symbol op))
5233 (if (artist-funcall arrow-pred)
5234 (artist-funcall arrow-set-fn x1 y1)
5235 (artist-clear-arrow-points))
5256 (arrow-pred (artist-go-get-arrow-pred-from-symbol op))
5257 (arrow-set-fn (artist-go-get-arrow-set-fn-from-symbol op))
5272 (member 'down (event-modifiers ev)))
5333 ;; Maybe set arrow-points
5334 (if (artist-funcall arrow-pred)
5335 (artist-funcall arrow-set-fn shape x1 y1 x2 y2)
5336 (artist-clear-arrow-points))
5362 artist-arrow-point-1
5363 artist-arrow-point-2)))
5396 ;; the mouse button is held down (continous modes).
5419 ;; arrow-set-fn: a function for setting arrows, to be called
5424 ;; prep-fill-fn, arrow-set-fn and exit-fn are stated.
5436 ;; arrow-set-fn: x y
5469 ;; arrow-set-fn: shape x1 y1 x2 y2
5494 ;; arrow-set-fn: point-list
5497 ;; The arrow-set-fn must set the variables `artist-arrow-point-1'
5498 ;; and `artist-arrow-point-2'. If your mode does not take arrows,
5500 ;; artist-arrow-point-* to create and inspect arrow-points.
5512 ;; mouse. It should be called from `artist-down-mouse-1'.
5527 ;; You must call the init-fn, the prep-fill-fn, arrow-set-fn
5560 ;; You must call the init-fn, the prep-fill-fn, arrow-set-fn