view release on metacpan or  search on metacpan

demo/Pixmaps.pm  view on Meta::CPAN

package Pixmaps;

use strict;
use Exporter;
use vars qw(@ISA @EXPORT $pixmaps);

@ISA    = qw(Exporter);
@EXPORT = qw($pixmaps);

$pixmaps->{'stop'} = [
'10 10 21 1',
' 	c None',
'.	c #222222',
'+	c #737373',
'@	c #7D7D7D',
'#	c #858585',
'$	c #939393',
'%	c #1B1B1B',
'&	c #3B3B3B',
'*	c #4F4F4F',
'=	c #656565',
'-	c #969696',
';	c #323232',
'>	c #3E3E3E',
',	c #525252',
'\'	c #8F8F8F',
')	c #282828',
'!	c #353535',
'~	c #404040',
'{	c #878787',
']	c #171717',
'^	c #2C2C2C',
'          ',
' .+@@@@#\$ ',
' %&****=- ',
' %;>>>>,\' ',
' %;>>>>,\' ',
' %;>>>>,\' ',
' %;>>>>,\' ',
' %)!!!!~{ ',
' ]%%%%%%^ ',
'          '];

$pixmaps->{'play'} = [
'9 10 23 1',
' 	c None',
'.	c #333333',
'+	c #1D1D1D',
'@	c #8E8E8E',
'#	c #858585',
'$	c #1B1B1B',
'%	c #4B4B4B',
'&	c #A4A4A4',
'*	c #9B9B9B',
'=	c #868686',
'-	c #323232',
';	c #5F5F5F',
'>	c #A6A6A6',
',	c #9F9F9F',
'\'	c #909090',
')	c #3F3F3F',
'!	c #3B3B3B',
'~	c #282828',
'{	c #2F2F2F',
']	c #313131',
'^	c #353535',
'/	c #171717',
'(	c #131313',
'         ',
' .       ',
' +@#     ',
' $%&*=   ',
' $-%;>,\' ',
' $-)!!~{ ',
' $]^+/   ',
' $$/     ',
' (       ',
'         '];

$pixmaps->{'open'} = [
'9 10 18 1',
' 	c None',
'.	c #595959',
'+	c #242424',
'@	c #888888',
'#	c #949494',
'$	c #1C1C1C',
'%	c #2B2B2B',
'&	c #464646',