- (cond ((>= width height)
- (when (setq ret (album-make-spec-by-width width 2048 'QXGA))
- (setq dest (cons ret dest)))
- (when (setq ret (album-make-spec-by-width width 1600 'UXGA))
- (setq dest (cons ret dest)))
- (when (setq ret (album-make-spec-by-width width 1400 'SXGA+))
- (setq dest (cons ret dest)))
- (when (setq ret (album-make-spec-by-width width 1280 'SXGA))
- (setq dest (cons ret dest)))
- (when (setq ret (album-make-spec-by-width width 1024 'XGA))
- (setq dest (cons ret dest)))
- (when (setq ret (album-make-spec-by-width width 800 'SVGA))
- (setq dest (cons ret dest)))
- (when (setq ret (album-make-spec-by-width width 640 'VGA))
- (setq dest (cons ret dest)))
- (when (setq ret (album-make-spec-by-width width 320 'QVGA))
- (setq dest (cons ret dest)))
- (when (setq ret (album-make-spec-by-width width 160 'thumbnail))
- (setq dest (cons ret dest)))
- )
- (t
- (when (setq ret (album-make-spec-by-height height 1536 'QXGA))
- (setq dest (cons ret dest)))
- (when (setq ret (album-make-spec-by-height height 1200 'UXGA))
- (setq dest (cons ret dest)))
- (when (setq ret (album-make-spec-by-height height 1050 'SXGA+))
- (setq dest (cons ret dest)))
- (when (setq ret (album-make-spec-by-height height 960 'SXGA))
- (setq dest (cons ret dest)))
- (when (setq ret (album-make-spec-by-height height 768 'XGA))
- (setq dest (cons ret dest)))
- (when (setq ret (album-make-spec-by-height height 600 'SVGA))
- (setq dest (cons ret dest)))
- (when (setq ret (album-make-spec-by-height height 480 'VGA))
- (setq dest (cons ret dest)))
- (when (setq ret (album-make-spec-by-height height 240 'QVGA))
- (setq dest (cons ret dest)))
- (when (setq ret (album-make-spec-by-height height 160 'thumbnail))
- (setq dest (cons ret dest)))
- ))
+ ;; (cond ((>= width height)
+ ;; (when (setq ret (album-make-spec-by-width width 2048 'QXGA))
+ ;; (setq dest (cons ret dest)))
+ ;; (when (setq ret (album-make-spec-by-width width 1600 'UXGA))
+ ;; (setq dest (cons ret dest)))
+ ;; (when (setq ret (album-make-spec-by-width width 1400 'SXGA+))
+ ;; (setq dest (cons ret dest)))
+ ;; (when (setq ret (album-make-spec-by-width width 1280 'SXGA))
+ ;; (setq dest (cons ret dest)))
+ ;; (when (setq ret (album-make-spec-by-width width 1024 'XGA))
+ ;; (setq dest (cons ret dest)))
+ ;; (when (setq ret (album-make-spec-by-width width 800 'SVGA))
+ ;; (setq dest (cons ret dest)))
+ ;; (when (setq ret (album-make-spec-by-width width 640 'VGA))
+ ;; (setq dest (cons ret dest)))
+ ;; (when (setq ret (album-make-spec-by-width width 320 'QVGA))
+ ;; (setq dest (cons ret dest)))
+ ;; (when (setq ret (album-make-spec-by-width width 160 'thumbnail))
+ ;; (setq dest (cons ret dest)))
+ ;; )
+ ;; (t
+ ;; (when (setq ret (album-make-spec-by-height height 1536 'QXGA))
+ ;; (setq dest (cons ret dest)))
+ ;; (when (setq ret (album-make-spec-by-height height 1200 'UXGA))
+ ;; (setq dest (cons ret dest)))
+ ;; (when (setq ret (album-make-spec-by-height height 1050 'SXGA+))
+ ;; (setq dest (cons ret dest)))
+ ;; (when (setq ret (album-make-spec-by-height height 960 'SXGA))
+ ;; (setq dest (cons ret dest)))
+ ;; (when (setq ret (album-make-spec-by-height height 768 'XGA))
+ ;; (setq dest (cons ret dest)))
+ ;; (when (setq ret (album-make-spec-by-height height 600 'SVGA))
+ ;; (setq dest (cons ret dest)))
+ ;; (when (setq ret (album-make-spec-by-height height 480 'VGA))
+ ;; (setq dest (cons ret dest)))
+ ;; (when (setq ret (album-make-spec-by-height height 240 'QVGA))
+ ;; (setq dest (cons ret dest)))
+ ;; (when (setq ret (album-make-spec-by-height height 160 'thumbnail))
+ ;; (setq dest (cons ret dest)))
+ ;; ))