kaki-lsystem 0.0.1

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA1:
+  metadata.gz: afb0207087587ab5cd30b17637b5847a523d43ee
+  data.tar.gz: ba351b43f64f4c897fee821269aa18c315d2c15b
+SHA512:
+  metadata.gz: 962abb9543c1af45ab0fc626def70f9e40736a229a6dcd2838ca6790189478979fd19f2a02c8865152ed29c5112e06eb607bcbd87611efb7d8f17cc6a6c1f713
+  data.tar.gz: 85e577232cf77b92e420f23132ee986294576a4c65375d46ab694c7c9574f6fb1fd515a2a73b4d54b24414a5ecd980135b0c83177a607ff2bb8d62e9bc9fb943

data/README.md

@@ -0,0 +1,62 @@
+## 概要
+
+再帰曲線を描く「L-system」を実装しています。内部で Gem 'oekaki' のタートルグラフィックス機能を使っています。よって、Gem 'oekaki' をインストールすることが必要です。
+
+## method
+
+- Lsystem.new(width, height, title = "L-system")
+    - インスタンスを生成します。width, height はウィンドウのサイズです。
+- move(x, y)
+    - ペンの初期位置を移動させます。y方向は上が + です。
+- prologue {..}
+    - ブロック内が描画前に実行されます。
+- set(command) {...}
+    - 与えられた commnd（長さ1の文字列）について、ブロック内を実行するように設定します。
+- init(st)
+    - st は開始時の手続きです。
+- rule(command) {...}
+    - command を再帰的に展開するルールです。
+- draw(n)
+    - 再帰的に深さnだけ実行します。n = 0 ならば init(st) で指定された手続きのみ実行します。
+
+ブロック内は Oekaki::Turtle クラスのメソッドを使います。left(), right(), forward(), color(), circle(), move() など。下のURL参照。
+[http://obelisk.hatenablog.com/entry/2018/02/06/025222](http://obelisk.hatenablog.com/entry/2018/02/06/025222)
+
+
+## プロパティ
+- dir
+    - 開始時の方向を指定します。初期値は Vector[1, 0] です。Vector の長さは1にして下さい。
+    
+## 例
+```ruby
+require 'kaki/lsystem'
+
+n = 7
+length = n.zero? ? 500 : 500.0 / 2 ** (n - 1)
+
+l = Lsystem.new(520, 500, "Sierpinski gasket")
+l.move(-250, -240)
+l.prologue {color(0x55c5, 0xe363, 0xf1d5)}
+l.set("-") {left(120)}
+l.init("F")
+l.set("F") {forward(length)}
+l.set("G") {forward(length, false)}
+l.rule("F", "F-F-F-GG")
+l.rule("G", "GG")
+l.draw(n)
+```
+
+```ruby
+require 'kaki/lsystem'
+
+l = Lsystem.new(400, 640)
+l.move(50, -310)
+l.prologue {color(0x28a5, 0xa3c8, 0xca7)}
+l.dir = Vector[0, 1]
+l.set("-") {left(15)}
+l.set("+") {right(15)}
+l.init("F")
+l.set("F") {forward(10)}
+l.rule("F", "F[+F-F-F]F[--F+F+F]")
+l.draw(4)
+```

data/example/lsystem_Penrose_tiling.rb

@@ -0,0 +1,21 @@
+require 'kaki/lsystem'
+
+n = 5
+
+l = Lsystem.new(600, 600, "Penrose Tiling")
+l.move(0, 0)
+l.prologue {color(0xffff, 0x5feb, 0xe51f)}
+l.set("-") {left(36)}
+l.set("+") {right(36)}
+l.init("[N]++[N]++[N]++[N]++[N]")
+l.set("M") {forward(10)}
+l.set("N") {forward(10)}
+l.set("O") {forward(10)}
+l.set("P") {forward(10)}
+l.set("A") {forward(10)}
+l.rule("M", "OA++PA----NA[-OA----MA]++")
+l.rule("N", "+OA--PA[---MA--NA]+")
+l.rule("O", "-MA++NA[+++OA++PA]-")
+l.rule("P", "--OA++++MA[+PA++++NA]--NA")
+l.rule("A", "")
+l.draw(n)

data/example/lsystem_gragon_curve.rb

@@ -0,0 +1,15 @@
+require 'kaki/lsystem'
+
+n = 10
+
+l = Lsystem.new(500, 600, "Dragon curve")
+l.move(-80, 150)
+l.prologue {color(0x143f, 0x832d, 0xe783)}
+l.set("-") {left(90)}
+l.set("+") {right(90)}
+l.init("A")
+l.set("A") {forward(10)}
+l.set("B") {forward(10)}
+l.rule("A", "A+B+")
+l.rule("B", "-A-B")
+l.draw(n)

data/example/lsystem_koch_curve.rb

@@ -0,0 +1,13 @@
+require 'kaki/lsystem'
+
+n = 3
+
+l = Lsystem.new(550, 200, "Koch curve")
+l.move(-250, -70)
+l.prologue {color(0xffff, 0, 0)}
+l.set("-") {left(60)}
+l.set("+") {right(60)}
+l.init("F")
+l.set("F") {forward(500.0 / 3 ** n)}
+l.rule("F", "F-F++F-F")
+l.draw(n)

data/example/lsystem_koch_island.rb

@@ -0,0 +1,11 @@
+require 'kaki/lsystem'
+
+l = Lsystem.new(600, 600, "Koch island")
+l.move(-150, -150)
+l.prologue {color(0x28a5, 0xa3c8, 0xca7)}
+l.set("-") {left(90)}
+l.set("+") {right(90)}
+l.init("F-F-F-F")
+l.set("F") {forward(8)}
+l.rule("F", "F+FF-FF-F-F+F+FF-F-F+F+FF+FF-F")
+l.draw(2)

data/example/lsystem_sample1.rb

@@ -0,0 +1,12 @@
+require 'kaki/lsystem'
+
+l = Lsystem.new(400, 640)
+l.move(50, -310)
+l.prologue {color(0x28a5, 0xa3c8, 0xca7)}
+l.dir = Vector[0, 1]
+l.set("-") {left(15)}
+l.set("+") {right(15)}
+l.init("F")
+l.set("F") {forward(10)}
+l.rule("F", "F[+F-F-F]F[--F+F+F]")
+l.draw(4)

data/example/lsystem_sample2.rb

@@ -0,0 +1,11 @@
+require 'kaki/lsystem'
+
+l = Lsystem.new(500, 500)
+l.move(50, -230)
+l.prologue {color(0xe713, 0x5742, 0xff23)}
+l.set("-") {left(90)}
+l.set("+") {right(90)}
+l.init("F-F-F-F")
+l.set("F") {forward(10)}
+l.rule("F", "FF-F-F-F-F-F+F")
+l.draw(3)

data/example/lsystem_sierpinski_arrowhead.rb

@@ -0,0 +1,21 @@
+require 'kaki/lsystem'
+
+n = 6
+length = n.zero? ? 500 : 500.0 / 2 ** n
+
+l = Lsystem.new(520, 500, "Sierpinski arrowhead")
+l.move(-250, -240)
+l.prologue do
+  clear(color(0xffff, 0xef5b, 0xf677))
+  color(0x12de, 0x5320, 0xb4a)
+end
+l.set("-") {left(60)}
+l.set("+") {right(60)}
+l.init("LF")
+l.set("L") {}
+l.set("R") {}
+l.set("F") {forward(length)}
+l.rule("L", "-RF+LF+RF-")
+l.rule("R", "+LF-RF-LF+")
+l.rule("F", "")
+l.draw(n)

data/example/lsystem_sierpinski_gasket.rb

@@ -0,0 +1,15 @@
+require 'kaki/lsystem'
+
+n = 7
+length = n.zero? ? 500 : 500.0 / 2 ** (n - 1)
+
+l = Lsystem.new(520, 500, "Sierpinski gasket")
+l.move(-250, -240)
+l.prologue {color(0x55c5, 0xe363, 0xf1d5)}
+l.set("-") {left(120)}
+l.init("F")
+l.set("F") {forward(length)}
+l.set("G") {forward(length, false)}
+l.rule("F", "F-F-F-GG")
+l.rule("G", "GG")
+l.draw(n)

data/lib/kaki/lsystem.rb

@@ -0,0 +1,76 @@
+require 'bundler/setup'
+require 'oekaki'
+
+class Lsystem
+  def initialize(width, height, title = "L-system")
+    @width  = width
+    @height = height
+    @title = title
+    @procedure = ""
+    @command = {}
+    @rule = {}
+    @eval = proc {}
+    @po = [0, 0]
+  end
+  attr_accessor :dir
+  
+  def move(x, y)
+    @po = [x, y]
+  end
+  
+  def init(st)
+    @procedure = st
+  end
+  
+  def set(st, &block)
+    @command[st] = block
+  end
+  
+  def rule(a, r)
+    @rule[a] = r
+  end
+  
+  def prologue(&block)
+    @eval = block
+  end
+  
+  def generate(n)
+    n.times do
+      pr = ""
+      @procedure.each_char do |c|
+        pr += @rule[c] || c
+      end
+      @procedure = pr
+    end
+  end
+  
+  def exec(t)
+    stack = []
+    @procedure.each_char do |c|
+      case c
+      when "["
+        stack << t.dup
+      when "]"
+        t = stack.pop
+      else
+        t.instance_exec(&@command[c]) rescue raise "'#{c}' not defined."
+      end
+    end
+  end
+  
+  def draw(n)
+    ob = self
+    Oekaki.app width: @width, height: @height, title: @title do
+      t = Oekaki::Turtle.new
+      ob.generate(n)
+      
+      draw do
+        clear
+        t.instance_exec(&ob.instance_variable_get(:@eval))
+        t.move(*ob.instance_variable_get(:@po))
+        t.dir = ob.dir if ob.dir
+        ob.exec(t)
+      end
+    end
+  end
+end

metadata

@@ -0,0 +1,67 @@
+--- !ruby/object:Gem::Specification
+name: kaki-lsystem
+version: !ruby/object:Gem::Version
+  version: 0.0.1
+platform: ruby
+authors:
+- obelisk
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2018-03-22 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: oekaki
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '0'
+description: L-system language which draws recursive forms.
+email: obelisk_1968@mail.goo.ne.jp
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- README.md
+- example/lsystem_Penrose_tiling.rb
+- example/lsystem_gragon_curve.rb
+- example/lsystem_koch_curve.rb
+- example/lsystem_koch_island.rb
+- example/lsystem_sample1.rb
+- example/lsystem_sample2.rb
+- example/lsystem_sierpinski_arrowhead.rb
+- example/lsystem_sierpinski_gasket.rb
+- lib/kaki/lsystem.rb
+homepage: 
+licenses:
+- MIT
+metadata: {}
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 2.5.2
+signing_key: 
+specification_version: 4
+summary: L-system.
+test_files: []