Make Warfare a snowy winter map
[voretournament/voretournament.git] / data / particles / particlefont.pl
1 #!/usr/bin/perl\r
2 \r
3 use strict;\r
4 use warnings;\r
5 use POSIX qw/ceil floor/;\r
6 \r
7 # particlefont.txt generator for DarkPlaces\r
8 \r
9 # this is eval'ed to not fail if Image::Magick is not installed\r
10 my $magick =\r
11 eval q{\r
12         use Image::Magick;\r
13         Image::Magick->new();\r
14 }\r
15         or warn "Image::Magick not installed, not generating a TGA\n";\r
16 \r
17 sub checkmagick($)\r
18 {\r
19         my ($e) = @_;\r
20         die $e if $e;\r
21         return $e;\r
22 }\r
23 \r
24 my ($pixw, $pixh, $cols, $rows, $beamoffset, $beams) = @ARGV;\r
25 defined $beams\r
26         or die "Usage: $0 pixw pixh columns rows beamoffset beams\n";\r
27 \r
28 if($magick)\r
29 {\r
30         checkmagick $magick->Set(size => "${pixw}x${pixh}");\r
31         checkmagick $magick->ReadImage("xc:white");\r
32 }\r
33 \r
34 my $square_x = 1.0 / $cols;\r
35 my $square_y = 1.0 / $rows;\r
36 $rows -= $beams;\r
37 \r
38 my $dx = 1.0 / $pixw;\r
39 my $dy = 1.0 / $pixh;\r
40 \r
41 my $i = 0;\r
42 for my $row(0..$rows-1)\r
43 {\r
44         for my $col(0..$cols-1)\r
45         {\r
46                 my $s0 = $col * $square_x + $dx;\r
47                 my $s1 = ($col+1) * $square_x - $dx;\r
48                 my $t0 = $row * $square_y + $dy;\r
49                 my $t1 = ($row+1) * $square_y - $dy;\r
50                 print "$i $s0 $t0 $s1 $t1\n";\r
51                 if($magick)\r
52                 {\r
53                         checkmagick $magick->Draw(\r
54                                 fill => (($row + $col)%2 ? 'green' : 'cyan'),\r
55                                 primitive => 'rectangle',\r
56                                 points => sprintf "%d,%d %d,%d", ceil($s0 * $pixw), ceil($t0 * $pixh), floor($s1 * $pixw)-1, floor($t1 * $pixh)-1\r
57                         );\r
58                         checkmagick $magick->Annotate(\r
59                                 x => $s0 * $pixw + 2,\r
60                                 y => $t1 * $pixh - 2,\r
61                                 text => $i\r
62                         );\r
63                 }\r
64                 ++$i;\r
65         }\r
66 }\r
67 \r
68 $i = $beamoffset if $i < $beamoffset;\r
69 for my $beam(0..$beams-1)\r
70 {\r
71         my $s0 = 0;\r
72         my $s1 = 1;\r
73         my $row = $beam + $rows;\r
74         my $t0 = $row * $square_y + $dy;\r
75         my $t1 = ($row+1) * $square_y - $dy;\r
76         print "$i $s0 $t0 $s1 $t1\n";\r
77         if($magick)\r
78         {\r
79                 checkmagick $magick->Draw(\r
80                         fill => (($beam)%2 ? 'yellow' : 'red'),\r
81                         primitive => 'rectangle',\r
82                         points => sprintf "%d,%d %d,%d", ceil($s0 * $pixw), ceil($t0 * $pixh), floor($s1 * $pixw)-1, floor($t1 * $pixh)-1\r
83                 );\r
84                 checkmagick $magick->Annotate(\r
85                         x => $s0 * $pixw + 2,\r
86                         y => $t1 * $pixh - 2,\r
87                         text => $i\r
88                 );\r
89         }\r
90         ++$i;\r
91 }\r
92 \r
93 if($magick)\r
94 {\r
95         $magick->Write("particlefont-template.png");\r
96 }\r