diff options
| -rwxr-xr-x | tools/scrolling-credits.pl | 71 |
1 files changed, 71 insertions, 0 deletions
diff --git a/tools/scrolling-credits.pl b/tools/scrolling-credits.pl new file mode 100755 index 0000000..3974ed2 --- /dev/null +++ b/tools/scrolling-credits.pl @@ -0,0 +1,71 @@ +#!/usr/bin/perl + +use GD; +use GD::Text; +use strict; +use warnings; + +#my $ref = new GD::Image(100,100); +#my $white = $ref->colorAllocate(255,255,255); +#my $black = $ref->colorAllocate(0,0,0); +my $blankMap = new GD::Image(720,540); +my $white = $blankMap->colorAllocate(255,255,255); +my $black = $blankMap->colorAllocate(0,0,0); + +my @positions = (); +my @elements = (); +my $gdfont = "/usr/share/fonts/truetype/ttf-liberation/LiberationSans-Regular.ttf"; +my $fontsize = 20; +my $linespace = 1.3; +my $left = 0; +my @bounds; +$bounds[1] = 150; + + +my $bgfile = "/home/jarle/svn/nuug-video/tools/lib/graphic/tv-bg-pal-size.png"; + +my $im = newFromPng GD::Image($bgfile); + +#my $white = $im->colorAllocate(255,255,255); +#my $black = $im->colorAllocate( 0, 0, 0); +$im->interlaced(undef); +$im->transparent(-1); +#$im->colorDeallocate($white); +#$white = $im->colorAllocate(255,255,255); +#$im->rectangle(0,0,99,99,$black); +#$im->rectangle(0,0,59,99,$black); + +my $line = "Dette er en test på øæåØÆÅ"; +@bounds = $im->stringFT($black,$gdfont,$fontsize,0,220,130,$line); + +#$im->string(gdMediumBoldFont,200,300,$line,$white); + +writefile('foo.png'); +#read_elements("elements.txt"); + +print join("-",@elements)."\n"; +print join("-",@positions)."\n"; + +sub read_elements { + my $file = shift ; + my $position = 100; + my $line_distance = 30; + + open F, "$file" or die "Cannot open $file for read :$!"; + while (<F>) { + chomp; + push(@elements,$_); + push(@positions,$position); + $position += $line_distance; + } +close F; +} + +sub writefile { + my $f = shift; + open(F,">",$f); + binmode F; + print F $im->png; + close F; +} + |