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

more experiments

Browse Source
This commit is contained in:
tth 2022-03-18 23:41:42 +01:00
parent 96834f5f21
commit 9dab731285
3 changed files with 15 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
BloubWorld/movebloubs.f90
View File

@ -58,7 +58,7 @@ program movebloubs
! moving, morphing and boundingboxing ! moving, morphing and boundingboxing
call move_bloub (bloub, 0.185) call move_bloub (bloub, 0.185)
call bound_a_blob (bloub) call bound_a_blob (bloub)
if (bloub%radius .GT. 0.0151) then if (bloub%radius .GT. 0.0155) then
bloub%radius = bloub%radius * 0.9970 bloub%radius = bloub%radius * 0.9970
endif endif
@ -87,11 +87,16 @@ program movebloubs
! ok, we have read all the bloubs in the input file ! ok, we have read all the bloubs in the input file
! insert some fancy conditional here ! insert some fancy conditional here
if (compteur .LT. 200) then
call add_more_bloubs(outu, 5, 0.1333)
endif
! insert some very fancy conditional here
if (compteur .LT. 3000) then if (compteur .LT. 3000) then
rnd = rand() rnd = rand()
write (0, '(A,1X,F9.6)') "try to add bloubs, rnd is", rnd write (0, '(A,1X,F9.6)') "try to add bloubs, rnd is", rnd
if (rnd .LT. 0.0450) then if (rnd .LT. 0.0455) then
call add_more_bloubs(outu, 24, 0.0990) call add_more_bloubs(outu, 24, 0.0999)
endif endif
endif endif
@ -115,7 +120,7 @@ contains
type(t_bloubs) :: bloub type(t_bloubs) :: bloub
integer :: foo, count integer :: foo, count
count = nbre+mod(irand(), 7) count = nbre+mod(irand(), 9)
write(0, '(A,I4,1X,A)') "adding", count, "bloubs" write(0, '(A,I4,1X,A)') "adding", count, "bloubs"
do foo=1, count do foo=1, count

6
BloubWorld/runme.sh
View File

@ -10,6 +10,7 @@ TMPPNG="/dev/shm/bloubs7.png"
POVOPT="+Q9 +a -v -d -W1600 -H1200 -WT2" POVOPT="+Q9 +a -v -d -W1600 -H1200 -WT2"
DDIR="frames/a" DDIR="frames/a"
LOGERR="log.error" LOGERR="log.error"
TXTCOLOR="RosyBrown"
# --- put the work file in ramdisk # --- put the work file in ramdisk
BLBS_IN="/dev/shm/in.blbs" BLBS_IN="/dev/shm/in.blbs"
@ -30,7 +31,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} 3000 ./genbloubs ${BLBS_IN} 3
for idx in $(seq 0 $((NBIMG-1)) ) for idx in $(seq 0 $((NBIMG-1)) )
do do
@ -54,12 +55,11 @@ do
convert ${TMPPNG} \ convert ${TMPPNG} \
-font Courier-Bold \ -font Courier-Bold \
-pointsize 24 \ -pointsize 24 \
-fill Yellow \ -fill "$TXTCOLOR" \
-gravity south-east \ -gravity south-east \
-annotate +25+5 "$td" \ -annotate +25+5 "$td" \
-gravity south-west \ -gravity south-west \
-annotate +25+5 "$hi" \ -annotate +25+5 "$hi" \
-fill Yellow \
-pointsize 48 \ -pointsize 48 \
-gravity north-east \ -gravity north-east \
-annotate +25+5 "$count" \ -annotate +25+5 "$count" \

6
BloubWorld/scene.pov
View File

@ -35,8 +35,8 @@ object {
union { union {
plane { <1, 0, 0>, -32 } plane { <1, 0, 0>, -32 }
plane { <1, 0, 0>, 32 } plane { <1, 0, 0>, 32 }
plane { <0, 1, 0>, -23 } plane { <0, 1, 0>, -24 }
plane { <0, 1, 0>, 23 } plane { <0, 1, 0>, 24 }
plane { <0, 0, 1>, 50 } plane { <0, 0, 1>, 50 }
texture { texture {
@ -50,7 +50,7 @@ object {
#declare BH = 5; // H = taille en horizontal #declare BH = 5; // H = taille en horizontal
#declare BV = 5; // V = taille en vertical #declare BV = 5; // V = taille en vertical
#declare BR = 0.028; #declare BR = 0.032;
#declare Une_Borne = object #declare Une_Borne = object
{ {