Fixes on documentation and free's in FINALLY

Author: willend

mcstas-comps/contrib/TOF_PSDmonitor_toQ.comp

@@ -13,13 +13,16 @@
 * Position-sensitive, linear Q monitor.
 *
 * %D
+* One-dimensional Q-monitor. Calculates Q from "measured" time-of-flight, 
+* i.e. not from particle velocity parameters.
+*
 * Adapted from Kim Lefmann's TOF_cylPSDmonitor and PSD_monitors
 * An n pixel Q-monitor based on measured Time of Flight detection. 
 * This component may also be used as a beam
 * detector.
 *
 * Example: TOF_PSDmonitor_toQ(xmin=-0.1, xmax=0.1, ymin=-0.1, ymax=0.1,
-*           ny=90, nchan=100, TOFmin=0.0, TOFmax=20000.0, filename="Output.psd")
+*           ny=90, nqbin=100, TOFmin=0.0, TOFmax=20000.0, filename="Output.psd")
 *
 * %P
 * INPUT PARAMETERS:
@@ -30,7 +33,7 @@
 * yheight:     [m] height of detector opening
 * ymin:        [m] Lower y bound of detector opening
 * ymax:        [m] Upper y bound of detector opening
-* ny:          [1] Number of y bins (unsused?)
+* ny:          [1] Number of y bins (for discretisation of 
 * filename:  [str] Name of file in which to store the detector image
 * nowritefile: [1] If set, detector will skip writing to disk
 * tmin:     [mu-s] Beginning TOF window
@@ -56,6 +59,7 @@ DECLARE
   %}
 INITIALIZE
   %{
+    
     if (xwidth  > 0) { xmax = xwidth/2;  xmin = -xmax; }
     if (yheight > 0) { ymax = yheight/2; ymin = -ymax; }
 
@@ -128,9 +132,9 @@ SAVE
   %}
 
 FINALLY %{
-  destroy_darr2d(Q_N);
-  destroy_darr2d(Q_p);
-  destroy_darr2d(Q_p2);
+  destroy_darr1d(Q_N);
+  destroy_darr1d(Q_p);
+  destroy_darr1d(Q_p2);
 %}
 
 MCDISPLAY
@@ -141,6 +145,13 @@ MCDISPLAY
                (double)xmax, (double)ymax, 0.0,
                (double)xmin, (double)ymax, 0.0,
                (double)xmin, (double)ymin, 0.0);
+  double dy=(ymax-ymin)/(ny);
+  int j;
+  double ytmp=ymin;
+  for(j=0; j<ny; j++) {
+    multiline(2, xmin, ytmp, 0.0, xmax, ytmp, 0.0);
+    ytmp+=dy;
+  }
 %}
 
 END