I have written an successfull perl magick script that creates a new
tif image with various lines showing the vertical and horizontal center
lines.
I would like to save the image as a photoshop PSD with the centering lines
that I created as appear as a "guide" in photoshop similar to the Photoshop
menu command View --> New Guide command.
I've tried searching the forum and google, but wasn't able to find any info.
Is this a feature that is supported in PerlMagick/ImageMagick?
Any suggestions or docs that I can read would be appreciated.
Thanks,
John
Here is a sample of what I am doing:
#!c:/Perl/bin/perl.exe
#imagemagick cover creator
#cover2.pl
#version 08.04.16
#John J. Feher
[EMAIL PROTECTED]
use strict;
use warnings;
use Image::Magick;
my $image=Image::Magick->new;
my $page_width="8340"; # page width * 300
my $page_height="4020"; # page height * 300
my $page=$page_width;
$page.="x";
$page.=$page_height;
my $output = "//server/image/test/";
$output.="cover.psd";
my $width=$page_width/2;
my $height=$page_height/2;
$image->Set(size=>$page,units=>'PixelsPerInch',density=>'300x300',type=>'Tru
eColor');
$image->Profile( name=>'c:/adobergb1998.icc');
$image->ReadImage('xc:white');
my $points=$width;
$points.=",";
$points.="0";
$points.=",";
$points.=$width;
$points.=",";
$points.=$page_height;
$image->Draw(stroke=>'black',strokewidth=>'4',primitive=>'line',
points=>$points); #vertical Centerline
$points="0";
$points.=",";
$points.=$height;
$points.=",";
$points.=$page_width;
$points.=",";
$points.=$height;
$image->Draw(stroke=>'black',strokewidth=>'4',primitive=>'line',
points=>$points); #vertical Centerline
$image->Write(units=>'PixelsPerInch',compression=>'LZW',density=>'300x300',t
ype=>'TrueColor',filename=>$output);
No virus found in this outgoing message.
Checked by AVG.
Version: 7.5.519 / Virus Database: 269.23.0/1379 - Release Date: 4/15/2008
6:10 PM
_______________________________________________
Magick-users mailing list
[email protected]
http://studio.imagemagick.org/mailman/listinfo/magick-users
