hashirama/reanimate
Watch
1
0
Fork
You've already forked reanimate
 0
mirror of https://github.com/reanimate/reanimate.git synced 2026-09-11 16:12:20 +00:00
Code Issues Projects Releases Wiki Activity

clean up

Browse source
This commit is contained in:
Anjali Smith 2022-06-11 12:06:08 -04:00
commit 0517153037
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
examples/waitpid_simulator.hs
View file

@ -16,7 +16,7 @@ data Segment = Segment Point Point
-- Helper functions creating an Animation from two coordinates
animatePart :: Segment -> Animation
animatePart (Segment (Point startx starty) (Point endx endy)) = setDuration customDuration $
animatePart (Segment (Point startx starty) (Point endx endy)) = signalA (curveS2) $ setDuration customDuration $
animate $ \t ->
partialSvg t $ pathify $ mkLine (startx, starty) (endx, endy)
@ -39,16 +39,16 @@ shiftSeg (Segment (Point startx starty) (Point endx endy))
-- Helper function to animate the line segment that represents a fork
animateFork :: Segment -> Animation
animateFork (Segment (Point startx starty) (Point endx endy))
= staticFrame 0.1 (mkLine (startx,starty) (endx, endy))
= oFadeIn (mkLine (startx,starty) (endx, endy))
-- Helper function to label a proccess with a pid
labelPids :: Segment -> Int -> SVG
labelPids (Segment (Point startx starty) (Point _ _)) i = mkGroup
labelPids (Segment (Point startx starty) (Point _ _)) i = withStrokeWidth (defaultStrokeWidth * 0.5) $ withFillOpacity 1 $ mkGroup
[translate (startx - 0.75) (starty) $ scale 0.25 $ outlineText $T.pack("pid: " ++ (show i))]
-- Helper function to position a line of text
mkTextLabel:: [Char] -> Point -> SVG
mkTextLabel txt (Point startx starty) = mkGroup
mkTextLabel txt (Point startx starty) = withStrokeWidth (defaultStrokeWidth * 0.5) $ withFillOpacity 1 $ mkGroup
[translate (startx) (starty) $ scale 0.2 $ outlineText $ T.pack(txt)]
mkPrintLabelFromPnt :: Point -> [Char] -> Animation
@ -71,7 +71,7 @@ outlineText :: Text -> SVG
outlineText txt = mkGroup
[ center
$ withStrokeColorPixel rtfdBackgroundColor
$ withStrokeWidth (defaultStrokeWidth * 8)
$ withStrokeWidth (defaultStrokeWidth * 4)
$ withFillOpacity 0
$ latex txt
, center $ latex txt