Support for th4:draw

<..configure svg th4 ..>

\:CheckOption{draw} \if:Option \:CheckOption{th4} \if:Option
    \Configure{Fig}
       {\Svg}
       {\EndSvg}
    \:CheckOption{svg-} \if:Option
       <.embed svg draw .>
    \else
       <.internal svg draw .>
    \fi
\fi \fi

-_-_-

<..external svg draw ..>

\HAssign\:svgN = 0
\def\Svg{%
   \gHAdvance\:svgN by 1
   \HCode{<embed src="\jobname\:svgN.svg"\Hnewline
      name="svg\:svgN" type="image/svg+xml"
%  height="600" width="600"
      \Hnewline pluginspage="http://www.adobe.com/svg/viewer/install/">}%
   <.open embeded file .>%
   <.open embeded svg .>%
   \bgroup\Canvas \x:SUBOff  \x:SUPOff
      \let\Picture=\empty \everymath{}\everydisplay{}%
}
\def\EndSvg{\EndCanvas\egroup
    <.close embeded svg .>%
    <.close embeded file .>}

-_-_-

<..internal svg draw ..>

\def\Svg{\HCode{<svg:svg>\Hnewline
                 <svg:g style="stroke:black;  stroke-width:1;
                       stroke-opacity:1;">\Hnewline}%
   \bgroup\Canvas \x:SUBOff  \x:SUPOff
      \let\Picture=\empty \everymath{}\everydisplay{}%
}
\def\EndSvg{\EndCanvas\egroup
    \HCode{</svg:g></svg:svg>}}

-_-_-

<..embed svg draw ..>

\let\:svg=\empty
\NewConfigure{Canvas}[4]{\ht:special{t4ht"%
    *%
    *d\Hnewline%
    **\Hnewline<\:svg text x="\%.1f" y="\%.1f" >%
    *</\:svg text>%
    *\Hnewline<\:svg rect x="\%.1f#4" y="\%.1f#4"
                    width="\%.1f#4"  height="\%.1f#4" />%
    *#1*#2*#1*#2*#3}}
\Configure{Canvas}{0.0000152587890625}{0.0}{0.5}{}

-_-_-

\NewConfigure{Canvas}[4]{\ht:special{t4ht"%
    *%
    *d\Hnewline\Hnewline %
%   **<svg:text x="\%.0f" y="\%.0f" >%
%   *</svg:text>\Hnewline %
    **<svg:foreignObject x="\%.0f" y="\%.0f" >%
    *</svg:foreignObject>\Hnewline %
%   *\Hnewline<svg:rect x="\%.0f#4" y="\%.0f#4"
%                   width="\%.0f#4"  height="\%.0f#4"
%                   fill="black" stroke-width="0" />%
    *\Hnewline<svg:polyline points="\%.0f#4 \%.0f#4 \%.0f#4 \%.0f#4"
                            style="stroke-width:\%.0f#4" />%
    *#1*#2*#1*#2*#3*2}}

<..open embeded file ..>

\ht:special{t4ht>\jobname\:svgN.svg}%
\HCode{<?xml version="1.0" encoding="iso-8859-1"?>\Hnewline
<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.0//<.dtd lang .>"\Hnewline
"http://www.w3.org/TR/2001/PR-SVG-20010719/DTD/svg10.dtd">
\Hnewline}

-_-_-

<..close embeded file ..>

\ht:special{t4ht<\jobname\:svgN.svg}%

-_-_-

<..open embeded svg ..>

\HCode{<\:svg svg>\Hnewline
<\:svg g style="stroke-width:0; fill:black;">\Hnewline}%

-_-_-

<..close embeded svg ..>

\HCode{</\:svg g></\:svg svg>}%

-_-_-

2.3 Support for th4:draw