/*******************************************************************************
*
* McStas, neutron ray-tracing package
*         Copyright (C) 1997-2008, All rights reserved
*         Risoe National Laboratory, Roskilde, Denmark
*         Institut Laue Langevin, Grenoble, France
*
* Component: Annulus
*
* %I
* Written by: E. Farhi
* Date: June 23rd 2009
* Origin: ILL
* Modified by: E. Farhi, based on Incoherent
*
* A flat annulus shape without effect on neutron, for instrument display purpose.
*
* %D
* An inactive geometrical shape (annulus), for drawing purposes only.
* Derived from the <b><a href="Shape.html">Shape</a></b> component
*
* Example: Annulus(radius=0.05, thickness=0.01)
*
* %P
* INPUT PARAMETERS:
* radius:       [m] Outer radius of annulus in (x,z) plane
* thickness:    [m] Inner thickness of annulus in (x,z) plane
*
* %L
* mcdoc page of <a href="Shape.html">Shape</a></b> component
*
* %E
*******************************************************************************/

DEFINE COMPONENT Annulus

SETTING PARAMETERS (radius=0,thickness=0)

/* Neutron parameters: (x,y,z,vx,vy,vz,t,sx,sy,sz,p) */

SHARE
%{
%}

DECLARE
%{
%}

INITIALIZE
%{
  /* */
%}


TRACE %{
  /* component Annulus does nothing */
%}

MCDISPLAY
%{
  // Draws a annulus with center at (x,y,z) with extent (radius) and remove thickness.
  mcdis_annulus (0, 0, 0, radius, thickness, 0, 1, 0);
%}

END