object WaveFunctionPlotting: TWaveFunctionPlotting
  Left = 296
  Top = 196
  Width = 405
  Height = 300
  Caption = 'WaveFunctionPlotting'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 397
    Height = 231
    ActivePage = TabSheet6
    Align = alClient
    TabIndex = 3
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = 'Wave packet'
      object Label51: TLabel
        Left = 0
        Top = 192
        Width = 158
        Height = 13
        Caption = 'Axe de quantification suivant (Ox)'
      end
      object GroupBox1: TGroupBox
        Left = 0
        Top = 0
        Width = 121
        Height = 116
        Caption = 'Transverse coherence'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        object Label1: TLabel
          Left = 8
          Top = 16
          Width = 6
          Height = 16
          Caption = 'q'
          Font.Charset = SYMBOL_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'Symbol'
          Font.Style = []
          ParentFont = False
        end
        object Label3: TLabel
          Left = 8
          Top = 40
          Width = 12
          Height = 16
          Caption = 'dq'
          Font.Charset = SYMBOL_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'Symbol'
          Font.Style = []
          ParentFont = False
        end
        object Label4: TLabel
          Left = 8
          Top = 64
          Width = 32
          Height = 13
          Caption = 'Nr. Pts'
        end
        object Label2: TLabel
          Left = 8
          Top = 88
          Width = 23
          Height = 13
          Caption = 'Mult.'
        end
        object Label22: TLabel
          Left = 20
          Top = 16
          Width = 24
          Height = 13
          Caption = '(deg)'
        end
        object Theta0Box: TEditReal
          Left = 48
          Top = 16
          Width = 65
          Height = 21
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          Text = '1'
          NbrCarac = 0
          NbrDecimales = 0
          Value = 1
        end
        object dThetaBox: TEditReal
          Left = 48
          Top = 40
          Width = 65
          Height = 21
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          Text = '0.1'
          NbrCarac = 0
          NbrDecimales = 1
          Value = 0.1
        end
        object MultThetaBox: TSpinEdit
          Left = 48
          Top = 88
          Width = 65
          Height = 22
          MaxValue = 0
          MinValue = 0
          TabOrder = 2
          Value = 5
        end
        object NbPtsThetaBox: TSpinEdit
          Left = 48
          Top = 64
          Width = 65
          Height = 22
          Increment = 2
          MaxValue = 99
          MinValue = 1
          TabOrder = 3
          Value = 19
        end
      end
      object GroupBox2: TGroupBox
        Left = 128
        Top = 0
        Width = 129
        Height = 116
        Caption = 'Longitudinal coherence'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        object Label5: TLabel
          Left = 8
          Top = 16
          Width = 7
          Height = 16
          Caption = 'l'
          Font.Charset = SYMBOL_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'Symbol'
          Font.Style = []
          ParentFont = False
        end
        object Label6: TLabel
          Left = 8
          Top = 40
          Width = 13
          Height = 16
          Caption = 'dl'
          Font.Charset = SYMBOL_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'Symbol'
          Font.Style = []
          ParentFont = False
        end
        object Label7: TLabel
          Left = 8
          Top = 64
          Width = 32
          Height = 13
          Caption = 'Nr. Pts'
        end
        object Label8: TLabel
          Left = 8
          Top = 88
          Width = 23
          Height = 13
          Caption = 'Mult.'
        end
        object Label23: TLabel
          Left = 22
          Top = 16
          Width = 20
          Height = 13
          Caption = '(nm)'
        end
        object lambda0box: TEditReal
          Left = 48
          Top = 16
          Width = 65
          Height = 21
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          Text = '1'
          OnKeyDown = lambda0boxKeyDown
          NbrCarac = 0
          NbrDecimales = 0
          Value = 1
        end
        object dlambdaBox: TEditReal
          Left = 48
          Top = 40
          Width = 65
          Height = 21
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          Text = '0.02'
          NbrCarac = 0
          NbrDecimales = 10
          Value = 0.02
        end
        object MultLambdaBox: TSpinEdit
          Left = 48
          Top = 88
          Width = 65
          Height = 22
          MaxValue = 0
          MinValue = 0
          TabOrder = 2
          Value = 5
        end
        object NbPtsLambdaBox: TSpinEdit
          Left = 48
          Top = 64
          Width = 65
          Height = 22
          Increment = 2
          MaxValue = 99
          MinValue = 1
          TabOrder = 3
          Value = 11
        end
      end
      object GroupBox5: TGroupBox
        Left = 0
        Top = 116
        Width = 257
        Height = 68
        Caption = 'Spin-Echo'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        object Label38: TLabel
          Left = 8
          Top = 20
          Width = 77
          Height = 13
          Caption = 'Zeeman splitting'
        end
        object Label34: TLabel
          Left = 136
          Top = 28
          Width = 19
          Height = 13
          Caption = #181'eV'
        end
        object Label35: TLabel
          Left = 136
          Top = 20
          Width = 26
          Height = 13
          Caption = 'Tesla'
        end
        object Label36: TLabel
          Left = 8
          Top = 44
          Width = 28
          Height = 13
          Caption = 't NSE'
        end
        object Label37: TLabel
          Left = 136
          Top = 44
          Width = 18
          Height = 13
          Caption = 'a.u.'
        end
        object Label39: TLabel
          Left = 176
          Top = 20
          Width = 54
          Height = 13
          Caption = 'Polarisation'
        end
        object EditReal1: TEditReal
          Left = 96
          Top = 16
          Width = 33
          Height = 21
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          Text = '5'
          NbrCarac = 0
          NbrDecimales = 0
          Value = 5
        end
        object tauNSEbox: TEditReal
          Left = 56
          Top = 40
          Width = 73
          Height = 21
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          Text = '0'
          NbrCarac = 0
          NbrDecimales = 0
        end
        object PolarBox: TEditReal
          Left = 176
          Top = 40
          Width = 65
          Height = 21
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
          Text = '1'
          NbrCarac = 0
          NbrDecimales = 1
          Value = 1
        end
      end
      object PhaseBox: TCheckBox
        Left = 264
        Top = 8
        Width = 57
        Height = 17
        Caption = 'Phase'
        TabOrder = 3
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Dioptre'
      ImageIndex = 1
      object GroupBox4: TGroupBox
        Left = 0
        Top = 0
        Width = 121
        Height = 225
        Caption = 'Medium parameters'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        object Label17: TLabel
          Left = 8
          Top = 24
          Width = 6
          Height = 16
          Caption = 'd'
          Font.Charset = SYMBOL_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'Symbol'
          Font.Style = []
          ParentFont = False
        end
        object Label20: TLabel
          Left = 8
          Top = 48
          Width = 80
          Height = 15
          Caption = 'Ni (at 1nm) = 147.5'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial Narrow'
          Font.Style = []
          ParentFont = False
        end
        object Label18: TLabel
          Left = 8
          Top = 64
          Width = 9
          Height = 16
          Caption = 'q '
          Font.Charset = SYMBOL_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'Symbol'
          Font.Style = []
          ParentFont = False
        end
        object ThetaClabel: TLabel
          Left = 32
          Top = 66
          Width = 6
          Height = 13
          Caption = '0'
        end
        object Label19: TLabel
          Left = 14
          Top = 72
          Width = 6
          Height = 13
          Caption = 'c'
        end
        object Label21: TLabel
          Left = 18
          Top = 24
          Width = 27
          Height = 15
          Caption = '(x1e6)'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial Narrow'
          Font.Style = []
          ParentFont = False
        end
        object Label31: TLabel
          Left = 8
          Top = 90
          Width = 72
          Height = 13
          Caption = 'Magnetic index'
        end
        object Label30: TLabel
          Left = 8
          Top = 128
          Width = 80
          Height = 15
          Caption = 'Ni (at 1nm) = 147.5'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial Narrow'
          Font.Style = []
          ParentFont = False
        end
        object Label32: TLabel
          Left = 8
          Top = 104
          Width = 6
          Height = 16
          Caption = 'd'
          Font.Charset = SYMBOL_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'Symbol'
          Font.Style = []
          ParentFont = False
        end
        object Label33: TLabel
          Left = 18
          Top = 108
          Width = 8
          Height = 15
          Caption = 'M'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial Narrow'
          Font.Style = []
          ParentFont = False
        end
        object Label40: TLabel
          Left = 8
          Top = 152
          Width = 38
          Height = 13
          Caption = 'M angle'
        end
        object Label42: TLabel
          Left = 8
          Top = 184
          Width = 33
          Height = 13
          Caption = 'Length'
        end
        object deltaBox: TEditReal
          Left = 48
          Top = 24
          Width = 65
          Height = 21
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          Text = '155'
          OnKeyDown = deltaBoxKeyDown
          NbrCarac = 0
          NbrDecimales = 10
          Value = 155
        end
        object deltaMbox: TEditReal
          Left = 48
          Top = 104
          Width = 65
          Height = 21
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          Text = '100'
          OnKeyDown = deltaBoxKeyDown
          NbrCarac = 0
          NbrDecimales = 10
          Value = 100
        end
        object MangleBox: TEditReal
          Left = 48
          Top = 152
          Width = 65
          Height = 21
          Hint = 'angle of the magnetisation wrt to the quantization field'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
          Text = '0'
          OnKeyDown = deltaBoxKeyDown
          NbrCarac = 0
          NbrDecimales = 10
        end
        object LengthBox: TEditReal
          Left = 48
          Top = 184
          Width = 65
          Height = 21
          Hint = 'angle of the magnetisation wrt to the quantization field'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 3
          Text = '1000'
          OnKeyDown = deltaBoxKeyDown
          NbrCarac = 0
          NbrDecimales = 10
          Value = 1000
        end
      end
      object Memo1: TMemo
        Left = 136
        Top = 8
        Width = 177
        Height = 161
        Lines.Strings = (
          '1'#176'/ the dioptre interface is at y=0'
          '2'#176'/ n = 1 - d'
          '3'#176'/ we assume only a finite '
          'transverse coherence ')
        TabOrder = 1
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'Space'
      ImageIndex = 2
      object Label9: TLabel
        Left = 8
        Top = 8
        Width = 23
        Height = 13
        Caption = 'Xmin'
      end
      object Label10: TLabel
        Left = 8
        Top = 32
        Width = 27
        Height = 13
        Caption = 'Xstep'
      end
      object Label11: TLabel
        Left = 8
        Top = 56
        Width = 26
        Height = 13
        Caption = 'Xmax'
      end
      object Label15: TLabel
        Left = 8
        Top = 80
        Width = 13
        Height = 13
        Caption = 'X0'
      end
      object Label16: TLabel
        Left = 120
        Top = 80
        Width = 13
        Height = 13
        Caption = 'Y0'
      end
      object Label14: TLabel
        Left = 120
        Top = 56
        Width = 26
        Height = 13
        Caption = 'Ymax'
      end
      object Label13: TLabel
        Left = 120
        Top = 32
        Width = 27
        Height = 13
        Caption = 'Ystep'
      end
      object Label12: TLabel
        Left = 120
        Top = 8
        Width = 23
        Height = 13
        Caption = 'Ymin'
      end
      object Label47: TLabel
        Left = 8
        Top = 104
        Width = 169
        Height = 13
        Caption = 'Cut Position,  from (Xc,0) to (Xc,Yc) '
      end
      object Label48: TLabel
        Left = 120
        Top = 120
        Width = 13
        Height = 13
        Caption = 'Yc'
      end
      object Label49: TLabel
        Left = 8
        Top = 120
        Width = 13
        Height = 13
        Caption = 'Xc'
      end
      object XminBox: TEditReal
        Left = 48
        Top = 8
        Width = 57
        Height = 21
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        Text = '-30'
        NbrCarac = 0
        NbrDecimales = 0
        Value = -30
      end
      object XstepBox: TEditReal
        Left = 48
        Top = 32
        Width = 57
        Height = 21
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        Text = '0.3'
        NbrCarac = 0
        NbrDecimales = 1
        Value = 0.3
      end
      object X0box: TEditReal
        Left = 48
        Top = 80
        Width = 57
        Height = 21
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        Text = '0'
        NbrCarac = 0
        NbrDecimales = 0
      end
      object XmaxBox: TEditReal
        Left = 48
        Top = 56
        Width = 57
        Height = 21
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 3
        Text = '30'
        NbrCarac = 0
        NbrDecimales = 0
        Value = 30
      end
      object YminBox: TEditReal
        Left = 160
        Top = 8
        Width = 57
        Height = 21
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 4
        Text = '-1E2'
        NbrCarac = 0
        NbrDecimales = 0
        Value = -100
      end
      object YstepBox: TEditReal
        Left = 160
        Top = 32
        Width = 57
        Height = 21
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 5
        Text = '2'
        NbrCarac = 0
        NbrDecimales = 1
        Value = 2
      end
      object YmaxBox: TEditReal
        Left = 160
        Top = 56
        Width = 57
        Height = 21
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 6
        Text = '6E2'
        NbrCarac = 0
        NbrDecimales = 0
        Value = 600
      end
      object Y0box: TEditReal
        Left = 160
        Top = 80
        Width = 57
        Height = 21
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 7
        Text = '0'
        NbrCarac = 0
        NbrDecimales = 0
      end
      object UnitXbox: TRadioGroup
        Left = 48
        Top = 144
        Width = 57
        Height = 49
        Caption = 'Unit X'
        ItemIndex = 1
        Items.Strings = (
          'nm'
          #181'm')
        TabOrder = 8
      end
      object UnitYbox: TRadioGroup
        Left = 160
        Top = 144
        Width = 57
        Height = 49
        Caption = 'Unit Y'
        ItemIndex = 0
        Items.Strings = (
          'nm'
          #181'm')
        TabOrder = 9
      end
      object CutPositionXBox: TEditReal
        Left = 48
        Top = 120
        Width = 57
        Height = 21
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 10
        Text = '30'
        NbrCarac = 0
        NbrDecimales = 0
        Value = 30
      end
      object CutPositionYbox: TEditReal
        Left = 160
        Top = 120
        Width = 57
        Height = 21
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 11
        Text = '6E2'
        NbrCarac = 0
        NbrDecimales = 0
        Value = 600
      end
    end
    object TabSheet6: TTabSheet
      Caption = 'Domains'
      ImageIndex = 5
      object Label50: TLabel
        Left = 120
        Top = 104
        Width = 58
        Height = 13
        Caption = 'Nr averages'
      end
      object GroupBox6: TGroupBox
        Left = 8
        Top = 8
        Width = 105
        Height = 129
        Caption = 'Magnetic domains'
        TabOrder = 0
        object Label43: TLabel
          Left = 8
          Top = 72
          Width = 11
          Height = 16
          Caption = 'f '
          Font.Charset = SYMBOL_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'Symbol'
          Font.Style = []
          ParentFont = False
        end
        object Label44: TLabel
          Left = 8
          Top = 96
          Width = 17
          Height = 16
          Caption = 'df '
          Font.Charset = SYMBOL_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'Symbol'
          Font.Style = []
          ParentFont = False
        end
        object Label45: TLabel
          Left = 8
          Top = 24
          Width = 20
          Height = 13
          Caption = 'Size'
        end
        object Label46: TLabel
          Left = 8
          Top = 48
          Width = 26
          Height = 13
          Caption = 'dSize'
        end
        object PhiBox: TEditReal
          Left = 48
          Top = 72
          Width = 49
          Height = 21
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          Text = '0.0000000000'
          OnKeyDown = deltaBoxKeyDown
          NbrCarac = 0
          NbrDecimales = 10
        end
        object dPhiBox: TEditReal
          Left = 48
          Top = 96
          Width = 49
          Height = 21
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          Text = '0.0000000000'
          OnKeyDown = deltaBoxKeyDown
          NbrCarac = 0
          NbrDecimales = 10
        end
        object SizeDbox: TEditReal
          Left = 48
          Top = 24
          Width = 49
          Height = 21
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
          Text = '1000'
          OnKeyDown = deltaBoxKeyDown
          NbrCarac = 0
          NbrDecimales = 10
          Value = 1000
        end
        object dSizeDBox: TEditReal
          Left = 48
          Top = 48
          Width = 49
          Height = 21
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 3
          Text = '1'
          OnKeyDown = deltaBoxKeyDown
          NbrCarac = 0
          NbrDecimales = 10
          Value = 1
        end
      end
      object GenerateUPDOWNpatternButton: TButton
        Left = 120
        Top = 32
        Width = 201
        Height = 25
        Caption = 'Generate UP-DOWN domains pattern'
        TabOrder = 1
        OnClick = GenerateUPDOWNpatternButtonClick
      end
      object GeneraterandomPatternButton: TButton
        Left = 120
        Top = 64
        Width = 201
        Height = 25
        Caption = 'Randomly oriented magnetic domains'
        TabOrder = 2
        OnClick = GeneraterandomPatternButtonClick
      end
      object NrDomainsAveragesBox: TSpinEdit
        Left = 192
        Top = 104
        Width = 65
        Height = 22
        Increment = 2
        MaxValue = 99
        MinValue = 1
        TabOrder = 3
        Value = 1
      end
    end
    object TabSheet4: TTabSheet
      Caption = 'Time'
      ImageIndex = 3
      object Label24: TLabel
        Left = 8
        Top = 56
        Width = 23
        Height = 13
        Caption = 'Tmin'
      end
      object Label25: TLabel
        Left = 8
        Top = 80
        Width = 27
        Height = 13
        Caption = 'Tstep'
      end
      object Label26: TLabel
        Left = 8
        Top = 104
        Width = 26
        Height = 13
        Caption = 'Tmax'
      end
      object Label27: TLabel
        Left = 8
        Top = 32
        Width = 13
        Height = 13
        Caption = 'T0'
      end
      object Label28: TLabel
        Left = 120
        Top = 8
        Width = 40
        Height = 13
        Caption = 'Speed ='
      end
      object NeutronSpeedLabel: TLabel
        Left = 166
        Top = 8
        Width = 6
        Height = 13
        Caption = '0'
        OnClick = NeutronSpeedLabelClick
      end
      object Label29: TLabel
        Left = 198
        Top = 8
        Width = 81
        Height = 13
        Caption = '(m/s)  or  (nm/ns)'
      end
      object Label41: TLabel
        Left = 8
        Top = 8
        Width = 66
        Height = 13
        Caption = 'Nanoseconds'
      end
      object JvBmpAnimator: TJvBmpAnimator
        Left = 112
        Top = 160
        Width = 60
        Height = 60
        Centered = False
        Direction = tdForward
        ImageList = ImageList
        Speed = 15
      end
      object Image1: TImage
        Left = 216
        Top = 136
        Width = 105
        Height = 105
      end
      object TminBox: TEditReal
        Left = 40
        Top = 56
        Width = 57
        Height = 21
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        Text = '-8E8'
        NbrCarac = 0
        NbrDecimales = 0
        Value = -800000000
      end
      object TstepBox: TEditReal
        Left = 40
        Top = 80
        Width = 57
        Height = 21
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        Text = '4E8'
        NbrCarac = 0
        NbrDecimales = 1
        Value = 400000000
      end
      object TmaxBox: TEditReal
        Left = 40
        Top = 104
        Width = 57
        Height = 21
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        Text = '8E8'
        NbrCarac = 0
        NbrDecimales = 0
        Value = 800000000
      end
      object T0box: TEditReal
        Left = 40
        Top = 32
        Width = 57
        Height = 21
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 3
        Text = '0'
        NbrCarac = 0
        NbrDecimales = 0
      end
      object GroupBox3: TGroupBox
        Left = 204
        Top = 51
        Width = 73
        Height = 77
        Caption = 'Optimize'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 4
        object CheckBoxCrop: TCheckBox
          Left = 7
          Top = 34
          Width = 60
          Height = 17
          Hint = 'Removes transparent areas'
          Caption = 'Crop'
          TabOrder = 0
        end
        object CheckBoxMerge: TCheckBox
          Left = 7
          Top = 16
          Width = 58
          Height = 17
          Hint = 'Removes redundant pixels between image layers'
          Caption = 'Merge'
          TabOrder = 1
        end
        object CheckBoxPalette: TCheckBox
          Left = 7
          Top = 52
          Width = 60
          Height = 17
          Hint = 
            'Creates a single global color map instead of multiple local colo' +
            'r maps'
          Caption = 'Palette'
          TabOrder = 2
        end
      end
    end
    object TabSheet5: TTabSheet
      Caption = 'Movie'
      ImageIndex = 4
      object ImageAnimate: TImage
        Left = 0
        Top = 0
        Width = 389
        Height = 251
        Align = alClient
        Center = True
        Transparent = True
      end
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 231
    Width = 397
    Height = 15
    Align = alBottom
    TabOrder = 1
    object status: TLabel
      Left = 8
      Top = 1
      Width = 17
      Height = 13
      Caption = 'Idle'
    end
    object ProgressBar: TProgressBar
      Left = 80
      Top = 1
      Width = 177
      Height = 12
      Min = 0
      Max = 100
      TabOrder = 0
    end
  end
  object MainMenu1: TMainMenu
    Left = 344
    Top = 32
    object Graph2D1: TMenuItem
      Bitmap.Data = {
        36010000424D3601000000000000760000002800000011000000100000000100
        040000000000C0000000C40E0000C40E00001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00337333733373
        3373300000003373737373737373300000007700000000000000700000003303
        3333333333333000000037099333333333993000000033033933333339333000
        0000770777977777977770000000330333933333933330000000370333393339
        3333300000003303333399933333300000007707777777777777700000003303
        3333333333333000000037033333333333333000000033033333333333333000
        0000770777777777777770000000333333333333333330000000}
      Caption = 'WaveFunction :'
      GroupIndex = 1
    end
    object Plot1: TMenuItem
      Caption = 'Plot2D'
      GroupIndex = 1
      object Vacuum1: TMenuItem
        Caption = 'Vacuum'
        object PlotinvacuuAtT0: TMenuItem
          Caption = 'Plot at T0'
          OnClick = PlotinvacuuAtT0Click
        end
        object PlotInVacuumVsT: TMenuItem
          Caption = 'Plot Vs Time'
          OnClick = PlotInVacuumVsTClick
        end
      end
      object Reflectionondioptre1: TMenuItem
        Caption = 'Reflection'
        object Transverse: TMenuItem
          Caption = 'Transverse coherence only'
          OnClick = TransverseClick
        end
        object PacketreflectionondioptreatT01: TMenuItem
          Caption = 'Wave-packet at T0'
          OnClick = PacketreflectionondioptreatT01Click
        end
        object ReflectionVsTimenonpolarised1: TMenuItem
          Caption = 'WF vs Time'
          OnClick = ReflectionVsTimenonpolarised1Click
        end
      end
      object Magneticreflection1: TMenuItem
        Caption = 'Magnetic reflection'
        object transvercoherenceonlymagnetic: TMenuItem
          Caption = 'Transverse coherence only'
          OnClick = transvercoherenceonlymagneticClick
        end
        object Plotinvacuummagnetic1: TMenuItem
          Caption = 'Magnetic packet reflection (WF_UP and WF_DOWN)'
          Hint = 'M parallel to neutron polarization'
          OnClick = Plotinvacuummagnetic1Click
        end
        object PolarisedNeutronsWithSFbutton: TMenuItem
          Caption = 'Polarised neutrons with spin-flip'
          OnClick = PolarisedNeutronsWithSFbuttonClick
        end
        object OnDomainesUPDOWN: TMenuItem
          Caption = 'On domains Up-Down'
          OnClick = OnDomainesUPDOWNClick
        end
        object OnRandomDomainsButton: TMenuItem
          Caption = 'On random domains'
          OnClick = OnRandomDomainsButtonClick
        end
      end
      object Finitesize1: TMenuItem
        Caption = 'Finite size'
        object Planewave1: TMenuItem
          Caption = 'Plane wave'
          OnClick = Planewave1Click
        end
        object FiniteSizeTransversecoherenceOnly: TMenuItem
          Caption = 'Transverse coherence only'
          OnClick = FiniteSizeTransversecoherenceOnlyClick
        end
      end
    end
    object PLOT1D1: TMenuItem
      Caption = 'Plot1D'
      GroupIndex = 1
      object SFreflectivityanalytic1: TMenuItem
        Caption = 'SF reflectivity (analytic)'
        OnClick = SFreflectivityanalytic1Click
      end
      object CutInVacuum: TMenuItem
        Caption = 'Cut in vacuum'
        OnClick = CutInVacuumClick
      end
      object CutAfterreflectionondioptre1: TMenuItem
        Caption = 'Cut after reflection on dioptre'
        OnClick = CutAfterreflectionondioptre1Click
      end
      object CutafterreflectiononmagneticdomainsUPDO1: TMenuItem
        Caption = 'Cut after reflection on magnetic domains UP-DO'
        OnClick = CutafterreflectiononmagneticdomainsUPDO1Click
      end
    end
    object STOP1: TMenuItem
      Caption = 'STOP'
      GroupIndex = 1
      OnClick = STOP1Click
    end
    object Animation1: TMenuItem
      Caption = 'Animation'
      GroupIndex = 1
      object Animate1: TMenuItem
        Caption = 'Animate'
        GroupIndex = 1
        OnClick = Animate1Click
      end
      object Save1: TMenuItem
        Caption = 'Save'
        GroupIndex = 1
        OnClick = Save1Click
      end
      object Anime1: TMenuItem
        Caption = 'Anime'
        GroupIndex = 1
        OnClick = Anime1Click
      end
    end
    object ests1: TMenuItem
      Caption = 'Other'
      GroupIndex = 1
    end
  end
  object SaveDialog: TSaveDialog
    DefaultExt = 'gif'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofNoReadOnlyReturn]
    Title = 'Save animated GIF'
    Left = 276
    Top = 29
  end
  object ImageList: TImageList
    Masked = False
    ShareImages = True
    Left = 312
    Top = 32
  end
end
