From 6d935e5fd0b94d97ae4591237f36848c5650b3c3 Mon Sep 17 00:00:00 2001 From: tTh Date: Sat, 17 Dec 2022 10:35:44 +0100 Subject: [PATCH] some clean after erratic modifications --- Fraktalism/Makefile | 19 ++++++++++--------- Fraktalism/README.md | 5 ++++- Fraktalism/essai.f90 | 2 +- Fraktalism/fraktals.f90 | 7 +++---- Fraktalism/mods/Makefile | 4 ++++ Fraktalism/mods/xperiment.f90 | 8 ++++---- 6 files changed, 26 insertions(+), 19 deletions(-) diff --git a/Fraktalism/Makefile b/Fraktalism/Makefile index afcd599..5da76ea 100644 --- a/Fraktalism/Makefile +++ b/Fraktalism/Makefile @@ -1,7 +1,7 @@ all: voxelize evolvopick pickover julia lorentz essai -GFOPT = -Wall -Wextra -time -g -O -Imods/ -I../Modules +GFOPT = -Wall -Wextra -time -g -Imods/ -I../Modules # --------------------------------------------- # the module 'spitpgm' is now in $PROJECT/Modules @@ -16,29 +16,30 @@ mods/xperiment.o: mods/xperiment.f90 Makefile fraktals.o: fraktals.f90 Makefile gfortran $(GFOPT) -c $< -OBJS = mods/points3d.o mods/xperiment.o fraktals.o +OBJDEP = mods/points3d.o mods/xperiment.o fraktals.o +OBJS = $(OBJDEP) ../Modules/spitpgm.o # --------------------------------------------- -essai: essai.f90 Makefile $(OBJS) +essai: essai.f90 Makefile $(OBJDEP) gfortran $(GFOPT) $< $(OBJS) -o $@ -henon: henon.f90 Makefile $(OBJS) +henon: henon.f90 Makefile $(OBJDEP) gfortran $(GFOPT) $< $(OBJS) -o $@ -julia: julia.f90 Makefile $(OBJS) +julia: julia.f90 Makefile $(OBJDEP) gfortran $(GFOPT) $< $(OBJS) -o $@ -pickover: pickover.f90 Makefile $(OBJS) +pickover: pickover.f90 Makefile $(OBJDEP) gfortran $(GFOPT) $< $(OBJS) -o $@ -evolvopick: evolvopick.f90 Makefile $(OBJS) +evolvopick: evolvopick.f90 Makefile $(OBJDEP) gfortran $(GFOPT) $< $(OBJS) $(DOT_O) -o $@ -voxelize: voxelize.f90 Makefile $(OBJS) +voxelize: voxelize.f90 Makefile $(OBJDEP) gfortran $(GFOPT) $< $(OBJS) -o $@ -lorentz: lorentz.f90 Makefile $(OBJS) +lorentz: lorentz.f90 Makefile $(OBJDEP) gfortran $(GFOPT) $< $(OBJS) -o $@ # --------------------------------------------- diff --git a/Fraktalism/README.md b/Fraktalism/README.md index a77bb7e..2ca85fc 100644 --- a/Fraktalism/README.md +++ b/Fraktalism/README.md @@ -9,7 +9,8 @@ qui montre ma première expérience dans ce domaine. ## La technique Le gros des calculs de fractales est fait dans `mods/fraktals.f90`, -et la gestion des pixels 'physiques' est fait dans `mods/spitpgm`. +et la gestion des pixels 'physiques' est faite par le +module externe `spitpgm`. Les fonctions d'usage général sont dans [mods/](répertoire mods/) ave trop peu @@ -19,6 +20,8 @@ Des scripts _shell_ sont utilisés pour construire les vidéos. ## File Formats +Certains programmes enregistrent des tables de points 3d dans +des fichiers. ``` type t_point3d diff --git a/Fraktalism/essai.f90 b/Fraktalism/essai.f90 index 2dd0b4d..8d51201 100644 --- a/Fraktalism/essai.f90 +++ b/Fraktalism/essai.f90 @@ -23,7 +23,7 @@ program essai allocate(picz(W,H), stat=errcode) do foo=1, 360 - write (filename, "(a, i5.5, a)") "frames/popcorn/", foo, ".pnm" + write (filename, "(a, i5.5, a)") "frames/popcorn/", foo-1, ".pnm" write(0, *) "-------->", trim(filename), "<" kx = 50.0 * sin(real(foo)*25.133) ky = 50.0 * cos(real(foo)*25.133) diff --git a/Fraktalism/fraktals.f90 b/Fraktalism/fraktals.f90 index 7f64e84..2d1d9cf 100644 --- a/Fraktalism/fraktals.f90 +++ b/Fraktalism/fraktals.f90 @@ -26,7 +26,7 @@ subroutine parasites_0(pic, cx, cy, maxiter) ! write(0, *) "constantes", cx, cy width = ubound(pic, 1) ; height = ubound(pic, 2) - coef = float(maxiter) + coef = float(maxiter) / 12.3456789 do ix = 1, width fx = cx + (float(ix) / (float(width)/4.0) - 2.0) @@ -35,9 +35,9 @@ subroutine parasites_0(pic, cx, cy, maxiter) fy = cy + (float(iy) / (float(height)/4.0) - 2.0) if (burps) then - pic(ix, iy) = int(fx * fy * coef * 1.005) + pic(ix, iy) = mod(int(fx * fy * coef * 1.005), 250) else - pic(ix, iy) = int(fx * fy * coef) + pic(ix, iy) = mod(int(fx * fy * coef), 250) endif enddo @@ -45,7 +45,6 @@ subroutine parasites_0(pic, cx, cy, maxiter) end subroutine parasites_0 - !=============================================================== subroutine simple_julia(pic, cx, cy, maxiter) diff --git a/Fraktalism/mods/Makefile b/Fraktalism/mods/Makefile index 7c3f388..e72b590 100644 --- a/Fraktalism/mods/Makefile +++ b/Fraktalism/mods/Makefile @@ -4,6 +4,10 @@ GFOPT = -Wall -Wextra -time -g +all: xperiment.o points3d.o + points3d.o: points3d.f90 Makefile gfortran $(GFOPT) -c $< +xperiment.o: xperiment.f90 Makefile + gfortran $(GFOPT) -c $< diff --git a/Fraktalism/mods/xperiment.f90 b/Fraktalism/mods/xperiment.f90 index 2081335..a729336 100644 --- a/Fraktalism/mods/xperiment.f90 +++ b/Fraktalism/mods/xperiment.f90 @@ -6,7 +6,7 @@ module xperiment !=============================================================== ! nouveau 24 mai 2022 -subroutine parasites_0(pic, cx, cy, maxiter) +subroutine parasites_1(pic, cx, cy, maxiter) implicit none ! here is the wtf @@ -39,13 +39,13 @@ subroutine parasites_0(pic, cx, cy, maxiter) enddo enddo -end subroutine parasites_0 +end subroutine parasites_1 !--------------------------------------------------------------- ! ! aucune idee de l'utilisation de ce truc ! ! -subroutine loop_of_parasites_0(nbre, mode) +subroutine loop_of_parasites_1(nbre, mode) implicit none integer, intent(in) :: nbre, mode @@ -59,7 +59,7 @@ subroutine loop_of_parasites_0(nbre, mode) enddo -end subroutine loop_of_parasites_0 +end subroutine loop_of_parasites_1 !=============================================================== end module xperiment