diff --git a/commandsu.pas b/commandsu.pas
index 0c1b73e..73c2110 100755
--- a/commandsu.pas
+++ b/commandsu.pas
@@ -15,6 +15,7 @@ function VERSION(): string;
 function EXISTS(lFilename: string): boolean; //function
 function OVERLAYLOAD(lFilename: string): integer; //function
 function OVERLAYLOADVOL(lFilename: string; lVol: integer): integer; //function
+procedure SAVENIIXYZ(lFilename: string; lFilter: integer; lScaleX, lScaleY, lScaleZ: single);
 procedure SAVENII(lFilename: string; lFilter: integer; lScale: single);
 function OVERLAYLOADCLUSTER(lFilename: string; lThreshold, lClusterMM3: single; lSaveToDisk: boolean): integer; //function
 procedure ADDNODE(INTENSITY, R,G,B,A: byte);
@@ -117,7 +118,7 @@ procedure QUIT;
     (Ptr:@OVERLAYLOAD;Decl:'OVERLAYLOAD';Vars:'(lFilename: string): integer'),
     (Ptr:@OVERLAYLOADCLUSTER;Decl:'OVERLAYLOADCLUSTER';Vars:'(lFilename: string; lThreshold, lClusterMM3: single; lSaveToDisk: boolean): integer'),
     (Ptr:@OVERLAYLOADVOL;Decl:'OVERLAYLOADVOL';Vars:'(lFilename: string; lVol: integer): integer'));
-  knProc = 87;
+  knProc = 88;
   kProcRA : array [1..knProc] of TScriptRec =
     (
       (Ptr:@AZIMUTH;Decl:'AZIMUTH';Vars:'(DEG: integer)'),
@@ -184,6 +185,7 @@ procedure QUIT;
       (Ptr:@SAVEBMP;Decl:'SAVEBMP';Vars:'(lFilename: string)'),
       (Ptr:@SAVEBMPXY;Decl:'SAVEBMPXY';Vars:'(lFilename: string; X,Y: integer)'),
       (Ptr:@SAVENII;Decl:'SAVENII';Vars:'(lFilename: string; lFilter: integer; lScale: Single)'),
+      (Ptr:@SAVENIIXYZ;Decl:'SAVENIIXYZ';Vars:'(lFilename: string; lFilter: integer; lScaleX, lScaleY, lScaleZ: Single)'),
       (Ptr:@SCRIPTFORMVISIBLE;Decl:'SCRIPTFORMVISIBLE';Vars:'(VISIBLE: boolean)'),
       (Ptr:@SETCOLORTABLE;Decl:'SETCOLORTABLE';Vars:'(TABLENUM: integer)'),
       (Ptr:@SHADERFORMVISIBLE;Decl:'SHADERFORMVISIBLE';Vars:'(VISIBLE: boolean)'),
@@ -1090,7 +1092,7 @@ procedure VIDEOEND;
           ScriptForm.Memo2.Lines.Add('saveniiiso failed: maybe your image is already isotropic.');
 end; *)
 
-procedure SAVENII(lFilename: string; lFilter: integer; lScale: single);
+procedure SAVENIIXYZ(lFilename: string; lFilter: integer; lScaleX, lScaleY, lScaleZ: single);
 var
   lF, lExt: string;
   ret: boolean;
@@ -1102,15 +1104,20 @@ procedure SAVENII(lFilename: string; lFilter: integer; lScale: single);
     if (lExt <> '.NII') and (lExt <> '.NII.GZ')   then
           lF := lF + '.nii';
     EnsureDirExists(lF);
-    ret := SaveImgScaled (lF, lFilter,lScale);
+    ret := SaveImgScaled (lF, lFilter,lScaleX, lScaleY, lScaleZ);
     if not ret then begin
-       if lScale <= 0 then
+       if lScaleX <= 0 then
           ScriptForm.Memo2.Lines.Add('savenii failed: maybe your image is already isotropic.')
        else
            ScriptForm.Memo2.Lines.Add('savenii failed.')
     end;
 end;
 
+procedure SAVENII(lFilename: string; lFilter: integer; lScale: single);
+begin
+     SAVENIIXYZ(lFilename, lFilter, lScale, lScale, lScale);
+end;
+
 procedure SAVEBMP(lFilename: string);
 var
   lF,lExt: string;
diff --git a/mainunit.lfm b/mainunit.lfm
index b0a0e30..21d3cc8 100755
--- a/mainunit.lfm
+++ b/mainunit.lfm
@@ -1383,7 +1383,7 @@ object GLForm1: TGLForm1
       Caption = 'Edit'
       object Copy1: TMenuItem
         Caption = 'Copy'
-        ShortCut = 16384
+        ShortCut = 16451
         OnClick = Copy1Click
       end
     end
@@ -1651,6 +1651,7 @@ object GLForm1: TGLForm1
           Caption = 'Erase'
           GroupIndex = 189
           RadioItem = True
+          ShortCut = 16453
           OnClick = DrawTool1Click
         end
       end
@@ -1679,7 +1680,8 @@ object GLForm1: TGLForm1
           OnClick = AutoRoi1Click
         end
         object voiBinarize1: TMenuItem
