# File: set_limb.src
#
# Loads Limb Figure List 
#
#---------------------------------------------------------------------

program "@(#) MODULE: mkobstbl.src RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/flight/src/set_limb_v01.src"
descr "  set_limb - Loads Limb figure list"

display "Executing procedure set_limb"

menu !LS0 "Limb inner radius" "3928" "4016"

# Load the geometry
tcblock mbiptbl 0x10 4032 3968 4096 4096 1024
wait time 10

# Load the Limb Figure List
if !LS0 = "3928" then
    tcblock mbiptbl 4 0x1000 0x7000 0 3976 3928 \
                296 12 0x8000 0x700B 0 0 1490 0x1180 0xCF58
endif
if !LS0 = "4018" then
    tcblock mbiptbl 4 0x1000 0x7000 0 4056 4016 \
                296 12 0x8000 0x700B 0 0 1490 0x1180 0xAFB0
endif


display "Finished procedure set_limb: %s" !TIME

return

