Fix sdir tilt usage

Author: jgray-19

src/madl_dynmap.mad

@@ -228,7 +228,7 @@ end
 
 M.srotation = srotation
 
-M.tilt = \elm, m, lw_ -> srotation(elm, m, lw_, m.tlt)
+M.tilt = \elm, m, lw_ -> srotation(elm, m, lw_*m.sdir, m.tlt) -- to get opposite angle of the exit when sdir = 1 compared to entry of sdir = -1
 
 -- Translation
 

src/madl_etrck.mad

@@ -602,13 +602,13 @@ local function trackelm (elm, m, inter, thick, thin, fringe)
 
   atentry(elm, m,  sdir, -1)
   mis    (elm, m,  sdir)
-  rot    (elm, m,  1   )
+  rot    (elm, m,  sdir)
   atentry(elm, m,  sdir, -3)
   fng    (elm, m,  sdir, fringe)
   inter  (elm, m,  sdir, thick, thin)
   fng    (elm, m, -sdir, fringe)
   atexit (elm, m, -sdir, -4)
-  rot    (elm, m, -1   )
+  rot    (elm, m, -sdir)
   mis    (elm, m, -sdir)
   atexit (elm, m, -sdir, -2)
 
@@ -640,7 +640,7 @@ local function tracksub (elm, m, inter, thick, thin, fringe)
 
   atentry(elm, m, sdir, -1)
   mis    (elm, m, sdir)
-  rot    (elm, m,    1)
+  rot    (elm, m, sdir)
   atentry(elm, m, sdir, -3)
   fng    (elm, m, sdir, fringe)
 
@@ -680,7 +680,7 @@ local function tracksub (elm, m, inter, thick, thin, fringe)
 
   fng   (elm, m, -sdir, fringe)
   atexit(elm, m, -sdir, -4)
-  rot   (elm, m, -1   )
+  rot   (elm, m, -sdir)
   mis   (elm, m, -sdir)
   atexit(elm, m, -sdir, -2)