Sculptie

(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)))
(let*
(
(obj-file (fopen inFilename "w+"))
(iwidth (car (gimp-drawable-width inDrawable)))
(iheight (car (gimp-drawable-height inDrawable)))
(row 0)
)
(verbose 2)
(while (< row iheight)
(let* ((col 0))
(while (< col iwidth)
(let*
(
(pixel (cadr (gimp-drawable-get-pixel inDrawable col row)))
(x (/ (decode (aref pixel 0)) 255.0))
(y (/ (decode (aref pixel 1)) 255.0))
(z (/ (decode (aref pixel 2)) 255.0))
)
(putv x y z obj-file)
)
(set! col (+ col 1))
)
)
(set! row (+ row 1))
)
(set! row 0)
(while (< row (- iheight 1))
(let* ((col 0))
(while (< col iwidth)
(writes obj-file (string-append "f "
(v-num-str row col iwidth) " "
(v-num-str row (fmod (+ col 1) iwidth) iwidth) " "
(v-num-str (+ row 1) (fmod (+ col 1) iwidth) iwidth) " "
(v-num-str (+ row 1) col iwidth) "\n"))
(set! col (+ col 1))
)
)
(set! row (+ row 1))
)
(verbose 0)
(fclose obj-file)
)
)

(script-fu-register
"script-fu-exp-sculptie" ;func name
"Export Sculptie" ;menu label
"Exports the current image layer as a wavefront\
obj file." ;description
"Kris Kovacs" ;author
"copyright 2007, Kris Kovacs" ;copyright notice
"May 17, 2007" ;date created
"RGB*"
SF-IMAGE "Input Image" 0 ;image type that the script works on
SF-DRAWABLE "Input Drawable" 0 ;
SF-FILENAME "Output File:" "tmp.obj" ;a string variable
)
(script-fu-menu-register "script-fu-exp-sculptie" _"/Script-Fu/SecondLife")