summaryrefslogtreecommitdiff
path: root/graphics/mathspic/dos/mpicm13.dat
blob: 6fe9cf7c1725b0db7d72540e7fef0b7da99ee0c9 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
%% mPICm13.dat
%% mathsPIC  (spiral data)  input by file mPICm13.m
\typeout{...}%
variable*(r){r, advance(-0.5)}  %%  r=r-0.5
variable*(a){a, advance(15)}    %%  a=a+15
point*(P){C,polar(r,a deg )}
drawpoint(P)
drawline(TP)
point*(T){P}       %%  t=p
%% make a square on P (s is defined in mPICm-12.m)
point*(Q1){P,polar(s,0)}
point*(Q2){P,polar(s,90)}
point*(Q3){P,polar(s,180)}
point*(Q4){P,polar(s,270)}
drawline(Q1Q2Q3Q4Q1)