obscure bug fixed

Fraktalism/mods/fractcolmap.f90

@@ -58,17 +58,20 @@ subroutine fcolm_plot_mapfile(fname)
   write(0, *) ' -> fractcolmap plot map to [', fname, ']'
 
   allocate(prgb(512, 128), stat=errcode)
-  ! Please, add a molly-guard
   if (0 .NE. errcode) then
     write(0, *) "errcode allocate in plot_map: ", errcode
     STOP 'ABEND'
   endif
 
-  print *, ' FILE ', fname
+  call rgbpix_set_to_zero(prgb)
+
+  ! print *, ' FILE ', fname
   do ix = 1, 255
-     call fcolm_get_rgb(ix-1, rgb)
+     call fcolm_get_rgb(ix, rgb)
+
      xx = ix * 2
      ! print *, ix, xx, "  =>  ", rgb
+
      do iy=1, 128
        prgb(  xx, iy)%r = rgb(1)
        prgb(1+xx, iy)%r = rgb(1)
@@ -79,7 +82,9 @@ subroutine fcolm_plot_mapfile(fname)
      enddo
   enddo
 
-  ! push all the colred dats to disk
+  ! write(0, *) 'first pixel', prgb(1, 1)
+
+  !- push all the colred dats to disk
   call rgbpix_spit_as_pnm_8(prgb, fname)
 
   deallocate(prgb)