big commit before big mess
This commit is contained in:
tth
1
Fraktalism/.gitignore
vendored
1
Fraktalism/.gitignore
vendored
@@ -7,6 +7,7 @@ evolvopick
|
||||
henon
|
||||
essai
|
||||
|
||||
frames/*
|
||||
WS/*.dat
|
||||
WS/*.txt
|
||||
WS/*.inc
|
||||
|
||||
@@ -11,10 +11,14 @@ mods/spitpgm.o: mods/spitpgm.f90 Makefile
|
||||
mods/points3d.o: mods/points3d.f90 Makefile
|
||||
gfortran $(GFOPT) -c $< -o $@
|
||||
|
||||
mods/xperiment.o: mods/xperiment.f90 Makefile
|
||||
gfortran $(GFOPT) -c $< -o $@
|
||||
|
||||
fraktals.o: fraktals.f90 Makefile
|
||||
gfortran $(GFOPT) -c $<
|
||||
|
||||
OBJS = mods/spitpgm.o mods/points3d.o fraktals.o
|
||||
OBJS = mods/spitpgm.o mods/points3d.o mods/xperiment.o \
|
||||
fraktals.o
|
||||
|
||||
# ---------------------------------------------
|
||||
|
||||
|
||||
@@ -8,8 +8,8 @@ qui montre ma première expérience dans ce domaine.
|
||||
|
||||
## La technique
|
||||
|
||||
Le gros des calculs de fractales est fait dans XXX, et la gestion
|
||||
des pixels 'physiques' est fait dans YYY
|
||||
Le gros des calculs de fractales est fait dans `mods/fraktals.f90`,
|
||||
et la gestion des pixels 'physiques' est fait dans `mods/spitpgm`.
|
||||
|
||||
Les fonctions d'usage général sont dans
|
||||
[mods/](répertoire mods/) ave trop peu
|
||||
|
||||
@@ -1,9 +1,36 @@
|
||||
!-----------------------------------------------------
|
||||
program essai
|
||||
|
||||
use spitpgm
|
||||
use fraktals
|
||||
use points3d
|
||||
use xperiment
|
||||
|
||||
implicit none
|
||||
|
||||
integer, dimension(:,:), allocatable :: picz
|
||||
integer :: W, H, foo
|
||||
integer :: errcode
|
||||
character(200) :: filename
|
||||
real :: kx, ky
|
||||
|
||||
write(0, *) "============= essai =============="
|
||||
|
||||
W = 320 ; H = 240
|
||||
|
||||
call srand(666)
|
||||
|
||||
allocate(picz(W,H), stat=errcode)
|
||||
|
||||
do foo=1, 360
|
||||
write (filename, "(a, i5.5, a)") "frames/popcorn/", foo, ".pnm"
|
||||
write(0, *) "-------->", trim(filename), "<"
|
||||
kx = 50.0 * sin(real(foo)*25.133)
|
||||
ky = 50.0 * cos(real(foo)*25.133)
|
||||
write(0, *) foo, kx, ky
|
||||
call parasites_0(picz, kx, ky, 233)
|
||||
call spit_as_pgm_8(picz, trim(filename))
|
||||
enddo
|
||||
|
||||
!-----------------------------------------------------
|
||||
end program
|
||||
|
||||
@@ -3,12 +3,51 @@ module fraktals
|
||||
use points3d
|
||||
|
||||
implicit none
|
||||
!-----------------------------------------------------
|
||||
|
||||
!-----------------------------------------------------
|
||||
contains
|
||||
|
||||
!-----------------------------------------------------
|
||||
!===============================================================
|
||||
! nouveau 28 mai 2022 (again)
|
||||
! source:
|
||||
! Fractal Creation with FRACTINT
|
||||
!
|
||||
subroutine parasites_0(pic, cx, cy, maxiter)
|
||||
implicit none
|
||||
|
||||
! here is the wtf
|
||||
integer, intent(inout), dimension (:,:) :: pic
|
||||
|
||||
real, intent(in) :: cx, cy
|
||||
integer, intent(in) :: maxiter
|
||||
|
||||
integer :: ix, iy, width, height
|
||||
real :: fx, fy, coef
|
||||
logical :: burps
|
||||
! write(0, *) "subroutine parasites_0" , maxiter
|
||||
! write(0, *) "constantes", cx, cy
|
||||
|
||||
width = ubound(pic, 1) ; height = ubound(pic, 2)
|
||||
coef = float(maxiter)
|
||||
|
||||
do ix = 1, width
|
||||
fx = cx + (float(ix) / (float(width)/4.0) - 2.0)
|
||||
burps = (RAND() .lt. 0.01)
|
||||
do iy = 1, height
|
||||
fy = cy + (float(iy) / (float(height)/4.0) - 2.0)
|
||||
|
||||
if (burps) then
|
||||
pic(ix, iy) = int(fx * fy * coef * 1.005)
|
||||
else
|
||||
pic(ix, iy) = int(fx * fy * coef)
|
||||
endif
|
||||
|
||||
enddo
|
||||
enddo
|
||||
|
||||
end subroutine parasites_0
|
||||
|
||||
|
||||
!===============================================================
|
||||
|
||||
subroutine simple_julia(pic, cx, cy, maxiter)
|
||||
implicit none
|
||||
integer, intent(inout), dimension (:,:) :: pic
|
||||
@@ -59,8 +98,8 @@ subroutine simple_julia(pic, cx, cy, maxiter)
|
||||
enddo ! ix
|
||||
|
||||
end subroutine simple_julia
|
||||
!-----------------------------------------------------
|
||||
!
|
||||
!===============================================================
|
||||
|
||||
! d'après les pages 91/92 du livre de Roger T Stevens
|
||||
! "Fractal programming in C"
|
||||
!
|
||||
@@ -130,7 +169,7 @@ subroutine plot_pickover(pic, count)
|
||||
|
||||
end subroutine plot_pickover
|
||||
|
||||
!-----------------------------------------------------
|
||||
!===============================================================
|
||||
!
|
||||
! d'après les pages NN/NN du livre de Roger T Stevens
|
||||
! "Fractal programming in C"
|
||||
@@ -144,15 +183,15 @@ subroutine lorentz_0(pic, count)
|
||||
! XXX double precision :: ka, kb, kc, kd
|
||||
! XXX integer :: i, w, h, px, py
|
||||
|
||||
|
||||
write(0, *) "proc lorentz_0, count is ", count
|
||||
|
||||
end subroutine lorentz_0
|
||||
|
||||
!-----------------------------------------------------------
|
||||
!===============================================================
|
||||
! -- some support functions --
|
||||
!-----------------------------------------------------------
|
||||
! usage : evolvopick & voxelize
|
||||
subroutine interp4dp (ina, inb, out, dpk)
|
||||
subroutine interp4dp (ina, inb, out, dpk)
|
||||
double precision, dimension(4), intent(in) :: ina, inb
|
||||
double precision, dimension(4), intent(out) :: out
|
||||
double precision, intent(in) :: dpk
|
||||
@@ -162,7 +201,7 @@ end subroutine lorentz_0
|
||||
out(foo) = (ina(foo) * (1.0-dpk)) + (inb(foo) * (dpk))
|
||||
enddo
|
||||
|
||||
end subroutine
|
||||
end subroutine
|
||||
!-----------------------------------------------------------
|
||||
|
||||
function dist0 (x, y)
|
||||
|
||||
@@ -57,7 +57,7 @@ do
|
||||
grep 'Parse Time' WS/toto.err
|
||||
grep 'Trace Time' WS/toto.err
|
||||
|
||||
echo ; sleep 10
|
||||
echo
|
||||
|
||||
done
|
||||
|
||||
|
||||
@@ -2,8 +2,10 @@
|
||||
|
||||
## Points 3d
|
||||
|
||||
Bientôt les quaternions ?
|
||||
|
||||
## Portable Net Map
|
||||
|
||||
.pgm
|
||||
Fichiers de type `PGM` utilisés ici en version 16 bits, donc
|
||||
65536 niveaux de gris.
|
||||
|
||||
|
||||
@@ -49,7 +49,8 @@ subroutine write_points3d(array, start, length, fname)
|
||||
open(newunit=io, file=fname)
|
||||
do i = 1, length
|
||||
j = i + start
|
||||
write(io, '(3F12.6)') array(j)%x, array(j)%y, array(j)%z
|
||||
write(io, '(3F12.6, I8)') &
|
||||
array(j)%x, array(j)%y, array(j)%z, array(j)%seq
|
||||
enddo
|
||||
close(io)
|
||||
|
||||
|
||||
65
Fraktalism/mods/xperiment.f90
Normal file
65
Fraktalism/mods/xperiment.f90
Normal file
@@ -0,0 +1,65 @@
|
||||
module xperiment
|
||||
|
||||
implicit none
|
||||
contains
|
||||
|
||||
!===============================================================
|
||||
! nouveau 24 mai 2022
|
||||
|
||||
subroutine parasites_0(pic, cx, cy, maxiter)
|
||||
implicit none
|
||||
|
||||
! here is the wtf
|
||||
integer, intent(inout), dimension (:,:) :: pic
|
||||
|
||||
real, intent(in) :: cx, cy
|
||||
integer, intent(in) :: maxiter
|
||||
|
||||
integer :: ix, iy, width, height
|
||||
real :: fx, fy, coef
|
||||
logical :: burps
|
||||
! write(0, *) "subroutine parasites_0" , maxiter
|
||||
! write(0, *) "constantes", cx, cy
|
||||
|
||||
width = ubound(pic, 1) ; height = ubound(pic, 2)
|
||||
coef = float(maxiter)
|
||||
|
||||
do ix = 1, width
|
||||
fx = cx + (float(ix) / (float(width)/4.0) - 2.0)
|
||||
burps = (RAND() .lt. 0.01)
|
||||
do iy = 1, height
|
||||
fy = cy + (float(iy) / (float(height)/4.0) - 2.0)
|
||||
|
||||
if (burps) then
|
||||
pic(ix, iy) = int(fx * fy * coef * 1.005)
|
||||
else
|
||||
pic(ix, iy) = int(fx * fy * coef)
|
||||
endif
|
||||
|
||||
enddo
|
||||
enddo
|
||||
|
||||
end subroutine parasites_0
|
||||
|
||||
!---------------------------------------------------------------
|
||||
!
|
||||
! aucune idee de l'utilisation de ce truc !
|
||||
!
|
||||
subroutine loop_of_parasites_0(nbre, mode)
|
||||
implicit none
|
||||
integer, intent(in) :: nbre, mode
|
||||
|
||||
integer :: idx
|
||||
|
||||
if (mode .NE. 0) STOP "BAD MODE"
|
||||
|
||||
do idx = 0, nbre
|
||||
|
||||
write(0, *) "popcorn loop ", idx
|
||||
|
||||
enddo
|
||||
|
||||
end subroutine loop_of_parasites_0
|
||||
|
||||
!===============================================================
|
||||
end module xperiment
|
||||
@@ -9,7 +9,7 @@ program voxelize
|
||||
|
||||
implicit none
|
||||
|
||||
integer, parameter :: DIMC = 180
|
||||
integer, parameter :: DIMC = 320
|
||||
integer, dimension(:,:,:), allocatable :: cube
|
||||
type(t_point3d), dimension(:), allocatable :: points
|
||||
integer :: errcode, foo, argc
|
||||
@@ -35,7 +35,7 @@ program voxelize
|
||||
STOP " : NO ENOUGH MEMORY FOR CUBE"
|
||||
endif
|
||||
|
||||
nbr_points = 7000000
|
||||
nbr_points = 9000000
|
||||
allocate(points(nbr_points), stat=errcode)
|
||||
if (0 .NE. errcode) then
|
||||
STOP " : NO ENOUGH MEMORY FOR POINTS"
|
||||
|
||||
Reference in New Issue
Block a user