    class
    	EV_COORDINATE

    General
    	cluster: interface
    	description: "A position in a 2 dimensional space as INTEGERs (x, y)"
    	create: make_with_position, set, make, make_precise, default_create

    Ancestors
    	DEBUG_OUTPUT*

    Queries
    	debug_output: STRING_8
    	x: INTEGER_32
    	x_abs: INTEGER_32
    	x_precise: REAL_64
    	y: INTEGER_32
    	y_abs: INTEGER_32
    	y_precise: REAL_64

    Commands
    	make (a_x: [like x] INTEGER_32; a_y: [like y] INTEGER_32)
    	make_precise (a_x: [like x_precise] REAL_64; a_y: [like y_precise] REAL_64)
    	make_with_position (a_x: [like x] INTEGER_32; a_y: [like y] INTEGER_32)
    	set (a_x: [like x] INTEGER_32; a_y: [like y] INTEGER_32)
    	set_position (a_x: [like x] INTEGER_32; a_y: [like y] INTEGER_32)
    	set_precise (a_x: [like x_precise] REAL_64; a_y: [like y_precise] REAL_64)
    	set_x (a_x: [like x] INTEGER_32)
    	set_x_precise (a_x: [like x_precise] REAL_64)
    	set_y (a_y: [like y] INTEGER_32)
    	set_y_precise (a_y: [like y_precise] REAL_64)