get-image-size

Title
get-image-size
Type
Function
Arguments
get-image-size FILENAME
Package
editor
Section
その他
File
imagehdr.l
指定された画像ファイルの縦・横・フォーマットを取得することが可能です。

使用例:
  ;;; imageタグを挿入してみる
  (require "imagehdr")
  (defun html-write-image-tag (file)
    (interactive "fJPEG, GIF, PNG : ")
    (multiple-value-bind (width height fmt)
      (get-image-size file)
      (insert (format nil "<IMG SRC=\"~a\" WIDTH=~d HEIGHT=~d>" file width height))))