home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / programming / fortranf1_1 / !WimpPoly_f77_WPolyWimp < prev    next >
Encoding:
Text File  |  1992-01-26  |  1.4 KB  |  31 lines
  1. C    common for WIMP parts of WIMPpoly
  2.       PARAMETER (NMENU3=4,NMENUN=3,NMENU1=3)
  3.       CHARACTER *12 TITLM3,LIST3D,TITLMN,TITLM1,LIST1,LISTNT
  4.       COMMON/WMP/INDAT,NS,
  5.      1IWINTR,IWLIST,IWHELP,IWNET,IW3D,IWSAVE,IBLOCK(128),
  6.      2 IWIDHP,IHIHP,IWIDNT,IHINT,IWID3D,IHI3D,
  7.      3 MBLK3D(7+6*NMENU3),MBLKNT(7+6*NMENUN),MBLK1(7+6*NMENU1),MENWIN 
  8. C     INDAT unit number (set in INIT) for reading datafiles
  9. C     NS number of polyhedra in the list of SOLIDS
  10. C  Window handles
  11. C     IWLIST list of solids                IWHELP help window
  12. C     IWNET  for drawing the planar net    IWINTR Introduction window
  13. C     IW3D  drawing the 3D polyhedra
  14. C     IWSAVE 'Save' menu with drag box
  15. C     IBLOCK used for WIMP handling
  16. C  Window dimensions
  17. C     IWIDNT, IHINT for planar net window
  18. C     IWID3D, IHI3D for 3D window                         
  19. C     IWIDHP, IHIHP for help window
  20. C  Menu for 3D window and net window
  21. C      NMENU3 number of items in menu   MBLK3 menu block
  22. C      NMENUN  ..     ..  ..   ..  ..   MBLKNT net menu block
  23. C      NMENU1  ..     ..  ..   ..  ..   MBLK1  1st window menu block
  24. C      MENWIN window handle for which window menu clicked over
  25. C
  26.       COMMON/WMenu/TITLM3,LIST3D(NMENU3),TITLMN,LISTNT(NMENUN),
  27.      1             TITLM1,LIST1(NMENU1)
  28. C                    Menu character variables 
  29. C     titles for 3D menu TITLM3, for net menu TITLMN, for 1st menu TITLM1 
  30. C    menu entries for 3D LIST3D, for net      LISTNT, for 1st menu  LIST1 
  31.