mirror of
https://github.com/game-stop/veejay.git
synced 2025-12-16 04:40:11 +01:00
23 lines
436 B
Perl
23 lines
436 B
Perl
|
|
print "310:/usr/local/lib/libvj_drawtext_plugin.so;\n";
|
|
print "+10\n";
|
|
for ( my $m = 0; $m < 200 ; $m ++ )
|
|
{
|
|
|
|
my @text = `/usr/games/fortune|tr -d [:cntrl:]`;
|
|
my $lines = join "\n", @text;
|
|
my $size = 12 + int(rand(15));
|
|
my $y = 10 + int(rand(400));
|
|
$lines =~ s/\n/\" \"/g;
|
|
$lines =~ s/":"//;
|
|
$lines =~ s/"="//;
|
|
$lines =~ s/";"//;
|
|
|
|
print "312:DrawText::text=$lines:size=$size:x=2:y=$y:rand=41;\n";
|
|
|
|
|
|
|
|
print "+200\n";
|
|
|
|
}
|