--- a
+++ b/Tools/ModelUtilities/Reactions/ReactionForce.any
@@ -0,0 +1,31 @@
+  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;
+  };
+  
\ No newline at end of file