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

Moved the MIN and MAX entries for image size and resolution to

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

	* plug-ins/script-fu/scheme-wrapper.c: Moved the MIN and MAX entries
	for image size and resolution to script_constants structureas they
	are not deprecated constants.

	* plug-ins/script-fu/scripts/script-fu.init: Removed CR in line endings.

	* plug-ins/script-fu/scripts/*.scm: Fixed a number of regressions that
	snuck in during the last big update of the scripts. This update
	reduces the number of differences to the original scripts (other than
	formatting). Some additional formatting changes in a few scripts.
	Updates to use colour names in register block where possible. Fixed a
	bug in burn-in-anim.scm. Minor cleanup of font-map.scm. Simplified
	the bug fix in tile-blur.scm.
This commit is contained in:
Kevin Cozens
2006-10-20 17:55:14 +00:00
committed by Kevin Cozens
parent 3cda6f2610
commit 590c4d0b9f
84 changed files with 1281 additions and 1221 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
plug-ins/script-fu/scripts/font-map.scm
View File

@ -9,10 +9,8 @@
border
colors)
(define (max-font-width text use-name font-list font-size)
(let* ((list (cadr font-list))
(list-cnt (car font-list))
(count 0)
(define (max-font-width text use-name list-cnt list font-size)
(let* ((count 0)
(width 0)
(maxwidth 0)
(font "")
@ -36,10 +34,8 @@
)
)
(define (max-font-height text use-name font-list font-size)
(let* ((list (cadr font-list))
(list-cnt (car font-list))
(count 0)
(define (max-font-height text use-name list-cnt list font-size)
(let* ((count 0)
(height 0)
(maxheight 0)
(font "")
@ -66,15 +62,14 @@
)
(let* (
(font "")
(count 0)
(font-list (gimp-fonts-get-list font-filter))
(num-fonts (car font-list))
(font-data (gimp-fonts-get-list font-filter))
(font-list (cadr font-data))
(num-fonts (car font-data))
(label-size (/ font-size 2))
(border (+ border (* labels (/ label-size 2))))
(y border)
(maxheight (max-font-height text use-name font-list font-size))
(maxwidth (max-font-width text use-name font-list font-size))
(maxheight (max-font-height text use-name num-fonts font-list font-size))
(maxwidth (max-font-width text use-name num-fonts font-list font-size))
(width (+ maxwidth (* 2 border)))
(height (+ (+ (* maxheight num-fonts) (* 2 border))
(* labels (* label-size num-fonts))))
@ -83,14 +78,14 @@
(drawable (car (gimp-layer-new img width height (if (= colors 0)
GRAY-IMAGE RGB-IMAGE)
"Background" 100 NORMAL-MODE)))
(count 0)
(font)
)
(gimp-context-push)
(gimp-image-undo-disable img)
(set! font-list (cadr font-list))
(if (= colors 0)
(begin
(gimp-context-set-background '(255 255 255))