Files
veejay/veejay-26nov04/test/examples/swirl.nl
Niels Elburg 8993ffdb73 Initial revision
git-svn-id: svn://code.dyne.org/veejay/trunk@27 eb8d1916-c9e9-0310-b8de-cf0c9472ead5
2004-10-27 23:48:49 +00:00

26 lines
488 B
Plaintext

my $w = 0;
my $h = 0;
for(my $j = 0; $j != 360 ; $j ++)
{
# 1 frame delay before sending message
print "+1\n";
# preset effect 102 (multi mirrors)
# 0 on the current playing clip/stream
# with sequenced parameters 0..3 0..25
print "182:0 2 155 $j;\n";
print "+1\n";
print "182:0 4 142 $w $h 1;\n";
print "+1\n";
for(my $k = 2; $k < 8; $k++) {
print "182:0 6 141 $k 1;\n";
print "+1\n";
}
for(my $k = 8; $k > 2 ; $k--) {
print "182:0 6 141 $k 1;\n";
print "+1\n";
}
}