%%
%% A DANTE-Edition example
%%
%% Example 08-02-2 on page 97.
%%
%% Copyright (C) 2011 Herbert Voss
%%
%% It may be distributed and/or modified under the conditions
%% of the LaTeX Project Public License, either version 1.3
%% of this license or (at your option) any later version.
%%
%% See
http://www.latex-project.org/lppl.txt for details.
%%
%%
%% ====
% Show page(s) 1
%%
\documentclass[]{article}
\pagestyle{empty}
\setlength\textwidth{201.70511pt}
\setlength\parindent{0pt}
\usepackage{pstricks}
\makeatletter % definition of new "arrows" B-B
\edef\pst@arrowtable{\pst@arrowtable,B-B} % add to table
\def\tx@ABox{ABox } % internal PostScript name ABox
\@namedef{psas@B}{% internal macro name
/ABox { % PostScript procedure
CLW mul add dup CLW sub 2 div %take line width into account
/x ED mul % save x value
/y ED % y as well
/z CLW 2 div def % reserve
x neg y moveto % starting point
x neg CLW 2 div L % lineto
x CLW 2 div L % lineto
x y L % lineto
x neg y L % lineto
closepath % close line
stroke 0 y moveto % draw and go to line end
} def
\psk@bracketlength \psk@tbarsize \tx@ABox % width height ABox
}
\newpsfontdot{CircleMultiply}[2 0.0 0.0 2 -0.78 -0.7]{Symbol}{<C4>} % 196
\newpsfontdot{CirclePlus}[2 0.0 0.0 2 -0.78 -0.7]{Symbol}{<C5>} % 197
\@namedef{psas@cm}{\psk@dotsize \psds@CircleMultiply 0 0 Dot}
\@namedef{psas@cp}{\psk@dotsize \@nameuse{psds@CirclePlus} 0 0 Dot}
\makeatother
\begin{document}
\begin{pspicture}[showgrid](4,4)
\psset{arrowscale=3,arrows=B-cp}
\psline[bracketlength=2](1,1)(4,4)
\psarc[linecolor=red](0,0){2}{0}{90}
\psarc[arrowsize=2mm,linecolor=blue]{cm-cp}(1,1){2}{20}{70}
\end{pspicture}\hspace{1cm}
\begin{pspicture}[showgrid](4,4)
\psset{arrowscale=3,arrows=B->} \psline(3,3)
\psarc[linecolor=red,tbarsize=20pt](0,0){2}{0}{90}
\psarc[tbarsize=0.5cm,bracketlength=0.3,linecolor=blue](1,1){2}{20}{70}
\end{pspicture}
\end{document}
