70 

    71 

    72 

    73 \newcommand\grid[1]{%

    74 \begin{tikzpicture}[baseline=(char.base)]

    75   \path[use as bounding box]

    76     (0,0) rectangle (1em,1em);

    77   \draw[red!50, fill=red!20]

    78     (0,0) rectangle (1em,1em);

    79   \node[inner sep=1pt,anchor=base west]

    80     (char) at (0em,\gridraiseamount) {#1};

    81 \end{tikzpicture}}

    82 \newcommand\gridraiseamount{0.12em}

    83 

    84 \makeatletter

    85 \newcommand\Grid[1]{%

    86   \@tfor\z:=#1\do{\grid{\z}}}

    87 \makeatother    

    88 

    89 \newcommand\Vspace[1][.3em]{%

    90   \mbox{\kern.06em\vrule height.3ex}%

    91   \vbox{\hrule width#1}%

    92   \hbox{\vrule height.3ex}}

    93 

    94 \def\VS{\Vspace[0.6em]}