Newsgroup: it.arti.musica.classica
Titolo: Un "programmino" per vedere come si muove la coulisse del Trombone

Quando cominciai a studiare il trombone, circa due anni fa, realizzai un
programmino che da un'idea di come si muove la coulisse del trombone a seconda
delle note che deve suonare. C'é anche una tastiera di pianoforte per suonare -
ovviamente scavezza, visto che alcune note sono impossibili con il trombone
tenore in Sib.
Il programma é interattivo, cliccando su un tasto del piano o sul nome della
nota si ottiene un beep della frequenza corrispondente e si vede il trombone che
muove la coulisse fino a raggiungere quella delle 7 posizioni che permette di
intonare quella nota.
Se qualcuno é interessato può scaricare il file di installazione qui:
http://digilander.libero.it/clklaus/downloads/trombon.exe
si accettano eventuali suggerimenti per farlo suonare con i soundfonts invece
che con l'orribile beep di sistema
_________________________________
. a l l E g r i !
Claudio Chiani
_________________________________
Io ho la pazienza di un'ostrica !
Pat Garret
dal film CHISUM
______________________

Quando cominciai a studiare il trombone, circa due anni fa, realizzai un
programmino che da un'idea di come si muove la coulisse del trombone a seconda
delle note che deve suonare. C'é anche una tastiera di pianoforte per suonare -
ovviamente scavezza, visto che alcune note sono impossibili con il trombone
tenore in Sib.
Il programma é interattivo, cliccando su un tasto del piano o sul nome della
nota si ottiene un beep della frequenza corrispondente e si vede il trombone che
muove la coulisse fino a raggiungere quella delle 7 posizioni che permette di
intonare quella nota.
Se qualcuno é interessato può scaricare il file di installazione qui:
http://digilander.libero.it/clklaus/downloads/Trombon.exe


delle note che deve suonare.
Considerando che questo termine "coulisse" in francese significa
"quinta teatrale" applicato al trombone, quale parte dello strumento
sta ad indicare? Non c'è un termine italiano per identificarla? Non
conosco più di tanto il trombone ma non mi riesce immaginare una
"quinta" inserita nella sua lucida boccona, nè la sua funzione
specifica e come si faccia ad usarla per ottenere i suoni.
Grazie per la spiegazione.
Seneca

 che con l'orribile beep di sistema
Non sono riuscito a sentire il suono in quanto mancano i gif. Però potresti
usare il midi, windows ha delle funzioni semplici già fatte per emettere un
suono midi utilizzando lo strumento che vuoi. Guarda nella famiglia
midiOut...
Domande:
gestisci posizioni diverse per la stessa nota (es. re in prima e quarta)?
gestisci gli armonici calanti che vanno corretti tirando su la coulisse?
Sarebbero interessanti anche queste opzioni.
Ciao, K.

 sta ad indicare? Non c'è un termine italiano per identificarla?
il termine è proprio francese.
coulisse indica la quinta ma anche la parte del trombone che si tira
Z

Sarebbero interessanti anche queste opzioni.
no, il programma é molto rudimentale e d'altronde non é possibile sapere in
anticipo se si deve usare una posizione diversa, dipende dal contesto (es. se
dovró suonare un Re seguito da un Do eseguo Re in IV- e do in III, ma se devo
eseguire Re sguito da Do# eseguo Re in I e Do# in II
per quanto riguarda gli armonici calanti, posso sicuramente farlo aggiungendo le
.gif della coulisse nelle posizioni aggiustate
mi puoi suggerire un esempio pratico di uscita su Midi ?
il source del programma é questo:
Sub play(Index As Integer)
    posiz = "Trombone" & Trim(Str((Index Mod 7) + 1)) & ".gif"
    Image1.Picture = LoadPicture(posiz)
    DoEvents
    Select Case Int(Index / 7)
    Case 0: k = 1 / 4
    Case 1: k = 1 / 2
    Case 2: k = 1 / 2 * 2 ^ (7 / 12)
    Case 3: k = 1
    Case 4: k = 2 ^ (4 / 12)
    Case 5: k = 2 ^ (7 / 12)
    Case 6: k = 2 ^ (10 / 12)
    Case 7: k = 2
    End Select
    freq = k * 440 * 2 ^ ((1 - (Index Mod 7)) / 12)
    Beep freq, 500
End Sub
Private Sub key_MouseDown(Index As Integer, Button As Integer, Shift As Integer,
X As Single, Y As Single)
    key(Index).Value = Checked
    play Index
End Sub
Private Sub key_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X
As Single, Y As Single)
    key(Index).Value = Unchecked
End Sub
Private Sub Pkey_MouseDown(Index As Integer, Button As Integer, Shift As
Integer, X As Single, Y As Single)
    Pkey(Index).Value = Checked
    play Index
