ADW-Charting: simple charts in Common Lisp

(with-chart (:pie 300 200)
  (add-slice "A" 5.0d0)
  (add-slice "B" 2.0d0)
  (save-file "minimal-pie-chart-vecto.png"))

The same pie chart using the Google Chart API to generate the PNG:

(with-gchart (:pie 300 200)
  (add-slice "A" 5.0d0)
  (add-slice "B" 2.0d0)
  (add-features :label)
  (save-file "minimal-pie-chart-google.png"))

(with-chart (:line 300 200)
  (add-series "Rank" '((0 10) (1 18) (2 19) (3 17)))
  (set-axis :y "Bang")
  (set-axis :x "Buck")
  (save-file "minimal-line-chart-vecto.png"))

(with-gchart (:line 300 200)
  (add-series "Rank" '((0 10) (1 18) (2 19) (3 17)))
  (set-axis :y "Bang")
  (set-axis :x "Buck")
  (add-feature :label)
  (save-file "minimal-line-chart-google.png"))

(with-chart (:bar 300 200)
  (add-series "Rank" '((0 10) (1 18) (2 19) (3 17)))
  (set-axis :y "Bang")
  (set-axis :x "Buck")
  (save-file "minimal-bar-chart-vecto.png"))

(with-gchart (:v-bar 300 200)
  (add-series "Rank" '((0 10) (1 18) (2 19) (3 17)))
  (set-axis :y "Bang")
  (set-axis :x "Buck")
  (add-feature :label)
  (save-file "minimal-bar-chart-google.png"))

(defmacro with-chart ((type width height &key (background '(1 1 1))) &body body))

Initializes a vecto chart.

• type determines how the chart is rendered. Must be one of:
  
  • :line - normal line chart
  • :bar - normal bar chart
  • :pie - normal pie chart
  • :star-rating - displays a percentage as partially filled stars. See the star rating example. Be sure the width is at least 5 times the height for this chart type.
• width image width in pixels
  
• height image height in pixels
  
• background is an optional background color for the chart, defaulting to white.
  

(defmacro with-gchart ((type width height &key (background '(1 1 1))) &body body))

Initializes a google chart.

• type determines how the chart is rendered. Must be one of:
  
  • :pie - normal pie chart
  • :pie-3d - 3d pie chart
  • :line - normal line chart
  • :v-bar - bar chart with bars rising vertically (stacked)
  • :h-bar - bar chart with bars rising horizontally
  • :v-gbar - ?
  • :h-gbar - ?
• width image width in pixels
  
• height image height in pixels
  
• background is an optional background color for the chart, defaulting to white.
  

(defun google-o-meter (percentage width &key label colors show-percentage)) => url

The meter is very different from other charts types, so has it's own little function. Image height is calculated from the width.

It currently only returns the URL needed to fetch the chart from google, and creating a PNG from that is not part of this library.

• percentage returns the URL to request to get the google-o-meter chart
  
• width image width in pixels
  
• label a title to have on the meter
  
• colors a list of colors used to make the gradient on the meter
  
• show-percentage when non-nil, print the percentage on the meter
  

• with-pie-chart: use (with-chart (:pie ...
• with-line-chart: use (with-chart (:line ...
• with-bar-chart: use (with-chart (:bar ...

• add-slice
  

  (defun add-slice (label value &key color))
  

  Adds a slice to the pie.

  • label a string to identify this slice
    
  • value any number
    
  • color a color for this slice, see colors. A unique color will be automatically assigned.
    

• add-series
  

  (defun add-series (label data &key color (mode 'default)))
  

  • label a string to identify this series
    
  • data a list of (x y) pairs
    
  • color a color for this series, see colors. A unique color will be automatically assigned.
    
  • mode experimental use :line on bar charts to render this series as a line instead of a bar.
    
• set-axis
  

  (defun set-axis (axis title &key draw-gridlines-p
                   (label-formatter #'default-label-formatter)
                   (mode :value)
                   data-interval
                   scalefn
                   draw-zero-p
                   angle))
  

  • axis which axis you'd like to configur, must be :x or :y
    
  • title a string used to label the axis. nil for no axis label
    
  • draw-gridlines-p when non-nil, draws fairly ugly lines that match with the axis labels
    
  • label-formatter determines how values from your data is converted to axis labels. You can pass this:
    
    1. a function of 1 argument
    2. a string to be used as the control string to a format call

    The default tries to format values in usually acceptable way.

  • draw-zero-p if non-nil, force this axis to show 0, even if it is notcontained within the data.
    
  • data-interval a number that should be used as the interval whendrawing axis labels. If nil, a suitable interval will be chosenautomatically.
    
  • mode experimental determines how the axis values are calculated, intended be used to specify non-ordered axis values in the future.
    
  • scalefn experimental a function used to scale data on this axis before rendering. Currently only respected by the google backend, and I'm not sure why.
    
  • angle experimental used to rotate axis label text
    

• set-rating
  

  (defun set-rating (rating))
  

  Determines how much of the stars are filled in.

  • rating the number of stars to fill, as a number, with a max of 5.
    
• set-color
  

  (defun set-color (color))
  

  Determines star color.

  • color a color for the stars, see colors.
    

• add-feature
  

  (defgeneric add-feature (feature-name))
  

  Google charts have many options that can be turned on, and these are modeled as features

  • feature-name a keyword indicating what google option to enable.
    feature-name must be one of:
    1. :label adds slice/series labels
    2. :transparent-background renders the png with a transparent background
    3. :adjusted-zero adjust the zero line of the chart to match your data. See bar chart zero line.
    4. :data-scaling calculate graph bounds based on your data. See data scaling.
    5. :label-percentages add percentages after labels on pie charts (automatically adds the :label feature)
• add-features
  

  (defun add-features (&rest names))
  

  Calls add-feature for each item in names.

  • names list of keywords applicable for add-feature.
    
• add-title
  

  (defmethod add-title (title))
  

  Sets the chart title.

  • title string to be used for the title of the chart
    

(defun save-file (filename)) => truename

Returns the truename of the newly written file.

• filename the path to save as, will automatically overwrite
  

(defun save-stream (stream))

• stream the stream to write PNG output to
  

(defun make-color (html-color)) => color

Converts a string into a color.

• html-color a hex string like an html color (eg: "aa4422")
  

(defun chart-url ()) => url

Calculates the URL needed to generate the google chart, returns it as a string.