- ;; (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)))
- ;; ))