// User Defined Functions
// 
// A collection of UDFs for centering and aligning
// Objects or Selections
//
//   Written By Sean Hyde-Moyer (Copywrite 1995-2003)
//   This program is released to the public under the terms of the
//   GNU GENERAL PUBLIC LICENSE
//   See http://www.gnu.org/copyleft/gpl.txt
//   For the full text of the license agreement



centronic  //_____Centers Object / Selection_________________________________
{

	var centarray[3],numarray[3];

	cent = center(boundingbox());
	centstng = string(cent);
	centarray  = parse(" ",centstng);

	numarray[1] = - number(centarray[1]);
	numarray[2] = - number(centarray[2]);
	numarray[3] = - number(centarray[3]);

	move(numarray[1],numarray[2],numarray[3]);

	centarray[] = nil;
	numarray[] = nil;

	return;
}




ygrounder  //_____Rests Object / Selection  @ Y=0_________________________
{
	bbox = (boundingbox());
	lovecarray = parse(" ",string(bbox[1]));
	invrse = - number(lovecarray[2]);
	move(0,invrse,0);

	return;
}


xgrounder  //_____Rests Object / Selection  @ X=0_________________________
{
    bbox = (boundingbox());
    lovecarray = parse(" ",string(bbox[1]));
    invrse = - number(lovecarray[1]);
    move(invrse,0,0);

	return;
}

zgrounder  //_____Rests Object / Selection  @ Z=0_________________________
{
    bbox = (boundingbox());
    lovecarray = parse(" ",string(bbox[1]));
    invrse = - number(lovecarray[3]);
    move(0,0,invrse);

	return;
}