+++ /dev/null
-<html>
-<head>
-<title>vanrenterghem.biz - website_quarter_circle_ll.pl.html</title>
-<meta name="Generator" content="Vim/6.1">
-<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-15">
-<meta name="author" content="Frederik Vanrenterghem">
-<META NAME="Description" CONTENT="Personal homepage - Gimp perl script">
-</head>
-<!--#include virtual="/header.shtml" -->
-<body bgcolor="#ffffff" text="#000000">
-
-<h1>website_quarter_circle_ll.pl</h1>
-<p>
-<b>Purpose:</b> 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.<br>
-</p>
-<p>
-
-<b>Requirements:</b> <a href="http://www.gimp.org">The GNU Image Manipulation Program, aka the GIMP</a> and <a href="http://www.perl.org">Perl</A>
-</p>
-<P>
-<b>Output:</b> <img src="/Pics/BBlowerleft.png" border="0" hspace="0" vspace="0" alt="Sample output image of the script" width="15" height="16">
-</P>
-<p>
-<table border="1" cellpadding="6" bgcolor="#ffeeee" width=100%><tr><td>
-<pre>
-<font color="#a020f0">#!/usr/bin/perl -w</font>
-
-<font color="#a52a2a"><b>use </b></font>Gimp <font color="#ff00ff">qw(</font><font color="#ff00ff"> :auto </font><font color="#ff00ff">)</font>;
-<font color="#a52a2a"><b>use </b></font>Gimp::Fu;
-
-<font color="#0000ff">#Gimp::set_trace(TRACE_CALL);</font>
-
-<font color="#a52a2a"><b>sub</b></font><font color="#008b8b"> </font><font color="#008b8b">website_quarter_circle_ll</font><font color="#008b8b"> </font>{
- <font color="#a52a2a"><b>my</b></font> <font color="#008b8b">$width</font>=<font color="#ff00ff">8</font>;
- <font color="#a52a2a"><b>my</b></font> <font color="#008b8b">$height</font>=<font color="#008b8b">$width</font>;
- <font color="#a52a2a"><b>my</b></font> (<font color="#008b8b">$image</font>,<font color="#008b8b">$layer</font>);
- <font color="#a52a2a"><b>my</b></font> <font color="#008b8b">$circle_color</font> = [<font color="#ff00ff">187</font>,<font color="#ff00ff">221</font>,<font color="#ff00ff">255</font>];
- <font color="#a52a2a"><b>my</b></font> <font color="#008b8b">$webpage_color</font> = [<font color="#ff00ff">255</font>,<font color="#ff00ff">255</font>,<font color="#ff00ff">255</font>];
-
- gimp_palette_set_background(<font color="#008b8b">$circle_color</font>);
-
- <font color="#008b8b">$image</font> = gimp_image_new(<font color="#008b8b">$width</font>, <font color="#008b8b">$height</font>, RGB);
- <font color="#008b8b">$layer</font> = gimp_layer_new(<font color="#008b8b">$image</font>, <font color="#008b8b">$width</font>, <font color="#008b8b">$height</font>, RGBA_IMAGE, <font color="#ff00ff">"</font><font color="#ff00ff">Button</font><font color="#ff00ff">"</font>, <font color="#ff00ff">100</font>, NORMAL_MODE);
-
- gimp_image_add_layer(<font color="#008b8b">$image</font>, <font color="#008b8b">$layer</font>, <font color="#ff00ff">0</font>);
- gimp_edit_clear(<font color="#008b8b">$layer</font>);
-
-
- gimp_ellipse_select(<font color="#008b8b">$image</font>,<font color="#ff00ff">-0</font>*<font color="#008b8b">$height</font>, <font color="#ff00ff">-1</font>*<font color="#008b8b">$width</font>, <font color="#008b8b">$width</font>*<font color="#ff00ff">2</font>, <font color="#008b8b">$height</font>*<font color="#ff00ff">2</font>, <font color="#ff00ff">0</font>, <font color="#ff00ff">1</font>, <font color="#ff00ff">0</font>, <font color="#ff00ff">0.5</font>);
-
-
- gimp_bucket_fill(<font color="#008b8b">$layer</font>, BG_BUCKET_FILL, NORMAL_MODE, <font color="#ff00ff">100</font>, <font color="#ff00ff">0</font>, <font color="#ff00ff">0</font>, <font color="#ff00ff">5</font>, <font color="#ff00ff">5</font>);
-
- gimp_selection_invert(<font color="#008b8b">$image</font>);
- gimp_palette_set_background(<font color="#008b8b">$webpage_color</font>);
- gimp_bucket_fill(<font color="#008b8b">$layer</font>, BG_BUCKET_FILL, NORMAL_MODE, <font color="#ff00ff">100</font>, <font color="#ff00ff">0</font>, <font color="#ff00ff">0</font>, <font color="#ff00ff">5</font>, <font color="#ff00ff">5</font>);
- gimp_selection_none(<font color="#008b8b">$image</font>);
-
- gimp_convert_indexed(<font color="#008b8b">$image</font>, <font color="#ff00ff">0</font>, <font color="#ff00ff">0</font>, <font color="#ff00ff">8</font>,<font color="#ff00ff">0</font>,<font color="#ff00ff">0</font>, <font color="#ff00ff">""</font>);
- <font color="#a52a2a"><b>return</b></font> <font color="#008b8b">$image</font>;
- }
-
-register
- <font color="#ff00ff">"</font><font color="#ff00ff">website_quarter_circle_ll</font><font color="#ff00ff">"</font>, <font color="#0000ff"># fill in name </font>
- <font color="#ff00ff">"</font><font color="#ff00ff">Create Website Toolbar lowerleft corner button</font><font color="#ff00ff">"</font>, <font color="#0000ff"># a small description </font>
- <font color="#ff00ff">"</font><font color="#ff00ff">A script to create a quarter circle in Gimp</font><font color="#ff00ff">"</font>, <font color="#0000ff"># a help text </font>
- <font color="#ff00ff">"</font><font color="#ff00ff">Frederik Vanrenterghem</font><font color="#ff00ff">"</font>, <font color="#0000ff"># Your name </font>
- <font color="#ff00ff">""</font>, <font color="#0000ff"># Your copyright </font>
- <font color="#ff00ff">"</font><font color="#ff00ff">2002-10-21</font><font color="#ff00ff">"</font>, <font color="#0000ff"># Date </font>
- <font color="#ff00ff">"</font><font color="#ff00ff"><Toolbox>/Xtns/Perl-Fu/Website/CreateQuarterCircleLL</font><font color="#ff00ff">"</font>, <font color="#0000ff"># menu path </font>
- <font color="#ff00ff">"</font><font color="#ff00ff">*</font><font color="#ff00ff">"</font>, <font color="#0000ff"># Image types </font>
- [
-
- ],
- <font color="#008b8b">\&website_quarter_circle_ll</font>;
-
-<font color="#a52a2a"><b>exit</b></font> main()
-</pre>
-
- </td></tr></table>
-</P>
-<!--#include virtual="/footer.shtml" -->
-</body>
-</html>