pro main
;
; executive proceedure for hair cell visualization
;
COMMON bool_vals, true, false
true = 1
false = 0
ax = 0
ay = 0
az = 0
xwsize = 300
ywsize = 300
scale = 1.

; stolen from page 4-9 of manual
choices_menu = strarr(12)
choices_menu(0) = 'Shaded solid'
choices_menu(1) = 'Line drawn'
choices_menu(2) = '------------'
choices_menu(3) = 'Rotate'
choices_menu(4) = 'Scale'
choices_menu(5) = 'Zoom'
choices_menu(6) = 'Window size'
choices_menu(7) = '------------'
choices_menu(8) = 'Animate'
choices_menu(9) = 'Tensions'
choices_menu(10) = '------------'
choices_menu(11) = 'Quit'

looping = True
While looping do begin
   choice = tvmenu(choices_menu, 'Select...', 300, 300)

   case choice of
      0: shade, ax, ay, az, xwsize, ywsize
      1: lines, ax, ay, az, scale, xwsize, ywsize
      2:        ; nothing here
      3: set_rot, ax, ay, az
      4: set_scl, scale
      5: zoom
      6: set_size, xwsize, ywsize
      7:        ; nothing here
      8: animate, xwsize, ywsize
      9: ; show tensions
      10:        ; nothing here
      11: looping = False
   endcase
endwhile

end