33 lines
414 B
Perl
33 lines
414 B
Perl
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
package main;
|
||
|
|
|
||
|
|
use warnings;
|
||
|
|
use strict;
|
||
|
|
|
||
|
|
use lib './';
|
||
|
|
use LPST;
|
||
|
|
|
||
|
|
my $b;
|
||
|
|
|
||
|
|
# my $m1 = "F7";
|
||
|
|
# my $m1 = "C10";
|
||
|
|
# my $m2 = "B3";
|
||
|
|
# my $c1 = $MG_SY;
|
||
|
|
# my $c2 = $MG_A;
|
||
|
|
|
||
|
|
# $board{$m1} = $P1.$DIV.$c1;
|
||
|
|
# $board{$m2} = $P2.$DIV.$c2;
|
||
|
|
|
||
|
|
# for my $el (get_block_cell($P1)){
|
||
|
|
# printf("%s\n", $el);
|
||
|
|
# }
|
||
|
|
|
||
|
|
# shade_all_mvmt($P1);
|
||
|
|
# disp_board();
|
||
|
|
|
||
|
|
$b = LPST->new();
|
||
|
|
|
||
|
|
$b->shade_all_mvmt("P1");
|
||
|
|
$b->disp_board();
|