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,PETSC_DRAW_ROTATE
     33:       parameter (PETSC_DRAW_BASIC_COLORS=33,PETSC_DRAW_ROTATE=-1)
     34: !
     35: !  Colors for drawing
     36: !
     37:       PetscEnum PETSC_DRAW_WHITE,PETSC_DRAW_BLACK,PETSC_DRAW_RED
     38:       PetscEnum PETSC_DRAW_GREEN,PETSC_DRAW_CYAN,PETSC_DRAW_BLUE
     39:       PetscEnum PETSC_DRAW_MAGENTA,PETSC_DRAW_AQUAMARINE
     40:       PetscEnum PETSC_DRAW_FORESTGREEN,PETSC_DRAW_ORANGE
     41:       PetscEnum PETSC_DRAW_BROWN,PETSC_DRAW_PINK,PETSC_DRAW_CORAL
     42:       PetscEnum PETSC_DRAW_GRAY,PETSC_DRAW_YELLOW,PETSC_DRAW_GOLD
     43:       PetscEnum PETSC_DRAW_LIGHTPINK,PETSC_DRAW_MEDIUMTURQUOISE
     44:       PetscEnum PETSC_DRAW_KHAKI,PETSC_DRAW_DIMGRAY
     45:       PetscEnum PETSC_DRAW_SKYBLUE,PETSC_DRAW_DARKGREEN
     46:       PetscEnum PETSC_DRAW_NAVYBLUE,PETSC_DRAW_SANDYBROWN
     47:       PetscEnum PETSC_DRAW_CADETBLUE,PETSC_DRAW_POWDERBLUE
     48:       PetscEnum PETSC_DRAW_DEEPPINK,PETSC_DRAW_THISTLE
     49:       PetscEnum PETSC_DRAW_LIMEGREEN,PETSC_DRAW_LAVENDERBLUSH
     50:       PetscEnum PETSC_DRAW_PLUM,PETSC_DRAW_YELLOWGREEN
     51:       PetscEnum PETSC_DRAW_VIOLET

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

     78:       PetscEnum BUTTON_NONE,BUTTON_LEFT,BUTTON_CENTER
     79:       PetscEnum BUTTON_RIGHT

     81:       parameter (BUTTON_NONE = 0,BUTTON_LEFT = 1)
     82:       parameter (BUTTON_CENTER = 2,BUTTON_RIGHT = 3)

     84: !
     85: !  End of Fortran include file for the PetscDraw package in PETSc

     87: #endif