X-Git-Url: https://svn.cri.ensmp.fr/git/Faustine.git/blobdiff_plain/8c48d01c4b78dba6159c13438b06cb7e07a1f338..b8e89a384896a4f8ce3e1990a10c88e7164af55c:/interpretor/signal.ml diff --git a/interpretor/signal.ml b/interpretor/signal.ml index 2dd9f73..a32923e 100644 --- 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) ->