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 : text-rotate.pl
#!/usr/bin/perl use strict; use warnings; use Cairo; use constant { WIDTH => 450, HEIGHT => 900, NUM_STRINGS => 3, M_PI => 4 * atan2(1, 1), }; { my $surface = Cairo::ImageSurface->create ('argb32', WIDTH, HEIGHT); my $cr = Cairo::Context->create ($surface); $cr->set_source_rgb (0.0, 0.0, 0.0); $cr->translate (40, 40); $cr->select_font_face ('mono', 'normal', 'normal'); $cr->set_font_size (12); $cr->show_text ('+CTM rotation'); $cr->save; $cr->select_font_face ('serif', 'normal', 'normal'); $cr->set_font_size (40); for (my $i = 0; $i < NUM_STRINGS; $i++) { my $angle = $i * 0.5 * M_PI / (NUM_STRINGS - 1); $cr->save; $cr->rotate ($angle); $cr->move_to (100, 0); $cr->show_text ("Text"); $cr->restore; } $cr->restore; $cr->translate (0, HEIGHT / 3); $cr->move_to (0, 0); $cr->show_text ('+CTM rotation'); $cr->rel_move_to (0, 12); $cr->show_text ('-font rotation'); $cr->save; $cr->select_font_face ('serif', 'normal', 'normal'); $cr->set_font_size (40); for (my $i = 0; $i < NUM_STRINGS; $i++) { my $angle = $i * 0.5 * M_PI / (NUM_STRINGS - 1); $cr->save; $cr->rotate ($angle); my $matrix = Cairo::Matrix->init_identity; $matrix->scale (40, 40); $matrix->rotate (-$angle); $cr->set_font_matrix ($matrix); $cr->move_to (100, 0); $cr->show_text ('Text'); $cr->restore; } $cr->restore; $cr->translate (0, HEIGHT / 3); $cr->move_to (0, 0); $cr->show_text ('+CTM rotation'); $cr->rel_move_to (0, 12); $cr->show_text ('-CTM rotation'); $cr->save; $cr->select_font_face ('serif', 'normal', 'normal'); $cr->set_font_size (40); for (my $i = 0; $i < NUM_STRINGS; $i++) { my $angle = $i * 0.5 * M_PI / (NUM_STRINGS - 1); $cr->save; $cr->rotate ($angle); $cr->move_to (100, 0); $cr->rotate (-$angle); $cr->show_text ('Text'); $cr->restore; } $cr->restore; $surface->write_to_png ('text-rotate.png'); }
Close