Release 2.2.0. With Image Dancer.

readme.md

@@ -5,10 +5,11 @@ Like:
 -   Learn to play drums set in 4 lessons and develop your art.
 -   Practice your other instruments with a editable drums machine.
 -   Tune your guitar and bass.
--   Play audio files and loop it.
+-   Play audio files and loop it, adjusting the tempo of the song to what you want.
 -   DJ console for auto-mixing, with 2 players and direct-output of mic.
 -   Record your ideas-jam.
 -   Chords randomizer for jamming.
+-   Image Dancer.
 
 There are compiled executable for Linux 32/64, Windows 32/64, FreeBSD 64
 and arm RPi. =\> https://github.com/fredvs/strumpract/releases/

src/commander.mfm

@@ -891,8 +891,8 @@ object commanderfo: tcommanderfo
       textflags = [tf_xcentered, tf_right, tf_ycentered, tf_noselect]
       ontextedited = ontextedit
       onsetvalue = onsetvalvol
-      value = 300
-      valuedefault = 300
+      value = 200
+      valuedefault = 200
       valuerange = 1
       valuemin = -Inf
       valuemax = 10000

src/commander_mfm.pas

@@ -1276,8 +1276,8 @@ implementation
   101,100,11,116,102,95,110,111,115,101,108,101,99,116,0,12,111,110,116,101,
   120,116,101,100,105,116,101,100,7,10,111,110,116,101,120,116,101,100,105,116,
   10,111,110,115,101,116,118,97,108,117,101,7,11,111,110,115,101,116,118,97,
-  108,118,111,108,5,118,97,108,117,101,3,44,1,12,118,97,108,117,101,100,
-  101,102,97,117,108,116,3,44,1,10,118,97,108,117,101,114,97,110,103,101,
+  108,118,111,108,5,118,97,108,117,101,3,200,0,12,118,97,108,117,101,100,
+  101,102,97,117,108,116,3,200,0,10,118,97,108,117,101,114,97,110,103,101,
   2,1,8,118,97,108,117,101,109,105,110,5,0,0,0,0,0,0,0,128,
   255,255,8,118,97,108,117,101,109,97,120,3,16,39,4,115,116,101,112,2,
   10,16,119,104,101,101,108,115,101,110,115,105,116,105,118,105,116,121,2,1,

src/songplayer.pas

@@ -2471,15 +2471,10 @@ procedure tsongplayerfo.onplayercreate(const Sender: TObject);
 
   ordir := IncludeTrailingBackslash(ExtractFilePath(ParamStr(0)));
 
-  // if songdir.Value = '' then
-  //   songdir.Value := utf8decode( ordir + 'sound' + directoryseparator + 'song' + directoryseparator + 'test.ogg');
+   if historyfn.value = '' then
+  historyfn.value :=  ordir + 'sound' + directoryseparator +  'song' + directoryseparator + 'test.ogg';
 
-  // if historyfn.value = '' then
-  // historyfn.value :=  ordir + 'sound' + directoryseparator +  'song' + directoryseparator + 'test.mp3';
-
-  // historyfn.Value := songdir.Value;
-
-end;
+ end;
 
 procedure tsongplayerfo.onmousewindow(const Sender: twidget; var ainfo: mouseeventinfoty);
 begin