PhongIntensity.cs

using SkiaSharp;
using System;
using Waher.Script.Abstraction.Elements;
using Waher.Script.Exceptions;
using Waher.Script.Model;
using Waher.Script.Objects;
 
namespace Waher.Script.Graphs3D.Functions.Shading
{
    public class PhongIntensity : FunctionMultiVariate
    {
        public PhongIntensity(ScriptNode Color, int Start, int Length, Expression Expression)
            : base(new ScriptNode[] { Color }, argumentTypes1Scalar, Start, Length, Expression)
        {
        }
 
        public PhongIntensity(ScriptNode Red, ScriptNode Green, ScriptNode Blue,
            int Start, int Length, Expression Expression)
            : base(new ScriptNode[] { Red, Green, Blue },
                  argumentTypes3Scalar, Start, Length, Expression)
        {
        }
 
        public PhongIntensity(ScriptNode Red, ScriptNode Green, ScriptNode Blue,
            ScriptNode Alpha, int Start, int Length, Expression Expression)
            : base(new ScriptNode[] { Red, Green, Blue, Alpha },
                  argumentTypes4Scalar, Start, Length, Expression)
        {
        }
 
        public override string FunctionName => nameof(PhongIntensity);
 
        public override string[] DefaultArgumentNames => new string[]
        {
            "Color"
        };
 
        public override IElement Evaluate(IElement[] Arguments, Variables Variables)
        {
            switch (Arguments.Length)
            {
                case 1:
                    SKColor Color = Graphs.Graph.ToColor(Arguments[0].AssociatedObjectValue);
                    return new ObjectValue(new Graphs3D.PhongIntensity(
                        Color.Red, Color.Green, Color.Blue, Color.Alpha));
 
                case 3:
                    return new ObjectValue(new Graphs3D.PhongIntensity(
                        (float)Expression.ToDouble(Arguments[0].AssociatedObjectValue),
                        (float)Expression.ToDouble(Arguments[1].AssociatedObjectValue),
                        (float)Expression.ToDouble(Arguments[2].AssociatedObjectValue),
                        255));
 
                case 4:
                    return new ObjectValue(new Graphs3D.PhongIntensity(
                        (float)Expression.ToDouble(Arguments[0].AssociatedObjectValue),
                        (float)Expression.ToDouble(Arguments[1].AssociatedObjectValue),
                        (float)Expression.ToDouble(Arguments[2].AssociatedObjectValue),
                        (float)Expression.ToDouble(Arguments[3].AssociatedObjectValue)));
 
                default:
                    throw new ScriptRuntimeException("Argument number mismatch.", this);
            }
        }
    }
}