{\rtf1\ansi\ansicpg1252\deff0\deflang1036{\fonttbl{\f0\fnil\fcharset0 Courier New;}{\f1\froman\fcharset0 Times New Roman;}} \viewkind4\uc1\pard\f0\fs20 (define (bonjourtoi texte taille police bgcolor coul)\par \tab (gimp-palette-set-foreground coul)\par \tab (gimp-palette-set-background bgcolor)\par \tab (let* (\par \tab\tab\tab (img (car (gimp-image-new 256 taille RGB)))\par \tab\tab\tab (layBonjour (car (gimp-text-fontname img -1 0 0 (string-append "Bonjour " texte) 10 1 taille 0 police)))\par \tab\tab\tab (larg (car (gimp-drawable-width layBonjour)))\par \tab\tab\tab (haut (car (gimp-drawable-height layBonjour)))\par \tab\tab )\par \tab\tab (gimp-image-undo-disable img)\par \tab\tab (gimp-image-resize img larg haut 0 0)\par \tab\tab (let* (\par \tab\tab\tab\tab (layBG (car (gimp-layer-new img larg haut RGBA_IMAGE "Fond" 100 NORMAL)))\par \tab\tab\tab )\par \tab\tab\tab (gimp-drawable-fill layBG BG-IMAGE-FILL)\par \tab\tab\tab (gimp-image-add-layer img layBG -1)\par \tab\tab\tab (gimp-image-lower-layer-to-bottom img layBG)\par \tab\tab )\par \tab\tab (gimp-image-undo-enable img)\par ;\tab\tab (script-fu-basic1-logo-alpha img layBonjour bgcolor coul)\par \tab\tab (gimp-display-new img)\par \tab )\par )\par (script-fu-register "bonjourtoi"\par \tab\tab "<Toolbox>/Xtns/Script-Fu/LinuxMag/Bonjour toi"\par \tab\tab "Bonjour Toi en Scheme/GIMP"\par \tab\tab "Xavier Garreau"\par \tab\tab "Xavier Garreau"\par \tab\tab "2003-2004"\par \tab\tab ""\par \tab\tab SF-STRING "Votre pr\'e9nom" "Zazou"\par \tab\tab SF-VALUE "Hauteur du texte (pixels)" "50"\par \tab\tab SF-FONT "La police" ""\par \tab\tab SF-COLOR "Couleur du fond" '(145 160 56)\par \tab\tab SF-COLOR "Couleur du texte" '(56 145 160)\par )\par \f1\fs24\par }