2003-02-11 19:26:40 -05:00
|
|
|
; Copyright (c) 2003 RT Happe <rthappe at web de>
|
|
|
|
|
; See the file COPYING distributed with the Scheme Untergrund Library
|
|
|
|
|
|
2004-03-10 13:46:33 -05:00
|
|
|
(define-interface image-info-face
|
|
|
|
|
(export image-dimension
|
|
|
|
|
get-image-info
|
|
|
|
|
|
|
|
|
|
image-info:format
|
|
|
|
|
image-info:depth
|
|
|
|
|
image-info:width/pixel
|
|
|
|
|
image-info:height/pixel
|
|
|
|
|
image-info:width/dpi
|
|
|
|
|
image-info:height/dpi
|
|
|
|
|
|
|
|
|
|
inport->byte-stream
|
|
|
|
|
byte-vector->byte-stream
|
|
|
|
|
segment-byte-stream
|
|
|
|
|
))
|
|
|
|
|
|
2003-02-11 19:26:40 -05:00
|
|
|
;;; refers to structures SRFI-9+ and KRIMS from sunterlib/s48/krims
|
|
|
|
|
;;; BYTIO from sunterlib/s48/bytio
|
2004-03-14 14:39:49 -05:00
|
|
|
;;; SEQUENCE-LIB from sunterlib/scsh/sequences
|
2003-02-11 19:26:40 -05:00
|
|
|
|
|
|
|
|
;; extracting w x h etc. from images
|
|
|
|
|
(define-structure image-info image-info-face
|
|
|
|
|
(open bytio ; read-byte
|
|
|
|
|
byte-vectors
|
|
|
|
|
sequence-lib ; subsequence
|
|
|
|
|
krims ; assert
|
|
|
|
|
srfi-1 ; fold-right
|
|
|
|
|
srfi-9+
|
|
|
|
|
srfi-23 ; error
|
|
|
|
|
scsh-level-0 ; arithmetic-shift bitwise-and
|
|
|
|
|
scheme)
|
|
|
|
|
(files imxize))
|
