Haskell OpenLayers Wrapper

Zoomlevel:
Kartenzentrum (WGS 84 - EPSG:4326):
Kartenzentrum (Mercator - EPSG:3857):

designTutorialMap :: Fay ()
designTutorialMap = void $ do

setCenter vienna
setZoom zoomlevel

addStyledFeature myline $ Opacity 0 -- hiding with Opacity 0
addStyledFeature mypoint $ Opacity 0 -- hiding with Opacity 0
addStyledFeatures u1 defaultopacity
addStyledFeatures u2 defaultopacity
addStyledFeatures u3 defaultopacity
addStyledFeatures u4 defaultopacity

addSingleClickEventAlertCoo "EPSG:4326"

addDiv descId "div0" "Klicke in die Karte, um Koordinaten zu erhalten."
addBreakline descId
addForm descId formId
addInput "Mercator Hochwert: " formId hochinputId "1819207"
addInput "Mercator Rechtswert: " formId rechtsinputId "6141206"
addInput "Deckkraft: " formId opacityinputId "90"
addInput "Id: " formId idinputId "1000"
addButton "Symbol einsetzen" descId $ addPointFromLabels hochinputId rechtsinputId opacityinputId idinputId mypointstyle
addBreakline descId

addBreakline descId
addButton "Wechsel Basiskarte Satellit" descId $ changeBaseLayer Sat
addButton "Wechsel Basiskarte OpenStreetMap" descId $ changeBaseLayer OSM
addBreakline descId

addBreakline descId
addButton "Wien" descId $ setCenter vienna
addButton "Rom" descId $ setCenterZoom rome zoomlevel
addButton "Madrid" descId $ setCenterZoom madrid zoomlevel
addBreakline descId
addButton "Zoom +" descId $ zoomIn 1
addButton "Zoom -" descId $ zoomOut 1
addBreakline descId

addCheckbox visiblecheckboxU1 "table1" "U1 "
addCheckbox visiblecheckboxU2 "table2" "U2 "
addCheckbox visiblecheckboxU3 "table3" "U3 "
addCheckbox visiblecheckboxU4 "table4" "U4 "
addOlDomInput visiblecheckboxU1 "checked" "visible" $ getLayerByIndex 3
addOlDomInput visiblecheckboxU2 "checked" "visible" $ getLayerByIndex 4
addOlDomInput visiblecheckboxU3 "checked" "visible" $ getLayerByIndex 5
addOlDomInput visiblecheckboxU4 "checked" "visible" $ getLayerByIndex 6

addElement zoomlabel "‹div›" "zl1"
addElement wgslabel "‹div›" "wl1"
addElement mercatorlabel "‹div›" "ml1"
addMapWindowEvent "moveend" $ setEventToHtml zoomlabel getZoom
addMapWindowEvent "moveend" $ setEventToHtml wgslabel $ getCenter wgs84proj 5
addMapWindowEvent "moveend" $ setEventToHtml mercatorlabel $ getCenter mercatorproj 1