Lines Matching +defs:backward +defs:char
234 (defcustom artist-first-char ?1
239 (defcustom artist-second-char ?2
311 (defcustom artist-ellipse-right-char ?\)
322 (defcustom artist-ellipse-left-char ?\(
419 (defvar artist-spray-new-char ?.
440 (defvar artist-curr-go 'pen-char
444 (defvar artist-line-char-set nil
445 "Boolean to tell whether user has set some char to use when drawing lines.")
446 (make-variable-buffer-local 'artist-line-char-set)
448 (defvar artist-line-char nil
450 (make-variable-buffer-local 'artist-line-char)
452 (defvar artist-fill-char-set nil
453 "Boolean to tell whether user has set some char to use when filling.")
454 (make-variable-buffer-local 'artist-fill-char-set)
456 (defvar artist-fill-char nil
458 (make-variable-buffer-local 'artist-fill-char)
460 (defvar artist-erase-char ?\s
462 (make-variable-buffer-local 'artist-erase-char)
464 (defvar artist-default-fill-char ?.
465 "Char to use when a fill-char is required but none is set.")
466 (make-variable-buffer-local 'artist-default-fill-char)
482 The fill char is used instead, if it is set.")
537 (define-key map [left] 'artist-backward-char)
538 (define-key map "\C-b" 'artist-backward-char)
539 (define-key map [right] 'artist-forward-char)
540 (define-key map "\C-f" 'artist-forward-char)
543 (define-key map "\C-c\C-a\C-e" 'artist-select-erase-char)
544 (define-key map "\C-c\C-a\C-f" 'artist-select-fill-char)
545 (define-key map "\C-c\C-a\C-l" 'artist-select-line-char)
564 (define-key map "\C-c\C-a\C-d" 'artist-select-op-erase-char)
577 "Replacement table for `artist-replace-char'.")
595 ("Pen" (("Pen" pen-char "pen-c"
631 artist-t-if-fill-char-set artist-fill-rect))
638 artist-t-if-fill-char-set artist-fill-square)))))
663 artist-t-if-fill-char-set artist-fill-ellipse))
670 artist-t-if-fill-char-set artist-fill-circle)))))
702 ("Erase" (("erase char" erase-char "erase-c"
706 artist-erase-char
795 ("Set Fill" set-fill artist-select-fill-char))
798 ("Set Line" set-line artist-select-line-char))
801 ("Set Erase" set-erase artist-select-erase-char))
1199 Pen fill-char at point line from last point
1268 Erase char Sets the character used when erasing
1289 Move around with \\[artist-next-line], \\[artist-previous-line], \\[artist-forward-char] and \\[artist-backward-char].
1291 \\[artist-select-fill-char] Sets the charater to use when filling
1292 \\[artist-select-line-char] Sets the charater to use when drawing
1293 \\[artist-select-erase-char] Sets the charater to use when erasing
1324 \\[artist-select-op-erase-char] Selects erasing characters
1340 artist-first-char What to set at first/second point...
1341 artist-second-char ...when not rubber-banding
1349 artist-ellipse-left-char Character to use for narrow ellipses
1350 artist-ellipse-right-char Character to use for narrow ellipses
1461 (defun artist-t-if-fill-char-set ()
1462 "Return the value of the variable `artist-fill-char-set'."
1463 artist-fill-char-set)
1805 (goto-char (point-min))
1816 (goto-char (point-min))
1817 (delete-char (- (point-max) (point-min)) nil)))
1887 ;; artist-get-char-at-xy get char in at (x,y)
1889 ;; artist-replace-char overwrite (replace) char at point
1939 ;; A: That will work good. insert-char won't insert a negative
1944 (insert-char ?\n (forward-line (- y (artist-current-line))))
1950 (defsubst artist-get-char-at-xy (x y)
1957 (following-char))
1960 (defun artist-get-char-at-xy-conv (x y)
1963 (aref artist-replacement-table (artist-get-char-at-xy x y))))
1966 (defun artist-replace-char (new-char)
1978 (delete-char -1)
1979 (insert (aref artist-replacement-table new-char)))
1984 (setq last-command-event (aref artist-replacement-table new-char))
1987 (defun artist-replace-chars (new-char count)
1996 (let* ((replaced-c (aref artist-replacement-table new-char))
2000 (delete-char (- count))
2006 (setq last-command-event (aref artist-replacement-table new-char))
2013 (let ((char-list (append string nil)) ; convert the string to a list
2017 (while char-list
2018 (let ((c (car char-list)))
2022 (artist-replace-char c)))
2023 (setq char-list (cdr char-list)))))
2036 (artist-replace-char (aref artist-rb-save-data 2))
2045 (aset artist-rb-save-data 2 (artist-get-char-at-xy x y))
2047 (artist-replace-char artist-first-char)
2059 (artist-replace-char (aref artist-rb-save-data 5))
2068 (aset artist-rb-save-data 5 (artist-get-char-at-xy x y))
2070 (artist-replace-char artist-second-char)
2080 ;; artist-intersection-char
2082 ;; Note: If changing this, see the notes for artist-unintersection-char
2085 (defun artist-intersection-char (new-c old-c)
2110 ;; artist-unintersection-char
2114 (defun artist-unintersection-char (line-c buffer-c)
2123 other combinations `artist-erase-char'."
2129 ((= line-c buffer-c) artist-erase-char)
2133 ;; Computing the line-char to use
2136 (defsubst artist-compute-line-char ()
2140 `artist-fill-char-set', `artist-fill-char' and
2141 `artist-line-char-set' and `artist-line-char'."
2142 (if (and artist-borderless-shapes artist-fill-char-set)
2143 artist-fill-char
2144 (if artist-line-char-set
2145 artist-line-char
2152 ;; [ start-x start-y length direction saved-char-1 saved-char-2 ... ]
2156 ;; x y char
2166 This table is also used for determining which char to use for that direction.")
2176 (defun artist-direction-char (direction)
2235 (aset line i (artist-get-char-at-xy x y))
2246 ;; A line is here a list of (x y saved-char new-char)s.
2322 (defsubst artist-new-coord (x y &optional new-char)
2324 Optional argument NEW-CHAR can be used for setting the new-char component
2328 (aset coord 3 new-char)
2349 (defsubst artist-coord-get-saved-char (coord)
2350 "Retrieve the saved char component of a COORD."
2353 (defsubst artist-coord-get-new-char (coord)
2354 "Retrieve the new char component of a COORD."
2357 (defsubst artist-coord-add-saved-char (coord saved-char)
2358 "Set the saved char component of a COORD to SAVED-CHAR."
2359 (aset coord 2 saved-char)
2362 (defsubst artist-coord-add-new-char (coord new-char)
2363 "Set the new char component of a COORD to NEW-CHAR."
2364 (aset coord 3 new-char)
2367 (defsubst artist-coord-set-new-char (coord new-char)
2368 "Set the new char component of a COORD to NEW-CHAR."
2369 (aset coord 3 new-char)
2424 (artist-coord-add-saved-char
2426 (artist-get-char-at-xy (artist-coord-get-x coord)
2430 ;; artist-calculate-new-char, artist-calculate-new-chars
2431 ;; Calculates which char to insert depending on direction of point-list.
2440 ;; artist-calculate-new-char works on one coordinate, returns char.
2443 (defun artist-calculate-new-char (last-coord new-coord)
2444 "Return a line-char to use when moving from LAST-COORD to NEW-COORD."
2461 (list (artist-coord-add-new-char (car point-list) ?o ))
2463 (cons (artist-coord-add-new-char
2465 (artist-calculate-new-char (car (cdr point-list))
2470 (artist-coord-add-new-char
2472 (artist-calculate-new-char last-coord this-coord))
2486 (let* ((new-c (artist-coord-get-new-char coord))
2487 (saved-c (artist-coord-get-saved-char coord))
2488 (modified-c (artist-intersection-char new-c saved-c)))
2489 (artist-coord-set-new-char coord modified-c)))
2549 (if artist-line-char-set
2550 (artist-replace-char artist-line-char)
2551 (artist-replace-char (artist-coord-get-new-char coord)))
2564 (artist-replace-char (artist-coord-get-saved-char coord))
2589 (line-char (artist-direction-char direction))
2595 (if artist-line-char-set
2596 (artist-replace-char artist-line-char)
2597 (artist-replace-char (artist-intersection-char
2598 line-char
2620 (artist-replace-char (aref shape-info i))
2638 (let* ((artist-line-char (artist-compute-line-char))
2639 (artist-line-char-set artist-line-char)
2699 (let* ((artist-line-char (artist-compute-line-char))
2700 (artist-line-char-set artist-line-char)
2738 (artist-replace-chars artist-fill-char w)
2755 (artist-replace-chars artist-fill-char w)
2765 The character is replaced with the character in `artist-fill-char'."
2767 (artist-replace-char (if artist-line-char-set
2768 artist-line-char
2769 (if artist-fill-char-set
2770 artist-fill-char
2771 artist-default-fill-char))))
2776 The character is replaced with the character in `artist-fill-char'.
2780 (let ((artist-line-char (if artist-line-char-set
2781 artist-line-char
2782 (if artist-fill-char-set
2783 artist-fill-char
2784 artist-default-fill-char))))
2790 (artist-replace-char artist-line-char)
2967 (buf-c (artist-get-char-at-xy-conv x y))
2969 (next-c (cond ((null this-c) artist-spray-new-char)
2973 (artist-replace-char next-c))
2994 (defun artist-erase-char (x1 y1)
2996 The character is replaced with the character in `artist-erase-char'."
2998 (artist-replace-char artist-erase-char))
3002 (let ((artist-line-char-set t)
3003 (artist-fill-char-set t)
3004 (artist-line-char artist-erase-char)
3005 (artist-fill-char artist-erase-char))
3029 (let ((c (artist-get-char-at-xy-conv x y)))
3059 (setq c (artist-get-char-at-xy-conv x-tmp y-tmp))
3102 (if artist-line-char-set
3104 (let ((c (artist-get-char-at-xy-conv x y)))
3149 (let* ((buffer-c (artist-get-char-at-xy-conv x y))
3150 (new-c (artist-unintersection-char line-c buffer-c)))
3152 (artist-replace-char new-c))
3161 `artist-erase-char'. Output is a list of endpoints for lines
3379 ;; First, if last char in that quadrant is `/', then replace it with `)'
3387 (if (= (artist-coord-get-new-char last-coord) ?/)
3388 (artist-coord-set-new-char last-coord artist-ellipse-right-char)))
3396 (let ((c (artist-coord-get-new-char coord)))
3402 ;; The cdr below is so we don't draw the middle right char twice
3409 (let ((c (artist-coord-get-new-char coord)))
3414 ((= c artist-ellipse-right-char)
3415 artist-ellipse-left-char)
3418 ;; and middle bottom char twice.
3450 (if artist-line-char-set
3451 (artist-replace-char artist-line-char)
3452 (artist-replace-char (artist-coord-get-new-char coord)))
3478 (line-char (if artist-line-char-set artist-line-char ?-))
3487 (artist-coord-add-saved-char new-coord
3488 (artist-get-char-at-xy line-x line-y))
3490 (artist-replace-char line-char)
3509 (let* ((artist-line-char (artist-compute-line-char))
3510 (artist-line-char-set artist-line-char)
3542 (artist-replace-char (artist-coord-get-saved-char coord))
3557 (let* ((artist-line-char (artist-compute-line-char))
3558 (artist-line-char-set artist-line-char)
3591 (artist-replace-chars artist-fill-char
3695 (let ((char-at-xy (artist-get-char-at-xy-conv x y))
3699 (= char-at-xy (artist-get-char-at-xy-conv x y)))
3711 (goto-char (point-max))
3722 "Flood-fill starting at X1, Y1. Fill with the char in `artist-fill-char'."
3726 (c (artist-get-char-at-xy-conv x1 y1))
3727 (artist-fill-char (if artist-fill-char-set
3728 artist-fill-char
3729 artist-default-fill-char)))
3731 ;; Fill only if the fill-char is not the same as the character whose
3734 (if (not (= c artist-fill-char))
3754 ;; Remember char for position on line above and below, so we
3766 (while (and (>= x 0) (= c (artist-get-char-at-xy-conv x y)))
3768 (let ((c-above (artist-get-char-at-xy-conv x (- y 1))))
3782 (let ((c-below (artist-get-char-at-xy-conv x (1+ y))))
3789 (artist-replace-chars artist-fill-char (1+ (- x-rightmost x-leftmost)))
3815 (aset arrow-point 1 (artist-get-char-at-xy x y))
3824 (defsubst artist-arrow-point-get-orig-char (arrow-point)
3825 "Retrieve the orig char component of an ARROW-POINT."
4409 (defun artist-backward-char (&optional n)
4410 "Move cursor backward optional N chars (default is 1), updating curr shape.
4414 (artist-forward-char (- n))
4415 (artist-forward-char n)))
4417 (defun artist-forward-char (&optional n)
4419 If N is negative, move backward."
4437 (defun artist-select-fill-char (c)
4439 (interactive "cType fill char (type RET to turn off): ")
4440 (cond ((eq c ?\r) (setq artist-fill-char-set nil)
4442 (t (setq artist-fill-char-set t)
4443 (setq artist-fill-char c)
4447 (defun artist-select-line-char (c)
4449 (interactive "cType line char (type RET to turn off): ")
4450 (cond ((eq c ?\r) (setq artist-line-char-set nil)
4452 (t (setq artist-line-char-set t)
4453 (setq artist-line-char c)
4459 (defun artist-select-erase-char (c)
4461 (interactive "cType char to use when erasing (type RET for normal): ")
4462 (cond ((eq c ?\r) (setq artist-erase-char ?\s)
4464 (t (setq artist-erase-char c)
4469 (defun artist-charlist-to-string (char-list)
4472 (while (not (null char-list))
4473 (setq result (concat result (char-to-string (car char-list))))
4474 (setq char-list (cdr char-list)))
4481 (defun artist-select-spray-chars (chars initial-char)
4486 ;; and loops if the answer is not a char within the string in 1.
4490 (char-list (artist-string-to-charlist str))
4493 (first-char-as-str (char-to-string (car char-list)))
4500 err-msg str first-char-as-str)))
4502 (setq first-s first-char-as-str))
4504 (setq ok (not (null (member first-c char-list))))
4508 (char-to-string first-c)))))
4510 (list char-list initial)))
4512 (setq artist-spray-new-char initial-char)
4514 (artist-charlist-to-string chars) (char-to-string initial-char)))
4600 (orig-char (artist-arrow-point-get-orig-char arrow-point))
4601 (arrow-char (aref artist-arrows direction))
4604 (goto-char (marker-position arrow-marker))
4607 (if arrow-char
4608 (artist-replace-char arrow-char))
4609 (artist-replace-char orig-char))
4622 (orig-char (artist-arrow-point-get-orig-char arrow-point))
4623 (arrow-char (aref artist-arrows direction))
4626 (goto-char (marker-position arrow-marker))
4629 (if arrow-char
4630 (artist-replace-char arrow-char))
4631 (artist-replace-char orig-char))
4696 (defun artist-select-op-erase-char ()
4699 (artist-select-operation "erase char"))
4876 (let ((artist-curr-go 'erase-char))
4906 (window-start-y (save-excursion (goto-char (window-start))
5397 ;; Example: the erase-char mode, the pen and pen-line modes.