2011-05-01から1日間の記事一覧
Common Lisp で PPM フォーマットの画像を作った。 Ascii 形式の PPM 画像 (defun test-ppm () (with-open-file (out "/tmp/tmp.ppm" :direction :output :if-exists :supersede) (format out "P3~%") (format out "100 100~%") (format out "255~%") (loop …
Common Lisp で PPM フォーマットの画像を作った。 Ascii 形式の PPM 画像 (defun test-ppm () (with-open-file (out "/tmp/tmp.ppm" :direction :output :if-exists :supersede) (format out "P3~%") (format out "100 100~%") (format out "255~%") (loop …
