source: abuse-frabs/trunk/addon/twist/lisp/userfuns.lsp @ 44

Last change on this file since 44 was 44, checked in by Sam Hocevar, 14 years ago
  • Importing abuse-frabs 2.10.
File size: 631 bytes
Line 
1;; Copyright 1999 Profound Corp,  All Rights reserved
2;; See licensing information for more details on usage rights
3
4
5(defun seqbmp (name first last)
6  (if (<= first last)
7      (forward-seqbmp name first last)
8    (reverse-seqbmp name first last)))
9
10(defun forward-seqbmp (name first last)
11  (if (> first last)
12      nil
13    (cons (concatenate 'string name (digstr first 4) ".bmp")
14          (forward-seqbmp name (+ 1 first) last))))
15
16(defun reverse-seqbmp (name last first)
17  (if (< last first)
18      nil
19    (cons (concatenate 'string name (digstr last 4) ".bmp")
20          (reverse-seqbmp name (- last 1) first))))
Note: See TracBrowser for help on using the repository browser.