// spline2guide.ls

// changes a single spline in layer 1
// to a chain of 2-point polys for use as a guide 
// in Sasquatch. Uses Layer 2, which should be empty.
// The FIRST point of the spline is used to create
// a single-point-poly which is given the surface "base."
// The rest of the guide is given the surface "hair."
// From a procedure posted to the WorleyLabs 
// List by Bill Boyce (thanks, Bill!)
main
{
	selmode(USER);
	changesurface("hair");
	selpoint(SET,POINTNDX,1);
	copy();
	lyrsetfg(2);
	paste();
	editbegin();
	addpolygon(points[1]);
	editend();
	selpolygon(SET,NVEQ,1);
	changesurface("base");
	cut();
	lyrsetfg(1);
	paste();
	mergepoints();
	extrude(X,0,1);
	mergepoints();
}