gtk_paradise 0.9.120 → 0.12.25

data/lib/gtk_paradise/examples/drawing/003_example.rb

@@ -0,0 +1,38 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+require 'gtk_paradise/drawing/drawing.rb'
+
+L = 300
+O = L / 2
+R = 140
+step = 20
+
+i = 0
+
+Drawing.app(width: L, height: L) {
+  N_TIMES = 5
+  draw {
+    clear
+    color(0x87 * 256, 0xce * 256, 0xeb * 256)   #skyblue
+    arc(false, O - R, O - R, R * 2, R * 2, 0, 64 * 360)
+  }
+  
+  id = timer(500) do
+    ar = []
+    θ = i * step * Math::PI / 180
+    x = R * Math.cos(θ)
+    y = R * Math.sin(θ)
+    ar << [O + x, O - y]
+    N_TIMES.times {
+      x, y = -y, x
+      ar << [O + x, O - y]
+    }
+    color(0x22 * 256, 0x8b * 256, 0x22 * 256)    #forestgreen
+    polygon(false, ar)
+    i += 1
+    timer_stop(id) if i * step > 180
+    true
+  end
+}

data/lib/gtk_paradise/examples/drawing/004_example.rb

@@ -0,0 +1,36 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+require 'gtk_paradise/drawing/drawing.rb'
+
+HEIGHT_AND_WIDTH = 400
+R1 = 150
+R2 = (HEIGHT_AND_WIDTH - R1 * 2) / 2 - 5
+STP1 = (Math::PI / 180) * 0.5
+STP2 = (Math::PI / 180) * 10
+
+Drawing.app(width: HEIGHT_AND_WIDTH, height: HEIGHT_AND_WIDTH) {
+  # ========================================================================= #
+  # === TIMER_ANIMATION_SPEED
+  # ========================================================================= #
+  TIMER_ANIMATION_SPEED = 20
+  draw {
+    clear(color(5000, 0, 10000))
+  }
+
+  i = 0
+  
+  # ========================================================================= #
+  # The higher the timer-value, the faster the animation.
+  # ========================================================================= #
+  id = timer(TIMER_ANIMATION_SPEED) {
+    x = HEIGHT_AND_WIDTH / 2 + (R1 * Math.cos(STP1 * i) + R2 * Math.cos(STP2 * i))
+    y = HEIGHT_AND_WIDTH / 2 - (R1 * Math.sin(STP1 * i) + R2 * Math.sin(STP2 * i))
+    color(0, 65535, 0)
+    arc(false, x, y, 3, 3, 0, 64 * 360)
+    i += 1
+    timer_stop(id) if STP1 * i > Math::PI * 2
+    true
+  }
+}

data/lib/gtk_paradise/examples/drawing/005_example.rb

@@ -0,0 +1,92 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+require 'gtk_paradise/drawing/drawing.rb'
+
+L = 400
+C_MAX = 65536
+
+class Field
+
+  attr_reader :x
+  attr_reader :y
+
+  # ========================================================================= #
+  # === initialize
+  # ========================================================================= #
+  def initialize
+    @x = rand(L)
+    @y = rand(L)
+    n = Vector[rand, rand]
+    @n = [n[0] * 2 / n.norm, n[1] * 2 / n.norm]
+  end
+
+  # ========================================================================= #
+  # === next
+  # ========================================================================= #
+  def next
+    @x, @y = @x + @n[0], @y + @n[1]
+    @n[0] = -@n[0] if @x < 2 or @x >= L - 2
+    @n[1] = -@n[1] if @y < 2 or @y >= L - 2
+  end
+end
+
+class Color
+
+  # ========================================================================= #
+  # === C_STEP
+  # ========================================================================= #
+  C_STEP = 1000
+
+  attr_reader :x
+  attr_reader :y
+  attr_reader :z
+
+  # ========================================================================= #
+  # === initialize
+  # ========================================================================= #
+  def initialize(
+      run_already = true
+    )
+    run if run_already
+  end
+  
+  # ========================================================================= #
+  # === run
+  # ========================================================================= #
+  def run
+    @x = rand(C_MAX)
+    @y = rand(C_MAX)
+    @z = rand(C_MAX)
+    cn = Vector[rand, rand, rand]
+    @cn = [cn[0] / cn.norm, cn[1] / cn.norm, cn[2]/ cn.norm]
+  end
+
+  # ========================================================================= #
+  # === next
+  # ========================================================================= #
+  def next
+    @x, @y, @z = @x + @cn[0] * C_STEP, @y + @cn[1] * C_STEP, @z + @cn[2] * C_STEP
+    @cn[0] = -@cn[0] if @x < C_STEP or @x >= C_MAX - C_STEP
+    @cn[1] = -@cn[1] if @y < C_STEP or @y >= C_MAX - C_STEP
+    @cn[2] = -@cn[2] if @z < C_STEP or @z >= C_MAX - C_STEP
+    init if rand < 0.001
+  end
+
+end
+
+pos = Field.new
+col = Color.new
+
+Drawing.app(width: L, height: L) {
+  draw { clear }
+
+  timer(20) {
+    color(col.x.to_i, col.y.to_i, col.z.to_i)
+    arc(true, pos.x.to_i + 2, pos.y.to_i + 2, 4, 4, 0, 64 * 360)
+    pos.next
+    col.next
+    true
+  }
+}

