% MotionGenesis file:  MGDistancePointFromSkylightWindow3D.txt
% Copyright (c) 2016 Motion Genesis LLC.  All rights reserved.
%---------------------------------------------------------
RigidFrame  A
Point       P, Q, R        %  Corners of triangular skylight.
Point       S              %  Point of street-lamp closest to sklyight.
Constant    p = 1 m        %  Ax>  measure of P's position vector from Ao.
Constant    q = 1 m        %  Ay>  measure of Q's position vector from Ao.
Constant    r = 1 m        %  Az>  measure of R's position vector from Ao.
Constant    sx = 0.5 m     %  Ax>  measure of S's position vector from Ao.
Constant    sy = 0.5 m     %  Ay>  measure of S's position vector from Ao.
Constant    sz = 0.5 m     %  Az>  measure of S's position vector from Ao.
%---------------------------------------------------------
%   Given position vectors.
P.SetPosition( Ao,  p*Ax>  )
Q.SetPosition( Ao,  q*Ay>  )
R.SetPosition( Ao,  r*Az>  )
S.SetPosition( Ao,  sx*Ax> + sy*Ay> + sz*Az>  )
%---------------------------------------------------------
%   Determine outward normal to skylight window.
outwardNormal> = Cross(  P.GetPosition(R),  Q.GetPosition(R)  )
outwardUnitNormal> = GetUnitVector(  outwardNormal>  )
%---------------------------------------------------------
%   Determine outwardUnitNormal> measure of S's distance from Skylight.
d = Dot(  S.GetPosition(R),  outwardUnitNormal>  )
dNumerical = EvaluateToNumber( d )
%---------------------------------------------------------
Save MGDistancePointFromSkylightWindow3D.html
Quit