Matlab实现鼠标写字代码

最早的程序，实在忘了从哪里下载的了。

能够实现鼠标的手写输入，但是一些不连续的点。

tmouse.mfunction tmouse(action)% TMOUSE 本例展示如何以Handle Graphics来设定滑鼠事件(Mouse% Events)的反应指令(Callbacks)if nargin == 0 action = 'start'; endswitch(action) % 开启图形视窗 case 'start', axis([0 1 0 1]);% 设定图轴范围 box on;% 将图轴加上图框 title('Click and drag your mouse in this window!'); % 设定滑鼠按钮被按下时的反应指令为「tmouse down」 set(gcf, 'WindowButtonDownFcn', 'tmouse down'); % 滑鼠按钮被按下时的反应指令 case 'down', % 设定滑鼠移动时的反应指令为「tmouse move」 set(gcf, 'WindowButtonMotionFcn', 'tmouse move'); % 设定滑鼠按钮被释放时的反应指令为「tmouse up」 set(gcf, 'WindowButtonUpFcn', 'tmouse up'); % 列印「Mouse down!」讯息 fprintf('Mouse down!\n'); % 滑鼠移动时的反应指令 case 'move', currPt = get(gca, 'CurrentPoint'); x = currPt(1,1); y = currPt(1,2); line(x, y, 'marker', '.', 'EraseMode', 'xor'); % 列印「Mouse is moving!」讯息及滑鼠现在位置 fprintf('Mouse is moving! Current location = (%g, %g)\n', currPt(1,1), currPt(1,2)); % 滑鼠按钮被释放时的反应指令 case 'up', % 清除滑鼠移动时的反应指令 set(gcf, 'WindowButtonMotionFcn', ''); % 清除滑鼠按钮被释放时的反应指令 set(gcf, 'WindowButtonUpFcn', ''); % 列印「Mouse up!」讯息 fprintf('Mouse up!\n');endend

本人在matlab 2010a上运行过该程序tmouse.m，运行结果截图如下：

之后有人在此基础上，把画点改成了连续的线段。

本人觉得程序还有点小问题，在此不再转载。

下面是本人改进的程序，能够实现点击左键输入，右键显示输入的记录结果。

MouseDraw.mfunction MouseDraw(action)% MouseDraw 本例展示如何以Handle Graphics来设定滑鼠事件% (MouseDraw Events)的反应指令(Callbacks)% 本程序在鼠标移动非常快时，不会造成画“断线”% global不能传矩阵global InitialX InitialY FigHandleimSize = 200;if nargin == 0, action = 'start'; endswitch(action) %%开启图形视窗 case 'start', FigHandle = figure('WindowButtonDownFcn','MouseDraw down'); axis([1 imSize 1 imSize]); % 设定图轴范围% axis off; grid on; box on; % 将图轴加上图框 title('手写体输入窗');% % fprintf('start'); %%设定滑鼠按钮被按下时的反应指令为「MouseDraw down」 % set(gcf, 'WindowButtonDownFcn', 'MouseDraw down'); dlmwrite('IXT.txt', -10, 'delimiter', '\t', 'precision', 6); dlmwrite('IYT.txt', -10, 'delimiter', '\t', 'precision', 6); %%滑鼠按钮被按下时的反应指令 case 'down', if strcmp(get(FigHandle, 'SelectionType'), 'normal') %如果是左键 set(FigHandle,'pointer','hand'); CurPiont = get(gca, 'CurrentPoint'); InitialX = CurPiont(1,1); InitialY = CurPiont(1,2); dlmwrite('IXT.txt', InitialX, '-append', 'delimiter', '\t', 'precision', 6); dlmwrite('IYT.txt', InitialY, '-append', 'delimiter', '\t', 'precision', 6); % 列印「MouseDraw down!」讯息% % fprintf('MouseDraw down!\n'); % 设定滑鼠移动时的反应指令为「MouseDraw move」 set(gcf, 'WindowButtonMotionFcn', 'MouseDraw move'); set(gcf, 'WindowButtonUpFcn', 'MouseDraw up'); elseif strcmp(get(FigHandle, 'SelectionType'), 'alt') % 如果是右键 set(FigHandle, 'Pointer', 'arrow'); set( FigHandle, 'WindowButtonMotionFcn', '') set(FigHandle, 'WindowButtonUpFcn', '') fprintf('MouseDraw right button down!\n'); ImageX = importdata('IXT.txt'); ImageY = importdata('IYT.txt'); InputImage = ones(imSize); roundX = round(ImageX); roundY = round(ImageY); for k = 1:size(ImageX,1) if 0 InitialX step_x = x_gap; else step_x = -x_gap; end if Y > InitialY step_y = y_gap; else step_y = -y_gap; end % 定义x,y的变化范围和步长 if abs(X-InitialX) Matlab,实现,鼠标,写字,代码,最,早的,程序,实在,