sottolio 0.1

data/opal/sottolio/sottolio.rb

@@ -0,0 +1,29 @@
+#--
+# Copyright(C) 2013-2015 Giovanni Capuano <webmaster@giovannicapuano.net>
+#
+# This file is part of sottolio.
+#
+# sottolio is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# sottolio is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with sottolio.  If not, see <http://www.gnu.org/licenses/>.
+#++
+module Sottolio
+  class << self
+    def get(id)
+      `document.getElementById(id)`
+    end
+
+    def add_listener(event, element, callback)
+      `element.addEventListener(event, callback, false)`
+    end
+  end
+end

data/opal/sottolio/sound_manager.rb

@@ -0,0 +1,55 @@
+#--
+# Copyright(C) 2013-2015 Giovanni Capuano <webmaster@giovannicapuano.net>
+#
+# This file is part of sottolio.
+#
+# sottolio is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# sottolio is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with sottolio.  If not, see <http://www.gnu.org/licenses/>.
+#++
+module Sottolio
+  class SoundManager
+    def initialize
+      @sounds = {}
+    end
+
+    # Actually `id` can be interpreted as an index instead of a label referring to the name of the resource
+    def add(id, sound)
+      @sounds[id.to_sym] = sound
+    end
+
+    def remove(id)
+      stop id
+      @sounds.delete id
+    end
+
+    def play(id)
+      @sounds[id.to_sym].play
+    end
+
+    def pause(id)
+      @sounds[id.to_sym].pause
+    end
+
+    def stop(id)
+      @sounds[id.to_sym].stop
+    end
+
+    def mute(id)
+      @sounds[id.to_sym].mute
+    end
+
+    def unmute(id)
+      @sounds[id.to_sym].unmute
+    end
+  end
+end

data/opal/sottolio/utils.rb

@@ -0,0 +1,57 @@
+#--
+# Copyright(C) 2013-2015 Giovanni Capuano <webmaster@giovannicapuano.net>
+#
+# This file is part of sottolio.
+#
+# sottolio is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# sottolio is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with sottolio.  If not, see <http://www.gnu.org/licenses/>.
+#++
+class String
+  # TODO: Find a better name for this (tl;dr replace variables with real values)
+  def apply(database, pattern = /\#(.+)\#/)
+    r = '' # we cannot #tap because of frozen strings
+    self.split(pattern).each { |s|
+      r += database.has?(s) ? database.get(s) : s
+    }
+    r
+  end
+
+  def filename
+    self.split(?/).last
+  end
+
+  def to_regex
+    self.start_with?(?/) && self.end_with?(?/) ? /#{self[1..-2]}/ : self
+  end
+end
+
+class Hash
+  # TODO: Find a better name for this (tl;dr eval conditional keys in the script's commands)
+  def true?(database)
+    return true unless self.include?(:if) || self.include?(:if_not)
+
+    res = []
+    sym = self.include?(:if) ? :if : :if_not
+    [self[sym]].flatten.each { |c| # i.e.: [ '#feel# == good', '#name# == Patrizio' ]
+      statement = c.apply(database).split(/(.+)(==|!=|=~)(.+)/).delete_if { |s| s.strip.empty? }.map(&:strip)
+      eval = case statement[1] # #send won't work with !=
+        when '==' then statement[0] == statement[2]
+        when '!=' then statement[0] != statement[2]
+        when '=~' then statement[0] =~ statement[2].to_regex
+      end
+      res << eval # actually this is totally not safe
+    }
+    res << res.inject { |sum, x| sum && x }
+    return sym == :if ? res.last : !res.last
+  end
+end

data/opal/sottolio/wrapper/background.rb

@@ -0,0 +1,21 @@
+#--
+# Copyright(C) 2013-2015 Giovanni Capuano <webmaster@giovannicapuano.net>
+#
+# This file is part of sottolio.
+#
+# sottolio is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# sottolio is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with sottolio.  If not, see <http://www.gnu.org/licenses/>.
+#++
+module Sottolio
+  class Background < Image; end
+end

data/opal/sottolio/wrapper/canvas.rb

@@ -0,0 +1,90 @@
+#--
+# Copyright(C) 2013-2015 Giovanni Capuano <webmaster@giovannicapuano.net>
+#
+# This file is part of sottolio.
+#
+# sottolio is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# sottolio is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with sottolio.  If not, see <http://www.gnu.org/licenses/>.
+#++
+module Sottolio
+  class Canvas
+    attr_accessor :context, :canvas_id, :canvas
+
+    def initialize(element, context = '2d')
+      @context   = context
+      @canvas_id = element
+      @canvas    = `element.getContext(context)`
+    end
+
+    def fill_style=(color)
+      `#@canvas.fillStyle = color`
+    end
+
+    def begin_path;    `#@canvas.beginPath()` ; end
+    def close_path;    `#@canvas.closePath()` ; end
+    def move_to(x, y); `#@canvas.moveTo(x, y)`; end
+    def line_to(x, y); `#@canvas.lineTo(x, y)`; end
+    def stroke;        `#@canvas.stroke()`    ; end
+    def fill;          `#@canvas.fill()`      ; end
+
+    def quadratic_curve_to(cpx, cpy, x, y)
+      `#@canvas.quadraticCurveTo(cpx, cpy, x, y)`
+    end
+
+    def global_alpha=(opacity)
+      `#@canvas.globalAlpha = opacity`
+    end
+
+    def clear_rect(x, y, width, height)
+      `#@canvas.clearRect(x, y, width, height)`
+    end
+
+    def round_rect(x, y, width, height, radius = 5, fill = true, stroke = true)
+      begin_path
+      move_to            x + radius,         y
+      line_to            x + width - radius, y
+      quadratic_curve_to x + width,          y,                  x + width,          y + radius
+      line_to            x + width,          y + height - radius
+      quadratic_curve_to x + width,          y + height,         x + width - radius, y + height
+      line_to            x + radius,         y + height
+      quadratic_curve_to x,                  y + height,         x,                  y + height - radius
+      line_to            x,                  y + radius
+      quadratic_curve_to x,                  y,                  x + radius,         y
+      close_path
+
+      self.stroke if stroke
+      self.fill   if fill
+    end
+
+    def collides?(rect, x, y)
+      x > rect[:x] && x < rect[:x] + rect[:w] && y > rect[:y] && y < rect[:y] + rect[:h]
+    end
+
+    def draw(ary)
+      ary.each { |image|
+        draw_image image[:src], image[:x], image[:y]
+      }
+    end
+
+    def draw_image(*args)
+      image = args.shift
+      x, y, width, height = args
+      `#@canvas.drawImage(image, x, y)`
+    end
+
+    def clear
+      fill_style = '#000'
+      round_rect 2, 725, 1276, 120
+    end
+  end
+end

data/opal/sottolio/wrapper/canvas/canvas_button.rb

@@ -0,0 +1,69 @@
+#--
+# Copyright(C) 2013-2015 Giovanni Capuano <webmaster@giovannicapuano.net>
+#
+# This file is part of sottolio.
+#
+# sottolio is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# sottolio is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with sottolio.  If not, see <http://www.gnu.org/licenses/>.
+#++
+module Sottolio
+  class CanvasButton < CanvasText
+    def initialize(element, hash = nil, lock = nil)
+      super element, hash
+
+      @lock = lock || ::Lock.new
+    end
+
+    def get_choice(database, options, key, on_success)
+      @lock.lock!
+
+      fill_style = 'rgba(200, 54, 54, 0.5)'
+
+      rect = [
+        { x: 250, y: 790, w: 300, h: 50, tx: 260, ty: 825 },
+        { x: 750, y: 790, w: 300, h: 50, tx: 760, ty: 825 }
+      ]
+
+      rect.each_with_index { |r, i|
+        round_rect r[:x], r[:y], r[:w], r[:h]
+
+        draw_text({
+          :x         => r[:tx],
+          :y         => r[:ty],
+          :text      => options[i][:text],
+          :box_width => "#{r[:w]}px"
+        })
+
+        Sottolio.add_listener :click, @canvas_id, -> (e) {
+          x = `e.pageX` - `#@canvas_id.offsetLeft`
+          y = `e.pageY` - `#@canvas_id.offsetTop`
+
+          if collides? r, x, y
+            database.add key, options[i][:id]
+
+            rect.each { |tr|
+              clear_rect tr[:x] - 10,
+                         tr[:y] - 10,
+                         tr[:w] + 20,
+                         tr[:h] + 15
+            }
+
+            @lock.free!
+
+            on_success.call
+          end
+        }
+      }
+    end
+  end
+end

data/opal/sottolio/wrapper/canvas/canvas_input.rb

@@ -0,0 +1,73 @@
+#--
+# Copyright(C) 2013-2015 Giovanni Capuano <webmaster@giovannicapuano.net>
+#
+# This file is part of sottolio.
+#
+# sottolio is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# sottolio is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with sottolio.  If not, see <http://www.gnu.org/licenses/>.
+#++
+module Sottolio
+  class CanvasInput
+    def initialize(id, database, key, text = '', x = 10, y = 800)
+      @database  = database
+      @key       = key
+      @destroyed = false
+
+      %x{
+        #@canvas_input = new CanvasText(id, {
+          x: x,
+          y: y,
+          placeHolder: text,
+          width: 300,
+          padding: 8
+        });
+        #@canvas_input.focus();
+      }
+    end
+
+    def value
+      `#@canvas_input.value`
+    end
+
+    def empty?
+      `#@canvas_input.value.length == 0`
+    end
+
+    def save
+      @database.add @key, value
+    end
+
+    def destroy
+      @destroy = true
+
+      %x{
+        #@canvas_input.unfocus();
+        #@canvas_input.refresh = null;
+        #@canvas_input.destroy();
+        delete #@canvas_input;
+      }
+    end
+
+    def present?
+      not destroyed?
+    end
+
+    def destroyed?
+      @destroy
+    end
+
+    def save_and_destroy
+      save && destroy
+    end
+  end
+end

