#!/usr/bin/perl
#
# This script generates an SVG card deck suitable for KDE
# card games.
# Currently developed to generate a deck for lskat from a public domain image.
#

my $year = 2009;
my $author = "Luciano Montanaro <mikelima@cirulla.net>";

# Width and height of the card board
my $boardwidth = 1024;
my $boardheight = 804;

# Width and height of each card
my $width = 128;
my $height = 201;

# corner radius
my $cradius = 7; 

# offset from card border to pattern border
my $xoff = 5;
my $yoff = 6;

# width and height of card figure
my $figwidth = $width - 2 * $xoff;
my $figheight = $height - 2 * $yoff;

# The source image
my $image = $ARGV[0];

my @suits = ("heart", "diamond", "spade", "club");

# A Skat deck only has cards down to 7. The Ace is really the Queen, King is
# itself, queen is high knave, jack is low knave. I guess.
my @cardnames = ("1", "king", "queen", "jack", "10", "9", "8", "7");

my $viewwidth =  @cardnames * $width;
my $viewheight = (1 + @suits) * $height;

my $ratiox = 1;
my $ratioy = 1;

print <<EOF;
<?xml version="1.0" encoding="UTF-8" standalone="no"?>
<!--

Copyright $year $author

This program is free software: you can redistribute it and/or modify it under
the terms of the Lesser GNU General Public License as published by the Free
Software Foundation, either version 3 of the License, or (at your option) any
later version.

This program is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A
PARTICULAR PURPOSE.  See the GNU Lesser General Public License for more
details.

You should have received a copy of the GNU Lesser General Public License along
with this program.  If not, see <http://www.gnu.org/licenses/>.

-->
<svg
xmlns:dc="http://purl.org/dc/elements/1.1/"
xmlns:cc="http://creativecommons.org/ns#"
xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
xmlns:svg="http://www.w3.org/2000/svg"
xmlns="http://www.w3.org/2000/svg"
xmlns:xlink="http://www.w3.org/1999/xlink"
id="deck" width="$viewwidth" height="$viewheight" 
viewBox="0 0 $viewwidth $viewheight"
>
<metadata>
<!--
<rdf:RDF>
<cc:Work rdf:about="">
<dc:format>image/svg+xml</dc:format>
<dc:type rdf:resource="http://purl.org/dc/dcmitype/StillImage" />
</cc:Work>
</rdf:RDF>
-->
</metadata>
<defs>
<!-- Gradients, for the shading -->
<linearGradient id="shadow-gradient" >
<stop offset="0" style="stop-color:#000;stop-opacity:0.15" />
<stop offset="0.7" style="stop-color:#fff;stop-opacity:0" />
<stop offset="1" style="stop-color:#000;stop-opacity:0.1" />
</linearGradient>
<linearGradient id="back-shadow-gradient" >
<stop offset="0" style="stop-color:#000;stop-opacity:0.1" />
<stop offset="0.3" style="stop-color:#fff;stop-opacity:0.3" />
<stop offset="1" style="stop-color:#000;stop-opacity:0.2" />
</linearGradient>
<linearGradient id="texture-gradient" x1="0%" x2="5%" spreadMethod="repeat">
<stop offset="0" style="stop-color:#000;stop-opacity:0.1" />
<stop offset="0.3" style="stop-color:#fff;stop-opacity:0.2" />
<stop offset="0.5" style="stop-color:#000;stop-opacity:0.1" />
<stop offset="0.7" style="stop-color:#fff;stop-opacity:0.1" />
<stop offset="1" style="stop-color:#000;stop-opacity:0.1" />
</linearGradient>
<!-- The card outline -->
<g id="card-outline">
<rect width="$width" x="0.4" y="0.4" rx="$cradius" height="$height" 
style="fill:white;stroke:#999;stroke-width:0.8" />
</g>
<g id="card-shadow">
<rect width="$width" x="0.1" y="0.1" rx="$cradius" height="$height" 
style="fill:url(#shadow-gradient);stroke:none" />
<rect width="$width" x="0.1" y="0.1" rx="$cradius" height="$height" 
style="fill:url(#texture-gradient);stroke:none" />
</g>
<g id="back-shadow">
<rect width="$width" x="0.1" y="0.1" rx="$cradius" height="$height" 
style="fill:url(#back-shadow-gradient);stroke:none" />
<rect width="$width" x="0.1" y="0.1" rx="$cradius" height="$height" 
style="fill:url(#texture-gradient);stroke:none" />
</g>
<pattern patternUnits="userSpaceOnUse" width="$boardwidth" height="$boardheight" id="cardboard">
<image y="0" x="0" width="$boardwidth" height="$boardheight" xlink:href="$image" />
</pattern>
EOF

