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

minor tweaks

Browse Source
This commit is contained in:
tTh 2023-05-07 10:35:48 +02:00
parent 5577bd1767
commit aace571169
4 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Fraktalism/julias.f90
View File

@ -86,8 +86,8 @@ subroutine julia_colormapped(pic, cx, cy, maxiter)
pic(ix, iy)%b = mod(abs(int(aimag(Z)*140)), 255) pic(ix, iy)%b = mod(abs(int(aimag(Z)*140)), 255)
else else
pic(ix, iy)%r = mod(iter*33, 255) pic(ix, iy)%r = mod(iter*33, 255)
pic(ix, iy)%g = mod(iter*29, 255) pic(ix, iy)%g = mod(iter*59, 255)
pic(ix, iy)%b = mod(iter*21, 255) pic(ix, iy)%b = mod(iter*41, 255)
endif endif
enddo ! iy enddo ! iy
enddo ! ix enddo ! ix

2
Fraktalism/mkjulia.f90
View File

@ -26,7 +26,7 @@ program julia
call getarg(2, string) ; read (string, *) cx call getarg(2, string) ; read (string, *) cx
call getarg(3, string) ; read (string, *) cy call getarg(3, string) ; read (string, *) cy
allocate(picz(640, 480)) allocate(picz(512, 342))
call julia_colormapped(picz, cx, cy, 500) call julia_colormapped(picz, cx, cy, 500)
call rgbpix_spit_as_pnm_8(picz, trim(filename)) call rgbpix_spit_as_pnm_8(picz, trim(filename))

2
Fraktalism/mkjuliagif.sh
View File

@ -25,6 +25,8 @@ do
./mkjulia $img $cx $cy ./mkjulia $img $cx $cy
sleep 145
done done
./tagpicz.sh $workdir ./tagpicz.sh $workdir

12
Fraktalism/tagpicz.sh
View File

@ -15,12 +15,12 @@ fi
for img in $SDIR/*.pnm for img in $SDIR/*.pnm
do do
mogrify \ mogrify \
-gravity South-East \ -gravity South-East \
-font Courier \ -font Courier \
-pointsize 12 \ -pointsize 12 \
-fill Yellow \ -fill firebrick \
-annotate +10+10 "tTh 2023" \ -annotate +10+10 "Konrad+tTh 2023" \
$img $img
echo "tagging " $img echo "tagging " $img