# Metview Macro

#  **************************** LICENSE START ***********************************
# 
#  Copyright 2015 ECMWF. This software is distributed under the terms
#  of the Apache License version 2.0. In applying this license, ECMWF does not
#  waive the privileges and immunities granted to it by virtue of its status as
#  an Intergovernmental Organization or submit itself to any jurisdiction.
# 
#  ***************************** LICENSE END ************************************

toplat   = 65
botlat   = 51
leftlon  = -5
rightlon = 26

use_geoline = 0  #  to toggle between the two versions

red_line = mgraph(
    graph_line_colour    : "red",
    graph_line_thickness : 5
    )

if use_geoline then 
    increment = 0.1
    line1 = mvl_geoline(toplat, leftlon,  toplat, rightlon, increment)
    line2 = mvl_geoline(toplat, rightlon, botlat, rightlon, increment)
    line3 = mvl_geoline(botlat, rightlon, botlat, leftlon,  increment)
    line4 = mvl_geoline(botlat, leftlon,  toplat, leftlon,  increment)
    to_plot = [line1, line2, line3, line4]
else
    geo_area_box = input_visualiser(
        input_plot_type        : "geo_points",
        input_longitude_values : [leftlon,rightlon,rightlon,leftlon,leftlon],
        input_latitude_values  : [toplat,toplat,botlat,botlat,toplat]
        )
    to_plot = geo_area_box
end if

plot(to_plot, red_line)

