trtl 0.0.1 → 0.1.0

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA256:
+  metadata.gz: 9dfd21924c3f6626d0b10b91df30b90dce0f8adce0c861fd6adda1fbf0bac6c1
+  data.tar.gz: fbcc9c05df13cb1109aff89f30b2e8932eaef3e04f70a157c27ea9e61c6bd9f2
+SHA512:
+  metadata.gz: f7a6013033c7c941e35e796d44181f69bae075866248203eaee8ab29e814f8bc1106e11ab46265fa6bcb65b290aea7e89bcdc11ca009b8b90f047580280a4d88
+  data.tar.gz: 94f13a513d82e4b182accc6eae2eea70d52ade1b44364d80acd0657e585d607d689f300cc654fc564f9bb935dac9d6311181b671b7a55d145c3b4cf3b38e8b6d

data/LICENSE.md

@@ -1,4 +1,4 @@
-Copyright (c) 2012 Peter Cooper
+Copyright (c) 2012-2026 Peter Cooper
 
 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:
 

data/README.md

@@ -1,20 +1,19 @@
 # Trtl - Simple Ruby Turtle Graphics
 
-![example session](http://no.gd/p/trtl-20120708-034138.jpg)
+> [!NOTE]
+> Trtl originally drew its graphics with Tk, which shipped with Ruby until Ruby 2.4 moved it out of the standard library and into a separate `tk` gem. That gem has to be compiled against a Tcl/Tk installation, which made Trtl a pain to set up, particularly on macOS. In 2026, Trtl was ported to [LibUI](https://github.com/kojix2/LibUI), whose gem includes a precompiled native library for macOS, Windows and Linux, so on most systems `gem install` is all it takes.
 
 ## Installation
+
     gem install trtl
 
 ## Description
 
-Trtl is a simple turtle system inspired by Python's turtle.py. It provides
-simple turtle drawing capabilities in Ruby, even if you're just at an IRb 
-prompt. It leans on Tk which is part of MRI 1.9's standard library so in theory it should
-work 'out of the box' with most MRI 1.9 installs.
+Trtl is a simple 'turtle' system inspired by Python's turtle.py. It provides simple turtle drawing capabilities in Ruby, even if you're just at an IRB prompt. It draws using [LibUI](https://github.com/kojix2/LibUI).
 
 ## Usage
 
-If Trtl detects you're in an IRb or Pry session, it'll automatically make turtle
+If Trtl detects you're in an IRB or Pry session, it'll automatically make turtle
 methods available directly at the prompt. For example:
 
     $ irb
@@ -28,35 +27,58 @@ can create a Trtl instance and use it directly:
     require 'trtl'
     t = Trtl.new
     10.times { t.left(24); t.forward(30); t.ensure_drawn }
-    t.wait
+    t.wait # keeps the window open until it's closed or Enter is pressed
 
 You can use Trtl's `run` method to use it in a more interactive fashion:
 
-	Trtl.new.run { 10.times { left(24); forward(30); ensure_drawn } }
+    Trtl.new.run { 10.times { left(24); forward(30); ensure_drawn }; wait }
 
 Or you can include InteractiveTurtle and get a similar effect as if you were in
-IRb:
+IRB:
 
     include InteractiveTurtle
     10.times { left(24); forward(30) }
+    wait
 
 Note: Using InteractiveTurtle makes drawing slower as it ensures all graphics
-are drawn after every action (as necessary for IRb use).
+are drawn after every action (as necessary for IRB use).
+
+## Commands
+
+Only a small number of commands are currently implemented, but they're enough for the major actions:
+
+* `title(title_name)`
+* `forward(distance)` - aliased as `fd`
+* `back(distance)` - aliased as `bk` and `backward`
+* `left(angle)` - aliased as `lt` and `turnleft`
+* `right(angle)` - aliased as `rt` and `turnright`
+* `pen_up` - aliased as `pu` and `up` and `penup`
+* `pen_down` - aliased as `pd` and `down` and `pendown`
+* `color(color_name)` - aliased as `pencolor`. Accepts X11 color names (`"darkolivegreen"`) or hex (`"#1e90ff"`), and returns the current color if called with no argument
+* `move(x, y)` - aliased as `goto`, `setpos` and `setposition`
+* `home` - returns to the center of the canvas, facing right
+* `position` - aliased as `pos`
+* `circle(radius, extent = 360, steps = 360)`
+* `dot(size)` - draws a dot, defaults to a sensible size but you can supply if you want
+* `is_drawing?`
+* `width(width_in_pixels)`
+* `ensure_drawn` - makes sure everything drawn so far is on screen (useful in loops in scripts)
+* `wait` - keeps the window open until it's closed or Enter is pressed (needed at the end of scripts, not in IRB)
 
 ## Examples
 
 The examples in the `examples` folder should be reasonably illustrative. If you
 try any of them, try `example4.rb` - it renders an awesome looking tree.
 
-![tree](http://no.gd/p/trtltree-20120708-035127.jpg)
+![tree](images/tree.png)
 
 ## Credits
 
-* turtle.py for inspiration
+* turtle.py for inspiration (in the 'Ruby needs this!' sense)
 * Some of the examples taken from examples for an earlier Ruby turtle found at http://www.rubyquiz.com/quiz104.html
 
 ## Copyright and License
 
-Copyright (c) 2012 Peter Cooper (other than minor parts of some samples.)
+Copyright (c) 2012-2026 Peter Cooper (other than minor parts of some samples.)
 
 MIT licensed. See LICENSE.md

data/examples/example2.rb

@@ -11,4 +11,4 @@ t = Trtl.new
   t.ensure_drawn
 end
 
-gets
+t.wait

data/lib/trtl/canvas.rb

@@ -0,0 +1,273 @@
+require 'libui'
+
+class Trtl
+  # A window with a drawing area, built on LibUI. LibUI areas are repainted
+  # from scratch whenever the OS asks, so the canvas keeps a list of everything
+  # drawn so far and replays it on each repaint.
+  class Canvas
+    UI = LibUI
+    FRAME = 1 / 60.0
+    TWO_PI = Math::PI * 2
+
+    attr_reader :width, :height, :title
+
+    class << self
+      def canvases
+        @canvases ||= []
+      end
+
+      def init_ui
+        return if @ui_ready
+        UI.init
+        UI.main_steps
+        # Cmd+Q closes the windows rather than stopping the event loop
+        UI.on_should_quit do
+          canvases.each(&:close)
+          0
+        end
+        @ui_ready = true
+      end
+
+      # UI calls must not be re-entered from the signal handler used by keep_responsive!
+      def busy
+        was_busy, @busy = @busy, true
+        yield
+      ensure
+        @busy = was_busy
+      end
+
+      def busy?
+        @busy
+      end
+
+      # IRb and Pry spend most of their time blocked waiting for keyboard input,
+      # when nothing would service the window (so it couldn't be moved, resized,
+      # or even repainted). A background thread signals the process regularly
+      # and the trap handler, which Ruby always runs on the main thread as the
+      # UI requires, processes any pending window events. Windows has no USR2,
+      # so there the window only updates when turtle commands run.
+      def keep_responsive!
+        return if @keeper || !Signal.list.key?('USR2')
+        Signal.trap('USR2') { canvases.each(&:pump) unless busy? }
+        @keeper = Thread.new do
+          loop do
+            Kernel.sleep(FRAME * 2)
+            Process.kill('USR2', Process.pid)
+          end
+        end
+      end
+    end
+
+    def initialize(width, height, title: 'trtl', background: 'black')
+      @width, @height, @title = width, height, title
+      @background = Colors.rgb(background)
+      @items = []
+      @turtles = []
+      self.class.canvases << self
+    end
+
+    def line(x1, y1, x2, y2, width, color)
+      @items << [:line, x1.to_f, y1.to_f, x2.to_f, y2.to_f, width.to_f, Colors.rgb(color)]
+      changed
+    end
+
+    def dot(x, y, size, color)
+      @items << [:dot, x.to_f, y.to_f, size / 2.0, Colors.rgb(color)]
+      changed
+    end
+
+    def add_turtle(turtle)
+      @turtles << turtle
+      changed
+    end
+
+    # Marks the canvas as needing a repaint the next time events are processed
+    def changed
+      @dirty = true
+    end
+
+    def title=(title)
+      @title = title.to_s
+      UI.window_set_title(@window, @title) if open?
+    end
+
+    def open?
+      !@window.nil?
+    end
+
+    # Opens the window if necessary, then processes window events for about
+    # +ms+ milliseconds, which is what gets the latest drawing on screen
+    def update(ms = 0)
+      open unless open?
+      deadline = clock + ms / 1000.0
+      pump
+      while (remaining = deadline - clock) > 0
+        Kernel.sleep([FRAME, remaining].min)
+        pump
+      end
+    end
+
+    # Keeps the window responsive until it's closed or Enter is pressed
+    def wait
+      update
+      while open?
+        if IO.select([$stdin], nil, nil, FRAME)
+          $stdin.gets
+          break
+        end
+        pump
+      end
+    end
+
+    def pump
+      return unless open?
+      self.class.busy do
+        if @dirty
+          UI.area_queue_redraw_all(@area)
+          @dirty = false
+        end
+        # Each step handles at most one pending event
+        20.times { UI.main_step(0) }
+      end
+    end
+
+    def close
+      return unless open?
+      self.class.busy { UI.control_destroy(@window) }
+      closed
+    end
+
+    private
+
+    def clock
+      Process.clock_gettime(Process::CLOCK_MONOTONIC)
+    end
+
+    def open
+      self.class.init_ui
+      self.class.busy do
+        @window = UI.new_window(@title, @width, @height, 0)
+
+        @handler = struct(UI::FFI::AreaHandler)
+        # Fiddle closures are kept in instance variables so they aren't garbage collected
+        @draw_callback = Fiddle::Closure::BlockCaller.new(Fiddle::TYPE_VOID, [Fiddle::TYPE_VOIDP] * 3) do |_, _, params|
+          draw(UI::FFI::AreaDrawParams.new(params))
+        rescue Exception => e
+          warn "trtl: error while drawing: #{e.class}: #{e.message}"
+        end
+        @ignore_callback = Fiddle::Closure::BlockCaller.new(Fiddle::TYPE_VOID, [Fiddle::TYPE_VOIDP]) {}
+        @key_callback = Fiddle::Closure::BlockCaller.new(Fiddle::TYPE_INT, [Fiddle::TYPE_VOIDP]) { 0 }
+        @handler.Draw = @draw_callback
+        @handler.MouseEvent = @ignore_callback
+        @handler.MouseCrossed = @ignore_callback
+        @handler.DragBroken = @ignore_callback
+        @handler.KeyEvent = @key_callback
+
+        @area = UI.new_area(@handler)
+        UI.window_set_child(@window, @area)
+        # Returning 1 lets LibUI destroy the window (and the area inside it)
+        UI.window_on_closing(@window) do
+          closed
+          1
+        end
+        UI.control_show(@window)
+      end
+      changed
+    end
+
+    def closed
+      @window = @area = nil
+    end
+
+    def struct(type)
+      type.malloc.tap { |s| s.to_ptr.free = Fiddle::RUBY_FREE }
+    end
+
+    def draw(params)
+      ctx = params.Context
+      @brush ||= struct(UI::FFI::DrawBrush).tap { |b| b.Type = UI::DrawBrushTypeSolid }
+      @stroke ||= struct(UI::FFI::DrawStrokeParams).tap do |s|
+        s.Cap = UI::DrawLineCapRound
+        s.Join = UI::DrawLineJoinRound
+        s.MiterLimit = UI::DrawDefaultMiterLimit
+        s.NumDashes = 0
+        s.DashPhase = 0
+      end
+
+      fill(ctx, @background) { |path| UI.draw_path_add_rectangle(path, 0, 0, params.AreaWidth, params.AreaHeight) }
+
+      # Keep the drawing centered if the window is resized
+      @matrix ||= struct(UI::FFI::DrawMatrix)
+      UI.draw_matrix_set_identity(@matrix)
+      UI.draw_matrix_translate(@matrix, (params.AreaWidth - @width) / 2.0, (params.AreaHeight - @height) / 2.0)
+      UI.draw_transform(ctx, @matrix)
+
+      draw_items(ctx)
+      @turtles.each { |turtle| draw_turtle(ctx, turtle) }
+    end
+
+    # Consecutive lines sharing a width and color go into a single path, joined
+    # up where one starts at the end of the last, which is much faster than
+    # stroking each line alone and gives cleaner joins
+    def draw_items(ctx)
+      path = style = last_x = last_y = nil
+
+      @items.each do |kind, *args|
+        if kind == :line
+          x1, y1, x2, y2, width, rgb = args
+          if path.nil? || style[0] != width || style[1] != rgb
+            stroke(ctx, path, style) if path
+            path = UI.draw_new_path(UI::DrawFillModeWinding)
+            style = [width, rgb]
+            UI.draw_path_new_figure(path, x1, y1)
+          elsif x1 != last_x || y1 != last_y
+            UI.draw_path_new_figure(path, x1, y1)
+          end
+          UI.draw_path_line_to(path, x2, y2)
+          last_x, last_y = x2, y2
+        else
+          stroke(ctx, path, style) if path
+          path = nil
+          x, y, radius, rgb = args
+          fill(ctx, rgb) { |p| UI.draw_path_new_figure_with_arc(p, x, y, radius, 0, TWO_PI, 0) }
+        end
+      end
+
+      stroke(ctx, path, style) if path
+    end
+
+    # An arrowhead pointing in the turtle's direction of travel
+    def draw_turtle(ctx, turtle)
+      x, y = turtle.position
+      angle = turtle.heading * DEG
+      dx, dy = Math.cos(angle), Math.sin(angle)
+      fill(ctx, Colors.rgb(turtle.color)) do |path|
+        UI.draw_path_new_figure(path, x + dx * 10, y + dy * 10)
+        UI.draw_path_line_to(path, x - dx * 2 - dy * 6, y - dy * 2 + dx * 6)
+        UI.draw_path_line_to(path, x - dx * 2 + dy * 6, y - dy * 2 - dx * 6)
+        UI.draw_path_close_figure(path)
+      end
+    end
+
+    def stroke(ctx, path, (width, rgb))
+      UI.draw_path_end(path)
+      set_brush(rgb)
+      @stroke.Thickness = width
+      UI.draw_stroke(ctx, path, @brush, @stroke)
+      UI.draw_free_path(path)
+    end
+
+    def fill(ctx, rgb)
+      path = UI.draw_new_path(UI::DrawFillModeWinding)
+      yield path
+      UI.draw_path_end(path)
+      set_brush(rgb)
+      UI.draw_fill(ctx, path, @brush)
+      UI.draw_free_path(path)
+    end
+
+    def set_brush((r, g, b))
+      @brush.R, @brush.G, @brush.B, @brush.A = r, g, b, 1.0
+    end
+  end
+end

data/lib/trtl/colors.rb

@@ -0,0 +1,188 @@
+class Trtl
+  # Named colors follow the X11 color list, the same names (and values) Tk accepted.
+  # Lookup ignores case and spaces, so "DarkOliveGreen" and "dark olive green" both work.
+  module Colors
+    TABLE = <<~LIST.split.each_slice(2).to_h { |name, hex| [name, hex] }.freeze
+    aliceblue f0f8ff  antiquewhite faebd7  antiquewhite1 ffefdb  antiquewhite2 eedfcc
+    antiquewhite3 cdc0b0  antiquewhite4 8b8378  aqua 00ffff  aquamarine 7fffd4
+    aquamarine1 7fffd4  aquamarine2 76eec6  aquamarine3 66cdaa  aquamarine4 458b74
+    azure f0ffff  azure1 f0ffff  azure2 e0eeee  azure3 c1cdcd
+    azure4 838b8b  beige f5f5dc  bisque ffe4c4  bisque1 ffe4c4
+    bisque2 eed5b7  bisque3 cdb79e  bisque4 8b7d6b  black 000000
+    blanchedalmond ffebcd  blue 0000ff  blue1 0000ff  blue2 0000ee
+    blue3 0000cd  blue4 00008b  blueviolet 8a2be2  brown a52a2a
+    brown1 ff4040  brown2 ee3b3b  brown3 cd3333  brown4 8b2323
+    burlywood deb887  burlywood1 ffd39b  burlywood2 eec591  burlywood3 cdaa7d
+    burlywood4 8b7355  cadetblue 5f9ea0  cadetblue1 98f5ff  cadetblue2 8ee5ee
+    cadetblue3 7ac5cd  cadetblue4 53868b  chartreuse 7fff00  chartreuse1 7fff00
+    chartreuse2 76ee00  chartreuse3 66cd00  chartreuse4 458b00  chocolate d2691e
+    chocolate1 ff7f24  chocolate2 ee7621  chocolate3 cd661d  chocolate4 8b4513
+    coral ff7f50  coral1 ff7256  coral2 ee6a50  coral3 cd5b45
+    coral4 8b3e2f  cornflowerblue 6495ed  cornsilk fff8dc  cornsilk1 fff8dc
+    cornsilk2 eee8cd  cornsilk3 cdc8b1  cornsilk4 8b8878  crimson dc143c
+    cyan 00ffff  cyan1 00ffff  cyan2 00eeee  cyan3 00cdcd
+    cyan4 008b8b  darkblue 00008b  darkcyan 008b8b  darkgoldenrod b8860b
+    darkgoldenrod1 ffb90f  darkgoldenrod2 eead0e  darkgoldenrod3 cd950c  darkgoldenrod4 8b6508
+    darkgray a9a9a9  darkgreen 006400  darkgrey a9a9a9  darkkhaki bdb76b
+    darkmagenta 8b008b  darkolivegreen 556b2f  darkolivegreen1 caff70  darkolivegreen2 bcee68
+    darkolivegreen3 a2cd5a  darkolivegreen4 6e8b3d  darkorange ff8c00  darkorange1 ff7f00
+    darkorange2 ee7600  darkorange3 cd6600  darkorange4 8b4500  darkorchid 9932cc
+    darkorchid1 bf3eff  darkorchid2 b23aee  darkorchid3 9a32cd  darkorchid4 68228b
+    darkred 8b0000  darksalmon e9967a  darkseagreen 8fbc8f  darkseagreen1 c1ffc1
+    darkseagreen2 b4eeb4  darkseagreen3 9bcd9b  darkseagreen4 698b69  darkslateblue 483d8b
+    darkslategray 2f4f4f  darkslategray1 97ffff  darkslategray2 8deeee  darkslategray3 79cdcd
+    darkslategray4 528b8b  darkslategrey 2f4f4f  darkturquoise 00ced1  darkviolet 9400d3
+    deeppink ff1493  deeppink1 ff1493  deeppink2 ee1289  deeppink3 cd1076
+    deeppink4 8b0a50  deepskyblue 00bfff  deepskyblue1 00bfff  deepskyblue2 00b2ee
+    deepskyblue3 009acd  deepskyblue4 00688b  dimgray 696969  dimgrey 696969
+    dodgerblue 1e90ff  dodgerblue1 1e90ff  dodgerblue2 1c86ee  dodgerblue3 1874cd
+    dodgerblue4 104e8b  firebrick b22222  firebrick1 ff3030  firebrick2 ee2c2c
+    firebrick3 cd2626  firebrick4 8b1a1a  floralwhite fffaf0  forestgreen 228b22
+    fractal 808080  freeze 000000  fuchsia ff00ff  gainsboro dcdcdc
+    ghostwhite f8f8ff  gold ffd700  gold1 ffd700  gold2 eec900
+    gold3 cdad00  gold4 8b7500  goldenrod daa520  goldenrod1 ffc125
+    goldenrod2 eeb422  goldenrod3 cd9b1d  goldenrod4 8b6914  gray bebebe
+    gray0 000000  gray1 030303  gray10 1a1a1a  gray100 ffffff
+    gray11 1c1c1c  gray12 1f1f1f  gray13 212121  gray14 242424
+    gray15 262626  gray16 292929  gray17 2b2b2b  gray18 2e2e2e
+    gray19 303030  gray2 050505  gray20 333333  gray21 363636
+    gray22 383838  gray23 3b3b3b  gray24 3d3d3d  gray25 404040
+    gray26 424242  gray27 454545  gray28 474747  gray29 4a4a4a
+    gray3 080808  gray30 4d4d4d  gray31 4f4f4f  gray32 525252
+    gray33 545454  gray34 575757  gray35 595959  gray36 5c5c5c
+    gray37 5e5e5e  gray38 616161  gray39 636363  gray4 0a0a0a
+    gray40 666666  gray41 696969  gray42 6b6b6b  gray43 6e6e6e
+    gray44 707070  gray45 737373  gray46 757575  gray47 787878
+    gray48 7a7a7a  gray49 7d7d7d  gray5 0d0d0d  gray50 7f7f7f
+    gray51 828282  gray52 858585  gray53 878787  gray54 8a8a8a
+    gray55 8c8c8c  gray56 8f8f8f  gray57 919191  gray58 949494
+    gray59 969696  gray6 0f0f0f  gray60 999999  gray61 9c9c9c
+    gray62 9e9e9e  gray63 a1a1a1  gray64 a3a3a3  gray65 a6a6a6
+    gray66 a8a8a8  gray67 ababab  gray68 adadad  gray69 b0b0b0
+    gray7 121212  gray70 b3b3b3  gray71 b5b5b5  gray72 b8b8b8
+    gray73 bababa  gray74 bdbdbd  gray75 bfbfbf  gray76 c2c2c2
+    gray77 c4c4c4  gray78 c7c7c7  gray79 c9c9c9  gray8 141414
+    gray80 cccccc  gray81 cfcfcf  gray82 d1d1d1  gray83 d4d4d4
+    gray84 d6d6d6  gray85 d9d9d9  gray86 dbdbdb  gray87 dedede
+    gray88 e0e0e0  gray89 e3e3e3  gray9 171717  gray90 e5e5e5
+    gray91 e8e8e8  gray92 ebebeb  gray93 ededed  gray94 f0f0f0
+    gray95 f2f2f2  gray96 f5f5f5  gray97 f7f7f7  gray98 fafafa
+    gray99 fcfcfc  green 00ff00  green1 00ff00  green2 00ee00
+    green3 00cd00  green4 008b00  greenyellow adff2f  grey bebebe
+    grey0 000000  grey1 030303  grey10 1a1a1a  grey100 ffffff
+    grey11 1c1c1c  grey12 1f1f1f  grey13 212121  grey14 242424
+    grey15 262626  grey16 292929  grey17 2b2b2b  grey18 2e2e2e
+    grey19 303030  grey2 050505  grey20 333333  grey21 363636
+    grey22 383838  grey23 3b3b3b  grey24 3d3d3d  grey25 404040
+    grey26 424242  grey27 454545  grey28 474747  grey29 4a4a4a
+    grey3 080808  grey30 4d4d4d  grey31 4f4f4f  grey32 525252
+    grey33 545454  grey34 575757  grey35 595959  grey36 5c5c5c
+    grey37 5e5e5e  grey38 616161  grey39 636363  grey4 0a0a0a
+    grey40 666666  grey41 696969  grey42 6b6b6b  grey43 6e6e6e
+    grey44 707070  grey45 737373  grey46 757575  grey47 787878
+    grey48 7a7a7a  grey49 7d7d7d  grey5 0d0d0d  grey50 7f7f7f
+    grey51 828282  grey52 858585  grey53 878787  grey54 8a8a8a
+    grey55 8c8c8c  grey56 8f8f8f  grey57 919191  grey58 949494
+    grey59 969696  grey6 0f0f0f  grey60 999999  grey61 9c9c9c
+    grey62 9e9e9e  grey63 a1a1a1  grey64 a3a3a3  grey65 a6a6a6
+    grey66 a8a8a8  grey67 ababab  grey68 adadad  grey69 b0b0b0
+    grey7 121212  grey70 b3b3b3  grey71 b5b5b5  grey72 b8b8b8
+    grey73 bababa  grey74 bdbdbd  grey75 bfbfbf  grey76 c2c2c2
+    grey77 c4c4c4  grey78 c7c7c7  grey79 c9c9c9  grey8 141414
+    grey80 cccccc  grey81 cfcfcf  grey82 d1d1d1  grey83 d4d4d4
+    grey84 d6d6d6  grey85 d9d9d9  grey86 dbdbdb  grey87 dedede
+    grey88 e0e0e0  grey89 e3e3e3  grey9 171717  grey90 e5e5e5
+    grey91 e8e8e8  grey92 ebebeb  grey93 ededed  grey94 f0f0f0
+    grey95 f2f2f2  grey96 f5f5f5  grey97 f7f7f7  grey98 fafafa
+    grey99 fcfcfc  honeydew f0fff0  honeydew1 f0fff0  honeydew2 e0eee0
+    honeydew3 c1cdc1  honeydew4 838b83  hotpink ff69b4  hotpink1 ff6eb4
+    hotpink2 ee6aa7  hotpink3 cd6090  hotpink4 8b3a62  indianred cd5c5c
+    indianred1 ff6a6a  indianred2 ee6363  indianred3 cd5555  indianred4 8b3a3a
+    indigo 4b0082  ivory fffff0  ivory1 fffff0  ivory2 eeeee0
+    ivory3 cdcdc1  ivory4 8b8b83  khaki f0e68c  khaki1 fff68f
+    khaki2 eee685  khaki3 cdc673  khaki4 8b864e  lavender e6e6fa
+    lavenderblush fff0f5  lavenderblush1 fff0f5  lavenderblush2 eee0e5  lavenderblush3 cdc1c5
+    lavenderblush4 8b8386  lawngreen 7cfc00  lemonchiffon fffacd  lemonchiffon1 fffacd
+    lemonchiffon2 eee9bf  lemonchiffon3 cdc9a5  lemonchiffon4 8b8970  lightblue add8e6
+    lightblue1 bfefff  lightblue2 b2dfee  lightblue3 9ac0cd  lightblue4 68838b
+    lightcoral f08080  lightcyan e0ffff  lightcyan1 e0ffff  lightcyan2 d1eeee
+    lightcyan3 b4cdcd  lightcyan4 7a8b8b  lightgoldenrod eedd82  lightgoldenrod1 ffec8b
+    lightgoldenrod2 eedc82  lightgoldenrod3 cdbe70  lightgoldenrod4 8b814c  lightgoldenrodyellow fafad2
+    lightgray d3d3d3  lightgreen 90ee90  lightgrey d3d3d3  lightpink ffb6c1
+    lightpink1 ffaeb9  lightpink2 eea2ad  lightpink3 cd8c95  lightpink4 8b5f65
+    lightsalmon ffa07a  lightsalmon1 ffa07a  lightsalmon2 ee9572  lightsalmon3 cd8162
+    lightsalmon4 8b5742  lightseagreen 20b2aa  lightskyblue 87cefa  lightskyblue1 b0e2ff
+    lightskyblue2 a4d3ee  lightskyblue3 8db6cd  lightskyblue4 607b8b  lightslateblue 8470ff
+    lightslategray 778899  lightslategrey 778899  lightsteelblue b0c4de  lightsteelblue1 cae1ff
+    lightsteelblue2 bcd2ee  lightsteelblue3 a2b5cd  lightsteelblue4 6e7b8b  lightyellow ffffe0
+    lightyellow1 ffffe0  lightyellow2 eeeed1  lightyellow3 cdcdb4  lightyellow4 8b8b7a
+    lime 00ff00  limegreen 32cd32  linen faf0e6  magenta ff00ff
+    magenta1 ff00ff  magenta2 ee00ee  magenta3 cd00cd  magenta4 8b008b
+    maroon b03060  maroon1 ff34b3  maroon2 ee30a7  maroon3 cd2990
+    maroon4 8b1c62  matte 000000  mediumaquamarine 66cdaa  mediumblue 0000cd
+    mediumforestgreen 32814b  mediumgoldenrod d1c166  mediumorchid ba55d3  mediumorchid1 e066ff
+    mediumorchid2 d15fee  mediumorchid3 b452cd  mediumorchid4 7a378b  mediumpurple 9370db
+    mediumpurple1 ab82ff  mediumpurple2 9f79ee  mediumpurple3 8968cd  mediumpurple4 5d478b
+    mediumseagreen 3cb371  mediumslateblue 7b68ee  mediumspringgreen 00fa9a  mediumturquoise 48d1cc
+    mediumvioletred c71585  midnightblue 191970  mintcream f5fffa  mistyrose ffe4e1
+    mistyrose1 ffe4e1  mistyrose2 eed5d2  mistyrose3 cdb7b5  mistyrose4 8b7d7b
+    moccasin ffe4b5  navajowhite ffdead  navajowhite1 ffdead  navajowhite2 eecfa1
+    navajowhite3 cdb38b  navajowhite4 8b795e  navy 000080  navyblue 000080
+    none 000000  oldlace fdf5e6  olive 808000  olivedrab 6b8e23
+    olivedrab1 c0ff3e  olivedrab2 b3ee3a  olivedrab3 9acd32  olivedrab4 698b22
+    opaque 000000  orange ffa500  orange1 ffa500  orange2 ee9a00
+    orange3 cd8500  orange4 8b5a00  orangered ff4500  orangered1 ff4500
+    orangered2 ee4000  orangered3 cd3700  orangered4 8b2500  orchid da70d6
+    orchid1 ff83fa  orchid2 ee7ae9  orchid3 cd69c9  orchid4 8b4789
+    palegoldenrod eee8aa  palegreen 98fb98  palegreen1 9aff9a  palegreen2 90ee90
+    palegreen3 7ccd7c  palegreen4 548b54  paleturquoise afeeee  paleturquoise1 bbffff
+    paleturquoise2 aeeeee  paleturquoise3 96cdcd  paleturquoise4 668b8b  palevioletred db7093
+    palevioletred1 ff82ab  palevioletred2 ee799f  palevioletred3 cd6889  palevioletred4 8b475d
+    papayawhip ffefd5  peachpuff ffdab9  peachpuff1 ffdab9  peachpuff2 eecbad
+    peachpuff3 cdaf95  peachpuff4 8b7765  peru cd853f  pink ffc0cb
+    pink1 ffb5c5  pink2 eea9b8  pink3 cd919e  pink4 8b636c
+    plum dda0dd  plum1 ffbbff  plum2 eeaeee  plum3 cd96cd
+    plum4 8b668b  powderblue b0e0e6  purple a020f0  purple1 9b30ff
+    purple2 912cee  purple3 7d26cd  purple4 551a8b  red ff0000
+    red1 ff0000  red2 ee0000  red3 cd0000  red4 8b0000
+    rosybrown bc8f8f  rosybrown1 ffc1c1  rosybrown2 eeb4b4  rosybrown3 cd9b9b
+    rosybrown4 8b6969  royalblue 4169e1  royalblue1 4876ff  royalblue2 436eee
+    royalblue3 3a5fcd  royalblue4 27408b  saddlebrown 8b4513  salmon fa8072
+    salmon1 ff8c69  salmon2 ee8262  salmon3 cd7054  salmon4 8b4c39
+    sandybrown f4a460  seagreen 2e8b57  seagreen1 54ff9f  seagreen2 4eee94
+    seagreen3 43cd80  seagreen4 2e8b57  seashell fff5ee  seashell1 fff5ee
+    seashell2 eee5de  seashell3 cdc5bf  seashell4 8b8682  sienna a0522d
+    sienna1 ff8247  sienna2 ee7942  sienna3 cd6839  sienna4 8b4726
+    silver c0c0c0  skyblue 87ceeb  skyblue1 87ceff  skyblue2 7ec0ee
+    skyblue3 6ca6cd  skyblue4 4a708b  slateblue 6a5acd  slateblue1 836fff
+    slateblue2 7a67ee  slateblue3 6959cd  slateblue4 473c8b  slategray 708090
+    slategray1 c6e2ff  slategray2 b9d3ee  slategray3 9fb6cd  slategray4 6c7b8b
+    slategrey 708090  snow fffafa  snow1 fffafa  snow2 eee9e9
+    snow3 cdc9c9  snow4 8b8989  springgreen 00ff7f  springgreen1 00ff7f
+    springgreen2 00ee76  springgreen3 00cd66  springgreen4 008b45  steelblue 4682b4
+    steelblue1 63b8ff  steelblue2 5cacee  steelblue3 4f94cd  steelblue4 36648b
+    tan d2b48c  tan1 ffa54f  tan2 ee9a49  tan3 cd853f
+    tan4 8b5a2b  teal 008080  thistle d8bfd8  thistle1 ffe1ff
+    thistle2 eed2ee  thistle3 cdb5cd  thistle4 8b7b8b  tomato ff6347
+    tomato1 ff6347  tomato2 ee5c42  tomato3 cd4f39  tomato4 8b3626
+    transparent 000000  turquoise 40e0d0  turquoise1 00f5ff  turquoise2 00e5ee
+    turquoise3 00c5cd  turquoise4 00868b  violet ee82ee  violetred d02090
+    violetred1 ff3e96  violetred2 ee3a8c  violetred3 cd3278  violetred4 8b2252
+    wheat f5deb3  wheat1 ffe7ba  wheat2 eed8ae  wheat3 cdba96
+    wheat4 8b7e66  white ffffff  whitesmoke f5f5f5  yellow ffff00
+    yellow1 ffff00  yellow2 eeee00  yellow3 cdcd00  yellow4 8b8b00
+    yellowgreen 9acd32
+    LIST
+
+    # Returns [r, g, b] with components between 0.0 and 1.0
+    def self.rgb(color)
+      case color
+      when /\A#(\h{3})\z/ then $1.chars.map { |c| (c * 2).to_i(16) / 255.0 }
+      when /\A#(\h{6})\z/ then $1.scan(/../).map { |c| c.to_i(16) / 255.0 }
+      else
+        hex = TABLE[color.to_s.downcase.delete(" ")] or raise ArgumentError, "unknown color: #{color.inspect}"
+        hex.scan(/../).map { |c| c.to_i(16) / 255.0 }
+      end
+    end
+  end
+end

data/lib/trtl.rb

@@ -1,8 +1,7 @@
-require 'tk'
+require_relative 'trtl/colors'
+require_relative 'trtl/canvas'
 
 class Trtl
-  VERSION = "0.0.1"
-
   CANVAS_WIDTH = 800
   CANVAS_HEIGHT = 600
   HOME_X = CANVAS_WIDTH / 2
@@ -20,23 +19,23 @@ class Trtl
     @canvas = options[:canvas] || self.class.canvas
     @width = options[:width] || 1
     @drawing = true
+    @canvas.add_turtle(self)
     home
     draw
   end
 
   def self.canvas
-    return @canvas if @canvas
+    @canvas ||= Canvas.new(CANVAS_WIDTH, CANVAS_HEIGHT)
+  end
 
-    root = TkRoot.new(:title => 'trtl', :minsize => [CANVAS_WIDTH, CANVAS_HEIGHT])
-    @canvas = TkCanvas.new(root, :bg => 'black', :highlightthickness => 0, :width => CANVAS_WIDTH, :height => CANVAS_HEIGHT)
-    @canvas.pack(:fill => 'both', :expand => 1)
-    @canvas
+  def title(title)
+    canvas.title = title
   end
 
   def pen_up
     @drawing = false
   end
-  
+
   def pen_down
     @drawing = true
   end
@@ -45,14 +44,16 @@ class Trtl
     @drawing
   end
 
-  def color(color)
+  # With no argument, returns the current color
+  def color(color = nil)
+    return @color if color.nil?
     @color = color.to_s
   end
 
   def width(width)
     @width = width
   end
-  
+
   def forward(amount = 20)
     new_x = (@x + dx * amount)
     new_y = (@y + dy * amount)
@@ -64,18 +65,18 @@ class Trtl
     new_y = (@y - dy * amount)
     move(new_x, new_y)
   end
-  
+
   def move(new_x, new_y)
-    TkcLine.new(canvas, @x, @y, new_x, new_y, :width => @width, :fill => @color) if @drawing
+    canvas.line(@x, @y, new_x, new_y, @width, @color) if @drawing
     @x, @y = new_x, new_y
     draw
   end
-  
+
   def right(offset)
     @heading = (@heading + offset) % 360
     draw
   end
-  
+
   def left(offset)
     @heading = (@heading - offset) % 360
     draw
@@ -83,7 +84,7 @@ class Trtl
 
   def dot(size = nil)
     size ||= [@width + 4, @width * 2].max
-    TkcOval.new(canvas, @x - size / 2, @y - size / 2, @x + size / 2, @y + size / 2, :fill => @color, :outline => @color)
+    canvas.dot(@x, @y, size, @color)
   end
 
   # TODO / TOFIX: This is horribly wrong with the fewer steps due to circumference varying ;-)
@@ -106,16 +107,18 @@ class Trtl
     draw
   end
 
+  # Shows the window and keeps it responsive for +time+ milliseconds
   def sleep(time = 100000)
-    Tk.sleep(time)
+    canvas.update(time)
   end
 
   def ensure_drawn
     sleep 30
   end
 
+  # Keeps the window open until it's closed or Enter is pressed
   def wait
-    ensure_drawn and gets
+    canvas.wait
   end
 
   alias :run :instance_eval
@@ -144,16 +147,14 @@ class Trtl
   def dx
     Math.cos(@heading * DEG)
   end
-  
+
   def dy
     Math.sin(@heading * DEG)
   end
 
   def draw
-    canvas.delete(@turtle_line) if @turtle_line
-    @turtle_line = TkcLine.new(canvas, @x, @y, @x + dx * 5 , @y + dy * 5, :arrow => 'last', :width => 10, :fill => @color)
-    # Can probably just use ensure_drawn actually..
-    TkTimer.new(60, 1) { Tk.update }.start.wait if @interactive
+    canvas.changed
+    canvas.update(60) if @interactive
     true
   end
 end
@@ -168,4 +169,7 @@ module InteractiveTurtle
   end
 end
 
-include InteractiveTurtle if %w{irb pry}.include?($0)
+if %w{irb pry}.include?(File.basename($0))
+  include InteractiveTurtle
+  Trtl::Canvas.keep_responsive!
+end

metadata

@@ -1,16 +1,28 @@
 --- !ruby/object:Gem::Specification
 name: trtl
 version: !ruby/object:Gem::Version
-  version: 0.0.1
-  prerelease: 
+  version: 0.1.0
 platform: ruby
 authors:
 - Peter Cooper
-autorequire: 
 bindir: bin
 cert_chain: []
-date: 2012-07-08 00:00:00.000000000 Z
-dependencies: []
+date: 1980-01-02 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: libui
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '0.2'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '0.2'
 description: A Logo / turtle.py style turtle graphics system for Ruby
 email:
 - git@peterc.org
@@ -18,11 +30,8 @@ executables: []
 extensions: []
 extra_rdoc_files: []
 files:
-- .gitignore
-- Gemfile
 - LICENSE.md
 - README.md
-- Rakefile
 - examples/example1.rb
 - examples/example2.rb
 - examples/example3.rb
@@ -30,33 +39,27 @@ files:
 - examples/example5.rb
 - examples/example6.rb
 - lib/trtl.rb
-- test/helper.rb
-- test/test_trtl.rb
-- trtl.gemspec
+- lib/trtl/canvas.rb
+- lib/trtl/colors.rb
 homepage: https://github.com/peterc/trtl
-licenses: []
-post_install_message: 
+licenses:
+- MIT
+metadata: {}
 rdoc_options: []
 require_paths:
 - lib
 required_ruby_version: !ruby/object:Gem::Requirement
-  none: false
   requirements:
-  - - ! '>='
+  - - ">="
     - !ruby/object:Gem::Version
-      version: '0'
+      version: '2.6'
 required_rubygems_version: !ruby/object:Gem::Requirement
-  none: false
   requirements:
-  - - ! '>='
+  - - ">="
     - !ruby/object:Gem::Version
       version: '0'
 requirements: []
-rubyforge_project: trtl
-rubygems_version: 1.8.24
-signing_key: 
-specification_version: 3
-summary: Ruby turtle graphics (ideal for use from IRb)
-test_files:
-- test/helper.rb
-- test/test_trtl.rb
+rubygems_version: 4.0.6
+specification_version: 4
+summary: Ruby turtle graphics (ideal for use from IRB)
+test_files: []

data/.gitignore

@@ -1,4 +0,0 @@
-*.gem
-.bundle
-Gemfile.lock
-pkg/*

data/Gemfile

@@ -1,4 +0,0 @@
-source "http://rubygems.org"
-
-# Specify your gem's dependencies in trtl.gemspec
-gemspec

data/Rakefile

@@ -1,5 +0,0 @@
-require "bundler/gem_tasks"
-require "rake/testtask"
-
-Rake::TestTask.new
-task :default => :test

data/test/helper.rb

@@ -1,3 +0,0 @@
-require 'minitest/spec'
-require 'minitest/autorun'
-require 'trtl'

data/test/test_trtl.rb

@@ -1,64 +0,0 @@
-require_relative 'helper'
-
-# Note: Only very simple high level tests here. Just stretching 
-#       some of the public API. One day I may care to stub out Tk ;-)
-
-describe Trtl do
-  before do
-    @trtl = Trtl.new
-  end
-
-  it "gets a default canvas when none is provided" do
-    @trtl.canvas.must_be_instance_of TkCanvas
-  end
-
-  it "has pen down by default" do
-    @trtl.is_drawing?.must_equal true
-  end
-
-  it "can have pen moved up" do
-    @trtl.pen_up
-    @trtl.is_drawing?.must_equal false    
-  end
-
-  it "has default X and Y set" do
-    @trtl.x.must_equal Trtl::CANVAS_WIDTH / 2
-    @trtl.y.must_equal Trtl::CANVAS_HEIGHT / 2
-  end
-
-  it "can report its position" do
-    @trtl.position.must_equal [@trtl.x, @trtl.y]
-  end
-
-  it "can rotate and change heading" do
-    @trtl.left 20
-    @trtl.heading.must_equal 340
-    @trtl.right 40
-    @trtl.heading.must_equal 20
-  end
-
-  it "can move in straight lines" do
-    start_x, start_y = @trtl.position
-    @trtl.heading = 0
-    @trtl.forward 50
-    @trtl.x.must_equal start_x + 50
-    @trtl.heading = 90
-    @trtl.forward 50
-    @trtl.y.must_equal start_y + 50
-    @trtl.back 50
-    @trtl.y.must_equal start_y
-  end
-
-  it "can move at angles" do
-    start_x, start_y = @trtl.position
-    @trtl.heading = 45
-    @trtl.forward 100
-    @trtl.x.must_be_close_to start_x + 100 / Math.sqrt(2)
-    @trtl.y.must_be_close_to start_y + 100 / Math.sqrt(2)
-  end
-
-  it "can be moved absolutely" do
-    @trtl.move(310, 201)
-    @trtl.position.must_equal [310, 201]
-  end
-end

data/trtl.gemspec

@@ -1,20 +0,0 @@
-# -*- encoding: utf-8 -*-
-$:.push File.expand_path("../lib", __FILE__)
-require "trtl"
-
-Gem::Specification.new do |s|
-  s.name        = "trtl"
-  s.version     = Trtl::VERSION
-  s.authors     = ["Peter Cooper"]
-  s.email       = ["git@peterc.org"]
-  s.homepage    = "https://github.com/peterc/trtl"
-  s.summary     = %q{Ruby turtle graphics (ideal for use from IRb)}
-  s.description = %q{A Logo / turtle.py style turtle graphics system for Ruby}
-
-  s.rubyforge_project = "trtl"
-
-  s.files         = `git ls-files`.split("\n")
-  s.test_files    = `git ls-files -- {test,spec,features}/*`.split("\n")
-  s.executables   = `git ls-files -- bin/*`.split("\n").map{ |f| File.basename(f) }
-  s.require_paths = ["lib"]
-end