| (setq kouho-distance now-distance |
(setq kouho-distance now-distance |
| kouho-line i))))))) |
kouho-line i))))))) |
| |
|
| (defun delete-skelton-element (win code x y prim) |
(defun delete-skeleton-element (win code x y prim) |
| (lets ((ret nil) |
(lets ((ret nil) |
| (points (get-points prim)) |
(points (get-points prim)) |
| (lines (get-lines prim)) |
(lines (get-lines prim)) |
| (setq lines (rem-nth nth-nearest lines))) |
(setq lines (rem-nth nth-nearest lines))) |
| (t (beep win)))) |
(t (beep win)))) |
| (beep win)) |
(beep win)) |
| (setq ret (shapeup-skelton (cons points (cons lines aux-info)))) |
(setq ret (shapeup-skeleton (cons points (cons lines aux-info)))) |
| (clear-win win) |
(clear-win win) |
| (if grid (grid-win win)) |
(if grid (grid-win win)) |
| (draw-skelton-win win ret) |
(draw-skeleton-win win ret) |
| (redraw-win win) |
(redraw-win win) |
| ret)) |
ret)) |
| |
|
Diff of /lisp/tools/delprim.l
Parent Directory
| 
Revision Log