Example - Squares

• Define a simple graphical object

(defclass square ()

((x :initform 0 :initarg :x :accessor x-position)

(y :initform 0 :initarg :y :accessor y-position)

(width :initform 0 :initarg :width :accessor width)))

(setq my-square (make-instance 'square :x 5 :y 5

:width 15))

Previous slide

Next slide

Back to first slide

View graphic version