matlab绘制‘心’形,动画版的.docVIP

function demoDisplay clear clc close all; [x,y,z] = heart; bottomZ = min(z(:)); radius = abs(bottomZ); axis vis3d axis off daspect([1.6, 1, 1.875]); hold on; markerColor = [0.5, 0.5, 0.5]; lineColor = [0.7, 0.7, 0.7]; figWidth = 800 figHeight = 600; screenSize = get(0, ScreenSize); X0 = (screenSize(3)-figWidth)/2; Y0 = (screenSize(4)-figHeight)/2; set(gcf, Position, [X0,Y0, figWidth, figHeight]); camtarget([0, 0, 0]); set(gcf,Renderer,zbuffer); set(gcf,DoubleBuffer,on); % RGB(255 105 180) is for pink color set(gcf, color, [255 255 255]/255); startAZ = 30; satrtEL = 20; view(startAZ, satrtEL); % draw points for iLoop = 1:size(x, 1) plot3(x(iLoop, :), y(iLoop,:), z(iLoop, :), Marker, ., MarkerEdgeColor, markerColor, LineStyle, none); pause(0.2); end % draw wire frames for iLoop = 1:size(x, 1) plot3(x(iLoop, :), y(iLoop,:), z(iLoop, :), color, lineColor, LineStyle, -); pause(0.1); end for iLoop = 1:size(x, 2) plot3(x(:, iLoop), y(:, iLoop), z(:, iLoop), color, lineColor, LineStyle, -); pause(0.1); end % rotate wire frame for i=1:36 camorbit(10,0,data); pause(0.1); end % clean the curent axes delete(get(gca, Children)); camlight left; newLineColor = [0.7, 0.4, 0.4]; % re-draw the whole heart with surf function h = surf(x,y,z, EdgeColor, newLineColor, FaceColor, r); for i=1:36 camorbit(10,0,data); pause(0.1); end mediumColor = [0.8, 0.3, 0.3]; set(h, EdgeColor, mediumColor,FaceLighting,gouraud); for i=1:36 camorbit(10,0,data); drawnow; end set(h, EdgeColor, none); drawnow; % define the Z-path for heart re-shape deltaZ = linspace(-.3, 0, 5); deltaZ = [fliplr(deltaZ), deltaZ]; deltaZ = repmat(deltaZ, 1, 3); zlim(manual); for iLoop = 1:length(deltaZ) % draw the bouncing heart curDeltaZ = deltaZ(mod(iLoop,length(deltaZ))+1); ratio = (radius+curDeltaZ)*radius; newZ = z*ratio + curDeltaZ; if exist(h, var) ishandle(h), delete(h);end; h = surf(x,y, newZ, EdgeColor, none, FaceColor, r,FaceLighting,gouraud); camorbit(-1, 0, data); drawnow; end % draw the bouncing heart deltaZ = ge