# 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_v03.src"
descr "  set_limb - Loads Limb figure list"

display "Executing procedure set_limb"

menu !LS0 "Limb inner radius" "488" "489" "490"

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

# Load the Limb Figure List

if !LS0 = "488" then
    # Limb inner radius = 488 (3904)
    # Limb outer radius = 494 (3952)
    tcblock mbiptbl 4 0x1000 0x7000 0 3952 3904 \
                296 12 0x8000 0x700B 0 0 1720 0x1684 0xCF40
    wait time 10
end if

if !LS0 = "489" then
    # Limb inner radius = 489 (3912)
    # Limb outer radius = 495 (3960)
    tcblock mbiptbl 4 0x1000 0x7000 0 3960 3912 \
                296 12 0x8000 0x700B 0 0 1720 0x1684 0xCF48
end if

if !LS0 = "490" then
    # Limb inner radius = 490 (3920)
    # Limb outer radius = 496 (3968)
    tcblock mbiptbl 4 0x1000 0x7000 0 3968 3920 \
                296 12 0x8000 0x700B 0 0 1720 0x1684 0xCF50
    wait time 10
end if

display "Finished procedure set_limb: %s" !TIME

return
