~ubuntu-branches/ubuntu/intrepid/graphicsmagick/intrepid

« back to all changes in this revision

Viewing changes to PerlMagick/demo/button.pl

• browse files at revision 1
• compare with another revision
• download diff
• download tarball
• view history from revision 1

Show diffs side-by-side

added

removed

PerlMagick/demo/button.pl

 

1

#!/usr/local/bin/perl

 

2

#

 

3

# Make simple beveled button.

 

4

#

 

5

use Graphics::Magick;

 

6

 

 

7

$q=Graphics::Magick->new;

 

8

$q->Set(size=>'30x106');

 

9

$q->Read('gradient:#00f685-#0083f8');

 

10

$q->Rotate(-90);

 

11

$q->Raise('6x6');

 

12

$q->Annotate(text=>'Push Me',font=>'Generic.ttf',fill=>'black',

 

13

  gravity=>'Center',pointsize=>18);

 

14

$q->Write('button.gif');

 

15

$q->Write('win:');

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1