使用实时更新的卫星照片作为你的桌面壁纸！

[bitdust]

妈妈说过在标题栏加感叹号会显得很 low ，但是这的确是我发在 V2EX 第一个项目，不得不激动下。

这是一个 C#项目，可以抓取日本的向日葵 8 号卫星每十分钟更新的的地球照片作为桌面壁纸，逼格爆炸。

效果图如下：

项目地址： https://github.com/bitdust/EarthLiveSharp
使用攻略： https://github.com/bitdust/EarthLiveSharp/issues/3

欢迎大家多提宝贵意见！

[bdbai]

@bitdust MVC 适合普通应用，你这个程序的场景并不适合。学做 Windows 应用开发建议上 UWP ，原生的 MVVM 。

[me521333]

这个时间上确实会出现反复额，上面说的那个获取新图片自动设置壁纸就挺好。
那个，我真的去掉桌面图标盯了十秒，结果我觉得眼睛已经花了分辨不出来地球是不是动了，虽然它真的动了。。。

[bitdust]

@me521333
即将更新~

[anguslg]

@uuair 给你个曲线救国的方案，使用 dropbox 同步卫星图片， mac 上设置这个同步目录为桌面背景。前提是你得有台一直开机到 windows 23333😂

[0xffff]

好奇那个实时高清卫星图是怎么抓取的。有 API ？还是自己写脚本啊。 @bitdust

[endpoint]

一直都只有一张图片- -

[bitdust]

@0xffff 留个邮箱，我给你发接口。（最好在 github 留言，这样我可以稍后把你的邮箱信息屏蔽掉，防止隐私泄露）
@endpoint 图片每 10 分钟更新一次，可以耐性等等。不行的话贴下 trace.log 信息。而且这两天我会发出来更稳定新版本。

[pepsin]

```
require 'net/http'
def get_url x, y
str = "http://himawari8-dl.nict.go.jp/himawari8/img/D531106/20d/550/2015/12/08/050000_#{x}_#{y}.png"
end

def run
20.times do |x|
20.times do |y|
url = get_url x, y
uri = URI.parse(url)
req = Net::HTTP::Get.new uri.path
res = Net::HTTP.start(uri.host, uri.port, use_ssl: false) do |http|
http.request req
end

file = File.open("himawari_#{x}_#{y}.png", "w+")
file.write(res.body)
end
end
end

run

```

简单写了个抓大图的脚本，拼图请自行研究吧～

[pepsin]

require 'net/http'
def get_url time, x, y
str = "http://himawari8-dl.nict.go.jp/himawari8/img/D531106/20d/550/#{time}0000_#{x}_#{y}.png"
end

def run time
ts = []
20.times do |x|
thread = Thread.new do
20.times do |y|
name = "himawari_#{x}_#{y}.png"
unless File.exists? name
url = get_url time, x, y
uri = URI.parse(url)
req = Net::HTTP::Get.new uri.path
res = Net::HTTP.start(uri.host, uri.port, use_ssl: false) do |http|
http.request req
end

file = File.open(name, "w+")
file.write(res.body)
end
end
end
ts.push thread
end
ts.map(&:join)
end

run "2015/12/08/01"

require "cairo"

w = 20
h = 20
time = "05"
partial_width = 550
surface = Cairo::ImageSurface.new(w * partial_width, h * partial_width)
cr = Cairo::Context.new(surface)

w.times do |x|
h.times do |y|
name = "#{time}/himawari_#{x}_#{y}.png"
puts name
png = Cairo::ImageSurface.from_png(name)
cr.set_source(*png)
cr.matrix = Cairo::Matrix.identity
cr.translate(x * partial_width, y * partial_width)
cr.paint()
end
end

cr.target.write_to_png("all.png")

[miao1007]

楼上搞 20d 精度要拖垮服务器了，直接 1d 的精度也够用了

```golang
date := time.Now().Add(-21 * time.Minute).In(time.UTC).Format("2006/01/02/1504")
url:= "http://himawari8-dl.nict.go.jp/himawari8/img/D531106/1d/550/" + date[0:len(date)-1] + "000_0_0.png"
fmt.Print(url)
```

[bitdust]

@endpoint @me521333 @SilentDepth @GPU @wtbhk
更新 1.0 正式版咯
https://github.com/bitdust/EarthLiveSharp/releases

[GPU]

@bitdust 程序的自带更新不可以用?

[SilentDepth]

为什么只能看到红红的澳大利亚，不开心 :(

[GPU]

@pepsin
```
require "cairo"

w = 20
h = 20
time = "05"
partial_width = 550
surface = Cairo::ImageSurface.new(w * partial_width, h * partial_width)
cr = Cairo::Context.new(surface)

w.times do |x|
h.times do |y|
name = "#{time}/himawari_#{x}_#{y}.png"
puts name
png = Cairo::ImageSurface.from_png(name)
cr.set_source(*png)
cr.matrix = Cairo::Matrix.identity
cr.translate(x * partial_width, y * partial_width)
cr.paint()
end
end

cr.target.write_to_png("all.png")
```
執行這段的時候 。去到這裏就 killed 了。
05/himawari_14_3.png
Killed

[GPU]

@pepsin 沒事了 ，估計是 vps 性能不夠被母雞 kill 了。 換了一臺 10 核的就搞掂了。

[GPU]

我的碼哦。 搞了一張 20d 精度的。 174M 啊啊啊啊 。雙核 CPU 還搞不到，要弄了 10 核的才不卡。

[pepsin]

@miao1007 我本地 MBP 搞着玩的，不高清不好玩

[GPU]

@bitdust 什麼時候會支持更高精度的地球？
@pepsin 我發現圖片的第一行去到了最後一行呢？

[pepsin]

@GPU 啊。估计我失误了。我之前还以为那是倒影。

[GPU]

@pepsin 太空怎会有倒影 。 捂脸