안녕하세요. 아래와 같은 순서로 그림을 그리고자 하는데 잘 되지 않는 부분이 있어서 여쭤보고자 글을 남깁니다.

1. 다른 천체를 쵤영한 JPG형태의 영상(Cylindrical image)을 그린 후
2. 그 위에 위/경도 Grid를 표시하고
3. 특정 몇 개의 지역을 위/경도에 따라 박스로 표시하고
4. 해당 박스에 일련번호를 표기하려고 합니다.

그런데 1~3번까지는 해결했는데 4번에서 해당 박스에 표기할 일련번호가 위/경도 기준이 아닌 화면 pixel 좌표에 근거해서 표기가 됩니다.

즉, 예를 들어 영상의 중심이 위도 0도, 경도 0도 라고 할 때, 그 위치에 Text를 기입하려고 합니다.이 때 Text 함수를 쓰고 위치를 0, 0 이라고 하고, /data 라고 옵션을 주면 그림 중심에 Text가 기입되는 것이 아니라 좌측 아래 구석, 즉 화면상의 절대 픽셀 위치에 기재됩니다. 이 문제를 해결할 수가 없어서 문의드립니다.

제가 작성한 코드는 다음과 같습니다.

path=’\’
target_map_fn=path+’target_image.jpg’
input_fn=path+’box_locate_lat_lon.txt’

max_xpix=2880
max_ypix=1440

max_lon= 180.0
min_lon= -180.0
max_lat= 90.0
min_lat= -90.0

f_lines=file_lines(input_fn)
data=dblarr(4,f_lines)

openr, 1, input_fn
readf, 1, data ;lon_top,lon_bot,lat_top,lat_bot
close, 1

win=window(Dimensions=[max_xpix,max_ypix])

target_image = IMAGE(target_map_fn, Aspect_Ratio=0,Margin=0., LIMIT=[-90,-180,90,180],/current)

target_map = MAP(‘Cylindrical Equal Area’,LONGITUDE_MIN=-180, LONGITUDE_MAX=180, LATITUDE_MIN=-90, LATITUDE_MAX=90, Margin=0., Aspect_Ratio=0, Grid_latitude=30, Grid_longitude=30, Linestyle=’ ‘,font_size=3,/current)

for i=0, f_lines-1 do begin
lon_coord=[data[0,i],data[0,i],data[1,i],data[1,i]]
lat_coord=[data[2,i],data[3,i],data[3,i],data[2,i]]
loc_num=text(data[0,i],data[3,i],string(i),Font_size=20,font_color=’Yellow’,/data,/current)
poly=polygon(lon_coord,lat_coord, $ target=target_map,fill_color=’Red’,fill_transparency=75,/Data,/Current)
endfor

end

감사합니다.