2010/04/30

適当な画像ファイルを用意する

適当な画像ファイルがいくつか必要になった。

Common Lisp の Vecto を使って作った。

(eval-when (:compile-toplevel :load-toplevel :execute)
(require :vecto))

(defpackage #:vvv
(:use #:cl #:vecto))

(in-package #:vvv)

(defparameter *font*
"/usr/share/fonts/truetype/vlgothic/VL-PGothic-Regular.ttf")

(defun foo (file str)
(with-canvas (:width 90 :height 90)
(set-font (get-font *font*) 60)
(draw-centered-string 35 25 str)
(save-png file)))

(defun main (from to)
(loop for i from (char-code from) to (char-code to)
for c = (code-char i)
do (foo (format nil "/tmp/~a.png" c) (string c))))

(main #\A #\E)
(main #\ま #\も)

(incf vocto)

0 件のコメント: