오랫만에 IDL 복귀

http://www.idl-envi.co.kr/download/down_list.php?tab=idl&file_chk=103


img=bytarr(256,256)

For i= 0, 255 do begin
For j= 0, 255 do begin

if (i gt j) then img[i, j]=-i
if (i lt j) then img[i, j]=-j
if (i eq j) then img[i,j]=0
if (i*2 eq j) then img[i, j]=255
if (i eq j*2) then img[i, j]=255

endfor
endfor

; 오랫만에 이미지 그려보기

 

plots,[0,360],[0,0] ;plots 함수 - 원하는 임의의 방향으로 그래프를 그림
polyfill, [2.5, 5, 2.5, 0], [0, 2.5, 5, 2.5], linestyle=2, color='00ff00'x   ;내부를 채우는 함수
polyfill, [2.5, 5, 2.5, 0], [0, 2.5, 5, 2.5], linestyle=3, /line_fill, orientation=45  ;내부를 라인으로 채움
plot, findgen(30), /nodata, /iso     ;x방향 30을 주고, 데이타 없음, iso (가로 세로 비율 맞춤)

Coloring


device, decomposed=0
loadct, 39
x=findgen(256)*360/255
y=sin(x*!dtor)
c=bindgen(256)  ;byte형 indgen
plot, x, y, /nodata, xs=1
plots, x, y, color=c, thick=20