diff --git a/GrafAnim/.gitignore b/GrafAnim/.gitignore
new file mode 100644
index 0000000..3f5b0b4
--- /dev/null
+++ b/GrafAnim/.gitignore
@@ -0,0 +1,3 @@
+
+essai
+
diff --git a/GrafAnim/Makefile b/GrafAnim/Makefile
new file mode 100644
index 0000000..d6fbd53
--- /dev/null
+++ b/GrafAnim/Makefile
@@ -0,0 +1,12 @@
+#
+# Fortraneries by tTh - Graf Anim
+#
+
+GFOPT = -Wall -Wextra -g -time
+
+essai:	essai.f90 usegenplot.o Makefile
+	gfortran $(GFOPT) $< usegenplot.o -o $@
+
+usegenplot.o:	usegenplot.f90 Makefile
+	gfortran $(GFOPT) -c $<
+
diff --git a/GrafAnim/README.md b/GrafAnim/README.md
new file mode 100644
index 0000000..8ffac47
--- /dev/null
+++ b/GrafAnim/README.md
@@ -0,0 +1,5 @@
+# GrafAnim
+
+Quelques essais approximatifs pour faire des graphiques inutiles,
+dans une démarche mettant en avant la techno-futilité
+
diff --git a/GrafAnim/essai.f90 b/GrafAnim/essai.f90
new file mode 100644
index 0000000..95c67df
--- /dev/null
+++ b/GrafAnim/essai.f90
@@ -0,0 +1,13 @@
+program essai
+
+  use usegenplot
+  implicit none
+
+  ! integer                     :: foo, bar
+
+  write(0, *)   "------------ essai graf anim ---------------"
+
+  call init_genplot('essai.genplot')
+
+end program
+
diff --git a/GrafAnim/go.sh b/GrafAnim/go.sh
new file mode 100755
index 0000000..eb622cd
--- /dev/null
+++ b/GrafAnim/go.sh
@@ -0,0 +1,6 @@
+#!/bin/bash
+
+set -e
+
+make essai
+
diff --git a/GrafAnim/usegenplot.f90 b/GrafAnim/usegenplot.f90
new file mode 100644
index 0000000..2e5d24a
--- /dev/null
+++ b/GrafAnim/usegenplot.f90
@@ -0,0 +1,19 @@
+module usegenplot
+
+  implicit none
+  contains
+
+! -------------------------------------------------------------------
+
+subroutine init_genplot(filename)
+
+  character(200) :: filename
+
+  write(0, *)   '-------- init genplot '
+
+end subroutine
+
+! -------------------------------------------------------------------
+
+end module
+