94 lines (78 with data), 3.6 kB

AnyFolder DrawJointReactions={
  
  AnyForceMomentMeasure ForceMomentMeasure={
    AnyForceBase &ref1=..Constraints.Reaction;
    AnyRefFrame &ref2=..ref1;
  };

  AnyDrawVector DrawFX = {
    
    AnyRefFrame &ref = ..ref1;
    AnyVec3 F=.ForceMomentMeasure.F*..ref1.Axes;
    Vec = ..DrawRef.DrawSettingsJointReactions.Lin.ScaleFactor*{-1,0,0}*F[0];
    GlobalCoord = Off;
    PointAway = Off;
    DrawCoord = Off;
    Line.RGB = {0,1,0};//DrawRef.DrawSettingsJointReactions.Lin.RGB;
    Line.Thickness = ..DrawRef.DrawSettingsJointReactions.Lin.Thickness;
    Line.End.Thickness = 4*..DrawRef.DrawSettingsJointReactions.Lin.Thickness;  
    Line.End.Length = 2*..DrawRef.DrawSettingsJointReactions.Lin.Thickness;
  };

  AnyDrawVector DrawFY = {
    
    AnyRefFrame &ref = ..ref1;
    AnyVec3 F=.ForceMomentMeasure.F*..ref1.Axes;
    Vec = ..DrawRef.DrawSettingsJointReactions.Lin.ScaleFactor*{0,-1,0}*F[1];
    GlobalCoord = Off;
    PointAway = Off;
    DrawCoord = Off;
    Line.RGB = {0,1,0};//DrawRef.DrawSettingsJointReactions.Lin.RGB;
    Line.Thickness = ..DrawRef.DrawSettingsJointReactions.Lin.Thickness;
    Line.End.Thickness = 4*..DrawRef.DrawSettingsJointReactions.Lin.Thickness;  
    Line.End.Length = 2*..DrawRef.DrawSettingsJointReactions.Lin.Thickness;
  };
   
  AnyDrawVector DrawFZ = {
    
    AnyRefFrame &ref = ..ref1;
    AnyVec3 F=.ForceMomentMeasure.F*..ref1.Axes;
    Vec = ..DrawRef.DrawSettingsJointReactions.Lin.ScaleFactor*{0,0,-1}*F[2];
    GlobalCoord = Off;
    PointAway = Off;
    DrawCoord = Off;
    Line.RGB = {0,1,0};//.DrawRef.DrawSettingsJointReactions.Lin.RGB;
    Line.Thickness = ..DrawRef.DrawSettingsJointReactions.Lin.Thickness;
    Line.End.Thickness = 4*..DrawRef.DrawSettingsJointReactions.Lin.Thickness;  
    Line.End.Length = 2*..DrawRef.DrawSettingsJointReactions.Lin.Thickness;
  };

  AnyDrawVector DrawMX = {
    
    AnyRefFrame &ref = ..ref1;
    AnyVec3 M=.ForceMomentMeasure.M*..ref1.Axes;
    Vec = ..DrawRef.DrawSettingsJointReactions.Rot.ScaleFactor*{-1,0,0}*M[0];
    GlobalCoord = Off;
    PointAway = Off;
    DrawCoord = Off;
    Line.RGB = ..DrawRef.DrawSettingsJointReactions.Rot.RGB;
    Line.Thickness = ..DrawRef.DrawSettingsJointReactions.Rot.Thickness;
    Line.End.Thickness = 4*..DrawRef.DrawSettingsJointReactions.Rot.Thickness;  
    Line.End.Length = 2*..DrawRef.DrawSettingsJointReactions.Rot.Thickness;
  };

  
  
  AnyDrawVector DrawMY = {
    
    AnyRefFrame &ref = ..ref1;
    AnyVec3 M=.ForceMomentMeasure.M*..ref1.Axes;
    Vec = ..DrawRef.DrawSettingsJointReactions.Rot.ScaleFactor*{0,-1,0}*M[1];
    GlobalCoord = Off;
    PointAway = Off;
    DrawCoord = Off;
    Line.RGB = ..DrawRef.DrawSettingsJointReactions.Rot.RGB;
    Line.Thickness = ..DrawRef.DrawSettingsJointReactions.Rot.Thickness;
    Line.End.Thickness = 4*..DrawRef.DrawSettingsJointReactions.Rot.Thickness;  
    Line.End.Length = 2*..DrawRef.DrawSettingsJointReactions.Rot.Thickness;  
  };
   
  AnyDrawVector DrawMZ = {
    
    AnyRefFrame &ref = ..ref1;
    AnyVec3 M=.ForceMomentMeasure.M*..ref1.Axes;
    Vec = ..DrawRef.DrawSettingsJointReactions.Rot.ScaleFactor*{0,0,-1}*M[2];
    GlobalCoord = Off;
    PointAway = Off;
    DrawCoord = Off;
    Line.RGB = ..DrawRef.DrawSettingsJointReactions.Rot.RGB;
    Line.Thickness = ..DrawRef.DrawSettingsJointReactions.Rot.Thickness;
    Line.End.Thickness = 4*..DrawRef.DrawSettingsJointReactions.Rot.Thickness;  
    Line.End.Length = 2*..DrawRef.DrawSettingsJointReactions.Rot.Thickness;
  };
  
};