justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Broken: refactor terminals

Browse Source
This commit is contained in:
justin
2022-07-25 00:45:15 +01:00
parent d1bf49319a
commit d219d8d889
25 changed files with 505 additions and 364 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/LevelGen/Switch.hs
+5 -5
View File
@@ -14,7 +14,7 @@ import Geometry
makeButton
:: Color
-> WorldEffect -- ^ Effect when pressed
-> WdWd -- ^ Effect when pressed
-> Button
makeButton col eff = defaultButton
{ _btPict = DefaultDrawButton col
@@ -38,8 +38,8 @@ drawSwitchWire col1 col2 bt
makeSwitchSPic
:: ButtonDraw
-> WorldEffect -- ^ Switch on effect
-> WorldEffect -- ^ Switch off effect
-> WdWd -- ^ Switch on effect
-> WdWd -- ^ Switch off effect
-> Button
makeSwitchSPic dswitch effOn effOff = defaultButton
{ _btPict = dswitch
@@ -51,7 +51,7 @@ makeSwitchSPic dswitch effOn effOff = defaultButton
makeSwitch
:: Color
-> Color
-> WorldEffect -- ^ Switch on effect
-> WorldEffect -- ^ Switch off effect
-> WdWd -- ^ Switch on effect
-> WdWd -- ^ Switch off effect
-> Button
makeSwitch col1 col2 = makeSwitchSPic (DefaultDrawSwitch col1 col2)