//04.03.20, 15:43
//This macro scales all object locations by a factor.
//It is useful where the linked images are also scaled via
//File>Scale.
//   https://sils.fnwi.uva.nl/bcb/objectj/examples/utils/

macro "Scale all objects"{
	k = 0.3; //factor to scale;
	for(obj = 1; obj <= ojNObjects(); obj++){
		ojSelectObject(obj);
		for(itm = 1; itm <= ojNItems("*"); itm++){
			ojSelectItem("*", itm);
			for(pt = 1; pt <= ojNPoints(); pt++){
				ojMovePoint(pt, ojXPos(pt) * k,ojYPos(pt) * k, -1);
			}
	}
}