PolygonMesh3D.cs

using System;
using Waher.Script.Abstraction.Elements;
using Waher.Script.Exceptions;
using Waher.Script.Graphs;
using Waher.Script.Model;
 
namespace Waher.Script.Graphs3D.Functions.Plots
{
    public class PolygonMesh3D : FunctionMultiVariate
    {
        public PolygonMesh3D(ScriptNode X, ScriptNode Y, ScriptNode Z, int Start, int Length, Expression Expression)
            : base(new ScriptNode[] { X, Y, Z },
                  new ArgumentType[] { ArgumentType.Matrix, ArgumentType.Matrix, ArgumentType.Matrix },
                  Start, Length, Expression)
        {
        }
 
        public PolygonMesh3D(ScriptNode X, ScriptNode Y, ScriptNode Z, ScriptNode Shader, int Start, int Length, Expression Expression)
            : base(new ScriptNode[] { X, Y, Z, Shader },
                  new ArgumentType[] { ArgumentType.Matrix, ArgumentType.Matrix, ArgumentType.Matrix, ArgumentType.Scalar },
                  Start, Length, Expression)
        {
        }
 
        public PolygonMesh3D(ScriptNode X, ScriptNode Y, ScriptNode Z, ScriptNode Shader, ScriptNode TwoSided, int Start, int Length, Expression Expression)
            : base(new ScriptNode[] { X, Y, Z, Shader, TwoSided },
                  new ArgumentType[] { ArgumentType.Matrix, ArgumentType.Matrix, ArgumentType.Matrix, ArgumentType.Scalar, ArgumentType.Scalar },
                  Start, Length, Expression)
        {
        }
 
        public override string FunctionName => nameof(PolygonMesh3D);
 
        public override string[] DefaultArgumentNames
        {
            get { return new string[] { "x", "y", "z", "shader", "twoSided" }; }
        }
 
        public override IElement Evaluate(IElement[] Arguments, Variables Variables)
        {
            if (!(Arguments[0] is IMatrix X))
                throw new ScriptRuntimeException("Expected matrix for X argument.", this);
 
            if (!(Arguments[1] is IMatrix Y))
                throw new ScriptRuntimeException("Expected matrix for Y argument.", this);
 
            if (!(Arguments[2] is IMatrix Z))
                throw new ScriptRuntimeException("Expected matrix for Z argument.", this);
 
            int Rows = X.Rows;
            int Columns = X.Columns;
            if (Y.Rows != Rows || Y.Columns != Columns || Z.Rows != Rows || Z.Columns != Columns)
                throw new ScriptRuntimeException("Matrix dimension mismatch.", this);
 
            IElement Shader = Arguments.Length <= 3 ? null : Arguments[3];
            IElement TwoSided = Arguments.Length <= 4 ? null : Arguments[4];
 
            return new Graph3D(Variables, X, Y, Z, null, new PolygonMesh3DPainter(), false, false, false, this,
                Shader?.AssociatedObjectValue ?? Graph.DefaultColor, TwoSided?.AssociatedObjectValue ?? true);
        }
    }
}