Startpage >> Codice? >> Script-fu

Script-fu
		(define (script-fu-eleva image drawable ripet riduz lumi)

			(gimp-context-push)
			;(gimp-image-undo-disable image)

			(define nl 0)
			(while (< nl ripet)
				(gimp-selection-shrink image riduz)
				(gimp-brightness-contrast drawable lumi 0)
				(set! nl (+ nl 1))
			)

			(gimp-context-pop)
			;(gimp-image-undo-enable image)
			;(gimp-display-new image)
		)

	(script-fu-register "script-fu-eleva"
	  _"_Elevation map..."
	  _"Applica a una selezione dei gradienti di elevazione"
	  "paoloc <paoloc@gimp.org>"
	  "paoloc"
	  "06/21/16"
	  "RGB* GRAY*"
	  SF-IMAGE       "Image"          0
	  SF-DRAWABLE    "Drawable"       0
	  SF-ADJUSTMENT _"Ripetizioni"    '(30 10 100 5 5 0 1)
	  SF-ADJUSTMENT _"Riduzione"      '(1 1 10 1 1 0 1)
	  SF-ADJUSTMENT _"Luminosita"     '(1 1 10 1 1 0 1)
	  ;SF-ADJUSTMENT "label" '(value, lower, upper, step_inc, page_inc, digits, type)
	)

	(script-fu-menu-register "script-fu-eleva"
							 "<Image>/Filters/Render")
Page last modified on June 23, 2016, at 11:42 AM