-          Caption = 'Binarize'
+          Caption = 'Binarize (make entire drawing red)'
+          Hint = 'Make entire drawing red'
           OnClick = voiBinarize1Click
         end
         object InterpolateDrawMenu: TMenuItem
@@ -1737,7 +1739,6 @@ object GLForm1: TGLForm1
         Caption = 'Coronal'
         GroupIndex = 212
         RadioItem = True
-        ShortCut = 16451
         OnClick = SetViewClick
       end
       object Sagittal1: TMenuItem
@@ -1752,7 +1753,7 @@ object GLForm1: TGLForm1
       object MPR1: TMenuItem
         Tag = 4
         AutoCheck = True
-        Caption = 'Multi Planar (A+C+S)'
+        Caption = 'Multi planar (A+C+S)'
         GroupIndex = 212
         RadioItem = True
         ShortCut = 16461
@@ -1817,7 +1818,7 @@ object GLForm1: TGLForm1
       end
       object RadiologicalMenu: TMenuItem
         AutoCheck = True
-        Caption = 'Radiological (Flip LR)'
+        Caption = 'Radiological (flip LR)'
         OnClick = RadiologicalMenuClick
       end
     end
@@ -1925,6 +1926,10 @@ object GLForm1: TGLForm1
         Caption = 'Preferences'
         OnClick = Preferences1Click
       end
+      object OnlineHelpMenu: TMenuItem
+        Caption = 'Online help'
+        OnClick = OnlineHelpMenuClick
+      end
     end
   end
   object OpenDialog1: TOpenDialog
diff --git a/mainunit.pas b/mainunit.pas
index f36cba0..ee150b8 100755
--- a/mainunit.pas
+++ b/mainunit.pas
@@ -44,6 +44,7 @@ TGLForm1 = class(TForm)
     CoordLabel: TLabel;
     LeftBtn: TButton;
     AnteriorBtn: TButton;
+    OnlineHelpMenu: TMenuItem;
     XCoordEdit: TEdit;
     ResetDefaults1: TMenuItem;
     PosteriorBtn: TButton;
@@ -275,6 +276,7 @@ TGLForm1 = class(TForm)
     procedure LineColorBtnClick(Sender: TObject);
     procedure LineWidthEditChange(Sender: TObject);
     procedure CoordEditChange(Sender: TObject);
+    procedure OnlineHelpMenuClick(Sender: TObject);
     procedure MosaicTextChange(Sender: TObject);
     function OpenVOI(lFilename: string): boolean;
     procedure BackgroundMaskMenuClick(Sender: TObject);
@@ -2276,10 +2278,13 @@ procedure TGLForm1.FormCreate(Sender: TObject);
   {$IFDEF Darwin} //only for Carbon compile
       //    OnDropFiles := DropFiles;
       //GLBox.DoubleBuffered:= false; // DoubleBuffered
-          Help1.visible := false;
+        //  Help1.visible := false;
+        About1.visible := false;
+        Preferences1.visible := false;
         //Edit1.visible := false;
         NewWindow1.Visible:= true;
         Exit1.visible := false;//with OSX users quit from application menu
+        Copy1.ShortCut:= ShortCut(Word('C'), [ssMeta]); ;
         Open1.ShortCut := ShortCut(Word('O'), [ssMeta]);
         Overlays1.ShortCut := ShortCut(Word('O'), [ssShift, ssMeta]);
         Tool1.ShortCut := ShortCut(Word('T'), [ssMeta]);
@@ -2290,22 +2295,24 @@ procedure TGLForm1.FormCreate(Sender: TObject);
         //SaveVOI1.ShortCut :=  ShortCut(Word('S'), [ssMeta]);
         HideVOI1.ShortCut := ShortCut(Word('H'), [ssMeta]);
         PasteSlice1.ShortCut :=  ShortCut(Word('V'), [ssMeta]);
-        UndoVOI1.ShortCut :=  ShortCut(Word('Z'), [ssMeta]);
+        //UndoVOI1.ShortCut :=  ShortCut(Word('Z'), [ssMeta]);
+        UndoVOI1.ShortCut :=  ShortCut(Word('U'), [ssMeta]);
         Eraser1.ShortCut :=  ShortCut(Word('E'), [ssMeta]);
         NoDraw1.ShortCut :=  ShortCut(Word('D'), [ssMeta]);
