尝试旋转地球仪的北极视图
我的目标是生成这样的图表。但是我希望能够围绕北极旋转地球仪，这样我就可以表示一天中的不同时间。当我使用ImageRotate时，结果有点奇怪。左下角的那个小黑点
解答动态
Update：原来斜投影（J.M.提供的链接中提到）已经实现。使用选项quot；-gt；300，GeoRange-quot；，GeoGridLines-gt；GeoStyling[quot；]，地质投影-amp；/@{-30，-60，45}，间距[10]]
答案：
fresno=实体[quot；，{quot；Fresnoquot；Californiaquot；UnitedStatesgt；400，GeoRange-quot；Worldgt；Automatic，GeoBackground-quot；StreetMapNoLabelsgt；{90，0}，GeoProjection-quot；Orthographicgt；400，地理范围-quot；世界gt；自动，地理背景-quot；StreetMapNoLabelsgt；（图像旋转[#，30度，图像尺寸@#]gt；{90，0}，地理投影-quot；正交gt；几何变换[Point[x]，RotationTransform[30 Degree]]； 更简单的方法是旋转光栅化的geog1:
raster=Rasterize[geog1，Background-gt；None]，ImageSize-gt；None]amp；/@（Range[4]/5）}]；frames=Show[rotate[#Degree]，arrows，Background-gt；All，ImageSize-quot；rotateLog.gif"；，frames]
kglr的更新答案是更正确的选项。下面是我不太正确的答案。
这里有两个技巧-一个是不管地理背景如何都能得到相同大小的图像，另一个是使用ImageCompose将一个图像放在另一个图像中。
在这里，我们有一个函数，可以在任何旋转的情况下返回相同大小的图像。这里有一点小技巧，让地理背景和图片背景变成紫色。不幸的是，当您在GeoGraphics上使用ImageRotate时，它似乎忽略了alpha通道并将背景转换为白色（即使您将其设置为None或Transparent）。然后，我们将所有的紫色替换为透明的，以得到一个很好的图像，我们可以用它来构图。您还可以使用ImageCrop来获得一致的图像大� �
rotateGlobe[d璝]：=ColorReplace[ImageCrop@ImageRotate[GeoGraphics[GeoRangePadding-gt；0，GeoBackground-quot；海岸线gt；quot；，GeoRange-quot；世界gt；自动，GeoCenter-gt；Purple，ImageSize-gt；Purple-quot；箭头"；以更清楚地说明我们在做什么。
箭头=图形[{黑色，矩形[{1.1，-1.1}，{6，1.1}]，白色，厚度[0.01]，箭头[0.04]，表[Arrow[{6，y}，{1.1，y}}]，{y，-1，1，0.5}]}] 现在我们可以一起设置这两个动画。图像合成这里是你的朋友，因为你有两个相当不同的尺寸图像。我经常使用缩放，目测缩放和位置直到它看起来正确。
Animate[ImageCompose[arrows，ImageResize[rotateGlobe[d]，Scaled[.25]]，Scaled[{.18，.5}]]，{d，-\[Pi]，\[Pi]，.1}] or，
Table[ImageCompose[arrows，ImageResize[rotateGlobe[d]，Scaled[.25]]，Scaled[{.18，.5}]]，{d，-\[Pi]，\[Pi]，1}]- End
免责声明：
本页内容仅代表作者本人意见，若因此产生任何纠纷由作者本人负责，概与琴岛网公司无关。本页内容仅供参考，请您根据自身实际情况谨慎操作。尤其涉及您或第三方利益等事项，请咨询专业人士处理。