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

[cellurl]

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

[magick]

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]

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');

[fmw42]

$mycolor="#9370DB";

add alpha values

$mycolor="#9370DB77";

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

[cellurl]

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....)

[fmw42]

(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]