data/lib/gtk_paradise/examples/drawing/006_example.rb

@@ -0,0 +1,58 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+# This example will draw some stars.
+# =========================================================================== #
+require 'gtk_paradise/drawing/drawing.rb'
+
+# =========================================================================== #
+# === DIMENSION
+# =========================================================================== #
+DIMENSION = 400
+
+Drawing.app(width: DIMENSION, height: DIMENSION) {
+
+  # ========================================================================= #
+  # === BASE_FACTOR_USED_BY_GTK_FOR_RGB_VALUES
+  # ========================================================================= #
+  BASE_FACTOR_USED_BY_GTK_FOR_RGB_VALUES = 65535
+
+  # ========================================================================= #
+  # === USE_THIS_COLOUR_IN_RGB_VALUE
+  #
+  #   255 ... 65535
+  #     0 ...   0
+  #
+  # ========================================================================= #
+  USE_THIS_COLOUR_IN_RGB_VALUE = [
+    BASE_FACTOR_USED_BY_GTK_FOR_RGB_VALUES / 255 *  63.8,
+    BASE_FACTOR_USED_BY_GTK_FOR_RGB_VALUES / 255 * 100.0,
+    BASE_FACTOR_USED_BY_GTK_FOR_RGB_VALUES / 255 *  94.9
+  ] # R: 21.0, G: 71.0, B: 64.0 (is teal)
+
+  draw {
+    clear
+    color(*USE_THIS_COLOUR_IN_RGB_VALUE)
+    po = Vector[0, 50]
+    θ = Math::PI / 15
+    a = Matrix[
+      [
+        Math.cos(θ),
+        -Math.sin(θ)
+      ],
+      [
+        Math.sin(θ),
+        Math.cos(θ)
+      ]
+    ]
+    for y in 0..3
+      for x in 0..3
+        x1 = x * 100 + 50
+        y1 = y * 100 + 50
+        star(false, x1, y1, x1 + po[0], y1 - po[1])
+        po = a * po
+      end
+    end
+  }
+}

data/lib/gtk_paradise/examples/drawing/007_example.rb

@@ -0,0 +1,22 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+require 'gtk_paradise/drawing/drawing.rb'
+
+Drawing.app {
+  draw { clear }
+
+  po = Vector[0, 150]
+  θ = Math::PI / 50
+  a = Matrix[
+    [Math.cos(θ), -Math.sin(θ)], [Math.sin(θ), Math.cos(θ)]
+  ]
+  
+  timer(20) {
+    clear
+    color(0, 65535, 0)
+    star(false, 150, 150, 150 + po[0], 150 - po[1])
+    po = a * po
+  }
+}

data/lib/gtk_paradise/examples/drawing/008_example.rb

