Пришла пора разбираться с ООП. Правы были советующие - без этого никуда! Для начала перевел все примитивы в классы
(defclass raster-image ()
((layer :initarg :layer)
(x1 :initarg :x1)
(y1 :initarg :y1)
(z1 :initarg :z1)
(rotation-angle :initarg :rotation-angle)
(width :initarg :width)
(height :initarg :height)
(scale :initarg :scale)
(brightness :initarg :brightness)
(contrast :initarg :contrast)
(fade :initarg :fade)
(path :initarg :path)
(show-image :initarg :show-image)
(show-clipped :initarg :show-clipped)
(transparency :initarg :transparency)))
Соответствующие спискам строки закомментированы и в будущем удалятся. Продалжаю читать PCL
Подписаться на:
Комментарии к сообщению (Atom)
Хех, что то все не так явно! Могу все хранить в *current-draw*, но как данные из переменной сохранять в файле??? И как обратно? Что то не найду этой темы нигде
ОтветитьУдалитьМожно использовать cl-store, он просто сериализует указанный объект.
ОтветитьУдалитьА можно написать преобразователь из/в внешнего формата.
cl-store стоит поковырять конечно, а преобразователь мне кажется велосипедом. Неужели в лиспе нет готового средства? Хотя преобразователь - дело нехитрое, по сути тот же парсер
ОтветитьУдалить