Hatena::Groupcadr

わだばLisperになる このページをアンテナに追加 RSSフィード

2004 | 12 |
2005 | 01 | 02 | 07 | 10 | 11 |
2006 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2007 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2008 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2009 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2010 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2011 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 11 |

2008-01-24

Vecto

| 18:12 | Vecto - わだばLisperになる を含むブックマーク はてなブックマーク - Vecto - わだばLisperになる

今回は、Vectoを試してみます。

VectoはCL-VECTORSの簡便なインターフェースを提供するものだそうで、これを利用して簡単にベクター画像をpngファイルとして出力することができます。

パッケージ名vecto
作者Zach Beane氏
本拠地サイトVecto - Simple Vector Drawing with Common Lisp
ClikiCLiki: Vecto
ASDF-INSTALL

インストール

(asdf-install:install :vecto)一発で、ウェブからパッケージを取得しインストール完了です。

試してみる。

手頃な感じで、綺麗な画像が作れるので、これは重宝するかもしれません。

;; 動作
(defpackage #:vecto-examples (:use #:cl #:vecto))
(in-package #:vecto-examples)

(with-canvas (:width 400 :height 30)
  (let ((font (get-font "/usr/share/fonts/truetype/ipamona/ipag-mona.ttf"))
	(file "/var/tmp/vecto.png"))
    (set-rgb-fill 0.95 0.60 0.25)
    (rounded-rectangle 0 0 400 30 5 5)
    (fill-path)
    (set-rgb-fill 1.0 0.65 0.3)
    (rounded-rectangle 2.5 2.5 395 25 5 5)
    (fill-path)
    (set-font font 20)
    (set-rgb-fill 0 0 0)
    (draw-string 2.5 7.5 "1万円分のスイーツ、夢と散る(´・ω・`)")
    (save-png file)))
;
;
  • 出力画像


Dick Gabriel on Lisp

| 16:50 | Dick Gabriel on Lisp - わだばLisperになる を含むブックマーク はてなブックマーク - Dick Gabriel on Lisp - わだばLisperになる

昨日Redditを眺めていてみつけたんですが、Richard P. Gabriel氏のPodcastが公開されています。

Sunで働いてると思っていたんですが、いつの間にやらIBMで働いてたんですね。

早速聴いてみたんですが、LISPの歴史と特徴が語られる一時間。

英語が苦手な私は、あんまり聴き取れなかったんですが、LISPに関連することは一通り網羅されつつ、非常にうまく纏まっているので手短にLISP周辺のことを知るには最適じゃないかなと思いました。