-        Render1.ShortCut :=  ShortCut(Word('R'), [ssMeta]);
+        YokeMenu.ShortCut :=  ShortCut(Word('Y'), [ssMeta]);
+        //in Cocoa: non-active menu intercepts keystrokes, so user typing in script form can not type "A" if that is used by main forms Axial menu
+
+        (*Render1.ShortCut :=  ShortCut(Word('R'), [ssMeta]);
         Axial1.ShortCut :=  ShortCut(Word('A'), [ssMeta]);
         Coronal1.ShortCut :=  ShortCut(Word('C'), [ssMeta]);
         Sagittal1.ShortCut :=  ShortCut(Word('S'), [ssMeta]);
         MPR1.ShortCut :=  ShortCut(Word('M'), [ssMeta]);
-        YokeMenu.ShortCut :=  ShortCut(Word('Y'), [ssMeta]);
-        //in Cocoa: non-active menu intercepts keystrokes, so user typing in script form can not type "A" if that is used by main forms Axial menu
         LeftMenu.ShortCut :=  ShortCut(Word('L'), [ssCtrl]);
         RightMenu.ShortCut :=  ShortCut(Word('R'), [ssCtrl]);
         AnteriorMenu.ShortCut :=  ShortCut(Word('A'), [ssCtrl]);
         PosteriorMenu.ShortCut :=  ShortCut(Word('P'), [ssCtrl]);
         SuperiorMenu.ShortCut :=  ShortCut(Word('S'), [ssCtrl]);
-        InferiorMenu.ShortCut :=  ShortCut(Word('I'), [ssCtrl]);
+        InferiorMenu.ShortCut :=  ShortCut(Word('I'), [ssCtrl]);*)
         {$ELSE}
         LeftMenu.ShortCut :=  ShortCut(Word('L'), [ssAlt]);
         RightMenu.ShortCut :=  ShortCut(Word('R'), [ssAlt]);
@@ -3613,7 +3620,7 @@ procedure TGLForm1.Scripting1Click(Sender: TObject);
   	 result := lmin;
   if result > lmax then
 end;*)
-function GetFloat(prompt: string; min,def,max: extended): extended;
+function GetFloat(prompt: string; min,def,max: double): double;
 var
     PrefForm: TForm;
     OkBtn: TButton;
@@ -3621,7 +3628,7 @@ function GetFloat(prompt: string; min,def,max: extended): extended;
     valEdit: TEdit;
 begin
   PrefForm:=TForm.Create(nil);
-  PrefForm.SetBounds(100, 100, 640, 112);
+  PrefForm.SetBounds(100, 100, 512, 112);
   PrefForm.Caption:='Value required';
   PrefForm.Position := poScreenCenter;
   PrefForm.BorderStyle := bsDialog;
@@ -3653,7 +3660,7 @@ function GetFloat(prompt: string; min,def,max: extended): extended;
   if gPrefs.DarkMode then GLForm1.SetFormDarkMode(PrefForm);
   {$ENDIF}
   PrefForm.ShowModal;
-  result := def;
+  result := NaN;
   if (PrefForm.ModalResult = mrOK) then begin
     result := StrToFloatDef(valEdit.Caption, def);
     if (min < max) and (result < min) then
@@ -3666,10 +3673,11 @@ function GetFloat(prompt: string; min,def,max: extended): extended;
 
 procedure TGLForm1.BET1Click(Sender: TObject);
 var
-  lFrac: single;
+  lFrac: double;
   lB: string;
 begin
   lFrac := GetFloat('Brain extraction fraction (smaller values lead to larger brain volume)',0.1,0.45,0.9);
+  if specialdouble(lFrac) then exit;
   if not OpenDialog1.Execute then
     exit;
   lB := FSLbet(OpenDialog1.FileName,lFrac);
@@ -3753,6 +3761,7 @@ procedure TGLForm1.Extract1Click(Sender: TObject);
  setThemeMode(ExtractForm.Handle, gPrefs.DarkMode);
  {$ENDIF}
  ExtractForm.ShowModal;
+ if ExtractForm.ModalResult <> mrOK then exit;
  ExtractTexture (gTexture3D, ExtractForm.OtsuLevelsEdit.value, ExtractForm.DilateEdit.value, ExtractForm.OneContiguousObjectCheck.checked);
  M_refresh := true;
  UpdateTimer.Enabled := true;
@@ -3869,6 +3878,7 @@ procedure ReportGitVer(localVer, api, url, exe: string);
   gitVer, exeNam: string;
   git, local: integer;
 begin
+ exeNam := ExtractFileName(exe);
   if length(localVer) < 8 then begin  //last 8 digits are date: v.1.0.20170101
     MessageDlg(exeNam,'Unable to detect version:  '+exe, mtConfirmation,[mbOK],0) ;
     //showmessage('Unable to detect latest version:  '+exe);
@@ -3880,7 +3890,7 @@ procedure ReportGitVer(localVer, api, url, exe: string);
       showmessage('Unable to detect latest version: are you connected to the web and do you have libssl installed? '+api);
       exit;
   end;
-  exeNam := ExtractFileName(exe);
+
   if CompareText(gitVer, localVer) = 0 then begin
       //showmessage('You are running the latest release '+localVer);
       MessageDlg(exeNam,'You are running the latest release '+localVer, mtConfirmation,[mbOK],0) ;
@@ -4068,13 +4078,13 @@ procedure PrefMenuClick;
   {$ENDIF}
   //UpdateBtn
   {$IFDEF UNIX}
-  UpdateBtn:=TButton.create(PrefForm);
+  (*UpdateBtn:=TButton.create(PrefForm);
   UpdateBtn.Caption:='Check for updates';
   UpdateBtn.Left := 28;
   UpdateBtn.Width:= 168;
   UpdateBtn.Top := 198;
   UpdateBtn.Parent:=PrefForm;
-  UpdateBtn.OnClick:= GLForm1.CheckForUpdates;
+  UpdateBtn.OnClick:= GLForm1.CheckForUpdates;*)
   {$ENDIF}
   //UpdateBtn.ModalResult:= mrOK;
 
