The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
DRSTEVE / stylehouse-20140427 / public / src / examples / Paperjs.org / Chain.html 
<!DOCTYPE html>
<html>
<head>
	<meta charset="UTF-8">
	<title>Chain</title>
	<link rel="stylesheet" href="../css/style.css">
	<script type="text/javascript" src="../../dist/paper-full.js"></script>
	<script type="text/paperscript" canvas="canvas">
		// Adapted from the following Processing example:
		// http://processing.org/learning/topics/follow3.html

		// The amount of points in the path:
		var points = 25;

		// The distance between the points:
		var length = 35;

		var path = new Path({
			strokeColor: '#E4141B',
			strokeWidth: 20,
			strokeCap: 'round'
		});

		var start = view.center / [10, 1];
		for (var i = 0; i < points; i++)
			path.add(start + new Point(i * length, 0));

		function onMouseMove(event) {
			path.firstSegment.point = event.point;
			for (var i = 0; i < points - 1; i++) {
				var segment = path.segments[i];
				var nextSegment = segment.next;
				var vector = segment.point - nextSegment.point;
				vector.length = length;
				nextSegment.point = segment.point - vector;
			}
			path.smooth();
		}

		function onMouseDown(event) {
			path.fullySelected = true;
			path.strokeColor = '#e08285';
		}

		function onMouseUp(event) {
			path.fullySelected = false;
			path.strokeColor = '#e4141b';
		}
	</script>
</head>
<body>
	<canvas id="canvas" resize></canvas>
</body>
</html>