Nulo/menelaus
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Fix a few silly goofs.

Browse source
This commit is contained in:
Phil Hagelberg 2014-12-04 08:10:58 -08:00
parent d2aa1ef4b0
commit bbcbfc81c9
1 changed files with 8 additions and 33 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

41
menelaus.scm
View file

@ -6,31 +6,18 @@
(define pressed 0) (define pressed 0)
(define column-pins (list 11 12 15 14 10 4 7 8 9 5 6)) (define column-pins (vector 11 12 15 14 10 4 7 8 9 5 6))
(define layout (vector key-a key-s key-d key-f key-g (define layout (vector key-a key-s key-d key-f key-g 0
key-h key-j key-k key-l key-semicolon)) key-h key-j key-k key-l key-semicolon))
(define (scan-column pin keycode) (define (scan-column pin keycode)
(if (and (= 0 pressed) (low? pin)) (if (low? pin)
(set! pressed keycode))) (set! pressed keycode)))
(define (loop) (define (loop)
(set! pressed 0) (set! pressed 0)
;; this causes a vector exception (for 0 10 (lambda (n) (scan-column (vector-ref column-pins n)
;; (for 0 10 (lambda (n) (scan-column (vector-ref column-pins n) (vector-ref layout n))))
;; (vector-ref layout n))))
;; while the unrolled version works great
(scan-column 11 key-a)
(scan-column 12 key-s)
(scan-column 15 key-d)
(scan-column 14 key-f)
(scan-column 10 key-g)
(scan-column 7 key-h)
(scan-column 8 key-j)
(scan-column 9 key-k)
(scan-column 5 key-l)
(scan-column 6 key-semicolon)
(call-c-func "usb_send" 0 pressed 0 0 0 0 0) (call-c-func "usb_send" 0 pressed 0 0 0 0 0)
(loop)) (loop))
@ -41,23 +28,11 @@
#x23 #x23 #x23 #x29 #x2D #x2D)) #x23 #x23 #x23 #x29 #x2D #x2D))
(set! arduino-pins (vector 4 8 2 1 16 64 128 64 16 32 64 128 64 128 (set! arduino-pins (vector 4 8 2 1 16 64 128 64 16 32 64 128 64 128
8 2 4 32 65 128)) 8 2 4 32 65 128))
;; this causes a vector exception: (for-each-vector input column-pins)
;; (for-each-vector column-pins input) (for-each-vector high column-pins) ; activate pullup resistors
;; (for-each-vector column-pins high) ; activate pullup resistors
;; while unrolling the loop works fine
(high 11)
(high 12)
(high 15)
(high 14)
(high 10)
(high 4)
(high 7)
(high 8)
(high 9)
(high 5)
(high 6)
(call-c-func "usb_init") (call-c-func "usb_init")
(pause 200)) (pause 200))
(init) (init)
(loop) (loop)