envelopes Module

Functions and subroutines generating envelopes


Uses

  • module~~envelopes~~UsesGraph module~envelopes envelopes module~forsynth forsynth module~envelopes->module~forsynth module~tape_recorder_class tape_recorder_class module~envelopes->module~tape_recorder_class iso_fortran_env iso_fortran_env module~forsynth->iso_fortran_env module~tape_recorder_class->module~forsynth

Used by

  • module~~envelopes~~UsedByGraph module~envelopes envelopes module~music music module~music->module~envelopes module~signals signals module~music->module~signals module~signals->module~envelopes program~all_signals all_signals program~all_signals->module~envelopes program~all_signals->module~music program~all_signals->module~signals program~arpeggios arpeggios program~arpeggios->module~envelopes program~arpeggios->module~music program~arpeggios->module~signals program~chords_and_melody chords_and_melody program~chords_and_melody->module~envelopes program~chords_and_melody->module~music program~chords_and_melody->module~signals program~demo_effects demo_effects program~demo_effects->module~envelopes program~demo_effects->module~music program~drone_music drone_music program~drone_music->module~envelopes program~drone_music->module~music program~shepard_risset_glissando shepard_risset_glissando program~shepard_risset_glissando->module~envelopes program~blues blues program~blues->module~music program~blues->module~signals program~drum_machine drum_machine program~drum_machine->module~signals program~misc_sounds misc_sounds program~misc_sounds->module~music

Derived Types

type, public ::  ADSR_envelope

Components

Type Visibility Attributes Name Initial
real(kind=wp), public :: attack = 30.0_wp

A D S R /\ / ____ / \ / \ https://en.wikipedia.org/wiki/Envelope_(music) Default parameters of the ADSR envelope:
real(kind=wp), public :: decay = 20.0_wp
real(kind=wp), public :: release = 30.0_wp
real(kind=wp), public :: sustain = 80.0_wp

Type-Bound Procedures

procedure, public :: get_level => ADSR_level
procedure, public :: new => ADSR_new

Functions

private pure function ADSR_level(self, t, t1, t2)

Returns the level in [0, 1] of the ADSR envelope at time t1 < t < t2

Arguments

Type IntentOptional Attributes Name
class(ADSR_envelope), intent(in) :: self
real(kind=wp), intent(in) :: t
real(kind=wp), intent(in) :: t1
real(kind=wp), intent(in) :: t2

Return Value real(kind=wp)


Subroutines

public subroutine apply_fade_in(tape, track, t1, t2)

A linear fade in, from relative level 0 to 1:

Arguments

Type IntentOptional Attributes Name
type(tape_recorder), intent(inout) :: tape
integer, intent(in) :: track
real(kind=wp), intent(in) :: t1
real(kind=wp), intent(in) :: t2

public subroutine apply_fade_out(tape, track, t1, t2)

A linear fade out, from relative level 1 to 0:

Arguments

Type IntentOptional Attributes Name
type(tape_recorder), intent(inout) :: tape
integer, intent(in) :: track
real(kind=wp), intent(in) :: t1
real(kind=wp), intent(in) :: t2

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

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