From 72dce7118a106ed02facab2cb0949c0d3269fc33 Mon Sep 17 00:00:00 2001
From: Tobias Bora <tobias.bora@gmail.com>
Date: Wed, 11 Dec 2013 23:04:49 +0100
Subject: [PATCH] Minor : Add t and f for true/false.

---
 sapin_noel.bin | Bin 292316 -> 292324 bytes
 sapin_noel.ml  |   6 ++++--
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/sapin_noel.bin b/sapin_noel.bin
index 89b53b7f5104b0287199b0d7b3874f8938a2f91c..1336651acc49919801c2d3f1de882f79f0b8951f 100755
GIT binary patch
delta 98
zcmccfTJXth!G;#bElf%m*vyhFEKCgBH7+o1*SNrZzn(Rdfq@}oI!geHx+pJ@$q&SW
wK&%YJ!a&Tj-64Qwjf#Nm)RIUKoo_1F1Gkhc=@C3L{Z9$YdPbG$Yf4!R0H#?TG5`Po

delta 92
zcmaFzTJX+m!G;#bElf%m*iuuCk}Oi%H7+o1*SNrZzkWJ@0E>z!Hv<C$FA(zsu`&<~
r12NNfj{uf6Dgup`k#nn^8ee%Dh4?O>GoxfWODW5GMw#hbN?8m5MD-ib

diff --git a/sapin_noel.ml b/sapin_noel.ml
index 8d3f578..61bf295 100644
--- a/sapin_noel.ml
+++ b/sapin_noel.ml
@@ -45,11 +45,13 @@ let _ =
   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 *)
+  (* En mode pulse : *)
+  (* let reg = genReg 11 13 15 ~pulse:true in *)
   let reg = genReg 11 13 15 in
   (* On initialise *)
   let leds = initReg reg ~nb_reg:1 in
-
+  let t = true
+  and f = false in
   Printf.printf "Début\n%!";
   (* And a pretty animation *)
   anim_01 reg leds max_int;