1 /********************************************************************
2 This file is part of the abs 0.907 distribution. abs is a spreadsheet
3 with graphical user interface.
4
5 Copyright (C) 1998-2001 Andr� Bertin (Andre.Bertin@ping.be)
6
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2 of the License, or
10 (at your option) any later version if in the same spirit as version 2.
11
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
16
17 You should have received a copy of the GNU General Public License
18 along with this program; if not, write to the Free Software
19 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
20
21 Concact: abs@pi.be
22 http://home.pi.be/bertin/abs.shtml
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 #include "axis_vb.h"
53 #include "application.h"
54 #include "libfct.h"
55
56 obj
vb_axis_settitle(narg,arg)57 vb_axis_settitle (narg, arg)
58 int narg;
59 obj *arg;
60 {
61 obj o = arg[0];
62
63 return o;
64 }
65
66 obj
vb_axis_gettitle(narg,arg)67 vb_axis_gettitle (narg, arg)
68 int narg;
69 obj *arg;
70 {
71 obj o;
72 Axis *ax = (Axis *) arg[0].rec.s;
73
74
75 o.type = TITLE;
76 o.label = arrayclass[TITLE].name;
77 o.rec.s = (char *) &(ax->AxisTitle);
78 return o;
79 }
80
81 obj
vb_axis_sethastitle(narg,arg)82 vb_axis_sethastitle (narg, arg)
83 int narg;
84 obj *arg;
85 {
86 obj o = arg[1];
87 obj *axisobj = (obj *) arg[0].rec.s;
88 Axis *axis = (Axis *) axisobj->rec.s;
89 axis->HasTitle = obj2int (arg[1]);
90 return o;
91 }
92
93 obj
vb_axis_gethastitle(narg,arg)94 vb_axis_gethastitle (narg, arg)
95 int narg;
96 obj *arg;
97 {
98 obj o;
99
100 return o;
101 }
102
103 obj
vb_axis_setminimumscale(narg,arg)104 vb_axis_setminimumscale (narg, arg)
105 int narg;
106 obj *arg;
107 {
108 obj o = arg[1];
109 obj *axisobj = (obj *) arg[0].rec.s;
110 Axis *axis = (Axis *) axisobj->rec.s;
111 axis->MinimumScale = obj2double (arg[1]);
112 axis->MinimumScaleIsAuto = 0;
113 return o;
114 }
115
116 obj
vb_axis_getminimumscale(narg,arg)117 vb_axis_getminimumscale (narg, arg)
118 int narg;
119 obj *arg;
120 {
121 obj o;
122
123 return o;
124 }
125
126 obj
vb_axis_setmaximumscale(narg,arg)127 vb_axis_setmaximumscale (narg, arg)
128 int narg;
129 obj *arg;
130 {
131 obj o = arg[1];
132 obj *axisobj = (obj *) arg[0].rec.s;
133 Axis *axis = (Axis *) axisobj->rec.s;
134 axis->MaximumScale = obj2double (arg[1]);
135 axis->MaximumScaleIsAuto = 0;
136 return o;
137 }
138
139 obj
vb_axis_getmaximumscale(narg,arg)140 vb_axis_getmaximumscale (narg, arg)
141 int narg;
142 obj *arg;
143 {
144 obj o;
145
146 return o;
147 }
148
149 obj
vb_axis_setminorunit(narg,arg)150 vb_axis_setminorunit (narg, arg)
151 int narg;
152 obj *arg;
153 {
154 obj o = arg[1];
155 obj *axisobj = (obj *) arg[0].rec.s;
156 Axis *axis = (Axis *) axisobj->rec.s;
157 axis->MinorUnit = obj2double (arg[1]);
158 axis->MinorUnitIsAuto = 0;
159 return o;
160 }
161
162 obj
vb_axis_getminorunit(narg,arg)163 vb_axis_getminorunit (narg, arg)
164 int narg;
165 obj *arg;
166 {
167 obj o;
168
169 return o;
170 }
171
172 obj
vb_axis_setmajorunit(narg,arg)173 vb_axis_setmajorunit (narg, arg)
174 int narg;
175 obj *arg;
176 {
177 obj o = arg[1];
178 obj *axisobj = (obj *) arg[0].rec.s;
179 Axis *axis = (Axis *) axisobj->rec.s;
180 axis->MajorUnit = obj2double (arg[1]);
181 axis->MajorUnitIsAuto = 0;
182 return o;
183 }
184
185 obj
vb_axis_getmajorunit(narg,arg)186 vb_axis_getmajorunit (narg, arg)
187 int narg;
188 obj *arg;
189 {
190 obj o;
191
192 return o;
193 }
194
195 obj
vb_axis_setmajorgridlines(narg,arg)196 vb_axis_setmajorgridlines (narg, arg)
197 int narg;
198 obj *arg;
199 {
200 obj o = arg[1];
201 obj *axisobj = (obj *) arg[0].rec.s;
202 Axis *axis = (Axis *) axisobj->rec.s;
203 axis->HasMajorGridLines = obj2int (arg[1]);
204 return o;
205 }
206
207 obj
vb_axis_getmajorgridlines(narg,arg)208 vb_axis_getmajorgridlines (narg, arg)
209 int narg;
210 obj *arg;
211 {
212 obj o;
213
214 return o;
215 }
216
217 obj
vb_axis_setminorgridlines(narg,arg)218 vb_axis_setminorgridlines (narg, arg)
219 int narg;
220 obj *arg;
221 {
222 obj o = arg[1];
223 obj *axisobj = (obj *) arg[0].rec.s;
224 Axis *axis = (Axis *) axisobj->rec.s;
225 axis->HasMinorGridLines = obj2int (arg[1]);
226 return o;
227 }
228
229 obj
vb_axis_getminorgridlines(narg,arg)230 vb_axis_getminorgridlines (narg, arg)
231 int narg;
232 obj *arg;
233 {
234 obj o;
235
236 return o;
237 }
238