/* Copyright (C) 2014 A.Vontobel
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License
* as published by the Free Software Foundation; either version 2
* of the License, or (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
*
* The license is in LICENCE-GPL.txt.
* If not, see http://www.gnu.org/licenses/old-licenses/gpl-2.0.html.
*/
package net.sf.drawj2d.cmd.geom;
import org.hecl.*;
/**
* GeomAddCmd implements the "geom.add"/"++" command, which
* returns the vector sum.
*/
public class GeomAddCmd implements Command {
boolean debug = false;
public GeomAddCmd () {
}
@Override
public Thing cmdCode(Interp interp, Thing[] argv) throws HeclException {
assert argv.length > 0;
if (debug) System.out.println(argv[0].toString());
if (argv.length < 3) throw new HeclException ("Illegal nb of arguments.");
double[][] argp = new double[argv.length - 1][2];
for (int i = 1; i < argv.length; i++) {
Thing[] currentargv = ListThing.getArray(argv[i]);
if (currentargv.length != 2) throw new HeclException ("Illegal argument format. \"nb nb\" expected.");
double x = NumberThing.asNumber(currentargv[0]).doubleValue();
double y = NumberThing.asNumber(currentargv[1]).doubleValue();
argp[i-1][0] = x;
argp[i-1][1] = y;
}
double[] result = argp[0];
for (int i = 1; i < argp.length; i++) {
result[0] += argp[i][0];
result[1] += argp[i][1];
}
String xstr = StringThing.get(DoubleThing.create(result[0]));
String ystr = StringThing.get(DoubleThing.create(result[1]));
String answer = xstr + " " + ystr;
return new Thing(answer);
}
}
Ads help maintain this website.