mirror of https://github.com/GNOME/gimp.git
see plug-ins/perl/Changes
This commit is contained in:
parent
339391cd4e
commit
16041ddbd4
|
@ -895,7 +895,7 @@ push_gimp_sv (GParam *arg, int array_as_ref)
|
||||||
PUTBACK;
|
PUTBACK;
|
||||||
}
|
}
|
||||||
|
|
||||||
#define SvPv(sv) SvPV_nolen(sv)
|
#define SvPv(sv) (SvOK(sv) ? SvPV_nolen(sv) : NULL)
|
||||||
#define Sv32(sv) unbless ((sv), PKG_ANY, croak_str)
|
#define Sv32(sv) unbless ((sv), PKG_ANY, croak_str)
|
||||||
|
|
||||||
#define av2gimp(arg,sv,datatype,type,svxv) { \
|
#define av2gimp(arg,sv,datatype,type,svxv) { \
|
||||||
|
@ -1612,14 +1612,14 @@ gimp_call_procedure (proc_name, ...)
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void
|
||||||
gimp_install_procedure(name, blurb, help, author, copyright, date, menu_path, image_types, type, params, return_vals)
|
gimp_install_procedure(name, blurb, help, author, copyright, date, menu_path_sv, image_types, type, params, return_vals)
|
||||||
char * name
|
char * name
|
||||||
char * blurb
|
char * blurb
|
||||||
char * help
|
char * help
|
||||||
char * author
|
char * author
|
||||||
char * copyright
|
char * copyright
|
||||||
char * date
|
char * date
|
||||||
char * menu_path
|
SV * menu_path_sv
|
||||||
char * image_types
|
char * image_types
|
||||||
int type
|
int type
|
||||||
SV * params
|
SV * params
|
||||||
|
@ -1628,6 +1628,8 @@ gimp_install_procedure(name, blurb, help, author, copyright, date, menu_path, im
|
||||||
gimp_install_temp_proc = 1
|
gimp_install_temp_proc = 1
|
||||||
CODE:
|
CODE:
|
||||||
{
|
{
|
||||||
|
char *menu_path = SvPv (menu_path_sv);
|
||||||
|
|
||||||
if (SvROK(params) && SvTYPE(SvRV(params)) == SVt_PVAV
|
if (SvROK(params) && SvTYPE(SvRV(params)) == SVt_PVAV
|
||||||
&& SvROK(return_vals) && SvTYPE(SvRV(return_vals)) == SVt_PVAV)
|
&& SvROK(return_vals) && SvTYPE(SvRV(return_vals)) == SVt_PVAV)
|
||||||
{
|
{
|
||||||
|
|
|
@ -315,7 +315,7 @@ sub query {
|
||||||
"Plug-ins should register their custom constants using this function, so".
|
"Plug-ins should register their custom constants using this function, so".
|
||||||
"other plug-ins (notably script-languages) can access these using symbolic names",
|
"other plug-ins (notably script-languages) can access these using symbolic names",
|
||||||
"Marc Lehmann <pcg\@goof.com>", "Marc Lehmann", "1999-07-07",
|
"Marc Lehmann <pcg\@goof.com>", "Marc Lehmann", "1999-07-07",
|
||||||
"<None>", "*",&Gimp::PROC_EXTENSION,
|
undef, "*",&Gimp::PROC_EXTENSION,
|
||||||
[
|
[
|
||||||
[&Gimp::PARAM_STRING, "procedure", "The name of the function that uses this constant"],
|
[&Gimp::PARAM_STRING, "procedure", "The name of the function that uses this constant"],
|
||||||
[&Gimp::PARAM_STRING, "arg_num", "The name of the argument that this constant is used for"],
|
[&Gimp::PARAM_STRING, "arg_num", "The name of the argument that this constant is used for"],
|
||||||
|
@ -325,7 +325,7 @@ sub query {
|
||||||
Gimp->install_procedure("gimp_procedural_db_set_default", "Set the default value for a plug-in argument",
|
Gimp->install_procedure("gimp_procedural_db_set_default", "Set the default value for a plug-in argument",
|
||||||
"Plug-ins should register default values for their arguments",
|
"Plug-ins should register default values for their arguments",
|
||||||
"Marc Lehmann <pcg\@goof.com>", "Marc Lehmann", "1999-07-07",
|
"Marc Lehmann <pcg\@goof.com>", "Marc Lehmann", "1999-07-07",
|
||||||
"<None>", "*",&Gimp::PROC_EXTENSION,
|
undef, "*",&Gimp::PROC_EXTENSION,
|
||||||
[
|
[
|
||||||
[&Gimp::PARAM_STRING, "procedure", "The name of the function that uses this constant"],
|
[&Gimp::PARAM_STRING, "procedure", "The name of the function that uses this constant"],
|
||||||
[&Gimp::PARAM_STRING, "arg_num", "The name of the argument that this constant is used for"],
|
[&Gimp::PARAM_STRING, "arg_num", "The name of the argument that this constant is used for"],
|
||||||
|
|
|
@ -13,7 +13,8 @@ sub new_scratchlayer {
|
||||||
$layer->fill (WHITE_IMAGE_FILL);
|
$layer->fill (WHITE_IMAGE_FILL);
|
||||||
$layer->noisify (0, 1, 1, 1, 0);
|
$layer->noisify (0, 1, 1, 1, 0);
|
||||||
$layer->mblur (0, $length, $angle);
|
$layer->mblur (0, $length, $angle);
|
||||||
$layer->levels (VALUE_LUT, 120, 255, $gamma, 0, 255);
|
#$layer->levels (VALUE_LUT, 120, 255, $gamma, 0, 255);
|
||||||
|
$layer->levels (VALUE_LUT, 120, 255, 0.3, 0, 255);
|
||||||
|
|
||||||
$layer;
|
$layer;
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue