Add plot output
| author |
Steve Losh <steve@stevelosh.com> |
| date |
Fri, 23 Mar 2018 19:28:05 -0400 |
| parents |
(none) |
| children |
d5b02d8c4803 |
(in-package :flax.drawing)
;;; A plot is an SVG without the square background.
;;; TODO: shell out to svgsort automatically?
(defclass* (plot-canvas :conc-name "") (svg-canvas) ())
(defmethod make-canvas ((type (eql :plot)) &key height width)
(let ((scene (svg:make-svg-toplevel 'svg:svg-1.1-toplevel
:height height :width width)))
(make-instance 'plot-canvas
:height height
:width width
:scene scene)))
(defmethod file-extension ((type (eql :plot)))
"svg")