glimmer-dsl-libui 0.1.1 → 0.1.5

data/lib/glimmer/dsl/libui/shape_expression.rb

@@ -0,0 +1,56 @@
+# Copyright (c) 2021 Andy Maleh
+#
+# Permission is hereby granted, free of charge, to any person obtaining
+# a copy of this software and associated documentation files (the
+# "Software"), to deal in the Software without restriction, including
+# without limitation the rights to use, copy, modify, merge, publish,
+# distribute, sublicense, and/or sell copies of the Software, and to
+# permit persons to whom the Software is furnished to do so, subject to
+# the following conditions:
+#
+# The above copyright notice and this permission notice shall be
+# included in all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+require 'glimmer/dsl/expression'
+require 'glimmer/dsl/parent_expression'
+
+module Glimmer
+  module DSL
+    module Libui
+      class ShapeExpression < Expression
+        include ParentExpression
+  
+        def can_interpret?(parent, keyword, *args, &block)
+          Glimmer::LibUI::Shape.exists?(keyword) and
+            (
+              parent.is_a?(Glimmer::LibUI::PathProxy) or
+                parent.is_a?(Glimmer::LibUI::Shape)
+            )
+        end
+  
+        def interpret(parent, keyword, *args, &block)
+          Glimmer::LibUI::Shape.create(keyword, parent, args, &block)
+        end
+        
+        def add_content(parent, keyword, *args, &block)
+          super
+          parent.post_add_content
+        end
+        
+      end
+    end
+  end
+end
+
+# TODO Consider moving all shapes underneath Shape namespace
+require 'glimmer/libui/path_proxy'
+require 'glimmer/libui/shape'
+Dir[File.expand_path('../../libui/*.rb', __dir__)].each {|f| require f}

data/lib/glimmer/libui/{rectangle_proxy.rb → arc.rb}

@@ -19,37 +19,22 @@
 # OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
 # WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
-require 'glimmer/libui/control_proxy'
+require 'glimmer/libui/shape'
 
 module Glimmer
   module LibUI
-    # Proxy for LibUI rectangle objects
-    #
-    # Follows the Proxy Design Pattern
-    class RectangleProxy < ControlProxy
-      def initialize(keyword, parent, args, &block)
-        @keyword = keyword
-        @parent_proxy = parent
-        @args = args
-        @block = block
-        @enabled = true
-        post_add_content if @block.nil?
-      end
-    
+    class Arc < Shape
+      parameters :x_center, :y_center, :radius, :start_angle, :sweep, :is_negative
+      parameter_defaults 0, 0, 0, 0, 360, false
+              
       def draw(area_draw_params)
-        ::LibUI.draw_path_add_rectangle(@parent_proxy.libui, *@args)
-      end
-      
-      def destroy
-        if @parent_proxy
-          @parent_proxy.children.delete(self)
+        @args[5] ||= Glimmer::LibUI.boolean_to_integer(@args[5], allow_nil: false)
+        if parent.is_a?(Figure) && parent.x.nil? && parent.y.nil?
+          ::LibUI.draw_path_new_figure_with_arc(path_proxy.libui, *@args)
+        else
+          ::LibUI.draw_path_arc_to(path_proxy.libui, *@args)
         end
-      end
-      
-      private
-      
-      def build_control
-        # No Op
+        super
       end
     end
   end

data/lib/glimmer/libui/area_proxy.rb

@@ -21,6 +21,8 @@
 
 require 'glimmer/libui/control_proxy'
 require 'glimmer/fiddle_consumer'
+require 'glimmer/libui/parent'
+require 'glimmer/libui/transformable'
 
 module Glimmer
   module LibUI
@@ -28,24 +30,22 @@ module Glimmer
     #
     # Follows the Proxy Design Pattern
     class AreaProxy < ControlProxy
+      class << self
+        # this attribute is only populated during on_draw call
+        attr_accessor :current_area_draw_params
+      end
+      
       include Glimmer::FiddleConsumer
+      include Parent
+      prepend Transformable
       
       attr_reader :area_handler
       
-      def post_initialize_child(child)
-        super
-        children << child
-      end
-      
       def post_add_content
         super
         install_listeners
       end
       
-      def children
-        @children ||= []
-      end
-      
       def on_draw(&block)
         @on_draw_procs ||= []
         if block.nil?
@@ -69,6 +69,15 @@ module Glimmer
         end
       end
       