data/opal/sottolio/wrapper/canvas/canvas_text.rb

@@ -0,0 +1,64 @@
+#--
+# Copyright(C) 2013-2015 Giovanni Capuano <webmaster@giovannicapuano.net>
+#
+# This file is part of sottolio.
+#
+# sottolio is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# sottolio is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with sottolio.  If not, see <http://www.gnu.org/licenses/>.
+#++
+module Sottolio
+  class CanvasText < Canvas
+    def initialize(element, hash = nil)
+      super element, '2d'
+
+      @canvas_id = element
+
+      %x{
+        #@canvas_text = new CanvasText;
+      }
+
+      config hash if hash
+    end
+
+    def config(hash)
+      %x{
+        #@canvas_text.config({
+          canvasId:   #{hash[:canvas_id]},
+          fontFamily: #{hash[:font_family]},
+          fontSize:   #{hash[:font_size]},
+          fontColor:  #{hash[:font_color]}
+        });
+      }
+    end
+
+    def draw_text(hash)
+      %x{
+        #@canvas_text.drawText({
+          x: #{hash[:x]},
+          y: #{hash[:y]},
+          text: #{hash[:text]},
+          boxWidth: #{hash[:box_width] || '130px'}
+        });
+      }
+    end
+
+    def write(what, keep = false)
+      draw_text({
+        :x         => 5,
+        :y         => 760,
+        :text      => what,
+        :box_width => '130px'
+      })
+    end
+  end
+end