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
|
%%
%% A DANTE-Edition example
%%
%% Example 36-00-68 on page 795.
%%
%% 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,pst-node}
\SpecialCoor
\makeatletter
\def\SpecialCnode{\@ifnextchar[{\SpecialCnode@i}{\SpecialCnode@i[]}}
\def\SpecialCnode@i[#1](#2,#3)#4{{%
\psset{#1}
\cnode@ii(#2,#3){\psk@radius}{#4}%
\pst@dimc=\psk@radius%
\pnode(!#2 \pst@number\pst@dimc \pst@number\psxunit div sub #3){#4L}%
\pnode(!#2 \pst@number\pst@dimc \pst@number\psxunit div add #3){#4R}%
\pnode(!#2 #3 \pst@number\pst@dimc \pst@number\psyunit div add){#4T}%
\pnode(!#2 #3 \pst@number\pst@dimc \pst@number\psyunit div sub){#4B}%
}}
\makeatother
\begin{document}
\SpecialCnode[fillstyle=solid,fillcolor=blue!20,radius=0.75,linecolor=blue](1,0.8){d}
\psdots(d)(dL)(dT)(dR)(dB)
\uput[90](dT){dT}\uput[0](dR){dR}\uput[-90](dB){dB}\uput[180](dL){dL}
%
\SpecialCnode[fillstyle=solid,fillcolor=red!20,linecolor=red,radius=0.5](5,0.8){c}
\psdots(c)(cL)(cT)(cR)(cB)
\uput[90](cT){cT}\uput[0](cR){cR}\uput[-90](cB){cB}\uput[180](cL){cL}
%
\nccurve[angleA=90,angleB=180,ncurv=2,linecolor=green,linewidth=1pt]{cT}{dL}
\nccurve[angleA=0,angleB=45,ncurv=2,linecolor=magenta,linewidth=1pt]{->}{cR}{dT}
\end{document}
|
