nice work done on Julia set

2023-01-03 01:22:40 +01:00
parent 0e73e47272
commit b707b784bf
5 changed files with 109 additions and 10 deletions
--- a/Fraktalism/mkjulia.f90
+++ b/Fraktalism/mkjulia.f90
@@ -8,10 +8,11 @@ program julia

    use spitpgm
    use JULIAS
+    use PIXRGB

    implicit none

-    integer, dimension(640, 480)    ::    picz
+    type(t_pixrgb), allocatable     ::    picz(:,:)
    integer                         ::    argc
    character(200)                  ::    filename, string
    real                            ::    cx, cy
@@ -25,8 +26,10 @@ program julia
    call getarg(2, string)       ;   read (string, *) cx
    call getarg(3, string)       ;   read (string, *) cy

-    call simple_julia(picz, cx, cy, 3500)
-    call spit_as_pgm_8(picz, trim(filename))
+    allocate(picz(640, 480))
+
+    call julia_colormapped(picz, cx, cy, 500)
+    call rgbpix_spit_as_pnm_8(picz, trim(filename))

 end program