dclext-anim 0.2.0

data/Gemfile

@@ -0,0 +1,4 @@
+source "http://rubygems.org"
+
+# Specify your gem's dependencies in narray_miss.gemspec
+gemspec

data/LICENSE.txt

@@ -0,0 +1,34 @@
+RubyDCLExt-Anim is copyrighted free software by Seiya Nishizawa and GFD
+Dennou Club (http://www.gfd-dennou.org/).
+
+Copyright 2001 (C) Seiya Nishizawa and GFD Dennou Club
+(http://www.gfd-dennou.org/) All rights reserved.
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions are
+met:
+
+   1. Redistributions of source code must retain the above copyright
+      notice, this list of conditions and the following disclaimer.
+
+   2. Redistributions in binary form must reproduce the above copyright
+      notice, this list of conditions and the following disclaimer in
+      the documentation and/or other materials provided with the
+      distribution.
+
+THIS SOFTWARE IS PROVIDED BY GFD DENNOU CLUB AND CONTRIBUTORS ``AS IS'' 
+AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, 
+THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
+PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL GFD DENNOU CLUB OR
+CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
+EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
+PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
+PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
+LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
+NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
+The views and conclusions contained in the software and documentation
+are those of the authors and should not be interpreted as representing
+official policies, either expressed or implied, of Seiya Nishizawa
+and GFD Dennou Club.

data/README.rdoc

@@ -0,0 +1,56 @@
+= What's RubyDCLExt-Anim
+
+RubyDCLExt-Anim is an extension for RubyDCL
+to output animation (movie) file.
+Currently, output file is MP4 file formated and h264 encoded .
+
+
+= RubyDCLExt-Anim home-page
+
+The URL of the RubyDCLExt-Anim home-page is:
+  http://ruby.gfd-dennou.org/products/ruby-dclext-anim/
+
+
+= Requires
+
+* Ruby (http://www.ruby-lang.org/)
+* RubyDCL (http://ruby.gfd-dennou.org/products/ruby-dcl/)
+* Ruby-Gtk2 and Ruby-GStreamer (http://ruby-gnome2.sourceforge.jp/)
+* gst-plugins-ugly (http://gstreamer.freedesktop.org/modules/gst-plugins-ugly.html)
+  * use x264enc element.
+
+
+= Install
+
+ # gem install dclext-anim
+
+
+= Copying
+
+See the file LICENSE.txt.
+
+
+= Usage
+
+To output animation file, require "numru/dclext/anim"
+ % ruby -r numru/dclext/anim your_dcl_script.rb
+
+== Options
+
+You can change some parameters with environmental variable or runtime option.
+
+* framerate: frame rate for the output movie (frame/sec)
+  * environmental variable: DCLEXT_ANIM_FRAMERATE=(int)
+  * runtime option: --dclext-anim-framerate=(int)
+
+* filename: name of the output file
+  * environmental variable: DCLEXT_ANIM_FILENAME=(string)
+  * runtime option: --dclext-anim-filename=(string)
+
+
+= The Author
+
+Feel free to send comments and bug reports to the author.
+The author's e-mail addess is
+
+ seiya@gfd-dennou.org

data/Rakefile

@@ -0,0 +1 @@
+require "bundler/gem_tasks"

data/dclext-anim.gemspec

@@ -0,0 +1,28 @@
+# -*- encoding: utf-8 -*-
+$:.unshift File.expand_path("../lib", __FILE__)
+require "numru/dclext/anim/version"
+
+Gem::Specification.new do |s|
+  s.name        = "dclext-anim"
+  s.version     = NumRu::DCLExt::Anim::VERSION
+  s.authors     = ["Seiya Nishizawa"]
+  s.email       = ["seiya@gfd-dennou.org"]
+  s.homepage    = "http://ruby.gfd-dennou.org/products/ruby-dclext-anim/"
+  s.summary     = %q{Anim extension for RubyDCL}
+  s.description = %q{RubyDCLExt-Anim is an extension for RubyDCL to output animation (movie) file.
+Currently, output file is MP4 file formated and h264 encoded .}
+
+  s.rubyforge_project = "dclext-anim"
+
+  s.files         = `git ls-files`.split("\n")
+  s.test_files    = `git ls-files -- {test,spec,features}/*`.split("\n")
+  s.executables   = `git ls-files -- bin/*`.split("\n").map{ |f| File.basename(f) }
+  s.require_paths = ["lib"]
+  #s.extensions << "ext/extconf.rb"
+
+  # specify any dependencies here; for example:
+  #s.add_development_dependency "rspec"
+  #s.add_runtime_dependency "numru/dcl"
+  s.add_runtime_dependency "gtk2"
+  s.add_runtime_dependency "gst"
+end

data/lib/numru/dclext/anim.rb

@@ -0,0 +1,8 @@
+begin
+  require "rubygems"
+rescue LoadError
+end
+require "numru/dcl"
+require "numru/dclext/anim/version.rb"
+require "numru/dclext/anim/anim.rb"
+require "numru/dclext/anim/anim_dcl.rb"

data/lib/numru/dclext/anim/anim.rb

@@ -0,0 +1,13 @@
+module NumRu
+  module DCLExt
+    module Anim
+      PADDING = 4
+
+      module_function
+      def width; @width ||= NumRu::DCL.swiget("iwidth") - PADDING; end
+      def height; @height ||= NumRu::DCL.swiget("iheight") - PADDING; end
+
+    end # module Anim
+  end # module DCLExt
+
+end # module NumRu

data/lib/numru/dclext/anim/anim_dcl.rb

@@ -0,0 +1,70 @@
+require "numru/dcl"
+
+
+module NumRu
+  module DCL
+
+    alias :__gropn :gropn
+    def gropn(wsn)
+
+      pr, pw = IO.pipe
+
+      width = NumRu::DCLExt::Anim.width
+      height = NumRu::DCLExt::Anim.height
+
+      fork do
+
+        require "numru/dclext/anim/stream"
+
+        pw.close
+
+        stream = NumRu::DCLExt::Anim::Stream.new(pr)
+        stream.start
+
+      end  # fork
+
+      require "gtk2"
+      require "numru/dclext/gtk"
+      require "numru/dclext/anim/source"
+
+      pr.close
+
+      Gtk.init
+
+      drw = Gtk::DrawingArea.new
+      drw.set_width_request NumRu::DCLExt::Anim.width
+      drw.set_height_request NumRu::DCLExt::Anim.height
+      drw.show
+
+      wnd = Gtk::Window.new
+      wnd.add drw
+      drw.realize
+
+      pixmap = Gdk::Pixmap.new(drw.window, width, height, -1)
+
+      NumRu::DCLExt.zgsdrw(drw)
+      NumRu::DCLExt.zgspmp(pixmap)
+      
+      @source = NumRu::DCLExt::Anim::Source.new(pixmap, pw)
+
+      __gropn(4)
+    end # gropn
+    module_function :__gropn, :gropn
+
+    alias :__grfrm :grfrm
+    def grfrm
+      @source.new_frame
+      __grfrm
+    end
+    module_function :__grfrm, :grfrm
+
+    alias :__grcls :grcls
+    def grcls
+      @source.close
+      __grcls
+    end
+    module_function :__grcls, :grcls
+
+  end # module DCL
+
+end # module NumRu

data/lib/numru/dclext/anim/source.rb

@@ -0,0 +1,39 @@
+module NumRu
+  module DCLExt
+    module Anim
+
+      class Source
+
+        include Anim
+
+        def initialize(pixmap, pipe)
+          @pixmap = pixmap
+          @pipe = pipe
+          @first_frame = true
+        end
+
+        def new_frame
+          if @first_frame
+            @first_frame = false
+          else
+            put_data
+          end
+        end
+
+        def close
+          put_data unless @first_frame
+          @pipe.close
+        end
+
+
+        private
+        def put_data
+          pixbuf = Gdk::Pixbuf.from_drawable(nil, @pixmap, 0, 0, width, height)
+          @pipe.write pixbuf.pixels
+        end
+
+      end # class DCL
+
+    end # module Anim
+  end # module DCLExt
+end # module NumRu

data/lib/numru/dclext/anim/stream.rb

@@ -0,0 +1,131 @@
+module NumRu
+  module DCLExt
+    module Anim
+
+      class Stream
+
+        include Anim
+
+        DEPTH = 24
+        BPP = 24
+
+        DEFAULT_FRAMERATE = 4
+        DEFAULT_FILENAME = "dcl.mp4"
+
+
+
+        attr_accessor :filename, :framerate
+        attr_reader :pipe
+        attr_reader :buffersize
+
+        def initialize(pipe)
+          @pipe = pipe
+          @buffersize = width * height * DEPTH
+          @num_frames = 0
+          @source_id = nil
+          ARGV.each do |arg|
+            case arg
+            when /\A--dclext-anim-framerate=/
+              @framerate = $'.to_i
+            when /\A--dclext-anim-filename=/
+              @filename = $'
+            end
+          end
+          @framerate ||= ((c=ENV["DCLEXT_ANIM_FRAMERATE"]) && c.to_i) || DEFAULT_FRAMERATE
+          @filename ||= ENV["DCLEXT_ANIM_FILENAME"] || DEFAULT_FILENAME
+        end
+
+        def start
+          require "gst"
+
+          Gst.init
+
+          loop = GLib::MainLoop.new(nil, false)
+
+          x264opts = "path=qual quantizer=18 qp-min=10 qp-max=25 me=umh subme=6 ref=3 threads=0 cabac=true dct8x8=false"
+#          x264opts = "bitrate=10000"
+          cmd = "appsrc min-latency=100000000 block=true name=dclsource caps=\"#{caps_str}\" ! queue ! ffmpegcolorspace ! video/x-raw-yuv,format=(fourcc)I420,width=#{width},height=#{height} ! videorate ! video/x-raw-yuv,framerate=#{@framerate}/1 ! queue ! x264enc #{x264opts} ! queue ! mp4mux ! filesink location=#{@filename}"
+
+          bin = Gst::Parse.launch(cmd)
+
+          appsrc = bin.get_child("dclsource")
+          appsrc.format = Gst::Format::TIME
+          appsrc.max_bytes = height*width*DEPTH*5
+
+          bus = bin.bus
+          bus.add_watch do |bus, message|
+            case message.type
+            when Gst::Message::EOS
+              loop.quit
+            when Gst::Message::ERROR
+              p message.parse
+              loop.quit
+            end
+            true
+          end
+
+          appsrc.signal_connect('need-data') do |elm, length|
+            start_feed(elm)
+          end
+          appsrc.signal_connect('enough-data') do |elm|
+            stop_feed
+          end
+
+          bin.play
+          begin
+            loop.run
+          rescue Interrupt
+          ensure
+            @pipe.close
+            bin.stop
+          end
+        end
+
+        def caps_str
+          "video/x-raw-rgb,width=(int)#{width},height=(int)#{height},depth=(int)#{DEPTH},bpp=(int)#{BPP},framerate=#{@framerate}/1,endianness=4321,red_mask=16711680,green_mask=65280,blue_mask=255"
+        end
+
+        def get_data
+          sleep(0.1)
+          @pipe.read(@buffersize/8)
+        end
+
+        def start_feed(appsrc)
+          unless @source_id
+            @source_id = GLib::Idle.add do
+              if data = get_data
+                buffer = Gst::Buffer.new(data.size*8)
+                buffer.caps = Gst::Caps.parse(caps_str)
+                buffer.duration = 10**9/@framerate
+                buffer.timestamp = buffer.duration * @num_frames
+                buffer.set_data(data)
+#                ret = appsrc.signal_emit("push-buffer", buffer)
+                ret = appsrc.push_buffer(buffer)
+                if ret.name == "GST_FLOW_OK"
+                  @num_frames += 1
+                  true
+                else
+                  p ret.name
+                  appsrc.end_of_stream
+                  false
+                end
+              else
+                appsrc.end_of_stream
+                false
+              end
+            end
+          end
+        end
+        def stop_feed
+          if @source_id
+            GLib::Source.remove(@source_id)
+            @source_id = nil
+          end
+        end
+
+      end # class Stream
+
+    end # module Anim
+  end # module DCLExt
+
+end # module NumRu

data/lib/numru/dclext/anim/version.rb

@@ -0,0 +1,7 @@
+module NumRu
+  module DCLExt
+    module Anim
+      VERSION = "0.2.0"
+    end
+  end
+end

data/sample/sample1.rb

@@ -0,0 +1,19 @@
+# -*- coding: utf-8 -*-
+require "numru/dclext/anim"
+include NumRu
+
+N = 100
+x = NArray.sfloat(N).indgen*Math::PI*2/N
+
+width = 724
+height = 484
+
+DCL.gropn(4)
+
+100.times do |i|
+  DCL.grfrm
+  DCL.usgrph(x, NMath.sin(x + i*Math::PI/10))
+  DCL.uxsttl("t", "t=#{i}", 0)
+end
+
+DCL.grcls

metadata

@@ -0,0 +1,106 @@
+--- !ruby/object:Gem::Specification 
+name: dclext-anim
+version: !ruby/object:Gem::Version 
+  hash: 23
+  prerelease: 
+  segments: 
+  - 0
+  - 2
+  - 0
+  version: 0.2.0
+platform: ruby
+authors: 
+- Seiya Nishizawa
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2012-02-17 00:00:00 Z
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: gtk2
+  prerelease: false
+  requirement: &id001 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        hash: 3
+        segments: 
+        - 0
+        version: "0"
+  type: :runtime
+  version_requirements: *id001
+- !ruby/object:Gem::Dependency 
+  name: gst
+  prerelease: false
+  requirement: &id002 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        hash: 3
+        segments: 
+        - 0
+        version: "0"
+  type: :runtime
+  version_requirements: *id002
+description: |-
+  RubyDCLExt-Anim is an extension for RubyDCL to output animation (movie) file.
+  Currently, output file is MP4 file formated and h264 encoded .
+email: 
+- seiya@gfd-dennou.org
+executables: []
+
+extensions: []
+
+extra_rdoc_files: []
+
+files: 
+- Gemfile
+- LICENSE.txt
+- README.rdoc
+- Rakefile
+- dclext-anim.gemspec
+- lib/numru/dclext/anim.rb
+- lib/numru/dclext/anim/anim.rb
+- lib/numru/dclext/anim/anim_dcl.rb
+- lib/numru/dclext/anim/source.rb
+- lib/numru/dclext/anim/stream.rb
+- lib/numru/dclext/anim/version.rb
+- sample/sample1.rb
+homepage: http://ruby.gfd-dennou.org/products/ruby-dclext-anim/
+licenses: []
+
+post_install_message: 
+rdoc_options: []
+
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      hash: 3
+      segments: 
+      - 0
+      version: "0"
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      hash: 3
+      segments: 
+      - 0
+      version: "0"
+requirements: []
+
+rubyforge_project: dclext-anim
+rubygems_version: 1.8.11
+signing_key: 
+specification_version: 3
+summary: Anim extension for RubyDCL
+test_files: []
+