mirror of
https://github.com/game-stop/veejay.git
synced 2025-12-11 18:35:00 +01:00
44 lines
619 B
Perl
44 lines
619 B
Perl
|
|
# show multi mirrors,
|
|
# type 0,1 = vertical, 1,2 = horizontal
|
|
# count is meaningfull below ~30
|
|
|
|
my $len = 50;
|
|
|
|
print "355:;\n";
|
|
|
|
|
|
for(my $mode =0; $mode < 31; $mode++)
|
|
{
|
|
print "361:0 1 201 $mode;\n";
|
|
print "+$len\n";
|
|
}
|
|
|
|
|
|
for(my $mode=0; $mode < 23; $mode++)
|
|
{
|
|
for(my $val = 0; $val < 255; $val+=8)
|
|
{
|
|
print "361:0 1 207 $mode $val;\n";
|
|
}
|
|
for(my $val = 255; $val > 1; $val-=8)
|
|
{
|
|
print "361:0 1 207 $mode $val;\n";
|
|
}
|
|
}
|
|
|
|
|
|
for(my $mode=0; $mode < 31; $mode++)
|
|
{
|
|
for(my $val = 0; $val < 100; $val+=4)
|
|
{
|
|
print "361:0 1 202 $mode $val;\n";
|
|
}
|
|
for(my $val = 100; $val > 1; $val-=4)
|
|
{
|
|
print "361:0 1 202 $mode $val;\n";
|
|
}
|
|
}
|
|
|
|
|