netguy204

 
Atom* lithp2_apply(Cons* env, Atom* list)
{
	DEBUG1("lithp2_apply: %s", list);
 
	// sanity check
	if(!list || !ISCONS(list)) {
		ERROR1("cannot apply a non cons: %s", list);
		return NIL;
	}

netguy204

; batch watermarking tool written in script-fu for the gimp
; Copyright 2010 Brian Taylor
; el.wubo@gmail.com
;
; Redistribute under the terms of the GNU General Public License version 2 or better

(define (add-text org-img new-layer msg-x msg-y the-text the-size the-font)
    (let* ((floating-layer (car (gimp-text-fontname org-img new-layer msg-x msg-y the-text 1 TRUE the-size 0 the-font))))
        (gimp-floating-sel-anchor floating-layer)))