% macros=mkvi

%D \module
%D   [     file=t-statistical-charts,
%D      version=0.31,
%D        title=Statistical charts,
%D     subtitle=,
%D       author=Tamara Kocurová, Adriana Kašparová, Tomáš Hála
%D        email=kocurova.tamara@gmail.com, adka.kaspar@seznam.cz, thala@mendelu.cz,
%D    copyright=Tamara Kocurová, Adriana Kašparová, Tomáš Hála
%D      license=GNU General Public License]

%C Copyright (C) 2020  authors
%C
%C This program is free software: you can redistribute it and/or modify
%C it under the terms of the GNU General Public License as published by
%C the Free Software Foundation, either version 3 of the License, or
%C (at your option) any later version.
%C
%C This program is distributed in the hope that it will be useful,
%C but WITHOUT ANY WARRANTY; without even the implied warranty of
%C MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
%C GNU General Public License for more details.
%C
%C You should have received a copy of the GNU General Public License
%C along with this program.  If not, see <http://www.gnu.org/licenses/

%\starttext

\startluacode
require "t-statistical-charts" 
\stopluacode

\defineframed
  [statisticchart]
  [foregroundcolor=black,
   foregroundstyle={\setupbodyfont[small]},
   frame=off,
   offset=0cc,]

\defineframed[axislabels]  [statisticchart]
\defineframed[xaxislabels] [axislabels]
\defineframed[yaxislabels] [axislabels]
\defineframed[dotslabels]  [statisticchart][boffset=0cc]
\defineframed[layerslabels][statisticchart]
\defineframed[partslabels] [statisticchart]
\defineframed[xaxisunit] [statisticchart] [toffset=3ex, frame=off]
\defineframed[yaxisunit] [statisticchart] [orientation=90, roffset=3ex, frame=off]

%\unexpanded\def\statisticalchart[#chart][#subtype][#kv][#data]{
%  \ctxlua{d['#chart'].processvals('#kv','#data')} 
%  \ctxlua{d['#chart'].all('#subtype')} 
%}

