Javascript + canvas で点線・破線を描画するためのライブラリです。
Description: A library to draw dotted/dashed line for Javasctipt/canvas.

canvas を使ってちょっとした折れ線グラフを書かせてみようとしたところ、点線・破線が描けないので困りました。 なぜ困るかというと、モノクロ印刷するときに系列の区別を付けにくくなるからです。

という訳であまり出来の良くない再発明っぽいですが作ってみました。 ベタに書いてみただけなのでパフォーマンスとかはあまり良くない（アニメーションなどさせると辛い）と思います。

Firefox でしか動作確認していません。

円弧やベジェ曲線は描けません（自前で何とかする必要があります）。

パスを閉じることはできません。たとえば三角形を描くと始点と終点が重なっていても lineJoin が効きません。

ライセンスは MITライセンスです。
License: MIT license

ダウンロード / Download

sonota's anbt-dashed-line.js at master - GitHub
このページの「download」ボタンからどうぞ。

サンプル / Sample

<canvas id="canvas" width="400px" height="400px" />

<script type="text/javascript" src="anbt-dashed-line.js"></script>
<script type="text/javascript">
<!--
var cv = document.getElementById("canvas");
var ctx = cv.getContext("2d");

var lineStyle = {
  color: "#a00"
, pattern: "*****-"
, scale: 200
, width: 10
, cap: "butt" // butt, round, square
, join: "bevel" // round, bevel, miter
};

var vertices = [
  [  0,   0]
, [100, 200]
, [110, 150]
, [200, 300]
];

var adl = new AnbtDashedLine();
adl.drawDashedPolyLine(ctx, vertices, lineStyle);
-->
</script>

その他

線の終端の形状（lineCap） と線の接合部（lineJoin）のスタイルについては スタイルと色を適用する - MDC を参照してください。

追記 20091125:
作った後で ActionScript のライブラリを探して移植すれば良かったかも、と思い至りました……という訳で以下参考までに。

• 2008-05-30 Cartogrammar.com | Blog » Drawing dashed lines with ActionScript 3
• 2006-05-30 Quietly Scheming » Dashed Lines
• class DashedLine
• n_mattun/Line - Spark project

参考（外部リンク）

• lists.whatwg.org での canvas dashed line の検索結果（Google）

以前適当に書いたのを掘り出してあまり見直さずに貼ってみます。

このコードに続けて scrobbler を使った処理を書くか、 別ファイルに分けて require して使います。

require "rubygems"
require "scrobbler"
require "cgi"

module Scrobbler
  module REST
    class Connection
      MULTIBYTE_CHAR = true

      def request(resource, method = "get", args = nil)
        url = URI.join(@base_url, resource)
        temp_url = url.request_uri
        temp_query = ""

        if args
          temp_query = args.map { |k,v| 
            if MULTIBYTE_CHAR
              "%s=%s" % [k.to_s, CGI.escape(v.to_s)]
            else
              "%s=%s" % [escape(k.to_s), escape(v.to_s)]
            end
          }.join("&")
          url.query = temp_query if MULTIBYTE_CHAR
        end

        req = case method
              when "get"
                if MULTIBYTE_CHAR
                  Net::HTTP::Get.new(temp_url)
                else
                  Net::HTTP::Get.new(url.request_uri)
                end
              when "post"
                if MULTIBYTE_CHAR
                  Net::HTTP::Post.new(temp_url)
                else
                  Net::HTTP::Post.new(url.request_uri)
                end
              end
        
        if @username and @password
          req.basic_auth(@username, @password)
        end

        http = Net::HTTP.new(url.host, url.port)
        http.use_ssl = (url.port == 443)

        res = if MULTIBYTE_CHAR
                http.post(temp_url, temp_query)
              else
                http.start() { |conn| conn.request(req) }
              end
        res.body
      end
      
      private
      def escape(str)
        URI.escape(str, Regexp.new("[^#{URI::PATTERN::UNRESERVED}]"))
      end
    end
  end
end

.emacs に書く場合

(add-hook
 'shell-mode-hook
 '(lambda ()
    (set-buffer-process-coding-system 'sjis 'sjis)))

関連

指定できる coding-system の一覧を表示:
M-x list-coding-systems

require "zipruby"

def filelist_in_zip(zip_path)
  result = []
  Zip::Archive.open(zip_path) do |ar|
    n = ar.num_files
    
    n.times do |i|
      result << ar.get_name(i)
    end
  end

  result
end

def zip_root_dir(zip_path)
  entries = filelist_in_zip(zip_path).map do |path|
    path.sub(/^(.+?)\/.*$/, '\1')
  end
  
  !(entries.size != 1) && entries.all?{ |x| entries.first == x }
end

Ubuntu Linux 9.04 / ruby 1.8.7 (2008-08-11 patchlevel 72) [i486-linux] / Tk::TK_PATCHLEVEL' #=> "8.4.19"

現象

