[01;34mwith[m Ada[31m.[mNumerics[31m.[mDiscrete_Random[31m;[m

[01;34mwith[m Gmface[31m.[mGm_Virtual[31m.[mGmface[31m.[mGmface_Plugins[31m;[m  [01;34muse[m Gmface[31m.[mGm_Virtual[31m.[mGmface[31m.[mGmface_Plugins[31m;[m
[01;34mwith[m Ada[31m.[mCalendar[31m;[m
[01;34mpackage[m Gmface[31m.[mGm_Virtual[31m.[mGmface[31m.[mGmface_Work [01;34mis[m
   
   
   [01;34mtype[m Bar_Beat_Type [01;34mis[m
     [01;34mtagged[m [01;34mrecord[m
      Bar         [31m:[m Positive [31m:=[m Positive'First[31m;[m
      Time_Number [31m:[m Time_Number_Type [31m:=[m Time_Number_Type'First[31m;[m      
      Time_Unit   [31m:[m Time_Unit_Type [31m:=[m Time_Unit_Type'First[31m;[m
   [01;34mend[m [01;34mrecord[m[31m;[m
   
   [01;34mfunction[m [01;30mimage[m[31m([mSignature [31m:[m [01;34min[m Time_Signature_Type[31m)[m [01;34mreturn[m [32mString[m[31m;[m
   
   [01;34mfunction[m [01;30mImage[m[31m([mBar_Beat [31m:[m [01;34min[m Bar_Beat_Type[31m)[m [01;34mreturn[m [32mString[m[31m;[m
   
   [01;34mprocedure[m [01;30mNext[m[31m([mBar_Beat    [31m:[m [01;34min[m [01;34mout[m Bar_Beat_Type[31m;[m
		  Bar         [31m:[m [01;34min[m Natural[31m;[m
		  Number      [31m:[m [01;34min[m Time_Number_Type[31m;[m
		  Unit        [31m:[m [01;34min[m Time_Unit_Type[31m);[m
   
   [01;34mtype[m States_Record [01;34mis[m [01;34mtagged[m
      [01;34mrecord[m
	 Start_Time [31m:[m Ada[31m.[mCalendar[31m.[mTime [31m:=[m Ada[31m.[mCalendar[31m.[mClock[31m;[m	 
	 Bar_Beat [31m:[m Bar_Beat_Type [31m:=[m [31m([m[35m1[m[31m,[m [35m1[m[31m,[m [35m1[m[31m);[m
	 Elapsed    [31m:[m [32mDuration[m [31m:=[m [35m0.0[m[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   
   
   [01;34mtype[m Gmface_Plugin_Access [01;34mis[m [01;34maccess[m [01;34mall[m Gmface_Plugin_Class'Class[31m;[m
      
   
   [01;34mpackage[m Break_Rand [01;34mis[m [01;34mnew[m Ada[31m.[mNumerics[31m.[m[01;30mDiscrete_Random[m[31m([mBreak_Type[31m);[m   
   
   [01;34mpackage[m Form_Rand [01;34mis[m [01;34mnew[m Ada[31m.[mNumerics[31m.[m[01;30mDiscrete_Random[m[31m([mForm_Index_Type[31m);[m   
   
   
   
   
   
   [01;34mtype[m Gmface_Options_Record [01;34mis[m [01;34mnew[m Work_Options_Record [01;34mwith[m
      [01;34mrecord[m
	 [01;34mnull[m[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   
   [01;34mtype[m Gmface_Options_Access [01;34mis[m [01;34maccess[m [01;34mall[m Gmface_Options_Record[31m;[m
   
   [01;34mtype[m Gmface_Work_Record [01;34mis[m [01;34mnew[m Work_Class [01;34mwith[m
      [01;34mrecord[m
	 Current_Form [31m:[m Form_Index_Type [31m:=[m [35m1[m[31m;[m	 
	 Options      [31m:[m Gmface_Options_Access [31m:=[m [01;34mnew[m Gmface_Options_Record[31m;[m
	 States       [31m:[m States_Record[31m;[m	 
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   [01;34mtype[m Gmface_Work_Access [01;34mis[m [01;34maccess[m [01;34mall[m Gmface_Work_Record[31m;[m
   
   [01;34mprocedure[m [01;30mInitialize[m[31m([mWork [31m:[m [01;34min[m [01;34mout[m Gmface_Work_Record[31m;[m
			Work_Id [31m:[m [01;34min[m Work_Num[31m;[m
			Filename [31m:[m [01;34min[m [32mString[m[31m);[m
   
   [01;34mprocedure[m [01;30mSave[m[31m([mWork [31m:[m [01;34min[m [01;34mout[m Gmface_Work_Record[31m;[m
		  Filename [31m:[m [01;34min[m [32mString[m [31m:=[m [31m""[m[31m);[m
   
   
   
   
   [01;34mfunction[m [01;30mInitialize[m[31m([mClass [31m:[m [01;34min[m Plugin_Enum[31m;[m
		       Id        [31m:[m [01;34min[m Plugin_num[31m;[m
		       Device    [31m:[m [01;34min[m Device_Num[31m;[m
		       Ch        [31m:[m [01;34min[m Channel_Num[31m;[m
		       Form      [31m:[m [01;34min[m Form_Index_Type[31m;[m
		       cat       [31m:[m [01;34min[m Category_Index_Type[31m)[m
     
		      [01;34mreturn[m Abstract_Plugin_Access[31m;[m
      
[01;34mend[m Gmface[31m.[mGm_Virtual[31m.[mGmface[31m.[mGmface_Work[31m;[m
