ADSR_new Subroutine

private subroutine ADSR_new(self, A, D, S, R)

Create a new ADSR envelope object.

Type Bound

ADSR_envelope

Arguments

Type IntentOptional Attributes Name
class(ADSR_envelope), intent(inout) :: self
real(kind=wp), intent(in) :: A
real(kind=wp), intent(in) :: D
real(kind=wp), intent(in) :: S
real(kind=wp), intent(in) :: R

Called by

proc~~adsr_new~~CalledByGraph proc~adsr_new ADSR_envelope%ADSR_new program~all_signals all_signals program~all_signals->proc~adsr_new program~chords_and_melody chords_and_melody program~chords_and_melody->proc~adsr_new program~demo_effects demo_effects program~demo_effects->proc~adsr_new program~radioactivity radioactivity program~radioactivity->proc~adsr_new

Source Code

    subroutine ADSR_new(self, A, D, S, R)
        class(ADSR_envelope), intent(inout)  :: self
        real(wp), intent(in) :: A, D, S, R

        self%attack  = A
        self%decay   = D
        self%sustain = S
        self%release = R
    end subroutine ADSR_new