(define (script-fu-ascii img drawable dimmax)    

 (let* ( new-layer(car(gimp-text-fontname img -1 0 0 "test" 0 TRUE 20 PIXELS "aakar"))))

  (set! lx (car (gimp-image-width img)))

  (set! ly (car(gimp-image-height img)))

     (if (< lx ly)

       (if (< dimmax ly)

	    (gimp-image-scale img (/ lx (/ ly dimmax)) (/ ly (/ ly dimmax)))

           )

	(if (< dimmax lx)

	    (gimp-image-scale img (/ lx (/ lx dimmax)) (/ ly (/ lx dimmax)))

	    )

	)





(gimp-context-push)       

(gimp-image-convert-grayscale img)

(gimp-image-convert-rgb img)



(set! lx (car (gimp-image-width img)))

(set! x 1)

(while (< x lx)

       (set! pick_color (car (gimp-image-pick-color img drawable x 1 0 0 0)))

       if (= pick_color 363636 )

         (begin

           (set! new-layer(car (gimp-text-fontname img -1 0 0 (string-append " " inTitle " ") 0 TRUE 20 PIXELS "aakar")))

         ))







(set! x (+ x 1))

)

















)



(script-fu-register "script-fu-ascii"

	"<Image>/Script-Fu/Script-Perso/Ascii Art..."

	"ascii art"

	""

	""

	"2007"

	"RGB*, GRAY*"

	SF-IMAGE "Image" 0

	SF-DRAWABLE "Layer to blur" 0

	SF-ADJUSTMENT "Dim. Maxi." '( 500 100 800 1 10 0 1))