#!/usr/bin/perl -w
#
# "flowers.pl" -- uses the "spiral.pl" program to
# create colorful growing patterns.
#
# Uses Language::Logo (in conjunction with the spiral program) to create
# different-colored growing 'flowers'.
#
#  070113 by liverpole
#

# Strict
use strict;
use warnings;

# Libraries
use File::Basename;
use Getopt::Long;

# Globals
my $iam  = basename $0;
my $host = "";
my $b_toroid = 0;
my $b_reflect = 0;
my $syntax = "
    syntax:  $iam  [switches]  <angle>

    Uses Logo (in conjunction with the spiral program) to create
    different-colored growing 'flowers'.

    Try, for example, one of:

        $iam  33
        $iam  35.9
        $iam  36
        $iam  38
        $iam  90.1
        $iam  91
        $iam  100
        $iam  134
        $iam  300

    Switches:
        -t ............ 'toroidal' -- sets wrap to 1
        -r ............ 'reflection' -- sets wrap to 2
        -h <host> ..... connects to server on given host
";


# Command-line
my $result = GetOptions(
    "h=s" => \$host,
    "t"   => \$b_toroid,
    "r"   => \$b_reflect,
);
$result or die $syntax;
(my $angle = shift) or die $syntax;
my $args = "-x -c gold -u 1 -n 90 -s 50 -i .25";
$b_toroid and $args  .= " -t";
$b_reflect and $args .= " -r";
$host and $args .= " -h $host";

# Main program
system("spiral.pl $args $angle");