Contour a map at the current active centre. The map file name is defined by a symbol $map:
message "Start contouring map" map_file $map map_obj map map_par 12. 12. 12. 1.5 coral .5 .1 0 map_act map_draw message ' '