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

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

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)