function rotmodfits, image, imagedims, sizemod, urot dummy=image ;creates an exact copy of the image image=lonarr(imagedims[0]+(sizemod*2), imagedims[1]+(sizemod*2)) ;and then ;changes the image variable to black space (zero bytes) that is ;bigger than the original picture by two times the size ;modification factor calculated for rotation in the main code for j=0, (imagedims[0]-1) do begin for k=0, (imagedims[1]-1) do begin image[j+sizemod,k+sizemod]=dummy[j,k] ;after that it transfers endfor ;data pixel by pixel counting from the position that is greater than 0,0 by endfor ;one sizemod factor. the result is a black frame of sizemod factor width image=rot(image, urot) return, image end