src/drawing/plot.lisp @ 09e906903662

Add Bezier curve support
author Steve Losh <steve@stevelosh.com>
date Sun, 09 Jun 2019 16:38:17 -0400
parents 4b63cff9f912
children (none)
(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 padding)
  (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
      :padding padding)))

(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 (list (location p)
                                                             (location p))))
             :stroke-linecap "round"
             :fill "none"
             :stroke (web-color (color p))
             :stroke-width 1
             :stroke-opacity (opacity p))))