home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l292 / 1.ddi / GRAFTYPE.FOR < prev    next >
Encoding:
Text File  |  1990-02-19  |  2.0 KB  |  83 lines
  1.       INTEGER maxLegends, maxContours, maxContourX, maxContourY
  2.       INTEGER toptext, bottomtext, lefttext, righttext, centertext
  3.       INTEGER NormWidth, solidln, maxgroup
  4.       INTEGER nfonts
  5.       PARAMETER (maxgroup = 5)
  6.       PARAMETER (maxLegends = 10)
  7.       PARAMETER (maxContours = 60)
  8.       PARAMETER (maxContourX = 60)
  9.       PARAMETER (maxContourY = 60)
  10.       !!! Text and LineStyle Constants
  11.       PARAMETER (toptext = 2)
  12.       PARAMETER (bottomtext = 0)
  13.       PARAMETER (lefttext = 0)
  14.       PARAMETER (righttext = 2)
  15.       PARAMETER (centertext = 1)
  16.       PARAMETER (NormWidth = 1)
  17.       PARAMETER (solidln = 1)
  18.       !!! Font Constants
  19.       PARAMETER (nfonts = 6)
  20.  
  21.       STRUCTURE /RECT/
  22.          INTEGER LEFT
  23.          INTEGER TOP
  24.          INTEGER RIGHT
  25.          INTEGER BOTTOM
  26.       END STRUCTURE
  27.  
  28.       STRUCTURE /WORLDRECT/
  29.          REAL LEFT
  30.          REAL TOP
  31.          REAL RIGHT
  32.          REAL BOTTOM
  33.       END STRUCTURE
  34.  
  35.       STRUCTURE /GroupInfoRec/
  36.         INTEGER GroupColor
  37.         INTEGER GroupHatch
  38.       END STRUCTURE
  39.  
  40.       STRUCTURE /explodeRec/
  41.         LOGICAL explodetrue
  42.         REAL percent
  43.       END STRUCTURE
  44.  
  45.       STRUCTURE  /grstype/
  46.           RECORD /WorldRect/ plotworld
  47.           RECORD /WorldRect/ plotclip
  48.           RECORD /WorldRect/ win2plotratio
  49.           RECORD /Rect/  plotrect
  50.           RECORD /Rect/ drawingRect
  51.           LOGICAL LogX
  52.           LOGICAL LogY
  53.           INTEGER numticx
  54.           INTEGER numticy
  55.           REAL xint
  56.           REAL yint
  57.           REAL tsx
  58.           REAL tsy
  59.           REAL ticspacex
  60.           REAL ticspacey
  61.       END STRUCTURE
  62.       STRUCTURE /Point2d/
  63.         REAL X
  64.         REAL Y
  65.       END STRUCTURE
  66.  
  67.       STRUCTURE /Point3d/
  68.         REAL X
  69.         REAL Y
  70.         REAL Z
  71.       END STRUCTURE
  72.  
  73.       STRUCTURE /xyrec/
  74.         INTEGER x
  75.         INTEGER y
  76.       END STRUCTURE
  77.  
  78.       STRUCTURE /xyerec/
  79.         INTEGER x
  80.         INTEGER y
  81.         INTEGER edge
  82.       END STRUCTURE
  83.