Artifact
a2bd02e214c70ad6b978e5f84379582047956032:
0000: 28 72 65 71 75 69 72 65 2d 6c 69 62 72 61 72 79 (require-library
0010: 0a 09 63 61 6e 76 61 73 2d 64 72 61 77 2d 62 61 ..canvas-draw-ba
0020: 73 65 20 63 61 6e 76 61 73 2d 64 72 61 77 2d 70 se canvas-draw-p
0030: 72 69 6d 69 74 69 76 65 73 20 63 61 6e 76 61 73 rimitives canvas
0040: 2d 64 72 61 77 2d 70 6c 61 79 29 0a 0a 28 6d 6f -draw-play)..(mo
0050: 64 75 6c 65 20 63 61 6e 76 61 73 2d 64 72 61 77 dule canvas-draw
0060: 0a 09 28 29 0a 09 28 69 6d 70 6f 72 74 20 73 63 ..()..(import sc
0070: 68 65 6d 65 20 63 68 69 63 6b 65 6e 29 0a 09 28 heme chicken)..(
0080: 72 65 65 78 70 6f 72 74 0a 09 09 28 65 78 63 65 reexport...(exce
0090: 70 74 20 63 61 6e 76 61 73 2d 64 72 61 77 2d 62 pt canvas-draw-b
00a0: 61 73 65 0a 09 09 20 20 20 20 20 20 20 20 63 61 ase... ca
00b0: 6e 76 61 73 2d 3e 70 6f 69 6e 74 65 72 20 70 6f nvas->pointer po
00c0: 69 6e 74 65 72 2d 3e 63 61 6e 76 61 73 0a 09 09 inter->canvas...
00d0: 20 20 20 20 20 20 20 20 63 6f 6e 74 65 78 74 2d context-
00e0: 3e 70 6f 69 6e 74 65 72 20 70 6f 69 6e 74 65 72 >pointer pointer
00f0: 2d 3e 63 6f 6e 74 65 78 74 0a 09 09 20 20 20 20 ->context...
0100: 20 20 20 20 73 74 61 74 65 2d 3e 70 6f 69 6e 74 state->point
0110: 65 72 20 70 6f 69 6e 74 65 72 2d 3e 73 74 61 74 er pointer->stat
0120: 65 29 0a 09 09 63 61 6e 76 61 73 2d 64 72 61 77 e)...canvas-draw
0130: 2d 70 72 69 6d 69 74 69 76 65 73 0a 09 09 63 61 -primitives...ca
0140: 6e 76 61 73 2d 64 72 61 77 2d 70 6c 61 79 29 29 nvas-draw-play))
0150: 0a .