- Copy the Western hemisphere topography image to position 3000 of
your local MYDATA/IMAGES dataset. Because the size
of this image is larger than the screen, reduce the resolution
by a factor of 3 so it will fit within a 640 x 480 screen:
- Type: IMGCOPY TOPO/WHEMI MYDATA/IMAGES.3000 LATLON=0 100 MAG=-3 SIZE=418 418
- Erase the graphics on frame 1 and display the image on frame 1 with
the image center at the center of your screen, and draw a map on it.
- Type: EG 1;IMGDISP MYDATA/IMAGES.3000 1 LINELE=209 209 PLACE=CENTER EU=TOPO SF=YES REFRESH='MAP'
- Use the LWU command to change the
sub-satellite longitude of the navigation block to 0° longitude.
Word 70 of the AREA file contains this information. The format for
the value is DDDMMSS (longitude*10000). LWU is not an ADDE command
and only works on local files. Since we stored this image in position
3000 of our MYDATA/IMAGES dataset which covers AREA0001-AREA9999, the
file name is AREA3000.
- Type: LWU POKE AREA3000 0 70
Note that the previous value is listed as 1000000 (100° W).
In McIDAS, West longitude is positive.
- Redisplay the image as before and draw a map.
- Type: EG 1;IMGDISP MYDATA/IMAGES.3000 1 LINELE=209 209 PLACE=CENTER EU=TOPO SF=YES REFRESH='MAP'
Note that the map does not line up with the topography data in the
image, but represents a full disk view at 0°. When you change
the navigation information, you do not change the data to match
the new navigation.
- Remap the topography data from the full Earth image (TOPO/GLOB)
into the image with the changed navigation. Use the SMOOTH=YES
keyword to smooth the limb of the image.
- Type: IMGREMAP TOPO/GLOB MYDATA/IMAGES.3000 SMOOTH=YES
- Redisplay the image and draw a map.
- Type: EG 1;IMGDISP MYDATA/IMAGES.3000 1 LINELE=209 209 PLACE=CENTER EU=TOPO SF=YES REFRESH='MAP'
Note that the data and the map now line up.
- Copy the remapped image into the next position in the MYDATA/IMAGES
dataset. Keep the image the same size and resolution.
- Type: IMGCOPY MYDATA/IMAGES.3000 MYDATA/IMAGES.3001 SIZE=SAME
- Change the longitude of the sub-satellite point to be 90°W.
- Type: LWU POKE AREA3001 900000 70
- Remap the topography data from the full Earth image (TOPO/GLOB)
into the image with the changed navigation. Use the SMOOTH=YES
keyword to smooth the limb of the image.
- Type: IMGREMAP TOPO/GLOB MYDATA/IMAGES.3001 SMOOTH=YES
- Display the image in the next frame and draw a map on it.
- Type: EG 2;IMGDISP MYDATA/IMAGES.3001 2 LINELE=209 209 PLACE=CENTER EU=TOPO SF=YES REFRESH='MAP'
- Repeat steps 7-10 to create views at 180° W and 90° E.
- Type: IMGCOPY MYDATA/IMAGES.3000 MYDATA/IMAGES.3002 SIZE=SAME
- Type: LWU POKE AREA3002 1800000 70
- Type: IMGREMAP TOPO/GLOB MYDATA/IMAGES.3002 SMOOTH=YES
- Type: EG 3;IMGDISP MYDATA/IMAGES.3002 3 LINELE=209 209 PLACE=CENTER EU=TOPO SF=YES REFRESH='MAP'
- Type: IMGCOPY MYDATA/IMAGES.3000 MYDATA/IMAGES.3003 SIZE=SAME
- Type: LWU POKE AREA3003 -900000 70
- Type: IMGREMAP TOPO/GLOB MYDATA/IMAGES.3003 SMOOTH=YES
- Type: EG 4;IMGDISP MYDATA/IMAGES.3003 4 LINELE=209 209 PLACE=CENTER EU=TOPO SF=YES REFRESH='MAP'
- Set the loop bounds for frames 1-4, set the dwell rate to be 3 for
each frame, and start the loop.
- Type: LB 1 4;DR 3
- Press: Alt-L
This example can be refined to create a smoother animation by decreasing
the longitude difference between successive images (thereby using
more images). We have created a McBASI script -