FUNCTION eis_rp_get_coords , line

; line is a 7-element string array
; eg; line = "/* 0.0/ 0.0 : Disk Center */"

; Concatenate, take out all spaces and remove first 2 chars ("/*")
line = STRJOIN(line , /SINGLE)
line = STRCOMPRESS(STRTRIM(line , 2) , /REMOVE_ALL)
line = STRMID( line , 2)
; to get "0.0/0.0:DiskCenter*/"


; Procedure is to ;
; 1. find position of ":" character
; 2. truncate the string at that point
xy_line = STRMID(line , 0 , STRPOS(line,':'))
; to get "0.0/0.0"
; Split the line about the "/" character
split = STRSPLIT(xy_line , '/' , /EXTRACT)


RETURN , {x_point:DOUBLE(split[0]) , y_point:DOUBLE(split[1])}

END