@@ -0,0 +1,43 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+require 'gtk_paradise/drawing/drawing.rb'
+
+Width  = 400
+Height = 300
+Turn   =  20
+Length =  40
+Ratio  =   0.9
+Depth  =   8
+
+θ = Math::PI * Turn / 180
+left  = Matrix[[Math.cos(θ),  -Math.sin(θ)],  [Math.sin(θ),  Math.cos(θ)]]
+right = Matrix[[Math.cos(-θ), -Math.sin(-θ)], [Math.sin(-θ), Math.cos(-θ)]]
+
+Drawing.app(width: Width, height: Height, title: 'tree') {
+  draw {
+    clear
+  }
+
+  ar = [[Vector[Width / 2, 1], Vector[0, Length]]]
+  branch_num = 0
+
+  id = timer(80) {
+    ob = ar.shift
+    v1 = left  * ob[1]
+    v2 = right * ob[1]
+    p1 = ob[0] + v1
+    p2 = ob[0] + v2
+
+    color(0, 65535, 0)
+    line(ob[0][0], Height - ob[0][1], p1[0], Height - p1[1])
+    line(ob[0][0], Height - ob[0][1], p2[0], Height - p2[1])
+
+    ar << [p1, v1 * Ratio]
+    ar << [p2, v2 * Ratio]
+    branch_num += 2
+    timer_stop(id) if branch_num >= 2 ** (Depth + 1) - 2
+    true
+  }
+}

data/lib/gtk_paradise/examples/drawing/009_example.rb

@@ -0,0 +1,43 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+require 'gtk_paradise/drawing/drawing.rb'
+
+R = 7
+Width, Height = 500, 500
+
+Drawing.app(width: Width, height: Height) {
+  draw {
+    clear
+  }
+
+  p = Vector[0, 0]
+  np = p
+  deg = 90
+  r = 0
+  step = 1.5
+  
+  b_line = lambda do |p1, p2|
+    l = (p2 - p1).r
+    pt = p1
+    0.upto(l) do
+      color(0, 65535, 0)
+      arc(true, Width / 2 + pt[0] - R, Height / 2 - pt[1] - R, R * 2, R * 2, 0, 64 * 360)
+      pt += (p2 - p1) / l
+    end
+  end
+  
+  id = timer(50) do
+    b_line.call(p, np)
+    
+    p = np
+    θ = Math::PI * deg / 180
+    np = Vector[Math.cos(θ), Math.sin(θ)] * r
+    r += step
+    step_d = 20 - r / 35
+    deg -= step_d
+    timer_stop(id) if r > 220
+    true
+  end
+}

data/lib/gtk_paradise/examples/drawing/010_example.rb

@@ -0,0 +1,25 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+require 'gtk_paradise/drawing/drawing.rb'
+
+Width, Height = 500, 500
+
+Drawing.app(width: Width, height: Height) {
+  draw {
+    clear
+    
+    color(0, 65535, 0)
+    r = Width / 2
+    circle(false, 0, r, r)
+    circle(false, 2 * r, r, r)
+    
+    (1..9).to_a.combination(2) do |p, q|
+      x = p / q.to_f
+      y = 1 / (2 * q ** 2).to_f
+      wx, wy = Width * x, Height * y
+      circle(false, wx, Height - wy, wy)
+    end
+  }
+}

data/lib/gtk_paradise/examples/drawing/011_example.rb

@@ -0,0 +1,72 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+require 'gtk_paradise/drawing/drawing.rb'
+
+Width, Height = if ARGV.size == 2
+  ARGV.map(&:to_i)
+else
+  [1000, 700]
+end
+
+Max_r, Min_r = 40, 10
+ColorMax = 65535
+MaxNum = 60
+
+
+class Circle
+  def initialize(ob)
+    @slot = ob
+    @width, @height = Width, Height
+    renewal
+    @y = rand(@height)
+  end
+  attr_reader :height
+  attr_writer :y
+  
+  def renewal
+    @width, @height = @slot.get_window_size
+    @max_r = rand(Max_r - Min_r) + Min_r
+    @x = rand(@width)
+    @y = -rand(@max_r)
+    @color = [rand(ColorMax), rand(ColorMax), rand(ColorMax)]
+    @fall_step = 1 + rand * 3
+    @r = 1
+    @r_step = rand * 0.2 + 0.8
+  end
+
+  def paint
+    @slot.color(@color[0], @color[1], @color[2])
+    @slot.circle(true, @x, @y, @r)
+    @y += @fall_step
+    @r += @r_step
+    @r_step *= -1 if @r > @max_r or @r < 1
+    renewal if @y > @height + Max_r
+    true
+  end
+end
+
+Drawing.app(width: Width, height: Height, resizable: true) {
+  circles = []
+  MaxNum.times {circles << Circle.new(self)}
+  black = color(0, 0, 0)
+  
+  draw do
+    clear(black)
+  end
+
+  timer(60) do
+    clear(black)
+    circles.each(&:paint)
+  end
+
+  window_changed do
+    clear(black)
+    circles.each do |c|
+      c.renewal
+      c.y = rand(c.height)
+      c.paint
+    end
+  end
+}

