39a85e6647
<obata@lins.jp>. x11rec is a very ad hoc X11 recorder which creates a movie. x11rec sequentially runs xwd to capture a sequence of window images and finally creates a movie file in an MNG or animated GIF format with ImageMagick and Gifsicle.
42 lines
1.5 KiB
Text
42 lines
1.5 KiB
Text
$NetBSD: patch-aa,v 1.1.1.1 2005/05/05 20:03:55 xtraeme Exp $
|
|
|
|
--- x11rec.orig 2001-06-08 04:13:02.000000000 +0900
|
|
+++ x11rec
|
|
@@ -40,7 +40,7 @@ class Xrecorder
|
|
|
|
def target
|
|
$stderr.puts "** Select an X window with a mouse. **"
|
|
- IO.popen("xwininfo").each do |line|
|
|
+ IO.popen("@xwininfo@").each do |line|
|
|
if /id: (\S+)/ =~ line then
|
|
@id = $1
|
|
end
|
|
@@ -54,7 +54,7 @@ class Xrecorder
|
|
while true
|
|
tmp1 = sprintf "%s.1.%06d", @tmpprefix, @frames # may be broken.
|
|
tmp2 = sprintf "%s.2.%06d", @tmpprefix, @frames # safe to use.
|
|
- system "xwd -silent -id #{@id} > #{tmp1}"
|
|
+ system "@xwd@ -silent -id #{@id} > #{tmp1}"
|
|
File.rename tmp1, tmp2
|
|
@frames += 1
|
|
printf "frames: %d\r", @frames
|
|
@@ -73,16 +73,16 @@ class Xrecorder
|
|
files.each_with_index do |file, i|
|
|
$stderr.printf "converting each xwd file into a gif file: %d/%d\r",
|
|
i + 1, files.length
|
|
- system "convert #{file} #{file}.gif"
|
|
+ system "@convert@ #{file} #{file}.gif"
|
|
end
|
|
puts
|
|
|
|
$stderr.puts "creating the resulting movie file..."
|
|
- system "gifsicle --colors 256 -O2 --delay #{delay} #{@tmpprefix}.2.*.gif > #{tmpgif2}"
|
|
+ system "@gifsicle@ --colors 256 -O2 --delay #{delay} #{@tmpprefix}.2.*.gif > #{tmpgif2}"
|
|
|
|
if /^(.*)\.mng$/ =~ @filename then
|
|
# create MNG with ImageMagick if needed.
|
|
- system "convert #{tmpgif2} #{@filename}"
|
|
+ system "@convert@ #{tmpgif2} #{@filename}"
|
|
else
|
|
# just rename the temporary file.
|
|
File.rename tmpgif2, @filename
|