This is a script to texture your sculpties..
Sorry i forgot to attach it, lol
well here it is, and it works, i use it every day....
(define (script-fu-exp-sculptie inImage inDrawable inFilename)
(define (putv x y z f)
(let* ((buf (string-append "v "
(number->string x) " "
(number->string y) " "
(number->string z) "\n")))
(puts buf f)
(define (v-num-str row col width) (number->string (+ (* row width) col 1)))
(define (decode x) (if (>= x 0) x (+ 256 x)))