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