#!/usr/local/bin/perl
# blcktrnl.pl - Generate block pattern to fit triangle
#
# Copyright 2015 David Meyer <
[email protected]> +JMJ
# (License and documentation at bottom of file.)
# Modules ###########################################################
#use strict;
use warnings;
use Getopt::Std;
use Math::Trig;
# Configuration #####################################################
# Globals ###########################################################
$SIN60D = sin(pi/3);
$TAN60D = tan(pi/3);
# Functions #########################################################
# Process arguments #################################################
%options = ();
getopts('', \%options);
# Main driver #######################################################
$r = shift;
print <<END;
<html>
<head>
<title>blcktrnl.pl output</title>
<body>
<table>
<tr>
END
$h = int($r * $SIN60D);
for $z (0 .. $h) {
for $x (0 .. $r-1) {
if ($z <= $x*$TAN60D && $z <= (-1*$x*$TAN60D + 2*$r*$SIN60D)) {
$result = '[]';
}
else {
$result = ' ';
}
print "<td>$result</td>";
}
print "</tr>\n";
}
print "</table>\n</body>\n</html>\n";
exit 0
__END__
# Documentation #####################################################
=head1 NAME
template.pl - Perl script template (command line)
=head1 SYNOPSIS/USAGE
=head1 DESCRIPTION
Mark up code elements with C<>, file names with F<> (or C<> for
readability), command names with B<>. Also I<> for italics, U<> for
underline. Entities: E<lt> ('<'), E<gt> ('>').
=head1 OPTIONS
=item B<-o> I<value>, B<--option>=I<value>
=head1 RETURN VALUE
=head1 ERRORS
=head1 DIAGNOSTICS
=head1 EXAMPLES
=head1 ENVIRONMENT
=over 6
=item VARIABLE
Description of usage of environment variable C<VARIABLE>.
=back
=head1 FILES
=head1 BUGS, LIMITATIONS, AND CAVEATS
=head1 NOTES
=head1 AUTHOR
David Meyer <
[email protected]>
=head1 HISTORY
=head1 COPYRIGHT AND LICENSE
Copyright 201x David Meyer
=head1 SEE ALSO
# Emacs control #####################################################
#Local variables:
#mode: perl
#End:
