控制台绘制心形

标准的心形绘制方程是:

(x²+y²-1)³ ≤ x²y³

参考(C++): https://bbs.youkuaiyun.com/topics/391941602

我用了一种简单的容易理解的方法来绘制。

即， 四个象限分成四段二次曲线来拼接。

语言: Lua

-- 心形线
-- 四个象限分四个函数画
-- (1) 原点在 (+r, 0) 的半圆  (x-r)² + y² <= r²
-- (2) 原点在 (-r, 0) 的半圆  (x+r)² + y² <= r² 
-- (3) 原点在 (kr, kr)的圆弧  (x-kr)² + (y-kr)² <= ((2+k)²+k²）r²
-- (4) 原点在 (-kr, kr)的圆弧  (x+kr)² + (y-kr)² <= ((2+k)²+k²)r²
-- 范围 (-2r, -2r) - (+2r, r);

function in_heart12(x, y, r)
    if y < 0 then
		return false;
	end
	local in1 = (x-r)*(x-r) + y*y <= r*r;
	local in2 = (x+r)*(x+r) + y*y <= r*r;
	return in1 or in2;
end

function in_heart34(x,y,r,k)
	if y > 0 then
		return false;
	end
	
	if x<=0 then 
		local in3 = (x-k*r)*(x-k*r) + (y-k*r)*(y-k*r) <= ((2+k)*(2+k)+k*k)*r*r;
		return in3;
	else
		local in4 = (x+k*r)*(x+k*r) + (y-k*r)*(y-k*r) <= ((2+k)*(2+k)+k*k)*r*r;
		return in4;
	end
	
end

function in_heart(x,y,r,k)
	if y >= 0 then
		return in_heart12(x,y,r);
	else
		return in_heart34(x,y,r,k);
	end
end

local R = 8;
local K = 1.0;
local X0 = 2*R;
local Y0 = 2*R;

function in_heart_screen(sx, sy, r, k, X0, Y0)
  local x = sx - X0;
  local y = Y0 - sy;
  
  return  in_heart(x,y,r,k)

end

for row=1, 4*R+2 do
  local s = "";
  for col = 1, 8*R+2 do
	local star = in_heart_screen(col/1.7, row, R, K, X0, Y0);
	if star then
	  s = s .. "$";
	else
	  s = s .. " "
	end
  end
  print(s);
end

运行结果: