dnrops
/
gimp
mirror of https://github.com/GNOME/gimp.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

see plug-ins/perl/Changes

This commit is contained in:
Marc Lehmann 1999-10-23 20:07:33 +00:00
parent 1aefdef3bf
commit 69359dbcce
9 changed files with 69 additions and 68 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
plug-ins/perl/Changes
View File

@ -4,6 +4,7 @@ Revision history for Gimp-Perl extension.
- POINTS really are decipoints: correct xlfd_size to create
larger (& more correct) fonts.
- small api changes for 1.2.
- (some) changes for the gimp api renaming.
1.14 Mon Oct 11 03:23:13 CEST 1999
- set the version of all modules explicitly (for the benefit of CPAN).

4
plug-ins/perl/examples/animate_cells
View File

@ -26,7 +26,7 @@ sub perl_fu_animate_cells {
my $drawable = shift; # Unused
my $makecopy = shift;
$image = gimp_channel_ops_duplicate($image) if $makecopy;
gimp_image_disable_undo($image);
gimp_image_undo_disable($image);
gimp_progress_init("Animating cell layers...",MESSAGE_BOX);
my @ids = reverse gimp_image_get_layers($image);
@ -54,7 +54,7 @@ sub perl_fu_animate_cells {
gimp_display_new($image) if $makecopy;
gimp_selection_none($image);
gimp_image_enable_undo($image);
gimp_image_undo_enable($image);
gimp_displays_flush();
}

4
plug-ins/perl/examples/avi
View File

@ -228,7 +228,7 @@ register "file_avi_load",
($width * $height * $depth) >> 3 == $image_size or die "strh(vids)/strf header format error\n";
$image = new Image($width,$height,RGB);
$image->disable_undo;
$image->undo_disable;
$image->set_filename($filename);
$image->attach_parasite(new Parasite "gimp-interframe-delay", PARASITE_PERSISTENT, $us_frame);
$image->attach_parasite(new Parasite "gimp-avi-depth", PARASITE_PERSISTENT, $depth == 16 ? 15 : $depth);
@ -257,7 +257,7 @@ register "file_avi_load",
}
);
$image->enable_undo;
$image->undo_enable;
return $image;
};

4
plug-ins/perl/examples/fire
View File

@ -81,7 +81,7 @@ register "firetext",
my ($w,$h) = Gimp->text_get_extents_fontname($text, xlfd_size $font, $font);
my $image = new Image $w+40, $h+40, RGB;
$image->disable_undo;
$image->undo_disable;
my $layer = new Layer $image, $w+40, $h+40, RGBA_IMAGE, "text layer", 100, NORMAL_MODE;
$layer->fill(BG_IMAGE_FILL);
@ -93,7 +93,7 @@ register "firetext",
Palette->set_foreground('black');
$image->text_fontname(-1,20-10*$displace,20-10*$displace, $text,0, 1, xlfd_size $font, $font);
$image->enable_undo;
$image->undo_enable;
$image->clean_all;
($image);

4
plug-ins/perl/examples/glowing_steel
View File

