/*******************************************************************************
* Instrument: <instrument name>
*
* %Identification
*
* author: <Thierry Bigault (bigault@ill.fr)>
* date: 07/05/2020
* version: 1.0
* origin: ILL
*
* %Instrument_site: ILL
* 
* %Description
* 
* Instrument tout pourri pour essayer de faire du McStas
*
* %Parameters
* 
* <parameter1>: [<unit>] <parameter1 description>
* ... rien pour l'instant.
*
* %Links 
* 
* <reference/HTML link>
*
* %End
*
*******************************************************************************/
DEFINE INSTRUMENT MonInstrumentToutpourri()

DECLARE
%{
%}

INITIALIZE
%{
%}

TRACE

COMPONENT origin = Progress_bar()
AT (0, 0, 0) RELATIVE ABSOLUTE

// Une ptite source
COMPONENT MaSource = Source_simple(
    yheight=0.01, 
    xwidth=0.01, 
    dist=1, 
    focus_xw=0.01,

    focus_yh=0.01, 
    lambda0=4, 
    dlambda=3,
    flux=0
)
AT (0, 0, 0) RELATIVE PREVIOUS


/*

COMPONENT MaSource = Source_gen(
    dist=1, 
    focus_xw=0.01, 
    focus_yh=0.01, 
    lambda0=4, 
    dlambda=3, 
    I1=1, 
    yheight=0.01, 
    xwidth=0.01, 
    Lmin=1, 
    Lmax=7)
AT (0, 0, 0) RELATIVE PREVIOUS

*/


// Un ptit moniteur
COMPONENT MonMoniteur = Monitor_nD(
    xwidth=0.01, 
    yheight=0.01, 
    options="lambda, limits=[1 7] bins=6")
AT (0, 0, 1) RELATIVE PREVIOUS


FINALLY
%{
%}

END