# generate all patterns: for each suit and each card name generate a pattern
# based on the card board.
for ($j = 0; $j < @suits; $j++) {
	for ($i = 0; $i < @cardnames; $i++) {
		my $cardid = "$suits[$j]_$cardnames[$i]";
		my $x = $i * $width + $xoff;
		my $y = $j * $height + $yoff;
		print "<pattern patternUnits=\"userSpaceOnUse\" xlink:href=\"#cardboard\"\n";
		print "width=\"$boardwidth\" height=\"$boardheight\" id=\"pat$cardid\"\n";
		#print "patternTransform=\"translate(-$x,-$y) scale($ratiox,$ratioy)\"/>\n";
		print "patternTransform=\"translate(-$x,-$y)\"/>\n";
	}
}

print <<EOF;
<g id="figure">
<rect width="$figwidth" height="$figheight" style="fill:inherit;stroke:none" />
</g>
<!-- The K-gear logo, for the firm logo on the ace of hearts -->
<g id="k-logo" transform="scale(0.03555)">
<polygon
points="95.6421,148.227
95.6421,30.5293
124.227,27.793
123.924,79.4941
161.637,29.0107
192.047,36.0029
152.814,86.4878
191.742,140.015
161.939,149.445
123.924,93.7866
123.924,143.968
95.6421,148.227
" />
<path
d="
M163.82,156.836
L161.351,157.618
C160.99,157.731 160.598,157.596 160.386,157.283
C160.386,157.283 155.514,150.153 149.223,140.946
C141.702,155.665 126.401,165.747 108.732,165.747
C83.6294,165.747 63.2773,145.394 63.2773,120.29
C63.2773,101.822 74.293,85.9395 90.106,78.8247
L90.106,67.0986
C87.228,68.1055 84.4463,69.3188 81.8037,70.7583
C81.8013,70.7563 81.7978,70.7515 81.7905,70.7476
L60.3784,56.7046
C59.8013,56.3276 59.0415,56.4058 58.5566,56.894
L47.3379,68.1108
C46.8662,68.584 46.7773,69.3188 47.125,69.8916
L60.2593,91.5229
C57.9297,95.4394 56.064,99.6626 54.7295,104.117
L30.6157,109.133
C29.9448,109.272 29.4614,109.866 29.4614,110.555
L29.4614,126.417
C29.4614,127.088 29.9194,127.669 30.5659,127.826
L53.9702,133.546
C55.2183,138.706 57.1528,143.597 59.709,148.092
L46.1626,168.75
C45.7847,169.328 45.8638,170.088 46.352,170.575
L57.5674,181.792
C58.0391,182.262 58.7754,182.353 59.3506,182.007
L80.5786,169.115
C84.7485,171.521 89.2456,173.415 93.9985,174.699
L98.9512,198.513
C99.0908,199.188 99.688,199.668 100.372,199.668
L116.237,199.668
C116.904,199.668 117.485,199.213 117.645,198.559
L123.479,174.695
C128.379,173.373 133.013,171.402 137.284,168.886
L158.204,182.604
C158.779,182.983 159.539,182.907 160.027,182.418
L171.246,171.202
C171.721,170.727 171.807,169.994 171.458,169.422
L163.82,156.836z " />
</g>
<g id="k-logo-big" transform="scale(0.0425)" >
<path
d="
M 76.0205,20.674
L100.121,18.9199
C100.121,33.4105 100.121,47.8248 100.121,62.239
C109.73,47.7485 120.407,33.3342 132.456,19.3775
L158.311,25.9364
C146.719,38.8254 134.897,53.1634 125.441,67.5014
C134.517,82.7546 144.507,96.7124 157.854,112.575
L132.916,119.972
C118.959,104.338 110.57,89.3135 100.121,73.1451
L100.121,116.083
L76.0205,119.135
L76.0205,20.674
L76.0205,20.674z " />
<path
d="
M100.35,139.803
C114.46,136.827 110.875,132.557 122.39,139.269
L129.865,144.53
C131.239,145.217 132.535,146.438 133.831,145.14
C136.653,142.471 139.399,139.726 142.22,137.057
C143.441,135.76 142.22,134.309 141.61,133.319
L141.533,133.319
L136.119,125.617
L132.534,126.915
C131.62,127.525 130.398,127.219 129.332,125.771
L121.4,115.398
C114.078,125.541 102.257,132.1 88.8342,132.1
C66.7181,132.1 48.7193,114.103 48.7193,91.9849
C48.7193,76.2741 57.795,62.6225 70.9879,56.0636
L70.9879,46.8354
C70.5304,47.0642 70.0738,47.2167 69.6904,47.3693
C64.5053,49.5047 64.1992,50.4962 55.7337,45.6152
L48.2606,40.2765
C46.8868,39.6664 45.5903,38.3699 44.2948,39.6664
C41.473,42.412 38.7274,45.1576 35.9055,47.9031
C34.6853,49.1234 35.9818,50.6487 36.5157,51.6402
L42.2335,59.7244
L46.4292,65.6731
C47.0393,66.5121 47.2671,66.5883 46.9631,67.1985
C46.5828,67.8086 46.2767,68.3425 45.8953,68.9526
C40.3279,78.5621 44.2175,79.3248 32.32,82.4517
L23.2443,83.977
C21.8726,84.4346 20.0422,84.4346 19.9649,86.3413
C19.9649,90.2308 19.8886,94.1204 19.8886,98.01
C19.8123,99.7641 21.7963,99.9177 22.9403,100.222
L32.6272,101.976
L39.8724,103.273
C40.8639,103.427 41.0906,103.273 41.3204,104.035
C44.2959,116.924 48.1844,113.874 41.7007,125.085
L36.4394,132.635
C35.753,133.932 34.5317,135.229 35.8293,136.524
C38.5748,139.346 41.2431,142.094 43.9887,144.916
C45.2089,146.134 46.7343,144.839 47.7268,144.306
L55.8099,138.586
L61.835,134.466
C62.6749,133.78 62.7512,133.552 63.3613,133.932
C75.4103,141.484 75.8679,136.068 79.3762,148.805
L81.054,157.879
C81.5116,159.253 81.5879,161.007 83.4183,161.083
C87.3078,161.083 91.2737,161.083 95.1632,161.083
C96.9174,161.083 97.071,159.099 97.2987,157.955
L98.9766,148.194
L100.121,141.023
C100.197,140.337 100.197,140.029 100.35,139.803z
M114.917,133.701
C114.841,133.776 114.764,133.776 114.687,133.776
C114.764,133.776 114.764,133.701 114.841,133.701
L114.917,133.701z
M101.111,139.497
C100.883,139.573 100.577,139.65 100.349,139.803
C100.501,139.649 100.731,139.573 101.111,139.497z" />
<path
d="
M89.1393,129.202
C101.798,129.202 112.933,122.794 119.645,113.031
L119.187,112.27
C111.332,120.963 102.562,126.607 89.063,126.913
C72.2845,127.217 55.2771,112.193 55.1998,92.5156
C55.0483,79.8555 60.9198,71.3137 70.9106,65.2124
L70.9106,59.8737
C59.6995,66.2038 52.074,78.3301 52.074,92.1354
C52.074,112.497 68.6989,129.202 89.1393,129.202z" />
</g>
<g id="big-logo">
<use xlink:href="#k-logo-big" transform="translate(4.5, 4.5) scale(14, 14) translate(-4.5, -4.5)"/>
</g>
<!-- Cards -->
EOF