+      def draw(area_draw_params)
+        children.dup.each {|child| child.draw(area_draw_params)}
+        on_draw.each {|listener| listener.call(area_draw_params)}
+      end
+      
+      def redraw
+        queue_redraw_all
+      end
+      
       private
       
       def build_control
@@ -80,8 +89,9 @@ module Glimmer
         @area_handler.Draw         = fiddle_closure_block_caller(0, [1, 1, 1]) do |_, _, area_draw_params|
           area_draw_params = ::LibUI::FFI::AreaDrawParams.new(area_draw_params)
           area_draw_params = area_draw_params_hash(area_draw_params)
-          children.each {|child| child.draw(area_draw_params)}
-          on_draw.each {|listener| listener.call(area_draw_params) }
+          AreaProxy.current_area_draw_params = area_draw_params
+          draw(area_draw_params)
+          AreaProxy.current_area_draw_params = nil
         end
         @area_handler.MouseEvent   = fiddle_closure_block_caller(0, [0]) {}
         @area_handler.MouseCrossed = fiddle_closure_block_caller(0, [0]) {}

data/lib/glimmer/libui/bezier.rb

@@ -0,0 +1,36 @@
+# Copyright (c) 2021 Andy Maleh
+#
+# Permission is hereby granted, free of charge, to any person obtaining
+# a copy of this software and associated documentation files (the
+# "Software"), to deal in the Software without restriction, including
+# without limitation the rights to use, copy, modify, merge, publish,
+# distribute, sublicense, and/or sell copies of the Software, and to
+# permit persons to whom the Software is furnished to do so, subject to
+# the following conditions:
+#
+# The above copyright notice and this permission notice shall be
+# included in all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+require 'glimmer/libui/shape'
+
+module Glimmer
+  module LibUI
+    class Bezier < Shape
+      parameters :c1_x, :c1_y, :c2_x, :c2_y, :end_x, :end_y
+      parameter_defaults 0, 0, 0, 0, 0, 0
+              
+      def draw(area_draw_params)
+        ::LibUI.draw_path_bezier_to(path_proxy.libui, *@args)
+        super
+      end
+    end
+  end
+end

data/lib/glimmer/libui/box.rb

@@ -28,7 +28,7 @@ module Glimmer
       
       def post_initialize_child(child)
         child.stretchy = true if child.stretchy.nil?
-        ::LibUI.box_append(@libui, child.libui, ControlProxy.boolean_to_integer(child.stretchy))
+        ::LibUI.box_append(@libui, child.libui, Glimmer::LibUI.boolean_to_integer(child.stretchy))
         children << child
       end
       

data/lib/glimmer/libui/color_button_proxy.rb

@@ -27,30 +27,82 @@ module Glimmer
     #
     # Follows the Proxy Design Pattern
     class ColorButtonProxy < ControlProxy
-      def color
-        @red ||= Fiddle::Pointer.malloc(8) # double
-        @green ||= Fiddle::Pointer.malloc(8) # double
-        @blue ||= Fiddle::Pointer.malloc(8) # double
-        @alpha ||= Fiddle::Pointer.malloc(8) # double
-        ::LibUI.color_button_color(@libui, @red, @green, @blue, @alpha)
-        [@red[0, 8].unpack1('d') * 255.0, @green[0, 8].unpack1('d') * 255.0, @blue[0, 8].unpack1('d') * 255.0, @alpha[0, 8].unpack1('d')]
+      def color(value = nil)
+        # TODO support hex color value
+        if value.nil?
+          @red ||= Fiddle::Pointer.malloc(8) # double
+          @green ||= Fiddle::Pointer.malloc(8) # double
+          @blue ||= Fiddle::Pointer.malloc(8) # double
+          @alpha ||= Fiddle::Pointer.malloc(8) # double
+          ::LibUI.color_button_color(@libui, @red, @green, @blue, @alpha)
+          {
+            r: @red[0, 8].unpack1('d') * 255.0,
+            g: @green[0, 8].unpack1('d') * 255.0,
+            b: @blue[0, 8].unpack1('d') * 255.0,
+            a: @alpha[0, 8].unpack1('d')
+          }
+        else
+          current_color = color
+          value = Glimmer::LibUI.hex_to_rgb(value)
+          value[:r] ||= current_color[:r]
+          value[:g] ||= current_color[:g]
+          value[:b] ||= current_color[:b]
+          value[:a] ||= current_color[:a]
+          ::LibUI.color_button_set_color(@libui, value[:r].to_f / 255.0, value[:g].to_f / 255.0, value[:b].to_f / 255.0, value[:a])
+        end
       end
       
