blob: 6e7553fe293b3aed5d5186880572241ed8692f44 (
plain)
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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
|
#!/usr/bin/perl -w
# launch a gst-launch pipeline to display a visualisation of the
# input audio.
# make use of default input srcs.
# visualisation plugin is specified on command line.
### packages
use File::Basename;
my (%pipes, %cfg);
sub read_config
{
my $config_file = `echo -n ~`."/.gst";
if (-e $config_file)
{
open CONFIG, $config_file;
while (<CONFIG>)
{
chomp;
s/#.*//;
s/\s+$//;
next unless length;
my ($var, $value) = split (/\s*=\s*/, $_, 2);
$cfg{$var} = $value;
}
if (!($cfg{AUDIOSRC}))
{
print "Please add an AUDIOSRC to $config_file !\n";
}
if (!($cfg{VIDEOSINK}))
{
print "Please add a VIDEOSINK to $config_file !\n";
}
}
else
{
print "No configuration file $config_file found. You might want to create one.\n";
}
if (!defined $cfg{AUDIOSRC}) { $cfg{AUDIOSRC} = "esdmon"; }
if (!defined $cfg{VIDEOSINK}) { $cfg{VIDEOSINK} = "sdlvideosink"; }
if (!defined $cfg{CVS_PATH}) { $cfg{CVS_PATH} = `echo -n ~`."/gst/cvs"; }
}
sub visualise(@)
{
my $vis = $cfg{VISUALIZER};
$vis = shift() if ($#_ != -1);
$vis = "goom" unless $vis;
my $pipe;
$pipe = $vis unless $pipe = $pipes{$vis};
$command = "gst-launch $cfg{AUDIOSRC} ! $pipe ! { queue ! colorspace ! $cfg{VIDEOSINK} }";
print "Running $command\n";
system ("PATH=\$PATH:".$cfg{CVS_PATH}."/gstreamer/tools $command");
}
### main
read_config ();
%pipes = (
"goom", "goom",
"chart", "stereo2mono ! chart",
"synaesthesia", "synaesthesia",
"monoscope", "stereo2mono ! monoscope"
);
if ($#ARGV > 0) {
print STDERR "Usage: gst-visualise [visualiser]\n";
exit 1;
}
visualise(@ARGV);
|
