One Hat Cyber Team
Your IP :
172.69.214.198
Server IP :
188.114.96.3
Server :
Linux thuru 6.5.11-4-pve #1 SMP PREEMPT_DYNAMIC PMX 6.5.11-4 (2023-11-20T10:19Z) x86_64
Server Software :
Apache/2.4.51 (Unix) OpenSSL/1.0.2k-fips
PHP Version :
7.3.33
Buat File
|
Buat Folder
Eksekusi
Dir :
~
/
usr
/
share
/
doc
/
ImageMagick-perl-6.9.10.68
/
demo
/
Edit File:
shapes.pl
#!/usr/bin/perl eval 'exec /usr/bin/perl -S $0 ${1+"$@"}' if 0; # not running under some shell # GD example using PerlMagick methods. use Image::Magick; # # Create a 300x300 white canvas. # $image=Image::Magick->new; $image->Set(size=>'300x300'); $image->Read('xc:white'); # # Draw shapes. # $tile=Image::Magick->new; $tile->Read('tile.gif'); $image->Draw(primitive=>'Polygon',tile=>$tile,fill=>'none', points=>'30,30 100,10 190,290 30,290'); $image->Draw(stroke=>'red',primitive=>'Ellipse',stroke=>'black',fill=>'red', strokewidth=>5,points=>'100,100 50,75 0,360'); $image->Draw(primitive=>'Polygon',fill=>'none',stroke=>'black',strokewidth=>5, points=>'30,30 100,10 190,290 30,290'); $image->FloodfillPaint(geometry=>'+132+62',fill=>'blue',bordercolor=>'black', invert=>'true'); # # Draw text. # $image->Annotate(fill=>'red',geometry=>'+150+20',pointsize=>18, text=>'Hello world!'); $image->Annotate(fill=>'blue',geometry=>'+150+38',pointsize=>14, text=>'Goodbye cruel world!'); $image->Annotate(fill=>'black',geometry=>'+280+120',pointsize=>14, text=>"I'm climbing the wall!",rotate=>90.0); # # Write image. # print "Write image...\n"; $image->Write('shapes.gif'); print "Display image...\n"; $image->Write('win:');
Simpan