26.07.2006 22:54
- oppdatert 710 dager siden av Terje Pedersen
script-fu-enkel-tekstEt lite eksempel på hvordan sette inn en liten, A photo by senikk, tekst nederst i høyre hjørne på et bilde via Script-Fu (Scheme) i GIMP.
Kommer nok selv ikke til bruke meg av akkurat denne koden slik den er nå, men en litt modifisert utgave som spørr etter tittel og sentrerer den i topp. Dette fordi denne teksten her den har jeg allerede satt fast i rammemalen min.
- (define (senikk-photo-by image drawable)
- (let*
- ((width (car (gimp-image-width image)))
- (height (car (gimp-image-height image)))
- (text "A photo by senikk")
- (font-name "Rudelsberg")
- (font-size 24))
- (gimp-image-undo-group-start image)
- (set! text-size (gimp-text-get-extents-fontname text font-size 0 font-name))
- (set! text-width (car text-size))
- (set! text-height (cadr text-size))
- (set! text-layer (car (gimp-text-fontname image drawable
- (- width text-width 20) (- height text-height 10) text 0 1 font-size 0 font-name)))
- (gimp-floating-sel-anchor text-layer)
- (gimp-image-undo-group-end image)
- (gimp-displays-flush)))
- (script-fu-register "senikk-photo-by"
- "A photo by senikk"
- "Creates a photo by senikk text in\
- the bottom-right corner."
- "Terje Pedersen <terje>"
- "Copyright 2006, Terje Pedersen"
- "2006-07-26, 2006"
- "RGB*, GRAY*"
- SF-IMAGE "Input Image" 0
- SF-DRAWABLE "Input Drawable" 0)
- (script-fu-menu-register "senikk-photo-by"
- "<image>/Script-Fu/Senikk")
Relevante innlegg/sider/lenker
| På forsiden: |



0 tilbaketråkk: