summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/pstricks-examples-en/08-02-2.ltx
blob: 1d07dd231a239e6a9bf6a3b2aee53aacdb1b8162 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
%% 
%%  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}