english
version "1.0"
identify "xyz"

module mtn

#: This module generates simulated mountains.


procedure main
    takes
	system system
    returns unsigned

    #: This procedure will generate some simulated mountains.

    #, "11-{power}".  2**11=2048 which is greater than both 1830 and 915.
    #, Thus, as {power} gets closer and closer to 11, the less shifting
    #, must be done inside of {layout} to make everything fit.


procedure draw_everything
    takes
	layout layout
	top_window xlib_window
	drawable xlib_drawable
	gc xlib_gc
	surface surface
	colors colors
	points xlib_points
	debug_stream out_stream
    returns_nothing


procedure draw_track
    takes
	layout layout
	surface surface
	debug_stream out_stream
    returns_nothing


procedure draw_grid
    takes
	layout layout
    returns_nothing