-
Notifications
You must be signed in to change notification settings - Fork 33
/
random_turtles.pl
executable file
·122 lines (99 loc) · 2.54 KB
/
random_turtles.pl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
#!/usr/bin/perl
use strict;
use warnings;
use GD::Simple;
#use ntheory ('is_prime');
print "** Generating image...\n";
my $img = 'GD::Simple'->new(10000, 6000);
$img->fgcolor('blue');
$img->moveTo(1000, 2000);
for (my $nr = 200 ; $nr <= 300 ; $nr += int rand 7) {
$img->fgcolor('white');
#$img->turn(-$nr);
#$img->line(300) if $nr < 100;
#$img->line($nr);
$img->line($nr * 2);
#$img->line( -$nr );
#$img->line($nr);
#if ( is_prime($nr) ) {
#$img->turn($nr);
#$img->turn($nr);
#$img->line( int rand -$nr );
#$img->turn( -$nr );
#$img->line( rand $nr );
#$img->line($nr);
#print "$nr\n";
foreach $_ (0 .. (rand(100)) + 30) {
$img->fgcolor('green');
$img->turn($nr);
$img->line(-$nr);
$img->line(-$nr);
$img->line(-$nr);
$img->line(-$nr);
$img->fgcolor('gray');
$img->turn(-$nr);
$img->line($nr);
$img->line($nr);
$img->line($nr);
$img->line($nr);
#$img->line(-$nr);
#$img->line($nr);
#$img->line(-$nr);
#$img->line($nr);
#$img->line($nr);
#$img->line($nr);
$img->fgcolor('blue');
$img->turn(-$nr);
$img->line($nr);
#$img->line($nr);
#$img->line($nr);
#$img->line($nr);
$img->fgcolor('purple');
$img->turn($nr);
#$img->line( $nr );
#$img->line( $nr );
$img->line(-$nr);
#$img->line(-$nr);
#$img->line( $nr );
$img->fgcolor('red');
$img->turn($nr);
#$img->line( -$nr );
#$img->line( $nr );
$img->line(-$nr);
#$img->line(-$nr);
#$img->line(-$nr);
#$img->line(-$nr);
#$img->line(-$nr);
#$img->line(-$nr);
}
#}
#$img->fgcolor('white');
#$img->turn(-$nr);
my $a = ($nr * (int rand 4)) + (int rand 2000) + 4000;
my $b = ($nr * (int rand 4)) + (int rand 1000) + 1000;
$img->moveTo($a, $b) if $nr =~ /5$/;
#$img->turn(-$nr);
#$img->turn(-$nr);
#$img->line(-$nr*5+100);
#$img->line(-$nr);
#$img->line(-$nr);
#$img->line(-$nr);
#$img->line(-$nr);
#$img->line($nr);
#$img->line(-$nr);
#$img->line(-$nr);
#$img->line(-$nr);
#$img->line(-$nr);
#$img->line(-$nr);
#$img->line($nr);
#$img->line($nr);
#$img->line($nr);
#$img->line($nr);
#$img->line($nr);
#$img->line($nr);
#$img->line($nr);
}
open(my $fh, '>:raw', 'random_turtles.png') or die $!;
print {$fh} $img->png;
close $fh;
print "** Done\n";