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

naptime reached

Browse Source
This commit is contained in:
tTh
2026-09-20 10:47:43 +02:00
parent d7da858380
commit d8e3d1c01b
12 changed files with 35 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files
BloubWorld/bloubspace.f90
+4 -4
View File
@@ -104,7 +104,7 @@ module bloubspace
end subroutine
! ----------------------------------------------------------------
! Load a blbs file into an array of bloubs
! Write an array of bloubs
subroutine spit_bloubs_to_file (fname, blbarray, towrite)
implicit none
@@ -139,12 +139,12 @@ module bloubspace
enddo
close(output)
write(0, '(1X, "spitted ", I0, " bloubs to ", A)') &
write(0, '(1X, "spitted ", I6, " bloubs to ", A)') &
spitted, trim(fname)
end subroutine spit_bloubs_to_file
! ----------------------------------------------------------------
! Dump an array of bloubs to a blbs file.
! Read an array of bloubs from a blbs file.
!
subroutine slurp_bloubs_file_in_array (infile, blbarray, nbread)
implicit none
@@ -323,7 +323,7 @@ module bloubspace
implicit none
type(t_bloubs), intent (inout) :: blb
if (blb%age .gt. 240) then
if (blb%age .gt. 280) then
blb%alive = .FALSE.
endif
BloubWorld/genbloubs.f90
+1 -1
View File
@@ -33,7 +33,7 @@ program genbloubs
bloub%nick = 'noname '
bloub%num = i + 41
call make_a_random_bloub(bloub, 11.80)
call make_a_random_bloub(bloub, 13.37)
bloub%radius = 0.010 + (0.12*rand())
write(idu) bloub ! no error control ?
BloubWorld/mergebloubs.f90
+4 -4
View File
@@ -49,7 +49,7 @@ program mergebloubs
contacts = contacts + 1
call merge_two_bloubs(bloubs(ia), bloubs(ib), merged)
bloubs(ia) = merged
bloubs(ia)%nick = "marged"
bloubs(ia)%nick = "merged"
bloubs(ia)%state = 1;
bloubs(ib)%alive = .FALSE.
write(0, *) " *** merged ", ia, " and ", ib, &
@@ -98,9 +98,9 @@ contains
blr%vy = (bla%vy + blb%vy) / 2.0
blr%vz = (bla%vz + blb%vz) / 2.0
if (0.001 .GT. rand()) then
blr%vx = blr%vx * 1.04
blr%vy = blr%vy * 1.04
blr%vz = blr%vz * 1.04
blr%vx = blr%vx * 1.02
blr%vy = blr%vy * 1.02
blr%vz = blr%vz * 1.02
endif
blr%radius = (va + vb) ** 0.33335
BloubWorld/movebloubs.f90
+6 -6
View File
@@ -48,9 +48,9 @@ program movebloubs
compteur = 0
killed = 0
!-
!- ----------------
! begin of bigloop
!-
!- ----------------
do
read (unit=inu, iostat=errcode) bloub
if (0 .ne. errcode) then
@@ -99,16 +99,16 @@ program movebloubs
! insert some fancy conditional here for adding new
! bloubs to the bloubiverse
if (compteur .LT. 180) then
if (compteur .LT. 333) then
write (0, *) '... rearmement demographique ...'
call add_more_bloubs(outu, 19, 0.046)
call add_more_bloubs(outu, 42, 0.046)
endif
rnd = rand()
! write(0, *) 'rnd= ', rnd
if (rnd .LT. 0.18) then
if (rnd .LT. 0.22) then
write (0, *) '... the random of life ...'
call add_more_bloubs(outu, 15, 0.056)
call add_more_bloubs(outu, 19, 0.056)
endif
close(inu) ; close(outu)
BloubWorld/runme.sh
+6 -8
View File
@@ -7,8 +7,8 @@
INCFILE="WS/bloubs.inc"
TMPPNG="/dev/shm/bloubs7.png"
NBIMG=2000
POVOPT="+Q9 +a -v -d Declare=NbFrames=$NBIMG -W1200 -H900 -WT4"
NBIMG=3200
POVOPT="+Q9 +a -v -d Declare=NbFrames=$NBIMG -W1152 -H900 -WT2"
DDIR="frames/a"
LOGERR="log.error"
TXTCOLOR="#db4090"
@@ -32,7 +32,7 @@ fi
# first, we have to make a seminal buch of bloubs
# --> this function need to be parametrizable
#
./genbloubs ${BLBS_IN} 333
./genbloubs ${BLBS_IN} 9999
for idx in $(seq 0 $((NBIMG-1)) )
do
@@ -54,14 +54,14 @@ do
fi
td=$(date -u +'%F %R' | tr '01' 'ol')
hi=$(printf "\$%03x" $idx | tr '01' 'ol')
hi=$(printf "%03d" $idx | tr '01' 'ol')
count=$(tail -1 "WS/log.nb_bloubs" | tr '01' 'ol')
PNG=$(printf "%s/%05d.png" ${DDIR} $idx)
convert ${TMPPNG} \
-font Courier-Bold \
-pointsize 28 \
-pointsize 32 \
-fill "$TXTCOLOR" \
-gravity south-east \
-annotate +25+5 "$hi" \
@@ -75,9 +75,7 @@ do
./mergebloubs ${BLBS_OUT} ${BLBS_IN}
# mv ${BLBS_OUT} ${BLBS_IN}
echo "### run done"
sleep 15
sleep 19
done
rm $LOGERR
BloubWorld/scene.pov
+8 -8
View File
@@ -5,7 +5,7 @@
#version 3.7;
global_settings {
ambient_light rgb <0.14, 0.08, 0.08>
ambient_light rgb <0.14, 0.08, 0.28>
assumed_gamma 1.0
}
@@ -27,7 +27,7 @@ global_settings {
object {
Bloubs
finish { phong 0.47 specular 0.47 }
finish { phong 0.37 specular 0.67 }
}
#declare La_Boite = object
@@ -40,7 +40,7 @@ union {
plane { <0, 0, 1>, 69 }
texture {
pigment { color srgb <0.48, 0.54, 0.52> }
finish { phong 0.18 ambient 0.25 reflection 0.35 }
finish { phong 0.08 ambient 0.25 reflection 0.65 }
}
}
}
@@ -55,7 +55,7 @@ translate -6.20*y
sky_sphere {
pigment { color Gray20 }
emission rgb <0.01, 0.01, 0.01>
emission rgb <0.05, 0.05, 0.05>
}
// ----------------------------------------------------------
@@ -69,12 +69,12 @@ union {
cylinder { -SC*z, SC*z, 0.04 }
}
texture {
pigment { color Gray70 }
pigment { color Gray80 }
finish { emission 0.975 }
}
}
object { Croisillon scale 0.90 translate <Bary_X, Bary_Y, Bary_Z> }
// object { Croisillon scale 0.90 translate <Bary_X, Bary_Y, Bary_Z> }
// ----------------------------------------------------------
@@ -140,7 +140,7 @@ union {
}
}
object { Les_Bornes }
// object { Les_Bornes }
// ----------------------------------------------------------
#local D = 0.016;
@@ -169,7 +169,7 @@ light_source { <-14, 10-NormClock, -29> color Gray80 }
#declare XCAM = 20 - ( 40 * NormClock);
#declare YCAM = -1.1 + (2.26 * NormClock);
#declare ZCAM = -23.00;
#declare ACAM = 55 - (12*Cos_010(NormClock));
#declare ACAM = 75 - (12*Cos_010(NormClock));
#declare XLAT = 0;
#declare YLAT = 0;
BloubWorld/toinc.awk
+2 -2
View File
@@ -2,7 +2,7 @@
#
# Input for this script is generated by 'exportbloubs.f90'
#
# this code is (C) 2022 tTh
# this code is (C) 2026 tTh
#
BEGIN {
@@ -29,7 +29,7 @@ BEGIN {
if (age > 150) color = "DarkGreen"
else color = "Aquamarine"
}
if (age < 18) color = "Gray40"
if (age < 18) color = "Gray60"
if (age < 9) color = "LimeGreen"
# calcul barycentre
GrafAnim/Makefile
+1 -1
View File
@@ -2,7 +2,7 @@
# Fortraneries by tTh - Graf Anim
#
GFOPT = -Wall -Wextra -g -time -I../Modules
GFOPT = -Wall -Wextra -g -pg -I../Modules
MYLIB = '../Modules/libtth90modules.a'
# ---- programmes
GrafAnim/essai.f90
+1 -1
View File
@@ -94,6 +94,6 @@ subroutine iterator(img, x0, y0, nbi)
enddo
end subroutine
! ----------------------------------------------------------
end program
GrafAnim/noisepic.f90
-2
View File
@@ -42,8 +42,6 @@ program noisepic
contains
!-- ------------------------------------------------------------------
!--
!-- ------------------------------------------------------------------
subroutine make_noise_color_range_pic (seqv, rngs, nbre)
implicit none
integer, intent(in) :: seqv, nbre
GrafAnim/trigofest.f90
+1 -2
View File
@@ -32,7 +32,7 @@ program trigofest
STOP ': WORLD FINISHED'
contains !------------------------------------------
contains
!-------------------------------------------------------------
! Lowlevel functions
! ------------------
@@ -121,7 +121,6 @@ subroutine spirale(pic, inirad, param)
end subroutine
!-------------------------------------------------------------
!-------------------------------------------------------------
end program
Modules/twavm.f90
+1
View File
@@ -1,5 +1,6 @@
program twavm
! tests sur le machin wavmetrics
! new: Wed Feb 7 01:27:48 UTC 2024
use mathstuff2