Advertisement
Guest User

Untitled

a guest
Apr 13th, 2012
115
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.61 KB | None | 0 0
  1. ; le righe che iniziano con ; sono commenti
  2.  
  3. (define (script-fu-demolivelligruppo img drawable)
  4. (let*
  5. (
  6. ; dichiarare tutte qui le variabili usate
  7.  
  8. ; crea il nuovo gruppo senza visualizzarlo
  9. ; e ottiene l'id nella variabile miogruppo
  10. (miogruppo (car(gimp-layer-group-new img)))
  11. )
  12.  
  13. ; qui ci saranno tutte le operazioni da compiere
  14.  
  15. ; fai partire l'undo unico per tutte le operazioni
  16. ; successive fino a gimp-image-undo-group-end
  17. (gimp-image-undo-group-start img)
  18.  
  19. ; deseleziona qualsiasi selezione impostata
  20. (gimp-selection-none img)
  21.  
  22.  
  23. ; qui ci saranno le nostre operazioni da compiere
  24.  
  25. ; parte 3 ----------------------------------------------------
  26.  
  27. ;Imposta ad "Originale" in nome del layer di base
  28. (gimp-item-set-name
  29. (car (gimp-image-get-active-layer img))
  30. "Originale"
  31. )
  32.  
  33. ; inserisce il gruppo miogruppo nell'immagine
  34. (gimp-image-insert-layer img miogruppo -1 0)
  35.  
  36. ; da il nome "Script" al gruppo
  37. (gimp-item-set-name miogruppo "Script")
  38.  
  39. ; fine parte 3 -----------------------------------------------
  40.  
  41.  
  42. ; parte 4 ----------------------------------------------------
  43.  
  44. ; crea un nuovo livello nel gruppo livelli id miogruppo
  45. ; col nome "Prova"
  46. (gimp-image-insert-layer img
  47. (car (gimp-layer-new img
  48. (car (gimp-drawable-width drawable))
  49. (car (gimp-drawable-height drawable))
  50. (car (gimp-drawable-type drawable))
  51. "Prova"
  52. 100
  53. NORMAL-MODE
  54. )
  55. )
  56. miogruppo
  57. 0
  58. )
  59.  
  60. ; seleziona del layer col nome "Originale"
  61. (gimp-image-set-active-layer img
  62. (car (gimp-image-get-layer-by-name img "Originale"))
  63. )
  64.  
  65.  
  66. ; copia il livello selezionato nel buffer ...
  67. (gimp-edit-copy drawable)
  68.  
  69.  
  70. ; e incollalo nel livello col nome "Prova"
  71. (gimp-floating-sel-anchor
  72. (car (gimp-edit-paste
  73. (car (gimp-image-get-layer-by-name img
  74. "Prova"
  75. )
  76. )
  77. 0
  78. )
  79. )
  80. )
  81.  
  82.  
  83. ; fine parte 4 -----------------------------------------------
  84.  
  85. ; ferma l'undo unico
  86. (gimp-image-undo-group-end img)
  87.  
  88. ; conclude tutte le operazioni in corso
  89. ; e rigenera il display
  90. (gimp-displays-flush)
  91.  
  92. )
  93. )
  94.  
  95. ; ------------------------------
  96. ; Funzione di registrazione
  97. ; ------------------------------
  98. (script-fu-register "script-fu-demolivelligruppo"
  99. _"<Image>/Filters/Personali/demo livelli gruppo"
  100. "demo livelli gruppo"
  101. "MC"
  102. ""
  103. "2012, apr"
  104. "RGB* GRAY*"
  105. SF-IMAGE "Image" 0
  106. SF-DRAWABLE "Drawable" 0
  107. )
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement