File: crossfade.liq

package info (click to toggle)
liquidsoap 2.4.0-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 12,372 kB
  • sloc: ml: 71,806; javascript: 27,320; ansic: 398; xml: 114; sh: 99; lisp: 96; makefile: 26
file content (41 lines) | stat: -rw-r--r-- 751 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
video.frame.rate.set(24)

a = sine(duration=20., 440.)
a =
  metadata.map(
    insert_missing=true,
    update=false,
    (fun (_) -> [("title", "a")]),
    a
  )

b = sine(duration=20., 880.)
b =
  metadata.map(
    insert_missing=true,
    update=false,
    (fun (_) -> [("title", "b")]),
    b
  )

s = sequence([a, b])

s = crossfade(s)

dup_a = ref(0)
dup_b = ref(0)

def check_duplicate(m) =
  if m["title"] == "a" then dup_a := dup_a() + 1 end
  if m["title"] == "b" then dup_b := dup_b() + 1 end
end

s.on_metadata(synchronous=true, check_duplicate)
clock.assign_new(sync="none", [s])

def on_stop() =
  if dup_a() == 1 and dup_b() == 1 then test.pass() else () end
end

o = output.dummy(fallible=true, s)
o.on_stop(synchronous=true, on_stop)