Artifact 92e540e2fff6fba7b8d33465343259ceab7c3c6f:

• File canvas-draw/racket/main.rkt — part of check-in [ed10f826ff] at 2011-01-30 17:39:09 on branch trunk — Re-ran configure in ffcall and imported canvas-draw source (user: matt, size: 281) [annotate] [blame] [check-ins using]

0000: 23 6c 61 6e 67 20 72 61 63 6b 65 74 2f 62 61 73  #lang racket/bas
0010: 65 0a 28 72 65 71 75 69 72 65 0a 20 22 62 61 73  e.(require. "bas
0020: 65 2e 72 6b 74 22 20 22 70 72 69 6d 69 74 69 76  e.rkt" "primitiv
0030: 65 73 2e 72 6b 74 22 20 22 70 6c 61 79 2e 72 6b  es.rkt" "play.rk
0040: 74 22 29 0a 0a 28 70 72 6f 76 69 64 65 0a 20 28  t")..(provide. (
0050: 65 78 63 65 70 74 2d 6f 75 74 20 28 61 6c 6c 2d  except-out (all-
0060: 66 72 6f 6d 2d 6f 75 74 20 22 62 61 73 65 2e 72  from-out "base.r
0070: 6b 74 22 29 0a 20 20 20 20 20 20 20 20 20 20 20  kt").           
0080: 20 20 5f 63 61 6e 76 61 73 20 5f 63 61 6e 76 61    _canvas _canva
0090: 73 2f 6e 75 6c 6c 0a 20 20 20 20 20 20 20 20 20  s/null.         
00a0: 20 20 20 20 5f 63 6f 6e 74 65 78 74 20 5f 63 6f      _context _co
00b0: 6e 74 65 78 74 2f 6e 75 6c 6c 0a 20 20 20 20 20  ntext/null.     
00c0: 20 20 20 20 20 20 20 20 5f 73 74 61 74 65 20 5f          _state _
00d0: 73 74 61 74 65 2f 6e 75 6c 6c 29 0a 20 28 61 6c  state/null). (al
00e0: 6c 2d 66 72 6f 6d 2d 6f 75 74 20 22 70 72 69 6d  l-from-out "prim
00f0: 69 74 69 76 65 73 2e 72 6b 74 22 29 0a 20 28 61  itives.rkt"). (a
0100: 6c 6c 2d 66 72 6f 6d 2d 6f 75 74 20 22 70 6c 61  ll-from-out "pla
0110: 79 2e 72 6b 74 22 29 29 0a                       y.rkt")).