Module:Charts SVG
From EverybodyWiki Bios & Wiki
 | This module is rated as alpha. It is ready for third-party input, and may be used on a few pages to see if problems arise, but should be watched. Suggestions for new features or changes in their input and output mechanisms are welcome. |
| This documentation is intended to be the released documentation for the module.
Therefore this notice will be removed when the module is 'released' (when the rating is changed from alpha to beta). For background to the project, and current issues with the module, see Module talk:Charts SVG. |
This module creates charts by the generation of code for an SVG file.
The module exposes five functions: barChart, lineChart, mixedChart, scatterChart and pieChart.
Setup & Usage
This module is not intended to be used in Wikipedia articles. It is best used in a page in your own userspace, or in a sandbox. On an existing page, just add {{#invoke:Charts SVG}} (with further parameters) to the page, and click Preview. When you do, the module will show a box that includes a lot of text, starting with <?xml version="1.0" encoding="UTF-8" ?>.
The process of using the module from there involves a number of steps:
- on your computer, create a file with the filename extension '.svg' (eg: mychart.svg)
- open this file with a text editor (eg: Notepad)
- back in your browser, use your mouse to select the text within the box. It will start with <?xml version="1.0" encoding="UTF-8" ?> and end with </svg>.
- copy this text, paste it into the file on your computer, and save the file.
- To test the file is producing the image you want, you can view the file directly in some web browsers, or go to the Wikimedia Labs SVG Checker.
- Note that results in web browsers, and in the Wikimedia Labs checker, may be different from the final Wikimedia rendering. Currently the only way to be absolutely sure of the final rendering is to upload the file and view it on a Wikipedia page.
- Once you are happy with the image, upload the .svg file, then you can use it in a Wikipedia article using a [[File:]] link.
- If you upload the image to commons, please add [[Category:Charts created with Charts SVG]] to the bottom of the file description page for the image.
- It is also good practice to include the module-call that produced the image on the file description page.
Invoking the Module
The first parameter in the module call must be one of the following function names:
| barChart | Creates a bar chart with X and Y axes, showing vertical bars of height Y at position X. |
| lineChart | Creates a line chart with X and Y axes, showing lines between specified X/Y points. |
| mixedChart | Creates a chart with X and Y axes, with both bars and lines. |
| scatterChart | Creates a scatter chart with X and Y axes, showing markers at specified X/Y points. |
| pieChart | Creates a pie chart with segments proportional to each of a series of values. |
Without further parameters the module will produce (for barChart, lineChart, mixedChart and scatterChart) a chart with X and Y axes and gridlines, but no other content. For a pieChart, it will produce a completely blank image.
A note on terminology: throughout this documentation 'image' means the whole area produced by the SVG code produced by this module, while 'chart' refers to the area bounded by the X and Y axes (or, for pie charts, the rectangle that includes the pie). Most texts appear (by default) outside the area of the 'chart'.
Script Errors and Messages
Instead of the SVG code, you may get some red text saying Script error. You can click on that text to get the details of the error. If the details simply say 'Script error: No such module.', the module name is in error. WP is case-sensitive about module names, so make sure the name is 'Charts SVG'. If the details say 'Script error: The function you specified did not exist.', the first parameter is not one of the exposed function names.
Any other Script errors are errors in the module script itself. Hopefully these do not occur, but if they do, please report them at Module talk:Charts SVG, including the backtrace information and details of the module call.
Output may also, instead of SVG code, be messages headed "Charts SVG messages", containing messages from the module about problems with the supplied parameters. A maximum of 10 problems are reported.
Parameters - X/Y Graphs
- for some parameters named using the style eg: Series<N>Values, parameters are ignored beyond the first value of <N> that does not have a parameter defined
- eg: if only Series1Values, Series2Values and Series4Values are defined, only series 1 and 2 will be used. This is noted in the parameter descriptions as "Must be in sequence."
Chart Size
| Parameter | Chart Types | Description | Type & Limits |
|---|---|---|---|
| ChartWidth | bar line mixed scatter |
Sets the width of the chart, in pixels. Default: 500 | Numeric must be >= 200 |
| ChartHeight | bar line mixed scatter |
Sets the width of the chart, in pixels. Default: 350 | Numeric must be >= 200 |
Axes
X and Y Axes
| Parameter | Chart Types | Description | Type & Limits |
|---|---|---|---|
| XMin YMin |
bar line mixed scatter |
The minimum value for the range of numbers shown on the axis. Default: 0 | Numeric |
| XMax YMax |
bar line mixed scatter |
The maximum value for the range of numbers shown on the axis. Default: 100 | Numeric |
| XAxisValueStep YAxisValueStep |
bar line mixed scatter |
The interval between intermediate values shown on the axis, and therefore the major tick-marks. Default: 10 | Numeric |
| XAxisMark2Step YAxisMark2Step |
bar line mixed scatter |
The interval between minor tick-marks shown on the axis. If not set, minor tick-marks are not shown. | Numeric |
Grid Lines
Grid lines are shown on charts (with axes) by default, though defining any data groups will hide the XAxis (vertical) grid lines. The default grid interval is that of the major tick-marks, which is equal to the ValueStep parameter for the axis.
| Parameter | Chart Types | Description | Type & Limits |
|---|---|---|---|
| XGrid YGrid |
bar line mixed scatter |
A value of none will hide the grid lines for the axis. Any numeric value sets the grid line interval. Default: the ValueStep value for the axis. | Numeric or none |
Second Y Axis
A second Y axis can be shown on the right hand side of the chart. The switch to show this axis is setting Y2Max to any value. However if Stack or Stack100 are set, a second Y Axis will not be shown.
| Parameter | Chart Types | Description | Type & Limits |
|---|---|---|---|
| Y2Min | bar line mixed scatter |
The minimum value for the range of numbers shown on the axis. Default: 0 | Numeric |
| Y2Max | bar line mixed scatter |
The maximum value for the range of numbers shown on the axis. | Numeric |
| YAxis2ValueStep | bar line mixed scatter |
The interval between intermediate values shown on the axis, and therefore the major tick-marks. Default: 10 | Numeric |
| YAxis2Mark2Step | bar line mixed scatter |
The interval between minor tick-marks shown on the axis. If not set, minor tick-marks are not shown. | Numeric |
Note that the zero points of the left and right Y axes will only automatically align if both YMin and Y2Min are zero.
Axis Titles and Values
| Parameter | Chart Types | Description | Type & Limits |
|---|---|---|---|
| XAxisTitle YAxisTitle YAxis2Title |
bar line mixed scatter |
Adds a title for the axis, which appears outside the axis values. | String |
| XAxisValueMultiplier YAxisValueMultiplier YAxis2ValueMultiplier |
bar line mixed scatter |
Multiplies the displayed values by the specified value. A common pattern would be to set YAxisValueMultiplier to 0.001, which would show '1', '2', ... on the Y axis instead of '1,000', '2,000'. Note that the Y data values in this example must still be in the range YMin to YMax.Default: 1 | Numeric |
| XAxisValueRound YAxisValueRound YAxis2ValueRound |
bar line mixed scatter |
Rounds the displayed values to the specified precision. Positive values round to that number of decimal places (but note that it will not add zeros to that number of places). Negative values round to that number of places above zero (eg: -3 will round to the nearest 1000). A value of zero will round to the nearest integer. The default is the number of decimal places in the axis ValueStep (eg: XAxisValueStep). | Numeric |
| XAxisValuePrefix YAxisValuePrefix YAxis2ValuePrefix |
bar line mixed scatter |
Add text to the start of the axis values. An underline in this text will be converted to a space when displayed. Commonly this would be $. | String |
| XAxisValueSuffix YAxisValueSuffix YAxis2ValueSuffix |
bar line mixed scatter |
Add text to the start of the axis values. An underline in this text will be converted to a space when displayed. Commonly this would be %. | String |
| XAxisValueFormat YAxisValueFormat YAxis2ValueFormat |
bar line mixed scatter |
By default the module will add numeric (eg: thousands) separators to numeric axis values if the maximum value for the axis (eg: XMax) is 10,000 or greater. Setting the ValueFormat parameter to none for an axis will suppress this formatting, any other value will force it to occur (regardless of the axis max value). Note that group names are text, and never re-formatted by the module. |
String |
| XAxisValueRotate | bar line mixed scatter |
Sets the angle by which the X-Axis values are rotated. By default the module shows X-Axis values horizontally, and centered on the mark. Rotating the text sets the start (for +ve rotate values) or end (for -ve rotate values) of the text near the mark. Default: 0 | Numeric (-90 to 90) |
Axis Line Colors
| Parameter | Chart Types | Description | Type & Limits |
|---|---|---|---|
| YAxisColor YAxis2Color |
bar line mixed scatter |
The color for the axis line. Must be a number in the colors table or an SVG color term. Default: black | String |
Data Series
| Parameter | Chart Types | Description | Type & Limits |
|---|---|---|---|
| Series1Values (Series2Values, ...) Must be in sequence. |
bar line mixed scatter |
A string containing a series of X and Y numeric-value pairs, all separated by spaces. Each pair specifies a point (in scatter and line charts), or an X-position and bar-height (in bar charts). Points, lines and bars in a series are all shown in the same style. | String |
| Series1Type (Series2Type, ...) |
mixed |
|
String |
| Series1YAxis2 (Series2YAxis2, ...) |
bar line mixed scatter |
Any value sets the series to use the 2nd Y axis (if it is displayed) as the scale for the Y values. | Any |
| Series1Labels (Series2Labels, ...) |
bar line mixed scatter |
Any value sets the series to show the Y-value of each data point next to that point (or above the bar). The default size for the labels text is the same as that for chart texts. Labels are not shown if Stack100 is set. | String |
| Series1Color (Series2Color, ...) |
bar line mixed scatter |
The color of the markers, lines or bars. Must be a number in the colors table or an SVG color term. The default color for series N is color N from the colors table. | String |
| Series1Line (Series2Line, ...) |
line mixed scatter |
Any value except none will show a line between the points of the series, none will hide the line. The default for scatter charts is none, for line charts yes. | String |
| Series1Width (Series2Width, ...) |
line mixed scatter |
The width of the line for the series, as a percentage of the standard line width. Default: 100 | Numeric +ve only |
| Series1Dash (Series2Dash, ...) |
line mixed scatter |
The dash pattern for the line for the series. Either a number (1 to 8), which will select a pattern from the dash patterns table, or an SVG dash pattern term. All lines are solid by default. | Numeric (1-8) or string |
| Series1Marker (Series2Marker, ...) |
line mixed scatter |
The marker shown at the points for the series. A number (1 to 7) will select a marker from the markers table. none will hide the markers for the series. Markers and lines for a series are always the same color. | Numeric (0-7) or none |
| Series1MarkerSize (Series2MarkerSize, ...) |
line mixed scatter |
The size of the series markers, as a percentage of the standard size. Default: 100 | Numeric +ve only |
| Series1MarkerFill (Series2MarkerFill, ...) |
line mixed scatter |
The fill color for the series markers. Must be a number in the colors table or an SVG color term. The default color for series N is color N from the colors table. | String |
| Series1Pattern (Series2Pattern, ...) |
bar line mixed |
The fill pattern for the area fill or bar. Must be a number in the fill-patterns table. | Numeric |
| Series1PatternColor (Series2PatternColor, ...) |
bar line mixed |
The color used for the fill pattern. Must be a number in the colors table or an SVG color term. The default color is black. | String |
Be aware that data series are displayed in reverse order, so series 1 is shown in front of series 2.
Data Groups
| Parameter | Chart Types | Description | Type & Limits |
|---|---|---|---|
| Group1Text (Group2Text, ...) Must be in sequence. |
bar line mixed scatter |
The name for the data group. If Group1Text is defined, the X axis will be divided into groups as required, and the X values in Series1Values (etc.) must be numbers corresponding to the defined groups. The XMin and XMax parameters will be ignored. | String |
Bar Width & Spacing
| Parameter | Chart Types | Description | Type & Limits |
|---|---|---|---|
| BarWidth | bar mixed |
The width of bars, in pixels. Only used if groups are not defined. Default: 20 | Numeric +ve only |
| BarSpace | bar mixed |
The width of the gap between bars in a group, as a percentage of the bar width. Only used if groups are defined. Default: 0 | Numeric +ve only |
Chart Variations
| Parameter | Chart Types | Description | Type & Limits |
|---|---|---|---|
| Area | line | Any value sets all series lines to be filled with color (or a fill pattern) from the X axis to the line. | Any |
| Stack | bar line |
Only valid if data groups are defined. Any value sets series Y values to be stacked. Be aware that this may require adjustment of the YMax value for proper display. Negative values are stacked separately from positive values. | Any |
| Stack100 | bar line |
Only valid if data groups are defined. Any value sets series Y values to be stacked, then re-scaled to the range 1 to 100. The Y axis will be forced to the range 1 to 100 (the YMin and YMax parameters will be ignored), and YAxisValueSuffix will be set to %. | Any |
In a lineChart, setting Stack or Stack100 will force Area 'on'.
Parameters - Pie Charts
For pie charts, the chart size is calculated from the PieRadius.
| Parameter | Chart Types | Description | Type & Limits |
|---|---|---|---|
| PieRadius | pie | The radius of the pie chart, in pixels. Default: 200 | Numeric +ve only |
| Explode | pie | A numeric value will explode the specified number of pie segments (starting with the first) away from the centre. Any non-numeric value will explode all segments. | Any |
| ExplodeRadius | pie | The proportion of the radius that exploded segments are shifted. A percentage of the total pie radius. Default: if Explode is non-numeric, 10, otherwise 20. | Numeric +ve only |
| DoughnutHole | pie | A numeric value specifies the size of the hole in the centre of the pie (so producing a doughnut chart), as a percentage of the pie radius. Any non-numeric value will produce the default hole size of 50%. | Any |
| SegmentText | pie |
Any combination of the above three values can be in the parameter, eg: SegmentText=text percent will show the segment text followed by the percentage. The font size for segment texts is the same as that for legend texts. |
String |
| SegmentTextWidth | pie | Sets the horizontal space allowed for all segment texts, as a percentage of the standard width. The standard width allows for about 10 characters. Set this parameter above 100 if any of the segment texts fail to show completely. Default: 100 | Numeric +ve only |
| SegmentTextRadius | pie | The proportion of the radius at which segment texts are placed. A percentage of the pie radius. Default: 105 | Numeric +ve only |
| PieStartAngle | pie | Sets the angle at which the first segment starts. Default: 0 The default means the first segment will start at the normal start for trigonometric circles, the X-axis (ie: 3 o'clock). | Numeric 0 to 360 only |
| PieSweepDir | pie | Sets the direction segments sweep in. Any value other than the default will cause the segments to sweep in a clockwise direction. Default: AntiClockwise | String |
Pie Chart Data
| Parameter | Chart Types | Description | Type & Limits |
|---|---|---|---|
| Series1Values | pie | A string containing text and value pairs, separated by spaces. The texts will be used for legend or segment texts, the values used to calculate the segments of the pie. In pie charts, parameters Series2Values etc. will be ignored. | String |
Pie Segment Appearance
| Parameter | Chart Types | Description | Type & Limits |
|---|---|---|---|
| Segment1Color (Segment2Color, ...) |
pie | The color of the pie segment. Must be a number in the colors table or an SVG color term. The default color for segment N is color N from the colors table. | String |
| Segment1Pattern (Segment2Pattern, ...) |
pie | The fill pattern for the pie segment. Must be a number in the fill-patterns table. | Numeric |
| Segment1PatternColor (Segment2PatternColor, ...) |
pie | The color used for the fill pattern. Must be a number in the colors table or an SVG color term. The default color is black. | String |
Parameters - General
SVG File Descriptive Elements
These parameters set values that are written to the SVG file, but are not displayed in the image.
| Parameter | Chart Types | Description | Type & Limits |
|---|---|---|---|
| FileTitle | All | Adds a <title> element to the SVG file. Default: SVG chart | String |
| FileDesc | All | Adds a <description> element to the SVG file. Default: 'SVG chart generated by Charts SVG' | String |
Title and Footnote
| Parameter | Chart Types | Description | Type & Limits |
|---|---|---|---|
| Title | All | Shows the text as a title above the chart. | String |
| TitleX TitleY |
bar line mixed scatter |
Moves the title from its default position (above the chart) to a specified location within the chart. The X and Y values are the same as for graph points.
The position specifies the left end and the vertical baseline of the text. |
Numeric |
| TitleX TitleY |
pie | Moves the title from its default position (at the bottom right of the image) to a specified location within the chart. The X and Y values are percentages of the chart size. (0, 0) = bottom left, (50, 50) = the pie origin.
The position specifies the left end and the vertical baseline of the text. |
Numeric |
| Footnote | All | Shows the text as a footnote in the bottom right of the image. Note that the footnote (indeed all texts in the SVG file) should not contain wiki-markup, as it will not be interpreted as such when the SVG image is rendered on a Wikipedia page. | String |
| FootnoteX FootnoteY |
bar line mixed scatter |
Moves the footnote from its default position (at the bottom right of the image) to a specified location within the chart. The X and Y values are the same as for graph points.
The position specifies the left end and the vertical baseline of the text. |
Numeric |
| FootnoteX FootnoteY |
pie | Moves the footnote from its default position (at the bottom right of the image) to a specified location within the chart. The X and Y values are percentages of the chart size. (0, 0) = bottom left, (50, 50) = the pie origin.
The position specifies the left end and the vertical baseline of the text. |
Numeric |
Legend
| Parameter | Chart Types | Description | Type & Limits |
|---|---|---|---|
| Series1Text (Series2Text, ...) Must be in sequence. |
All | Sets the text that appears in the legend as the name for the series. If no Series<N>Text parameters are set, the legend will not be shown. | String |
| LegendType | All |
|
String |
| LegendTextWidth | All | Sets the horizontal space allowed for all legend texts, as a percentage of the standard width. The standard width allows for about 10 characters. Set this parameter above 100 if any of the legend texts fail to show completely, or if they extend outside the legend box. Default: 100 | Numeric +ve only |
| LegendBorder | All | The color for the border surrounding the legend. Must be a number in the colors table or an SVG color term. A value of none will hide the border. Default: black | String |
| LegendX LegendY |
All | Moves the legend from its default position (which depends on the LegendType setting) to a specified location within the chart. The X and Y values are as for graph points.
The position specifies the top left corner of the legend box. |
Numeric |
| LegendSVG | All | Completely replaces the legend with the supplied SVG code. | String |
Chart Texts
Additional texts can be shown on the chart. Appropriately placed, they can be a substitute for a legend.
| Parameter | Chart Types | Description | Type & Limits | |
|---|---|---|---|---|
| ChartText1 (ChartText2, ...) Must be in sequence. |
All | The text to show. | String | |
| ChartText1X (ChartText2X, ...) |
bar line mixed scatter |
Sets the horizontal location for the text. The value is scaled to the X axis. (If groups are defined, each group is 1 unit wide.) The position specifies the left end of the text. Default: 0 | Numeric +ve only | |
| ChartText1X (ChartText2X, ...) |
pie | Sets the horizontal location for the text. The value is a percentage of the chart size. The position specifies the left end of the text. Default: 0 | Numeric +ve only |
Numeric |
| ChartText1Y (ChartText2Y, ...) |
bar line mixed scatter |
Sets the vertical location for the text. The value is scaled to the left X axis. The position specifies the baseline of the text. Default: 0 | Numeric +ve only | |
| ChartText1X (ChartText2X, ...) |
pie | Sets the vertical location for the text. The value is a percentage of the chart size. The position specifies the baseline of the text. Default: 0 | Numeric +ve only |
Numeric |
General Image
| Parameter | Chart Types | Description | Type & Limits |
|---|---|---|---|
| ImagePadding | All | Sets the number of pixels in the padding. Replaces the default padding within the image border, on all 4 sides. | Numeric |
| ImagePaddingTop ImagePaddingBottom ImagePaddingLeft ImagePaddingRight |
All | Sets the number of pixels in the padding. Sets the padding amount on one side of the image only. Default: ImagePadding (if set), otherwise 6 pixels. | Numeric |
| ImageBorder | All | The color of a border at the outside edges of the image. Must be a number in the colors table or an SVG color term. The border (if shown) is always 1px in width. | String |
| ImageBackgroundColor | All | The color for the background of the whole image. Must be a number in the colors table or an SVG color term. Default: white | String |
| ImageBackgroundSVG | All | Allows insertion of user-defined SVG code into the file. The specified elements are shown in front of the image background color, but behind all other elements in the image. | String |
| ImageForegroundSVG | All | Allows insertion of user-defined SVG code into the file. The specified elements are shown in front of all other elements in the image. | String |
General Chart
| Parameter | Chart Types | Description | Type & Limits |
|---|---|---|---|
| GrayScale GreyScale |
All | Any value changes the color table to one of grey-scale equivalents of the colors (see colors table). It also changes the default pattern color to white.
Note that any colors defined with a number from the colors table will be shown as the grey-scale equivalent, but colors defined with an SVG color term will be shown with the color as defined. |
Any |
| LineWidth | All | Changes the default width for all line components of the chart. A percentage of the default line width. Default: 100 | Numeric +ve only |
| GraphLineWidth | line mixed scatter |
Changes the default width for all series lines on the chart. A percentage of the default line width. Default: 100 | Numeric +ve only |
| ChartBackgroundColor | All | The background color for the chart area. Must be a number in the colors table or an SVG color term. | String |
Font Sizes
| Parameter | Chart Types | Description | Type & Limits |
|---|---|---|---|
| FontSize | All | Changes the font size for all text elements in the image. A percentage of the default size for each element. Default: 100 | Numeric +ve only |
| LabelsFontSize | All | Changes the font size for data labels in the image. A percentage of the default size for each element. Default: 100 | Numeric +ve only |
| TitleFontSize FootnoteFontSize LegendFontSize ChartTextFontSize |
All | Changes the font size for the particular text element. A percentage of the default size for each element. Default: FontSize | Numeric +ve only |
| XAxisTitleFontSize XAxisValuesFontSize YAxisTitleFontSize YAxisValuesFontSize YAxis2TitleFontSize YAxis2ValuesFontSize |
bar line mixed scatter |
Changes the font size for the particular text element. A percentage of the default size for each element. Default: FontSize | Numeric +ve only |
Bar, Pie-segment and Area Borders
| Parameter | Chart Types | Description | Type & Limits |
|---|---|---|---|
| BorderColor | bar line mixed pie |
The color of the border around each bar, pie segment or line area. Must be a number in the colors table or an SVG color term. By default, no border is shown. | String |
| BorderWidth | bar line mixed pie |
The width of the border line (if shown) around bars, pie segments and line areas. A percentage of the standard line width. Default: 100 | Numeric +ve only |
Original Data
| Parameter | Chart Types | Description | Type & Limits |
|---|---|---|---|
| IncludeOriginalData | All |
|
String |
Debug
| Parameter | Chart Types | Description | Type & Limits |
|---|---|---|---|
| Debug | All | A value of parms will show the values of all parameters used in the module. This includes the user-supplied parameters that are recognised, and the default values for all other parameters that have them. It does not include parameters that are not recognised, including because they are mis-spelled or mis-capitalised. | String |
Values Tables
Colors
These are the defult colors for data series and pie segments. To set any color, either a number from this table or an SVG color term must be used.
| Number | Color | GreyScale equivalent | Number | Color | GreyScale equivalent | Number | Color | GreyScale equivalent | ||
|---|---|---|---|---|---|---|---|---|---|---|
| 1 | 11 | 21 | ||||||||
| 2 | 12 | 22 | ||||||||
| 3 | 13 | 23 | ||||||||
| 4 | 14 | 24 | ||||||||
| 5 | 15 | 25 | ||||||||
| 6 | 16 | 26 | ||||||||
| 7 | 17 | 27 | ||||||||
| 8 | 18 | 28 | ||||||||
| 9 | 19 | 29 | ||||||||
| 10 | 20 | 30 |
Markers
Markers can be set by a Series<N>Marker parameter having one of these numbers.
Dash Patterns
Dash patterns can be set by a Series<N>Dash parameter having one of these numbers, or by supplying an SVG dash pattern term.
Fill Patterns
Fill patterns can be set by a Series<N>Pattern parameter having one of these numbers.
Notes
Color Terms
Colors in SVG files can be specified in a number of ways.
- as a 3- or 6-digit hexadecimal number, prefixed with'#', eg:
#f08, or#ff0088(which are equivalent). - in rgb functional notation, eg: rgb(255, 0, 128) or rgb(100%, 0, 50%) (which are equivalent).
- as keywords, eg: blue, red. SVG recognises 147 color keywords, which are listed in the SVG specification.
In all cases an SVG color term should be entered in a parameter without surrounding quotes, eg: Series1Color=rgb(100%, 0%, 50%) or Series1Color=blue.
Color terms are passed to the SVG output as-is. If they are invalid SVG code, this will only be known when the SVG file is viewed as an SVG image. This may produce an error, or the color term will be ignored and the element shown in a default color (usually black).
Dash Pattern Terms
Dash patterns in SVG are specified by a series of space- or comma-separated numbers, which specify the lengths of the drawn or empty sections of the pattern. Eg: '8,2' specifies a dash of length 8 units, followed by a space of 2 units.
Dash pattern terms should be entered in a parameter without surrounding quotes, eg: Series1Dash=8,2.
Dash pattern terms are passed to the SVG output as-is. If they are invalid SVG code, this will only be known when the SVG file is viewed as an SVG image. This may produce an error, or the dash pattern term will be ignored and the element shown as a solid line.
Spaces in Parameters
Some parameters (especially Series1Values, ...) contain multiple values, separated by spaces. The Series<N>Values parameters are written into the SVG code as comments (subject to the IncludeOriginalData parameter). Eg:
{{#invoke:Charts SVG|lineChart|Series1Values=10 90
20 75
35 24
70 62
}}
Groups of spaces and line-breaks are regarded as a single space when separating values.
Examples
Consistent with the various chart types, these examples use almost identical data. For further examples, see User:Innesw/sandbox/Module:Charts SVG/doc/further examples.
|
 |
|
 |
|
 |
|
 |
|
 |
|
 |
|
 |
|
 |
Development
If you have questions or suggestions, share them at Module talk:Charts SVG.
-- Module Charts SVG
local Args, Parms = {}, {}
local SeriesData, OriginalData = {}, {}
local SType, YAxis2, Labels, Color, LineShow, LineWidth, LineDash, Marker, MarkerFill, MarkerSize, FillPattern, FillPatternColor = {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}
local SeriesText, GroupText, ChartText = {}, {}, {}
local SeriesCount, BarSeriesCount, SeriesMaxLen, GroupsCount, ChartTextCount = 0, 0, 0, 0, 0
local AutoDataPointsLimit, DataPointsCount = 100, 0
local DoPie, DoArea, DoStack, DoStack100, DoYAxis2 = false, false, false, false, false
local Msgs = {}
local FontSiz, Siz, Pos, Mult = {}, {}, {}, {}
local ChartWidth, ChartHeight, ImageWidth, ImageHeight
local GroupWidth, UnitWidth, BarWidth, BarSpace
local BaseUnit, BaseFontSize, BaseLineWidth = 3, 3, 1
local r, tr, t = {}
-- To translate parameters, translate the values in the KeyWords table. Do not translate the keys.
local KeyWords = {
barChart = 'barChart',
lineChart = 'lineChart',
scatterChart = 'scatterChart',
mixedChart = 'mixedChart',
pieChart = 'pieChart',
FileTitle = 'FileTitle',
FileDesc = 'FileDesc',
ImagePadding = 'ImagePadding',
ImagePaddingTop = 'ImagePaddingTop',
ImagePaddingBottom = 'ImagePaddingBottom',
ImagePaddingLeft = 'ImagePaddingLeft',
ImagePaddingRight = 'ImagePaddingRight',
ImageBackgroundColor = 'ImageBackgroundColor',
ImageBackgroundSVG = 'ImageBackgroundSVG',
ImageBorder = 'ImageBorder',
ImageForegroundSVG = 'ImageForegroundSVG',
Title = 'Title',
TitleX = 'TitleX',
TitleY = 'TitleY',
Footnote = 'Footnote',
FootnoteX = 'FootnoteX',
FootnoteY = 'FootnoteY',
Area = 'Area',
Stack = 'Stack',
Stack100 = 'Stack100',
ChartWidth = 'ChartWidth',
ChartHeight = 'ChartHeight',
GreyScale = 'GreyScale',
GrayScale = 'GrayScale',
LineWidth = 'LineWidth',
ChartBackgroundColor = 'ChartBackgroundColor',
XMin = 'XMin',
XMax = 'XMax',
XAxisTitle = 'XAxisTitle',
XAxisValueStep = 'XAxisValueStep',
XAxisValueMultiplier = 'XAxisValueMultiplier',
XAxisValueRound = 'XAxisValueRound',
XAxisValuePrefix = 'XAxisValuePrefix',
XAxisValueSuffix = 'XAxisValueSuffix',
XAxisValueFormat = 'XAxisValueFormat',
XAxisValueRotate = 'XAxisValueRotate',
XAxisMark2Step = 'XAxisMark2Step',
YMin = 'YMin',
YMax = 'YMax',
YAxisTitle = 'YAxisTitle',
YAxisValueStep = 'YAxisValueStep',
YAxisValueMultiplier = 'YAxisValueMultiplier',
YAxisValueRound = 'YAxisValueRound',
YAxisValuePrefix = 'YAxisValuePrefix',
YAxisValueSuffix = 'YAxisValueSuffix',
YAxisValueFormat = 'YAxisValueFormat',
YAxisMark2Step = 'YAxisMark2Step',
YAxisColor = 'YAxisColor',
Y2Min = 'Y2Min',
Y2Max = 'Y2Max',
YAxis2Title = 'YAxis2Title',
YAxis2ValueStep = 'YAxis2ValueStep',
XAxis2ValueMultiplier = 'XAxis2ValueMultiplier',
YAxis2ValueRound = 'YAxis2ValueRound',
YAxis2ValuePrefix = 'YAxis2ValuePrefix',
YAxis2ValueSuffix = 'YAxis2ValueSuffix',
YAxis2ValueFormat = 'YAxis2ValueFormat',
YAxis2Mark2Step = 'YAxis2Mark2Step',
YAxis2Color = 'YAxis2Color',
XGrid = 'XGrid',
YGrid = 'YGrid',
LegendType = 'LegendType',
LegendX = 'LegendX',
LegendY = 'LegendY',
LegendTextWidth = 'LegendTextWidth',
LegendBorder = 'LegendBorder',
LegendSVG = 'LegendSVG',
FontSize = 'FontSize',
LabelsFontSize = 'LabelsFontSize',
TitleFontSize = 'TitleFontSize',
FootnoteFontSize = 'FootnoteFontSize',
LegendFontSize = 'LegendFontSize',
XAxisTitleFontSize = 'XAxisTitleFontSize',
YAxisTitleFontSize = 'YAxisTitleFontSize',
YAxis2TitleFontSize = 'YAxis2TitleFontSize',
XAxisValuesFontSize = 'XAxisValuesFontSize',
YAxisValuesFontSize = 'YAxisValuesFontSize',
YAxis2ValuesFontSize = 'YAxis2ValuesFontSize',
ChartTextFontSize = 'ChartTextFontSize',
GraphLineWidth = 'GraphLineWidth',
BarWidth = 'BarWidth',
BarSpace = 'BarSpace',
PieRadius = 'PieRadius',
Explode = 'Explode',
ExplodeRadius = 'ExplodeRadius',
DoughnutHole = 'DoughnutHole',
PieStartAngle = 'PieStartAngle',
PieSweepDir = 'PieSweepDir',
SegmentText = 'SegmentText',
SegmentTextWidth = 'SegmentTextWidth',
SegmentTextRadius = 'SegmentTextRadius',
BorderColor = 'BorderColor',
BorderWidth = 'BorderWidth',
Series = 'Series',
Segment = 'Segment',
Type = 'Type',
Values = 'Values',
YAxis2 = 'YAxis2',
Labels = 'Labels',
Color = 'Color',
Line = 'Line',
Width = 'Width',
Dash = 'Dash',
Marker = 'Marker',
MarkerSize = 'MarkerSize',
MarkerFill = 'MarkerFill',
Pattern = 'Pattern',
PatternColor = 'PatternColor',
Text = 'Text',
Group = 'Group',
ChartText = 'ChartText',
IncludeOriginalData = 'IncludeOriginalData',
Debug = 'Debug',
-- these are values that some parameters recognise, and can be translated
none = 'none',
-- series types
bar = 'bar',
line = 'line',
-- legend types
vertical = 'vertical',
horizontal = 'horizontal',
-- pie segment texts
text = 'text',
value = 'value',
percent = 'percent',
-- original data
auto = 'auto',
-- debug
parms = 'parms',
--
yes = 'yes',
no = 'no',
-- these are special values that make the code simpler if they exist in the KeyWords table,
-- but they *must not* be translated
X = 'X',
Y = 'Y',
}
-- To translate messages, translate the values in the MessageTexts table. Do not translate the keys.
local MessageTexts = {
NotNumeric = "%s, value \"%s\" is not numeric.",
BelowChartMinSize = "%s, value \"%d\" is below the minimum chart size of %d.",
NotInGroup = "Series%dValues, pair %d: X value \"%s\" is not for a defined group.",
NotInMarkers = "Series%dMarker, value \"%s\" is not in the markers table.",
NotInDashPatterns = "Series%dDash, value \"%s\" is not in the dash patterns table.",
NotInFillPatterns = "Series%dPattern, value \"%s\" is not in the fill patterns table.",
NoYAxis2 = "Series%dYAxis2 is set, but no 2nd Y axis is shown - which may be because Stack or Stack100 are set.",
}
local DefColor = {
'rgb(0, 0, 255)', -- 1 = blue
'rgb(0, 192, 0)', -- 2 = mid green
'rgb(255, 255, 0)', -- 3 = yellow
'rgb(255, 0, 0)', -- 4 = red
'rgb(192, 192, 0)', -- 5 = light olive
'rgb(255, 0, 255)', -- 6 = magenta
'rgb(0, 255, 0)', -- 7 = lime
'rgb(128, 128, 128)', -- 8 = grey
'rgb(0, 255, 255)', -- 9 = cyan
'rgb(255, 165, 0)', -- 10 = orange
'rgb(0, 0, 192)', -- 11 = light navy
'rgb(128, 255, 128)', -- 12 = light green
'rgb(255, 255, 128)', -- 13 = sand yellow
'rgb(192, 0, 0)', -- 14 = red brown
'rgb(240, 240, 240)', -- 15 = pale grey
'rgb(255, 128, 255)', -- 16 = light magenta
'rgb(192, 255, 192)', -- 17 = pale green
'rgb(192, 0, 192)', -- 18 = dark mauve
'rgb(192, 192, 255)', -- 19 = blue-grey
'rgb(0, 192, 192)', -- 20 = dark cyan
'rgb(192, 192, 192)', -- 21 = light grey
'rgb(128, 128, 255)', -- 22 = dark blue-grey
'rgb(0, 128, 0)', -- 23 = green
'rgb(255, 255, 192)', -- 24 = light sand
'rgb(255, 192, 192)', -- 25 = pale red
'rgb(128, 128, 0)', -- 26 = olive
'rgb(255, 192, 255)', -- 27 = pale magenta
'rgb(255, 96, 0)', -- 28 = dark orange
'rgb(192, 255, 255)', -- 29 = light cyan
'rgb(255, 128, 128)', -- 30 = light red
}
-- grayscale equivalents of the above colours
local GrayColor = {
'rgb(18, 18, 18)', -- 1 = blue-g
'rgb(137, 137, 137)', -- 2 = midgreen-g
'rgb(237, 237, 237)', -- 3 = yellow-g
'rgb(54, 54, 54)', -- 4 = red-g
'rgb(178, 178, 178)', -- 5 = lightolive-g
'rgb(73, 73, 73)', -- 6 = magenta-g
'rgb(182, 182 ,182)', -- 7 = lime-g
'rgb(128, 128, 128)', -- 8 = grey-g
'rgb(201, 201 ,201)', -- 9 = cyan-g
'rgb(172, 172 172)', -- 10 = orange-g
'rgb(14, 14 ,14)', -- 11 = lightnavy-g
'rgb(219, 219, 219)', -- 12 = lightgreen-g
'rgb(246, 246, 246)', -- 13 = sandyellow-g
'rgb(41, 41, 41)', -- 14 = redbrown-g
'rgb(240, 240, 240)', -- 15 = palegrey-g
'rgb(164, 164, 164)', -- 16 = lightmagenta-g
'rgb(237, 237, 237)', -- 17 = palegreen-g
'rgb(55, 55, 55)', -- 18 = darkmauve-g
'rgb(197, 197, 197)', -- 19 = bluegrey-g
'rgb(151, 151, 151)', -- 20 = darkcyan-g
'rgb(192, 192, 192)', -- 21 = lightgrey-g
'rgb(137, 137, 137)', -- 22 = darkbluegrey-g
'rgb(92, 92, 92)', -- 23 = green-g
'rgb(250, 250, 250)', -- 24 = lightsand-g
'rgb(205, 205, 205)', -- 25 = palered-g
'rgb(119, 119, 119)', -- 26 = olive-g
'rgb(210, 210, 210)', -- 27 = palemagenta-g
'rgb(123, 123, 123)', -- 28 = darkorange-g
'rgb(242, 242, 242)', -- 29 = lightcyan-g
'rgb(155, 155, 155)' -- 30 = lightred-g
}
local DashPattern = {
"8,8", -- 1 = dashed, long
"4,4", -- 2 = dashed, short
"8,2", -- 3 = broken, long
"4,2", -- 4 = broken, short
"2,2", -- 5 = dots
"6,2,2,2", -- 6 = dash-dot
"6,2,2,2,2,2", -- 7 = dash-dot-dot
"6,2,2,2,2,2,2,2" -- 8 = dash-dot-dot-dot
}
--[[
The differences between the defaults for the 4 'graph' chart methods are:
barChart lineChart scatterChart mixedChart
series type bar* line* line* must be specified
line visibility -* yes none yes
marker -* nil series no. nil
group allowed allowed -* allowed
area -* nil -* -*
stack nil nil -* -*
stack100 nil nil -* -*
(* = cannot be changed by parameters)
]]
function barChart(frame)
Args = frame.args
getAllParms()
DoStack = (Parms["Stack"] ~= nil)
DoStack100 = (Parms["Stack100"] ~= nil)
DoYAxis2 = (Parms["Y2Max"] ~= nil)
-- fill internal tables
for i = 1, SeriesCount do
SeriesData[i] = {}
transfer(Parms["Series" .. i .. "Values"], SeriesData[i], 2)
DataPointsCount = DataPointsCount + #SeriesData[i]
SType[i] = KeyWords["bar"]
end
copyTable(SeriesData, OriginalData) -- preserve original data
BarSeriesCount = SeriesCount
build("Series", "YAxis2", SeriesCount, YAxis2, nil, nil, nil)
build("Series", "Labels", SeriesCount, Labels, nil, nil, nil)
build("Series", "Color", SeriesCount, Color, nil, nil, DefColor)
build("Series", "Pattern", SeriesCount, FillPattern, KeyWords["none"], nil, nil)
build("Series", "PatternColor", SeriesCount, FillPatternColor, nil, nil, nil)
build("Series", "Text", SeriesCount, SeriesText, nil, nil, nil)
build("Group", "Text", GroupsCount, GroupText, nil, "Group ", nil)
build("ChartText", "", ChartTextCount, ChartText, nil, nil, nil)
if DoStack or DoStack100 then
calcStack()
DoYAxis2 = false
end
if not checkParms() then
-- messages, instead of SVG output
return table.concat(r, "\n")
end
if not outputDebugInfo() then
-- stop after debug output
return table.concat(r, "\n")
end
-- build the SVG
prelimsCommon()
prelimsAxes()
commonTop()
codeAxisGrids()
stylesAreas()
defsAreas()
elementsGraphs()
codeAxes()
commonBottom()
return table.concat(r, "\n")
end
function lineChart(frame)
Args = frame.args
getAllParms()
DoArea = (Parms["Area"] ~= nil)
DoStack = (Parms["Stack"] ~= nil)
DoStack100 = (Parms["Stack100"] ~= nil)
DoYAxis2 = (Parms["Y2Max"] ~= nil)
-- fill internal tables
for i = 1, SeriesCount do
SeriesData[i] = {}
transfer(Parms["Series" .. i .. "Values"], SeriesData[i], 2)
DataPointsCount = DataPointsCount + #SeriesData[i]
SType[i] = KeyWords["line"]
end
copyTable(SeriesData, OriginalData) -- preserve original data
BarSeriesCount = 0
build("Series", "YAxis2", SeriesCount, YAxis2, nil, nil, nil)
build("Series", "Labels", SeriesCount, Labels, nil, nil, nil)
build("Series", "Color", SeriesCount, Color, nil, nil, DefColor)
build("Series", "Line", SeriesCount, LineShow, "yes", nil, nil) -- the default line visibility is 'yes'
build("Series", "Width", SeriesCount, LineWidth, Parms["GraphLineWidth"], nil, nil)
build("Series", "Dash", SeriesCount, LineDash, KeyWords["none"], nil, nil)
build("Series", "Marker", SeriesCount, Marker, nil, nil, nil) -- the default marker type is nil
build("Series", "MarkerSize", SeriesCount, MarkerSize, 100, nil, nil)
build("Series", "MarkerFill", SeriesCount, MarkerFill, nil, nil, Color)
build("Series", "Pattern", SeriesCount, FillPattern, KeyWords["none"], nil, nil)
build("Series", "PatternColor", SeriesCount, FillPatternColor, nil, nil, nil)
build("Series", "Text", SeriesCount, SeriesText, nil, nil, nil)
build("Group", "Text", GroupsCount, GroupText, nil, "Group ", nil)
build("ChartText", "", ChartTextCount, ChartText, nil, nil, nil)
if DoStack or DoStack100 then
calcStack()
DoArea = true
DoYAxis2 = false
end
if not checkParms() then
-- messages, instead of SVG output
return table.concat(r, "\n")
end
if not outputDebugInfo() then
-- stop after debug output
return table.concat(r, "\n")
end
-- build the SVG
prelimsCommon()
prelimsAxes()
commonTop()
codeAxisGrids()
if DoArea then
stylesAreas()
defsAreas()
else
stylesLines()
defsMarkers()
end
elementsGraphs()
codeAxes()
commonBottom()
return table.concat(r, "\n")
end
function scatterChart(frame)
Args = frame.args
getAllParms()
DoYAxis2 = (Parms["Y2Max"] ~= nil)
-- fill internal tables
for i = 1, SeriesCount do
SeriesData[i] = {}
transfer(Parms["Series" .. i .. "Values"], SeriesData[i], 2)
DataPointsCount = DataPointsCount + #SeriesData[i]
SType[i] = KeyWords["line"]
end
copyTable(SeriesData, OriginalData) -- preserve original data
BarSeriesCount = 0
build("Series", "YAxis2", SeriesCount, YAxis2, nil, nil, nil)
build("Series", "Labels", SeriesCount, Labels, nil, nil, nil)
build("Series", "Color", SeriesCount, Color, DefColor, nil, nil)
build("Series", "Line", SeriesCount, LineShow, KeyWords["none"], nil, nil) -- the default line visibility is 'none'
build("Series", "Width", SeriesCount, LineWidth, Parms["GraphLineWidth"], nil, nil)
build("Series", "Dash", SeriesCount, LineDash, KeyWords["none"], nil, nil)
build("Series", "Marker", SeriesCount, Marker, nil, true, nil) -- the default marker type is the series number
build("Series", "MarkerSize", SeriesCount, MarkerSize, 100, nil, nil)
build("Series", "MarkerFill", SeriesCount, MarkerFill, nil, nil, Color)
build("Series", "Text", SeriesCount, SeriesText, nil, nil, nil)
build("ChartText", "", ChartTextCount, ChartText, nil, nil, nil)
if not checkParms() then
-- messages, instead of SVG output
return table.concat(r, "\n")
end
if not outputDebugInfo() then
-- stop after debug output
return table.concat(r, "\n")
end
-- build the SVG
prelimsCommon()
prelimsAxes()
commonTop()
codeAxisGrids()
stylesLines()
defsMarkers()
elementsGraphs()
codeAxes()
commonBottom()
return table.concat(r, "\n")
end
function mixedChart(frame)
Args = frame.args
getAllParms()
DoYAxis2 = (Parms["Y2Max"] ~= nil)
-- fill internal tables
build("Series", "Type", SeriesCount, SType, "line", nil, nil)
for i = 1, SeriesCount do
if SType[i] == KeyWords["bar"] then
BarSeriesCount = BarSeriesCount + 1
end
end
for i = 1, SeriesCount do
SeriesData[i] = {}
transfer(Parms["Series" .. i .. "Values"], SeriesData[i], 2)
DataPointsCount = DataPointsCount + #SeriesData[i]
end
copyTable(SeriesData, OriginalData) -- preserve original data
build("Series", "YAxis2", SeriesCount, YAxis2, nil, nil, nil)
build("Series", "Labels", SeriesCount, Labels, nil, nil, nil)
build("Series", "Color", SeriesCount, Color, nil, nil, DefColor)
build("Series", "Line", SeriesCount, LineShow, "yes", nil, nil) -- the default line visibility is 'yes'
build("Series", "Width", SeriesCount, LineWidth, Parms["GraphLineWidth"], nil, nil)
build("Series", "Dash", SeriesCount, LineDash, KeyWords["none"], nil, nil)
build("Series", "Marker", SeriesCount, Marker, nil, nil, nil) -- the default marker type is nil
build("Series", "MarkerSize", SeriesCount, MarkerSize, 100, nil, nil)
build("Series", "MarkerFill", SeriesCount, MarkerFill, nil, nil, Color)
build("Series", "Pattern", SeriesCount, FillPattern, KeyWords["none"], nil, nil)
build("Series", "PatternColor", SeriesCount, FillPatternColor, nil, nil, nil)
build("Series", "Text", SeriesCount, SeriesText, nil, nil, nil)
build("Group", "Text", GroupsCount, GroupText, nil, "Group ", nil)
build("ChartText", "", ChartTextCount, ChartText, nil, nil, nil)
if not checkParms() then
-- messages, instead of SVG output
return table.concat(r, "\n")
end
if not outputDebugInfo() then
-- stop after debug output
return table.concat(r, "\n")
end
-- build the SVG
prelimsCommon()
prelimsAxes()
commonTop()
codeAxisGrids()
stylesAreas()
defsAreas()
stylesLines()
defsMarkers()
elementsGraphs()
codeAxes()
commonBottom()
return table.concat(r, "\n")
end
function pieChart(frame)
Args = frame.args
getAllParms()
GroupsCount = 0 -- ensures any GroupNText parameters are ignored
-- fill internal tables
if SeriesCount > 0 then
transfer(Parms["Series" .. 1 .. "Values"], SeriesData, 2)
DataPointsCount = DataPointsCount + #SeriesData
end
copyTable(SeriesData, OriginalData) -- preserve original data
for i = 1, SeriesMaxLen do
Parms["Segment" .. i .. "Color"] = checkColor(getParm("Segment", i, "Color", "s", iif(Parms["GrayScale"] ~= nil, GrayColor[i], DefColor[i])))
Parms["Segment" .. i .. "Pattern"] = getParm("Segment", i, "Pattern", "n")
if Parms["Segment" .. i .. "Pattern"] ~= nil then
Parms["Segment" .. i .. "PatternColor"] = checkColor(getParm("Segment", i, "PatternColor", "s", iif(Parms["GrayScale"] ~= nil, "white", "black")))
end
end
build("Segment", "Color", SeriesMaxLen, Color, nil, nil, iif(Parms["GrayScale"] ~= nil, GrayColor, DefColor))
build("Segment", "Pattern", SeriesMaxLen, FillPattern, KeyWords["none"], nil, nil)
build("Segment", "PatternColor", SeriesMaxLen, FillPatternColor, nil, nil, nil)
build("ChartText", "", ChartTextCount, ChartText, nil, nil, nil)
-- transfer the first value in each SeriesData pair to table SeriesText, for the legend
for k, v in ipairs(SeriesData) do
SeriesText[k] = v[1]
end
SeriesCount = SeriesMaxLen
DoPie = true
if not checkParms() then
-- messages, instead of SVG output
return table.concat(r, "\n")
end
if not outputDebugInfo() then
-- stop after debug output
return table.concat(r, "\n")
end
-- build the SVG
prelimsCommon()
prelimsPie()
commonTop()
stylesAreas()
defsAreas()
elementsPie()
commonBottom()
return table.concat(r, "\n")
end
function getAllParms()
-- get values for all parameters
-- Note that not all have a default value, ie: it is valid for some parameters to be nil. These are genarally switches for some behaviour.
-- SVG file metadata
Parms["FileTitle"] = getParm("FileTitle", nil, nil, "s", "SVG Chart")
Parms["FileDesc"] = getParm("FileDesc", nil, nil, "s", "SVG chart generated by Charts SVG")
-- general image
Parms["ImagePadding"] = getParm("ImagePadding", nil, nil, "n") -- switch for replacing default value with user setting for the size of the padding for all 4 spaces
Parms["ImagePaddingTop"] = getParm("ImagePaddingTop", nil, nil, "n", Parms["ImagePadding"]) -- switch for replacing default value with user setting for the size of the top padding
Parms["ImagePaddingBottom"] = getParm("ImagePaddingBottom", nil, nil, "n", Parms["ImagePadding"]) -- switch for replacing default value with user setting for the size of the bottom padding
Parms["ImagePaddingLeft"] = getParm("ImagePaddingLeft", nil, nil, "n", Parms["ImagePadding"]) -- switch for replacing default value with user setting for the size of the left padding
Parms["ImagePaddingRight"] = getParm("ImagePaddingRight", nil, nil, "n", Parms["ImagePadding"]) -- switch for replacing default value with user setting for the size of the right padding
Parms["ImageBorder"] = checkColor(getParm("ImageBorder", nil, nil, "s", KeyWords["none"]))
Parms["ImageBackgroundColor"] = checkColor(getParm("ImageBackgroundColor", nil, nil, "s", "white"))
Parms["ImageBackgroundSVG"] = getParm("ImageBackgroundSVG", nil, nil, "s") -- switch for background SVG for the image
Parms["ImageForegroundSVG"] = getParm("ImageForegroundSVG", nil, nil, "s") -- switch for foreground SVG for the image
-- display title
Parms["Title"] = getParm("Title", nil, nil, "s") -- switch to show title text
Parms["TitleX"] = getParm("TitleX", nil, nil, "n") -- switch to move title from original X position
Parms["TitleY"] = getParm("TitleY", nil, nil, "n") -- switch to move title from original Y position
-- footnote
Parms["Footnote"] = getParm("Footnote", nil, nil, "s") -- switch for footnote text
Parms["FootnoteX"] = getParm("FootnoteX", nil, nil, "n") -- switch to move footnote from original X position
Parms["FootnoteY"] = getParm("FootnoteY", nil, nil, "n") -- switch to move footnote from original Y position
-- general chart
Parms["Area"] = getParm("Area", nil, nil, "s") -- switch for area graphs
Parms["Stack"] = getParm("Stack", nil, nil, "s") -- switch for stacked graphs
Parms["Stack100"] = getParm("Stack100", nil, nil, "s") -- switch for stacked-to-100% graphs
Parms["ChartWidth"] = getParm("ChartWidth", nil, nil, "n", 500)
Parms["ChartHeight"] = getParm("ChartHeight", nil, nil, "n", 350)
if Parms["ChartWidth"] < 200 then
table.insert(Msgs, string.format(MessageTexts.BelowChartMinSize, "ChartWidth", Parms["ChartWidth"], 200))
end
if Parms["ChartHeight"] < 200 then
table.insert(Msgs, string.format(MessageTexts.BelowChartMinSize, "ChartHeight", Parms["ChartHeight"], 200))
end
Parms["GreyScale"] = getParm("GreyScale", nil, nil, "s")
Parms["GrayScale"] = getParm("GrayScale", nil, nil, "s", Parms["GreyScale"]) -- switch for grayscale instead of colours
Parms["LineWidth"] = getParm("LineWidth", nil, nil, "n", 100)
Parms["ChartBackgroundColor"] = checkColor(getParm("ChartBackgroundColor", nil, nil, "s")) -- switch for a background color for the chart
-- XAxis
Parms["XMin"] = getParm("XMin", nil, nil, "n", 0)
Parms["XMax"] = getParm("XMax", nil, nil, "n", 100)
Parms["XAxisTitle"] = getParm("XAxisTitle", nil, nil, "s") -- switch to show X axis title
Parms["XAxisValueStep"] = getParm("XAxisValueStep", nil, nil, "n", 10)
Parms["XAxisValueMultiplier"] = getParm("XAxisValueMultiplier", nil, nil, "n", 1)
Parms["XAxisValueRound"] = getParm("XAxisValueRound", nil, nil, "n", decPlaces(Parms["XAxisValueStep"]))
Parms["XAxisValuePrefix"] = getParm("XAxisValuePrefix", nil, nil, "s", "", "_", " ")
Parms["XAxisValueSuffix"] = getParm("XAxisValueSuffix", nil, nil, "s", "", "_", " ")
Parms["XAxisValueFormat"] = getParm("XAxisValueFormat", nil, nil, "s") -- switch to force values formatting on or off
Parms["XAxisValueRotate"] = getParm("XAxisValueRotate", nil, nil, "n") -- switch to rotate X-axis values
Parms["XAxisMark2Step"] = getParm("XAxisMark2Step", nil, nil, "n") -- switch for showing x-axis secondary marks
-- YAxis (Left)
if Parms["Stack100"] ~= nil then
Parms["YMin"] = 0
Parms["YMax"] = 100
else
Parms["YMin"] = getParm("YMin", nil, nil, "n", 0)
Parms["YMax"] = getParm("YMax", nil, nil, "n", 100)
end
Parms["YAxisTitle"] = getParm("YAxisTitle", nil, nil, "s") -- switch to show Y axis title
Parms["YAxisValueStep"] = getParm("YAxisValueStep", nil, nil, "n", 10)
Parms["YAxisValueMultiplier"] = getParm("YAxisValueMultiplier", nil, nil, "n", 1)
Parms["YAxisValueRound"] = getParm("YAxisValueRound", nil, nil, "n", decPlaces(Parms["YAxisValueStep"]))
Parms["YAxisValuePrefix"] = getParm("YAxisValuePrefix", nil, nil, "s", "", "_", " ")
if Parms["Stack100"] ~= nil then
Parms["YAxisValueSuffix"] = getParm("YAxisValueSuffix", nil, nil, "s", "%", "_", " ")
else
Parms["YAxisValueSuffix"] = getParm("YAxisValueSuffix", nil, nil, "s", "", "_", " ")
end
Parms["YAxisValueFormat"] = getParm("YAxisValueFormat", nil, nil, "s") -- switch to force values formatting on or off
Parms["YAxisMark2Step"] = getParm("YAxisMark2Step", nil, nil, "n") -- switch for showing y-axis secondary marks
Parms["YAxisColor"] = checkColor(getParm("YAxisColor", nil, nil, "s", "black"))
-- YAxis2 (Right)
Parms["YAxis2Title"] = getParm("YAxis2Title", nil, nil, "s") -- switch to show Y axis 2 title
Parms["Y2Min"] = getParm("Y2Min", nil, nil, "n", 0)
Parms["Y2Max"] = getParm("Y2Max", nil, nil, "n") -- switch to show the second Y axis
Parms["YAxis2ValueStep"] = getParm("YAxis2ValueStep", nil, nil, "n", 10)
Parms["YAxis2ValueMultiplier"] = getParm("YAxis2ValueMultiplier", nil, nil, "n", 1)
Parms["YAxis2ValueRound"] = getParm("YAxis2ValueRound", nil, nil, "n", decPlaces(Parms["YAxis2ValueStep"]))
Parms["YAxis2ValuePrefix"] = getParm("YAxis2ValuePrefix", nil, nil, "s", "", "_", " ")
Parms["YAxis2ValueSuffix"] = getParm("YAxis2ValueSuffix", nil, nil, "s", "", "_", " ")
Parms["YAxis2ValueFormat"] = getParm("YAxis2ValueFormat", nil, nil, "s") -- switch to force values formatting on or off
Parms["YAxis2Mark2Step"] = getParm("YAxis2Mark2Step", nil, nil, "n") -- switch for showing y-axis2 secondary marks
Parms["YAxis2Color"] = checkColor(getParm("YAxis2Color", nil, nil, "s", "black"))
-- grid lines
Parms["XGrid"] = getParm("XGrid", nil, nil, "s", Parms["XAxisValueStep"])
if Parms["XGrid"] ~= KeyWords["none"] then
Parms["XGrid"] = tonumber(Parms["XGrid"])
end
Parms["YGrid"] = getParm("YGrid", nil, nil, "s", Parms["YAxisValueStep"])
if Parms["YGrid"] ~= KeyWords["none"] then
Parms["YGrid"] = tonumber(Parms["YGrid"])
end
-- legend
Parms["LegendType"] = getParm("LegendType", nil, nil, "s", KeyWords["vertical"])
i = 1
Parms["Series" .. i .. "Text"] = getParm("Series", i, "Text", "s") -- switch for showing a legend for series N
while Parms["Series" .. i .. "Text"] ~= nil do
i = i + 1
Parms["Series" .. i .. "Text"] = getParm("Series", i, "Text", "s") -- switch for showing a legend for series N
end
Parms["LegendX"] = getParm("LegendX", nil, nil, "n") -- switch for moving the legend from the default position, and for not adding space for it to right space
Parms["LegendY"] = getParm("LegendY", nil, nil, "n") -- switch for moving the legend from the default position
Parms["LegendTextWidth"] = getParm("LegendTextWidth", nil, nil, "n", 100)
Parms["LegendBorder"] = checkColor(getParm("LegendBorder", nil, nil, "s", "black"))
Parms["LegendSVG"] = getParm("LegendSVG", nil, nil, "s") -- switch for replacing all legend code
-- font sizes
Parms["FontSize"] = getParm("FontSize", nil, nil, "n", 100)
Parms["TitleFontSize"] = getParm("TitleFontSize", nil, nil, "n", Parms["FontSize"])
Parms["FootnoteFontSize"] = getParm("FootnoteFontSize", nil, nil, "n", Parms["FontSize"])
Parms["LegendFontSize"] = getParm("LegendFontSize", nil, nil, "n", Parms["FontSize"])
Parms["XAxisTitleFontSize"] = getParm("XAxisTitleFontSize", nil, nil, "n", Parms["FontSize"])
Parms["YAxisTitleFontSize"] = getParm("YAxisTitleFontSize", nil, nil, "n", Parms["FontSize"])
Parms["YAxis2TitleFontSize"] = getParm("YAxis2TitleFontSize", nil, nil, "n", Parms["FontSize"])
Parms["XAxisValuesFontSize"] = getParm("XAxisValuesFontSize", nil, nil, "n", Parms["FontSize"])
Parms["YAxisValuesFontSize"] = getParm("YAxisValuesFontSize", nil, nil, "n", Parms["FontSize"])
Parms["YAxis2ValuesFontSize"] = getParm("YAxis2ValuesFontSize", nil, nil, "n", Parms["FontSize"])
Parms["ChartTextFontSize"] = getParm("ChartTextFontSize", nil, nil, "n", Parms["FontSize"])
Parms["LabelsFontSize"] = getParm("LabelsFontSize", nil, nil, "n", Parms["ChartTextFontSize"])
-- bar width & spacing
Parms["BarWidth"] = getParm("BarWidth", nil, nil, "n", 20)
Parms["BarSpace"] = getParm("BarSpace", nil, nil, "n", 0) -- % of bar width
-- general graph line width
Parms["GraphLineWidth"] = getParm("GraphLineWidth", nil, nil, "n", 100)
-- pie chart
Parms["PieRadius"] = getParm("PieRadius", nil, nil, "n", 200)
Parms["Explode"] = getParm("Explode", nil, nil, "s") -- switch for exploding some or all pie segments
if Parms["Explode"] ~= nil then
if tonumber(Parms["Explode"]) ~= nil then
-- if Explode is a number, ensure it is of numeric type
Parms["Explode"] = tonumber(Parms["Explode"])
-- default explode is 20%
Parms["ExplodeRadius"] = getParm("ExplodeRadius", nil, nil, "n", 20)
else
-- any other value = all, default explode radius is 10%
Parms["ExplodeRadius"] = getParm("ExplodeRadius", nil, nil, "n", 10)
end
end
Parms["SegmentText"] = getParm("SegmentText", nil, nil, "s") -- switch for showing series text and/or values on pie segments
Parms["SegmentTextWidth"] = getParm("SegmentTextWidth", nil, nil, "n", 100)
Parms["SegmentTextRadius"] = getParm("SegmentTextRadius", nil, nil, "n", 105)
Parms["DoughnutHole"] = getParm("DoughnutHole", nil, nil, "s") -- switch for a doughnut chart
if Parms["DoughnutHole"] ~= nil then
if tonumber(Parms["DoughnutHole"]) ~= nil then
-- if DoughnutHole is a number, ensure it is of numeric type
Parms["DoughnutHole"] = tonumber(Parms["DoughnutHole"])
else
-- any other value, hole size is 50%
Parms["DoughnutHole"] = 50
end
end
Parms["PieStartAngle"] = getParm("PieStartAngle", nil, nil, "n", 0) -- move the start angle
Parms["PieSweepDir"] = getParm("PieSweepDir", nil, nil, "s", "AntiClockwise") -- any value not "AntiClockwise" will switch the sweep direction
-- bar and pie-segment borders
Parms["BorderColor"] = checkColor(getParm("BorderColor", nil, nil, "s")) -- switch for showing borders on bars
Parms["BorderWidth"] = getParm("BorderWidth", nil, nil, "n", 100) -- % of standard line width
-- series
i = 1
Parms["Series" .. i .. "Values"] = getParm("Series", i, "Values", "s") -- switch for showing a series
while Parms["Series" .. i .. "Values"] ~= nil do
Parms["Series" .. i .. "Type"] = getParm("Series", i, "Type", "s")
Parms["Series" .. i .. "YAxis2"] = getParm("Series", i, "YAxis2") -- switch for series to use YAxis2 as scale for Y values
Parms["Series" .. i .. "Labels"] = getParm("Series", i, "Labels") -- switch for series to show data labels
Parms["Series" .. i .. "Color"] = checkColor(getParm("Series", i, "Color", "s", iif(Parms["GrayScale"] ~= nil, GrayColor[i], DefColor[i])))
Parms["Series" .. i .. "Line"] = getParm("Series", i, "Line", "s")
Parms["Series" .. i .. "Width"] = getParm("Series", i, "Width", "n", Parms["GraphLineWidth"])
Parms["Series" .. i .. "Dash"] = getParm("Series", i, "Dash", "s", KeyWords["none"])
t = tonumber(Parms["Series" .. i .. "Dash"])
if t ~= nil and t <= #DashPattern then
-- if SeriesNDash is a number in the table of default dashes, use the dash pattern for that number
Parms["Series" .. i .. "Dash"] = DashPattern[t]
end
Parms["Series" .. i .. "Marker"] = getParm("Series", i, "Marker", "s") -- switch for markers on the graph
if tonumber(Parms["Series" .. i .. "Marker"]) ~= nil then
-- if SeriesNMarker is a number, ensure it is of numeric type
Parms["Series" .. i .. "Marker"] = tonumber(Parms["Series" .. i .. "Marker"])
end
Parms["Series" .. i .. "MarkerSize"] = getParm("Series", i, "MarkerSize", "n", 100)
Parms["Series" .. i .. "MarkerFill"] = checkColor(getParm("Series", i, "MarkerFill", "s"))
Parms["Series" .. i .. "Pattern"] = getParm("Series", i, "Pattern", "n")
if Parms["Series" .. i .. "Pattern"] ~= nil then
Parms["Series" .. i .. "PatternColor"] = checkColor(getParm("Series", i, "PatternColor", "s", iif(Parms["GrayScale"] ~= nil, "white", "black")))
end
SeriesCount = SeriesCount + 1
i = i + 1
Parms["Series" .. i .. "Values"] = getParm("Series", i, "Values", "s") -- switch for showing a series
end
-- groups
i = 1
Parms["Group" .. i .. "Text"] = getParm("Group", i, "Text", "s") -- switch for grouping values
while Parms["Group" .. i .. "Text"] ~= nil do
GroupsCount = GroupsCount + 1
i = i + 1
Parms["Group" .. i .. "Text"] = getParm("Group", i, "Text", "s")
end
-- chart texts
i = 1
Parms["ChartText" .. i] = getParm("ChartText", i, nil, "s") -- switch for showing chart text N
while Parms["ChartText" .. i] ~= nil do
Parms["ChartText" .. i .. "X"] = getParm("ChartText", i, "X", "n", 0)
Parms["ChartText" .. i .. "Y"] = getParm("ChartText", i, "Y", "n", 0)
ChartTextCount = ChartTextCount + 1
i = i + 1
Parms["ChartText" .. i] = getParm("ChartText", i, nil, "s") -- switch for showing chart text N
end
Parms["IncludeOriginalData"] = getParm("IncludeOriginalData", nil, nil, "s", KeyWords["auto"])
-- debug
Parms["Debug"] = getParm("Debug", nil, nil, "s") -- switch to run debug code
end
function getParm(s1, num, s2, typ, def, subst, with)
-- returns a named argument (of a specified type) or a default
-- the name may be built from multiple parts (s1, num, s2)
local s = KeyWords[s1]
if num ~= nil then
s = s .. num
end
if s2 ~= nil then
s = s .. KeyWords[s2]
end
local result
if Args[s] ~= nil then
result = Args[s]
if typ == "n" then
result = tonumber(result)
if result == nil then
table.insert(Msgs, string.format(MessageTexts.NotNumeric, s, Args[s]))
end
end
else
result = def
end
-- optional substitution of characters within the parameter value
if result ~= nil and subst and with then
result = mw.ustring.gsub(result, subst, with)
end
return result
end
function checkColor(p)
-- checks if p is numeric and in the colors table(s)
-- if so returns the color from the table
-- otherwise returns the original parameter value
if p == nil then
return nil
end
local t = tonumber(p)
if t ~= nil and t <= #DefColor then
return iif(Parms["GrayScale"] ~= nil, GrayColor[t], DefColor[t])
else
return p
end
end
function transfer(Parm, Tab, SetSize)
-- transfer values from a space-delimited parameter to a table
local i = 0
Parm = mw.text.trim(Parm)
if SetSize > 1 then
local x = SetSize + 1 -- to force new table for first time
for s in mw.text.gsplit(Parm, "%s+") do
if x > SetSize then
i = i + 1
Tab[i] = {}
x = 1
end
Tab[i][x] = s
x = x + 1
end
else
for s in mw.text.gsplit(Parm, "%s+") do
i = i + 1
Tab[i] = s
end
end
SeriesMaxLen = math.max(SeriesMaxLen, i)
end
function build(ParmStart, ParmEnd, Size, Tab, DefaultValue, UseI, DefaultTable)
-- builds table of specified size from a series of StartNEnd parameters
-- any nil parameters in the sequence may be filled with a default value, or i (with a prefix if set), or a value from a default table
for i = 1, Size do
if Parms[ParmStart .. i .. ParmEnd] ~= nil then
Tab[i] = Parms[ParmStart .. i .. ParmEnd]
elseif DefaultValue ~= nil then
Tab[i] = DefaultValue
elseif type(UseI) == "boolean" then
Tab[i] = i
elseif type(UseI) == "string" then
Tab[i] = UseI .. i
elseif DefaultTable ~= nil then
Tab[i] = DefaultTable[i]
else
-- nothing
end
end
end
function calcStack()
-- calculate stacked totals for series
-- the current accumlated total overwrites the SeriesData Y value
local Total = {}
for j = 1, #GroupText do
Total[j] = 0
local PosTotal, NegTotal = 0, 0
for i = 1, #SeriesData do
if SeriesData[i][j] ~= nil and tonumber(SeriesData[i][j][1]) == j then
Total[j] = Total[j] + SeriesData[i][j][2]
if tonumber(SeriesData[i][j][2]) < 0 then
NegTotal = NegTotal + SeriesData[i][j][2]
SeriesData[i][j][2] = NegTotal
else
PosTotal = PosTotal + SeriesData[i][j][2]
SeriesData[i][j][2] = PosTotal
end
end
end
end
if DoStack100 then
for j = 1, #GroupText do
for i = 1, #SeriesData do
if SeriesData[i][j] ~= nil then
SeriesData[i][j][2] = SeriesData[i][j][2] / Total[j] * 100
end
end
end
end
end
function checkParms()
-- check for parameter issues
if #GroupText > 0 then
for k1, v1 in ipairs(SeriesData) do
for k2, v2 in ipairs(v1) do
local t = tonumber(v2[1])
if t ~= math.floor(t)
or t < 1
or t > #GroupText then
table.insert(Msgs, string.format(MessageTexts.NotInGroup, k1, k2, v2[1]))
end
end
end
end
if not DoYAxis2 then
for k, v in pairs(YAxis2) do
table.insert(Msgs, string.format(MessageTexts.NoYAxis2, k))
end
end
for k, v in pairs(Marker) do
local t = tonumber(v)
if v == "none" then
-- OK
elseif t == nil then
table.insert(Msgs, string.format(MessageTexts.NotInMarkers, k, v))
elseif (t >= 1 and t <= 7) then
-- OK
else
table.insert(Msgs, string.format(MessageTexts.NotInMarkers, k, v))
end
end
for k, v in pairs(LineDash) do
local t = tonumber(v)
if v == "none" then
-- OK
elseif t == nil then
-- non-numerics are OK for LineDash
elseif (t >= 1 and t <= #DashPattern) then
-- OK
else
table.insert(Msgs, string.format(MessageTexts.NotInDashPatterns, k, v))
end
end
for k, v in pairs(FillPattern) do
local t = tonumber(v)
if v == "none" then
-- OK
elseif t == nil then
table.insert(Msgs, string.format(MessageTexts.NotInFillPatterns, k, v))
elseif (t >= 1 and t <= 8)
or (t >= 11 and t <= 18)
or (t >= 21 and t <= 24)
or (t >= 31 and t <= 34)
or (t >= 41 and t <= 49)
or (t >= 51 and t <= 56)
or (t >= 61 and t <= 64) then
-- OK
else
table.insert(Msgs, string.format(MessageTexts.NotInFillPatterns, k, v))
end
end
if #Msgs > 0 then
-- add messages to output
table.insert(r, " ===== Charts SVG messages =====")
for i = 1, math.min(#Msgs, 10) do
table.insert(r, " " .. Msgs[i])
end
return false
end
return true
end
function prelimsCommon()
Siz.ImagePadding = {}
Siz.Legend = {}
Siz.Text = {}
-- the base unit for font sizes can be changed by the user
BaseFontSize = BaseFontSize * (Parms["FontSize"] / 100)
FontSiz.Labels = 5 * BaseFontSize * Parms["LabelsFontSize"] / 100
FontSiz.Title = 7 * BaseFontSize * Parms["TitleFontSize"] / 100
FontSiz.Footnote = 3 * BaseFontSize * Parms["FootnoteFontSize"] / 100
FontSiz.LegendText = 5 * BaseFontSize * Parms["LegendFontSize"] / 100
FontSiz.ChartText = 5 * BaseFontSize * Parms["ChartTextFontSize"] / 100
-- the base line width can be changed by the user
BaseLineWidth = BaseLineWidth * Parms["LineWidth"] / 100
-- define sizes of other image components from base spacing units
Siz.ImagePadding.Top = 2 * BaseUnit
if Parms["ImagePaddingTop"] ~= nil then
Siz.ImagePadding.Top = Parms["ImagePaddingTop"]
end
Siz.ImagePadding.Bottom = 2 * BaseUnit
if Parms["ImagePaddingBottom"] ~= nil then
Siz.ImagePadding.Bottom = Parms["ImagePaddingBottom"]
end
Siz.ImagePadding.Left = 2 * BaseUnit
if Parms["ImagePaddingLeft"] ~= nil then
Siz.ImagePadding.Left = Parms["ImagePaddingLeft"]
end
Siz.ImagePadding.Right = 2 * BaseUnit
if Parms["ImagePaddingRight"] ~= nil then
Siz.ImagePadding.Right = Parms["ImagePaddingRight"]
end
Siz.ChartPadding = 2 * BaseUnit
Siz.Text.Interline = 2 * BaseFontSize
Siz.Text.Labels = FontSiz.Labels
Siz.Text.Title = iif(Parms["Title"] ~= nil and Parms["TitleY"] == nil, FontSiz.Title + Siz.Text.Interline, 0)
Siz.Footnote = iif(Parms["Footnote"] ~= nil and Parms["FootnoteY"] == nil, FontSiz.Footnote, 0)
Siz.Legend.Text = FontSiz.LegendText
Siz.Legend.TextWidth = 5 * FontSiz.LegendText * Parms["LegendTextWidth"] / 100
Siz.Legend.Offset = 3 * BaseUnit
Siz.Text.Chart = FontSiz.ChartText
-- chart size
ChartWidth = Parms["ChartWidth"]
ChartHeight = Parms["ChartHeight"]
-- legend height and width
Siz.Legend.ElementWidth = Siz.ChartPadding + (2 * Siz.Legend.Text) + Siz.ChartPadding + Siz.Legend.TextWidth
Siz.Legend.ElementHeight = Siz.Legend.Text + Siz.Text.Interline
local LegendElementsInWidth = 1
local LegendLines = #SeriesText
if Parms["LegendType"] == KeyWords["horizontal"] then
LegendElementsInWidth = math.floor(ChartWidth / Siz.Legend.ElementWidth)
LegendElementsInWidth = math.min(LegendElementsInWidth, #SeriesText)
LegendLines = math.ceil(#SeriesText / LegendElementsInWidth)
Siz.Legend.Width = (LegendElementsInWidth * Siz.Legend.ElementWidth) + Siz.ChartPadding
Siz.Legend.Height = Siz.ChartPadding + (LegendLines * Siz.Legend.ElementHeight) + Siz.ChartPadding
else
Siz.Legend.Width = Siz.Legend.ElementWidth + Siz.ChartPadding
Siz.Legend.Height = Siz.ChartPadding + (#SeriesText * Siz.Legend.ElementHeight) + Siz.ChartPadding
end
end
function prelimsAxes()
Pos.XAxis = {}
Pos.YAxis = {}
Pos.YAxis2 = {}
Siz.Space = {}
Siz.XAxis = {}
Siz.YAxis = {}
Siz.YAxis2 = {}
BarWidth = Parms["BarWidth"]
BarSpace = Parms["BarSpace"] / 100
-- The Mult values are the number of pixels per 1 unit on each axis
if #GroupText > 0 then
if BarSeriesCount > 0 then
GroupWidth = ChartWidth / #GroupText
if DoStack or DoStack100 then
UnitWidth = round(GroupWidth / 2, 0)
else
UnitWidth = round(GroupWidth / (BarSeriesCount + 1), 0)
end
BarWidth = round(UnitWidth / (1 + BarSpace), 0)
BarSpace = round(UnitWidth - BarWidth, 0)
Mult.X = ChartWidth / #GroupText
else
GroupWidth = ChartWidth / #GroupText
Mult.X = GroupWidth
end
else
Mult.X = ChartWidth / (math.abs(Parms["XMax"] - Parms["XMin"]))
end
Mult.Y = ChartHeight / math.abs(Parms["YMax"] - Parms["YMin"])
if DoYAxis2 then
Mult.Y2 = ChartHeight / math.abs(Parms["Y2Max"] - Parms["Y2Min"])
else
Mult.Y2 = 1
end
--
FontSiz.XAxisTitle = 6 * BaseFontSize * Parms["XAxisTitleFontSize"] / 100
FontSiz.XAxisValues = 5 * BaseFontSize * Parms["XAxisValuesFontSize"] / 100
FontSiz.YAxisTitle = 6 * BaseFontSize * Parms["YAxisTitleFontSize"] / 100
FontSiz.YAxisValues = 5 * BaseFontSize * Parms["YAxisValuesFontSize"] / 100
FontSiz.YAxis2Title = 6 * BaseFontSize * Parms["YAxis2TitleFontSize"] / 100
FontSiz.YAxis2Values = 5 * BaseFontSize * Parms["YAxis2ValuesFontSize"] / 100
Siz.AxisMark = 2 * BaseUnit
Siz.AxisMark2 = 1 * BaseUnit
Siz.XAxis.Values = FontSiz.XAxisValues + Siz.Text.Interline
Siz.XAxis.Title = iif(Parms["XAxisTitle"] ~= nil, FontSiz.XAxisTitle + Siz.Text.Interline, 0)
Siz.YAxis.Values = (2 * FontSiz.YAxisValues) + Siz.Text.Interline
Siz.YAxis.Title = iif(Parms["YAxisTitle"] ~= nil, FontSiz.YAxisTitle + Siz.Text.Interline, 0)
Siz.YAxis2.Values = 0
Siz.YAxis2.Title = 0
if DoYAxis2 then
Siz.YAxis2.Values = (2 * FontSiz.YAxis2Values) + Siz.Text.Interline
if Parms["YAxis2Title"] ~= nil then
Siz.YAxis2.Title = FontSiz.YAxis2Title + Siz.Text.Interline
end
end
-- spaces around the chart (working out from the chart):
-- AxisMarks
-- ChartPadding
-- AxisValues
-- AxisTitle
-- Title
-- Legend
-- Footnote
-- ImagePadding
-- Top Space
Pos.Title = Siz.ImagePadding.Top + FontSiz.Title
Siz.Space.Top = Siz.ImagePadding.Top + Siz.Text.Title + Siz.ChartPadding
-- Bottom Space
if Parms["YMin"] < 0 then
-- X axis line is within chart
Pos.XAxis.Line = Siz.Space.Top + ChartHeight
- round(((0 - Parms["YMin"]) * Mult.Y), 1)
Pos.XAxis.Marks = Pos.XAxis.Line
Pos.XAxis.Values = Pos.XAxis.Line + Siz.AxisMark + FontSiz.XAxisValues
Siz.Space.Bottom = Siz.ChartPadding
else
-- X axis line is at bottom of chart
Pos.XAxis.Line = Siz.Space.Top + ChartHeight
Pos.XAxis.Marks = Pos.XAxis.Line
Siz.Space.Bottom = iif(#GroupText > 0, 0, Siz.AxisMark)
Pos.XAxis.Values = Siz.Space.Top + ChartHeight + Siz.Space.Bottom + Siz.ChartPadding + FontSiz.XAxisValues
Siz.Space.Bottom = Siz.Space.Bottom + Siz.ChartPadding + Siz.XAxis.Values
end
if Parms["XAxisTitle"] ~= nil then
Pos.XAxis.Title = Siz.Space.Top + ChartHeight + Siz.Space.Bottom + FontSiz.XAxisTitle
Siz.Space.Bottom = Siz.Space.Bottom + Siz.XAxis.Title
end
if Parms["LegendType"] == KeyWords["horizontal"] and Parms["LegendX"] == nil then
Pos.Legend = Siz.Space.Top + ChartHeight + Siz.Space.Bottom + Siz.Legend.Offset
Siz.Space.Bottom = Siz.Space.Bottom + Siz.Legend.Offset + Siz.Legend.Height + Siz.Text.Interline
end
if Parms["Footnote"] ~= nil then
Pos.Footnote = Siz.Space.Top + ChartHeight + Siz.Space.Bottom + Siz.Footnote
Siz.Space.Bottom = Siz.Space.Bottom + Siz.Footnote
end
Siz.Space.Bottom = Siz.Space.Bottom + Siz.ImagePadding.Bottom
-- Left Space
Siz.Space.Left = Siz.ImagePadding.Left
if Parms["YAxisTitle"] ~= nil then
Pos.YAxis.Title = Siz.Space.Left + FontSiz.YAxisTitle -- pos is right edge of title
Siz.Space.Left = Siz.Space.Left + Siz.YAxis.Title
end
if Parms["XMin"] < 0 and #GroupText == 0 then
-- Y axis line is within chart
Siz.Space.Left = Siz.Space.Left + Siz.ChartPadding
Pos.YAxis.Line = Siz.Space.Left
+ round(((0 - Parms["XMin"]) * Mult.X), 1)
Pos.YAxis.Marks = Pos.YAxis.Line - Siz.AxisMark -- pos is left edge of marks box
Pos.YAxis.Values = Pos.YAxis.Marks - Siz.ChartPadding -- pos is right edge of values box
else
-- Y axis line is at left of chart
Siz.Space.Left = Siz.Space.Left + Siz.YAxis.Values + Siz.ChartPadding + Siz.AxisMark
Pos.YAxis.Line = Siz.Space.Left
Pos.YAxis.Marks = Pos.YAxis.Line - Siz.AxisMark -- pos is left edge of marks box
Pos.YAxis.Values = Pos.YAxis.Marks - Siz.ChartPadding -- pos is right edge of values box
end
-- Right Space
Pos.YAxis2.Line = Siz.Space.Left + ChartWidth
Pos.YAxis2.Marks = Pos.YAxis2.Line
Siz.Space.Right = Siz.AxisMark
Pos.YAxis2.Values = Pos.YAxis2.Line + Siz.Space.Right + Siz.ChartPadding -- pos is left edge of values box
Siz.Space.Right = Siz.Space.Right + Siz.ChartPadding + Siz.YAxis2.Values
Pos.YAxis2.Title = Siz.Space.Left + ChartWidth + Siz.Space.Right + FontSiz.YAxis2Title
Siz.Space.Right = Siz.Space.Right + Siz.YAxis2.Title
if Parms["LegendType"] == KeyWords["vertical"] and Parms["LegendX"] == nil then
Pos.Legend = Siz.Space.Left + ChartWidth + Siz.Space.Right + Siz.Legend.Offset
Siz.Space.Right = Siz.Space.Right + Siz.Legend.Offset + Siz.Legend.Width
end
Siz.Space.Right = Siz.Space.Right + Siz.ImagePadding.Right
Pos.XAxis.Zero = Siz.Space.Left - (iif(#GroupText == 0, Parms["XMin"], 0) * Mult.X)
Pos.YAxis.Zero = Siz.Space.Top + ChartHeight + (Parms["YMin"] * Mult.Y)
Pos.YAxis2.Zero = Siz.Space.Top + ChartHeight + (Parms["Y2Min"] * Mult.Y2)
-- Image size
ImageWidth = round(Siz.Space.Left + ChartWidth + Siz.Space.Right, 0)
ImageHeight = round(Siz.Space.Top + ChartHeight + Siz.Space.Bottom, 0)
end
function prelimsPie()
Siz.Space = {}
-- pie chart radius & origin
PieRadius = Parms["PieRadius"] -- not local
PieOriginX, PieOriginY = PieRadius, PieRadius -- not local
if Parms["Explode"] ~= nil then
PieOriginX = PieOriginX + (PieRadius * Parms["ExplodeRadius"] / 100)
PieOriginY = PieOriginY + (PieRadius * Parms["ExplodeRadius"] / 100)
end
if Parms["SegmentText"] ~= nil then
-- possibly add for segment texts outside the pie
local TextSpaceX = iif(Parms["Explode"] ~= nil, (PieRadius * Parms["ExplodeRadius"] / 100), 0)
+ (PieRadius * Parms["SegmentTextRadius"] / 100)
+ (5 * Siz.Text.Chart * Parms["SegmentTextWidth"] / 100)
PieOriginX = math.max(PieOriginX, TextSpaceX)
local TextSpaceY = iif(Parms["Explode"] ~= nil, (PieRadius * Parms["ExplodeRadius"] / 100), 0)
+ (PieRadius * Parms["SegmentTextRadius"] / 100)
+ (Siz.Text.Chart)
PieOriginY = math.max(PieOriginY, TextSpaceY)
end
-- for pie charts, chart size is calculated, not user-defined
ChartWidth = PieOriginX * 2
ChartHeight = PieOriginY * 2
-- Top Space
Siz.Space.Top = Siz.ImagePadding.Top + Siz.Text.Title + Siz.ChartPadding
Pos.Title = Siz.ImagePadding.Top + FontSiz.Title
-- Bottom Space
Siz.Space.Bottom = Siz.ChartPadding
if Parms["LegendType"] == KeyWords["horizontal"] and Parms["LegendX"] == nil then
Pos.Legend = Siz.Space.Top + ChartHeight + Siz.Space.Bottom + Siz.Legend.Offset
Siz.Space.Bottom = Siz.Space.Bottom + Siz.Legend.Offset + Siz.Legend.Height + Siz.Text.Interline
end
if Parms["Footnote"] ~= nil then
Pos.Footnote = Siz.Space.Top + ChartHeight + Siz.Space.Bottom + Siz.Footnote
Siz.Space.Bottom = Siz.Space.Bottom + Siz.Footnote
end
Siz.Space.Bottom = Siz.Space.Bottom + Siz.ImagePadding.Bottom
-- Left Space
Siz.Space.Left = Siz.ImagePadding.Left + Siz.ChartPadding
-- Right Space
Siz.Space.Right = Siz.ChartPadding
if Parms["LegendType"] == KeyWords["vertical"] and Parms["LegendX"] == nil then
Pos.Legend = Siz.Space.Left + ChartWidth + Siz.Space.Right + Siz.Legend.Offset
Siz.Space.Right = Siz.Space.Right + Siz.Legend.Offset + Siz.Legend.Width
end
Siz.Space.Right = Siz.Space.Right + Siz.ImagePadding.Right
-- Image size
ImageWidth = round(Siz.Space.Left + ChartWidth + Siz.Space.Right, 0)
ImageHeight = round(Siz.Space.Top + ChartHeight + Siz.Space.Bottom, 0)
-- Mult.X and Mult.Y are needed for positioning of Title, Footnote and Chart texts
Mult.X = round(ChartWidth / 100, 2)
Mult.Y = round(ChartHeight / 100, 2)
end
function commonTop()
-- output header
table.insert(r, "Select and copy the following text. Paste it into a plain text file. The text file should have an svg extension, for example ''mychart.svg''.")
table.insert(r, " ")
-- SVG header stuff
table.insert(r, " <?xml version=\"1.0\" encoding=\"UTF-8\" ?>")
table.insert(r, " <!-- Generator: en.wikipedia.org/wiki/Module:Charts SVG -->")
table.insert(r, " <svg id=\"head\"")
table.insert(r, " xmlns=\"http://www.w3.org/2000/svg\"")
table.insert(r, " xmlns:xlink=\"http://www.w3.org/1999/xlink\"")
table.insert(r, " version=\"1.1\"")
table.insert(r, " font-family=\"Liberation Sans, Arial, sans-serif\"")
table.insert(r, " width=\"" .. ImageWidth .. "\"")
table.insert(r, " height=\"" .. ImageHeight .. "\"")
table.insert(r, " >")
table.insert(r, " ")
table.insert(r, " <title>" .. Parms["FileTitle"] .. "</title>")
table.insert(r, " <desc>")
table.insert(r, " " .. Parms["FileDesc"] .. "")
table.insert(r, " </desc>")
table.insert(r, " ")
local DT = os.date("*t") -- returns a table with the current date & time
table.insert(r, " <metadata>")
table.insert(r, " <rdf:RDF")
table.insert(r, " xmlns:rdf = \"http://www.w3.org/1999/02/22-rdf-syntax-ns#\"")
table.insert(r, " xmlns:rdfs = \"http://www.w3.org/2000/01/rdf-schema#\"")
table.insert(r, " xmlns:dc = \"http://purl.org/dc/elements/1.1/\" >")
table.insert(r, " <rdf:Description")
table.insert(r, " dc:title=\"" .. Parms["FileTitle"] .. "\"")
table.insert(r, " dc:description=\"" .. Parms["FileDesc"] .. "\"")
table.insert(r, " dc:date=\"" .. DT.year .. "-" .. DT.month .. "-" .. DT.day .. "\"")
table.insert(r, " dc:format=\"image/svg+xml\"")
table.insert(r, " dc:language=\"en\" >")
table.insert(r, " </rdf:Description>")
table.insert(r, " </rdf:RDF>")
table.insert(r, " </metadata>")
table.insert(r, " ")
table.insert(r, " <!-- == Backgrounds == -->")
table.insert(r, " ")
-- image background rectangle
table.insert(r, " <!-- image background -->")
table.insert(r, " <rect id=\"imagebackground\" x=\"0\" y=\"0\" width=\"" .. ImageWidth .. "\" height=\"" .. ImageHeight .. "\""
.. " stroke-width=\"1\""
.. " stroke=\"" .. Parms["ImageBorder"] .. "\""
.. " fill=\"" .. Parms["ImageBackgroundColor"] .. "\""
.. "/>")
table.insert(r, " ")
if Parms["ImageBackgroundSVG"] ~= nil then
table.insert(r, " <!-- Image Background SVG -->")
table.insert(r, " " .. Parms["ImageBackgroundSVG"] .. "")
table.insert(r, " ")
end
-- chart background
if Parms["ChartBackgroundColor"] ~= nil then
table.insert(r, " <!-- chart background -->")
table.insert(r, " <rect id=\"ChartBackground\" x=\"" .. Siz.Space.Left .. "\" y=\"" .. Siz.Space.Top .. "\""
.. " width=\"" .. ChartWidth .. "\""
.. " height=\"" .. ChartHeight .. "\""
.. " fill=\"" .. Parms["ChartBackgroundColor"] .. "\"/>")
table.insert(r, " ")
end
end
function codeAxisGrids()
local XAxisGridStepStretch
if #GroupText == 0 and tonumber(Parms["XGrid"]) ~= nil then
XAxisGridStepStretch = round(Parms["XGrid"] * Mult.X, 2)
end
local YAxisGridStepStretch
if tonumber(Parms["YGrid"]) ~= nil then
YAxisGridStepStretch = round(Parms["YGrid"] * Mult.Y, 2)
end
if Parms["XGrid"] ~= KeyWords["none"] or Parms["YGrid"] ~= KeyWords["none"] then
table.insert(r, " <!-- == Axis Grids == -->")
table.insert(r, " ")
table.insert(r, " <style type=\"text/css\"> <![CDATA[")
table.insert(r, " .gridline {")
table.insert(r, " stroke: lightgrey;")
table.insert(r, " stroke-width: " .. BaseLineWidth .. ";")
table.insert(r, " }")
table.insert(r, " ]]>")
table.insert(r, " </style>")
table.insert(r, " ")
table.insert(r, " <defs>")
if #GroupText == 0 and Parms["XGrid"] ~= KeyWords["none"] then
table.insert(r, " <!-- x-axis grid lines, vertical -->")
table.insert(r, " <pattern id=\"x-gridline\""
.. " x=\"" .. Pos.XAxis.Zero .. "\""
.. " y=\"" .. Pos.YAxis.Zero .. "\""
.. " height=\"" .. ChartHeight .. "\""
.. " width=\"" .. XAxisGridStepStretch .. "\""
.. " patternUnits=\"userSpaceOnUse\">")
table.insert(r, " <line x1=\"0\""
.. " y1=\"0\""
.. " x2=\"0\""
.. " y2=\"" .. ChartHeight .. "\""
.. " class=\"gridline\"/>")
table.insert(r, " </pattern>")
end
if Parms["YGrid"] ~= KeyWords["none"] then
table.insert(r, " <!-- y-axis grid lines, horizontal -->")
table.insert(r, " <pattern id=\"y-gridline\""
.. " x=\"" .. Pos.XAxis.Zero .. "\""
.. " y=\"" .. Pos.YAxis.Zero .. "\""
.. " height=\"" .. YAxisGridStepStretch .. "\""
.. " width=\"" .. ChartWidth .. "\""
.. " patternUnits=\"userSpaceOnUse\">")
table.insert(r, " <line x1=\"0\""
.. " y1=\"0\""
.. " x2=\"" .. ChartWidth .. "\""
.. " y2=\"0\""
.. " class=\"gridline\"/>")
table.insert(r, " </pattern>")
end
table.insert(r, " </defs>")
table.insert(r, " ")
if #GroupText == 0 and Parms["XGrid"] ~= KeyWords["none"] then
table.insert(r, " <rect id=\"x-gridline-area\" x=\"" .. Siz.Space.Left .. "\" y=\"" .. Siz.Space.Top .. "\""
.. " width=\"" .. round(ChartWidth * 1.01, 1) .. "\""
.. " height=\"" .. ChartHeight .. "\""
.. " fill=\"url(#x-gridline)\"/>")
end
if Parms["YGrid"] ~= KeyWords["none"] then
table.insert(r, " <rect id=\"y-gridline-area\" x=\"" .. Siz.Space.Left .. "\" y=\"" .. Siz.Space.Top .. "\""
.. " width=\"" .. ChartWidth .. "\""
.. " height=\"" .. round(ChartHeight * 1.01, 1) .. "\""
.. " fill=\"url(#y-gridline)\"/>")
end
table.insert(r, " ")
end
end
function stylesAreas()
table.insert(r, " <!-- == Graph Area Styles == -->")
table.insert(r, " ")
table.insert(r, " <style type=\"text/css\"> <![CDATA[")
table.insert(r, " /*-- general style of areas --*/")
table.insert(r, " .series-areas-general {")
if Parms["BorderColor"] ~= nil then
table.insert(r, " stroke: " .. Parms["BorderColor"] .. ";")
table.insert(r, " stroke-width: " .. BaseLineWidth * Parms["BorderWidth"] / 100 .. ";")
else
table.insert(r, " stroke-width: " .. 0 .. ";")
end
table.insert(r, " }")
if DoPie then
for k, v in ipairs(SeriesText) do
codeStyleArea(k, Color[k], FillPattern[k])
end
else
for i = 1, #SeriesData do
if SeriesData[i] ~= nil and (SType[i] == KeyWords["bar"] or DoArea) then
codeStyleArea(i, Color[i], FillPattern[i])
end
end
end
table.insert(r, " ]]>")
table.insert(r, " </style>")
table.insert(r, " ")
end
function codeStyleArea(SeriesNumber, Color, Pattern)
-- area style for a series
-- SeriesNumber, numeric
-- Color, text
-- Pattern, text: 'none' or nil means a pattern is not defined
table.insert(r, " /*-- series " .. SeriesNumber .. " --*/")
table.insert(r, " .series" .. SeriesNumber .. " {")
-- fill for the area
if Pattern == nil or Pattern == KeyWords["none"] then
table.insert(r, " fill: " .. Color .. ";")
else
table.insert(r, " fill: url(#series" .. SeriesNumber .. "pattern);")
end
table.insert(r, " }")
end
function defsAreas()
local exists = false
for i = 1, SeriesCount do
if FillPattern[i] ~= nil and FillPattern[i] ~= KeyWords["none"] then
exists = true
end
end
if exists then
table.insert(r, " <!-- == Fill Patterns == -->")
table.insert(r, " ")
table.insert(r, " <defs>")
for i = 1, SeriesCount do
if FillPattern[i] ~= nil and FillPattern[i] ~= KeyWords["none"] then
-- define the pattern
codeDefFillPattern(i, FillPattern[i], Color[i], FillPatternColor[i])
end
end
table.insert(r, " </defs>")
table.insert(r, " ")
end
end
function codeDefFillPattern(SeriesNumber, PatternType, FillColor, PatternColor)
-- definition of a fill pattern for a series
-- SeriesNumber, numeric
-- PatternType, numeric
-- FillColor, text
-- PatternColor, text
local l, t = "", ""
if PatternType == nil then
return
end
table.insert(r, " <!-- Series " .. SeriesNumber .. "-->")
-- pattern groups:
-- 1-8: line hatch, close, rotated 0 (horizontal), 90 (vertical), 45, -45, 22.5, -22,5, 67.5, -67.5
-- 11-18: line hatch, wide, rotated 0 (horizontal), 90 (vertical), 45, -45, 22.5, -22,5, 67.5, -67.5
-- 21-24: cross hatch, close, rotated 0, 45, 22.5, 67.5
-- 31-34: cross hatch, wide, rotated 0, 45, 22.5, 67.5
-- ##### addition of fill patterns will require changes in checkParms() to allow them
if PatternType >= 1 and PatternType <= 8 then
-- line hatches, close
l = " <pattern id=\"series" .. SeriesNumber .. "pattern\" width=\"6\" height=\"6\" patternUnits=\"userSpaceOnUse\" patternTransform=\"rotate("
if PatternType == 1 then
l = l .. "0"
elseif PatternType == 2 then
l = l .. "90"
elseif PatternType == 3 then
l = l .. "45"
elseif PatternType == 4 then
l = l .. "-45"
elseif PatternType == 5 then
l = l .. "22.5"
elseif PatternType == 6 then
l = l .. "-22.5"
elseif PatternType == 7 then
l = l .. "67.5"
elseif PatternType == 8 then
l = l .. "-67.5"
end
table.insert(r, l .. ")\">")
table.insert(r, " <rect x=\"0\" y=\"0\" width=\"6\" height=\"6\"" .. " fill=\"" .. FillColor .. "\" stroke=\"none\"/>")
table.insert(r, " <line x1=\"0\" y1=\"2\" x2=\"6\" y2=\"2\" stroke=\"" .. PatternColor .. "\" stroke-width=\"2\"/>")
table.insert(r, " </pattern>")
elseif PatternType >= 11 and PatternType <= 18 then
-- line hatches, wide
l = " <pattern id=\"series" .. SeriesNumber .. "pattern\" width=\"12\" height=\"12\" patternUnits=\"userSpaceOnUse\" patternTransform=\"rotate("
if PatternType == 11 then
l = l .. "0"
elseif PatternType == 12 then
l = l .. "90"
elseif PatternType == 13 then
l = l .. "45"
elseif PatternType == 14 then
l = l .. "-45"
elseif PatternType == 15 then
l = l .. "22.5"
elseif PatternType == 16 then
l = l .. "-22.5"
elseif PatternType == 17 then
l = l .. "67.5"
elseif PatternType == 18 then
l = l .. "-67.5"
end
table.insert(r, l .. ")\">")
table.insert(r, " <rect x=\"0\" y=\"0\" width=\"12\" height=\"12\"" .. " fill=\"" .. FillColor .. "\" stroke=\"none\"/>")
table.insert(r, " <line x1=\"0\" y1=\"8\" x2=\"12\" y2=\"8\" stroke=\"" .. PatternColor .. "\" stroke-width=\"2\"/>")
table.insert(r, " </pattern>")
elseif PatternType >= 21 and PatternType <= 24 then
-- cross hatches, close
l = " <pattern id=\"series" .. SeriesNumber .. "pattern\" width=\"6\" height=\"6\" patternUnits=\"userSpaceOnUse\" patternTransform=\"rotate("
if PatternType == 21 then
l = l .. "0"
elseif PatternType == 22 then
l = l .. "45"
elseif PatternType == 23 then
l = l .. "22.5"
elseif PatternType == 24 then
l = l .. "67.5"
end
table.insert(r, l .. ")\">")
table.insert(r, " <rect x=\"0\" y=\"0\" width=\"6\" height=\"6\"" .. " fill=\"" .. FillColor .. "\" stroke=\"none\"/>")
table.insert(r, " <line x1=\"0\" y1=\"4\" x2=\"6\" y2=\"4\" stroke=\"" .. PatternColor .. "\" stroke-width=\"2\"/>")
table.insert(r, " <line x1=\"4\" y1=\"0\" x2=\"4\" y2=\"6\" stroke=\"" .. PatternColor .. "\" stroke-width=\"2\"/>")
table.insert(r, " </pattern>")
elseif PatternType >= 31 and PatternType <= 34 then
-- cross hatches, wide
l = " <pattern id=\"series" .. SeriesNumber .. "pattern\" width=\"12\" height=\"12\" patternUnits=\"userSpaceOnUse\" patternTransform=\"rotate("
if PatternType == 31 then
l = l .. "0"
elseif PatternType == 32 then
l = l .. "45"
elseif PatternType == 33 then
l = l .. "22.5"
elseif PatternType == 34 then
l = l .. "67.5"
end
table.insert(r, l .. ")\">")
table.insert(r, " <rect x=\"0\" y=\"0\" width=\"12\" height=\"12\"" .. " fill=\"" .. FillColor .. "\" stroke=\"none\"/>")
table.insert(r, " <line x1=\"0\" y1=\"2\" x2=\"12\" y2=\"2\" stroke=\"" .. PatternColor .. "\" stroke-width=\"2\"/>")
table.insert(r, " <line x1=\"4\" y1=\"0\" x2=\"4\" y2=\"12\" stroke=\"" .. PatternColor .. "\" stroke-width=\"2\"/>")
table.insert(r, " </pattern>")
elseif PatternType >= 41 and PatternType <= 49 then
-- stipples
if PatternType == 41 then
table.insert(r, " <pattern id=\"series" .. SeriesNumber .. "pattern\" width=\"12\" height=\"12\" patternUnits=\"userSpaceOnUse\">")
table.insert(r, " <rect x=\"0\" y=\"0\" width=\"12\" height=\"12\"" .. " fill=\"" .. FillColor .. "\" stroke=\"none\"/>")
table.insert(r, " <rect x=\"0\" y=\"0\" width=\"1\" height=\"1\" fill=\"" .. PatternColor .. "\" stroke=\"none\"/>")
table.insert(r, " <rect x=\"6\" y=\"6\" width=\"1\" height=\"1\" fill=\"" .. PatternColor .. "\" stroke=\"none\"/>")
elseif PatternType == 42 then
table.insert(r, " <pattern id=\"series" .. SeriesNumber .. "pattern\" width=\"8\" height=\"8\" patternUnits=\"userSpaceOnUse\">")
table.insert(r, " <rect x=\"0\" y=\"0\" width=\"8\" height=\"8\"" .. " fill=\"" .. FillColor .. "\" stroke=\"none\"/>")
table.insert(r, " <rect x=\"0\" y=\"0\" width=\"1\" height=\"1\" fill=\"" .. PatternColor .. "\" stroke=\"none\"/>")
table.insert(r, " <rect x=\"4\" y=\"4\" width=\"1\" height=\"1\" fill=\"" .. PatternColor .. "\" stroke=\"none\"/>")
elseif PatternType == 43 then
table.insert(r, " <pattern id=\"series" .. SeriesNumber .. "pattern\" width=\"6\" height=\"6\" patternUnits=\"userSpaceOnUse\">")
table.insert(r, " <rect x=\"0\" y=\"0\" width=\"6\" height=\"6\"" .. " fill=\"" .. FillColor .. "\" stroke=\"none\"/>")
table.insert(r, " <rect x=\"0\" y=\"0\" width=\"1\" height=\"1\" fill=\"" .. PatternColor .. "\" stroke=\"none\"/>")
table.insert(r, " <rect x=\"3\" y=\"3\" width=\"1\" height=\"1\" fill=\"" .. PatternColor .. "\" stroke=\"none\"/>")
elseif PatternType == 44 then
table.insert(r, " <pattern id=\"series" .. SeriesNumber .. "pattern\" width=\"4\" height=\"4\" patternUnits=\"userSpaceOnUse\">")
table.insert(r, " <rect x=\"0\" y=\"0\" width=\"4\" height=\"4\"" .. " fill=\"" .. FillColor .. "\" stroke=\"none\"/>")
table.insert(r, " <rect x=\"0\" y=\"0\" width=\"1\" height=\"1\" fill=\"" .. PatternColor .. "\" stroke=\"none\"/>")
table.insert(r, " <rect x=\"2\" y=\"2\" width=\"1\" height=\"1\" fill=\"" .. PatternColor .. "\" stroke=\"none\"/>")
elseif PatternType == 45 then
table.insert(r, " <pattern id=\"series" .. SeriesNumber .. "pattern\" width=\"12\" height=\"12\" patternUnits=\"userSpaceOnUse\">")
table.insert(r, " <rect x=\"0\" y=\"0\" width=\"12\" height=\"12\"" .. " fill=\"" .. FillColor .. "\" stroke=\"none\"/>")
table.insert(r, " <rect x=\"0\" y=\"0\" width=\"2\" height=\"2\" fill=\"" .. PatternColor .. "\" stroke=\"none\"/>")
table.insert(r, " <rect x=\"6\" y=\"6\" width=\"2\" height=\"2\" fill=\"" .. PatternColor .. "\" stroke=\"none\"/>")
elseif PatternType == 46 then
table.insert(r, " <pattern id=\"series" .. SeriesNumber .. "pattern\" width=\"8\" height=\"8\" patternUnits=\"userSpaceOnUse\">")
table.insert(r, " <rect x=\"0\" y=\"0\" width=\"8\" height=\"8\"" .. " fill=\"" .. FillColor .. "\" stroke=\"none\"/>")
table.insert(r, " <rect x=\"0\" y=\"0\" width=\"2\" height=\"2\" fill=\"" .. PatternColor .. "\" stroke=\"none\"/>")
table.insert(r, " <rect x=\"4\" y=\"4\" width=\"2\" height=\"2\" fill=\"" .. PatternColor .. "\" stroke=\"none\"/>")
elseif PatternType == 47 then
table.insert(r, " <pattern id=\"series" .. SeriesNumber .. "pattern\" width=\"6\" height=\"6\" patternUnits=\"userSpaceOnUse\">")
table.insert(r, " <rect x=\"0\" y=\"0\" width=\"6\" height=\"6\"" .. " fill=\"" .. FillColor .. "\" stroke=\"none\"/>")
table.insert(r, " <rect x=\"0\" y=\"0\" width=\"2\" height=\"2\" fill=\"" .. PatternColor .. "\" stroke=\"none\"/>")
table.insert(r, " <rect x=\"3\" y=\"3\" width=\"2\" height=\"2\" fill=\"" .. PatternColor .. "\" stroke=\"none\"/>")
elseif PatternType == 48 then
table.insert(r, " <pattern id=\"series" .. SeriesNumber .. "pattern\" width=\"16\" height=\"16\" patternUnits=\"userSpaceOnUse\">")
table.insert(r, " <rect x=\"0\" y=\"0\" width=\"16\" height=\"16\"" .. " fill=\"" .. FillColor .. "\" stroke=\"none\"/>")
table.insert(r, " <rect x=\"0\" y=\"4\" width=\"4\" height=\"4\" fill=\"" .. PatternColor .. "\" stroke=\"none\"/>")
table.insert(r, " <rect x=\"8\" y=\"12\" width=\"4\" height=\"4\" fill=\"" .. PatternColor .. "\" stroke=\"none\"/>")
elseif PatternType == 49 then
table.insert(r, " <pattern id=\"series" .. SeriesNumber .. "pattern\" width=\"12\" height=\"12\" patternUnits=\"userSpaceOnUse\">")
table.insert(r, " <rect x=\"0\" y=\"0\" width=\"12\" height=\"12\"" .. " fill=\"" .. FillColor .. "\" stroke=\"none\"/>")
table.insert(r, " <rect x=\"0\" y=\"0\" width=\"4\" height=\"4\" fill=\"" .. PatternColor .. "\" stroke=\"none\"/>")
table.insert(r, " <rect x=\"6\" y=\"6\" width=\"4\" height=\"4\" fill=\"" .. PatternColor .. "\" stroke=\"none\"/>")
end
table.insert(r, l .. " </pattern>")
elseif PatternType >= 51 and PatternType <= 56 then
-- checks
if PatternType == 51 then
table.insert(r, " <pattern id=\"series" .. SeriesNumber .. "pattern\" width=\"4\" height=\"4\" patternUnits=\"userSpaceOnUse\">")
table.insert(r, " <rect x=\"0\" y=\"0\" width=\"4\" height=\"4\"" .. " fill=\"" .. FillColor .. "\" stroke=\"none\"/>")
table.insert(r, " <rect x=\"0\" y=\"0\" width=\"2\" height=\"2\" fill=\"" .. PatternColor .. "\" stroke=\"none\"/>")
table.insert(r, " <rect x=\"2\" y=\"2\" width=\"2\" height=\"2\" fill=\"" .. PatternColor .. "\" stroke=\"none\"/>")
elseif PatternType == 52 then
table.insert(r, " <pattern id=\"series" .. SeriesNumber .. "pattern\" width=\"6\" height=\"6\" patternUnits=\"userSpaceOnUse\">")
table.insert(r, " <rect x=\"0\" y=\"0\" width=\"6\" height=\"6\"" .. " fill=\"" .. FillColor .. "\" stroke=\"none\"/>")
table.insert(r, " <rect x=\"0\" y=\"0\" width=\"3\" height=\"3\" fill=\"" .. PatternColor .. "\" stroke=\"none\"/>")
table.insert(r, " <rect x=\"3\" y=\"3\" width=\"3\" height=\"3\" fill=\"" .. PatternColor .. "\" stroke=\"none\"/>")
elseif PatternType == 53 then
table.insert(r, " <pattern id=\"series" .. SeriesNumber .. "pattern\" width=\"8\" height=\"8\" patternUnits=\"userSpaceOnUse\">")
table.insert(r, " <rect x=\"0\" y=\"0\" width=\"8\" height=\"8\"" .. " fill=\"" .. FillColor .. "\" stroke=\"none\"/>")
table.insert(r, " <rect x=\"0\" y=\"0\" width=\"4\" height=\"4\" fill=\"" .. PatternColor .. "\" stroke=\"none\"/>")
table.insert(r, " <rect x=\"4\" y=\"4\" width=\"4\" height=\"4\" fill=\"" .. PatternColor .. "\" stroke=\"none\"/>")
elseif PatternType == 54 then
table.insert(r, " <pattern id=\"series" .. SeriesNumber .. "pattern\" width=\"10\" height=\"10\" patternUnits=\"userSpaceOnUse\">")
table.insert(r, " <rect x=\"0\" y=\"0\" width=\"10\" height=\"10\"" .. " fill=\"" .. FillColor .. "\" stroke=\"none\"/>")
table.insert(r, " <rect x=\"0\" y=\"0\" width=\"5\" height=\"5\" fill=\"" .. PatternColor .. "\" stroke=\"none\"/>")
table.insert(r, " <rect x=\"5\" y=\"5\" width=\"5\" height=\"5\" fill=\"" .. PatternColor .. "\" stroke=\"none\"/>")
elseif PatternType == 55 then
table.insert(r, " <pattern id=\"series" .. SeriesNumber .. "pattern\" width=\"12\" height=\"12\" patternUnits=\"userSpaceOnUse\">")
table.insert(r, " <rect x=\"0\" y=\"0\" width=\"12\" height=\"12\"" .. " fill=\"" .. FillColor .. "\" stroke=\"none\"/>")
table.insert(r, " <rect x=\"0\" y=\"0\" width=\"6\" height=\"6\" fill=\"" .. PatternColor .. "\" stroke=\"none\"/>")
table.insert(r, " <rect x=\"6\" y=\"6\" width=\"6\" height=\"6\" fill=\"" .. PatternColor .. "\" stroke=\"none\"/>")
elseif PatternType == 56 then
table.insert(r, " <pattern id=\"series" .. SeriesNumber .. "pattern\" width=\"16\" height=\"16\" patternUnits=\"userSpaceOnUse\">")
table.insert(r, " <rect x=\"0\" y=\"0\" width=\"16\" height=\"16\"" .. " fill=\"" .. FillColor .. "\" stroke=\"none\"/>")
table.insert(r, " <rect x=\"0\" y=\"0\" width=\"8\" height=\"8\" fill=\"" .. PatternColor .. "\" stroke=\"none\"/>")
table.insert(r, " <rect x=\"8\" y=\"8\" width=\"8\" height=\"8\" fill=\"" .. PatternColor .. "\" stroke=\"none\"/>")
end
table.insert(r, " </pattern>")
elseif PatternType >= 61 and PatternType <= 64 then
-- circles
if PatternType == 61 then
table.insert(r, " <pattern id=\"series" .. SeriesNumber .. "pattern\" width=\"16\" height=\"16\" patternUnits=\"userSpaceOnUse\">")
table.insert(r, " <rect x=\"0\" y=\"0\" width=\"16\" height=\"16\"" .. " fill=\"" .. FillColor .. "\" stroke=\"none\"/>")
table.insert(r, " <circle cx=\"4\" cy=\"4\" r=\"3\" fill=\"" .. PatternColor .. "\" stroke=\"none\"/>")
table.insert(r, " <circle cx=\"12\" cy=\"12\" r=\"3\" fill=\"" .. PatternColor .. "\" stroke=\"none\"/>")
elseif PatternType == 62 then
table.insert(r, " <pattern id=\"series" .. SeriesNumber .. "pattern\" width=\"20\" height=\"20\" patternUnits=\"userSpaceOnUse\">")
table.insert(r, " <rect x=\"0\" y=\"0\" width=\"20\" height=\"20\"" .. " fill=\"" .. FillColor .. "\" stroke=\"none\"/>")
table.insert(r, " <circle cx=\"5\" cy=\"5\" r=\"4\" fill=\"" .. PatternColor .. "\" stroke=\"none\"/>")
table.insert(r, " <circle cx=\"15\" cy=\"15\" r=\"4\" fill=\"" .. PatternColor .. "\" stroke=\"none\"/>")
elseif PatternType == 63 then
table.insert(r, " <pattern id=\"series" .. SeriesNumber .. "pattern\" width=\"16\" height=\"16\" patternUnits=\"userSpaceOnUse\">")
table.insert(r, " <rect x=\"0\" y=\"0\" width=\"16\" height=\"16\"" .. " fill=\"" .. FillColor .. "\" stroke=\"none\"/>")
table.insert(r, " <circle cx=\"4\" cy=\"4\" r=\"3\" fill=\"none\" stroke=\"" .. PatternColor .. "\"/>")
table.insert(r, " <circle cx=\"12\" cy=\"12\" r=\"3\" fill=\"none\" stroke=\"" .. PatternColor .. "\"/>")
elseif PatternType == 64 then
table.insert(r, " <pattern id=\"series" .. SeriesNumber .. "pattern\" width=\"20\" height=\"20\" patternUnits=\"userSpaceOnUse\">")
table.insert(r, " <rect x=\"0\" y=\"0\" width=\"20\" height=\"20\"" .. " fill=\"" .. FillColor .. "\" stroke=\"none\"/>")
table.insert(r, " <circle cx=\"5\" cy=\"5\" r=\"4\" fill=\"none\" stroke=\"" .. PatternColor .. "\" stroke-width=\"1\"/>")
table.insert(r, " <circle cx=\"15\" cy=\"15\" r=\"4\" fill=\"none\" stroke=\"" .. PatternColor .. "\" stroke-width=\"1\"/>")
end
table.insert(r, " </pattern>")
end
end
function stylesLines()
table.insert(r, " <!-- == Graph Line Styles == -->")
table.insert(r, " ")
table.insert(r, " <style type=\"text/css\"> <![CDATA[")
table.insert(r, " /*-- general style of graph lines --*/")
table.insert(r, " .series-lines-general {")
table.insert(r, " stroke-width: " .. BaseLineWidth * Parms["GraphLineWidth"] / 100 .. ";")
table.insert(r, " stroke-linejoin: round;")
table.insert(r, " stroke-linecap: round;")
table.insert(r, " fill: none;")
table.insert(r, " }")
if #Marker > 0 then
table.insert(r, " /*-- general style of markers --*/")
table.insert(r, " .graph-marker {")
table.insert(r, " stroke-width: " .. BaseLineWidth .. ";")
table.insert(r, " fill: white;")
table.insert(r, " stroke-linejoin: round;")
table.insert(r, " }")
end
for i = 1, #SeriesData do
if SeriesData[i] ~= nil and SType[i] == KeyWords["line"] then
local lw = 0
if LineWidth[i] ~= nil then
lw = BaseLineWidth * LineWidth[i] / 100
end
codeStyleLineMarker(i, LineShow[i], Color[i], lw, LineDash[i], Marker[i], MarkerFill[i])
end
end
table.insert(r, " ]]>")
table.insert(r, " </style>")
table.insert(r, " ")
end
function codeStyleLineMarker(SeriesNumber, LineRequired, LineColor, LineWidth, LineDash, MarkerRequired, MarkerFill)
-- line and marker styles for a series
-- SeriesNumber, numeric
-- LineRequired
-- LineColor, text
-- LineWidth, numeric
-- LineDash, text
-- MarkerRequired
-- MarkerFill, text
if LineRequired ~= nil or MarkerRequired ~= nil then
table.insert(r, " /*-- series " .. SeriesNumber .. " --*/")
-- line defined if either line or marker required
table.insert(r, " .series" .. SeriesNumber .. " {")
-- stroke for the line
if LineRequired == KeyWords["none"] then
table.insert(r, " stroke: none;")
else
table.insert(r, " stroke: " .. LineColor .. ";")
table.insert(r, " stroke-width: " .. LineWidth .. ";")
-- dash array for the line
if LineDash ~= nil and LineDash ~= KeyWords["none"] then
table.insert(r, " stroke-dasharray: " .. LineDash .. ";")
table.insert(r, " stroke-linecap: butt;")
end
end
if MarkerRequired == nil or MarkerRequired == KeyWords["none"] then
----close the line style
table.insert(r, " }")
else
-- note: markers are set on the lines when they are created, not here in the line style
-- this enables the line in the legend to have only a mid-marker
table.insert(r, " }")
-- define the marker stroke and fill
table.insert(r, " .series" .. SeriesNumber .. "-marker {")
-- marker stroke color is always the same as the line
table.insert(r, " stroke: " .. LineColor .. ";")
table.insert(r, " fill: " .. MarkerFill .. ";")
table.insert(r, " }")
end
end
end
function defsMarkers()
local exists = false
for i = 1, #SeriesData do
if Marker[i] ~= nil and Marker[i] ~= KeyWords["none"] then
exists = true
end
end
if exists then
table.insert(r, " <!-- == Graph Markers == -->")
table.insert(r, " ")
table.insert(r, " <defs>")
table.insert(r, " <g class=\"graph-marker\">")
for i = 1, #SeriesData do
if Marker[i] ~= nil and Marker[i] ~= KeyWords["none"] then
-- define the shape for the marker
codeDefMarkerShape(i, Marker[i], BaseUnit * 2 * MarkerSize[i] / 100, MarkerFill[i])
-- and use the shape in the definition of the marker
codeDefMarkerCreate(i, BaseUnit * 2 * MarkerSize[i] / 100)
table.insert(r, " ")
end
end
table.insert(r, " </g>")
table.insert(r, " </defs>")
table.insert(r, " ")
end
end
function codeDefMarkerShape(SeriesNumber, MarkerType, MarkerSize, MarkerFill)
-- definition of a shape for a series
-- SeriesNumber, numeric
-- MarkerType, numeric or text, if text (eg: 'yes') the default is SeriesNumber
-- MarkerSize, numeric
-- MarkerFill, text
-- addition of further markers will require changes in checkParms() to allow them
local l, t = "", ""
table.insert(r, " <g id=\"series" .. SeriesNumber .. "markershape\">")
if MarkerType ~= nil then
-- MarkerType is a number, use it for the type
else
-- MarkerType is not a number, use the series number
MarkerType = SeriesNumber
end
-- all shapes are defined around a centre point of 0,0
if MarkerType == 2 then
-- circle
table.insert(r, " <!-- circle -->")
l = " <circle cx=\"0\" dx=\"0\" r=\"" .. round(MarkerSize / 2, 2) .. "\""
if MarkerFill ~= nil then
l = l .. " fill=\"" .. MarkerFill .. "\""
end
table.insert(r, l .. "/>")
elseif MarkerType == 3 then
-- triangle (point up)
t = round(MarkerSize / 2, 2)
table.insert(r, " <!-- triangle, point up -->")
l = " <polygon points=\"" .. -t .. "," .. t .. " " .. t .. "," .. t .. ", " .. 0 .. "," .. -t .."\""
if MarkerFill ~= nil then
l = l .. " fill=\"" .. MarkerFill .. "\""
end
table.insert(r, l .. "/>")
elseif MarkerType == 4 then
-- tilted square (diamond)
table.insert(r, " <!-- diamond -->")
l = " <rect transform=\"rotate(45)\""
.. " x=\"" .. round(-MarkerSize / 2, 2) .. "\""
.. " y=\"" .. round(-MarkerSize / 2, 2) .. "\""
.. " width=\"" .. round(MarkerSize, 2) .. "\""
.. " height=\"" .. round(MarkerSize, 2) .. "\""
if MarkerFill ~= nil then
l = l .. " fill=\"" .. MarkerFill .. "\""
end
table.insert(r, l .. "/>")
elseif MarkerType == 5 then
-- tilted triangle (point down)
t = round(MarkerSize / 2, 2)
table.insert(r, " <!-- triangle, point down -->")
l = " <polygon points=\"" .. 0 .. "," .. t .. " " .. -t .. "," .. -t .. ", " .. t .. "," .. -t .. "\""
if MarkerFill ~= nil then
l = l .. " fill=\"" .. MarkerFill .. "\""
end
table.insert(r, l .. "/>")
elseif MarkerType == 6 then
-- cross
t = round(MarkerSize / 2, 2)
table.insert(r, " <!-- cross -->")
table.insert(r, " <path d=\"M " .. -t .. "," .. t .. " L " .. t .. "," .. -t .. " z M " .. t .. "," .. t .. " L " .. -t .. "," .. -t .. " z\"/>")
elseif MarkerType == 7 then
-- plus
t = round(MarkerSize / 2, 2)
table.insert(r, " <!-- plus -->")
table.insert(r, " <path d=\"M " .. 0 .. "," .. t .. " L " .. 0 .. "," .. -t .. " z M " .. -t .. "," .. 0 .. " L " .. t .. "," .. 0 .. " z\"/>")
else
-- default and 1
-- square
table.insert(r, " <!-- square -->")
l = " <rect x=\"" .. round(-MarkerSize / 2, 2) .. "\""
.. " y=\"" .. round(-MarkerSize / 2, 2) .. "\""
.. " width=\"" .. round(MarkerSize, 2) .. "\""
.. " height=\"" .. round(MarkerSize, 2) .. "\""
if MarkerFill ~= nil then
l = l .. " fill=\"" .. MarkerFill .. "\""
end
table.insert(r, l .. "/>")
end
table.insert(r, " </g>")
end
function codeDefMarkerCreate(SeriesNumber, MarkerSize)
-- definition of a marker for a series
-- SeriesNumber, numeric
-- MarkerSize, numeric
local l = ""
l = " <marker id=\"series" .. SeriesNumber .. "marker\""
l = l .. " class=\"series" .. SeriesNumber .. "-marker\""
l = l .. " viewBox=\"0 0 " .. round(MarkerSize, 2) .. " " .. round(MarkerSize, 2) .. "\""
.. " markerWidth=\"" .. round(MarkerSize, 2) .. "\""
.. " markerHeight=\"" .. round(MarkerSize, 2) .. "\""
.. " overflow=\"visible\""
.. " markerUnits=\"userSpaceOnUse\">"
table.insert(r, l)
table.insert(r, " <use xlink:href=\"#series" .. SeriesNumber .. "markershape\"/>")
table.insert(r, " </marker>")
end
function elementsGraphs()
local BarNumber = BarSeriesCount + 1
local LabelPos = {}
table.insert(r, " <!-- == Graph Bars and Lines == -->")
table.insert(r, " ")
table.insert(r, " <g id=\"graphs\" transform=\"translate(" .. Siz.Space.Left .. ", " .. Siz.Space.Top + ChartHeight .. ")\">")
for i = #SeriesData, 1, -1 do
if SeriesText[i] == nil then
table.insert(r, " <!-- " .. "Series" .. i .. " -->")
else
table.insert(r, " <!-- " .. SeriesText[i] .. " -->")
end
if DoYAxis2 and YAxis2[i] ~= nil then
table.insert(r, " <!-- Y values are on right Y axis -->")
end
if Parms["IncludeOriginalData"] == KeyWords["no"]
or (Parms["IncludeOriginalData"] == KeyWords["auto"] and DataPointsCount > AutoDataPointsLimit) then
table.insert(r, " <!-- original data: not included -->")
else
table.insert(r, " <!-- original data:")
for k, v in ipairs(OriginalData[i]) do
table.insert(r, " " .. v[1] .. " " .. v[2])
end
table.insert(r, " -->")
end
LabelPos[i] = {}
if SType[i] == KeyWords["bar"] then
BarNumber = BarNumber - 1
for k, v in ipairs(SeriesData[i]) do
if v[2] ~= nil then
local px = tonumber(v[1])
if #GroupText > 0 then
if DoStack or DoStack100 then
px = round((px - 1) * GroupWidth
+ UnitWidth / 2
+ (BarSpace / 2), 1)
else
px = round((px - 1) * GroupWidth
+ UnitWidth / 2
+ UnitWidth * (BarNumber - 1)
+ (BarSpace / 2), 1)
end
else
px = round(((px - Parms["XMin"]) * Mult.X) - (BarWidth / 2), 1)
end
local val = tonumber(v[2])
local top, ht = 0, 0
local Min, Multiply = Parms["YMin"], Mult.Y
if DoYAxis2 and YAxis2[i] ~= nil then
Min = Parms["Y2Min"]
Multiply = Mult.Y2
end
if Min >= 0 then
top = Min - val
ht = val - Min
elseif val >= 0 then
top = Min - val
ht = val
else
top = Min
ht = -val
end
top = round(top * Multiply, 1)
ht = round(ht * Multiply, 1)
table.insert(r, " <rect id=\"series" .. i .. "-" .. k .. "\" class=\"series-areas-general series" .. i .. "\""
.. " x=\"" .. px .. "\" y=\"" .. top .. "\""
.. " width=\"" .. BarWidth .. "\" height=\"" .. ht .. "\" />")
if Labels[i] ~= nil then
LabelPos[i][k] = {}
LabelPos[i][k]["x"] = px + (BarWidth / 2)
if val <= 0 then
LabelPos[i][k]["y"] = top + ht + Siz.Text.Interline + Siz.Text.Labels
else
LabelPos[i][k]["y"] = top - Siz.Text.Interline
end
end
end
end
else
-- line
tr = " <polyline id=\"graph" .. i .. "\" class=\"series-"
if DoArea then
tr = tr .. "areas"
else
tr = tr .. "lines"
end
tr = tr .. "-general series" .. i .. "\""
table.insert(r, tr)
if Marker[i] ~= nil and Marker[i] ~= KeyWords["none"] then
-- set the line to have markers
table.insert(r, " marker-start=\"url(#series" .. i .. "marker)\" marker-mid=\"url(#series" .. i .. "marker)\" marker-end=\"url(#series" .. i .. "marker)\"")
end
table.insert(r, " points=\"")
local lastx = 0
-- multiply numeric values as necessary
for k, v in ipairs(SeriesData[i]) do
local px = tonumber(v[1])
if #GroupText > 0 then
px = round((px - 1) * GroupWidth
+ (GroupWidth / 2), 1)
else
px = round((px - Parms["XMin"]) * Mult.X, 1)
end
local py = tonumber(v[2])
if DoYAxis2 and YAxis2[i] ~= nil then
py = round((Parms["Y2Min"] - py) * Mult.Y2, 1)
else
py = round((Parms["YMin"] - py) * Mult.Y, 1)
end
if DoArea and k == 1 then
table.insert(r, " " .. px .. ", " .. iif(Parms["YMin"] < 0, Parms["YMin"] * Mult.Y, 0) .. "")
end
table.insert(r, " " .. px .. ", " .. py .. "")
lastx = px
if Labels[i] ~= nil then
LabelPos[i][k] = {}
LabelPos[i][k]["x"] = px + Siz.Text.Interline
LabelPos[i][k]["y"] = py - Siz.Text.Interline
end
end
if DoArea then
table.insert(r, " " .. lastx .. ", " .. iif(Parms["YMin"] < 0, Parms["YMin"] * Mult.Y, 0) .. "")
end
table.insert(r, " \"/>")
end
table.insert(r, " ")
end
if not DoStack100 and #Labels > 0 then
table.insert(r, " <!-- == Data Labels == -->")
table.insert(r, " ")
table.insert(r, " <style type=\"text/css\"> <![CDATA[")
table.insert(r, " .labeltext {")
table.insert(r, " font-size: " .. Siz.Text.Labels .. "px;")
table.insert(r, " }")
table.insert(r, " ]]>")
table.insert(r, " </style>")
table.insert(r, " ")
for i = #SeriesData, 1, -1 do
if Labels[i] ~= nil then
for k, v in ipairs(SeriesData[i]) do
if SType[i] == KeyWords["bar"] then
table.insert(r, " <text id=\"series" .. i .. "-" .. k .. "-label\" class=\"labelstext\""
.. " x=\"" .. LabelPos[i][k]["x"] .. "\""
.. " y=\"" .. LabelPos[i][k]["y"] .. "\""
.. " text-anchor=\"middle\">"
.. v[2]
.. "</text>")
else
table.insert(r, " <text id=\"series" .. i .. "-" .. k .. "-label\" class=\"labelstext\""
.. " x=\"" .. LabelPos[i][k]["x"] .. "\""
.. " y=\"" .. LabelPos[i][k]["y"] .. "\""
.. " text-anchor=\"left\">"
.. v[2]
.. "</text>")
end
end
end
end
end
table.insert(r, " </g>")
table.insert(r, " ")
end
function elementsPie()
-- pie segments
table.insert(r, " <!-- == Pie Segments == -->")
table.insert(r, " ")
table.insert(r, " <g id=\"segments\" class=\"series-areas-general\" transform=\"translate(" .. Siz.Space.Left + PieOriginX .. ", " .. Siz.Space.Top + PieOriginY .. ")\">")
if Parms["IncludeOriginalData"] == KeyWords["no"]
or (Parms["IncludeOriginalData"] == KeyWords["auto"] and DataPointsCount > AutoDataPointsLimit) then
table.insert(r, " <!-- original data: not included -->")
else
table.insert(r, " <!-- original data:")
for k, v in ipairs(OriginalData) do
table.insert(r, " " .. v[1] .. " " .. v[2])
end
table.insert(r, " -->")
end
local Total = 0
for k, v in ipairs(SeriesData) do
Total = Total + v[2]
end
local TwoPi = math.pi * 2
local Sweep = 0
if Parms["PieSweepDir"] ~= "AntiClockwise" then
-- change arcs to clockwise
Sweep = 1
end
local Radian = 0
if Parms["PieStartAngle"] ~= 0 then
Radian = math.rad(Parms["PieStartAngle"])
end
local InnerX, InnerY, InnerRadius = 0, 0, 0
if Parms["DoughnutHole"] == nil then
-- no doughnut, segments start at pie origin (0, 0)
else
-- doughnut, segments start at the hole radius
InnerRadius = Parms["DoughnutHole"] / 100 * PieRadius
InnerX = round(math.cos(Radian) * InnerRadius, 1)
InnerY = round(math.sin(Radian) * InnerRadius, 1)
end
-- outer arcs start at the pie radius
local OuterX = round(math.cos(Radian) * PieRadius, 1)
local OuterY = round(math.sin(Radian) * PieRadius, 1)
local Mid = {}
for k, v in ipairs(SeriesData) do
local Arc = 0 -- default is short arc (<= 180 degrees)
if (v[2] / Total * TwoPi) > math.pi then
Arc = 1 -- long arc
end
Mid[k] = Radian + ((v[2] / Total * TwoPi) / 2 * iif(Sweep == 0, 1, -1))
-- adjust X and Y for explode
local DX, DY = 0, 0
if Parms["Explode"] == nil or (type(Parms["Explode"]) == "number" and k > Parms["Explode"]) then
-- no explode for this segment
else
DX = round(math.cos(Mid[k]) * (PieRadius * Parms["ExplodeRadius"] / 100), 1)
DY = round(math.sin(Mid[k]) * (PieRadius * Parms["ExplodeRadius"] / 100), 1)
end
Radian = Radian + (v[2] / Total * TwoPi * iif(Sweep == 0, 1, -1))
local NextOuterX = round(math.cos(Radian) * PieRadius, 1)
local NextOuterY = round(math.sin(Radian) * PieRadius, 1)
t = " <path id=\"segment" .. k .. "\" class=\"series" .. k .. "\" d=\"M " .. (0 + InnerX + DX) .. ", " .. -(0 + InnerY + DY)
.. " l " .. (OuterX - InnerX) .. ", " .. -(OuterY - InnerY)
.. " a " .. PieRadius .. ", " .. PieRadius .. " 0 " .. Arc .. " " .. Sweep .. " " .. (NextOuterX - OuterX) .. ", " .. -(NextOuterY - OuterY)
if Parms["DoughnutHole"] == nil then
t = t .. " z\" />"
else
local NextInnerX = round(math.cos(Radian) * InnerRadius, 1)
local NextInnerY = round(math.sin(Radian) * InnerRadius, 1)
t = t .. " l " .. (NextInnerX - NextOuterX).. ", " .. -(NextInnerY - NextOuterY)
.. " a " .. InnerRadius .. ", " .. InnerRadius .. " 0 " .. Arc .. " " .. iif(Sweep == 0, 1, 0) .. " " .. (InnerX - NextInnerX) .. ", " .. -(InnerY - NextInnerY) .. "\" />"
InnerX = NextInnerX
InnerY = NextInnerY
end
table.insert(r, t)
OuterX = NextOuterX
OuterY = NextOuterY
end
table.insert(r, " </g>")
table.insert(r, " ")
if Parms["SegmentText"] ~= nil then
-- pie segment texts
table.insert(r, " <!-- == Pie Segment Texts == -->")
table.insert(r, " ")
table.insert(r, " <style type=\"text/css\"> <![CDATA[")
table.insert(r, " .segmenttext {")
table.insert(r, " font-size: " .. FontSiz.LegendText .. "px;")
table.insert(r, " }")
table.insert(r, " ]]>")
table.insert(r, " </style>")
table.insert(r, " ")
table.insert(r, " <g id=\"segmenttexts\" class=\"segmenttext\" transform=\"translate(" .. Siz.Space.Left + PieOriginX .. ", " .. Siz.Space.Top + PieOriginY .. ")\">")
for k, v in ipairs(SeriesData) do
-- adjust X and Y for explode
local DX, DY = 0, 0
if Parms["Explode"] == nil or (type(Parms["Explode"]) == "number" and k > Parms["Explode"]) then
-- no explode for this segment
else
DX = round(math.cos(Mid[k]) * (PieRadius * Parms["ExplodeRadius"] / 100), 1)
DY = round(math.sin(Mid[k]) * (PieRadius * Parms["ExplodeRadius"] / 100), 1)
end
local TextX = round(math.cos(Mid[k]) * (PieRadius * Parms["SegmentTextRadius"] / 100), 1)
local TextY = round(math.sin(Mid[k]) * (PieRadius * Parms["SegmentTextRadius"] / 100), 1)
if TextY < 0 then
TextY = TextY - FontSiz.LegendText
end
t = " <text id=\"segment" .. k .. "text\""
.. " x=\"" .. (TextX + DX) .. "\" y=\"" .. -(TextY + DY) .. "\""
t = t .. " text-anchor=\"" .. iif(TextX < 0, "end", "start") .. "\">"
local tt = ""
if string.find(Parms["SegmentText"], KeyWords["text"], 1, true) > 0 then
tt = SeriesText[k]
end
if string.find(Parms["SegmentText"], KeyWords["value"], 1, true) > 0 then
tt = tt .. iif(string.len(tt) > 0, " ", "") .. v[2]
end
if string.find(Parms["SegmentText"], KeyWords["percent"], 1, true) > 0 then
tt = tt .. iif(string.len(tt) > 0, " ", "") .. round(v[2] / Total * 100, 0) .. "%"
end
t = t .. tt
table.insert(r, t .. "</text>")
end
table.insert(r, " </g>")
table.insert(r, " ")
end
end
function codeAxes()
--[=[ to display positioning tables
table.insert(r, "<!--")
listTable(Mult, " ", "Mult")
listTable(FontSiz, " ", "FontSiz")
listTable(Pos, " ", "Pos")
listTable(Siz, " ", "Siz")
table.insert(r, "-->")
]=]
-- axis styles
table.insert(r, " <!-- == Axis Styles == -->")
table.insert(r, " ")
table.insert(r, " <style type=\"text/css\"> <![CDATA[")
table.insert(r, " .axisline-x {")
table.insert(r, " stroke: black;")
table.insert(r, " stroke-width: " .. BaseLineWidth * 2 .. ";")
table.insert(r, " stroke-linecap: butt;")
table.insert(r, " }")
table.insert(r, " .axisline-y {")
table.insert(r, " stroke: " .. Parms["YAxisColor"] .. ";")
table.insert(r, " stroke-width: " .. BaseLineWidth * 2 .. ";")
table.insert(r, " stroke-linecap: butt;")
table.insert(r, " }")
table.insert(r, " .axisline-y2 {")
table.insert(r, " stroke: " .. Parms["YAxis2Color"] .. ";")
table.insert(r, " stroke-width: " .. BaseLineWidth * 2 .. ";")
table.insert(r, " stroke-linecap: butt;")
table.insert(r, " }")
table.insert(r, " .axismark-main {")
table.insert(r, " stroke: black;")
table.insert(r, " stroke-width: " .. BaseLineWidth .. ";")
table.insert(r, " }")
table.insert(r, " .axismark-second {")
table.insert(r, " stroke: black;")
table.insert(r, " stroke-width: " .. BaseLineWidth .. ";")
table.insert(r, " }")
table.insert(r, " .axistitle-x {")
table.insert(r, " font-size: " .. FontSiz.XAxisTitle .. "px;")
table.insert(r, " }")
table.insert(r, " .axisnumber-x {")
table.insert(r, " font-size: " .. FontSiz.XAxisValues .. "px;")
table.insert(r, " }")
table.insert(r, " .axistitle-y {")
table.insert(r, " font-size: " .. FontSiz.YAxisTitle .. "px;")
table.insert(r, " }")
table.insert(r, " .axisnumber-y {")
table.insert(r, " font-size: " .. FontSiz.YAxisValues .. "px;")
table.insert(r, " }")
if DoYAxis2 then
table.insert(r, " .axistitle-y2 {")
table.insert(r, " font-size: " .. FontSiz.YAxis2Title .. "px;")
table.insert(r, " }")
table.insert(r, " .axisnumber-y2 {")
table.insert(r, " font-size: " .. FontSiz.YAxis2Values .. "px;")
table.insert(r, " }")
end
table.insert(r, " ]]>")
table.insert(r, " </style>")
table.insert(r, " ")
-- calculate stretched values for grid & mark spacings
local XAxisMarkStepStretch = round(Parms["XAxisValueStep"] * Mult.X, 3)
local XAxisMark2StepStretch = 0
if Parms["XAxisMark2Step"] ~= nil then
XAxisMark2StepStretch = round(Parms["XAxisMark2Step"] * Mult.X, 3)
end
local YAxisMarkStepStretch = round(Parms["YAxisValueStep"] * Mult.Y, 3)
local YAxisMark2StepStretch = 0
if Parms["YAxisMark2Step"] ~= nil then
YAxisMark2StepStretch = round(Parms["YAxisMark2Step"] * Mult.Y, 3)
end
local YAxis2MarkStepStretch = round(Parms["YAxis2ValueStep"] * Mult.Y2, 3)
local YAxis2Mark2StepStretch = 0
if Parms["YAxis2Mark2Step"] ~= nil then
YAxis2Mark2StepStretch = round(Parms["YAxis2Mark2Step"] * Mult.Y2, 3)
end
table.insert(r, " <!-- == Axis Marks == -->")
table.insert(r, " ")
-- X Axis Marks
if #GroupText == 0 then
table.insert(r, " <defs>")
table.insert(r, " <pattern id=\"x-axismark-main\""
.. " x=\"" .. Pos.XAxis.Zero .. "\""
.. " width=\"" .. XAxisMarkStepStretch .. "\""
.. " height=\"" .. Siz.AxisMark .. "\" patternUnits=\"userSpaceOnUse\">")
table.insert(r, " <line x1=\"0\" y1=\"0\" x2=\"0\" y2=\"" .. Siz.AxisMark .. "\" class=\"axismark-main\"/>")
table.insert(r, " </pattern>")
if Parms["XAxisMark2Step"] ~= nil then
table.insert(r, " <pattern id=\"x-axismark-second\""
.. " x=\"" .. Pos.XAxis.Zero .. "\""
.. " width=\"" .. XAxisMark2StepStretch .. "\""
.. " height=\"" .. Siz.AxisMark2 .. "\" patternUnits=\"userSpaceOnUse\">")
table.insert(r, " <line x1=\"0\" y1=\"0\" x2=\"0\" y2=\"" .. Siz.AxisMark2 .. "\" class=\"axismark-second\"/>")
table.insert(r, " </pattern>")
end
table.insert(r, " </defs>")
table.insert(r, " ")
if Parms["XAxisMark2Step"] ~= nil then
table.insert(r, " <rect id=\"x-axismark2\""
.. " x=\"" .. Siz.Space.Left .. "\""
.. " y=\"" .. Pos.XAxis.Marks .. "\""
.. " width=\"" .. round(ChartWidth * 1.01, 1) .. "\""
.. " height=\"" .. Siz.AxisMark2 .. "\""
.. " fill=\"url(#x-axismark-second)\"/>")
end
table.insert(r, " <rect id=\"x-axismark\""
.. " x=\"" .. Siz.Space.Left .. "\""
.. " y=\"" .. Pos.XAxis.Marks .. "\""
.. " width=\"" .. round(ChartWidth * 1.01, 1) .. "\""
.. " height=\"" .. Siz.AxisMark .. "\""
.. " fill=\"url(#x-axismark-main)\"/>")
table.insert(r, " ")
end
-- Y Axis Marks
table.insert(r, " <defs>")
table.insert(r, " <pattern id=\"y-axismark-main\""
.. " y=\"" .. Pos.YAxis.Zero .. "\""
.. " width=\"" .. Siz.AxisMark .. "\""
.. " height=\"" .. YAxisMarkStepStretch .. "\" patternUnits=\"userSpaceOnUse\">")
table.insert(r, " <line x1=\"0\" y1=\"0\" x2=\"" .. Siz.AxisMark .. "\" y2=\"0\" class=\"axismark-main\"/>")
table.insert(r, " </pattern>")
if Parms["YAxisMark2Step"] ~= nil then
table.insert(r, " <pattern id=\"y-axismark-second\""
.. " y=\"" .. Pos.YAxis.Zero .. "\""
.. " width=\"" .. Siz.AxisMark2 .. "\""
.. " height=\"" .. YAxisMark2StepStretch .. "\" patternUnits=\"userSpaceOnUse\">")
table.insert(r, " <line x1=\"0\" y1=\"0\" x2=\"" .. Siz.AxisMark2 .. "\" y2=\"0\" class=\"axismark-second\"/>")
table.insert(r, " </pattern>")
end
table.insert(r, " </defs>")
table.insert(r, " ")
if Parms["YAxisMark2Step"] ~= nil then
table.insert(r, " <rect id=\"y-axismark2\""
.. " x=\"" .. Pos.YAxis.Marks + Siz.AxisMark - Siz.AxisMark2 .. "\""
.. " y=\"" .. Siz.Space.Top .. "\""
.. " width=\"" .. Siz.AxisMark2 .. "\""
.. " height=\"" .. round(ChartHeight * 1.01, 1) .. "\""
.. " fill=\"url(#y-axismark-second)\"/>")
end
table.insert(r, " <rect id=\"y-axismark\""
.. " x=\"" .. Pos.YAxis.Marks .. "\""
.. " y=\"" .. Siz.Space.Top .. "\""
.. " width=\"" .. Siz.AxisMark .. "\""
.. " height=\"" .. round(ChartHeight * 1.01, 1) .. "\""
.. " fill=\"url(#y-axismark-main)\"/>")
table.insert(r, " ")
-- Y Axis 2 Marks
if DoYAxis2 then
table.insert(r, " <defs>")
table.insert(r, " <pattern id=\"y-axis2mark-main\""
.. " y=\"" .. Pos.YAxis2.Zero .. "\""
.. " width=\"" .. Siz.AxisMark .. "\""
.. " height=\"" .. YAxis2MarkStepStretch .. "\" patternUnits=\"userSpaceOnUse\">")
table.insert(r, " <line x1=\"0\" y1=\"0\" x2=\"" .. Siz.AxisMark .. "\" y2=\"0\" class=\"axismark-main\"/>")
table.insert(r, " </pattern>")
if Parms["YAxis2Mark2Step"] ~= nil then
table.insert(r, " <pattern id=\"y-axis2mark-second\""
.. " y=\"" .. Pos.YAxis2.Zero.. "\""
.. " width=\"" .. Siz.AxisMark2 .. "\""
.. " height=\"" .. YAxis2Mark2StepStretch .. "\" patternUnits=\"userSpaceOnUse\">")
table.insert(r, " <line x1=\"0\" y1=\"0\" x2=\"" .. Siz.AxisMark2 .. "\" y2=\"0\" class=\"axismark-second\"/>")
table.insert(r, " </pattern>")
end
table.insert(r, " </defs>")
table.insert(r, " ")
if Parms["YAxis2Mark2Step"] ~= nil then
table.insert(r, " <rect id=\"y-axis2mark2\""
.. " x=\"" .. Pos.YAxis2.Marks .. "\""
.. " y=\"" .. Siz.Space.Top .. "\""
.. " width=\"" .. Siz.AxisMark2 .. "\""
.. " height=\"" .. round(ChartHeight * 1.01, 1) .. "\""
.. " fill=\"url(#y-axis2mark-second)\"/>")
end
table.insert(r, " <rect id=\"y-axis2mark\""
.. " x=\"" .. Pos.YAxis2.Marks .. "\""
.. " y=\"" .. Siz.Space.Top .. "\""
.. " width=\"" .. Siz.AxisMark .. "\""
.. " height=\"" .. round(ChartHeight * 1.01, 1) .. "\""
.. " fill=\"url(#y-axis2mark-main)\"/>")
table.insert(r, " ")
end
table.insert(r, " <!-- == Axis Lines == -->")
table.insert(r, " ")
table.insert(r, " <line id=\"x-axis\""
.. " x1=\"" .. Siz.Space.Left .. "\""
.. " y1=\"" .. Pos.XAxis.Line .. "\""
.. " x2=\"" .. Siz.Space.Left + ChartWidth .. "\""
.. " y2=\"" .. Pos.XAxis.Line .. "\" class=\"axisline-x\"/>")
table.insert(r, " <line id=\"y-axis\""
.. " x1=\"" .. Pos.YAxis.Line .. "\""
.. " y1=\"" .. Siz.Space.Top .. "\""
.. " x2=\"" .. Pos.YAxis.Line .. "\""
.. " y2=\"" .. Siz.Space.Top + ChartHeight .. "\" class=\"axisline-y\"/>")
if DoYAxis2 then
table.insert(r, " <line id=\"y-axis2\""
.. " x1=\"" .. Pos.YAxis2.Line .. "\""
.. " y1=\"" .. Siz.Space.Top .. "\""
.. " x2=\"" .. Pos.YAxis2.Line .. "\""
.. " y2=\"" .. Siz.Space.Top + ChartHeight .. "\" class=\"axisline-y2\" />")
end
table.insert(r, " ")
table.insert(r, " <!-- == Axis Values == -->")
table.insert(r, " ")
local Anchor = "middle"
local RotateText = ""
if Parms["XAxisValueRotate"] ~= nil then
if Parms["XAxisValueRotate"] < 0 then
Anchor = "end"
else
Anchor = "start"
end
RotateText = " transform=\"rotate(" .. Parms["XAxisValueRotate"] .. ", "
end
if #GroupText == 0 then
t = (Parms["XMax"] >= 10000)
if Parms["XAxisValueFormat"] ~= nil then
t = not (Parms["XAxisValueFormat"] == 'none')
end
table.insert(r, " <g id=\"x-axis-values\" class=\"axisnumber-x\" text-anchor=\"" .. Anchor .. "\">")
codeAxisValues("x",
Pos.XAxis.Zero,
Parms["XAxisValueStep"],
Parms["XMin"], Parms["XMax"],
Mult.X, 0, round(Pos.XAxis.Values, 1),
Parms["XAxisValueMultiplier"], Parms["XAxisValueRound"],
Parms["XAxisValuePrefix"], Parms["XAxisValueSuffix"],
t, RotateText)
table.insert(r, " </g>")
table.insert(r, " ")
else
table.insert(r, " <g id=\"x-axis-values\" class=\"axisnumber-x\" transform=\"translate("
.. Siz.Space.Left .. ", "
.. Pos.XAxis.Values
.. ")\" text-anchor=\"" .. Anchor .. "\">")
for k, v in ipairs(GroupText) do
local bx = ((k - 1) * GroupWidth)
+ (GroupWidth / 2)
table.insert(r, " <text x=\"" .. round(bx, 1) .. "\""
.. iif(string.len(RotateText) > 0, RotateText .. round(bx, 1) .. ", " .. -round(FontSiz.XAxisValues / 3, 1) .. ")\"", "")
.. ">" .. v .. "</text>")
end
table.insert(r, " </g>")
table.insert(r, " ")
end
t = (Parms["YMax"] >= 10000)
if Parms["YAxisValueFormat"] ~= nil then
t = not (Parms["YAxisValueFormat"] == 'none')
end
table.insert(r, " <g id=\"y-axis-values\" class=\"axisnumber-y\" text-anchor=\"end\">")
codeAxisValues("y",
Pos.YAxis.Zero,
Parms["YAxisValueStep"],
Parms["YMin"], Parms["YMax"],
Mult.Y, FontSiz["YAxisValues"] / 3, round(Pos.YAxis.Values, 1),
Parms["YAxisValueMultiplier"], Parms["YAxisValueRound"],
Parms["YAxisValuePrefix"], Parms["YAxisValueSuffix"],
t, "")
table.insert(r, " </g>")
table.insert(r, " ")
if DoYAxis2 then
t = (Parms["Y2Max"] >= 10000)
if Parms["YAxis2ValueFormat"] ~= nil then
t = not (Parms["YAxis2ValueFormat"] == 'none')
end
table.insert(r, " <g id=\"y-axis2-values\" class=\"axisnumber-y2\" text-anchor=\"start\">")
codeAxisValues("y",
Pos.YAxis2.Zero,
Parms["YAxis2ValueStep"],
Parms["Y2Min"], Parms["Y2Max"],
Mult.Y2, FontSiz["YAxis2Values"] / 3, round(Pos.YAxis2.Values, 1),
Parms["YAxis2ValueMultiplier"], Parms["YAxis2ValueRound"],
Parms["YAxis2ValuePrefix"], Parms["YAxis2ValueSuffix"],
t, "")
table.insert(r, " </g>")
table.insert(r, " ")
end
if Parms["XAxisTitle"] ~= nil
or Parms["YAxisTitle"] ~= nil
or (DoYAxis2 and Parms["YAxis2Title"] ~= nil) then
table.insert(r, " <!-- == Axis Titles == -->")
table.insert(r, " ")
end
if Parms["XAxisTitle"] ~= nil then
table.insert(r, " <text id=\"title-x\" class=\"axistitle-x\""
.. " x=\"" .. Siz.Space.Left + (ChartWidth * 0.5) .. "\""
.. " y=\"" .. round(Pos.XAxis.Title, 1) .. "\" text-anchor=\"middle\">"
.. Parms["XAxisTitle"]
.. "</text>")
table.insert(r, " ")
end
if Parms["YAxisTitle"] ~= nil then
table.insert(r, " <text id=\"title-y\" class=\"axistitle-y\""
.. " x=\"-" .. Siz.Space.Top + (ChartHeight * 0.5) .. "\""
.. " y=\"" .. round(Pos.YAxis.Title, 1) .. "\""
.. " transform=\"rotate(-90)\" text-anchor=\"middle\">"
.. Parms["YAxisTitle"]
.. "</text>")
table.insert(r, " ")
end
if DoYAxis2 and Parms["YAxis2Title"] ~= nil then
table.insert(r, " <text id=\"title-y2\" class=\"axistitle-y2\""
.. " x=\"-" .. Siz.Space.Top + (ChartHeight * 0.5) .. "\""
.. " y=\"" .. round(Pos.YAxis2.Title, 1) .. "\""
.. " transform=\"rotate(-90)\" text-anchor=\"middle\">"
.. Parms["YAxis2Title"]
.. "</text>")
table.insert(r, " ")
end
end
function codeAxisValues(Axis, PosAxisZero, ValueStep, AxisMin, AxisMax, Stretch, YShift, OtherPos, ValueMultiplier, ValueRound, Prefix, Suffix, Format, XRotateText)
-- Parms for location
-- Axis, text: 'x' or 'y'
-- PosAxisZero, numeric
-- ValueStep, numeric
-- AxisMin, numeric
-- AxisMax, numeric
-- Stretch, numeric
-- YShift, numeric
-- OtherPos, numeric
-- Parms for format
-- ValueMultiplier, numeric
-- ValueRound, numeric
-- Prefix, text
-- Suffix, text
-- Format, boolean
-- XRotateText, text
local l = ""
local ValueStart = 0
if AxisMin ~= 0 then
ValueStart = math.ceil(AxisMin / ValueStep) * ValueStep
end
local Value = ValueStart
while Value <= AxisMax do
if Axis == 'x' then
Position = PosAxisZero + (Value * Stretch)
l = " <text x=\"" .. round(Position, 1) .. "\" y=\"" .. OtherPos .. "\""
.. iif(string.len(XRotateText) > 0, XRotateText .. round(Position, 1) .. ", " .. OtherPos-round(FontSiz.XAxisValues / 3, 1) .. ")\"", "")
.. ">"
else
Position = PosAxisZero - (Value * Stretch) + YShift
l = " <text x=\"" .. OtherPos .. "\" y=\"" .. round(Position, 1) .. "\">"
end
if Format then
l = l .. Prefix .. mw.getContentLanguage():formatNum(round(Value * ValueMultiplier, ValueRound)) .. Suffix .. "</text>"
else
l = l .. Prefix .. round(Value * ValueMultiplier, ValueRound) .. Suffix .. "</text>"
end
table.insert(r, l)
Value = Value + ValueStep
end
end
function commonBottom()
if (#SeriesText < 1 or Parms["LegendType"] == KeyWords["none"])
and Parms["Title"] == nil
and Parms["Footnote"] == nil
and #ChartText <= 0 then
-- no common-element styles
else
table.insert(r, " <!-- == Common-element Styles == -->")
table.insert(r, " ")
table.insert(r, " <style type=\"text/css\"> <![CDATA[")
if #SeriesText < 1 or Parms["LegendType"] == KeyWords["none"] then
-- no legend
else
table.insert(r, " .legendbox {")
table.insert(r, " stroke: " .. Parms["LegendBorder"] .. ";")
table.insert(r, " stroke-width: " .. BaseLineWidth .. ";")
table.insert(r, " fill: white;")
table.insert(r, " }")
table.insert(r, " .legendtext {")
table.insert(r, " font-size: " .. FontSiz.LegendText .. "px;")
table.insert(r, " text-anchor: start;")
table.insert(r, " }")
end
if Parms["Title"] ~= nil then
table.insert(r, " .titletext {")
table.insert(r, " font-size: " .. FontSiz.Title .. "px;")
table.insert(r, " }")
end
if Parms["Footnote"] ~= nil then
table.insert(r, " .footnotetext {")
table.insert(r, " font-size: " .. FontSiz.Footnote .. "px;")
table.insert(r, " }")
end
if #ChartText > 0 then
table.insert(r, " .charttext {")
table.insert(r, " font-size: " .. FontSiz.ChartText .. "px;")
table.insert(r, " }")
end
table.insert(r, " ]]>")
table.insert(r, " </style>")
table.insert(r, " ")
end
-- legend
if #SeriesText < 1 or Parms["LegendType"] == KeyWords["none"] then
-- no legend
else
table.insert(r, " <!-- == Legend == -->")
table.insert(r, " ")
if Parms["LegendSVG"] ~= nil then
-- replace all of legend with user-supplied SVG code
table.insert(r, " " .. Parms["LegendSVG"])
table.insert(r, " ")
else
tr = " <g id=\"legend\" transform=\"translate("
if Parms["LegendType"] == KeyWords["horizontal"] then
-- horizontal legend
if Parms["LegendX"] ~= nil then
tr = tr .. round(Siz.Space.Left + (Parms["LegendX"] * Mult.X), 1)
else
tr = tr .. round(Siz.Space.Left, 1)
end
tr = tr .. ", "
if Parms["LegendY"] ~= nil then
tr = tr .. round(Siz.Space.Top + ChartHeight - (Parms["LegendY"] * Mult.Y), 1)
else
tr = tr .. round(Pos.Legend, 1)
end
table.insert(r, tr .. ")\">")
table.insert(r, " <rect id=\"legend-background\" class=\"legendbox\" x=\"0\" y=\"0\""
.. " width=\"" .. Siz.Legend.Width .. "\""
.. " height=\"" .. Siz.Legend.Height .. "\"/>")
local PosX, PosY = Siz.ChartPadding, Siz.ChartPadding
for k, v in ipairs(SeriesText) do
table.insert(r, " ")
codeLegendElement((SType[k] == KeyWords["line"] and not DoArea), k, PosX, PosY, Siz.ChartPadding, Siz.Legend.Text, v, Marker[k])
PosX = PosX + Siz.Legend.ElementWidth
if k == LegendElementsInWidth then
-- new line of legend elements
PosX = Siz.ChartPadding
PosY = PosY + Siz.Legend.ElementHeight
end
end
else
-- vertical legend
if Parms["LegendX"] ~= nil then
tr = tr .. round(Siz.Space.Left + (Parms["LegendX"] * Mult.X), 1)
else
tr = tr .. round(Pos.Legend, 1)
end
tr = tr .. ", "
if Parms["LegendY"] ~= nil then
t = Parms["LegendY"]
else
t = 0.9 * math.abs(Parms["YMax"] - Parms["YMin"])
end
table.insert(r, tr .. round(Siz.Space.Top + ChartHeight - (t * Mult.Y), 1) .. ")\">")
table.insert(r, " <rect id=\"legend-background\" class=\"legendbox\" x=\"0\" y=\"0\""
.. " width=\"" .. Siz.Legend.Width .. "\""
.. " height=\"" .. Siz.Legend.Height .. "\"/>")
local PosX, PosY = Siz.ChartPadding, Siz.ChartPadding
for k, v in ipairs(SeriesText) do
table.insert(r, " ")
codeLegendElement((SType[k] == KeyWords["line"] and not DoArea), k, PosX, PosY, Siz.ChartPadding, Siz.Legend.Text, v, Marker[k])
PosY = PosY + Siz.Legend.ElementHeight
end
end
table.insert(r, " </g>")
table.insert(r, " ")
end
end
-- title and footnote
if Parms["Title"] ~= nil then
table.insert(r, " <!-- == Title Text == -->")
tr = " <text id=\"title\" class=\"titletext\" text-anchor=\"" .. iif(Parms["TitleX"] ~= nil or Parms["TitleY"] ~= nil, "left", "middle") .. "\""
.. " x=\""
if Parms["TitleX"] ~= nil then
tr = tr .. round(Siz.Space.Left + (Parms["TitleX"] * Mult.X), 1) .. "\""
else
tr = tr .. round(Siz.Space.Left + ChartWidth * 0.5, 1) .. "\""
end
tr = tr .. " y=\""
if Parms["TitleY"] ~= nil then
tr = tr .. round(Siz.Space.Top + ChartHeight - (Parms["TitleY"] * Mult.Y), 1) .. "\">"
else
tr = tr .. round(Pos.Title, 1) .. "\">"
end
table.insert(r, tr .. Parms["Title"] .. "</text>")
table.insert(r, " ")
end
if Parms["Footnote"] ~= nil then
table.insert(r, " <!-- == Footnote Text == -->")
tr = " <text id=\"footnote\" class=\"footnotetext\" text-anchor=\"" .. iif(Parms["FootnoteX"] ~= nil or Parms["FootnoteY"] ~= nil, "left", "end") .. "\""
.. " x=\""
if Parms["FootnoteX"] ~= nil then
tr = tr .. round(Siz.Space.Left + (Parms["FootnoteX"] * Mult.X), 1) .. "\""
else
tr = tr .. round(ImageWidth - Siz.ImagePadding.Right, 1) .. "\""
end
tr = tr .. " y=\""
if Parms["FootnoteY"] ~= nil then
tr = tr .. round(Siz.Space.Top + ChartHeight - (Parms["FootnoteY"] * Mult.Y), 1) .. "\">"
else
tr = tr .. round(Pos.Footnote, 1) .. "\">"
end
table.insert(r, tr .. Parms["Footnote"] .. "</text>")
table.insert(r, " ")
end
-- chart texts
if #ChartText > 0 then
table.insert(r, " <!-- == Chart Texts == -->")
table.insert(r, " ")
table.insert(r, " <g id=\"charttexts\" class=\"charttext\" transform=\"translate(" .. Siz.Space.Left .. ", " .. Siz.Space.Top + ChartHeight .. ")\">")
for i = 1, #ChartText do
if ChartText[i] ~= nil then
table.insert(r, " <text x=\"" .. round((Parms["ChartText" .. i .. "X"] - iif(#GroupText == 0, Parms["XMin"], 0)) * Mult.X, 1) .. "\""
.. " y=\"" .. -round((Parms["ChartText" .. i .. "Y"] - Parms["YMin"]) * Mult.Y, 1) .. "\">"
.. ChartText[i] .. "</text>")
end
end
table.insert(r, " </g>")
table.insert(r, " ")
end
if Parms["ImageForegroundSVG"] ~= nil then
table.insert(r, " <!-- Image Foreground SVG -->")
table.insert(r, " " .. Parms["ImageForegroundSVG"] .. "")
table.insert(r, " ")
end
table.insert(r, " </svg>")
table.insert(r, " ")
end
function codeLegendElement(Lines, SeriesNumber, PosX, PosY, Padding, TextSize, Text, Marker)
-- one entry in the legend
-- Lines, boolean
-- SeriesNumber, numeric
-- PosX, numeric
-- PosY, numeric (= the top of the legend element)
-- Padding, numeric
-- TextSize, numeric
-- Text, text
-- Marker, text
local l = ""
if Lines then
local lineY = round(PosY + TextSize / 2, 1)
l = " <polyline id=\"legend-line" .. SeriesNumber .. "\" class=\"series-lines-general series" .. SeriesNumber .. "\""
.. " points=\""
.. round(PosX, 1) .. "," .. lineY .. " "
.. round(PosX + (TextSize * 1), 1) .. "," .. lineY .. " "
.. round(PosX + (TextSize * 2), 1) .. "," .. lineY .. "\""
if Marker ~= nil and Marker ~= 0 then
l = l .. " marker-mid=\"url(#series" .. SeriesNumber .. "marker)\""
end
table.insert(r, l .. "/>")
table.insert(r, " <text id=\"legend-text" .. SeriesNumber .. "\" class=\"legendtext\""
.. " x=\"" .. round(PosX + (TextSize * 2) + Padding, 1) .. "\""
.. " y=\"" .. round(PosY + TextSize, 1) .. "\">"
.. Text .. "</text>")
else
table.insert(r, " <rect id=\"legend-area" .. SeriesNumber .. "\" class=\"series-areas-general series" .. SeriesNumber .. "\""
.. " x=\"" .. round(PosX, 1) .. "\""
.. " y=\"" .. round(PosY, 1) .. "\""
.. " width=\"" .. (TextSize * 2) .. "\""
.. " height=\"" .. TextSize .. "\"/>")
table.insert(r, " <text id=\"legend-text" .. SeriesNumber .. "\" class=\"legendtext\""
.. " x=\"" .. round(PosX + (TextSize * 2) + Padding, 1) .. "\""
.. " y=\"" .. round(PosY + TextSize, 1) .. "\">"
.. Text .. "</text>")
end
end
function outputDebugInfo()
if Parms["Debug"] ~= nil and string.find(Parms["Debug"], KeyWords["parms"]) ~= nil then
-- list all arguments
table.insert(r, " All Arguments :")
for k, v in pairs(Args) do
table.insert(r, " " .. k .. "=" .. v)
end
table.insert(r, " ")
-- list all recognised parameters sorted by key
table.insert(r, " Parameters :")
for k, v in spairs(Parms) do
table.insert(r, " " .. k .. "=" .. v .. " (" .. type(v) .. ")")
end
table.insert(r, " ")
if string.find(Parms["Debug"], "parmsstop") ~= nil then
return false
end
end
if Parms["Debug"] ~= nil and string.find(Parms["Debug"], "tables") ~= nil then
-- list contents of internal tables
if DoStack or DoStack100 then
listTable(OriginalData, " ", "OriginalData")
end
listTable(SeriesData, " ", "SeriesData")
listTable(SType, " ", "SType")
listTable(YAxis2, " ", "YAxis2")
listTable(Labels, " ", "Labels")
listTable(Color, " ", "Color")
listTable(LineShow, " ", "LineShow")
listTable(LineWidth, " ", "LineWidth")
listTable(LineDash, " ", "LineDash")
listTable(Marker, " ", "Marker")
listTable(MarkerFill, " ", "MarkerFill")
listTable(MarkerSize, " ", "MarkerSize")
listTable(FillPattern, " ", "FillPattern")
listTable(FillPatternColor, " ", "FillPatternColor")
listTable(SeriesText, " ", "SeriesText")
listTable(GroupText, " ", "GroupText")
listTable(ChartText, " ", "ChartText")
table.insert(r, " ")
if string.find(Parms["Debug"], "tablesstop") ~= nil then
return false
end
end
table.insert(r, "----------")
table.insert(r, " ")
return true
end
function listTable(Tab, Indent, Title)
-- lists all contents of a table, iterating over all sub-tables
if Title ~= nil then
table.insert(r, " " .. Title .. ":")
end
for k, v in pairs(Tab) do
if type(v) == "table" then
table.insert(r, Indent .. k .. ":")
listTable(v, Indent .. " ", nil)
else
table.insert(r, Indent .. k .. ": " .. v .. " (" .. type(v) .. ")")
end
end
end
-- utility functions
function iif(test, tret, fret)
-- if test is true, returns tret if defined, otherwise returns true
-- if test is false, returns fret if defined, otherwise returns false
-- note that this function cannot be used to avoid evaluating either tret or fret, as they are both evaluated in the function call
if test then
if tret == nil then
return true
else
return tret
end
end
if fret == nil then
return false
end
return fret
end
function round(x, p)
-- round number x to precision p
-- p > 0 rounds to p decimal places, eg: round(4.57, 1) = 4.5
-- p = 0 (or not given) rounds to nearest integer
-- p < 0 rounds to p places above zero, eg: round(147, -1) = 150
local res
if type(x) ~= "number" then
return nil
end
if type(p) == "number" then
-- any decimal places in p are ignored
p = math.floor(p)
else
p = nil
end
if p == nil or p == 0 then
return math.floor(x + 0.5)
else
res = x * 10^p
res = math.floor(res + 0.5)
res = res * 10^-p
return res
end
end
function decPlaces(val)
-- returns the number of decimal places in a numeric value, or a string convertible to a number
val = tonumber(val)
if val == nil then
return 0
end
val = tostring(val)
local point = string.find(val, ".")
if point == 0 then
return 0
end
return string.len(val) - point
end
function copyTable(from, to)
-- copies a table to another table
local k, v
for k, v in ipairs(from) do
if type(v) == "table" then
to[k] = {}
copyTable(v, to[k])
else
to[k] = v
end
end
end
function spairs(t, order)
-- returns an iterator function that in turn returns table t in the order of the keys
-- sort is done using an optional order function
-- collect the keys
local keys = {}
for k in pairs(t) do keys[#keys+1] = k end
-- if order function given, sort by it by passing the table and keys a, b,
-- otherwise just sort the keys
if order then
table.sort(keys, function(a,b) return order(t, a, b) end)
else
table.sort(keys)
end
-- return the iterator function
local i = 0
return function()
i = i + 1
if keys[i] then
return keys[i], t[keys[i]]
end
end
end
return {
[KeyWords.barChart] = barChart,
[KeyWords.lineChart] = lineChart,
[KeyWords.scatterChart] = scatterChart,
[KeyWords.mixedChart] = mixedChart,
[KeyWords.pieChart] = pieChart,
}