data/lib/gtk_paradise/examples/drawing/012_example.rb

@@ -0,0 +1,59 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+require 'gtk_paradise/drawing/drawing.rb'
+
+Width, Height = 400, 300
+CircumcircleR = 0.8
+
+# === incircle
+def incircle(a, b, c)
+  l, m, n = (b - a).norm, (c - b).norm, (a - c).norm
+  q = l + m + n
+  
+  po = a * (m / q) + b * (n / q) + c * (l / q)
+  r  = Math.sqrt((q / 2 - l) * (q / 2 - m) * (q / 2 - n) * 2 / q)
+  [po, r]
+end
+
+class Vector
+  def to_w
+    l = Height / 2
+    Vector[Width / 2 + self[0] * l, l - self[1] * l]
+  end
+end
+
+get_po = proc {|θ|
+  Vector[Math.cos(θ), Math.sin(θ)] * CircumcircleR
+}
+rv  = proc { Math::PI * (rand + 1) * 0.005 }
+
+angle = [
+  0.5 * 2 * Math::PI, 1.17 * 2 * Math::PI, 1.83 * 2 * Math::PI
+]
+step  = [rv.call, rv.call, -rv.call]
+
+Drawing.app(width: Width, height: Height) {
+  draw {clear}
+  
+  timer(30) {
+    clear
+    
+    a, b, c = get_po[angle[0]], get_po[angle[1]], get_po[angle[2]]
+    
+    color(0, 65535, 0)
+    line(a.to_w[0], a.to_w[1], b.to_w[0], b.to_w[1])
+    line(b.to_w[0], b.to_w[1], c.to_w[0], c.to_w[1])
+    line(c.to_w[0], c.to_w[1], a.to_w[0], a.to_w[1])
+    
+    color(65535, 0, 65535)
+    circle(false, Width / 2, Height / 2, CircumcircleR * Height / 2)
+    
+    color(65535, 65535, 0)
+    po, r = incircle(a, b, c)
+    circle(true, po.to_w[0], po.to_w[1], r * Height / 2)
+    
+    angle = angle.map.with_index {|θ, i| θ + step[i]}
+  }
+}

data/lib/gtk_paradise/examples/drawing/README.md

@@ -0,0 +1,3 @@
+This old code worked on ruby-gtk2. For ruby-gtk3 and
+ruby-gtk4 it may have to be ported; that porting 
+effort has not yet happened, though.

data/lib/gtk_paradise/examples/drawing/moving_turtle_example.rb

@@ -0,0 +1,43 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+require 'gtk_paradise/drawing/drawing.rb'
+
+# =========================================================================== #
+# === WIDTH
+# =========================================================================== #
+WIDTH  = 600
+
+# =========================================================================== #
+# === HEIGHT
+# =========================================================================== #
+HEIGHT = 400
+
+Drawing.app(
+    width:  WIDTH,
+    height: HEIGHT,
+    title: 'A moving turtle'
+  ) {
+  draw {
+    clear
+
+    turtle = Drawing::Turtle.new
+    turtle.move(-130, -100) # x-start point comes first.
+    turtle.color(0, 65535, 0) # This is a light green colour.
+    ratio = Math.sqrt(2) / 2 # This is the ratio: 0.7071067811865476
+
+    drawing = lambda { |length, depth|
+      if depth.zero?
+        turtle.forward(length)
+      else
+        turtle.left(45)
+        drawing[length * ratio, depth - 1]
+        turtle.right(90)
+        drawing[length * ratio, depth - 1]
+        turtle.left(45)
+      end
+    }
+    drawing[260.0, 10]
+  }
+}

data/lib/gtk_paradise/examples/gdk/001_gdk_screen_properties.rb

