slidefield 0.1

data/lib/slidefield/objects/image.rb

@@ -0,0 +1,47 @@
+module SlideField::ObjectRules
+  class Image < GBase
+    def rules
+      property :source, :string
+      property :size, :point, [0,0]
+      property :color, :color, [255, 255, 255, 255]
+
+      super
+    end
+  end
+end
+
+module SlideField::ObjectManager
+  class Image < Base
+    def load
+      @x, @y = @obj.get :position
+      @z = @obj.get :z_order
+      @color = Gosu::Color.rgba *@obj.get(:color)
+
+      source = File.expand_path @obj.get(:source), @obj.include_path
+      width, height = @obj.get :size
+
+      @image = Gosu::Image.new @window, source, true
+      width = @image.width if 0 == width
+      height = @image.height if 0 == height
+
+      @x_scale = width / @image.width.to_f
+      @y_scale = height / @image.height.to_f
+    end
+
+    def draw(animator)
+      tr = animator.transform @obj
+      return if tr.skip_draw?
+
+      x = @x + tr.x_offset
+      y = @y + tr.y_offset
+
+      x_scale = tr.scale * @x_scale
+      y_scale = tr.scale * @y_scale
+
+      color = @color.dup
+      color.alpha = tr.opacity * @color.alpha
+
+      @image.draw x, y, @z, x_scale, y_scale, color
+    end
+  end
+end

data/lib/slidefield/objects/include.rb

@@ -0,0 +1,9 @@
+module SlideField::ObjectRules
+  class Include < Base
+    def rules
+      property :source, :string
+
+      # don't call super
+    end
+  end
+end

data/lib/slidefield/objects/layout.rb

@@ -0,0 +1,10 @@
+module SlideField::ObjectRules
+  class Layout < Base
+    def rules
+      property :size, :point
+      property :fullscreen, :boolean, true
+
+      super
+    end
+  end
+end

data/lib/slidefield/objects/rect.rb

@@ -0,0 +1,44 @@
+module SlideField::ObjectRules
+  class Rect < GBase
+    def rules
+      property :size, :point
+      property :fill, :color, [255, 255, 255, 255]
+
+      super
+    end
+  end
+end
+
+module SlideField::ObjectManager
+  class Rect < Base
+    def load
+      @x, @y = @obj.get :position
+      @z = @obj.get :z_order
+
+      @width, @height = @obj.get :size
+      @fill = Gosu::Color.rgba *@obj.get(:fill)
+    end
+
+    def draw(animator)
+      tr = animator.transform @obj
+      return if tr.skip_draw?
+
+      x = @x + tr.x_offset
+      y = @y + tr.y_offset
+
+      width = @width * tr.scale
+      height = @height * tr.scale
+
+      color = @fill.dup
+      color.alpha = tr.opacity * @fill.alpha
+
+      @window.draw_quad(
+        x, y, color,
+        width + x, y, color,
+        x, height + y, color,
+        width + x, height + y, color,
+        @z
+      )
+    end
+  end
+end

data/lib/slidefield/objects/slide.rb

@@ -0,0 +1,43 @@
+module SlideField::ObjectRules
+  class Slide < SBase; end
+end
+
+module SlideField::ObjectManager
+  class Slide < Base
+    def load
+      @children = []
+      add_children_of @obj
+
+      forward :load
+    end
+
+    def activate
+      forward :activate
+    end
+
+    def draw(animator)
+      forward :draw, animator
+    end
+
+    def deactivate
+      forward :deactivate
+    end
+
+    def unload
+      forward :unload
+    end
+
+    private
+    def add_children_of(obj)
+      obj.children.each {|c|
+        manager = SlideField::ObjectManager.new c, @window
+        @children << manager if manager
+        add_children_of c
+      }
+    end
+
+    def forward(event, *args)
+      @children.each {|c| c.execute event, *args }
+    end
+  end
+end

data/lib/slidefield/objects/song.rb

@@ -0,0 +1,31 @@
+module SlideField::ObjectRules
+  class Song < SBase
+    def rules
+      property :source, :string
+      property :volume, :integer, 100
+      property :loop, :boolean, true
+
+      super
+    end
+  end
+end
+
+module SlideField::ObjectManager
+  class Song < Base
+    def load
+      source = File.expand_path @obj.get(:source), @obj.include_path
+      @loop = @obj.get(:loop)
+      @volume = @obj.get(:volume) / 100.0
+
+      @song = Gosu::Sample.new @window, source
+    end
+
+    def activate
+      @instance = @song.play @volume, 1, @loop
+    end
+
+    def deactivate
+      @instance.stop
+    end
+  end
+end

data/lib/slidefield/objects/text.rb