-      def red
-        color[0]
+      def red(value = nil)
+        if value.nil?
+          color[:r]
+        else
+          self.color = {r: value}
+        end
       end
+      alias red= red
+      alias set_red red
+      alias r red
+      alias r= red
+      alias set_r red
       
-      def green
-        color[1]
+      def green(value = nil)
+        if value.nil?
+          color[:g]
+        else
+          self.color = {g: value}
+        end
       end
+      alias green= green
+      alias set_green green
+      alias g green
+      alias g= green
+      alias set_g green
       
-      def blue
-        color[2]
+      def blue(value = nil)
+        if value.nil?
+          color[:b]
+        else
+          self.color = {b: value}
+        end
       end
+      alias blue= blue
+      alias set_blue blue
+      alias b blue
+      alias b= blue
+      alias set_b blue
       
-      def alpha
-        color[3]
+      def alpha(value = nil)
+        if value.nil?
+          color[:a]
+        else
+          self.color = {a: value}
+        end
       end
+      alias alpha= alpha
+      alias set_alpha alpha
+      alias a alpha
+      alias a= alpha
+      alias set_a alpha
       
       def destroy
         Fiddle.free @red unless @red.nil?

data/lib/glimmer/libui/control_proxy.rb

@@ -26,7 +26,7 @@ module Glimmer
     # Follows the Proxy Design Pattern
     class ControlProxy
       class << self
-        def control_exists?(keyword)
+        def exists?(keyword)
           ::LibUI.respond_to?("new_#{keyword}") ||
             ::LibUI.respond_to?(keyword) ||
             Glimmer::LibUI.constants.include?("#{keyword.camelcase(:upper)}Proxy".to_sym)
@@ -55,14 +55,6 @@ module Glimmer
           control_proxies.find {|c| c.is_a?(Glimmer::LibUI::WindowProxy)}
         end
         
-        def integer_to_boolean(int)
-          int.nil? ? nil : int == 1
-        end
-        
-        def boolean_to_integer(bool)
-          bool.nil? ? nil : (bool ? 1 : 0)
-        end
-        
         def menu_proxies
           control_proxies.select {|c| c.keyword == 'menu' }
         end
@@ -92,7 +84,7 @@ module Glimmer
       ]
       
       # libui returns the contained LibUI object
-      attr_reader :parent_proxy, :libui, :args, :keyword
+      attr_reader :parent_proxy, :libui, :args, :keyword, :block
       
       def initialize(keyword, parent, args, &block)
         @keyword = keyword
@@ -173,7 +165,7 @@ module Glimmer
           handle_string_property(property, handle_boolean_property(property, value))
         elsif ::LibUI.respond_to?("#{libui_api_keyword}_set_#{method_name.to_s.sub(/=$/, '')}") && !args.empty?
           property = method_name.to_s.sub(/=$/, '')
-          args[0] = ControlProxy.boolean_to_integer(args.first) if BOOLEAN_PROPERTIES.include?(property) && (args.first.is_a?(TrueClass) || args.first.is_a?(FalseClass))
+          args[0] = Glimmer::LibUI.boolean_to_integer(args.first) if BOOLEAN_PROPERTIES.include?(property) && (args.first.is_a?(TrueClass) || args.first.is_a?(FalseClass))
           ::LibUI.send("#{libui_api_keyword}_set_#{property}", @libui, *args)
         elsif ::LibUI.respond_to?("#{libui_api_keyword}_#{method_name}") && !args.empty?
           ::LibUI.send("#{libui_api_keyword}_#{method_name}", @libui, *args)
@@ -183,7 +175,7 @@ module Glimmer
           handle_string_property(property, handle_boolean_property(property, value))
         elsif ::LibUI.respond_to?("control_set_#{method_name.to_s.sub(/=$/, '')}")
           property = method_name.to_s.sub(/=$/, '')
-          args[0] = ControlProxy.boolean_to_integer(args.first) if BOOLEAN_PROPERTIES.include?(property) && (args.first.is_a?(TrueClass) || args.first.is_a?(FalseClass))
+          args[0] = Glimmer::LibUI.boolean_to_integer(args.first) if BOOLEAN_PROPERTIES.include?(property) && (args.first.is_a?(TrueClass) || args.first.is_a?(FalseClass))
           ::LibUI.send("control_set_#{method_name.to_s.sub(/=$/, '')}", @libui, *args)
         elsif ::LibUI.respond_to?("control_#{method_name}") && !args.empty?
           ::LibUI.send("control_#{method_name}", @libui, *args)
