oekaki 0.1.3 → 0.1.4

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: c09d48a14772b6e735751f3db73c491ce8ff51f9
-  data.tar.gz: 9f11e33449cfd11ab213cfed03f65226a09603b8
+  metadata.gz: 2c1e71b934906a7cb076791108504709515d4253
+  data.tar.gz: 07b385f02f2f514bce69049a805a8427443927ba
 SHA512:
-  metadata.gz: 690627971413908043ab82209d8e77c5b4fe99ba91e62a61832a01c5f1dd1f1e2e350a6ccf0f4bfc9c34d1f18a2f06bde8a6066aef79fb597c064400c62480c6
-  data.tar.gz: 0bdd954e3e5e9459de850dea2187b85643bfe79bb128f7ea46a552709a7db1869ca5d8b26d94eba2744b8e1f96bcf83b77fb3b7a4a37ba4512579890946aa86f
+  metadata.gz: 3634834be985b965c7168bfa06d39d79b9b335e871d37921743f6c1ed86fbb35ff12643dbb1094eab69060e2a1b5d439e8785841cc31c464d1d09d9853319104
+  data.tar.gz: 16f5b93a27f97bbf2d8fb511199e648aeab3b5dbaed3f7e7cc8d6d94a53761fcf813128af4cac4b5e8efa56a095cafbb4b73bfb6a7dc54ac771170027597e91a

data/example/oekaki_sample1.rb

@@ -0,0 +1,52 @@
+require 'oekaki'
+include Math
+
+W, H = 600, 300
+V0, A, G = 10.0, 0.75, 5.0
+
+v = lambda {|n| - A ** n * sqrt(2 * G * H)}
+
+t = lambda do |n|
+  if n.zero?
+    sqrt(2 * H / G)
+  else
+    ar = [1]
+    n.times {|i| ar << 2 * A ** (i + 1)}
+    sqrt(2 * H / G) * ar.inject(:+)
+  end
+end
+
+y = lambda do |n, t1|
+  if n.zero?
+    H - G * t1 ** 2 / 2
+  else
+    t2 = t1 - t.call(n - 1)
+    - v.call(n) * t2 - G * t2 ** 2 / 2
+  end
+end
+
+x = lambda {|t1| V0 * t1}
+
+num = lambda do |tm|
+  1000.times {|i| return i if tm <= t.call(i)}
+end
+
+i = 0
+
+Oekaki.app width: W, height: H do
+  draw do
+    clear
+  end
+  
+  id = timer(20) do
+    tm = i / V0
+    x1 = x.call(tm)
+    y1 = H - y.call(num[tm], tm)
+    color(65535, 0, 0)
+    arc(false, x1, y1, 4, 4, 0, 64 * 360)
+    timer_stop(id) if i >= W
+    i += 1
+  end
+end
+
+

data/example/oekaki_sample10.rb

@@ -0,0 +1,21 @@
+require 'oekaki'
+
+Width, Height = 500, 500
+
+Oekaki.app width: Width, height: Height do
+  draw do
+    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
+  end
+end

data/example/oekaki_sample12.rb

@@ -0,0 +1,69 @@
+require 'oekaki'
+
+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
+
+
+Oekaki.app width: Width, height: Height, resizable: true do
+  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
+end

data/example/oekaki_sample14.rb

@@ -0,0 +1,51 @@
+require 'oekaki'
+
+Width, Height = 400, 300
+CircumcircleR = 0.8
+
+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  = 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[cos(θ), sin(θ)] * CircumcircleR}
+rv  = proc {PI * (rand + 1) * 0.005}
+
+angle = [0.5 * 2 * PI, 1.17 * 2 * PI, 1.83 * 2 * PI]
+step  = [rv.call, rv.call, -rv.call]
+
+
+Oekaki.app width: Width, height: Height do
+  draw {clear}
+  
+  timer(30) do
+    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]}
+  end
+end

data/example/oekaki_sample2.rb

@@ -0,0 +1,27 @@
+require 'oekaki'
+
+L, R = 500, 25
+
+Oekaki.app width: L, height: L do
+  draw do
+    clear
+  end
+  
+  quit_window = proc do 
+    make_window do |w|
+      w.title = ""
+      b = button do
+        set_size_request(120, 40)
+        add(Gtk::Label.new.set_markup('<span size="x-large">Quit!</span>'))
+        signal_connect("clicked") {Gtk.main_quit}
+      end
+      add(b)
+    end
+  end
+  
+  mouse_button do |w, e|
+    quit_window.call if e.button != 1
+    color(rand(65536), rand(65536), rand(65536))
+    arc(true, e.x - R, e.y - R, R * 2, R * 2, 0, 64 * 360) 
+  end
+end

data/example/oekaki_sample3.rb