\unexpanded\def\statisticalchart[#chart][#subtype][#kv][#data]%
  {\ctxlua{
     thirddata.statcharts['#chart'].processvals('#kv','#data')
     %inspect("def-statch:"..'#chart'.."/"..'#subtype')
     %inspect(documentdata.statcharts)
     thirddata.statcharts.charttype='#chart'
     thirddata.statcharts.subtype='#subtype'
     thirddata.statcharts['#chart'].all()     
     %inspect(thirddata.statcharts.charttype) os.exit()
  }}

%--os.exit()


%\unexpanded\def\areachart[#subtype][#kv][#data]{\statisticalchart[area][#subtype][#kv][#data]}
%\unexpanded\def\barchart[#subtype][#kv][#data]{\statisticalchart[bar][#subtype][#kv][#data]}
%\unexpanded\def\bubblechart[#subtype][#kv][#data]{\statisticalchart[bubble][#subtype][#kv][#data]}
%\unexpanded\def\columnchart[#subtype][#kv][#data]{\statisticalchart[column][#subtype][#kv][#data]}
%\unexpanded\def\linechart[#subtype][#kv][#data]{\statisticalchart[line][#subtype][#kv][#data]}
%\unexpanded\def\piechart[#subtype][#kv][#data]{\statisticalchart[pie][#subtype][#kv][#data]}
%\unexpanded\def\radarchart[#subtype][#kv][#data]{\statisticalchart[radar][#subtype][#kv][#data]}
%\unexpanded\def\scatterchart[#subtype][#kv][#data]{\statisticalchart[scatter][#subtype][#kv][#data]}
%\unexpanded\def\stockchart[#subtype][#kv][#data]{\statisticalchart[stock][#subtype][#kv][#data]}

\startluacode
for _,v in ipairs {"area","bar","bubble","column","line","pie","radar","scatter","stock"} do
  ctx("\\unexpanded\\def\\"..v.."chart{\\doquadrupleargument\\statisticalchart["..v.."]}")
end
\stopluacode

\def\definepalette[#name][#colors]{
	\ctxlua{thirddata.statcharts.definepalette('#name', '#colors')}
}

\definecolor[cosmos]       [x=FFCCCC]
\definecolor[monalisa]     [x=FF9999]
\definecolor[bittersweet]  [x=FF6666]
\definecolor[redorange]    [x=FF3333]
\definecolor[freespeechred][x=CC0000]
\definepalette[red][cosmos, monalisa,
   bittersweet, redorange, freespeechred]


\definecolor[bisque]     [x=FFE5CC]
\definecolor[peachorange][x=FFCC99]
\definecolor[rajah]      [x=FFB266]
\definecolor[neoncarrot] [x=FF9933]
\definecolor[tamarange]  [x=FF8000]

\definepalette[orange][bisque, 
   peachorange, rajah, neoncarrot,
   tamarange]

\definecolor[cream]           [x=FFFFCC]
\definecolor[canary]          [x=FFFF99]
\definecolor[laserlemon]      [x=FFFF66]
\definecolor[gorse]           [x=FFFF33]
\definecolor[chartreuseyellow][x=E3E300]

\definepalette[yellow][cream, canary,
   laserlemon, gorse, chartreuseyellow]


\definecolor[snowflurry] [x=E5FFCC]
\definecolor[reef]       [x=CCFF99]
\definecolor[sulu]       [x=B2FF66]
\definecolor[greenyellow][x=99FF33]
\definecolor[lawngreen]  [x=72E300]
\definecolor[kellygreen] [x=66CC00]
\definecolor[scarfgreen] [x=55A800] 
\definecolor[lapalma]    [x=478F00]
\definecolor[bilbao]     [x=3A7300]
\definecolor[verdungreen][x=326300]

\definepalette[lightgreen][snowflurry,
   reef, sulu, greenyellow, lawngreen, 
   kellygreen, scarfgreen, lapalma, 
   bilbao, verdungreen]


\definecolor[pastelgreen] [x=80E874]
\definecolor[fern]        [x=5DD45D]
\definecolor[limegreen]   [x=3CC23C]
\definecolor[islamicgreen][x=009900]
\definecolor[green]       [x=006E00]

\definepalette[darkgreen][pastelgreen, 
   fern, limegreen, islamicgreen, green]

\definecolor[grannyapple]      [x=C0FFD3]
\definecolor[magicmint]        [x=99FFCC]
\definecolor[aquamarine]       [x=66FFB2]
\definecolor[mediumspringgreen][x=33FF99]
\definecolor[shamrock]         [x=4BD691]

\definepalette[turquoise][grannyapple, 
   magicmint, aquamarine, 
   mediumspringgreen, shamrock]

\definecolor[lightcyan]    [x=CCFFFF]
\definecolor[electricblue] [x=99FFFF]
\definecolor[babyblue]     [x=66FFFF]
\definecolor[aqua]         [x=00F3F3]
\definecolor[darkturquoise][x=00DADA]

\definepalette[cyan][lightcyan, 
   electricblue, babyblue, aqua, 
   darkturquoise]

\definecolor[palecornflowerblue][x=B0D7FF]
\definecolor[lightskyblue]      [x=99CCFF]
\definecolor[mayablue]          [x=66B2FF]
\definecolor[adriblue]          [x=3399FF]
\definecolor[dodgerblue]        [x=0080FF]

\definepalette[blue][palecornflowerblue, 
   lightskyblue, mayablue, adriblue, 
   dodgerblue]

\definecolor[lavenderblue]   [x=BABAFF]
\definecolor[portage]        [x=9999FF]
\definecolor[mediumslateblue][x=6666FF]
\definecolor[neonblue]       [x=3333FF]
\definecolor[mediumblue]     [x=0000CC]

\definepalette[indigo][lavenderblue, 
   portage, mediumslateblue, neonblue, 
   mediumblue]

\definecolor[mauve]         [x=E0C2FF]
\definecolor[coctailpurple] [x=CC99FF]
\definecolor[mediumpurple]  [x=B266FF]
\definecolor[blueviolet]    [x=9933FF]
\definecolor[electricindigo][x=7F00FF]

\definepalette[purple][mauve, 
   coctailpurple, mediumpurple, 
   blueviolet, electricindigo]

\definecolor[snuff]           [x=FFD4FF]
\definecolor[violet]          [x=FF99FF]
\definecolor[pinkflamingo]    [x=FF66FF]
\definecolor[razzledazzlerose][x=F331F3]
\definecolor[deepmagenta]     [x=DA00DA]

\definepalette[magenta][snuff, violet, 
   pinkflamingo, razzledazzlerose, 
   deepmagenta]

\definecolor[classicrose]   [x=FFCCE5]
\definecolor[carnationpink] [x=FF99CC]
\definecolor[hotpink]       [x=FF66B2]
\definecolor[wildstrawberry][x=FF3399]
\definecolor[ruby]          [x=F20C7F]
\definecolor[razzmatazz]    [x=DB006B]
\definecolor[jazzberryjam]  [x=C30061]
\definecolor[crayonflower]  [x=99004C] 
\definecolor[tyrianpurple]  [x=800040] 
\definecolor[sweettreat]    [x=660033]

\definepalette[pink][classicrose, 
   carnationpink, hotpink, wildstrawberry, 
   ruby, razzmatazz, jazzberryjam, 
   crayonflower, tyrianpurple, sweettreat]

\definecolor[gainsboro] [x=E0E0E0]
\definecolor[silver]    [x=C0C0C0]
\definecolor[nobel]     [x=A0A0A0]
\definecolor[baloongray][x=808080]
\definecolor[zambezi]   [x=606060]

\definepalette[gray][gainsboro, silver, 
   nobel, baloongray, zambezi]


\ifdefined \chart
  \writestatus{charts}{no short names used, potential clash}
 \else
  \let\chart\statisticalchart
\fi