X-Git-Url: https://scm.cri.ensmp.fr/git/Faustine.git/blobdiff_plain/fc2ec49c325b99370170789886b4be4f43e16d68..b8e89a384896a4f8ce3e1990a10c88e7164af55c:/documentation/code_VALSignal.signal_delay.html
diff --git a/documentation/code_VALSignal.signal_delay.html b/documentation/code_VALSignal.signal_delay.html
deleted file mode 100644
index ef46fee..0000000
--- a/documentation/code_VALSignal.signal_delay.html
+++ /dev/null
@@ -1,37 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Signal.signal_delay
-
-
-let signal_delay s1 s2 =
- let s1_mem = factory_add_memory (signal_fun s1)
- (signal_macro_to_int Delay_Memory_Length_int) in
- let new_signal = fun t ->
- let delay = (signal_fun s2) t in
- match delay with
- |N i ->if i < 0 then raise (Signal_operation"Delay time < 0.")
- elseif (t - i) >= 0 then s1_mem (t - i)
- else v_zero (s1_mem 0)
- |R f ->let i = int_of_float f in
- if i < 0 then raise (Signal_operation"Delay time < 0.")
- elseif (t - i) >= 0 then s1_mem (t - i)
- else v_zero (s1_mem 0)
- |Vec (size, vec) -> raise (Signal_operation"Delay time can not be a vector.")
- |Zero-> s1_mem t
- |W-> raise (Signal_operation"Delay time error.")
- in
- (frequency s1, new_signal)
\ No newline at end of file