逆引きRuby/Tk の PNG 画像表示のサンプルコードを実行すると次のエラーが出て動かない。

/usr/lib/ruby/1.8/tk/package.rb:86:in `require': TkPackage can't find package img::png (RuntimeError)

locate tkextlib/tkimg すると
/usr/lib/ruby/1.8/tkextlib/tkimg/png.rb
などが見つかるので、Ruby/Tk 側のライブラリ自体はインストールされている。

解決法

sudo apt-get install libtk-img

その他

JPEG もこれで解決する。

ダウンロード

gist: 228735 - GitHub からどうぞ。

サンプル

こんな感じで色が付きます。

(defun factorial (x)
  "Calculate factorial." ; 関数の説明
  (if (= x 1)
      1
    (* x (factorial (- x 1))))) ; 再帰呼び出し

動作チェック

;; ダブルクォート文字列
aa "bb" cc
aa "b\"b" cc ; バックスラッシュでエスケープ
aa "b\\b" cc
aa "b;b" cc  ; セミコロン
aa "b(b" cc  ; 括弧
aa "b)b" cc

;; 一行コメント
aa ; bb
; aa"bb ; ダブルクォート
; aa\bb ; バックスラッシュ
; aa)bb ; 括弧
; aa(bb

;; 括弧
aa(bb)cc

;; 記号
(1 . 2)
'()

;; HTMLの文字参照
a < b
a > b
a & b

;; 最後のダブルクォートが不整合
"aa

参考（外部リンク）

• 2003-02-18 横着プログラミング 第10回: scmail: Scheme によるメールフィルタ - Scheme は括弧に色を付けると見やすい

スクリプト

// ==UserScript==
// @name           doubleslash-to-linebreak
// @namespace      anbt
// @include        http://rubiyaku.com/index.py
// ==/UserScript==

(function(){
   function $class(root, className){
	 var elems = root.getElementsByTagName("*");
	 var result = [];
	 for(var a in elems){
	   if(elems[a].getAttribute("class") == className){
		 result.push(elems[a]);
	   }
	 }
	 return result;
   }

   var target = $class(document, "sheet")[0];

   target.innerHTML = 
   	 target.innerHTML.replace(
   		 /<img src="slash.png"><img src="slash.png">/g,
   	   "<br />●"
   	 );
 })();

いくつか試してみたところ、結局 wine + CDex.exe の組み合わせが無難という結論に。

CDex の設定については freedbtest.dyndns.org に説明がある。

Grip は HTTP ではなくメールを送る方式のようで、裏で sendmail が動く。 freedbtest.dyndns.org はメールには対応していないようなので、これは使えない。

Audex が使えるという情報 （Audex - いくやの斬鉄日記 2009-03-08） もあるが、自分の環境では "Submit Info" ボタンがグレーアウトして送信できなかった。

ついでにリッピング

abcde - A Better CD Encoder [ver 2.3.99]
を使う。

ダウンロード

ここから script-fu-shell.rb をダウンロードして適当なところに置いてください。
http://github.com/sonota/script-fu-shell/blob/master/script-fu-shell.rb

script-fu-shell.rb を単体で動かしてみる

Gimp を起動し、メニューから [フィルタ ＞ Script-Fu ＞ サーバスタート]
（Gimp のバージョンによってメニュー位置が違います）

「サーバスタート」をクリックしてサーバを開始させます。

端末で
$ ruby script-fu-shell.rb
と実行するとプロンプトが表示され、 Gimp本体の Script-Fu コンソールを使うのと同じ要領で S式を書くと 対話的に実行されます。

たとえばプロンプトに続けて
(gimp-display-new (car (gimp-image-new 640 480 0)))
と入力しエンターキーを押すと、Gimp側で新規画像が表示されます。

Emacs から使う

手軽に試してみる

Emacs には最初から cmuscheme という Scheme用の便利なライブラリが付属しており、 これをそのまま利用することができます。

まず手軽に試してみたいという場合は scratch バッファで
(setq scheme-program-name "~/test/script-fu-shell.rb")
などと書いて C-xC-e で評価し「Scheme インタプリタとして script-fu-shell.rb を使う」ように設定します。

次に M-x run-scheme すると、Script-Fu用のバッファが開きプロンプトが表示されます。 適当に S式を入力して試してみてください。

プロンプトの位置にカーソルを置いて M-p, M-n で履歴を前後に辿れます。

さらに便利に使う

.emacs に次を追加して保存。

(setq scheme-program-name "###/@@@/script-fu-shell.rb") ;; パスを書き換えてください。
(autoload 'scheme-mode "cmuscheme" "Major mode for Scheme." t)
(autoload 'run-scheme "cmuscheme" "Run an inferior Scheme process." t)

;; シェルを別ウィンドウで開く
(defun scheme-other-window ()
  "Run scheme on other window"
  (interactive)
  (switch-to-buffer-other-window
   (get-buffer-create "*scheme*"))
  (run-scheme scheme-program-name))
;; キーバインド
(define-key global-map
  "\C-cS" 'scheme-other-window)

新たに Emacs を起動し、 M-x scheme-mode で scheme-mode にし、 その状態で C-cS（scheme-other-window）で次の画面のような状態になります。

上がスクリプトを書くウィンドウ、下が Script-Fu シェル。

たとえば上のバッファで (+ 1 (* 2 3)) と書き、 最後の括弧の次にカーソルを移動させて C-x C-e（scheme-send-last-sexp）すると (+ 1 (* 2 3)) という S式がシェルに送られ、 評価した結果が表示されます。

キーバインドなど

cmuscheme をそのまま利用しているだけなので、キーバインドなどは同じものが使えます。
まずはリージョンをシェルに送る scheme-send-region（C-cC-r）や カーソル位置のトップレベルの S式を送る scheme-send-definition（C-cC-e）、 カーソル以後の S式にリージョン設定する mark-sexp（C-M-SPC） あたりを使ってみると良いと思います。
参考: Karetta|Gaucheプログラミング(立読み版)|EmacsからGaucheを使う

scheme-other-window を実行した後元のウィンドウに戻って欲しいのと、 C-cS が押し辛いので私は次のようにしています。

(defun scheme-other-window ()
  "Run scheme on other window"
  (interactive)
  (let ((win (selected-window)))
	(switch-to-buffer-other-window
	 (get-buffer-create "*scheme*"))
	(run-scheme scheme-program-name)
	(select-window win)
	))

(define-key global-map
  "\C-c\C-s" 'scheme-other-window)

その他

今のところ次のような不具合があります。。。

• ドット対を評価するとエラーになる。
• tracing の結果がうまく表示されない。

Script-Fu ではありませんが、Emacs で Scheme を書くのって実際どんな感じなの？ というのが垣間見れる動画があったので貼っときます。

Gaucheでライフゲームを作ってみた‐ニコニコ動画(ββ)

コーディング

新旧の違いなど

2.2 以前の Script-Fu: SIODベース。
2.4 以後の Script-Fu: TinySchemeベース。Tiny-Fu。

• 2007-10-26 晴れときどきGIMP: Script-fu In GIMP 2.4 - 以前のSIODベースのものとの違い
• TinySCHEME Version 1.38 - 概説の日本語訳

関数について調べる場合

概ねこの図のような関係になっているので、

• Gimp に固有の関数についてはプロシージャブラウザで調べる
• TinyScheme の部分については「TinyScheme」「Scheme」 などのキーワードと関数名や機能名を組み合わせて検索する

という感じになります。

ある関数が Script-Fu で使えるかどうか調べる

Script-Fu コンソールに関数名だけ入力して評価（実行）

> number->string
#<CLOSURE> ←使える
> number2string
Error: eval: unbound variable: number2string ←使えない（number2stringは束縛されていない＝定義されていない）

tracing

• 2009-06-22 晴れときどきGIMP: Script-Fu スクリプトのデバッグ方法

メッセージが大量に出て？？とりますが何もないよりは助かります。

> (tracing 1) ←トレースを有効にする

Gives: 0
> (number->string "foo") ←エラーの起こる S式

Eval: (number->string "foo")
Eval: number->string
Eval: "foo"
Apply to: ("foo")
Eval: (anyatom->string n number?)
Eval: anyatom->string
Eval: n
Eval: number?
Apply to: ("foo" #)
Eval: (if (pred n) (atom->string n) (error "xxx->string: not a xxx" n))
Eval: (pred n)
Eval: pred
Eval: n
Apply to: ("foo")
Eval: (error "xxx->string: not a xxx" n)
Eval: error
Eval: "xxx->string: not a xxx"
Eval: n
Apply to: ("xxx->string: not a xxx" "foo")Error: xxx->string: not a xxx "foo" 

gimp-shell.el

• 2009-10-12 gimp-shell.el / gimp-mode を使ってみた | anobota

SIODベースの Script-Fu 用に書かれているためかそのままでは動きませんが、 Emacs ユーザの方は一度試しみてはいかがでしょうか。

Script-Fuサーバのプロトコル

• TCPソケットを使う。
• S式の評価結果が文字列の場合はその文字列を返し、それ以外は "Success" という文字列を返すだけ。 なので、結果が文字列以外の場合は細工をしないと詳細が分からない。
• 複数のトップレベルの S式を送りたい場合は (begin ... ) で囲む。

ここらへんが参考になるかと：

• gimp-shell.el
• Gimp::ScriptFu::Client - search.cpan.org - Perl モジュール
• 2002-02-15 Making the Most of Script-Fu Server | Linux Magazine - 英語。ユーザ登録が必要
• あとは Gimp のソースに当たる。

その他

• Alphabetic Index of Definitions of Concepts, Keywords, and Procedures … 「Revised^5 Report on the Algorithmic Language Scheme」の索引。関数などのリファレンスとして。
• もうひとつの Scheme 入門