prelude.mbed.scm


1
2
3
4
5
6
7
8
9
10
11
12
13

(define-cfunc mbed-wait-ms)

(define-cfunc c12832-cls)
(define-cfunc c12832-print)
(define-cfunc c12832-pixel)
(define-cfunc c12832-fillcircle)

(define-cfunc joystick-active?)

(set! display
  (lambda (x)
    (c12832-print '(0 . 0) (dump-s x))
    x))