Actual source code: petscdraw.h

  1: !
  2: !  $Id: petscdraw.h,v 1.30 2001/04/10 22:37:56 balay Exp $;
  3: !
  4: !  Include file for Fortran use of the PetscDraw package in PETSc
  5: !

  7: #if !defined (__PETSCDRAW_H)

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

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

 27: #endif

 29: #if !defined (PETSC_AVOID_DECLARATIONS)
 30: !
 31: !  Flags for draw
 32: !
 33:       integer PETSC_DRAW_BASIC_COLORS,PETSC_DRAW_ROTATE
 34:       parameter (PETSC_DRAW_BASIC_COLORS=33,PETSC_DRAW_ROTATE=-1)
 35: !
 36: !  Colors for drawing
 37: !
 38:       integer PETSC_DRAW_WHITE,PETSC_DRAW_BLACK,PETSC_DRAW_RED
 39:       integer PETSC_DRAW_GREEN,PETSC_DRAW_CYAN,PETSC_DRAW_BLUE
 40:       integer PETSC_DRAW_MAGENTA,PETSC_DRAW_AQUAMARINE
 41:       integer PETSC_DRAW_FORESTGREEN,PETSC_DRAW_ORANGE,PETSC_DRAW_VIOLET
 42:       integer PETSC_DRAW_BROWN,PETSC_DRAW_PINK,PETSC_DRAW_CORAL
 43:       integer PETSC_DRAW_GRAY,PETSC_DRAW_YELLOW,PETSC_DRAW_GOLD
 44:       integer PETSC_DRAW_LIGHTPINK,PETSC_DRAW_MEDIUMTURQUOISE
 45:       integer PETSC_DRAW_KHAKI,PETSC_DRAW_DIMGRAY,PETSC_DRAW_YELLOWGREEN
 46:       integer PETSC_DRAW_SKYBLUE,PETSC_DRAW_DARKGREEN
 47:       integer PETSC_DRAW_NAVYBLUE,PETSC_DRAW_SANDYBROWN
 48:       integer PETSC_DRAW_CADETBLUE,PETSC_DRAW_POWDERBLUE
 49:       integer PETSC_DRAW_DEEPPINK,PETSC_DRAW_THISTLE
 50:       integer PETSC_DRAW_LIMEGREEN,PETSC_DRAW_LAVENDERBLUSH
 51:       integer PETSC_DRAW_PLUM


 54:       parameter (PETSC_DRAW_WHITE = 0,PETSC_DRAW_BLACK = 1)
 55:       parameter (PETSC_DRAW_RED = 2,PETSC_DRAW_GREEN = 3)
 56:       parameter (PETSC_DRAW_CYAN = 4,PETSC_DRAW_BLUE = 5)
 57:       parameter (PETSC_DRAW_MAGENTA = 6,PETSC_DRAW_AQUAMARINE = 7)
 58:       parameter (PETSC_DRAW_FORESTGREEN = 8,PETSC_DRAW_ORANGE = 9)
 59:       parameter (PETSC_DRAW_VIOLET = 10,PETSC_DRAW_BROWN = 11)
 60:       parameter (PETSC_DRAW_PINK = 12,PETSC_DRAW_CORAL = 13)
 61:       parameter (PETSC_DRAW_GRAY = 14,PETSC_DRAW_YELLOW = 15)
 62:       parameter (PETSC_DRAW_GOLD = 16,PETSC_DRAW_LIGHTPINK = 17)
 63:       parameter (PETSC_DRAW_MEDIUMTURQUOISE = 18,PETSC_DRAW_KHAKI = 19)
 64:       parameter (PETSC_DRAW_DIMGRAY = 20,PETSC_DRAW_YELLOWGREEN = 21)
 65:       parameter (PETSC_DRAW_SKYBLUE = 22,PETSC_DRAW_DARKGREEN = 23)
 66:       parameter (PETSC_DRAW_NAVYBLUE = 24,PETSC_DRAW_SANDYBROWN = 25)
 67:       parameter (PETSC_DRAW_CADETBLUE = 26,PETSC_DRAW_POWDERBLUE = 27)
 68:       parameter (PETSC_DRAW_DEEPPINK = 28,PETSC_DRAW_THISTLE = 29)
 69:       parameter (PETSC_DRAW_LIMEGREEN = 30,PETSC_DRAW_LAVENDERBLUSH =31)
 70:       parameter (PETSC_DRAW_PLUM = 32)

 72:       integer BUTTON_NONE,BUTTON_LEFT,BUTTON_CENTER,BUTTON_RIGHT

 74:       parameter (BUTTON_NONE = 0,BUTTON_LEFT = 1)
 75:       parameter (BUTTON_CENTER = 2,BUTTON_RIGHT = 3)

 77: !
 78: !  End of Fortran include file for the PetscDraw package in PETSc

 80: #endif