/*******************************************************************************
*         McStas instrument definition URL=http://www.mcstas.org
*
* Instrument: Ex_3_1
*
* %Identification
* Written by: E. Farhi
* Date: May 19, 2010
* Origin: ESS
* Release: McStas CVS-080208
* Version: 0.2
* %INSTRUMENT_SITE: Ven2010
*
* A simple sample
*
* %Description
* A simple sample (powder), and we shall add some junk around
*
* Example: mcrun Ex_3_1.instr lambda=2
*
* %Parameters
* lambda: [Angs]   Incoming wavelength
* sample: [string] Material used as a sample
*
* %Link
* essworkshop.org/storage
*
* %End
*******************************************************************************/

DEFINE INSTRUMENT Ex_3_1(lambda=2, string sample="SiO2_quartza.lau")

TRACE

COMPONENT Origin = Progress_bar()
  AT (0,0,0) ABSOLUTE

COMPONENT Source=Source_simple(
  radius=0.05, dist=4,xw=0.02,yh=0.02,Lambda0=lambda,dLambda=0.1)
  AT(0,0,0) RELATIVE Origin

COMPONENT Sample=PowderN(
  reflections=sample, radius=0.005,yheight=0.02,d_phi=50)
  AT(0,0,4) RELATIVE Source

COMPONENT Detector=Monitor_nD(
  xwidth=2,yheight=1, 
  options="banana theta y, auto", bins=180)
  AT(0,0,0) RELATIVE Sample

END