linux - 用于命令行 GUI 应用程序接口(interface)的 ImageMagick API 到 `display`

Question

关闭。这个问题不符合Stack Overflow guidelines .它目前不接受答案。












想改进这个问题？将问题更新为 on-topic对于堆栈溢出。

3年前关闭。




Improve this question




基本上，我想有一种快速的方法来选择图像中的一个框(感兴趣的区域)，并以 ImageMagick 的格式获取几何输出。我看不到使用默认 ImageMagick display 的简单方法。查看器，所以我正在寻找一些 API(希望是示例)来允许我编写自己的查看器。

一点背景:在ImageMagick • View topic - selecting a region of interest from command line (2008)据说你不能这样做，但是，有display: ImageMagick - Region of Interest (2003？)它解释了如何做到这一点(但显然它指的是旧版本)。

无论如何，这就是你所说的 display -size 300x500 pattern:checkerboard ( pattern:checkerboard 是 imagemagick 中的内置图案图像):



一旦“ImageMagick”显示窗口出现，点击它；然后命令菜单显示-从中选择/“图像编辑”/“感兴趣区域...”；然后可以在查看器显示窗口上单击并拖动。而且您还可以在左上角获得几何图形 - 但您不能将其复制/粘贴为文本(所以我不得不重新输入)。

另外，display在命令行模式下占用终端( linux - Make imagemagick's display exit at terminal, preserving the window (single instance mode) - Super User ) - 我看不到强制它以“单实例模式”运行的方法，这样我就可以在命令行上发出文件名和 display会将它们加载到当前运行的同一个实例中。

现在，我找到了Casting spells with ImageMagick - Image manipulation for programmers (2012)，其中提到了 MagickWand API；经过一番搜索，我在 imagemagick 上找到了地点:

ImageMagick: MagickWand, C API for ImageMagick

ImageMagick: MagickCore, Low-level C API for ImageMagick

ImageMagick: PerlMagick, Perl API for ImageMagick

ImageMagick: Magick++, C++ API for ImageMagick

所以，我的第一个想法是 Python 中的脚本——但显然只有一个 Perl API，这很好。

但是，我需要编写的代码基本上是一个命令行界面，它将启动一个 display - 类似窗口的进程作为“单个实例”，并在传递文件名等参数时退出终端， -density等到 window ；然后窗口会对鼠标单击使用react，允许选择裁剪几何框(感兴趣区域) - 最后，在文本框中呈现几何字符串，以便您可以复制它。但据我所见，所有 API 都面向执行命令行 convert 的功能。 .

所以我的问题是 - 这些 API 中的任何一个都可以用来编程 display - 类似图形用户界面；是否存在任何可以指出的类似性质的示例(最好是脚本语言，但我会使用 C/C++)？

非常感谢您的任何答案，
干杯!

Answer 1

好吧，结果证明这有点痛苦，但我设法用 ImageMagick API 组合了一个 Perl-Tk 脚本，它的行为就像我想要的那样:imgckdis.pl (代码也在下面)。这是 screenshot :



请注意，它几乎可以仅显示硬编码 400x400 像素的图像(尽管它可能会扩展到更大的图像)-没有菜单，没有鼠标交互(滚轮缩放)-几乎什么都没有 :) 该脚本只接受一个命令行参数 - 要打开的文件；但它也可以理解 ImageMagick 的特殊功能，如“xc:white”(ImageMagick 部分甚至会自动渲染 SVG 文件，如屏幕截图所示)。

但它能够做的一件事是在单实例模式下工作:启动的第一个实例成为“主”，并绘制 Tk 窗口，并锁定相应的终端。脚本的后续实例，意识到主实例已经启动，将简单地向主实例发出命令以加载新图像。

正如下面的链接集合所示(以及在线 vesrion 中的修订说明)，这种“向 'master' 发出命令”并不是那么容易。起初我想，使用进程间通信共享变量可以让我存储一个“引用指针”到主服务器；然后允许后续实例在其上调用函数。好吧，这似乎无法做到——例如，Perl may discourage that - 但即使你跳过所有这些检查，最后你会得到一个在共享空间中看不到的内存地址，因此无法从中检索任何内容。此外，IPC::Shareable Perl 包可能只对整数和字符串“保证”？!

尽管如此，最终奏效的方法是，正如所暗示的那样，让“主”轮询改变变量的变化。和非主实例在它们被调用时简单地更改这个变量 - 这种方法似乎有效......但是，对于“真实”应用程序，然后必须考虑组织相当多的这些共享变量......

好吧，也许人们仍然无法缩放和重新定位图像，并绘制一个几何矩形 - 但是，至少这是一个可以证明是有效的示例(至少在 Ubuntu 上):) ...

希望这可以帮助某人，
干杯!

代码:

#!/usr/bin/perl

# imgckdis.pl
# http://sdaaubckp.svn.sf.net/viewvc/sdaaubckp/single-scripts/imgckdis.pl

use warnings;
use strict;
use Image::Magick; # sudo apt-get install perlmagick # debian/ubuntu
use Tk;
use MIME::Base64;

use Carp;
use Fcntl ':flock';

use Data::Printer;
use Class::Inspector;

use IPC::Shareable;


my $amMaster = 1;
my $file_read;

open my $self, '<', $0 or die "Couldn't open self: $!";
flock $self, LOCK_EX | LOCK_NB or $amMaster = 0;

if ($amMaster == 1) {
  print "We are master single instance as per flock\n";
  IPC::Shareable->clean_up_all;
}

