small cleanup; gonna try javascript
parent
f3635dc579
commit
203cb66b26
|
@ -104,22 +104,6 @@ keyboardTestDraw edge =
|
|||
|
||||
in foldl1 (++) (map formKey keys)
|
||||
|
||||
-- leftHand = (map (\n -> ((1.5,1),(-8.25,8-n)))[0..3]) -- left 1.5x
|
||||
-- ++ (map (\n -> ((1,1),(-7+n,8)))[0..5]) -- top 1x
|
||||
-- ++ (map (\n -> ((1,1),(-7+n,7)))[0..4]) -- next 1x
|
||||
-- ++ (map (\n -> ((1,1),(-7+n,6)))[0..4]) -- next 1x
|
||||
-- ++ (map (\n -> ((1,1),(-7+n,5)))[0..4]) -- next 1x
|
||||
-- ++ (map (\n -> ((1,1),(-8+n,4)))[0..4]) -- bottom 1x
|
||||
-- ++ (map (\n -> ((1,1.5),(-2,6.75-n*1.5)))[0..1]) -- right 1.5x
|
||||
-- ++ (map (\n -> ((1,2),(-3+n,1.5)))[0..1]) -- thumb 2x
|
||||
-- ++ (map (\n -> ((1,1),(-2+n,3)))[0..1]) -- t thumb 1x
|
||||
-- ++ (map (\n -> ((1,1),(-1-n,2)))[0..0]) -- m thumb 1x
|
||||
-- ++ (map (\n -> ((1,1),(-1-n,1)))[0..0]) -- b thumb 1x
|
||||
--
|
||||
-- rightHand = map (\((a,b),(c,d)) -> ((a,b),(-c,d))) leftHand
|
||||
--
|
||||
-- in map (\((a,b),(c,d)) -> key (a,b) (c-0.5,d-3)) (leftHand ++ rightHand)
|
||||
|
||||
|
||||
-------------------------------------------------------------------------------
|
||||
-- putting it all together
|
||||
|
|
Loading…
Reference in New Issue