WRITE_PNG not accepting rgb 3d array image automatically about gdl HOT 3 CLOSED

pro gdlplottingtest
	;plotridlv0p5, ydata = lindgen(10), filetype = 'png', output = "C:\Users\beh9172\Documents", filename = 'plot', colorsarr = [255]
	thisDevice = !D.Name
    Set_Plot, 'Z'
    if !version.release eq '6.3' then Device, Set_Resolution=[500,500] else Device, Set_Resolution=[500,500], decomposed = 0, SET_PIXEL_DEPTH = 8

;    ; Load drawing colors.
    LoadCT, 0
    TVLCT, (transpose([0,0,255])), 1
    TVLCT, (transpose([255,0,0])), 2
    TVLCT, (transpose([255,255,255])), !P.Background
    TVLCT, (transpose([0,0,0])), !P.Color

    ; Draw graphics.
    Plot, Indgen(10), Color=1
    OPlot, Indgen(10)+1, Color=2

    ; Add a legend.
    ;

    ; Save the image for output to a PNG file.
    image = TVRD()
    TVLCT, r, g, b, /Get
    image24 = BytArr(3, 500, 500)
   	image24[0,*,*] = r[image]
   	image24[1,*,*] = g[image]
   	image24[2,*,*] = b[image]
    Write_PNG, 'test.png', image24,r,g,b
    write_jpeg, 'test.jpg',image24, quality=100, true = 1
    ;write_jpg, 'test.jpg', image
    Set_Plot, 'win'
    device, decomposed = 0
    tv, image
    Set_Plot, thisDevice

end