fraktalist: refactoring in progress

Fraktalism/pickover.f90

@@ -6,25 +6,39 @@
 program pickover
 
     use spitpgm
+    use points3d 
     use fraktals
 
     implicit none
 
-    integer, dimension(800, 600)    ::    picz
-    integer                         ::    argc
-    character(200)                  ::    filename
+    integer, dimension(800, 600)               ::   picz
+    integer                                    ::   argc
+    character(200)                             ::   filename
+    double precision, dimension(4)             ::   coefs
+    type(t_point3d), dimension(:), allocatable ::   points
 
+    integer                                    ::  nbr_points
+    integer                                    ::  errcode
     argc = IARGC()
     if (1 .NE. argc) then
       STOP ": PICKOVER NEED A FILENAME !"
     endif
 
     call getarg(1, filename)
+    write (0, "(A)") " *** Pickover -> "//trim(filename)
 
-    write (0, "(A)") "Pickover -> "//trim(filename)
+    nbr_points = 999999
+    allocate(points(nbr_points), stat=errcode)
+    if (0 .NE. errcode) then
+      STOP " : NO ENOUGH MEMORY"
+    endif
 
-    call pickover_0(picz, 50000)
-    call spit_as_pgm_8(picz, trim(filename))
+    coefs(1) = 2.24     ;     coefs(2) = 0.43
+    coefs(3) = -0.65    ;     coefs(4) = -2.43
+
+
+    call compute_pickover(points, coefs)
+    call list_points3d(points, 2, 32000)
 
 end program