We no longer need this.

[vlc] / doc / subtitles / vlc-gimp.pl

diff --git a/doc/subtitles/vlc-gimp.pl b/doc/subtitles/vlc-gimp.pl
deleted file mode 100755 (executable)
index 25619f5..0000000
--- a/doc/subtitles/vlc-gimp.pl
+++ /dev/null
@@ -1,132 +0,0 @@
-#!/usr/bin/perl
-
-use Gimp ":auto";
-use Gimp::Fu;
-
-sub vlc_subtitler_font
-{
-
-    $shadowcolour=[0,0,0];
-    $textcolour=[255,255,255];
-    $backcolour=[0,0,255];
-    $font="-*-utopia-bold-r-*-*-21-*-*-*-*-*-*-*";
-    $border=3;
-    $alias=1;
-
-    $text="_  ";
-    for($i=33; $i<127; $i++)
-      { $text.=chr($i); $text.="  "; }
-
-    # Create a new image of an arbitrary size with 
-    $img = gimp_image_new(100, 100, RGB);
-    
-    # Create a new layer for the background of arbitrary size, and
-    # add it to the image
-    my $background = gimp_layer_new($img, 100, 100,
-                                   RGB, "Background", 100,
-                                   NORMAL_MODE);
-    gimp_image_add_layer($background, 1);
-
-    # Choose color of text
-    gimp_palette_set_foreground($textcolour);
-
-    # Create the text layer. Using -1 as the drawable creates a new layer.
-    my $text_layer = gimp_text_fontname($img, -1, 0, 0, $text,
-                                       $border, $alias,
-                                       xlfd_size($font), $font);
-
-    # Get size of the text drawable and resize the image and the
-    # background layer to this size.
-    my($width, $height) = ($text_layer->width, $text_layer->height);
-    gimp_image_resize($img, $width, $height, 0, 0);
-    gimp_layer_resize($background, $width, $height, 0, 0);
-
-    gimp_layer_delete($text_layer);
-
-    # Fill the background layer now when it has the right size.
-    gimp_palette_set_background($backcolour);
-    gimp_edit_fill($background, BG_IMAGE_FILL);
-
-    my $shadowlayer, $textlayer;
-
-    # Plot eight shadow copies of the text
-    gimp_palette_set_foreground($shadowcolour);
-    $shadowlayer = gimp_text_fontname($img, -1, 0, 0, $text,
-                                        $border, $alias,
-                                        xlfd_size($font), $font);
-    gimp_layer_translate($shadowlayer, -2, 0);
-    gimp_image_flatten($img);
-
-    gimp_palette_set_foreground($shadowcolour);
-    $shadowlayer = gimp_text_fontname($img, -1, 0, 0, $text,
-                                        $border, $alias,
-                                        xlfd_size($font), $font);
-    gimp_layer_translate($shadowlayer, 2, 0);
-    gimp_image_flatten($img);
-
-    gimp_palette_set_foreground($shadowcolour);
-    $shadowlayer = gimp_text_fontname($img, -1, 0, 0, $text,
-                                        $border, $alias,
-                                        xlfd_size($font), $font);
-    gimp_layer_translate($shadowlayer, 0, -2);
-    gimp_image_flatten($img);
-
-    gimp_palette_set_foreground($shadowcolour);
-    $shadowlayer = gimp_text_fontname($img, -1, 0, 0, $text,
-                                        $border, $alias,
-                                        xlfd_size($font), $font);
-    gimp_layer_translate($shadowlayer, 0, 2);
-    gimp_image_flatten($img);
-
-    gimp_palette_set_foreground($shadowcolour);
-    $shadowlayer = gimp_text_fontname($img, -1, 0, 0, $text,
-                                        $border, $alias,
-                                        xlfd_size($font), $font);
-    gimp_layer_translate($shadowlayer, -1, -1);
-    gimp_image_flatten($img);
-
-    gimp_palette_set_foreground($shadowcolour);
-    $shadowlayer = gimp_text_fontname($img, -1, 0, 0, $text,
-                                        $border, $alias,
-                                        xlfd_size($font), $font);
-    gimp_layer_translate($shadowlayer, -1, 1);
-    gimp_image_flatten($img);
-
-    gimp_palette_set_foreground($shadowcolour);
-    $shadowlayer = gimp_text_fontname($img, -1, 0, 0, $text,
-                                        $border, $alias,
-                                        xlfd_size($font), $font);
-    gimp_layer_translate($shadowlayer, 1, -1);
-    gimp_image_flatten($img);
-
-    gimp_palette_set_foreground($shadowcolour);
-    $shadowlayer = gimp_text_fontname($img, -1, 0, 0, $text,
-                                        $border, $alias,
-                                        xlfd_size($font), $font);
-    gimp_layer_translate($shadowlayer, 1, 1);
-    gimp_image_flatten($img);
-
-    # Plot the text itself
-    gimp_palette_set_foreground($textcolour);
-    $textlayer = gimp_text_fontname($img, -1, 0, 0, $text,
-                                        $border, $alias,
-                                        xlfd_size($font), $font);
-    gimp_image_flatten($img);
-
-    return $img;
-}
-
-# register the script
-register "vlc_subtitler_font",
-    "vlc subtitler font",
-    "vlc subtitler font",
-    "Andrew Flintham",
-    "Andrew Flintham",
-    "2002-06-18",
-    "<Toolbox>/Xtns/Perl-Fu/VLC Subtitles Font",
-    "*",
-    [],
-    \&vlc_subtitler_font;
-
-# Handle over control to gimp
-exit main();