summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--TOOLS/subfont-gimp/Makefile6
-rw-r--r--TOOLS/subfont-gimp/mplayer_subfont205
2 files changed, 0 insertions, 211 deletions
diff --git a/TOOLS/subfont-gimp/Makefile b/TOOLS/subfont-gimp/Makefile
deleted file mode 100644
index 64a1eb519d..0000000000
--- a/TOOLS/subfont-gimp/Makefile
+++ /dev/null
@@ -1,6 +0,0 @@
-install:
- gimptool --install-admin-bin mplayer_subfont || gimptool --install-bin mplayer_subfont
-
-uninstall:
- gimptool --uninstall-admin-bin mplayer_subfont || true
- gimptool --uninstall-bin mplayer_subfont || true
diff --git a/TOOLS/subfont-gimp/mplayer_subfont b/TOOLS/subfont-gimp/mplayer_subfont
deleted file mode 100644
index e5d9f02569..0000000000
--- a/TOOLS/subfont-gimp/mplayer_subfont
+++ /dev/null
@@ -1,205 +0,0 @@
-#!/usr/bin/perl
-use 5.6.0;
-use warnings;
-use strict;
-use Gtk; # just so that compilation fails without it
-use Gimp qw(:auto);
-use Gimp::Feature qw(gimp-1.2);
-use Gimp::Fu;
-
-my $head = <<EOF;
-[files]
-alpha arpi_osd_a.raw
-bitmap arpi_osd_b.raw
-
-[characters]
-0x01 0 36
-0x02 35 71
-0x03 70 106
-0x04 116 152
-0x05 164 200
-0x06 209 245
-0x07 256 292
-0x08 305 342
-0x09 354 400
-0x0A 407 442
-0x0B 457 494
-
-[files]
-alpha arpi_progress_a.raw
-bitmap arpi_progress_b.raw
-
-[characters]
-0x10 4 21
-0x11 30 41
-0x12 50 66
-0x13 74 85
-
-EOF
-
-sub geninfo {
- my ($font, $height) = @_;
-
- my $size = (split("-", $font))[7];
- $font = (split("-", $font))[2];
-
- return(sprintf(<<EOF, $font, $size, int($size/2), -3-int($size/10), $size));
-[info]
-name "%s \@%d; created in gimp; plugin by lanzz\@lanzz.org"
-descversion 1
-spacewidth %d
-charspace %d
-height %d
-
-EOF
-}
-
-sub basename($) {
- my ($f) = @_;
- $f =~ m#([^/]*)$#;
- return($1);
-}
-
-sub render_subfont {
- my ($font, $bfile, $afile, $dfile, $keep) = @_;
-
- my ($raw) = gimp_procedural_db_query("^file_raw_save\$", "","","","","","");
- if ($raw ne "file_raw_save") {
- gimp_message("HSI Raw plugin not installed");
- return(undef);
- }
-
- unless (open(D, "> $dfile")) {
- gimp_message("Cannot write to $dfile");
- return(undef);
- }
-
- my @size = xlfd_size($font);
- $size[0] *= 2;
-
- my (undef, $h) = gimp_text_get_extents_fontname(join("", map(chr($_), 33 .. 255)), @size, $font);
- $h += 10;
- my $w = 0;
- gimp_palette_set_foreground([255, 255, 255]);
- gimp_palette_set_background([0, 0, 0]);
-
- my $img = gimp_image_new(1, $h, GRAY);
- gimp_image_undo_disable($img);
- gimp_image_set_filename($img, $bfile);
- my $draw = gimp_layer_new($img, 1, $h, GRAY_IMAGE, "subfont", 100, NORMAL_MODE);
- gimp_image_add_layer($img, $draw, 0);
- gimp_edit_fill($draw, BG_IMAGE_FILL);
-
- my $x = 0;
- print D (geninfo($font));
- print D ($head);
- printf D (<<EOF, basename($afile), basename($bfile));
-[files]
-alpha %s
-bitmap %s
-
-EOF
-
- print D ("[characters]\n");
- gimp_progress_init("Rendering font...");
- for (my $c = 33; $c <= 255; $c++) {
- my ($cw) = gimp_text_get_extents_fontname(chr($c), @size, $font);
- printf D ("0x%02X %d %d\n", $c, int($x / 2), int(($x + $cw + 5) / 2));
- $cw = (int($cw / 8) + 2) * 8;
- $w += $cw;
- gimp_image_resize($img, $w, $h, 0, 0);
- gimp_layer_resize($draw, $w, $h, 0, 0);
- gimp_floating_sel_anchor(gimp_text_fontname($img, $draw, $x + 5, 5, chr($c), -1, 1, @size, $font));
- $x += $cw;
- gimp_progress_update(($c - 33) / 222);
- }
- close(D);
-
- gimp_image_scale($img, int($w / 2), int($h / 2));
- gimp_image_undo_enable($img);
- file_raw_save($img, $draw, $bfile, $bfile);
-
- my $aimg = gimp_channel_ops_duplicate($img);
- gimp_image_undo_disable($aimg);
- gimp_image_set_filename($aimg, $afile);
- $draw = gimp_image_flatten($aimg);
- gimp_by_color_select($draw, [0, 0, 0], 15, REPLACE, 1, 0, 0, 0);
- gimp_selection_invert($aimg);
- gimp_selection_grow($aimg, 1);
- gimp_edit_fill($draw, FG_IMAGE_FILL);
- gimp_selection_clear($aimg);
- plug_in_gauss_rle2($img, $draw, 3, 3);
- gimp_image_undo_enable($aimg);
- file_raw_save($aimg, $draw, $afile, $afile);
-
- gimp_message(<<EOF);
-Render done.
-
-Bitmap: $bfile
-Alpha: $afile
-Desc: $dfile
-EOF
- if ($keep) {
- gimp_image_clean_all($img);
- gimp_image_clean_all($aimg);
- return($img, $aimg);
- } else {
- return(undef);
- }
-}
-
-sub render_subfont_alpha {
- my ($img) = @_;
-
- my $aimg = gimp_channel_ops_duplicate($img);
- gimp_image_undo_disable($aimg);
- gimp_image_set_filename($aimg, "alpha.raw");
- my $draw = gimp_image_flatten($aimg);
- gimp_by_color_select($draw, [0, 0, 0], 15, REPLACE, 1, 0, 0, 0);
- gimp_selection_invert($aimg);
- gimp_selection_grow($aimg, 1);
- gimp_edit_fill($draw, FG_IMAGE_FILL);
- gimp_selection_clear($aimg);
- plug_in_gauss_rle2($img, $draw, 3, 3);
- gimp_image_undo_enable($aimg);
-
- return($aimg);
-}
-
-register(
- "render_subfont",
- "Render a grayscale MPlayer subtitle font",
- "No help (yet)",
- "lanzz\@lanzz.org",
- "Copyright 2001, lanzz\@lanzz.org",
- "2001-07-31",
- "<Toolbox>/Xtns/MPlayer/Render Subfont",
- undef,
- [
- [PF_FONT, "font", "", "-*-arial-medium-r-normal-*-16-*-*-*-*-*-*-*", undef],
- [PF_FILE, "bitmap", "", "bitmap.raw", undef],
- [PF_FILE, "alpha", "", "alpha.raw", undef],
- [PF_FILE, "desc", "", "font.desc", undef],
- [PF_TOGGLE, "toggle", "Keep images opened", 0, undef]
- ],
- [ ],
- [ ],
- \&render_subfont
-);
-
-register(
- "render_subfont_alpha",
- "Render alpha shadow for MPlayer subtitle font",
- "No help (yet)",
- "lanzz\@lanzz.org",
- "Copyright 2001, lanzz\@lanzz.org",
- "2001-07-31",
- "<Image>/Filters/MPlayer/Render Shadow",
- "GRAY",
- [ ],
- [ PF_IMAGE ],
- [ ],
- \&render_subfont_alpha
-);
-
-exit(main());