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