@@ -201,7 +193,7 @@ module Glimmer
           value = @append_property_hash[property]
           handle_string_property(property, handle_boolean_property(property, value))
         else
-          value = ControlProxy.boolean_to_integer(value) if BOOLEAN_PROPERTIES.include?(property) && (value.is_a?(TrueClass) || value.is_a?(FalseClass))
+          value = Glimmer::LibUI.boolean_to_integer(value) if BOOLEAN_PROPERTIES.include?(property) && (value.is_a?(TrueClass) || value.is_a?(FalseClass))
           @append_property_hash[property] = value
         end
       end
@@ -258,6 +250,10 @@ module Glimmer
       alias set_visible visible
       alias visible= visible
       
+      def content(&block)
+        Glimmer::DSL::Engine.add_content(self, Glimmer::DSL::Libui::ControlExpression.new, @keyword, &block)
+      end
+      
       private
       
       def build_control
@@ -270,7 +266,7 @@ module Glimmer
       end
       
       def handle_boolean_property(property, value)
-        BOOLEAN_PROPERTIES.include?(property) ? ControlProxy.integer_to_boolean(value) : value
+        BOOLEAN_PROPERTIES.include?(property) ? Glimmer::LibUI.integer_to_boolean(value) : value
       end
       
       def handle_string_property(property, value)

data/lib/glimmer/libui/figure.rb

@@ -0,0 +1,52 @@
+# Copyright (c) 2021 Andy Maleh
+#
+# Permission is hereby granted, free of charge, to any person obtaining
+# a copy of this software and associated documentation files (the
+# "Software"), to deal in the Software without restriction, including
+# without limitation the rights to use, copy, modify, merge, publish,
+# distribute, sublicense, and/or sell copies of the Software, and to
+# permit persons to whom the Software is furnished to do so, subject to
+# the following conditions:
+#
+# The above copyright notice and this permission notice shall be
+# included in all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+require 'glimmer/libui/shape'
+
+module Glimmer
+  module LibUI
+    # Represents a figure consisting of shapes (nested under path)
+    # Can optionally have `closed true` property (connecting last point to first point automatically)
+    class Figure < Shape
+      parameters :x, :y
+      parameter_defaults nil, nil
+    
+      def draw(area_draw_params)
+        ::LibUI.draw_path_new_figure(path_proxy.libui, *@args) unless @args.compact.empty? # TODO if args empty then wait till there is an arc child and it starts the figure
+        children.dup.each {|child| child.draw(area_draw_params)}
+        ::LibUI.draw_path_close_figure(path_proxy.libui) if closed?
+        super
+      end
+      
+      def closed(value = nil)
+        if value.nil?
+          @closed
+        else
+          @closed = value
+          area_proxy&.queue_redraw_all
+        end
+      end
+      alias closed= closed
+      alias set_closed closed
+      alias closed? closed
+    end
+  end
+end

data/lib/glimmer/libui/form_proxy.rb

@@ -29,7 +29,7 @@ module Glimmer
       def post_initialize_child(child)
         child.label = '' if child.label.nil?
         child.stretchy = true if child.stretchy.nil?
-        ::LibUI.form_append(@libui, child.label, child.libui, ControlProxy.boolean_to_integer(child.stretchy))
+        ::LibUI.form_append(@libui, child.label, child.libui, Glimmer::LibUI.boolean_to_integer(child.stretchy))
         children << child
       end
       

data/lib/glimmer/libui/grid_proxy.rb

@@ -35,7 +35,7 @@ module Glimmer
         child.halign = 0 if child.halign.nil?
         child.vexpand = false if child.vexpand.nil?
         child.valign = 0 if child.valign.nil?
-        ::LibUI.grid_append(@libui, child.libui, child.left, child.top, child.xspan, child.yspan, ControlProxy.boolean_to_integer(child.hexpand), child.halign, ControlProxy.boolean_to_integer(child.vexpand), child.valign)
+        ::LibUI.grid_append(@libui, child.libui, child.left, child.top, child.xspan, child.yspan, Glimmer::LibUI.boolean_to_integer(child.hexpand), child.halign, Glimmer::LibUI.boolean_to_integer(child.vexpand), child.valign)
         children << child
       end
       

data/lib/glimmer/libui/line.rb

