From a1c0bf6e34921495c864b8704cbbab61e345faf7 Mon Sep 17 00:00:00 2001
From: tTh <tth@konrad.lan>
Date: Fri, 23 Dec 2022 21:13:47 +0100
Subject: [PATCH] add a useless prog

---
 Fraktalism/.gitignore     |  1 +
 Fraktalism/Makefile       |  7 ++++++-
 Fraktalism/plotcolmap.f90 | 23 +++++++++++++++++++++++
 3 files changed, 30 insertions(+), 1 deletion(-)
 create mode 100644 Fraktalism/plotcolmap.f90

diff --git a/Fraktalism/.gitignore b/Fraktalism/.gitignore
index c02b080..e69b8b9 100644
--- a/Fraktalism/.gitignore
+++ b/Fraktalism/.gitignore
@@ -6,6 +6,7 @@ voxelize
 evolvopick
 henon
 essai
+plotcolmap
 
 frames/*
 WS/*.dat
diff --git a/Fraktalism/Makefile b/Fraktalism/Makefile
index 8f2628c..9be6a97 100644
--- a/Fraktalism/Makefile
+++ b/Fraktalism/Makefile
@@ -16,7 +16,7 @@ mods/xperiment.o:	mods/xperiment.f90 Makefile
 fraktals.o:	fraktals.f90 Makefile
 	gfortran $(GFOPT) -c $<
 
-OBJDEP  = mods/points3d.o mods/xperiment.o fraktals.o
+OBJDEP  = mods/points3d.o mods/xperiment.o fraktals.o mods/fractcolmap.o
 OBJS    = $(OBJDEP) ../Modules/spitpgm.o
 
 # ---------------------------------------------
@@ -24,6 +24,11 @@ OBJS    = $(OBJDEP) ../Modules/spitpgm.o
 essai:		essai.f90 Makefile $(OBJDEP)
 	gfortran $(GFOPT) $<  $(OBJS)    -o $@
 
+plotcolmap:	plotcolmap.f90 Makefile $(OBJDEP)
+	gfortran $(GFOPT) $<  $(OBJS)    -o $@
+
+# ---------------------------------------------
+
 henon:		henon.f90 Makefile $(OBJDEP)
 	gfortran $(GFOPT) $<  $(OBJS)    -o $@
 
diff --git a/Fraktalism/plotcolmap.f90 b/Fraktalism/plotcolmap.f90
new file mode 100644
index 0000000..62179f7
--- /dev/null
+++ b/Fraktalism/plotcolmap.f90
@@ -0,0 +1,23 @@
+program plotcolmap
+
+  use spitpgm
+  use fractcolmap
+
+  implicit none
+
+  integer             :: argc
+  character(200)      :: mapname, plotname
+
+! -------check for command line arguments
+  argc = IARGC()
+  if (2 .NE. argc) then
+    STOP 'BECAUSE I NEED TWO ARGS'
+  endif
+  call getarg(1, mapname)
+  call getarg(2, plotname)
+
+  call fcolm_infos('from plotcolmap')
+  call fcolm_load_mapfile(trim(mapname))
+  call fcolm_plot_mapfile(trim(plotname))
+
+end program
\ No newline at end of file