Changeset 589 for abuse/trunk/data/lisp/userfuns.lsp
- Timestamp:
- May 7, 2011, 4:06:03 PM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
abuse/trunk/data/lisp/userfuns.lsp
r588 r589 16 16 (code-char (+ x (char-code "0")))) 17 17 18 ;; this creates a list of dpaint numbered antimation from a base name 19 ;; i.e.(seq "hi" 2 5) -> '("hi0002.pcx" "hi0003.pcx" "hi0004.pcx" "hi0005.pcx")18 ;; this creates a list of dpaint numbered antimation from a base name, ie: 19 ;; (seq "hi" 2 5) -> '("hi0002.pcx" "hi0003.pcx" "hi0004.pcx" "hi0005.pcx") 20 20 ;; will take into acount reverse sequences 21 ;; XXX: Mac Abuse inlined calls to this function 21 22 (defun seq (name first last) 22 23 (if (<= first last) 23 24 (forward-seq name first last) 24 (reverse-seq name first last)) 25 ) 25 (reverse-seq name first last))) 26 26 27 (defun forward-seq (name first last) 27 28 (if (> first last)
Note: See TracChangeset
for help on using the changeset viewer.