@@ -0,0 +1,33 @@
+require 'oekaki'
+
+L = 300; O = L / 2
+R = 140
+step = 20
+
+i = 0
+
+Oekaki.app width: L, height: L do
+  draw do
+    clear
+    color(0x87 * 256, 0xce * 256, 0xeb * 256)   #skyblue
+    arc(false, O - R, O - R, R * 2, R * 2, 0, 64 * 360)
+  end
+  
+  id = timer(500) do
+    ar = []
+    θ = i * step * PI / 180
+    x = R * cos(θ)
+    y = R * sin(θ)
+    ar << [O + x, O - y]
+    3.times do
+      x, y = -y, x
+      ar << [O + x, O - y]
+    end
+    color(0x22 * 256, 0x8b * 256, 0x22 * 256)    #forestgreen
+    polygon(false, ar)
+    i += 1
+    timer_stop(id) if i * step > 180
+    true
+  end
+end
+

data/example/oekaki_sample4.rb

@@ -0,0 +1,25 @@
+require 'oekaki'
+
+L = 400
+R1 = 150
+R2 = (L - R1 * 2) / 2 - 5
+STP1 = (PI / 180) * 0.5
+STP2 = (PI / 180) * 10
+
+Oekaki.app width: L, height: L do
+  draw do
+    clear(color(5000, 0, 10000))
+  end
+
+  i = 0
+  
+  id = timer(20) do
+    x = L / 2 + (R1 * cos(STP1 * i) + R2 * cos(STP2 * i))
+    y = L / 2 - (R1 * sin(STP1 * i) + R2 * sin(STP2 * i))
+    color(0, 65535, 0)
+    arc(false, x, y, 3, 3, 0, 64 * 360)
+    i += 1
+    timer_stop(id) if STP1 * i > PI * 2
+    true
+  end
+end

data/example/oekaki_sample5.rb

@@ -0,0 +1,58 @@
+require 'oekaki'
+
+L = 400
+C_MAX = 65536
+C_STEP = 1000
+
+class Field
+  def initialize
+    @x = rand(L); @y = rand(L)
+    n = Vector[rand, rand]
+    @n = [n[0] * 2 / n.norm, n[1] * 2 / n.norm]
+  end
+  attr_reader :x, :y
+  
+  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
+  def initialize
+    init
+  end
+  attr_reader :x, :y, :z
+  
+  def init
+    @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
+  
+  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
+
+Oekaki.app width: L, height: L do
+  draw do
+    clear
+  end
+  
+  timer(20) do
+    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
+  end
+end

data/example/oekaki_sample6.rb

@@ -0,0 +1,20 @@
+require 'oekaki'
+
+Oekaki.app width: 400, height: 400 do
+  draw do
+    clear
+    
+    color(0, 65535, 0)
+    po = Vector[0, 50]
+    θ = PI / 15
+    a = Matrix[[cos(θ), -sin(θ)], [sin(θ), 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
+  end
+end

data/example/oekaki_sample7.rb

@@ -0,0 +1,18 @@
+require 'oekaki'
+
+Oekaki.app do
+  draw do
+    clear
+  end
+    
+  po = Vector[0, 150]
+  θ = PI / 50
+  a = Matrix[[cos(θ), -sin(θ)], [sin(θ), cos(θ)]]
+  
+  timer(20) do
+    clear
+    color(0, 65535, 0)
+    star(false, 150, 150, 150 + po[0], 150 - po[1])
+    po = a * po
+  end
+end

data/example/oekaki_sample8.rb

@@ -0,0 +1,39 @@
+require 'oekaki'
+
+Width, Height = 400, 300
+Turn = 20
+Length = 40
+Ratio = 0.9
+Depth = 8
+
+θ = PI * Turn / 180
+left  = Matrix[[cos(θ),   -sin(θ)], [sin(θ),   cos(θ)]]
+right = Matrix[[cos(-θ), -sin(-θ)], [sin(-θ), cos(-θ)]]
+
+
+Oekaki.app width: Width, height: Height, title: "tree" do
+  draw do
+    clear
+  end
+  
+  ar = [[Vector[Width / 2, 1], Vector[0, Length]]]
+  branch_num = 0
+  
+  id = timer(80) do
+    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
+  end
+end

data/example/oekaki_sample9.rb

@@ -0,0 +1,39 @@
+require 'oekaki'
+
+R = 7
+Width, Height = 500, 500
+
+Oekaki.app width: Width, height: Height do
+  draw do
+    clear
+  end
+  
+  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
+    θ = PI * deg / 180
+    np = Vector[cos(θ), sin(θ)] * r
+    r += step
+    step_d = 20 - r / 35
+    deg -= step_d
+    timer_stop(id) if r > 220
+    true
+  end
+end

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: oekaki
 version: !ruby/object:Gem::Version
-  version: 0.1.3
+  version: 0.1.4
 platform: ruby
 authors:
 - obelisk
@@ -31,6 +31,18 @@ extensions: []
 extra_rdoc_files: []
 files:
 - README
+- example/oekaki_sample1.rb
+- example/oekaki_sample10.rb
+- example/oekaki_sample12.rb
+- example/oekaki_sample14.rb
+- example/oekaki_sample2.rb
+- example/oekaki_sample3.rb
+- example/oekaki_sample4.rb
+- example/oekaki_sample5.rb
+- example/oekaki_sample6.rb
+- example/oekaki_sample7.rb
+- example/oekaki_sample8.rb
+- example/oekaki_sample9.rb
 - lib/oekaki.rb
 homepage: http://obelisk.hatenablog.com/entry/2016/12/15/172026
 licenses: