if(selecting){ #bx = seltopx;#by = seltopy; #ex = selendx;#ey = selendy; }else{ #bx = 0;#by = 0; gofileend; #ex = x;#ey = y; } #bl = ytolineno(#bx,#by); moveto #ex,#ey; #el = ytolineno(#ex,#ey); $searchbuf = searchbuffer; #searchopt = searchoption; #px = val(input("いくつxに足す?")); #py = val(input("いくつyに足す?")); movetolineno 1,#bl; while(true){ searchdown "\\put("; if(!result || lineno > #el)break; escape; right strlen("\\put("); #nx = x;#ny = y; call GetNum; #x = ##return; right; call GetNum; #y = ##return; beginsel; moveto #nx,#ny; endsel; delete; insert str(#x + #px) + "," + str(#y + #py); } setsearch $searchbuf,#searchopt; endmacro; GetNum: ##bx = x;##by = y; while(code == '-' || ('0' <= code && code <= '9'))right; return val(gettext(##bx,##by,x,y));