Zoning/streaming refactor

2022-06-26 00:26:53 +01:00
parent 3c7ea4d73b
commit e2d09d57e9
11 changed files with 67 additions and 55 deletions
@@ -58,7 +58,7 @@ drawOptions u title ops off footer = pictures $
    , drawFooterText cfig red footer
    ] ++
    zipWith (\s vpos -> placeString (-hw + 50) vpos 0.2 s) 
-        (ops'') 
+        ops''
        [hh-100,hh-150 ..]
 --    ++ [color yellow $ concat [line [V2 (negate hw) (hh-y), V2 hw (hh-y)] | 
 --            y <- map (+75) [0,50..hh*2]]