* doc/subtitles/*, share/font-eutopiabold21.rle: new (smaller) font + scripts
[vlc.git] / doc / subtitles / vlc-gimp.pl
1 #!/usr/bin/perl
2
3 use Gimp ":auto";
4 use Gimp::Fu;
5
6 sub vlc_subtitler_font
7 {
8
9     $shadowcolour=[0,0,0];
10     $textcolour=[255,255,255];
11     $backcolour=[0,0,255];
12     $font="-*-utopia-bold-r-*-*-21-*-*-*-*-*-*-*";
13     $border=3;
14     $alias=1;
15
16     $text="_  ";
17     for($i=33; $i<127; $i++)
18       { $text.=chr($i); $text.="  "; }
19
20     # Create a new image of an arbitrary size with 
21     $img = gimp_image_new(100, 100, RGB);
22     
23     # Create a new layer for the background of arbitrary size, and
24     # add it to the image
25     my $background = gimp_layer_new($img, 100, 100,
26                                     RGB, "Background", 100,
27                                     NORMAL_MODE);
28     gimp_image_add_layer($background, 1);
29
30     # Choose color of text
31     gimp_palette_set_foreground($textcolour);
32
33     # Create the text layer. Using -1 as the drawable creates a new layer.
34     my $text_layer = gimp_text_fontname($img, -1, 0, 0, $text,
35                                         $border, $alias,
36                                         xlfd_size($font), $font);
37
38     # Get size of the text drawable and resize the image and the
39     # background layer to this size.
40     my($width, $height) = ($text_layer->width, $text_layer->height);
41     gimp_image_resize($img, $width, $height, 0, 0);
42     gimp_layer_resize($background, $width, $height, 0, 0);
43
44     gimp_layer_delete($text_layer);
45
46     # Fill the background layer now when it has the right size.
47     gimp_palette_set_background($backcolour);
48     gimp_edit_fill($background, BG_IMAGE_FILL);
49
50     my $shadowlayer, $textlayer;
51
52     # Plot eight shadow copies of the text
53     gimp_palette_set_foreground($shadowcolour);
54     $shadowlayer = gimp_text_fontname($img, -1, 0, 0, $text,
55                                         $border, $alias,
56                                         xlfd_size($font), $font);
57     gimp_layer_translate($shadowlayer, -2, 0);
58     gimp_image_flatten($img);
59
60     gimp_palette_set_foreground($shadowcolour);
61     $shadowlayer = gimp_text_fontname($img, -1, 0, 0, $text,
62                                         $border, $alias,
63                                         xlfd_size($font), $font);
64     gimp_layer_translate($shadowlayer, 2, 0);
65     gimp_image_flatten($img);
66
67     gimp_palette_set_foreground($shadowcolour);
68     $shadowlayer = gimp_text_fontname($img, -1, 0, 0, $text,
69                                         $border, $alias,
70                                         xlfd_size($font), $font);
71     gimp_layer_translate($shadowlayer, 0, -2);
72     gimp_image_flatten($img);
73
74     gimp_palette_set_foreground($shadowcolour);
75     $shadowlayer = gimp_text_fontname($img, -1, 0, 0, $text,
76                                         $border, $alias,
77                                         xlfd_size($font), $font);
78     gimp_layer_translate($shadowlayer, 0, 2);
79     gimp_image_flatten($img);
80
81     gimp_palette_set_foreground($shadowcolour);
82     $shadowlayer = gimp_text_fontname($img, -1, 0, 0, $text,
83                                         $border, $alias,
84                                         xlfd_size($font), $font);
85     gimp_layer_translate($shadowlayer, -1, -1);
86     gimp_image_flatten($img);
87
88     gimp_palette_set_foreground($shadowcolour);
89     $shadowlayer = gimp_text_fontname($img, -1, 0, 0, $text,
90                                         $border, $alias,
91                                         xlfd_size($font), $font);
92     gimp_layer_translate($shadowlayer, -1, 1);
93     gimp_image_flatten($img);
94
95     gimp_palette_set_foreground($shadowcolour);
96     $shadowlayer = gimp_text_fontname($img, -1, 0, 0, $text,
97                                         $border, $alias,
98                                         xlfd_size($font), $font);
99     gimp_layer_translate($shadowlayer, 1, -1);
100     gimp_image_flatten($img);
101
102     gimp_palette_set_foreground($shadowcolour);
103     $shadowlayer = gimp_text_fontname($img, -1, 0, 0, $text,
104                                         $border, $alias,
105                                         xlfd_size($font), $font);
106     gimp_layer_translate($shadowlayer, 1, 1);
107     gimp_image_flatten($img);
108
109     # Plot the text itself
110     gimp_palette_set_foreground($textcolour);
111     $textlayer = gimp_text_fontname($img, -1, 0, 0, $text,
112                                         $border, $alias,
113                                         xlfd_size($font), $font);
114     gimp_image_flatten($img);
115
116     return $img;
117 }
118
119 # register the script
120 register "vlc_subtitler_font",
121     "vlc subtitler font",
122     "vlc subtitler font",
123     "Andrew Flintham",
124     "Andrew Flintham",
125     "2002-06-18",
126     "<Toolbox>/Xtns/Perl-Fu/VLC Subtitles Font",
127     "*",
128     [],
129     \&vlc_subtitler_font;
130
131 # Handle over control to gimp
132 exit main();