嘗試旋轉地球儀的北極視圖

解答動態(tài)

• 

  Update：原來斜投影（J.M.提供的鏈接中提到）已經(jīng)實現(xiàn)。使用選項quot；-gt；300，GeoRange-quot；，GeoGridLines-gt；GeoStyling[quot；]，地質(zhì)投影-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將一個圖像放在另一個圖像中。
  在這里，我們有一個函數(shù)，可以在任何旋轉的情況下返回相同大小的圖像。這里有一點小技巧，讓地理背景和圖片背景變成紫色。不幸的是，當您在GeoGraphics上使用ImageRotate時，它似乎忽略了alpha通道并將背景轉換為白色（即使您將其設置為None或Transparent）。然后，我們將所有的紫色替換為透明的，以得到一個很好的圖像，我們可以用它來構圖。您還可以使用ImageCrop來獲得一致的圖像大??br/> 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}]}] 現(xiàn)在我們可以一起設置這兩個動畫。圖像合成這里是你的朋友，因為你有兩個相當不同的尺寸圖像。我經(jīng)常使用縮放，目測縮放和位置直到它看起來正確。
  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