12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455 |
- ;; glove 1
- ;; just a wanky name for a keyboard.
- ;;how many of these i need? iunno.
- (require pict)
- (require racket/draw)
- ;; well=(nn+(h=6(r=6(k))))
- ;; well=h+nn, h=6r, r=6k.
- ;; k = key
- (define k (cc-superimpose (colorize (filled-rectangle 16 16) "green")(rectangle 16 16)(colorize (filled-rectangle 12 10) "yellow")(rectangle 12 10)(colorize (filled-rectangle 8 6) "orange")(rectangle 8 6)))
- (define nip (circle 7))
- ;; nn = nav-nip
- (define nn (hc-append (rectangle 39 1)nip))
- ;; uu = nav-nip (other side, right side)
- (define uu (hc-append (rectangle 34 1)nip))
- ;; r = finger row (collumns really.
- (define r (vc-append 1 k k k k k k))
- ;; h = hand aray
- ;; 7 "r"s, with 3 pixel gaps between.
- (define h (hc-append 3 r r r r r r))
- ;; well = finger well left
- (define well (cc-superimpose h nn))
- ;;define welr ;;too!
- (define welr (lc-superimpose h uu))
- ;;;;;;; THE THUMB ARC ;;
- (define t1 (rotate k 0.0))
- (define t2 (rotate k -0.00))
- (define t3 (rotate k (* pi -0.125)))
- ;;(define t4 (rotate k -0.75))
- (define t4 (rotate k (* pi -0.25)))
- (define t5 (rotate k (* pi -0.33)))
- (define t6 (rotate k (* pi -0.42)))
- (define t7 (rotate k (* pi -0.43)))
- (define t8 (rotate k (* pi -0.5)))
- (define thumbalpha1 (vl-append (hb-append t1 t2 t3) (hb-append t2 t3 t4 t5) (ht-append t3 t4 t5 t6) (ht-append t4 t5 t6 t7) (ht-append t5 t6 t7 t8)))
- (define thumbalpha2 (pin-over thumbalpha1 48 7 t4))
- (define wellt (hc-append well (rectangle 100 3)))
- (define wellt2 (vl-append wellt (rectangle 3 120)))
- ;;(define lefty (vr-append wellt thumbalpha2))
- (define lefty (pin-over wellt2 95 80 thumbalpha2))
|