Skip to content
Permalink
Browse files

Cosmetic changes

  • Loading branch information...
magopian committed Aug 7, 2019
1 parent 869c359 commit fde14ae537d26073a051e17a3922329f3b2d5fcc
Showing with 16 additions and 1 deletion.
  1. +16 −1 src/Main.elm
@@ -383,13 +383,28 @@ view { ball, rightPaddle, leftPaddle, score } =
, viewBox "0 0 500 500"
, Svg.Attributes.style "background: #efefef"
]
[ viewBall ball
[ viewDivider
, viewBall ball
, viewPaddle rightPaddle
, viewPaddle leftPaddle
, viewScore score
]


viewDivider : Svg.Svg Msg
viewDivider =
line
[ x1 "249"
, y1 "0"
, x2 "249"
, y2 "500"
, stroke "black"
, strokeDasharray "4"
, strokeWidth "2"
]
[]


viewBall : Ball -> Svg.Svg Msg
viewBall ball =
rect

0 comments on commit fde14ae

Please sign in to comment.
You can’t perform that action at this time.