Re: Icons needed ..

[Heikki Johannes Junes]

On Thu, 29 Aug 2002, Han-Wen Nienhuys wrote:
>
> address@hidden writes:
> > Scarcely.  You probably won't identfy lily any more when the logo is
> > compressed to 16x16.  For such a small icon, you probably need some sort
> > of simple structured, colored painting (a colored picture contains more
> > information for the eyes to recognize than a b/w one) rather than a b/w
> > hand-drawing with subtle thin lines.
> >
> > Still, I like the current logo, as long as it is displayed in larger
> > scale.
>
> Well, I'm the `artist', but I don't feel like designing a new icon. Go
> ahead.
>

Here you are! It was a pleasure to learn GIMP scripts, although saving
worked only manually (right-clicking the image), i.e., by not using a
script.

; Step 1. OPEN GIMP and from the menu GIMP -> Xnts -> Script-fu ->
Console..

; Step 2. COPY AND PASTE ONE OF THE LISTS BELOW TO THE CONSOLE
(list
(set! lilyName "/home/lilypond/Documentation/pictures/lelieblond.xpm")
(set! lilyNewName "~/rpm/SOURCE/lilypond-16x16.png")
(set! imagesize 16)
)

(list
(set! lilyName "/home/lilypond/Documentation/pictures/lelieblond.xpm")
(set! lilyNewName "~rpm/SOURCE/lilypond-32x32.png")
(set! imagesize 32)
)

(list
(set! lilyName "/home/lilypond/Documentation/pictures/lelieblond.xpm")
(set! lilyNewName "~rpm/SOURCE/lilypond-48x48.png")
(set! imagesize 48)
)

; Step 3. COPY AND PASTE THE LIST BELOW TO THE CONSOLE
(list
(set! lilyImg (car (file-xpm-load 1 lilyName lilyName)))
(gimp-palette-set-foreground '(0 0 0))
(gimp-palette-set-background '(255 255 255))
(gimp-image-resize lilyImg 836 836 (/ (- 836 582) 2) 0)
(set! botLayer (car (gimp-image-get-active-layer lilyImg)))
(gimp-layer-resize botLayer 836 836 (/ (- 836 582) 2) 0)
(set! topLayer (car (gimp-layer-copy botLayer lilyImg)))
(gimp-image-add-layer lilyImg topLayer -1)

(gimp-by-color-select topLayer '(0 0 0) 15 REPLACE FALSE 0 0 0)
(gimp-selection-grow lilyImg 10)
(gimp-bucket-fill topLayer 0 0 100 0 0 100 700)
(gimp-selection-invert lilyImg)
(gimp-rect-select lilyImg 0 0 340 150 0 0 0)
(gimp-rect-select lilyImg 540 0 100 40 0 0 0)
(gimp-rect-select lilyImg 0 400 242 205 0 0 0)
(gimp-rect-select lilyImg 550 770 100 100 0 0 0)
(gimp-edit-cut topLayer)

(gimp-by-color-select botLayer '(0 0 0) 15 REPLACE FALSE 0 0 0)
(gimp-selection-grow lilyImg 25)
(gimp-bucket-fill botLayer 1 0 100 0 0 100 700)
(gimp-selection-invert lilyImg)
(gimp-rect-select lilyImg 0 0 340 150 0 0 0)
(gimp-rect-select lilyImg 540 0 100 40 0 0 0)
(gimp-rect-select lilyImg 0 400 242 205 0 0 0)
(gimp-rect-select lilyImg 550 770 100 100 0 0 0)
(gimp-edit-cut botLayer)

(gimp-image-scale lilyImg imagesize imagesize)
(gimp-image-merge-visible-layers lilyImg 0)
(gimp-image-set-filename lilyImg lilyNewName)
(gimp-display-new lilyImg)
)

; Step 4. SAVE PRODUCED FILE THE USUAL WAY.

; Why saving does not work as below..had to gimp-display-new and save
manually.
; (file-png-save 0 lilyImg lilyImg lilyNewName lilyNewName 0 6 1 0 0 1 1)

; Step 5. REPEAT Steps 2.-4. TO PRODUCES ALL IMAGES OF DIFFERENT SIZE.

; Step 6. QUIT GIMP.



      Heikki Junes