Discussion :

[Roland Chastain]

Bonjour !

J'avais trouvé sur le forum freebasic.net un programme amusant, qui produit un fichier MIDI à partir d'une chaîne de caractères suivant la syntaxe de la commande PLAY de QBasic.

J'ai essayé de traduire le code en Pascal, et pour le moment je n'y suis pas arrivé. Je poste mon code au cas où quelqu'un verrait l'erreur avant moi.

Le fichier sarabande.mid est produit par le programme en Basic ; le fichier sarabande1.mid est produit mon programme en Pascal. Si vous l'écoutez, ça donne quelque chose d'amusant : on dirait de la musique "contemporaine". Il faudrait que j'essaie de l'envoyer à France-Musique...

La transcription de la sarabande de Bach est l'œuvre de votre serviteur. J'espère que vous apprécierez le raffinement de la chose.

[M.Dlb]

Hello !

Ca fait un peu requiem, ta version
C'est pas une question de tempo à régler ? On dirait que le tien est 5 fois plus "lent" que l'original.

[Roland Chastain]

Ca fait un peu requiem, ta version
C'est pas une question de tempo à régler ? On dirait que le tien est 5 fois plus "lent" que l'original.

Hélas, je crois qu'il n'y a pas seulement une différence de tempo : ça n'a carrément plus rien à voir.

Bon, je vais comparer encore une fois le code original avec ma traduction. Mais je vais utiliser une chaîne plus courte. (Je ne sais pas pourquoi je n'ai pas eu cette idée plus tôt.)

[Roland Chastain]

Bonne nouvelle. Avec une chaîne de départ plus courte (CDE), les deux fichiers produits sont identiques.

Code VisualBasic :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
#include "play2mid.bas"
 
midiFileName = "test1bas.mid"
Play("CDE")

Code X :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
00000000: 4d54 6864 0000 0006 0000 0001 0078 4d54  MThd.........xMT
00000010: 726b 0000 0014 0090 307f 7880 3000 0090  rk......0.x.0...
00000020: 327f 7880 3200 00ff 2f00                 2.x.2.../.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
uses
  SysUtils, Play2Mid;
 
begin
  midiFileName := 'test1pas.mid';
  Play('CDE');
end.

Code X :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
00000000: 4d54 6864 0000 0006 0000 0001 0078 4d54  MThd.........xMT
00000010: 726b 0000 0014 0090 307f 7880 3000 0090  rk......0.x.0...
00000020: 327f 7880 3200 00ff 2f00                 2.x.2.../.

[Roland Chastain]

J'ai trouvé et corrigé une erreur. Il ne reste plus qu'une différence entre mes deux sarabandes : un "%" au lieu d'un "&". Mais je n'arrive pas à voir quelle est la partie du code qui génère ces caractères.

Bizarrement, à l'écoute, les deux fichiers semblent identiques.

[Roland Chastain]

Si quelqu'un comprend à quoi sert cette fonction, je suis preneur d'une explication.

Code VisualBasic :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
function WriteVarLen(Value as integer) as string
  dim a as string
  a = chr(Value and 127)
  do while (Value > 127)
    Value = Value shr 7
    a = chr((Value and 127) or 128) + a
  loop
  return a
end function

Je pense l'avoir traduite comme il faut, mais sans en comprendre du tout la logique.

[Roland Chastain]

J'ai trouvé la dernière erreur. Il fallait utiliser Round et non pas Trunc. En pièce jointe la version corrigée.