39 lines
818 B
Perl
39 lines
818 B
Perl
|
#!/usr/bin/perl
|
||
|
|
#
|
||
|
|
## rgb2c.pl for MiniLibX in /home/boulon/work/c/raytraceur/minilibx
|
||
|
|
##
|
||
|
|
## Made by Olivier Crouzet
|
||
|
|
## Login <ol@epitech.net>
|
||
|
|
##
|
||
|
|
## Started on Tue Oct 5 16:33:46 2004 Olivier Crouzet
|
||
|
|
## Last update Tue Oct 5 16:36:11 2004 Olivier Crouzet
|
||
|
|
##
|
||
|
|
|
||
|
|
|
||
|
|
#
|
||
|
|
# Generate a .c file with encoded colors, from the XFree86 rgb.txt file.
|
||
|
|
#
|
||
|
|
|
||
|
|
open(RGB, "/usr/X11/lib/X11/rgb.txt");
|
||
|
|
|
||
|
|
|
||
|
|
printf("/*\n** This is a generated file with rgb2c.pl and rgb.txt from\n");
|
||
|
|
printf("** the XFree86 distribution.\n*/\n\n");
|
||
|
|
printf("struct s_col_name mlx_col_name[] =\n{\n");
|
||
|
|
|
||
|
|
while (<RGB>)
|
||
|
|
{
|
||
|
|
@tab = split;
|
||
|
|
if ($tab[0] ne "!")
|
||
|
|
{
|
||
|
|
$color = $tab[3];
|
||
|
|
if ("$tab[4]" ne "")
|
||
|
|
{
|
||
|
|
$color = "$tab[3] $tab[4]";
|
||
|
|
}
|
||
|
|
printf(" { \"%s\" , 0x%x },\n", $color, $tab[0]*65536+$tab[1]*256+$tab[2]);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
printf(" { 0, 0 }\n};\n");
|