Files
veejay/veejay-current/veejay-server/test/examples/demo2.pl
Niels Elburg d8e6f98d53 Initial checkin of veejay 1.4
git-svn-id: svn://code.dyne.org/veejay/trunk@1172 eb8d1916-c9e9-0310-b8de-cf0c9472ead5
2008-11-10 20:16:24 +00:00

35 lines
701 B
Raku

# show multi mirrors,
# type 0,1 = vertical, 1,2 = horizontal
# count is meaningfull below ~30
for(my $k =0; $k < 2; $k++)
{
for(my $j = 0; $j < 20; $j ++)
{
# 1 frame delay before sending message
print "+1\n";
# preset effect 102 (multi mirrors)
# somewhere on the current playing clip/stream
# with sequenced parameters 0..3 0..25
print "361:0 -1 102 $k $j;\n";
}
}
for(my $k =1; $k != 0; $k--)
{
for(my $j = 20; $j != 0; $j --)
{
# 1 frame delay before sending message
print "+1\n";
# preset effect 102 (multi mirrors)
# somewhere on the current playing clip/stream
# with sequenced parameters 0..3 0..25
print "361:0 -1 102 $k $j;\n";
}
}
print "177:;\n";