finetuning the mandelbrot
This commit is contained in:
parent
89d1cbda85
commit
6066dee701
|
@ -28,7 +28,7 @@ subroutine mandelbrot_one(pic, start)
|
|||
integer :: iter, maxiter
|
||||
logical :: escape
|
||||
|
||||
write(0,*) "> plotsomething"
|
||||
! write(0,*) "> plotsomething"
|
||||
|
||||
width = ubound(pic, 1)
|
||||
height = ubound(pic, 2)
|
||||
|
@ -37,7 +37,7 @@ subroutine mandelbrot_one(pic, start)
|
|||
|
||||
! initialise constants
|
||||
!
|
||||
maxiter = 1984
|
||||
maxiter = 3456
|
||||
|
||||
! enter megaloop
|
||||
!
|
||||
|
|
|
@ -23,9 +23,9 @@ program mkmandel
|
|||
|
||||
write(0, *) "-------- making some mandelbrot -------"
|
||||
|
||||
allocate(pic(1024, 768))
|
||||
allocate(pic(640, 480))
|
||||
|
||||
do angle = 0, 1500
|
||||
do angle = 0, 2000
|
||||
|
||||
call rgbpix_set_to_zero(pic)
|
||||
|
||||
|
@ -33,10 +33,10 @@ program mkmandel
|
|||
radius = float(angle) / 2000.0
|
||||
write (filename, "(a, i5.5, a)") "frames/mandel/", angle, ".pnm"
|
||||
! filename = trim(filename)
|
||||
write(0,*) "#### passe ", angle, radangle, trim(filename)
|
||||
write(0,*) "passe ", angle, radangle, trim(filename)
|
||||
|
||||
stx = radius * (sin(radangle*2.07) + 0.2131*sin(radangle*7.36))
|
||||
sty = radius * (cos(radangle*3.21) + 0.2725*cos(radangle*9.99))
|
||||
stx = radius * (sin(radangle*4.07) + 0.2131*sin(radangle*11.36))
|
||||
sty = radius * (cos(radangle*6.21) + 0.2725*cos(radangle*10.99))
|
||||
|
||||
call mandelbrot_one(pic, complex(stx, sty))
|
||||
call rgbpix_spit_as_pnm_8 (pic, trim(filename))
|
||||
|
|
Loading…
Reference in New Issue