diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..4ab71d5 --- /dev/null +++ b/.gitignore @@ -0,0 +1,4 @@ +*.o +*.ppu +*.exe +*.out \ No newline at end of file diff --git a/build.bat b/build.bat new file mode 100644 index 0000000..7e8d469 --- /dev/null +++ b/build.bat @@ -0,0 +1,5 @@ +fpc main.pas +cd gui +fpc gui.pas + +pause \ No newline at end of file diff --git a/generated_images/.gitignore b/generated_images/.gitignore new file mode 100644 index 0000000..4a04015 --- /dev/null +++ b/generated_images/.gitignore @@ -0,0 +1 @@ +*.bmp \ No newline at end of file diff --git a/gui/gui.pas b/gui/gui.pas index bab439a..4334fb9 100644 --- a/gui/gui.pas +++ b/gui/gui.pas @@ -99,7 +99,7 @@ var wr: TRect; begin wr.assign(0, 0, 60, 19); - inherited Init(wr, 'Generator'); + inherited Init(wr, 'Mandelbrot generator'); Options := Options or ofCentered; HelpCtx := $F000; @@ -107,7 +107,7 @@ begin curY := 2; with GenerateData do begin - path := './images'; + path := '../generated_images'; width := '512'; height := '512'; power := '2'; @@ -137,9 +137,9 @@ end; procedure TMSApp.ShowAbout(); begin MessageBox( - #3'Multibrot Set Generator GUI'#13 + + #3'Math images generator'#13 + #3'Developed by Artem K.'#13 + - #3'MF BMSTU 2019', + #3'MF BMSTU 2019 - 2020', nil, mfInformation or mfOkButton ); @@ -200,7 +200,7 @@ begin GetExtent(r); r.b.y := r.a.y + 1; MenuBar := New(PMenuBar, Init(r, NewMenu( - NewItem('~N~ew', '', kbNoKey, cmNew, hcNew, + NewItem('~M~andelbrot', '', kbNoKey, cmNew, hcNew, NewItem('~A~bout', '', kbNoKey, cmAbout, hcNoContext, NewItem('~E~xit', 'Alt+X', kbAltX, cmQuit, hcExit, nil))))) diff --git a/images/generated/.gitignore b/images/generated/.gitignore deleted file mode 100644 index c96a04f..0000000 --- a/images/generated/.gitignore +++ /dev/null @@ -1,2 +0,0 @@ -* -!.gitignore \ No newline at end of file diff --git a/images/k.bmp b/images/k.bmp deleted file mode 100644 index 67d7aa5..0000000 Binary files a/images/k.bmp and /dev/null differ