@@ -4563,6 +4573,11 @@ procedure TGLForm1.CoordEditChange(Sender: TObject);
 
 end;
 
+procedure TGLForm1.OnlineHelpMenuClick(Sender: TObject);
+begin
+  OpenURL('https://www.nitrc.org/plugins/mwiki/index.php/mricrogl:MainPage');
+end;
+
 procedure TGLForm1.MosaicTextChange(Sender: TObject);
 begin
   GLForm1.DrawMosaic(MosaicText.Text); //2018
diff --git a/reorient.pas b/reorient.pas
index cd7caec..6afe5f8 100755
--- a/reorient.pas
+++ b/reorient.pas
@@ -8,7 +8,8 @@ interface
 //function ReorientNIfTI(lFilename: string; lPrefs: TPrefs): string; //returns output filename if successful
 function ReorientCore(var lHdr: TNIFTIhdr; lBufferIn: bytep): boolean;
 procedure ShrinkLarge(var lHdr: TNIFTIhdr; var lBuffer: bytep; lMaxDim: integer);
-procedure ShrinkOrEnlarge(var lHdr: TNIFTIhdr; var lBuffer: bytep; lFilter: integer; lScale: single);
+procedure ShrinkOrEnlarge(var lHdr: TNIFTIhdr; var lBuffer: bytep; lFilter: integer; lScale: single); overload;
+procedure ShrinkOrEnlarge(var lHdr: TNIFTIhdr; var lBuffer: bytep; lFilter: integer; lScaleX, lScaleY, lScaleZ : single); overload;
 function EnlargeIsotropic(var lHdr: TNIFTIhdr; var lBuffer: bytep; lFilter: integer): boolean;
 implementation
   uses mainunit;
