-
Notifications
You must be signed in to change notification settings - Fork 1
/
YNotePlayerObj.rbbas
84 lines (73 loc) · 1.63 KB
/
YNotePlayerObj.rbbas
1
#tag ClassProtected Class YNotePlayerObj #tag Method, Flags = &h0 Sub Constructor() mImplementor = New CoreAudioNotePlayer Instrument = 0 End Sub #tag EndMethod #tag Method, Flags = &h0 Sub PlayNote(pitch As Integer, velocity As Integer) if not (mImplementor is Nil) then mImplementor.PlayNote pitch, velocity End Sub #tag EndMethod #tag ComputedProperty, Flags = &h0 #tag Getter Get if not (mImplementor is Nil) then return mImplementor.GetInstrument End Get #tag EndGetter #tag Setter Set if not (mImplementor is Nil) then mImplementor.SetInstrument value End Set #tag EndSetter Instrument As Integer #tag EndComputedProperty #tag Property, Flags = &h21 Private mImplementor As NotePlayerInterface #tag EndProperty #tag ViewBehavior #tag ViewProperty Name="Index" Visible=true Group="ID" InitialValue="-2147483648" Type="Integer" InheritedFrom="Object" #tag EndViewProperty #tag ViewProperty Name="Instrument" Group="Behavior" InitialValue="0" Type="Integer" #tag EndViewProperty #tag ViewProperty Name="Left" Visible=true Group="Position" InitialValue="0" InheritedFrom="Object" #tag EndViewProperty #tag ViewProperty Name="Name" Visible=true Group="ID" InheritedFrom="Object" #tag EndViewProperty #tag ViewProperty Name="Super" Visible=true Group="ID" InheritedFrom="Object" #tag EndViewProperty #tag ViewProperty Name="Top" Visible=true Group="Position" InitialValue="0" InheritedFrom="Object" #tag EndViewProperty #tag EndViewBehaviorEnd Class#tag EndClass