(send *vista* :desktop-sizes (list 1024 674))(send *vista* :save-desktop t)(setf *color-mode* 1)(send *vista* :background-color T)(send *workmap* :use-color T)(setf *workmap-background* '(0.5 0.75 1))(setf *toolbar-background* '(0.25 1 0.5))(setf *data-icon-color* '(0 0 0.75))(setf *model-icon-color* '(0 0.5 0))(setf *tool-icon-color* '(0.75 0 0))(setf *guide-icon-color* '(0.75 0 0))(setf *button-on-color* '(1 0 0))(setf *button-off-color* '(1 1 1))