1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
/*******************************************************************************
*
* McStas, neutron ray-tracing package
* Copyright 1997-2002, All rights reserved
* Risoe National Laboratory, Roskilde, Denmark
* Institut Laue Langevin, Grenoble, France
*
* Component: Diaphragm (
*
* %I
* Written by: Peter Willendrup
* Date: February 2016
* Origin: DTU
*
* Rectangular/circular diaphragm (alias of the Slit component)
*
* %D
* A simple rectangular or circular diaphragm. You may either
* specify the radius (circular shape), or the rectangular bounds.
* No transmission around the diaphragm is allowed.
*
* Example: Diaphragm(xmin=-0.01, xmax=0.01, ymin=-0.01, ymax=0.01)
* Diaphragm(radius=0.01)
*
*
* For <B>INPUT PARAMETERS</B> - please consult <a href="Slit.html">Slit.comp</a> as Diaphragm is a copy of that component.
*
* %P
*
* radius: [m] Radius of diaphragm in the z=0 plane, centered at Origo
* xmin: [m] Lower x bound
* xmax: [m] Upper x bound
* ymin: [m] Lower y bound
* ymax: [m] Upper y bound
* xwidth: [m] Width of diaphragm. Overrides xmin, xmax.
* yheight: [m] Height of diaphragm. Overrides ymin, ymax.
*
*
* %E
*******************************************************************************/
DEFINE COMPONENT Diaphragm COPY Slit
DECLARE COPY Slit
INITIALIZE COPY Slit
TRACE COPY Slit
MCDISPLAY COPY Slit
END
|
