window, xs=300, ys=300 !p.position=[0,0,1,1] set_isoxy, -1.1, 1.1, -1.1, 1.1 erase, 80 sphinit, long=-30, lat=40, rad=1, fill=140, pa=30 for lng= 0, 355, 5 do $ for lat= -90, 90, 5 do $ sphlat, lat+(lng/5 mod 2)*2.5, 1, lng, lng+5 for lat= -85, 85, 5 do $ for lng= 0, 355, 5 do $ sphlng, lng+(lat/5 mod 2)*2.5, 1, lat, lat+5
window, xs=300, ys=300
!p.position=[0,0,1,1]
set_isoxy, -1.1, 1.1, -1.1, 1.1
erase, 30
sphinit, long=-30, lat=40, rad=1, fill=50, pa=30
lat1 = 0.
step = 10.
c = 210
i = 0
while lat1 le 85 do begin &$
d = (i mod 2)*step/2. &$
lat2 = lat1 + cos(lat1/!radeg)*step &$
for lng = 0, 355, step do sphlng, lng+d, 1, lat1, lat2, col=c &$
sphlat, lat1, 1, col=c &$
d = ((i+1) mod 2)*step/2. &$
for lng = 0, 355, step do sphlng, lng+d, 1, -lat1, -lat2, col=c &$
sphlat, -lat1, 1, col=c &$
lat1 = lat2 &$
i = i + 1 &$
endwhile
sphinit, long=-30, lat=40, rad=1, pa=30, color=c
window, xs=300, ys=300 !p.position=[0,0,1,1] set_isoxy, -1.1, 1.1, -1.1, 1.1 erase, 30 sphinit, long=0, lat=40, rad=1, fill=140, pa=30 for lng=-70,70,5 do sphrad,lng,60,0,1 sphinit, long=5, lat=45, rad=1, pa=-30 for lng=0, 360, 10 do sphlng,lng,1,color=100, thick=2 for lat = -80, 80, 10 do sphlat, lat, 1, color=100, thick=2 sphinit, long=0, lat=40, rad=1, pa=30, color=100 for lat=60,90,3 do sphlat,lat,1, thick=2