view release on metacpan or  search on metacpan

PixelsAndColor/manysq.pl  view on Meta::CPAN

my $height = 500;
my $background = 'blue';
my $fill = 'yellow';
my %opts = ();
getopts( 'w:h:b:f:', \%opts );
if( $opts{w} ) { $width = $opts{w} ; }
if( $opts{h} ) { $height = $opts{h} ; }
if( $opts{b} ) { $background = $opts{b} ; }
if( $opts{f} ) { $fill = $opts{f} ; }

sub set_of_squares( $$$$$$ ) {
	my( $c, $xA, $yA, $m, $p, $a ) = @_;
	my $xB = $xA + $a;
	my $yB = $yA;
	my $xC = $xB;
	my $yC = $yA + $a;
	my $xD = $xA;
	my $yD = $yC;
	my ($xA1,$xB1,$xC1,$xD1);
	my ($yA1,$yB1,$yC1,$yD1);
	my $q = 1 - $p; 

manysq/manysq.pl  view on Meta::CPAN

my $height = 500;
my $background = 'blue';
my $fill = 'yellow';
my %opts = ();
getopts( 'w:h:b:f:', \%opts );
if( $opts{w} ) { $width = $opts{w} ; }
if( $opts{h} ) { $height = $opts{h} ; }
if( $opts{b} ) { $background = $opts{b} ; }
if( $opts{f} ) { $fill = $opts{f} ; }

sub set_of_squares( $$$$$$ ) {
	my( $c, $xA, $yA, $m, $p, $a ) = @_;
	my $xB = $xA + $a;
	my $yB = $yA;
	my $xC = $xB;
	my $yC = $yA + $a;
	my $xD = $xA;
	my $yD = $yC;
	my ($xA1,$xB1,$xC1,$xD1);
	my ($yA1,$yB1,$yC1,$yD1);
	my $q = 1 - $p;