procedure spade (xx, yy : int)
drawfilloval (113 + xx, 98 + yy, 12, 10, black)
Draw.ThickLine (113 + xx, 98 + yy, 113 + xx, 80 + yy, 7, black)
Draw.ThickLine (105 + xx, 79 + yy, 120 + xx, 79 + yy, 3, black)
drawline (100 + xx, 100 + yy, 113 + xx, 119 + yy, black)
drawline (113 + xx, 119 + yy, 126 + xx, 100 + yy, black)
drawline (126 + xx, 100 + yy, 100 + xx, 100 + yy, black)
drawfill (110 + xx, 110 + yy, black, black)
end spade
procedure diamond (xx, yy : int)
drawline (200 + xx, 200 + yy, 215 + xx, 220 + yy, black)
drawline (215 + xx, 220 + yy, 200 + xx, 240 + yy, black)
drawline (200 + xx, 240 + yy, 185 + xx, 220 + yy, black)
drawline (185 + xx, 220 + yy, 200 + xx, 200 + yy, black)
drawfill (200 + xx, 219 + yy, brightred, black)
end diamond
procedure heart (xx, yy : int)
Draw.FillArc (300 + xx, 300 + yy, 10, 10, 0, 180, brightred)
Draw.FillArc (320 + xx, 300 + yy, 10, 10, 0, 180, brightred)
drawline (290 + xx, 300 + yy, 310 + xx, 275 + yy, brightred)
drawline (310 + xx, 275 + yy, 330 + xx, 300 + yy, brightred)
drawline (330 + xx, 300 + yy, 290 + xx, 300 + yy, brightred)
drawfill (310 + xx, 285 + yy, brightred, brightred)
end heart
procedure club (xx, yy : int)
drawfilloval (400 + xx, 100 + yy, 7, 7, black)
drawfilloval (392 + xx, 90 + yy, 7, 7, black)
drawfilloval (408 + xx, 90 + yy, 7, 7, black)
Draw.ThickLine (400 + xx, 90 + yy, 400 + xx, 75 + yy, 5, black)
Draw.ThickLine (396 + xx, 74 + yy, 404 + xx, 74 + yy, 3, black)
end club
|