Minor modification in doc and add global variables in sapin_noel.ml

Makefile

@@ -1,3 +1,4 @@
+# This Makefile is really not optimized...
 CC=ocamlc
 OPT=-custom
 

README.org

@@ -5,8 +5,8 @@ and then
 : sudo ./sapin_noel.bin
 
 * Goal
-This script uses the wiringPi library http://wiringpi.com/ (thank you for your job) and adapt it in order to make it usable in Ocaml. Must common functions are implemented (see wiringPiOcaml.ml) but lot's a function aren't present for the moment. It's very simple to add these functions, so you can add them and if you want I can add your modifications.
+This script uses the wiringPi library http://wiringpi.com/ (thank you for your job) and adapts it in order to make it usable in Ocaml. Most common functions are implemented (see wiringPiOcaml.ml) but lot's of functions aren't present for the moment. It's very simple to add these functions, so you can add them and if you want I can add your modifications.
 
-There is too a little script to use shift registers.
+There is too a little script to use shift registers, and an example file named sapin_noel.ml.
 
 Enjoy !

sapin_noel.ml

@@ -1,6 +1,10 @@
 open WiringPiOcaml;;
 open ShiftReg;;
 
+let g_invert = false
+and g_pulse = false
+and g_nb_reg = 2
+
 (* Ici on utilise des fonctions plus souples mais moins agréables pour les tests. Pour voir les fonctions classiques, cf anim_01 *)
 let test reg leds =
   lightLeds leds;
@@ -60,17 +64,17 @@ let anim_02 reg leds n =
   done
 
 let _ =
+  let t = true
+  and f = false in
   (* On choisit le mode d'affichage Phys *)
   ignore(setupPhys ());
   (* reg : pin_value = p_v, pin_shift = p_s, pin_apply = p_a *)
   (* On crée le register *)
   (* En mode pulse : *)
   (* let reg = genReg 11 13 15 ~pulse:true in *)
-  let reg = genReg 11 13 15 ~invert:false in
+  let reg = genReg 11 13 15 ~invert:g_invert ~pulse:g_pulse in
   (* On initialise *)
-  let leds = initReg reg ~nb_reg:2 in
+  let leds = initReg reg ~nb_reg:g_nb_reg in
-  let t = true
-  and f = false in
   Printf.printf "Début\n%!";
   (* And a pretty animation *)
   anim_01 reg leds max_int;