diff options
author | lordjaxom <lordjaxom> | 2004-06-25 17:54:38 +0000 |
---|---|---|
committer | lordjaxom <lordjaxom> | 2004-06-25 17:54:38 +0000 |
commit | f2a4ea2dc8c0d915e0f2af6f4ec1a228e1e94453 (patch) | |
tree | e071f932913f57fa464a7e3cdd5cf774c3a629e5 /contrib/transform.pl | |
parent | de602ae6486b181ec081749a510cfcf15c71c817 (diff) | |
download | vdr-plugin-text2skin-0.0.7.tar.gz vdr-plugin-text2skin-0.0.7.tar.bz2 |
- on devices capable of full-color OSD, bpp's have no meaning anymorev0.0.7
(but will still work like usual). On such devices, a full-screen 8-bit
OSD will be used
- new display-item "PresentTextDescription" displays combined
ShortText/Description
- displaying replay symbols only if information is actually available
- exchanged x, y, width, height with x1, y1, x2, y2 coordinates
(skin version is now 0.0.3)
- coordinates may be negative to respect dynamic OSD settings
(negative coordinates give pixels from the right or bottom edge)
- added base parameter to Skin item to be able to use full screen in absolute
mode
- added a script to convert 0.0.2 skins to 0.0.3
- added parsing quoted texts (path="Bla.jpg" etc. will work correctly now)
- fixed translator to escape the dollar sign
- fixed display of scrollbar (REALLY!)
- fixed linkage of libMagick++
Diffstat (limited to 'contrib/transform.pl')
-rwxr-xr-x | contrib/transform.pl | 54 |
1 files changed, 54 insertions, 0 deletions
diff --git a/contrib/transform.pl b/contrib/transform.pl new file mode 100755 index 0000000..db41183 --- /dev/null +++ b/contrib/transform.pl @@ -0,0 +1,54 @@ +#!/usr/bin/perl + +if (@ARGV != 2) { + die "Usage: $0 <in> <out>"; +} + +open DAT, "<$ARGV[0]" or die $!; +open OUT, ">$ARGV[1]" or die $!; + +$| = 1; + +system("stty -icanon eol \001"); + +while (defined($_ = <DAT>)) { + /\[(\w+)\]/ and print "\nNew Section: $1\n\n"; + /^Item=(\w+),/ and do { + $i = $1; + /,x1=(\d+)[,;]/ and do { + $x1 = $1; + print "Item $i, x1 (left)? ([l]/r) > "; + read STDIN, $c, 1; + print "\n"; + $nx1 = $x1 - 624; + s/,x1=$x1/,x1=$nx1/ if $c eq 'r'; + }; + /,y1=(\d+)[,;]/ and do { + $y1 = $1; + print "Item $i, y1 (top)? ([l]/r) > "; + read STDIN, $c, 1; + print "\n"; + $ny1 = $y1 - 486; + s/,y1=$y1/,y1=$ny1/ if $c eq 'r'; + }; + /,x2=(\d+)[,;]/ and do { + $x2 = $1; + print "Item $i, x2 (right)? ([l]/r) > "; + read STDIN, $c, 1; + print "\n"; + $nx2 = $x2 - 624; + s/,x2=$x2/,x2=$nx2/ if $c eq 'r'; + }; + /,y2=(\d+)[,;]/ and do { + $y2 = $1; + print "Item $i, y2 (bottom)? ([l]/r) > "; + read STDIN, $c, 1; + print "\n"; + $ny2 = $y2 - 486; + s/,y2=$y2/,y2=$ny2/ if $c eq 'r'; + }; + }; + print OUT $_; +} + +system("stty icanon eol ^@"); |