Return to arrow CVS log

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

researchv10 Norman

.IS
arrow {
	var tl, hd, head, perp, headang;
	conn tl to hd;
	perp = head*(tl-hd)/abs(tl-hd);
	conn hd + cis(headang)*perp to hd to hd + cis(-headang)*perp;
	head ~ 0.1;
        headang ~ 25;
}
.IE

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