summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/pdftricks/test-fig2.tex
blob: f86f5229db107bcd6a98e3dbb019b91bf6ccb3f1 (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
\documentclass{article}
\input tmp.inputs
\pagestyle{empty}
\usepackage{amssymb,amsbsy}
\begin{document}
\definecolor{lightblue}{rgb}{0,0,.5}
\definecolor{Navy}{rgb}{0,0,0.5}
\definecolor{LemonChiffon}{rgb}{1,0.98,0.8}
\definecolor{ForestGreen}{rgb}{0.13,0.55,0.13}
\SpecialCoor
\begin{pspicture}(-6,-6)(6,6)
  \psaxes{<->}(0,0)(-6,-6)(6,6)
  \psset{arrows=->}
  \multido{\ia=-5+1}{11}{%
\multido{\ib=-5+1}{11}{%
 \pstVerb{/x \ia\space def
    /y \ib\space def
    y 0 eq
      {/ValueTempA 0 def
       /ValueTempB 0.5 def}
      {/ValueTempZ 2 1 x x mul y y mul div add sqrt mul def
       /ValueTempA 1 ValueTempZ div def
       /ValueTempB x y ValueTempZ mul div def}
      ifelse}
 \psline(! x ValueTempA sub y ValueTempB sub)
        (! x ValueTempA add y ValueTempB add)}}
\end{pspicture}
\end{document}