/*******************************************************************************
*
* 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 INPUT PARAMETERS - please consult Slit.comp 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