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

minor tweaks

Browse Source
This commit is contained in:
tth 2022-02-09 00:42:32 +01:00
parent c35c00e3da
commit 0934b49bc6
4 changed files with 14 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
BloubWorld/bloubspace.f90
View File

@ -23,7 +23,7 @@ module bloubspace
subroutine random_pv (blb) subroutine random_pv (blb)
type(t_bloubs), intent (inout) :: blb type(t_bloubs), intent (inout) :: blb
blb%px = 2.0 * (rand() - 0.50) blb%px = 1.3 * (rand() - 0.50)
blb%py = rand() * 0.50 blb%py = rand() * 0.50
blb%pz = 2.0 * (rand() - 0.50) blb%pz = 2.0 * (rand() - 0.50)

5
BloubWorld/movebloubs.f90
View File

@ -58,7 +58,7 @@ program movebloubs
call bound_a_blob (bloub) call bound_a_blob (bloub)
call green_soylent (bloub) call green_soylent (bloub)
if (.NOT. bloub%alive) then if (.NOT. bloub%alive) then
write(0, '(A)') " KILL!" ! write(0, '(A)') " KILL!"
killed = killed + 1 killed = killed + 1
cycle cycle
endif endif
@ -89,7 +89,10 @@ program movebloubs
close(inu) ; close(outu) close(inu) ; close(outu)
if (killed .GT. 0) then
write (0, '(I5, A)') killed, " bloubs killed" write (0, '(I5, A)') killed, " bloubs killed"
endif
bx = bx / dble(compteur) bx = bx / dble(compteur)
by = by / dble(compteur) by = by / dble(compteur)
bz = bz / dble(compteur) bz = bz / dble(compteur)

10
BloubWorld/runme.sh
View File

@ -11,7 +11,7 @@ POVOPT="+Q9 +a -v -d -W920 -H600"
DDIR="frames" DDIR="frames"
LOGERR="log.error" LOGERR="log.error"
NBIMG=3000 NBIMG=4000
make all make all
err=$? err=$?
@ -26,7 +26,7 @@ printf "\n#declare NbImg = %d;\n" $NBIMG > 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 paraletrizable # --> this function need to be paraletrizable
# #
./genbloubs in.blbs 6000 ./genbloubs in.blbs 9000
for idx in $(seq 0 $NBIMG) for idx in $(seq 0 $NBIMG)
do do
@ -51,7 +51,7 @@ do
convert ${TMPPNG} \ convert ${TMPPNG} \
-font fixed \ -font fixed \
-pointsize 20 \ -pointsize 20 \
-fill Yellow \ -fill Orange \
-gravity south-east \ -gravity south-east \
-annotate +15+10 "$txt" \ -annotate +15+10 "$txt" \
$PNG $PNG
@ -66,8 +66,8 @@ done
rm $LOGERR rm $LOGERR
convert -delay 10 -resize 50% -colors 192 \ # XXX convert -delay 10 -resize 50% -colors 192 \
$DDIR/????[0]*.png foo.gif # XXX $DDIR/????[0]*.png foo.gif
./encode.sh ./encode.sh

6
BloubWorld/scene.pov
View File

@ -45,7 +45,7 @@ plane {
{ {
union { union {
cylinder { <0, 0, 0>, <0, BV, 0>, BR } cylinder { <0, 0, 0>, <0, BV, 0>, BR }
cylinder { <0, 0, 0>, <0, 0.02, 0>, BR*8 } cylinder { <0, 0, 0>, <0, 0.02, 0>, BR*7 }
} }
} }
@ -66,11 +66,11 @@ object { Les_Bornes }
light_source { <4, 12, -11> color Gray80 } light_source { <4, 12, -11> color Gray80 }
light_source { <7, 19, 9> color Gray60 } light_source { <7, 19, 9> color Gray60 }
#declare HCAM = 5 + (5 * NormClock); #declare HCAM = 5 + (7 * NormClock);
camera { camera {
location <6, HCAM, -16> location <6, HCAM, -16>
look_at <0, 0, 0> look_at <0, 0, 0>
right x*image_width/image_height right x*image_width/image_height
angle 52 angle 48
} }