(define (script-fu-split-vectors image vectors)
        (let* ((strokes (gimp-vectors-get-strokes vectors))
	       (name (car (gimp-vectors-get-name vectors)))
	       (stroke-id 0)
	       (points 0)
	       (new-vectors 0)
	       (i 1)
	      )
	  (while (< i (car strokes))
	     (set! stroke-id (aref (cadr strokes) i))
	     (set! points (gimp-vectors-stroke-get-points vectors stroke-id))
	     (display points)
	     (display "\n")
	     (set! new-vectors (car (gimp-vectors-new image (strcat name " " (number->string i)))))
	     (gimp-vectors-stroke-new-from-points new-vectors (car points) (cadr points)
						  (caddr points) (cadddr points))
	     (gimp-image-add-vectors image new-vectors -1)
	     (gimp-vectors-remove-stroke vectors stroke-id)
	     (set! i (+ i 1))
	  )
        )
)

(script-fu-register "script-fu-split-vectors"
                    "Split Path"
                    "Splits up a path into its components"
                    "Simon Budig"
                    "(c) 2006 Simon Budig"
                    "18. 11. 2006"
                    "*"
                    SF-IMAGE      "input image" -1
                    SF-VECTORS    "active vectors object" -1
)

(script-fu-menu-register "script-fu-split-vectors"
                         "<Vectors>")