End Sub
Private Sub Pkey_MouseUp(Index As Integer, Button As Integer, Shift As Integer,
X As Single, Y As Single)
    Pkey(Index).Value = Unchecked
End Sub


 mi puoi suggerire un esempio pratico di uscita su Midi ?
Provo a copiarti un pezzo di codice scritto in pascal. Vedi se ci capisci
altrimenti provo a commentarlo meglio. Non dovrebbe essere difficile da
convertire in VB.
La funzione seguente serve per comporre un messaggio midi
//--------------------------------------------------------------------------
----
//messagio midi singolo
function MidiOutMessage(hMidi: HMIDIOUT; Status, Channel, Data1, Data2:
Integer): MMRESULT;
var
  Msg: DWORD;
begin
   Msg := DWORD(Status) or DWORD(Channel) or (DWORD(Data1) shl 8) or
(DWORD(Data2) shl 16);
   Result := midiOutShortMsg(hMidi, Msg);
end;
E questa per inviare una nota su un canale
//--------------------------------------------------------------------------
----
procedure PlayNote(Channel, Voice: Integer; Note: Integer; duration:
Integer);
var
  Moc: TMidiOutCaps;
  hMidi: hMidiOut;
  I: Integer;
begin
  if(midiOutGetDevCaps(BmeConfig.MidiDevice, @Moc, Sizeof(Moc)) <>
MMSYSERR_NOERROR) then exit;
  if(midiOutOpen(@hMidi, BmeConfig.MidiDevice, 0, 0, 0) <> MMSYSERR_NOERROR)
then exit;
  MidiOutMessage(hMidi, $0C0, Channel, Voice, 0) ;
  //Note on
  MidiOutMessage(hMidi, $090, Channel, Note, 127);
  Sleep(Duration);
  //Note off
  MidiOutMessage(hMidi, $080, Channel, Note, 127);
  midiOutReset(hMidi);
  midiOutClose(hMidi);
end;
In pratica faccio le seguenti azioni:
- apro il canale midi con midiOutOpen
- imposto il canale e la voce
- note on
- aspetto il tempo che serve
- note off
- chiudo tutto
Ciao, K.

Grazie per la spiegazione.
il Trombone a tiro (o T. a coulisse, opp. Posaune come lo chiamano in Germania)
é uno strumento perfetto, come la bicicletta
aveva giá la forma attuale nel XV secolo seppure a campana più stretta
non é altro che un tubo ripiegato che può avere lunghezze diverse a seconda di
quanto viene estratta la parte mobile, la coulisse appunto
il canneggio (ovvero l'andamento del diametro del tubo) é prevalentemente
cilindrico, e diventa conico solo nella parte estrema dove fuoriesce il suono,
nella campana (che btw é di forma esponenziale per raccordare le onde piane -
che arrivano dal tubo cilindrico - con l'ambiente ed eliminare quindi le
attenuazioni e le riflessioni tipiche dei punti di discontinuitá)
l'idea della coulisse fu dovuta alla ritorta (curva di tubo) che serve per
accordare (estraendola o infilandola) la tromba bassa, si pensó che invece di
farlo una tantum si sarebbe potuto sfruttare il sistema per emettere note
perfette (infatti, contrariamente agli strumenti a pistoni o a valvole, in cui
la lunghezza dei tubi é fissa, nel trombone si può correggere la lunghezza e
quindi accordare perfettamente ogni nota emessa, sempre che si possieda la
tecnica e l'orecchio necessari, come per gli strumenti ad arco moderni)


convertire in VB.
ottimo, ho solo un problemino relativo all'apertura del device, nel senso che se
chiudo il programma e lo faccio ripartire (in ambiente Visual Studio) mi da un
errore, ma mi sembra che invece l'eseguibile funzioni correttamente.
Ecco il nuovo kit di installazione
http://digilander.libero.it/clklaus/downloads/Trombon.exe
Avendo giá installato il package precedente, si può anche scaricare
semplicemente il solo eseguibile di 48kB che trovi qui:
http://digilander.libero.it/clklaus/downloads/Trombone.exe
grazie ancora per i suggerimenti
ho aggiunto anche la possibilitá di cambiare il velocity e la durata


ho aggiunto anche la possibilitá di cambiare il velocity e la durata
peccato che ho dimenticato di inizializzare il valore della durata, cosí durava
in eterno ...
ora é corretto e disponibile


ho aggiunto anche la possibilitá di cambiare il velocity e la durata
peccato che ho dimenticato di inizializzare il valore della durata, cosí durava
in eterno ...
ora é corretto e disponibile
_________________________________
. a l l E g r i !
Claudio Chiani
_________________________________
La musica, sotto qualsivoglia suono
o struttura si presenti, non è altro
che rumore senza significato finché
non raggiunge una mente capace a riceverla.
Hindemith