dnrops
/
gimp
mirror of https://github.com/GNOME/gimp.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
plug-ins/script-fu/scripts/contactsheet.scm
View File

@ -273,8 +273,7 @@
(script-fu-register "script-fu-contactsheet"
_"Contact Sheet"
"Create a series of images containing thumbnail sized versions
of all of the images contained in a specified directory."
_"Create a series of images containing thumbnail sized versions of all of the images in a specified directory."
"Kevin Cozens <kcozens@interlog.com>"
"Kevin Cozens"
"July 19, 2004"

2
plug-ins/script-fu/scripts/script-fu-set-cmap.scm
View File

@ -52,7 +52,7 @@
(script-fu-register "script-fu-set-cmap"
_"Set Colormap"
"Change the colourmap of an image to the colours in a specified palette."
_"Change the colourmap of an image to the colours in a specified palette."
"Kevin Cozens <kcozens@interlog.com>"
"Kevin Cozens"
"September 29, 2004"

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

@ -25,8 +25,7 @@
; Tiny-Fu first successfully ran this script at 2:07am on March 6, 2004.
(define (script-fu-helloworld text font size colour)
(let*
(
(let* (
(width 10)
(height 10)
(img (car (gimp-image-new width height RGB)))

25
plug-ins/script-fu/tinyscheme/init.scm
View File

@ -1,4 +1,4 @@
; Initialization file for TinySCHEME 1.34
; Initialization file for TinySCHEME 1.38
; Per R5RS, up to four deep compositions should be defined
(define (caar x) (car (car x)))
@ -64,25 +64,16 @@
(foldr (lambda (a b) (if (< a b) a b)) (car lst) (cdr lst)))
(define (succ x) (+ x 1))
(define (pred x) (- x 1))
(define gcd
(lambda a
(if (null? a)
0
(let ((aa (abs (car a)))
(bb (abs (cadr a))))
(define (gcd a b)
(let ((aa (abs a))
(bb (abs b)))
(if (= bb 0)
aa
(gcd bb (remainder aa bb)))))))
(define lcm
(lambda a
(if (null? a)
1
(let ((aa (abs (car a)))
(bb (abs (cadr a))))
(if (or (= aa 0) (= bb 0))
(gcd bb (remainder aa bb)))))
(define (lcm a b)
(if (or (= a 0) (= b 0))
0
(abs (* (quotient aa (gcd aa bb)) bb)))))))
(abs (* (quotient a (gcd a b)) b))))
(define call/cc call-with-current-continuation)