I can run simple ulisp program but most of the pybadge code return error:
sample session, first part just demo it is basically work. I guess I might need the Arm 3.2?
12:13:48.571 -> (+ 1 2)
12:13:48.571 -> 3
12:13:48.571 ->
12:13:48.571 -> 20607> (defun sq(x) (* x x))
12:14:06.603 -> sq
12:14:06.603 ->
12:14:06.603 -> 20594> (sq 200)
12:20:58.898 -> 40000
12:20:58.898 ->
12:20:58.898 -> 20594> (defun b () (pinmode 13 t) (loop (digitalwrite 13 t) (delay 1000) (digitalwrite 13 nil) (delay 1000)))
12:22:06.235 -> b
12:22:06.235 ->
12:22:06.235 -> 20560> (b)
12:22:50.025 -> Error: escape!
12:22:50.125 -> 20560> (defun gprint () (fill-screen) (set-rotation 2) (with-gfx (str) (set-cursor 0 0) (pprintall str)))
12:27:55.656 -> gprint
12:27:55.656 ->
12:27:55.689 -> 20530> (gprint)
12:28:30.179 -> Error: ‘with-gfx’ not supported
12:28:30.279 -> 20530> (defun rgb (r g b) (logior (ash (logand r #xf8) 8) (ash (logand g #xfc) 3) (ash b -3)))
12:29:21.214 -> rgb
12:29:21.214 ->
12:29:21.214 -> 20492> (defun badgesketch () (let ((x 80) (y 64)) (loop (let* ((r (readbadgebuttons)) (dy (- (logand 1 (ash r -2)) (logand 1 (ash r -1)))) (dx (- (logand 1 (ash r -3)) (logand 1 r)))) (if (> r 32) (fill-screen 0)) (draw-line x y (incf x dx) (incf y dy)) (delay 10)))))
12:30:02.247 -> badgesketch
12:30:02.247 ->
12:30:02.247 -> 20382> (badgesketch)
12:30:14.244 -> Error: undefined: readbadgebuttons
12:30:14.344 -> 20382> (defun plot () (dotimes (xx 320) (let ((x (- xx 160))) (dotimes (yy 240) (let* ((y (- yy 120)) (f (truncate (+ (* x (+ x y)) (* y y)) 8))) (draw-pixel xx yy (rgb (+ f 160) f (+ f 80))))))))
12:31:11.058 -> plot
12:31:11.058 ->
12:31:11.058 -> 20302> (plot)
12:31:32.446 -> nil
12:31:32.446 ->
12:31:32.446 -> 20302>