3379 |
;; that look like: \ / instead we get: ( ) |
;; that look like: \ / instead we get: ( ) |
3380 |
;; \ / \ / |
;; \ / \ / |
3381 |
;; --------- --------- |
;; --------- --------- |
3382 |
(let ((last-coord (last point-list))) |
(let ((last-coord (car (last point-list)))) |
3383 |
(if (= (artist-coord-get-new-char last-coord) ?/) |
(if (= (artist-coord-get-new-char last-coord) ?/) |
3384 |
(artist-coord-set-new-char last-coord artist-ellipse-right-char))) |
(artist-coord-set-new-char last-coord artist-ellipse-right-char))) |
3385 |
|
|
3848 |
(x2 (artist-endpoint-get-x ep2)) |
(x2 (artist-endpoint-get-x ep2)) |
3849 |
(y2 (artist-endpoint-get-y ep2)) |
(y2 (artist-endpoint-get-y ep2)) |
3850 |
(dir1 (artist-find-direction x2 y2 x1 y1)) |
(dir1 (artist-find-direction x2 y2 x1 y1)) |
3851 |
(epn (last point-list)) |
(epn (car (last point-list))) |
3852 |
(epn-1 (last point-list 2)) |
(epn-1 (car (last point-list 2))) |
3853 |
(xn (artist-endpoint-get-x epn)) |
(xn (artist-endpoint-get-x epn)) |
3854 |
(yn (artist-endpoint-get-y epn)) |
(yn (artist-endpoint-get-y epn)) |
3855 |
(xn-1 (artist-endpoint-get-x epn-1)) |
(xn-1 (artist-endpoint-get-x epn-1)) |