Help for this page

Select Code to Download


  1. or download this
    #
    #  Language::Logo.pm
    ...
    
    =cut
    
  2. or download this
    #!/usr/bin/perl -w
    #
    ...
    use warnings;
    use Language::Logo;
    my $lo = new Logo()->interact();
    
  3. or download this
    #!/usr/bin/perl -w
    #
    ...
            $size += $incr;
        }
    }
    
  4. or download this
    #!/usr/bin/perl -w
    #
    ...
    use warnings;
    
    system("spiral.pl -t -x -u 1 -n 10 -s 100 -w 8 -p 200,300 -i -.01 -a 8
    +5 95")
    
  5. or download this
    #!/usr/bin/perl -w
    #
    ...
    } else {
        system("flowers.pl -h : 324.4");
    }
    
  6. or download this
    #!/usr/bin/perl -w
    #
    ...
    
    # Main program
    system("spiral.pl $args $angle");
    
  7. or download this
    #!/usr/bin/perl -w
    #
    ...
        $lo->command("fd $dist");
        $lo->command("rt random $minang $maxang");
    }