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
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
call move_bloub (bloub, 0.185)
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
endif
@@ -87,11 +87,16 @@ program movebloubs
! ok, we have read all the bloubs in the input file
! 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
rnd = rand()
write (0, '(A,1X,F9.6)') "try to add bloubs, rnd is", rnd
if (rnd .LT. 0.0450) then
call add_more_bloubs(outu, 24, 0.0990)
if (rnd .LT. 0.0455) then
call add_more_bloubs(outu, 24, 0.0999)
endif
endif
@@ -115,7 +120,7 @@ contains
type(t_bloubs) :: bloub
integer :: foo, count
count = nbre+mod(irand(), 7)
count = nbre+mod(irand(), 9)
write(0, '(A,I4,1X,A)') "adding", count, "bloubs"
do foo=1, count