Lines Matching refs:endpoint
50 ;; then see 1's and 2's which mark the 1st and 2nd endpoint of the line
950 `artist-make-endpoint'
965 `artist-make-endpoint'.
1281 For lines/rectangles/squares: sets the first/second endpoint
1284 When cutting/copying: Sets first/last endpoint of rect/square
2498 (defun artist-make-endpoint (x y)
2499 "Create an endpoint at X, Y."
2500 (let ((new-endpoint (make-vector 2 x)))
2501 (aset new-endpoint 1 y)
2502 new-endpoint))
2504 (defun artist-endpoint-get-x (endpoint)
2506 (aref endpoint 0))
2508 (defun artist-endpoint-get-y (endpoint)
2510 (aref endpoint 1))
2517 "Retrieve the first endpoint of a 2-point object OBJ."
2521 "Retrieve the second endpoint of a 2-point object OBJ."
2540 (let ((endpoint1 (artist-make-endpoint x1 y1))
2541 (endpoint2 (artist-make-endpoint x2 y2)))
2591 (endpoint1 (artist-make-endpoint x y))
2601 ;; This is the last element. Set the second endpoint
2602 (setq endpoint2 (artist-make-endpoint x y)))
2644 (endpoint1 (artist-make-endpoint x1 y1))
2645 (endpoint2 (artist-make-endpoint x2 y2)))
2706 (endpoint1 (artist-make-endpoint new-x1 new-y1))
2707 (endpoint2 (artist-make-endpoint new-x2 new-y2))
3015 (defun artist-vap-find-endpoint (x1 y1 step-x step-y accept-set reject-set)
3016 "Find one endpoint for line through X1, Y1.
3017 The endpoint is searched for in the direction defined by STEP-X, STEP-Y,
3022 An endpoint is a cons pair, (ENDPOINT-X . ENDPOINT-Y)."
3047 ;; accept-set. If not, we have found the endpoint.
3069 ;; That means we are done searching for the endpoint.
3076 An endpoint is a cons pair, (ENDPOINT-X . ENDPOINT-Y)."
3077 (list (artist-vap-find-endpoint x y 1 0 '(?- ?+) '(?\s))
3078 (artist-vap-find-endpoint x y -1 0 '(?- ?+) '(?\s))))
3082 An endpoint is a cons pair, (ENDPOINT-X . ENDPOINT-Y)."
3083 (list (artist-vap-find-endpoint x y 0 1 '(?| ?+) '(?\s))
3084 (artist-vap-find-endpoint x y 0 -1 '(?| ?+) '(?\s))))
3088 An endpoint is a cons pair, (ENDPOINT-X . ENDPOINT-Y)."
3089 (list (artist-vap-find-endpoint x y 1 -1 '(?/ ?X) '(?\s))
3090 (artist-vap-find-endpoint x y -1 1 '(?/ ?X) '(?\s))))
3094 An endpoint is a cons pair, (ENDPOINT-X . ENDPOINT-Y)."
3095 (list (artist-vap-find-endpoint x y 1 1 '(?\\ ?X) '(?\s))
3096 (artist-vap-find-endpoint x y -1 -1 '(?\\ ?X) '(?\s))))
3101 An endpoint is a cons pair, (ENDPOINT-X . ENDPOINT-Y)."
3128 An endpoint is a pair (X . Y)."
3162 through X1, Y1. An endpoint is a cons pair, (ENDPOINT-X . ENDPOINT-Y)."
3225 (lambda (endpoint) (push endpoint ep-stack))
3459 (artist-make-2point-object (artist-make-endpoint x1 y1)
3460 (artist-make-endpoint x-radius y-radius)
3495 (artist-make-2point-object (artist-make-endpoint x1 y1)
3496 (artist-make-endpoint x-radius y-radius)
3850 (x1 (artist-endpoint-get-x ep1))
3851 (y1 (artist-endpoint-get-y ep1))
3852 (x2 (artist-endpoint-get-x ep2))
3853 (y2 (artist-endpoint-get-y ep2))
3857 (xn (artist-endpoint-get-x epn))
3858 (yn (artist-endpoint-get-y epn))
3859 (xn-1 (artist-endpoint-get-x epn-1))
3860 (yn-1 (artist-endpoint-get-y epn-1))
3871 (x1 (artist-endpoint-get-x endpoint1))
3872 (y1 (artist-endpoint-get-y endpoint1))
3873 (x2 (artist-endpoint-get-x endpoint2))
3874 (y2 (artist-endpoint-get-y endpoint2)))
3896 (x1 (artist-endpoint-get-x artist-key-endpoint1))
3897 (y1 (artist-endpoint-get-y artist-key-endpoint1)))
3908 (x1 (artist-endpoint-get-x artist-key-endpoint1))
3909 (y1 (artist-endpoint-get-y artist-key-endpoint1)))
3954 (x1 (artist-endpoint-get-x artist-key-endpoint1))
3955 (y1 (artist-endpoint-get-y artist-key-endpoint1)))
3967 (x1 (artist-endpoint-get-x artist-key-endpoint1))
3968 (y1 (artist-endpoint-get-y artist-key-endpoint1)))
4037 (x1 (artist-endpoint-get-x artist-key-endpoint1))
4038 (y1 (artist-endpoint-get-y artist-key-endpoint1))
4063 (x1 (artist-endpoint-get-x artist-key-endpoint1))
4064 (y1 (artist-endpoint-get-y artist-key-endpoint1))
4156 ;; Set first endpoint
4157 (setq artist-key-endpoint1 (artist-make-endpoint x y))
4160 (setq artist-key-poly-point-list (list (artist-make-endpoint x y)))
4178 (let ((x1 (artist-endpoint-get-x artist-key-endpoint1))
4179 (y1 (artist-endpoint-get-y artist-key-endpoint1))
4198 (setq x2 (artist-endpoint-get-x endpoint2))
4199 (setq y2 (artist-endpoint-get-y endpoint2))))
4201 ;; Add the endpoint to the list of poly-points
4204 (list (artist-make-endpoint x2 y2))))
4212 ;; Start drawing a new 2-point-shape from last endpoint.
4217 (setq artist-key-endpoint1 (artist-make-endpoint x1 y1))
4294 ;; Set first endpoint
4295 (setq artist-key-endpoint1 (artist-make-endpoint x y))
4306 (let ((x1 (artist-endpoint-get-x artist-key-endpoint1))
4307 (y1 (artist-endpoint-get-y artist-key-endpoint1))
5057 (setq x1-last (artist-endpoint-get-x endpoint2))
5058 (setq y1-last (artist-endpoint-get-y endpoint2))))
5059 (setq point-list (cons (artist-make-endpoint x1-last y1-last)
5450 ;; Use the artist-endpoint-* accessors to create and inspect