Linux ns1.utparral.edu.mx 6.8.0-79-generic #79~22.04.1-Ubuntu SMP PREEMPT_DYNAMIC Fri Aug 15 16:54:53 UTC 2 x86_64
Apache/2.4.58 (Unix) OpenSSL/1.1.1w PHP/8.2.12 mod_perl/2.0.12 Perl/v5.34.1
: 10.10.1.9 | : 10.10.1.254
Cant Read [ /etc/named.conf ]
daemon
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
README
+ Create Folder
+ Create File
/
usr /
share /
doc /
libcairo-perl /
examples /
png /
[ HOME SHELL ]
Name
Size
Permission
Action
bevels.pl
6
KB
-rw-r--r--
caps_joins.pl
1.41
KB
-rw-r--r--
hering.pl
1.15
KB
-rw-r--r--
outline.pl
2.07
KB
-rw-r--r--
README
165
B
-rw-r--r--
snapping.pl
9.08
KB
-rw-r--r--
spiral.pl
895
B
-rw-r--r--
spline-pipeline.pl
2.46
KB
-rw-r--r--
splines_tolerance.pl
1018
B
-rw-r--r--
star_and_ring.pl
4.62
KB
-rw-r--r--
stars.pl
1.06
KB
-rw-r--r--
text.pl
3.12
KB
-rw-r--r--
text-rotate.pl
1.85
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : caps_joins.pl
#!/usr/bin/perl use strict; use warnings; use Cairo; use constant { WIDTH => 600, HEIGHT => 600, }; { my $surf = Cairo::ImageSurface->create ('argb32', WIDTH, HEIGHT); my $cr = Cairo::Context->create ($surf); $0 =~ /(.*)\.pl/; my $out = "$1.png"; $cr->rectangle (0, 0, WIDTH, HEIGHT); $cr->set_source_rgb (1, 1, 1); $cr->fill; draw_caps_joins ($cr, WIDTH, HEIGHT); $cr->show_page; $surf->write_to_png ($out); } sub stroke_v_twice { my ($cr, $width, $height) = @_; $cr->move_to (0, 0); $cr->rel_line_to ($width / 2, $height / 2); $cr->rel_line_to ($width / 2, - $height / 2); $cr->save; $cr->stroke; $cr->restore; $cr->save; { $cr->set_line_width (2.0); $cr->set_line_cap ('butt'); $cr->set_source_rgb (1, 1, 1); $cr->stroke; } $cr->restore; $cr->new_path; } sub draw_caps_joins { my ($cr, $width, $height) = @_; my $line_width = $height / 12 & (~1); $cr->set_line_width ($line_width); $cr->set_source_rgb (0, 0, 0); $cr->translate ($line_width, $line_width); $width -= 2 * $line_width; $cr->set_line_join ('bevel'); $cr->set_line_cap ('butt'); stroke_v_twice ($cr, $width, $height); $cr->translate (0, $height / 4 - $line_width); $cr->set_line_join ('miter'); $cr->set_line_cap ('square'); stroke_v_twice ($cr, $width, $height); $cr->translate (0, $height / 4 - $line_width); $cr->set_line_join ('round'); $cr->set_line_cap ('round'); stroke_v_twice ($cr, $width, $height); }
Close