@@ -0,0 +1,57 @@
+module SlideField::ObjectRules
+  class Text < GBase
+    def rules
+      property :content, :string
+      property :color, :color, [255, 255, 255, 255]
+      property :font, :string, "sans"
+      property :height, :integer, 20
+      property :width, :integer, 0
+      property :spacing, :integer, 0
+      property :align, :string, "left"
+
+      super
+    end
+  end
+end
+
+module SlideField::ObjectManager
+  class Text < Base
+    def load
+      @x, @y = @obj.get :position
+      @z = @obj.get :z_order
+      @color = Gosu::Color.rgba *@obj.get(:color)
+
+      content = @obj.get :content
+      font = @obj.get :font
+      height = @obj.get :height
+      spacing = @obj.get :spacing
+      width = @obj.get :width
+      align = @obj.get(:align).to_sym
+
+      if font.include? '/'
+        font = File.expand_path font, @obj.include_path
+      end
+
+      if width < 1
+        # automatic width
+        temp = Gosu::Image.from_text @window, content, font, height
+        width = temp.width
+      end
+
+      @image = Gosu::Image.from_text @window, content, font, height, spacing, width, align
+    end
+
+    def draw(animator)
+      tr = animator.transform @obj
+      return if tr.skip_draw?
+
+      x = @x + tr.x_offset
+      y = @y + tr.y_offset
+
+      color = @color.dup
+      color.alpha = tr.opacity * @color.alpha
+
+      @image.draw x, y, @z, tr.scale, tr.scale, color
+    end
+  end
+end

data/lib/slidefield/parser.rb

@@ -0,0 +1,99 @@
+class SlideField::Parser < Parslet::Parser
+  rule(:space) { match["\x20\t"] }
+  rule(:spaces?) { space.repeat }
+  rule(:inline_spaces?) { (space | any_comment).repeat }
+  rule(:multi_spaces?) { (match('\s') | any_comment).repeat }
+
+  rule(:eof) { any.absent? }
+  rule(:crlf) { match['\r\n'].repeat(1) }
+  rule(:separator) { str(';') | crlf | eof }
+  rule(:line_comment) { str('%') >> str('{').absent? >> (crlf.absent? >> any).repeat }
+  rule(:multi_comment) { str('%{') >> (str('%}').absent? >> any).repeat >> str('%}') }
+  rule(:any_comment) { multi_comment | line_comment }
+
+  rule(:open) { multi_spaces? >> str('{') >> multi_spaces? }
+  rule(:close) { multi_spaces? >> str('}') }
+
+  rule(:assign) { str('=') }
+  rule(:add) { str('+=') }
+  rule(:subtract) { str('-=') }
+  rule(:multiply) { str('*=') }
+  rule(:divide) { str('/=') }
+  rule(:operator) {
+    inline_spaces? >> (
+      assign |
+      add |
+      subtract |
+      multiply |
+      divide
+    ).as(:operator) >>
+    inline_spaces?
+  }
+
+  rule(:identifier) { match['a-zA-Z_'] >> match['a-zA-Z0-9_'].repeat }
+  rule(:integer) { str('-').maybe >> match('\\d').repeat(1) }
+  rule(:point) { integer >> str('x') >> integer }
+  rule(:color) { str('#') >> match['a-fA-F0-9'].repeat(8, 8) }
+  rule(:boolean) { str(':') >> (str('true') | str('false')) }
+  rule(:string) {
+    str('"') >> (
+      (str('\\') >> any) |
+      (str('"').absent? >> any)
+    ).repeat >>
+    str('"')
+  }
+
+  rule(:filter) {
+    str('(') >> spaces? >> (
+      identifier.as(:name)
+    ) >>
+    spaces? >> str(')') >>
+    inline_spaces?
+  }
+  rule(:value) {
+    filter.repeat.as(:filters) >>
+    (
+      identifier.as(:identifier) |
+      string.as(:string) |
+      point.as(:point) |
+      integer.as(:integer) |
+      color.as(:color) |
+      boolean.as(:boolean) |
+      object.as(:object)
+    )
+  }
+
+  rule(:assignment) { identifier.as(:variable) >> operator >> value.as(:value) }
+  rule(:object) {
+    str('\\') >>
+    str('&').as(:template).maybe >>
+    identifier.as(:type) >>
+    inline_spaces? >>
+    value.as(:value).maybe >>
+    (
+      open >>
+      statements.as(:body) >>
+      close
+    ).maybe
+  }
+
+  rule(:expression) {
+    (
+      object.as(:object) |
+      assignment.as(:assignment)
+    ) >>
+    inline_spaces? >>
+    separator
+  }
+  rule(:statement) {
+    spaces? >>
+    (
+      expression |
+      any_comment |
+      crlf
+    )
+  }
+  rule(:statements) { statement.repeat }
+
+  root(:statements)
+end

data/lib/slidefield/version.rb

@@ -0,0 +1,3 @@
+module SlideField
+  VERSION = "0.1"
+end

data/lib/slidefield/viewer.rb

