summaryrefslogtreecommitdiff
path: root/graphics/mathspic/dos/mpicm13.m
blob: de3924681ddf94b5e906203c07fabe8e94abf76a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
%% mPICm13.m  (figure 13)
%% mathsPIC  small spiral by recursion
%%  (requires file mPICm13.dat)
\documentclass[a4paper]{article}
\usepackage{pictexwd}
\begin{document}
%%---------------
\beginpicture
paper{units(mm), xrange(0,60), yrange(0,60)}% axes(LB), ticks(10,10)}
point(C){30,30}   % circle center
drawcircle(c,25)
variable(a){315}  % angle
variable(r){20}   % radius
variable(s){5}    % square semi-diagonal
point(t){c,polar(r,330 deg)}
inputfile(mpicm13.dat)[30]
\endpicture
%%----------------
\end{document}