context-visualcounter (1feb15)

git-svn-id: svn://tug.org/texlive/trunk@36190 c570f23f-e606-0410-a88d-b1316a301751

8 files changed, 1313 insertions, 0 deletions

diff --git a/Master/texmf-dist/doc/context/third/visualcounter/visualcounter.pdf b/Master/texmf-dist/doc/context/third/visualcounter/visualcounter.pdf
new file mode 100644
index 00000000000..bad9e7dc2bc
--- /dev/null
+++ b/Master/texmf-dist/doc/context/third/visualcounter/visualcounter.pdf
diff --git a/Master/texmf-dist/source/context/third/visualcounter/p-documentation.tex b/Master/texmf-dist/source/context/third/visualcounter/p-documentation.tex
new file mode 100644
index 00000000000..0a3cbf6b520
--- /dev/null
+++ b/Master/texmf-dist/source/context/third/visualcounter/p-documentation.tex
@@ -0,0 +1,99 @@
+\setuppapersize[S5]
+
+\setuplayout[
+                   width=middle,
+                  height=middle,
+                %location=middle,
+                topspace=0in,
+             bottomspace=0in,
+          bottomdistance=.25in,
+                  bottom=.25in,
+               backspace=.5in,
+                cutspace=0.5in,
+              leftmargin=0.25in,
+             rightmargin=0.25in,
+      leftmargindistance=0.1in,
+     rightmargindistance=0.1in,
+                  header=0.25in,
+                  footer=0.5in,
+           headerdistace=0.25in,
+          footerdistance=0.25in,
+                 marking=on,
+%                   grid=yes,
+    ]
+
+\setuppagenumbering [location=none]
+
+
+\setupbodyfontenvironment[default][em=italic]
+\setupbodyfont[dejavu,10pt]
+
+
+\definetype[command][color=darkred, style=type]
+\definetype[options][color=darkblue, style=type]
+\definetype[comment][color=orange, style=italic]
+
+\definestartstop
+    [TexSnippetComment]
+    [color=orange,
+     style=italic]
+ 
+\setuptyping[option=tex, before=\startEXAMPLE, after=\stopEXAMPLE, indentnext=no, escape={[[,]]}]
+\setuptype[option=tex]
+
+\setupindenting[medium,yes]
+\setupwhitespace[medium]
+
+\setuphead[title][alternative=middle, textstyle=\sansbold] 
+\setuphead[section,subject,subsubject,subsection]
+          [numberstyle=\sansbold,textstyle=\sansbold, page=yes]
+
+\setupitemize[1][autointro]
+\setupitemize[indenting=no]
+
+%% Frames and Backgrounds : <<<
+
+\definetextbackground
+    [EXAMPLE]
+    [           mp=background:random,
+          location=paragraph,
+     rulethickness=1pt,
+        framecolor=darkred,
+             width=\textwidth,
+            height=fit,
+        leftoffset=5em,
+       rightoffset=0mm,
+            before={\testpage[3]\blank[2*big]},
+             after={\blank},
+    ]
+
+\startuseMPgraphic{background:random}
+   path p;
+   for i = 1 upto nofmultipars :
+    p = (multipars[i]
+     topenlarged 8pt
+     bottomenlarged 4pt
+     leftenlarged -4EmWidth
+     rightenlarged 0EmWidth ) randomized 4pt ;
+   fill p withcolor lightgray ;
+   draw p withcolor \MPvar{linecolor}
+    withpen pencircle scaled \MPvar{linewidth};
+   endfor;
+   setbounds currentpicture to boundingbox OverlayBox ;
+\stopuseMPgraphic
+
+\defineframedtext
+    [EXAMPLEframe]
+    [rulethickness=1pt,
+        framecolor=darkred,
+            height=6.55cm,
+             width=broad,
+        background=color,
+   backgroundcolor=gray,
+    ]
+
+\definehighlight[emph][style=em]
+
+\setupcombination[distance=4em]
+
+\setupinteraction[state=start]
diff --git a/Master/texmf-dist/source/context/third/visualcounter/visualcounter.tex b/Master/texmf-dist/source/context/third/visualcounter/visualcounter.tex
new file mode 100644
index 00000000000..a5eb6fc4fb0
--- /dev/null
+++ b/Master/texmf-dist/source/context/third/visualcounter/visualcounter.tex
@@ -0,0 +1,712 @@
+\usemodule[documentation]
+\usemodule[visualcounter]
+
+\definevisualcounter
+  [visualsection]
+  [countdown]
+  [n={\somenamedheadnumber{visualsection}{current}},
+   last={\somenamedheadnumber{visualsection}{last}},
+   maxtext={99},
+   text={\headnumber[visualsection]},
+   style=\ssbf,
+  ]
+  
+\definehead[visualsection]
+           [subsection]
+           [numbercommand=\visualsectionnumber,
+            numnberstyle=sansbold,
+            textstyle=sansbold,
+            page=yes]
+
+\def\visualsectionnumber#1{\smash{\framed[location=middle,frame=off]{\usevisualcounter[text=#1]{visualsection}}}}
+
+\startbuffer[visual]
+\definevisualcounter
+  [visualitem]
+  [scratchmarks]
+  [ counter=\getvalue{v_strc_itemgroups_counter},
+    width=1.5bp,
+    height=1.2ExHeight,
+    distance=3bp]
+
+\definesymbol[visual][\usevisualcounter{visualitem}]
+\stopbuffer
+
+\startbuffer[page]
+\definevisualcounter
+  [visualpage]
+  [mayanumbers]
+  [
+    counter=userpage,
+    maxwidth=\textwidth,
+  ]
+
+\stopbuffer
+
+\startbuffer[pagenumber]
+\setupfootertexts[\usevisualcounter{visualpage}]
+\stopbuffer
+
+
+\getbuffer[visual,page,pagenumber]
+
+\startbuffer[brightred]
+\definecolor[bright-red] [h=DE1B1B]
+\definecolor[dull-black] [h=2B2B2B]
+\definecolor[dull-yellow][h=E9E581]
+
+\definepalet
+   [brightred]
+   [past=dull-black, active=bright-red, future=dull-yellow]
+\stopbuffer
+
+\def\showcounter[#1]%
+    {\startmiddlealigned
+      \startcombination[#1]
+        {\usevisualcounter[n=3, last=12]{dummy}}{3 out of 12}
+        {\usevisualcounter[n=4, last=12]{dummy}}{4 out of 12}
+        {\usevisualcounter[n=5, last=12]{dummy}}{5 out of 12}
+        {\usevisualcounter[n=6, last=12]{dummy}}{6 out of 12}
+      \stopcombination
+    \stopmiddlealigned}
+
+\starttext
+
+
+\title {The \command{visualcounter} module \\ Aditya Mahajan \\ \currentdate}
+
+\starttyping
+\usemodule[visualcounter]
+\stoptyping
+
+\startitemize[visual, broad, packed, columns, two]
+  \item Find \TEX\ documents to be too boring?
+  \item Voilà, the \command{visualcounter} module!
+  \item Make your presentations stand out.
+  \item Turn any counter into a picture.
+\stopitemize
+
+\page
+
+The above effect was achieved by first defining a \command{visualitem} counter
+and a symbol \command{visual} that uses that counter:
+
+\typebuffer[visual]
+
+and then using the symbol \command{visual} in an itemization:
+
+\starttyping
+\startitemize[visual, ...]
+    \item ...
+    \item ...
+\stopitemize
+\stoptyping
+
+\page
+
+Notice the counter used for page numbering? That was achieved by first defining
+a \command{visualpage} counter:
+
+\typebuffer[page]
+
+and setting it as the footer text:
+
+\typebuffer[pagenumber]
+
+\page
+
+The above examples show the basic usage of the modules. The module provides two
+commands: \type{\definevisualcounter} to define a visual counter
+
+\starttyping
+\definevisualcounter
+    [...]     % [[\comment{name of the counter}]]
+    [...]     % [[\comment{optional name of the parent counter} ]]
+    [
+     ...=..., % [[\comment{key-value settings} ]]
+    ]
+\stoptyping
+
+and \type{\usevisualcounter} to use an already defined counter
+
+\starttyping
+\usevisualcounter
+  [...=...] % [[\comment{key-value settings}]]
+  {...}     % [[\comment{name of the counter}]]
+\stoptyping
+
+\section {So, how do I use this?}
+
+Visual counters are defined and used in two ways:
+\startitemize[visual, broad, joinedup]
+  \item Using a low level interface that explicitly sets the current values of
+    the counter, last count, the \METAPOST\ graphic that draws the counter, and
+    the color palette. 
+  \item Using higher-level interfaces built on top of the low-level interface
+    that allows you to specify a \emph{structure counter} like those used for
+    page numbering, itemizations, descriptions, etc.
+\stopitemize
+
+\page
+
+\subsection {The low-level interface}
+
+To begin with, lets not worry about how to define \METAPOST\ graphics that draw
+the counter. The module provides a predefined set of \command{visualcounter}s,
+and, for now, we'll just use those: the \command{scratchmarks}  counter. Details
+on defining new counters are explained later.
+
+\startbuffer[scratchmarks]
+\usevisualcounter[n=6, last=12]{scratchmarks}
+\stopbuffer
+
+Suppose that I want to show that I am on page 6 out of 12 pages:
+
+\startmiddlealigned
+  \getbuffer[scratchmarks]
+\stopmiddlealigned
+
+which uses a predefined counter \command{scratchmarks} and was typed as follows:
+
+\typebuffer[scratchmarks]
+
+The counter may be made smaller
+
+\startbuffer[smaller]
+\setupvisualcounter[scratchmarks]
+                   [width=1pt, height=8pt, distance=2pt]
+\stopbuffer
+
+\startmiddlealigned
+  \getbuffer[smaller,scratchmarks]
+\stopmiddlealigned
+
+or may use a different color palette
+
+\startbuffer[palette]
+\setupvisualcounter[scratchmarks][palette=brightred]
+\stopbuffer
+
+\startmiddlealigned
+  \getbuffer[brightred,palette,scratchmarks]
+\stopmiddlealigned
+
+\page
+
+These settings are changed using \command{\setupvisualcounter}. In particular, to
+get a small counter, use: 
+
+\typebuffer[smaller]
+
+and to change the color palette, use:
+
+\typebuffer[palette]
+
+where the \type{brightred} palette was defined as
+
+\typebuffer[brightred]
+
+\subsection {The high-level interface}
+
+The high level interface is useful to display a \CONTEXT{} counter. Rather than
+manually setting the value of \options{n}, \options{last}, \options{text}, and
+\options{maxtext} (the last two are used only by a few counters), simply set the
+value of a \options{counter} and the other values are automatically generated.
+As an example, recall the set up for displaying the page numbers in the footer:
+
+\typebuffer[page]
+
+In the above example, \command{userpage} is the name of the counter that keeps
+track of the user page number.
+
+\page
+
+A list of some commonly used \CONTEXT{} counters is given below:
+
+\startbuffer[internal] counter=\getvalue{v_strc_itemgroups_counter},
+\stopbuffer
+
+
+\starttabulate[|l|l|]
+  \NC Page numbers \NC \type{userpage} \NC \NR
+  \NC Item group numbers 
+      \NC \type{\v_strc_itemgroups_counter}\footnote[internal]
+          {Macros names with underscore are internal \CONTEXT{} macros, and generally are
+          not meant to be used in user code. The easiest way to set the value of
+          \options{counter} to \options{\v_strc_itemgroups_counter} is to use:
+          \typebuffer[internal]} \NC \NR
+  \NC Enumeration number\NC name of the enumeration \NC \NR
+\stoptabulate
+
+
+\section {Changing the color of counters}
+
+All counters use three colors: \command{past} to display past counters,
+\command{active} to display current counter, and \command{future} to display
+future counters. To change the color scheme, first define a new color palette
+(which is misspelled in \CONTEXT{} is \command{colorpalet}):
+
+\starttyping
+  \definecolorpalet
+      [...], % [[\comment{Name of the color palette}]]
+      [
+        past=..., % [[\comment{any previously defined \CONTEXT{} color}]]
+      active=..., % [[\comment{any previously defined \CONTEXT{} color}]]
+      future=..., % [[\comment{any previously defined \CONTEXT{} color}]]
+      ]
+\stoptyping
+
+\page
+
+and then set the color palette of a particular counter either using
+
+\starttyping
+  \definevisualcounter
+      [...]     % [[\comment{name of the counter}]]
+      [...]     % [[\comment{optional name of the parent counter} ]]
+      [
+        ...,
+        palette=..., % [[\comment{name of a previously defined} \options{colorpalet}]]
+        ...
+      ]
+\stoptyping
+
+or using
+
+\starttyping
+  \setupvisualcounter
+      [...]     % [[\comment{name of the counter}]]
+      [
+        ...,
+        palette=..., % [[\comment{name of a previously defined} \options{colorpalet}]]
+        ...
+      ]
+\stoptyping
+
+\section {Changing the size of the counters}
+
+All predefined counters have tunable parameters (such as \options{width},
+\options{height}, and \options{distance}) that change the size of the counter.
+The default sizes are given in terms of \options{EmWidth} or \options{ExHeight};
+so they adapt to the size of the surrounding text. 
+
+\section {Changing the style of text displayed in the counters}
+
+Some visual counters (currently, only the \command{countdown} counter) also
+display text. The style of this text may be set using:
+
+
+\starttyping
+  \setupvisualcounter
+      [...]     % [[\comment{name of the counter}]]
+      [
+        ...,
+        style=..., %[[ \comment{any valid \CONTEXT{} style}]]
+        color=..., %[[ \comment{any valid \CONTEXT{} color}]]
+        ...
+      ]
+\stoptyping
+
+Note that changing the font size in the \options{style} affects the value of
+\options{EmWidth} and \options{ExHeight} and therefore also scales the counter
+appropriately. If this is not desirable, then you also need to set the size of
+the counter in dimensions that are independent of bodyfontsize.
+
+\section {Predefined counters}
+
+The \command{visualcounter} module provides the following predefined counters:
+
+\startnarrower
+\placelist[visualsection][criterium=local, alternative=f]
+\stopnarrower
+
+\page
+
+\visualsection {The \command{scratchmarks} counter}
+
+The \command{scratchmarks} counter is inspired by the \command{fuzzycount}
+counter that is part of the \CONTEXT's metapost library \command{txt}. The output
+looks as follows:
+
+\definevisualcounter
+  [dummy]
+  [scratchmarks]
+
+\showcounter[4]
+
+\blank[2*big]
+
+The \command{scratchmarks} counter has the following tunable parameters:
+\startitemize[packed, joinedup]
+  \item \options{width} (default \options{3bp}): the width of each stroke
+  \item \options{height} (default \options{3ExHeight}): 
+    the length of the marker (and strictly speaking, not
+    the height; the real height is $\options{height}×\sin(\options{angle})$).
+  \item \options{distance} (default \options{0.5EmWidth}):
+    the distance between two successive markers. The
+    distance is measured from the middle of one marker to the middle of the
+    other (that is, it does not take the width of the stroke into account).
+  \item \options{angle} (default \options{75}): the angle of the forward
+    markers. The angle of the backward marker is \command{-angle}.
+    Only angles between \options{-90} and \options{90} give proper output. 
+\stopitemize
+
+\page
+
+For example, the output with \options{width=1.5bp, angle=45} is:
+
+{\setupvisualcounter[dummy][width=1.5bp, angle=45]\showcounter[4]}
+
+\blank[2*big]
+
+An angle less than \options{0} changes the direction of the stroke. 
+For example the output with \options{width=1.5bp, angle=-45} is:
+
+{\setupvisualcounter[dummy][width=1.5bp, angle=-45]\showcounter[4]}
+
+
+\visualsection {The \command{mayanumbers} counter}
+
+The \command{mayanumbers} counter is inspired by the Mayan numbering system that I saw in the
+documentary \quotation{Breaking the Maya code}. It counter does not strictly
+follow the Mayan numbering system. The Mayan numbering system is written
+vertically; the output of this counter is horizontal which makes it more useful
+for displaying page numbers in presentations.
+
+\definevisualcounter
+  [dummy]
+  [mayanumbers]
+
+\showcounter[2*2]
+
+\blank[2*big]
+
+The shape of the small and the large markers is as follows:
+
+\startmiddlealigned
+  \startcombination[2]
+    {\usevisualcounter[n=1,last=5,width=3EmWidth, height=3ExHeight]{dummy}}
+    {The shape of the small marker}
+    {\usevisualcounter[n=5,last=5,width=3EmWidth, height=3ExHeight]{dummy}}
+    {The shape of the large marker}
+  \stopcombination
+\stopmiddlealigned
+
+\page
+
+The \command{scratchmarks} counter has the following tunable parameters:
+\startitemize[packed, joinedup]
+  \item \options{width} (default value \options{1EmWidth}): The width of the
+    small marker. 
+  \item \options{height} (default value \options{1ExHeight}): The height of the
+    markers.
+  \item \options{distance} (default value \options{width/4}): The distance
+    between two small markers. The distance between each group of four small
+    counters is \command{2*distance}.
+\stopitemize
+
+\blank[2*big]
+
+For example, to get an output that is half the default size, use 
+the options \goodbreak \options{width=0.5EmWidth, height=0.5ExHeight}.
+
+{\setupvisualcounter[dummy][width=0.5EmWidth, height=0.5ExHeight]\showcounter[4]}
+
+% {\setupvisualcounter[dummy][style=\tfxx]\showcounter[4]}
+
+\visualsection {The \command{countdown} counter}
+
+This counter is inspired by the spinning wheel on the iPhone and on Google
+images.
+
+\definevisualcounter
+  [dummy]
+  [countdown]
+
+\startmiddlealigned
+  \startcombination[4]
+    {\framed[frame=off,width=0.2\textwidth]{\usevisualcounter[n=3, last=12]{dummy}}}{3 out of 12}
+    {\framed[frame=off,width=0.2\textwidth]{\usevisualcounter[n=4, last=12]{dummy}}}{4 out of 12}
+    {\framed[frame=off,width=0.2\textwidth]{\usevisualcounter[n=5, last=12]{dummy}}}{5 out of 12}
+    {\framed[frame=off,width=0.2\textwidth]{\usevisualcounter[n=6, last=12]{dummy}}}{6 out of 12}
+  \stopcombination
+\stopmiddlealigned
+
+\blank[2*big]
+
+The \command{countdown} counter may also be used with a text display of the
+counter.
+
+\startmiddlealigned
+  \startcombination[4]
+    {\framed[frame=off,width=0.2\textwidth]{\usevisualcounter[n=3, text=3, last=12]{dummy}}}{3 out of 12}
+    {\framed[frame=off,width=0.2\textwidth]{\usevisualcounter[n=4, text=4, last=12]{dummy}}}{4 out of 12}
+    {\framed[frame=off,width=0.2\textwidth]{\usevisualcounter[n=5, text=5, last=12]{dummy}}}{5 out of 12}
+    {\framed[frame=off,width=0.2\textwidth]{\usevisualcounter[n=6, text=6, last=12]{dummy}}}{6 out of 12}
+  \stopcombination
+\stopmiddlealigned
+
+\blank[2*big]
+
+The example below shows how the counter changes when the number of steps are
+increased.
+
+\startmiddlealigned
+  \startcombination[4]
+    {\framed[frame=off,width=0.2\textwidth]{\usevisualcounter[n=13, last=24]{dummy}}}{13 out of 24}
+    {\framed[frame=off,width=0.2\textwidth]{\usevisualcounter[n=14, last=36]{dummy}}}{14 out of 36}
+    {\framed[frame=off,width=0.2\textwidth]{\usevisualcounter[n=25, last=48]{dummy}}}{25 out of 48}
+    {\framed[frame=off,width=0.2\textwidth]{\usevisualcounter[n=36, last=60]{dummy}}}{36 out of 60}
+  \stopcombination
+\stopmiddlealigned
+
+\page
+
+The \command{countdown} counter has the following tunable parameters:
+\startitemize[packed, joinedup]
+  \item \options{width} (default value \options{1EmWidth}) and \options{height}
+    (default value \options{1ExHeight}): The maximum of these two determine the
+    difference between the inner and outer diameter of the ring.
+
+  \item \options{text} (not set by default): The text to be displayed in the
+    middle of the counter.
+
+  \item \options{maxtext} (not set by default): The diameter of the inner circle
+    is equal to \options{1.5} times the maximum of the width and the height of
+    \options{maxtext}.
+
+  \item \options{distance} (default value \options{3EmWidth}): 
+    The distance between the consecutive markers along the circumference of the
+    outer circle is equal to \options{distance/last}. 
+\stopitemize
+
+\blank[2*big]
+
+For example, to get a continuous circle set \options{distance=0pt}:
+
+\startmiddlealigned
+  \setupvisualcounter[dummy][distance=0cm]
+  \startcombination[4]
+    {\framed[frame=off,width=0.2\textwidth]{\usevisualcounter[n=13, last=24]{dummy}}}{13 out of 24}
+    {\framed[frame=off,width=0.2\textwidth]{\usevisualcounter[n=14, last=36]{dummy}}}{14 out of 36}
+    {\framed[frame=off,width=0.2\textwidth]{\usevisualcounter[n=25, last=48]{dummy}}}{25 out of 48}
+    {\framed[frame=off,width=0.2\textwidth]{\usevisualcounter[n=36, last=60]{dummy}}}{36 out of 60}
+  \stopcombination
+\stopmiddlealigned
+
+When the high level interface is used, i.e., when the option
+\options{counter=...} is set, the value of \options{text} is the converted value of the
+counter, and the value of \options{maxtext} is the converted value of last
+counter.
+
+\visualsection {The \command{markers} counter}
+
+The \command{markers} counter is inspired by the section markers displayed by
+the \LATEX{} \options{beamer} package. This module comes in two shapes: the
+default shape is circle
+
+\definevisualcounter
+  [dummy]
+  [markers]
+
+\showcounter[1*4]
+
+\page
+
+The alternative shape is a square, which is selected using
+
+\starttyping
+  \setupvisualcounter
+      [...]     % [[\comment{name of the counter}]]
+      [
+        ...
+        mpsetups=[[\options{visualcounter::markers:square}]],
+        ...
+      ]
+\stoptyping
+
+{\setupvisualcounter[dummy][mpsetups=visualcounter::markers:square]\showcounter[1*4]}
+
+\page
+
+The \options{visualcounter::markers:square} is a predefined alternative shape.
+Before discussing how to define a new shape, lets look at the tunable parameters
+of the \command{markers} counter:
+\startitemize[packed, joinedup]
+  \item \options{width} (default value \options{1EmWidth}): The width of the
+    each marker.
+
+  \item \options{distance} (default value \options{width/4}): The edge to edge
+    distance between successive markers.
+
+  \item \options{mpsetups} (default value \options{visualcounter::markers:circle}): 
+    A \command{useMPgraphic} that determines the shape and the display of the
+    markers. The module comes with three predefined shapes,
+    \options{visualcounter::markers:circle}, \goodbreak
+    \options{visualcounter::markers:square}, and
+    \options{visualcounter::markers:star}.
+\stopitemize
+
+To define a new shape, you have to create a \command{useMPgraphic} that defines
+three \METAPOST{} macros:
+
+\startitemize[packed, joinedup]
+  \item \options{show_past_marker(expr shift)}
+  \item \options{show_active_marker(expr shift)}
+  \item \options{show_future_marker(expr shift)}
+\stopitemize
+
+The argument to these macros is the shift calculated based on their position.
+The macros are responsible for using the shift amount either for horizontal
+shift  or for vertical shift, and coloring the markers with appropriate colors.
+The three colors from the color palette are available as \options{past_color},
+\options{active_color}, \options{future_color}.
+
+\page
+
+\startbuffer[star-definition]
+\startuseMPgraphic{visualcounter::markers:star}
+% [[\comment{Copied from http://tug.org/pracjourn/2012-1/hefferon.html}]]
+def fullstar = 
+  hide (
+    z0  = origin; 
+    z1  = (x0, 0.5); 
+    z2  = ((z1 - z0) rotated (  360/5)) + z0 ;
+    z3  = ((z1 - z0) rotated (2*360/5)) + z0 ;
+    z4  = ((z1 - z0) rotated (3*360/5)) + z0 ; 
+    z5  = ((z1 - z0) rotated (4*360/5)) + z0 ;
+    z6  = whatever[z1, z3] = whatever[z2, z5];
+    z7  = whatever[z1, z3] = whatever[z2, z4];
+    z8  = whatever[z2, z4] = whatever[z3, z5];
+    z9  = whatever[z1, z4] = whatever[z3, z5];
+    z10 = whatever[z1, z4] = whatever[z2, z5];
+  ) 
+  (z1 -- z6 -- z2 -- z7 -- z3 -- z8 -- z4 
+      -- z9 -- z5 -- z10 -- cycle)
+enddef;
+
+def show_star(expr shift, fill_color) = 
+  newpath p;
+  p := fullstar xyscaled(width, width) shifted (shift, 0);
+
+  fill p withcolor fill_color;
+  draw p withcolor 0.5*fill_color;
+enddef;
+
+def show_past_marker(expr shift) = 
+    show_star(shift, past_color);
+  enddef;
+
+def show_active_marker(expr shift) = 
+    show_star(shift, active_color);
+enddef;
+
+def show_future_marker(expr shift) = 
+    show_star(shift, future_color);
+enddef;
+\stopuseMPgraphic
+\stopbuffer
+
+\startbuffer[star-counter]
+\definevisualcounter
+  [stars]
+  [markers]
+  [mpsetups=visualcounter::markers:star, % [[\comment{use "star" marker}]]
+   width=1.5EmWidth,
+   distance=0.25EmWidth,
+   palette=star-colors, % [[\comment{defined elsewhere}]]
+   last=5, % [[\comment{rating out of 5}]]
+  ]
+\stopbuffer
+
+\definepalet
+  [star-colors]
+  [active=orange,
+     past=orange,
+   future=gray]
+
+\getbuffer[star-definition, star-counter]
+
+As an example, lets consider a new visual counter that displays a
+\quotation{star rating}: 
+
+\startmiddlealigned
+  \startcombination[3]
+    {\framed[frame=off,width=0.2\textwidth]{\usevisualcounter[n=1]{stars}}}{1 out of 5}
+    {\framed[frame=off,width=0.2\textwidth]{\usevisualcounter[n=3]{stars}}}{3 out of 5}
+    {\framed[frame=off,width=0.2\textwidth]{\usevisualcounter[n=5]{stars}}}{5 out of 5}
+  \stopcombination
+\stopmiddlealigned
+
+For better visual effect, I have also changed the color palette to one that uses
+same color for \options{past} and \options{current} markers. Note
+that the above alternative is available as the
+\options{visualcounter::markers:star} option to \options{mpsetups}. The following
+description is just to explain how to define a new marker.
+
+\page
+
+To create such a counter, first create a \command{useMPgraphic} as follows (I
+could have used any name instead of \options{visualcounter::markers:star}):
+
+\adaptlayout[lines=+2]
+
+\typebuffer[star-definition]
+
+\page
+
+Next, define a new \command{visaulcounter} that inherits from \command{markers}
+but uses a different \options{mpsetups}:
+
+\typebuffer[star-counter]
+
+\startbuffer[star-example]
+\usevisualcounter[n=4]{stars}
+\stopbuffer
+
+To use this counter, type:
+
+\typebuffer[star-example]
+
+which gives: \framed[frame=off,location=lohi]{\getbuffer[star-example]}
+
+
+
+\visualsection {The \command{progressbar} counter}
+
+The \command{progressbar} counter is based on a question on TeX.SE. This counter
+is not yet finalized. I am still working on the interface to change the shape of
+the progress bar, and perhaps add some shading.
+
+\definevisualcounter
+  [dummy]
+  [progressbar]
+
+\showcounter[1*4]
+
+
+\visualsection {The \command{pulseline} counter}
+
+The \command{pulseline} counter is based on the heart pulses shown in a heart
+rate measurement device. This counter is not yet finalized.
+
+\definevisualcounter
+  [dummy]
+  [pulseline]
+
+\definepalet
+  [green]
+  [past=darkgreen,
+   active=darkgreen,
+   future=darkgreen]
+
+{\setupvisualcounter[dummy][rulethickness=2bp,palette=green]\showcounter[2*2]}
+
+% \section[sec:new-counters]{How to define new counters}
+% 
+% The name of the \command{useMPgraphic} must start with \options{visualcounter::}
+% (note the double \options{::}), so that the graphic uses the
+% \options{visualcounter} MP instance.
+
+
+\stoptext
diff --git a/Master/texmf-dist/tex/context/third/visualcounter/t-visualcounter.mkvi b/Master/texmf-dist/tex/context/third/visualcounter/t-visualcounter.mkvi
new file mode 100644
index 00000000000..f6044f8e745
--- /dev/null
+++ b/Master/texmf-dist/tex/context/third/visualcounter/t-visualcounter.mkvi
@@ -0,0 +1,497 @@
+%D \module
+%D   [     file=t-visualcounter,
+%D      version=2013.04.01,
+%D        title=\CONTEXT\ User Module,
+%D     subtitle=Visual Counter,
+%D       author=Aditya Mahajan,
+%D         date=\currentdate,
+%D    copyright=Aditya Mahajan,
+%D        email=adityam <at> ieee <dot> org,
+%D      license=Simplified BSD License]
+
+\writestatus{loading}{Visual Counter (ver: 2013.04.01)}
+
+\startmodule [visualcounter]
+
+\unprotect
+
+\startinterface all
+  \setinterfaceconstant {palette}       {palette} 
+  \setinterfaceconstant {path}          {path} 
+\stopinterface
+
+%D \section{Color Palettes}
+%D
+%D The color of the visual counters is control using color palettes. 
+
+\definepalet
+  [visualcounter:bright]
+  [active=orange,
+     past=blue,
+   future=gray]
+
+
+\definenamespace
+  [visualcounter]
+  [   \c!type=module,
+      \c!name=visualcounter,
+   \c!command=\v!yes,
+        setup=\v!list,
+     \c!style=\v!yes,
+    \s!parent=visualcounter,
+  ]
+
+\setupvisualcounter
+  [      \s!counter=,
+               \c!n={\rawcountervalue[\visualcounterparameter\s!counter]},
+            \c!text={\convertedcounter[\visualcounterparameter\s!counter]},
+      \c!max\c!text={\lastcounter[\visualcounterparameter\s!counter]},
+            \c!last={\lastcountervalue[\visualcounterparameter\s!counter]},
+           \c!style=,
+           \c!color=,
+         \c!palette=visualcounter:bright,
+              \c!mp=visualcounter::countdown,
+           \c!width=1EmWidth,
+          \c!height=1ExHeight,
+   \c!rulethickness=1bp,
+        \c!distance=0.5EmWidth,
+        % Parameters passed to scale
+        \c!maxwidth=\maxdimen,
+       \c!maxheight=\maxdimen,
+  ]
+
+%% TODO: shaded=yes|no randomized=yes|no
+
+%D \section {MP instance}
+%D
+%D To prevent interference with other MP commands, we define a separate metapost
+%D instance
+
+
+\defineMPinstance
+    [visualcounter]
+    [\s!format=metafun, \s!extensions=\v!no, \s!initializations=\v!yes]
+
+\setupMPinstance
+    [visualcounter]
+    [\c!textcolor=\visualcounterparameter\c!color,
+     \c!textstyle=\visualcounterparameter\c!style]
+     
+
+%D \section {usevisualcounter}
+
+\unexpanded\def\usevisualcounter
+    {\dosingleargument\usevisualcounter_indeed}
+
+\def\usevisualcounter_indeed[#options]#name%
+    {\bgroup
+     \edef\currentvisualcounter{#name}%
+     \setupvisualcounter[#name][#options]%
+     \setuppalet[\visualcounterparameter\c!palette]%
+     \scale
+         [
+            \c!maxwidth=\visualcounterparameter\c!maxwidth,
+           \c!maxheight=\visualcounterparameter\c!maxheight,
+         ]{\expanded{\useMPgraphic{\visualcounterparameter\c!mp}}}%
+     \egroup}
+
+\startuseMPgraphic{visualcounter::initialization}
+  newnumeric current_counter, last_counter;
+  current_counter := \visualcounterparameter\c!n;
+  last_counter    := max(\visualcounterparameter\c!last, 1);
+
+  newnumeric width    ; width    := \visualcounterparameter\c!width;
+  newnumeric height   ; height   := \visualcounterparameter\c!height;
+  newnumeric distance ; distance := \visualcounterparameter\c!distance;
+
+  newnumeric rulethickness; 
+  rulethickness := \visualcounterparameter\c!rulethickness; 
+
+  newcolor past_color;   past_color   := \MPcolor{past};
+  newcolor active_color; active_color := \MPcolor{active};
+  newcolor future_color; future_color := \MPcolor{future};
+
+\stopuseMPgraphic
+  
+
+
+%D \section {The counters}
+%D
+%D \subsection {markers}
+
+\definevisualcounter
+   [markers]
+   [       \c!mp=visualcounter::markers,
+        \c!width=1EmWidth,
+     \c!distance=\visualcounterparameter\c!width/4,
+  \c!mp\c!setups=visualcounter::markers:circle,
+   ]
+
+\startuseMPgraphic{visualcounter::markers:circle}
+  def show_past_marker(expr shift) =
+      fill fullcircle xyscaled(width, width) shifted (shift, 0) withcolor past_color
+  enddef;
+
+  def show_active_marker(expr shift) =
+      fill fullcircle xyscaled(width, width) shifted (shift, 0) withcolor active_color
+  enddef;
+
+  def show_future_marker(expr shift) =
+      fill fullcircle xyscaled(width, width) shifted (shift, 0) withcolor future_color
+  enddef;
+\stopuseMPgraphic
+
+\startuseMPgraphic{visualcounter::markers:square}
+  def show_past_marker(expr shift) =
+      fill fullsquare xyscaled(width, width) shifted (shift, 0) withcolor past_color
+  enddef;
+
+  def show_active_marker(expr shift) =
+      fill fullsquare xyscaled(width, width) shifted (shift, 0) withcolor active_color
+  enddef;
+
+  def show_future_marker(expr shift) =
+      fill fullsquare xyscaled(width, width) shifted (shift, 0) withcolor future_color
+  enddef;
+\stopuseMPgraphic
+
+\startuseMPgraphic{visualcounter::markers:star}
+% Copied from http://tug.org/pracjourn/2012-1/hefferon.html
+def fullstar = 
+  hide (
+    z0  = origin; 
+    z1  = (x0, 0.5); 
+    z2  = ((z1 - z0) rotated (  360/5)) + z0 ;
+    z3  = ((z1 - z0) rotated (2*360/5)) + z0 ;
+    z4  = ((z1 - z0) rotated (3*360/5)) + z0 ; 
+    z5  = ((z1 - z0) rotated (4*360/5)) + z0 ;
+    z6  = whatever[z1, z3] = whatever[z2, z5];
+    z7  = whatever[z1, z3] = whatever[z2, z4];
+    z8  = whatever[z2, z4] = whatever[z3, z5];
+    z9  = whatever[z1, z4] = whatever[z3, z5];
+    z10 = whatever[z1, z4] = whatever[z2, z5];
+  ) 
+  (z1 -- z6 -- z2 -- z7 -- z3 -- z8 -- z4 
+      -- z9 -- z5 -- z10 -- cycle)
+enddef;
+
+def show_star(expr shift, fill_color) = 
+  newpath p;
+  p := fullstar xyscaled(width, width) shifted (shift, 0);
+
+  fill p withcolor fill_color;
+  draw p withcolor 0.5*fill_color;
+enddef;
+
+def show_past_marker(expr shift) = 
+    show_star(shift, past_color);
+  enddef;
+
+def show_active_marker(expr shift) = 
+    show_star(shift, active_color);
+enddef;
+
+def show_future_marker(expr shift) = 
+    show_star(shift, future_color);
+enddef;
+\stopuseMPgraphic
+
+\startuseMPgraphic{visualcounter::markers}
+  begingroup ;
+
+  \includeMPgraphic{visualcounter::initialization}
+  \includeMPgraphic{\visualcounterparameter{\c!mp\c!setups}}
+
+  pickup pencircle scaled \visualcounterparameter\c!rulethickness ;
+
+  for i := 1 upto last_counter :
+    if i < current_counter :
+         show_past_marker(i*(width + distance));
+    elseif i > current_counter :
+         show_future_marker(i*(width + distance))
+    fi ;
+  endfor ;
+
+  %%  Write the current marker at the end (incase the markers overlay each other)
+  show_active_marker(current_counter*(width + distance))
+\stopuseMPgraphic
+
+%D \subsection {countdown}
+
+\definevisualcounter
+  [countdown]
+  [      \c!mp=visualcounter::countdown,
+      \c!width=1EmWidth,
+     \c!height=1ExHeight,
+   \c!distance=3EmWidth,
+  ]
+
+\startuseMPgraphic{visualcounter::countdown}
+  begingroup ;
+
+  \includeMPgraphic{visualcounter::initialization}
+
+  % label
+  newpicture countertext     ; countertext     := textext("\visualcounterparameter\c!text");
+  newpicture max_countertext ; max_countertext := textext("\visualcounterparameter{\c!max\c!text}");
+
+  newnumeric inner_diameter, outer_diameter ;
+  inner_diameter := 1.5 * max(bbwidth(max_countertext), bbheight(max_countertext));
+  outer_diameter := inner_diameter + 
+          max(\visualcounterparameter\c!width, \visualcounterparameter\c!height) ;
+
+  newpath inner_circle, outer_circle ;
+  % make the circle start at 12 o'clock and go clockwise 
+  inner_circle := reverse (fullcircle scaled inner_diameter) rotated 90;
+  outer_circle := reverse (fullcircle scaled outer_diameter) rotated 90;
+
+  % boundary distance
+  newnumeric inner_boundary, outer_boundary ;
+  inner_boundary := \visualcounterparameter\c!distance/last_counter * (inner_diameter)/(outer_diameter) ;
+  outer_boundary := \visualcounterparameter\c!distance/last_counter ;
+
+  % step size
+  newnumeric inner_time, outer_time ;
+  inner_time := arclength (inner_circle)/last_counter ;
+  outer_time := arclength (outer_circle)/last_counter ;
+
+  newpath slice ;
+
+  newpair pt_inner_left, pt_inner_right ;
+  newpair pt_outer_left, pt_outer_right ;
+
+  for i = 1 upto last_counter : 
+    pt_inner_left  := point ((i-1)*inner_time)               on inner_circle ;
+    pt_inner_right := point (i*inner_time - inner_boundary)  on inner_circle ;
+
+    pt_outer_left  := point ((i-1)*outer_time)               on outer_circle ;
+    pt_outer_right := point (i*outer_time - outer_boundary)  on outer_circle ;
+
+    slice := inner_circle cutbefore pt_inner_left cutafter pt_inner_right 
+       --- reverse (outer_circle cutbefore pt_outer_left cutafter pt_outer_right ) 
+       --- cycle ;
+
+    fill slice withcolor 
+      if i < current_counter     : past_color 
+      elseif i = current_counter : active_color
+      else                       : future_color
+      fi ;
+
+  endfor ;
+
+  label (countertext, origin) ;
+
+  endgroup ;
+
+\stopuseMPgraphic
+
+%D \subsection {pulseline}
+
+\definevisualcounter
+  [pulseline]
+  [           \c!mp=visualcounter::pulseline,
+            \c!path={origin -- (((current_counter-1)*width, 0) .. ((current_counter-0.5)*width, -0.2height) 
+                      -- (current_counter*width, height) -- ((current_counter+0.5)*width, -0.2height) 
+                      .. ((current_counter+1)*width,0))  -- ((last_counter+1)*width, 0) 
+                      randomized 0.3width},
+           \c!width=0.5EmWidth,
+          \c!height=3ExHeight,
+   \c!rulethickness=1bp,
+  ]
+
+
+\startuseMPgraphic{visualcounter::pulseline}
+  begingroup ;
+
+  \includeMPgraphic{visualcounter::initialization}
+
+  newpath pulse ;
+  pulse := \visualcounterparameter\c!path ;
+
+  newpath helper_line ;
+  helper_line := (0,-height) -- (0,height) ;
+
+  newpair start_pulse, stop_pulse ;
+  start_pulse := pulse intersectionpoint (helper_line shifted ((current_counter-1)*width, 0)) ;
+  stop_pulse  := pulse intersectionpoint (helper_line shifted ((current_counter+1)*width, 0)) ;
+
+  
+  newpath past_pulse, active_pulse, future_pulse ;
+  past_pulse    := pulse cutafter  start_pulse ;
+  active_pulse  := pulse cutbefore start_pulse cutafter stop_pulse ;
+  future_pulse  := pulse cutbefore stop_pulse ;
+
+  pickup pencircle scaled \visualcounterparameter\c!rulethickness ;
+  draw past_pulse   withcolor past_color   ;
+  draw active_pulse withcolor active_color ;
+  draw future_pulse withcolor future_color ;
+
+  endgroup ;
+\stopuseMPgraphic
+
+%D \subsection {scratchmarks}
+
+\definevisualcounter
+  [scratchmarks]
+  [           \c!mp=visualcounter::scratchmarks,
+           \c!width=3bp,
+          \c!height=3ExHeight,
+        \c!distance=0.5EmWidth,
+              angle=75,
+  ]
+
+\startuseMPgraphic{visualcounter::scratchmarks}
+  begingroup ;
+
+  \includeMPgraphic{visualcounter::initialization}
+
+  linecap := rounded ;
+
+  newnumeric theta     ; theta     := \visualcounterparameter{angle} ;
+
+  newpath left_marker, right_marker ;
+  left_marker   := origin -- height*dir(theta) ;
+  right_marker  := (-4*distance, height*sind(theta)) -- origin ;
+
+  save marker ;
+  def marker (expr i) =
+    (if i mod 5 = 0 : right_marker else : left_marker fi) 
+        shifted (i*distance, 0) 
+        withcolor
+            if i < current_counter     : past_color 
+            elseif i = current_counter : active_color
+            else                       : future_color
+            fi ;
+  enddef ;
+
+  pickup pencircle scaled \visualcounterparameter\c!width ;
+
+  for i := last_counter downto 1 :
+      draw marker(i) ;
+  endfor ;
+
+  draw marker(current_counter) ;
+
+  endgroup ;
+\stopuseMPgraphic
+
+%D \subsection {mayanumbers}
+
+\definevisualcounter
+  [mayanumbers]
+  [           \c!mp=visualcounter::mayanumbers,
+           \c!width=1EmWidth,
+          \c!height=1ExHeight,
+          \c!distance=\visualcounterparameter\c!width/4,
+  ]
+
+\startuseMPgraphic{visualcounter::mayanumbers}
+  begingroup ;
+
+  \includeMPgraphic{visualcounter::initialization}
+
+  newnumeric linewidth    ; linewidth    := 4width + 5distance ;
+  newnumeric linedistance ; linedistance := 2distance ;
+
+  newpath marker; 
+  marker := ((0,0.5height) .. (0.5width,-0.1height) .. (0.5width, -0.4height) 
+         .. (0,-0.8height) 
+         .. (-0.5width,-0.4height) .. (-0.5width, -0.1height) .. cycle) ;
+
+  newpath line ;
+  line   := (-0.5width - distance, 0) .. (0.1width,0.8height) 
+        --- (3.1width + 3distance,  0.8height) .. (3.5width + 4distance, 0) .. (3.1width + 3distance, -0.8height)
+        --- (0.1width, -0.8height) .. cycle ;
+
+  newnumeric total_lines;       total_lines := floor(last_counter/5);
+  newnumeric remaining_markers; remaining_markers := last_counter - total_lines*5;
+  
+  newnumeric start_offset; start_offset := linewidth - 0.5distance;
+  newnumeric total_width;  total_width  := total_lines*(linewidth+linedistance) + remaining_markers*(width+distance);
+  newpath boundary ;
+  boundary := (0, 0.9height) 
+           -- (total_width, 0.9height) 
+           -- (total_width, -0.9height)
+           -- (0, -0.9height) 
+           -- cycle;
+  boundary := boundary shifted (start_offset, 0);
+
+  % Draw the filled solid lines
+  newnumeric linecount ; linecount := floor ((current_counter - 1) / 5) ;
+
+  for i = 1 upto linecount :
+    fill line shifted (i*(linewidth + linedistance), 0)
+         withcolor past_color  ;
+  endfor
+
+  % Draw the filled dots
+  newnumeric offset ; offset := (linecount + 1)*(linewidth + linedistance) ;
+
+  newnumeric markercount ; markercount := current_counter - linecount*5 ;
+  if markercount = 5 :
+      fill line shifted (offset,0)
+         withcolor active_color  ;
+  else : for i = 1 upto markercount :
+      fill marker shifted (offset + (i-1)*(width+distance), 0 ) 
+         withcolor 
+         if i = markercount :
+           active_color  ;
+         else :
+           past_color  ;
+         fi
+  endfor fi
+
+  % Draw the empty dots
+  newnumeric markermax ; markermax := min(last_counter - linecount*5, 4) ;
+  if markercount < 4 :
+    for i = markercount + 1 upto markermax : 
+        fill marker shifted (offset + (i-1)*(width+distance),0)
+          withcolor future_color  ;
+    endfor
+  fi
+
+  for blockcount = linecount + 1 upto ceiling(last_counter/5) :
+    offset := (blockcount + 1)*(linewidth + linedistance) ;
+    markercount := min(4, last_counter - blockcount*5) ;
+    for i = 1 upto markercount :
+      fill marker shifted (offset + (i-1)*(width+distance),0)
+        withcolor future_color ;
+    endfor
+  endfor
+
+  setbounds currentpicture to boundary ;
+
+  endgroup ;
+\stopuseMPgraphic
+
+%D \section {progressbar}
+
+\definevisualcounter
+  [progressbar]
+  [     \c!mp=visualcounter::progressbar,
+     \c!width=\the\dimexpr\textwidth/2\relax,
+    \c!height=2ExHeight,
+  ]
+
+\startuseMPgraphic {visualcounter::progressbar}
+  begingroup;
+
+  \includeMPgraphic{visualcounter::initialization}
+
+  newpath boundary;
+  boundary := unitsquare xyscaled (width, height);
+
+  newpath progressbar;
+  progressbar := unitsquare xyscaled (current_counter*width/last_counter, height);
+
+  fill boundary    withcolor future_color;
+  fill progressbar withcolor past_color;
+  setbounds currentpicture to boundary ;
+
+  endgroup;
+\stopuseMPgraphic
+
+\protect
+
+\stopmodule
+
diff --git a/Master/tlpkg/bin/tlpkg-ctan-check b/Master/tlpkg/bin/tlpkg-ctan-check
index 414b7b40522..648f02b01e5 100755
--- a/Master/tlpkg/bin/tlpkg-ctan-check
+++ b/Master/tlpkg/bin/tlpkg-ctan-check
@@ -146,6 +146,7 @@ my @TLP_working = qw(
     context-notes-zh-cn context-rst context-ruby
     context-simplefonts context-simpleslides context-title
     context-transliterator context-typearea context-typescripts context-vim
+    context-visualcounter
     contour contracard convbkmk
     cooking cookingsymbols cool coollist coolstr coolthms cooltooltips
     coordsys copyrightbox coseoul
diff --git a/Master/tlpkg/libexec/ctan2tds b/Master/tlpkg/libexec/ctan2tds
index b88e63e577e..9e29fe96488 100755
--- a/Master/tlpkg/libexec/ctan2tds
+++ b/Master/tlpkg/libexec/ctan2tds
@@ -287,6 +287,7 @@ chomp ($Build = `cd $Master/../Build/source && pwd`);
  'context-typearea',    "&MAKEcopy",
  'context-typescripts', "&MAKEcopy",
  'context-vim',         "&MAKEcopy",
+ 'context-visualcounter',	"&MAKEcopy",
  'cookybooky',  "die 'skipping, requires nonfree emerald fonts'",
  'copac-clean', "die 'skipping, snobol? await request'",
  'coptic',      "die 'skipping, replaced by cbcoptic'",
diff --git a/Master/tlpkg/tlpsrc/collection-context.tlpsrc b/Master/tlpkg/tlpsrc/collection-context.tlpsrc
index 79dfb5bf8a2..e4079154a54 100644
--- a/Master/tlpkg/tlpsrc/collection-context.tlpsrc
+++ b/Master/tlpkg/tlpsrc/collection-context.tlpsrc
@@ -38,3 +38,4 @@ depend context-transliterator
 depend context-typearea
 depend context-typescripts
 depend context-vim
+depend context-visualcounter
diff --git a/Master/tlpkg/tlpsrc/context-visualcounter.tlpsrc b/Master/tlpkg/tlpsrc/context-visualcounter.tlpsrc
new file mode 100644
index 00000000000..80e71c2e536
--- /dev/null
+++ b/Master/tlpkg/tlpsrc/context-visualcounter.tlpsrc
@@ -0,0 +1,2 @@
+category ConTeXt
+depend context