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