four_thirty_three Program

Uses

  • program~~four_thirty_three~~UsesGraph program~four_thirty_three four_thirty_three module~forsynth forsynth program~four_thirty_three->module~forsynth module~wav_file_class wav_file_class program~four_thirty_three->module~wav_file_class iso_fortran_env iso_fortran_env module~forsynth->iso_fortran_env module~wav_file_class->module~forsynth module~wav_file_class->iso_fortran_env module~tape_recorder_class tape_recorder_class module~wav_file_class->module~tape_recorder_class module~tape_recorder_class->module~forsynth

A minimalist Forsynth file! And a double tribute to John Cage and Joy Division.


Calls

program~~four_thirty_three~~CallsGraph program~four_thirty_three four_thirty_three proc~close_wav_file WAV_file%close_WAV_file program~four_thirty_three->proc~close_wav_file proc~create_wav_file WAV_file%create_WAV_file program~four_thirty_three->proc~create_wav_file proc~get_name WAV_file%get_name program~four_thirty_three->proc~get_name proc~mix_tracks tape_recorder%mix_tracks program~four_thirty_three->proc~mix_tracks proc~finalize tape_recorder%finalize proc~close_wav_file->proc~finalize proc~write_normalized_data WAV_file%write_normalized_data proc~close_wav_file->proc~write_normalized_data proc~new tape_recorder%new proc~create_wav_file->proc~new proc~write_header WAV_file%write_header proc~create_wav_file->proc~write_header proc~clear_tracks tape_recorder%clear_tracks proc~new->proc~clear_tracks

Variables

Type Attributes Name Initial
type(WAV_file) :: demo

Source Code

program four_thirty_three
    use forsynth, only: wp
    use wav_file_class, only: WAV_file

    implicit none
    type(WAV_file) :: demo

    ! We create a new WAV file, and define the number of tracks and its duration:
    call demo%create_WAV_file('four_thirty_three.wav', tracks=1, duration=4*60._wp + 33)
    print *, "**** Creating " // demo%get_name() // " ****"

    ! All tracks will be mixed on track 0.
    ! Needed even if there is only one track!
    call demo%mix_tracks()
    call demo%close_WAV_file()

    print *,"You can now play the file ", demo%get_name()
    print *
    print *,'"Listen to the silence, let it ring on"'
end program four_thirty_three