+ ((or (and (eq genre 'glyph-image)
+ (setq image-cobj
+ (car (concord-object-get object '->image-resource))))
+ (and (eq genre 'character)
+ (setq ret (www-format-encode-string
+ (est-format-object object 'readable)))
+ (string-match
+ "<img alt=\"SW-JIGUGE\\([45]\\)-\\([0-9][0-9][0-9]\\)\\([0-9][0-9]\\)"
+ ret)
+ (setq item-code (string-to-int (match-string 1 ret))
+ page (string-to-int (match-string 2 ret))
+ char-num (string-to-int (match-string 3 ret)))
+ (setq glyph-image-id
+ (cond ((eq item-code 4)
+ (intern
+ (format "zinbun/toho/A024/A024%04d/char=%d"
+ (+ page 18) char-num))
+ )
+ ((eq item-code 5)
+ (intern
+ (format "zinbun/toho/A020/A020%04d/char=%d"
+ (+ page 16) char-num))
+ )))
+ (setq image-cobj
+ (concord-decode-object '=id glyph-image-id 'glyph-image))
+ (setq image-cobj
+ (car (concord-object-get image-cobj '->image-resource)))
+ ))