Skip to content

Instantly share code, notes, and snippets.

@holdenlee
Last active October 1, 2015 01:53
Show Gist options
  • Save holdenlee/52810cf16802e93f1561 to your computer and use it in GitHub Desktop.
Save holdenlee/52810cf16802e93f1561 to your computer and use it in GitHub Desktop.
import Color exposing (..)
import Graphics.Collage exposing (..)
import Graphics.Element exposing (..)
xc = 100
yc = 100
xw = 3072//4
yw = 2304//4
thetaA = degrees 66.5
minA = 5
secA = 40.513
--Enter the minutes and seconds there
min1 = 5
sec1 = 40.513
rots = 100.0/3 * (min1 - minA + 1/60 * (sec1 - secA))
xshift = 104
-- 114
yshift = 0
-- -10
main : Element
main =
layers [image xw yw "https://dl.dropboxusercontent.com/u/27883775/pics/record.JPG",
collage xw yw [move (xshift/4, yshift/4) <| traced {defaultLine | width <- 2} <| segment (0,0) (fromPolar (1000, thetaA + turns rots))]]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment