123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164 |
- #!/usr/bin/perl
- use strict;
- use warnings;
- use GD::Simple;
- my $img = 'GD::Simple'->new(2503, 2500);
- $img->moveTo(540, 1980);
- my $nr = 360;
- foreach $_ (0 .. 410) {
- $img->fgcolor('purple');
- $img->turn(-90);
- $img->line(--$nr / 10);
- $img->turn(90);
- $img->line($nr);
- $img->turn(90);
- $img->line($nr / 10);
- $img->turn(90);
- $img->move($nr / 2);
- $img->turn(90);
- $img->move($nr / 10);
- $img->turn(-180);
- $img->line($nr);
- $img->turn(-90);
- $img->fgcolor('green');
- $img->move($nr / 1.5);
- $img->turn(-90);
- $img->line($nr);
- $img->turn(90);
- $img->line($nr / 2 - $nr / 10);
- $img->turn(45);
- $img->line($nr / 10);
- $img->turn(45);
- $img->line($nr / 2 - $nr / 10);
- $img->turn(45);
- $img->line($nr / 10);
- $img->turn(45);
- $img->line($nr / 2 - $nr / 10);
- $img->turn(-135);
- $img->line($nr / 2 + $nr / 4 - $nr / 10);
- $img->turn(-135);
- $img->line($nr / 10);
- $img->turn(180);
- $img->move($nr / 10);
- $nr -= $_;
- $img->fgcolor('black');
- $img->turn(-90);
- $img->move($nr / 4);
- $img->turn(-90);
- $img->line($nr);
- $img->move($nr / 10);
- $img->turn(180);
- $img->move($nr / 10 + 12 + 6);
- $img->turn(-90);
- $img->move($nr / 5);
- $img->line(12);
- $img->turn(180);
- $img->line(-12);
- $img->line(12);
- $img->turn(45);
- $img->line(-12);
- $img->turn(180);
- $img->line(12);
- $img->line(-12);
- $img->turn(45);
- $img->line(12);
- $img->turn(180);
- $img->line(-12);
- $img->line(12);
- $img->turn(45);
- $img->line(-12);
- $img->turn(180);
- $img->line(12);
- $img->line(-12);
- $img->turn(45);
- $img->line(12);
- $img->turn(180);
- $img->line(-12);
- $img->line(12);
- $img->turn(45);
- $img->line(-12);
- $img->turn(180);
- $img->line(12);
- $img->line(-12);
- $img->turn(45);
- $img->line(12);
- $img->turn(180);
- $img->line(-12);
- $img->line(12);
- $img->turn(45);
- $img->line(-12);
- $img->turn(180);
- $img->line(12);
- $img->line(-12);
- $nr += $_;
- $img->fgcolor('red');
- $img->turn(-45);
- $img->move($nr + 72);
- $img->turn(-90);
- $img->move($nr / 7);
- $img->turn(-65);
- $img->line($nr + $nr / 10);
- $img->turn(-115);
- $img->line($nr / 2);
- $img->turn(-90);
- $img->line($nr / 10);
- $img->turn(180);
- $img->move($nr / 10);
- $img->turn(155);
- $img->move($nr + $nr / 10);
- $img->turn(-155);
- $img->line($nr / 10);
- $img->turn(180);
- $img->move($nr / 10);
- $img->turn(90);
- $img->line($nr / 2 - $nr / 7 / 2);
- $img->turn(115);
- $img->move(($nr + $nr / 10) / 2);
- $img->turn(-115);
- $img->line($nr / 4);
- $img->turn(-90);
- $img->line($nr / 10);
- $img->turn(180);
- $img->move($nr / 10);
- $img->turn(90);
- $img->line($nr / 2);
- $img->turn(-90);
- $img->line($nr / 10);
- $img->fgcolor('orange');
- $img->turn(180);
- $img->move($nr / 2 + $nr / 10);
- $img->turn(-90);
- $img->move($nr / 5);
- $img->turn(-90);
- $img->line($nr);
- $img->turn(90);
- $img->line($nr / 2);
- $img->turn(90);
- $img->move($nr / 2);
- $img->turn(90);
- $img->line($nr / 2);
- $img->turn(-90);
- $img->move($nr / 2);
- $img->line($nr / 2);
- $img->fgcolor('blue');
- $img->turn(0);
- $img->move($nr / 4);
- $img->turn(-90);
- $img->line($nr);
- $img->turn(155);
- $img->line($nr + $nr / 10);
- $img->turn(-155);
- $img->line($nr);
- }
- my $image_name = 'trizen_text_art.png';
- open my $fh, '>:raw', $image_name or die $!;
- print $fh $img->png;
- close $fh;
|