Actual source code: petscdraw.h

  1: !
  2: !
  3: !  Include file for Fortran use of the PetscDraw package in PETSc
  4: !

  6: #if !defined (__PETSCDRAW_H)

  9: #define PetscDraw PetscFortranAddr
 10: #define PetscDrawLG PetscFortranAddr
 11: #define PetscDrawAxis PetscFortranAddr
 12: #define PetscDrawSP PetscFortranAddr
 13: #define PetscDrawHG PetscFortranAddr
 14: #define PetscDrawMesh PetscFortranAddr
 15: #define PetscDrawButton PetscEnum
 16: #define PetscDrawType character*(80)

 18: !
 19: !  types of draw context
 20: !
 21: #define PETSC_DRAW_X 'x'
 22: #define PETSC_DRAW_NULL 'null'
 23: #define PETSC_DRAW_PS 'ps'
 24: #define PETSC_DRAW_WIN32 'win32'

 26: #endif

 28: #if !defined (PETSC_AVOID_DECLARATIONS)
 29: !
 30: !  Flags for draw
 31: !
 32:       PetscEnum PETSC_DRAW_BASIC_COLORS
 33:       PetscEnum PETSC_DRAW_ROTATE
 34:       parameter (PETSC_DRAW_BASIC_COLORS=33,PETSC_DRAW_ROTATE=-1)
 35: !
 36: !  Colors for drawing
 37: !
 38:       PetscEnum PETSC_DRAW_WHITE
 39:       PetscEnum PETSC_DRAW_BLACK
 40:       PetscEnum PETSC_DRAW_RED
 41:       PetscEnum PETSC_DRAW_GREEN
 42:       PetscEnum PETSC_DRAW_CYAN
 43:       PetscEnum PETSC_DRAW_BLUE
 44:       PetscEnum PETSC_DRAW_MAGENTA
 45:       PetscEnum PETSC_DRAW_AQUAMARINE
 46:       PetscEnum PETSC_DRAW_FORESTGREEN
 47:       PetscEnum PETSC_DRAW_ORANGE
 48:       PetscEnum PETSC_DRAW_BROWN
 49:       PetscEnum PETSC_DRAW_PINK
 50:       PetscEnum PETSC_DRAW_CORAL
 51:       PetscEnum PETSC_DRAW_GRAY
 52:       PetscEnum PETSC_DRAW_YELLOW
 53:       PetscEnum PETSC_DRAW_GOLD
 54:       PetscEnum PETSC_DRAW_LIGHTPINK
 55:       PetscEnum PETSC_DRAW_MEDIUMTURQUOISE
 56:       PetscEnum PETSC_DRAW_KHAKI
 57:       PetscEnum PETSC_DRAW_DIMGRAY
 58:       PetscEnum PETSC_DRAW_SKYBLUE
 59:       PetscEnum PETSC_DRAW_DARKGREEN
 60:       PetscEnum PETSC_DRAW_NAVYBLUE
 61:       PetscEnum PETSC_DRAW_SANDYBROWN
 62:       PetscEnum PETSC_DRAW_CADETBLUE
 63:       PetscEnum PETSC_DRAW_POWDERBLUE
 64:       PetscEnum PETSC_DRAW_DEEPPINK
 65:       PetscEnum PETSC_DRAW_THISTLE
 66:       PetscEnum PETSC_DRAW_LIMEGREEN
 67:       PetscEnum PETSC_DRAW_LAVENDERBLUSH
 68:       PetscEnum PETSC_DRAW_PLUM
 69:       PetscEnum PETSC_DRAW_YELLOWGREEN
 70:       PetscEnum PETSC_DRAW_VIOLET

 72:       parameter (PETSC_DRAW_WHITE = 0,PETSC_DRAW_BLACK = 1)
 73:       parameter (PETSC_DRAW_RED = 2,PETSC_DRAW_GREEN = 3)
 74:       parameter (PETSC_DRAW_CYAN = 4,PETSC_DRAW_BLUE = 5)
 75:       parameter (PETSC_DRAW_MAGENTA = 6,PETSC_DRAW_AQUAMARINE = 7)
 76:       parameter (PETSC_DRAW_FORESTGREEN = 8,PETSC_DRAW_ORANGE = 9)
 77:       parameter (PETSC_DRAW_VIOLET = 10,PETSC_DRAW_BROWN = 11)
 78:       parameter (PETSC_DRAW_PINK = 12,PETSC_DRAW_CORAL = 13)
 79:       parameter (PETSC_DRAW_GRAY = 14,PETSC_DRAW_YELLOW = 15)
 80:       parameter (PETSC_DRAW_GOLD = 16,PETSC_DRAW_LIGHTPINK = 17)
 81:       parameter (PETSC_DRAW_MEDIUMTURQUOISE = 18)
 82:       parameter (PETSC_DRAW_KHAKI = 19)
 83:       parameter (PETSC_DRAW_DIMGRAY = 20)
 84:       parameter (PETSC_DRAW_YELLOWGREEN = 21)
 85:       parameter (PETSC_DRAW_SKYBLUE = 22)
 86:       parameter (PETSC_DRAW_DARKGREEN = 23)
 87:       parameter (PETSC_DRAW_NAVYBLUE = 24)
 88:       parameter (PETSC_DRAW_SANDYBROWN = 25)
 89:       parameter (PETSC_DRAW_CADETBLUE = 26)
 90:       parameter (PETSC_DRAW_POWDERBLUE = 27)
 91:       parameter (PETSC_DRAW_DEEPPINK = 28)
 92:       parameter (PETSC_DRAW_THISTLE = 29)
 93:       parameter (PETSC_DRAW_LIMEGREEN = 30)
 94:       parameter (PETSC_DRAW_LAVENDERBLUSH =31)
 95:       parameter (PETSC_DRAW_PLUM = 32)

 97:       PetscEnum BUTTON_NONE
 98:       PetscEnum BUTTON_LEFT
 99:       PetscEnum BUTTON_CENTER
100:       PetscEnum BUTTON_RIGHT

102:       parameter (BUTTON_NONE = 0,BUTTON_LEFT = 1)
103:       parameter (BUTTON_CENTER = 2,BUTTON_RIGHT = 3)

105: !
106: !  End of Fortran include file for the PetscDraw package in PETSc

108: #endif