;;  samj 20131104


(define	
	(
		script-fu-test_freetype
		image
		drawable
	)
	(let* 
		(
			(width (car (gimp-image-width image)))
			(height (car (gimp-image-height image)))
		)


		(gimp-undo-push-group-start image)


		(plug-in-freetype
			1			; run-mode
			image		; image
			drawable	; drawable
			"C:\\Windows\\fonts\\arial.ttf"		; font-file
			40			; size
			0			; unit-id
			1			; transform-xx
			1			; transform-xy
			1			; transform-yx
			0			; transform-yy
			1			; kerning
			1			; hinting
			1			; antialiasing
			0			; outline
			0			; spacing
			"Bonjour"	; text
		)

			
		(gimp-undo-push-group-end image)
		(gimp-displays-flush)
		

	)
)

(script-fu-register "script-fu-test_freetype"
                    _"<Image>/Filters/Test FreeType..."
                    "test_freetype"
                    "samj"
                    "samj"
                    "20131104"
                    "RGB*"
                    SF-IMAGE    "Image"     0
                    SF-DRAWABLE "Drawable"  0
				
)

;; FIN