[RESOLVED]$15 for help. Cheap broke bastard.

PerlMagick is an object-oriented Perl interface to ImageMagick. Use this forum to discuss, make suggestions about, or report bugs concerning PerlMagick.
Post Reply
cellurl
Posts: 6
Joined: 2013-10-24T14:55:07-07:00
Authentication code: 6789

[RESOLVED]$15 for help. Cheap broke bastard.

Post by cellurl » 2013-11-21T20:55:18-07:00

Can anyone help me convert this to perlmagick?
Its for a non-profit.
Thanks for any help. You all are the best!
Jim


convert -size 1111x452 xc:White ^
-draw "fill rgb(255,242,0) roundRectangle 384,260 479,326 14,14" ^
-draw "fill rgb(0,162,232) text 400,314 Tommy" ^
-draw "fill rgb(237,28,36) roundRectangle 446,147 623,282 14,14" ^
-draw "fill rgb(0,162,232) text 537,272 Esoen" ^
-draw "fill rgb(0,162,232) roundRectangle 752,92 785,123 6,6" ^
-draw "fill rgb(0,0,0) text 768,108 Bob" ^
-draw "fill rgb(0,0,0) text 125,38 'What is wikispeedia?'" ^
red2.png

User avatar
magick
Site Admin
Posts: 11018
Joined: 2003-05-31T11:32:55-07:00

Re: $15 for help. Cheap broke bastard.

Post by magick » 2013-11-25T07:26:32-07:00

Download the ImageMagick source @ http://www.imagemagick.org/download/ and unpack. Go to ImageMagick-6.8.7-7/PerlMagick/demo and take a look at shapes.pl & piddle.pl. Both of these illustrate how to use PerlMagick to draw on an image.

cellurl
Posts: 6
Joined: 2013-10-24T14:55:07-07:00
Authentication code: 6789

Re: $15 for help. Cheap broke bastard.

Post by cellurl » 2013-12-04T21:04:17-07:00

Perfect suggestion. Thanks for it! It got me going...

Q: How can I make translucent colors? They just overlap, but
I want them to see thru...

Thanks so much for the help. I also support anti Troll measures...
-jim

http://www.wikispeedia.org/tmp/out.gif

Code: Select all

#!/usr/bin/perl -w
# GD example using PerlMagick methods.

use Image::Magick;
$image=Image::Magick->new;
$image->Set(size=>'800x800');
$image->Read('xc:white');

$tile=Image::Magick->new;
$tile->Read('tile.gif');

$mycolor="#9370DB";

$image->Draw(primitive=>'Polygon',fill=>"$mycolor",stroke=>'black',strokewidth=>2,
            points=>'10,100 200,100 200,10 10,10');

$mycolor="#FFF0F5";

$image->Draw(primitive=>'Polygon',fill=>"$mycolor",stroke=>'black',strokewidth=>2,
            points=>'15,100 300,100 300,15 15,15');

$image->Write('out.gif');

User avatar
fmw42
Posts: 25274
Joined: 2007-07-02T17:14:51-07:00
Authentication code: 1152
Location: Sunnyvale, California, USA

Re: $15 for help. Cheap broke bastard.

Post by fmw42 » 2013-12-04T22:04:01-07:00

$mycolor="#9370DB";
add alpha values

$mycolor="#9370DB77";

see
http://www.imagemagick.org/script/color.php

cellurl
Posts: 6
Joined: 2013-10-24T14:55:07-07:00
Authentication code: 6789

Re: $15 for help. Cheap broke bastard.

Post by cellurl » 2013-12-05T07:59:44-07:00

thanks Magic and Fred. Thats exactly what I needed.
I put kudos on bottom of this page http://www.wikispeedia.org.
Thanks again.
(need a way to mark this closed....)

User avatar
fmw42
Posts: 25274
Joined: 2007-07-02T17:14:51-07:00
Authentication code: 1152
Location: Sunnyvale, California, USA

Re: $15 for help. Cheap broke bastard.

Post by fmw42 » 2013-12-05T10:55:39-07:00

(need a way to mark this closed....)
In the future, just edit the title of the very first post at the top to add [RESOLVED]

Post Reply