0.8.5-

parts/PCbase.lua

@@ -0,0 +1,10 @@
+return{
+	{3,3,3,0,0,0,0,0,2,2},
+	{3,6,6,0,0,0,0,2,2,5},
+	{4,6,6,0,0,0,1,1,5,5},
+	{4,4,4,0,0,0,0,1,1,5},
+	{1,1,0,0,0,0,0,4,4,4},
+	{5,1,1,0,0,0,0,6,6,4},
+	{5,5,2,2,0,0,0,6,6,3},
+	{5,2,2,0,0,0,0,3,3,3},
+}

parts/PClist.lua

@@ -0,0 +1,11 @@
+return{
+	{7,7,4,5},{7,7,6,4},{7,7,2,4},{7,7,1,3},{7,7,5,6},{7,7,5,2},{7,7,5,4},{7,7,5,3},
+	{7,4,1,2},{7,3,5,7},{7,5,4,3},{7,5,1,2},{7,1,4,2},{7,4,2,5},{7,6,4,5},{7,5,4,2},
+	{7,5,6,4},{7,5,3,6},{7,2,5,6},{7,2,6,4},{7,2,1,3},{7,5,2,7},{7,5,7,2},{7,5,2,3},
+	{7,5,3,2},{7,6,5,4},{7,3,1,5},{7,3,2,5},{7,4,1,5},{7,4,5,2},{7,7,3,6},{7,3,7,6},
+	{7,3,6,2},{7,3,7,1},{7,6,4,2},{3,2,7,6},{3,2,6,7},{7,7,4,5},{7,5,3,4},{7,3,6,5},
+	{7,3,2,5},{7,4,6,5},{7,5,2,3},{7,3,5,7},{7,3,2,5},{7,3,5,1},{7,5,2,3},{3,6,2,5},
+	{3,1,2,5},{3,1,1,5},{3,1,5,2},{3,1,5,1},{3,5,1,2},{4,5,3,2},{4,2,6,5},{6,5,3,2},
+	{1,4,2,5},{1,5,3,6},{5,2,6,3},{5,2,1,3},{5,2,7,4},{2,4,1,5},{2,4,5,1},{2,1,4,5},
+	{2,5,4,3},{2,5,6,7},{7,5,4,2},{4,5,3,5},
+}

parts/font.lua

@@ -0,0 +1,17 @@
+local new=love.graphics.setNewFont
+local set=love.graphics.setFont
+local F,cur={}
+return function(s)
+	local f=F[s]
+	if s~=cur then
+		if f then
+			set(f)
+		else
+			f=new("font.ttf",s)
+			F[s]=f
+			set(f)
+		end
+		cur=s
+	end
+	return f
+end

parts/light.lua

@@ -0,0 +1,80 @@
+--LIGHT MODULE(Optimized by MrZ,Original on github/love2d community/simple-love-lights)
+--Heavily based on mattdesl's libGDX implementation:
+--https://github.com/mattdesl/lwjgl-basics/wiki/2D-Pixel-Perfect-Shadows
+local gc=love.graphics
+local C=gc.clear
+local shadowMapShader=gc.newShader("parts/shader/shadowMap.cs")--Shader for caculating the 1D shadow map.
+local lightRenderShader=gc.newShader("parts/shader/lightRender.cs")--Shader for rendering blurred lights and shadows.
+Lights={}--Lightsource objects
+local Lights=Lights
+--Private--
+local function move(L,x,y)
+	L.x,L.y=x,y
+end
+local function setPow(L,pow)
+	L.size=pow
+end
+local function destroy(L)
+	L.blackCanvas:release()
+	L.shadowCanvas:release()
+	L.renderCanvas:release()
+end
+local function draw(L)
+	local r,g,b,a=love.graphics.getColor()
+	gc.setCanvas(L.blackCanvas)C()
+	gc.setCanvas(L.shadowCanvas)C()
+	gc.setCanvas(L.renderCanvas)C()
+	lightRenderShader:send("xresolution",L.size);
+	shadowMapShader:send("yresolution",L.size);
+	--初始化数据
+	local X=L.x-L.size*.5
+	local Y=L.y-L.size*.5
+	--整束光的左上角
+	gc.translate(-X,-Y)
+	L.blackCanvas:renderTo(L.blackFn)
+	gc.translate(X,Y)
+	--渲染遮光物
+	gc.setShader(shadowMapShader)
+	gc.setCanvas(L.shadowCanvas)
+	gc.draw(L.blackCanvas)
+	--根据遮光物渲染阴影画布
+	gc.setShader(lightRenderShader)
+	gc.setCanvas(L.renderCanvas)
+	gc.draw(L.shadowCanvas,0,0,0,1,L.size)
+	--根据阴影画布渲染光画布
+	gc.setShader()gc.setCanvas()gc.setBlendMode("add")
+	--准备渲染
+	gc.setColor(r,g,b,a)
+	gc.draw(L.renderCanvas,X,Y+L.size,0,1,-1)
+	--渲染到屏幕
+	gc.setBlendMode("alpha")
+	--复位
+end
+--Public--
+function drawLight()
+	for i=1,#Lights do
+		Lights[i]:draw()
+	end
+end
+function clearLight(L)
+	for i=1,#Lights do
+		Lights[i]:destroy()
+		Lights[i]=nil
+	end
+end
+function addLight(x,y,R,F)
+	local id=#Lights+1
+	Lights[id]={
+		id=id,
+		x=x,y=y,size=R,
+		blackCanvas=gc.newCanvas(R,R),--遮挡物画布
+		shadowCanvas=gc.newCanvas(R,1),--1D视深画布
+		renderCanvas=gc.newCanvas(R,R),--灯光画布
+		blackFn=F,--遮挡物绘图函数
+		--方法
+		move=move,
+		setPow=setPow,
+		draw=draw,
+		destroy=destroy,
+	}
+end

