%% 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)