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

fine tuning

Browse Source
This commit is contained in:
tTh 2023-02-15 17:41:17 +01:00
parent 87ff3d8815
commit 56ef22b4eb
5 changed files with 19 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
GravityField/.gitignore vendored
View File

@ -9,6 +9,7 @@ WS/*/*.pgm
WS/*/*.png WS/*/*.png
WS/*/*.gif WS/*/*.gif
WS/data/* WS/data/*
WS/log.*
*.pgm *.pgm
*.pnm *.pnm

12
GravityField/raytrace.sh
View File

@ -24,17 +24,17 @@ outfile=$(printf "WS/troid/%05d.png" $clock)
echo $timestamp $texte $outfile echo $timestamp $texte $outfile
convert ${TMPF} \ convert ${TMPF} \
-pointsize 22 \ -pointsize 24 \
-font Courier-Bold \ -font Courier-Bold \
-fill Orange \ -fill Yellow \
-annotate +15+22 "$timestamp" \ -annotate +20+32 "$timestamp" \
-annotate +15+48 "$texte" \ -annotate +20+58 "$texte" \
-pointsize 14 \ -pointsize 16 \
-gravity south-west \ -gravity south-west \
-annotate +15+9 "tTh & Konrad" \ -annotate +15+9 "tTh & Konrad" \
${outfile} ${outfile}
sleep 3 sleep 6
} }
# --------------------------------------- # ---------------------------------------

2
GravityField/realfield.f90
View File

@ -82,7 +82,7 @@ subroutine create_some_planets(planets, coef, sx, sy)
!- !-
planets(foo)%posx = rand() * real(sx-1) planets(foo)%posx = rand() * real(sx-1)
planets(foo)%posy = rand() * real(sy-1) planets(foo)%posy = rand() * real(sy-1)
planets(foo)%mass = 7.12e6 + coef*foo planets(foo)%mass = 7.12e6 + coef*foo*3
planets(foo)%heading = 2 * 3.141592654 * rand() planets(foo)%heading = 2 * 3.141592654 * rand()
if (rand() .LT. 0.15) planets(foo)%speed = 3.14159 if (rand() .LT. 0.15) planets(foo)%speed = 3.14159
planets(foo)%serial = foo*2 + 120 planets(foo)%serial = foo*2 + 120

2
GravityField/runme.sh
View File

@ -4,7 +4,7 @@ set -e # stop on error
make animation make animation
LOG="log.animation" LOG="WS/log.animation"
date >> $LOG date >> $LOG

15
GravityField/vision.pov
View File

@ -49,25 +49,30 @@ object { GravityField scale <4.10, 0.60, 4.10> }
// ---------------------------------------------------------------------- // ----------------------------------------------------------------------
/* XXX #if (0)
merge { merge {
cylinder { <0, -0.5, 0>, <0, 1, 0>, 0.0175 } cylinder { <0, -0.5, 0>, <0, 1, 0>, 0.0175 }
sphere { <0, 1, 0>, 0.0175 } sphere { <0, 1, 0>, 0.0175 }
pigment { color Red } pigment { color Red }
} }
XXX */ #end
light_source { < -2, 9.3, -7> color Gray90 } light_source { < -2, 9.3, -7> color Gray80 }
light_source { < -6, 9.3, -8> color Orange*0.65 } light_source { < -6, 9.3, -8> color Orange*0.65 }
light_source { < -15, 2.3, 17> color Gray70 } light_source { < -15, 2.3, 17> color Gray70 }
// ---------------------------------------------------------------------- // ----------------------------------------------------------------------
#declare Xcam = -5.05;
#declare Ycam = 2.5 - (1.7*NormClock);
#declare Zcam = -8 + (11.66*NormClock);
camera { camera {
location <-8, 4-(1.7*NormClock), -4 + (11.66*NormClock)> // omnimax
location <Xcam, Ycam, Zcam>
look_at <0, 0, 0> look_at <0, 0, 0>
right x*image_width/image_height right x*image_width/image_height
angle 33 angle 34
} }
// ---------------------------------------------------------------------- // ----------------------------------------------------------------------