// (C) Uri Wilensky. https://github.com/NetLogo/NetLogo
package org.nlogo.prim.etc;
import org.nlogo.agent.Agent;
import org.nlogo.agent.AgentSet;
import org.nlogo.agent.ArrayAgentSet;
import org.nlogo.api.I18N;
import org.nlogo.api.LogoException;
import org.nlogo.api.Syntax;
import org.nlogo.nvm.Context;
import org.nlogo.nvm.EngineException;
import org.nlogo.nvm.Reporter;
import java.util.List;
public final strictfp class _inradius
extends Reporter {
@Override
public Syntax syntax() {
int left = Syntax.TurtlesetType() | Syntax.PatchsetType();
int[] right = {Syntax.NumberType()};
int ret = Syntax.TurtlesetType() | Syntax.PatchsetType();
return Syntax.reporterSyntax
(left, right, ret, org.nlogo.api.Syntax.NormalPrecedence() + 2,
false, "-TP-", null);
}
@Override
public Object report(final Context context) throws LogoException {
return report_1(context, argEvalAgentSet(context, 0),
argEvalDoubleValue(context, 1));
}
public AgentSet report_1(final Context context, AgentSet sourceSet, double radius)
throws LogoException {
if (sourceSet.type() == org.nlogo.agent.Link.class) {
throw new EngineException(context, this,
I18N.errorsJ().get("org.nlogo.prim.etc.$common.expectedTurtleOrPatchButGotLink"));
}
if (radius < 0) {
throw new EngineException(context, this,
I18N.errorsJ().getN("org.nlogo.prim.etc.$common.noNegativeRadius", displayName()));
}
List<Agent> result =
world.inRadiusOrCone.inRadius(context.agent, sourceSet, radius, true);
return new ArrayAgentSet
(sourceSet.type(),
result.toArray(new Agent[result.size()]),
world);
}
}