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