(object triobj) (colour triobj 1 0 0) (shape-triangle triobj) (draw triobj) (location triobj 2 0 0) (object another) (colour another 0 1 0) (shape-triangle another) (draw another)