parts/mino.lua

@@ -0,0 +1,37 @@
+local O,_=true,false
+local L={
+	{{_,O,O},{O,O,_}},	--Z
+	{{O,O,_},{_,O,O}},	--S
+	{{O,O,O},{_,_,O}},	--L
+	{{O,O,O},{O,_,_}},	--J
+	{{O,O,O},{_,O,_}},	--T
+	{{O,O},{O,O}},		--O
+	{{O,O,O,O}},		--I
+}
+local function RotCW(B)
+	local N={}
+	local r,c=#B,#B[1]--row,col
+	for x=1,c do
+		N[x]={}
+		for y=1,r do
+			N[x][y]=B[y][c-x+1]
+		end
+	end
+	return N
+end
+
+-- [1,1,1]
+-- [0,0,1]--r=2,c=3
+--    ↓ (Y inv)
+--  [1,1]
+--  [1,0]
+--  [1,0]
+
+for i=1,#L do
+	local B=L[i]
+	L[i]={[0]=B}
+	B=RotCW(B)L[i][1]=B
+	B=RotCW(B)L[i][2]=B
+	B=RotCW(B)L[i][3]=B
+end
+return L

parts/shader.lua

@@ -0,0 +1,2 @@
+gc=love.graphics
+shader_glow=gc.newShader("parts/shader/glow.cs")

parts/shader/glow.cs

@@ -0,0 +1,5 @@
+extern float X;extern float Y;extern float W;extern float H;
+vec4 effect(vec4 C,Image Tx,vec2 Tcd,vec2 Pcd){
+	C[3]=min((Pcd.x-X)/W*.3+(Pcd.y-Y)/H*.1,.3)+.5;
+	return C;
+}

parts/shader/lightRender.cs

@@ -0,0 +1,30 @@
+#define PI 3.14
+extern float xresolution;
+//从1D距离map采样
+float samp(vec2 coord,float r,Image u_texture){
+	return step(r,Texel(u_texture,coord).r);
+}
+vec4 effect(vec4 color,Image texture,vec2 texture_coords,vec2 screen_coords){
+	//直角转极坐标，用于采样1D材质的y总是0
+	vec2 norm=texture_coords.st*2.-1.;
+	float r=length(norm);
+	vec2 tc=vec2((atan(norm.y,norm.x)+PI)/(2.*PI),0.);
+	//根据离光源距离放大模糊系数，模拟影子淡出
+	float blur=(1./xresolution)*smoothstep(0.,1.,r);
+
+	//简易高斯模糊
+	float sum=
+		samp(vec2(tc.x-4.*blur,tc.y),r,texture)*.5
+		+samp(vec2(tc.x-3.*blur,tc.y),r,texture)*.9
+		+samp(vec2(tc.x-2.*blur,tc.y),r,texture)*.12
+		+samp(vec2(tc.x-1.*blur,tc.y),r,texture)*.15
+
+		+samp(tc,r,texture)*.16//The center tex coord,which gives us hard shadows.
+		+samp(vec2(tc.x+1.*blur,tc.y),r,texture)*.15
+		+samp(vec2(tc.x+2.*blur,tc.y),r,texture)*.12
+		+samp(vec2(tc.x+3.*blur,tc.y),r,texture)*.9
+		+samp(vec2(tc.x+4.*blur,tc.y),r,texture)*.5;
+	//sum值为亮度(0~1)
+	//乘上距离得到逐渐变淡的光线
+	return vec4(vec3(1.),sum*smoothstep(1.,.1,r));
+}

parts/shader/shadowMap.cs

@@ -0,0 +1,16 @@
+#define PI 3.14
+extern float yresolution;
+vec4 effect(vec4 color,Image texture,vec2 texture_coords,vec2 screen_coords){
+	//Iterate through the occluder map's y-axis.
+	for(float y=0.;y<yresolution;y++){
+		//直角转极坐标
+		vec2 norm=vec2(texture_coords.s,y/yresolution)*2.-1.;
+		float theta=PI*1.5+norm.x*PI;
+		float r=(1.+norm.y)*.5;
+		//y/yresolution为到光源的距离(0~1)
+		//遮光物采样
+		vec4 data=Texel(texture,(vec2(-r*sin(theta),-r*cos(theta))*.5+.5));//vec2()..是遮光物采样的coord
+		if(data.a>.1)return vec4(vec3(y/yresolution),1.);//碰撞检测，像素透明度>.1即透光
+	}
+	return vec4(1,1,1,1);//返回最远距离1
+}