Commit d72f21ea authored by Dave Griffiths's avatar Dave Griffiths

tablet enlargement

parent 8d21a72c
......@@ -191,14 +191,14 @@
(let ((direction (card-to-direction card))
(colour (if (eq? (car (card-weave card)) "#") "black" "white")))
(ctx.drawImage (find-image (string-append "tabwarp-" direction "-" colour ".png"))
(+ (* i 7) 120) pos)))
(+ (* i 7) 280) pos)))
(card-loom-cards loom))
(index-for-each
(lambda (i card)
(let ((direction (card-to-direction card))
(colour (if (eq? (cadr (card-weave card)) "#") "black" "white")))
(ctx.drawImage (find-image (string-append "tabwarp-" direction "-" colour ".png"))
(+ (* i 7) 200) pos)))
(+ (* i 7) 450) pos)))
(card-loom-cards loom))
loom)
......@@ -344,6 +344,39 @@
(define loom
(card-loom
(list
(card "z"
"#" "#"
"." ".")
(card "z"
"#" "#"
"." ".")
(card "z"
"#" "#"
"." ".")
(card "z"
"#" "#"
"." ".")
(card "z"
"#" "#"
"." ".")
(card "z"
"#" "#"
"." ".")
(card "z"
"#" "#"
"." ".")
(card "z"
"#" "#"
"." ".")
(card "z"
"#" "#"
"." ".")
(card "z"
"#" "#"
"." ".")
(card "z"
"#" "#"
"." ".")
(card "z"
"#" "#"
"." ".")
......
......@@ -37,7 +37,7 @@
</div>
<canvas class="canvas" id="canvas" width="380" height="800"></canvas>
<canvas class="canvas" id="canvas" width="580" height="800"></canvas>
<script src="js/jquery-1.9.1.min.js"></script>
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment