dan
/
ocaml-wiringpi
mirror of https://github.com/co-dan/ocaml-wiringpi/
1
0
Fork 0
Code Issues Releases Wiki Activity

Minor : Add t and f for true/false.

This commit is contained in:
Tobias Bora 2013-12-11 23:04:49 +01:00
parent 076fc58545
commit 72dce7118a
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
sapin_noel.bin
View File

Binary file not shown.

6
sapin_noel.ml
View File

@ -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;