Fortraneries/Fraktalism/mkjulia.f90

!-----------------------------------------------------
!           JULIA
!           =====
!    this is the main program
!-----------------------------------------------------

program julia

    use spitpgm
    use JULIAS
    use PIXRGB

    implicit none

    type(t_pixrgb), allocatable     ::    picz(:,:)
    integer                         ::    argc
    character(200)                  ::    filename, string
    real                            ::    cx, cy

    argc = IARGC()
    if (3 .NE. argc) then
      STOP ": MKJULIA PROGGY NEED 3 PARAMETERS !"
    endif

    call getarg(1, filename)
    call getarg(2, string)       ;   read (string, *) cx
    call getarg(3, string)       ;   read (string, *) cy

    allocate(picz(512, 342))

    call julia_colormapped(picz, cx, cy, 2500)
    call rgbpix_spit_as_pnm_8(picz, trim(filename))

  contains

!-----------------------------------------------------

end program

!-----------------------------------------------------