@@ -0,0 +1,89 @@
+class SlideField::Viewer < Gosu::Window
+  def initialize(project)
+    layout = project[:layout].first
+    layout_size = layout.get :size
+    fullscreen = layout.get :fullscreen
+
+    super *layout_size, fullscreen
+
+    @animator = SlideField::Animator.new layout_size
+
+    @slides = []
+    project[:slide].each {|slide_data|
+      manager = SlideField::ObjectManager.new slide_data, self
+      manager.load
+      @slides << manager
+    }
+
+    change_slide 0
+  end
+
+  def update
+    @time = Gosu::milliseconds
+  end
+
+  def draw
+    @animator.frame @time, true, @forward do
+      @slides[@current].draw @animator
+    end
+
+    # animate the previous slide
+    if @previous && @animator.need_redraw?
+      @animator.frame @time, false, @forward do
+        @slides[@previous].draw @animator
+      end
+    end
+  end
+
+  def needs_redraw?
+    @animator.need_redraw?
+  end
+
+  def button_down(id)
+    case id
+    when Gosu::KbHome
+      change_slide 0
+    when Gosu::KbEnd
+      change_slide @slides.length-1
+    when
+      Gosu::KbReturn,
+      Gosu::KbSpace,
+      Gosu::KbTab,
+      Gosu::KbRight,
+      Gosu::KbDown,
+      Gosu::KbPageDown,
+      Gosu::KbNumpadAdd
+
+      change_slide @current+1
+    when
+      Gosu::KbBackspace,
+      Gosu::KbLeft,
+      Gosu::KbUp,
+      Gosu::KbPageUp,
+      Gosu::KbNumpadSubtract
+
+      change_slide @current-1
+    when Gosu::KbEscape, Gosu::KbQ
+      close
+    end
+  end
+
+  private
+  def change_slide(index)
+    return if @current == index || index < 0 || index > @slides.length-1
+
+    @previous = @current
+    @current = index
+
+    if @previous
+      @slides[@previous].deactivate
+      @forward = @previous < @current
+    else
+      @forward = true
+    end
+
+    @slides[@current].activate
+
+    @animator.reset
+  end
+end

data/lib/slidefield.rb

@@ -0,0 +1,27 @@
+require 'slidefield/version'
+
+require 'ap'
+require 'gosu'
+require 'parslet'
+require 'pathname'
+
+require 'slidefield/animator'
+require 'slidefield/errors'
+require 'slidefield/interpreter'
+require 'slidefield/object_data'
+require 'slidefield/object_manager'
+require 'slidefield/object_rules'
+require 'slidefield/parser'
+require 'slidefield/viewer'
+
+require 'slidefield/objects/_base.rb'
+require 'slidefield/objects/_root.rb'
+require 'slidefield/objects/animation.rb'
+require 'slidefield/objects/debug.rb'
+require 'slidefield/objects/image.rb'
+require 'slidefield/objects/include.rb'
+require 'slidefield/objects/layout.rb'
+require 'slidefield/objects/rect.rb'
+require 'slidefield/objects/slide.rb'
+require 'slidefield/objects/song.rb'
+require 'slidefield/objects/text.rb'

data/slidefield.gemspec

@@ -0,0 +1,27 @@
+# coding: utf-8
+lib = File.expand_path '../lib', __FILE__
+$LOAD_PATH.unshift lib unless $LOAD_PATH.include? lib
+require 'slidefield/version'
+
+Gem::Specification.new do |spec|
+  spec.name          = "slidefield"
+  spec.version       = SlideField::VERSION
+  spec.authors       = ["cfi30"]
+  spec.email         = ["slidefield@cfillion.tk"]
+  spec.summary       = %q{A presentation software that reads plain text files written in its own interpreted language.}
+  spec.homepage      = ""
+  spec.license       = "GPL"
+
+  spec.files         = `git ls-files -z`.split "\x0"
+  spec.executables   = spec.files.grep(%r{^bin/}) { |f| File.basename f }
+  spec.test_files    = spec.files.grep %r{^(test|spec|features)/}
+  spec.require_paths = ["lib"]
+
+  spec.add_development_dependency 'bundler', '~> 1.6'
+  spec.add_development_dependency 'minitest', '~> 5.3'
+  spec.add_development_dependency 'rake'
+
+  spec.add_runtime_dependency 'awesome_print', '~> 1.2'
+  spec.add_runtime_dependency 'gosu', '~> 0.7'
+  spec.add_runtime_dependency 'parslet', '~> 1.6'
+end

data/test/helper.rb

@@ -0,0 +1,11 @@
+require 'slidefield'
+require 'minitest/autorun'
+
+# use awesome_print for objects diff
+module MiniTest
+  module Assertions
+    def mu_pp(obj)
+      obj.awesome_inspect
+    end
+  end
+end

data/test/resources/include_sub.sfp

@@ -0,0 +1 @@
+\include "sub/include_parent.sfp"

data/test/resources/parse_error.sfp

@@ -0,0 +1 @@
+"

data/test/resources/recursive_include.sfp

@@ -0,0 +1 @@
+\include "recursive_include.sfp"

data/test/resources/sub/include_parent.sfp

@@ -0,0 +1 @@
+\include "../unknown_object.sfp"

data/test/resources/unclosed_object.sfp

@@ -0,0 +1,2 @@
+\slide {
+  variable = "value"

data/test/resources/unknown_object.sfp

@@ -0,0 +1 @@
+\this_object_does_not_exist

data/test/resources/wrong_template.sfp

@@ -0,0 +1,4 @@
+wrong_template = \slide {
+  % error does not exist
+  trigger = error
+}