sabor24934 https://blog.hatena.ne.jp/sabor24934/ ただ建築が好きな走るエンジニア、 https://sabor24934.hatenablog.com/ 電気 ソースコードの続き。 'Matrix for transformation from flat to sphere Private Sub transMat() Dim f As Double Dim ch As Integer For i As Integer = 0 To H - 1 y(i) = H / Math.PI * Math.Acos(1 - 2 * i / H) For j As Integer = 0 To H - 1 x(j, i) = H + 1 ch = Math.Sqrt*1 If ch < H / 2 Then f = (1 - 2 * j / H) / Math.… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fsabor24934.hatenablog.com%2Fentry%2Fa51c0ca535f5fa22ab10d64cfa77fce6" title="My地球儀(その２) - ただ建築が好きな走るエンジニア、" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2014-08-03 23:59:22 rich https://sabor24934.hatenablog.com/entry/a51c0ca535f5fa22ab10d64cfa77fce6 1.0 100%