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

cramicule is comming !

Browse Source
This commit is contained in:
tTh
2026-06-25 10:09:03 +02:00
parent de43a1810c
commit d7da858380
21 changed files with 66 additions and 48 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Fraktalism/Makefile
View File

@@ -2,7 +2,7 @@
all: essai voxelize evolvopick pickover \
mkjulia mklorentz mkmandel
GFOPT = -Wall -Wextra -time -g -Imods/ -I../Modules
GFOPT = -Wall -Wextra -Imods/ -I../Modules
# ---------------------------------------------
# the module 'spitpgm' is now in $PROJECT/Modules

2
Fraktalism/common.sh
View File

@@ -1,4 +1,4 @@
POVOPT=" -d +q9 +a +W1920 +H1080 -v +WT4"
POVOPT=" -d +q9 +a +W800 +H600 -v +WT2"

6
Fraktalism/encode.sh
View File

@@ -25,15 +25,15 @@ echo "file type :" $filetype
#
case $filetype in
PNG) extension=".png" ;;
Netpbm) extension=".pgm" ;;
Netpbm) extension=".pnm" ;;
*) extension=".binary" ;;
esac
echo "extension :" $extension
TITLE='---{ voxelisation experimentale }---'
TITLE='---{ fortranerie experimentale }---'
ffmpeg -nostdin \
-loglevel warning \
-y -r 30 -f image2 -i $SDIR/%05d.png \
-y -r 30 -f image2 -i $SDIR/%05d$extension \
-metadata artist='--{ tTh des Bourtoulots }--' \
-metadata title="${TITLE}" \
-preset veryslow \

6
Fraktalism/julias.f90
View File

@@ -93,9 +93,9 @@ subroutine julia_colormapped(pic, cx, cy, mag, maxiter)
endif
end do
if (over_iter) then
pic(ix, iy)%r = mod(int(modulus2(Z)*2000.0), 255)
pic(ix, iy)%g = mod(abs(int(real(Z) *11.0)), 255)
pic(ix, iy)%b = mod(abs(int(aimag(Z)*11.0)), 255)
pic(ix, iy)%r = mod(int(modulus2(Z)*1337.0), 255)
pic(ix, iy)%g = mod(abs(int(real(Z) *17.0)), 255)
pic(ix, iy)%b = mod(abs(int(aimag(Z)*17.0)), 255)
print *, ix, iy, Z, modulus2(Z)
over = over + 1
else

4
Fraktalism/mandelbrots.f90
View File

@@ -42,10 +42,10 @@ subroutine mandelbrot_one(pic, start)
! enter megaloop
!
do iy = 1, height
fy = (float(iy) / float(height/3)) - 1.5
fy = (float(iy) / float(height/2)) - 1.0
!! print *, "line ", iy, fy
do ix = 1, width
fx = (float(ix) / float(width/3)) - 2.0
fx = (float(ix) / float(width/2)) - 1.4
!-------------------------------------
! working on the current pixel
za = start

8
Fraktalism/mkjuliagif.sh
View File

@@ -45,13 +45,13 @@ do
-font Courier-Bold \
-pointsize 20 \
-fill Yellow \
-annotate +15+34 $tcx \
-annotate +15+58 $tcy \
-gravity South-East \
-annotate +18+34 $tcx \
-annotate +18+58 $tcy \
-gravity South \
-font Courier \
-pointsize 14 \
-fill Yellow \
-annotate +10+6 "Konrad+tTh 2024" \
-annotate +0+9 "Konrad+tTh 2026" \
$img
done

3
Fraktalism/mkmandel.f90
View File

@@ -23,7 +23,7 @@ program mkmandel
write(0, *) "-------- making some mandelbrot -------"
allocate(pic(1920, 1080))
allocate(pic(1024, 780))
do angle = 0, 2000
@@ -35,6 +35,7 @@ program mkmandel
! filename = trim(filename)
write(0,*) "passe ", angle, radangle, trim(filename)
! compute the 'perturbation'
stx = radius * (sin(radangle*4.07) + 0.2131*cos(radangle*11.36))
sty = radius * (sin(radangle*6.21) + 0.2725*cos(radangle*10.99))

