with Libsens.Virtual.Work_Class;        use Libsens.Virtual.Work_Class;
with Libsens.Processing.Main;           use Libsens.Processing.Main;
with Libsens.MIDI.Instruments;          use Libsens.MIDI.Instruments;

package Libsens.Applications.Main is
   
   type Main_Application is new Application_Class with
      record
	 Verbose : Boolean := False;
	 Help    : Boolean := False;
      end record;
	 
   type Virtual_MIDI_Composer is new Main_Application with
      record
	 Ignore           : Boolean := False;
	 In_Loop          : Boolean := False;
	 Auto_Play        : Boolean := False;
	 Works            : Work_Array;
	 Last             : Work_Num := 1;
	 Works_Processes  : Work_Process_Array;
	 Instruments      : aliased Bandmaster_Record(128);
      end record;
end Libsens.Applications.Main;