(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)))) |
|
|