src/drawing/plot.lisp @ 4f1a10f25245

Update to latest cl-losh
author Steve Losh <steve@stevelosh.com>
date Sun, 09 Jun 2019 11:27:41 -0400
parents d5b02d8c4803
children 4b63cff9f912
(in-package :flax.drawing)

;;; A plot is an SVG without the square background.
;;; TODO: shell out to svgsort automatically?


(defclass* plot-canvas (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")


(defmethod draw ((canvas plot-canvas) (p point))
  (svg:draw (scene canvas)
            (:path :d (make-svg-path-data canvas (list (location p)
                                                       (location p)))
             :stroke-linecap "round"
             :fill "none"
             :stroke (web-color (color p))
             :stroke-width 1
             :stroke-opacity (opacity p))))