Build script for macOS

.gitignore

@@ -1,3 +1,8 @@
+.DS_Store
+
+build/gui
+build/function_imaging
+build/multibrot_imaging
 images/*
 
 *.o

build.mac.sh

@@ -0,0 +1,17 @@
+rm ./build/multibrot_imaging
+rm ./build/function_imaging
+rm ./build/gui
+
+cd ./src
+fpc multibrot_imaging.pas
+mv multibrot_imaging ../build/
+fpc function_imaging.pas
+mv function_imaging ../build/
+rm *.o
+rm *.ppu
+
+cd ./gui
+fpc gui.pas -Fu/usr/local/Cellar/fpc/3.0.4_1/lib/fpc/3.0.4/units/x86_64-darwin/fv
+mv gui ../../build/
+rm *.o
+rm *.ppu

src/gui/gui.pas

@@ -316,9 +316,10 @@ begin
   New(StatusLine, Init(r,
     NewStatusDef(0, $EFFF,
       NewStatusKey('~Alt+X~ Exit', kbAltX, cmQuit,
-      NewStatusKey('~F3~ New', kbF3, cmMbNew,
+      NewStatusKey('~F3~ New Mb', kbF3, cmMbNew,
+      NewStatusKey('~F4~ New Fn', kbF4, cmFnNew,
       nil
-    )), nil)
+    ))), nil)
   ));
 end;