/******************************************************************************* * * 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