if (!$ARGV[0]) {
  $file_read = "xc:white";
} else {
  $file_read = $ARGV[0];
}
chomp $file_read;


my %options = (
  create    => 1,
  exclusive => 0,
  mode      => 0644,
  destroy   => 0,
);

my $glue1 = 'dat1';
my $glue2 = 'dat2';

my $refcount;
my $reffname;
my $lastreffname;

my $refcount_handle = tie $refcount, 'IPC::Shareable', $glue1 , \%options ;
if ($amMaster == 1) {
  $refcount = undef;
}

my $reffname_handle = tie $reffname, 'IPC::Shareable', $glue2 , \%options ;
if ($amMaster == 1) {
  $reffname = undef;
}

my ($image, $blob, $content, $tkimage, $mw);


if ($amMaster == 1) { # if (not(defined($refcount))) {
  # initialize the assigns
  $lastreffname = "";

  $reffname_handle->shlock(LOCK_SH|LOCK_NB);
  $reffname = $file_read; #
  $reffname_handle->shunlock();

  $refcount_handle->shlock(LOCK_SH|LOCK_NB);
  $refcount = 1; #
  $refcount_handle->shunlock();
}

# mainly from http://objectmix.com/perl/771215-how-display-image-magick-image-tk-canvas.html
sub generateImageContent() {
  #fake a PGM then convert it to gif
  $image = Image::Magick->new(
    size => "400x400",
  );
  $image->Read($file_read); #("xc:white");
  $image->Draw(
    primitive => 'line',
    points => "300,100 300,500",
    stroke => '#600',
  );
  # set it as PGM
  $image->Set(magick=>'pgm');

  #your pgm is loaded here, now change it to gif or whatever
  $image->Set(magick=>'gif');
  $blob = $image->ImageToBlob();

  # Tk wants base64encoded images
  $content = encode_base64( $blob ) or die $!;
}

sub loadImageContent() {
  #fake a PGM then convert it to gif
  $image = Image::Magick->new(
    size => "400x400",
  );
  $image->Read($lastreffname); #("xc:red") for test

  # set it as PGM
  $image->Set(magick=>'pgm');

  #your pgm is loaded here, now change it to gif or whatever
  $image->Set(magick=>'gif');
  $blob = $image->ImageToBlob();

  # Tk wants base64encoded images
  $content = encode_base64( $blob ) or die $!;

  #~ $tkimage->read($content); # expects filename
  $tkimage->put($content); # works!
}


sub CleanupExit() {
  # only one remove() passes - the second fails: "Couldn't remove shared memory segment/semaphore set"
  (tied $refcount)->remove();
  IPC::Shareable->clean_up;
  $mw->destroy();
  print "Exiting appliction!\n";
  exit;
}

sub updateVars() {
  if ( not($reffname eq $lastreffname) ) {
    print "Change: ", $lastreffname, " -> ", $reffname, "\n";
    $lastreffname = $reffname;
    loadImageContent();
  }
}

if ( not($amMaster == 1) ) {
  # simply set the shared variable to cmdarg variable
  # (master's updateVars should take care of update)
  $reffname_handle->shlock(LOCK_SH|LOCK_NB);
  $reffname = $file_read;
  $reffname_handle->shunlock();

  # and exit now - we don't want a second instance
  print "Main instance of this script is already running\n";
  croak "Loading new file: $file_read";
}


$mw = MainWindow->new();
$mw->protocol(WM_DELETE_WINDOW => sub { CleanupExit(); } );

generateImageContent();
$tkimage = $mw->Photo(-data => $content);

$mw->Label(-image => $tkimage)->pack(-expand => 1, -fill => 'both');
$mw->Button(-text => 'Quit', -command => sub { CleanupExit(); } )->pack;

# polling function for sharable - 100 ms
$mw->repeat(100, \&updateVars);


MainLoop;



__END__

相关链接:

How to display an Image::Magick image in a Tk::Canvas?

Installing the Perl Image::Magick module on CentOS 5.2 (Fourmilog: None Dare Call It Reason)

perl - How do I install Image::Magick on Debian etch? - Stack Overflow

[magick-users] PerlMagick 6.0.0 Composite -opacity doesn't work

Ensuring only one copy of a perl script is running at a time

Re: Limiting a program to a single running instance - nntp.perl.org

Sys::RunAlone - search.cpan.org

What's the best way to make sure only one instance of a Perl program is running? - Stack Overflow

reinstall PERL - PERL Beginners (Do you need to predeclare croak?)

Image in Perl TK?

Perl Tk::Photo help

introspection - How do I list available methods on a given object or package in Perl? - Stack Overflow

Can't install IPC:Shareable

Share variables between Child processes in perl without IPC::Shareable - Stack Overflow

IPC::Shareable - search.cpan.org

perl - Checking IPC Shareable lock - Stack Overflow

Storing complex data structures using Storable

using tie on two arrays on IPC::Shareable makes array1 and array2 both same even though array2 is not updated.

Dereferencing in perl

Shared Memory using IPC::Shareable - Can't use an undefined value as an ARRAY reference

Re: Handling child process and close window exits in Perl/Tk

How can I convert the stringified version of array reference to actual array reference in Perl? - Stack Overflow

Re: IPC::Shareable Problem with multidimentional hash

perl - IPC::Shareable variables, "Can't use string ... as a SCALAR ref.." and memory address - Stack Overflow

Perl/Tk App and Interprocess Communication

Re: Antw: Re: Perl/Tk + Thread - nntp.perl.org