tTh/Fortraneries
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

some clean after erratic modifications

Browse Source
This commit is contained in:
tTh 2022-12-17 10:35:44 +01:00
parent a1f5030300
commit 6d935e5fd0
6 changed files with 26 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
Fraktalism/Makefile
View File

@ -1,7 +1,7 @@
all: voxelize evolvopick pickover julia lorentz essai 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 # the module 'spitpgm' is now in $PROJECT/Modules
@ -16,29 +16,30 @@ mods/xperiment.o: mods/xperiment.f90 Makefile
fraktals.o: fraktals.f90 Makefile fraktals.o: fraktals.f90 Makefile
gfortran $(GFOPT) -c $< 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 $@ gfortran $(GFOPT) $< $(OBJS) -o $@
henon: henon.f90 Makefile $(OBJS) henon: henon.f90 Makefile $(OBJDEP)
gfortran $(GFOPT) $< $(OBJS) -o $@ gfortran $(GFOPT) $< $(OBJS) -o $@
julia: julia.f90 Makefile $(OBJS) julia: julia.f90 Makefile $(OBJDEP)
gfortran $(GFOPT) $< $(OBJS) -o $@ gfortran $(GFOPT) $< $(OBJS) -o $@
pickover: pickover.f90 Makefile $(OBJS) pickover: pickover.f90 Makefile $(OBJDEP)
gfortran $(GFOPT) $< $(OBJS) -o $@ gfortran $(GFOPT) $< $(OBJS) -o $@
evolvopick: evolvopick.f90 Makefile $(OBJS) evolvopick: evolvopick.f90 Makefile $(OBJDEP)
gfortran $(GFOPT) $< $(OBJS) $(DOT_O) -o $@ gfortran $(GFOPT) $< $(OBJS) $(DOT_O) -o $@
voxelize: voxelize.f90 Makefile $(OBJS) voxelize: voxelize.f90 Makefile $(OBJDEP)
gfortran $(GFOPT) $< $(OBJS) -o $@ gfortran $(GFOPT) $< $(OBJS) -o $@
lorentz: lorentz.f90 Makefile $(OBJS) lorentz: lorentz.f90 Makefile $(OBJDEP)
gfortran $(GFOPT) $< $(OBJS) -o $@ gfortran $(GFOPT) $< $(OBJS) -o $@
# --------------------------------------------- # ---------------------------------------------

5
Fraktalism/README.md
View File

@ -9,7 +9,8 @@ qui montre ma première expérience dans ce domaine.
## La technique ## La technique
Le gros des calculs de fractales est fait dans `mods/fraktals.f90`, 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 Les fonctions d'usage général sont dans
[mods/](répertoire mods/) ave trop peu [mods/](répertoire mods/) ave trop peu
@ -19,6 +20,8 @@ Des scripts _shell_ sont utilisés pour construire les vidéos.
## File Formats ## File Formats
Certains programmes enregistrent des tables de points 3d dans
des fichiers.
``` ```
type t_point3d type t_point3d

2
Fraktalism/essai.f90
View File

@ -23,7 +23,7 @@ program essai
allocate(picz(W,H), stat=errcode) allocate(picz(W,H), stat=errcode)
do foo=1, 360 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), "<" write(0, *) "-------->", trim(filename), "<"
kx = 50.0 * sin(real(foo)*25.133) kx = 50.0 * sin(real(foo)*25.133)
ky = 50.0 * cos(real(foo)*25.133) ky = 50.0 * cos(real(foo)*25.133)

7
Fraktalism/fraktals.f90
View File

@ -26,7 +26,7 @@ subroutine parasites_0(pic, cx, cy, maxiter)
! write(0, *) "constantes", cx, cy ! write(0, *) "constantes", cx, cy
width = ubound(pic, 1) ; height = ubound(pic, 2) width = ubound(pic, 1) ; height = ubound(pic, 2)
coef = float(maxiter) coef = float(maxiter) / 12.3456789
do ix = 1, width do ix = 1, width
fx = cx + (float(ix) / (float(width)/4.0) - 2.0) 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) fy = cy + (float(iy) / (float(height)/4.0) - 2.0)
if (burps) then if (burps) then
pic(ix, iy) = int(fx * fy * coef * 1.005) pic(ix, iy) = mod(int(fx * fy * coef * 1.005), 250)
else else
pic(ix, iy) = int(fx * fy * coef) pic(ix, iy) = mod(int(fx * fy * coef), 250)
endif endif
enddo enddo
@ -45,7 +45,6 @@ subroutine parasites_0(pic, cx, cy, maxiter)
end subroutine parasites_0 end subroutine parasites_0
!=============================================================== !===============================================================
subroutine simple_julia(pic, cx, cy, maxiter) subroutine simple_julia(pic, cx, cy, maxiter)

4
Fraktalism/mods/Makefile
View File

@ -4,6 +4,10 @@
GFOPT = -Wall -Wextra -time -g GFOPT = -Wall -Wextra -time -g
all: xperiment.o points3d.o
points3d.o: points3d.f90 Makefile points3d.o: points3d.f90 Makefile
gfortran $(GFOPT) -c $< gfortran $(GFOPT) -c $<
xperiment.o: xperiment.f90 Makefile
gfortran $(GFOPT) -c $<

8
Fraktalism/mods/xperiment.f90
View File

@ -6,7 +6,7 @@ module xperiment
!=============================================================== !===============================================================
! nouveau 24 mai 2022 ! nouveau 24 mai 2022
subroutine parasites_0(pic, cx, cy, maxiter) subroutine parasites_1(pic, cx, cy, maxiter)
implicit none implicit none
! here is the wtf ! here is the wtf
@ -39,13 +39,13 @@ subroutine parasites_0(pic, cx, cy, maxiter)
enddo enddo
enddo enddo
end subroutine parasites_0 end subroutine parasites_1
!--------------------------------------------------------------- !---------------------------------------------------------------
! !
! aucune idee de l'utilisation de ce truc ! ! aucune idee de l'utilisation de ce truc !
! !
subroutine loop_of_parasites_0(nbre, mode) subroutine loop_of_parasites_1(nbre, mode)
implicit none implicit none
integer, intent(in) :: nbre, mode integer, intent(in) :: nbre, mode
@ -59,7 +59,7 @@ subroutine loop_of_parasites_0(nbre, mode)
enddo enddo
end subroutine loop_of_parasites_0 end subroutine loop_of_parasites_1
!=============================================================== !===============================================================
end module xperiment end module xperiment