9
Fraktalism/mkvoxvidz.sh
View File

@@ -31,11 +31,11 @@ do
if [ $? -ne 0 ] ; then
echo "ERROR ERROR ERROR ERROR ERROR ERROR"
tail -15 WS/toto.err
sleep 20
sleep 200
#exit 1
fi
titre='Voxelisation - tTh - Avril 2022'
titre='Voxelisation - tTh - Juin 2026'
numbers=$(tail -1 WS/camvox.log | \
awk '{printf " K=%5d : %6.3f %6.3f %6.3f", \
$1, $2, $3, $4}')
@@ -45,11 +45,11 @@ do
convert ${TMPNG} \
-fill Orange \
-kerning 2 \
-pointsize 32 \
-font AvantGarde-Book \
-gravity South-West \
-pointsize 20 \
-annotate +20+45 "$titre" \
-pointsize 24 \
-pointsize 14 \
-annotate +20+10 "$numbers" \
\
$dst
@@ -62,3 +62,4 @@ do
done
./encode.sh frames/voxel/ voxel-3.mp4

6
Fraktalism/mods/README.md
View File

@@ -1,4 +1,4 @@
# Modules
# Modules fraktallistes
Premier point : trouver les bonnes options de gfortran pour
@@ -9,5 +9,7 @@ avec un script de build bien robuste.
Troisième point : Faire la [documentation](documentation.md)
Quatrilème point : Cultiver la techno-futilité.
Quatrillème point : Cultiver la techno-futilité, une des choses
qui nous évitera de devenir dingues dans ce monde actuel en
décomposition.

2
Fraktalism/mods/documention.md
View File

@@ -1,7 +1,7 @@
# La doc des modules (enfin !)
Non, détrompez-vous, ce n'est pas vraiment une doc, parce que
les codes des modules du fraktalisme est en perpétuelle évolution.
les codes des modules du fraktalisme sont en perpétuelle évolution.
## Points 3d

11
Fraktalism/showvoxels.pov
View File

@@ -7,7 +7,7 @@
#version 3.7;
global_settings {
ambient_light rgb <0.04, 0.04, 0.04>
ambient_light rgb <0.06, 0.06, 0.06>
assumed_gamma 1.0
}
//----------------------------------------------------------------
@@ -16,8 +16,7 @@ global_settings {
#declare VOXEL = object
{
// sphere { 0, 1.18 }
#local D = 2.11;
#local D = 3.85;
box { <-D, -D, -D>, <D, D, D> }
}
@@ -33,14 +32,13 @@ object {
*/
#local TRK = DIMC/2.0000000;
translate <-TRK, -TRK, -TRK>
// rotate <clock*0.22, 0, clock*0.17>
}
//----------------------------------------------------------------
#declare TriAxe = object
{
#local Sz = 300;
#local Ra = 0.20;
#local Ra = 0.25;
union {
cylinder { <-Sz, 0, 0>, <Sz, 0, 0>, Ra pigment { color Red } }
cylinder { <0, -Sz, 0>, <0, Sz, 0>, Ra pigment { color Green } }
@@ -62,7 +60,7 @@ plane {
light_source { <-29, 45, -27> color Gray70 }
light_source { <-52, 5, -48> color Yellow*0.45 }
light_source { < 59, 45, 48> color Gray20 }
light_source { < 59, -45, 48> color Gray20 }
light_source { < 59, -45, 48> color Gray40 }
light_source { < 9, 59, 18> color Red*0.65 }
light_source { < 8, -48, 3> color Green*0.75 }
@@ -97,4 +95,3 @@ camera {
}
//----------------------------------------------------------------
//----------------------------------------------------------------

2
Fraktalism/voxelize.f90
View File

@@ -9,7 +9,7 @@ program voxelize
implicit none
integer, parameter :: DIMC = 451
integer, parameter :: DIMC = 512
integer, dimension(:,:,:), allocatable :: cube
type(t_point3d), dimension(:), allocatable :: points
integer :: errcode, foo, argc