website_quarter_circle_ll.pl

Purpose: This script was written to create the lowerleft quarter circle of the main navigation bar on the site. It should be no surprise I wrote 3 more scripts generate the 3 other circle parts. I chose scripting these pictures over drawing them manually out of consciousness of my own lack of drawing skills.

Requirements: The GNU Image Manipulation Program, aka the GIMP and Perl

Output: Sample output image of the script 

#!/usr/bin/perl -w

use Gimp qw( :auto );
use Gimp::Fu;

#Gimp::set_trace(TRACE_CALL);

sub website_quarter_circle_ll {
        my $width=8;
        my $height=$width;
        my ($image,$layer);
        my $circle_color = [187,221,255];
        my $webpage_color = [255,255,255];

        gimp_palette_set_background($circle_color);

        $image = gimp_image_new($width, $height, RGB);
        $layer = gimp_layer_new($image, $width, $height, RGBA_IMAGE, "Button", 100, NORMAL_MODE);

        gimp_image_add_layer($image, $layer, 0);
    gimp_edit_clear($layer);


    gimp_ellipse_select($image,-0*$height, -1*$width, $width*2, $height*2, 0, 1, 0, 0.5);


    gimp_bucket_fill($layer, BG_BUCKET_FILL, NORMAL_MODE, 100, 0, 0, 5, 5);

        gimp_selection_invert($image);
        gimp_palette_set_background($webpage_color);
        gimp_bucket_fill($layer, BG_BUCKET_FILL, NORMAL_MODE, 100, 0, 0, 5, 5);
        gimp_selection_none($image);

        gimp_convert_indexed($image, 0, 0, 8,0,0, "");
                return $image;
    }

register
      "website_quarter_circle_ll",                 # fill in name 
      "Create Website Toolbar lowerleft corner button",  # a small description 
      "A script to create a quarter circle in Gimp",       # a help text 
      "Frederik Vanrenterghem",            # Your name 
      "",        # Your copyright 
      "2002-10-21",              # Date 
      "<Toolbox>/Xtns/Perl-Fu/Website/CreateQuarterCircleLL",   # menu path 
      "*",                       # Image types 
      [

      ],
      \&website_quarter_circle_ll;

exit main()