| (put-info newl 'hirawidth newwid)) |
(put-info newl 'hirawidth newwid)) |
| (setq l newl))) |
(setq l newl))) |
| (setq newlines (append newlines (ncons l)))))) |
(setq newlines (append newlines (ncons l)))))) |
| (setq ret (shapeup-skelton (cons points (cons newlines info)))) |
(setq ret (shapeup-skeleton (cons points (cons newlines 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)))) |
| |
|