maufdez

(defvar *canvas-name* "myCanvas")
(defvar *canvas-style* "border:1px solid #000000;")
(defvar *canvas-width* 400)
(defvar *canvas-height* 400)

(defun create-canvas ()
  ((@ document write)
   (ps-html ((:canvas :id *canvas-name*
		      :width *canvas-width*
		      :height *canvas-height*