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
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
|
#ifndef _ManPagesM_h_
#define _ManPagesM_h_
/* ManPagesM.h
*
* Copyright (C) 1996-2011 Paul Boersma
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or (at
* your option) any later version.
*
* This program is distributed in the hope that it will be useful, but
* WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
* See the GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
*/
/*
* pb 2011/01/05
*/
/* ManPages macros. */
#ifndef _ManPages_h_
#include "ManPages.h"
#endif
#define MAN_BEGIN(t,a,d) { const wchar_t *title = t, *author = a; long date = d; \
static struct structManPage_Paragraph page [] = {
#define INTRO(text) { kManPage_type_INTRO, text },
#define ENTRY(text) { kManPage_type_ENTRY, text },
#define NORMAL(text) { kManPage_type_NORMAL, text },
#define LIST_ITEM(text) { kManPage_type_LIST_ITEM, text },
#define LIST_ITEM1(text) { kManPage_type_LIST_ITEM1, text },
#define LIST_ITEM2(text) { kManPage_type_LIST_ITEM2, text },
#define LIST_ITEM3(text) { kManPage_type_LIST_ITEM3, text },
#define TAG(text) { kManPage_type_TAG, text },
#define TAG1(text) { kManPage_type_TAG1, text },
#define TAG2(text) { kManPage_type_TAG2, text },
#define TAG3(text) { kManPage_type_TAG3, text },
#define DEFINITION(text) { kManPage_type_DEFINITION, text },
#define DEFINITION1(text) { kManPage_type_DEFINITION1, text },
#define DEFINITION2(text) { kManPage_type_DEFINITION2, text },
#define DEFINITION3(text) { kManPage_type_DEFINITION3, text },
#define CODE(text) { kManPage_type_CODE, text },
#define CODE1(text) { kManPage_type_CODE1, text },
#define CODE2(text) { kManPage_type_CODE2, text },
#define CODE3(text) { kManPage_type_CODE3, text },
#define CODE4(text) { kManPage_type_CODE4, text },
#define CODE5(text) { kManPage_type_CODE5, text },
#define PROTOTYPE(text) { kManPage_type_PROTOTYPE, text },
#define FORMULA(text) { kManPage_type_FORMULA, text },
#define PICTURE(width,height,draw) { kManPage_type_PICTURE, NULL, width, height, draw },
#define SCRIPT(width,height,text) { kManPage_type_SCRIPT, text, width, height },
#define MAN_END { 0 } }; ManPages_addPage (me, title, author, date, page); }
#define Manual_DRAW_WINDOW(height,title,menu) \
"Select inner viewport... 0.2 5.8 0.2 " #height "-0.2\n" \
"Axes... 0 100*5.6 100*(" #height "-0.4) 0\n" \
"Paint rectangle... 0.8 0 560 0 30\n" \
"Paint circle... {1,0.5,0.5} 15 15 8\n" \
"Draw line... 15-5 10 15+5 20\n" \
"Draw line... 15+5 10 15-5 20\n" \
"Paint circle... {1,1,0.25} 40 15 8\n" \
"Draw line... 40-7 15 40+7 15\n" \
"Paint circle... {0.25,1,0.25} 65 15 8\n" \
"Draw rectangle... 65-5 65+5 15-5 15+5\n" \
"Helvetica\n" \
"Text... 280 centre 15 half " title "\n" \
"Paint rectangle... 0.9 0 560 30 60\n" \
"Text... 5 left 45 half " menu "\n" \
"Draw line... 0 30 560 30\n" \
"info$ = Picture info\n" \
"fontSize = extractNumber (info$, \"Font size: \")\n"
#define Manual_SETTINGS_WINDOW_HEIGHT(numberOfVerticalFields) 1.4+numberOfVerticalFields*0.4
#define Manual_DRAW_SETTINGS_WINDOW(title,numberOfVerticalFields) \
"Select inner viewport... 0.1 5.3 0.2 1.2+" #numberOfVerticalFields "*0.4\n" \
"height = 100*(1+" #numberOfVerticalFields "*0.4)\n" \
"Axes... 0 100*5.2 height 0\n" \
"Paint rectangle... 0.8 0 520 0 30\n" \
"Paint circle... {1,0.5,0.5} 15 15 8\n" \
"Draw line... 15-5 10 15+5 20\n" \
"Draw line... 15+5 10 15-5 20\n" \
"Helvetica\n" \
"Text... 260 centre 15 half " title "\n" \
"Paint rectangle... 0.9 0 520 30 height\n" \
"Draw line... 0 30 520 30\n" \
"buttonColour$ = \"0.95\"\n" \
"Paint rounded rectangle... 'buttonColour$' 15 85 height-10 height-34 2.0\n" \
"Draw rounded rectangle... 15 85 height-10 height-34 2.0\n" \
"Text... 50 centre height-21 half Help\n" \
"Paint rounded rectangle... 'buttonColour$' 95 195 height-10 height-34 2.0\n" \
"Draw rounded rectangle... 95 195 height-10 height-34 2.0\n" \
"Text... 145 centre height-21 half Standards\n" \
"Paint rounded rectangle... 'buttonColour$' 275 345 height-10 height-34 2.0\n" \
"Draw rounded rectangle... 275 345 height-10 height-34 2.0\n" \
"Text... 310 centre height-21 half Cancel\n" \
"Paint rounded rectangle... 'buttonColour$' 355 425 height-10 height-34 2.0\n" \
"Draw rounded rectangle... 355 425 height-10 height-34 2.0\n" \
"Text... 390 centre height-21 half Apply\n" \
"Line width... 2\n" \
"Paint rounded rectangle... {0.8,0.8,1} 435 505 height-10 height-34 2.0\n" \
"Draw rounded rectangle... 435 505 height-10 height-34 2.0\n" \
"Line width... 1\n" \
"Text... 470 centre height-21 half OK\n" \
"Draw rectangle... 0 520 0 height\n" \
"info$ = Picture info\n" \
"fontSize = extractNumber (info$, \"Font size: \")\n" \
"y = 55\n"
#define Manual_DRAW_SETTINGS_WINDOW_FIELD(label,text) \
"Text... 255 right y half " label ":\n" \
"Paint rectangle... white 265 505 y-12 y+12\n" \
"Draw rectangle... 265 505 y-12 y+12\n" \
";Courier\n" \
"Text... 265 left y half " text "\n" \
"Helvetica\n" \
"y += 40\n"
#define Manual_DRAW_SETTINGS_WINDOW_RANGE(label,text1,text2) \
"Text... 255 right y half " label ":\n" \
"Paint rectangle... white 265 370 y-12 y+12\n" \
"Draw rectangle... 265 370 y-12 y+12\n" \
"Paint rectangle... white 380 505 y-12 y+12\n" \
"Draw rectangle... 380 505 y-12 y+12\n" \
";Courier\n" \
"Text... 265 left y half " text1 "\n" \
"Text... 380 left y half " text2 "\n" \
"Helvetica\n" \
"y += 40\n"
#define Manual_DRAW_SETTINGS_WINDOW_BOOLEAN(label,on) \
"if " #on "\n" \
" Paint rectangle... yellow 265 279 y-7 y+7\n" \
" Text special... 272 centre y half Times fontSize*1.2 0 ##\\Vr\n" \
"else\n" \
" Paint rectangle... white 265 279 y-7 y+7\n" \
"endif\n" \
"Draw rectangle... 265 279 y-7 y+7\n" \
"Text... 281 left y half " label "\n" \
"y += 40\n"
#define Manual_DRAW_SETTINGS_WINDOW_RADIO(label,text,on) \
"if \"" label "\" <> \"\"\n" \
" Text... 255 right y half " label ":\n" \
"endif\n" \
"if " #on "\n" \
" Paint circle... yellow 272 y 7\n" \
" Paint circle... black 272 y 3\n" \
"else\n" \
" Paint circle... white 272 y 7\n" \
"endif\n" \
"Draw circle... 272 y 7\n" \
"Text... 281 left y half " text "\n" \
"y += 40\n"
#define Manual_DRAW_SETTINGS_WINDOW_OPTIONMENU(label,text) \
"Text... 255 right y half " label ":\n" \
"Paint rounded rectangle... 'buttonColour$' 265 505 y-12 y+12 1.0\n" \
"Draw rounded rectangle... 265 505 y-12 y+12 2.0\n" \
"Text... 270 left y half " text "\n" \
"Helvetica\n" \
"y += 40\n"
#define Manual_DRAW_SETTINGS_WINDOW_TEXT(label,text) \
"Text... 12 left y half " label ":\n" \
"y += 24\n" \
"Paint rectangle... white 15 505 y-12 y+12\n" \
"Draw rectangle... 15 505 y-12 y+12\n" \
";Courier\n" \
"Text... 15 left y half " text "\n" \
"Helvetica\n" \
"y += 40\n"
/* End of file ManPagesM.h */
#endif
|
