1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
|
/* $Id: x07c.c,v 1.17 2002/12/03 08:39:24 airwin Exp $
Font demo.
*/
#ifdef MSDOS
#pragma optimize("",off)
#endif
#include "plcdemos.h"
static int base[17] =
{0, 200, 500, 600, 700, 800, 900,
2000, 2100, 2200, 2300, 2400, 2500, 2600, 2700, 2800, 2900};
/*--------------------------------------------------------------------------*\
* main
*
* Displays the entire "plsym" symbol (font) set.
\*--------------------------------------------------------------------------*/
int
main(int argc, char *argv[])
{
char text[10];
int i, j, k, l;
PLFLT x, y;
/* Parse and process command line arguments */
(void) plParseOpts(&argc, argv, PL_PARSE_FULL);
/* Initialize plplot */
plinit();
plfontld(1);
for (l = 0; l < 17; l++) {
pladv(0);
/* Set up viewport and window */
plcol0(2);
plvpor(0.15, 0.95, 0.1, 0.9);
plwind(0.0, 1.0, 0.0, 1.0);
/* Draw the grid using plbox */
plbox("bcgt", 0.1, 0, "bcgt", 0.1, 0);
/* Write the digits below the frame */
plcol0(15);
for (i = 0; i <= 9; i++) {
sprintf(text, "%d", i);
plmtex("b", 1.5, (0.1 * i + 0.05), 0.5, text);
}
k = 0;
for (i = 0; i <= 9; i++) {
/* Write the digits to the left of the frame */
sprintf(text, "%d", base[l] + 10 * i);
plmtex("lv", 1.0, (0.95 - 0.1 * i), 1.0, text);
for (j = 0; j <= 9; j++) {
x = 0.1 * j + 0.05;
y = 0.95 - 0.1 * i;
/* Display the symbols */
plsym(1, &x, &y, base[l] + k);
k = k + 1;
}
}
plmtex("t", 1.5, 0.5, 0.5, "PLplot Example 7 - PLSYM symbols");
}
plend();
exit(0);
}
|
