This lab is also available in PDF.
Summary: In this laboratory, you will begin to investigate the ways in which you can use Scheme to script the GNU Image Manipulation Program. Because you will often be nesting procedures within other procedures, is important to keep in mind what your procedures are returning, and what you are giving procedures as arguments.
a. Start the GIMP by typing
gimp in a terminal window.
If you haven't run the GIMP before, you should allow the GIMP to
do the normal installation procedure.
b. Select Console from the Script-Fu menu available from under the Xtns menu in the primary GIMP palette. You should see a window appear with some text at the top and an entry box at the bottom. This is the console for interacting with Script-Fu, which is based on a variant of Scheme called SIOD.
c. Type a few, simple, one-line Scheme expressions to see what happens. For example, you might ask for a few simple sums, extract parts of lists, or whatever.
d. To do most of this lab, you will need to load our library of helper procedures, which you do with the command Load them with
If you're working on the lab at home, make
your own copy of
on your desktop and follow the instructions for loading it from
As the reading suggests, to create a new image you need to call
(create-image width height). You also
need to name that image so that you can refer to it later.
a. Define the width and height of your new image with something like the following.
(define width 256) (define height 384)
b. Create and name your new image with
(define image (create-image width height))
The image will not yet appear. Script-Fu assumes that you may want to do some things with the image before you show it on the screen. In this case, we have nothing to do first.
c. We're now ready to show the image. You need only one line.
d. Draw a bit in the image with the paint tool.
e. You can clear the image with the following sequence of commands:
(select-all image) (clear-selection image) (select-nothing image)
Try that sequence and ensure that it works as advertised.
a. As you know, in order to draw you need a foreground color and a background color. Let's try setting them to something simple.
(set-fgcolor RED) (set-bgcolor YELLOW)
If you wish, you can also set the color using a list of the individual red, green, and blue components, each of which must be a number between 0 and 255, inclusive.
(set-fgcolor (list 255 127 127))
b. Using the current pen, manually draw to ensure that the colors have worked correctly.
c. What do you expect to happen if you clear your drawing, using the commands given in the previous section?
d. Verify your answer experimentally.
e. Although you can set colors numerically, many people find it more
useful to refer to them with names. The name
provides a list of all the colors we've named. Look at that variable
(that is, type
colors as the current command)
and then pick an interesting foreground and background color.
In order to draw, you need to be able to select a paintbrush. As you
may recall from the reading, you set the brush with
a. Set the current brush to the small circle with
(set-brush "Circle (03)")
b. Verify that the command worked as expected.
c. What do you expect to happen if you try to set the brush to an
invalid name (e.g.,
d. Verify your answer experimentally.
e. Get a list of all brushes with
(list-brushes). You can
also get a list of just the circle brushes with
(list-brushes "Circle"). Set the brush to an interesting brush of your choice.
As many of you discovered on the first day, the simplest drawing technique
is to select something and then
stroke it. If you don't know,
telling the GIMP to apply the brush to a selection, cutting out the hassle of
drawing freehand with a mouse.
a. Use that technique to draw a box from Script-fu.
(select-rectangle image REPLACE 10 10 100 50) (stroke image) (select-nothing image)
b. Use that technique to draw a circle in a different color.
(set-fgcolor (list 255 0 0)) (select-ellipse image REPLACE 50 50 80 80) (stroke image) (select-nothing image)
c. Experiment with selecting more complex areas using the
INTERSECT options (instead of
Another way to draw in Scheme is to use the paintbrush to paint
a straight line. (Any more complex line can be broken down into
a series of small straight lines.) You draw a line with the
a. Draw a line from the upper-left-hand corner to the lower-right-hand corner with
(line image 0 0 width height)
b. Draw an isoceles triangle with width 50 and height 30 by drawing three appropriate lines.
c. Change the brush and color using Script-Fu commands and verify that the
line procedure now uses the current brush and foreground color.
a. Using the commands that you learned in the previous exercise, tell the GIMP to create a new image in which you use Script-Fu to draw something interesting (perhaps a smiley face, perhaps a stick figure, perhaps something more complicated).
b. What advantages, if any, are there to using Script-Fu to create that image?
a. Using the commands you have used in previous exercises, but not
write a series of instructions to make the GIMP draw something. You
should, of course, use the current brush, foreground color, and background
color in your simple illustration.
random foreground and background colors with
(set-fgcolor (list (random 256) (random 256) (random 256))) (set-bgcolor (list (random 256) (random 256) (random 256)))
c. Choose a
random brush using the following technique.
i. Make a list of potential brushes. For example,
(define brushes (list "Felt Pen" "Pencil Sketch" "Calligraphic Brush" "Circle Fuzzy (05)"))
ii. You can select a random element from that list using
(define some-brush (list-ref brushes (random (length brushes))))
iii. You can then set the brush with
d. Repeat the commands to draw the figure using the new color and brush.
I usually create these pages
on the fly, which means that I rarely
proofread them and they may contain bad grammar and incorrect details.
It also means that I tend to update them regularly (see the history for
more details). Feel free to contact me with any suggestions for changes.
This document was generated by
Siteweaver on Thu Sep 13 20:54:28 2007.
The source to the document was last modified on Tue Apr 3 09:55:05 2007.
This document may be found at
You may wish to validate this document's HTML ; ;Samuel A. Rebelsky, email@example.com
http://creativecommons.org/licenses/by-nc/2.5/or send a letter to Creative Commons, 543 Howard Street, 5th Floor, San Francisco, California, 94105, USA.