diff --git a/sapin_noel.bin b/sapin_noel.bin index 89b53b7..1336651 100755 Binary files a/sapin_noel.bin and b/sapin_noel.bin differ 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;