minor tweaks

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

View File

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

View File

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

View File

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

View File

@ -19,8 +19,8 @@ do
-gravity South-East \
-font Courier \
-pointsize 12 \
-fill Yellow \
-annotate +10+10 "tTh 2023" \
-fill firebrick \
-annotate +10+10 "Konrad+tTh 2023" \
$img
echo "tagging " $img