Return to rotsq.i CVS log

Up to [Research Unix] / researchv10no / cmd / ideal / tests

researchv10 Norman

rotsq
.nf
.IS
box square{var ne, nw, se, sw;
ne = nw + size;
se = sw + size;
ne = se + (0,1)*size;
conn ne to se;
conn se to sw;
conn sw to nw;
conn nw to ne;
}

box main{var anchor;
anchor = (1.5,-3);
put square{var size;nw=anchor;size = (1,1);conn (nw + ne)/2 to 0.5*(sw + se);};
}
.IE
.IS
...forget square
.IE

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.