Page 1 of 1
[RESOLVED]$15 for help. Cheap broke bastard.
Posted: 2013-11-21T20:55:18-07:00
by 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
Re: $15 for help. Cheap broke bastard.
Posted: 2013-11-25T07:26:32-07:00
by 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.
Re: $15 for help. Cheap broke bastard.
Posted: 2013-12-04T21:04:17-07:00
by 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');
Re: $15 for help. Cheap broke bastard.
Posted: 2013-12-04T22:04:01-07:00
by fmw42
$mycolor="#9370DB";
add alpha values
$mycolor="#9370DB
77";
see
http://www.imagemagick.org/script/color.php
Re: $15 for help. Cheap broke bastard.
Posted: 2013-12-05T07:59:44-07:00
by 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....)
Re: $15 for help. Cheap broke bastard.
Posted: 2013-12-05T10:55:39-07:00
by 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]
