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

Bourtoulots laboratories in the place

Browse Source
This commit is contained in:
tTh
2026-05-31 23:44:58 +02:00
parent c3f27c9843
commit 8e14ec2c8d
6 changed files with 12 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
BloubWorld/runme.sh
View File

@@ -7,7 +7,7 @@
INCFILE="WS/bloubs.inc" INCFILE="WS/bloubs.inc"
TMPPNG="/dev/shm/bloubs7.png" TMPPNG="/dev/shm/bloubs7.png"
POVOPT="+Q9 +a -v -d -W1024 -H768 -WT2" POVOPT="+Q9 +a -v -d -W1920 -H1080 -WT4"
DDIR="frames/a" DDIR="frames/a"
LOGERR="log.error" LOGERR="log.error"
TXTCOLOR="#db4090" TXTCOLOR="#db4090"
@@ -34,7 +34,7 @@ printf "\n#declare NbImg = %d;\n" $NBIMG > WS/nbimg.inc
# first, we have to make a seminal buch of bloubs # first, we have to make a seminal buch of bloubs
# --> this function need to be parametrizable # --> this function need to be parametrizable
# #
./genbloubs ${BLBS_IN} 2 ./genbloubs ${BLBS_IN} 2000
for idx in $(seq 0 $((NBIMG-1)) ) for idx in $(seq 0 $((NBIMG-1)) )
do do
@@ -82,7 +82,7 @@ do
# mv ${BLBS_OUT} ${BLBS_IN} # mv ${BLBS_OUT} ${BLBS_IN}
echo "### run done" echo "### run done"
sleep 35 sleep 5
done done

2
Fraktalism/encode.sh
View File

@@ -36,7 +36,7 @@ TITLE='---{ experimental }---'
ffmpeg -nostdin \ ffmpeg -nostdin \
-loglevel warning \ -loglevel warning \
-y -r 30 -f image2 -i $SDIR/%05d.pnm \ -y -r 30 -f image2 -i $SDIR/%05d.png \
-metadata artist='---{ tTh }---' \ -metadata artist='---{ tTh }---' \
-metadata title="${TITLE}" \ -metadata title="${TITLE}" \
-preset veryslow \ -preset veryslow \

8
Fraktalism/voxelize.f90
View File

@@ -9,7 +9,7 @@ program voxelize
implicit none implicit none
integer, parameter :: DIMC = 320 integer, parameter :: DIMC = 451
integer, dimension(:,:,:), allocatable :: cube integer, dimension(:,:,:), allocatable :: cube
type(t_point3d), dimension(:), allocatable :: points type(t_point3d), dimension(:), allocatable :: points
integer :: errcode, foo, argc integer :: errcode, foo, argc
@@ -19,7 +19,7 @@ program voxelize
double precision :: dmaxcube, delta double precision :: dmaxcube, delta
character(200) :: filename, string character(200) :: filename, string
write(0, *) "--- start of voxelize" write(0, *) "--------- start of voxelize -------------------"
argc = IARGC() argc = IARGC()
if (2 .NE. argc) then if (2 .NE. argc) then
@@ -43,7 +43,7 @@ program voxelize
KA(1) = -1.3402 ; KA(2) = 1.5245 KA(1) = -1.3402 ; KA(2) = 1.5245
KA(3) = 1.0966 ; KA(4) = -2.3423 KA(3) = 1.0966 ; KA(4) = -2.3423
KB(1) = -1.2100 ; KB(2) = 1.3685 KB(1) = -1.2333 ; KB(2) = 1.3685
KB(3) = 1.3237 ; KB(4) = -2.3992 KB(3) = 1.3237 ; KB(4) = -2.3992
call interp4dp(KA, KB, KM, delta) call interp4dp(KA, KB, KM, delta)
write(0, "(' --- coefs = ', 4F11.6)") KM write(0, "(' --- coefs = ', 4F11.6)") KM
@@ -80,7 +80,7 @@ subroutine fcoor2icoor(in, out)
integer :: outvalue integer :: outvalue
invalue = (in + 2.0) / 2.0 invalue = (in + 2.0) / 2.0
outvalue = int(invalue * real(DIMC/2)) outvalue = int(invalue * real(DIMC/2.0))
! add molly-guard here ! add molly-guard here
out = outvalue out = outvalue

2
GrafAnim/noisepic.f90
View File

@@ -35,7 +35,7 @@ program noisepic
r5 = 29000 + 23000 * cos(fclock*32) r5 = 29000 + 23000 * cos(fclock*32)
ranges(5) = nint(r5) ; ranges(6) = ranges(5)+300 ranges(5) = nint(r5) ; ranges(6) = ranges(5)+300
print *, 'r123', numframe, fclock, r1, r3, r5 print *, numframe, fclock, r1, r3, r5
call make_noise_color_range_pic (numframe, ranges, 29000) call make_noise_color_range_pic (numframe, ranges, 29000)
enddo enddo

4
GravityField/animation.f90
View File

@@ -15,7 +15,7 @@ program animation
! some configuration constants ! some configuration constants
integer, parameter :: S_WIDTH = 2048 integer, parameter :: S_WIDTH = 2048
integer, parameter :: S_HEIGHT = 2048 integer, parameter :: S_HEIGHT = 2048
integer, parameter :: NB_BODY = 250 integer, parameter :: NB_BODY = 666
!!! WARNING : global variable !!! !!! WARNING : global variable !!!
type(massbody) :: planets(NB_BODY) type(massbody) :: planets(NB_BODY)
@@ -24,7 +24,7 @@ program animation
call create_some_planets(planets, 1664e3, S_WIDTH , S_HEIGHT) call create_some_planets(planets, 1664e3, S_WIDTH , S_HEIGHT)
call print_barycentre_bodies(planets, 'begin') call print_barycentre_bodies(planets, 'begin')
call la_grande_boucle(0, 2000, planets) call la_grande_boucle(0, 4000, planets)
STOP ': YOLO TIME *NOW*' STOP ': YOLO TIME *NOW*'