Generate a list of drawing-objects which display the bars of a bar chart.
lw-gt
generate-bar-chart values &key function start-position step-position width orientation colors title-position argument font base title-color absolute-p => bars
values⇩ |
A list. |
function⇩ |
A function of one or two arguments, depending on argument. |
start-position⇩ |
The position of the first bar. |
step-position⇩ |
The distance between bars. |
width⇩ |
The width of a bar. |
orientation⇩ |
One of the keywords :rightward , :leftward , :downward and :upward . |
colors⇩ |
A list of colors. |
title-position⇩ |
One of the keywords :middle , :top , :bottom , :right and :left , or nil . |
argument⇩ |
A Lisp object. |
font⇩ |
A font specification. |
base⇩ |
The position of the "base" of each bar. |
title-color⇩ |
A color specification. |
absolute-p⇩ |
A boolean. |
bars |
A list of drawing-objects. |
The function generate-bar-chart
generates a list of drawing-objects which display the bars of a bar chart.
values is a list giving the values that need displaying. There is a bar for each element in the list.
For each element in values, generate-bar-chart
uses the function function to find the length of the bar and a title to add to it. If argument is non-nil, function is called with two arguments: argument and the element of values. Otherwise, function is called with one argument, the element. function must return the length of the bar, and optionally the title as a second return value. The default value of argument is nil
.
If function is not supplied, the default function checks if the element is a list, and if it is returns the first element of it as the length and the second element as the title. If it is not a list it returns it and nil
as the second value.
generate-bar-chart
then generates a drawing-object that draws the bar, which is a rectangle with length being the result of the function and width width. The default value of width is 1.
For orientation :upward
or :downward
, the "length dimension" is vertical, and the "width dimension" is the horizontal, and the reverse for the other orientations. The default value of orientation is :upward
.
The position of the rectangle in the "length dimension" is from base to (+ base length) for orientation :upward
and :leftward
, and from base to (- base length) for the other orientations. The default value of base is 0.
start-position and step-position determine the position of the center of the rectangle in the "width dimension". Hence the position of the n'th rectangle in the "width dimension" is from:
(- (+ #START-POSITION (* (1- n) #STEP-POSITION)) (/ #WIDTH 2))
to:
(+ (+ #START-POSITION (* (1- n) #STEP-POSITION)) (/ #WIDTH 2))
The default value of start-position is 1. The default value of step-position is (* 3 width).
The color of the rectangle is taken from the items of colors in turn, starting again from the beginning when reaching the end. The default value of colors is (:red :green :blue :yellow :purple)
.
generate-bar-chart
then also computes where the string should appear with respect to the bar, depending on title-position, generates a drawing object using make-draw-string, passing it font, absolute-p and title-color. title-position nil
means the end of the bar. The default value of font is the font of the pane. absolute-p determines whether the title is drawn in absolute mode. The default value of absolute-p is t
.
drawing-object
14.1 Lower level - drawing objects and objects displayers
CAPI User Guide and Reference Manual (Macintosh version) - 01 Dec 2021 19:31:48