@@ -0,0 +1,58 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+# require '001_gdk_screen_properties.rb'
+# =========================================================================== #
+require 'gtk3'
+
+alias e puts
+
+e
+e 'This example shows methods related to Gdk::Screen.default().'
+e
+
+@screen = Gdk::Screen.default
+
+settings_map = %w(
+  gtk-double-click-time
+  gtk-dnd-drag-threshold
+  gtk-can-change-accels
+  gtk-color-palette
+  gtk-font-name
+  gtk-icon-sizes
+  gtk-key-theme-name
+  gtk-toolbar-style
+  gtk-toolbar-icon-size
+  gtk-im-preedit-style
+  gtk-im-status-style
+  gtk-cursor-blink
+  gtk-cursor-blink-time
+  gtk-theme-name 
+)
+
+e 'The available methods are:'
+e
+pp @screen.methods.sort
+e
+
+settings_map.each { |entry|
+  e "#{entry}: #{@screen.get_setting(entry)}"
+  pp @screen.get_setting(entry)
+}
+
+e 'The current desktop is: '+
+  @screen.current_desktop.to_s
+
+pp @screen.destroyed?
+
+# pp @screen.get_monitor_geometry
+
+e 'The name of the window manager is: '+
+  @screen.window_manager_name
+e '.rgba_visual:'
+pp @screen.rgba_visual
+e '.root_window:'
+pp @screen.root_window # #<Gdk::X11Window:0x555e15c2f790 ptr=0x555e13849200>
+e '.screen_number:'
+pp @screen.screen_number

data/lib/gtk_paradise/examples/gdk_pixbuf/save_image_example.rb

@@ -19,7 +19,7 @@ alias e puts
 # =========================================================================== #
 # === DEFAULT_FILE
 # =========================================================================== #
-DEFAULT_FILE = '/Depot/NJOY/VidaGuerra.png'
+DEFAULT_FILE = '/home/x/data/images/NJOY/VidaGuerra.jpg'
 Rect = Struct.new('Rect', :x, :y, :w, :h)
 path = ARGV.first || DEFAULT_FILE
 pixbuf = GdkPixbuf::Pixbuf.new(file: path)

data/lib/gtk_paradise/examples/gir_ffi/001_hello_world.rb

@@ -0,0 +1,29 @@
+# frozen_string_literal: true
+
+# Based on the 'Hello world' Gtk+ tutorial example at
+#
+# http://library.gnome.org/devel/gtk-tutorial/2.90/c39.html#SEC-HELLOWORLD
+#
+require 'gir_ffi-gtk3'
+
+Gtk.init
+
+alias e puts
+
+win = Gtk::Window.new(:toplevel)
+win.signal_connect('delete-event') {
+  e 'delete event occured'
+  true
+}
+
+win.signal_connect('destroy') { Gtk.main_quit }
+win.border_width = 10
+
+button = Gtk::Button.new_with_label('Hello World')
+button.signal_connect('clicked') { win.destroy }
+
+win.add(button)
+button.show
+win.show
+
+Gtk.main

data/lib/gtk_paradise/examples/gir_ffi/002_upgraded_hello_world.rb

@@ -0,0 +1,40 @@
+# frozen_string_literal: true
+
+# Based on the 'Upgraded Hello world' Gtk+ tutorial example at
+# http://library.gnome.org/devel/gtk-tutorial/2.90/x344.html
+#
+require 'gir_ffi-gtk3'
+
+callback = lambda { |_widget, data|
+  puts "Hello again - #{data} was pressed"
+}
+
+Gtk.init
+
+win = Gtk::Window.new(:toplevel)
+win.title = 'Hello Buttons!'
+
+win.signal_connect('delete-event') {
+  Gtk.main_quit
+  false
+}
+
+win.border_width = 10
+
+box = Gtk::HBox.new(false, 0)
+win.add box
+
+button = Gtk::Button.new_with_label('Button 1')
+button.signal_connect('clicked', "button 1", &callback)
+box.pack_start button, true, true, 0
+button.show
+
+button = Gtk::Button.new_with_label('Button 2')
+button.signal_connect('clicked', "button 2", &callback)
+box.pack_start button, true, true, 0
+button.show
+
+box.show
+win.show
+
+Gtk.main