31 lines (23 with data), 878 Bytes

  AnyKinLinear Lin={
     AnyRefFrame &ref1=..StartNode;
     AnyRefFrame &ref2=..EndNode;
     //AnyDrawPLine drw={ Thickness=.005; RGB={0,0,1};};
     Ref=0;
   };

  AnyKinMeasureOrg LinMeasureOrg={
    AnyKinLinear &ref=.Lin;
    MeasureOrganizer=.Axis;
  };

 
  AnyReacForce ReactionForce= {
    AnyKinMeasure& ref2=.LinMeasureOrg;
  };

  AnyDrawVector DrawSupport = {
    AnyRefFrame &ref = .Lin.ref2;
    Vec = ..DrawRef.DrawSettingsSupport.Lin.ScaleFactor*.Direction*.ReactionForce.F[0]*.Lin.ref1.Axes0';
   
    PointAway = Off;
    DrawCoord = Off;
    
    Line.RGB = ...DrawRef.DrawSettingsSupport.Lin.RGB;
    Line.Thickness = ...DrawRef.DrawSettingsSupport.Lin.Thickness;
     
    Line.End.Thickness = 4*....DrawRef.DrawSettingsSupport.Lin.Thickness;  
    Line.End.Length = 2*....DrawRef.DrawSettingsSupport.Lin.Thickness;
  };