@ -45,7 +45,7 @@ sub perl_fu_glowing_steel {
my $old = gimp_palette_get_foreground();
my $image = gimp_image_new(100, 100, RGB);
gimp_image_disable_undo($image);
gimp_image_undo_disable($image);
my $textlayer = gimp_text_fontname($image, -1, $radius*2,
$radius*2, $string, 0, $antialias,
$size, $units, $font);
@ -78,7 +78,7 @@ sub perl_fu_glowing_steel {
gimp_palette_set_foreground($old);
gimp_image_enable_undo($image);
gimp_image_undo_enable($image);
gimp_selection_none($image);
gimp_image_set_active_layer($image,$backlayer);

4
plug-ins/perl/examples/image_tile
View File

@ -78,7 +78,7 @@ sub perl_fu_image_tile {
my $s_aspect = sprintf("%0.3f",$aspect);
my $type = gimp_image_base_type($image);
my $ndone=0;
gimp_image_disable_undo($image);
gimp_image_undo_disable($image);
gimp_progress_init("Image Tiling...",-1);
my %tile_cache; # Tied to image tile database
@ -283,7 +283,7 @@ sub perl_fu_image_tile {
unlink($wt_file);
unlink($cache_file) if $cleanup;
gimp_progress_update(1);
gimp_image_enable_undo($image);
gimp_image_undo_enable($image);
gimp_displays_flush();
}

106
plug-ins/perl/examples/logulator
View File

@ -141,7 +141,7 @@ sub script_fu_3d_outline_logo {
my $old_fg = gimp_palette_get_foreground ();
my $old_bg = gimp_palette_get_background ();
gimp_image_disable_undo ($img);
gimp_image_undo_disable ($img);
gimp_image_resize ($img, $width, $height, 0, 0);
gimp_image_add_layer ($img, $pattern, 1);
gimp_image_add_layer ($img, $bg_layer, 2);
@ -174,7 +174,7 @@ sub script_fu_3d_outline_logo {
my $final = gimp_image_flatten ($img);
gimp_palette_set_background ($old_bg);
gimp_palette_set_foreground ($old_fg);
gimp_image_enable_undo ($img);
gimp_image_undo_enable ($img);
gimp_display_new ($img);
};
}
@ -216,7 +216,7 @@ sub script_fu_alien_glow_logo {
my $old_fg = gimp_palette_get_foreground ();
my $old_bg = gimp_palette_get_background ();
gimp_image_disable_undo ($img);
gimp_image_undo_disable ($img);
gimp_image_resize ($img, $width, $height, 0, 0);
gimp_image_add_layer ($img, $bg_layer, 1);
gimp_image_add_layer ($img, $glow_layer, 1);
@ -236,7 +236,7 @@ sub script_fu_alien_glow_logo {
gimp_layer_set_name ($text_layer, $text);
gimp_palette_set_background ($old_bg);
gimp_palette_set_foreground ($old_fg);
gimp_image_enable_undo ($img);
gimp_image_undo_enable ($img);
gimp_display_new ($img);
};
}
@ -269,7 +269,7 @@ sub script_fu_basic1_logo {
my $old_fg = gimp_palette_get_foreground ();
my $old_bg = gimp_palette_get_background ();
gimp_image_disable_undo ($img);
gimp_image_undo_disable ($img);
gimp_image_resize ($img, $width, $height, 0, 0);
gimp_image_add_layer ($img, $shadow_layer, 1);
gimp_image_add_layer ($img, $bg_layer, 2);
@ -290,7 +290,7 @@ sub script_fu_basic1_logo {
gimp_layer_set_name ($text_layer, $text);
gimp_palette_set_background ($old_bg);
gimp_palette_set_foreground ($old_fg);
gimp_image_enable_undo ($img);
gimp_image_undo_enable ($img);
gimp_display_new ($img);
};
}
@ -339,7 +339,7 @@ sub script_fu_basic2_logo {
my $old_fg = gimp_palette_get_foreground ();
my $old_bg = gimp_palette_get_background ();
gimp_image_disable_undo ($img);
gimp_image_undo_disable ($img);
gimp_image_resize ($img, $width, $height, 0, 0);
gimp_image_add_layer ($img, $bg_layer, 1);
gimp_image_add_layer ($img, $shadow_layer, 1);
@ -366,7 +366,7 @@ sub script_fu_basic2_logo {
gimp_layer_set_name ($highlight_layer, "Highlight");
gimp_palette_set_background ($old_bg);
gimp_palette_set_foreground ($old_fg);
gimp_image_enable_undo ($img);
gimp_image_undo_enable ($img);
gimp_display_new ($img);
};
}
@ -457,7 +457,7 @@ sub script_fu_carved_logo {
my $old_bg = gimp_palette_get_background ();
my $old_brush = gimp_brushes_get_brush ();
gimp_image_disable_undo ($img);
gimp_image_undo_disable ($img);
gimp_layer_set_preserve_trans ($mask_layer, 1);
gimp_palette_set_background ([255, 255, 255]);
gimp_edit_fill ($mask_layer);
@ -537,7 +537,7 @@ sub script_fu_carved_logo {
gimp_palette_set_background ($old_bg);
gimp_brushes_set_brush ($old_brush);
gimp_display_new ($img);
gimp_image_enable_undo ($img);
gimp_image_undo_enable ($img);
};
}
@ -570,7 +570,7 @@ sub script_fu_chalk_logo {
my $old_fg = gimp_palette_get_foreground ();
my $old_bg = gimp_palette_get_background ();
gimp_image_disable_undo ($img);
gimp_image_undo_disable ($img);
gimp_image_resize ($img, $width, $height, 0, 0);
gimp_image_add_layer ($img, $bg_layer, 1);
gimp_palette_set_background ($bg_color);
@ -592,7 +592,7 @@ sub script_fu_chalk_logo {
gimp_layer_set_name ($text_layer, $text);
gimp_palette_set_background ($old_bg);
gimp_palette_set_foreground ($old_fg);
gimp_image_enable_undo ($img);
gimp_image_undo_enable ($img);
gimp_display_new ($img);
};
}
@ -626,7 +626,7 @@ sub script_fu_logo_chip_away {
my $old_fg = gimp_palette_get_foreground ();
my $old_bg = gimp_palette_get_background ();
gimp_image_disable_undo ($img);
gimp_image_undo_disable ($img);
gimp_image_resize ($img, $width, $height, 0, 0);
gimp_image_add_layer ($img, $bg_layer, 1);
gimp_layer_set_preserve_trans ($text_layer, 1);
@ -679,7 +679,7 @@ sub script_fu_logo_chip_away {
}
gimp_palette_set_foreground ($old_fg);
gimp_palette_set_background ($old_bg);
gimp_image_enable_undo ($img);
gimp_image_undo_enable ($img);
gimp_display_new ($img);
};
}
@ -729,7 +729,7 @@ sub script_fu_chrome_logo {
my $old_fg = gimp_palette_get_foreground ();
my $old_bg = gimp_palette_get_background ();
gimp_image_disable_undo ($img);
gimp_image_undo_disable ($img);
gimp_image_resize ($img, $width, $height, 0, 0);
gimp_image_add_layer ($img, $background, 1);
gimp_image_add_layer ($img, $shadow, 1);
@ -773,7 +773,7 @@ sub script_fu_chrome_logo {
gimp_layer_set_name ($layer1, $text);
gimp_palette_set_foreground ($old_fg);
gimp_palette_set_background ($old_bg);
gimp_image_enable_undo ($img);
gimp_image_undo_enable ($img);
gimp_display_new ($img);
};
}
@ -808,7 +808,7 @@ sub script_fu_comic_logo {
my $old_fg = gimp_palette_get_foreground ();
my $old_bg = gimp_palette_get_background ();
gimp_image_disable_undo ($img);
gimp_image_undo_disable ($img);
gimp_image_resize ($img, $width, $height, 0, 0);
gimp_image_add_layer ($img, $bg_layer, 1);
gimp_image_add_layer ($img, $white_layer, 1);
@ -848,7 +848,7 @@ sub script_fu_comic_logo {
gimp_image_set_active_layer ($img, $text_layer);
gimp_palette_set_background ($old_bg);
gimp_palette_set_foreground ($old_fg);
gimp_image_enable_undo ($img);
gimp_image_undo_enable ($img);
gimp_display_new ($img);
};
}
@ -895,7 +895,7 @@ sub script_fu_cool_metal_logo {
my $old_fg = gimp_palette_get_foreground ();
my $old_bg = gimp_palette_get_background ();
gimp_image_disable_undo ($img);
gimp_image_undo_disable ($img);
gimp_image_resize ($img, $img_width, $img_height, 0, 0);
gimp_image_add_layer ($img, $bg_layer, 1);
gimp_image_add_layer ($img, $reflect_layer, 1);
@ -952,7 +952,7 @@ sub script_fu_cool_metal_logo {
gimp_gradients_set_active ($old_gradient);
gimp_palette_set_background ($old_bg);
gimp_palette_set_foreground ($old_fg);
gimp_image_enable_undo ($img);
gimp_image_undo_enable ($img);
gimp_display_new ($img);
};
}
@ -1102,7 +1102,7 @@ sub script_fu_crystal_logo {
my $old_brush = gimp_brushes_get_brush ();
gimp_image_delete ($back_img);
gimp_image_disable_undo ($img);
gimp_image_undo_disable ($img);
gimp_image_resize ($img, $width, $height, 0, 0);
gimp_image_add_layer ($img, $layer3, 0);
gimp_image_add_layer ($img, $layer2, 0);
@ -1173,7 +1173,7 @@ sub script_fu_crystal_logo {
gimp_palette_set_foreground ($old_fg);
gimp_palette_set_background ($old_bg);
gimp_brushes_set_brush ($old_brush);
gimp_image_enable_undo ($img);
gimp_image_undo_enable ($img);
gimp_display_new ($img);
};
}
@ -1215,7 +1215,7 @@ sub script_fu_frosty_logo {
my $old_brush = gimp_brushes_get_brush ();
my $old_paint_mode = gimp_brushes_get_paint_mode ();
gimp_image_disable_undo ($img);
gimp_image_undo_disable ($img);
gimp_image_resize ($img, $width, $height, 0, 0);
gimp_image_add_layer ($img, $sparkle_layer, 2);
gimp_image_add_layer ($img, $matte_layer, 3);
@ -1267,7 +1267,7 @@ sub script_fu_frosty_logo {
gimp_brushes_set_brush ($old_brush);
gimp_brushes_set_paint_mode ($old_paint_mode);
gimp_layer_translate ($shadow_layer, $border, $border);
gimp_image_enable_undo ($img);
gimp_image_undo_enable ($img);
gimp_display_new ($img);
};
}
@ -1302,7 +1302,7 @@ sub script_fu_glossy_logo {
my $old_fg = gimp_palette_get_foreground ();
my $old_bg = gimp_palette_get_background ();
gimp_image_disable_undo ($img);
gimp_image_undo_disable ($img);
gimp_image_resize ($img, $width, $height, 0, 0);
gimp_layer_set_name ($grow_me, "Grow-me");
gimp_image_add_layer ($img, $grow_me, 1);
@ -1369,7 +1369,7 @@ sub script_fu_glossy_logo {
gimp_gradients_set_active ($old_gradient);
gimp_palette_set_background ($old_bg);
gimp_palette_set_foreground ($old_fg);
gimp_image_enable_undo ($img);
gimp_image_undo_enable ($img);
gimp_display_new ($img);
};
}
@ -1421,7 +1421,7 @@ sub script_fu_glowing_logo {
my $old_fg = gimp_palette_get_foreground ();
my $old_bg = gimp_palette_get_background ();
gimp_image_disable_undo ($img);
gimp_image_undo_disable ($img);
gimp_image_resize ($img, $width, $height, 0, 0);
gimp_image_add_layer ($img, $bg_layer, 1);
gimp_image_add_layer ($img, $glow_layer, 1);
@ -1452,7 +1452,7 @@ sub script_fu_glowing_logo {
gimp_layer_set_name ($glow_layer, "Glow Layer");
gimp_palette_set_background ($old_bg);
gimp_palette_set_foreground ($old_fg);
gimp_image_enable_undo ($img);
gimp_image_undo_enable ($img);
gimp_display_new ($img);
};
}
@ -1488,7 +1488,7 @@ sub script_fu_gradient_bevel_logo {
my $old_fg = gimp_palette_get_foreground ();
my $old_bg = gimp_palette_get_background ();
gimp_image_disable_undo ($img);
gimp_image_undo_disable ($img);
gimp_image_resize ($img, $width, $height, 0, 0);
gimp_image_add_layer ($img, $bg_layer, 1);
gimp_image_add_layer ($img, $blur_layer, 1);
@ -1521,7 +1521,7 @@ sub script_fu_gradient_bevel_logo {
gimp_image_set_active_layer ($img, $text_layer);
gimp_palette_set_background ($old_bg);
gimp_palette_set_foreground ($old_fg);
gimp_image_enable_undo ($img);
gimp_image_undo_enable ($img);
gimp_display_new ($img);
};
}
@ -1562,8 +1562,8 @@ sub script_fu_i26_gunya2 {
my $old_brush = gimp_brushes_get_brush ();
my $old_paint_mode = gimp_brushes_get_paint_mode ();
gimp_image_disable_undo ($img);
gimp_image_disable_undo ($distortion_img);
gimp_image_undo_disable ($img);
gimp_image_undo_disable ($distortion_img);
gimp_image_resize ($img, $width, $height, 0, 0);
gimp_image_add_layer ($img, $dist_text_layer, -1);
gimp_image_add_layer ($img, $dist_frame_layer, -1);
@ -1599,7 +1599,7 @@ sub script_fu_i26_gunya2 {
gimp_brushes_set_brush ($old_brush);
gimp_brushes_set_paint_mode ($old_paint_mode);
gimp_image_set_active_layer ($img, $dist_text_layer);
gimp_image_enable_undo ($img);
gimp_image_undo_enable ($img);
gimp_image_delete ($distortion_img);
gimp_display_new ($img);
};
@ -1721,7 +1721,7 @@ sub script_fu_neon_logo {
my $old_fg = gimp_palette_get_foreground ();
my $old_bg = gimp_palette_get_background ();
gimp_image_disable_undo ($img);
gimp_image_undo_disable ($img);
gimp_image_resize ($img, $width, $height, 0, 0);
gimp_image_add_layer ($img, $bg_layer, 1);
if (not ($shadow == 0)) {
@ -1792,7 +1792,7 @@ sub script_fu_neon_logo {
gimp_palette_set_background ($old_bg);
gimp_palette_set_foreground ($old_fg);
gimp_image_remove_channel ($img, $selection);
gimp_image_enable_undo ($img);
gimp_image_undo_enable ($img);
gimp_display_new ($img);
};
}
@ -1828,7 +1828,7 @@ sub script_fu_newsprint_text {
my $grey = $density * 255 / 100;
my $old_bg = gimp_palette_get_background ();
gimp_image_disable_undo ($img);
gimp_image_undo_disable ($img);
gimp_image_add_layer ($img, $bg_layer, 1);
gimp_image_add_layer ($img, $text_layer, -1);
gimp_edit_clear ($bg_layer);
@ -1842,7 +1842,7 @@ sub script_fu_newsprint_text {
plug_in_newsprint ($img, $text_mask, $cell_size, 0, 0, 45.0, 3, 45.0, 0, 45.0, 0, 45.0, 0, 3);
gimp_image_remove_layer_mask ($img, $text_layer, APPLY);
gimp_palette_set_background ($old_bg);
gimp_image_enable_undo ($img);
gimp_image_undo_enable ($img);
gimp_display_new ($img);
};
}
@ -1988,7 +1988,7 @@ sub script_fu_sota_chrome_logo {
my $old_brush = gimp_brushes_get_brush ();
my $old_pattern = gimp_patterns_get_pattern ();
gimp_image_disable_undo ($img);
gimp_image_undo_disable ($img);
gimp_image_resize ($img, $width, $height, 0, 0);
gimp_image_add_layer ($img, $shadow, 0);
gimp_image_add_layer ($img, $layer3, 0);
@ -2063,7 +2063,7 @@ sub script_fu_sota_chrome_logo {
gimp_palette_set_background ($old_bg);
gimp_brushes_set_brush ($old_brush);
gimp_patterns_set_pattern ($old_pattern);
gimp_image_enable_undo ($img);
gimp_image_undo_enable ($img);
gimp_display_new ($img);
};
}
@ -2105,7 +2105,7 @@ sub script_fu_speed_text {
my $old_fg = gimp_palette_get_foreground ();
my $old_bg = gimp_palette_get_background ();
gimp_image_disable_undo ($img);
gimp_image_undo_disable ($img);
gimp_image_add_layer ($img, $bg_layer, 1);
gimp_image_add_layer ($img, $text_layer, -1);
gimp_edit_clear ($bg_layer);
@ -2131,7 +2131,7 @@ sub script_fu_speed_text {
gimp_image_remove_layer_mask ($img, $text_layer, APPLY);
gimp_palette_set_foreground ($old_fg);
gimp_palette_set_background ($old_bg);
gimp_image_enable_undo ($img);
gimp_image_undo_enable ($img);
gimp_display_new ($img);
};
}
@ -2173,7 +2173,7 @@ sub script_fu_starburst_logo {
my $old_fg = gimp_palette_get_foreground ();
my $old_bg = gimp_palette_get_background ();
gimp_image_disable_undo ($img);
gimp_image_undo_disable ($img);
gimp_image_resize ($img, $width, $height, 0, 0);
gimp_image_add_layer ($img, $bg_layer, 1);
gimp_image_add_layer ($img, $shadow_layer, 1);
@ -2208,7 +2208,7 @@ sub script_fu_starburst_logo {
gimp_patterns_set_pattern ($old_pattern);
gimp_palette_set_background ($old_bg);
gimp_palette_set_foreground ($old_fg);
gimp_image_enable_undo ($img);
gimp_image_undo_enable ($img);
gimp_display_new ($img);
};
}
@ -2303,7 +2303,7 @@ sub script_fu_starscape_logo {
my $old_fg = gimp_palette_get_foreground ();
my $old_bg = gimp_palette_get_background ();
gimp_image_disable_undo ($img);
gimp_image_undo_disable ($img);
gimp_image_resize ($img, $width, $height, 0, 0);
gimp_image_add_layer ($img, $bg_layer, 1);
gimp_image_add_layer ($img, $glow_layer, 1);
@ -2339,7 +2339,7 @@ sub script_fu_starscape_logo {
gimp_patterns_set_pattern ($old_pattern);
gimp_palette_set_background ($old_bg);
gimp_palette_set_foreground ($old_fg);
gimp_image_enable_undo ($img);
gimp_image_undo_enable ($img);
gimp_display_new ($img);
};
}
@ -2379,7 +2379,7 @@ sub script_fu_t_o_p_logo {
my $old_brush = gimp_brushes_get_brush ();
my $old_paint_mode = gimp_brushes_get_paint_mode ();
gimp_image_disable_undo ($img);
gimp_image_undo_disable ($img);
gimp_image_resize ($img, $width, $height, 0, 0);
gimp_image_add_layer ($img, $sparkle_layer, 2);
gimp_image_add_layer ($img, $shadow_layer, 3);
@ -2436,7 +2436,7 @@ sub script_fu_t_o_p_logo {
gimp_brushes_set_paint_mode ($old_paint_mode);
gimp_layer_set_visible ($text_layer, 0);
gimp_image_set_active_layer ($img, $sparkle_layer);
gimp_image_enable_undo ($img);
gimp_image_undo_enable ($img);
gimp_display_new ($img);
};
}
@ -2487,7 +2487,7 @@ sub script_fu_textured_logo {
my $old_fg = gimp_palette_get_foreground ();
my $old_bg = gimp_palette_get_background ();
gimp_image_disable_undo ($img);
gimp_image_undo_disable ($img);
gimp_image_resize ($img, $width, $height, 0, 0);
gimp_image_add_layer ($img, $shadow_layer, 1);
gimp_image_add_layer ($img, $blend_layer, 1);
@ -2534,7 +2534,7 @@ sub script_fu_textured_logo {
gimp_layer_set_name ($text_layer, $text);
gimp_palette_set_foreground ($old_fg);
gimp_palette_set_background ($old_bg);
gimp_image_enable_undo ($img);
gimp_image_undo_enable ($img);
gimp_display_new ($img);
};
}
@ -2572,7 +2572,7 @@ sub script_fu_bovinated_logo {
my $old_fg = gimp_palette_get_foreground ();
my $old_bg = gimp_palette_get_background ();
gimp_image_disable_undo ($img);
gimp_image_undo_disable ($img);
gimp_image_resize ($img, $width, $height, 0, 0);
gimp_image_add_layer ($img, $bg_layer, 1);
gimp_image_add_layer ($img, $blur_layer, 1);
@ -2605,7 +2605,7 @@ sub script_fu_bovinated_logo {
gimp_image_set_active_layer ($img, $text_layer);
gimp_palette_set_background ($old_bg);
gimp_palette_set_foreground ($old_fg);
gimp_image_enable_undo ($img);
gimp_image_undo_enable ($img);
gimp_display_new ($img);
};
}
@ -2651,7 +2651,7 @@ sub script_fu_blended_logo {
my $old_fg = gimp_palette_get_foreground ();
my $old_bg = gimp_palette_get_background ();
gimp_image_disable_undo ($img);
gimp_image_undo_disable ($img);
gimp_image_resize ($img, $width, $height, 0, 0);
gimp_image_add_layer ($img, $shadow_layer, 1);
gimp_image_add_layer ($img, $blend_layer, 1);
@ -2696,7 +2696,7 @@ sub script_fu_blended_logo {
gimp_layer_set_name ($text_layer, $text);
gimp_palette_set_foreground ($old_fg);
gimp_palette_set_background ($old_bg);
gimp_image_enable_undo ($img);
gimp_image_undo_enable ($img);
gimp_display_new ($img);
};
}

4
plug-ins/perl/examples/miff
View File

@ -150,7 +150,7 @@ register "file_miff_load",
my $img = new Image $w, $h, $d >= 3 ? RGB : GRAY;
$img->set_filename($filename);
$img->disable_undo;
$img->undo_disable;
if ($comment) {
$comment =~ s/^\s+//s;
@ -167,7 +167,7 @@ register "file_miff_load",
update Progress tell()/$filesize*0.8 + 0.2;
}
$img->enable_undo;
$img->undo_enable;
$img;
};

6
plug-ins/perl/examples/randomart1
View File

@ -12,7 +12,7 @@ register "random_art_1", # Funktionsname
# Hilfetext
"Marc Lehmann", # Autor
"Marc Lehmann <pcg\@goof.com", # Copyright
"0.3", # Version/Datum
"0.3a", # Version/Datum
__"<Toolbox>/Xtns/Render/Random Art #1", # Menüpfad
"", # Bildtypen
# Eingabeparameter
@ -33,7 +33,7 @@ register "random_art_1", # Funktionsname
# Erzeuge ein neues Bild
my $image = new Image($w,$h,RGB);
$image->disable_undo;
$image->undo_disable;
# Erzeuge die erste Ebene für das Bild
my $layer = $image->layer_new($w,$h,RGB_IMAGE,
@ -79,7 +79,7 @@ register "random_art_1", # Funktionsname
$layer->channel_ops_offset (1,0,(rand(0.8)+0.1)*$w,(rand(0.8)+0.1)*$h);
}
$image->enable_undo;
$image->undo_enable;
# Gib das neu erzeugte Bild zurück, damit es angezeigt wird.
$image;