@@ -0,0 +1,36 @@
+# Copyright (c) 2021 Andy Maleh
+#
+# Permission is hereby granted, free of charge, to any person obtaining
+# a copy of this software and associated documentation files (the
+# "Software"), to deal in the Software without restriction, including
+# without limitation the rights to use, copy, modify, merge, publish,
+# distribute, sublicense, and/or sell copies of the Software, and to
+# permit persons to whom the Software is furnished to do so, subject to
+# the following conditions:
+#
+# The above copyright notice and this permission notice shall be
+# included in all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+require 'glimmer/libui/shape'
+
+module Glimmer
+  module LibUI
+    class Line < Shape
+      parameters :x, :y
+      parameter_defaults 0, 0
+
+      def draw(area_draw_params)
+        ::LibUI.draw_path_line_to(path_proxy.libui, *@args)
+        super
+      end
+    end
+  end
+end

data/lib/glimmer/libui/matrix_proxy.rb

@@ -0,0 +1,145 @@
+# Copyright (c) 2021 Andy Maleh
+#
+# Permission is hereby granted, free of charge, to any person obtaining
+# a copy of this software and associated documentation files (the
+# "Software"), to deal in the Software without restriction, including
+# without limitation the rights to use, copy, modify, merge, publish,
+# distribute, sublicense, and/or sell copies of the Software, and to
+# permit persons to whom the Software is furnished to do so, subject to
+# the following conditions:
+#
+# The above copyright notice and this permission notice shall be
+# included in all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+require 'glimmer/libui/control_proxy'
+
+module Glimmer
+  module LibUI
+    # Proxy for LibUI matrix objects
+    #
+    # Follows the Proxy Design Pattern
+    class MatrixProxy < ControlProxy
+      def libui_api_keyword
+        'draw_matrix'
+      end
+      
+      def clone
+        MatrixProxy.new('matrix', nil, [@libui.M11, @libui.M12, @libui.M21, @libui.M22, @libui.M31, @libui.M32])
+      end
+      
+      def dup
+        clone
+      end
+      
+      def m11(value = nil)
+        if value.nil?
+          @libui.M11
+        else
+          @libui.M11 = value.to_f
+        end
+      end
+      alias m11= m11
+      alias set_m11 m11
+      
+      def m12(value = nil)
+        if value.nil?
+          @libui.M12
+        else
+          @libui.M12 = value.to_f
+        end
+      end
+      alias m12= m12
+      alias set_m12 m12
+      
+      def m21(value = nil)
+        if value.nil?
+          @libui.M21
+        else
+          @libui.M21 = value.to_f
+        end
+      end
+      alias m21= m21
+      alias set_m21 m21
+      
+      def m22(value = nil)
+        if value.nil?
+          @libui.M22
+        else
+          @libui.M22 = value.to_f
+        end
+      end
+      alias m22= m22
+      alias set_m22 m22
+      
+      def m31(value = nil)
+        if value.nil?
+          @libui.M31
+        else
+          @libui.M31 = value.to_f
+        end
+      end
+      alias m31= m31
+      alias set_m31 m31
+      
+      def m32(value = nil)
+        if value.nil?
+          @libui.M32
+        else
+          @libui.M32 = value.to_f
+        end
+      end
+      alias m32= m32
+      alias set_m32 m32
+      
+      def identity
+        set_identity
+      end
+      
+      def rotate(x = 0, y = 0, degrees)
+        super(x, y, (Math::PI*2.0/360.0)*degrees)
+      end
+      
+      def scale(x_center = 0, y_center = 0, x, y)
+        super
+      end
+      
+      def skew(x = 0, y = 0, x_amount, y_amount)
+        super
+      end
+      
+      def multiply(matrix)
+        super(matrix.respond_to?(:libui) ? matrix.libui : matrix)
+      end
+      
+      def invertible
+        Glimmer::LibUI.integer_to_boolean(super, allow_nil: false)
+      end
+      alias invertible? invertible
+      
+      private
+      
+      def build_control
+        @libui = ::LibUI::FFI::DrawMatrix.malloc
+        if @args.empty?
+          set_identity
+        else
+          @libui.M11 = @args[0].to_f
+          @libui.M12 = @args[1].to_f
+          @libui.M21 = @args[2].to_f
+          @libui.M22 = @args[3].to_f
+          @libui.M31 = @args[4].to_f
+          @libui.M32 = @args[5].to_f
+        end
+      end
+    end
+    TransformProxy = MatrixProxy # alias
+  end
+end