モジュール:高規格幹線道路

local function create(frame)
	local args=frame:getParent().args
	local name=args[2]
	local width=tonumber(args[3])
	local namehead="/"..name:gsub("(.+)自動車道.*","%1").."/"
	local pa
	if string.find("/北海道縦貫/北海道横断/日高/深川留萌/旭川紋別/帯広広尾/函館江差/",namehead) then
		pa={144.0,43.5,0.64,790000}
	elseif string.find("/東北横断/日本海沿岸東北/東北中央/津軽/三陸縦貫/八戸久慈/",namehead) then
		pa={140.6,39.2,2,280000}
	elseif string.find("/東関東/北関東/首都圏中央連絡/",namehead) then
		pa={139.6,35.9,1.23,240000}
	elseif string.find("/中国縦貫/山陽/中国横断/山陰/尾道福山/東広島呉/",namehead) then
		pa={132.7,35.1,0.82,370000}
	elseif string.find("/四国縦貫/四国横断/今治小松/高知東部/",namehead) then
		pa={133.4,33.6,0.88,280000}
	elseif string.find("/九州縦貫/九州横断/東九州/西九州/南九州西回り/",namehead) then
		pa={130.3,32.4,1.6,350000}
	end
	local projection=require("Module:地図/正射図法")({width,math.floor(width*pa[3])},math.floor(pa[4]/width),{pa[1],pa[2]})
	local size=projection.getSize()
	local reader=require("Module:地図/行政区域")(projection)
	local sc
	do
		local dp=projection.getDp()
		for _,ds in ipairs({1000000,500000,200000,100000,50000,20000,10000,5000,2000,1000,500,200,100}) do
			local m=math.floor(ds/dp)
			if m<size[1]/2 then
				sc={ds,m}
				break
			end
		end
	end
	local marks={}
	table.insert(marks,{
		type="path",
		interactive=false,
		properties={
			enter={
				path={
					value=reader.getCoast()
				},
				fill={
					value="white"
				}
			}
		}
	})
	for i=1,3 do
		local path=reader.getInnerPath(i)
		if #path>0 then
			table.insert(marks,{
				type="path",
				interactive=false,
				properties={
					enter={
						path={
							value=path
						},
						stroke={
							value="gray"
						},
						strokeWidth={
							value=i==1 and 1.5 or 0.25
						},
						strokeDash={
							value=i<=2 and {10,2,2,2} or {2,2}
						}
					}
				}
			})
		end
	end
	local pathlist={}
	for _,line in ipairs(require("Module:地図/高規格幹線道路")(projection)) do
		local path=line.getPath()
		if #path~=0 then
			local type=line.getType()*4+(line.getImcomplete() and 1 or 0)*2+(string.match(line.getName(1),"^"..name) and 1 or 0)
			if pathlist[type]==nil then
				pathlist[type]=""
			end
			pathlist[type]=pathlist[type]..line.getPath()
		end
	end
	for i,path in pairs(pathlist) do
		if i~=9*4+2 then
			local t=math.floor(i/4)
			table.insert(marks,{
				type="path",
				interactive=false,
				properties={
					enter={
						path={
							value=path
						},
						stroke={
							h={
								value=t==1 and 180 or (t==2 and 40 or (t==3 and 0 or (t==5 and 270 or 0)))
							},
							s={
								value=math.floor(i%2)==1 and 0.9 or (t~=9 and 0.7 or 0.2)
							},
							l={
								value=math.floor(i%2)==1 and 0.6 or 0.3
							}
						},
						strokeWidth={
							value=math.floor(i%2)==1 and 5 or (math.floor(i/2)%2==0 and t~=9) and 1.25 or 0.25
						}
					}
				}
			})
		end
	end
	table.insert(marks,{
		type="rect",
		interactive=false,
		properties={
			enter={
				fill={
					value="white"
				},
				fillOpacity={
					value=0.75
				},
				x={
					value=size[1]-sc[2]-8-4
				},
				y={
					value=size[2]-4-24
				},
				width={
					value=sc[2]+4*2
				},
				height={
					value=24
				}
			}
		}
	})
	table.insert(marks,{
		type="rect",
		interactive=false,
		properties={
			enter={
				fill={
					value="black"
				},
				x={
					value=size[1]-sc[2]-8
				},
				y={
					value=size[2]-4-8
				},
				width={
					value=sc[2]
				},
				height={
					value=4
				}
			}
		}
	})
	table.insert(marks,{
		type="text",
		interactive=false,
		properties={
			enter={
				fill={
					value="black"
				},
				align={
					value="center"
				},
				baseline={
					value="middle"
				},
				font={
					value="TakaoExGothic"
				},
				fontSize={
					value=12
				},
				text={
					value=sc[1]<1000 and (sc[1].."m") or ((sc[1]/1000).."km")
				},
				x={
					value=size[1]-sc[2]/2-8
				},
				y={
					value=size[2]-18
				}
			}
		}
	})
	return frame:extensionTag('templatestyles','',{src='Graph:Chart/styles.css'})..mw.text.tag("div",{style=""},
		frame:extensionTag('graph',mw.text.jsonEncode({
			version=2,
			width=size[1],
			height=size[2],
			background="gainsboro",
			marks={
				{
					type="group",
					properties={
						enter={
							clip={
								value=true
							},
							x={
								value=0
							},
							y={
								value=0
							},
							width={
								value=size[1]
							},
							height={
								value=size[2]
							}
						}
					},
					marks=marks
				}
			}
		}))
		..frame:extensionTag('ref','国土交通省 国土数値情報（行政区域・湖沼・高速道路時系列）を加工して作成')
		.."<br/>"
		..mw.text.tag("table",{style="font-size:60%;border-collapse:collapse;border:solid 1px lightgray;"},
			mw.text.tag("tr",{},mw.text.tag("td",{style="border:solid 1px lightgray;color:hsl(180,90%,60%);"},"■")..mw.text.tag("td",{style="border:solid 1px lightgray;color:hsl(180,70%,30%);"},"■")..mw.text.tag("td",{style="border:solid 1px lightgray;"},"[[高速自動車国道]]（A路線）"))
			..mw.text.tag("tr",{},mw.text.tag("td",{style="border:solid 1px lightgray;color:hsl(40,90%,60%);"},"■")..mw.text.tag("td",{style="border:solid 1px lightgray;color:hsl(40,70%,30%);"},"■")..mw.text.tag("td",{style="border:solid 1px lightgray;"},"[[高速自動車国道に並行する一般国道自動車専用道路|高速自動車国道に並行する<br/>一般国道自動車専用道路]]（A'路線）"))
			..mw.text.tag("tr",{},mw.text.tag("td",{style="border:solid 1px lightgray;color:hsl(0,90%,60%);"},"■")..mw.text.tag("td",{style="border:solid 1px lightgray;color:hsl(0,70%,30%);"},"■")..mw.text.tag("td",{style="border:solid 1px lightgray;"},"[[国土交通大臣指定に基づく高規格幹線道路（一般国道の自動車専用道路）|国土交通大臣指定に基づく高規格幹線道路<br/>（一般国道の自動車専用道路）]]（B路線）"))
		)
	)
end
return {
	_=function(frame)
		return create(frame)
	end
}