История изменений
Исправление saufesma, (текущая версия) :
(defvar startx)
(defvar starty)
(defvar endx)
(defvar endy)
(setq startx 0)
(setq starty 50)
(setq endx 0)
(setq endy 20)
(defun make-arrow (startx endx starty 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 list-of-startx (list 50 100 200))
(defun slave (list-of-startx startx endx starty endy)
(if (eq (car list-of-startx) nil)
my-arrows
(progn
(setq endx (setq startx (car list-of-startx)))
(setq my-arrows (list (make-arrow startx endx starty endy))) ;;алгоритм не тот
(slave (cdr list-of-startx) startx endx starty endy))))
(slave list-of-startx startx endx starty endy)
(capi:contain my-arrows)
Не знаю пока где косяк, рисует только последнюю стрелку my-arrows => (#<CAPI:ARROW-PINBOARD-OBJECT 40200A27AB>)
Исправление saufesma, :
(defvar startx)
(defvar starty)
(defvar endx)
(defvar endy)
(setq startx 0)
(setq starty 50)
(setq endx 0)
(setq endy 20)
(defun make-arrow (startx endx starty 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 list-of-startx (list 50 100 200))
(defun slave (list-of-startx startx endx starty endy)
(if (eq (car list-of-startx) nil)
my-arrows
(progn
(setq endx (setq startx (car list-of-startx)))
(setq my-arrows (list (make-arrow startx endx starty endy))) ;;КОСЯК ТУТ
(slave (cdr list-of-startx) startx endx starty endy))))
(slave list-of-startx startx endx starty endy)
(capi:contain my-arrows)
Не знаю пока где косяк, рисует только последнюю стрелку my-arrows => (#<CAPI:ARROW-PINBOARD-OBJECT 40200A27AB>)
Исходная версия saufesma, :
(defvar startx)
(defvar starty)
(defvar endx)
(defvar endy)
(setq startx 0)
(setq starty 50)
(setq endx 0)
(setq endy 20)
(defun make-arrow (startx endx starty 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 list-of-startx (list 50 100 200))
(defun slave (list-of-startx startx endx starty endy)
(if (eq (car list-of-startx) nil)
my-arrows
(progn
(setq endx (setq startx (car list-of-startx)))
(setq my-arrows (list (make-arrow startx endx starty endy)))
(slave (cdr list-of-startx) startx endx starty endy))))
(slave list-of-startx startx endx starty endy)
(capi:contain my-arrows)
Не знаю пока где косяк, рисует только последнюю стрелку my-arrows => (#<CAPI:ARROW-PINBOARD-OBJECT 40200A27AB>)