/*******************************************************************************
* 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(int Source=1,flux=0)

DECLARE
%{
%}

INITIALIZE
%{
%}

TRACE

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

// Une ptite source
COMPONENT MaSource1 = Source_simple(
    yheight=0.1, 
    xwidth=0.1, 
    dist=1, 
    focus_xw=0.01,
    focus_yh=0.01, 
    lambda0=4, 
    dlambda=3,
    flux=flux)
WHEN (Source==1) AT (0, 0, 0) RELATIVE PREVIOUS


COMPONENT MaSource2 = Source_gen(
    dist=1, 
    focus_xw=0.01, 
    focus_yh=0.01, 
    lambda0=4, 
    dlambda=3, 
    I1=flux,
    yheight=0.1, 
    xwidth=0.1, 
    Lmin=1, 
    Lmax=7)
WHEN (Source==2) AT (0, 0, 0) RELATIVE PREVIOUS


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


FINALLY
%{
%}

END