minor tweaks
This commit is contained in:
parent
5577bd1767
commit
aace571169
|
@ -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
|
||||
|
|
|
@ -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))
|
||||
|
|
|
@ -25,6 +25,8 @@ do
|
|||
|
||||
./mkjulia $img $cx $cy
|
||||
|
||||
sleep 145
|
||||
|
||||
done
|
||||
|
||||
./tagpicz.sh $workdir
|
||||
|
|
|
@ -15,12 +15,12 @@ fi
|
|||
for img in $SDIR/*.pnm
|
||||
do
|
||||
|
||||
mogrify \
|
||||
-gravity South-East \
|
||||
-font Courier \
|
||||
-pointsize 12 \
|
||||
-fill Yellow \
|
||||
-annotate +10+10 "tTh 2023" \
|
||||
mogrify \
|
||||
-gravity South-East \
|
||||
-font Courier \
|
||||
-pointsize 12 \
|
||||
-fill firebrick \
|
||||
-annotate +10+10 "Konrad+tTh 2023" \
|
||||
$img
|
||||
echo "tagging " $img
|
||||
|
||||
|
|
Loading…
Reference in New Issue