Record.elm

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))]]