Index: mttroot/mtt/lib/examples/Mechanical/Mechanical-2D/TwoLink/TwoLink_subs.r
==================================================================
--- mttroot/mtt/lib/examples/Mechanical/Mechanical-2D/TwoLink/TwoLink_subs.r
+++ mttroot/mtt/lib/examples/Mechanical/Mechanical-2D/TwoLink/TwoLink_subs.r
@@ -3,14 +3,18 @@
 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 % %% Version control history
 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 % %% $Id$
 % %% $Log$
+% %% Revision 1.1  1998/03/22 20:12:51  peterg
+% %% Initial revision
+% %%
 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
         trig1 := {cos(~x)*cos(~y) => (cos(x+y)+cos(x-y))/2,
                   cos(~x)*sin(~y) => (sin(x+y)-sin(x-y))/2,
                   sin(~x)*sin(~y) => (cos(x-y)-cos(x+y))/2,
                   cos(~x)^2       => (1+cos(2*x))/2,
                   sin(~x)^2       => (1-cos(2*x))/2};
        LET trig1;
+
 END;