Pinball TristanをiOSにリリースしましました - Y.FUJITA::NOTEPAD::YPSILON
ここ半年ほど本業のピンボールゲームのiOS版を作っておりました。これは20年ほど前に開発したピンボールゲームを全面的に書き直したものです。 当時のコードもちゃんとありましたよ ;^) といっても使えそうなものは一行もないわけなのですが・・・これだけ時間が経ってから自分の書いたコードを見るというのは面白いものですね :p。新しいTristanはiOSということでObjective-Cを使って書くのですが、20年前のコードを見ながら(仕様をリバースエンジニアリングするため)「当時すでにObjective-CとNextStepがあったんだよな〜、継続は力なりってのはこのことか :D」などと考えておりました。 iOSのObjective-CはGCが使えないので書くのが少々面倒です。でもゲームの場合はGCでいきなり止まられるよりは遥かにいいです :) 一般アプリの場合にはRuby+Cocoa Tou
SDLとCairoをライブラリに追加しました - Y.FUJITA::NOTEPAD::YPSILON
SDLとCairoのバインディングをライブラリに追加しました。WindowsもOKですよ:D まずCairoでPostScriptのデータを作成してみることにします。 ;; example/cairo-demo.scm: #!r6rs (import (rnrs) (ypsilon cairo) (ypsilon c-types) (srfi :48)) ;; ヘルパーその１。 (define with-cairo-surface (lambda (surf proc) (proc surf) (cairo_surface_destroy surf))) ;; ヘルパーその２。 (define with-cairo-context (lambda (ctx proc) (proc ctx) (cairo_destroy ctx))) ;; CairoからPostScriptのデータを受け取
PythonライクなGeneratorをSchemeで作ってみた - Y.FUJITA::NOTEPAD::YPSILON
並列プログラミングについて考えるため、'thread', 'coroutine', 'fiber', 'generator' などを調べていました。その途中でPythonのGeneratorについて書いてある http://linuxgazette.net/100/pramode.html に行き当たり、「なるほどこれは便利なものだな！」と感心したので、ちょっとSchemeで書いてみることにしました。 ライブラリ (tidbits generator) ;;; Ypsilon Scheme System ;;; Copyright (c) 2004-2008 Y.FUJITA, LittleWing Company Limited. ;;; See license.txt for terms and conditions of use. (library (tidbits generato
GTKでFFIをテスト - Y.FUJITA::NOTEPAD::YPSILON
FFIのテストのためにGTKを使ってみました。世の中こんな便利になっていたとは :p テストプログラムはLinux用で32bit(0.9.6-update2)と64bit(trunk)の両方で動作を確認しています。リストをREPLにコピペすれば動きますよ :) #!r6rs (import (rnrs) (ffi) (only (core) format load-shared-object)) ; minimal bindings for GTK hello world (define libgtk-name "libgtk-x11-2.0.so.0") (define libgtk (load-shared-object libgtk-name)) (define-syntax define-function (syntax-rules () ((_ ret name args) (d
Google V8 JavaScript EngineでFFIをテスト - Y.FUJITA::NOTEPAD::YPSILON
FFIのテストのためにGoogle V8 JavaScript Engineを使って見ました。 まずhttp://code.google.com/apis/v8/build.htmlの説明に従ってlibv8.soを作ります。次にCで書いた簡単なスタブライブラリlibv8stub.soを作ります。これはV8はC++で書かれていてイプシロンから直接呼び出すことができないからです。 libv8stub.soを作るためのv8stub.cppのリストは以下のようになります。これはV8のsamples/shell.ccから必要な分を切り出しました。 /* v8stub.cpp -> libv8stub.so g++ -Iinclude v8stub.cpp -o libv8stub.so -shared -L. -lv8 -lpthread */ #include <v8.h> #include <s
Draft: ライブラリ (tidbits remote-repl) - Y.FUJITA::NOTEPAD::YPSILON
(tidbits remote-repl)はリリース版にはまだ含まれていません。使用するにはsvn repositoryのtrunkをビルドしてください。 Remote REPLのサーバーとクライアントはinetソケットにて接続されます。サーバーにはブロックするタイプとしないタイプが用意されています。ブロックしないタイプを使うことにより、例えばGLUTによるアニメーションを止めること無くインタラクティブにプログラムをデバッグすることが可能となります。どちらの場合も同じサーバーに複数のクライアントを接続することができます。 重要：Remote REPL機能はセキュリティーについてまったく考慮されていません。外部から接続可能なマシンで実行しないでください。 library: (tidbits remote-repl) Remote REPL機能を提供します。 procedure: blocki
syntax-caseでどう書く？的 - Y.FUJITA::NOTEPAD::YPSILON
"Scheme どう書く？的 - ひげぽん OSとか作っちゃうかMona-のトラックバックを見ていたら・・・Scheme どう書く？的をScalaで書いてみた - 玲瓏庵にあるScalaのコードが羨ましかったので、ひげぽんさんの所のコメント欄に入れたコードを少しおしゃれに書き直してみる。む〜、これ以上は何かマクロを作らないと無理かな〜 ;; datum definition from Chez Scheme User's Guide (define-syntax datum (syntax-rules () [(_ t) (syntax->datum (syntax t))])) (define (compact-number-list x) (let loop ((x (cons '[] x))) (syntax-case x () (([(lo . hi) r ...] new mor
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
