Lines Matching defs:go
64 ;; Straight lines are lines that go horizontally, vertically or
65 ;; diagonally. Plain lines go in any direction. The operations in
440 (defvar artist-curr-go 'pen-char
442 (make-variable-buffer-local 'artist-curr-go)
869 through the functions `artist-go-get-MEMBER-from-symbol'
985 (defsubst artist-go-get-desc (info-part)
989 (defsubst artist-go-get-unshifted (info-part)
993 (defsubst artist-go-get-shifted (info-part)
997 (defsubst artist-go-get-keyword (info-variant-part)
1002 (defsubst artist-go-get-symbol (info-variant-part)
1007 (defsubst artist-go-get-mode-line (info-variant-part)
1012 (defsubst artist-go-get-arrow-pred (info-variant-part)
1017 (defsubst artist-go-get-arrow-set-fn (info-variant-part)
1022 (defsubst artist-go-get-init-fn (info-variant-part)
1027 (defsubst artist-go-get-prep-fill-fn (info-variant-part)
1032 (defsubst artist-go-get-exit-fn (info-variant-part)
1037 (defsubst artist-go-get-draw-how (info-variant-part)
1042 (defsubst artist-go-get-draw-fn (info-variant-part)
1047 (defsubst artist-go-get-undraw-fn (info-variant-part)
1054 (defsubst artist-go-get-interval-fn (info-variant-part)
1061 (defsubst artist-go-get-fill-pred (info-variant-part)
1068 (defsubst artist-go-get-fill-fn (info-variant-part)
1153 (let ((next-op (cdr (cdr (assoc artist-curr-go artist-prev-next-op-alist)))))
1160 (let ((prev-op (car (cdr (assoc artist-curr-go artist-prev-next-op-alist)))))
1228 * Straight lines can only go horizontally, vertically
1423 (artist-go-get-draw-how-from-symbol artist-curr-go))
1455 (artist-go-get-mode-line-from-symbol artist-curr-go)
1502 (descr (artist-go-get-desc info-part))
1503 (unshifted (artist-go-get-unshifted info-part))
1504 (symbol (artist-go-get-symbol unshifted)))
1541 (unshifted (artist-go-get-unshifted info-part))
1542 (shifted (artist-go-get-shifted info-part))
1543 (unshifted-kwd (artist-go-get-keyword unshifted))
1544 (shifted-kwd (artist-go-get-keyword shifted)))
1571 (unshifted (artist-go-get-unshifted info-part))
1572 (shifted (artist-go-get-shifted info-part))
1573 (unshifted-kwd (artist-go-get-keyword unshifted))
1574 (shifted-kwd (artist-go-get-keyword shifted))
1575 (unshifted-sym (artist-go-get-symbol unshifted))
1576 (shifted-sym (artist-go-get-symbol shifted)))
1604 (defun artist-go-retrieve-from-symbol (symbol retrieve-fn)
1608 (artist-go-retrieve-from-symbol-sub artist-mt symbol retrieve-fn))
1610 (defun artist-go-retrieve-from-symbol-sub (table symbol retrieve-fn)
1620 (unshifted (artist-go-get-unshifted info-part))
1621 (shifted (artist-go-get-shifted info-part))
1622 (unshifted-sym (artist-go-get-symbol unshifted))
1623 (shifted-sym (artist-go-get-symbol shifted))
1634 (answer (artist-go-retrieve-from-symbol-sub
1641 (defun artist-go-get-keyword-from-symbol (symbol)
1643 (artist-go-retrieve-from-symbol symbol 'artist-go-get-keyword))
1645 (defun artist-go-get-mode-line-from-symbol (symbol)
1647 (artist-go-retrieve-from-symbol symbol 'artist-go-get-mode-line))
1649 (defun artist-go-get-arrow-pred-from-symbol (symbol)
1651 (artist-go-retrieve-from-symbol symbol 'artist-go-get-arrow-pred))
1653 (defun artist-go-get-arrow-set-fn-from-symbol (symbol)
1655 (artist-go-retrieve-from-symbol symbol 'artist-go-get-arrow-set-fn))
1657 (defun artist-go-get-init-fn-from-symbol (symbol)
1659 (artist-go-retrieve-from-symbol symbol 'artist-go-get-init-fn))
1661 (defun artist-go-get-prep-fill-fn-from-symbol (symbol)
1663 (artist-go-retrieve-from-symbol symbol 'artist-go-get-prep-fill-fn))
1665 (defun artist-go-get-exit-fn-from-symbol (symbol)
1667 (artist-go-retrieve-from-symbol symbol 'artist-go-get-exit-fn))
1669 (defun artist-go-get-draw-fn-from-symbol (symbol)
1671 (artist-go-retrieve-from-symbol symbol 'artist-go-get-draw-fn))
1673 (defun artist-go-get-draw-how-from-symbol (symbol)
1675 (artist-go-retrieve-from-symbol symbol 'artist-go-get-draw-how))
1677 (defun artist-go-get-undraw-fn-from-symbol (symbol)
1679 (artist-go-retrieve-from-symbol symbol 'artist-go-get-undraw-fn))
1681 (defun artist-go-get-interval-fn-from-symbol (symbol)
1683 (artist-go-retrieve-from-symbol symbol 'artist-go-get-interval-fn))
1685 (defun artist-go-get-fill-pred-from-symbol (symbol)
1687 (artist-go-retrieve-from-symbol symbol 'artist-go-get-fill-pred))
1689 (defun artist-go-get-fill-fn-from-symbol (symbol)
1691 (artist-go-retrieve-from-symbol symbol 'artist-go-get-fill-fn))
1693 (defun artist-go-get-symbol-shift (symbol is-shifted)
1697 (artist-go-get-symbol-shift-sub artist-mt symbol is-shifted))
1699 (defun artist-go-get-symbol-shift-sub (table symbol is-shifted)
1709 (unshift-variant (artist-go-get-unshifted info-part))
1710 (shift-variant (artist-go-get-shifted info-part))
1711 (unshift-sym (artist-go-get-symbol unshift-variant))
1712 (shift-sym (artist-go-get-symbol shift-variant)))
1719 (answer (artist-go-get-symbol-shift-sub
1933 ;; will then get us where we really wanted to go.
3234 Points go from (X-RADIUS, 0) to (0, Y-RADIUS).
3514 ;; When we draw our ellipse, we want it to go through the cursor
3895 (let ((undraw-fn (artist-go-get-undraw-fn-from-symbol artist-curr-go))
3907 (let ((undraw-fn (artist-go-get-undraw-fn-from-symbol artist-curr-go))
3914 (let ((draw-how (artist-go-get-draw-how-from-symbol artist-curr-go))
3948 (let ((draw-fn (artist-go-get-draw-fn-from-symbol artist-curr-go)))
3953 (let ((draw-fn (artist-go-get-draw-fn-from-symbol artist-curr-go))
3960 (let ((draw-fn (artist-go-get-draw-fn-from-symbol artist-curr-go)))
3966 (let ((draw-fn (artist-go-get-draw-fn-from-symbol artist-curr-go))
3973 (let ((draw-how (artist-go-get-draw-how-from-symbol artist-curr-go))
4029 (let ((draw-fn (artist-go-get-draw-fn-from-symbol artist-curr-go)))
4035 (let ((draw-fn (artist-go-get-draw-fn-from-symbol artist-curr-go))
4036 (undraw-fn (artist-go-get-undraw-fn-from-symbol artist-curr-go))
4061 (let ((draw-fn (artist-go-get-draw-fn-from-symbol artist-curr-go))
4062 (undraw-fn (artist-go-get-undraw-fn-from-symbol artist-curr-go))
4081 (let ((draw-how (artist-go-get-draw-how-from-symbol artist-curr-go))
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))
4108 (init-fn (artist-go-get-init-fn-from-symbol artist-curr-go))
4109 (prep-fill-fn (artist-go-get-prep-fill-fn-from-symbol artist-curr-go))
4110 (exit-fn (artist-go-get-exit-fn-from-symbol artist-curr-go)))
4134 (let ((draw-fn (artist-go-get-draw-fn-from-symbol artist-curr-go))
4135 (init-fn (artist-go-get-init-fn-from-symbol artist-curr-go))
4136 (prep-fill-fn (artist-go-get-prep-fill-fn-from-symbol artist-curr-go))
4137 (exit-fn (artist-go-get-exit-fn-from-symbol artist-curr-go))
4138 (fill-pred (artist-go-get-fill-pred-from-symbol artist-curr-go))
4139 (fill-fn (artist-go-get-fill-fn-from-symbol artist-curr-go))
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)))
4253 (let ((draw-fn (artist-go-get-draw-fn-from-symbol artist-curr-go))
4254 (init-fn (artist-go-get-init-fn-from-symbol artist-curr-go))
4255 (prep-fill-fn (artist-go-get-prep-fill-fn-from-symbol artist-curr-go))
4256 (exit-fn (artist-go-get-exit-fn-from-symbol artist-curr-go))
4257 (draw-fn (artist-go-get-draw-fn-from-symbol artist-curr-go))
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)))
4273 (let ((draw-fn (artist-go-get-draw-fn-from-symbol artist-curr-go))
4274 (init-fn (artist-go-get-init-fn-from-symbol artist-curr-go))
4275 (prep-fill-fn (artist-go-get-prep-fill-fn-from-symbol artist-curr-go))
4276 (exit-fn (artist-go-get-exit-fn-from-symbol artist-curr-go))
4277 (fill-pred (artist-go-get-fill-pred-from-symbol artist-curr-go))
4278 (fill-fn (artist-go-get-fill-fn-from-symbol artist-curr-go))
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)))
4342 (let ((draw-how (artist-go-get-draw-how-from-symbol artist-curr-go))
4523 (artist-go-get-draw-how-from-symbol op-symbol)
4542 (setq artist-curr-go op-symbol)
4771 (let* ((real (artist-go-get-symbol-shift
4772 artist-curr-go (artist-event-is-shifted ev)))
4773 (draw-how (artist-go-get-draw-how-from-symbol real))
4855 (let ((draw-fn (artist-go-get-draw-fn-from-symbol (car op)))
4861 (let* ((unshifted (artist-go-get-symbol-shift (car op) nil))
4862 (shifted (artist-go-get-symbol-shift (car op) t))
4865 (keyword (artist-go-get-keyword-from-symbol selected-op)))
4876 (let ((artist-curr-go 'erase-char))
4916 (let* ((unshifted (artist-go-get-symbol-shift artist-curr-go nil))
4917 (shifted (artist-go-get-symbol-shift artist-curr-go t))
4920 (draw-how (artist-go-get-draw-how-from-symbol op))
4921 (init-fn (artist-go-get-init-fn-from-symbol op))
4922 (prep-fill-fn (artist-go-get-prep-fill-fn-from-symbol op))
4923 (exit-fn (artist-go-get-exit-fn-from-symbol op))
4924 (draw-fn (artist-go-get-draw-fn-from-symbol op))
4925 (interval-fn (artist-go-get-interval-fn-from-symbol op))
4927 (arrow-pred (artist-go-get-arrow-pred-from-symbol op))
4928 (arrow-set-fn (artist-go-get-arrow-set-fn-from-symbol op))
4964 (artist-go-get-draw-how-from-symbol
4971 (setq draw-how (artist-go-get-draw-how-from-symbol op))
4972 (setq draw-fn (artist-go-get-draw-fn-from-symbol op))))
5006 (let* ((unshifted (artist-go-get-symbol-shift artist-curr-go nil))
5007 (shifted (artist-go-get-symbol-shift artist-curr-go t))
5010 (draw-how (artist-go-get-draw-how-from-symbol op))
5011 (init-fn (artist-go-get-init-fn-from-symbol op))
5012 (prep-fill-fn (artist-go-get-prep-fill-fn-from-symbol op))
5013 (exit-fn (artist-go-get-exit-fn-from-symbol op))
5014 (draw-fn (artist-go-get-draw-fn-from-symbol op))
5015 (undraw-fn (artist-go-get-undraw-fn-from-symbol op))
5016 (fill-pred (artist-go-get-fill-pred-from-symbol op))
5017 (fill-fn (artist-go-get-fill-fn-from-symbol op))
5018 (arrow-pred (artist-go-get-arrow-pred-from-symbol op))
5019 (arrow-set-fn (artist-go-get-arrow-set-fn-from-symbol op))
5091 (artist-go-get-draw-how-from-symbol
5098 (artist-go-get-symbol-shift artist-curr-go nil)
5100 (artist-go-get-symbol-shift artist-curr-go t)
5103 draw-how (artist-go-get-draw-how-from-symbol op)
5104 draw-fn (artist-go-get-draw-fn-from-symbol op)
5105 undraw-fn (artist-go-get-undraw-fn-from-symbol op)
5106 fill-pred (artist-go-get-fill-pred-from-symbol op)
5107 fill-fn (artist-go-get-fill-fn-from-symbol op))
5127 (let ((artist-curr-go op))
5214 (let* ((unshifted (artist-go-get-symbol-shift artist-curr-go nil))
5215 (shifted (artist-go-get-symbol-shift artist-curr-go t))
5218 (draw-how (artist-go-get-draw-how-from-symbol op))
5219 (init-fn (artist-go-get-init-fn-from-symbol op))
5220 (prep-fill-fn (artist-go-get-prep-fill-fn-from-symbol op))
5221 (exit-fn (artist-go-get-exit-fn-from-symbol op))
5222 (draw-fn (artist-go-get-draw-fn-from-symbol op))
5223 (arrow-pred (artist-go-get-arrow-pred-from-symbol op))
5224 (arrow-set-fn (artist-go-get-arrow-set-fn-from-symbol op))
5244 (let* ((unshifted (artist-go-get-symbol-shift artist-curr-go nil))
5245 (shifted (artist-go-get-symbol-shift artist-curr-go t))
5248 (draw-how (artist-go-get-draw-how-from-symbol op))
5249 (init-fn (artist-go-get-init-fn-from-symbol op))
5250 (prep-fill-fn (artist-go-get-prep-fill-fn-from-symbol op))
5251 (exit-fn (artist-go-get-exit-fn-from-symbol op))
5252 (draw-fn (artist-go-get-draw-fn-from-symbol op))
5253 (undraw-fn (artist-go-get-undraw-fn-from-symbol op))
5254 (fill-pred (artist-go-get-fill-pred-from-symbol op))
5255 (fill-fn (artist-go-get-fill-fn-from-symbol op))
5256 (arrow-pred (artist-go-get-arrow-pred-from-symbol op))
5257 (arrow-set-fn (artist-go-get-arrow-set-fn-from-symbol op))
5295 (artist-go-get-draw-how-from-symbol
5303 (setq draw-how (artist-go-get-draw-how-from-symbol op))
5304 (setq draw-fn (artist-go-get-draw-fn-from-symbol op))
5305 (setq undraw-fn (artist-go-get-undraw-fn-from-symbol op))
5306 (setq fill-pred (artist-go-get-fill-pred-from-symbol op))
5307 (setq fill-fn (artist-go-get-fill-fn-from-symbol op))))
5358 artist-curr-go