1/*******************************************************************************
2*         McStas instrument definition URL=http://www.mcstas.org
3*
4* Instrument: templateLaue
5*
6* %Identification
7* Written by: K. Nielsen
8* Date: June 2nd, 2010
9* Origin: ILL
10* Modified by: EF,
11* %INSTRUMENT_SITE: Templates
12*
13* A simple Laue diffractometer
14*
15* %Description
16* A single crystal sample is illuminated with a white cold beam.
17* Based on a Laue tutorial written by K. Nielsen, Feb 7, 2000.
18*
19* %Example: templateLaue Detector: det_I=1.14351e+07
20*
21* %Parameters
22*
23* %End
24*******************************************************************************/
25
26/* Change name of instrument and input parameters with default values */
27DEFINE INSTRUMENT templateLaue()
28
29TRACE
30
31COMPONENT Origin = Progress_bar()
32  AT (0,0,0) ABSOLUTE
33
34COMPONENT source = Source_simple(
35  radius=0.02, focus_xw=0.01, focus_yh=0.01,
36  lambda0=7, dlambda=5, flux=1e12)
37AT (0,0,0) ABSOLUTE
38
39COMPONENT slit = Slit(
40  xwidth=0.01, yheight=0.01)
41AT (0,0,5) RELATIVE source
42
43COMPONENT sample = Single_crystal(
44          xwidth=0.01, yheight=0.01, zdepth=0.01,
45          delta_d_d=1e-4, mosaic = 5,
46          ax = 3.8186, ay = 0,      az = 0,
47          bx = 0,      by = 3.8843, bz = 0,
48          cx = 0,      cy = 0,      cz = 11.6777,
49          reflections="YBaCuO.lau")
50AT (0,0,0.10) RELATIVE slit
51EXTEND %{
52  if (!SCATTERED) ABSORB; /* perfect beam stop */
53%}
54
55COMPONENT det= PSD_monitor_4PI(radius=1, nx=360,ny=180,filename="psd")
56AT (0,0,0) RELATIVE sample
57
58END
59
60