chart.elm

import String
import Graphics.Input (Input, input)
import Graphics.Input.Field as Field
xaxis = segment (-150,-100) (150,-100)
yaxis = segment (-150,-100) (-150,100)

content : Input Field.Content
content = input Field.noContent

field = Field.field Field.defaultStyle content.handle id "Type here!" <~ content.signal
display field graph = graph `above` field

main = lift2 above field (plainText . .string <~ content.signal)
--main = lift2 field content.signal 
--main = lift2 display 
--             field
--             (constant <| collage 400 300 [traced (solid blue) xaxis, traced (solid blue) yaxis])