/*******************************************************************************
*
* McXtrace, x-ray tracing package
*         Copyright, All rights reserved
*         DTU Physics, Kgs. Lyngby, Denmark
*         Synchrotron SOLEIL, Saint-Aubin, France
*
* Component: Cone
*
* %I
* Written by: E. Farhi
* Date: June 23rd 2009
* Origin: ILL
* Modified by: E. Farhi, based on Incoherent
*
* An inactive geometrical shape (cone), for drawing purposes only.
* Derived from the <b><a href="Shape.html">Shape</a></b> component
*
* Example: Cone(radius=0.05, yheight=0.1)
*
* %P
* INPUT PARAMETERS:
* radius: [m]      Outer radius of geometry in (x,z) plane
* xwidth: [m]      Horiz. dimension of geometry as a width
* yheight: [m]     Vert. 
* zdepth: [m]      Depth dimension of geometry
*
* %L
* mcdoc page of <a href="Shape.html">Shape</a></b> component
*
* %E
*******************************************************************************/

DEFINE COMPONENT Cone

SETTING PARAMETERS (radius=0, xwidth=0, yheight=0, zdepth=0)

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

SHARE
%{
%}

DECLARE
%{
%}

INITIALIZE
%{
  /* */
%}


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

MCDISPLAY
%{
  mcdis_cone (0, 0, 0, radius, yheight, 0, 1, 0);
%}

END