# generate all cards: for each suit and each card name generate a card
for ($j = 0; $j < @suits; $j++) {
	print "<!-- $suits[$j] suit -->\n";
	for ($i = 0; $i < @cardnames; $i++) {
		my $cardid = "$suits[$j]_$cardnames[$i]";
		print <<EOF
<g id="$cardid">
<use xlink:href="#card-outline" />
<use x="$xoff" y="$yoff" style="fill:url(#pat$cardid)" xlink:href="#figure" />
<!-- <rect x="$xoff" y="$yoff" width="$figwidth" height="$figheight" 
style="fill:none;stroke:black;" /> -->
<use xlink:href="#card-shadow" />
</g>
EOF
	}
}

print <<EOF;
<!-- Card groups, for easy displaying -->
EOF

# generate all suits (not strictly needed, but nice to see the cards when
# loading the deck in an editor)
for ($j = 0; $j < @suits; $j++) {
	print "<g id=\"$suits[$j]-suit\">\n";
	for ($i = 0; $i < @cardnames; $i++) {
		my $cardid = "$suits[$j]_$cardnames[$i]";
		my $x = $width * $i;
		print <<EOF;
<use x="$x" xlink:href="#$cardid" />
EOF
	}
	print "</g>\n";
}


my $boff = 4;
my $b2off = 6;
my $bwidth = $width - 2 * $boff;
my $bheight = $height - 2 * $boff;
my $bradius = $cradius - $boff;
my $b2width = $width - 2 * $b2off;
my $b2height = $height - 2 * $b2off;
my $b2radius = $cradius - $b2off;
my $cx = $width / 2;
my $cy = $height / 2;

print <<EOF;
<!-- Misc stuff: Card backs, jolly jokers... -->
<g id="back">
<use xlink:href="#card-outline"/>
<rect width="$b2width" height="$b2height" x="$b2off" y="$b2off" rx="$b2radius" style="fill:#04b;"/>
<rect width="$bwidth" x="$boff" y="$boff" rx="$bradius" height="$bheight" style="fill:none;stroke:#04b;stroke-width:1;"/>
<use x="$cx" y="$cy" style="fill:white;" xlink:href="#big-logo"/>
<use xlink:href="#back-shadow"/>
</g>
<g id="misc-cards">
<use x="0" xlink:href="#back"/>
</g>
</defs>
EOF

# generate suits for display
for ($j = 0; $j < @suits; $j++) {
	my $y = (0 + $height) * $j;
	print <<EOF;
<use y="$y" xlink:href="#$suits[$j]-suit"/>
EOF
}

my $y = $height * (@suits);
print <<EOF;
<use y="$y" xlink:href="#misc-cards"/>
</svg>
<!--
 vi: ts=4 sw=4 noautoindent
-->
EOF