callisto-debian/gimp
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

The changes below (except for init.scm) were found during the work of

Browse Source 
2006-10-12  Kevin Cozens  <kcozens@cvs.gnome.org>

	The changes below (except for init.scm) were found during the work
	of updating the GIMP Script-Fu plug-in to become Tiny-Fu.

	* tiny-fu/tiny-fu-console.c
	* tiny-fu/tiny-fu-interface.c
	* tiny-fu/tiny-fu-scripts.c
	* tiny-fu/tiny-fu-server.c
	* tiny-fu/tiny-fu-text-console.c
	* tiny-fu/tiny-fu.c: Various minor bug fixes and changes to bring
	Tiny-Fu up-to-date with changes made in Script-Fu.

	* scripts/*.scm: Applied patch from Saul Goode with review and
	localisation of Script-Fu procedure blurbs (bug #351283). Also
	some formatting changes.

	* tinyscheme/init.scm: Updated based on version 1.38 of TinyScheme.
This commit is contained in:
Kevin Cozens
2006-10-12 20:31:33 +00:00
committed by Kevin Cozens
parent d1ffa1f312
commit ffef8df73b
4 changed files with 29 additions and 40 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
plug-ins/script-fu/scripts/ts-helloworld.scm
View File

@ -25,26 +25,25 @@
; Tiny-Fu first successfully ran this script at 2:07am on March 6, 2004.
(define (script-fu-helloworld text font size colour)
(let*
(
(width 10)
(height 10)
(img (car (gimp-image-new width height RGB)))
(text-layer)
)
(let* (
(width 10)
(height 10)
(img (car (gimp-image-new width height RGB)))
(text-layer)
)
(gimp-context-push)
(gimp-image-undo-disable img)
(gimp-context-set-foreground colour)
(set! text-layer (car (gimp-text-fontname img -1 0 0 text 10 TRUE size PIXELS font)))
(set! width (car (gimp-drawable-width text-layer)))
(set! height (car (gimp-drawable-height text-layer)))
(set! text-layer (car (gimp-text-fontname img -1 0 0 text 10 TRUE size PIXELS font)))
(set! width (car (gimp-drawable-width text-layer)))
(set! height (car (gimp-drawable-height text-layer)))
(gimp-image-resize img width height 0 0)
(gimp-image-undo-enable img)
(gimp-display-new img)
(gimp-display-new img)
(gimp-context-pop)
)