blob: 9ef39a0b64992bb6ffa3f88eed5fcf9337f05a3f (
plain)
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
|
#!/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");
|
