Skip to content
Projects
Groups
Snippets
Help
This project
Loading...
Sign in / Register
Toggle navigation
A
arpeggigon
Overview
Overview
Details
Activity
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Locked Files
CI / CD
CI / CD
Pipelines
Schedules
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Commits
Open sidebar
Guerric Chupin
arpeggigon
Commits
d4f27f1d
Commit
d4f27f1d
authored
Sep 16, 2016
by
Guerric Chupin
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Corrections to countTo.
parent
4430c8c7
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
2 additions
and
2 deletions
+2
-2
Yampa.hs
src/RMCA/Auxiliary/Yampa.hs
+1
-1
LayerSettings.hs
src/RMCA/GUI/LayerSettings.hs
+1
-1
No files found.
src/RMCA/Auxiliary/Yampa.hs
View file @
d4f27f1d
...
...
@@ -9,7 +9,7 @@ import RMCA.Auxiliary.Misc
-- | = Yampa
countTo
::
(
Integral
b
)
=>
b
->
SF
(
Event
a
)
(
Event
b
)
countTo
n
=
count
>>^
filterE
(
>
n
)
countTo
n
=
count
>>^
filterE
(
==
n
)
-- | 'stepBack' contains its previous argument as its output. Because it's hard to define it at time 0, it's wrapped up in a 'Maybe'.
stepBack
::
SF
a
(
Maybe
a
)
...
...
src/RMCA/GUI/LayerSettings.hs
View file @
d4f27f1d
...
...
@@ -109,7 +109,7 @@ layerSettings isStartedRV = do
boxPackStart
layerSettingsBox'
repeatBox
PackRepel
0
repeatLabel
<-
labelNew
(
Just
"Repeat count"
)
labelSetLineWrap
repeatLabel
True
repeatAdj
<-
adjustmentNew
0
0
(
fromIntegral
(
maxBound
::
Int
))
1
1
0
repeatAdj
<-
adjustmentNew
1
1
100
1
1
0
repeatButton
<-
spinButtonNew
repeatAdj
1
0
auxRepeatBox
<-
vBoxNew
False
0
centerAl'
<-
alignmentNew
0.5
0.5
0
0
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment