1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
|
#!/usr/bin/perl -w
# __________ __ ___.
# Open \______ \ ____ ____ | | _\_ |__ _______ ___
# Source | _// _ \_/ ___\| |/ /| __ \ / _ \ \/ /
# Jukebox | | ( <_> ) \___| < | \_\ ( <_> > < <
# Firmware |____|_ /\____/ \___ >__|_ \|___ /\____/__/\_ \
# \/ \/ \/ \/ \/
# $Id$
#
# Copyright (C) 2011 Dominik Riebeling
#
# All files in this archive are subject to the GNU General Public License.
# See the file COPYING in the source tree root for full license agreement.
#
# This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
# KIND, either express or implied.
# This script is to generate an iconset (iconstrip bmp file) from Tango icons.
# It should be usable for other iconsets that are provided as svg images. For
# those adjusting the paths to the icons might need adjustment.
# To be run from the icons/ folder in a Rockbox checkout.
use File::Temp;
# list of icons for strip
my @iconlist = (
"mimetypes/audio-x-generic", # Icon_Audio
"places/folder", # Icon_Folder
"actions/format-indent-more", # Icon_Playlist
"actions/media-playback-start", # Icon_Cursor ###
"apps/preferences-desktop-wallpaper", # Icon_Wps
"devices/computer", # Icon_Firmware ###
"apps/preferences-desktop-font", # Icon_Font
"apps/preferences-desktop-locale", # Icon_Language
"categories/preferences-system", # Icon_Config
"status/software-update-available", # Icon_Plugin
"actions/bookmark-new", # Icon_Bookmark
"places/start-here", # Icon_Preset
"actions/go-jump", # Icon_Queued
"actions/go-next", # Icon_Moving
"devices/input-keyboard", # Icon_Keyboard
"actions/mail-send-receive", # Icon_Reverse_Cursor
"apps/help-browser", # Icon_Questionmark
"actions/document-properties", # Icon_Menu_setting
"categories/applications-other", # Icon_Menu_functioncall
"actions/list-add", # Icon_Submenu
"categories/preferences-system", # Icon_Submenu_Entered
"actions/media-record", # Icon_Recording
"devices/audio-input-microphone", # Icon_Voice ###
"categories/preferences-desktop", # Icon_General_settings_menu
"categories/applications-other", # Icon_System_menu
"actions/media-playback-start", # Icon_Playback_menu
"devices/video-display", # Icon_Display_menu
"devices/video-display", # Icon_Remote_Display_menu
"devices/network-wireless", # Icon_Radio_screen ###
"mimetypes/package-x-generic", # Icon_file_view_menu
"apps/utilities-system-monitor", # Icon_EQ
"../rbutil/rbutilqt/icons/rockbox-clef.svg" # Icon_Rockbox
);
if($#ARGV < 1) {
print "Usage: $0 <path to iconset> <size>\n";
exit();
}
my $tangopath = $ARGV[0];
my $size = $ARGV[1];
# temporary files
my $alphatemp = File::Temp->new(SUFFIX => ".png");
my $alphatempfname = $alphatemp->filename();
my $exporttemp = File::Temp->new(SUFFIX => ".png");
my $exporttempfname = $exporttemp->filename();
my $tempstrip = File::Temp->new(SUFFIX => ".png");
my $tempstripfname = $tempstrip->filename();
my $newoutput = "tango_icons.$size.bmp";
if(-e $newoutput) {
die("output file $newoutput does already exist!");
}
print "Creating icon strip as $newoutput\n\n";
my $count;
$count = 0;
foreach(@iconlist) {
print "processing $_ ...\n";
my $file;
if(m/^$/) {
# if nothing is defined make it empty / transparent
my $s = $size . "x" . $size;
`convert -size $s xc:"#f0f" $exporttempfname`
}
elsif(m/\.\./) {
# icon is inside the Rockbox tree
$file = $_;
`inkscape --export-png=$exporttempfname --export-width=$size --export-height=$size $file`
}
else {
# icon is inside the tango tree
$file = "$tangopath/scalable/" . $_ . ".svg";
`inkscape --export-png=$exporttempfname --export-width=$size --export-height=$size $file`
}
if($count != 0) {
`convert -append $tempstripfname $exporttempfname $tempstripfname`;
}
else {
`convert $exporttempfname $tempstripfname`;
}
$count++;
}
print "masking and converting result ...\n";
# create mask
`convert $tempstripfname -alpha extract -monochrome -negate -alpha copy -colorize 0,100,0 $alphatempfname`;
# combine mask with image and drop transparency and scale down
`convert -composite $tempstripfname $alphatempfname -flatten -background '#f0f' -alpha off $newoutput`;
print "done!\n";
|
