public override FScheme.Value Evaluate(FSharpList<FScheme.Value> args)
{
_eng = (RobotEngine)((Value.Container)args[0]).Item;
var nodes_in = ((Value.List)args[1]).Item;
var bars_in = ((Value.List) args[2]).Item;
var plates_in = ((Value.List)args[3]).Item;
var nodes = nodes_in.Select(x => ((AnalyticalNode)((Value.Container) x).Item));
var bars = bars_in.Select(x => ((AnalyticalBar)((Value.Container)x).Item));
var plates = plates_in.Select(x => ((AnalyticalPlate)((Value.Container)x).Item));
RobotModel model = new RobotModel(_eng.Application, nodes, bars, plates);
model.Analyze();
model.GetResults();
return Value.NewContainer(model);
}
public override FScheme.Value Evaluate(FSharpList<FScheme.Value> args)
{
RobotEngine engine = new RobotEngine();
return Value.NewContainer(engine);
}