Release 001!

install.txt

@@ -0,0 +1,18 @@
+
+To install WavvieW, unzip the file from the release.
+https://github.com/fredvs/WavvieW/releases
+
+To run it, 2xclick on wavview in /WavvieW_xxx/ directory.
+
+For fft calculation library fftw3 is needed.
+
+For Linux and FreeBSD, fftw3 library is installed by default.
+If you need to install it, just do:
+
+$ sudo apt-get install fftw3
+
+For Windows the library fftw3 is included in the release.
+
+Enjoy ;-)
+
+FredvS

readme.md

@@ -1,11 +1,11 @@
 # WavvieW.
 
 
-WavvieW is deeply inspired by noisegen from mseide-msegui.
+WavvieW is deeply inspired by msesignal from mseide-msegui.
 
-WavvieW analyzes and show the build-in noise-generator and synhtesizer, audio files, input-mic with his oscilloscope and spectrum FFT using uos_PortAudio, LibSndfile libraries...
+WavvieW analyzes the build-in noise-generator-synhtesizer, audio files, input-mic and shows the result with his oscilloscope and FFT-spectrum...
 
-![WavvieW](https://user-images.githubusercontent.com/3421249/107425069-ca2bef80-6b1e-11eb-8b0c-f422d66de2b3.png)
+![WavvieW](https://user-images.githubusercontent.com/3421249/107452508-a4681000-6b49-11eb-8da5-35e341ee109e.png)
 
 Fred van Stappen 
 [email protected]

src/ini/stat.ini

@@ -0,0 +1,106 @@
+[mainfo.viewinput]
+value=0
+[mainfo.viewpiano]
+value=0
+[mainfo.viewfile]
+value=0
+[mainfo.viewnoise]
+value=1
+[mainfo.tfilenameeditx1]
+filenames=1
+ sound/test.ogg
+filenamescust=0
+filecolwidth=0
+x=0
+y=0
+cx=0
+cy=0
+nopanel=0
+noicon=0
+compact=0
+showhidden=0
+colnamewidth=0
+colsizewidth=0
+colextwidth=0
+coldatewidth=0
+splitterplaces=0
+splitterlateral=0
+lastdir=sound/
+filehistory=0
+filefilterindex=0
+filefilter="*.wav" "*.ogg" "*.flac" "*.WAV" "*.OGG" "*.FLAC"
+[mainfo.kinded]
+value=0
+[mainfo.sampcount]
+value=0
+[mainfo.tsigslider1]
+value=0.52238805970149
+[mainfo.average]
+value=0
+[mainfo.tsigslider3]
+value=0.95833333333333
+[mainfo.tsigkeyboard1]
+value=100
+[mainfo.tenvelopeedit1]
+[mainfo.tenvelopeedit1.0]
+zoomx=1
+zoomy=1
+scrollx=0
+scrolly=0
+activetrace=0
+value0=3
+ 0.0021276595744681,0.025078369905956
+ 0.029787234042553,0.98432601880878
+ 0.079787234042553,0.92789968652038
+value1=0
+[mainfo.tenvelopeedit1.1]
+x=94
+y=0
+xprop=0.34751773049645
+yprop=1
+[mainfo.tenvelopeedit1.2]
+marker0_0=10
+zoomx=1
+zoomy=1
+scrollx=0
+scrolly=0
+activetrace=0
+value0=3
+ 0.105263157894737,0.74608150470219
+ 3.89473684210526,0.98746081504702
+ 8.31578947368421,0.92476489028213
+value1=0
+[mainfo.tenvelopeedit1.3]
+x=193
+y=0
+xprop=0.69858156028369
+yprop=1
+[mainfo.tenvelopeedit1.4]
+zoomx=1
+zoomy=1
+scrollx=0
+scrolly=0
+activetrace=0
+value0=2
+ 0.035294117647059,0.97805642633229
+ 0.89411764705882,0.93730407523511
+value1=0
+[mainfo.tsplitter2]
+x=736
+y=0
+xprop=0.72407045009785
+yprop=1
+[mainfo.tsplitter1]
+x=344
+y=0
+xprop=0.34050880626223
+yprop=1
+[mainfo]
+stackedunder=
+x=135
+y=162
+cx=1024
+cy=466
+wsize=0
+active=1
+visible=1

src/main.mfm

@@ -50,6 +50,7 @@ object mainfo: tmainfo
     C0DCC004
   }
   windowopacity = -Inf
+  oncreate = oninit
   oncreated = oncreated
   onclose = onclosexe
   moduleclassname = 'tmainform'
@@ -76,6 +77,7 @@ object mainfo: tmainfo
       frame.leveli = -1
       frame.colorclient = -2147483645
       frame.caption = '   FFT Spectrum'
+      frame.captionpos = cp_top
       frame.localprops = [frl_leveli, frl_firight, frl_colorclient]
       frame.localprops1 = []
       frame.template = tframecomp2
@@ -9421,7 +9423,7 @@ object mainfo: tmainfo
     top = 104
   end
   object sta: tstatfile
-    filename = 'status.sta'
+    filename = 'stat.ini'
     left = 128
     top = 152
   end

src/main.pas

@@ -6,11 +6,11 @@ interface
 uses
  msetypes,mseglob,mseguiglob,mseguiintf,mseapplication,msestat,msemenus,msegui,
  msegraphics,msegraphutils,mseevent,mseclasses,msewidgets,mseforms,uos_mseaudio,
- uos_msesigaudio,msestrings,msesignal,msesignoise,msechartedit,msedataedits,
+ uos_msesigaudio,msesignal,msestrings,msesignoise,msechartedit,msedataedits,
  mseedit,mseificomp,mseificompglob,mseifiglob,msesiggui,msestatfile,msesigfft,
  msesigfftgui,msegraphedits,msescrollbar,msedispwidgets,mserichstring,
  msesplitter,msesimplewidgets,msefilter,mseact,msestream,SysUtils,msebitmap,
- msedropdownlist,msefiledialogx;
+ msedropdownlist,msefiledialogx,math;
 
 const
   versiontext = '1.0.0';
@@ -85,6 +85,7 @@   tmainfo = class(tmainform)
     procedure oninputview(const Sender: TObject; var avalue: Boolean; var accept: Boolean);
     procedure oninputactivate(const Sender: TObject; var avalue: Boolean; var accept: Boolean);
    procedure onabout(const sender: TObject);
+   procedure oninit(const sender: TObject);
   end;
 
 var
@@ -210,7 +211,8 @@ procedure tmainfo.oncreated(const Sender: TObject);
 
   {$if defined(linux) and defined(cpuarm)}
     PA_FileName := ordir + 'lib/Linux/arm_raspberrypi/libportaudio-arm.so';
-    SF_FileName := ordir + ordir + 'lib/Linux/arm_raspberrypi/libsndfile-arm.so';   {$ENDIF}
+    SF_FileName := ordir + 'lib/Linux/arm_raspberrypi/libsndfile-arm.so'; 
+    {$ENDIF}
 
  {$IFDEF freebsd}
     {$if defined(cpu64)}
@@ -373,5 +375,14 @@ procedure tmainfo.onabout(const sender: TObject);
   aboutfo.Show(True);
 end;
 
+procedure tmainfo.oninit(const sender: TObject);
+begin
+  SetExceptionMask(GetExceptionMask + [exZeroDivide] + [exInvalidOp] +
+    [exDenormalized] + [exOverflow] + [exUnderflow] + [exPrecision]);
+
+ sta.filename := IncludeTrailingBackslash(ExtractFilePath(ParamStr(0))) +
+    'ini' + directoryseparator + 'stat.ini';
+end;
+
 end.