summaryrefslogtreecommitdiff
path: root/info/examples/PSTricks_en/08-02-2.ltx
diff options
context:
space:
mode:
Diffstat (limited to 'info/examples/PSTricks_en/08-02-2.ltx')
-rw-r--r--info/examples/PSTricks_en/08-02-2.ltx61
1 files changed, 61 insertions, 0 deletions
diff --git a/info/examples/PSTricks_en/08-02-2.ltx b/info/examples/PSTricks_en/08-02-2.ltx
new file mode 100644
index 0000000000..1d07dd231a
--- /dev/null
+++ b/info/examples/PSTricks_en/08-02-2.ltx
@@ -0,0 +1,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}