218 lines
14 KiB
Plaintext
218 lines
14 KiB
Plaintext
import "scaling.asy" as scaling;
|
|
|
|
void count_of_cards(picture p, pen fg) {
|
|
void pclip(guide pth) {
|
|
clip(p, shift(-width/2,-height/2)*pth);
|
|
}
|
|
|
|
void pfill(guide pth) {
|
|
fill(p, shift(-width/2,-height/2)*pth, fg);
|
|
}
|
|
|
|
void pfill(path pth[]) {
|
|
fill(p, shift(-width/2,-height/2)*pth, fg);
|
|
}
|
|
|
|
// finger clip
|
|
pclip((103.285,226.09)--(103.328,232.602)..controls (103.328,232.602) and (103.5,234.191)..(104.098,234.547)
|
|
..controls (104.48,234.77) and (105.055,234.641)..(105.418,234.383)
|
|
..controls (106.098,233.898) and (106.52,232.129)..(106.52,232.129)
|
|
--(106.527,225.949)--(113.855,225.813)--(113.918,246.52)
|
|
--(97.8672,246.582)--(98.4844,226.156)--cycle);
|
|
|
|
|
|
pfill((103.082,197.922)..controls (103.082,197.922) and (102.113,200.516)..(101.844,201.867)
|
|
..controls (101.512,203.547) and (101.418,205.273)..(101.395,206.984)
|
|
..controls (101.375,208.434) and (101.484,209.883)..(101.656,211.32)
|
|
..controls (101.727,211.895) and (101.809,212.469)..(101.965,213.02)
|
|
..controls (102.219,213.91) and (102.984,215.602)..(102.984,215.602)
|
|
--(103.336,217.145)--(103.543,232.656)..controls (103.543,232.656) and (103.715,234.043)..(104.238,234.355)
|
|
..controls (104.535,234.527) and (104.98,234.434)..(105.262,234.234)
|
|
..controls (105.883,233.785) and (106.242,232.152)..(106.242,232.152)
|
|
--(106.219,216.918)--(104.09,216.141)--(108.305,217.367)
|
|
--(109.813,216.969)--(109.332,216.262)..controls (109.332,216.262) and (110.512,212.852)..(110.551,211.074)
|
|
..controls (110.578,210) and (109.957,207.902)..(109.957,207.902)
|
|
..controls (109.957,207.902) and (109.84,209.332)..(109.766,210.043)
|
|
..controls (109.668,210.945) and (109.699,211.875)..(109.426,212.738)
|
|
..controls (109.125,213.684) and (108.883,214.867)..(108.023,215.359)
|
|
..controls (107.375,215.73) and (105.789,215.277)..(105.789,215.277)
|
|
..controls (105.789,215.277) and (107.363,215.445)..(107.973,215.035)
|
|
..controls (108.711,214.543) and (109.254,212.699)..(109.254,212.699)
|
|
--(109.73,207.82)..controls (109.73,207.82) and (109.016,206.699)..(108.453,206.711)
|
|
..controls (107.98,206.723) and (107.422,207.691)..(107.422,207.691)
|
|
--(106.992,211.371)..controls (106.992,211.371) and (106.434,212.434)..(105.918,212.547)
|
|
..controls (105.273,212.691) and (104.09,211.793)..(104.09,211.793)
|
|
..controls (104.09,211.793) and (105.199,212.168)..(105.688,211.949)
|
|
..controls (106.117,211.762) and (106.48,211.152)..(106.523,210.82)
|
|
--(106.945,207.695)..controls (107.066,206.789) and (106.309,204.98)..(106.309,204.98)
|
|
--(106.992,201.652)--(106.648,204.984)--(107.402,206.777)
|
|
..controls (107.402,206.777) and (108.063,206.238)..(108.445,206.27)
|
|
..controls (109.074,206.328) and (109.98,207.379)..(109.98,207.379)
|
|
..controls (109.98,207.379) and (110.34,208.18)..(110.445,208.605)
|
|
..controls (110.676,209.535) and (110.801,211.457)..(110.801,211.457)
|
|
--(109.605,216.355)..controls (109.605,216.355) and (110.219,217.41)..(110.75,217.555)
|
|
..controls (111.293,217.703) and (112.375,217.105)..(112.375,217.105)
|
|
..controls (112.375,217.105) and (113.715,212.871)..(113.867,210.676)
|
|
..controls (114.008,208.578) and (113.727,206.449)..(113.293,204.395)
|
|
..controls (112.977,202.883) and (112.336,201.461)..(111.82,200.004)
|
|
..controls (111.262,198.43) and (110.059,195.305)..(110.059,195.305)
|
|
..controls (110.059,195.305) and (109.164,192.789)..(108.551,191.613)
|
|
..controls (107.93,190.422) and (106.367,188.227)..(106.367,188.227)
|
|
--(101.094,191.605)..controls (101.094,191.605) and (102.539,193.98)..(102.895,195.305)
|
|
..controls (103.121,196.152) and (103.082,197.922)..(103.082,197.922)
|
|
--cycle);
|
|
pfill((108.043,226.168)--(106.352,226.164)--(106.316,216.859)
|
|
--(107.926,217.348)--cycle);
|
|
pfill((99.5195,191.504)--(107.18,186.832)--(105.055,184.047)
|
|
--(97.5352,188.602)--cycle^^(96.5664,188.785)--(97.7734,190.363)
|
|
--(91.0352,212.984)--(95.1289,215.895)--(90.8047,218.234)
|
|
--(94.1563,223.543)..controls (94.1563,223.543) and (87.1328,223.648)..(83.6836,223.105)
|
|
..controls (80.875,222.668) and (77.7344,222.551)..(75.4648,220.84)
|
|
..controls (71.3086,217.715) and (68.9648,212.473)..(67.3203,207.539)
|
|
..controls (64.9727,200.488) and (65.2383,185.344)..(65.2383,185.344)
|
|
--(63.4375,164.863)..controls (63.4375,164.863) and (66.1641,156.422)..(69.6992,154.441)
|
|
..controls (72.2031,153.043) and (75.5898,153.586)..(78.3047,154.52)
|
|
..controls (81.8477,155.734) and (87.2305,161.344)..(87.2305,161.344)
|
|
--(106.461,182.973)--(105.648,183.344)--(107.918,187.063)
|
|
--(99.3672,192.305)--(96.5859,188.492)--(95.3984,189.223)
|
|
--(77.5117,172.465)--(73.6406,161.082)--(77.0313,173.246)
|
|
--(79.3984,201.207)--(83.5742,209.949)--(80.0078,200.777)
|
|
--(77.4883,173.336)--(95.3164,189.492)--cycle);
|
|
pfill((113.379,234.379)..controls (113.379,234.379) and (115.535,237.82)..(116.281,239.695)
|
|
..controls (117.98,243.977) and (119.152,248.5)..(119.789,253.063)
|
|
..controls (120.27,256.484) and (120.461,260)..(120.012,263.426)
|
|
..controls (119.762,265.363) and (118.387,269.063)..(118.387,269.063)
|
|
--(119.887,272.801)--(118.195,272.164)--(117.48,274.246)
|
|
--(114.43,271.066)--(114.617,272.047)--(113.988,270.91)
|
|
--(112.816,270.453)--(113.016,271.5)--(112.508,270.441)
|
|
--(111.578,270.273)--(111.602,271.379)--(111.18,270.246)
|
|
--(111.277,271.043)--(110.652,270.195)--(109.336,269.965)
|
|
--(109.465,270.789)--(109.027,269.918)--(107.93,269.809)
|
|
--(107.996,270.941)--(107.504,269.758)--(104.617,269.555)
|
|
--(104.777,270.664)--(104.176,269.539)--(103.43,269.68)
|
|
--(103.844,270.953)--(103.133,269.75)--(103.469,270.797)
|
|
--(102.668,269.898)--(101.281,270.242)--(101.664,271.141)
|
|
--(100.887,270.34)--(101.27,271.449)--(100.504,270.453)
|
|
--(98.957,271.055)--(99.5781,272.082)--(98.6445,271.203)
|
|
--(97.9297,271.445)--(98.5664,272.59)--(97.6016,271.52)
|
|
--(97.0195,271.594)..controls (97.0195,271.594) and (92.2266,272.762)..(90.4023,274.297)
|
|
..controls (89.3047,275.223) and (88.6094,276.598)..(88.1211,277.949)
|
|
..controls (86.3398,282.852) and (85.9688,293.445)..(85.9688,293.445)
|
|
..controls (85.9688,293.445) and (84.043,281.703)..(85.2539,276.016)
|
|
..controls (85.7109,273.867) and (86.6484,271.688)..(88.1836,270.117)
|
|
..controls (89.8086,268.453) and (94.3594,266.859)..(94.3594,266.859)
|
|
..controls (94.3594,266.859) and (92.6875,264.004)..(92.3477,262.414)
|
|
..controls (91.6406,259.117) and (91.918,255.641)..(92.3789,252.301)
|
|
..controls (93.0195,247.641) and (94.332,243.039)..(96.1406,238.695)
|
|
..controls (96.7539,237.215) and (98.5234,234.52)..(98.5234,234.52)
|
|
--(98.4375,244.82)..controls (98.4375,244.82) and (98.6563,245.672)..(98.9297,245.996)
|
|
..controls (99.1406,246.242) and (99.7617,246.508)..(99.7617,246.508)
|
|
--(112.297,246.473)..controls (112.297,246.473) and (112.898,246.168)..(113.102,245.91)
|
|
..controls (113.273,245.688) and (113.406,245.121)..(113.406,245.121)
|
|
--cycle);
|
|
pfill((116.102,273.07)..controls (116.102,273.07) and (114.305,275.055)..(113.113,275.574)
|
|
..controls (111.109,276.453) and (108.785,276.496)..(106.598,276.414)
|
|
..controls (104.082,276.32) and (101.559,275.777)..(99.1992,274.891)
|
|
..controls (97.6211,274.297) and (94.7969,272.395)..(94.7969,272.395)
|
|
--(95.0859,272.246)..controls (95.0859,272.246) and (97.7422,274.098)..(99.2422,274.672)
|
|
..controls (101.559,275.559) and (104.051,276.078)..(106.531,276.18)
|
|
..controls (108.707,276.27) and (111.016,276.25)..(113.016,275.391)
|
|
..controls (114.188,274.887) and (115.969,272.949)..(115.969,272.949)
|
|
--cycle);
|
|
pfill((101.039,271.563)..controls (101.039,271.563) and (101.879,273.918)..(102.77,274.723)
|
|
..controls (103.07,274.992) and (103.492,275.109)..(103.887,275.191)
|
|
..controls (104.152,275.25) and (104.699,275.207)..(104.699,275.207)
|
|
..controls (104.699,275.207) and (103.406,274.941)..(102.914,274.543)
|
|
..controls (102.004,273.801) and (101.742,272.531)..(101.039,271.563)
|
|
--cycle);
|
|
pfill((104.801,270.348)..controls (104.801,270.348) and (105.398,273.121)..(106.199,274.246)
|
|
..controls (106.551,274.734) and (107.09,275.078)..(107.617,275.371)
|
|
..controls (107.906,275.531) and (108.547,275.703)..(108.547,275.703)
|
|
..controls (108.547,275.703) and (106.945,274.871)..(106.398,274.188)
|
|
..controls (105.531,273.105) and (105.465,271.691)..(104.801,270.348)
|
|
--cycle);
|
|
pfill((108.148,270.703)..controls (108.148,270.703) and (108.402,273.164)..(109.137,274.074)
|
|
..controls (109.539,274.574) and (110.238,274.746)..(110.832,274.996)
|
|
..controls (111.082,275.102) and (111.613,275.234)..(111.613,275.234)
|
|
..controls (111.613,275.234) and (109.926,274.625)..(109.363,273.969)
|
|
..controls (108.609,273.086) and (108.148,270.703)..(108.148,270.703)
|
|
--cycle);
|
|
pfill((93.0625,267.191)--(92.0273,261.695)..controls (92.0273,261.695) and (92.0977,263.617)..(92.2422,264.563)
|
|
..controls (92.3789,265.473) and (92.8633,267.246)..(92.8633,267.246)
|
|
--cycle);
|
|
pfill((118.625,269.141)--(120.102,264.195)--(118.883,269.527)
|
|
--cycle);
|
|
pfill((98.5,224.551)--(94.4219,223.473)--(91.0898,218.383)
|
|
--(95.5547,215.957)--(91.3789,212.863)--(98.0742,191.125)
|
|
--(99.3672,192.836)--(100.762,192.047)--(97.0273,220.957)
|
|
--cycle);
|
|
pfill((114.367,210.965)--(113.957,212.289)--(115.039,221.035)
|
|
--(113.566,224.625)--(117.645,223.551)--(120.977,218.457)
|
|
--(116.512,216.031)--(120.688,212.941)--(106.648,163.625)
|
|
..controls (106.777,169.84) and (113.766,196.402)..(113.875,204.035)
|
|
--cycle);
|
|
pfill((98.5156,224.648)--(98.1836,224.574)--(98.9297,227.625)
|
|
--(98.9922,227.035)--cycle);
|
|
pfill((103.203,217.188)--(102.73,225.66)--(101.648,226.227)
|
|
--(101.371,226.18)--(102.402,225.563)--(102.16,221.063)
|
|
--(98.668,224.695)--(98.6328,224.438)--(102.301,220.699)
|
|
--(102.621,225.309)--(103.078,216.801)--cycle);
|
|
pfill((113.551,224.691)--(113.883,224.617)--(113.137,227.672)
|
|
--(113.074,227.082)--cycle);
|
|
pfill((110.379,226.27)--(110.727,226.254)--(109.66,225.609)
|
|
--(109.906,221.105)--(113.398,224.742)--(113.434,224.484)
|
|
--(109.766,220.746)--(109.445,225.355)--(108.918,217.332)
|
|
--(108.773,217.402)--(109.281,225.66)--cycle);
|
|
pfill((104.488,180.508)--(106.766,167.203)--(102.852,178.652)
|
|
--cycle);
|
|
pfill((102.598,178.137)--(106.582,166.707)--(106.27,164.133)
|
|
..controls (106.27,164.133) and (104.344,157.867)..(103.895,154.633)
|
|
..controls (103.395,151.063) and (103.539,143.82)..(103.539,143.82)
|
|
--(104.434,127.863)--(78.9805,131.43)--(78.7109,153.891)
|
|
..controls (78.7109,153.891) and (82.5352,156.242)..(84.2109,157.719)
|
|
..controls (91.0781,163.781) and (102.598,178.137)..(102.598,178.137)
|
|
--cycle);
|
|
pfill((136.863,178.516)--(135.297,187.859)--(133.809,197.41)
|
|
--(132.227,204.008)--(132.879,197.473)--(132.352,130.918)
|
|
--(104.906,128.172)..controls (104.906,128.172) and (103.379,145.25)..(104.258,153.727)
|
|
..controls (104.574,156.766) and (106.367,162.648)..(106.367,162.648)
|
|
--(107.145,163.766)--(121.074,213.027)--(116.961,216.016)
|
|
--(121.371,218.422)--(118.098,223.27)..controls (118.098,223.27) and (126.023,223.324)..(129.918,222.684)
|
|
..controls (133.152,222.152) and (136.832,222.055)..(139.383,219.992)
|
|
..controls (142.879,217.168) and (144.371,212.379)..(145.711,208.09)
|
|
..controls (148.957,197.684) and (149.52,175.609)..(149.52,175.609)
|
|
..controls (149.52,175.609) and (147.574,170.664)..(145.863,168.699)
|
|
..controls (142.492,164.824) and (133.371,159.68)..(133.371,159.68)
|
|
--(133.512,174.23)--(136.609,177.996)--(142.348,173.789)
|
|
--cycle);
|
|
pfill((83.4297,78.2578)..controls (83.6953,60.7773) and (83.1484,25.8164)..(83.1484,25.8164)
|
|
--(101.34,26.2031)..controls (101.34,26.2031) and (101.375,56.3672)..(102.527,71.3906)
|
|
..controls (102.891,76.1445) and (104.336,85.582)..(104.336,85.582)
|
|
--(105.422,107.16)--(108,85.4844)..controls (108,85.4844) and (109.555,75.8789)..(109.836,71.0313)
|
|
..controls (110.684,56.4375) and (109.391,27.1719)..(109.391,27.1719)
|
|
--(127.727,26.3555)..controls (127.727,26.3555) and (128.328,62.1602)..(128.496,80.0625)
|
|
..controls (128.563,87.3398) and (128.348,94.6172)..(128.59,101.887)
|
|
..controls (128.906,111.242) and (130.352,129.91)..(130.352,129.91)
|
|
--(104.676,127.008)--(80.6445,130.746)..controls (80.6445,130.746) and (82.0273,113.184)..(82.4922,104.391)
|
|
..controls (82.9531,95.6836) and (83.2969,86.9727)..(83.4297,78.2578)
|
|
--cycle);
|
|
pfill((98.832,25.7227)--(86.6133,25.5469)--(86.875,15.1953)
|
|
..controls (86.875,15.1953) and (90.8438,17.1953)..(92.6523,17.2695)
|
|
..controls (94.5234,17.3477) and (98.9219,15.0547)..(98.9219,15.0547)
|
|
--cycle);
|
|
pfill((86.1055,13.5078)..controls (84.9414,11.9844) and (85.082,6.90234)..(85.082,6.90234)
|
|
--(100.508,6.83984)..controls (100.508,6.83984) and (100.957,11.7109)..(99.8867,13.2969)
|
|
..controls (98.5078,15.3359) and (95.3672,16.957)..(92.6758,16.9375)
|
|
..controls (90.2031,16.9219) and (87.5469,15.3945)..(86.1055,13.5078)
|
|
--cycle);
|
|
pfill((118.152,17.4336)..controls (120.105,17.418) and (123.605,15.3047)..(123.605,15.3047)
|
|
--(124.238,26.125)--(112.488,26.4961)--(112.641,15.3789)
|
|
..controls (112.641,15.3789) and (116.191,17.4492)..(118.152,17.4336)
|
|
--cycle);
|
|
pfill((110.762,12.6875)..controls (109.594,11.2109) and (110.328,7.20313)..(110.328,7.20313)
|
|
--(125.316,7.21484)..controls (125.316,7.21484) and (126.199,11.6016)..(124.945,13.3125)
|
|
..controls (123.723,14.9766) and (120.625,16.9844)..(118.023,16.9258)
|
|
..controls (115.223,16.8594) and (112.25,14.5664)..(110.762,12.6875)
|
|
--cycle);
|
|
}
|