kredki 0.1.0

data/lib/kredki/core/pastele/pastele-extern.rb

@@ -0,0 +1,139 @@
+## File generated from pastele/cabi.h
+
+module Kredki
+  module Pastele
+    extern 'int thorvg_engine_init(int engine_method, int threads)'
+    extern 'int thorvg_engine_term(int engine_method)'
+    extern 'void sdl_init(int joystick_enabled)'
+    extern 'uint64_t sdl_get_ticks()'
+    extern 'void clipboard_set_text(char* text)'
+    extern 'char* clipboard_get_text( void)'
+    extern 'void clipboard_get_mime_types( void(*consumer)(char*))'
+    extern 'uint8_t keyboard_get_key_state(int keycode)'
+    extern 'uint16_t keyboard_get_mod_state( void)'
+    extern 'uint32_t mouse_get_button_state(int index)'
+    extern 'void mouse_get_cursor_position(Point* point)'
+    extern 'void mouse_set_capture(int set)'
+    extern 'void* mouse_create_system_cursor(int cursor)'
+    extern 'void mouse_set_cursor(SDL_Cursor* cursor)'
+    extern 'uint32_t joystick_open(int index)'
+    extern 'uint8_t joystick_get_button_state(int device_id, int button_index)'
+    extern 'int16_t joystick_get_axis_value(int device_id, int axis_index)'
+    extern 'void* application_new( void)'
+    extern 'void application_delete(pastele::Application* self)'
+    extern 'uint32_t application_insert_window(pastele::Application* self, pastele::Window* window)'
+    extern 'uint32_t application_erase_window(pastele::Application* self, pastele::Window* window)'
+    extern 'void application_set_event_handler(pastele::Application* self, int( *eventHandler)(int,  SDL_Event*))'
+    extern 'void application_run(pastele::Application* self)'
+    extern 'void application_exit(pastele::Application* self)'
+    extern 'void* window_new_sw(int width, int height)'
+    extern 'void* window_new_gl(int width, int height)'
+    extern 'void window_delete(pastele::Window* self)'
+    extern 'void window_close(pastele::Window* self)'
+    extern 'void window_update_request(pastele::Window* self)'
+    extern 'void window_update(pastele::Window* self, int needResize)'
+    extern 'void window_show(pastele::Window* self)'
+    extern 'void window_hide(pastele::Window* self)'
+    extern 'void window_set_scene(pastele::Window* self, tvg::Scene* scene)'
+    extern 'void window_paint_to_update(pastele::Window* self, tvg::Paint* paint)'
+    extern 'void window_maximize(pastele::Window* self)'
+    extern 'void window_minimize(pastele::Window* self)'
+    extern 'void window_focus(pastele::Window* self)'
+    extern 'void window_restore(pastele::Window* self)'
+    extern 'void window_set_bordered(pastele::Window* self, int bordered)'
+    extern 'void window_set_fullscreen(pastele::Window* self, int fullscreen)'
+    extern 'void window_set_mouse_grab(pastele::Window* self, int grab)'
+    extern 'int window_get_mouse_grab(pastele::Window* self)'
+    extern 'void window_set_mouse_relative_mode(pastele::Window* self, int relative)'
+    extern 'int window_get_mouse_relative_mode(pastele::Window* self)'
+    extern 'void window_set_minimum_size(pastele::Window* self, int w, int h)'
+    extern 'void window_set_maximum_size(pastele::Window* self, int w, int h)'
+    extern 'void window_get_minimum_size(pastele::Window* self, IntPoint* point)'
+    extern 'void window_get_maximum_size(pastele::Window* self, IntPoint* point)'
+    extern 'void window_set_opacity(pastele::Window* self, float opacity)'
+    extern 'float window_get_opacity(pastele::Window* self)'
+    extern 'void window_set_position(pastele::Window* self, int x, int y)'
+    extern 'void window_set_resizable(pastele::Window* self, int resizable)'
+    extern 'void window_set_size(pastele::Window* self, int w, int h)'
+    extern 'void window_set_title(pastele::Window* self, char* title)'
+    extern 'const char* window_get_title(pastele::Window* self)'
+    extern 'void window_set_always_on_top(pastele::Window* self, int on_top)'
+    extern 'void window_get_size(pastele::Window* self, IntPoint* point)'
+    extern 'void window_get_position(pastele::Window* self, IntPoint* point)'
+    extern 'void window_set_text_input(pastele::Window* self, int input)'
+    extern 'int window_get_text_input(pastele::Window* self)'
+    extern 'int window_get_flags(pastele::Window* self)'
+    extern 'void window_surface_to_png(pastele::Window* self, const char* file)'
+    extern 'void window_get_display_bounds(pastele::Window* self, Bounds* bounds)'
+    extern 'void window_get_pixel_color(pastele::Window* self, int x, int y, IntPoint* rg, IntPoint* ba)'
+    extern 'void paint_delete(Paint* self)'
+    extern 'void paint_set_transform(Paint* self, float pivot_x, float pivot_y, float x, float y, float a, float zoom_x, float fy)'
+    extern 'void paint_set_opacity(Paint* self, uint8_t opacity)'
+    extern 'void paint_get_bounds(Paint* self, Bounds* bounds)'
+    extern 'void paint_set_clip(Paint* self, Shape* clipper)'
+    extern 'void paint_set_mask(Paint* self, Paint* target, int mask)'
+    extern 'void paint_set_blend_method(Paint* self, int method)'
+    extern 'void paint_accessor_traverse(Paint* self, int(*callback)(const tvg::Paint* paint, void* data))'
+    extern 'int paint_get_type(Paint* self)'
+    extern 'void* shape_new( void)'
+    extern 'void shape_delete(Shape* self)'
+    extern 'void shape_reset(Shape* self)'
+    extern 'void shape_move_to(Shape* self, float x, float y)'
+    extern 'void shape_line_to(Shape* self, float x, float y)'
+    extern 'void shape_cubic_to(Shape* self, float cx1, float cy1, float cx2, float cy2, float x, float y)'
+    extern 'void shape_close(Shape* self)'
+    extern 'void shape_append_rect(Shape* self, float x, float y, float w, float h)'
+    extern 'void shape_append_circle(Shape* self, float cx, float cy, float rx, float ry)'
+    extern 'void shape_append_round_rect(Shape* self, float x, float y, float w, float h, float corner_ss, float corner_se, float corner_es, float corner_ee)'
+    extern 'void shape_set_stroke_width(Shape* self, float width)'
+    extern 'void shape_set_stroke_color(Shape* self, uint8_t r, uint8_t g, uint8_t b, uint8_t a)'
+    extern 'void shape_set_stroke_linear_gradient(Shape* self, float x, float y, float ex, float ey, const uint8_t* colors, const float* offsets, uint32_t cnt, int spread)'
+    extern 'void shape_set_stroke_radial_gradient(Shape* self, float cx, float cy, float r, float fx, float fy, float fr, const uint8_t* colors, const float* offsets, uint32_t cnt, int spread)'
+    extern 'void shape_set_stroke_dash(Shape* self, const float* dashPattern, uint32_t cnt, float offset)'
+    extern 'void shape_set_stroke_cap(Shape* self, int cap)'
+    extern 'void shape_set_stroke_join(Shape* self, int join)'
+    extern 'void shape_set_stroke_miterlimit(Shape* self, float miterlimit)'
+    extern 'void shape_set_stroke_trim(Shape* self, float begin, float end, int simultaneous)'
+    extern 'void shape_set_fill_color(Shape* self, uint8_t r, uint8_t g, uint8_t b, uint8_t a)'
+    extern 'void shape_set_fill_rule(Shape* self, int rule)'
+    extern 'void shape_set_paint_order(Shape* self, int strokeFirst)'
+    extern 'void shape_set_fill(Shape* self, Fill* fill)'
+    extern 'void shape_set_fill_linear_gradient(Shape* self, float x, float y, float ex, float ey, const uint8_t* colors, const float* offsets, uint32_t cnt, int spread)'
+    extern 'void shape_set_fill_radial_gradient(Shape* self, float cx, float cy, float r, float fx, float fy, float fr, const uint8_t* colors, const float* offsets, uint32_t cnt, int spread)'
+    extern 'Picture* picture_new( void)'
+    extern 'int picture_load(Picture* self, const char* path)'
+    extern 'void picture_set_size(Picture* self, float w, float h)'
+    extern 'void picture_get_size(Picture* self, Point* size)'
+    extern 'void* picture_accessor_get(Picture* self, const char* id)'
+    extern 'void* scene_new( void)'
+    extern 'void scene_delete(Scene* self)'
+    extern 'void scene_add(Scene* self, Paint* paint, Paint* at)'
+    extern 'void scene_remove(Scene* self, Paint* paint)'
+    extern 'void scene_clear_effects(Scene* self)'
+    extern 'void scene_add_gaussian_blur(Scene* self, double sigma, int direction, int border, int quality)'
+    extern 'void scene_add_drop_shadow(Scene* self, int r, int g, int b, int a, double angle, double distance, double blurSigma, int quality)'
+    extern 'void scene_add_fill(Scene* self, int r, int g, int b, int a)'
+    extern 'void scene_add_tint(Scene* self, int br, int bg, int bb, int wr, int wg, int wb, double intensity)'
+    extern 'void scene_add_tritone(Scene* self, int sr, int sg, int sb, int mr, int mg, int mb, int hr, int hg, int hb, int blend)'
+    extern 'void* text_new( void)'
+    extern 'void text_delete(Text* self)'
+    extern 'void text_set_font(Text* self, const char* fontName)'
+    extern 'void text_set_size(Text* self, float size)'
+    extern 'void text_set_text(Text* self, const char* text)'
+    extern 'void text_set_fill_color(Text* self, uint8_t r, uint8_t g, uint8_t b)'
+    extern 'void text_set_fill_linear_gradient(Text* self, float x, float y, float ex, float ey, const uint8_t* colors, const float* offsets, uint32_t cnt, int spread)'
+    extern 'void text_set_fill_radial_gradient(Text* self, float cx, float cy, float r, float fx, float fy, float fr, const uint8_t* colors, const float* offsets, uint32_t cnt, int spread)'
+    extern 'void text_set_outline(Text* self, float width, uint8_t r, uint8_t g, uint8_t b)'
+    extern 'float text_get_text_width(Text* self, const char* text, int indexLimit)'
+    extern 'int text_nearest_character_index(Text* self, const char* text, float widthLimit)'
+    extern 'int font_load(const char* path)'
+    extern 'int font_unload(const char* path)'
+    extern 'Animation* animation_new( void)'
+    extern 'void animation_set_frame(Animation* self, float no)'
+    extern 'Paint* animation_get_picture(Animation* self)'
+    extern 'float animation_get_total_frames(Animation* self)'
+    extern 'float animation_get_duration(Animation* self)'
+    extern 'void animation_set_segment(Animation* self, float begin, float end)'
+    extern 'void animation_delete(Animation* self)'
+  end
+end

data/lib/kredki/core/pastele/pastele.rb

@@ -0,0 +1,205 @@
+require 'fiddle/import'
+
+module Kredki
+  module Pastele
+    extend Fiddle::Importer
+    if Kredki.unit_test_mode
+      class << self
+        alias_method :o_extern, :extern
+
+        def extern function
+          function = o_extern(function).name
+          class_eval <<~RUBY
+            class << self
+              alias_method :o_#{function}, :#{function}
+              def #{function} *a
+                calls << [:#{function}, *a]
+                o_#{function} *a
+              end
+            end
+          RUBY
+
+        end
+
+        attr_accessor :calls
+      end
+
+      self.calls = []
+    end
+
+    current_lib = nil
+    begin
+      dlload (current_lib = Kredki.sdl || raise("SDL shared library setup is missing"))
+      dlload (current_lib = Kredki.thorvg || raise("ThorVG shared library setup is missing"))
+      dlload (current_lib = Kredki.pastele || raise("Pastele shared library setup is missing"))
+
+    rescue LoadError
+      raise LoadError, "Could not load #{current_lib}"
+    rescue Fiddle::DLError
+      raise Fiddle::DLError, "Could not load #{current_lib}"
+    end
+
+    UserEvent = struct [
+      'uint32_t type',
+      'uint32_t reserved',
+      'uint64_t timestamp',
+      'uint32_t window_id',
+    ]
+
+    KeyboardEvent = struct [
+      'uint32_t type',
+      'uint32_t reserved',
+      'uint64_t timestamp',
+      'uint32_t window_id',
+      'uint32_t keyboard_id',
+      'int scancode',
+      'int sym',
+      'uint16_t mod',
+      'uint16_t raw',
+      # 'bool down',
+      # 'bool repeat',
+    ]
+
+    MouseMotionEvent = struct [
+      'uint32_t type',
+      'uint32_t reserved',
+      'uint64_t timestamp',
+      'uint32_t window_id',
+      'uint32_t which',
+      'uint32_t state',
+      'float x',
+      'float y',
+      'float xrel',
+      'float yrel',
+    ]
+
+    MouseButtonEvent = struct [
+      'uint32_t type',
+      'uint32_t reserved',
+      'uint64_t timestamp',
+      'uint32_t window_id',
+      'uint32_t which',
+      'uint8_t button',
+      'uint8_t down', # bool
+      'uint8_t clicks',
+      'uint8_t padding1', #unused
+      'float x',
+      'float y',
+    ]
+
+    MouseWheelEvent = struct [
+      'uint32_t type',
+      'uint32_t reserved',
+      'uint64_t timestamp',
+      'uint32_t window_id',
+      'uint32_t which',
+      'float x',
+      'float y',
+      'uint32_t direction',
+      'float mouse_x',
+      'float mouse_y',
+    ]
+
+    WindowEvent = struct [
+      'uint32_t type',
+      'uint32_t reserved',
+      'uint64_t timestamp',
+      'uint32_t window_id',
+      'int32_t data1',
+      'int32_t data2',
+    ]
+
+    DisplayEvent = struct [
+      'uint32_t type',
+      'uint32_t reserved',
+      'uint64_t timestamp',
+      'uint32_t display',
+      'int32_t data1',
+      'int32_t data2',
+    ]
+
+    TextInputEvent = struct [
+      'uint32_t type',
+      'uint32_t reserved',
+      'uint64_t timestamp',
+      'uint32_t window_id',
+      'char* text'
+    ]
+
+    DropEvent = struct [
+      'uint32_t type',
+      'uint32_t reserved',
+      'uint64_t timestamp',
+      'uint32_t window_id',
+      'float x',
+      'float y',
+      'char* source',
+      'char* data',
+    ]
+
+    QuitEvent = struct [
+      'uint32_t type',
+      'uint32_t reserved',
+      'uint64_t timestamp',
+    ]
+
+    JoyDeviceEvent = struct [
+      'uint32_t type',
+      'uint32_t reserved',
+      'uint64_t timestamp',
+      'uint32_t which',
+    ]
+    
+    JoyButtonEvent = struct [
+      'uint32_t type',
+      'uint32_t reserved',
+      'uint64_t timestamp',
+      'uint32_t which',
+      'uint8_t button',
+      'uint8_t down' # bool
+    ]
+
+    JoyAxisEvent = struct [
+      'uint32_t type',
+      'uint32_t reserved',
+      'uint64_t timestamp',
+      'uint32_t which',
+      'uint8_t axis',
+      'uint8_t padding1', #unused
+      'uint8_t padding2', #unused
+      'uint8_t padding3', #unused
+      'int16_t value'
+    ]
+
+    JoyHatEvent = struct [
+      'uint32_t type',
+      'uint32_t reserved',
+      'uint64_t timestamp',
+      'uint32_t which',
+      'uint8_t hat',
+      'uint8_t value',
+      'uint8_t padding1', #unused
+      'uint8_t padding2', #unused
+    ]
+
+    Bounds = struct [
+      'float x',
+      'float y',
+      'float w',
+      'float h',
+    ]
+
+    Point = struct [
+      'float x',
+      'float y'
+    ]
+
+    IntPoint = struct [
+      'int x',
+      'int y',
+    ]
+  end
+end
+
+
+require_relative 'pastele-extern'

data/lib/kredki/core/radial_gradient.rb

@@ -0,0 +1,45 @@
+module Kredki
+  class RadialGradient
+
+    def initialize colors, cx, cy, r, fx = cx, fy = cy, fr = 0, offsets: nil, spread: nil
+      @fx = fx
+      @fy = fy
+      @fr = fr
+      @cx = cx
+      @cy = cy
+      @r = r
+      @colors = colors
+      @offsets = offsets
+      @spread = spread
+    end
+
+    def self.[](...)
+      self.new(...)
+    end
+
+    # :section: LEVEL 2
+
+    def inspect
+      "#{self.class}:#{object_id}"
+    end
+
+    def ffi
+      rgbas = @colors.map{|color| Kredki.color(color).to_rgba }.flatten
+      offsets = @offsets || (0...@colors.size).map{|it| it.to_f / (@colors.size - 1) }
+      spread = case @spread
+      when :pad, nil, 0 then 0
+      when :reflect, 1 then 1
+      when :repeat, 2 then 2
+      else raise_is @spread
+      end
+      [
+        @cx, @cy, @r, @fx, @fy, @fr,
+        Fiddle::Pointer[rgbas.pack "C*"],
+        Fiddle::Pointer[offsets.pack "f*"],
+        @colors.size,
+        spread
+      ]
+    end
+
+  end#RadialGradient
+end#Kredki

data/lib/kredki/core/setup.rb

@@ -0,0 +1,214 @@
+require_relative 'kernel-path'
+require_relative 'media/clipboard'
+require_relative 'media/keyboard_modifiers_decoder'
+require_relative 'media/keyboard'
+require_relative 'media/mouse'
+require_relative 'media/joystick'
+require_relative 'color'
+require_relative 'font'
+require_relative 'linear_gradient'
+require_relative 'radial_gradient'
+
+module Kredki
+  Not = :not
+
+  class << self
+
+    # Kredki root directory.
+    def dir
+      File.expand_path "../../../..", __FILE__
+    end
+ 
+    # Run the app or get the app if it is already running.
+    def app opened = nil, *a, **ka, &block
+      if !@init
+        Pastele.thorvg_engine_init 2, 4
+        Pastele.sdl_init joystick ? 1 : 0
+        @init = true
+      end
+      @app = @app_class.new if !@app
+      if opened || block
+        @app.open opened, *a, **ka, &block
+        return @app.run
+      end
+      @app
+    end
+
+    def app= app_class
+      @app_class = app_class
+    end
+
+    # Milliseconds since SDL was initialized.
+    def ms
+      Pastele.sdl_get_ticks * 0.000001
+    end
+    
+    # Set clipboard model.
+    def clipboard! clipboard = nil
+      @clipboard = clipboard || Clipboard.new
+    end
+
+    # Get clipboard model.
+    def clipboard
+      @clipboard
+    end
+
+    # Set keyboard model.
+    def keyboard! keyboard = nil, **ka, &b
+      @keyboard = keyboard || Keyboard.new
+      @keyboard.set **ka, &b
+    end
+
+    # Get keyboard model.
+    def keyboard
+      @keyboard
+    end
+
+    # Set mouse model.
+    def mouse! mouse = nil, **ka, &b
+      @mouse = mouse || Mouse.new
+      @mouse.set **ka, &b
+    end
+
+    # Get mouse model.
+    def mouse
+      @mouse
+    end
+
+    # Set joystick model.
+    def joystick! key = nil, joystick = nil, **ka, &b
+      (@joysticks[key] = joystick || Joystick.new).set **ka, &b
+    end
+
+    # Get joystick model.
+    def joystick key = nil
+      @joysticks[key] or raise "Joystick #{key.inspect} not registered"
+    end
+    
+    # Set font.
+    def font! key, path
+      @fonts[key] = Font.new path
+    end
+
+    # Get font.
+    def font param = nil
+      case param
+      when nil
+        @fonts.each_value&.first or raise "No fonts loaded"
+      when Font
+        param
+      when :random
+        @fonts.values.sample or raise "No fonts loaded"
+      when String
+        @fonts.each_value.find{|it| it.name == param || it.path == param } or raise "Unknown font #{param.inspect}"
+      else
+        @fonts.itself[param] or raise "Unknown font #{param.inspect}"
+      end
+    end
+
+    # Set color.
+    def color! id, *a
+      @colors[id] = Color.parse *a
+    end
+
+    # Get color.
+    def color param = nil
+      case param
+      when nil
+        @colors.each_value.first || Color.new(255, 255, 255)
+      when Color
+        param
+      when :random
+        Color.new rand(255), rand(255), rand(255)
+      when Array
+        if param.size == 2
+          color(param[0]).clarify param[1]
+        else
+          Color.new *param
+        end
+      else
+        @colors[param] or raise "Unknown color #{param}"
+      end
+    end
+
+    # Get fill.
+    def fill param
+      case param
+      when LinearGradient, RadialGradient
+        param
+      else
+        color param
+      end
+    end
+        
+
+    # Set glyph.
+    def glyph! key, path
+      @glyphs[key] = path
+    end
+
+    # Get glyph.
+    def glyph param = nil
+      case param
+      when :random
+        @glyphs.values.sample or raise "No glyphs loaded"
+      when String
+        param
+      else
+        @glyphs[param] or raise "Unknown glyph #{param.inspect}"
+      end
+    end
+
+    # Get relative scroll value
+    def relative_scroll x, y
+      mouse = self.mouse
+      keyboard = self.keyboard
+
+      jump = keyboard.alt? ? mouse.scroll_speed_alt : mouse.scroll_speed
+      keyboard.shift? ? [y * jump, x * jump] : [x * jump, y * jump]
+    end
+
+    # :section: LEVEL 2
+
+    def clear_app
+      @app = nil
+    end
+
+    attr_accessor :joysticks
+    attr_accessor :opened_joysticks
+    attr_accessor :fonts
+    attr_accessor :colors
+    attr_accessor :glyphs
+
+    attr_accessor :sdl
+    attr_accessor :thorvg
+    attr_accessor :pastele
+
+    attr_accessor :engine
+    attr_accessor :config
+    attr_accessor :unit_test_mode
+
+    attr_accessor :text_size
+  end
+
+  self.colors = {}
+  self.fonts = {}
+  self.glyphs = {}
+  self.joysticks = {}
+  self.opened_joysticks = {}
+
+  case RUBY_PLATFORM
+  when /cygwin|mswin|mingw|bccwin|wince|emx/
+    self.sdl = "#{dir}/stuff/dll/SDL3.dll"
+    self.thorvg = "#{dir}/stuff/dll/thorvg-1.dll"
+    self.pastele = "#{dir}/stuff/dll/pastele.dll"
+  when /linux/
+    self.sdl = "#{dir}/stuff/so/libSDL3.so"
+    self.thorvg = "#{dir}/stuff/so/libthorvg-1.so"
+    self.pastele = "#{dir}/stuff/so/libpastele.so"
+  end
+
+  self.engine = :sw
+  self.config = "#{dir}/stuff/config/config.rb"
+  self.text_size = 20
+end