Faster SSE, now int16 as well as float32

Author: neurolabusc

MRIcroGL.app/Contents/Resources/lut/9violet.clut

@@ -0,0 +1,13 @@
+[FLT]
+min=0
+max=0
+[INT]
+numnodes=3
+[BYT]
+nodeintensity0=0
+nodeintensity1=128
+nodeintensity2=255
+[RGBA255]
+nodergba0=0|0|0|0
+nodergba1=128|0|128|64
+nodergba2=255|0|255|128

MRIcroGL.app/Contents/Resources/script/xstartup.py

@@ -0,0 +1,21 @@
+import gl
+gl.resetdefaults()
+gl.orthoviewmm(0,0,0)
+gl.loadimage('/Users/chris/V1.nii.gz')
+#gl.loadimage('/Users/chris/FA.nii.gz')
+#open overlay: show positive regions
+#gl.overlayload('/Users/chris/V1.nii.gz')
+#gl.opacity(1,50)
+#
+#  if (layer > 0) then
+#     Vol1.UpdateOverlays(vols); 
+#str = gl.atlaslabels(1)
+#print(str)
+#gl.minmax(1, 4, 100)
+
+
+#gl.overlayload('aal')
+#
+
+#gl.generateclusters(0)
+#gl.generateclusters(0, 0.5, 32, 1, 0)

MRIcroGL.lpi

@@ -107,19 +107,15 @@
         <IsPartOfProject Value="True"/>
       </Unit10>
       <Unit11>
-        <Filename Value="drawintensityfilter.pas"/>
+        <Filename Value="intensityfilter.pas"/>
         <IsPartOfProject Value="True"/>
-        <ComponentName Value="DrawIntensityFilterForm"/>
+        <ComponentName Value="IntensityFilterForm"/>
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
-        <UnitName Value="drawIntensityFilter"/>
       </Unit11>
       <Unit12>
-        <Filename Value="intensityfilter.pas"/>
+        <Filename Value="nifti_save.pas"/>
         <IsPartOfProject Value="True"/>
-        <ComponentName Value="IntensityFilterForm"/>
-        <HasResources Value="True"/>
-        <ResourceBaseClass Value="Form"/>
       </Unit12>
     </Units>
   </ProjectOptions>

MRIcroGL.lpr

@@ -1,9 +1,10 @@
 program MRIcroGL;
 
 {$mode objfpc}{$H+}
-{$DEFINE UseCThreads}
+{$include opts.inc} //for  DEFINE FASTGZ
+//{$DEFINE UseCThreads}
 uses
-  {$IFDEF UNIX}{$IFDEF UseCThreads}
+  {$IFDEF UNIX}{$IFDEF PARALLEL}
   cthreads,  //<- if parallel NIfTI
   cmem, // <- http://wiki.freepascal.org/Parallel_procedures
   {$ENDIF}{$ENDIF}
@@ -12,8 +13,8 @@
   {$ifdef windows}Windows, {$endif}
   Interfaces, // this includes the LCL widgetset
   Forms, mainunit, TimedDialog, dcm2nii, drawVolume, autoroi, nifti_hdr_view,
-  nifti_resize, resize, crop, tiff2nifti, drawIntensityFilter, 
-intensityfilter;
+  nifti_resize, resize, crop, tiff2nifti, 
+intensityfilter, nifti_save;
 
 {$R *.res}
 begin
@@ -27,7 +28,6 @@
   Application.CreateForm(THdrForm, HdrForm);
   Application.CreateForm(TResizeForm, ResizeForm);
   Application.CreateForm(TCropForm, CropForm);
-  Application.CreateForm(TDrawIntensityFilterForm, DrawIntensityFilterForm);
   Application.CreateForm(TIntensityFilterForm, IntensityFilterForm);
   //{$ifdef windows} SetDarkTheme; {$endif}
   //{$IFDEF LCLGtk2}ConstrainTrackBars();{$ENDIF}  //if unpatched, see https://bugs.freepascal.org/view.php?id=35861