@@ -891,16 +892,17 @@ function EnlargeIsotropic(var lHdr: TNIFTIhdr; var lBuffer: bytep; lFilter: inte
  result := true;
 end;
 
-procedure ShrinkOrEnlarge(var lHdr: TNIFTIhdr; var lBuffer: bytep; lFilter: integer; lScale: single);
+procedure ShrinkOrEnlarge(var lHdr: TNIFTIhdr; var lBuffer: bytep; lFilter: integer; lScaleX, lScaleY, lScaleZ: single); overload;
 var
-   fwidth: single;
+   fwidth, z: single;
    filter: TFilterProc;
 begin
-  if lScale <= 0.0 then exit;
-  if lScale = 1.0 then exit; //no resize
-  if ((lFilter < 0) or (lFilter > 6)) and (lScale < 1) then
+  if (lScaleX <= 0.0) or (lScaleY <= 0.0) or (lScaleZ <= 0.0) then exit;
+  if (lScaleX = 1.0) and (lScaleY = 1.0) and (lScaleZ = 1.0) then exit; //no resize
+  z := lScaleX * lScaleY * lScaleZ;
+  if ((lFilter < 0) or (lFilter > 6)) and (z < 1) then
      lFilter := 5; //Lanczos nice for downsampling
-  if ((lFilter < 0) or (lFilter > 6))  and (lScale > 1) then
+  if ((lFilter < 0) or (lFilter > 6))  and (z > 1) then
      lFilter := 6; //Mitchell nice for upsampling
   if lFilter = 0 then begin
      filter := @BoxFilter; fwidth := 0.5;
@@ -918,13 +920,18 @@ procedure ShrinkOrEnlarge(var lHdr: TNIFTIhdr; var lBuffer: bytep; lFilter: inte
       filter := @MitchellFilter; fwidth := 2;
   end;
   if lHdr.datatype = kDT_UNSIGNED_CHAR then
-     Resize8(lHdr, lBuffer, lScale, lScale, lScale, fwidth, @filter)
+     Resize8(lHdr, lBuffer, lScaleX, lScaleY, lScaleZ, fwidth, @filter)
   else if lHdr.datatype = kDT_SIGNED_SHORT then
-     Resize16(lHdr, lBuffer, lScale, lScale, lScale, fwidth, @filter)
+     Resize16(lHdr, lBuffer, lScaleX, lScaleY, lScaleZ, fwidth, @filter)
   else if lHdr.datatype = kDT_FLOAT then
-     Resize32(lHdr, lBuffer, lScale, lScale, lScale, fwidth, @filter)
+     Resize32(lHdr, lBuffer, lScaleX, lScaleY, lScaleZ, fwidth, @filter)
   else if lHdr.datatype = kDT_RGB then
-     Resize24(lHdr, lBuffer, lScale, lScale, lScale, fwidth, @filter);
+     Resize24(lHdr, lBuffer, lScaleX, lScaleY, lScaleZ, fwidth, @filter);
+end;
+
+procedure ShrinkOrEnlarge(var lHdr: TNIFTIhdr; var lBuffer: bytep; lFilter: integer; lScale: single); overload;
+begin
+  ShrinkOrEnlarge(lHdr, lBuffer, lFilter, lScale, lScale, lScale);
 end;
 
 procedure ShrinkLarge(var lHdr: TNIFTIhdr; var lBuffer: bytep; lMaxDim: integer);
diff --git a/savethreshold.pas b/savethreshold.pas
index 36a6392..c8eb2c7 100755
--- a/savethreshold.pas
+++ b/savethreshold.pas
@@ -11,7 +11,7 @@ interface
 
 //function SaveImg (lOutname: string; var lHdrx: TMRIcroHdr): boolean;
 function SaveImg (lOutname: string; var lHdr: TNIFTIhdr; lImg: Bytep): boolean;
-function SaveImgScaled (lOutname: string; lFilter: integer; lScale: single): boolean;
+function SaveImgScaled (lOutname: string; lFilter: integer; lScaleX, lScaleY, lScaleZ: single): boolean;
 //function SaveImgIso (lOutname: string; lFilter: integer): boolean;
 function SaveThresholdedUI(lThresh, lClusterMM3: single; lSaveToDisk: boolean): boolean;
 function SaveThresholded(lInname: string; lThresh, lClusterMM3: single; lSaveToDisk: boolean): integer;
@@ -206,7 +206,7 @@ function numVox(h: TNIFTIHdr): int64;
      result := outbytes;
 end;
 
-function SaveImgScaled (lOutname: string; lFilter: integer; lScale: single): boolean;
+function SaveImgScaled (lOutname: string; lFilter: integer; lScaleX, lScaleY, lScaleZ: single): boolean;
 var
   i, bpp, nVox : int64;
   lOutnameGz : string;
@@ -223,7 +223,7 @@ function SaveImgScaled (lOutname: string; lFilter: integer; lScale: single): boo
      end;
      nVox := numVox(gTexture3D.NIFTIhdr);
      h := gTexture3D.NIFTIhdr;
-     if (lScale <= 0) and (h.pixdim[1] = h.pixdim[2]) and  (h.pixdim[1] = h.pixdim[3]) then
+     if (lScaleX <= 0) and (lScaleY <= 0) and (lScaleZ <= 0) and (h.pixdim[1] = h.pixdim[2]) and  (h.pixdim[1] = h.pixdim[3]) then
         exit; //already isotropic
      if  gTexture3D.RawUnscaledImg32 <> nil then begin
        lImg := bytep(gTexture3D.RawUnscaledImg32);
@@ -264,10 +264,10 @@ function SaveImgScaled (lOutname: string; lFilter: integer; lScale: single): boo
      Rewrite(lF,1);
      GetMem(lImgX,nVox * bpp);
      System.Move(lImg^,lImgX^,nVox * bpp);
-     if lScale <= 0 then
+     if (lScaleX <= 0) and (lScaleY <= 0) and (lScaleZ <= 0) then
          EnlargeIsotropic(h, lImgX, lFilter)
      else
-         ShrinkOrEnlarge(h, lImgX, lFilter, lScale);
+         ShrinkOrEnlarge(h, lImgX, lFilter, lScaleX, lScaleY, lScaleZ);
      nVox := numVox(h);
      //outbytes := nVox * bpp;
       BlockWrite(lF,h,sizeof(TNIFTIHdr) );
diff --git a/scriptengine.lfm b/scriptengine.lfm
index 2567f0c..495db80 100755
--- a/scriptengine.lfm
+++ b/scriptengine.lfm
@@ -604,12 +604,12 @@ object ScriptForm: TScriptForm
           Hint = 'quit () Terminates the program. Use with caution. This allows external programs to launch this software and quit once they are done.'
           OnClick = InsertCommand
         end
-		  object savebmp1: TMenuItem
-			Tag = 4
-			Caption = 'savebmp'
-			Hint = 'savebmp (filename: string) Saves the currently viewed image as a PNG format compressed bitmap image.'
-			OnClick = InsertCommand
-		  end
+        object savebmp1: TMenuItem
+          Tag = 4
+          Caption = 'savebmp'
+          Hint = 'savebmp (filename: string) Saves the currently viewed image as a PNG format compressed bitmap image.'
+          OnClick = InsertCommand
+        end
         object savebmpxy1: TMenuItem
           Tag = 1422
           Caption = 'savebmpxy'
diff --git a/scriptengine.pas b/scriptengine.pas
index 1c98197..b3f3822 100755
--- a/scriptengine.pas
+++ b/scriptengine.pas
@@ -451,6 +451,22 @@ function PySAVENII(Self, Args : PPyObject): PPyObject; cdecl;
     end;
 end;
 
+function PySAVENIIXYZ(Self, Args : PPyObject): PPyObject; cdecl;
+var
+  PtrName: PChar;
+  StrName: string;
+  Filt: integer;
+  ScaleX, ScaleY, ScaleZ: single;
+begin
+  Result:= GetPythonEngine.PyBool_FromLong(Ord(True));
+  with GetPythonEngine do
+    if Bool(PyArg_ParseTuple(Args, 'sifff:saveniixyz', @PtrName, @Filt, @ScaleX, @ScaleY, @ScaleZ)) then
+    begin
+      StrName:= string(PtrName);
+      SAVENIIXYZ(StrName, Filt, ScaleX, ScaleY, ScaleZ);
+    end;
+end;
+
 function PyBACKCOLOR(Self, Args : PPyObject): PPyObject; cdecl;
 var
   R,G,B: integer;
@@ -1228,6 +1244,7 @@ procedure TScriptForm.PyModInitialization(Sender: TObject);
     AddMethod('savebmp', @PySAVEBMP, '');
     AddMethod('savebmp', @PySAVEBMPXY, '');
     AddMethod('savenii', @PySAVENII, '');
+    AddMethod('saveniixyz', @PySAVENIIXYZ, '');
     AddMethod('scriptformvisible', @PySCRIPTFORMVISIBLE, '');
     AddMethod('contrastformvisible', @PyCONTRASTFORMVISIBLE, '');
     AddMethod('toolformvisible', @PyTOOLFORMVISIBLE, '');
diff --git a/simplelaz.lps b/simplelaz.lps
index 9442dbe..e37dc17 100644
--- a/simplelaz.lps
+++ b/simplelaz.lps
@@ -20,8 +20,8 @@
         <ResourceBaseClass Value="Form"/>
         <IsVisibleTab Value="True"/>
         <EditorIndex Value="1"/>
-        <TopLine Value="1647"/>
-        <CursorPos X="35" Y="1657"/>
+        <TopLine Value="3673"/>
+        <CursorPos X="35" Y="3698"/>
         <UsageCount Value="211"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
@@ -30,10 +30,10 @@
       <Unit2>
         <Filename Value="define_types.pas"/>
         <IsPartOfProject Value="True"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="105"/>
-        <CursorPos X="23" Y="124"/>
+        <EditorIndex Value="2"/>
+        <CursorPos X="6" Y="16"/>
         <UsageCount Value="215"/>
+        <Loaded Value="True"/>
         <DefaultSyntaxHighlighter Value="Delphi"/>
       </Unit2>
       <Unit3>
@@ -48,9 +48,9 @@
       <Unit4>
         <Filename Value="commandsu.pas"/>
         <IsPartOfProject Value="True"/>
-        <EditorIndex Value="4"/>
-        <TopLine Value="1125"/>
-        <CursorPos X="133" Y="1138"/>
+        <EditorIndex Value="7"/>
+        <TopLine Value="1098"/>
+        <CursorPos X="15" Y="1118"/>
         <UsageCount Value="205"/>
         <Loaded Value="True"/>
         <DefaultSyntaxHighlighter Value="Delphi"/>
@@ -61,7 +61,7 @@
         <EditorIndex Value="-1"/>
         <TopLine Value="119"/>
         <CursorPos X="53" Y="143"/>
-        <UsageCount Value="146"/>
+        <UsageCount Value="148"/>
         <DefaultSyntaxHighlighter Value="Delphi"/>
       </Unit5>
       <Unit6>
@@ -70,10 +70,10 @@
         <ComponentName Value="ScriptForm"/>
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
-        <EditorIndex Value="6"/>
-        <TopLine Value="1205"/>
-        <CursorPos X="30" Y="1227"/>
-        <UsageCount Value="159"/>
+        <EditorIndex Value="11"/>
+        <TopLine Value="454"/>
+        <CursorPos X="17" Y="466"/>
+        <UsageCount Value="161"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
         <DefaultSyntaxHighlighter Value="Delphi"/>
@@ -86,7 +86,7 @@
         <ResourceBaseClass Value="Form"/>
         <EditorIndex Value="-1"/>
         <CursorPos X="58" Y="10"/>
-        <UsageCount Value="191"/>
+        <UsageCount Value="193"/>
         <DefaultSyntaxHighlighter Value="Delphi"/>
       </Unit7>
       <Unit8>
@@ -98,7 +98,7 @@
         <EditorIndex Value="-1"/>
         <TopLine Value="77"/>
         <CursorPos X="2" Y="96"/>
-        <UsageCount Value="119"/>
+        <UsageCount Value="121"/>
         <DefaultSyntaxHighlighter Value="Delphi"/>
       </Unit8>
       <Unit9>
@@ -156,10 +156,10 @@
       </Unit14>
       <Unit15>
         <Filename Value="raycast_legacy.pas"/>
-        <EditorIndex Value="2"/>
+        <EditorIndex Value="5"/>
         <TopLine Value="836"/>
         <CursorPos X="54" Y="841"/>
-        <UsageCount Value="33"/>
+        <UsageCount Value="34"/>
         <Loaded Value="True"/>
         <DefaultSyntaxHighlighter Value="Delphi"/>
       </Unit15>
@@ -318,10 +318,14 @@
       </Unit34>
       <Unit35>
         <Filename Value="extractui.pas"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="14"/>
-        <CursorPos X="3" Y="30"/>
-        <UsageCount Value="8"/>
+        <ComponentName Value="ExtractForm"/>
+        <HasResources Value="True"/>
+        <ResourceBaseClass Value="Form"/>
+        <EditorIndex Value="3"/>
+        <TopLine Value="13"/>
+        <CursorPos X="61" Y="30"/>
+        <UsageCount Value="10"/>
+        <Loaded Value="True"/>
         <DefaultSyntaxHighlighter Value="Delphi"/>
       </Unit35>
       <Unit36>
@@ -379,10 +383,11 @@
       <Unit43>
         <Filename Value="../../../lazarus/lcl/menus.pp"/>
         <UnitName Value="Menus"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="280"/>
-        <CursorPos X="25" Y="289"/>
-        <UsageCount Value="3"/>
+        <EditorIndex Value="4"/>
+        <TopLine Value="431"/>
+        <CursorPos X="62" Y="455"/>
+        <UsageCount Value="11"/>
+        <Loaded Value="True"/>
       </Unit43>
       <Unit44>
         <Filename Value="../../../lazarus/lcl/interfaces/carbon/carbonproc.pp"/>
@@ -411,10 +416,11 @@
       </Unit46>
       <Unit47>
         <Filename Value="reorient.pas"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="852"/>
-        <CursorPos X="26" Y="855"/>
-        <UsageCount Value="18"/>
+        <EditorIndex Value="9"/>
+        <TopLine Value="907"/>
+        <CursorPos X="55" Y="931"/>
+        <UsageCount Value="19"/>
+        <Loaded Value="True"/>
         <DefaultSyntaxHighlighter Value="Delphi"/>
       </Unit47>
       <Unit48>
@@ -463,17 +469,19 @@
       </Unit53>
       <Unit54>
         <Filename Value="nifti_foreign.pas"/>
-        <EditorIndex Value="8"/>
+        <EditorIndex Value="13"/>
         <CursorPos X="89" Y="9"/>
-        <UsageCount Value="34"/>
+        <UsageCount Value="35"/>
         <Loaded Value="True"/>
         <DefaultSyntaxHighlighter Value="Delphi"/>
       </Unit54>
       <Unit55>
         <Filename Value="savethreshold.pas"/>
-        <EditorIndex Value="-1"/>
-        <CursorPos X="3" Y="15"/>
-        <UsageCount Value="8"/>
+        <EditorIndex Value="8"/>
+        <TopLine Value="253"/>
+        <CursorPos X="70" Y="270"/>
+        <UsageCount Value="11"/>
+        <Loaded Value="True"/>
         <DefaultSyntaxHighlighter Value="Delphi"/>
       </Unit55>
       <Unit56>
@@ -486,19 +494,19 @@
       </Unit56>
       <Unit57>
         <Filename Value="histogram2d.pas"/>
-        <EditorIndex Value="7"/>
+        <EditorIndex Value="12"/>
         <TopLine Value="651"/>
         <CursorPos X="20" Y="662"/>
-        <UsageCount Value="31"/>
+        <UsageCount Value="32"/>
         <Loaded Value="True"/>
         <DefaultSyntaxHighlighter Value="Delphi"/>
       </Unit57>
       <Unit58>
         <Filename Value="clut.pas"/>
-        <EditorIndex Value="5"/>
+        <EditorIndex Value="10"/>
         <TopLine Value="223"/>
         <CursorPos X="17" Y="223"/>
-        <UsageCount Value="31"/>
+        <UsageCount Value="32"/>
         <Loaded Value="True"/>
         <DefaultSyntaxHighlighter Value="Delphi"/>
       </Unit58>
@@ -512,133 +520,133 @@
       <Unit60>
         <Filename Value="../../../lazarus/lcl/controls.pp"/>
         <UnitName Value="Controls"/>
-        <EditorIndex Value="3"/>
+        <EditorIndex Value="6"/>
         <TopLine Value="1713"/>
         <CursorPos X="33" Y="1740"/>
-        <UsageCount Value="11"/>
+        <UsageCount Value="12"/>
         <Loaded Value="True"/>
       </Unit60>
     </Units>
     <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
         <Filename Value="mainunit.pas"/>
-        <Caret Line="1632" Column="23" TopLine="1631"/>
+        <Caret Line="3969" Column="32" TopLine="3949"/>
       </Position1>
       <Position2>
         <Filename Value="mainunit.pas"/>
-        <Caret Line="1761" Column="31" TopLine="1737"/>
+        <Caret Line="3971" Column="30" TopLine="3949"/>
       </Position2>
       <Position3>
         <Filename Value="mainunit.pas"/>
-        <Caret Line="1766" Column="34" TopLine="1742"/>
+        <Caret Line="3973" Column="16" TopLine="3949"/>
       </Position3>
       <Position4>
         <Filename Value="mainunit.pas"/>
-        <Caret Line="1767" Column="16" TopLine="1743"/>
+        <Caret Line="3974" Column="16" TopLine="3950"/>
       </Position4>
       <Position5>
         <Filename Value="mainunit.pas"/>
-        <Caret Line="1769" Column="32" TopLine="1745"/>
+        <Caret Line="3977" Column="30" TopLine="3953"/>
       </Position5>
       <Position6>
         <Filename Value="mainunit.pas"/>
-        <Caret Line="1899" Column="13" TopLine="1876"/>
+        <Caret Line="4061" Column="60" TopLine="4060"/>
       </Position6>
       <Position7>
         <Filename Value="mainunit.pas"/>
-        <Caret Line="4565" Column="30" TopLine="4541"/>
+        <Caret Line="5988" Column="11" TopLine="5964"/>
       </Position7>
       <Position8>
         <Filename Value="mainunit.pas"/>
-        <Caret Line="4564" Column="32" TopLine="4543"/>
+        <Caret Line="1332" Column="74" TopLine="1319"/>
       </Position8>
       <Position9>
         <Filename Value="mainunit.pas"/>
-        <Caret Line="4599" Column="10" TopLine="4577"/>
+        <Caret Line="1408" Column="65" TopLine="1385"/>
       </Position9>
       <Position10>
         <Filename Value="mainunit.pas"/>
-        <Caret Line="459" Column="24" TopLine="445"/>
+        <Caret Line="1995" Column="78" TopLine="1971"/>
       </Position10>
       <Position11>
         <Filename Value="mainunit.pas"/>
-        <Caret Line="722" Column="29" TopLine="694"/>
+        <Caret Line="2307" Column="29" TopLine="2288"/>
       </Position11>
       <Position12>
         <Filename Value="mainunit.pas"/>
-        <Caret Line="3126" Column="14" TopLine="3101"/>
+        <Caret Line="2303" Column="26" TopLine="2289"/>
       </Position12>
       <Position13>
         <Filename Value="mainunit.pas"/>
-        <Caret Line="3652" Column="50" TopLine="3629"/>
+        <Caret Line="2301" Column="39" TopLine="2290"/>
       </Position13>
       <Position14>
-        <Filename Value="mainunit.pas"/>
-        <Caret Line="3762" Column="50" TopLine="3734"/>
+        <Filename Value="../../../lazarus/lcl/menus.pp"/>
+        <Caret Line="438" Column="74" TopLine="422"/>
       </Position14>
       <Position15>
-        <Filename Value="mainunit.pas"/>
-        <Caret Line="3982" Column="29" TopLine="3958"/>
+        <Filename Value="../../../lazarus/lcl/menus.pp"/>
+        <Caret Line="439" Column="51" TopLine="422"/>
       </Position15>
       <Position16>
-        <Filename Value="mainunit.pas"/>
-        <Caret Line="3989" Column="78" TopLine="3965"/>
+        <Filename Value="../../../lazarus/lcl/menus.pp"/>
+        <Caret Line="455" Column="51" TopLine="431"/>
       </Position16>
       <Position17>
         <Filename Value="mainunit.pas"/>
-        <Caret Line="4059" Column="11" TopLine="4036"/>
+        <Caret Line="2303" Column="31" TopLine="2289"/>
       </Position17>
       <Position18>
         <Filename Value="mainunit.pas"/>
-        <Caret Line="4061" Column="43" TopLine="4038"/>
+        <Caret Line="2273" Column="41" TopLine="2268"/>
       </Position18>
       <Position19>
         <Filename Value="mainunit.pas"/>
-        <Caret Line="4062" Column="11" TopLine="4039"/>
+        <Caret Line="2285" Column="50" TopLine="2275"/>
       </Position19>
       <Position20>
         <Filename Value="mainunit.pas"/>
-        <Caret Line="4063" Column="11" TopLine="4040"/>
+        <Caret Line="3762" Column="13" TopLine="3748"/>
       </Position20>
       <Position21>
         <Filename Value="mainunit.pas"/>
-        <Caret Line="4064" Column="11" TopLine="4041"/>
+        <Caret Line="3763" Column="46" TopLine="3748"/>
       </Position21>
       <Position22>
         <Filename Value="mainunit.pas"/>
-        <Caret Line="4065" Column="11" TopLine="4042"/>
+        <Caret Line="3679" Column="20" TopLine="3674"/>
       </Position22>
       <Position23>
         <Filename Value="mainunit.pas"/>
-        <Caret Line="4066" Column="26" TopLine="4043"/>
+        <Caret Line="3623" Column="18" TopLine="3618"/>
       </Position23>
       <Position24>
         <Filename Value="mainunit.pas"/>
-        <Caret Line="4114" Column="51" TopLine="4091"/>
+        <Caret Line="3672" Column="16" TopLine="3652"/>
       </Position24>
       <Position25>
         <Filename Value="mainunit.pas"/>
-        <Caret Line="4115" Column="30" TopLine="4092"/>
+        <Caret Line="3679" Column="20" TopLine="3658"/>
       </Position25>
       <Position26>
         <Filename Value="mainunit.pas"/>
-        <Caret Line="4135" Column="16" TopLine="4111"/>
+        <Caret Line="3607" Column="20" TopLine="3594"/>
       </Position26>
       <Position27>
         <Filename Value="mainunit.pas"/>
-        <Caret Line="469" Column="43" TopLine="460"/>
+        <Caret Line="3623" Column="18" TopLine="3602"/>
       </Position27>
       <Position28>
         <Filename Value="mainunit.pas"/>
-        <Caret Line="667" Column="17" TopLine="646"/>
+        <Caret Line="3672" Column="16" TopLine="3652"/>
       </Position28>
       <Position29>
         <Filename Value="mainunit.pas"/>
-        <Caret Line="4567" Column="21" TopLine="4565"/>
+        <Caret Line="3680" Column="37" TopLine="3662"/>
       </Position29>
       <Position30>
         <Filename Value="mainunit.pas"/>
-        <Caret Line="431" Column="15" TopLine="431"/>
+        <Caret Line="3623" Column="63" TopLine="3619"/>
       </Position30>
     </JumpHistory>
     <RunParams>