История изменений

Исправление saufesma, 02.04.22 20:14 (текущая версия) :

Сегодня такая мысль пришла

list-of-args (startx starty endx endy ... startxn startyn endxn endyn)

(defun make-arrow (startx starty endx endy)
       (make-instance 'capi:arrow-pinboard-object
                      :start-x startx :end-x endx
                      :start-y starty :end-y endy
                      :graphics-args
                      '(:thickness 1 :foreground :red))))

(setq my-arrows (list
(if (< 0 (length list-of-args))
do
(make-arrow startx starty endx endy)
(capi:contain my-arrows)

Исправление saufesma, 02.04.22 20:13:

Сегодня такая мысль пришла

list-of-args (startx starty endx endy ... startxn startyn endxn endyn)

(defun make-arrow (startx starty endx endy)
       (make-instance 'capi:arrow-pinboard-object
                      :start-x startx :end-x endx
                      :start-y starty :end-y endy
                      :graphics-args
                      '(:thickness 1 :foreground :red))))

(setq my-arrows (list
(if (< 0 (length list-of-args))
do
(make-arrow (startx starty endx endy))
(capi:contain my-arrows)

Исходная версия saufesma, 02.04.22 20:10:

Сегодня такая мысль пришла

list-of-args (startx starty endx endy ... startxn startyn endxn endyn)
(setq my-arrows (list
(if (< 0 (length list-of-args))
do
(defun make-arrow (startx starty endx endy)
       (make-instance 'capi:arrow-pinboard-object
                      :start-x startx :end-x endx
                      :start-y starty :end-y endy
                      :graphics-args
                      '(:thickness 1 :foreground :red))))
(capi:contain my-arrows)