source: abuse/trunk/data/addon/twist/lisp/userfuns.lsp @ 589

Last change on this file since 589 was 589, checked in by Sam Hocevar, 10 years ago

data: remove exact duplicate Lisp files, merge all main space Lisp files,
and move most frabs addons to the main data directory.

File size: 604 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.