Erosion and dilasion by square successfully tested.

[Faustine.git] / interpretor / signal.ml

diff --git a/interpretor/signal.ml b/interpretor/signal.ml
index 2dd9f738663eedb73560c0ed672526dc201bf5fa..a32923eec26e8e02fb5c7489bf6ae8e8ed321df5 100644 (file)
--- a/interpretor/signal.ml
+++ b/interpretor/signal.ml
@@ -90,6 +90,8 @@ class signal : int -> (time -> value_type) -> signal_type =
        method _mod = self#prim2 (fun t -> (self#at t)#_mod)
        method larger = self#prim2 (fun t -> (self#at t)#larger)
        method smaller = self#prim2 (fun t -> (self#at t)#smaller)
+       method max = self#prim2 (fun t -> (self#at t)#max)
+       method min = self#prim2 (fun t -> (self#at t)#min)
 
        method delay : signal_type -> signal_type =
          fun (s : signal_type) ->